start tok64 d64-RVMaUq
0 POKE53280,0:POKE53281,0
10 PRINT"{clear}{gray}listen to the disc-drive!!{space*5}"
20 PRINT"{down}it's playing cool music{!*3}{space*5}"
25 PRINT"{down*3}{white}****************************************":PRINT
30 PRINT"{white}{up}converted by fredrik larsson for d.m{.*4}":PRINT
40 PRINT"{up}****************************************":PRINT
1040 OPEN1,8,15:c$=CHR$(4)+CHR$(30)
1050 FORi=1TO9:FORj=1TO30
1060 READb:a$(i)=a$(i)+CHR$(b):NEXTj,i
1070 FORi=1TO9
1080 PRINT#1,"m-w"CHR$((i-1)*30)c$a$(i)
1090 NEXT
1100 PRINT#1,"m-e"CHR$(28)CHR$(4):END
2030 DATA166,133,173,0,28,105,1,24,41,3,9,4,141,0,28,164
2070 DATA134,136,208,253,202,208,235,198,135,208,229,96,32,75,4,234
2110 DATA162,0,189,100,4,133,134,189,183,4,133,135,138,72,32,85
2150 DATA4,104,170,232,224,83,208,3,76,28,4,173,0,24,240,226
2190 DATA169,0,141,0,28,169,192,141,14,28,96,169,18,133,133,169
2230 DATA127,141,14,28,96,32,0,4,196,1,133,134,169,50,133,135
2270 DATA32,0,4,96
3030 DATA180,105,120,135,120,135,160,180,220,1,1,180,105,120,135,135
3070 DATA 145,135,120,1,1,180,105,120,135,120,135,160,180,220,1,1
3110 DATA180,160,120,135,145,160,145,135,1,1,1,1,180,135,1,1
3150 DATA160,120,1,1,145,145,145,145,160,145,135,1,120,105,1,1
3190 DATA180,135,1,1,160,120,1,1,145,145,145,145,160,145,135,1
3230 DATA1,1,1
4030 DATA50,30,25,20,25,20,20,17,35,255,255,20,30,25,25,25,20
4070 DATA25,60,255,255,20,30,25,20,25,20,20,17,35,255,255,20
4110 DATA20,25,25,20,17,20,65,255,255,255,255,50,60,100,100,50
4150 DATA60,100,100,20,20,20,20,20,20,50,20,20,50,255,255,50
4190 DATA60,100,100,50,60,100,100,20,20,20,20,20,20,100,255,255
4230 DATA0,0,0,0,0,0,0,0
stop tok64
(bastext 1.0)