start tok64 d64-jVdwbr
10 FORi=49152TO49168:READa:POKEi,a:NEXT
20 z=30:REM hast. 0=fort
30 FORi=49169TO49169+z:POKEi,234:NEXT
40 POKEi,76:POKEi+1,9:POKEi+2,192
60 s=54272:FORi=sTOs+24:POKEi,0:NEXT
70 POKEs+5,9:POKEs+6,255:POKEs+24,15
80 PRINT"{clear}{down}{right}press space"
90 GETa$:IFa$<>" "THEN90
95 POKE49153,33:REM wave form
100 POKE56325,1:SYS49152
110 DATA169,17,162,0,160,0,141,4,212,232,140,0,212,200,142,1,212
stop tok64
(bastext 1.0)