start tok64 d64-R0SMcV
10 PRINT"{clear}{down}{right}detta program kan man anv[nda i sina{space*4}egna spel n[r det [r slut"
20 GETa$:IFa$=""THEN20
100 PRINT"{clear}"
110 FORi=54272TO54296:POKEi,0:NEXTi
120 POKE54296,15
130 :
140 POKE54277,88:POKE54278,255:REM1adsr
150 POKE54284,88:POKE54285,255:REM2adsr
160 POKE54291,88:POKE54292,255:REM3adsr
170 :
180 READ h:IF h=-1 THEN FORi=15TO0STEP-.07:POKE54296,i:NEXT:END
190 READ l,le
200 :
210 POKE54273,h:POKE54272,l
220 POKE54280,h:POKE54279,l-10
230 POKE54287,h:POKE54286,l+10
240 :
250 POKE54276,33:REM waveform 1
260 POKE54283,33:REM waveform 2
270 POKE54290,33:REM waveform 3
280 :
290 FORi=1TOle+50:NEXTi
300 POKE54276,32:POKE54283,32:POKE54290,32
310 FORi=1TO50:NEXT:GOTO180
320 DATA 10,25,500,7,245,500,7,100,190,6,125,190,6,10,190,7,100,190,6,125,750
330 DATA-1
stop tok64
(bastext 1.0)