10 'DEFINTA-Z:BEEP
20 OUT &HA0,8:OUT&HA1,15:OUT &HA0,1:OUT &HA1,0:OUT &HA0,0:OUT &HA1,254
30 RESTORE 240:S=S+1:IF S=1 THEN K=14 ELSE K=12
40 FOR I=1 TO K:READ S1,S0,T1
50 OUT &HA0,8:OUT &HA1,15
60 OUT &HA0,1:OUT &HA1,S1:OUT &HA0,0:OUT &HA1,S0
70 TIME=0
80 T=TIME:IF T<T1 THEN 80
90 SOUND 8,0             'OUT &HA0,8:OUT &HA1,0:FOR J=1 TO 10:NEXT
100 NEXT
110 IF S=1 THEN 30
120 RESTORE 260:S=0
130 S=S+1:IF S=1 THEN K=20 ELSE K=14
140 FOR I=1 TO K:READ S1,S0,T1
150 OUT &HA0,8:OUT &HA1,15
160 OUT &HA0,1:OUT &HA1,S1:OUT &HA0,0:OUT &HA1,S0
170 TIME=0
180 T=TIME:IFT<T1 THEN 180
190 OUT &HA0,0:OUT &HA1,0:OUT &HA0,1:OUT &HA0,0:FOR J=1 TO 10:NEXT:NEXT
200 IF S=1 THEN RESTORE 270:GOTO 130
210 OUT &HA0,8:OUT &HA1,15
220 OUT &HA0,1:OUT &HA1,0:OUT &HA0,0:OUT &HA1,254
230 RUN
240 DATA 0,254,15,1,83,15,0,254,15,1,83,15,0,254,15,1,13,15,1,13,30
250 DATA 1,13,15,1,83,15,1,13,15,1,83,15,1,13,15,0,254,15,0,254,30
260 DATA 0,254,15,0,0,15,0,254,30
270 DATA 0,227,15,0,227,7.5,0,227,7.5,0,227,15,0,227,15
280 DATA 0,215,15,0,215,7.5,0,215,7.5,0,215,15,0,215,15
290 DATA 0,215,15,0,227,15,0,254,15,1,13,15,0,254,15,0,254,30
300 DATA 0,254,15