10 EXEC &H6C00
15 ORG 490
20 ALL
30 @PLAY PSHS U,A,B,X,Y     
40 LDB #0
50 JSR $BD41
60 LDA $FF23
70 ORA #8
80 STA $FF23 
90 BSR @PARAM
100 ORCC #$50
110 STA $FFDF
120 @LOOP LDA ,Y+
130 STA $FF20
140 TFR B,A
150 @LOP DECA 
160 BNE @LOP
170 LEAX -1,X
180 BNE @LOOP
190 LDA $11A
200 CMPA #$55
210 BEQ @DONUT
220 STA $FFDE
230 @DONUT PULS A,B,X,Y,U,PC
240 @PARAM JSR $89AA
250 JSR $8E83
260 PSHS X
270 JSR $89AA
280 JSR $8E83
285 PSHS X
290 JSR $89AA
300 JSR $8E83
310 TFR X,D
320 PULS X
330 PULS Y
340 RTS
350 @RECORD PSHS U,A,B,X,Y
360 CLR $FF39
370 CLR $FF38
380 LDA #47
390 STA $FF39
400 BSR @PARAM
410 ORCC #$50
420 STA $FFDF
430 LDA $FF38
440 @QUACK TST $FF39
450 BPL @QUACK
460 LDA $FF38
470 STA ,Y+
475 TFR B,A
476 @WOP DECA:BNE @WOP
480 LEAX -1,X
490 BNE @QUACK
500 STA $FFDE
510 PULS A,B,X,Y,U,PC
520 END @RECORD