MODULE 2
BOCHUM WELT
- Ref. XB637V
- REPHLEX, 1996.
Easy electronics.
Pistes
- 1 Def fn a (module) = 2
- 2 Print "heart"
- 3 Poke 36879, 238
- 4 Dim CD$ (8)
- 5 Print "On'?'prompt, press return..."
- 6 Print: Print: Print
- 7 For track=1 to 8
- 8 Read CD$ (track)
- 9 Print"track"; track; "is entitled";CD$(track)
- 10 Input G$
- 11 Print: Print
- 12 Next track
- 13 Print"heart"
- 14 Poke 36879,57
- 15 For X=1 to 1000
- 16 Print"Bochum welt - module 2"
- 17 Next X
- 18 Data"avromaticesk", "radiopropulsive", "paph", "lunakhod"
- 19 Data"asteroids over Berlin", "B2","mechanique", "that's mutuality"