start tok64 d64-Fozwyi
0 REM "mc play loader",8:(c)1991 mr.p.
1 FORi=49152TO53247:READx:IFx>-1THENPOKEi,x:c=c+x:NEXT
2 IFc-3719THENPRINT"data error(s)!
3 PRINT"{clear}{down}{right}saving mc-code!
4 PRINT"{down}{right}use : {reverse on}sys 49152{reverse off}
5 PRINT"{down}{right}load music first! (init $1{0*3},
6 PRINT"{right*21}play $1003)
7 SYS57812"mc play{space*5}/mrp",8,1:h=INT(i/256):l=i-h*256
8 POKE193,.:POKE194,192:POKE174,l:POKE175,h:SYS62957
9 DATA120,32,0,16,162,255,160,4,234,234,234,234,234,234,136,208,247,202,208
10 DATA242,32,3,16,76,4,192,-1
stop tok64
(bastext 1.0)