start tok64 d64-0C39Uo 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)