start tok64 d64-H6YnF1
10 REM ********************************
20 REM *         wave sound           *
30 REM *                              *
40 REM * written by softice software. *
50 REM ********************************
60 REM
61 REM ob. computer 2/1987
62 REM
70 REMprint"{clear}start : {reverse on}sys 49152
80 FORa=49152TO49214:READx:POKEa,x:NEXT
90 DATA169,15,141,24,212,169,220,141,19,212,169,173,141,12,212,169,206,141,5,212
100 DATA169,0,141,29,212,141,13,212,141,6,212,141,11,212,141,4,212,141,18,212,169
110 DATA20,141,15,212,141,8,212,141,1,212,169,129,141,18,212,141,11,212,141,4,212
120 DATA96
200 PRINT"{clear}{white}{down*3}sys pd 1991
210 PRINT"{down*2}{right}wave sound
220 POKE53280,0:POKE53281,6
230 FORi=1904TO2023:POKEi,160:POKEi+54272,7:NEXT
240 a=4:FORi=1744TO1903:POKEi,192+a:a=4-a:POKEi+54272,14:NEXT
250 a=0:FORi=1704TO1743:POKEi,98+a:a=23-a:POKEi+54272,14:NEXT
260 PRINT"{home}",,,"{down}{yellow}{right*2}{reverse on}{cm v}{space*2}{cm c}":PRINT,,,"N{right}{reverse on}{space*4}"
270 PRINT,,,"N{right}{reverse on}{space*4}":PRINT,,,"N{right}{reverse on}{cm f}{space*2}{cm d}":PRINT,,,"N{down}{N*5}
300 IFRND(.)*256>254THENSYS49152
310 GOTO300
stop tok64
(bastext 1.0)