Home » Personal collection » Acorn hard disk » misc » misc2 » dcfprogs/Graphics/EUGTitle4

dcfprogs/Graphics/EUGTitle4

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn hard disk » misc » misc2
Filename: dcfprogs/Graphics/EUGTitle4
Read OK:
File size: 0B14 bytes
Load address: 0000
Exec address: 0000
File contents
   10 REM EUG Title Screen - By D Ford
   20 :
   30 I$="Issue 20":REM Issue number
   40 HIMEM=&2C00
   50 PROCass
   60 CALL&2C00
   70 END
   80 :
   90 DEFPROCass
  100 osbyte=&FFF4:oswrch=&FFEE
  110 FORX=0TO2STEP2
  120 P%=&2C00
  130 [OPTX:JSRdisp:JSRestart:LDY#&06:STY&72:LDY#&00:STY&73:STY&70:.lc JSRcolinit:.lb LDX#&30:STX&71:.l LDA(&70),Y:EOR#&0F:STA(&70),Y:TYA:CLC:ADC#&08:TAY
  140 CPY#&08:BCSl:INC&71:LDX&71:CPX#&80:BNEl:INY:CPY#&08:BNElb:BEQlc:.colinit LDA#&81:LDX#&00:LDY#&00:JSR osbyte:CPX#&20:BNEcin:PLA:PLA:JMPestop
  150 .cin LDX&72:INX:CPX#&07:BNEcinb:LDX#&03:.cinb STX&72:LDA&73:EOR#&01:STA&73:LDA#&13:JSRoswrch:LDY&73:INY:INY:TYA:JSRoswrch:TXA:JSRoswrch:JSRnull:LDA#&13
  160 JSRoswrch:LDA&73
  170 JSRoswrch:DEX:DEX:TXA:JSRoswrch:JSRnull:LDY#&00:RTS:.null LDA#&00:JSRoswrch:JSRoswrch:JSRoswrch:JMPoswrch:.disp LDX#&00:.dl LDAdata,X:INX:CMP#&07
  180 BEQ dquit:JSRoswrch:JMPdl:.dquit JMPeug
  190 .set TXA:PHA:LSR A:LSR A:LSR A:LSR A:CLC:ADCmsb,Y:STA&75:TXA:ASL A:ASL A:ASL A:ASL A:STA&74:TYA:PHA:LDY#&00:.slop LDA(&74),Y:EOR#&F0:STA(&74),Y:INY
  200 CPY#&20:BCCslop:BEQlf:CPY#&40:BNEslop:PLA:TAY:PLA:TAX:RTS:.lf LDA&74:CLC:ADC#&60:STA&74:LDA&75:ADC#&02:STA&75:JMPslop
  210 .eug LDX#&FE:LDY#&00:.elop INX:INX:CPX#&1C:BNExnna:LDX#&00:INY:CPY#&05:BNExnna:RTS:.xnna TXA:LSR A:STA&76:TYA:ASL A:ASL A:ASL A:ASL A:ADC&76
  220 STX&76:TAX:LDAeugdata,X:LDX&76:CMP#&2A:BNEelop:JSRset:JMPelop
  230 .estart SEI:LDA&220:STA&80:LDA&221:STA&81:LDA#erout MOD 256:STA&220:LDA#erout DIV 256:STA&221:LDA#&01:STA&82:LDA#&00:STA&83:STA&85:STA&86
  240 STA&84:LDA#&0E:LDX#&04:LDY#&00:JSRosbyte:CLI:RTS
  250 .estop SEI:LDA&80:STA&220:LDA&81:STA&221:CLI:RTS
  260 .erout DEC&82:LDA&82:BEQswitch:LDA&84:BNEright:BEQleft:.switch LDA&84:EOR#&01:STA&84:LDA#&3F:STA&82:JMP(&80)
  270 .left INC&86:LDA&86:CMP#&09:BNElscr:LDA#&00:STA&86:STA&83:DEC&85:DEC&85:JMP(&80):.lscr LDY#&00:STY&87:.sllop LDX&83:LDAeugleft,X:INC&83:CMP#&2A:BNEsllop
  280 TXA:LSR A:LSR A:LSR A:LSR A:TAY:TXA:AND#&0F:ASL A:CLC:ADC&85:TAX:JSRset:INC&87:LDA&87:CMP#&05:BNEsllop:JMP(&80)
  290 .right INC&86:LDA&86:CMP#&09:BNErscr:LDA#&00:STA&86:STA&83:INC&85:INC&85:JMP(&80):.rscr LDY#&00:STY&87:.srlop LDX&83:LDAeugrite,X:INC&83:CMP#&2A:BNEsrlop
  300 TXA:LSR A:LSR A:LSR A:LSR A:TAY:TXA:AND#&0F:ASL A:CLC:ADC&85:TAX:JSRset:INC&87:LDA&87:CMP#&05:BNEsrlop:JMP(&80)
  310 :
  320 .data EQUB 22:EQUB 1:EQUB 23:EQUB 1:EQUD 0:EQUD 0:EQUB 23:EQUB 255:EQUD &FFFFFFFF:EQUD &FFFFFFFF:EQUB 17:EQUB 2:EQUB 31:EQUB 16:EQUB 25:EQUS I$:EQUB 31
  330 EQUB 8:EQUB 30:EQUS "Press SPACE to continue":EQUB 7
  340 :
  350 .msb EQUB &3F:EQUB &44:EQUB &49:EQUB &4E:EQUB &53
  360 :
  370 .eugdata EQUS " *** * * ***     *   * * *       **  * * *       *   * * * *     *** *** ***    "
  380 .eugrite EQUS " *  ******  *    **  ******      * * ******      **  ********    *  **  **  *   "
  390 .eugleft EQUS "  *  ******  *    **  ******      * * ******      **  ********    *  **  **  *  "
  400 ]
  410 NEXT
  420 ENDPROC

# � EUG Title Screen - By D Ford
 :
! I$="Issue 20":� Issue number
( �=&2C00
2	 �ass
< �&2C00
F �
P :
Z
 ��ass
d osbyte=&FFF4:oswrch=&FFEE
n
 �X=0�2�2
x
 P%=&2C00
�� [OPTX:JSRdisp:JSRestart:LDY#&06:STY&72:LDY#&00:STY&73:STY&70:.lc JSRcolinit:.lb LDX#&30:STX&71:.l LDA(&70),Y:�#&0F:STA(&70),Y:TYA:CLC:ADC#&08:TAY
�� CPY#&08:BCSl:INC&71:LDX&71:CPX#&80:BNEl:INY:CPY#&08:BNElb:BEQlc:.colinit LDA#&81:LDX#&00:LDY#&00:JSR osbyte:CPX#&20:BNEcin:PLA:PLA:JMPestop
�� .cin LDX&72:INX:CPX#&07:BNEcinb:LDX#&03:.cinb STX&72:LDA&73:�#&01:STA&73:LDA#&13:JSRoswrch:LDY&73:INY:INY:TYA:JSRoswrch:TXA:JSRoswrch:JSRnull:LDA#&13
� JSRoswrch:LDA&73
�� JSRoswrch:DEX:DEX:TXA:JSRoswrch:JSRnull:LDY#&00:RTS:.null LDA#&00:JSRoswrch:JSRoswrch:JSRoswrch:JMPoswrch:.disp LDX#&00:.dl LDAdata,X:INX:CMP#&07
�, BEQ dquit:JSRoswrch:JMPdl:.dquit JMPeug
�� .set TXA:PHA:LSR A:LSR A:LSR A:LSR A:CLC:ADCmsb,Y:STA&75:TXA:ASL A:ASL A:ASL A:ASL A:STA&74:TYA:PHA:LDY#&00:.slop LDA(&74),Y:�#&F0:STA(&74),Y:INY
�z CPY#&20:BCCslop:BEQlf:CPY#&40:BNEslop:PLA:TAY:PLA:TAX:RTS:.lf LDA&74:CLC:ADC#&60:STA&74:LDA&75:ADC#&02:STA&75:JMPslop
ґ .eug LDX#&FE:LDY#&00:.elop INX:INX:CPX#&1C:BNExnna:LDX#&00:INY:CPY#&05:BNExnna:RTS:.xnna TXA:LSR A:STA&76:TYA:ASL A:ASL A:ASL A:ASL A:ADC&76
�B STX&76:TAX:LDAeugdata,X:LDX&76:CMP#&2A:BNEelop:JSRset:JMPelop
� .estart SEI:LDA&220:STA&80:LDA&221:STA&81:LDA#erout � 256:STA&220:LDA#erout � 256:STA&221:LDA#&01:STA&82:LDA#&00:STA&83:STA&85:STA&86
�5 STA&84:LDA#&0E:LDX#&04:LDY#&00:JSRosbyte:CLI:RTS
�5 .estop SEI:LDA&80:STA&220:LDA&81:STA&221:CLI:RTS
o .erout DEC&82:LDA&82:BEQswitch:LDA&84:BNEright:BEQleft:.switch LDA&84:�#&01:STA&84:LDA#&3F:STA&82:JMP(&80)
� .left INC&86:LDA&86:CMP#&09:BNElscr:LDA#&00:STA&86:STA&83:DEC&85:DEC&85:JMP(&80):.lscr LDY#&00:STY&87:.sllop LDX&83:LDAeugleft,X:INC&83:CMP#&2A:BNEsllop
r TXA:LSR A:LSR A:LSR A:LSR A:TAY:TXA:�#&0F:ASL A:CLC:ADC&85:TAX:JSRset:INC&87:LDA&87:CMP#&05:BNEsllop:JMP(&80)
"� .right INC&86:LDA&86:CMP#&09:BNErscr:LDA#&00:STA&86:STA&83:INC&85:INC&85:JMP(&80):.rscr LDY#&00:STY&87:.srlop LDX&83:LDAeugrite,X:INC&83:CMP#&2A:BNEsrlop
,r TXA:LSR A:LSR A:LSR A:LSR A:TAY:TXA:�#&0F:ASL A:CLC:ADC&85:TAX:JSRset:INC&87:LDA&87:CMP#&05:BNEsrlop:JMP(&80)
6 :
@� .data EQUB 22:EQUB 1:EQUB 23:EQUB 1:EQUD 0:EQUD 0:EQUB 23:EQUB 255:EQUD &FFFFFFFF:EQUD &FFFFFFFF:EQUB 17:EQUB 2:EQUB 31:EQUB 16:EQUB 25:EQUS I$:EQUB 31
J9 EQUB 8:EQUB 30:EQUS "Press SPACE to continue":EQUB 7
T :
^6 .msb EQUB &3F:EQUB &44:EQUB &49:EQUB &4E:EQUB &53
h :
re .eugdata EQUS " *** * * ***     *   * * *       **  * * *       *   * * * *     *** *** ***    "
|e .eugrite EQUS " *  ******  *    **  ******      * * ******      **  ********    *  **  **  *   "
�e .eugleft EQUS "  *  ******  *    **  ******      * * ******      **  ********    *  **  **  *  "
� ]
� �
� �
�
00000000  0d 00 0a 23 20 f4 20 45  55 47 20 54 69 74 6c 65  |...# . EUG Title|
00000010  20 53 63 72 65 65 6e 20  2d 20 42 79 20 44 20 46  | Screen - By D F|
00000020  6f 72 64 0d 00 14 06 20  3a 0d 00 1e 21 20 49 24  |ord.... :...! I$|
00000030  3d 22 49 73 73 75 65 20  32 30 22 3a f4 20 49 73  |="Issue 20":. Is|
00000040  73 75 65 20 6e 75 6d 62  65 72 0d 00 28 0c 20 d3  |sue number..(. .|
00000050  3d 26 32 43 30 30 0d 00  32 09 20 f2 61 73 73 0d  |=&2C00..2. .ass.|
00000060  00 3c 0b 20 d6 26 32 43  30 30 0d 00 46 06 20 e0  |.<. .&2C00..F. .|
00000070  0d 00 50 06 20 3a 0d 00  5a 0a 20 dd f2 61 73 73  |..P. :..Z. ..ass|
00000080  0d 00 64 1e 20 6f 73 62  79 74 65 3d 26 46 46 46  |..d. osbyte=&FFF|
00000090  34 3a 6f 73 77 72 63 68  3d 26 46 46 45 45 0d 00  |4:oswrch=&FFEE..|
000000a0  6e 0d 20 e3 58 3d 30 b8  32 88 32 0d 00 78 0d 20  |n. .X=0.2.2..x. |
000000b0  50 25 3d 26 32 43 30 30  0d 00 82 96 20 5b 4f 50  |P%=&2C00.... [OP|
000000c0  54 58 3a 4a 53 52 64 69  73 70 3a 4a 53 52 65 73  |TX:JSRdisp:JSRes|
000000d0  74 61 72 74 3a 4c 44 59  23 26 30 36 3a 53 54 59  |tart:LDY#&06:STY|
000000e0  26 37 32 3a 4c 44 59 23  26 30 30 3a 53 54 59 26  |&72:LDY#&00:STY&|
000000f0  37 33 3a 53 54 59 26 37  30 3a 2e 6c 63 20 4a 53  |73:STY&70:.lc JS|
00000100  52 63 6f 6c 69 6e 69 74  3a 2e 6c 62 20 4c 44 58  |Rcolinit:.lb LDX|
00000110  23 26 33 30 3a 53 54 58  26 37 31 3a 2e 6c 20 4c  |#&30:STX&71:.l L|
00000120  44 41 28 26 37 30 29 2c  59 3a 82 23 26 30 46 3a  |DA(&70),Y:.#&0F:|
00000130  53 54 41 28 26 37 30 29  2c 59 3a 54 59 41 3a 43  |STA(&70),Y:TYA:C|
00000140  4c 43 3a 41 44 43 23 26  30 38 3a 54 41 59 0d 00  |LC:ADC#&08:TAY..|
00000150  8c 90 20 43 50 59 23 26  30 38 3a 42 43 53 6c 3a  |.. CPY#&08:BCSl:|
00000160  49 4e 43 26 37 31 3a 4c  44 58 26 37 31 3a 43 50  |INC&71:LDX&71:CP|
00000170  58 23 26 38 30 3a 42 4e  45 6c 3a 49 4e 59 3a 43  |X#&80:BNEl:INY:C|
00000180  50 59 23 26 30 38 3a 42  4e 45 6c 62 3a 42 45 51  |PY#&08:BNElb:BEQ|
00000190  6c 63 3a 2e 63 6f 6c 69  6e 69 74 20 4c 44 41 23  |lc:.colinit LDA#|
000001a0  26 38 31 3a 4c 44 58 23  26 30 30 3a 4c 44 59 23  |&81:LDX#&00:LDY#|
000001b0  26 30 30 3a 4a 53 52 20  6f 73 62 79 74 65 3a 43  |&00:JSR osbyte:C|
000001c0  50 58 23 26 32 30 3a 42  4e 45 63 69 6e 3a 50 4c  |PX#&20:BNEcin:PL|
000001d0  41 3a 50 4c 41 3a 4a 4d  50 65 73 74 6f 70 0d 00  |A:PLA:JMPestop..|
000001e0  96 9a 20 2e 63 69 6e 20  4c 44 58 26 37 32 3a 49  |.. .cin LDX&72:I|
000001f0  4e 58 3a 43 50 58 23 26  30 37 3a 42 4e 45 63 69  |NX:CPX#&07:BNEci|
00000200  6e 62 3a 4c 44 58 23 26  30 33 3a 2e 63 69 6e 62  |nb:LDX#&03:.cinb|
00000210  20 53 54 58 26 37 32 3a  4c 44 41 26 37 33 3a 82  | STX&72:LDA&73:.|
00000220  23 26 30 31 3a 53 54 41  26 37 33 3a 4c 44 41 23  |#&01:STA&73:LDA#|
00000230  26 31 33 3a 4a 53 52 6f  73 77 72 63 68 3a 4c 44  |&13:JSRoswrch:LD|
00000240  59 26 37 33 3a 49 4e 59  3a 49 4e 59 3a 54 59 41  |Y&73:INY:INY:TYA|
00000250  3a 4a 53 52 6f 73 77 72  63 68 3a 54 58 41 3a 4a  |:JSRoswrch:TXA:J|
00000260  53 52 6f 73 77 72 63 68  3a 4a 53 52 6e 75 6c 6c  |SRoswrch:JSRnull|
00000270  3a 4c 44 41 23 26 31 33  0d 00 a0 15 20 4a 53 52  |:LDA#&13.... JSR|
00000280  6f 73 77 72 63 68 3a 4c  44 41 26 37 33 0d 00 aa  |oswrch:LDA&73...|
00000290  96 20 4a 53 52 6f 73 77  72 63 68 3a 44 45 58 3a  |. JSRoswrch:DEX:|
000002a0  44 45 58 3a 54 58 41 3a  4a 53 52 6f 73 77 72 63  |DEX:TXA:JSRoswrc|
000002b0  68 3a 4a 53 52 6e 75 6c  6c 3a 4c 44 59 23 26 30  |h:JSRnull:LDY#&0|
000002c0  30 3a 52 54 53 3a 2e 6e  75 6c 6c 20 4c 44 41 23  |0:RTS:.null LDA#|
000002d0  26 30 30 3a 4a 53 52 6f  73 77 72 63 68 3a 4a 53  |&00:JSRoswrch:JS|
000002e0  52 6f 73 77 72 63 68 3a  4a 53 52 6f 73 77 72 63  |Roswrch:JSRoswrc|
000002f0  68 3a 4a 4d 50 6f 73 77  72 63 68 3a 2e 64 69 73  |h:JMPoswrch:.dis|
00000300  70 20 4c 44 58 23 26 30  30 3a 2e 64 6c 20 4c 44  |p LDX#&00:.dl LD|
00000310  41 64 61 74 61 2c 58 3a  49 4e 58 3a 43 4d 50 23  |Adata,X:INX:CMP#|
00000320  26 30 37 0d 00 b4 2c 20  42 45 51 20 64 71 75 69  |&07..., BEQ dqui|
00000330  74 3a 4a 53 52 6f 73 77  72 63 68 3a 4a 4d 50 64  |t:JSRoswrch:JMPd|
00000340  6c 3a 2e 64 71 75 69 74  20 4a 4d 50 65 75 67 0d  |l:.dquit JMPeug.|
00000350  00 be 96 20 2e 73 65 74  20 54 58 41 3a 50 48 41  |... .set TXA:PHA|
00000360  3a 4c 53 52 20 41 3a 4c  53 52 20 41 3a 4c 53 52  |:LSR A:LSR A:LSR|
00000370  20 41 3a 4c 53 52 20 41  3a 43 4c 43 3a 41 44 43  | A:LSR A:CLC:ADC|
00000380  6d 73 62 2c 59 3a 53 54  41 26 37 35 3a 54 58 41  |msb,Y:STA&75:TXA|
00000390  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 41 53 4c  |:ASL A:ASL A:ASL|
000003a0  20 41 3a 41 53 4c 20 41  3a 53 54 41 26 37 34 3a  | A:ASL A:STA&74:|
000003b0  54 59 41 3a 50 48 41 3a  4c 44 59 23 26 30 30 3a  |TYA:PHA:LDY#&00:|
000003c0  2e 73 6c 6f 70 20 4c 44  41 28 26 37 34 29 2c 59  |.slop LDA(&74),Y|
000003d0  3a 82 23 26 46 30 3a 53  54 41 28 26 37 34 29 2c  |:.#&F0:STA(&74),|
000003e0  59 3a 49 4e 59 0d 00 c8  7a 20 43 50 59 23 26 32  |Y:INY...z CPY#&2|
000003f0  30 3a 42 43 43 73 6c 6f  70 3a 42 45 51 6c 66 3a  |0:BCCslop:BEQlf:|
00000400  43 50 59 23 26 34 30 3a  42 4e 45 73 6c 6f 70 3a  |CPY#&40:BNEslop:|
00000410  50 4c 41 3a 54 41 59 3a  50 4c 41 3a 54 41 58 3a  |PLA:TAY:PLA:TAX:|
00000420  52 54 53 3a 2e 6c 66 20  4c 44 41 26 37 34 3a 43  |RTS:.lf LDA&74:C|
00000430  4c 43 3a 41 44 43 23 26  36 30 3a 53 54 41 26 37  |LC:ADC#&60:STA&7|
00000440  34 3a 4c 44 41 26 37 35  3a 41 44 43 23 26 30 32  |4:LDA&75:ADC#&02|
00000450  3a 53 54 41 26 37 35 3a  4a 4d 50 73 6c 6f 70 0d  |:STA&75:JMPslop.|
00000460  00 d2 91 20 2e 65 75 67  20 4c 44 58 23 26 46 45  |... .eug LDX#&FE|
00000470  3a 4c 44 59 23 26 30 30  3a 2e 65 6c 6f 70 20 49  |:LDY#&00:.elop I|
00000480  4e 58 3a 49 4e 58 3a 43  50 58 23 26 31 43 3a 42  |NX:INX:CPX#&1C:B|
00000490  4e 45 78 6e 6e 61 3a 4c  44 58 23 26 30 30 3a 49  |NExnna:LDX#&00:I|
000004a0  4e 59 3a 43 50 59 23 26  30 35 3a 42 4e 45 78 6e  |NY:CPY#&05:BNExn|
000004b0  6e 61 3a 52 54 53 3a 2e  78 6e 6e 61 20 54 58 41  |na:RTS:.xnna TXA|
000004c0  3a 4c 53 52 20 41 3a 53  54 41 26 37 36 3a 54 59  |:LSR A:STA&76:TY|
000004d0  41 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 41 53  |A:ASL A:ASL A:AS|
000004e0  4c 20 41 3a 41 53 4c 20  41 3a 41 44 43 26 37 36  |L A:ASL A:ADC&76|
000004f0  0d 00 dc 42 20 53 54 58  26 37 36 3a 54 41 58 3a  |...B STX&76:TAX:|
00000500  4c 44 41 65 75 67 64 61  74 61 2c 58 3a 4c 44 58  |LDAeugdata,X:LDX|
00000510  26 37 36 3a 43 4d 50 23  26 32 41 3a 42 4e 45 65  |&76:CMP#&2A:BNEe|
00000520  6c 6f 70 3a 4a 53 52 73  65 74 3a 4a 4d 50 65 6c  |lop:JSRset:JMPel|
00000530  6f 70 0d 00 e6 8a 20 2e  65 73 74 61 72 74 20 53  |op.... .estart S|
00000540  45 49 3a 4c 44 41 26 32  32 30 3a 53 54 41 26 38  |EI:LDA&220:STA&8|
00000550  30 3a 4c 44 41 26 32 32  31 3a 53 54 41 26 38 31  |0:LDA&221:STA&81|
00000560  3a 4c 44 41 23 65 72 6f  75 74 20 83 20 32 35 36  |:LDA#erout . 256|
00000570  3a 53 54 41 26 32 32 30  3a 4c 44 41 23 65 72 6f  |:STA&220:LDA#ero|
00000580  75 74 20 81 20 32 35 36  3a 53 54 41 26 32 32 31  |ut . 256:STA&221|
00000590  3a 4c 44 41 23 26 30 31  3a 53 54 41 26 38 32 3a  |:LDA#&01:STA&82:|
000005a0  4c 44 41 23 26 30 30 3a  53 54 41 26 38 33 3a 53  |LDA#&00:STA&83:S|
000005b0  54 41 26 38 35 3a 53 54  41 26 38 36 0d 00 f0 35  |TA&85:STA&86...5|
000005c0  20 53 54 41 26 38 34 3a  4c 44 41 23 26 30 45 3a  | STA&84:LDA#&0E:|
000005d0  4c 44 58 23 26 30 34 3a  4c 44 59 23 26 30 30 3a  |LDX#&04:LDY#&00:|
000005e0  4a 53 52 6f 73 62 79 74  65 3a 43 4c 49 3a 52 54  |JSRosbyte:CLI:RT|
000005f0  53 0d 00 fa 35 20 2e 65  73 74 6f 70 20 53 45 49  |S...5 .estop SEI|
00000600  3a 4c 44 41 26 38 30 3a  53 54 41 26 32 32 30 3a  |:LDA&80:STA&220:|
00000610  4c 44 41 26 38 31 3a 53  54 41 26 32 32 31 3a 43  |LDA&81:STA&221:C|
00000620  4c 49 3a 52 54 53 0d 01  04 6f 20 2e 65 72 6f 75  |LI:RTS...o .erou|
00000630  74 20 44 45 43 26 38 32  3a 4c 44 41 26 38 32 3a  |t DEC&82:LDA&82:|
00000640  42 45 51 73 77 69 74 63  68 3a 4c 44 41 26 38 34  |BEQswitch:LDA&84|
00000650  3a 42 4e 45 72 69 67 68  74 3a 42 45 51 6c 65 66  |:BNEright:BEQlef|
00000660  74 3a 2e 73 77 69 74 63  68 20 4c 44 41 26 38 34  |t:.switch LDA&84|
00000670  3a 82 23 26 30 31 3a 53  54 41 26 38 34 3a 4c 44  |:.#&01:STA&84:LD|
00000680  41 23 26 33 46 3a 53 54  41 26 38 32 3a 4a 4d 50  |A#&3F:STA&82:JMP|
00000690  28 26 38 30 29 0d 01 0e  9d 20 2e 6c 65 66 74 20  |(&80).... .left |
000006a0  49 4e 43 26 38 36 3a 4c  44 41 26 38 36 3a 43 4d  |INC&86:LDA&86:CM|
000006b0  50 23 26 30 39 3a 42 4e  45 6c 73 63 72 3a 4c 44  |P#&09:BNElscr:LD|
000006c0  41 23 26 30 30 3a 53 54  41 26 38 36 3a 53 54 41  |A#&00:STA&86:STA|
000006d0  26 38 33 3a 44 45 43 26  38 35 3a 44 45 43 26 38  |&83:DEC&85:DEC&8|
000006e0  35 3a 4a 4d 50 28 26 38  30 29 3a 2e 6c 73 63 72  |5:JMP(&80):.lscr|
000006f0  20 4c 44 59 23 26 30 30  3a 53 54 59 26 38 37 3a  | LDY#&00:STY&87:|
00000700  2e 73 6c 6c 6f 70 20 4c  44 58 26 38 33 3a 4c 44  |.sllop LDX&83:LD|
00000710  41 65 75 67 6c 65 66 74  2c 58 3a 49 4e 43 26 38  |Aeugleft,X:INC&8|
00000720  33 3a 43 4d 50 23 26 32  41 3a 42 4e 45 73 6c 6c  |3:CMP#&2A:BNEsll|
00000730  6f 70 0d 01 18 72 20 54  58 41 3a 4c 53 52 20 41  |op...r TXA:LSR A|
00000740  3a 4c 53 52 20 41 3a 4c  53 52 20 41 3a 4c 53 52  |:LSR A:LSR A:LSR|
00000750  20 41 3a 54 41 59 3a 54  58 41 3a 80 23 26 30 46  | A:TAY:TXA:.#&0F|
00000760  3a 41 53 4c 20 41 3a 43  4c 43 3a 41 44 43 26 38  |:ASL A:CLC:ADC&8|
00000770  35 3a 54 41 58 3a 4a 53  52 73 65 74 3a 49 4e 43  |5:TAX:JSRset:INC|
00000780  26 38 37 3a 4c 44 41 26  38 37 3a 43 4d 50 23 26  |&87:LDA&87:CMP#&|
00000790  30 35 3a 42 4e 45 73 6c  6c 6f 70 3a 4a 4d 50 28  |05:BNEsllop:JMP(|
000007a0  26 38 30 29 0d 01 22 9e  20 2e 72 69 67 68 74 20  |&80)..". .right |
000007b0  49 4e 43 26 38 36 3a 4c  44 41 26 38 36 3a 43 4d  |INC&86:LDA&86:CM|
000007c0  50 23 26 30 39 3a 42 4e  45 72 73 63 72 3a 4c 44  |P#&09:BNErscr:LD|
000007d0  41 23 26 30 30 3a 53 54  41 26 38 36 3a 53 54 41  |A#&00:STA&86:STA|
000007e0  26 38 33 3a 49 4e 43 26  38 35 3a 49 4e 43 26 38  |&83:INC&85:INC&8|
000007f0  35 3a 4a 4d 50 28 26 38  30 29 3a 2e 72 73 63 72  |5:JMP(&80):.rscr|
00000800  20 4c 44 59 23 26 30 30  3a 53 54 59 26 38 37 3a  | LDY#&00:STY&87:|
00000810  2e 73 72 6c 6f 70 20 4c  44 58 26 38 33 3a 4c 44  |.srlop LDX&83:LD|
00000820  41 65 75 67 72 69 74 65  2c 58 3a 49 4e 43 26 38  |Aeugrite,X:INC&8|
00000830  33 3a 43 4d 50 23 26 32  41 3a 42 4e 45 73 72 6c  |3:CMP#&2A:BNEsrl|
00000840  6f 70 0d 01 2c 72 20 54  58 41 3a 4c 53 52 20 41  |op..,r TXA:LSR A|
00000850  3a 4c 53 52 20 41 3a 4c  53 52 20 41 3a 4c 53 52  |:LSR A:LSR A:LSR|
00000860  20 41 3a 54 41 59 3a 54  58 41 3a 80 23 26 30 46  | A:TAY:TXA:.#&0F|
00000870  3a 41 53 4c 20 41 3a 43  4c 43 3a 41 44 43 26 38  |:ASL A:CLC:ADC&8|
00000880  35 3a 54 41 58 3a 4a 53  52 73 65 74 3a 49 4e 43  |5:TAX:JSRset:INC|
00000890  26 38 37 3a 4c 44 41 26  38 37 3a 43 4d 50 23 26  |&87:LDA&87:CMP#&|
000008a0  30 35 3a 42 4e 45 73 72  6c 6f 70 3a 4a 4d 50 28  |05:BNEsrlop:JMP(|
000008b0  26 38 30 29 0d 01 36 06  20 3a 0d 01 40 9c 20 2e  |&80)..6. :..@. .|
000008c0  64 61 74 61 20 45 51 55  42 20 32 32 3a 45 51 55  |data EQUB 22:EQU|
000008d0  42 20 31 3a 45 51 55 42  20 32 33 3a 45 51 55 42  |B 1:EQUB 23:EQUB|
000008e0  20 31 3a 45 51 55 44 20  30 3a 45 51 55 44 20 30  | 1:EQUD 0:EQUD 0|
000008f0  3a 45 51 55 42 20 32 33  3a 45 51 55 42 20 32 35  |:EQUB 23:EQUB 25|
00000900  35 3a 45 51 55 44 20 26  46 46 46 46 46 46 46 46  |5:EQUD &FFFFFFFF|
00000910  3a 45 51 55 44 20 26 46  46 46 46 46 46 46 46 3a  |:EQUD &FFFFFFFF:|
00000920  45 51 55 42 20 31 37 3a  45 51 55 42 20 32 3a 45  |EQUB 17:EQUB 2:E|
00000930  51 55 42 20 33 31 3a 45  51 55 42 20 31 36 3a 45  |QUB 31:EQUB 16:E|
00000940  51 55 42 20 32 35 3a 45  51 55 53 20 49 24 3a 45  |QUB 25:EQUS I$:E|
00000950  51 55 42 20 33 31 0d 01  4a 39 20 45 51 55 42 20  |QUB 31..J9 EQUB |
00000960  38 3a 45 51 55 42 20 33  30 3a 45 51 55 53 20 22  |8:EQUB 30:EQUS "|
00000970  50 72 65 73 73 20 53 50  41 43 45 20 74 6f 20 63  |Press SPACE to c|
00000980  6f 6e 74 69 6e 75 65 22  3a 45 51 55 42 20 37 0d  |ontinue":EQUB 7.|
00000990  01 54 06 20 3a 0d 01 5e  36 20 2e 6d 73 62 20 45  |.T. :..^6 .msb E|
000009a0  51 55 42 20 26 33 46 3a  45 51 55 42 20 26 34 34  |QUB &3F:EQUB &44|
000009b0  3a 45 51 55 42 20 26 34  39 3a 45 51 55 42 20 26  |:EQUB &49:EQUB &|
000009c0  34 45 3a 45 51 55 42 20  26 35 33 0d 01 68 06 20  |4E:EQUB &53..h. |
000009d0  3a 0d 01 72 65 20 2e 65  75 67 64 61 74 61 20 45  |:..re .eugdata E|
000009e0  51 55 53 20 22 20 2a 2a  2a 20 2a 20 2a 20 2a 2a  |QUS " *** * * **|
000009f0  2a 20 20 20 20 20 2a 20  20 20 2a 20 2a 20 2a 20  |*     *   * * * |
00000a00  20 20 20 20 20 20 2a 2a  20 20 2a 20 2a 20 2a 20  |      **  * * * |
00000a10  20 20 20 20 20 20 2a 20  20 20 2a 20 2a 20 2a 20  |      *   * * * |
00000a20  2a 20 20 20 20 20 2a 2a  2a 20 2a 2a 2a 20 2a 2a  |*     *** *** **|
00000a30  2a 20 20 20 20 22 0d 01  7c 65 20 2e 65 75 67 72  |*    "..|e .eugr|
00000a40  69 74 65 20 45 51 55 53  20 22 20 2a 20 20 2a 2a  |ite EQUS " *  **|
00000a50  2a 2a 2a 2a 20 20 2a 20  20 20 20 2a 2a 20 20 2a  |****  *    **  *|
00000a60  2a 2a 2a 2a 2a 20 20 20  20 20 20 2a 20 2a 20 2a  |*****      * * *|
00000a70  2a 2a 2a 2a 2a 20 20 20  20 20 20 2a 2a 20 20 2a  |*****      **  *|
00000a80  2a 2a 2a 2a 2a 2a 2a 20  20 20 20 2a 20 20 2a 2a  |*******    *  **|
00000a90  20 20 2a 2a 20 20 2a 20  20 20 22 0d 01 86 65 20  |  **  *   "...e |
00000aa0  2e 65 75 67 6c 65 66 74  20 45 51 55 53 20 22 20  |.eugleft EQUS " |
00000ab0  20 2a 20 20 2a 2a 2a 2a  2a 2a 20 20 2a 20 20 20  | *  ******  *   |
00000ac0  20 2a 2a 20 20 2a 2a 2a  2a 2a 2a 20 20 20 20 20  | **  ******     |
00000ad0  20 2a 20 2a 20 2a 2a 2a  2a 2a 2a 20 20 20 20 20  | * * ******     |
00000ae0  20 2a 2a 20 20 2a 2a 2a  2a 2a 2a 2a 2a 20 20 20  | **  ********   |
00000af0  20 2a 20 20 2a 2a 20 20  2a 2a 20 20 2a 20 20 22  | *  **  **  *  "|
00000b00  0d 01 90 06 20 5d 0d 01  9a 06 20 ed 0d 01 a4 06  |.... ].... .....|
00000b10  20 e1 0d ff                                       | ...|
00000b14