0100      .OPT NO LIST
0110      .OPT NO EJECT
0120       *= $2000
0130      LDA #$10
0140      STA LICZ
0150      LDA #$34
0160      STA $D302   ;PACTL
0170      STA $D303   ;PBCTL
0180      JSR ZABPRZ
0190      LDA #$28
0200      STA $D208
0210      LDA #$A0
0220      STA $D205
0230      STA $D207
0240      LDA #$7F
0250      STA $D204
0260      STY $D206
0270      LDA #$23
0280      STA $D20F
0290 LO3  JSR LOP
0300      DEC LICZ
0310      BNE LO3
0320      LDA #$C0
0330      STA $D20E
0340      LDA #$3C
0350      STA $D302   ;PACTL
0360      STA $D303   ;PBCTL
0370      LDA #$00
0380      STA $D204
0390      JSR ZEZWPRZ
0400      RTS
0410 ;
0420 LOP  LDX #$00
0430 LOP1 LDY #$00
0440 L00  STA $D40A
0450      DEY
0460      BNE L00
0470      DEX
0480      BNE L00
0490      RTS
0500 ;
0510 ZABPRZ SEI
0520      LDY #$00
0530      STY $D40E
0540      RTS
0550 ;
0560 ZEZWPRZ LDA #$40
0570      STA $D40E
0580      CLI
0590      RTS
0600 LICZ .BYTE $10