�7
 �FIRST:I=�

 �TWO:I=�
(
 � 129
2 � � � �Dx@
< �23;8202;0;0;0
F; � BOX(16,16):� TMP(33):� JIM(8):� FRED(4):� BOB(16,16)
P �newbox
Z* G1=128:G2=129:G3=130:G4=131:Y%=1:X%=1
d Z%=1540
n � MAIN LOOP
x �design
�
 �chrs
�	 �end
� � �Dn@
�" �****************************
� � �design
�O �20:�:�1:�10,1)"LIGHT PEN DESIGNER":�28,29)"finish>>":�4,29)"<<clears!"
� �5,12)"____"
� �6,9)"1"
� �6,16)"3"
� �27,12)"____" 
� �29,9)"2"
� �29,16)"4"
� �17,3)"><"

 �17,22)"><"

 �3

*�23,G1,255,129,129,129,129,129,129,255

"+ �23,G2,255,255,255,255,255,255,255,255

,GRAPH$="������������������"

6 �19,0,4,0,0,0

@ �19,3,0,0,0,0   

J
 � 130

T� N=5 � 20

^� �9,N)GRAPH$

h�

r �9,4)"������������������"

|! �9,21)"������������������" 

� �36,28)"���"

� �36,29)"���"

� �36,30)"���"

� �1,28)"���"

� �1,29)"���" 

� �1,30)"���"

�' �23,G2,204,51,204,51,204,51,204,51

� �N=1�16:�J=1�16

�% � BOX(N,J)=-1 � �N+9,J+4);�(G1)

�$ � BOX(N,J)=1 � �N+9,J+4);�(G2)

� �:�

� �:A=�(0) � 3:� A<>0

� �18,28)"READY"
�
A=�(0) � 3
� A=1 � �TRB
&
 �tube
0 � Y%>27 � X%>35 � �DlB
:  � Y%>27 � X%<5 � �DlB
D � X%>25 � �TRB
N � Y%>20 � �TRB
X � Y%<5 � �TRB 
bX=X%-9:Y=Y%-4
l � Y%>27 � X%> 35 � �
v � Y%>27 � X%<5 � �newbox
� � Y%>27 � X%<5 � �tt@
� BOX(X,Y)=BOX(X,Y)*-1
�!� BOX(X,Y)=-1 � �X%,Y%)�(G1)
� � BOX(X,Y)=1 � �X%,Y%)�(G2)
�� N=0 � 400:�
�� 0
� �
� �128,64,32,16,8,4,2,1
�� �chrs
� st=1:�7
�� N=1�8:temp=0:�:�K=1�8
�!�A:� BOX(K,N)=1 � temp=temp+A
��:TMP(st)=temp:st=st+1:�
C �23,G1,TMP(1),TMP(2),TMP(3),TMP(4),TMP(5),TMP(6),TMP(7),TMP(8)
� N=1�8:temp=0:�:�K=9�16
!�A:� BOX(K,N)=1 � temp=temp+A
 �:TMP(st)=temp:st=st+1:�
*I�23,G2,TMP(9),TMP(10),TMP(11),TMP(12),TMP(13),TMP(14),TMP(15),TMP(16)
4� N=9�16:temp=0:�:�K=1�8
>!�A:� BOX(K,N)=1 � temp=temp+A
H�:TMP(st)=temp:st=st+1:�
RJ�23,G3,TMP(17),TMP(18),TMP(19),TMP(20),TMP(21),TMP(22),TMP(23),TMP(24)
\� N=9�16:temp=0:�:�K=9�16
f!�A:� BOX(K,N)=1 � temp=temp+A
p�:TMP(st)=temp:st=st+1:�
zJ�23,G4,TMP(25),TMP(26),TMP(27),TMP(28),TMP(29),TMP(30),TMP(31),TMP(32)
� �
�
� �end
� � LOOP
�
�128:�
� back=0
��130:�3
��10,5)�(G1);�(G2)
��10,6)�(G3);�(G4)
�+�1:�128:�15,5)"FOUR CHARACTERS (2X2)" 
� Z=1:C$="VDU23,X,":�3
� �:�
� �J=1�4:B$=C$:� N=1�8
�&E$=�(TMP(Z))+",":Z=Z+1:B$=B$+E$   
'�:�2:W$=�(J):�" ";W$;" ";:�3:�B$:� 
 �:�4)"X = the character" 
�1:�10,16)"PRINTOUT?"
$�10,21)"BACK TO GRID?"
.�10,26)"OPTIONS?"
8�130:�3
B�30,20)"***"
L�30,21)"* *"
V�30,22)"***"
`�30,25)"***"
j�30,26)"* *"
t�30,27)"***"
~�30,15)"***"
��30,16)"* *"
��30,17)"***"
� �:A=�(0) � 3:� A<>0
�A=�(0) � 3
�� A=1 � �tfD
�
 �tube
�$� X%>25 � Y%>15 � Y%<18 � �print
�!�( X%>25) � Y%>19 � Y%<23 � �
�� X%>25 � Y%>24 � �options
� � back=1 � �
� � �T^E
� ENDPORC
� �print

 �
�2
Z=1:C$="VDU23,X,"
(�J=1�4:B$=C$:� N=1�8
2#E$=�(TMP(Z))+",":Z=Z+1:B$=B$+E$
<�:�4)B$:�
F�:�4)"X = the character"
P�
Z�3
d �=0:�:��=300
n�
x	 �3:�
�� �tube
�(!&70=&FE00:!&72=0:!&75=&FE01:!&77=0 
�$ ?&74=16:A%=6:X%=&70:Y%=0:�&FFF1
�A%=5:X%=&75:Y%=0:�&FFF1 
� T%=?&79*256
�$ ?&74=17:A%=6:X%=&70:Y%=0:�&FFF1
� A%=5:X%=&75:Y%=0:�&FFF1
� T%=T%+?&79:T%=T%-Z%
�Y%=T% � 80
�X%=T% � 80
� X%=X%/2
� �
� � �newbox
 �1,-15,250,3
$ �N=0�16:�K=0�16:BOX(N,K)=-1:�:�
 �
" � �options
,+�20:�:�1:�10,0)"USER DEFINED GRAPHICS"
6
 �gbox
@�128:�2
J��3,3)"MOVE CHARACTERS ABOUT";�3,6)"ROTATE THE WORK CHARACTERS";�3,9)"INVERT THE WORK AREA";�3,12)"FETCH ANY FONT TO RE-DESIGN";�3,15)"END THE PROGRAM"
T �3,18)"BACK TO GRID"
^( �131:� N=3�18�3:�35,N)"   ":�:�128
h �:A=�(0) � 3:� A<>0
r%�***************LOOP HERE!*******
| �
� A=�(0) � 3
� � A=1 � �tFF
�
 �tube
�� Y%=3 � X%>30 � �move
�� Y%=18 � X%>30 � �djF
�� Y%=15 � X%>30 � �
�� Y%=9 � X%>30 � �invert
�� Y%=12 � X%>30 � �font
�� Y%=6 � X%>30 � �rotate
� �0
� back=1
� �
� � �gbox
�24,0;0;1279;288;  
�0,129:�
�131:� N=5 � 35 �2
&�N,24)" ":�
0�131:� N=5 � 35 �2
:�N,30)" ":�
D�0:�130
N�5,26)�(128)
X�7,26)�(129)
b�9,26)�(130)
l�11,26)�(131)  
v	 �131
�(g=132:�N=13�35�2:�N,26)�(g):g=g+1:�
�!�N=5�35�2:�N,28)�(g):g=g+1:�
�:�0,26)"128>";�37,26)"143";�0,28)"144>";�37,28)"159"  
�	 �0,0
� �0,205:�1279,205
� �0,80:�1279,80 
�Q �0,24)"pen";�37,24)"pen";�0,30)"pen";�37,30)"pen";:�129:�5,27)"<work!>";  
�. �SCROLL(" POINT TO SELECTION ON RIGHT ") 
�	 �128
� �
�� �SCROLL(S$):�3
�� N=1� �(S$)
�% �N,20) �S$,N,1):�J=1�150:�:�:�2
�
� �UNSCROLL
%� N=0 � 39:�J=1�20:�N,20)" ":�:�
 �
*� �poke(P)
4 b=X%:c=Y%
>#?&70=P:A%=10:X%=&70:Y%=0:�&FFF1
HX%=b:Y%=c:�
R� �fetch
\�:A=�(0) � 3:� A<>0
f �
p A=�(0) � 3
z � A=1 � �DpH
� �tube  
� � Y%=24 � Y%=30  
�	end=0
�� Y%=24 � temp=128
�� Y%=30 � temp=144
�� N=5 � 35 � 2
�� X%=N � found=temp
�� X%=N � end=1
�temp=temp+1
��
�� end=1 � �d|H
�
� �DfH
� �1,-15,200,3
	 �
	� �move
	�1,-15,150,3:�UNSCROLL
	$.�SCROLL("POINT TO CHARACTER TO BE MOVED.")
	.�fetch:m1=found
	88�UNSCROLL:�SCROLL("NOW POINT TO THE NEW CHARACTER.")
	B�fetch:m2=found
	L
�poke(m1)
	V%A=&71:� N=1 � 8:JIM(N)=?A:A=A+1:�
	`B�23,m2,JIM(1),JIM(2),JIM(3),JIM(4),JIM(5),JIM(6),JIM(7),JIM(8)
	j �UNSCROLL:�make:�gbox 
	t�
	~� ***SUB***
	�U=temp � 2
	�W=temp � 2
	�
temp=U
	�� W=1 � BOX(X,Y)=1
	��
	�� �make
	��X,Y,Z,W,U
	��poke(128):Z=&71
	�� Y=1�8:temp=?Z
	�� X=8 � 1 � -1
	�
� �tHI
	�
�:Z=Z+1:�
�poke(129):Z=&71

� Y=1�8:temp=?Z
� X=16 � 9 � -1
� �tHI 
(
�:Z=Z+1:�
2�poke(130):Z=&71
<� Y=9 � 16:temp=?Z
F� X=8 � 1 � -1
P
� �tHI
Z
�:Z=Z+1:�
d�poke(131):Z=&71
n� Y=9 � 16:temp=?Z
x� X=16 � 9 � -1 
�
� �tHI
�
�:Z=Z+1:�
��
� � �invert:� X,Y
� �1,-15,225,2
�� X=1�16:�Y=1�16
�BOX(X,Y)=BOX(X,Y)*-1
��:�
��chrs:�gbox
��
�� �font
��1,-15,50,2:�UNSCROLL
�u�:�SCROLL("TYPE ANY FOUR KEYBOARD FONTS (use keys)"):�UNSCROLL:�SCROLL("THESE WILL BE LOADED INTO THE WORK AREA")
 �UNSCROLL
	 �129
�3,24)" "
"
� N=1 � 4
,�4)"Enter font ";N;
6I=�:�"   ";�(I)
@
FRED(N)=I
J�
T�poke(FRED(1))
^"F=&71:�N=1�8:JIM(N)=?F:F=F+1:�
hC�23,128,JIM(1),JIM(2),JIM(3),JIM(4),JIM(5),JIM(6),JIM(7),JIM(8)
r�poke(FRED(2))
|#F=&71:�N=1�8:JIM(N)=?F:F=F+1:� 
�C�23,129,JIM(1),JIM(2),JIM(3),JIM(4),JIM(5),JIM(6),JIM(7),JIM(8)
��poke(FRED(3))
�"F=&71:�N=1�8:JIM(N)=?F:F=F+1:�
�C�23,130,JIM(1),JIM(2),JIM(3),JIM(4),JIM(5),JIM(6),JIM(7),JIM(8)
��poke(FRED(4))
�$F=&71:�N=1�8:JIM(N)=?F:F=F+1:�  
�C�23,131,JIM(1),JIM(2),JIM(3),JIM(4),JIM(5),JIM(6),JIM(7),JIM(8)
� �newbox
�	�make
�	�gbox
��
�
� �rotate
� �1,-15,225,2
�X,Y,XX,YY
XX=1
� Y=1�16:YY=16
&�X=1�16
0BOB(XX,YY)=BOX(X,Y)
:YY=YY-1
D�
NXX=XX+1
X�
b� X=1�16:�Y=1�16
l BOX(X,Y)=BOB(X,Y)
v�:�
�	�chrs
�	�gbox
��
�	��TWO
��
�,�"�������������������������������������"
��"��        INSTRUCTIONS"
��"��        INSTRUCTIONS"
�,�"�������������������������������������"
�)�"�This program was developed with a"
�-�"�STACK light pen, but should work with"
�(�"�any pen using the joystick port."
�+�"�When in EDIT mode, simply point the"

+�"�pen to the required pixel and touch"

(�"�the contact. Repeating this will"

-�"�delete the same pixel. Use FINISH and"

  �"�CLEAR boxes as required."

*�"�AS REQUIRED."

4+�"�After using the FINISH box you will"

>0�"�be given the option of printing out the";

H*�"�VDU23 codes, or you can write them"

R0�"�down. Character codes 128-131 are used.";

\,�"�If you find the wrong pixel is being"

f.�"�activated you can adjust your computer"

p&�"�by changing the value of Z% in"

z.�"�line 155. Adding or subtracting 2 at a"

��"�time should correct it!"

��

�� �STOP

��

�	�:�:�

�?� "     THIS PROGRAM WILL ONLY RUN ON A    ACORN 6502 TUBE"

��7

��

��

���FIRST

��

�!�''"��  굠��￥���굪￥"
�"��  굠��굠굢��굠굠"
�"��  굠��굠���ﵠ굠"
�"��  굠��굠���굠굠"
$�"��  ��������������������"
.�"    ��������������������"
8 �"��           ��꿯���"
B �"��           ��굠���"
L �"��           꿯�꿯���"
V �"��           굠�굠���"
` �"��           ������������"
j �"             ������������"
t'�"     ��GRAPHIC and FONT DESIGNER"
~'�"     ��GRAPHIC and FONT DESIGNER"
��'"                 ��By"
��"                 ��By"
�)�'"    ��Jim Walsh of BOLTON  (1986)"
�(�"    ��Jim Walsh of BOLTON  (1986)"
��
�

00000000  0d 00 0a 07 20 eb 37 0d  00 14 0f 20 f2 46 49 52  |.... .7.... .FIR|
00000010  53 54 3a 49 3d a5 0d 00  1e 0d 20 f2 54 57 4f 3a  |ST:I=..... .TWO:|
00000020  49 3d a5 0d 00 28 0a 20  eb 20 31 32 39 0d 00 32  |I=...(. . 129..2|
00000030  0f 20 ee 20 85 20 e5 20  8d 44 78 40 0d 00 3c 13  |. . . . .Dx@..<.|
00000040  20 ef 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 0d  | .23;8202;0;0;0.|
00000050  00 46 3b 20 de 20 42 4f  58 28 31 36 2c 31 36 29  |.F; . BOX(16,16)|
00000060  3a de 20 54 4d 50 28 33  33 29 3a de 20 4a 49 4d  |:. TMP(33):. JIM|
00000070  28 38 29 3a de 20 46 52  45 44 28 34 29 3a de 20  |(8):. FRED(4):. |
00000080  42 4f 42 28 31 36 2c 31  36 29 0d 00 50 0c 20 f2  |BOB(16,16)..P. .|
00000090  6e 65 77 62 6f 78 0d 00  5a 2a 20 47 31 3d 31 32  |newbox..Z* G1=12|
000000a0  38 3a 47 32 3d 31 32 39  3a 47 33 3d 31 33 30 3a  |8:G2=129:G3=130:|
000000b0  47 34 3d 31 33 31 3a 59  25 3d 31 3a 58 25 3d 31  |G4=131:Y%=1:X%=1|
000000c0  0d 00 64 0c 20 5a 25 3d  31 35 34 30 0d 00 6e 10  |..d. Z%=1540..n.|
000000d0  20 f4 20 4d 41 49 4e 20  4c 4f 4f 50 0d 00 78 0c  | . MAIN LOOP..x.|
000000e0  20 f2 64 65 73 69 67 6e  0d 00 82 0a 20 f2 63 68  | .design.... .ch|
000000f0  72 73 0d 00 8c 09 20 f2  65 6e 64 0d 00 96 0b 20  |rs.... .end.... |
00000100  e5 20 8d 44 6e 40 0d 00  a0 22 20 f4 2a 2a 2a 2a  |. .Dn@..." .****|
00000110  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000120  2a 2a 2a 2a 2a 2a 2a 2a  0d 00 aa 0e 20 dd 20 f2  |********.... . .|
00000130  64 65 73 69 67 6e 0d 00  b4 4f 20 ef 32 30 3a db  |design...O .20:.|
00000140  3a fb 31 3a f1 8a 31 30  2c 31 29 22 4c 49 47 48  |:.1:..10,1)"LIGH|
00000150  54 20 50 45 4e 20 44 45  53 49 47 4e 45 52 22 3a  |T PEN DESIGNER":|
00000160  f1 8a 32 38 2c 32 39 29  22 66 69 6e 69 73 68 3e  |..28,29)"finish>|
00000170  3e 22 3a f1 8a 34 2c 32  39 29 22 3c 3c 63 6c 65  |>":..4,29)"<<cle|
00000180  61 72 73 21 22 0d 00 be  12 20 f1 8a 35 2c 31 32  |ars!".... ..5,12|
00000190  29 22 5f 5f 5f 5f 22 0d  00 c8 0e 20 f1 8a 36 2c  |)"____".... ..6,|
000001a0  39 29 22 31 22 0d 00 d2  0f 20 f1 8a 36 2c 31 36  |9)"1".... ..6,16|
000001b0  29 22 33 22 0d 00 dc 14  20 f1 8a 32 37 2c 31 32  |)"3".... ..27,12|
000001c0  29 22 5f 5f 5f 5f 22 20  0d 00 e6 0f 20 f1 8a 32  |)"____" .... ..2|
000001d0  39 2c 39 29 22 32 22 0d  00 f0 10 20 f1 8a 32 39  |9,9)"2".... ..29|
000001e0  2c 31 36 29 22 34 22 0d  00 fa 10 20 f1 8a 31 37  |,16)"4".... ..17|
000001f0  2c 33 29 22 3e 3c 22 0d  01 04 11 20 f1 8a 31 37  |,3)"><".... ..17|
00000200  2c 32 32 29 22 3e 3c 22  0d 01 0e 07 20 fb 33 0d  |,22)"><".... .3.|
00000210  01 18 2a ef 32 33 2c 47  31 2c 32 35 35 2c 31 32  |..*.23,G1,255,12|
00000220  39 2c 31 32 39 2c 31 32  39 2c 31 32 39 2c 31 32  |9,129,129,129,12|
00000230  39 2c 31 32 39 2c 32 35  35 0d 01 22 2b 20 ef 32  |9,129,255.."+ .2|
00000240  33 2c 47 32 2c 32 35 35  2c 32 35 35 2c 32 35 35  |3,G2,255,255,255|
00000250  2c 32 35 35 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,255,255,255,255|
00000260  2c 32 35 35 0d 01 2c 1f  47 52 41 50 48 24 3d 22  |,255..,.GRAPH$="|
00000270  81 80 80 80 80 80 80 80  80 80 80 80 80 80 80 80  |................|
00000280  80 81 22 0d 01 36 12 20  ef 31 39 2c 30 2c 34 2c  |.."..6. .19,0,4,|
00000290  30 2c 30 2c 30 0d 01 40  15 20 ef 31 39 2c 33 2c  |0,0,0..@. .19,3,|
000002a0  30 2c 30 2c 30 2c 30 20  20 20 0d 01 4a 0a 20 fb  |0,0,0,0   ..J. .|
000002b0  20 31 33 30 0d 01 54 0e  e3 20 4e 3d 35 20 b8 20  | 130..T.. N=5 . |
000002c0  32 30 0d 01 5e 11 f1 20  8a 39 2c 4e 29 47 52 41  |20..^.. .9,N)GRA|
000002d0  50 48 24 0d 01 68 05 ed  0d 01 72 1f 20 f1 8a 39  |PH$..h....r. ..9|
000002e0  2c 34 29 22 81 81 81 81  81 81 81 81 81 81 81 81  |,4)"............|
000002f0  81 81 81 81 81 81 22 0d  01 7c 21 20 f1 8a 39 2c  |......"..|! ..9,|
00000300  32 31 29 22 81 81 81 81  81 81 81 81 81 81 81 81  |21)"............|
00000310  81 81 81 81 81 81 22 20  0d 01 86 12 20 f1 8a 33  |......" .... ..3|
00000320  36 2c 32 38 29 22 80 80  80 22 0d 01 90 12 20 f1  |6,28)"...".... .|
00000330  8a 33 36 2c 32 39 29 22  80 80 80 22 0d 01 9a 12  |.36,29)"..."....|
00000340  20 f1 8a 33 36 2c 33 30  29 22 80 80 80 22 0d 01  | ..36,30)"..."..|
00000350  a4 11 20 f1 8a 31 2c 32  38 29 22 80 80 80 22 0d  |.. ..1,28)"...".|
00000360  01 ae 12 20 f1 8a 31 2c  32 39 29 22 80 80 80 22  |... ..1,29)"..."|
00000370  20 0d 01 b8 11 20 f1 8a  31 2c 33 30 29 22 80 80  | .... ..1,30)"..|
00000380  80 22 0d 01 c2 27 20 ef  32 33 2c 47 32 2c 32 30  |."...' .23,G2,20|
00000390  34 2c 35 31 2c 32 30 34  2c 35 31 2c 32 30 34 2c  |4,51,204,51,204,|
000003a0  35 31 2c 32 30 34 2c 35  31 0d 01 cc 14 20 e3 4e  |51,204,51.... .N|
000003b0  3d 31 b8 31 36 3a e3 4a  3d 31 b8 31 36 0d 01 d6  |=1.16:.J=1.16...|
000003c0  25 20 e7 20 42 4f 58 28  4e 2c 4a 29 3d 2d 31 20  |% . BOX(N,J)=-1 |
000003d0  8c 20 f1 8a 4e 2b 39 2c  4a 2b 34 29 3b bd 28 47  |. ..N+9,J+4);.(G|
000003e0  31 29 0d 01 e0 24 20 e7  20 42 4f 58 28 4e 2c 4a  |1)...$ . BOX(N,J|
000003f0  29 3d 31 20 8c 20 f1 8a  4e 2b 39 2c 4a 2b 34 29  |)=1 . ..N+9,J+4)|
00000400  3b bd 28 47 32 29 0d 01  ea 08 20 ed 3a ed 0d 01  |;.(G2).... .:...|
00000410  f4 18 20 f5 3a 41 3d 96  28 30 29 20 80 20 33 3a  |.. .:A=.(0) . 3:|
00000420  fd 20 41 3c 3e 30 0d 01  fe 14 20 f1 8a 31 38 2c  |. A<>0.... ..18,|
00000430  32 38 29 22 52 45 41 44  59 22 0d 02 08 05 f5 0d  |28)"READY"......|
00000440  02 12 0e 41 3d 96 28 30  29 20 80 20 33 0d 02 1c  |...A=.(0) . 3...|
00000450  10 e7 20 41 3d 31 20 8c  20 8d 54 52 42 0d 02 26  |.. A=1 . .TRB..&|
00000460  0a 20 f2 74 75 62 65 0d  02 30 1b 20 e7 20 59 25  |. .tube..0. . Y%|
00000470  3e 32 37 20 80 20 58 25  3e 33 35 20 8c 20 8d 44  |>27 . X%>35 . .D|
00000480  6c 42 0d 02 3a 1b 20 20  e7 20 59 25 3e 32 37 20  |lB..:.  . Y%>27 |
00000490  80 20 58 25 3c 35 20 8c  20 8d 44 6c 42 0d 02 44  |. X%<5 . .DlB..D|
000004a0  13 20 e7 20 58 25 3e 32  35 20 8c 20 8d 54 52 42  |. . X%>25 . .TRB|
000004b0  0d 02 4e 13 20 e7 20 59  25 3e 32 30 20 8c 20 8d  |..N. . Y%>20 . .|
000004c0  54 52 42 0d 02 58 13 20  e7 20 59 25 3c 35 20 8c  |TRB..X. . Y%<5 .|
000004d0  20 8d 54 52 42 20 0d 02  62 11 58 3d 58 25 2d 39  | .TRB ..b.X=X%-9|
000004e0  3a 59 3d 59 25 2d 34 0d  02 6c 19 20 e7 20 59 25  |:Y=Y%-4..l. . Y%|
000004f0  3e 32 37 20 80 20 58 25  3e 20 33 35 20 8c 20 e1  |>27 . X%> 35 . .|
00000500  0d 02 76 1d 20 e7 20 59  25 3e 32 37 20 80 20 58  |..v. . Y%>27 . X|
00000510  25 3c 35 20 8c 20 f2 6e  65 77 62 6f 78 0d 02 80  |%<5 . .newbox...|
00000520  1a 20 e7 20 59 25 3e 32  37 20 80 20 58 25 3c 35  |. . Y%>27 . X%<5|
00000530  20 8c 20 8d 74 74 40 0d  02 8a 19 20 42 4f 58 28  | . .tt@.... BOX(|
00000540  58 2c 59 29 3d 42 4f 58  28 58 2c 59 29 2a 2d 31  |X,Y)=BOX(X,Y)*-1|
00000550  0d 02 94 21 e7 20 42 4f  58 28 58 2c 59 29 3d 2d  |...!. BOX(X,Y)=-|
00000560  31 20 8c 20 f1 8a 58 25  2c 59 25 29 bd 28 47 31  |1 . ..X%,Y%).(G1|
00000570  29 0d 02 9e 20 e7 20 42  4f 58 28 58 2c 59 29 3d  |)... . BOX(X,Y)=|
00000580  31 20 8c 20 f1 8a 58 25  2c 59 25 29 bd 28 47 32  |1 . ..X%,Y%).(G2|
00000590  29 0d 02 a8 11 e3 20 4e  3d 30 20 b8 20 34 30 30  |)..... N=0 . 400|
000005a0  3a ed 0d 02 b2 07 fd 20  30 0d 02 bc 06 20 e1 0d  |:...... 0.... ..|
000005b0  02 c6 1a 20 dc 31 32 38  2c 36 34 2c 33 32 2c 31  |... .128,64,32,1|
000005c0  36 2c 38 2c 34 2c 32 2c  31 0d 02 d0 0b dd 20 f2  |6,8,4,2,1..... .|
000005d0  63 68 72 73 0d 02 da 0c  20 73 74 3d 31 3a ef 37  |chrs.... st=1:.7|
000005e0  0d 02 e4 1b e3 20 4e 3d  31 b8 38 3a 74 65 6d 70  |..... N=1.8:temp|
000005f0  3d 30 3a f7 3a e3 4b 3d  31 b8 38 0d 02 ee 21 f3  |=0:.:.K=1.8...!.|
00000600  41 3a e7 20 42 4f 58 28  4b 2c 4e 29 3d 31 20 8c  |A:. BOX(K,N)=1 .|
00000610  20 74 65 6d 70 3d 74 65  6d 70 2b 41 0d 02 f8 1c  | temp=temp+A....|
00000620  ed 3a 54 4d 50 28 73 74  29 3d 74 65 6d 70 3a 73  |.:TMP(st)=temp:s|
00000630  74 3d 73 74 2b 31 3a ed  0d 03 02 43 20 ef 32 33  |t=st+1:....C .23|
00000640  2c 47 31 2c 54 4d 50 28  31 29 2c 54 4d 50 28 32  |,G1,TMP(1),TMP(2|
00000650  29 2c 54 4d 50 28 33 29  2c 54 4d 50 28 34 29 2c  |),TMP(3),TMP(4),|
00000660  54 4d 50 28 35 29 2c 54  4d 50 28 36 29 2c 54 4d  |TMP(5),TMP(6),TM|
00000670  50 28 37 29 2c 54 4d 50  28 38 29 0d 03 0c 1c e3  |P(7),TMP(8).....|
00000680  20 4e 3d 31 b8 38 3a 74  65 6d 70 3d 30 3a f7 3a  | N=1.8:temp=0:.:|
00000690  e3 4b 3d 39 b8 31 36 0d  03 16 21 f3 41 3a e7 20  |.K=9.16...!.A:. |
000006a0  42 4f 58 28 4b 2c 4e 29  3d 31 20 8c 20 74 65 6d  |BOX(K,N)=1 . tem|
000006b0  70 3d 74 65 6d 70 2b 41  0d 03 20 1c ed 3a 54 4d  |p=temp+A.. ..:TM|
000006c0  50 28 73 74 29 3d 74 65  6d 70 3a 73 74 3d 73 74  |P(st)=temp:st=st|
000006d0  2b 31 3a ed 0d 03 2a 49  ef 32 33 2c 47 32 2c 54  |+1:...*I.23,G2,T|
000006e0  4d 50 28 39 29 2c 54 4d  50 28 31 30 29 2c 54 4d  |MP(9),TMP(10),TM|
000006f0  50 28 31 31 29 2c 54 4d  50 28 31 32 29 2c 54 4d  |P(11),TMP(12),TM|
00000700  50 28 31 33 29 2c 54 4d  50 28 31 34 29 2c 54 4d  |P(13),TMP(14),TM|
00000710  50 28 31 35 29 2c 54 4d  50 28 31 36 29 0d 03 34  |P(15),TMP(16)..4|
00000720  1c e3 20 4e 3d 39 b8 31  36 3a 74 65 6d 70 3d 30  |.. N=9.16:temp=0|
00000730  3a f7 3a e3 4b 3d 31 b8  38 0d 03 3e 21 f3 41 3a  |:.:.K=1.8..>!.A:|
00000740  e7 20 42 4f 58 28 4b 2c  4e 29 3d 31 20 8c 20 74  |. BOX(K,N)=1 . t|
00000750  65 6d 70 3d 74 65 6d 70  2b 41 0d 03 48 1c ed 3a  |emp=temp+A..H..:|
00000760  54 4d 50 28 73 74 29 3d  74 65 6d 70 3a 73 74 3d  |TMP(st)=temp:st=|
00000770  73 74 2b 31 3a ed 0d 03  52 4a ef 32 33 2c 47 33  |st+1:...RJ.23,G3|
00000780  2c 54 4d 50 28 31 37 29  2c 54 4d 50 28 31 38 29  |,TMP(17),TMP(18)|
00000790  2c 54 4d 50 28 31 39 29  2c 54 4d 50 28 32 30 29  |,TMP(19),TMP(20)|
000007a0  2c 54 4d 50 28 32 31 29  2c 54 4d 50 28 32 32 29  |,TMP(21),TMP(22)|
000007b0  2c 54 4d 50 28 32 33 29  2c 54 4d 50 28 32 34 29  |,TMP(23),TMP(24)|
000007c0  0d 03 5c 1d e3 20 4e 3d  39 b8 31 36 3a 74 65 6d  |..\.. N=9.16:tem|
000007d0  70 3d 30 3a f7 3a e3 4b  3d 39 b8 31 36 0d 03 66  |p=0:.:.K=9.16..f|
000007e0  21 f3 41 3a e7 20 42 4f  58 28 4b 2c 4e 29 3d 31  |!.A:. BOX(K,N)=1|
000007f0  20 8c 20 74 65 6d 70 3d  74 65 6d 70 2b 41 0d 03  | . temp=temp+A..|
00000800  70 1c ed 3a 54 4d 50 28  73 74 29 3d 74 65 6d 70  |p..:TMP(st)=temp|
00000810  3a 73 74 3d 73 74 2b 31  3a ed 0d 03 7a 4a ef 32  |:st=st+1:...zJ.2|
00000820  33 2c 47 34 2c 54 4d 50  28 32 35 29 2c 54 4d 50  |3,G4,TMP(25),TMP|
00000830  28 32 36 29 2c 54 4d 50  28 32 37 29 2c 54 4d 50  |(26),TMP(27),TMP|
00000840  28 32 38 29 2c 54 4d 50  28 32 39 29 2c 54 4d 50  |(28),TMP(29),TMP|
00000850  28 33 30 29 2c 54 4d 50  28 33 31 29 2c 54 4d 50  |(30),TMP(31),TMP|
00000860  28 33 32 29 0d 03 84 06  20 e1 0d 03 8e 0a dd 20  |(32).... ...... |
00000870  f2 65 6e 64 0d 03 98 0b  20 f4 20 4c 4f 4f 50 0d  |.end.... . LOOP.|
00000880  03 a2 0a fb 31 32 38 3a  db 0d 03 ac 0b 20 62 61  |....128:..... ba|
00000890  63 6b 3d 30 0d 03 b6 0b  fb 31 33 30 3a fb 33 0d  |ck=0.....130:.3.|
000008a0  03 c0 16 f1 8a 31 30 2c  35 29 bd 28 47 31 29 3b  |.....10,5).(G1);|
000008b0  bd 28 47 32 29 0d 03 ca  16 f1 8a 31 30 2c 36 29  |.(G2)......10,6)|
000008c0  bd 28 47 33 29 3b bd 28  47 34 29 0d 03 d4 2b fb  |.(G3);.(G4)...+.|
000008d0  31 3a fb 31 32 38 3a f1  8a 31 35 2c 35 29 22 46  |1:.128:..15,5)"F|
000008e0  4f 55 52 20 43 48 41 52  41 43 54 45 52 53 20 28  |OUR CHARACTERS (|
000008f0  32 58 32 29 22 20 0d 03  de 19 20 5a 3d 31 3a 43  |2X2)" .... Z=1:C|
00000900  24 3d 22 56 44 55 32 33  2c 58 2c 22 3a fb 33 0d  |$="VDU23,X,":.3.|
00000910  03 e8 08 20 f1 3a f1 0d  03 f2 19 20 e3 4a 3d 31  |... .:..... .J=1|
00000920  b8 34 3a 42 24 3d 43 24  3a e3 20 4e 3d 31 b8 38  |.4:B$=C$:. N=1.8|
00000930  0d 03 fc 26 45 24 3d c3  28 54 4d 50 28 5a 29 29  |...&E$=.(TMP(Z))|
00000940  2b 22 2c 22 3a 5a 3d 5a  2b 31 3a 42 24 3d 42 24  |+",":Z=Z+1:B$=B$|
00000950  2b 45 24 20 20 20 0d 04  06 27 ed 3a fb 32 3a 57  |+E$   ...'.:.2:W|
00000960  24 3d c3 28 4a 29 3a f1  22 20 22 3b 57 24 3b 22  |$=.(J):." ";W$;"|
00000970  20 22 3b 3a fb 33 3a f1  42 24 3a ed 20 0d 04 10  | ";:.3:.B$:. ...|
00000980  1f 20 f1 3a f1 8a 34 29  22 58 20 3d 20 74 68 65  |. .:..4)"X = the|
00000990  20 63 68 61 72 61 63 74  65 72 22 20 0d 04 1a 1a  | character" ....|
000009a0  fb 31 3a f1 8a 31 30 2c  31 36 29 22 50 52 49 4e  |.1:..10,16)"PRIN|
000009b0  54 4f 55 54 3f 22 0d 04  24 1b f1 8a 31 30 2c 32  |TOUT?"..$...10,2|
000009c0  31 29 22 42 41 43 4b 20  54 4f 20 47 52 49 44 3f  |1)"BACK TO GRID?|
000009d0  22 0d 04 2e 16 f1 8a 31  30 2c 32 36 29 22 4f 50  |"......10,26)"OP|
000009e0  54 49 4f 4e 53 3f 22 0d  04 38 0b fb 31 33 30 3a  |TIONS?"..8..130:|
000009f0  fb 33 0d 04 42 11 f1 8a  33 30 2c 32 30 29 22 2a  |.3..B...30,20)"*|
00000a00  2a 2a 22 0d 04 4c 11 f1  8a 33 30 2c 32 31 29 22  |**"..L...30,21)"|
00000a10  2a 20 2a 22 0d 04 56 11  f1 8a 33 30 2c 32 32 29  |* *"..V...30,22)|
00000a20  22 2a 2a 2a 22 0d 04 60  11 f1 8a 33 30 2c 32 35  |"***"..`...30,25|
00000a30  29 22 2a 2a 2a 22 0d 04  6a 11 f1 8a 33 30 2c 32  |)"***"..j...30,2|
00000a40  36 29 22 2a 20 2a 22 0d  04 74 11 f1 8a 33 30 2c  |6)"* *"..t...30,|
00000a50  32 37 29 22 2a 2a 2a 22  0d 04 7e 11 f1 8a 33 30  |27)"***"..~...30|
00000a60  2c 31 35 29 22 2a 2a 2a  22 0d 04 88 11 f1 8a 33  |,15)"***"......3|
00000a70  30 2c 31 36 29 22 2a 20  2a 22 0d 04 92 11 f1 8a  |0,16)"* *"......|
00000a80  33 30 2c 31 37 29 22 2a  2a 2a 22 0d 04 9c 18 20  |30,17)"***".... |
00000a90  f5 3a 41 3d 96 28 30 29  20 80 20 33 3a fd 20 41  |.:A=.(0) . 3:. A|
00000aa0  3c 3e 30 0d 04 a6 0e 41  3d 96 28 30 29 20 80 20  |<>0....A=.(0) . |
00000ab0  33 0d 04 b0 10 e7 20 41  3d 31 20 8c 20 8d 74 66  |3..... A=1 . .tf|
00000ac0  44 0d 04 ba 0a 20 f2 74  75 62 65 0d 04 c4 24 e7  |D.... .tube...$.|
00000ad0  20 58 25 3e 32 35 20 80  20 59 25 3e 31 35 20 80  | X%>25 . Y%>15 .|
00000ae0  20 59 25 3c 31 38 20 8c  20 f2 70 72 69 6e 74 0d  | Y%<18 . .print.|
00000af0  04 ce 21 e7 28 20 58 25  3e 32 35 29 20 80 20 59  |..!.( X%>25) . Y|
00000b00  25 3e 31 39 20 80 20 59  25 3c 32 33 20 8c 20 e1  |%>19 . Y%<23 . .|
00000b10  0d 04 d8 1e e7 20 58 25  3e 32 35 20 80 20 59 25  |..... X%>25 . Y%|
00000b20  3e 32 34 20 8c 20 f2 6f  70 74 69 6f 6e 73 0d 04  |>24 . .options..|
00000b30  e2 11 20 e7 20 62 61 63  6b 3d 31 20 8c 20 e1 0d  |.. . back=1 . ..|
00000b40  04 ec 0b 20 e5 20 8d 54  5e 45 0d 04 f6 0c 20 45  |... . .T^E.... E|
00000b50  4e 44 50 4f 52 43 0d 05  00 0c dd 20 f2 70 72 69  |NDPORC..... .pri|
00000b60  6e 74 0d 05 0a 06 20 db  0d 05 14 06 ef 32 0d 05  |nt.... ......2..|
00000b70  1e 15 5a 3d 31 3a 43 24  3d 22 56 44 55 32 33 2c  |..Z=1:C$="VDU23,|
00000b80  58 2c 22 0d 05 28 18 e3  4a 3d 31 b8 34 3a 42 24  |X,"..(..J=1.4:B$|
00000b90  3d 43 24 3a e3 20 4e 3d  31 b8 38 0d 05 32 23 45  |=C$:. N=1.8..2#E|
00000ba0  24 3d c3 28 54 4d 50 28  5a 29 29 2b 22 2c 22 3a  |$=.(TMP(Z))+",":|
00000bb0  5a 3d 5a 2b 31 3a 42 24  3d 42 24 2b 45 24 0d 05  |Z=Z+1:B$=B$+E$..|
00000bc0  3c 0e ed 3a f1 8a 34 29  42 24 3a ed 0d 05 46 1d  |<..:..4)B$:...F.|
00000bd0  f1 3a f1 8a 34 29 22 58  20 3d 20 74 68 65 20 63  |.:..4)"X = the c|
00000be0  68 61 72 61 63 74 65 72  22 0d 05 50 05 f1 0d 05  |haracter"..P....|
00000bf0  5a 06 ef 33 0d 05 64 11  20 d1 3d 30 3a f5 3a fd  |Z..3..d. .=0:.:.|
00000c00  91 3d 33 30 30 0d 05 6e  05 e1 0d 05 78 09 20 ef  |.=300..n....x. .|
00000c10  33 3a e1 0d 05 82 0b dd  20 f2 74 75 62 65 0d 05  |3:...... .tube..|
00000c20  8c 28 21 26 37 30 3d 26  46 45 30 30 3a 21 26 37  |.(!&70=&FE00:!&7|
00000c30  32 3d 30 3a 21 26 37 35  3d 26 46 45 30 31 3a 21  |2=0:!&75=&FE01:!|
00000c40  26 37 37 3d 30 20 0d 05  96 24 20 3f 26 37 34 3d  |&77=0 ...$ ?&74=|
00000c50  31 36 3a 41 25 3d 36 3a  58 25 3d 26 37 30 3a 59  |16:A%=6:X%=&70:Y|
00000c60  25 3d 30 3a d6 26 46 46  46 31 0d 05 a0 1c 41 25  |%=0:.&FFF1....A%|
00000c70  3d 35 3a 58 25 3d 26 37  35 3a 59 25 3d 30 3a d6  |=5:X%=&75:Y%=0:.|
00000c80  26 46 46 46 31 20 0d 05  aa 10 20 54 25 3d 3f 26  |&FFF1 .... T%=?&|
00000c90  37 39 2a 32 35 36 0d 05  b4 24 20 3f 26 37 34 3d  |79*256...$ ?&74=|
00000ca0  31 37 3a 41 25 3d 36 3a  58 25 3d 26 37 30 3a 59  |17:A%=6:X%=&70:Y|
00000cb0  25 3d 30 3a d6 26 46 46  46 31 0d 05 be 1c 20 41  |%=0:.&FFF1.... A|
00000cc0  25 3d 35 3a 58 25 3d 26  37 35 3a 59 25 3d 30 3a  |%=5:X%=&75:Y%=0:|
00000cd0  d6 26 46 46 46 31 0d 05  c8 18 20 54 25 3d 54 25  |.&FFF1.... T%=T%|
00000ce0  2b 3f 26 37 39 3a 54 25  3d 54 25 2d 5a 25 0d 05  |+?&79:T%=T%-Z%..|
00000cf0  d2 0e 59 25 3d 54 25 20  81 20 38 30 0d 05 dc 0e  |..Y%=T% . 80....|
00000d00  58 25 3d 54 25 20 83 20  38 30 0d 05 e6 0c 20 58  |X%=T% . 80.... X|
00000d10  25 3d 58 25 2f 32 0d 05  f0 06 20 e1 0d 05 fa 0e  |%=X%/2.... .....|
00000d20  20 dd 20 f2 6e 65 77 62  6f 78 0d 06 04 11 20 d4  | . .newbox.... .|
00000d30  31 2c 2d 31 35 2c 32 35  30 2c 33 0d 06 0e 24 20  |1,-15,250,3...$ |
00000d40  e3 4e 3d 30 b8 31 36 3a  e3 4b 3d 30 b8 31 36 3a  |.N=0.16:.K=0.16:|
00000d50  42 4f 58 28 4e 2c 4b 29  3d 2d 31 3a ed 3a ed 0d  |BOX(N,K)=-1:.:..|
00000d60  06 18 06 20 e1 0d 06 22  0f 20 dd 20 f2 6f 70 74  |... ...". . .opt|
00000d70  69 6f 6e 73 0d 06 2c 2b  ef 32 30 3a db 3a fb 31  |ions..,+.20:.:.1|
00000d80  3a f1 8a 31 30 2c 30 29  22 55 53 45 52 20 44 45  |:..10,0)"USER DE|
00000d90  46 49 4e 45 44 20 47 52  41 50 48 49 43 53 22 0d  |FINED GRAPHICS".|
00000da0  06 36 0a 20 f2 67 62 6f  78 0d 06 40 0b fb 31 32  |.6. .gbox..@..12|
00000db0  38 3a fb 32 0d 06 4a 9b  f1 8a 33 2c 33 29 22 4d  |8:.2..J...3,3)"M|
00000dc0  4f 56 45 20 43 48 41 52  41 43 54 45 52 53 20 41  |OVE CHARACTERS A|
00000dd0  42 4f 55 54 22 3b 8a 33  2c 36 29 22 52 4f 54 41  |BOUT";.3,6)"ROTA|
00000de0  54 45 20 54 48 45 20 57  4f 52 4b 20 43 48 41 52  |TE THE WORK CHAR|
00000df0  41 43 54 45 52 53 22 3b  8a 33 2c 39 29 22 49 4e  |ACTERS";.3,9)"IN|
00000e00  56 45 52 54 20 54 48 45  20 57 4f 52 4b 20 41 52  |VERT THE WORK AR|
00000e10  45 41 22 3b 8a 33 2c 31  32 29 22 46 45 54 43 48  |EA";.3,12)"FETCH|
00000e20  20 41 4e 59 20 46 4f 4e  54 20 54 4f 20 52 45 2d  | ANY FONT TO RE-|
00000e30  44 45 53 49 47 4e 22 3b  8a 33 2c 31 35 29 22 45  |DESIGN";.3,15)"E|
00000e40  4e 44 20 54 48 45 20 50  52 4f 47 52 41 4d 22 0d  |ND THE PROGRAM".|
00000e50  06 54 1a 20 f1 8a 33 2c  31 38 29 22 42 41 43 4b  |.T. ..3,18)"BACK|
00000e60  20 54 4f 20 47 52 49 44  22 0d 06 5e 28 20 fb 31  | TO GRID"..^( .1|
00000e70  33 31 3a e3 20 4e 3d 33  b8 31 38 88 33 3a f1 8a  |31:. N=3.18.3:..|
00000e80  33 35 2c 4e 29 22 20 20  20 22 3a ed 3a fb 31 32  |35,N)"   ":.:.12|
00000e90  38 0d 06 68 18 20 f5 3a  41 3d 96 28 30 29 20 80  |8..h. .:A=.(0) .|
00000ea0  20 33 3a fd 20 41 3c 3e  30 0d 06 72 25 f4 2a 2a  | 3:. A<>0..r%.**|
00000eb0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 4c 4f 4f  |*************LOO|
00000ec0  50 20 48 45 52 45 21 2a  2a 2a 2a 2a 2a 2a 0d 06  |P HERE!*******..|
00000ed0  7c 06 20 f5 0d 06 86 0f  20 41 3d 96 28 30 29 20  ||. ..... A=.(0) |
00000ee0  80 20 33 0d 06 90 11 20  e7 20 41 3d 31 20 8c 20  |. 3.... . A=1 . |
00000ef0  8d 74 46 46 0d 06 9a 0a  20 f2 74 75 62 65 0d 06  |.tFF.... .tube..|
00000f00  a4 1a e7 20 59 25 3d 33  20 80 20 58 25 3e 33 30  |... Y%=3 . X%>30|
00000f10  20 8c 20 f2 6d 6f 76 65  0d 06 ae 1a e7 20 59 25  | . .move..... Y%|
00000f20  3d 31 38 20 80 20 58 25  3e 33 30 20 8c 20 8d 64  |=18 . X%>30 . .d|
00000f30  6a 46 0d 06 b8 17 e7 20  59 25 3d 31 35 20 80 20  |jF..... Y%=15 . |
00000f40  58 25 3e 33 30 20 8c 20  fa 0d 06 c2 1c e7 20 59  |X%>30 . ...... Y|
00000f50  25 3d 39 20 80 20 58 25  3e 33 30 20 8c 20 f2 69  |%=9 . X%>30 . .i|
00000f60  6e 76 65 72 74 0d 06 cc  1b e7 20 59 25 3d 31 32  |nvert..... Y%=12|
00000f70  20 80 20 58 25 3e 33 30  20 8c 20 f2 66 6f 6e 74  | . X%>30 . .font|
00000f80  0d 06 d6 1c e7 20 59 25  3d 36 20 80 20 58 25 3e  |..... Y%=6 . X%>|
00000f90  33 30 20 8c 20 f2 72 6f  74 61 74 65 0d 06 e0 07  |30 . .rotate....|
00000fa0  20 fd 30 0d 06 ea 0b 20  62 61 63 6b 3d 31 0d 06  | .0.... back=1..|
00000fb0  f4 06 20 e1 0d 06 fe 0c  20 dd 20 f2 67 62 6f 78  |.. ..... . .gbox|
00000fc0  0d 07 08 17 ef 32 34 2c  30 3b 30 3b 31 32 37 39  |.....24,0;0;1279|
00000fd0  3b 32 38 38 3b 20 20 0d  07 12 0c e6 30 2c 31 32  |;288;  .....0,12|
00000fe0  39 3a da 0d 07 1c 16 fb  31 33 31 3a e3 20 4e 3d  |9:......131:. N=|
00000ff0  35 20 b8 20 33 35 20 88  32 0d 07 26 10 f1 8a 4e  |5 . 35 .2..&...N|
00001000  2c 32 34 29 22 20 22 3a  ed 0d 07 30 16 fb 31 33  |,24)" ":...0..13|
00001010  31 3a e3 20 4e 3d 35 20  b8 20 33 35 20 88 32 0d  |1:. N=5 . 35 .2.|
00001020  07 3a 10 f1 8a 4e 2c 33  30 29 22 20 22 3a ed 0d  |.:...N,30)" ":..|
00001030  07 44 0b fb 30 3a fb 31  33 30 0d 07 4e 11 f1 8a  |.D..0:.130..N...|
00001040  35 2c 32 36 29 bd 28 31  32 38 29 0d 07 58 11 f1  |5,26).(128)..X..|
00001050  8a 37 2c 32 36 29 bd 28  31 32 39 29 0d 07 62 11  |.7,26).(129)..b.|
00001060  f1 8a 39 2c 32 36 29 bd  28 31 33 30 29 0d 07 6c  |..9,26).(130)..l|
00001070  14 f1 8a 31 31 2c 32 36  29 bd 28 31 33 31 29 20  |...11,26).(131) |
00001080  20 0d 07 76 09 20 fb 31  33 31 0d 07 80 28 67 3d  | ..v. .131...(g=|
00001090  31 33 32 3a e3 4e 3d 31  33 b8 33 35 88 32 3a f1  |132:.N=13.35.2:.|
000010a0  8a 4e 2c 32 36 29 bd 28  67 29 3a 67 3d 67 2b 31  |.N,26).(g):g=g+1|
000010b0  3a ed 0d 07 8a 21 e3 4e  3d 35 b8 33 35 88 32 3a  |:....!.N=5.35.2:|
000010c0  f1 8a 4e 2c 32 38 29 bd  28 67 29 3a 67 3d 67 2b  |..N,28).(g):g=g+|
000010d0  31 3a ed 0d 07 94 3a f1  8a 30 2c 32 36 29 22 31  |1:....:..0,26)"1|
000010e0  32 38 3e 22 3b 8a 33 37  2c 32 36 29 22 31 34 33  |28>";.37,26)"143|
000010f0  22 3b 8a 30 2c 32 38 29  22 31 34 34 3e 22 3b 8a  |";.0,28)"144>";.|
00001100  33 37 2c 32 38 29 22 31  35 39 22 20 20 0d 07 9e  |37,28)"159"  ...|
00001110  09 20 e6 30 2c 30 0d 07  a8 15 20 ec 30 2c 32 30  |. .0,0.... .0,20|
00001120  35 3a df 31 32 37 39 2c  32 30 35 0d 07 b2 14 20  |5:.1279,205.... |
00001130  ec 30 2c 38 30 3a df 31  32 37 39 2c 38 30 20 0d  |.0,80:.1279,80 .|
00001140  07 bc 51 20 f1 8a 30 2c  32 34 29 22 70 65 6e 22  |..Q ..0,24)"pen"|
00001150  3b 8a 33 37 2c 32 34 29  22 70 65 6e 22 3b 8a 30  |;.37,24)"pen";.0|
00001160  2c 33 30 29 22 70 65 6e  22 3b 8a 33 37 2c 33 30  |,30)"pen";.37,30|
00001170  29 22 70 65 6e 22 3b 3a  fb 31 32 39 3a f1 8a 35  |)"pen";:.129:..5|
00001180  2c 32 37 29 22 3c 77 6f  72 6b 21 3e 22 3b 20 20  |,27)"<work!>";  |
00001190  0d 07 c6 2e 20 f2 53 43  52 4f 4c 4c 28 22 20 50  |.... .SCROLL(" P|
000011a0  4f 49 4e 54 20 54 4f 20  53 45 4c 45 43 54 49 4f  |OINT TO SELECTIO|
000011b0  4e 20 4f 4e 20 52 49 47  48 54 20 22 29 20 0d 07  |N ON RIGHT ") ..|
000011c0  d0 09 20 fb 31 32 38 0d  07 da 06 20 e1 0d 07 e4  |.. .128.... ....|
000011d0  14 dd 20 f2 53 43 52 4f  4c 4c 28 53 24 29 3a fb  |.. .SCROLL(S$):.|
000011e0  33 0d 07 ee 10 e3 20 4e  3d 31 b8 20 a9 28 53 24  |3..... N=1. .(S$|
000011f0  29 0d 07 f8 25 20 f1 8a  4e 2c 32 30 29 20 c1 53  |)...% ..N,20) .S|
00001200  24 2c 4e 2c 31 29 3a e3  4a 3d 31 b8 31 35 30 3a  |$,N,1):.J=1.150:|
00001210  ed 3a ed 3a fb 32 0d 08  02 05 e1 0d 08 0c 0f dd  |.:.:.2..........|
00001220  20 f2 55 4e 53 43 52 4f  4c 4c 0d 08 16 25 e3 20  | .UNSCROLL...%. |
00001230  4e 3d 30 20 b8 20 33 39  3a e3 4a 3d 31 b8 32 30  |N=0 . 39:.J=1.20|
00001240  3a f1 8a 4e 2c 32 30 29  22 20 22 3a ed 3a ed 0d  |:..N,20)" ":.:..|
00001250  08 20 05 e1 0d 08 2a 0e  dd 20 f2 70 6f 6b 65 28  |. ....*.. .poke(|
00001260  50 29 0d 08 34 0e 20 62  3d 58 25 3a 63 3d 59 25  |P)..4. b=X%:c=Y%|
00001270  0d 08 3e 23 3f 26 37 30  3d 50 3a 41 25 3d 31 30  |..>#?&70=P:A%=10|
00001280  3a 58 25 3d 26 37 30 3a  59 25 3d 30 3a d6 26 46  |:X%=&70:Y%=0:.&F|
00001290  46 46 31 0d 08 48 0f 58  25 3d 62 3a 59 25 3d 63  |FF1..H.X%=b:Y%=c|
000012a0  3a e1 0d 08 52 0c dd 20  f2 66 65 74 63 68 0d 08  |:...R.. .fetch..|
000012b0  5c 17 f5 3a 41 3d 96 28  30 29 20 80 20 33 3a fd  |\..:A=.(0) . 3:.|
000012c0  20 41 3c 3e 30 0d 08 66  06 20 f5 0d 08 70 0f 20  | A<>0..f. ...p. |
000012d0  41 3d 96 28 30 29 20 80  20 33 0d 08 7a 11 20 e7  |A=.(0) . 3..z. .|
000012e0  20 41 3d 31 20 8c 20 8d  44 70 48 0d 08 84 0c 20  | A=1 . .DpH.... |
000012f0  f2 74 75 62 65 20 20 0d  08 8e 16 20 fd 20 59 25  |.tube  .... . Y%|
00001300  3d 32 34 20 84 20 59 25  3d 33 30 20 20 0d 08 98  |=24 . Y%=30  ...|
00001310  09 65 6e 64 3d 30 0d 08  a2 16 e7 20 59 25 3d 32  |.end=0..... Y%=2|
00001320  34 20 8c 20 74 65 6d 70  3d 31 32 38 0d 08 ac 16  |4 . temp=128....|
00001330  e7 20 59 25 3d 33 30 20  8c 20 74 65 6d 70 3d 31  |. Y%=30 . temp=1|
00001340  34 34 0d 08 b6 12 e3 20  4e 3d 35 20 b8 20 33 35  |44..... N=5 . 35|
00001350  20 88 20 32 0d 08 c0 17  e7 20 58 25 3d 4e 20 8c  | . 2..... X%=N .|
00001360  20 66 6f 75 6e 64 3d 74  65 6d 70 0d 08 ca 12 e7  | found=temp.....|
00001370  20 58 25 3d 4e 20 8c 20  65 6e 64 3d 31 0d 08 d4  | X%=N . end=1...|
00001380  0f 74 65 6d 70 3d 74 65  6d 70 2b 31 0d 08 de 05  |.temp=temp+1....|
00001390  ed 0d 08 e8 12 e7 20 65  6e 64 3d 31 20 8c 20 8d  |...... end=1 . .|
000013a0  64 7c 48 0d 08 f2 0a e5  20 8d 44 66 48 0d 08 fc  |d|H..... .DfH...|
000013b0  11 20 d4 31 2c 2d 31 35  2c 32 30 30 2c 33 0d 09  |. .1,-15,200,3..|
000013c0  06 06 20 e1 0d 09 10 0b  dd 20 f2 6d 6f 76 65 0d  |.. ...... .move.|
000013d0  09 1a 1a d4 31 2c 2d 31  35 2c 31 35 30 2c 33 3a  |....1,-15,150,3:|
000013e0  f2 55 4e 53 43 52 4f 4c  4c 0d 09 24 2e f2 53 43  |.UNSCROLL..$..SC|
000013f0  52 4f 4c 4c 28 22 50 4f  49 4e 54 20 54 4f 20 43  |ROLL("POINT TO C|
00001400  48 41 52 41 43 54 45 52  20 54 4f 20 42 45 20 4d  |HARACTER TO BE M|
00001410  4f 56 45 44 2e 22 29 0d  09 2e 13 f2 66 65 74 63  |OVED.").....fetc|
00001420  68 3a 6d 31 3d 66 6f 75  6e 64 0d 09 38 38 f2 55  |h:m1=found..88.U|
00001430  4e 53 43 52 4f 4c 4c 3a  f2 53 43 52 4f 4c 4c 28  |NSCROLL:.SCROLL(|
00001440  22 4e 4f 57 20 50 4f 49  4e 54 20 54 4f 20 54 48  |"NOW POINT TO TH|
00001450  45 20 4e 45 57 20 43 48  41 52 41 43 54 45 52 2e  |E NEW CHARACTER.|
00001460  22 29 0d 09 42 13 f2 66  65 74 63 68 3a 6d 32 3d  |")..B..fetch:m2=|
00001470  66 6f 75 6e 64 0d 09 4c  0d f2 70 6f 6b 65 28 6d  |found..L..poke(m|
00001480  31 29 0d 09 56 25 41 3d  26 37 31 3a e3 20 4e 3d  |1)..V%A=&71:. N=|
00001490  31 20 b8 20 38 3a 4a 49  4d 28 4e 29 3d 3f 41 3a  |1 . 8:JIM(N)=?A:|
000014a0  41 3d 41 2b 31 3a ed 0d  09 60 42 ef 32 33 2c 6d  |A=A+1:...`B.23,m|
000014b0  32 2c 4a 49 4d 28 31 29  2c 4a 49 4d 28 32 29 2c  |2,JIM(1),JIM(2),|
000014c0  4a 49 4d 28 33 29 2c 4a  49 4d 28 34 29 2c 4a 49  |JIM(3),JIM(4),JI|
000014d0  4d 28 35 29 2c 4a 49 4d  28 36 29 2c 4a 49 4d 28  |M(5),JIM(6),JIM(|
000014e0  37 29 2c 4a 49 4d 28 38  29 0d 09 6a 1b 20 f2 55  |7),JIM(8)..j. .U|
000014f0  4e 53 43 52 4f 4c 4c 3a  f2 6d 61 6b 65 3a f2 67  |NSCROLL:.make:.g|
00001500  62 6f 78 20 0d 09 74 05  e1 0d 09 7e 0f f4 20 2a  |box ..t....~.. *|
00001510  2a 2a 53 55 42 2a 2a 2a  0d 09 88 0e 55 3d 74 65  |**SUB***....U=te|
00001520  6d 70 20 81 20 32 0d 09  92 0e 57 3d 74 65 6d 70  |mp . 2....W=temp|
00001530  20 83 20 32 0d 09 9c 0a  74 65 6d 70 3d 55 0d 09  | . 2....temp=U..|
00001540  a6 16 e7 20 57 3d 31 20  8c 20 42 4f 58 28 58 2c  |... W=1 . BOX(X,|
00001550  59 29 3d 31 0d 09 b0 05  f8 0d 09 ba 0b dd 20 f2  |Y)=1.......... .|
00001560  6d 61 6b 65 0d 09 c4 0e  ea 58 2c 59 2c 5a 2c 57  |make.....X,Y,Z,W|
00001570  2c 55 0d 09 ce 14 f2 70  6f 6b 65 28 31 32 38 29  |,U.....poke(128)|
00001580  3a 5a 3d 26 37 31 0d 09  d8 13 e3 20 59 3d 31 b8  |:Z=&71..... Y=1.|
00001590  38 3a 74 65 6d 70 3d 3f  5a 0d 09 e2 12 e3 20 58  |8:temp=?Z..... X|
000015a0  3d 38 20 b8 20 31 20 88  20 2d 31 0d 09 ec 0a e4  |=8 . 1 . -1.....|
000015b0  20 8d 74 48 49 0d 09 f6  0d ed 3a 5a 3d 5a 2b 31  | .tHI.....:Z=Z+1|
000015c0  3a ed 0d 0a 00 14 f2 70  6f 6b 65 28 31 32 39 29  |:......poke(129)|
000015d0  3a 5a 3d 26 37 31 0d 0a  0a 13 e3 20 59 3d 31 b8  |:Z=&71..... Y=1.|
000015e0  38 3a 74 65 6d 70 3d 3f  5a 0d 0a 14 13 e3 20 58  |8:temp=?Z..... X|
000015f0  3d 31 36 20 b8 20 39 20  88 20 2d 31 0d 0a 1e 0b  |=16 . 9 . -1....|
00001600  e4 20 8d 74 48 49 20 0d  0a 28 0d ed 3a 5a 3d 5a  |. .tHI ..(..:Z=Z|
00001610  2b 31 3a ed 0d 0a 32 14  f2 70 6f 6b 65 28 31 33  |+1:...2..poke(13|
00001620  30 29 3a 5a 3d 26 37 31  0d 0a 3c 16 e3 20 59 3d  |0):Z=&71..<.. Y=|
00001630  39 20 b8 20 31 36 3a 74  65 6d 70 3d 3f 5a 0d 0a  |9 . 16:temp=?Z..|
00001640  46 12 e3 20 58 3d 38 20  b8 20 31 20 88 20 2d 31  |F.. X=8 . 1 . -1|
00001650  0d 0a 50 0a e4 20 8d 74  48 49 0d 0a 5a 0d ed 3a  |..P.. .tHI..Z..:|
00001660  5a 3d 5a 2b 31 3a ed 0d  0a 64 14 f2 70 6f 6b 65  |Z=Z+1:...d..poke|
00001670  28 31 33 31 29 3a 5a 3d  26 37 31 0d 0a 6e 16 e3  |(131):Z=&71..n..|
00001680  20 59 3d 39 20 b8 20 31  36 3a 74 65 6d 70 3d 3f  | Y=9 . 16:temp=?|
00001690  5a 0d 0a 78 14 e3 20 58  3d 31 36 20 b8 20 39 20  |Z..x.. X=16 . 9 |
000016a0  88 20 2d 31 20 0d 0a 82  0a e4 20 8d 74 48 49 0d  |. -1 ..... .tHI.|
000016b0  0a 8c 0d ed 3a 5a 3d 5a  2b 31 3a ed 0d 0a 96 05  |....:Z=Z+1:.....|
000016c0  e1 0d 0a a0 14 20 dd 20  f2 69 6e 76 65 72 74 3a  |..... . .invert:|
000016d0  ea 20 58 2c 59 0d 0a aa  11 20 d4 31 2c 2d 31 35  |. X,Y.... .1,-15|
000016e0  2c 32 32 35 2c 32 0d 0a  b4 14 e3 20 58 3d 31 b8  |,225,2..... X=1.|
000016f0  31 36 3a e3 59 3d 31 b8  31 36 0d 0a be 18 42 4f  |16:.Y=1.16....BO|
00001700  58 28 58 2c 59 29 3d 42  4f 58 28 58 2c 59 29 2a  |X(X,Y)=BOX(X,Y)*|
00001710  2d 31 0d 0a c8 07 ed 3a  ed 0d 0a d2 0f f2 63 68  |-1.....:......ch|
00001720  72 73 3a f2 67 62 6f 78  0d 0a dc 05 e1 0d 0a e6  |rs:.gbox........|
00001730  0b dd 20 f2 66 6f 6e 74  0d 0a f0 19 d4 31 2c 2d  |.. .font.....1,-|
00001740  31 35 2c 35 30 2c 32 3a  f2 55 4e 53 43 52 4f 4c  |15,50,2:.UNSCROL|
00001750  4c 0d 0a fa 75 da 3a f2  53 43 52 4f 4c 4c 28 22  |L...u.:.SCROLL("|
00001760  54 59 50 45 20 41 4e 59  20 46 4f 55 52 20 4b 45  |TYPE ANY FOUR KE|
00001770  59 42 4f 41 52 44 20 46  4f 4e 54 53 20 28 75 73  |YBOARD FONTS (us|
00001780  65 20 6b 65 79 73 29 22  29 3a f2 55 4e 53 43 52  |e keys)"):.UNSCR|
00001790  4f 4c 4c 3a f2 53 43 52  4f 4c 4c 28 22 54 48 45  |OLL:.SCROLL("THE|
000017a0  53 45 20 57 49 4c 4c 20  42 45 20 4c 4f 41 44 45  |SE WILL BE LOADE|
000017b0  44 20 49 4e 54 4f 20 54  48 45 20 57 4f 52 4b 20  |D INTO THE WORK |
000017c0  41 52 45 41 22 29 0d 0b  04 0e 20 f2 55 4e 53 43  |AREA").... .UNSC|
000017d0  52 4f 4c 4c 0d 0b 0e 09  20 fb 31 32 39 0d 0b 18  |ROLL.... .129...|
000017e0  0e f1 8a 33 2c 32 34 29  22 20 22 0d 0b 22 0d e3  |...3,24)" ".."..|
000017f0  20 4e 3d 31 20 b8 20 34  0d 0b 2c 18 f1 8a 34 29  | N=1 . 4..,...4)|
00001800  22 45 6e 74 65 72 20 66  6f 6e 74 20 22 3b 4e 3b  |"Enter font ";N;|
00001810  0d 0b 36 13 49 3d a5 3a  f1 22 20 20 20 22 3b bd  |..6.I=.:."   ";.|
00001820  28 49 29 0d 0b 40 0d 46  52 45 44 28 4e 29 3d 49  |(I)..@.FRED(N)=I|
00001830  0d 0b 4a 05 ed 0d 0b 54  12 f2 70 6f 6b 65 28 46  |..J....T..poke(F|
00001840  52 45 44 28 31 29 29 0d  0b 5e 22 46 3d 26 37 31  |RED(1))..^"F=&71|
00001850  3a e3 4e 3d 31 b8 38 3a  4a 49 4d 28 4e 29 3d 3f  |:.N=1.8:JIM(N)=?|
00001860  46 3a 46 3d 46 2b 31 3a  ed 0d 0b 68 43 ef 32 33  |F:F=F+1:...hC.23|
00001870  2c 31 32 38 2c 4a 49 4d  28 31 29 2c 4a 49 4d 28  |,128,JIM(1),JIM(|
00001880  32 29 2c 4a 49 4d 28 33  29 2c 4a 49 4d 28 34 29  |2),JIM(3),JIM(4)|
00001890  2c 4a 49 4d 28 35 29 2c  4a 49 4d 28 36 29 2c 4a  |,JIM(5),JIM(6),J|
000018a0  49 4d 28 37 29 2c 4a 49  4d 28 38 29 0d 0b 72 12  |IM(7),JIM(8)..r.|
000018b0  f2 70 6f 6b 65 28 46 52  45 44 28 32 29 29 0d 0b  |.poke(FRED(2))..|
000018c0  7c 23 46 3d 26 37 31 3a  e3 4e 3d 31 b8 38 3a 4a  ||#F=&71:.N=1.8:J|
000018d0  49 4d 28 4e 29 3d 3f 46  3a 46 3d 46 2b 31 3a ed  |IM(N)=?F:F=F+1:.|
000018e0  20 0d 0b 86 43 ef 32 33  2c 31 32 39 2c 4a 49 4d  | ...C.23,129,JIM|
000018f0  28 31 29 2c 4a 49 4d 28  32 29 2c 4a 49 4d 28 33  |(1),JIM(2),JIM(3|
00001900  29 2c 4a 49 4d 28 34 29  2c 4a 49 4d 28 35 29 2c  |),JIM(4),JIM(5),|
00001910  4a 49 4d 28 36 29 2c 4a  49 4d 28 37 29 2c 4a 49  |JIM(6),JIM(7),JI|
00001920  4d 28 38 29 0d 0b 90 12  f2 70 6f 6b 65 28 46 52  |M(8).....poke(FR|
00001930  45 44 28 33 29 29 0d 0b  9a 22 46 3d 26 37 31 3a  |ED(3))..."F=&71:|
00001940  e3 4e 3d 31 b8 38 3a 4a  49 4d 28 4e 29 3d 3f 46  |.N=1.8:JIM(N)=?F|
00001950  3a 46 3d 46 2b 31 3a ed  0d 0b a4 43 ef 32 33 2c  |:F=F+1:....C.23,|
00001960  31 33 30 2c 4a 49 4d 28  31 29 2c 4a 49 4d 28 32  |130,JIM(1),JIM(2|
00001970  29 2c 4a 49 4d 28 33 29  2c 4a 49 4d 28 34 29 2c  |),JIM(3),JIM(4),|
00001980  4a 49 4d 28 35 29 2c 4a  49 4d 28 36 29 2c 4a 49  |JIM(5),JIM(6),JI|
00001990  4d 28 37 29 2c 4a 49 4d  28 38 29 0d 0b ae 12 f2  |M(7),JIM(8).....|
000019a0  70 6f 6b 65 28 46 52 45  44 28 34 29 29 0d 0b b8  |poke(FRED(4))...|
000019b0  24 46 3d 26 37 31 3a e3  4e 3d 31 b8 38 3a 4a 49  |$F=&71:.N=1.8:JI|
000019c0  4d 28 4e 29 3d 3f 46 3a  46 3d 46 2b 31 3a ed 20  |M(N)=?F:F=F+1:. |
000019d0  20 0d 0b c2 43 ef 32 33  2c 31 33 31 2c 4a 49 4d  | ...C.23,131,JIM|
000019e0  28 31 29 2c 4a 49 4d 28  32 29 2c 4a 49 4d 28 33  |(1),JIM(2),JIM(3|
000019f0  29 2c 4a 49 4d 28 34 29  2c 4a 49 4d 28 35 29 2c  |),JIM(4),JIM(5),|
00001a00  4a 49 4d 28 36 29 2c 4a  49 4d 28 37 29 2c 4a 49  |JIM(6),JIM(7),JI|
00001a10  4d 28 38 29 0d 0b cc 0c  20 f2 6e 65 77 62 6f 78  |M(8).... .newbox|
00001a20  0d 0b d6 09 f2 6d 61 6b  65 0d 0b e0 09 f2 67 62  |.....make.....gb|
00001a30  6f 78 0d 0b ea 05 e1 0d  0b f4 0d dd 20 f2 72 6f  |ox.......... .ro|
00001a40  74 61 74 65 0d 0b fe 11  20 d4 31 2c 2d 31 35 2c  |tate.... .1,-15,|
00001a50  32 32 35 2c 32 0d 0c 08  0e ea 58 2c 59 2c 58 58  |225,2.....X,Y,XX|
00001a60  2c 59 59 0d 0c 12 08 58  58 3d 31 0d 0c 1c 12 e3  |,YY....XX=1.....|
00001a70  20 59 3d 31 b8 31 36 3a  59 59 3d 31 36 0d 0c 26  | Y=1.16:YY=16..&|
00001a80  0b e3 58 3d 31 b8 31 36  0d 0c 30 17 42 4f 42 28  |..X=1.16..0.BOB(|
00001a90  58 58 2c 59 59 29 3d 42  4f 58 28 58 2c 59 29 0d  |XX,YY)=BOX(X,Y).|
00001aa0  0c 3a 0b 59 59 3d 59 59  2d 31 0d 0c 44 05 ed 0d  |.:.YY=YY-1..D...|
00001ab0  0c 4e 0b 58 58 3d 58 58  2b 31 0d 0c 58 05 ed 0d  |.N.XX=XX+1..X...|
00001ac0  0c 62 14 e3 20 58 3d 31  b8 31 36 3a e3 59 3d 31  |.b.. X=1.16:.Y=1|
00001ad0  b8 31 36 0d 0c 6c 16 20  42 4f 58 28 58 2c 59 29  |.16..l. BOX(X,Y)|
00001ae0  3d 42 4f 42 28 58 2c 59  29 0d 0c 76 07 ed 3a ed  |=BOB(X,Y)..v..:.|
00001af0  0d 0c 80 09 f2 63 68 72  73 0d 0c 8a 09 f2 67 62  |.....chrs.....gb|
00001b00  6f 78 0d 0c 94 05 e1 0d  0c 9e 09 dd f2 54 57 4f  |ox...........TWO|
00001b10  0d 0c a8 05 db 0d 0c b2  2c f1 22 94 ac ac ac ac  |........,.".....|
00001b20  ac ac ac ac ac ac ac ac  ac ac ac ac ac ac ac ac  |................|
*
00001b40  22 0d 0c bc 1d f1 22 8d  83 20 20 20 20 20 20 20  |"....."..       |
00001b50  20 49 4e 53 54 52 55 43  54 49 4f 4e 53 22 0d 0c  | INSTRUCTIONS"..|
00001b60  c6 1d f1 22 8d 83 20 20  20 20 20 20 20 20 49 4e  |..."..        IN|
00001b70  53 54 52 55 43 54 49 4f  4e 53 22 0d 0c d0 2c f1  |STRUCTIONS"...,.|
00001b80  22 94 ac ac ac ac ac ac  ac ac ac ac ac ac ac ac  |"...............|
00001b90  ac ac ac ac ac ac ac ac  ac ac ac ac ac ac ac ac  |................|
00001ba0  ac ac ac ac ac ac 22 0d  0c da 29 f1 22 83 54 68  |......"...).".Th|
00001bb0  69 73 20 70 72 6f 67 72  61 6d 20 77 61 73 20 64  |is program was d|
00001bc0  65 76 65 6c 6f 70 65 64  20 77 69 74 68 20 61 22  |eveloped with a"|
00001bd0  0d 0c e4 2d f1 22 83 53  54 41 43 4b 20 6c 69 67  |...-.".STACK lig|
00001be0  68 74 20 70 65 6e 2c 20  62 75 74 20 73 68 6f 75  |ht pen, but shou|
00001bf0  6c 64 20 77 6f 72 6b 20  77 69 74 68 22 0d 0c ee  |ld work with"...|
00001c00  28 f1 22 83 61 6e 79 20  70 65 6e 20 75 73 69 6e  |(.".any pen usin|
00001c10  67 20 74 68 65 20 6a 6f  79 73 74 69 63 6b 20 70  |g the joystick p|
00001c20  6f 72 74 2e 22 0d 0c f8  2b f1 22 86 57 68 65 6e  |ort."...+.".When|
00001c30  20 69 6e 20 45 44 49 54  20 6d 6f 64 65 2c 20 73  | in EDIT mode, s|
00001c40  69 6d 70 6c 79 20 70 6f  69 6e 74 20 74 68 65 22  |imply point the"|
00001c50  0d 0d 02 2b f1 22 86 70  65 6e 20 74 6f 20 74 68  |...+.".pen to th|
00001c60  65 20 72 65 71 75 69 72  65 64 20 70 69 78 65 6c  |e required pixel|
00001c70  20 61 6e 64 20 74 6f 75  63 68 22 0d 0d 0c 28 f1  | and touch"...(.|
00001c80  22 86 74 68 65 20 63 6f  6e 74 61 63 74 2e 20 52  |".the contact. R|
00001c90  65 70 65 61 74 69 6e 67  20 74 68 69 73 20 77 69  |epeating this wi|
00001ca0  6c 6c 22 0d 0d 16 2d f1  22 86 64 65 6c 65 74 65  |ll"...-.".delete|
00001cb0  20 74 68 65 20 73 61 6d  65 20 70 69 78 65 6c 2e  | the same pixel.|
00001cc0  20 55 73 65 20 46 49 4e  49 53 48 20 61 6e 64 22  | Use FINISH and"|
00001cd0  0d 0d 20 20 f1 22 86 43  4c 45 41 52 20 62 6f 78  |..  .".CLEAR box|
00001ce0  65 73 20 61 73 20 72 65  71 75 69 72 65 64 2e 22  |es as required."|
00001cf0  0d 0d 2a 14 f1 22 86 41  53 20 52 45 51 55 49 52  |..*..".AS REQUIR|
00001d00  45 44 2e 22 0d 0d 34 2b  f1 22 83 41 66 74 65 72  |ED."..4+.".After|
00001d10  20 75 73 69 6e 67 20 74  68 65 20 46 49 4e 49 53  | using the FINIS|
00001d20  48 20 62 6f 78 20 79 6f  75 20 77 69 6c 6c 22 0d  |H box you will".|
00001d30  0d 3e 30 f1 22 83 62 65  20 67 69 76 65 6e 20 74  |.>0.".be given t|
00001d40  68 65 20 6f 70 74 69 6f  6e 20 6f 66 20 70 72 69  |he option of pri|
00001d50  6e 74 69 6e 67 20 6f 75  74 20 74 68 65 22 3b 0d  |nting out the";.|
00001d60  0d 48 2a f1 22 83 56 44  55 32 33 20 63 6f 64 65  |.H*.".VDU23 code|
00001d70  73 2c 20 6f 72 20 79 6f  75 20 63 61 6e 20 77 72  |s, or you can wr|
00001d80  69 74 65 20 74 68 65 6d  22 0d 0d 52 30 f1 22 83  |ite them"..R0.".|
00001d90  64 6f 77 6e 2e 20 43 68  61 72 61 63 74 65 72 20  |down. Character |
00001da0  63 6f 64 65 73 20 31 32  38 2d 31 33 31 20 61 72  |codes 128-131 ar|
00001db0  65 20 75 73 65 64 2e 22  3b 0d 0d 5c 2c f1 22 86  |e used.";..\,.".|
00001dc0  49 66 20 79 6f 75 20 66  69 6e 64 20 74 68 65 20  |If you find the |
00001dd0  77 72 6f 6e 67 20 70 69  78 65 6c 20 69 73 20 62  |wrong pixel is b|
00001de0  65 69 6e 67 22 0d 0d 66  2e f1 22 86 61 63 74 69  |eing"..f..".acti|
00001df0  76 61 74 65 64 20 79 6f  75 20 63 61 6e 20 61 64  |vated you can ad|
00001e00  6a 75 73 74 20 79 6f 75  72 20 63 6f 6d 70 75 74  |just your comput|
00001e10  65 72 22 0d 0d 70 26 f1  22 86 62 79 20 63 68 61  |er"..p&.".by cha|
00001e20  6e 67 69 6e 67 20 74 68  65 20 76 61 6c 75 65 20  |nging the value |
00001e30  6f 66 20 5a 25 20 69 6e  22 0d 0d 7a 2e f1 22 86  |of Z% in"..z..".|
00001e40  6c 69 6e 65 20 31 35 35  2e 20 41 64 64 69 6e 67  |line 155. Adding|
00001e50  20 6f 72 20 73 75 62 74  72 61 63 74 69 6e 67 20  | or subtracting |
00001e60  32 20 61 74 20 61 22 0d  0d 84 1f f1 22 86 74 69  |2 at a".....".ti|
00001e70  6d 65 20 73 68 6f 75 6c  64 20 63 6f 72 72 65 63  |me should correc|
00001e80  74 20 69 74 21 22 0d 0d  98 05 e1 0d 0d a2 0b dd  |t it!"..........|
00001e90  20 f2 53 54 4f 50 0d 0d  ac 05 db 0d 0d b6 09 f1  | .STOP..........|
00001ea0  3a f1 3a f1 0d 0d c0 3f  f1 20 22 20 20 20 20 20  |:.:....?. "     |
00001eb0  54 48 49 53 20 50 52 4f  47 52 41 4d 20 57 49 4c  |THIS PROGRAM WIL|
00001ec0  4c 20 4f 4e 4c 59 20 52  55 4e 20 4f 4e 20 41 20  |L ONLY RUN ON A |
00001ed0  20 20 20 41 43 4f 52 4e  20 36 35 30 32 20 54 55  |   ACORN 6502 TU|
00001ee0  42 45 22 0d 0d ca 06 ef  37 0d 0d d4 05 fa 0d 0d  |BE".....7.......|
00001ef0  de 05 e1 0d 0d e8 0b dd  f2 46 49 52 53 54 0d 0d  |.........FIRST..|
00001f00  f2 05 db 0d 0d fc 21 f1  27 27 22 93 9a 20 20 ea  |......!.''"..  .|
00001f10  b5 a0 a0 aa ef bf a5 e0  bf ef b0 ea b5 ea b5 aa  |................|
00001f20  ef bf a5 22 0d 0e 06 1f  f1 22 93 9a 20 20 ea b5  |..."....."..  ..|
00001f30  a0 a0 a0 ea b5 a0 ea b5  a2 a1 ea b5 ea b5 a0 ea  |................|
00001f40  b5 a0 22 0d 0e 10 1f f1  22 93 9a 20 20 ea b5 a0  |.."....."..  ...|
00001f50  a0 a0 ea b5 a0 ea b5 ef  b5 ea bf ef b5 a0 ea b5  |................|
00001f60  a0 22 0d 0e 1a 1f f1 22  93 9a 20 20 ea b5 a0 a0  |."....."..  ....|
00001f70  a0 ea b5 a0 ea b5 ea b5  ea b5 ea b5 a0 ea b5 a0  |................|
00001f80  22 0d 0e 24 1f f1 22 93  9a 20 20 aa af af a5 aa  |"..$.."..  .....|
00001f90  af af a5 a0 af af a0 aa  a5 aa a5 a0 aa a5 a0 22  |..............."|
00001fa0  0d 0e 2e 1f f1 22 20 20  20 20 a0 a0 a0 a0 a0 a0  |....."    ......|
00001fb0  a0 a0 a0 a0 a0 a0 a0 a0  a0 a0 a0 a0 a0 a0 22 0d  |..............".|
00001fc0  0e 38 20 f1 22 93 9a 20  20 20 20 20 20 20 20 20  |.8 ."..         |
00001fd0  20 20 ea bf ef b0 ea bf  af a5 ea b5 ea b5 22 0d  |  ............".|
00001fe0  0e 42 20 f1 22 93 9a 20  20 20 20 20 20 20 20 20  |.B ."..         |
00001ff0  20 20 ea b5 ea b5 ea b5  a0 a0 ea fd ea b5 22 0d  |  ............".|
00002000  0e 4c 20 f1 22 93 9a 20  20 20 20 20 20 20 20 20  |.L ."..         |
00002010  20 20 ea bf af a0 ea bf  af a0 ea bf ff b5 22 0d  |  ............".|
00002020  0e 56 20 f1 22 93 9a 20  20 20 20 20 20 20 20 20  |.V ."..         |
00002030  20 20 ea b5 a0 a0 ea b5  a0 a0 ea b5 eb b5 22 0d  |  ............".|
00002040  0e 60 20 f1 22 93 9a 20  20 20 20 20 20 20 20 20  |.` ."..         |
00002050  20 20 aa a5 a0 a0 aa af  af a5 aa a5 aa a5 22 0d  |  ............".|
00002060  0e 6a 20 f1 22 20 20 20  20 20 20 20 20 20 20 20  |.j ."           |
00002070  20 20 a0 a0 a0 a0 a0 a0  a0 a0 a0 a0 a0 a0 22 0d  |  ............".|
00002080  0e 74 27 f1 22 20 20 20  20 20 8d 81 47 52 41 50  |.t'."     ..GRAP|
00002090  48 49 43 20 61 6e 64 20  46 4f 4e 54 20 44 45 53  |HIC and FONT DES|
000020a0  49 47 4e 45 52 22 0d 0e  7e 27 f1 22 20 20 20 20  |IGNER"..~'."    |
000020b0  20 8d 81 47 52 41 50 48  49 43 20 61 6e 64 20 46  | ..GRAPHIC and F|
000020c0  4f 4e 54 20 44 45 53 49  47 4e 45 52 22 0d 0e 88  |ONT DESIGNER"...|
000020d0  1d f1 27 22 20 20 20 20  20 20 20 20 20 20 20 20  |..'"            |
000020e0  20 20 20 20 20 8d 84 42  79 22 0d 0e 92 1c f1 22  |     ..By"....."|
000020f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002100  20 8d 84 42 79 22 0d 0e  9c 29 f1 27 22 20 20 20  | ..By"...).'"   |
00002110  20 8d 85 4a 69 6d 20 57  61 6c 73 68 20 6f 66 20  | ..Jim Walsh of |
00002120  42 4f 4c 54 4f 4e 20 20  28 31 39 38 36 29 22 0d  |BOLTON  (1986)".|
00002130  0e a6 28 f1 22 20 20 20  20 8d 85 4a 69 6d 20 57  |..(."    ..Jim W|
00002140  61 6c 73 68 20 6f 66 20  42 4f 4c 54 4f 4e 20 20  |alsh of BOLTON  |
00002150  28 31 39 38 36 29 22 0d  0e b0 05 e1 0d ff        |(1986)".......|
0000215e