!�=&2500:�assem:�"LOAD UCODE0"
	�text

��text
(&�clear:�22,6:�"LOAD HDPROJ0 2500" 
2*�22,3,14:�''"SHIFT TO SCROLL"'':�print
<$�"PRESS SPACE TO CONTINUE":key=�
F�22,0:�"LOAD PIC1"
P$�"PRESS SPACE TO CONTINUE":key=�
Z&�clear:�22,6:�"LOAD HDPROJ1 2500" 
d*�22,3,14:�''"SHIFT TO SCROLL"'':�print
n$�"PRESS SPACE TO CONTINUE":key=�
x�22,0:�"LOAD PIC2"
�$�"PRESS SPACE TO CONTINUE":key=�
�&�clear:�22,6:�"LOAD HDPROJ2 2500" 
�*�22,3,14:�''"SHIFT TO SCROLL"'':�print
�,�;"<P> TO PRINT TEXT, <M> FOR MAIN MENU"
�
�:a$=�
��a$="M"��"MENU"
��a$="P"� �2,15
�'�clear:�"LOAD HDPROJ0 2500":� print
�'�clear:�"LOAD HDPROJ1 2500":� print
�(�clear:�"LOAD HDPROJ2 2500":� print 
��22,0:�"LOAD PIC1":� &90A
��22,0:�"LOAD PIC2":� &90A 
��3:�"MENU"

��:�

��assem

�i=0�2�2

"P%=&B00

,	[OPTi

6�.print:LDA#0:STA&70:LDA#&25:STA&71:.L1 LDY#0:.L2 LDA(&70),Y:CMP#0:BEQrts:CMP#&0D:BEQprt:CMP#&20:BCCspc:CMP#&7F:BCSspc:.prt JSR&FFE3:.inc INY:BNE L2:INC&71:JMP L1:.spc LDA#&20:JSR&FFE3:JMPinc:.rts RTS

@v.clear:LDA#0:STA&72:LDA#&25:STA&73:.L3 LDY#0:.L4 LDA#0:STA(&72),Y:INY:BNE L4:INC&73:LDA&73:CMP#&40:BNE L3:RTS:]:� 

J�
�

00000000  0d 00 0a 21 d3 3d 26 32  35 30 30 3a f2 61 73 73  |...!.=&2500:.ass|
00000010  65 6d 3a ff 22 4c 4f 41  44 20 55 43 4f 44 45 30  |em:."LOAD UCODE0|
00000020  22 0d 00 14 09 f2 74 65  78 74 0d 00 1e 0a dd f2  |".....text......|
00000030  74 65 78 74 0d 00 28 26  d6 63 6c 65 61 72 3a ef  |text..(&.clear:.|
00000040  32 32 2c 36 3a ff 22 4c  4f 41 44 20 48 44 50 52  |22,6:."LOAD HDPR|
00000050  4f 4a 30 20 32 35 30 30  22 20 0d 00 32 2a ef 32  |OJ0 2500" ..2*.2|
00000060  32 2c 33 2c 31 34 3a f1  27 27 22 53 48 49 46 54  |2,3,14:.''"SHIFT|
00000070  20 54 4f 20 53 43 52 4f  4c 4c 22 27 27 3a d6 70  | TO SCROLL"'':.p|
00000080  72 69 6e 74 0d 00 3c 24  f1 22 50 52 45 53 53 20  |rint..<$."PRESS |
00000090  53 50 41 43 45 20 54 4f  20 43 4f 4e 54 49 4e 55  |SPACE TO CONTINU|
000000a0  45 22 3a 6b 65 79 3d a5  0d 00 46 16 ef 32 32 2c  |E":key=...F..22,|
000000b0  30 3a ff 22 4c 4f 41 44  20 50 49 43 31 22 0d 00  |0:."LOAD PIC1"..|
000000c0  50 24 f1 22 50 52 45 53  53 20 53 50 41 43 45 20  |P$."PRESS SPACE |
000000d0  54 4f 20 43 4f 4e 54 49  4e 55 45 22 3a 6b 65 79  |TO CONTINUE":key|
000000e0  3d a5 0d 00 5a 26 d6 63  6c 65 61 72 3a ef 32 32  |=...Z&.clear:.22|
000000f0  2c 36 3a ff 22 4c 4f 41  44 20 48 44 50 52 4f 4a  |,6:."LOAD HDPROJ|
00000100  31 20 32 35 30 30 22 20  0d 00 64 2a ef 32 32 2c  |1 2500" ..d*.22,|
00000110  33 2c 31 34 3a f1 27 27  22 53 48 49 46 54 20 54  |3,14:.''"SHIFT T|
00000120  4f 20 53 43 52 4f 4c 4c  22 27 27 3a d6 70 72 69  |O SCROLL"'':.pri|
00000130  6e 74 0d 00 6e 24 f1 22  50 52 45 53 53 20 53 50  |nt..n$."PRESS SP|
00000140  41 43 45 20 54 4f 20 43  4f 4e 54 49 4e 55 45 22  |ACE TO CONTINUE"|
00000150  3a 6b 65 79 3d a5 0d 00  78 16 ef 32 32 2c 30 3a  |:key=...x..22,0:|
00000160  ff 22 4c 4f 41 44 20 50  49 43 32 22 0d 00 82 24  |."LOAD PIC2"...$|
00000170  f1 22 50 52 45 53 53 20  53 50 41 43 45 20 54 4f  |."PRESS SPACE TO|
00000180  20 43 4f 4e 54 49 4e 55  45 22 3a 6b 65 79 3d a5  | CONTINUE":key=.|
00000190  0d 00 8c 26 d6 63 6c 65  61 72 3a ef 32 32 2c 36  |...&.clear:.22,6|
000001a0  3a ff 22 4c 4f 41 44 20  48 44 50 52 4f 4a 32 20  |:."LOAD HDPROJ2 |
000001b0  32 35 30 30 22 20 0d 00  96 2a ef 32 32 2c 33 2c  |2500" ...*.22,3,|
000001c0  31 34 3a f1 27 27 22 53  48 49 46 54 20 54 4f 20  |14:.''"SHIFT TO |
000001d0  53 43 52 4f 4c 4c 22 27  27 3a d6 70 72 69 6e 74  |SCROLL"'':.print|
000001e0  0d 00 a0 2c f1 3b 22 3c  50 3e 20 54 4f 20 50 52  |...,.;"<P> TO PR|
000001f0  49 4e 54 20 54 45 58 54  2c 20 3c 4d 3e 20 46 4f  |INT TEXT, <M> FO|
00000200  52 20 4d 41 49 4e 20 4d  45 4e 55 22 0d 00 aa 0a  |R MAIN MENU"....|
00000210  f5 3a 61 24 3d be 0d 00  b4 13 e7 61 24 3d 22 4d  |.:a$=......a$="M|
00000220  22 8c d7 22 4d 45 4e 55  22 0d 00 be 12 e7 61 24  |".."MENU".....a$|
00000230  3d 22 50 22 8c 20 ef 32  2c 31 35 0d 00 c8 27 d6  |="P". .2,15...'.|
00000240  63 6c 65 61 72 3a ff 22  4c 4f 41 44 20 48 44 50  |clear:."LOAD HDP|
00000250  52 4f 4a 30 20 32 35 30  30 22 3a d6 20 70 72 69  |ROJ0 2500":. pri|
00000260  6e 74 0d 00 d2 27 d6 63  6c 65 61 72 3a ff 22 4c  |nt...'.clear:."L|
00000270  4f 41 44 20 48 44 50 52  4f 4a 31 20 32 35 30 30  |OAD HDPROJ1 2500|
00000280  22 3a d6 20 70 72 69 6e  74 0d 00 dc 28 d6 63 6c  |":. print...(.cl|
00000290  65 61 72 3a ff 22 4c 4f  41 44 20 48 44 50 52 4f  |ear:."LOAD HDPRO|
000002a0  4a 32 20 32 35 30 30 22  3a d6 20 70 72 69 6e 74  |J2 2500":. print|
000002b0  20 0d 00 e6 1d ef 32 32  2c 30 3a ff 22 4c 4f 41  | .....22,0:."LOA|
000002c0  44 20 50 49 43 31 22 3a  d6 20 26 39 30 41 0d 00  |D PIC1":. &90A..|
000002d0  f0 1e ef 32 32 2c 30 3a  ff 22 4c 4f 41 44 20 50  |...22,0:."LOAD P|
000002e0  49 43 32 22 3a d6 20 26  39 30 41 20 0d 00 fa 0e  |IC2":. &90A ....|
000002f0  ef 33 3a d7 22 4d 45 4e  55 22 0d 01 04 08 fd a3  |.3:."MENU"......|
00000300  3a e1 0d 01 0e 0b dd f2  61 73 73 65 6d 0d 01 18  |:.......assem...|
00000310  0c e3 69 3d 30 b8 32 88  32 0d 01 22 0b 50 25 3d  |..i=0.2.2..".P%=|
00000320  26 42 30 30 0d 01 2c 09  5b 4f 50 54 69 0d 01 36  |&B00..,.[OPTi..6|
00000330  cb 2e 70 72 69 6e 74 3a  4c 44 41 23 30 3a 53 54  |..print:LDA#0:ST|
00000340  41 26 37 30 3a 4c 44 41  23 26 32 35 3a 53 54 41  |A&70:LDA#&25:STA|
00000350  26 37 31 3a 2e 4c 31 20  4c 44 59 23 30 3a 2e 4c  |&71:.L1 LDY#0:.L|
00000360  32 20 4c 44 41 28 26 37  30 29 2c 59 3a 43 4d 50  |2 LDA(&70),Y:CMP|
00000370  23 30 3a 42 45 51 72 74  73 3a 43 4d 50 23 26 30  |#0:BEQrts:CMP#&0|
00000380  44 3a 42 45 51 70 72 74  3a 43 4d 50 23 26 32 30  |D:BEQprt:CMP#&20|
00000390  3a 42 43 43 73 70 63 3a  43 4d 50 23 26 37 46 3a  |:BCCspc:CMP#&7F:|
000003a0  42 43 53 73 70 63 3a 2e  70 72 74 20 4a 53 52 26  |BCSspc:.prt JSR&|
000003b0  46 46 45 33 3a 2e 69 6e  63 20 49 4e 59 3a 42 4e  |FFE3:.inc INY:BN|
000003c0  45 20 4c 32 3a 49 4e 43  26 37 31 3a 4a 4d 50 20  |E L2:INC&71:JMP |
000003d0  4c 31 3a 2e 73 70 63 20  4c 44 41 23 26 32 30 3a  |L1:.spc LDA#&20:|
000003e0  4a 53 52 26 46 46 45 33  3a 4a 4d 50 69 6e 63 3a  |JSR&FFE3:JMPinc:|
000003f0  2e 72 74 73 20 52 54 53  0d 01 40 76 2e 63 6c 65  |.rts RTS..@v.cle|
00000400  61 72 3a 4c 44 41 23 30  3a 53 54 41 26 37 32 3a  |ar:LDA#0:STA&72:|
00000410  4c 44 41 23 26 32 35 3a  53 54 41 26 37 33 3a 2e  |LDA#&25:STA&73:.|
00000420  4c 33 20 4c 44 59 23 30  3a 2e 4c 34 20 4c 44 41  |L3 LDY#0:.L4 LDA|
00000430  23 30 3a 53 54 41 28 26  37 32 29 2c 59 3a 49 4e  |#0:STA(&72),Y:IN|
00000440  59 3a 42 4e 45 20 4c 34  3a 49 4e 43 26 37 33 3a  |Y:BNE L4:INC&73:|
00000450  4c 44 41 26 37 33 3a 43  4d 50 23 26 34 30 3a 42  |LDA&73:CMP#&40:B|
00000460  4e 45 20 4c 33 3a 52 54  53 3a 5d 3a ed 20 0d 01  |NE L3:RTS:]:. ..|
00000470  4a 05 e1 0d ff                                    |J....|
00000475