�>TText2
��6:�"FX20":�
�backcol=0:�file$(1):file$(0)="Print":file$(1)="3Print":mrb%=?&27F:�=�+&F40:�var:A%=135:�I=0�999:!user=�&FFF4:screen?I=user?1:�9:�:*FX20
���mode7:�"L."+file$(�(mrb%<>0))+" "+�~(�-&200):!(�-&110)=&60586078:�23,1,0;0;0;0;:�7,15)"Print or Save Screen (P/S)":�Z$=�:��"PS",Z$):�mrb%�dp@
�*�(�-&110):?&FE07=176:�"FX178":*FX115,1
�^�5:�Y%=0�24:backcol=0:forecol=7:�scan%=0�1:text=�:base=128:�X%=0�39:char=screen?(Y%*40+X%)

@�char>128�char<136 text=�

J�char>144�char<151 text=�

T�char=153�base=128

^�char=154�base=144

h�char>127�char<160��code

r x%=32*X%:y%=(27-Y%)*36

|�scan%=1�y%=y%-12

��text��ptext��pgraphics

��,,:�4:�mrb%�txA

�0�(�-&10E):?&FE07=?&282:�"FX178,255":*FX115,0

��Z$="P"�dVA

�9�mrb%=&80�mrbs("SCR",&3000,&8000)��"S.SCR 3000 +5000"

�*/!Boot

��

�*/SDump

�*/!Boot

��

���var:�user 3,screen 1100:�
!��ptext:�scan%=1��print(32):�
&�char=163�char=96
0�char=223�char=35
:�char=224�char=95
D char=char�&7F:�print(char):�
l-��pgraphics:�scan%=0�graphics1��graphics2
��
�.��graphics1:�char=35�char=223��print(35):�
�:�swapem:�index=4�index=5��ptext��print(base+(char�16))
��
�;��graphics2:�swapem:�index=2�index=4�index=5��print(32)
��index=3��print(base+4)
��index=6��print(base+8)
�index=7��print(base+12)
�
 ��swapem:�char=96�char=35
4�char=95�char=96
>!char=char�&7F:index=char�16:�
fa��print(c):!&70=x%:!&72=y%:!&74=y%-12:?&76=backcol:?&77=forecol:?&78=c:?&79=scan%:�(�-&200):�
�.��code:�char>128�char<136 forecol=char-128
�'�char>144�char<152 forecol=char-144
�E�char>128�char<136�screen?(Y%*40+X%+1)=157 backcol=char-128:�dJC
�E�char>144�char<152�screen?(Y%*40+X%+1)=157 backcol=char-144:�dJC
��char=156 backcol=0
�
char=32:�
�?��mode7:m7adr%=�-&100:�"L.MODE7 "+�~m7adr%:�m7adr%:*L.SMALL
L�
`a��mrbs(f$,s%,e%):�p%=0�2�2:P%=�-&80:[OPTp%:.st LDA#&80:LDX#fn �256:LDY#fn �256:JSR&FFCE:STAhn
�.l LDX ad%:LDY ad%+1:CLV:JSR&FBFD:LDY hn:JSR &FFD4:INC ad%:BNE o1:INC ad%+1:.o1 LDA ad%+1:CMP#e%�256:BNE l:LDA ad%:CMP#e%�256:BNE l:LDA#0:LDYhn:JSR&FFCE:LDX#bl �256:LDY#bl �256:LDA#2:JMP&FFDD:.ad% EQUWs%:.hn EQUW0:.fn EQUSf$
�'EQUB13:.bl EQUW fn:EQUWs%:]:�:�st:�
�

00000000  0d 00 0a 0c f4 3e 54 54  65 78 74 32 0d 00 14 12  |.....>TText2....|
00000010  ee 85 eb 36 3a ff 22 46  58 32 30 22 3a e0 0d 00  |...6:."FX20":...|
00000020  1e 8b 62 61 63 6b 63 6f  6c 3d 30 3a de 66 69 6c  |..backcol=0:.fil|
00000030  65 24 28 31 29 3a 66 69  6c 65 24 28 30 29 3d 22  |e$(1):file$(0)="|
00000040  50 72 69 6e 74 22 3a 66  69 6c 65 24 28 31 29 3d  |Print":file$(1)=|
00000050  22 33 50 72 69 6e 74 22  3a 6d 72 62 25 3d 3f 26  |"3Print":mrb%=?&|
00000060  32 37 46 3a d3 3d 90 2b  26 46 34 30 3a f2 76 61  |27F:.=.+&F40:.va|
00000070  72 3a 41 25 3d 31 33 35  3a e3 49 3d 30 b8 39 39  |r:A%=135:.I=0.99|
00000080  39 3a 21 75 73 65 72 3d  ba 26 46 46 46 34 3a 73  |9:!user=.&FFF4:s|
00000090  63 72 65 65 6e 3f 49 3d  75 73 65 72 3f 31 3a ef  |creen?I=user?1:.|
000000a0  39 3a ed 3a 2a 46 58 32  30 0d 00 a0 94 f2 6d 6f  |9:.:*FX20.....mo|
000000b0  64 65 37 3a ff 22 4c 2e  22 2b 66 69 6c 65 24 28  |de7:."L."+file$(|
000000c0  94 28 6d 72 62 25 3c 3e  30 29 29 2b 22 20 22 2b  |.(mrb%<>0))+" "+|
000000d0  c3 7e 28 90 2d 26 32 30  30 29 3a 21 28 90 2d 26  |.~(.-&200):!(.-&|
000000e0  31 31 30 29 3d 26 36 30  35 38 36 30 37 38 3a ef  |110)=&60586078:.|
000000f0  32 33 2c 31 2c 30 3b 30  3b 30 3b 30 3b 3a f1 8a  |23,1,0;0;0;0;:..|
00000100  37 2c 31 35 29 22 50 72  69 6e 74 20 6f 72 20 53  |7,15)"Print or S|
00000110  61 76 65 20 53 63 72 65  65 6e 20 28 50 2f 53 29  |ave Screen (P/S)|
00000120  22 3a f5 5a 24 3d be 3a  fd a7 22 50 53 22 2c 5a  |":.Z$=.:.."PS",Z|
00000130  24 29 3a e7 6d 72 62 25  e5 8d 64 70 40 0d 00 e6  |$):.mrb%..dp@...|
00000140  2a d6 28 90 2d 26 31 31  30 29 3a 3f 26 46 45 30  |*.(.-&110):?&FE0|
00000150  37 3d 31 37 36 3a ff 22  46 58 31 37 38 22 3a 2a  |7=176:."FX178":*|
00000160  46 58 31 31 35 2c 31 0d  00 f0 5e ef 35 3a e3 59  |FX115,1...^.5:.Y|
00000170  25 3d 30 b8 32 34 3a 62  61 63 6b 63 6f 6c 3d 30  |%=0.24:backcol=0|
00000180  3a 66 6f 72 65 63 6f 6c  3d 37 3a e3 73 63 61 6e  |:forecol=7:.scan|
00000190  25 3d 30 b8 31 3a 74 65  78 74 3d b9 3a 62 61 73  |%=0.1:text=.:bas|
000001a0  65 3d 31 32 38 3a e3 58  25 3d 30 b8 33 39 3a 63  |e=128:.X%=0.39:c|
000001b0  68 61 72 3d 73 63 72 65  65 6e 3f 28 59 25 2a 34  |har=screen?(Y%*4|
000001c0  30 2b 58 25 29 0d 01 40  1d e7 63 68 61 72 3e 31  |0+X%)..@..char>1|
000001d0  32 38 80 63 68 61 72 3c  31 33 36 20 74 65 78 74  |28.char<136 text|
000001e0  3d b9 0d 01 4a 1d e7 63  68 61 72 3e 31 34 34 80  |=...J..char>144.|
000001f0  63 68 61 72 3c 31 35 31  20 74 65 78 74 3d a3 0d  |char<151 text=..|
00000200  01 54 16 e7 63 68 61 72  3d 31 35 33 8c 62 61 73  |.T..char=153.bas|
00000210  65 3d 31 32 38 0d 01 5e  16 e7 63 68 61 72 3d 31  |e=128..^..char=1|
00000220  35 34 8c 62 61 73 65 3d  31 34 34 0d 01 68 1c e7  |54.base=144..h..|
00000230  63 68 61 72 3e 31 32 37  80 63 68 61 72 3c 31 36  |char>127.char<16|
00000240  30 8c f2 63 6f 64 65 0d  01 72 1b 20 78 25 3d 33  |0..code..r. x%=3|
00000250  32 2a 58 25 3a 79 25 3d  28 32 37 2d 59 25 29 2a  |2*X%:y%=(27-Y%)*|
00000260  33 36 0d 01 7c 15 e7 73  63 61 6e 25 3d 31 8c 79  |36..|..scan%=1.y|
00000270  25 3d 79 25 2d 31 32 0d  01 86 1b e7 74 65 78 74  |%=y%-12.....text|
00000280  8c f2 70 74 65 78 74 8b  f2 70 67 72 61 70 68 69  |..ptext..pgraphi|
00000290  63 73 0d 01 90 15 ed 2c  2c 3a ef 34 3a e7 6d 72  |cs.....,,:.4:.mr|
000002a0  62 25 e5 8d 74 78 41 0d  01 ae 30 d6 28 90 2d 26  |b%..txA...0.(.-&|
000002b0  31 30 45 29 3a 3f 26 46  45 30 37 3d 3f 26 32 38  |10E):?&FE07=?&28|
000002c0  32 3a ff 22 46 58 31 37  38 2c 32 35 35 22 3a 2a  |2:."FX178,255":*|
000002d0  46 58 31 31 35 2c 30 0d  01 b8 10 e7 5a 24 3d 22  |FX115,0.....Z$="|
000002e0  50 22 e5 8d 64 56 41 0d  01 c2 39 e7 6d 72 62 25  |P"..dVA...9.mrb%|
000002f0  3d 26 38 30 f2 6d 72 62  73 28 22 53 43 52 22 2c  |=&80.mrbs("SCR",|
00000300  26 33 30 30 30 2c 26 38  30 30 30 29 8b ff 22 53  |&3000,&8000).."S|
00000310  2e 53 43 52 20 33 30 30  30 20 2b 35 30 30 30 22  |.SCR 3000 +5000"|
00000320  0d 01 cc 0b 2a 2f 21 42  6f 6f 74 0d 01 d1 05 e0  |....*/!Boot.....|
00000330  0d 01 d6 0b 2a 2f 53 44  75 6d 70 0d 01 e0 0b 2a  |....*/SDump....*|
00000340  2f 21 42 6f 6f 74 0d 01  e5 05 e0 0d 01 ea 1f dd  |/!Boot..........|
00000350  f2 76 61 72 3a de 75 73  65 72 20 33 2c 73 63 72  |.var:.user 3,scr|
00000360  65 65 6e 20 31 31 30 30  3a e1 0d 02 12 21 dd f2  |een 1100:....!..|
00000370  70 74 65 78 74 3a e7 73  63 61 6e 25 3d 31 8c f2  |ptext:.scan%=1..|
00000380  70 72 69 6e 74 28 33 32  29 3a e1 0d 02 26 15 e7  |print(32):...&..|
00000390  63 68 61 72 3d 31 36 33  8c 63 68 61 72 3d 39 36  |char=163.char=96|
000003a0  0d 02 30 15 e7 63 68 61  72 3d 32 32 33 8c 63 68  |..0..char=223.ch|
000003b0  61 72 3d 33 35 0d 02 3a  15 e7 63 68 61 72 3d 32  |ar=35..:..char=2|
000003c0  32 34 8c 63 68 61 72 3d  39 35 0d 02 44 20 63 68  |24.char=95..D ch|
000003d0  61 72 3d 63 68 61 72 80  26 37 46 3a f2 70 72 69  |ar=char.&7F:.pri|
000003e0  6e 74 28 63 68 61 72 29  3a e1 0d 02 6c 2d dd f2  |nt(char):...l-..|
000003f0  70 67 72 61 70 68 69 63  73 3a e7 73 63 61 6e 25  |pgraphics:.scan%|
00000400  3d 30 f2 67 72 61 70 68  69 63 73 31 8b f2 67 72  |=0.graphics1..gr|
00000410  61 70 68 69 63 73 32 0d  02 80 05 e1 0d 02 94 2e  |aphics2.........|
00000420  dd f2 67 72 61 70 68 69  63 73 31 3a e7 63 68 61  |..graphics1:.cha|
00000430  72 3d 33 35 84 63 68 61  72 3d 32 32 33 8c f2 70  |r=35.char=223..p|
00000440  72 69 6e 74 28 33 35 29  3a e1 0d 02 a8 3a f2 73  |rint(35):....:.s|
00000450  77 61 70 65 6d 3a e7 69  6e 64 65 78 3d 34 84 69  |wapem:.index=4.i|
00000460  6e 64 65 78 3d 35 8c f2  70 74 65 78 74 8b f2 70  |ndex=5..ptext..p|
00000470  72 69 6e 74 28 62 61 73  65 2b 28 63 68 61 72 83  |rint(base+(char.|
00000480  31 36 29 29 0d 02 bc 05  e1 0d 02 d0 3b dd f2 67  |16))........;..g|
00000490  72 61 70 68 69 63 73 32  3a f2 73 77 61 70 65 6d  |raphics2:.swapem|
000004a0  3a e7 69 6e 64 65 78 3d  32 84 69 6e 64 65 78 3d  |:.index=2.index=|
000004b0  34 84 69 6e 64 65 78 3d  35 8c f2 70 72 69 6e 74  |4.index=5..print|
000004c0  28 33 32 29 0d 02 ee 1b  e7 69 6e 64 65 78 3d 33  |(32).....index=3|
000004d0  8c f2 70 72 69 6e 74 28  62 61 73 65 2b 34 29 0d  |..print(base+4).|
000004e0  02 f8 1b e7 69 6e 64 65  78 3d 36 8c f2 70 72 69  |....index=6..pri|
000004f0  6e 74 28 62 61 73 65 2b  38 29 0d 03 02 1c e7 69  |nt(base+8).....i|
00000500  6e 64 65 78 3d 37 8c f2  70 72 69 6e 74 28 62 61  |ndex=7..print(ba|
00000510  73 65 2b 31 32 29 0d 03  0c 05 e1 0d 03 20 1d dd  |se+12)....... ..|
00000520  f2 73 77 61 70 65 6d 3a  e7 63 68 61 72 3d 39 36  |.swapem:.char=96|
00000530  8c 63 68 61 72 3d 33 35  0d 03 34 14 e7 63 68 61  |.char=35..4..cha|
00000540  72 3d 39 35 8c 63 68 61  72 3d 39 36 0d 03 3e 21  |r=95.char=96..>!|
00000550  63 68 61 72 3d 63 68 61  72 80 26 37 46 3a 69 6e  |char=char.&7F:in|
00000560  64 65 78 3d 63 68 61 72  81 31 36 3a e1 0d 03 66  |dex=char.16:...f|
00000570  61 dd f2 70 72 69 6e 74  28 63 29 3a 21 26 37 30  |a..print(c):!&70|
00000580  3d 78 25 3a 21 26 37 32  3d 79 25 3a 21 26 37 34  |=x%:!&72=y%:!&74|
00000590  3d 79 25 2d 31 32 3a 3f  26 37 36 3d 62 61 63 6b  |=y%-12:?&76=back|
000005a0  63 6f 6c 3a 3f 26 37 37  3d 66 6f 72 65 63 6f 6c  |col:?&77=forecol|
000005b0  3a 3f 26 37 38 3d 63 3a  3f 26 37 39 3d 73 63 61  |:?&78=c:?&79=sca|
000005c0  6e 25 3a d6 28 90 2d 26  32 30 30 29 3a e1 0d 03  |n%:.(.-&200):...|
000005d0  8e 2e dd f2 63 6f 64 65  3a e7 63 68 61 72 3e 31  |....code:.char>1|
000005e0  32 38 80 63 68 61 72 3c  31 33 36 20 66 6f 72 65  |28.char<136 fore|
000005f0  63 6f 6c 3d 63 68 61 72  2d 31 32 38 0d 03 a2 27  |col=char-128...'|
00000600  e7 63 68 61 72 3e 31 34  34 80 63 68 61 72 3c 31  |.char>144.char<1|
00000610  35 32 20 66 6f 72 65 63  6f 6c 3d 63 68 61 72 2d  |52 forecol=char-|
00000620  31 34 34 0d 03 ac 45 e7  63 68 61 72 3e 31 32 38  |144...E.char>128|
00000630  80 63 68 61 72 3c 31 33  36 80 73 63 72 65 65 6e  |.char<136.screen|
00000640  3f 28 59 25 2a 34 30 2b  58 25 2b 31 29 3d 31 35  |?(Y%*40+X%+1)=15|
00000650  37 20 62 61 63 6b 63 6f  6c 3d 63 68 61 72 2d 31  |7 backcol=char-1|
00000660  32 38 3a e5 8d 64 4a 43  0d 03 b6 45 e7 63 68 61  |28:..dJC...E.cha|
00000670  72 3e 31 34 34 80 63 68  61 72 3c 31 35 32 80 73  |r>144.char<152.s|
00000680  63 72 65 65 6e 3f 28 59  25 2a 34 30 2b 58 25 2b  |creen?(Y%*40+X%+|
00000690  31 29 3d 31 35 37 20 62  61 63 6b 63 6f 6c 3d 63  |1)=157 backcol=c|
000006a0  68 61 72 2d 31 34 34 3a  e5 8d 64 4a 43 0d 03 c0  |har-144:..dJC...|
000006b0  17 e7 63 68 61 72 3d 31  35 36 20 62 61 63 6b 63  |..char=156 backc|
000006c0  6f 6c 3d 30 0d 03 ca 0d  63 68 61 72 3d 33 32 3a  |ol=0....char=32:|
000006d0  e1 0d 03 de 3f dd f2 6d  6f 64 65 37 3a 6d 37 61  |....?..mode7:m7a|
000006e0  64 72 25 3d 90 2d 26 31  30 30 3a ff 22 4c 2e 4d  |dr%=.-&100:."L.M|
000006f0  4f 44 45 37 20 22 2b c3  7e 6d 37 61 64 72 25 3a  |ODE7 "+.~m7adr%:|
00000700  d6 6d 37 61 64 72 25 3a  2a 4c 2e 53 4d 41 4c 4c  |.m7adr%:*L.SMALL|
00000710  0d 04 4c 05 e1 0d 04 60  61 dd f2 6d 72 62 73 28  |..L....`a..mrbs(|
00000720  66 24 2c 73 25 2c 65 25  29 3a e3 70 25 3d 30 b8  |f$,s%,e%):.p%=0.|
00000730  32 88 32 3a 50 25 3d 90  2d 26 38 30 3a 5b 4f 50  |2.2:P%=.-&80:[OP|
00000740  54 70 25 3a 2e 73 74 20  4c 44 41 23 26 38 30 3a  |Tp%:.st LDA#&80:|
00000750  4c 44 58 23 66 6e 20 83  32 35 36 3a 4c 44 59 23  |LDX#fn .256:LDY#|
00000760  66 6e 20 81 32 35 36 3a  4a 53 52 26 46 46 43 45  |fn .256:JSR&FFCE|
00000770  3a 53 54 41 68 6e 0d 04  7f e4 2e 6c 20 4c 44 58  |:STAhn.....l LDX|
00000780  20 61 64 25 3a 4c 44 59  20 61 64 25 2b 31 3a 43  | ad%:LDY ad%+1:C|
00000790  4c 56 3a 4a 53 52 26 46  42 46 44 3a 4c 44 59 20  |LV:JSR&FBFD:LDY |
000007a0  68 6e 3a 4a 53 52 20 26  46 46 44 34 3a 49 4e 43  |hn:JSR &FFD4:INC|
000007b0  20 61 64 25 3a 42 4e 45  20 6f 31 3a 49 4e 43 20  | ad%:BNE o1:INC |
000007c0  61 64 25 2b 31 3a 2e 6f  31 20 4c 44 41 20 61 64  |ad%+1:.o1 LDA ad|
000007d0  25 2b 31 3a 43 4d 50 23  65 25 81 32 35 36 3a 42  |%+1:CMP#e%.256:B|
000007e0  4e 45 20 6c 3a 4c 44 41  20 61 64 25 3a 43 4d 50  |NE l:LDA ad%:CMP|
000007f0  23 65 25 83 32 35 36 3a  42 4e 45 20 6c 3a 4c 44  |#e%.256:BNE l:LD|
00000800  41 23 30 3a 4c 44 59 68  6e 3a 4a 53 52 26 46 46  |A#0:LDYhn:JSR&FF|
00000810  43 45 3a 4c 44 58 23 62  6c 20 83 32 35 36 3a 4c  |CE:LDX#bl .256:L|
00000820  44 59 23 62 6c 20 81 32  35 36 3a 4c 44 41 23 32  |DY#bl .256:LDA#2|
00000830  3a 4a 4d 50 26 46 46 44  44 3a 2e 61 64 25 20 45  |:JMP&FFDD:.ad% E|
00000840  51 55 57 73 25 3a 2e 68  6e 20 45 51 55 57 30 3a  |QUWs%:.hn EQUW0:|
00000850  2e 66 6e 20 45 51 55 53  66 24 0d 04 80 27 45 51  |.fn EQUSf$...'EQ|
00000860  55 42 31 33 3a 2e 62 6c  20 45 51 55 57 20 66 6e  |UB13:.bl EQUW fn|
00000870  3a 45 51 55 57 73 25 3a  5d 3a ed 3a d6 73 74 3a  |:EQUWs%:]:.:.st:|
00000880  e1 0d ff                                          |...|
00000883