�"��
�"���        FONT MASTER
�"���    (c) Roxeysoft 1988
(�"���       Mike Rawlings
2�"��
<�"��
F"�"���  For all Acorn computers
P�"���     running BBC Basic
Z�"��
d�"��
n�"���     *TYPE FONTINF For
x�"���       Full details
��"��
�:
�:
��
�e�AA(7,7),A 50:@%=3:�4:�19,0,4,0,0,0:�curs(0):�2,15)"Storing character definition No.":�roxey(31)
���W=0�223:�35,15)W+32:X%=A �256:Y%=A �256:A%=10:?A=W+32:�&FFF1:!(&5000+W*8)=!(A+1):!(&5004+W*8)=!(A+5):�:�:�23,0,10,96,0;0;0;23,0,11,6,0;0;0;:�curs(0)
���box(504,836,772,572):�box(500,840,776,568):�box(496,844,780,564):�box(32,532,1244,44):�box(32,844,504,564):�box(364,844,1244,564)
Ȍ�3,31)"Press escape to save setup program"�26,7)"Use cursor"�27,8)"keys to"�25,9)"select pixel"�25,11)"Use space bar"�27,12)"to change"
�@�W=32�255�16:�2,14+W/16)W:�Y=0�15:�Y*2+7,14+W/16)�(W+Y):�,
�P�head:�23,225,0,0,0,0,0,0,0,0,23,226,254,254,254,254,254,254,254,0:�roxey(4)
���DhA
�
�:*FX4
�a�curs(1):�2,7)"Character"�2,8)"number"�2,9)�8:��2,10)�9�2,10);:�input(3):�A?5>57 �A?5<48 �0

�X=�$(A+5):�X<256 �X>31 �X<>127:�curs(0):X=X-32:�W=0�7:�12,6+W)�3�12,6+W)?(&5000+X*8+W):Z=128:�Y=0�7:B=(?(&5000+X*8+W)�Z)�Z:�31,16+Y,6+W,225-(B=1):Z=Z/2:AA(W,Y)=B:�,:�define(224,X)

v�2,12)�3�2,12)X+32�7,12)�224:�2,7)"Press"�4�2,8)"return"�2,9)"for next"�2,10)"character":W=0:Y=0:�31,16,6:*FX4,1

�curs(1):�D=�

"�D=139 �W<>0 �11:W=W-1

,�D=138 �W<>7 �10:W=W+1

6�D=136 �Y<>0 �8:Y=Y-1

@�D=137 �Y<>7 �9:Y=Y+1

J�D<>32 �D=13:�0

T�AA(W,Y)=AA(W,Y)�1:�curs(0):�31,16+Y,6+W,225-(AA(W,Y)=1):B=0:Z=128:�C=0�7:B=B+Z*-(AA(W,C)=1):Z=Z/2:�:?(&5000+X*8+W)=B:�define(224,X):�(X �16)*2+7,16+(X �16))�224

^;�7,12)�224�12,6+W)�3�12,6+W)B:�31,16+Y,6+W:�curs(1):�0

h*FX4

r"�<>17 �7:�:�:�" at line ";�:�

|��:�curs(0):�head:�2,15)"Coding character definition No.":�roxey(31):?&3000=13:P%=&3001:�X=32�255:�34,15)X:?P%=((X-29)*10)�256:?(P%+1)=((X-29)*10)�256:A$="23,"+�(X)

�h�W=0�7:A$=A$+","+�(?(&5000+(X-32)*8+W)):�:?(P%+2)=�A$+5:?(P%+3)=&EF:$(P%+4)=A$:P%=P%+5+�A$:�:?P%=&FF

�'��''�6"Program Filename";:�input(7)

�"�"����FOR ADFS CHANGE LINE 400

�;� 400REPEATPRINT''SPC3"Program Filename";:PROCinput(10)

�:

���$(A+5)<>"":$A="SAVE "+$(A+5)+" 3000 "+�~(P%+1)+" FFFF8023 FFFF1900":X%=A �256:Y%=A �256:�&FFF7:�7:�W=224�254:�define(W,W-32):�:�

��63,63,60,60,60,60,63,63

��252,252,0,0,0,0,240,240

��15,15,60,60,60,60,60,60

��240,240,60,60,60,60,60,60

��60,60,60,60,63,63,63,63

��60,60,60,60,60,60,252,252

��63,63,3,3,3,3,3,3
$�252,252,192,192,192,192,192,192
�60,60,63,63,63,63,60,60
 �15,15,63,63,255,255,207,207
&�15,15,60,60,60,60,63,63
0 �240,240,60,60,60,60,252,252
:�15,15,60,60,60,60,15,15
D�240,240,60,60,0,0,240,240
N�0,0,0,0,252,252,0,0
X �240,240,60,60,60,60,240,240
b�60,60,60,60,60,60,0,0
l�240,240,60,60,60,60,0,0
v�60,60,60,60,15,15,0,0
��60,60,60,60,240,240,0,0
��60,60,60,60,60,60,0,0
��252,252,60,60,60,60,0,0
��3,3,3,3,3,3,0,0
� �192,192,192,192,192,192,0,0
��60,60,60,60,60,60,0,0
��207,207,15,15,15,15,0,0
��60,60,60,60,60,60,0,0
��60,60,60,60,60,60,0,0
��0,0,60,60,15,15,0,0
��60,60,60,60,240,240,0,0
��56,56,56,56,63,63,0,0
�x��input(B):X%=A �256:Y%=A �256:A%=0:?A=(A+5)�256:A?1=(A+5)�256:A?2=B:A?3=32:A?4=127:�" ?"�(B+1)"|"�B+1,�8);:�&FFF1:�
2��define(B,C):�23,B:�Z=0�7:�?(&5000+C*8+Z):�:�
���head:�:�W=224�254:�23,W:�Y=0�7:�X:�X:�,:�31,4,1,224,225,32,226,227,32,228,229,32,230,231,32,32,32,32,232,233,32,234,235,32,236,237,32,230,231,32,224,225,32,224,239
��31,4,2,240,32,32,242,243,32,244,245,32,246,247,32,32,32,32,248,249,32,250,251,32,252,253,32,246,247,32,254,238,32,240,241:�
 ��curs(B):�23,1,B;0;0;0;:�
*-��box(B,C,D,E):�B,C:�D,C:�D,E:�B,E:�B,C:�
4-��roxey(B):�11,B)"(c) Roxeysoft 1988";:�
�

00000000  0d 00 0a 08 f4 22 86 9d  0d 00 14 1c f4 22 86 9d  |....."......."..|
00000010  84 20 20 20 20 20 20 20  20 46 4f 4e 54 20 4d 41  |.        FONT MA|
00000020  53 54 45 52 0d 00 1e 1f  f4 22 86 9d 84 20 20 20  |STER....."...   |
00000030  20 28 63 29 20 52 6f 78  65 79 73 6f 66 74 20 31  | (c) Roxeysoft 1|
00000040  39 38 38 0d 00 28 1d f4  22 86 9d 84 20 20 20 20  |988..(.."...    |
00000050  20 20 20 4d 69 6b 65 20  52 61 77 6c 69 6e 67 73  |   Mike Rawlings|
00000060  0d 00 32 08 f4 22 86 9d  0d 00 3c 08 f4 22 83 9d  |..2.."....<.."..|
00000070  0d 00 46 22 f4 22 83 9d  81 20 20 46 6f 72 20 61  |..F"."...  For a|
00000080  6c 6c 20 41 63 6f 72 6e  20 63 6f 6d 70 75 74 65  |ll Acorn compute|
00000090  72 73 0d 00 50 1f f4 22  83 9d 81 20 20 20 20 20  |rs..P.."...     |
000000a0  72 75 6e 6e 69 6e 67 20  42 42 43 20 42 61 73 69  |running BBC Basi|
000000b0  63 0d 00 5a 08 f4 22 83  9d 0d 00 64 08 f4 22 84  |c..Z.."....d..".|
000000c0  9d 0d 00 6e 1f f4 22 84  9d 87 20 20 20 20 20 2a  |...n.."...     *|
000000d0  54 59 50 45 20 46 4f 4e  54 49 4e 46 20 46 6f 72  |TYPE FONTINF For|
000000e0  0d 00 78 1c f4 22 84 9d  87 20 20 20 20 20 20 20  |..x.."...       |
000000f0  46 75 6c 6c 20 64 65 74  61 69 6c 73 0d 00 82 08  |Full details....|
00000100  f4 22 84 9d 0d 00 8c 05  3a 0d 00 96 05 3a 0d 00  |."......:....:..|
00000110  a0 07 ee 85 f9 0d 00 aa  65 de 41 41 28 37 2c 37  |........e.AA(7,7|
00000120  29 2c 41 20 35 30 3a 40  25 3d 33 3a eb 34 3a ef  |),A 50:@%=3:.4:.|
00000130  31 39 2c 30 2c 34 2c 30  2c 30 2c 30 3a f2 63 75  |19,0,4,0,0,0:.cu|
00000140  72 73 28 30 29 3a f1 8a  32 2c 31 35 29 22 53 74  |rs(0):..2,15)"St|
00000150  6f 72 69 6e 67 20 63 68  61 72 61 63 74 65 72 20  |oring character |
00000160  64 65 66 69 6e 69 74 69  6f 6e 20 4e 6f 2e 22 3a  |definition No.":|
00000170  f2 72 6f 78 65 79 28 33  31 29 0d 00 b4 9a e3 57  |.roxey(31).....W|
00000180  3d 30 b8 32 32 33 3a f1  8a 33 35 2c 31 35 29 57  |=0.223:..35,15)W|
00000190  2b 33 32 3a 58 25 3d 41  20 83 32 35 36 3a 59 25  |+32:X%=A .256:Y%|
000001a0  3d 41 20 81 32 35 36 3a  41 25 3d 31 30 3a 3f 41  |=A .256:A%=10:?A|
000001b0  3d 57 2b 33 32 3a d6 26  46 46 46 31 3a 21 28 26  |=W+32:.&FFF1:!(&|
000001c0  35 30 30 30 2b 57 2a 38  29 3d 21 28 41 2b 31 29  |5000+W*8)=!(A+1)|
000001d0  3a 21 28 26 35 30 30 34  2b 57 2a 38 29 3d 21 28  |:!(&5004+W*8)=!(|
000001e0  41 2b 35 29 3a ed 3a db  3a ef 32 33 2c 30 2c 31  |A+5):.:.:.23,0,1|
000001f0  30 2c 39 36 2c 30 3b 30  3b 30 3b 32 33 2c 30 2c  |0,96,0;0;0;23,0,|
00000200  31 31 2c 36 2c 30 3b 30  3b 30 3b 3a f2 63 75 72  |11,6,0;0;0;:.cur|
00000210  73 28 30 29 0d 00 be 86  f2 62 6f 78 28 35 30 34  |s(0).....box(504|
00000220  2c 38 33 36 2c 37 37 32  2c 35 37 32 29 3a f2 62  |,836,772,572):.b|
00000230  6f 78 28 35 30 30 2c 38  34 30 2c 37 37 36 2c 35  |ox(500,840,776,5|
00000240  36 38 29 3a f2 62 6f 78  28 34 39 36 2c 38 34 34  |68):.box(496,844|
00000250  2c 37 38 30 2c 35 36 34  29 3a f2 62 6f 78 28 33  |,780,564):.box(3|
00000260  32 2c 35 33 32 2c 31 32  34 34 2c 34 34 29 3a f2  |2,532,1244,44):.|
00000270  62 6f 78 28 33 32 2c 38  34 34 2c 35 30 34 2c 35  |box(32,844,504,5|
00000280  36 34 29 3a f2 62 6f 78  28 33 36 34 2c 38 34 34  |64):.box(364,844|
00000290  2c 31 32 34 34 2c 35 36  34 29 0d 00 c8 8c f1 8a  |,1244,564)......|
000002a0  33 2c 33 31 29 22 50 72  65 73 73 20 65 73 63 61  |3,31)"Press esca|
000002b0  70 65 20 74 6f 20 73 61  76 65 20 73 65 74 75 70  |pe to save setup|
000002c0  20 70 72 6f 67 72 61 6d  22 8a 32 36 2c 37 29 22  | program".26,7)"|
000002d0  55 73 65 20 63 75 72 73  6f 72 22 8a 32 37 2c 38  |Use cursor".27,8|
000002e0  29 22 6b 65 79 73 20 74  6f 22 8a 32 35 2c 39 29  |)"keys to".25,9)|
000002f0  22 73 65 6c 65 63 74 20  70 69 78 65 6c 22 8a 32  |"select pixel".2|
00000300  35 2c 31 31 29 22 55 73  65 20 73 70 61 63 65 20  |5,11)"Use space |
00000310  62 61 72 22 8a 32 37 2c  31 32 29 22 74 6f 20 63  |bar".27,12)"to c|
00000320  68 61 6e 67 65 22 0d 00  d2 40 e3 57 3d 33 32 b8  |hange"...@.W=32.|
00000330  32 35 35 88 31 36 3a f1  8a 32 2c 31 34 2b 57 2f  |255.16:..2,14+W/|
00000340  31 36 29 57 3a e3 59 3d  30 b8 31 35 3a f1 8a 59  |16)W:.Y=0.15:..Y|
00000350  2a 32 2b 37 2c 31 34 2b  57 2f 31 36 29 bd 28 57  |*2+7,14+W/16).(W|
00000360  2b 59 29 3a ed 2c 0d 00  dc 50 f2 68 65 61 64 3a  |+Y):.,...P.head:|
00000370  ef 32 33 2c 32 32 35 2c  30 2c 30 2c 30 2c 30 2c  |.23,225,0,0,0,0,|
00000380  30 2c 30 2c 30 2c 30 2c  32 33 2c 32 32 36 2c 32  |0,0,0,0,23,226,2|
00000390  35 34 2c 32 35 34 2c 32  35 34 2c 32 35 34 2c 32  |54,254,254,254,2|
000003a0  35 34 2c 32 35 34 2c 32  35 34 2c 30 3a f2 72 6f  |54,254,254,0:.ro|
000003b0  78 65 79 28 34 29 0d 00  e6 0b ee 85 e5 8d 44 68  |xey(4)........Dh|
000003c0  41 0d 00 f0 0a f5 3a 2a  46 58 34 0d 00 fa 61 f2  |A.....:*FX4...a.|
000003d0  63 75 72 73 28 31 29 3a  f1 8a 32 2c 37 29 22 43  |curs(1):..2,7)"C|
000003e0  68 61 72 61 63 74 65 72  22 8a 32 2c 38 29 22 6e  |haracter".2,8)"n|
000003f0  75 6d 62 65 72 22 8a 32  2c 39 29 89 38 3a f5 f1  |umber".2,9).8:..|
00000400  8a 32 2c 31 30 29 89 39  8a 32 2c 31 30 29 3b 3a  |.2,10).9.2,10);:|
00000410  f2 69 6e 70 75 74 28 33  29 3a e7 41 3f 35 3e 35  |.input(3):.A?5>5|
00000420  37 20 84 41 3f 35 3c 34  38 20 fd 30 0d 01 04 b8  |7 .A?5<48 .0....|
00000430  58 3d a0 24 28 41 2b 35  29 3a fd 58 3c 32 35 36  |X=.$(A+5):.X<256|
00000440  20 80 58 3e 33 31 20 80  58 3c 3e 31 32 37 3a f2  | .X>31 .X<>127:.|
00000450  63 75 72 73 28 30 29 3a  58 3d 58 2d 33 32 3a e3  |curs(0):X=X-32:.|
00000460  57 3d 30 b8 37 3a f1 8a  31 32 2c 36 2b 57 29 89  |W=0.7:..12,6+W).|
00000470  33 8a 31 32 2c 36 2b 57  29 3f 28 26 35 30 30 30  |3.12,6+W)?(&5000|
00000480  2b 58 2a 38 2b 57 29 3a  5a 3d 31 32 38 3a e3 59  |+X*8+W):Z=128:.Y|
00000490  3d 30 b8 37 3a 42 3d 28  3f 28 26 35 30 30 30 2b  |=0.7:B=(?(&5000+|
000004a0  58 2a 38 2b 57 29 80 5a  29 81 5a 3a ef 33 31 2c  |X*8+W).Z).Z:.31,|
000004b0  31 36 2b 59 2c 36 2b 57  2c 32 32 35 2d 28 42 3d  |16+Y,6+W,225-(B=|
000004c0  31 29 3a 5a 3d 5a 2f 32  3a 41 41 28 57 2c 59 29  |1):Z=Z/2:AA(W,Y)|
000004d0  3d 42 3a ed 2c 3a f2 64  65 66 69 6e 65 28 32 32  |=B:.,:.define(22|
000004e0  34 2c 58 29 0d 01 0e 76  f1 8a 32 2c 31 32 29 89  |4,X)...v..2,12).|
000004f0  33 8a 32 2c 31 32 29 58  2b 33 32 8a 37 2c 31 32  |3.2,12)X+32.7,12|
00000500  29 bd 32 32 34 3a f1 8a  32 2c 37 29 22 50 72 65  |).224:..2,7)"Pre|
00000510  73 73 22 89 34 8a 32 2c  38 29 22 72 65 74 75 72  |ss".4.2,8)"retur|
00000520  6e 22 8a 32 2c 39 29 22  66 6f 72 20 6e 65 78 74  |n".2,9)"for next|
00000530  22 8a 32 2c 31 30 29 22  63 68 61 72 61 63 74 65  |".2,10)"characte|
00000540  72 22 3a 57 3d 30 3a 59  3d 30 3a ef 33 31 2c 31  |r":W=0:Y=0:.31,1|
00000550  36 2c 36 3a 2a 46 58 34  2c 31 0d 01 18 11 f2 63  |6,6:*FX4,1.....c|
00000560  75 72 73 28 31 29 3a f5  44 3d a5 0d 01 22 1a e7  |urs(1):.D=..."..|
00000570  44 3d 31 33 39 20 80 57  3c 3e 30 20 ef 31 31 3a  |D=139 .W<>0 .11:|
00000580  57 3d 57 2d 31 0d 01 2c  1a e7 44 3d 31 33 38 20  |W=W-1..,..D=138 |
00000590  80 57 3c 3e 37 20 ef 31  30 3a 57 3d 57 2b 31 0d  |.W<>7 .10:W=W+1.|
000005a0  01 36 19 e7 44 3d 31 33  36 20 80 59 3c 3e 30 20  |.6..D=136 .Y<>0 |
000005b0  ef 38 3a 59 3d 59 2d 31  0d 01 40 19 e7 44 3d 31  |.8:Y=Y-1..@..D=1|
000005c0  33 37 20 80 59 3c 3e 37  20 ef 39 3a 59 3d 59 2b  |37 .Y<>7 .9:Y=Y+|
000005d0  31 0d 01 4a 13 e7 44 3c  3e 33 32 20 fd 44 3d 31  |1..J..D<>32 .D=1|
000005e0  33 3a fd 30 0d 01 54 a5  41 41 28 57 2c 59 29 3d  |3:.0..T.AA(W,Y)=|
000005f0  41 41 28 57 2c 59 29 82  31 3a f2 63 75 72 73 28  |AA(W,Y).1:.curs(|
00000600  30 29 3a ef 33 31 2c 31  36 2b 59 2c 36 2b 57 2c  |0):.31,16+Y,6+W,|
00000610  32 32 35 2d 28 41 41 28  57 2c 59 29 3d 31 29 3a  |225-(AA(W,Y)=1):|
00000620  42 3d 30 3a 5a 3d 31 32  38 3a e3 43 3d 30 b8 37  |B=0:Z=128:.C=0.7|
00000630  3a 42 3d 42 2b 5a 2a 2d  28 41 41 28 57 2c 43 29  |:B=B+Z*-(AA(W,C)|
00000640  3d 31 29 3a 5a 3d 5a 2f  32 3a ed 3a 3f 28 26 35  |=1):Z=Z/2:.:?(&5|
00000650  30 30 30 2b 58 2a 38 2b  57 29 3d 42 3a f2 64 65  |000+X*8+W)=B:.de|
00000660  66 69 6e 65 28 32 32 34  2c 58 29 3a f1 8a 28 58  |fine(224,X):..(X|
00000670  20 83 31 36 29 2a 32 2b  37 2c 31 36 2b 28 58 20  | .16)*2+7,16+(X |
00000680  81 31 36 29 29 bd 32 32  34 0d 01 5e 3b f1 8a 37  |.16)).224..^;..7|
00000690  2c 31 32 29 bd 32 32 34  8a 31 32 2c 36 2b 57 29  |,12).224.12,6+W)|
000006a0  89 33 8a 31 32 2c 36 2b  57 29 42 3a ef 33 31 2c  |.3.12,6+W)B:.31,|
000006b0  31 36 2b 59 2c 36 2b 57  3a f2 63 75 72 73 28 31  |16+Y,6+W:.curs(1|
000006c0  29 3a fd 30 0d 01 68 08  2a 46 58 34 0d 01 72 22  |):.0..h.*FX4..r"|
000006d0  e7 9f 3c 3e 31 37 20 eb  37 3a f1 3a f6 3a f1 22  |..<>17 .7:.:.:."|
000006e0  20 61 74 20 6c 69 6e 65  20 22 3b 9e 3a e0 0d 01  | at line ";.:...|
000006f0  7c a9 db 3a f2 63 75 72  73 28 30 29 3a f2 68 65  ||..:.curs(0):.he|
00000700  61 64 3a f1 8a 32 2c 31  35 29 22 43 6f 64 69 6e  |ad:..2,15)"Codin|
00000710  67 20 63 68 61 72 61 63  74 65 72 20 64 65 66 69  |g character defi|
00000720  6e 69 74 69 6f 6e 20 4e  6f 2e 22 3a f2 72 6f 78  |nition No.":.rox|
00000730  65 79 28 33 31 29 3a 3f  26 33 30 30 30 3d 31 33  |ey(31):?&3000=13|
00000740  3a 50 25 3d 26 33 30 30  31 3a e3 58 3d 33 32 b8  |:P%=&3001:.X=32.|
00000750  32 35 35 3a f1 8a 33 34  2c 31 35 29 58 3a 3f 50  |255:..34,15)X:?P|
00000760  25 3d 28 28 58 2d 32 39  29 2a 31 30 29 81 32 35  |%=((X-29)*10).25|
00000770  36 3a 3f 28 50 25 2b 31  29 3d 28 28 58 2d 32 39  |6:?(P%+1)=((X-29|
00000780  29 2a 31 30 29 83 32 35  36 3a 41 24 3d 22 32 33  |)*10).256:A$="23|
00000790  2c 22 2b c3 28 58 29 0d  01 86 68 e3 57 3d 30 b8  |,"+.(X)...h.W=0.|
000007a0  37 3a 41 24 3d 41 24 2b  22 2c 22 2b c3 28 3f 28  |7:A$=A$+","+.(?(|
000007b0  26 35 30 30 30 2b 28 58  2d 33 32 29 2a 38 2b 57  |&5000+(X-32)*8+W|
000007c0  29 29 3a ed 3a 3f 28 50  25 2b 32 29 3d a9 41 24  |)):.:?(P%+2)=.A$|
000007d0  2b 35 3a 3f 28 50 25 2b  33 29 3d 26 45 46 3a 24  |+5:?(P%+3)=&EF:$|
000007e0  28 50 25 2b 34 29 3d 41  24 3a 50 25 3d 50 25 2b  |(P%+4)=A$:P%=P%+|
000007f0  35 2b a9 41 24 3a ed 3a  3f 50 25 3d 26 46 46 0d  |5+.A$:.:?P%=&FF.|
00000800  01 90 27 f5 f1 27 27 89  36 22 50 72 6f 67 72 61  |..'..''.6"Progra|
00000810  6d 20 46 69 6c 65 6e 61  6d 65 22 3b 3a f2 69 6e  |m Filename";:.in|
00000820  70 75 74 28 37 29 0d 01  9a 22 f4 22 83 9d 81 88  |put(7)..."."....|
00000830  46 4f 52 20 41 44 46 53  20 43 48 41 4e 47 45 20  |FOR ADFS CHANGE |
00000840  4c 49 4e 45 20 34 30 30  0d 01 a4 3b f4 20 34 30  |LINE 400...;. 40|
00000850  30 52 45 50 45 41 54 50  52 49 4e 54 27 27 53 50  |0REPEATPRINT''SP|
00000860  43 33 22 50 72 6f 67 72  61 6d 20 46 69 6c 65 6e  |C3"Program Filen|
00000870  61 6d 65 22 3b 3a 50 52  4f 43 69 6e 70 75 74 28  |ame";:PROCinput(|
00000880  31 30 29 0d 01 ae 05 3a  0d 01 b8 85 fd 24 28 41  |10)....:.....$(A|
00000890  2b 35 29 3c 3e 22 22 3a  24 41 3d 22 53 41 56 45  |+5)<>"":$A="SAVE|
000008a0  20 22 2b 24 28 41 2b 35  29 2b 22 20 33 30 30 30  | "+$(A+5)+" 3000|
000008b0  20 22 2b c3 7e 28 50 25  2b 31 29 2b 22 20 46 46  | "+.~(P%+1)+" FF|
000008c0  46 46 38 30 32 33 20 46  46 46 46 31 39 30 30 22  |FF8023 FFFF1900"|
000008d0  3a 58 25 3d 41 20 83 32  35 36 3a 59 25 3d 41 20  |:X%=A .256:Y%=A |
000008e0  81 32 35 36 3a d6 26 46  46 46 37 3a eb 37 3a e3  |.256:.&FFF7:.7:.|
000008f0  57 3d 32 32 34 b8 32 35  34 3a f2 64 65 66 69 6e  |W=224.254:.defin|
00000900  65 28 57 2c 57 2d 33 32  29 3a ed 3a e0 0d 01 c2  |e(W,W-32):.:....|
00000910  1c dc 36 33 2c 36 33 2c  36 30 2c 36 30 2c 36 30  |..63,63,60,60,60|
00000920  2c 36 30 2c 36 33 2c 36  33 0d 01 cc 1c dc 32 35  |,60,63,63.....25|
00000930  32 2c 32 35 32 2c 30 2c  30 2c 30 2c 30 2c 32 34  |2,252,0,0,0,0,24|
00000940  30 2c 32 34 30 0d 01 d6  1c dc 31 35 2c 31 35 2c  |0,240.....15,15,|
00000950  36 30 2c 36 30 2c 36 30  2c 36 30 2c 36 30 2c 36  |60,60,60,60,60,6|
00000960  30 0d 01 e0 1e dc 32 34  30 2c 32 34 30 2c 36 30  |0.....240,240,60|
00000970  2c 36 30 2c 36 30 2c 36  30 2c 36 30 2c 36 30 0d  |,60,60,60,60,60.|
00000980  01 ea 1c dc 36 30 2c 36  30 2c 36 30 2c 36 30 2c  |....60,60,60,60,|
00000990  36 33 2c 36 33 2c 36 33  2c 36 33 0d 01 f4 1e dc  |63,63,63,63.....|
000009a0  36 30 2c 36 30 2c 36 30  2c 36 30 2c 36 30 2c 36  |60,60,60,60,60,6|
000009b0  30 2c 32 35 32 2c 32 35  32 0d 01 fe 16 dc 36 33  |0,252,252.....63|
000009c0  2c 36 33 2c 33 2c 33 2c  33 2c 33 2c 33 2c 33 0d  |,63,3,3,3,3,3,3.|
000009d0  02 08 24 dc 32 35 32 2c  32 35 32 2c 31 39 32 2c  |..$.252,252,192,|
000009e0  31 39 32 2c 31 39 32 2c  31 39 32 2c 31 39 32 2c  |192,192,192,192,|
000009f0  31 39 32 0d 02 12 1c dc  36 30 2c 36 30 2c 36 33  |192.....60,60,63|
00000a00  2c 36 33 2c 36 33 2c 36  33 2c 36 30 2c 36 30 0d  |,63,63,63,60,60.|
00000a10  02 1c 20 dc 31 35 2c 31  35 2c 36 33 2c 36 33 2c  |.. .15,15,63,63,|
00000a20  32 35 35 2c 32 35 35 2c  32 30 37 2c 32 30 37 0d  |255,255,207,207.|
00000a30  02 26 1c dc 31 35 2c 31  35 2c 36 30 2c 36 30 2c  |.&..15,15,60,60,|
00000a40  36 30 2c 36 30 2c 36 33  2c 36 33 0d 02 30 20 dc  |60,60,63,63..0 .|
00000a50  32 34 30 2c 32 34 30 2c  36 30 2c 36 30 2c 36 30  |240,240,60,60,60|
00000a60  2c 36 30 2c 32 35 32 2c  32 35 32 0d 02 3a 1c dc  |,60,252,252..:..|
00000a70  31 35 2c 31 35 2c 36 30  2c 36 30 2c 36 30 2c 36  |15,15,60,60,60,6|
00000a80  30 2c 31 35 2c 31 35 0d  02 44 1e dc 32 34 30 2c  |0,15,15..D..240,|
00000a90  32 34 30 2c 36 30 2c 36  30 2c 30 2c 30 2c 32 34  |240,60,60,0,0,24|
00000aa0  30 2c 32 34 30 0d 02 4e  18 dc 30 2c 30 2c 30 2c  |0,240..N..0,0,0,|
00000ab0  30 2c 32 35 32 2c 32 35  32 2c 30 2c 30 0d 02 58  |0,252,252,0,0..X|
00000ac0  20 dc 32 34 30 2c 32 34  30 2c 36 30 2c 36 30 2c  | .240,240,60,60,|
00000ad0  36 30 2c 36 30 2c 32 34  30 2c 32 34 30 0d 02 62  |60,60,240,240..b|
00000ae0  1a dc 36 30 2c 36 30 2c  36 30 2c 36 30 2c 36 30  |..60,60,60,60,60|
00000af0  2c 36 30 2c 30 2c 30 0d  02 6c 1c dc 32 34 30 2c  |,60,0,0..l..240,|
00000b00  32 34 30 2c 36 30 2c 36  30 2c 36 30 2c 36 30 2c  |240,60,60,60,60,|
00000b10  30 2c 30 0d 02 76 1a dc  36 30 2c 36 30 2c 36 30  |0,0..v..60,60,60|
00000b20  2c 36 30 2c 31 35 2c 31  35 2c 30 2c 30 0d 02 80  |,60,15,15,0,0...|
00000b30  1c dc 36 30 2c 36 30 2c  36 30 2c 36 30 2c 32 34  |..60,60,60,60,24|
00000b40  30 2c 32 34 30 2c 30 2c  30 0d 02 8a 1a dc 36 30  |0,240,0,0.....60|
00000b50  2c 36 30 2c 36 30 2c 36  30 2c 36 30 2c 36 30 2c  |,60,60,60,60,60,|
00000b60  30 2c 30 0d 02 94 1c dc  32 35 32 2c 32 35 32 2c  |0,0.....252,252,|
00000b70  36 30 2c 36 30 2c 36 30  2c 36 30 2c 30 2c 30 0d  |60,60,60,60,0,0.|
00000b80  02 9e 14 dc 33 2c 33 2c  33 2c 33 2c 33 2c 33 2c  |....3,3,3,3,3,3,|
00000b90  30 2c 30 0d 02 a8 20 dc  31 39 32 2c 31 39 32 2c  |0,0... .192,192,|
00000ba0  31 39 32 2c 31 39 32 2c  31 39 32 2c 31 39 32 2c  |192,192,192,192,|
00000bb0  30 2c 30 0d 02 b2 1a dc  36 30 2c 36 30 2c 36 30  |0,0.....60,60,60|
00000bc0  2c 36 30 2c 36 30 2c 36  30 2c 30 2c 30 0d 02 bc  |,60,60,60,0,0...|
00000bd0  1c dc 32 30 37 2c 32 30  37 2c 31 35 2c 31 35 2c  |..207,207,15,15,|
00000be0  31 35 2c 31 35 2c 30 2c  30 0d 02 c6 1a dc 36 30  |15,15,0,0.....60|
00000bf0  2c 36 30 2c 36 30 2c 36  30 2c 36 30 2c 36 30 2c  |,60,60,60,60,60,|
00000c00  30 2c 30 0d 02 d0 1a dc  36 30 2c 36 30 2c 36 30  |0,0.....60,60,60|
00000c10  2c 36 30 2c 36 30 2c 36  30 2c 30 2c 30 0d 02 da  |,60,60,60,0,0...|
00000c20  18 dc 30 2c 30 2c 36 30  2c 36 30 2c 31 35 2c 31  |..0,0,60,60,15,1|
00000c30  35 2c 30 2c 30 0d 02 e4  1c dc 36 30 2c 36 30 2c  |5,0,0.....60,60,|
00000c40  36 30 2c 36 30 2c 32 34  30 2c 32 34 30 2c 30 2c  |60,60,240,240,0,|
00000c50  30 0d 02 ee 1a dc 35 36  2c 35 36 2c 35 36 2c 35  |0.....56,56,56,5|
00000c60  36 2c 36 33 2c 36 33 2c  30 2c 30 0d 02 f8 78 dd  |6,63,63,0,0...x.|
00000c70  f2 69 6e 70 75 74 28 42  29 3a 58 25 3d 41 20 83  |.input(B):X%=A .|
00000c80  32 35 36 3a 59 25 3d 41  20 81 32 35 36 3a 41 25  |256:Y%=A .256:A%|
00000c90  3d 30 3a 3f 41 3d 28 41  2b 35 29 83 32 35 36 3a  |=0:?A=(A+5).256:|
00000ca0  41 3f 31 3d 28 41 2b 35  29 81 32 35 36 3a 41 3f  |A?1=(A+5).256:A?|
00000cb0  32 3d 42 3a 41 3f 33 3d  33 32 3a 41 3f 34 3d 31  |2=B:A?3=32:A?4=1|
00000cc0  32 37 3a f1 22 20 3f 22  89 28 42 2b 31 29 22 7c  |27:." ?".(B+1)"||
00000cd0  22 c4 42 2b 31 2c bd 38  29 3b 3a d6 26 46 46 46  |".B+1,.8);:.&FFF|
00000ce0  31 3a e1 0d 03 02 32 dd  f2 64 65 66 69 6e 65 28  |1:....2..define(|
00000cf0  42 2c 43 29 3a ef 32 33  2c 42 3a e3 5a 3d 30 b8  |B,C):.23,B:.Z=0.|
00000d00  37 3a ef 3f 28 26 35 30  30 30 2b 43 2a 38 2b 5a  |7:.?(&5000+C*8+Z|
00000d10  29 3a ed 3a e1 0d 03 0c  a9 dd f2 68 65 61 64 3a  |):.:.......head:|
00000d20  f7 3a e3 57 3d 32 32 34  b8 32 35 34 3a ef 32 33  |.:.W=224.254:.23|
00000d30  2c 57 3a e3 59 3d 30 b8  37 3a f3 58 3a ef 58 3a  |,W:.Y=0.7:.X:.X:|
00000d40  ed 2c 3a ef 33 31 2c 34  2c 31 2c 32 32 34 2c 32  |.,:.31,4,1,224,2|
00000d50  32 35 2c 33 32 2c 32 32  36 2c 32 32 37 2c 33 32  |25,32,226,227,32|
00000d60  2c 32 32 38 2c 32 32 39  2c 33 32 2c 32 33 30 2c  |,228,229,32,230,|
00000d70  32 33 31 2c 33 32 2c 33  32 2c 33 32 2c 33 32 2c  |231,32,32,32,32,|
00000d80  32 33 32 2c 32 33 33 2c  33 32 2c 32 33 34 2c 32  |232,233,32,234,2|
00000d90  33 35 2c 33 32 2c 32 33  36 2c 32 33 37 2c 33 32  |35,32,236,237,32|
00000da0  2c 32 33 30 2c 32 33 31  2c 33 32 2c 32 32 34 2c  |,230,231,32,224,|
00000db0  32 32 35 2c 33 32 2c 32  32 34 2c 32 33 39 0d 03  |225,32,224,239..|
00000dc0  16 80 ef 33 31 2c 34 2c  32 2c 32 34 30 2c 33 32  |...31,4,2,240,32|
00000dd0  2c 33 32 2c 32 34 32 2c  32 34 33 2c 33 32 2c 32  |,32,242,243,32,2|
00000de0  34 34 2c 32 34 35 2c 33  32 2c 32 34 36 2c 32 34  |44,245,32,246,24|
00000df0  37 2c 33 32 2c 33 32 2c  33 32 2c 33 32 2c 32 34  |7,32,32,32,32,24|
00000e00  38 2c 32 34 39 2c 33 32  2c 32 35 30 2c 32 35 31  |8,249,32,250,251|
00000e10  2c 33 32 2c 32 35 32 2c  32 35 33 2c 33 32 2c 32  |,32,252,253,32,2|
00000e20  34 36 2c 32 34 37 2c 33  32 2c 32 35 34 2c 32 33  |46,247,32,254,23|
00000e30  38 2c 33 32 2c 32 34 30  2c 32 34 31 3a e1 0d 03  |8,32,240,241:...|
00000e40  20 1e dd f2 63 75 72 73  28 42 29 3a ef 32 33 2c  | ...curs(B):.23,|
00000e50  31 2c 42 3b 30 3b 30 3b  30 3b 3a e1 0d 03 2a 2d  |1,B;0;0;0;:...*-|
00000e60  dd f2 62 6f 78 28 42 2c  43 2c 44 2c 45 29 3a ec  |..box(B,C,D,E):.|
00000e70  42 2c 43 3a df 44 2c 43  3a df 44 2c 45 3a df 42  |B,C:.D,C:.D,E:.B|
00000e80  2c 45 3a df 42 2c 43 3a  e1 0d 03 34 2d dd f2 72  |,E:.B,C:...4-..r|
00000e90  6f 78 65 79 28 42 29 3a  f1 8a 31 31 2c 42 29 22  |oxey(B):..11,B)"|
00000ea0  28 63 29 20 52 6f 78 65  79 73 6f 66 74 20 31 39  |(c) Roxeysoft 19|
00000eb0  38 38 22 3b 3a e1 0d ff                           |88";:...|
00000eb8