10 REM TONLEITER
20 S=54272
30 POKE S+24,15
40 POKE S+5,3
50 READ X:READ Y
60 IF Y=-1 THEN POKE S+4,0:END
70 POKE S+1,X:POKE S,Y
80 POKE S+4,33
90 FOR T=1 TO 100:NEXT
100 POKE S+4,32
110 FOR T=1 TO 50:NEXT
120 GOTO 50
130 DATA 17,103,19,137,21,237,23,59,26,69,32,219,34,207
140 DATA -1,-1