�>TText1
#�'"Enter file to display:" F$:�
*FX20,6
( �I=32�255:�23,I:�J=1�8:�I:�,
-�23,1,0;0;0;0;
27� ?&27F<&80 � �"L."+F$+" 6000" � �mrbload(F$,&6000)
<
�"TText2"
F 
P��mrbload(f$,addr%)
U� p%=0 � 2 � 2
ZP%=&900
d[OPT p%
nLDA#&40:LDX#file �256
xLDY#file �256:JSR &FFCE
�STA handle
�	.loop
�LDY handle:JSR &FFD7
�BCS end:PHA
�LDA#&40:PHA:PLP
�!PLA:LDX address:LDY address+1
�
JSR &FBFD
�&INC address:BNE loop:INC address+1
�BNE loop
�.end
�LDA#0:LDY handle:JMP &FFCE
�.file EQUS f$:EQUB 13
�.address EQUW addr%
�.handle EQUB 0
�]
��


� &900

�
�

00000000  0d 00 0a 0c f4 3e 54 54  65 78 74 31 0d 00 14 23  |.....>TText1...#|
00000010  e8 27 22 45 6e 74 65 72  20 66 69 6c 65 20 74 6f  |.'"Enter file to|
00000020  20 64 69 73 70 6c 61 79  3a 22 20 46 24 3a db 0d  | display:" F$:..|
00000030  00 1e 0b 2a 46 58 32 30  2c 36 0d 00 28 20 e3 49  |...*FX20,6..( .I|
00000040  3d 33 32 b8 32 35 35 3a  ef 32 33 2c 49 3a e3 4a  |=32.255:.23,I:.J|
00000050  3d 31 b8 38 3a ef 49 3a  ed 2c 0d 00 2d 12 ef 32  |=1.8:.I:.,..-..2|
00000060  33 2c 31 2c 30 3b 30 3b  30 3b 30 3b 0d 00 32 37  |3,1,0;0;0;0;..27|
00000070  e7 20 3f 26 32 37 46 3c  26 38 30 20 8c 20 ff 22  |. ?&27F<&80 . ."|
00000080  4c 2e 22 2b 46 24 2b 22  20 36 30 30 30 22 20 8b  |L."+F$+" 6000" .|
00000090  20 f2 6d 72 62 6c 6f 61  64 28 46 24 2c 26 36 30  | .mrbload(F$,&60|
000000a0  30 30 29 0d 00 3c 0d d7  22 54 54 65 78 74 32 22  |00)..<.."TText2"|
000000b0  0d 00 46 05 20 0d 00 50  17 dd f2 6d 72 62 6c 6f  |..F. ..P...mrblo|
000000c0  61 64 28 66 24 2c 61 64  64 72 25 29 0d 00 55 12  |ad(f$,addr%)..U.|
000000d0  e3 20 70 25 3d 30 20 b8  20 32 20 88 20 32 0d 00  |. p%=0 . 2 . 2..|
000000e0  5a 0b 50 25 3d 26 39 30  30 0d 00 64 0b 5b 4f 50  |Z.P%=&900..d.[OP|
000000f0  54 20 70 25 0d 00 6e 19  4c 44 41 23 26 34 30 3a  |T p%..n.LDA#&40:|
00000100  4c 44 58 23 66 69 6c 65  20 83 32 35 36 0d 00 78  |LDX#file .256..x|
00000110  1b 4c 44 59 23 66 69 6c  65 20 81 32 35 36 3a 4a  |.LDY#file .256:J|
00000120  53 52 20 26 46 46 43 45  0d 00 82 0e 53 54 41 20  |SR &FFCE....STA |
00000130  68 61 6e 64 6c 65 0d 00  8c 09 2e 6c 6f 6f 70 0d  |handle.....loop.|
00000140  00 96 18 4c 44 59 20 68  61 6e 64 6c 65 3a 4a 53  |...LDY handle:JS|
00000150  52 20 26 46 46 44 37 0d  00 9b 0f 42 43 53 20 65  |R &FFD7....BCS e|
00000160  6e 64 3a 50 48 41 0d 00  a0 13 4c 44 41 23 26 34  |nd:PHA....LDA#&4|
00000170  30 3a 50 48 41 3a 50 4c  50 0d 00 aa 21 50 4c 41  |0:PHA:PLP...!PLA|
00000180  3a 4c 44 58 20 61 64 64  72 65 73 73 3a 4c 44 59  |:LDX address:LDY|
00000190  20 61 64 64 72 65 73 73  2b 31 0d 00 b4 0d 4a 53  | address+1....JS|
000001a0  52 20 26 46 42 46 44 0d  00 be 26 49 4e 43 20 61  |R &FBFD...&INC a|
000001b0  64 64 72 65 73 73 3a 42  4e 45 20 6c 6f 6f 70 3a  |ddress:BNE loop:|
000001c0  49 4e 43 20 61 64 64 72  65 73 73 2b 31 0d 00 c3  |INC address+1...|
000001d0  0c 42 4e 45 20 6c 6f 6f  70 0d 00 c8 08 2e 65 6e  |.BNE loop.....en|
000001e0  64 0d 00 d2 1e 4c 44 41  23 30 3a 4c 44 59 20 68  |d....LDA#0:LDY h|
000001f0  61 6e 64 6c 65 3a 4a 4d  50 20 26 46 46 43 45 0d  |andle:JMP &FFCE.|
00000200  00 dc 19 2e 66 69 6c 65  20 45 51 55 53 20 66 24  |....file EQUS f$|
00000210  3a 45 51 55 42 20 31 33  0d 00 e6 17 2e 61 64 64  |:EQUB 13.....add|
00000220  72 65 73 73 20 45 51 55  57 20 61 64 64 72 25 0d  |ress EQUW addr%.|
00000230  00 e7 12 2e 68 61 6e 64  6c 65 20 45 51 55 42 20  |....handle EQUB |
00000240  30 0d 00 f0 05 5d 0d 00  fa 05 ed 0d 01 04 0a d6  |0....]..........|
00000250  20 26 39 30 30 0d 01 0e  05 e1 0d ff              | &900.......|
0000025c