10 REM ++++++++++++++++++++++++++++++++ 20 REM ROCK.BAS 30 REM Musikprogram som utnyttjar S[V 40 REM Fr}n finska ABC-klubben 50 REM Ins{nt av Risto Koivula 60 REM Screenat och modifierat till 70 REM ABC-kassett av G Tidner 80 REM ++++++++++++++++++++++++++++++++ 90 ; CHR$(12%); 100 ; 'ROCK' 110 ; STRING$(40%,61%) 120 ; 'S{tt band i bandspelaren, tryck REC och' 130 ; 'PLAY! Notera r{kneverkets st{llning!' 140 ; 'Tryck RETURN'; : GET C$ : ; 150 OUT 58,INP(58) OR 32% : FOR T=1 TO 5000 : NEXT T 160 OPEN 'S[V:10' ASFILE 1 170 ; CUR(2,0)SPACE$(500);CUR(2,0); 180 C$='.' : REM Punkt 190 ; 'Nu spelas musiken in p} bandet ';C$;C$;C$ 200 FOR Y%=1% TO 2% 210 FOR X%=1% TO 2% 220 ; C$; : ; #1,'C3UC3VE3UC3VG3UC3VA3UC3' 230 ; C$; : ; #1,'#A3UC3VA3UC3VG3UC3VE3UC3' 240 NEXT X% 250 FOR X%=1% TO 2% 260 ; C$; : ; #1,'F3UF3VA3UF3WC3UF3WD3UF3' 270 ; C$; : ; #1,'W#D3UF3WD3UF3WC3UF3VA3UF3' 280 NEXT X% 290 ; C$; : ; #1,'G3UG3VH3UG3WD3UG3WE3UG3WF3' 300 ; C$; : ; #1,'UG3WE3UG3WD3UG3VH3UG3' 310 ; C$; : ; #1,'F3UF3VA3UF3WC3UF3WD3UF3' 320 ; C$; : ; #1,'W#D3UF3WD3UF3WC3UF3VA3UF3' 330 NEXT Y% 340 ; C$; : ; #1,'C3UC3VE3UC3VG3UC3VA3UC3' 350 ; C$; : ; #1,'#A3UC3VA3UC3VG3UC3VE3UC3' 360 ; C$; : ; #1,'G3#F3G3#G3A3#A3H3WC2VC1' 370 ; CUR(2,0)'Bandet {r nu inspelat, backa tillbaka' 380 ; 'till utg}ngsl{get, och tryck ner PLAY' 390 OUT 58,INP(58) AND 223% 400 ; 'Bandet startas med att trycka RETURN'; : GET C$ : ; 410 ; 'Vrid upp ljudvolymen!' : OUT 58,INP(58) OR 32 420 ; 'OUT 58, 32' 430 FOR T=1 TO 20000 : NEXT T 440 ; 'Stoppa sedan genom att trycka RETURN'; : GET C$ : ; 450 ; 'OUT 58, 0' : OUT 58,INP(58) AND 223% 460 END