20 SDLSTL =  $0230
30 SDLSTH =  $0231
40 RANDOM =  $D20A
50 ;---------------------
70 Z0007 =   $AE
80 Z0008 =   $AF
90 ;---------------------
0100     *=  $2D13
0105 DLIST
0110     .BYTE $44,$00,$90
0140     .BYTE $04,$04,$04,$04,$04
0150     .BYTE $04,$04,$04,$04,$04
0160     .BYTE $04,$04,$04,$04,$04
0170     .BYTE $04,$04,$04,$04,$04
0180     .BYTE $04,$04,$04,$04,$04
0190     .BYTE $04,$04,$04,$04,$04
0200     .BYTE $04,$04,$04,$04,$04
0210     .BYTE $04,$04,$04,$04,$04
0220     .WORD DLIST
0230 L0005 .BYTE $00
0235 L0006 .BYTE $00
0236 ;-------------------
0240 START
0250     LDA #$02
0260     STA L0005   ;$2D42
0270     LDA #$C8
0280     STA L0006   ;$2D41
0290     LDA L0006   ;$2D41
0300     STA Z0007   ;$00AE
0310     LDA L0005   ;$2D42
0320 L0002 STA Z0008 ;$00AF
0330     LDA #$00
0340     LDY #$00
0350     STA (Z0007),Y ;$00AE
0360     LDA #$02
0370     STA L0005   ;$2D42
0380     LDA #$C4
0390     STA L0006   ;$2D41
0400     LDA L0006   ;$2D41
0410     STA Z0007   ;$00AE
0420     LDA L0005   ;$2D42
0430     STA Z0008   ;$00AF
0440     LDA #$04
0450     STA (Z0007),Y ;$00AE
0460     LDA #$02
0470     STA L0005   ;$2D42
0480     LDA #$C5
0490     STA L0006   ;$2D41
0500     LDA L0006   ;$2D41
0510     STA Z0007   ;$00AE
0520     LDA L0005   ;$2D42
0530     STA Z0008   ;$00AF
0540     LDA #$08
0550     STA (Z0007),Y ;$00AE
0560     LDA #$02
0570     STA L0005   ;$2D42
0580     LDA #$C6
0590     STA L0006   ;$2D41
0600     LDA L0006   ;$2D41
0610     STA Z0007   ;$00AE
0620     LDA L0005   ;$2D42
0630     STA Z0008   ;$00AF
0640     LDA #$0C
0650     STA (Z0007),Y ;$00AE
0660     LDA #$D2
0670     STA L0005   ;$2D42
0680     LDA #$08
0690     STA L0006   ;$2D41
0700     LDA L0006   ;$2D41
0710     STA Z0007   ;$00AE
0720     LDA L0005   ;$2D42
0730     STA Z0008   ;$00AF
0740     LDA #$00
0750     STA (Z0007),Y ;$00AE
0760     LDA #$D2
0770     STA L0005   ;$2D42
0780     LDA #$0F
0790     STA L0006   ;$2D41
0800     LDA L0006   ;$2D41
0810     STA Z0007   ;$00AE
0820     LDA L0005   ;$2D42
0830     STA Z0008   ;$00AF
0840     LDA #$03
0850     STA (Z0007),Y ;$00AE
0860     LDA #$D2
0870     STA L0005   ;$2D42
0880     LDA #$00
0890     STA L0006   ;$2D41
0900     LDA L0006   ;$2D41
0910     STA Z0007   ;$00AE
0920     LDA L0005   ;$2D42
0930     STA Z0008   ;$00AF
0940     LDA #$03
0950     STA (Z0007),Y ;$00AE
0960     LDA #$D2
0970     STA L0005   ;$2D42
0980     LDA #$01
0990     STA L0006   ;$2D41
1000     LDA L0006   ;$2D41
1010     STA Z0007   ;$00AE
1020     LDA L0005   ;$2D42
1030     STA Z0008   ;$00AF
1040     LDA #$0F
1050     STA (Z0007),Y ;$00AE
1060     LDA #$02
1070     STA L0005   ;$2D42
1080     LDA #$F4
1090     STA L0006   ;$2D41
1100     LDA L0006   ;$2D41
1110     STA Z0007   ;$00AE
1120     LDA L0005   ;$2D42
1130     STA Z0008   ;$00AF
1140     LDA #$80
1150     STA (Z0007),Y ;$00AE
1160     LDA #$02
1170     STA L0005   ;$2D42
1180     LDA #$2F
1190     STA L0006   ;$2D41
1200     LDA L0006   ;$2D41
1210     STA Z0007   ;$00AE
1220     LDA L0005   ;$2D42
1230     STA Z0008   ;$00AF
1240     LDA #$23
1250     STA (Z0007),Y ;$00AE
1260     LDA # >DLIST ;$2D40
1270     STA SDLSTH  ;$0231
1280     LDA # <DLIST ;$2D3F
1290     STA SDLSTL  ;$0230
1300     LDA #$90
1310     STA L0005   ;$2D42
1320     LDA #$00
1330     STA L0006   ;$2D41
1340 L0013 LDA #$00
1350     CMP L0006   ;$2D41
1360     LDA #$96
1370     SBC L0005   ;$2D42
1380     BCS L0011   ;$2E5D
1390     JMP L0012   ;$2E7B
1400 L0011 LDA L0006 ;$2D41
1410     STA Z0007   ;$00AE
1420     LDA L0005   ;$2D42
1430     STA Z0008   ;$00AF
1440     LDA RANDOM  ;$D20A
1450     AND #$3F
1460     LDY #$00
1470     STA (Z0007),Y ;$00AE
1480     INC L0006   ;$2D41
1490     BNE L0013   ;$2E4E
1500     INC L0005   ;$2D42
1510     JMP L0013   ;$2E4E
1520 L0012 LDA #$80
1530     STA L0005   ;$2D42
1540     LDA #$00
1550     STA L0006   ;$2D41
1560 L0016 LDA #$00
1570     CMP L0006   ;$2D41
1580     LDA #$82
1590     SBC L0005   ;$2D42
1600     BCS L0014   ;$2E94
1610     JMP L0015   ;$2EB0
1620 L0014 LDA L0006 ;$2D41
1630     STA Z0007   ;$00AE
1640     LDA L0005   ;$2D42
1650     STA Z0008   ;$00AF
1660     LDA RANDOM  ;$D20A
1670     LDY #$00
1680     STA (Z0007),Y ;$00AE
1690     INC L0006   ;$2D41
1700     BNE L0016   ;$2E85
1710     INC L0005   ;$2D42
1720     JMP L0016   ;$2E85
1730 L0015 JMP L0012 ;$2E7B
1760     *=  $02E2
1770     .WORD START
1790 ;--------------------------
1800 L0001 = L0002+1
1840 ;--------------------------