*TV255
�5
�23,1,0;0;0;0;
(�SI
2� C(8,8),B(8),V(8),R(8,8)
<�3:�ROMREAD(224):�GRID
F�CALCULATE(224)
Px=32:y=32:�3,5
ZX=1:Y=1
d�:�CURSOR:�CURSOR
n� �-86 �CHANGE
x� �-74 �CALCULATE(0)
�� �-38 �INVERT
�� �-83 �ERASE
�� �-54 �MIRROR
�� �-102 �MIRROR2
�� �-52 �ROTATE
�� �-17 � !-4
�� �-82 � � �d~F
�� �-72 � � �D^F
�	� �=�
���ROMREAD(NUM):� x,y,i,d
��NUM<>0� c1=NUM:�D@A
��23,1,1;0;0;0;:*FX21,0
��31,0,11:�(20);

�NUM<>0� c1=NUM:�D@A

�1,-8,200,1

 �31,0,11:�"Read chr$ no.   "

"�31,13,11:� c1

,� c1<32 � c1>255 � �dz@

6�23,1,0;0;0;0;

@?&0B00=c1:A%=10:X%=0:Y%=11

J� &FFF1:� i=1 � 8

TV(i)=?(&0B00+i):�

^� i=1 � 8:B(i)=2^(i-1):�

h� x=1 � 8:d=V(x):� y=1 � 8

r5� d>=B(9-y) C(y,x)=-1:d=d-B(9-y)       � C(y,x)=0

|	�:�:�

���GRID:� x,y,i

�� i=0 � 10:�31,0,i

��"               ";:�

��6:�10,0);"Definer"

��3

��0,7:� i=1 � 9

��32*i,1024-32

��32*i,1024-(32*9):� i

�� i=1 � 9:�32,1024-(32*i)

��32*9,1024-(32*i):�:�3,1

�� x=1 � 8:� y=1 � 8

�� C(x,y) �B(0,x*32,y*32)

��:�
�0,5:�700,900:�900,900
�900,800:�700,800
�700,900:�100,400
&�550,400:�550,160
0�100,160:�100,400:�
:��B(c,x,y) :� c=0 � �DNB
DC(X,Y)= � C(X,Y)
N� i=1 � 32 � 4
X�x+4,1024-(y-i)-32
b�x+28,1024-(y-i)-32:�
l�
v��CALCULATE(N):� i,x,y
��i=1 � 8:B(i)=2^(i-1):� i
�� x=1�8:V(x)=0:� y=1�8
� � C(y,x)=-1 V(x)=V(x)+B(9-y)
��:�:� i=1 � 8
��31,5,i:�;~V(i):� i
��23,1,1;0;0;0;:*FX21,0
��31,12,13:�(6);
�$� N<>0 c2=N:� �ddB � �1,-8,170,1
��31,0,13:�"Redefine no.";
��c2:�c2<224 � c2>255��t|B
��23,1,0;0;0;0;
��23,c2:� i=1 � 8:�V(i)
�z=2:x=20
�:�31,12,5,c2
#�31,z,x,224,225,226,227,228,229
%�31,z,x+1,230,231,232,233,234,235
 %�31,z,x+2,236,237,238,239,240,241
*%�31,z,x+3,242,243,244,245,246,247
4%�31,z,x+4,248,249,250,251,252,253
>�31,z,x+5,254,255
H� � � �-74:�
R��CURSOR:*FX4,1
\�3,2:�BLOCK(x,y)
f� �-58  �UP
p� �-42  �DOWN
z� �-26  �LEFT
�� �-122 �RIGHT
�� �-1   �3,1:�B(1,x,y)
��3,2:�BLOCK(x,y):*FX4
��
���BLOCK(x,y)
��i=1 � 16 � 4
��x+16,1024-y-8-i
��x+20,1024-y-8-i:� i:�
���UP :� Y=1 � �
�Y=Y-1:y=y-32:�3,2
��BLOCK(x,y+32):�BLOCK(x,y)
��
�
��DOWN

� Y=8 � �
Y=Y+1:y=y+32:�3,2
�BLOCK(x,y-32):�BLOCK(x,y)
$�
.��LEFT :� X=1 � �
8X=X-1:x=x-32:�3,2
B�BLOCK(x+32,y):�BLOCK(x,y)
L�
V��RIGHT
`
� X=8 � �
jX=X+1:x=x+32:�3,2
t�BLOCK(x-32,y):�BLOCK(x,y)
~�
���CHANGE
��ROMREAD(0):�GRID
��CALCULATE(0)
�X=1:Y=1:x=32:y=32:�
���INVERT
��i=1�8:�j=1�8
�C(i,j)=�(C(i,j)):�,
��GRID:�CALCULATE(0)
��
���ERASE
��i=1�8:�j=1�8:C(i,j)=0
��,:�GRID:�CALCULATE(0)
�

��MIRROR
�i=1�8:�j=1�8
R(i,j)=C(i,9-j) :�,
(�i=1�8:�j=1�8
2C(i,j)=R(i,j):�,:�GRID
<�CALCULATE(0):�
F
��MIRROR2
P�i=1�8:�j=1�8
ZR(j,i)=C(9-j,i) :�,
d�i=1�8:�j=1�8
nC(i,j)=R(i,j):�,:�GRID
x�CALCULATE(0):�
���ROTATE
��i=1�8:�j=1�8
�R(i,j)=C(j,9-i):�,
��i=1�8:�j=1�8
�C(i,j)=R(i,j):�,:�GRID
��CALCULATE(0):�
���SI
��28,10,30,19,15
�F=3:S=2
��F:�"R";:�S:�"otate"
��F:�"M";:�S:�"irror"
��F:�"U";:�S:�"pside dwn";
��F:�"I";:�S:�"nvert"
�F:�"C";:�S:�"lear all"
�F:�"N";:�S:�"ew char"
�F:�"R";:�S:�"et calc"
"�F:�"Q";:�S:�"uit"
,�F:�"S";:�S:�"pool"
6�F:�"@";:�S:�"Save"
@�6:�'"Author:  "
J�"J.Henson."
T�1:�26:�
^	�save
h*FX21,0
r�28,0,31,17,30,12
|
�:� NAME$
�)� �(NAME$)>10 � �(NAME$)<1 � �:� �D|F
�*OPT1,0
�� � �error
��:�"Saving"
�(�("SAVE"+�34+NAME$+�34+" 0C00 0D00")
�	� � �
�*OPT1,1
��12;"Saved data."
�I=�(400)
��
��26
�	�Dd@
�
�spool
Z=c1
*FX21,0
�28,0,31,17,30,12
&�
0�:�"Name:"N$
:�"Start:"line
D�"Inc. :"nc
N� �(N$)<11 � �(N$)>=1
X� � �error
b�:�("SPOOL "+N$)
l	� � �
v&� I%=224 � 255:m=&C00:�I=224 � 255
���(line);"VDU23,";�(I);
�� J=m � m+7:�",";�(?J);:�
�!�:line=line+nc:m=m+8:�:*SPOOL
�.�12,26:�ROMREAD(Z):�GRID:�31,12,5,c2:�Dd@
���error
�� �<>201 � �dZG
��"Disk read only.":I=�(900)
��"Make disk R/W.":I=�(900)
�&�"Space when done.":�:� �(0)=" ":�
��:�:�;" at line ";�:�
�

00000000  0d 00 0a 0a 2a 54 56 32  35 35 0d 00 14 06 eb 35  |....*TV255.....5|
00000010  0d 00 1e 12 ef 32 33 2c  31 2c 30 3b 30 3b 30 3b  |.....23,1,0;0;0;|
00000020  30 3b 0d 00 28 07 f2 53  49 0d 00 32 1d de 20 43  |0;..(..SI..2.. C|
00000030  28 38 2c 38 29 2c 42 28  38 29 2c 56 28 38 29 2c  |(8,8),B(8),V(8),|
00000040  52 28 38 2c 38 29 0d 00  3c 1a fb 33 3a f2 52 4f  |R(8,8)..<..3:.RO|
00000050  4d 52 45 41 44 28 32 32  34 29 3a f2 47 52 49 44  |MREAD(224):.GRID|
00000060  0d 00 46 13 f2 43 41 4c  43 55 4c 41 54 45 28 32  |..F..CALCULATE(2|
00000070  32 34 29 0d 00 50 12 78  3d 33 32 3a 79 3d 33 32  |24)..P.x=32:y=32|
00000080  3a e6 33 2c 35 0d 00 5a  0b 58 3d 31 3a 59 3d 31  |:.3,5..Z.X=1:Y=1|
00000090  0d 00 64 15 f5 3a f2 43  55 52 53 4f 52 3a f2 43  |..d..:.CURSOR:.C|
000000a0  55 52 53 4f 52 0d 00 6e  12 e7 20 a6 2d 38 36 20  |URSOR..n.. .-86 |
000000b0  f2 43 48 41 4e 47 45 0d  00 78 18 e7 20 a6 2d 37  |.CHANGE..x.. .-7|
000000c0  34 20 f2 43 41 4c 43 55  4c 41 54 45 28 30 29 0d  |4 .CALCULATE(0).|
000000d0  00 82 12 e7 20 a6 2d 33  38 20 f2 49 4e 56 45 52  |.... .-38 .INVER|
000000e0  54 0d 00 8c 11 e7 20 a6  2d 38 33 20 f2 45 52 41  |T..... .-83 .ERA|
000000f0  53 45 0d 00 96 12 e7 20  a6 2d 35 34 20 f2 4d 49  |SE..... .-54 .MI|
00000100  52 52 4f 52 0d 00 a0 14  e7 20 a6 2d 31 30 32 20  |RROR..... .-102 |
00000110  f2 4d 49 52 52 4f 52 32  0d 00 aa 12 e7 20 a6 2d  |.MIRROR2..... .-|
00000120  35 32 20 f2 52 4f 54 41  54 45 0d 00 b4 10 e7 20  |52 .ROTATE..... |
00000130  a6 2d 31 37 20 d6 20 21  2d 34 0d 00 be 13 e7 20  |.-17 . !-4..... |
00000140  a6 2d 38 32 20 8c 20 e5  20 8d 64 7e 46 0d 00 c8  |.-82 . . .d~F...|
00000150  13 e7 20 a6 2d 37 32 20  8c 20 e5 20 8d 44 5e 46  |.. .-72 . . .D^F|
00000160  0d 00 d2 09 fd 20 b9 3d  a3 0d 00 dc 1c dd f2 52  |..... .=.......R|
00000170  4f 4d 52 45 41 44 28 4e  55 4d 29 3a ea 20 78 2c  |OMREAD(NUM):. x,|
00000180  79 2c 69 2c 64 0d 00 e6  19 e7 4e 55 4d 3c 3e 30  |y,i,d.....NUM<>0|
00000190  8c 20 63 31 3d 4e 55 4d  3a e5 8d 44 40 41 0d 00  |. c1=NUM:..D@A..|
000001a0  f0 1a ef 32 33 2c 31 2c  31 3b 30 3b 30 3b 30 3b  |...23,1,1;0;0;0;|
000001b0  3a 2a 46 58 32 31 2c 30  0d 00 fa 14 ef 33 31 2c  |:*FX21,0.....31,|
000001c0  30 2c 31 31 3a f1 89 28  32 30 29 3b 0d 01 04 19  |0,11:..(20);....|
000001d0  e7 4e 55 4d 3c 3e 30 8c  20 63 31 3d 4e 55 4d 3a  |.NUM<>0. c1=NUM:|
000001e0  e5 8d 44 40 41 0d 01 0e  0f d4 31 2c 2d 38 2c 32  |..D@A.....1,-8,2|
000001f0  30 30 2c 31 0d 01 18 20  ef 33 31 2c 30 2c 31 31  |00,1... .31,0,11|
00000200  3a f1 22 52 65 61 64 20  63 68 72 24 20 6e 6f 2e  |:."Read chr$ no.|
00000210  20 20 20 22 0d 01 22 12  ef 33 31 2c 31 33 2c 31  |   ".."..31,13,1|
00000220  31 3a e8 20 63 31 0d 01  2c 1b e7 20 63 31 3c 33  |1:. c1..,.. c1<3|
00000230  32 20 84 20 63 31 3e 32  35 35 20 e5 20 8d 64 7a  |2 . c1>255 . .dz|
00000240  40 0d 01 36 12 ef 32 33  2c 31 2c 30 3b 30 3b 30  |@..6..23,1,0;0;0|
00000250  3b 30 3b 0d 01 40 1e 3f  26 30 42 30 30 3d 63 31  |;0;..@.?&0B00=c1|
00000260  3a 41 25 3d 31 30 3a 58  25 3d 30 3a 59 25 3d 31  |:A%=10:X%=0:Y%=1|
00000270  31 0d 01 4a 15 d6 20 26  46 46 46 31 3a e3 20 69  |1..J.. &FFF1:. i|
00000280  3d 31 20 b8 20 38 0d 01  54 15 56 28 69 29 3d 3f  |=1 . 8..T.V(i)=?|
00000290  28 26 30 42 30 30 2b 69  29 3a ed 0d 01 5e 1c e3  |(&0B00+i):...^..|
000002a0  20 69 3d 31 20 b8 20 38  3a 42 28 69 29 3d 32 5e  | i=1 . 8:B(i)=2^|
000002b0  28 69 2d 31 29 3a ed 0d  01 68 1e e3 20 78 3d 31  |(i-1):...h.. x=1|
000002c0  20 b8 20 38 3a 64 3d 56  28 78 29 3a e3 20 79 3d  | . 8:d=V(x):. y=|
000002d0  31 20 b8 20 38 0d 01 72  35 e7 20 64 3e 3d 42 28  |1 . 8..r5. d>=B(|
000002e0  39 2d 79 29 20 43 28 79  2c 78 29 3d 2d 31 3a 64  |9-y) C(y,x)=-1:d|
000002f0  3d 64 2d 42 28 39 2d 79  29 20 20 20 20 20 20 20  |=d-B(9-y)       |
00000300  8b 20 43 28 79 2c 78 29  3d 30 0d 01 7c 09 ed 3a  |. C(y,x)=0..|..:|
00000310  ed 3a e1 0d 01 86 12 dd  f2 47 52 49 44 3a ea 20  |.:.......GRID:. |
00000320  78 2c 79 2c 69 0d 01 90  16 e3 20 69 3d 30 20 b8  |x,y,i..... i=0 .|
00000330  20 31 30 3a ef 33 31 2c  30 2c 69 0d 01 9a 19 f1  | 10:.31,0,i.....|
00000340  22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
00000350  22 3b 3a ed 0d 01 a4 18  fb 36 3a f1 8a 31 30 2c  |";:......6:..10,|
00000360  30 29 3b 22 44 65 66 69  6e 65 72 22 0d 01 ae 06  |0);"Definer"....|
00000370  fb 33 0d 01 b8 12 e6 30  2c 37 3a e3 20 69 3d 31  |.3.....0,7:. i=1|
00000380  20 b8 20 39 0d 01 c2 11  ec 33 32 2a 69 2c 31 30  | . 9.....32*i,10|
00000390  32 34 2d 33 32 0d 01 cc  19 df 33 32 2a 69 2c 31  |24-32.....32*i,1|
000003a0  30 32 34 2d 28 33 32 2a  39 29 3a ed 20 69 0d 01  |024-(32*9):. i..|
000003b0  d6 1d e3 20 69 3d 31 20  b8 20 39 3a ec 33 32 2c  |... i=1 . 9:.32,|
000003c0  31 30 32 34 2d 28 33 32  2a 69 29 0d 01 e0 1c df  |1024-(32*i).....|
000003d0  33 32 2a 39 2c 31 30 32  34 2d 28 33 32 2a 69 29  |32*9,1024-(32*i)|
000003e0  3a ed 3a e6 33 2c 31 0d  01 ea 17 e3 20 78 3d 31  |:.:.3,1..... x=1|
000003f0  20 b8 20 38 3a e3 20 79  3d 31 20 b8 20 38 0d 01  | . 8:. y=1 . 8..|
00000400  f4 1c e7 20 43 28 78 2c  79 29 20 f2 42 28 30 2c  |... C(x,y) .B(0,|
00000410  78 2a 33 32 2c 79 2a 33  32 29 0d 01 fe 07 ed 3a  |x*32,y*32).....:|
00000420  ed 0d 02 08 1a e6 30 2c  35 3a ec 37 30 30 2c 39  |......0,5:.700,9|
00000430  30 30 3a df 39 30 30 2c  39 30 30 0d 02 12 15 df  |00:.900,900.....|
00000440  39 30 30 2c 38 30 30 3a  df 37 30 30 2c 38 30 30  |900,800:.700,800|
00000450  0d 02 1c 15 df 37 30 30  2c 39 30 30 3a ec 31 30  |.....700,900:.10|
00000460  30 2c 34 30 30 0d 02 26  15 df 35 35 30 2c 34 30  |0,400..&..550,40|
00000470  30 3a df 35 35 30 2c 31  36 30 0d 02 30 17 df 31  |0:.550,160..0..1|
00000480  30 30 2c 31 36 30 3a df  31 30 30 2c 34 30 30 3a  |00,160:.100,400:|
00000490  e1 0d 02 3a 1c dd f2 42  28 63 2c 78 2c 79 29 20  |...:...B(c,x,y) |
000004a0  3a e7 20 63 3d 30 20 e5  20 8d 44 4e 42 0d 02 44  |:. c=0 . .DNB..D|
000004b0  14 43 28 58 2c 59 29 3d  20 ac 20 43 28 58 2c 59  |.C(X,Y)= . C(X,Y|
000004c0  29 0d 02 4e 12 e3 20 69  3d 31 20 b8 20 33 32 20  |)..N.. i=1 . 32 |
000004d0  88 20 34 0d 02 58 16 ec  78 2b 34 2c 31 30 32 34  |. 4..X..x+4,1024|
000004e0  2d 28 79 2d 69 29 2d 33  32 0d 02 62 19 df 78 2b  |-(y-i)-32..b..x+|
000004f0  32 38 2c 31 30 32 34 2d  28 79 2d 69 29 2d 33 32  |28,1024-(y-i)-32|
00000500  3a ed 0d 02 6c 05 e1 0d  02 76 1a dd f2 43 41 4c  |:...l....v...CAL|
00000510  43 55 4c 41 54 45 28 4e  29 3a ea 20 69 2c 78 2c  |CULATE(N):. i,x,|
00000520  79 0d 02 80 1d e3 69 3d  31 20 b8 20 38 3a 42 28  |y.....i=1 . 8:B(|
00000530  69 29 3d 32 5e 28 69 2d  31 29 3a ed 20 69 0d 02  |i)=2^(i-1):. i..|
00000540  8a 1a e3 20 78 3d 31 b8  38 3a 56 28 78 29 3d 30  |... x=1.8:V(x)=0|
00000550  3a e3 20 79 3d 31 b8 38  0d 02 94 20 e7 20 43 28  |:. y=1.8... . C(|
00000560  79 2c 78 29 3d 2d 31 20  56 28 78 29 3d 56 28 78  |y,x)=-1 V(x)=V(x|
00000570  29 2b 42 28 39 2d 79 29  0d 02 9e 11 ed 3a ed 3a  |)+B(9-y).....:.:|
00000580  e3 20 69 3d 31 20 b8 20  38 0d 02 a8 17 ef 33 31  |. i=1 . 8.....31|
00000590  2c 35 2c 69 3a f1 3b 7e  56 28 69 29 3a ed 20 69  |,5,i:.;~V(i):. i|
000005a0  0d 02 b2 1a ef 32 33 2c  31 2c 31 3b 30 3b 30 3b  |.....23,1,1;0;0;|
000005b0  30 3b 3a 2a 46 58 32 31  2c 30 0d 02 bc 14 ef 33  |0;:*FX21,0.....3|
000005c0  31 2c 31 32 2c 31 33 3a  f1 89 28 36 29 3b 0d 02  |1,12,13:..(6);..|
000005d0  c6 24 e7 20 4e 3c 3e 30  20 63 32 3d 4e 3a e5 20  |.$. N<>0 c2=N:. |
000005e0  8d 64 64 42 20 8b 20 d4  31 2c 2d 38 2c 31 37 30  |.ddB . .1,-8,170|
000005f0  2c 31 0d 02 d0 1d ef 33  31 2c 30 2c 31 33 3a f1  |,1.....31,0,13:.|
00000600  22 52 65 64 65 66 69 6e  65 20 6e 6f 2e 22 3b 0d  |"Redefine no.";.|
00000610  02 da 1d e8 63 32 3a e7  63 32 3c 32 32 34 20 84  |....c2:.c2<224 .|
00000620  20 63 32 3e 32 35 35 8c  8d 74 7c 42 0d 02 e4 12  | c2>255..t|B....|
00000630  ef 32 33 2c 31 2c 30 3b  30 3b 30 3b 30 3b 0d 02  |.23,1,0;0;0;0;..|
00000640  ee 1a ef 32 33 2c 63 32  3a e3 20 69 3d 31 20 b8  |...23,c2:. i=1 .|
00000650  20 38 3a ef 56 28 69 29  0d 02 f8 0c 7a 3d 32 3a  | 8:.V(i)....z=2:|
00000660  78 3d 32 30 0d 03 02 11  ed 3a ef 33 31 2c 31 32  |x=20.....:.31,12|
00000670  2c 35 2c 63 32 0d 03 0c  23 ef 33 31 2c 7a 2c 78  |,5,c2...#.31,z,x|
00000680  2c 32 32 34 2c 32 32 35  2c 32 32 36 2c 32 32 37  |,224,225,226,227|
00000690  2c 32 32 38 2c 32 32 39  0d 03 16 25 ef 33 31 2c  |,228,229...%.31,|
000006a0  7a 2c 78 2b 31 2c 32 33  30 2c 32 33 31 2c 32 33  |z,x+1,230,231,23|
000006b0  32 2c 32 33 33 2c 32 33  34 2c 32 33 35 0d 03 20  |2,233,234,235.. |
000006c0  25 ef 33 31 2c 7a 2c 78  2b 32 2c 32 33 36 2c 32  |%.31,z,x+2,236,2|
000006d0  33 37 2c 32 33 38 2c 32  33 39 2c 32 34 30 2c 32  |37,238,239,240,2|
000006e0  34 31 0d 03 2a 25 ef 33  31 2c 7a 2c 78 2b 33 2c  |41..*%.31,z,x+3,|
000006f0  32 34 32 2c 32 34 33 2c  32 34 34 2c 32 34 35 2c  |242,243,244,245,|
00000700  32 34 36 2c 32 34 37 0d  03 34 25 ef 33 31 2c 7a  |246,247..4%.31,z|
00000710  2c 78 2b 34 2c 32 34 38  2c 32 34 39 2c 32 35 30  |,x+4,248,249,250|
00000720  2c 32 35 31 2c 32 35 32  2c 32 35 33 0d 03 3e 15  |,251,252,253..>.|
00000730  ef 33 31 2c 7a 2c 78 2b  35 2c 32 35 34 2c 32 35  |.31,z,x+5,254,25|
00000740  35 0d 03 48 10 f5 20 fd  20 ac 20 a6 2d 37 34 3a  |5..H.. . . .-74:|
00000750  e1 0d 03 52 13 dd f2 43  55 52 53 4f 52 3a 2a 46  |...R...CURSOR:*F|
00000760  58 34 2c 31 0d 03 5c 14  e6 33 2c 32 3a f2 42 4c  |X4,1..\..3,2:.BL|
00000770  4f 43 4b 28 78 2c 79 29  0d 03 66 0f e7 20 a6 2d  |OCK(x,y)..f.. .-|
00000780  35 38 20 20 f2 55 50 0d  03 70 11 e7 20 a6 2d 34  |58  .UP..p.. .-4|
00000790  32 20 20 f2 44 4f 57 4e  0d 03 7a 11 e7 20 a6 2d  |2  .DOWN..z.. .-|
000007a0  32 36 20 20 f2 4c 45 46  54 0d 03 84 12 e7 20 a6  |26  .LEFT..... .|
000007b0  2d 31 32 32 20 f2 52 49  47 48 54 0d 03 8e 1a e7  |-122 .RIGHT.....|
000007c0  20 a6 2d 31 20 20 20 e6  33 2c 31 3a f2 42 28 31  | .-1   .3,1:.B(1|
000007d0  2c 78 2c 79 29 0d 03 98  19 e6 33 2c 32 3a f2 42  |,x,y).....3,2:.B|
000007e0  4c 4f 43 4b 28 78 2c 79  29 3a 2a 46 58 34 0d 03  |LOCK(x,y):*FX4..|
000007f0  a2 05 e1 0d 03 ac 10 dd  f2 42 4c 4f 43 4b 28 78  |.........BLOCK(x|
00000800  2c 79 29 0d 03 b6 11 e3  69 3d 31 20 b8 20 31 36  |,y).....i=1 . 16|
00000810  20 88 20 34 0d 03 c0 14  ec 78 2b 31 36 2c 31 30  | . 4.....x+16,10|
00000820  32 34 2d 79 2d 38 2d 69  0d 03 ca 1a df 78 2b 32  |24-y-8-i.....x+2|
00000830  30 2c 31 30 32 34 2d 79  2d 38 2d 69 3a ed 20 69  |0,1024-y-8-i:. i|
00000840  3a e1 0d 03 d4 13 dd f2  55 50 20 3a e7 20 59 3d  |:.......UP :. Y=|
00000850  31 20 8c 20 e1 0d 03 de  15 59 3d 59 2d 31 3a 79  |1 . .....Y=Y-1:y|
00000860  3d 79 2d 33 32 3a e6 33  2c 32 0d 03 e8 1e f2 42  |=y-32:.3,2.....B|
00000870  4c 4f 43 4b 28 78 2c 79  2b 33 32 29 3a f2 42 4c  |LOCK(x,y+32):.BL|
00000880  4f 43 4b 28 78 2c 79 29  0d 03 f2 05 e1 0d 03 fc  |OCK(x,y)........|
00000890  0a dd f2 44 4f 57 4e 0d  04 06 0d e7 20 59 3d 38  |...DOWN..... Y=8|
000008a0  20 8c 20 e1 0d 04 10 15  59 3d 59 2b 31 3a 79 3d  | . .....Y=Y+1:y=|
000008b0  79 2b 33 32 3a e6 33 2c  32 0d 04 1a 1e f2 42 4c  |y+32:.3,2.....BL|
000008c0  4f 43 4b 28 78 2c 79 2d  33 32 29 3a f2 42 4c 4f  |OCK(x,y-32):.BLO|
000008d0  43 4b 28 78 2c 79 29 0d  04 24 05 e1 0d 04 2e 15  |CK(x,y)..$......|
000008e0  dd f2 4c 45 46 54 20 3a  e7 20 58 3d 31 20 8c 20  |..LEFT :. X=1 . |
000008f0  e1 0d 04 38 15 58 3d 58  2d 31 3a 78 3d 78 2d 33  |...8.X=X-1:x=x-3|
00000900  32 3a e6 33 2c 32 0d 04  42 1e f2 42 4c 4f 43 4b  |2:.3,2..B..BLOCK|
00000910  28 78 2b 33 32 2c 79 29  3a f2 42 4c 4f 43 4b 28  |(x+32,y):.BLOCK(|
00000920  78 2c 79 29 0d 04 4c 05  e1 0d 04 56 0b dd f2 52  |x,y)..L....V...R|
00000930  49 47 48 54 0d 04 60 0d  e7 20 58 3d 38 20 8c 20  |IGHT..`.. X=8 . |
00000940  e1 0d 04 6a 15 58 3d 58  2b 31 3a 78 3d 78 2b 33  |...j.X=X+1:x=x+3|
00000950  32 3a e6 33 2c 32 0d 04  74 1e f2 42 4c 4f 43 4b  |2:.3,2..t..BLOCK|
00000960  28 78 2d 33 32 2c 79 29  3a f2 42 4c 4f 43 4b 28  |(x-32,y):.BLOCK(|
00000970  78 2c 79 29 0d 04 7e 05  e1 0d 04 88 0c dd f2 43  |x,y)..~........C|
00000980  48 41 4e 47 45 0d 04 92  15 f2 52 4f 4d 52 45 41  |HANGE.....ROMREA|
00000990  44 28 30 29 3a f2 47 52  49 44 0d 04 9c 11 f2 43  |D(0):.GRID.....C|
000009a0  41 4c 43 55 4c 41 54 45  28 30 29 0d 04 a6 17 58  |ALCULATE(0)....X|
000009b0  3d 31 3a 59 3d 31 3a 78  3d 33 32 3a 79 3d 33 32  |=1:Y=1:x=32:y=32|
000009c0  3a e1 0d 04 b0 0c dd f2  49 4e 56 45 52 54 0d 04  |:.......INVERT..|
000009d0  ba 11 e3 69 3d 31 b8 38  3a e3 6a 3d 31 b8 38 0d  |...i=1.8:.j=1.8.|
000009e0  04 c4 17 43 28 69 2c 6a  29 3d ac 28 43 28 69 2c  |...C(i,j)=.(C(i,|
000009f0  6a 29 29 3a ed 2c 0d 04  ce 17 f2 47 52 49 44 3a  |j)):.,.....GRID:|
00000a00  f2 43 41 4c 43 55 4c 41  54 45 28 30 29 0d 04 d8  |.CALCULATE(0)...|
00000a10  05 e1 0d 04 e2 0b dd f2  45 52 41 53 45 0d 04 ec  |........ERASE...|
00000a20  1a e3 69 3d 31 b8 38 3a  e3 6a 3d 31 b8 38 3a 43  |..i=1.8:.j=1.8:C|
00000a30  28 69 2c 6a 29 3d 30 0d  04 f6 1a ed 2c 3a f2 47  |(i,j)=0.....,:.G|
00000a40  52 49 44 3a f2 43 41 4c  43 55 4c 41 54 45 28 30  |RID:.CALCULATE(0|
00000a50  29 0d 05 00 05 e1 0d 05  0a 0c dd f2 4d 49 52 52  |)...........MIRR|
00000a60  4f 52 0d 05 14 11 e3 69  3d 31 b8 38 3a e3 6a 3d  |OR.....i=1.8:.j=|
00000a70  31 b8 38 0d 05 1e 17 52  28 69 2c 6a 29 3d 43 28  |1.8....R(i,j)=C(|
00000a80  69 2c 39 2d 6a 29 20 3a  ed 2c 0d 05 28 11 e3 69  |i,9-j) :.,..(..i|
00000a90  3d 31 b8 38 3a e3 6a 3d  31 b8 38 0d 05 32 1a 43  |=1.8:.j=1.8..2.C|
00000aa0  28 69 2c 6a 29 3d 52 28  69 2c 6a 29 3a ed 2c 3a  |(i,j)=R(i,j):.,:|
00000ab0  f2 47 52 49 44 0d 05 3c  13 f2 43 41 4c 43 55 4c  |.GRID..<..CALCUL|
00000ac0  41 54 45 28 30 29 3a e1  0d 05 46 0d dd f2 4d 49  |ATE(0):...F...MI|
00000ad0  52 52 4f 52 32 0d 05 50  11 e3 69 3d 31 b8 38 3a  |RROR2..P..i=1.8:|
00000ae0  e3 6a 3d 31 b8 38 0d 05  5a 17 52 28 6a 2c 69 29  |.j=1.8..Z.R(j,i)|
00000af0  3d 43 28 39 2d 6a 2c 69  29 20 3a ed 2c 0d 05 64  |=C(9-j,i) :.,..d|
00000b00  11 e3 69 3d 31 b8 38 3a  e3 6a 3d 31 b8 38 0d 05  |..i=1.8:.j=1.8..|
00000b10  6e 1a 43 28 69 2c 6a 29  3d 52 28 69 2c 6a 29 3a  |n.C(i,j)=R(i,j):|
00000b20  ed 2c 3a f2 47 52 49 44  0d 05 78 13 f2 43 41 4c  |.,:.GRID..x..CAL|
00000b30  43 55 4c 41 54 45 28 30  29 3a e1 0d 05 82 0c dd  |CULATE(0):......|
00000b40  f2 52 4f 54 41 54 45 0d  05 8c 11 e3 69 3d 31 b8  |.ROTATE.....i=1.|
00000b50  38 3a e3 6a 3d 31 b8 38  0d 05 96 16 52 28 69 2c  |8:.j=1.8....R(i,|
00000b60  6a 29 3d 43 28 6a 2c 39  2d 69 29 3a ed 2c 0d 05  |j)=C(j,9-i):.,..|
00000b70  a0 11 e3 69 3d 31 b8 38  3a e3 6a 3d 31 b8 38 0d  |...i=1.8:.j=1.8.|
00000b80  05 aa 1a 43 28 69 2c 6a  29 3d 52 28 69 2c 6a 29  |...C(i,j)=R(i,j)|
00000b90  3a ed 2c 3a f2 47 52 49  44 0d 05 b4 13 f2 43 41  |:.,:.GRID.....CA|
00000ba0  4c 43 55 4c 41 54 45 28  30 29 3a e1 0d 05 be 08  |LCULATE(0):.....|
00000bb0  dd f2 53 49 0d 05 c8 13  ef 32 38 2c 31 30 2c 33  |..SI.....28,10,3|
00000bc0  30 2c 31 39 2c 31 35 0d  05 d2 0b 46 3d 33 3a 53  |0,19,15....F=3:S|
00000bd0  3d 32 0d 05 dc 18 fb 46  3a f1 22 52 22 3b 3a fb  |=2.....F:."R";:.|
00000be0  53 3a f1 22 6f 74 61 74  65 22 0d 05 e6 18 fb 46  |S:."otate".....F|
00000bf0  3a f1 22 4d 22 3b 3a fb  53 3a f1 22 69 72 72 6f  |:."M";:.S:."irro|
00000c00  72 22 0d 05 f0 1d fb 46  3a f1 22 55 22 3b 3a fb  |r".....F:."U";:.|
00000c10  53 3a f1 22 70 73 69 64  65 20 64 77 6e 22 3b 0d  |S:."pside dwn";.|
00000c20  05 fa 18 fb 46 3a f1 22  49 22 3b 3a fb 53 3a f1  |....F:."I";:.S:.|
00000c30  22 6e 76 65 72 74 22 0d  06 04 1b fb 46 3a f1 22  |"nvert".....F:."|
00000c40  43 22 3b 3a fb 53 3a f1  22 6c 65 61 72 20 61 6c  |C";:.S:."lear al|
00000c50  6c 22 0d 06 0e 1a fb 46  3a f1 22 4e 22 3b 3a fb  |l".....F:."N";:.|
00000c60  53 3a f1 22 65 77 20 63  68 61 72 22 0d 06 18 1a  |S:."ew char"....|
00000c70  fb 46 3a f1 22 52 22 3b  3a fb 53 3a f1 22 65 74  |.F:."R";:.S:."et|
00000c80  20 63 61 6c 63 22 0d 06  22 16 fb 46 3a f1 22 51  | calc".."..F:."Q|
00000c90  22 3b 3a fb 53 3a f1 22  75 69 74 22 0d 06 2c 17  |";:.S:."uit"..,.|
00000ca0  fb 46 3a f1 22 53 22 3b  3a fb 53 3a f1 22 70 6f  |.F:."S";:.S:."po|
00000cb0  6f 6c 22 0d 06 36 17 fb  46 3a f1 22 40 22 3b 3a  |ol"..6..F:."@";:|
00000cc0  fb 53 3a f1 22 53 61 76  65 22 0d 06 40 14 fb 36  |.S:."Save"..@..6|
00000cd0  3a f1 27 22 41 75 74 68  6f 72 3a 20 20 22 0d 06  |:.'"Author:  "..|
00000ce0  4a 10 f1 22 4a 2e 48 65  6e 73 6f 6e 2e 22 0d 06  |J.."J.Henson."..|
00000cf0  54 0c fb 31 3a ef 32 36  3a e1 0d 06 5e 09 f4 73  |T..1:.26:...^..s|
00000d00  61 76 65 0d 06 68 0b 2a  46 58 32 31 2c 30 0d 06  |ave..h.*FX21,0..|
00000d10  72 15 ef 32 38 2c 30 2c  33 31 2c 31 37 2c 33 30  |r..28,0,31,17,30|
00000d20  2c 31 32 0d 06 7c 0d db  3a e8 20 4e 41 4d 45 24  |,12..|..:. NAME$|
00000d30  0d 06 86 29 e7 20 a9 28  4e 41 4d 45 24 29 3e 31  |...). .(NAME$)>1|
00000d40  30 20 84 20 a9 28 4e 41  4d 45 24 29 3c 31 20 8c  |0 . .(NAME$)<1 .|
00000d50  20 db 3a e5 20 8d 44 7c  46 0d 06 90 0b 2a 4f 50  | .:. .D|F....*OP|
00000d60  54 31 2c 30 0d 06 9a 0e  ee 20 85 20 f2 65 72 72  |T1,0..... . .err|
00000d70  6f 72 0d 06 a4 0f db 3a  f1 22 53 61 76 69 6e 67  |or.....:."Saving|
00000d80  22 0d 06 ae 28 ff 28 22  53 41 56 45 22 2b bd 33  |"...(.("SAVE"+.3|
00000d90  34 2b 4e 41 4d 45 24 2b  bd 33 34 2b 22 20 30 43  |4+NAME$+.34+" 0C|
00000da0  30 30 20 30 44 30 30 22  29 0d 06 b8 09 ee 20 85  |00 0D00")..... .|
00000db0  20 87 0d 06 c2 0b 2a 4f  50 54 31 2c 31 0d 06 cc  | .....*OPT1,1...|
00000dc0  16 f1 bd 31 32 3b 22 53  61 76 65 64 20 64 61 74  |...12;"Saved dat|
00000dd0  61 2e 22 0d 06 d6 0c 49  3d a6 28 34 30 30 29 0d  |a."....I=.(400).|
00000de0  06 e0 05 db 0d 06 ea 07  ef 32 36 0d 06 f4 09 e5  |.........26.....|
00000df0  8d 44 64 40 0d 06 fe 0a  f4 73 70 6f 6f 6c 0d 07  |.Dd@.....spool..|
00000e00  08 08 5a 3d 63 31 0d 07  12 0b 2a 46 58 32 31 2c  |..Z=c1....*FX21,|
00000e10  30 0d 07 1c 15 ef 32 38  2c 30 2c 33 31 2c 31 37  |0.....28,0,31,17|
00000e20  2c 33 30 2c 31 32 0d 07  26 05 f5 0d 07 30 10 db  |,30,12..&....0..|
00000e30  3a e8 22 4e 61 6d 65 3a  22 4e 24 0d 07 3a 11 e8  |:."Name:"N$..:..|
00000e40  22 53 74 61 72 74 3a 22  6c 69 6e 65 0d 07 44 0f  |"Start:"line..D.|
00000e50  e8 22 49 6e 63 2e 20 3a  22 6e 63 0d 07 4e 19 fd  |."Inc. :"nc..N..|
00000e60  20 a9 28 4e 24 29 3c 31  31 20 80 20 a9 28 4e 24  | .(N$)<11 . .(N$|
00000e70  29 3e 3d 31 0d 07 58 0e  ee 20 85 20 f2 65 72 72  |)>=1..X.. . .err|
00000e80  6f 72 0d 07 62 14 db 3a  ff 28 22 53 50 4f 4f 4c  |or..b..:.("SPOOL|
00000e90  20 22 2b 4e 24 29 0d 07  6c 09 ee 20 85 20 87 0d  | "+N$)..l.. . ..|
00000ea0  07 76 26 e3 20 49 25 3d  32 32 34 20 b8 20 32 35  |.v&. I%=224 . 25|
00000eb0  35 3a 6d 3d 26 43 30 30  3a e3 49 3d 32 32 34 20  |5:m=&C00:.I=224 |
00000ec0  b8 20 32 35 35 0d 07 80  1b f1 c3 28 6c 69 6e 65  |. 255......(line|
00000ed0  29 3b 22 56 44 55 32 33  2c 22 3b c3 28 49 29 3b  |);"VDU23,";.(I);|
00000ee0  0d 07 8a 1d e3 20 4a 3d  6d 20 b8 20 6d 2b 37 3a  |..... J=m . m+7:|
00000ef0  f1 22 2c 22 3b c3 28 3f  4a 29 3b 3a ed 0d 07 94  |.",";.(?J);:....|
00000f00  21 f1 3a 6c 69 6e 65 3d  6c 69 6e 65 2b 6e 63 3a  |!.:line=line+nc:|
00000f10  6d 3d 6d 2b 38 3a ed 3a  2a 53 50 4f 4f 4c 0d 07  |m=m+8:.:*SPOOL..|
00000f20  9e 2e ef 31 32 2c 32 36  3a f2 52 4f 4d 52 45 41  |...12,26:.ROMREA|
00000f30  44 28 5a 29 3a f2 47 52  49 44 3a ef 33 31 2c 31  |D(Z):.GRID:.31,1|
00000f40  32 2c 35 2c 63 32 3a e5  8d 44 64 40 0d 07 a8 0b  |2,5,c2:..Dd@....|
00000f50  dd f2 65 72 72 6f 72 0d  07 b2 13 e7 20 9f 3c 3e  |..error..... .<>|
00000f60  32 30 31 20 e5 20 8d 64  5a 47 0d 07 bc 1f f1 22  |201 . .dZG....."|
00000f70  44 69 73 6b 20 72 65 61  64 20 6f 6e 6c 79 2e 22  |Disk read only."|
00000f80  3a 49 3d a6 28 39 30 30  29 0d 07 c6 1e f1 22 4d  |:I=.(900)....."M|
00000f90  61 6b 65 20 64 69 73 6b  20 52 2f 57 2e 22 3a 49  |ake disk R/W.":I|
00000fa0  3d a6 28 39 30 30 29 0d  07 d0 26 f1 22 53 70 61  |=.(900)...&."Spa|
00000fb0  63 65 20 77 68 65 6e 20  64 6f 6e 65 2e 22 3a f5  |ce when done.":.|
00000fc0  3a fd 20 bf 28 30 29 3d  22 20 22 3a e1 0d 07 da  |:. .(0)=" ":....|
00000fd0  19 db 3a f6 3a f1 3b 22  20 61 74 20 6c 69 6e 65  |..:.:.;" at line|
00000fe0  20 22 3b 9e 3a e0 0d ff                           | ";.:...|
00000fe8