10 REM TONDEMO
20 FQ=4440:REM FREQUENZWERT
25 FH=INT(FQ/256):FL=FQ-256*FH
30 S=54272:REM BASISADRESSE FUER STIMME 1
35 POKES+5,0:POKE S+6,15*16
36 POKE S+24,15
40 PRINT"DREIECKSCHWINGUNG"
50 POKE S,FL:POKE S+1,FH
60 POKE S+4,16:REM DREIECK
70 POKES+4,17:REM TON AN
80 GETT$:IFT$=""THEN80
90 PRINT"SAEGEZAHNSCHWINGUNG"
100 POKE S+4,32:REM SAEGEZAHN
110 POKES+4,33:REM TON AN
120 GETT$:IFT$=""THEN120
130 PRINT"RECHTECKSCHWINGUNG"
140 POKE S+2,100:POKE S+3,0
150 POKE S+4,64:REM RECHTECK
160 POKE S+4,65:REM TON AN
165 GETT$:IFT$=""THEN165
170 PRINT"RAUSCHEN"
180 POKES+4,128:REM RAUSCHEN
190 POKES+4,129:REM TON AN
200 GETT$:IFT$=""THEN200
210 POKES+4,0:REM TON AUS