� Budge
� by Brian Lienard
� For BBC and Electron
(� (C) Acorn User April 1985
2:
<*FX144,0,1
F� ?&FFFE=164 � E%=0 � E%=96
P�4:�19,0,4;0;
Z!�vdu$(14),val%(14,8),mode$(3)
d%mode$(1)="ERASE":mode$(2)="DRAW "
nmode$(3)="MOVE "
x
�setchars
�
�title
��questions
��display(H%,W%)
�!L%=0:R%=W%*8-1:T%=0:D%=H%*8-1
�M%=3:X%=0:Y%=0
��comlist
�
*FX4,1
�:
��
��X%,Y%);:Z%=� � &DF
�� Z%=139 � Y%>T% � �up
�� Z%=138 � Y%<D% � �dn
�� Z%=136 � X%>L% � �lt 

� Z%=137 � X%<R% � �rt

� Z%=68 � M%=2:�mode

� Z%=69 � M%=1:�mode 

"� Z%=77 � M%=3:�mode

,3� Z%=86 � �save:G%=0:�process:�comlist:�restore

6� Z%=76 � �load

@� Z%=81 � Z%=113

J:

TG%=1:�process

^�:�'"Do you want to save ";

h"�"VDU23 statements in a file";

r�" or print them on the";

|�" screen?"'' 

��"Press : F for file"

��(8);"S for screen";

�� Z%=� � &DF

�� Z%=70 � Z%=83 

�� Z%=70 � �file : �

��:�C%=0�14:�vdu$(C%):�

�+�"Now LOAD your program and COPY over'"

�,�"the statements to merge them with it."

�
*FX4,0

��

�:

�� �file

�"�''"Please enter File name :";
�:� F$:� F$<>""
F$=�F$,7):CHAN=�(F$)
� C%=0 � W%*H%-1
&� I%=1 � �(vdu$(C%))
0�#CHAN,�(�vdu$(C%),I%,1))
:�
D�#CHAN,13:�:�#CHAN 
N �''"Now LOAD your program ";
X�"and *EXEC ";F$;" to"
b*�" merge the VDU23 statements with it"
l
*FX4,0
v�
�:
�
��process
��cls
�� �15,27);"Processing"; 
�� C%=0 � W%*H%-1
�P%=(C% � W%)*8-1
�Q%=(C% � W%)*8-1 
�3� G%=1 � vdu$(C%)=�(LI+C%*10)+"VDU23,"+�(U%+C%)
��I%=1 � 8:V%=128:S%=0
�
�J%=1 � 8
��P%+J%,Q%+I%);
�
A%=135
�<�(�(&FFF4)�&FFFF)� &100=233-E% � S%=S%+V%:� G%=1 � �"#";
V%=V%/2
	� J% 
:� G%=1 � vdu$(C%)=vdu$(C%)+","+�(S%) � val%(C%,I%)=S% 
 	� I% 
*$� G%=1 � �P%+1,Q%+1);�(U%+C%); 
4	� C% 
>� G%=0 � �view 
H-�8,27);"Press any key to continue";:Z%=�
R�
\:
f
��mode
p�25,30);mode$(M%);
z
�update:�
�:
�	��cls
� �Y%=24 � 31
��0,Y%);�(39);
��:�
�:
�
��save
�K%=X%:O%=Y%:�
�:
�
��restore
�X%=K%:Y%=O%
�
�X%,Y%);
��
:
��setchars
+�23,224,255,128,128,128,128,128,128,129
$�23,225,255,1,1,1,1,1,1,129
.+�23,226,129,128,128,128,128,128,128,255
8�23,227,129,1,1,1,1,1,1,255
B�23,228,129,0,0,0,0,0,0,255
L�23,229,255,0,0,0,0,0,0,129
V+�23,230,129,128,128,128,128,128,128,129
`�23,231,129,1,1,1,1,1,1,129
j�23,232,129,0,0,0,0,0,0,129
t+�23,233,255,255,255,255,255,255,255,255
~'�23,234,60,66,153,161,161,153,66,60
��
�:
�� �display(H%,W%) 
��:� B%=0 � H%-1
�� A%=0 � W%-1
� X%=A%*8:Y%=B%*8:�tile(X%,Y%)
�	�:�:�
�:
���tile(X%,Y%)
��X%,Y%);�(224);
�� I%=1 � 6:�(229);:�
��(225)
� J%=Y%+1 � Y%+6 

�X%,J%);�(230);
� I%=1 � 6:�(232);:�
�(231);
(�
2�X%,Y%+7);�(226);
<� I%=1 � 6:�(228);:�
F�(227);
P�
Z:
d
��comlist
n2�0,24);"Mode: Press D=draw, E=erase, M=move."
x.�"Move: Cursor keys = up,down,left,right."
�,�"View: Press V to view at normal size."
�-�"Load: Press L to load VDU23 statement."
�(�"Quit: Press Q to quit definition."
�1�8,30);"Current mode is: ";:�1:�mode$(M%):�3
��
�:
���up
�Y%=Y%-1:�update:�
�:
���dn
�Y%=Y%+1:�update:�
�:
���lt
X%=X%-1:�update:�
:
��rt
"X%=X%+1:�update:�
,:
6��update
@
�X%,Y%);
J� M% � �DTF,�D^F,�DhF 
T�erase:� �DhF
^�(233);
h�
r:
|��erase
�
�X%,Y%);
�A%=X% � 8:B%=Y% � 8:F%=0 
�$� A%=0 � B%=0 � �(224);:F%=1   
�#� A%=0 � B%=7 � �(226);:F%=1  
�"� A%=7 � B%=0 � �(225);:F%=1 
�"� A%=7 � B%=7 � �(227);:F%=1 
�(� A%=0 � B%>0 � B%<7 � �(230);:F%=1
�(� A%=7 � B%>0 � B%<7 � �(231);:F%=1
�(� A%>0 � A%<7 � B%=0 � �(229);:F%=1
�(� A%>0 � A%<7 �B%=7 � �(228);:F%=1 
�� F%=0 � �(232);
��
�:
��questions
0�0,15);"No.of chars.across(1-5,default=1)";

� � W%
&� W%=0 � W%<5 
0� W%=0 � W%=1
:*�'"No.of chars. down (1-3,default=1)";
D� H%:� H%=0 � H%=1
N� H%>3 � � �(7);:� �DDG
X)�'"ASCII codes for chars.to start at"
b-�(12);"(224-";256-H%*W%;",default=224)";
l� U%:� U%=0 � U%=224 
v!� U%>256-H%*W% � �(7);:�DlG
�(�'"1st line no.for VDU23 statements"
�%�(11);"(1-32000,default=1010)"; 
�� LI:� LI=0 � LI=1010 
�%� LI<=0 � LI>32000 � �(7);:�tTG
��
�:
���title
��
�1�5,2);"* BUDGE ";�(234);" by Brian Lienard."
�!�5,4);"B BBC   (& Electron)"
��5,5);"U  User-"
��5,6);"D   Defined"
��5,7);"G    Graphics"
�5,8);"E     Editor."
�
:
 
��view
*'�8,31);"Latest  view is:------->";
4� C%=0 � H%*W%-1 
>c�23,235,val%(C%,1),val%(C%,2),val%(C%,3),val%(C%,4),val%(C%,5),val%(C%,6),val%(C%,7),val%(C%,8)
H'�C% � W%+33,C% � W%+32-H%);�(235);
R�
\M%=3
f�
p:
z
��load
��save:�cls
�2�0,25);"LOAD: Which tile across(1-";W%;"/1)";
�� P%:� P%=0 � P%=1:� �tlH
�.� P%<1 � P%>W% � �31,25);�(7);�(4);:�tNH
�1�0,26);�(5);"Which tile  down (1-";H%;"/1)";
�� Q%:� Q%=0 � Q%=1:�dJH
�'� Q%>H% � �31,26);�(7);�(4);:�tlH
��tile((P%-1)*8,(Q%-1)*8)
�2�0,28);"Type in values from VDU23 statement:"
�� I%=1 � 8
�!�0,29);"Dot value for row ";
��1:�;I%;:�3
��" (0-255/0)";:�N%
	/� N%<0 � N%>255 � �30,29);�(7);�(5);:�dhH
	
V%=128
	� J%=1 � 8
	$A� N% � V%=1 � �(P%-1)*8+J%-1,(Q%-1)*8+I%-1);�(233);:N%=N%-V%
	.V%=V%/2:�J%
	8�30,29);�(5):� I% 
	B"�cls: M%=3: �comlist: �restore
	L�
�

00000000  0d 00 0a 0b f4 20 42 75  64 67 65 0d 00 14 16 f4  |..... Budge.....|
00000010  20 62 79 20 42 72 69 61  6e 20 4c 69 65 6e 61 72  | by Brian Lienar|
00000020  64 0d 00 1e 1a f4 20 46  6f 72 20 42 42 43 20 61  |d..... For BBC a|
00000030  6e 64 20 45 6c 65 63 74  72 6f 6e 0d 00 28 1f f4  |nd Electron..(..|
00000040  20 28 43 29 20 41 63 6f  72 6e 20 55 73 65 72 20  | (C) Acorn User |
00000050  41 70 72 69 6c 20 31 39  38 35 0d 00 32 05 3a 0d  |April 1985..2.:.|
00000060  00 3c 0e 2a 46 58 31 34  34 2c 30 2c 31 0d 00 46  |.<.*FX144,0,1..F|
00000070  1f e7 20 3f 26 46 46 46  45 3d 31 36 34 20 8c 20  |.. ?&FFFE=164 . |
00000080  45 25 3d 30 20 8b 20 45  25 3d 39 36 0d 00 50 11  |E%=0 . E%=96..P.|
00000090  eb 34 3a ef 31 39 2c 30  2c 34 3b 30 3b 0d 00 5a  |.4:.19,0,4;0;..Z|
000000a0  21 de 76 64 75 24 28 31  34 29 2c 76 61 6c 25 28  |!.vdu$(14),val%(|
000000b0  31 34 2c 38 29 2c 6d 6f  64 65 24 28 33 29 0d 00  |14,8),mode$(3)..|
000000c0  64 25 6d 6f 64 65 24 28  31 29 3d 22 45 52 41 53  |d%mode$(1)="ERAS|
000000d0  45 22 3a 6d 6f 64 65 24  28 32 29 3d 22 44 52 41  |E":mode$(2)="DRA|
000000e0  57 20 22 0d 00 6e 14 6d  6f 64 65 24 28 33 29 3d  |W "..n.mode$(3)=|
000000f0  22 4d 4f 56 45 20 22 0d  00 78 0d f2 73 65 74 63  |"MOVE "..x..setc|
00000100  68 61 72 73 0d 00 82 0a  f2 74 69 74 6c 65 0d 00  |hars.....title..|
00000110  8c 0e f2 71 75 65 73 74  69 6f 6e 73 0d 00 96 13  |...questions....|
00000120  f2 64 69 73 70 6c 61 79  28 48 25 2c 57 25 29 0d  |.display(H%,W%).|
00000130  00 a0 21 4c 25 3d 30 3a  52 25 3d 57 25 2a 38 2d  |..!L%=0:R%=W%*8-|
00000140  31 3a 54 25 3d 30 3a 44  25 3d 48 25 2a 38 2d 31  |1:T%=0:D%=H%*8-1|
00000150  0d 00 aa 12 4d 25 3d 33  3a 58 25 3d 30 3a 59 25  |....M%=3:X%=0:Y%|
00000160  3d 30 0d 00 b4 0c f2 63  6f 6d 6c 69 73 74 0d 00  |=0.....comlist..|
00000170  be 0a 2a 46 58 34 2c 31  0d 00 c8 05 3a 0d 00 d2  |..*FX4,1....:...|
00000180  05 f5 0d 00 dc 18 f1 8a  58 25 2c 59 25 29 3b 3a  |........X%,Y%);:|
00000190  5a 25 3d a5 20 80 20 26  44 46 0d 00 e6 1a e7 20  |Z%=. . &DF..... |
000001a0  5a 25 3d 31 33 39 20 80  20 59 25 3e 54 25 20 8c  |Z%=139 . Y%>T% .|
000001b0  20 f2 75 70 0d 00 f0 1a  e7 20 5a 25 3d 31 33 38  | .up..... Z%=138|
000001c0  20 80 20 59 25 3c 44 25  20 8c 20 f2 64 6e 0d 00  | . Y%<D% . .dn..|
000001d0  fa 1b e7 20 5a 25 3d 31  33 36 20 80 20 58 25 3e  |... Z%=136 . X%>|
000001e0  4c 25 20 8c 20 f2 6c 74  20 0d 01 04 1a e7 20 5a  |L% . .lt ..... Z|
000001f0  25 3d 31 33 37 20 80 20  58 25 3c 52 25 20 8c 20  |%=137 . X%<R% . |
00000200  f2 72 74 0d 01 0e 18 e7  20 5a 25 3d 36 38 20 8c  |.rt..... Z%=68 .|
00000210  20 4d 25 3d 32 3a f2 6d  6f 64 65 0d 01 18 19 e7  | M%=2:.mode.....|
00000220  20 5a 25 3d 36 39 20 8c  20 4d 25 3d 31 3a f2 6d  | Z%=69 . M%=1:.m|
00000230  6f 64 65 20 0d 01 22 18  e7 20 5a 25 3d 37 37 20  |ode ..".. Z%=77 |
00000240  8c 20 4d 25 3d 33 3a f2  6d 6f 64 65 0d 01 2c 33  |. M%=3:.mode..,3|
00000250  e7 20 5a 25 3d 38 36 20  8c 20 f2 73 61 76 65 3a  |. Z%=86 . .save:|
00000260  47 25 3d 30 3a f2 70 72  6f 63 65 73 73 3a f2 63  |G%=0:.process:.c|
00000270  6f 6d 6c 69 73 74 3a f2  72 65 73 74 6f 72 65 0d  |omlist:.restore.|
00000280  01 36 13 e7 20 5a 25 3d  37 36 20 8c 20 f2 6c 6f  |.6.. Z%=76 . .lo|
00000290  61 64 0d 01 40 14 fd 20  5a 25 3d 38 31 20 84 20  |ad..@.. Z%=81 . |
000002a0  5a 25 3d 31 31 33 0d 01  4a 05 3a 0d 01 54 11 47  |Z%=113..J.:..T.G|
000002b0  25 3d 31 3a f2 70 72 6f  63 65 73 73 0d 01 5e 1f  |%=1:.process..^.|
000002c0  db 3a f1 27 22 44 6f 20  79 6f 75 20 77 61 6e 74  |.:.'"Do you want|
000002d0  20 74 6f 20 73 61 76 65  20 22 3b 0d 01 68 22 f1  | to save ";..h".|
000002e0  22 56 44 55 32 33 20 73  74 61 74 65 6d 65 6e 74  |"VDU23 statement|
000002f0  73 20 69 6e 20 61 20 66  69 6c 65 22 3b 0d 01 72  |s in a file";..r|
00000300  1d f1 22 20 6f 72 20 70  72 69 6e 74 20 74 68 65  |.." or print the|
00000310  6d 20 6f 6e 20 74 68 65  22 3b 0d 01 7c 12 f1 22  |m on the";..|.."|
00000320  20 73 63 72 65 65 6e 3f  22 27 27 20 0d 01 86 19  | screen?"'' ....|
00000330  f1 22 50 72 65 73 73 20  3a 20 46 20 66 6f 72 20  |."Press : F for |
00000340  66 69 6c 65 22 0d 01 90  19 f1 89 28 38 29 3b 22  |file"......(8);"|
00000350  53 20 66 6f 72 20 73 63  72 65 65 6e 22 3b 0d 01  |S for screen";..|
00000360  9a 10 f5 20 5a 25 3d a5  20 80 20 26 44 46 0d 01  |... Z%=. . &DF..|
00000370  a4 14 fd 20 5a 25 3d 37  30 20 84 20 5a 25 3d 38  |... Z%=70 . Z%=8|
00000380  33 20 0d 01 ae 17 e7 20  5a 25 3d 37 30 20 8c 20  |3 ..... Z%=70 . |
00000390  f2 66 69 6c 65 20 3a 20  e0 0d 01 b8 1a db 3a e3  |.file : ......:.|
000003a0  43 25 3d 30 b8 31 34 3a  f1 76 64 75 24 28 43 25  |C%=0.14:.vdu$(C%|
000003b0  29 3a ed 0d 01 c2 2b f1  22 4e 6f 77 20 4c 4f 41  |):....+."Now LOA|
000003c0  44 20 79 6f 75 72 20 70  72 6f 67 72 61 6d 20 61  |D your program a|
000003d0  6e 64 20 43 4f 50 59 20  6f 76 65 72 27 22 0d 01  |nd COPY over'"..|
000003e0  cc 2c f1 22 74 68 65 20  73 74 61 74 65 6d 65 6e  |.,."the statemen|
000003f0  74 73 20 74 6f 20 6d 65  72 67 65 20 74 68 65 6d  |ts to merge them|
00000400  20 77 69 74 68 20 69 74  2e 22 0d 01 d6 0a 2a 46  | with it."....*F|
00000410  58 34 2c 30 0d 01 e0 05  e0 0d 01 ea 05 3a 0d 01  |X4,0.........:..|
00000420  f4 0b dd 20 f2 66 69 6c  65 0d 01 fe 22 f1 27 27  |... .file...".''|
00000430  22 50 6c 65 61 73 65 20  65 6e 74 65 72 20 46 69  |"Please enter Fi|
00000440  6c 65 20 6e 61 6d 65 20  3a 22 3b 0d 02 08 13 f5  |le name :";.....|
00000450  3a e8 20 46 24 3a fd 20  46 24 3c 3e 22 22 0d 02  |:. F$:. F$<>""..|
00000460  12 18 46 24 3d c0 46 24  2c 37 29 3a 43 48 41 4e  |..F$=.F$,7):CHAN|
00000470  3d ae 28 46 24 29 0d 02  1c 14 e3 20 43 25 3d 30  |=.(F$)..... C%=0|
00000480  20 b8 20 57 25 2a 48 25  2d 31 0d 02 26 18 e3 20  | . W%*H%-1..&.. |
00000490  49 25 3d 31 20 b8 20 a9  28 76 64 75 24 28 43 25  |I%=1 . .(vdu$(C%|
000004a0  29 29 0d 02 30 1d d5 23  43 48 41 4e 2c 97 28 c1  |))..0..#CHAN,.(.|
000004b0  76 64 75 24 28 43 25 29  2c 49 25 2c 31 29 29 0d  |vdu$(C%),I%,1)).|
000004c0  02 3a 05 ed 0d 02 44 17  d5 23 43 48 41 4e 2c 31  |.:....D..#CHAN,1|
000004d0  33 3a ed 3a d9 23 43 48  41 4e 20 0d 02 4e 20 f1  |3:.:.#CHAN ..N .|
000004e0  27 27 22 4e 6f 77 20 4c  4f 41 44 20 79 6f 75 72  |''"Now LOAD your|
000004f0  20 70 72 6f 67 72 61 6d  20 22 3b 0d 02 58 1a f1  | program ";..X..|
00000500  22 61 6e 64 20 2a 45 58  45 43 20 22 3b 46 24 3b  |"and *EXEC ";F$;|
00000510  22 20 74 6f 22 0d 02 62  2a f1 22 20 6d 65 72 67  |" to"..b*." merg|
00000520  65 20 74 68 65 20 56 44  55 32 33 20 73 74 61 74  |e the VDU23 stat|
00000530  65 6d 65 6e 74 73 20 77  69 74 68 20 69 74 22 0d  |ements with it".|
00000540  02 6c 0a 2a 46 58 34 2c  30 0d 02 76 05 e1 0d 02  |.l.*FX4,0..v....|
00000550  80 05 3a 0d 02 8a 0d dd  f2 70 72 6f 63 65 73 73  |..:......process|
00000560  0d 02 94 08 f2 63 6c 73  0d 02 9e 1c f1 20 8a 31  |.....cls..... .1|
00000570  35 2c 32 37 29 3b 22 50  72 6f 63 65 73 73 69 6e  |5,27);"Processin|
00000580  67 22 3b 20 0d 02 a8 14  e3 20 43 25 3d 30 20 b8  |g"; ..... C%=0 .|
00000590  20 57 25 2a 48 25 2d 31  0d 02 b2 14 50 25 3d 28  | W%*H%-1....P%=(|
000005a0  43 25 20 83 20 57 25 29  2a 38 2d 31 0d 02 bc 15  |C% . W%)*8-1....|
000005b0  51 25 3d 28 43 25 20 81  20 57 25 29 2a 38 2d 31  |Q%=(C% . W%)*8-1|
000005c0  20 0d 02 c6 33 e7 20 47  25 3d 31 20 8c 20 76 64  | ...3. G%=1 . vd|
000005d0  75 24 28 43 25 29 3d c3  28 4c 49 2b 43 25 2a 31  |u$(C%)=.(LI+C%*1|
000005e0  30 29 2b 22 56 44 55 32  33 2c 22 2b c3 28 55 25  |0)+"VDU23,"+.(U%|
000005f0  2b 43 25 29 0d 02 d0 19  e3 49 25 3d 31 20 b8 20  |+C%).....I%=1 . |
00000600  38 3a 56 25 3d 31 32 38  3a 53 25 3d 30 0d 02 da  |8:V%=128:S%=0...|
00000610  0d e3 4a 25 3d 31 20 b8  20 38 0d 02 e4 13 f1 8a  |..J%=1 . 8......|
00000620  50 25 2b 4a 25 2c 51 25  2b 49 25 29 3b 0d 02 ee  |P%+J%,Q%+I%);...|
00000630  0a 41 25 3d 31 33 35 0d  02 f8 3c e7 28 ba 28 26  |.A%=135...<.(.(&|
00000640  46 46 46 34 29 80 26 46  46 46 46 29 81 20 26 31  |FFF4).&FFFF). &1|
00000650  30 30 3d 32 33 33 2d 45  25 20 8c 20 53 25 3d 53  |00=233-E% . S%=S|
00000660  25 2b 56 25 3a e7 20 47  25 3d 31 20 8c 20 f1 22  |%+V%:. G%=1 . ."|
00000670  23 22 3b 0d 03 02 0b 56  25 3d 56 25 2f 32 0d 03  |#";....V%=V%/2..|
00000680  0c 09 ed 20 4a 25 20 0d  03 16 3a e7 20 47 25 3d  |... J% ...:. G%=|
00000690  31 20 8c 20 76 64 75 24  28 43 25 29 3d 76 64 75  |1 . vdu$(C%)=vdu|
000006a0  24 28 43 25 29 2b 22 2c  22 2b c3 28 53 25 29 20  |$(C%)+","+.(S%) |
000006b0  8b 20 76 61 6c 25 28 43  25 2c 49 25 29 3d 53 25  |. val%(C%,I%)=S%|
000006c0  20 0d 03 20 09 ed 20 49  25 20 0d 03 2a 24 e7 20  | .. .. I% ..*$. |
000006d0  47 25 3d 31 20 8c 20 f1  8a 50 25 2b 31 2c 51 25  |G%=1 . ..P%+1,Q%|
000006e0  2b 31 29 3b c3 28 55 25  2b 43 25 29 3b 20 0d 03  |+1);.(U%+C%); ..|
000006f0  34 09 ed 20 43 25 20 0d  03 3e 13 e7 20 47 25 3d  |4.. C% ..>.. G%=|
00000700  30 20 8c 20 f2 76 69 65  77 20 0d 03 48 2d f1 8a  |0 . .view ..H-..|
00000710  38 2c 32 37 29 3b 22 50  72 65 73 73 20 61 6e 79  |8,27);"Press any|
00000720  20 6b 65 79 20 74 6f 20  63 6f 6e 74 69 6e 75 65  | key to continue|
00000730  22 3b 3a 5a 25 3d a5 0d  03 52 05 e1 0d 03 5c 05  |";:Z%=...R....\.|
00000740  3a 0d 03 66 0a dd f2 6d  6f 64 65 0d 03 70 17 f1  |:..f...mode..p..|
00000750  8a 32 35 2c 33 30 29 3b  6d 6f 64 65 24 28 4d 25  |.25,30);mode$(M%|
00000760  29 3b 0d 03 7a 0d f2 75  70 64 61 74 65 3a e1 0d  |);..z..update:..|
00000770  03 84 05 3a 0d 03 8e 09  dd f2 63 6c 73 0d 03 98  |...:......cls...|
00000780  10 20 e3 59 25 3d 32 34  20 b8 20 33 31 0d 03 a2  |. .Y%=24 . 31...|
00000790  12 f1 8a 30 2c 59 25 29  3b 89 28 33 39 29 3b 0d  |...0,Y%);.(39);.|
000007a0  03 ac 07 ed 3a e1 0d 03  b6 05 3a 0d 03 c0 0a dd  |....:.....:.....|
000007b0  f2 73 61 76 65 0d 03 ca  11 4b 25 3d 58 25 3a 4f  |.save....K%=X%:O|
000007c0  25 3d 59 25 3a e1 0d 03  d4 05 3a 0d 03 de 0d dd  |%=Y%:.....:.....|
000007d0  f2 72 65 73 74 6f 72 65  0d 03 e8 0f 58 25 3d 4b  |.restore....X%=K|
000007e0  25 3a 59 25 3d 4f 25 0d  03 f2 0d f1 8a 58 25 2c  |%:Y%=O%......X%,|
000007f0  59 25 29 3b 0d 03 fc 05  e1 0d 04 06 05 3a 0d 04  |Y%);.........:..|
00000800  10 0e dd f2 73 65 74 63  68 61 72 73 0d 04 1a 2b  |....setchars...+|
00000810  ef 32 33 2c 32 32 34 2c  32 35 35 2c 31 32 38 2c  |.23,224,255,128,|
00000820  31 32 38 2c 31 32 38 2c  31 32 38 2c 31 32 38 2c  |128,128,128,128,|
00000830  31 32 38 2c 31 32 39 0d  04 24 1f ef 32 33 2c 32  |128,129..$..23,2|
00000840  32 35 2c 32 35 35 2c 31  2c 31 2c 31 2c 31 2c 31  |25,255,1,1,1,1,1|
00000850  2c 31 2c 31 32 39 0d 04  2e 2b ef 32 33 2c 32 32  |,1,129...+.23,22|
00000860  36 2c 31 32 39 2c 31 32  38 2c 31 32 38 2c 31 32  |6,129,128,128,12|
00000870  38 2c 31 32 38 2c 31 32  38 2c 31 32 38 2c 32 35  |8,128,128,128,25|
00000880  35 0d 04 38 1f ef 32 33  2c 32 32 37 2c 31 32 39  |5..8..23,227,129|
00000890  2c 31 2c 31 2c 31 2c 31  2c 31 2c 31 2c 32 35 35  |,1,1,1,1,1,1,255|
000008a0  0d 04 42 1f ef 32 33 2c  32 32 38 2c 31 32 39 2c  |..B..23,228,129,|
000008b0  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 32 35 35 0d  |0,0,0,0,0,0,255.|
000008c0  04 4c 1f ef 32 33 2c 32  32 39 2c 32 35 35 2c 30  |.L..23,229,255,0|
000008d0  2c 30 2c 30 2c 30 2c 30  2c 30 2c 31 32 39 0d 04  |,0,0,0,0,0,129..|
000008e0  56 2b ef 32 33 2c 32 33  30 2c 31 32 39 2c 31 32  |V+.23,230,129,12|
000008f0  38 2c 31 32 38 2c 31 32  38 2c 31 32 38 2c 31 32  |8,128,128,128,12|
00000900  38 2c 31 32 38 2c 31 32  39 0d 04 60 1f ef 32 33  |8,128,129..`..23|
00000910  2c 32 33 31 2c 31 32 39  2c 31 2c 31 2c 31 2c 31  |,231,129,1,1,1,1|
00000920  2c 31 2c 31 2c 31 32 39  0d 04 6a 1f ef 32 33 2c  |,1,1,129..j..23,|
00000930  32 33 32 2c 31 32 39 2c  30 2c 30 2c 30 2c 30 2c  |232,129,0,0,0,0,|
00000940  30 2c 30 2c 31 32 39 0d  04 74 2b ef 32 33 2c 32  |0,0,129..t+.23,2|
00000950  33 33 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |33,255,255,255,2|
00000960  35 35 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |55,255,255,255,2|
00000970  35 35 0d 04 7e 27 ef 32  33 2c 32 33 34 2c 36 30  |55..~'.23,234,60|
00000980  2c 36 36 2c 31 35 33 2c  31 36 31 2c 31 36 31 2c  |,66,153,161,161,|
00000990  31 35 33 2c 36 36 2c 36  30 0d 04 88 05 e1 0d 04  |153,66,60.......|
000009a0  92 05 3a 0d 04 9c 16 dd  20 f2 64 69 73 70 6c 61  |..:..... .displa|
000009b0  79 28 48 25 2c 57 25 29  20 0d 04 a6 13 db 3a e3  |y(H%,W%) .....:.|
000009c0  20 42 25 3d 30 20 b8 20  48 25 2d 31 0d 04 b0 11  | B%=0 . H%-1....|
000009d0  e3 20 41 25 3d 30 20 b8  20 57 25 2d 31 0d 04 ba  |. A%=0 . W%-1...|
000009e0  20 58 25 3d 41 25 2a 38  3a 59 25 3d 42 25 2a 38  | X%=A%*8:Y%=B%*8|
000009f0  3a f2 74 69 6c 65 28 58  25 2c 59 25 29 0d 04 c4  |:.tile(X%,Y%)...|
00000a00  09 ed 3a ed 3a e1 0d 04  ce 05 3a 0d 04 d8 11 dd  |..:.:.....:.....|
00000a10  f2 74 69 6c 65 28 58 25  2c 59 25 29 0d 04 e2 14  |.tile(X%,Y%)....|
00000a20  f1 8a 58 25 2c 59 25 29  3b bd 28 32 32 34 29 3b  |..X%,Y%);.(224);|
00000a30  0d 04 ec 19 e3 20 49 25  3d 31 20 b8 20 36 3a f1  |..... I%=1 . 6:.|
00000a40  bd 28 32 32 39 29 3b 3a  ed 0d 04 f6 0b f1 bd 28  |.(229);:.......(|
00000a50  32 32 35 29 0d 05 00 15  e3 20 4a 25 3d 59 25 2b  |225)..... J%=Y%+|
00000a60  31 20 b8 20 59 25 2b 36  20 0d 05 0a 14 f1 8a 58  |1 . Y%+6 ......X|
00000a70  25 2c 4a 25 29 3b bd 28  32 33 30 29 3b 0d 05 14  |%,J%);.(230);...|
00000a80  19 e3 20 49 25 3d 31 20  b8 20 36 3a f1 bd 28 32  |.. I%=1 . 6:..(2|
00000a90  33 32 29 3b 3a ed 0d 05  1e 0c f1 bd 28 32 33 31  |32);:.......(231|
00000aa0  29 3b 0d 05 28 05 ed 0d  05 32 16 f1 8a 58 25 2c  |);..(....2...X%,|
00000ab0  59 25 2b 37 29 3b bd 28  32 32 36 29 3b 0d 05 3c  |Y%+7);.(226);..<|
00000ac0  19 e3 20 49 25 3d 31 20  b8 20 36 3a f1 bd 28 32  |.. I%=1 . 6:..(2|
00000ad0  32 38 29 3b 3a ed 0d 05  46 0c f1 bd 28 32 32 37  |28);:...F...(227|
00000ae0  29 3b 0d 05 50 05 e1 0d  05 5a 05 3a 0d 05 64 0d  |);..P....Z.:..d.|
00000af0  dd f2 63 6f 6d 6c 69 73  74 0d 05 6e 32 f1 8a 30  |..comlist..n2..0|
00000b00  2c 32 34 29 3b 22 4d 6f  64 65 3a 20 50 72 65 73  |,24);"Mode: Pres|
00000b10  73 20 44 3d 64 72 61 77  2c 20 45 3d 65 72 61 73  |s D=draw, E=eras|
00000b20  65 2c 20 4d 3d 6d 6f 76  65 2e 22 0d 05 78 2e f1  |e, M=move."..x..|
00000b30  22 4d 6f 76 65 3a 20 43  75 72 73 6f 72 20 6b 65  |"Move: Cursor ke|
00000b40  79 73 20 3d 20 75 70 2c  64 6f 77 6e 2c 6c 65 66  |ys = up,down,lef|
00000b50  74 2c 72 69 67 68 74 2e  22 0d 05 82 2c f1 22 56  |t,right."...,."V|
00000b60  69 65 77 3a 20 50 72 65  73 73 20 56 20 74 6f 20  |iew: Press V to |
00000b70  76 69 65 77 20 61 74 20  6e 6f 72 6d 61 6c 20 73  |view at normal s|
00000b80  69 7a 65 2e 22 0d 05 8c  2d f1 22 4c 6f 61 64 3a  |ize."...-."Load:|
00000b90  20 50 72 65 73 73 20 4c  20 74 6f 20 6c 6f 61 64  | Press L to load|
00000ba0  20 56 44 55 32 33 20 73  74 61 74 65 6d 65 6e 74  | VDU23 statement|
00000bb0  2e 22 0d 05 96 28 f1 22  51 75 69 74 3a 20 50 72  |."...(."Quit: Pr|
00000bc0  65 73 73 20 51 20 74 6f  20 71 75 69 74 20 64 65  |ess Q to quit de|
00000bd0  66 69 6e 69 74 69 6f 6e  2e 22 0d 05 a0 31 f1 8a  |finition."...1..|
00000be0  38 2c 33 30 29 3b 22 43  75 72 72 65 6e 74 20 6d  |8,30);"Current m|
00000bf0  6f 64 65 20 69 73 3a 20  22 3b 3a fb 31 3a f1 6d  |ode is: ";:.1:.m|
00000c00  6f 64 65 24 28 4d 25 29  3a fb 33 0d 05 aa 05 e1  |ode$(M%):.3.....|
00000c10  0d 05 b4 05 3a 0d 05 be  08 dd f2 75 70 0d 05 c8  |....:......up...|
00000c20  15 59 25 3d 59 25 2d 31  3a f2 75 70 64 61 74 65  |.Y%=Y%-1:.update|
00000c30  3a e1 0d 05 d2 05 3a 0d  05 dc 08 dd f2 64 6e 0d  |:.....:......dn.|
00000c40  05 e6 15 59 25 3d 59 25  2b 31 3a f2 75 70 64 61  |...Y%=Y%+1:.upda|
00000c50  74 65 3a e1 0d 05 f0 05  3a 0d 05 fa 08 dd f2 6c  |te:.....:......l|
00000c60  74 0d 06 04 15 58 25 3d  58 25 2d 31 3a f2 75 70  |t....X%=X%-1:.up|
00000c70  64 61 74 65 3a e1 0d 06  0e 05 3a 0d 06 18 08 dd  |date:.....:.....|
00000c80  f2 72 74 0d 06 22 15 58  25 3d 58 25 2b 31 3a f2  |.rt..".X%=X%+1:.|
00000c90  75 70 64 61 74 65 3a e1  0d 06 2c 05 3a 0d 06 36  |update:...,.:..6|
00000ca0  0c dd f2 75 70 64 61 74  65 0d 06 40 0d f1 8a 58  |...update..@...X|
00000cb0  25 2c 59 25 29 3b 0d 06  4a 1a ee 20 4d 25 20 e5  |%,Y%);..J.. M% .|
00000cc0  20 8d 44 54 46 2c 8d 44  5e 46 2c 8d 44 68 46 20  | .DTF,.D^F,.DhF |
00000cd0  0d 06 54 11 f2 65 72 61  73 65 3a e5 20 8d 44 68  |..T..erase:. .Dh|
00000ce0  46 0d 06 5e 0c f1 bd 28  32 33 33 29 3b 0d 06 68  |F..^...(233);..h|
00000cf0  05 e1 0d 06 72 05 3a 0d  06 7c 0b dd f2 65 72 61  |....r.:..|...era|
00000d00  73 65 0d 06 86 0d f1 8a  58 25 2c 59 25 29 3b 0d  |se......X%,Y%);.|
00000d10  06 90 1d 41 25 3d 58 25  20 83 20 38 3a 42 25 3d  |...A%=X% . 8:B%=|
00000d20  59 25 20 83 20 38 3a 46  25 3d 30 20 0d 06 9a 24  |Y% . 8:F%=0 ...$|
00000d30  e7 20 41 25 3d 30 20 80  20 42 25 3d 30 20 8c 20  |. A%=0 . B%=0 . |
00000d40  f1 bd 28 32 32 34 29 3b  3a 46 25 3d 31 20 20 20  |..(224);:F%=1   |
00000d50  0d 06 a4 23 e7 20 41 25  3d 30 20 80 20 42 25 3d  |...#. A%=0 . B%=|
00000d60  37 20 8c 20 f1 bd 28 32  32 36 29 3b 3a 46 25 3d  |7 . ..(226);:F%=|
00000d70  31 20 20 0d 06 ae 22 e7  20 41 25 3d 37 20 80 20  |1  ...". A%=7 . |
00000d80  42 25 3d 30 20 8c 20 f1  bd 28 32 32 35 29 3b 3a  |B%=0 . ..(225);:|
00000d90  46 25 3d 31 20 0d 06 b8  22 e7 20 41 25 3d 37 20  |F%=1 ...". A%=7 |
00000da0  80 20 42 25 3d 37 20 8c  20 f1 bd 28 32 32 37 29  |. B%=7 . ..(227)|
00000db0  3b 3a 46 25 3d 31 20 0d  06 c2 28 e7 20 41 25 3d  |;:F%=1 ...(. A%=|
00000dc0  30 20 80 20 42 25 3e 30  20 80 20 42 25 3c 37 20  |0 . B%>0 . B%<7 |
00000dd0  8c 20 f1 bd 28 32 33 30  29 3b 3a 46 25 3d 31 0d  |. ..(230);:F%=1.|
00000de0  06 cc 28 e7 20 41 25 3d  37 20 80 20 42 25 3e 30  |..(. A%=7 . B%>0|
00000df0  20 80 20 42 25 3c 37 20  8c 20 f1 bd 28 32 33 31  | . B%<7 . ..(231|
00000e00  29 3b 3a 46 25 3d 31 0d  06 d6 28 e7 20 41 25 3e  |);:F%=1...(. A%>|
00000e10  30 20 80 20 41 25 3c 37  20 80 20 42 25 3d 30 20  |0 . A%<7 . B%=0 |
00000e20  8c 20 f1 bd 28 32 32 39  29 3b 3a 46 25 3d 31 0d  |. ..(229);:F%=1.|
00000e30  06 e0 28 e7 20 41 25 3e  30 20 80 20 41 25 3c 37  |..(. A%>0 . A%<7|
00000e40  20 80 42 25 3d 37 20 8c  20 f1 bd 28 32 32 38 29  | .B%=7 . ..(228)|
00000e50  3b 3a 46 25 3d 31 20 0d  06 ea 15 e7 20 46 25 3d  |;:F%=1 ..... F%=|
00000e60  30 20 8c 20 f1 bd 28 32  33 32 29 3b 0d 06 f4 05  |0 . ..(232);....|
00000e70  e1 0d 06 fe 05 3a 0d 07  08 0f dd f2 71 75 65 73  |.....:......ques|
00000e80  74 69 6f 6e 73 0d 07 12  30 f1 8a 30 2c 31 35 29  |tions...0..0,15)|
00000e90  3b 22 4e 6f 2e 6f 66 20  63 68 61 72 73 2e 61 63  |;"No.of chars.ac|
00000ea0  72 6f 73 73 28 31 2d 35  2c 64 65 66 61 75 6c 74  |ross(1-5,default|
00000eb0  3d 31 29 22 3b 0d 07 1c  0a f5 20 e8 20 57 25 0d  |=1)";..... . W%.|
00000ec0  07 26 12 fd 20 57 25 3d  30 20 84 20 57 25 3c 35  |.&.. W%=0 . W%<5|
00000ed0  20 0d 07 30 11 e7 20 57  25 3d 30 20 8c 20 57 25  | ..0.. W%=0 . W%|
00000ee0  3d 31 0d 07 3a 2a f1 27  22 4e 6f 2e 6f 66 20 63  |=1..:*.'"No.of c|
00000ef0  68 61 72 73 2e 20 64 6f  77 6e 20 28 31 2d 33 2c  |hars. down (1-3,|
00000f00  64 65 66 61 75 6c 74 3d  31 29 22 3b 0d 07 44 16  |default=1)";..D.|
00000f10  e8 20 48 25 3a e7 20 48  25 3d 30 20 8c 20 48 25  |. H%:. H%=0 . H%|
00000f20  3d 31 0d 07 4e 1b e7 20  48 25 3e 33 20 8c 20 f1  |=1..N.. H%>3 . .|
00000f30  20 bd 28 37 29 3b 3a e5  20 8d 44 44 47 0d 07 58  | .(7);:. .DDG..X|
00000f40  29 f1 27 22 41 53 43 49  49 20 63 6f 64 65 73 20  |).'"ASCII codes |
00000f50  66 6f 72 20 63 68 61 72  73 2e 74 6f 20 73 74 61  |for chars.to sta|
00000f60  72 74 20 61 74 22 0d 07  62 2d f1 89 28 31 32 29  |rt at"..b-..(12)|
00000f70  3b 22 28 32 32 34 2d 22  3b 32 35 36 2d 48 25 2a  |;"(224-";256-H%*|
00000f80  57 25 3b 22 2c 64 65 66  61 75 6c 74 3d 32 32 34  |W%;",default=224|
00000f90  29 22 3b 0d 07 6c 19 e8  20 55 25 3a e7 20 55 25  |)";..l.. U%:. U%|
00000fa0  3d 30 20 8c 20 55 25 3d  32 32 34 20 0d 07 76 21  |=0 . U%=224 ..v!|
00000fb0  e7 20 55 25 3e 32 35 36  2d 48 25 2a 57 25 20 8c  |. U%>256-H%*W% .|
00000fc0  20 f1 bd 28 37 29 3b 3a  e5 8d 44 6c 47 0d 07 80  | ..(7);:..DlG...|
00000fd0  28 f1 27 22 31 73 74 20  6c 69 6e 65 20 6e 6f 2e  |(.'"1st line no.|
00000fe0  66 6f 72 20 56 44 55 32  33 20 73 74 61 74 65 6d  |for VDU23 statem|
00000ff0  65 6e 74 73 22 0d 07 8a  25 f1 89 28 31 31 29 3b  |ents"...%..(11);|
00001000  22 28 31 2d 33 32 30 30  30 2c 64 65 66 61 75 6c  |"(1-32000,defaul|
00001010  74 3d 31 30 31 30 29 22  3b 20 0d 07 94 1a e8 20  |t=1010)"; ..... |
00001020  4c 49 3a e7 20 4c 49 3d  30 20 8c 20 4c 49 3d 31  |LI:. LI=0 . LI=1|
00001030  30 31 30 20 0d 07 9e 25  e7 20 4c 49 3c 3d 30 20  |010 ...%. LI<=0 |
00001040  84 20 4c 49 3e 33 32 30  30 30 20 8c 20 f1 bd 28  |. LI>32000 . ..(|
00001050  37 29 3b 3a e5 8d 74 54  47 0d 07 a8 05 e1 0d 07  |7);:..tTG.......|
00001060  b2 05 3a 0d 07 bc 0b dd  f2 74 69 74 6c 65 0d 07  |..:......title..|
00001070  c6 05 db 0d 07 d0 31 f1  8a 35 2c 32 29 3b 22 2a  |......1..5,2);"*|
00001080  20 42 55 44 47 45 20 22  3b bd 28 32 33 34 29 3b  | BUDGE ";.(234);|
00001090  22 20 62 79 20 42 72 69  61 6e 20 4c 69 65 6e 61  |" by Brian Liena|
000010a0  72 64 2e 22 0d 07 da 21  f1 8a 35 2c 34 29 3b 22  |rd."...!..5,4);"|
000010b0  42 20 42 42 43 20 20 20  28 26 20 45 6c 65 63 74  |B BBC   (& Elect|
000010c0  72 6f 6e 29 22 0d 07 e4  15 f1 8a 35 2c 35 29 3b  |ron)"......5,5);|
000010d0  22 55 20 20 55 73 65 72  2d 22 0d 07 ee 18 f1 8a  |"U  User-"......|
000010e0  35 2c 36 29 3b 22 44 20  20 20 44 65 66 69 6e 65  |5,6);"D   Define|
000010f0  64 22 0d 07 f8 1a f1 8a  35 2c 37 29 3b 22 47 20  |d"......5,7);"G |
00001100  20 20 20 47 72 61 70 68  69 63 73 22 0d 08 02 1a  |   Graphics"....|
00001110  f1 8a 35 2c 38 29 3b 22  45 20 20 20 20 20 45 64  |..5,8);"E     Ed|
00001120  69 74 6f 72 2e 22 0d 08  0c 05 e1 0d 08 16 05 3a  |itor.".........:|
00001130  0d 08 20 0a dd f2 76 69  65 77 0d 08 2a 27 f1 8a  |.. ...view..*'..|
00001140  38 2c 33 31 29 3b 22 4c  61 74 65 73 74 20 20 76  |8,31);"Latest  v|
00001150  69 65 77 20 69 73 3a 2d  2d 2d 2d 2d 2d 2d 3e 22  |iew is:------->"|
00001160  3b 0d 08 34 15 e3 20 43  25 3d 30 20 b8 20 48 25  |;..4.. C%=0 . H%|
00001170  2a 57 25 2d 31 20 0d 08  3e 63 ef 32 33 2c 32 33  |*W%-1 ..>c.23,23|
00001180  35 2c 76 61 6c 25 28 43  25 2c 31 29 2c 76 61 6c  |5,val%(C%,1),val|
00001190  25 28 43 25 2c 32 29 2c  76 61 6c 25 28 43 25 2c  |%(C%,2),val%(C%,|
000011a0  33 29 2c 76 61 6c 25 28  43 25 2c 34 29 2c 76 61  |3),val%(C%,4),va|
000011b0  6c 25 28 43 25 2c 35 29  2c 76 61 6c 25 28 43 25  |l%(C%,5),val%(C%|
000011c0  2c 36 29 2c 76 61 6c 25  28 43 25 2c 37 29 2c 76  |,6),val%(C%,7),v|
000011d0  61 6c 25 28 43 25 2c 38  29 0d 08 48 27 f1 8a 43  |al%(C%,8)..H'..C|
000011e0  25 20 83 20 57 25 2b 33  33 2c 43 25 20 81 20 57  |% . W%+33,C% . W|
000011f0  25 2b 33 32 2d 48 25 29  3b bd 28 32 33 35 29 3b  |%+32-H%);.(235);|
00001200  0d 08 52 05 ed 0d 08 5c  08 4d 25 3d 33 0d 08 66  |..R....\.M%=3..f|
00001210  05 e1 0d 08 70 05 3a 0d  08 7a 0a dd f2 6c 6f 61  |....p.:..z...loa|
00001220  64 0d 08 84 0e f2 73 61  76 65 3a f2 63 6c 73 0d  |d.....save:.cls.|
00001230  08 8e 32 f1 8a 30 2c 32  35 29 3b 22 4c 4f 41 44  |..2..0,25);"LOAD|
00001240  3a 20 57 68 69 63 68 20  74 69 6c 65 20 61 63 72  |: Which tile acr|
00001250  6f 73 73 28 31 2d 22 3b  57 25 3b 22 2f 31 29 22  |oss(1-";W%;"/1)"|
00001260  3b 0d 08 98 1d e8 20 50  25 3a e7 20 50 25 3d 30  |;..... P%:. P%=0|
00001270  20 8c 20 50 25 3d 31 3a  e5 20 8d 74 6c 48 0d 08  | . P%=1:. .tlH..|
00001280  a2 2e e7 20 50 25 3c 31  20 84 20 50 25 3e 57 25  |... P%<1 . P%>W%|
00001290  20 8c 20 f1 8a 33 31 2c  32 35 29 3b bd 28 37 29  | . ..31,25);.(7)|
000012a0  3b 89 28 34 29 3b 3a e5  8d 74 4e 48 0d 08 ac 31  |;.(4);:..tNH...1|
000012b0  f1 8a 30 2c 32 36 29 3b  89 28 35 29 3b 22 57 68  |..0,26);.(5);"Wh|
000012c0  69 63 68 20 74 69 6c 65  20 20 64 6f 77 6e 20 28  |ich tile  down (|
000012d0  31 2d 22 3b 48 25 3b 22  2f 31 29 22 3b 0d 08 b6  |1-";H%;"/1)";...|
000012e0  1c e8 20 51 25 3a e7 20  51 25 3d 30 20 8c 20 51  |.. Q%:. Q%=0 . Q|
000012f0  25 3d 31 3a e5 8d 64 4a  48 0d 08 c0 27 e7 20 51  |%=1:..dJH...'. Q|
00001300  25 3e 48 25 20 8c 20 f1  8a 33 31 2c 32 36 29 3b  |%>H% . ..31,26);|
00001310  bd 28 37 29 3b 89 28 34  29 3b 3a e5 8d 74 6c 48  |.(7);.(4);:..tlH|
00001320  0d 08 ca 1c f2 74 69 6c  65 28 28 50 25 2d 31 29  |.....tile((P%-1)|
00001330  2a 38 2c 28 51 25 2d 31  29 2a 38 29 0d 08 d4 32  |*8,(Q%-1)*8)...2|
00001340  f1 8a 30 2c 32 38 29 3b  22 54 79 70 65 20 69 6e  |..0,28);"Type in|
00001350  20 76 61 6c 75 65 73 20  66 72 6f 6d 20 56 44 55  | values from VDU|
00001360  32 33 20 73 74 61 74 65  6d 65 6e 74 3a 22 0d 08  |23 statement:"..|
00001370  de 0e e3 20 49 25 3d 31  20 b8 20 38 0d 08 e8 21  |... I%=1 . 8...!|
00001380  f1 8a 30 2c 32 39 29 3b  22 44 6f 74 20 76 61 6c  |..0,29);"Dot val|
00001390  75 65 20 66 6f 72 20 72  6f 77 20 22 3b 0d 08 f2  |ue for row ";...|
000013a0  0f fb 31 3a f1 3b 49 25  3b 3a fb 33 0d 08 fc 16  |..1:.;I%;:.3....|
000013b0  f1 22 20 28 30 2d 32 35  35 2f 30 29 22 3b 3a e8  |." (0-255/0)";:.|
000013c0  4e 25 0d 09 06 2f e7 20  4e 25 3c 30 20 84 20 4e  |N%.../. N%<0 . N|
000013d0  25 3e 32 35 35 20 8c 20  f1 8a 33 30 2c 32 39 29  |%>255 . ..30,29)|
000013e0  3b bd 28 37 29 3b 89 28  35 29 3b 3a e5 8d 64 68  |;.(7);.(5);:..dh|
000013f0  48 0d 09 10 0a 56 25 3d  31 32 38 0d 09 1a 0e e3  |H....V%=128.....|
00001400  20 4a 25 3d 31 20 b8 20  38 0d 09 24 41 e7 20 4e  | J%=1 . 8..$A. N|
00001410  25 20 81 20 56 25 3d 31  20 8c 20 f1 8a 28 50 25  |% . V%=1 . ..(P%|
00001420  2d 31 29 2a 38 2b 4a 25  2d 31 2c 28 51 25 2d 31  |-1)*8+J%-1,(Q%-1|
00001430  29 2a 38 2b 49 25 2d 31  29 3b bd 28 32 33 33 29  |)*8+I%-1);.(233)|
00001440  3b 3a 4e 25 3d 4e 25 2d  56 25 0d 09 2e 0f 56 25  |;:N%=N%-V%....V%|
00001450  3d 56 25 2f 32 3a ed 4a  25 0d 09 38 17 f1 8a 33  |=V%/2:.J%..8...3|
00001460  30 2c 32 39 29 3b 89 28  35 29 3a ed 20 49 25 20  |0,29);.(5):. I% |
00001470  0d 09 42 22 f2 63 6c 73  3a 20 4d 25 3d 33 3a 20  |..B".cls: M%=3: |
00001480  f2 63 6f 6d 6c 69 73 74  3a 20 f2 72 65 73 74 6f  |.comlist: .resto|
00001490  72 65 0d 09 4c 05 e1 0d  ff                       |re..L....|
00001499