�    Starfield EUG
� by Dominic Ford 1997
:
(��DJA
2�>&1D00�A
<�2:�=&2CD0:�23,1,0;0;0;0;
F�pass=0�2�2:P%=&2CD0:[OPT pass:.start LDA#12:LDX#(coli �256):LDY#(coli �256):JSR&FFF1:INCcoli:LDAcoli:CMP#16:BNEstart:JSRon
P�.program LDA#0:STAlinno:LDA#(text � 256):STA&74:LDA#(text � 256):STA&75:LDA#0:STApage:.pages JSRminc:JSRdopage:JSRwaic:JSRfade:INCpage:LDApage:CMP#3:BNEpages:JMPprogram
Z�.dopage LDA#0:STAline:.pageloop LDXlinno:LDAspace,X:STAlen:JSRwrite:INClinno:INCline:LDAline:CMP#3:BNEpageloop:LDXclock:LDA&E000,X:�#7:BNEnotblack:LDA#1:.notblack STAofc:JSRwait:LDAofc:STAonc:STAflacyc+3:LDA#0:STAcycle:JMPmini
d�.write LDXline:LDA#0:STA&70:STAxc:LDAaddress,X:STA&71:.newchar LDA#0:STAx:JSRreaddef:LDXlen:.newline SEI:LDA#0:STAy:LDA&70:STA&72:LDA&71:STA&73:JSRgetdata
ne.next LSRbyte:BCCblank:LDAbts,X:STA&76:LDY#0:.loop LDA(&72),Y:�#&C0:STA(&72),Y:INY:CPY&76:BNEloop
x�.blank LDA&72:CLC:ADC#&80:STA&72:LDA&73:ADC#2:STA&73:INCy:LDAy:CMP#8:BNEnext:INCx:LDA&70:CLC:ADCbts,X:STA&70:LDA&71:ADC#0:STA&71:LDAx:CMP#8:BNEnewline:CLI
�VINCxc:LDAxc:CMPchars,X:BNEnewchar:LDA&74:CLC:ADC#10:STA&74:LDA&75:ADC#0:STA&75:RTS
�X.readdef LDYxc:LDA(&74),Y:STAascii:LDA#&A:LDX#(ascii �256):LDY#(ascii �256):JMP&FFF1
�a.getdata LDY#8:LDXx:.getloop LDAascii,Y:�power,X:CMPpower,X:ROLbyte:DEY:BNEgetloop:LDXlen:RTS
��.mini JSRminw:JSRminw:RTS:.minw LDAclock:CLC:ADC#&40:.waitloop CMPclock:BNEwaitloop:LDA#&91:LDX#0:JSR&FFF4:CPY#32:BNEnoe:JSRoff:PLA:PLA:PLA:PLA:PLA:PLA:.noe RTS
��.minc JSRmini:RTS:.waic JSRwait:RTS:.wait JSRminw:JSRminw:JSRminw:JSRminw:RTS:.fade LDA#0:STAofc:JSRwait:LDA#7:STAonc:LDA#5:STAcycle:JSRmini
�B.fade LDA#0:STAofc:JSRwait:LDA#7:STAonc:LDA#5:STAcycle:JSRmini
�xLDA#0:STA&70:LDA#&30:STA&71:LDY#0:.clear LDA(&70),Y:�#&3F:STA(&70),Y:INY:BNEclear:INC&71:LDA&71:CMP#&80:BNEclear:RTS
�i.on SEI:LDA&204:STAvector:LDA&205:STAvector+1:LDA#(irq � 256):STA&204:LDA#(irq � 256):STA&205:CLI:RTS
�:.off SEI:LDAvector:STA&204:LDAvector+1:STA&205:CLI:RTS
�n.irq INCclock:LDAclock:�#7:BNEirqend:TXA:PHA:TYA:PHA:JSRstars:JSRflash:PLA:TAY:PLA:TAX:.irqend JMP(vector)
�.flash LDXcycle:CPX#&FF:BEQendf:LDAflacyc,X:BEQoverf:STAcoli+1:LDA#8:STAcoli:LDA#12:LDX#(coli �256):LDY#(coli �256):JSR&FFF1:INCcycle:.endf RTS:.overf LDA#&FF:STAcycle:RTS
�.stars INCb:LDAb:CMP#7:BCCnowrap:LDA#0:STAb:.nowrap CLC:ADC#1:STAcoli:LDA#7:STAcoli+1:LDA#12:LDX#(coli �256):LDY#(coli �256):JSR&FFF1:LDAcoli:CLC:ADC#8:STAcoli:LDAonc:STAcoli+1
�3LDA#12:LDX#(coli �256):LDY#(coli �256):JSR&FFF1

�LDAc:STAcoli:LDA#0:STAcoli+1:LDA#12:LDX#(coli �256):LDY#(coli �256):JSR&FFF1:LDAb:CLC:ADC#1:STAc:LDAcoli:CLC:ADC#8:STAcoli:LDAofc:STAcoli+1:LDA#12:LDX#(coli �256):LDY#(coli �256):JMP&FFF1

j.text EQUS" Electron    User   Group       Issue:                31    Press     <SPACE> to continue "

�.space EQUB0:EQUB0:EQUB1:EQUB0:EQUB0:EQUB0:EQUB1:EQUB0:EQUB0:.address EQUB&3A:EQUB&4E:EQUB&62:.power EQUB128:EQUB64:EQUB32:EQUB16:EQUB8:EQUB4:EQUB2:EQUB1:.flacyc EQUB4:EQUB6:EQUB7:EQUB0:EQUB0:EQUB7:EQUB6:EQUB4:EQUB16:EQUB0

"�.x EQUB0:.y EQUB0:.xc EQUB0:.len EQUB0:.byte EQUB0:.line EQUB0:.page EQUB0:.clock EQUB5:.vector EQUW0:.linno EQUB0:.bts EQUB8:EQUB16:.chars EQUB10:EQUB5:.ascii EQUB0:EQUD0:EQUD0:.b EQUB1:.c EQUB1:.coli EQUD0:EQUB0

,,.ofc EQUB0:.onc EQUB7:.cycle EQUB&FF:]:�

6*LOAD TitData

@
�start

J�"MENU"
�

00000000  0d 00 0a 16 f4 20 20 20  20 53 74 61 72 66 69 65  |.....    Starfie|
00000010  6c 64 20 45 55 47 0d 00  14 1a f4 20 62 79 20 44  |ld EUG..... by D|
00000020  6f 6d 69 6e 69 63 20 46  6f 72 64 20 31 39 39 37  |ominic Ford 1997|
00000030  0d 00 1e 05 3a 0d 00 28  0b ee 85 e5 8d 44 4a 41  |....:..(.....DJA|
00000040  0d 00 32 0e e7 90 3e 26  31 44 30 30 8c 41 0d 00  |..2...>&1D00.A..|
00000050  3c 1d eb 32 3a d3 3d 26  32 43 44 30 3a ef 32 33  |<..2:.=&2CD0:.23|
00000060  2c 31 2c 30 3b 30 3b 30  3b 30 3b 0d 00 46 7f e3  |,1,0;0;0;0;..F..|
00000070  70 61 73 73 3d 30 b8 32  88 32 3a 50 25 3d 26 32  |pass=0.2.2:P%=&2|
00000080  43 44 30 3a 5b 4f 50 54  20 70 61 73 73 3a 2e 73  |CD0:[OPT pass:.s|
00000090  74 61 72 74 20 4c 44 41  23 31 32 3a 4c 44 58 23  |tart LDA#12:LDX#|
000000a0  28 63 6f 6c 69 20 83 32  35 36 29 3a 4c 44 59 23  |(coli .256):LDY#|
000000b0  28 63 6f 6c 69 20 81 32  35 36 29 3a 4a 53 52 26  |(coli .256):JSR&|
000000c0  46 46 46 31 3a 49 4e 43  63 6f 6c 69 3a 4c 44 41  |FFF1:INCcoli:LDA|
000000d0  63 6f 6c 69 3a 43 4d 50  23 31 36 3a 42 4e 45 73  |coli:CMP#16:BNEs|
000000e0  74 61 72 74 3a 4a 53 52  6f 6e 0d 00 50 ac 2e 70  |tart:JSRon..P..p|
000000f0  72 6f 67 72 61 6d 20 4c  44 41 23 30 3a 53 54 41  |rogram LDA#0:STA|
00000100  6c 69 6e 6e 6f 3a 4c 44  41 23 28 74 65 78 74 20  |linno:LDA#(text |
00000110  83 20 32 35 36 29 3a 53  54 41 26 37 34 3a 4c 44  |. 256):STA&74:LD|
00000120  41 23 28 74 65 78 74 20  81 20 32 35 36 29 3a 53  |A#(text . 256):S|
00000130  54 41 26 37 35 3a 4c 44  41 23 30 3a 53 54 41 70  |TA&75:LDA#0:STAp|
00000140  61 67 65 3a 2e 70 61 67  65 73 20 4a 53 52 6d 69  |age:.pages JSRmi|
00000150  6e 63 3a 4a 53 52 64 6f  70 61 67 65 3a 4a 53 52  |nc:JSRdopage:JSR|
00000160  77 61 69 63 3a 4a 53 52  66 61 64 65 3a 49 4e 43  |waic:JSRfade:INC|
00000170  70 61 67 65 3a 4c 44 41  70 61 67 65 3a 43 4d 50  |page:LDApage:CMP|
00000180  23 33 3a 42 4e 45 70 61  67 65 73 3a 4a 4d 50 70  |#3:BNEpages:JMPp|
00000190  72 6f 67 72 61 6d 0d 00  5a e6 2e 64 6f 70 61 67  |rogram..Z..dopag|
000001a0  65 20 4c 44 41 23 30 3a  53 54 41 6c 69 6e 65 3a  |e LDA#0:STAline:|
000001b0  2e 70 61 67 65 6c 6f 6f  70 20 4c 44 58 6c 69 6e  |.pageloop LDXlin|
000001c0  6e 6f 3a 4c 44 41 73 70  61 63 65 2c 58 3a 53 54  |no:LDAspace,X:ST|
000001d0  41 6c 65 6e 3a 4a 53 52  77 72 69 74 65 3a 49 4e  |Alen:JSRwrite:IN|
000001e0  43 6c 69 6e 6e 6f 3a 49  4e 43 6c 69 6e 65 3a 4c  |Clinno:INCline:L|
000001f0  44 41 6c 69 6e 65 3a 43  4d 50 23 33 3a 42 4e 45  |DAline:CMP#3:BNE|
00000200  70 61 67 65 6c 6f 6f 70  3a 4c 44 58 63 6c 6f 63  |pageloop:LDXcloc|
00000210  6b 3a 4c 44 41 26 45 30  30 30 2c 58 3a 80 23 37  |k:LDA&E000,X:.#7|
00000220  3a 42 4e 45 6e 6f 74 62  6c 61 63 6b 3a 4c 44 41  |:BNEnotblack:LDA|
00000230  23 31 3a 2e 6e 6f 74 62  6c 61 63 6b 20 53 54 41  |#1:.notblack STA|
00000240  6f 66 63 3a 4a 53 52 77  61 69 74 3a 4c 44 41 6f  |ofc:JSRwait:LDAo|
00000250  66 63 3a 53 54 41 6f 6e  63 3a 53 54 41 66 6c 61  |fc:STAonc:STAfla|
00000260  63 79 63 2b 33 3a 4c 44  41 23 30 3a 53 54 41 63  |cyc+3:LDA#0:STAc|
00000270  79 63 6c 65 3a 4a 4d 50  6d 69 6e 69 0d 00 64 9e  |ycle:JMPmini..d.|
00000280  2e 77 72 69 74 65 20 4c  44 58 6c 69 6e 65 3a 4c  |.write LDXline:L|
00000290  44 41 23 30 3a 53 54 41  26 37 30 3a 53 54 41 78  |DA#0:STA&70:STAx|
000002a0  63 3a 4c 44 41 61 64 64  72 65 73 73 2c 58 3a 53  |c:LDAaddress,X:S|
000002b0  54 41 26 37 31 3a 2e 6e  65 77 63 68 61 72 20 4c  |TA&71:.newchar L|
000002c0  44 41 23 30 3a 53 54 41  78 3a 4a 53 52 72 65 61  |DA#0:STAx:JSRrea|
000002d0  64 64 65 66 3a 4c 44 58  6c 65 6e 3a 2e 6e 65 77  |ddef:LDXlen:.new|
000002e0  6c 69 6e 65 20 53 45 49  3a 4c 44 41 23 30 3a 53  |line SEI:LDA#0:S|
000002f0  54 41 79 3a 4c 44 41 26  37 30 3a 53 54 41 26 37  |TAy:LDA&70:STA&7|
00000300  32 3a 4c 44 41 26 37 31  3a 53 54 41 26 37 33 3a  |2:LDA&71:STA&73:|
00000310  4a 53 52 67 65 74 64 61  74 61 0d 00 6e 65 2e 6e  |JSRgetdata..ne.n|
00000320  65 78 74 20 4c 53 52 62  79 74 65 3a 42 43 43 62  |ext LSRbyte:BCCb|
00000330  6c 61 6e 6b 3a 4c 44 41  62 74 73 2c 58 3a 53 54  |lank:LDAbts,X:ST|
00000340  41 26 37 36 3a 4c 44 59  23 30 3a 2e 6c 6f 6f 70  |A&76:LDY#0:.loop|
00000350  20 4c 44 41 28 26 37 32  29 2c 59 3a 82 23 26 43  | LDA(&72),Y:.#&C|
00000360  30 3a 53 54 41 28 26 37  32 29 2c 59 3a 49 4e 59  |0:STA(&72),Y:INY|
00000370  3a 43 50 59 26 37 36 3a  42 4e 45 6c 6f 6f 70 0d  |:CPY&76:BNEloop.|
00000380  00 78 9e 2e 62 6c 61 6e  6b 20 4c 44 41 26 37 32  |.x..blank LDA&72|
00000390  3a 43 4c 43 3a 41 44 43  23 26 38 30 3a 53 54 41  |:CLC:ADC#&80:STA|
000003a0  26 37 32 3a 4c 44 41 26  37 33 3a 41 44 43 23 32  |&72:LDA&73:ADC#2|
000003b0  3a 53 54 41 26 37 33 3a  49 4e 43 79 3a 4c 44 41  |:STA&73:INCy:LDA|
000003c0  79 3a 43 4d 50 23 38 3a  42 4e 45 6e 65 78 74 3a  |y:CMP#8:BNEnext:|
000003d0  49 4e 43 78 3a 4c 44 41  26 37 30 3a 43 4c 43 3a  |INCx:LDA&70:CLC:|
000003e0  41 44 43 62 74 73 2c 58  3a 53 54 41 26 37 30 3a  |ADCbts,X:STA&70:|
000003f0  4c 44 41 26 37 31 3a 41  44 43 23 30 3a 53 54 41  |LDA&71:ADC#0:STA|
00000400  26 37 31 3a 4c 44 41 78  3a 43 4d 50 23 38 3a 42  |&71:LDAx:CMP#8:B|
00000410  4e 45 6e 65 77 6c 69 6e  65 3a 43 4c 49 0d 00 82  |NEnewline:CLI...|
00000420  56 49 4e 43 78 63 3a 4c  44 41 78 63 3a 43 4d 50  |VINCxc:LDAxc:CMP|
00000430  63 68 61 72 73 2c 58 3a  42 4e 45 6e 65 77 63 68  |chars,X:BNEnewch|
00000440  61 72 3a 4c 44 41 26 37  34 3a 43 4c 43 3a 41 44  |ar:LDA&74:CLC:AD|
00000450  43 23 31 30 3a 53 54 41  26 37 34 3a 4c 44 41 26  |C#10:STA&74:LDA&|
00000460  37 35 3a 41 44 43 23 30  3a 53 54 41 26 37 35 3a  |75:ADC#0:STA&75:|
00000470  52 54 53 0d 00 8c 58 2e  72 65 61 64 64 65 66 20  |RTS...X.readdef |
00000480  4c 44 59 78 63 3a 4c 44  41 28 26 37 34 29 2c 59  |LDYxc:LDA(&74),Y|
00000490  3a 53 54 41 61 73 63 69  69 3a 4c 44 41 23 26 41  |:STAascii:LDA#&A|
000004a0  3a 4c 44 58 23 28 61 73  63 69 69 20 83 32 35 36  |:LDX#(ascii .256|
000004b0  29 3a 4c 44 59 23 28 61  73 63 69 69 20 81 32 35  |):LDY#(ascii .25|
000004c0  36 29 3a 4a 4d 50 26 46  46 46 31 0d 00 96 61 2e  |6):JMP&FFF1...a.|
000004d0  67 65 74 64 61 74 61 20  4c 44 59 23 38 3a 4c 44  |getdata LDY#8:LD|
000004e0  58 78 3a 2e 67 65 74 6c  6f 6f 70 20 4c 44 41 61  |Xx:.getloop LDAa|
000004f0  73 63 69 69 2c 59 3a 80  70 6f 77 65 72 2c 58 3a  |scii,Y:.power,X:|
00000500  43 4d 50 70 6f 77 65 72  2c 58 3a 52 4f 4c 62 79  |CMPpower,X:ROLby|
00000510  74 65 3a 44 45 59 3a 42  4e 45 67 65 74 6c 6f 6f  |te:DEY:BNEgetloo|
00000520  70 3a 4c 44 58 6c 65 6e  3a 52 54 53 0d 00 a0 a4  |p:LDXlen:RTS....|
00000530  2e 6d 69 6e 69 20 4a 53  52 6d 69 6e 77 3a 4a 53  |.mini JSRminw:JS|
00000540  52 6d 69 6e 77 3a 52 54  53 3a 2e 6d 69 6e 77 20  |Rminw:RTS:.minw |
00000550  4c 44 41 63 6c 6f 63 6b  3a 43 4c 43 3a 41 44 43  |LDAclock:CLC:ADC|
00000560  23 26 34 30 3a 2e 77 61  69 74 6c 6f 6f 70 20 43  |#&40:.waitloop C|
00000570  4d 50 63 6c 6f 63 6b 3a  42 4e 45 77 61 69 74 6c  |MPclock:BNEwaitl|
00000580  6f 6f 70 3a 4c 44 41 23  26 39 31 3a 4c 44 58 23  |oop:LDA#&91:LDX#|
00000590  30 3a 4a 53 52 26 46 46  46 34 3a 43 50 59 23 33  |0:JSR&FFF4:CPY#3|
000005a0  32 3a 42 4e 45 6e 6f 65  3a 4a 53 52 6f 66 66 3a  |2:BNEnoe:JSRoff:|
000005b0  50 4c 41 3a 50 4c 41 3a  50 4c 41 3a 50 4c 41 3a  |PLA:PLA:PLA:PLA:|
000005c0  50 4c 41 3a 50 4c 41 3a  2e 6e 6f 65 20 52 54 53  |PLA:PLA:.noe RTS|
000005d0  0d 00 aa 90 2e 6d 69 6e  63 20 4a 53 52 6d 69 6e  |.....minc JSRmin|
000005e0  69 3a 52 54 53 3a 2e 77  61 69 63 20 4a 53 52 77  |i:RTS:.waic JSRw|
000005f0  61 69 74 3a 52 54 53 3a  2e 77 61 69 74 20 4a 53  |ait:RTS:.wait JS|
00000600  52 6d 69 6e 77 3a 4a 53  52 6d 69 6e 77 3a 4a 53  |Rminw:JSRminw:JS|
00000610  52 6d 69 6e 77 3a 4a 53  52 6d 69 6e 77 3a 52 54  |Rminw:JSRminw:RT|
00000620  53 3a 2e 66 61 64 65 20  4c 44 41 23 30 3a 53 54  |S:.fade LDA#0:ST|
00000630  41 6f 66 63 3a 4a 53 52  77 61 69 74 3a 4c 44 41  |Aofc:JSRwait:LDA|
00000640  23 37 3a 53 54 41 6f 6e  63 3a 4c 44 41 23 35 3a  |#7:STAonc:LDA#5:|
00000650  53 54 41 63 79 63 6c 65  3a 4a 53 52 6d 69 6e 69  |STAcycle:JSRmini|
00000660  0d 00 b4 42 2e 66 61 64  65 20 4c 44 41 23 30 3a  |...B.fade LDA#0:|
00000670  53 54 41 6f 66 63 3a 4a  53 52 77 61 69 74 3a 4c  |STAofc:JSRwait:L|
00000680  44 41 23 37 3a 53 54 41  6f 6e 63 3a 4c 44 41 23  |DA#7:STAonc:LDA#|
00000690  35 3a 53 54 41 63 79 63  6c 65 3a 4a 53 52 6d 69  |5:STAcycle:JSRmi|
000006a0  6e 69 0d 00 be 78 4c 44  41 23 30 3a 53 54 41 26  |ni...xLDA#0:STA&|
000006b0  37 30 3a 4c 44 41 23 26  33 30 3a 53 54 41 26 37  |70:LDA#&30:STA&7|
000006c0  31 3a 4c 44 59 23 30 3a  2e 63 6c 65 61 72 20 4c  |1:LDY#0:.clear L|
000006d0  44 41 28 26 37 30 29 2c  59 3a 80 23 26 33 46 3a  |DA(&70),Y:.#&3F:|
000006e0  53 54 41 28 26 37 30 29  2c 59 3a 49 4e 59 3a 42  |STA(&70),Y:INY:B|
000006f0  4e 45 63 6c 65 61 72 3a  49 4e 43 26 37 31 3a 4c  |NEclear:INC&71:L|
00000700  44 41 26 37 31 3a 43 4d  50 23 26 38 30 3a 42 4e  |DA&71:CMP#&80:BN|
00000710  45 63 6c 65 61 72 3a 52  54 53 0d 00 c8 69 2e 6f  |Eclear:RTS...i.o|
00000720  6e 20 53 45 49 3a 4c 44  41 26 32 30 34 3a 53 54  |n SEI:LDA&204:ST|
00000730  41 76 65 63 74 6f 72 3a  4c 44 41 26 32 30 35 3a  |Avector:LDA&205:|
00000740  53 54 41 76 65 63 74 6f  72 2b 31 3a 4c 44 41 23  |STAvector+1:LDA#|
00000750  28 69 72 71 20 83 20 32  35 36 29 3a 53 54 41 26  |(irq . 256):STA&|
00000760  32 30 34 3a 4c 44 41 23  28 69 72 71 20 81 20 32  |204:LDA#(irq . 2|
00000770  35 36 29 3a 53 54 41 26  32 30 35 3a 43 4c 49 3a  |56):STA&205:CLI:|
00000780  52 54 53 0d 00 d2 3a 2e  6f 66 66 20 53 45 49 3a  |RTS...:.off SEI:|
00000790  4c 44 41 76 65 63 74 6f  72 3a 53 54 41 26 32 30  |LDAvector:STA&20|
000007a0  34 3a 4c 44 41 76 65 63  74 6f 72 2b 31 3a 53 54  |4:LDAvector+1:ST|
000007b0  41 26 32 30 35 3a 43 4c  49 3a 52 54 53 0d 00 dc  |A&205:CLI:RTS...|
000007c0  6e 2e 69 72 71 20 49 4e  43 63 6c 6f 63 6b 3a 4c  |n.irq INCclock:L|
000007d0  44 41 63 6c 6f 63 6b 3a  80 23 37 3a 42 4e 45 69  |DAclock:.#7:BNEi|
000007e0  72 71 65 6e 64 3a 54 58  41 3a 50 48 41 3a 54 59  |rqend:TXA:PHA:TY|
000007f0  41 3a 50 48 41 3a 4a 53  52 73 74 61 72 73 3a 4a  |A:PHA:JSRstars:J|
00000800  53 52 66 6c 61 73 68 3a  50 4c 41 3a 54 41 59 3a  |SRflash:PLA:TAY:|
00000810  50 4c 41 3a 54 41 58 3a  2e 69 72 71 65 6e 64 20  |PLA:TAX:.irqend |
00000820  4a 4d 50 28 76 65 63 74  6f 72 29 0d 00 e6 af 2e  |JMP(vector).....|
00000830  66 6c 61 73 68 20 4c 44  58 63 79 63 6c 65 3a 43  |flash LDXcycle:C|
00000840  50 58 23 26 46 46 3a 42  45 51 65 6e 64 66 3a 4c  |PX#&FF:BEQendf:L|
00000850  44 41 66 6c 61 63 79 63  2c 58 3a 42 45 51 6f 76  |DAflacyc,X:BEQov|
00000860  65 72 66 3a 53 54 41 63  6f 6c 69 2b 31 3a 4c 44  |erf:STAcoli+1:LD|
00000870  41 23 38 3a 53 54 41 63  6f 6c 69 3a 4c 44 41 23  |A#8:STAcoli:LDA#|
00000880  31 32 3a 4c 44 58 23 28  63 6f 6c 69 20 83 32 35  |12:LDX#(coli .25|
00000890  36 29 3a 4c 44 59 23 28  63 6f 6c 69 20 81 32 35  |6):LDY#(coli .25|
000008a0  36 29 3a 4a 53 52 26 46  46 46 31 3a 49 4e 43 63  |6):JSR&FFF1:INCc|
000008b0  79 63 6c 65 3a 2e 65 6e  64 66 20 52 54 53 3a 2e  |ycle:.endf RTS:.|
000008c0  6f 76 65 72 66 20 4c 44  41 23 26 46 46 3a 53 54  |overf LDA#&FF:ST|
000008d0  41 63 79 63 6c 65 3a 52  54 53 0d 00 f0 b4 2e 73  |Acycle:RTS.....s|
000008e0  74 61 72 73 20 49 4e 43  62 3a 4c 44 41 62 3a 43  |tars INCb:LDAb:C|
000008f0  4d 50 23 37 3a 42 43 43  6e 6f 77 72 61 70 3a 4c  |MP#7:BCCnowrap:L|
00000900  44 41 23 30 3a 53 54 41  62 3a 2e 6e 6f 77 72 61  |DA#0:STAb:.nowra|
00000910  70 20 43 4c 43 3a 41 44  43 23 31 3a 53 54 41 63  |p CLC:ADC#1:STAc|
00000920  6f 6c 69 3a 4c 44 41 23  37 3a 53 54 41 63 6f 6c  |oli:LDA#7:STAcol|
00000930  69 2b 31 3a 4c 44 41 23  31 32 3a 4c 44 58 23 28  |i+1:LDA#12:LDX#(|
00000940  63 6f 6c 69 20 83 32 35  36 29 3a 4c 44 59 23 28  |coli .256):LDY#(|
00000950  63 6f 6c 69 20 81 32 35  36 29 3a 4a 53 52 26 46  |coli .256):JSR&F|
00000960  46 46 31 3a 4c 44 41 63  6f 6c 69 3a 43 4c 43 3a  |FF1:LDAcoli:CLC:|
00000970  41 44 43 23 38 3a 53 54  41 63 6f 6c 69 3a 4c 44  |ADC#8:STAcoli:LD|
00000980  41 6f 6e 63 3a 53 54 41  63 6f 6c 69 2b 31 0d 00  |Aonc:STAcoli+1..|
00000990  fa 33 4c 44 41 23 31 32  3a 4c 44 58 23 28 63 6f  |.3LDA#12:LDX#(co|
000009a0  6c 69 20 83 32 35 36 29  3a 4c 44 59 23 28 63 6f  |li .256):LDY#(co|
000009b0  6c 69 20 81 32 35 36 29  3a 4a 53 52 26 46 46 46  |li .256):JSR&FFF|
000009c0  31 0d 01 04 bf 4c 44 41  63 3a 53 54 41 63 6f 6c  |1....LDAc:STAcol|
000009d0  69 3a 4c 44 41 23 30 3a  53 54 41 63 6f 6c 69 2b  |i:LDA#0:STAcoli+|
000009e0  31 3a 4c 44 41 23 31 32  3a 4c 44 58 23 28 63 6f  |1:LDA#12:LDX#(co|
000009f0  6c 69 20 83 32 35 36 29  3a 4c 44 59 23 28 63 6f  |li .256):LDY#(co|
00000a00  6c 69 20 81 32 35 36 29  3a 4a 53 52 26 46 46 46  |li .256):JSR&FFF|
00000a10  31 3a 4c 44 41 62 3a 43  4c 43 3a 41 44 43 23 31  |1:LDAb:CLC:ADC#1|
00000a20  3a 53 54 41 63 3a 4c 44  41 63 6f 6c 69 3a 43 4c  |:STAc:LDAcoli:CL|
00000a30  43 3a 41 44 43 23 38 3a  53 54 41 63 6f 6c 69 3a  |C:ADC#8:STAcoli:|
00000a40  4c 44 41 6f 66 63 3a 53  54 41 63 6f 6c 69 2b 31  |LDAofc:STAcoli+1|
00000a50  3a 4c 44 41 23 31 32 3a  4c 44 58 23 28 63 6f 6c  |:LDA#12:LDX#(col|
00000a60  69 20 83 32 35 36 29 3a  4c 44 59 23 28 63 6f 6c  |i .256):LDY#(col|
00000a70  69 20 81 32 35 36 29 3a  4a 4d 50 26 46 46 46 31  |i .256):JMP&FFF1|
00000a80  0d 01 0e 6a 2e 74 65 78  74 20 45 51 55 53 22 20  |...j.text EQUS" |
00000a90  45 6c 65 63 74 72 6f 6e  20 20 20 20 55 73 65 72  |Electron    User|
00000aa0  20 20 20 47 72 6f 75 70  20 20 20 20 20 20 20 49  |   Group       I|
00000ab0  73 73 75 65 3a 20 20 20  20 20 20 20 20 20 20 20  |ssue:           |
00000ac0  20 20 20 20 20 33 31 20  20 20 20 50 72 65 73 73  |     31    Press|
00000ad0  20 20 20 20 20 3c 53 50  41 43 45 3e 20 74 6f 20  |     <SPACE> to |
00000ae0  63 6f 6e 74 69 6e 75 65  20 22 0d 01 18 e2 2e 73  |continue ".....s|
00000af0  70 61 63 65 20 45 51 55  42 30 3a 45 51 55 42 30  |pace EQUB0:EQUB0|
00000b00  3a 45 51 55 42 31 3a 45  51 55 42 30 3a 45 51 55  |:EQUB1:EQUB0:EQU|
00000b10  42 30 3a 45 51 55 42 30  3a 45 51 55 42 31 3a 45  |B0:EQUB0:EQUB1:E|
00000b20  51 55 42 30 3a 45 51 55  42 30 3a 2e 61 64 64 72  |QUB0:EQUB0:.addr|
00000b30  65 73 73 20 45 51 55 42  26 33 41 3a 45 51 55 42  |ess EQUB&3A:EQUB|
00000b40  26 34 45 3a 45 51 55 42  26 36 32 3a 2e 70 6f 77  |&4E:EQUB&62:.pow|
00000b50  65 72 20 45 51 55 42 31  32 38 3a 45 51 55 42 36  |er EQUB128:EQUB6|
00000b60  34 3a 45 51 55 42 33 32  3a 45 51 55 42 31 36 3a  |4:EQUB32:EQUB16:|
00000b70  45 51 55 42 38 3a 45 51  55 42 34 3a 45 51 55 42  |EQUB8:EQUB4:EQUB|
00000b80  32 3a 45 51 55 42 31 3a  2e 66 6c 61 63 79 63 20  |2:EQUB1:.flacyc |
00000b90  45 51 55 42 34 3a 45 51  55 42 36 3a 45 51 55 42  |EQUB4:EQUB6:EQUB|
00000ba0  37 3a 45 51 55 42 30 3a  45 51 55 42 30 3a 45 51  |7:EQUB0:EQUB0:EQ|
00000bb0  55 42 37 3a 45 51 55 42  36 3a 45 51 55 42 34 3a  |UB7:EQUB6:EQUB4:|
00000bc0  45 51 55 42 31 36 3a 45  51 55 42 30 0d 01 22 d9  |EQUB16:EQUB0..".|
00000bd0  2e 78 20 45 51 55 42 30  3a 2e 79 20 45 51 55 42  |.x EQUB0:.y EQUB|
00000be0  30 3a 2e 78 63 20 45 51  55 42 30 3a 2e 6c 65 6e  |0:.xc EQUB0:.len|
00000bf0  20 45 51 55 42 30 3a 2e  62 79 74 65 20 45 51 55  | EQUB0:.byte EQU|
00000c00  42 30 3a 2e 6c 69 6e 65  20 45 51 55 42 30 3a 2e  |B0:.line EQUB0:.|
00000c10  70 61 67 65 20 45 51 55  42 30 3a 2e 63 6c 6f 63  |page EQUB0:.cloc|
00000c20  6b 20 45 51 55 42 35 3a  2e 76 65 63 74 6f 72 20  |k EQUB5:.vector |
00000c30  45 51 55 57 30 3a 2e 6c  69 6e 6e 6f 20 45 51 55  |EQUW0:.linno EQU|
00000c40  42 30 3a 2e 62 74 73 20  45 51 55 42 38 3a 45 51  |B0:.bts EQUB8:EQ|
00000c50  55 42 31 36 3a 2e 63 68  61 72 73 20 45 51 55 42  |UB16:.chars EQUB|
00000c60  31 30 3a 45 51 55 42 35  3a 2e 61 73 63 69 69 20  |10:EQUB5:.ascii |
00000c70  45 51 55 42 30 3a 45 51  55 44 30 3a 45 51 55 44  |EQUB0:EQUD0:EQUD|
00000c80  30 3a 2e 62 20 45 51 55  42 31 3a 2e 63 20 45 51  |0:.b EQUB1:.c EQ|
00000c90  55 42 31 3a 2e 63 6f 6c  69 20 45 51 55 44 30 3a  |UB1:.coli EQUD0:|
00000ca0  45 51 55 42 30 0d 01 2c  2c 2e 6f 66 63 20 45 51  |EQUB0..,,.ofc EQ|
00000cb0  55 42 30 3a 2e 6f 6e 63  20 45 51 55 42 37 3a 2e  |UB0:.onc EQUB7:.|
00000cc0  63 79 63 6c 65 20 45 51  55 42 26 46 46 3a 5d 3a  |cycle EQUB&FF:]:|
00000cd0  ed 0d 01 36 11 2a 4c 4f  41 44 20 54 69 74 44 61  |...6.*LOAD TitDa|
00000ce0  74 61 0d 01 40 0a d6 73  74 61 72 74 0d 01 4a 0b  |ta..@..start..J.|
00000cf0  d7 22 4d 45 4e 55 22 0d  ff                       |."MENU"..|
00000cf9