10 SCREEN =  $9000
20       *=  $0600
30       PLA 
40       LDA # <DLIST
50       STA 560
60       LDA # >DLIST
70       STA 561
80       LDA # <DLI
90       STA 512
0100     LDA # >DLI
0110     STA 513
0120     LDA #192
0130     STA 54286
0140 ;-----------------------------
0150 START LDA L4
0160     CLC 
0170     ADC #$01
0180     AND #$0F
0190     BNE L1
0200     LDA #$01
0210 L1  STA L4
0220     STA L5
0230     LDX #$2C
0240 L2  LDA L5
0250     ASL A
0260     ASL A
0270     ASL A
0280     ASL A
0290     STA L6
0300     LDA L5
0310     CLC 
0320     ADC #$01
0330     AND #$0F
0340     BNE L3
0350     LDA #$01
0360 L3  STA L5
0370     ORA L6
0380     STA SCREEN,X
0390     DEX 
0400     BPL L2
0410     JMP START
0420 ;-----------------------------
0430 DLI PHA 
0440     LDA AA1
0450     EOR #$C0
0460     STA AA1
0470     ORA $026F   ;623-PRIOR.
0480     STA $D40A
0490     STA $D01B
0500     PLA 
0510     RTI 
0520 ;-----------------------------
0530 DLIST
0540     .BYTE $80,$4F,$00,$90,$4F,$01,$90,$CF,$02,$90
0550     .BYTE $80,$4F,$02,$90,$4F,$01,$90,$CF,$00,$90
0555 ;---rest-data-is-the-same...---
0560     .BYTE $80,$4F,$00,$90,$4F,$01,$90,$CF,$02,$90
0570     .BYTE $80,$4F,$02,$90,$4F,$01,$90,$CF,$00,$90
0580     .BYTE $80,$4F,$00,$90,$4F,$01,$90,$CF,$02,$90
0590     .BYTE $80,$4F,$02,$90,$4F,$01,$90,$CF,$00,$90
0600     .BYTE $80,$4F,$00,$90,$4F,$01,$90,$CF,$02,$90
0610     .BYTE $80,$4F,$02,$90,$4F,$01,$90,$CF,$00,$90
0620     .BYTE $80,$4F,$00,$90,$4F,$01,$90,$CF,$02,$90
0630     .BYTE $80,$4F,$02,$90,$4F,$01,$90,$CF,$00,$90
0640     .BYTE $41
0650     .WORD DLIST
0660 ;------------------------------
0670 AA1 .BYTE 0
0680 L4  .BYTE 1
0690 L5  .BYTE 0
0700 L6  .BYTE 0
0800     *=  $02E2
0810     .WORD $0600