5 POKE56,156:CLR
6 SYS57812"TOOL-BASIC.OBJ",8,1:POKE780,0:SYS65493
7 SYS57812"TOOL-ERW.OBJ",8,1:POKE780,0:SYS65493
10 POKE53281,6:POKE53280,6:PRINT"[147][158]             SOUND-DEMO                 "
20 PRINT"       DRUECKEN SIE DIE TASTEN 1-9"
30 SYS49152
40 _USER#1,S,1
50 POKE198,0:WAIT198,1:GETA$
60 A=VAL(A$)
70 IFA<1ORA>9THEN50
80 ONAGOTO1000,2000,3000,4000,5000,6000,7000,8000,9000
90 GOTO50
1000 _USER#1,S,0,1000,1001,7950,0,1,0,240,500,15,65
1010 GOTO50
2000 _USER#1,S,0,1000,1001,10000,0,1,0,240,2000,15,65
2010 GOTO50
3000 _USER#1,S,0,1000,20000,4000,0,1,0,240,2000,15,65
3010 GOTO50
4000 _USER#1,S,0,100,10000,2000,1,128,0,240,2000,15,65
4010 GOTO50
5000 _USER#1,S,0,100,20000,2000,1,128,0,240,500,15,65
5010 GOTO50
6000 _USER#1,S,0,7000,15000,100,0,1,0,240,1000,15,65
6010 GOTO50
7000 _USER#1,S,0,8000,57000,4000,0,1,0,240,1000,15,65
7010 GOTO50
8000 _USER#1,S,0,3000,30000,2000,1,0,0,240,3000,15,65
8010 GOTO50
9000 _USER#1,S,0,3000,6000,1000,0,1,12,12,3000,15,129
9010 GOTO50