start tok64 d64-iqsDOg
10 POKE53280,0:POKE53281,0
20 IFa=0THENa=1:LOAD"music",8,1
30 POKE3,0:POKE4,192:SYS51000
100 i=02358
110 POKE212,0:POKE216,0:GOSUB1000:PRINTCHR$(PEEK(i));:GOSUB1010
150 IFPEEK(i)<>0THENi=i+1:GOTO110
200 GETa$:IFa$=""THEN200
210 SYS64738
1000 IFi=25600ORby=25601THENRETURN
1005 a=PEEK(209)+PEEK(210)*256+PEEK(211):IFPEEK(a)<129THENRETURN
1006 POKEa,PEEK(a)-128:RETURN
1010 a=PEEK(209)+PEEK(210)*256+PEEK(211):POKEa,PEEK(a)+128:RETURN
stop tok64
(bastext 1.0)