� > ARCTIST+
 *CON.RMA.2
2 *CHANNELVOICE 1 10
< DRI=0:TCIRC=0
F# BAN1%=1:BAN2%=2:SHAD1=0:SHAD=1
P SHADAC%=-20:SHADDN%=-20
Z IMFO=0:SNAP=0:SNAP1=1
d COL2%=63:TNT2%=0:BLD=0
n � SA%(2,10),SD%(2,10)
x! � D%(3),SHADE%(15),CCCC%(96)
� Y=0:� X5=0�1:� X3=0�1:� X1=0�1:� X4=0�1:� X2=0�1:� X=0 � 1:Y=Y+1:CCCC%(Y)=(X)+(X1*2)+(X2*4)+(X3*8)+(X4*16)+(X5*32):� ,,,,,
�1 V$="1.05 +":� Version 1.0+  / ADDED FEATURES
� �:� MODE 15
� NP%=0:MC%=1:ALT%=10
� �setup2
�  � *CON.SPRITESIZE MUST = 55
� OPPS=0: *FX 200,3
�! � � �error:� OPPS=1 � � �tdA
�a A$="PLEASE WAIT LOADING !!!":� 15:�:� Y=1 � 20:�28,20);:� X=1 � 23:� �(63):�A$,X,1);:� X,Y
� *SCREENLOAD SCREEN
� � �tZA
� *SCHOOSE screen
�
 *FX112,1
� � &ED,0,0


 *FX112,2

 � &ED,0,0

 *SMERGE "S=KEY"

" AC%=100:UP%=50:MA=32:MD=16

, � LOOP

6 AC2%=AC%:UP2%=UP%

@+ AC%=AC%+MA:� AC%<1 � AC%>1000 � MA=-MA

J* UP%=UP%+MD:� UP%<1 � UP%>900 � MD=-MD

T% � 1,-15,AC%/8,1:Ȣ 1,127-(UP%/4)

^	 �swi

h *SCHOOSE screen

r � &ED,0,0

| *SCHOOSE spi

� � &ED,AC%,UP%

� � &ED,1000-AC%,900-UP%

� A=�(5):� A=-1 � � �tZA

�L �:� 19,1,24,255,255,255:� 128+63 Ȝ 192:�:�:OTI=0:OTT=0:NN%=0:� MODE 15

� Ȣ 1,0

� �setup

� � 19,1,24,255,255,255

� � 24,0;0;1279;829;

� OPPS=1:AV=0

� � MAINLOOP

�% � SNAP=0 � ȗ � 1,2 � ȗ � 16,32

�/ � IF Y%>860 AND MENU=1 THEN MOUSE STEP 1,1

� �mouse
� � Z%=4 � MENU=1 � OPT=1 � X%>1205 � X%<1240 � Y%>865 � Y%<904 � �plusmenu:� Z%=1 � OPT=1:MENU=1:� 24,0;0;1279;1023;:�menu1:� 24,0;0;1279;829;:Z%=0
	 DE=1
� K%=�0:� K%=133 � MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�:ȗ X%,Y%,K%:� K%=0:Z%=0:�dump2:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
& � K%=-1 � � �TLC
0 � K%=88 � � �Dlt
: � K%=80 � *COL_DUMP
? � K%=112 � *PROPRINT
D � K%=20 � �tint
N � K%=42 � �starcommand
X � K%=18 � �rotate
b� � K%=130 � MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�:ȗ X%,Y%,K%:� K%=0:Z%=0:�form:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
l� � K%=134 � DE=2:MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�:ȗ X%,Y%,K%:� K%=0:Z%=0:�dump2:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
v� � K%=135 � DE=3:MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�:ȗ X%,Y%,K%:� K%=0:Z%=0:�dump2:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
�� � K%=136 � MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�dump3:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
�� � K%=137 � MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�grid:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
�� � K%=7 � MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�game:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
�� � K%=218 � MENU=0:BRI=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�shad:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
�� � K%=219 � MENU=0:BRI=1:OPT=1:� 24,0;0;1279;1023;:�bringback:�shad:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
�� � K%=220 � MENU=0:BRI=5:OPT=1:� 24,0;0;1279;1023;:�bringback:�shad:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
�� � K%=236 � MENU=0:BRI=6:OPT=1:� 24,0;0;1279;1023;:�bringback:�shad:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
�" � K%=14 � �("FX200,0"):� 12:�
� � K%=129 � �cat
�O � K%=131 � � 1,-15,150,0:�lastscreen:AV=1:� 1,-15,100,0:�:A$=�(10):� A$=""
�E � AV=1 � K%=132 � �getlastscreen:� 1,-15,50,0:�:A$=�(10):� A$=""
� � K%=49 � DRI=0:*MOUNT 0
� � K%=50 � DRI=1:*MOUNT 1
. � K%=52 � DRI=4:�"MOUNT 4":*DIR NSARCTIST
 � �d`A

 ��on_off
  � 0
*\ � Z%=2 � MENU=1 � MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�:ȗ X%,Y%,K%:� K%=0:Z%=0
4t � Z%=2 � MENU=0 � OPT=1:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
> �
H
 ��bounce
R! ȗ X%,Y%,Z%:� Z%<>0 � � �DRC
\ �
f ��mouse
pC MC2%=MC%:MC%=MC%+ALT%:� MC%>255 � MC%<80 � MC%=MC2%:ALT%=-ALT%
z *FX21,9
�% � SNAP=0 � ȗ � 2,2 � ȗ � 16,32
� ȗ X%,Y%,Z%
�� IMFO=1 � �imfo
� � Z%>0 � MC%=100
�` � Y%<865 � OPT<>1 � MENU=0 � MC%=100:ȗ � 1,200,200,200:ȗ � 2 � ȗ � 1 :ȗ � 1,200,200,200
�&� Z%>0 � ȗ � 1,200,200,200:ȗ � 2
�&ȗ � 3,MC%,110+(MC%/3),150-(MC%/3)
�g � Z%=2 � MENU=1 � OPT<>2 � MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�:ȗ X%,Y%,Z%:� Z%=0:�:Z%=0
�t � Z%=2 � MENU=0 � OPT=1:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,Z%:� Z%=0:�menu1:� 24,0;0;1279;829;:Z%=0
�- � Z%=4 � OPT=1 � � COL% Ȝ TNT%:Ȓ X%,Y%
�  � Z%=4 � OPT=2 � �colchange
�  � Z%=2 � OPT=2 � �colchange
�p � Z%=1 � OPT=2 � OPT=1:MENU=1:� 24,0;0;1279;1023;:�:ȗ X%,Y%,Z%:� Z%=0:�menu1:� 24,0;0;1279;829;:Z%=0:OPT=1
^ �IF Z%=1 THEN VDU 24,0;0;1279;1023;:K=POINT(X%,Y%):VDU 24,0;0;1279;829;:PRINTTAB(10,10);K
 � Z%=1 � OTT=0:�tNC
# � MENU=0  � Y%<853 � Z%<>4 � �
$% � OPT=1 � X%<60 � �colour :OPT=2
.8 � OPT=1 � X%>117 � X%<170 � Y%>930 � Y%<990 � �fill
8 � MENU=0 � �
B8 � OPT=1 � X%>195 � X%<250 � Y%>930 � Y%<990 � �rect
L � MENU=0 � �
V8 � OPT=1 � X%>275 � X%<330 � Y%>930 � Y%<990 � �circ
` � MENU=0 � �
j7 � OPT=1 � X%>355 � X%<410 � Y%>930 � Y%<990 � �tri
t � MENU=0 � �
~: � OPT=1 � X%>130 � X%<190 � Y%>866 � Y%<895 � �scroll
� � MENU=0 � �
�9 � OPT=1 � X%>510 � X%<570 � Y%>930 � Y%<990 � �flip2
� � MENU=0 � �
�9 � OPT=1 � X%>440 � X%<490 � Y%>930 � Y%<990 � �flip1
� � MENU=0 � �
�: � OPT=1 � X%>310 � X%<410 � Y%>866 � Y%<895 � �fillon
� � MENU=0 � �
�; � OPT=1 � X%>595 � X%<655 � Y%>930 � Y%<990 � �inverse
� � MENU=0 � �
�9 � OPT=1 � X%>675 � X%<735 � Y%>930 � Y%<990 � �linej
� � MENU=0 � �
�9 � OPT=1 � X%>755 � X%<815 � Y%>930 � Y%<990 � �linep
 � MENU=0 � �

9 � OPT=1 � X%>832 � X%<890 � Y%>930 � Y%<990 � �spray
 � MENU=0 � �
7 � OPT=1 � X%>915 � X%<970 � Y%>930 � Y%<990 � �rub
( � MENU=0 � �
28 � OPT=1 � X%>995 � X%<1050 � Y%>930 � Y%<990 � �cls
< � MENU=0 � �
F: � OPT=1 � X%>1075 � X%<1130 � Y%>930 � Y%<990 � �copy
P � MENU=0 � �
Z; � OPT=1 � X%>1155 � X%<1215  � Y%>930 � Y%<990 � �disc
d � MENU=0 � �
n8 � OPT=1 � X%>530 � X%<590 � Y%>866 � Y%<905 � �text
xJ � THERE SHOULD BE SOMETHING HERE <<<<<<<<<<<<*******<<<<<<<<******<<<
�8 � OPT=1 � X%>750 � X%<810 � Y%>866 � Y%<905 � �zoom
� � MENU=0 � �
�? � VDU 19,1,24,100,150,200:OSCLI("*FX19"):VDU 19,1,24,0,0,0
� �
�
 ��scroll
�A �  MENU=1 � MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:Z%=0
� �
� ȗ X%,Y%,Z%
� � 0,0:� 15,1023:*SGET side
� � 23,7,1,1,0|
� *SCHOOSE side
� � &ED,1264,0:*SDELETE side
� � Z%<>4
n �  MENU=0 � OPT=1:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
 �

 ��colour
" � 24,0;0;1279;1023;
,% � 47 Ȝ 192:ȓ Ȑ 8,865,1243,146
6
 XC%=0
@3 CC%=0:PP=0:� Z%=960 � 860 �-44:� Z%=872 � PP=5
J�Y%=4:� X%=0 � 22-PP:CC%=CC%+1:Y%=Y%+12:XC%=XC%+1:P=20:� K%=0 � 3:K2%=(K%*64):� CCCC%(XC%) Ȝ K2%:ȏ  Ȑ Y%+15,Z%+15,P:P=P-4:�:Y%=Y%+30:� ,
T% � 47 Ȝ 192:ȓ Ȑ 764,866,250,40
^ � 0
hy ȓ 1030,880,200,60:� 63:ȓ 1034,884,192,52:� COL% Ȝ TNT%:ȓ Ȑ 1040,892,92,38:� COL2% Ȝ TNT2%:ȓ Ȑ 1132,892,90,38
r� � 63 Ȝ 0:� 192:�65,1);" TINT=";:� COL%+128 Ȝ 0:�" ";:� COL%+128 Ȝ 64:� 63 Ȝ 192:�" ";:� COL%+128 Ȝ 128:�" ";:� COL%+128 Ȝ 192:�" "
|� � TNT%=0 � � COL%+128 Ȝ 0:�71,1);"x" � � TNT%=64 � � COL%+128 Ȝ 64:�72,1);"x" � � TNT%=128 � � COL%+128 Ȝ 128:�73,1);"x"
�9 � 63 Ȝ 0:� TNT%=192 � � COL%+128 Ȝ 192:�74,1);"x"
� � 63:� 192
� � 24,0;0;1279;829;
� �
�
 ��fillon
� �bounce
� � NN%=1 � NN%=0 � NN%=1
� � NN%=1 � NP%=1 � NP%=0
�X � MENU=1 � � 24,0;0;1279;1023;:� 4,0:ȓ Ȑ 306,870,108,24:� COL%:� 24,0;0;1279;829;
� �
� ��colchange
�� 24,0;0;1279;1023;
�� � X%>1040 � X%<1220 � Y%>892 � Y%<930 � Ȕ COL%,COL2%:Ȕ TNT%,TNT2%:� COL% Ȝ TNT%:ȓ Ȑ 1040,892,92,38:� COL2% Ȝ TNT2%:ȓ Ȑ 1132,892,90,38:�:ȗ X,Y,Z:� Z=0:� �t@G
  � X%>1020 � Y%>879 � � �DDG
 COL3%=COL%:TNT3%=TNT%
  COL%=�X%,Y%):TNT%=Ȝ(X%,Y%)
&9 � Z%=2 � COL2%=COL%:COL%=COL3%:TNT2%=TNT%:TNT%=TNT3%
0N � COL% Ȝ TNT%:ȓ Ȑ 1040,892,92,38:� COL2% Ȝ TNT2%:ȓ Ȑ 1132,892,90,38
: � �t@G
D   � Y%<960 � Y%>990 � � �thG
N"  � X%<1134 � X%>1200 � � �thG
X! � X%>1134 � X%<1150 � TNT%=0
b" � X%>1150 � X%<1166 � TNT%=64
l# � X%>1166 � X%<1182 � TNT%=128
v# � X%>1182 � X%<1200 � TNT%=192
�� � 63 Ȝ 0:� 192:�65,1);" TINT=";:� COL%+128 Ȝ 0:� 63 Ȝ 192:�" ";:� COL%+128 Ȝ 64:�" ";:� COL%+128 Ȝ 128:�" ";:� COL%+128 Ȝ 192:�" "
�� � TNT%=0 � � COL%+128 Ȝ 0:�71,1);"x" � � TNT%=64 � � COL%+128 Ȝ 64:�72,1);"x" � � TNT%=128 � � COL%+128 Ȝ 128:�73,1);"x"
�9 � 63 Ȝ 0:� TNT%=192 � � COL%+128 Ȝ 192:�74,1);"x"
�N � COL% Ȝ TNT%:ȓ Ȑ 1040,892,92,38:� COL2% Ȝ TNT2%:ȓ Ȑ 1132,892,90,38
� � 24,0;0;1279;829;
� �
� ��fill
� � 24,0;0;1279;1023;
�% � 4,3:ȓ Ȑ 110,925,65,65:� COL%
� �bounce
�
 OTT=1
� � 24,0;0;1279;829;
� �
 ȗ X%,Y%,Z%

 �imfo
� � Z%=4 � T%=0:�:PP=Ȝ(X%,Y%):� �X%,Y%)+128 Ȝ PP:� COL% Ȝ TNT%:Ȑ X%,Y%: T%=T%+64:K%=�X%,Y%):� K%=COL% � T%=256:�:ȗ X%,Y%,Z%:� Z%=0
 � � OLDLINE>>>IF Z%=4 THEN T%=0:REPEAT:GCOL POINT(X%,Y%)+128 TINT T%:GCOL COL% TINT TNT%:FILL X%,Y%: T%=T%+64:K%=POINT(X%,Y%):UNTIL K%=COL% OR T%=256:REPEAT:MOUSE X%,Y%,Z%:UNTIL Z%=0
* �on_off
4 � Z%=1
>W � MENU=1 � � 24,0;0;1279;1023;:� 4,0:ȓ Ȑ 110,925,65,65:� COL%:� 24,0;0;1279;829;
H
 OTT=0
R �
\ ��rect
f �bounce
pW � MENU=1 � � 24,0;0;1279;1023;:� 4,0:ȓ Ȑ 190,925,65,65:� COL%:� 24,0;0;1279;829;
z PAR=1 :OTT=2:X1%=0
� �
�
 �another
� ȗ X%,Y%,Z%
�1 � PAR=1 � Z%=4 � X1%=X%:Y1%=Y%:PAR=2:�bounce
�^ � PAR=2 � � 4,0:ȓ X1%,Y1%,X%-X1%,Y%-Y1%:Ȗ:Ȗ:Ȗ:ȓ X1%,Y1%,X%-X1%,Y%-Y1%:� COL% Ȝ TNT%
�� � SHAD1=1 � � PAR=2 � Z%=4 � � COL2% Ȝ TNT2%: ȓ X1%+SHADAC%,Y1%+SHADDN%,X%-X1%,Y%-Y1%:� NN%=1 � ȓ Ȑ X1%+SHADAC%,Y1%+SHADDN%,X%-X1%,Y%-Y1%
�r � PAR=2 � Z%=4 � � COL% Ȝ TNT%:PAR=1:�bounce: ȓ X1%,Y1%,X%-X1%,Y%-Y1%:� NN%=1 � ȓ Ȑ X1%,Y1%,X%-X1%,Y%-Y1%
� �on_off
� � Z%=1
�W � MENU=1 � � 24,0;0;1279;1023;:� 4,0:ȓ Ȑ 190,925,65,65:� COL%:� 24,0;0;1279;829;
� OTT=0:�
� ��circ
� �bounce
	W � MENU=1 � � 24,0;0;1279;1023;:� 4,0:ȓ Ȑ 270,925,65,65:� COL%:� 24,0;0;1279;829;
	 PAR=1 :OTT=3 :X1%=0
	 �
	$ ȗ X%,Y%,Z%:�another
	. ȗ X%,Y%,Z%
	81 � PAR=1 � Z%=4 � X1%=X%:Y1%=Y%:PAR=2:�bounce
	B� � PAR=2 � X%<>X1% � � 4,0:ȝ  X1%,Y1%,(X%-X1%),(Y%-Y1%),((X%)-X1%)/50:Ȗ:Ȗ:Ȗ:ȝ X1%,Y1%,(X%-X1%),(Y%-Y1%),((X%)-X1%)/50:� COL% Ȝ TNT%
	L� � PAR=2 � Z%=4 � SHAD1=1 � X%<>X1% � � COL2% Ȝ TNT2%:ȝ X1%+SHADAC%,Y1%+SHADDN%,(X%-X1%),(Y%-Y1%),((.4+X%)-X1%)/50:� NN%=1 � ȝ Ȑ X1%+SHADAC%,Y1%+SHADDN%,(X%-X1%),(Y%-Y1%),((.4+X%)-X1%)/50
	V� � PAR=2 � Z%=4 � X%<>X1% � � COL% Ȝ TNT%:ȝ X1%,Y1%,(X%-X1%),(Y%-Y1%),((.4+X%)-X1%)/50:PAR=1:�bounce:� NN%=1 � ȝ Ȑ X1%,Y1%,(X%-X1%),(Y%-Y1%),((.4+X%)-X1%)/50
	` �on_off
	j � Z%=1
	tW � MENU=1 � � 24,0;0;1279;1023;:� 4,0:ȓ Ȑ 270,925,65,65:� COL%:� 24,0;0;1279;829;
	~ OTT=0:�
	�
 ��tri
	� �bounce
	�W � MENU=1 � � 24,0;0;1279;1023;:� 4,0:ȓ Ȑ 350,925,65,65:� COL%:� 24,0;0;1279;829;
	� PAR=1 :OTT=4
	� �
	�
 �another
	� ȗ X%,Y%,Z%
	�1 � PAR=1 � Z%=4 � X1%=X%:Y1%=Y%:PAR=2:�bounce
	�T � PAR=2 � � 4,0:� X1%,Y1%,(X%),(Y%):Ȗ:Ȗ:Ȗ:� X1%,Y1%,(X%),(Y%):� COL% Ȝ TNT%
	� � PAR=3 � � 4,0:� X1%,Y1%,X2%,Y2%:� X2%,Y2%,X%,Y%:� X%,Y%,X1%,Y1%:Ȗ:Ȗ:Ȗ:� X1%,Y1%,X2%,Y2%:� X2%,Y2%,X%,Y%:� X%,Y%,X1%,Y1%:� COL% Ȝ TNT%
	�1 � PAR=2 � Z%=4 � PAR=3:X2%=X%:Y2%=Y%:�bounce
	�� � PAR=3 � Z%=4 � SHAD1=1 � � COL2% Ȝ TNT2%:� X1%+SHADAC%,Y1%+SHADDN%,X2%+SHADAC%,Y2%+SHADDN%:� X2%+SHADAC%,Y2%+SHADDN%,X%+SHADAC%,Y%+SHADDN%:� X%+SHADAC%,Y%+SHADDN%,X1%+SHADAC%,Y1%+SHADDN%
x � PAR=3 � Z%=4 � SHAD1=1 � � NN%=1 � � X1%+SHADAC%,Y1%+SHADDN%:� X2%+SHADAC%,Y2%+SHADDN%:� 85,X%+SHADAC%,Y%+SHADDN%

� � PAR=3 � Z%=4 � � COL% ȜTNT%:� X1%,Y1%,X2%,Y2%:� X2%,Y2%,X%,Y%:� X%,Y%,X1%,Y1%:PAR=1:�bounce:� NN%=1 � � X1%,Y1%:� X2%,Y2%:� 85,X%,Y%
 �on_off
 � Z%=1
(W � MENU=1 � � 24,0;0;1279;1023;:� 4,0:ȓ Ȑ 350,925,65,65:� COL%:� 24,0;0;1279;829;
2 OTT=0:�
< ��area
F �bounce
P PAR=1:CNT=0
Z �
d ȗ X%,Y%,Z%
n1 � PAR=1 � Z%=4 � X1%=X%:Y1%=Y%:PAR=2:�bounce
xy � PAR=2 � � 4,0:�("*FX19"):ȓ Ȑ X1%,Y1%,(X%-X1%),(Y%-Y1%):�("*FX19"):ȓ Ȑ X1%,Y1%,(X%-X1%),(Y%-Y1%):� COL% Ȝ TNT%
� �on_off
�3 � PAR=2 � Z%=4 � X2%=X%:Y2%=Y%:�bounce:CNT=1:�
� � Z%=1
� �bounce
� �
� ��flip1
�
 OTT=5
�W � MENU=1 � � 24,0;0;1279;1023;:� 4,0:ȓ Ȑ 430,925,65,65:� COL%:� 24,0;0;1279;829;
�e �area:� OTT=5 � MENU=1 � � 24,0;0;1279;1023;:� 4,0:ȓ Ȑ 430,925,65,65:� COL%:� 24,0;0;1279;829;
� � CNT=0 � OTT=0:�
� � Y2%<Y1% � Ȕ Y2%,Y1%
� � X2%<X1% � Ȕ X2%,X1%
�# � X1%,Y1%:� X2%,Y2%:*SGET flip
 *SFLIPX flip
 *SCHOOSE flip
  � &ED,X1%,Y1%:*SDELETE flip
"
 OTT=0
, �
6 ��flip2
@
 OTT=6
JW � MENU=1 � � 24,0;0;1279;1023;:� 4,0:ȓ Ȑ 510,925,65,65:� COL%:� 24,0;0;1279;829;
Te �area:� OTT=6 � MENU=1 � � 24,0;0;1279;1023;:� 4,0:ȓ Ȑ 510,925,65,65:� COL%:� 24,0;0;1279;829;
^ � CNT=0 � OTT=0:�
h � Y2%<Y1% � Ȕ Y2%,Y1%
r � X2%<X1% � Ȕ X2%,X1%
|# � X1%,Y1%:� X2%,Y2%:*SGET flip
� *SFLIPY flip
� *SCHOOSE flip
�  � &ED,X1%,Y1%:*SDELETE flip
�
 OTT=0
� �
� ��inverse
�
 OTT=7
�W � MENU=1 � � 24,0;0;1279;1023;:� 4,0:ȓ Ȑ 595,925,65,65:� COL%:� 24,0;0;1279;829;
�
 �area
�_ � CNT=0 � MENU=1 � � 24,0;0;1279;1023;:� 4,0:ȓ Ȑ 595,925,65,65:� COL%:� 24,0;0;1279;829;
� � CNT=0 � �
�7 � 4,0:ȓ Ȑ X1%,Y1%,X2%-X1%,Y2%-Y1%:� COL% Ȝ TNT%
�^ OTT=0:� MENU=1  � � 24,0;0;1279;1023;:� 4,0:ȓ Ȑ 595,925,65,65:� COL%:� 24,0;0;1279;829;
 �
 ��linej
j�bounce:PAR=1:OTT=8:� MENU=1 � � 24,0;0;1279;1023;:� 4,0:ȓ Ȑ 675,925,65,65:� COL%:� 24,0;0;1279;829;
& �:�another:ȗ X%,Y%,Z%
01 � PAR=1 � Z%=4 � X1%=X%:Y1%=Y%:PAR=2:�bounce
: � �(-99) � PAR=1
DY � PAR=2 � � 4,0:�("*FX19"):� X1%,Y1%,X%,Y%:�("*FX19"):� X1%,Y1%,X%,Y%:� COL% Ȝ TNT%
N` � PAR=2 � Z%=4 � SHAD1=1 � � COL2% Ȝ TNT2%:� X1%+SHADAC%,Y1%+SHADDN%,X%+SHADAC%,Y%+SHADDN%
XJ � PAR=2 � Z%=4 � � COL% Ȝ TNT%:� X1%,Y1%,X%,Y%:X1%=X%:Y1%=Y%:�bounce
b �on_off
l � Z%=1
vV� MENU=1 � � 24,0;0;1279;1023;:� 4,0:ȓ Ȑ 675,925,65,65:� COL%:� 24,0;0;1279;829;
� �
� ��linep
�j�bounce:PAR=1:OTT=9:� MENU=1 � � 24,0;0;1279;1023;:� 4,0:ȓ Ȑ 755,925,65,65:� COL%:� 24,0;0;1279;829;
� �:�another:ȗ X%,Y%,Z%
�1 � PAR=1 � Z%=4 � X1%=X%:Y1%=Y%:PAR=2:�bounce
� � �(-99) � PAR=1
�Y � PAR=2 � � 4,0:�("*FX19"):� X1%,Y1%,X%,Y%:�("*FX19"):� X1%,Y1%,X%,Y%:� COL% Ȝ TNT%
Ɖ � PAR=2 � Z%=4 � � COL% Ȝ TNT%:� X1%,Y1%,X%,Y%:�bounce:� SHAD1=1 � � COL2% Ȝ TNT2%:� X1%+SHADAC%,Y1%+SHADDN%,X%+SHADAC%,Y%+SHADDN%
� �on_off
� � Z%=1
�V� MENU=1 � � 24,0;0;1279;1023;:� 4,0:ȓ Ȑ 755,925,65,65:� COL%:� 24,0;0;1279;829;
� �
� ��spray

 � MENU=0 � �

 OPT=3:OTT=10

:  � 24,0;0;1279;1023;:� 58 Ȝ 192:ȓ Ȑ 0,853,1259,170

 " � 12 Ȝ 128:ȓ 0,853,1259,170

*V � X=100 � 1000 � 100:� 75 Ȝ 128:ȓ X,880,80,80:� 63 Ȝ 192:ȓ Ȑ X+8,888,64,64:�

4+ � 14:�25,0);"SELECT SPRAY INTENSITY."

>\ � 0 Ȝ 0:AM=1:� X=100 � 1000 � 100:� Z=1 � AM*2:Ȓ X+22+�(30),902+�(30):� Z:AM=AM+2:� X

H :� 24,0;0;1279;829;:IN=0

R �

\ȗ X%,Y%,Z%

f � Y%<890 � Y%>950 � � �DpM

p$ � Z%=4 � X%>110 � X%<170 � IN=1

z$ � Z%=4 � X%>210 � X%<270 � IN=3

�$ � Z%=4 � X%>310 � X%<370 � IN=5

�#� Z%=4 � X%>410 � X%<470 � IN=7

�#� Z%=4 � X%>510 � X%<570 � IN=9

�$� Z%=4 � X%>610 � X%<670 � IN=11

�$� Z%=4 � X%>710 � X%<770 � IN=13

�$� Z%=4 � X%>810 � X%<870 � IN=15

�$� Z%=4 � X%>910 � X%<970 � IN=17

�&� Z%=4 � X%>1010 � X%<1070 � IN=19

� � Z%=2 � IN>0

�9 � 24,0;0;1279;1023;:� 63 Ȝ 192:ȓ Ȑ 0,853,1259,170

� �menu1:�bounce

� �

�
 �another

 �sprayer
 �on_off
 ȗ X%,Y%,Z%
$ � Z%=1
.e  � MENU=1 � OTT=0:OPT=1:� 24,0;0;1279;1023;:� 4,0:ȓ Ȑ 832,925,65,65 :� COL%:� 24,0;0;1279;829;
8 �
B ��sprayer
L ȗ X%,Y%,Z%:� Z%<>4 � �
VZ � SHAD1=0 � � COL% Ȝ TNT%: � K%=1 � IN*2:Ȓ X%-20+(�(30+IN)),Y%-20+(�(30+IN)):� �DjN
`� � K%=1 � IN*2:� COL% Ȝ TNT%:AP%=�(30+IN):APP%=�(30+IN):Ȓ X%-20+AP%,Y%-20+APP%:� COL2% Ȝ TNT2%:Ȓ X%-20+AP%+SHADAC%,Y%-20+APP%+SHADDN%
j	 � K%
t �
~
 ��rub
�\� 24,0;0;1279;1023;  :� 4,3:ȓ Ȑ 915,925,65,65:� COL%:OTT=11:� 24,0;0;1279;829;:�bounce
�
 �area
� � CNT=0 � � �dlN
� XX%=X%-X1%:YY%=Y%-Y1%
�B � 4,0:ȓ Ȑ X1%,Y1%,XX%,YY%:Ȗ:Ȗ:Ȗ:Ȗ:ȓ Ȑ X1%,Y1%,XX%,YY%
� �imfo:�on_off
� ȗ X1%,Y1%,Z%
� � Z%=0 � � �tpN
�/ � Z%=4 � � 63 Ȝ 192:ȓ Ȑ X1%,Y1%,XX%,YY%
� � Z%<>1 � � �tpN
�g OTT=0:� MENU=1 � � 24,0;0;1279;1023;  :� 4,3:ȓ Ȑ 915,925,65,65:� COL%:� 24,0;0;1279;829;:�bounce
� �
 ��copy

 OTT=12:OTI=12
c� 24,0;0;1279;1023;  :� 4,3:ȓ Ȑ 1075,925,65,65:� COL%:OTT=11:� 24,0;0;1279;829;:�bounce:�area
 � CNT=0 � � �dpO
( � Y2%<Y1% � Ȕ Y2%,Y1%
2 � X2%<X1% � Ȕ X2%,X1%
<$ � X1%,Y1%:� X2%,Y2%:*SGET copy2
F �bounce
P �bounce
Z *SCHOOSE copy2
d �
n ȗ X%,Y%,Z%
x NNP%=(X%+Y%)
�� � 3,0:� &ED,X%+((X1%-X2%)/2),Y%+((Y1%-Y2%)/2):Ȗ:Ȗ:�:ȗ XA%,YA%,ZA%:� NNP%<>(XA%+YA%+ZA%)::� &ED,X%+((X1%-X2%)/2),Y%+((Y1%-Y2%)/2)
�z � Z%=6 � � NP%=1 � � 3,0:� &ED,X%+((X1%-X2%)/2),Y%+((Y1%-Y2%)/2) � � Z%=6 � 0:� &ED,X%+((X1%-X2%)/2),Y%+((Y1%-Y2%)/2)
� � Z%=0 � �DnO
� OTT=12:�on_off
� � Z%=1 � � �dfO
� *SCHOOSE copy2
� � Z%=4 � Z%=6
�  ȗ X%,Y%,Z%:� Z%=6 � � �DdO
�j � NP%=1 � � 3,0:� &ED,X%+((X1%-X2%)/2),Y%+((Y1%-Y2%)/2) � � 0:� &ED,X%+((X1%-X2%)/2),Y%+((Y1%-Y2%)/2)
� � �DPO
� *SDELETE copy2
�i � MENU=1 � � 24,0;0;1279;1023;  :� 4,3:ȓ Ȑ 1075,925,65,65:� COL%:OTT=11:� 24,0;0;1279;829;:�bounce
� OTI=0:OTT=0
 �
 ��disc
9 � 24,0;0;1279;1023;:� 49 Ȝ 192:ȓ Ȑ 0,853,1259,170
" � 63:ȓ  0,853,1259,170
, � 49+128:� 63
6, � 49 Ȝ 0:ȓ Ȑ (5*16-4)-30,890,340,106
@5 � X=0 � 20 � 4:� X:ȓ (5*16-4)-X,923-X,70+X,70+X
J# ȓ (10*16-4)-X,923-X,70+X,70+X
T# ȓ (15*16-4)-X,923-X,70+X,70+X
^# ȓ (20*16-4)-X,923-X,70+X,70+X
h �
r � 63:ȓ  0,853,1259,170
| ȗ ȓ 0,853,1259,170
� �5,1);"SAVE";�5,2);"SCRE"
�! �10,1);"LOAD";�10,2);"SCRE"
�! �15,1);"SAVE";�15,2);"SPRI"
�! �20,1);"LOAD";�20,2);"SPRI"
� �
� ȗ X%,Y%,Z%
�> � Z%=4 � X%>80 � X%<140 � Y%>930 � Y%<990 � OPTT=1:� �TRQ
�? � Z%=4 � X%>170 � X%<220 � Y%>930 � Y%<990 � OPTT=2:� �TRQ
�? � Z%=4 � X%>240 � X%<300 � Y%>930 � Y%<990 � OPTT=3:� �TRQ
�? � Z%=4 � X%>320 � X%<380 � Y%>930 � Y%<990 � OPTT=4:� �TRQ
� � Z%=1
�H � 24,0;0;1279;1023;:� 63 Ȝ 192:ȓ Ȑ 0,853,1259,170:�menu1:�bounce
� ȗ ȓ 0,0,1285,1023
 �
* � OPTT=1 � � �40,1);"SAVE THE SCREEN"
* � OPTT=2 � � �40,1);"LOAD THE SCREEN"
&- � OPTT=3 � � �40,1);"SAVE A SPRITE AREA"
0- � OPTT=4 � � �40,1);"LOAD A SPRITE AREA"
:+ �30,3);"Enter file name:            "
D A$="":� 11 :GO=0
N �
X �46,3);A$
b
 K$=�(10)
lP �  �(K$)=127 � �(A$)>0 � A$=�A$,1,�(A$)-1):�46,3);"            ";�46,3);A$
v � K$=�(13) � GO=1:� �tTQ
� � K$<"!" � K$>"z" � � �DbQ
�
 A$=A$+K$
� � �(A$)>8 � GO=1
�2 � 63:�30,3);" '";A$;"' IS THIS CORRECT Y/N?"
�( K$=�(10):� K$="N" � K$="n" � � �dtP
�! � K$<>"Y" � K$<>"y" � � �thQ
�J MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�:ȗ X%,Y%,K%:� K%=0:Z%=0
�0 �("MOUNT "+�(DRI)):� DRI=4 � *DIR NSARCTIST
� ȗ ȓ 0,0,1285,1023
�/ � OPTT=1 � A$="P="+A$:�("*SCREENSAVE "+A$)
�> � OPTT=2 � A$="P="+A$:�("*SLOAD "+A$):*SCHOOSE screendump
�h � OPTT=2 � � X=0 � 500 � 20:� 24,500-X;500-X;779+X;524+X;:� &ED,0,0:�:� 24,0;0;1279;1023;:� &ED,0,0
�
 *SNEW
 � OPTT<3 � � �dTR
 � OPTT=3 � �area
 � OPTT=4 � � �DpR
  � X2%<X1% � Ȕ X2%,X1%
* � Y2%<Y1% � Ȕ Y2%,Y1%
4 A$="S="+A$
>	 AV=0
H � X1%,Y1%:� X2%,Y2%
R *SGET spi
\ �("*SSAVE "+A$)
f � �dTR
p A$="S="+A$
z0 �("MOUNT "+�(DRI)):� DRI=4 � *DIR NSARCTIST
� �("*SLOAD "+A$)
� *SCHOOSE spi
� �:ȗ X%,Y%,Z%
�D � 3,0:� &ED,X%-20,Y%-20:�("*FX19"):�("*FX19"):� &ED,X%-20,Y%-20
� � Z%=4 � Z%=1
� � Z%=1 � � �dTR
�% � NN%<>1 � � 0:� &ED,X%-20,Y%-20
�& � NN%=1 � � 3,0:� &ED,X%-20,Y%-20
�b OPT=1:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,Z%:� Z%=0:�menu1:� 24,0;0;1279;829;:Z%=0
�� OPTT>2 �  *SDELETE spi
� ȗ ȓ 0,0,1285,1023
� �
�	 ��on
 � 24,0;0;1279;829;
 �

 ��off
$  � 24,0;0;1279;1023;
. �
8 ��text:ȗ � 3
BJ MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�:ȗ X%,Y%,K%:� K%=0:Z%=0
L �:ȗ X%,Y%,Z%
V
 �imfo
`Y � 4,0:� X%,Y%+8,X%+16,Y%+8:�("*FX19"):�("*FX19"):� X%,Y%+8,X%+16,Y%+8:� COL% Ȝ TNT%
j � Z%=4 � Z%=1
t �bounce
~ � 5
� X2%=X%:Y2%=Y%
� �
� ȗ XX%,YY%,Z%
�N � 4,0:� X%,Y%+8,X%+16,Y%+8:�("*FX19"):� X%,Y%+8,X%+16,Y%+8:� COL% Ȝ TNT%
� K$=�(10):� COL% Ȝ TNT%
�! � K$>�(31) � K$<"~" � � �TJT
�/ � K$=�(13) � X%=X2%:Y%=Y%-32:� Y%<0 � Y%=0
�h � K$=�(127) � X%=X%-16:TEM%=Ȝ(X%,Y%+16):� �X%,Y%+16) Ȝ TEM%:ȓ Ȑ X%,Y%+8,16,32:� X%<X2% � X%=X2%
� � Z%=1 � Z%=4
�
 � 4:�
�b OPT=1:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,Z%:� Z%=0:�menu1:� 24,0;0;1279;829;:Z%=0
� ȗ � 2
 �

 � DO TEXT FUNCTIONS
  � BLD=1 � � X%-4,Y%+40:� K$
 � X%,Y%+40:� K$
(E � BLD=2 � � COL2% Ȝ TNT2%:� X%,Y%+14,X%+16,Y%+14:� COL% Ȝ TNT%
2b � BLD=3 � � COL2% Ȝ TNT2%:� X%-2,Y%+36:� K$:� X%+2,Y%+36:� K$:� COL% Ȝ TNT%:� X%,Y%+40:� K$
<_ � BLD=4 � � COL2% Ȝ TNT2%:�  X%+SHADAC%,Y%+40+SHADDN%:� K$:� COL% Ȝ TNT%:� X%,Y%+40:� K$
F5 X%=X%+16:� X%>1263 � X%=0:Y%=Y%-32:� Y%<0 � Y%=0
P �
Z ��zoom
d �bounce
nJ MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�:ȗ X%,Y%,K%:� K%=0:Z%=0
x ȗ ȓ 0,0,958,960
� �
� ȗ X%,Y%,Z%
�E  � 4,0:ȓ Ȑ X%,Y%,32,64:�("*FX19"):�("*FX19"):ȓ Ȑ X%,Y%,32,64
� � Z%=4 � Z%=1
� ȗ ȓ 0,0,1285,1023
� X2%=X%:Y2%=Y%
� � COL% Ȝ TNT%
� � X%>990 � Z%=1
�m � Z%=1 � OPT=1:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,Z%:� Z%=0:�menu1:� 24,0;0;1279;829;:Z%=0:�
�� 24,0;0;1279;1023;
�& � 1022,480:� 1278,1022:*SGET zbit
�n � D%=15 � 0 �-1:� A%=0 � 15:KOL%=�(X%+(A%*2)),(Y%+(D%*4))):TN%=Ȝ((X%+(A%*2)),(Y%+(D%*4))):�  KOL% Ȝ TN%
�T � KOL%>0 � �64+A%,15-D%);�(190) � � KOL%=0 � � 63 Ȝ 192:�64+A%,15-D%);�(191)
 � A%,D%
 ȗ � 1100,900
= ȓ Ȑ  1025,510,252,-30:� 63 Ȝ 192:ȓ  1025,510,252,-30
" � :ȗ X%,Y%,Z%
,� � Z%=4 � Y%>510 � Y%<1020 � X%>1020 � X%<1272 � X%=X%-1022:Y%=Y%-510:X1%=X%/16:Y1%=Y%/32:� COL% Ȝ TNT%:�X1%+64,15-Y1%);�(190):� COL% Ȝ TNT%:Ȓ X2%+(X1%*2),Y2%+(Y1%*4)
6� � Z%=2 � Y%>510 � Y%<1020 � X%>1020 � X%<1272 � X%=X%-1022:Y%=Y%-510:X1%=X%/16:Y1%=Y%/32:� 0 Ȝ 0:�X1%+64,15-Y1%);�(190):� 0 Ȝ 0:Ȓ X2%+(X1%*2),Y2%+(Y1%*4)
@ � Z%=1
J *SCHOOSE zbit
T � 0:� &ED,1022,480
^4 � 24,0;0;1279;1023;:�getback:� 24,0;0;1279;829;
h ȗ � X2%,Y2%
r � �DdT
|b OPT=1:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,Z%:� Z%=0:�menu1:� 24,0;0;1279;829;:Z%=0
� �
� ��setup
�
 �getback
� ȗ � 2
� ȗ � 2,100,110,120:ȗ � 2
� ȗ � 1,200,190,180
� �
� ȗ ȓ 0,0,1285,1023
� MENU=1
� COL%=0:TNT%=192
� �menu1
�
 OPT=1
� �
 ��getback
$ � 0,833:� 1279,1023:*SGET BLOCK
 �
& ��bringback
0 *SCHOOSE BLOCK
: � &ED,0,833
D �
NE ��menu1:� THIS IS THE MAIN MENU <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
X �0,0);�(7):OPT2=0
b" � 0,0:� 1279,1023:*SGET ZTEMP
l *FX 112,2
v *SCHOOSE ZTEMP
� � &ED,0,0:*FX 113,2
� *FX 112,1
� � &ED,0,0
�# � 1 Ȝ 0:ȓ Ȑ 20,833,1259,170
�% � 42 Ȝ 128:ȓ Ȑ 0,853,1259,170
� � 0:ȓ  2,849,1261,170
� � 42:ȓ  0,853,1250,180
� � 128+42 Ȝ 0:� 16 Ȝ 192
� Y%=870
�5 � X%=0 � 15:� Z%=2 � 3 :Y%=Y%+4:� X%*Z% Ȝ Z%*64
� � 20,Y%,50,Y%:� Z%,X%
� � 30 Ȝ 192
� �7,1);"��� "�7,2);"��� "
6 � 5:� 7*16+8,995:�"��� ":� 7*16+8,964:�"��� ":� 4
! �12,1);"����";�12,2);"����"
8 � 5:� 12*16+8,995:�"����":� 12*16+8,964:�"����":� 4
 ! �17,1);" �� ";�17,2);" �� "
*8 � 5:� 17*16+8,995:�" �� ":� 17*16+8,964:�" �� ":� 4
4! �22,1);" ���";�22,2);" ���"
>8 � 5:� 22*16+8,995:�" ���":� 22*16+8,964:�" ���":� 4
H �8,4);" ���"
R$ � 5:� 8*16+8,995-96:�" ���":� 4
\! �27,1);" �� ";�27,2);" �� "
f8 � 5:� 27*16+8,995:�" �� ":� 27*16+8,964:�" �� ":� 4
p! �32,1);" �� ";�32,2);" �� "
z8 � 5:� 32*16+8,995:�" �� ":� 32*16+8,964:�" �� ":� 4
� �19,4);"�������"
�( � 5:� 19*16+8,995-96:�"�������":� 4
�! �37,1);"����";�37,2);"����"
�8 � 5:� 37*16+8,995:�"����":� 37*16+8,964:�"����":� 4
�! �42,1);"����";�42,2);"����"
�8 � 5:� 42*16+8,995:�"����":� 42*16+8,964:�"����":� 4
�! �47,1);" �� ";�47,2);" �� "
�8 � 5:� 47*16+8,995:�" �� ":� 47*16+8,964:�" �� ":� 4
�! �52,1);"����";�52,2);"����"
�8 � 5:� 52*16+8,995:�"����":� 52*16+8,964:�"����":� 4
�! �57,1);" �� ";�57,2);" �� "
�8 � 5:� 57*16+8,995:�" �� ":� 57*16+8,964:�" �� ":� 4
�! �62,1);"����";�62,2);"����"
8 � 5:� 62*16+8,995:�"����":� 62*16+8,964:�"����":� 4
! �67,1);"����";�67,2);"����"
8 � 5:� 67*16+8,995:�"����":� 67*16+8,964:�"����":� 4
$! �72,1);"����";�72,2);"����"
.8 � 5:� 72*16+8,995:�"����":� 72*16+8,964:�"����":� 4
8 �33,4);"����"
B% � 5:� 33*16+8,995-96:�"����":� 4
L �47,4);"����"
V% � 5:� 47*16+8,995-96:�"����":� 4
`  �75,4);" � "
j" � 5:� 76*16+8,995-96:�"�":� 4
t$ � 128:� 24,0;0;1279;1023;:� 4,0
~!� OTT=1 � ȓ Ȑ 110,925,65,65
�" � OTT=2 � ȓ Ȑ 190,925,65,65
�" � OTT=3 � ȓ Ȑ 270,925,65,65
�" � OTT=4 � ȓ Ȑ 350,925,65,65
�# � NN%=1 � ȓ Ȑ 306,870,108,24
�" � OTT=7 � ȓ Ȑ 595,925,65,65
�" � OTT=6 � ȓ Ȑ 510,925,65,65
�" � OTT=5 � ȓ Ȑ 430,925,65,65
�" � OTT=8 � ȓ Ȑ 675,925,65,65
�# � OTT=10 � ȓ Ȑ 832,925,65,65
�" � OTT=9 � ȓ Ȑ 755,925,65,65
�* � OTI=0 �OTT=11 � ȓ Ȑ 915,925,65,65
�$ � OTI=12 � ȓ Ȑ 1075,925,65,65
7 � 5:� GCOL 21:MOVE 916,902:PRINT"ARCTIST ver 1.0."

& � 32:� 886,898:�"ARCTIST ver ";V$
% � 2:� 882,894:�"ARCTIST ver ";V$

 � 4:�
(0 � COL% Ȝ TNT%:� 24,0;0;1279;829;:*FX 113,1
2 �
< � OPTIONS = :
F � OPT 1 = SELECT COLOUR
P- � X=0 � 255:� X:�"COLOUR IS NO:";X:A=�:�
Z �
d ��error
n9 � OPPS=1 � OPT=1:MENU=1:� 24,0;0;1279;1023;:�getback
x � 24,0;0;1279;1023;
�% � 1 Ȝ 192:ȓ Ȑ 20,833,1259,170
�% � 66 Ȝ 192:ȓ Ȑ 0,853,1259,170
�" � 63 Ȝ 192:ȓ 0,853,1259,170
�  � 63 Ȝ 192:� 128+66 Ȝ 192
�9�17,1);"AN ERROR HAS BEEN DETECTED - AS SHOWN BELOW"
�5 �10,3);"ERROR ";�;" AT LINE ";�;" ->";:� REPORT
� � 28,40,3,77,3
�
 OTT=0
� �
�	 A$=�
�� 28,0,31,79,0
� � A$="N" � � 12:�
�U � OPPS=1 � MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�:ȗ X%,Y%,K%:� K%=0:Z%=0
 �

 ��setup2
- � 23,191,254,129,129,129,129,129,129,129
"# � 23,190,0,62,62,62,62,62,62,0
, � 23,128,0,1,0,1,3,3,3,3
6? � 23,129,%11111100,%11111110,%00110000,255,255,255,255,255
@E � 23,130,0,0,0,%11000000,%11100000,%10010000,%11011000,%11111000
J � 23,131,3,3,3,3,3,3,1,1
T\ � 23,132,%01111000,%01111000,%11111000,%11111000,%11111000,%11111000,%11111000,%1111000
^6 � 23,133,%01111000,0,0,32,32,%1110000,%1110000,32
h$ � 23,134,0,63,63,48,48,48,48,48
r! � 23,135,0,255,255,0,0,0,0,0
|& � 23,136,0,252,252,12,12,12,12,12
�$ � 23,137,48,48,48,48,48,63,63,0
�! � 23,138,0,0,0,0,0,255,255,0
�& � 23,139,12,12,12,12,12,252,252,0
�% � 23,140,7,8,16,32,64,64,128,128
�& � 23,141,%11100000,16,8,4,2,2,1,1
�% � 23,142,128,128,64,64,32,16,8,7
�& � 23,143,1,1,2,2,4,8,16,%11100000
�- � 23,144,%11100,%10011,16,16,16,16,16,16
�1 � 23,145,0,0,%11000000,%110000,%1100,%11,0,0
�+ � 23,146,0,0,0,0,0,0,%11000000,%110000
�- � 23,147,16,16,16,16,16,16,%10011,%11100
�1 � 23,148,0,0,%11,%1100,%110000,%11000000,0,0
�+ � 23,149,%110000,%11000000,0,0,0,0,0,0
 �
  � 23,150,1,3,7,15,31,63,7,7
E � 23,151,128,192,%11100000,%11110000,%11111000,%11111100,224,224
&  � 23,152,7,7,63,31,15,7,3,1
0E � 23,153,224,224,%11111100,%11111000,%11110000,%11100000,192,128
: �
D' � 23,154,24,56,96,255,255,96,56,24
N! � 23,155,0,0,0,255,255,0,0,0
X+ � 23,156,56,112,224,192,192,224,112,56
b �
l$ � 23,157,0,0,4,12,28,63,127,255
v& � 23,158,0,0,32,48,56,252,254,255
�$ � 23,159,255,127,63,28,12,4,0,0
�& � 23,160,255,254,252,56,48,32,0,0
� �
�$ � 23,161,0,62,62,48,60,60,48,48
�+ � 23,162,0,102,102,102,102,102,103,103
�& � 23,163,0,24,24,24,24,24,158,158
�$ � 23,164,0,31,31,27,27,27,31,31
�B � 23,165,0,48,%111000,%111100,%110110,%110011,%110001,%110000
�+ � 23,166,0,192,192,192,196,198,195,193
�: � 23,167,0,4,12,%11000,%110000,%1100000,%11000000,128
� � INVERSE
�% � 23,168,63,32,32,32,32,32,32,32
�  � 23,169,255,0,0,0,1,1,1,15
* � 23,170,0,255,255,255,127,127,127,15
+ � 23,171,0,248,248,248,248,248,248,248
% � 23,172,32,32,32,32,32,32,32,63
   � 23,173,15,1,1,1,0,0,0,255
** � 23,174,15,127,127,127,255,255,255,0
4+ � 23,175,248,248,248,248,248,248,248,0
> �
H � 23,176,0,0,0,1,2,4,8,8
R# � 23,177,0,0,0,240,16,16,16,16
\ � 23,178,0,0,0,1,2,4,8,16
f � 23,179,0,0,240,8,4,4,4,4
p � 23,180,8,8,8,15,0,0,0,0
z% � 23,181,16,16,16,31,128,64,63,0
�# � 23,182,32,64,128,0,0,0,255,0
�" � 23,183,4,8,16,32,64,128,0,0
�
 � SPREAD
�" � 23,184,1,129,67,33,17,9,5,3
�$ � 23,185,2,4,8,16,32,64,128,255
�" � 23,186,255,1,2,4,8,16,32,64
�- � 23,187,192,160,144,136,132,130,129,128
� � SPRAY
�" � 23,188,0,16,0,64,128,0,1,36
�" � 23,189,0,32,0,4,128,16,0,80
�
 � RUBBER
�# �23,192,7,31,31,31,31,16,31,17
�* �23,193,224,240,240,240,240,8,240,136
$ �23,194,17,31,18,17,18,17,18,17
, �23,195,136,248,248,120,248,120,248,120

 � CLS
$ �23,196,3,3,3,3,3,3,3,3
.  �23,197,224,224,0,6,6,6,6,6
8  �23,198,0,0,0,0,15,15,12,12
B  �23,199,0,0,0,0,192,192,0,0
L  �23,200,3,3,0,0,0,0,0,0,0,0
V  �23,201,230,230,7,7,0,0,0,0
`& �23,202,15,15,224,224,12,12,15,15
j, �23,203,192,192,192,192,192,192,192,192
t � COPY
~& �23,204,0,0,4,2,7,15,%1101001,127
�= �23,205,0,0,64,128,%11000010,%11100001,%101100,%11111101
�, �23,206,0,0,1,0,1,3,%10011010,%11011111
�> �23,207,0,0,16,%10100000,%11110000,%11111000,%1001011,255
�% �23,208,31,12,8,7,4,%101100,24,0
�7 �23,209,%11110001,96,33,%11000010,64,%1101000,48,0
�! �23,210,199,131,2,1,1,11,6,0
�( �23,211,252,24,8,240,16,%11010,12,0
� � DISC
� � 23,212,1,1,1,0,0,1,1,1
�# � 23,213,255,2,2,130,130,2,1,7
�. � 23,214,255,64,64,64,64,64,128,%11100000
�- � 23,215,128,128,128,128,128,128,128,128
 � 23,216,1,1,1,1,1,1,1,1

 � 23,217,4,4,7,0,0,0,0,255
) � 23,218,32,32,%11100000,0,0,0,0,255
- � 23,219,128,128,128,128,128,128,128,128
( � TEXT
21 � 23,220,14,%1111110,%1111000,24,24,48,48,48
<M � 23,221,%1111110,%111110,48,%111100,%1111000,%1100000,%1111100,%1111100
FI � 23,222,%11000011,%1100110,%111100,24,24,%111100,%1100110,%11000011
P � ZOOM
Z! � 23,223,0,0,15,12,12,15,0,0
d! � 23,224,0,7,252,4,4,252,7,0
n! � 23,225,0,255,0,0,0,0,255,0
x- � 23,226,254,130,134,134,134,134,130,254
�G � 23,227,%11000,%11001100,%1100110,63,63,%1100110,%11001100,%11000
�Y � 23,228,0,8,%11100,%111110,%110110,%1100011,%1100011,3:� 23,229,3,6,6,12,12,0,12,12
�) � 23,230,0,127,127,127,127,127,127,0
�Y � 23,231,%1011010,%10010001,%1000100,%1011001,%10101011,%11001100,%1010011,%10101101
�< � 23,232,%10000,%1000010,0,%10100,128,2,%1001000,%10001
�C � 23,233,3,4,%1010,%11001,%100100,%1010100,%11000001,%10100100
�P � 23,234,%11000000,%1100000,%10010000,%101000,%1100,%10110010,%101,%1001001
�C � 23,235,%10100100,%11000001,%1010100,%100100,%11001,%1010,4,3
�Q � 23,236,%1001001 ,%101,%10110010,%1100,%101000,%10010000,%1100000,%11000000
��
� ��savescreenm
�U � MENU=1 � MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�:ȗ X%,Y%,K%:� K%=0:Z%=0
�" � 0,0:� 1279,1023:*SGET ztemp
m � MENU=0 � OPT=1:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
 �
 ��loadscreenm
"U � MENU=1 � MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�:ȗ X%,Y%,K%:� K%=0:Z%=0
, *SCHOOSE ztemp
6 � &ED,0,0
@ *SDELETE ztemp
Jm � MENU=0 � OPT=1:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
T �
^
 ��cat
h �savescreenm
rU � MENU=1 � MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�:ȗ X%,Y%,K%:� K%=0:Z%=0
| � 128+63:� 0 Ȝ 192:�
�0 �("MOUNT "+�(DRI)):� DRI=4 � *DIR NSARCTIST
� *.
� �:ȗ X%,Y%,Z%:� Z%=1
� �:K%=�(1):� K%=-1
� � 128:� 63
� �loadscreenm
� �
�
 ��cls
�  ȗ X%,Y%,Z%:� Z%>0 � � �dV_
�* � 19,1,24,255,0,0:ȗ X%,Y%,Z%:A=�(10)
� � 19,1,24,155,0,0:A=�(10)
� � Z%=1 � � 19,1,24|:�
� � Z%<>4 � � �d`_
  � 19,1,24,255,255,255
 { �bringback:OTT=0:� 128+COL% Ȝ TNT%:�:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,Z%:� Z%=0:�menu1:� 24,0;0;1279;829;:Z%=0
  �
 & � <<<<<<<<<<<<<<<<
 0 ��lastscreen
 :> � 24,0;0;1279;1023;:�bringback:� 0,0:� 1279,1023:*SGET ns
 DU � 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
 N �
 X ��getlastscreen
 b5 � 24,0;0;1279;1023;:�bringback:� 0,0:*SCHOOSE ns
 l � &ED,0,0
 vU � 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
 � �
 � ��dump2
 �" � 0,0:� 1279,1023:*SGET ztemp
 � �:ȗ X%,Y%,Z%:� Z%=0
 � � 19,1,24,0,0,255
 � �:� A=0 � 15
 � � A$:SHADE%(A)=�("%"+A$)
 � �
 �' SI%=0:SI2%=0:� DE=3 � SI%=8:SI2%=2
 � SHADE%(15)=%000000
 � � 111111,101101,010010,011111,011011,111100,110011,111001,101001,010110,100110,100100,011000,100010,100001,000110,110000,000100
 � �:ȗ X%,Y%,Z%:� Z%=0
 �1 � :ȗ X%,Y%,Z%:� Z%=1 � Z%=4:� Z%=1 � � �t\b
! �:ȗ X%,Y%,Z%:� Z%=0
! MX=X%:MY=Y%
!W � :ȗ X%,Y%,Z%:� 4,0:ȓ MX,MY,X%-MX,Y%-MY:�("FX19"):�("FX19"):ȓ MX,MY,X%-MX,Y%-MY
!  � X%>MX � ȗ � MX,Y%
!* � Y%<MY � ȗ � X%,MY
!4!� Z%=1 � Z%=4:� Z%=1 � � �t\b
!> MX2%=X%:MY2%=Y%
!H � MX>MX2% � Ȕ MX,MX2%
!R � MY<MY2% � Ȕ MY,MY2%
!\ X1%=4*(MX � 4)
!f Y1%=MY-((MY+1) � 16)
!p � MX=1279:MY=1
!z MX=4*(MX2% � 4)
!� MY=16*(MY2% � 16)
!� X2%=MX:Y2%=MY
!� horizdots=3+(X2%-X1%)*3/4
!� � 2,1,27,1,64
!� � 2,1,27,1,65,1,8
!� � X=1 � 8:� 1,10:�:� 1,13
!�( � Y%=Y1% � Y2%+15 � -16:� -(16-SI%)
!�4 � 1,27,1,76,1,horizdots � 256,1,horizdots � 256
!�6 ȗ XX%,YY%,ZZ%:� ZZ%=1 � �1,27,1,50,1,12,3:� �t\b
!� � X%=X1% � X2% � 4
!�F � DE=2 � � Z%=0 � 3 � 2 � � DE=3 � � Z%=0 � 3 � 1.2  � � Z%=0 � 3
!�Y � DE=2 � Q%=�X%,Y%-Z%*8) � &F � � DE=3 � Q%=�X%,Y%-Z%*2) � &F � Q%=�X%,Y%-Z%*4) � &F
!�_ � DE=3 � R%=�X%+3,Y%-Z%*2) � &F � � DE=2 � R%=�X%+2,Y%-Z%*8) � &F � R%=�X%+2,Y%-Z%*4) � &F
"T � Q%=R% � D%(Z%)=SHADE%(Q%) � D%(Z%)=(SHADE%(Q%) � %111000)+(SHADE%(R%) � %111)
" �
"B � DE=2 � � Z%=1 � 1  � � DE=3 � � Z%=0 � 3 � 1.5 � � Z%=0 � 3
"$ � 64 Ȝ 196:Ȓ X%,Y%-Z%*4
". �
"8 � R%=2 � 0 �-1
"B data%=0
"L � Z%=0 � 3
"V4 data%=data%+(((D%(Z%)>>(R%*2))� %11)<<(6-2*Z%))
"` �:�1,data%
"j �
"t �
"~ � 1,13,1,10
"� �:�name
"� �1,27,1,50,1,12,3
"�� 19,1,24,0,0,0
"� *SCHOOSE ztemp
"� � COL%:�&ED,0,0
"� �
"� ��dump3
"� � 19,1,24,0,0,200
"� *HARDCOPYFX 1,1,1,0,255
"�
 �name
"� �2,1,12,3
"� � 19,1,24,255,255,255
# �
#
 ��name
#H N$="     Arctist PLUS - "+�$+" (c)1988 Nigel Stuart. >>"+�(DE)+"<<"
#+ � 2,1,27,1,120,1,1,1,27,1,77,1,27,1,15
#($ � X=1 � �(N$):� 1,�(�N$,X,1)):�
#2 �
#< ��form
#F
 *SNEW
#P" � 0,0:� 1279,1023:*SGET ztemp
#Z& � 50:�1,15);"FORMAT A DISC....."
#d *FORMAT 0 D
#n �:�"   PRESS A KEY !"
#x K=�
#� *SCHOOSE ztemp
#� � 0:� &ED,0,0
#� �
#� ��grid
#�+ � 4,0:� X=1 � 1279 � 16:� X,0,X,1023:�
#�+ � 4,0:� X=1 � 1023 � 32:� 0,X,1279,X:�
#� � COL% Ȝ TNT%
#��
#� ��shad
#� � 19,1,24,0,255,0
#�) � ȗ X%,Y%,Z%:� Z%>0:� Z%=1 � � �D^d
#� � ȗ S,T,U:� U=0
#�s � 4,0:� ȗ X2%,Y2%,Z%:ȓ X%,Y%,X2%-X%,Y2%-Y%:�("FX19"):�("FX19"):ȓ X%,Y%,X2%-X%,Y2%-Y%:� Z%>0:� Z%=1 � � �D^d
$ � ȗ S,T,U:� U=0
$ � Y2%<Y% � Ȕ Y2%,Y%
$ � X2%<X% � Ȕ X2%,X%
$" � X%/2=�(X%/2) � X%=X%-2
$, � Y%/2=�(Y%/2) � Y%=Y%-2
$6@ � 64 Ȝ 0: � BRI>0 � � 63 Ȝ 196 : � BRI=6 � � COL% Ȝ TNT%
$@U � K%=X% � X2% � 4:� L%=Y% � Y2% � 4:� BRI=5 � TT%=Ȝ(K%-2,L%):� �K%-2,L%) Ȝ TT%
$J
 Ȓ K%,L%
$T � ,
$^ � COL% Ȝ TNT%
$h � 19,1,24,255,255,255
$r �
$| ��game
$�" � 0,0:� 1279,1023:*SGET ztemp
$� � 128+50:�
$�8 � 63:�19,0);"SPLATTER....... 'ARCTIST', MINI GAME"
$�/ � X=1 � 10:SA%(1,X)=�(80):SD%(1,X)=�(30):�
$� �=0
$�	 SC=0
$� SD=0:SA=0
$� �
$� ȗ � 1+�(�/1000)
$� � C=1 � 10
$� � 30 Ȝ 196
$� �SA%(1,C),SD%(1,C));"�"
$�	*FX19
%" � 10:�SA%(2,C),SD%(2,C));"."
% ȗ X,Y,Z:� Z=1 � � �t|e
%� � Z=4 � �X,Y)=30 � SC=SC+1:�19,1,24,255,255,0:� 1,-15,150,0:� X=1 � 10:�SA%(1,C),SD%(1,C));" ":SA%(1,X)=�(80):SD%(1,X)=�(30):�:�:ȗ X,Y,Z:� Z=0:�19,1,24,0,0,0
%& �:ȗ X,Y,ZZ:� ZZ=0
%0( SA%(2,C)=SA%(1,C):SD%(2,C)=SD%(1,C)
%: A1=�(3)-2:A2=�(3)-2
%D SA%(1,C)=SA%(1,C)+A1
%N SD%(1,C)=SD%(1,C)+A2
%X � SA%(1,C)>78 � SA%(1,C)=2
%b � SA%(1,C)<2 � SA%(1,C)=78
%l � SD%(1,C)<2 � SD%(1,C)=30
%v � SD%(1,C)>30 � SD%(1,C)=2
%�) � 1,-15,SA%(1,C)+SD%(1,C)+100,2,0:Ȗ
%� � C
%�	 � 60
%� �0,0);�((5000-�)/10);" "
%� �70,0);"SC:";SC
%� � �>=5000
%�D �30,10);"ANOTHER GAME ?  Y/N.":A$=�:� A$="Y" � A$="y" � � �tPd
%� ȗ � 1
%� *SCHOOSE ztemp
%� � 0:� &ED,0,0
%� �
%� ��another
%�� IMFO=1 � �imfo
& � OPT2=5 � �
&? ȗ X%,Y%,Z%:� MENU=1 � Z%=4 � X%<60 � Y%>880 � �colour � �
&4 OPT=2:�bounce:�:ȗ X%,Y%,Z%:� Z%=4 � �colchange
&  � Z%=1
&* �bounce
&4_ OPT=1:MENU=1:� 24,0;0;1279;1023;:�:ȗ X%,Y%,Z%:� Z%=0:�menu1:� 24,0;0;1279;829;:Z%=0:OPT=1
&> �
&H ��tint
&R � 19,1,24,175,10,255
&\( AS%=�(5):� AS%<48 � AS%>49 � � �D\f
&fH AS%=AS%*10:� AS%=10 � � 19,1,24,200,200,200 � � 19,1,24,100,100,100
&p A$=�(5):� A$>"" � � �Dpf
&z% A%=�(5):� A%<48 � A%>54 � � �Dzf
&�. AS%=AS%+A%:� 19,1,24,AS%*10,AS%*10,AS%*10
&�* � X=0 � 15:� X,AS%*16,AS%*16,AS%*16:�
&� A$=�(5):� A$>"" � � �tXf
&� � 19,1,24,0,0,0:�
&�
 ��rotate
&�
 CO%=0
&� PP=100
&� CO%=CO%+1:� CO%>15 � CO%=0
&�
 *FX19
&�% � X=1 � 15:� X,CO%*X,CO%*X,CO%*X
&� � P=1 � PP:�:� Z=2 � �
&� �
&�& ȗ X,Y,Z:� Z=1 � PP<300 � PP=PP+1
' � Z=4 � PP>1 � PP=PP-1
' � �dJf
'
 ��swi
'$ Ȕ BAN1%,BAN2%
'. �("FX112,"+�(BAN1%))
'8 �("FX113,"+�(BAN2%))
'B �
'L ��norm
'V
 *FX112,1
'`
 *FX113,1
'j �
'tQ � X=0 � 64:� X:�"COLOUR = "X:A=�:�:� <<<<<<<<<<<<< COLOURS <<<<<<<<<<<<<<<<<
'~ �
'�1 ��plusmenu:OPT2=5 :ȗ � 1:ȗ � 1,200,200,200
'� � MENU=0 � �
'� � SPARE LINE
'� � �tLh
'�  ȗ X%,Y%,Z%:� Z%>0 � ȗ � 2
'�# �imfo:� OPT2=6 � OPT2=5:� �tRg
'�$� SNAP=0 � ȗ � 2,2 � ȗ � 16,32
'�Z � Z%=4 � X%>65 � X%<125 � Y%>930 � Y%<990 � Ȕ SNAP1,SNAP:�bounce:ȗ � 600,480:� �t\g
'خ � Z%=4 � X%>130 � X%<170 � Y%>930 � Y%<990 � IMFO=IMFO � 1:� 130:�1,31);"                                                                              ";:�bounce:� �t\g
'� � Z%=4 � X%>210 � X%<306 � Y%>930 � Y%<990 � � 18+128:�13,1);"c �  "�13,2);"  � c2":� 5:� 13*16+8,995:�"c �   ":� 13*16+8,964:�"  � c2":� 4:�bounce:�repswap:� �tRg
'�9 � Z%=4 � X%>340 � X%<407 � Y%>930 � Y%<990 � �grab:�
'�� � Z%=4 � X%>434 � X%<470 � Y%>930 � Y%<990 � TCIRC=0 � TCIRC=1:� 18+128:�27,1);"��"�27,2);"��":� 5:� 27*16+8,995:�"��":� 27*16+8,964:�"��":� 4:�truepic:� MENU=1 � �t\g
(L TYPE=0:� Z%=4 � X%>576 � X%<606 � Y%>930 � Y%<990 � TYPE=1:�shadblock:�
(
E � Z%=4 � X%>638 � X%<672 � Y%>930 � Y%<990 � TYPE=2:�shadblock:�
(? � Z%=4 � X%>512 � X%<540 � Y%>930 � Y%<990 � �shadsphere:�
(? � Z%=4 � X%>700 � X%<750 � Y%>930 � Y%<990 � SIZE=2:�mag:�
((? � Z%=4 � X%>800 � X%<848 � Y%>930 � Y%<990 � SIZE=1:�mag:�
(2> � Z%=4 � X%>900 � X%<960 � Y%>943 � Y%<968 � BLD=1:� �tLh
(<@ � Z%=4 � X%>1077 � X%<1220 � Y%>943 � Y%<968 � BLD=2:� �tLh
(F> � Z%=4 � X%>900 � X%<997 � Y%>903 � Y%<935 � BLD=3:� �tLh
(PA � Z%=4 � X%>1077 � X%<1170  � Y%>903 � Y%<935 � BLD=4:� �tLh
(ZA � Z%=4 � X%>955 � X%<1150  � Y%>995 � Y%<1023 � BLD=0:� �tLh
(d@ � Z%=4 � X%>965 � X%<1100  � Y%>869 � Y%<900 � �font:� �tLh
(n� � Z%=4 � X%>160 � X%<266 � Y%>870 � Y%<902 � Ȕ SHAD1,SHAD:�bounce:� 18+128:�10,4);"SHADOW":� 30:� 5:� 10*16+15,902:�"SHADOW":� 4:� SHAD1=1 � �imageshad:� �t\g
(x � Z%=4 � Z%=0  � � �tpg
(� �
(� � Draw icons
(� � 24,0;0;1279;1023;
(�" � 0,0:� 1279,1023:*SGET ztemp
(� *SCHOOSE ztemp
(�
 *FX112,2
(� � &ED,0,0:*FX113,2
(�
 *FX112,1
(� � &ED,0,0:�7
(�P � 24,0;0;1279;1023;:� 41 Ȝ 0:ȓ Ȑ 0,853,1259,170:�:� 0 :ȓ 0,853,1259,170
(�% � 30 Ȝ 192:� 41+128 Ȝ 128:� 16
(�# � SNAP=1 � � 18+128 � � 41+128
(�L �4,1);"�� "�4,2);"�� ":� 5:� 4*16+8,995:�"�� ":� 4*16+8,964:�"�� ":� 4
)# � IMFO=1 � � 18+128 � � 41+128
)L �8,1);" � "�8,2);" � ":� 5:� 8*16+8,995:�" � ":� 8*16+8,964:�" � ":� 4
)
 � 41+128
)"\ �13,1);"c �   "�13,2);"  � c2":� 5:� 13*16+8,995:�"c �   ":� 13*16+8,964:�"  � c2":� 4
), � 41+128 Ȝ 128
)6� �21,1);"GRAB"�21,2);"GRAB":� 5:� 21*16+8,995:�"GRAB":� 21*16+8,964:�"GRAB":� 21*16+10,995:�"GRAB":� 21*16+10,964:�"GRAB":� 4
)@$ � SHAD1=1 � � 18+128 � � 41+128
)JO �10,4);"SHADOW":� 5:� 10*16+15,902:�"SHADOW":� 10*16+17,902:�"SHADOW":� 4
)T� � 128+41 Ȝ 0:�24,4);"ARCTIST PLUS. Menu page #2":� 5:� 63 Ȝ 192:� 24*16+12,900:�"ARCTIST PLUS. Menu page #2":� 24*16+14,900:�"ARCTIST PLUS. Menu page #2":� 4
)^% � 30 Ȝ 192:� 41+128 Ȝ 128:� 16
)h$ � TCIRC=1 � � 18+128 � � 41+128
)rL �27,1);"��"�27,2);"��":� 5:� 27*16+8,995:�"��":� 27*16+8,964:�"��":� 4
)|L �32,1);"��"�32,2);"��":� 5:� 32*16+8,995:�"��":� 32*16+8,964:�"��":� 4
)�L �36,1);"��"�36,2);"��":� 5:� 36*16+8,995:�"��":� 36*16+8,964:�"��":� 4
)�L �40,1);"��"�40,2);"��":� 5:� 40*16+8,995:�"��":� 40*16+8,964:�"��":� 4
)�O�44,1);"  �"�44,2);".  ":� 5:� 44*16+8,995:�"  �":� 44*16+8,964:�".  ":� 4
)�O�50,1);"  ."�50,2);"�  ":� 5:� 50*16+8,995:�"  .":� 50*16+8,964:�"�  ":� 4
)�  � 15 Ȝ 192
)�" � BLD=0 � � 18+128 � � 41+128
)�e �59,0);"TEXT & FONTS.":� 5:� 59*16+8,1015:�"TEXT & FONTS.":� 59*16+10,1015:�"TEXT & FONTS.":� 4
)� � 63 Ȝ 64
)�!� BLD=1 � � 18+128 � � 41+128
)�G�56,2);"BOLD":� 5:� 56*16+8,964:�"BOLD":� 56*16+10,964:�"BOLD":� 4
)�!� BLD=2 � � 18+128 � � 41+128
)�U�67,2);"UNDERLINE":� 5:� 67*16+8,964:�"UNDERLINE":� 67*16+10,964:�"UNDERLINE":�4
)� � 63 Ȝ 192
*!� BLD=3 � � 18+128 � � 41+128
*L�56,3);"FUZZER":� 5:� 56*16+8,932:�"FUZZER":� 56*16+10,932:�"FUZZER":�4
*!� BLD=4 � � 18+128 � � 41+128
*&L�67,3);"SHADOW":� 5:� 67*16+8,932:�"SHADOW":� 67*16+10,932:�"SHADOW":�4
*0� 41+128
*: � 63 Ȝ 128
*DU�60,4);"LOAD FONT":� 5:� 60*16+8,900:�"LOAD FONT":� 60*16+10,900:�"LOAD FONT":�4
*N � 24,0;0;1279;829;
*X
 *FX113,1
*b �
*l
 ��imfo:�
*v � IMFO=0 � �
*� ȗ� 3,200,200,200
*�\ � 4,20:� X%,0,X%,1023:� 0,Y%,1279,Y%:Ȗ:Ȗ:� X%,0,X%,1023:� 0,Y%,1279,Y%:� COL% Ȝ TNT%
*�1AM$=�((�-�P)/1024):� �(AM$)>7 � AM$=�AM$,1,6)
*�� � 128+2:� 15 Ȝ 0::�1,31);"(c)NS 1988. | ";:� 15 Ȝ 64:�$;"   |   ";:� 15 Ȝ 128:�AM$;"K ";:� 15 Ȝ 196:�" |  X ->";X%;"  Y ->";Y%;"   ";�0,0)
*� � �-1 �  ȗ � 1,1
*� �
*� ��repswap
*� T=0
*� �
*�
 �another
*� ȗ X%,Y%,Z%
*�/ � Z%=4 � T=0 � T=1:XX1%=X%:YY1%=Y%:�bounce
*�U � T=1 � � 4,0:ȓ XX1%,YY1%,X%-XX1%,Y%-YY1%:Ȗ:Ȗ:Ȗ:ȓ XX1%,YY1%,X%-XX1%,Y%-YY1%
+ �on_off
+ � T=1 � Z%=4 � � �T`k
+
 � Z%=1:�
+  � Y%<YY1% � Ȕ Y%,YY1%
+* � X%<XX1% � Ȕ X%,XX1%
+4+ � Z%=XX1% � X% � 2:� ZZ%=YY1% � Y% � 4
+>C � �Z%,ZZ%)=COL2% � Ȝ(Z%,ZZ%)=TNT2% � � COL% Ȝ TNT%:Ȓ Z%,ZZ%
+H ȗ �1,�Z%,ZZ%)*4,255,0
+R �:ȗ X,Y,Z:� Z<>1 � �
+\ ȗ � 1,220,220,200
+f �
+p ��getarea
+z T=0:XX1%=0:YY1%=0
+�= �:ȗ X%,Y%,Z%:� Z%=4 � T=0 � T=1:XX1%=X%:YY1%=Y%:�bounce
+�.� T=1 � � 4,0:ȓ XX1%,YY1%,X%-XX1%,Y%-YY1%
+�/� T=1 Ȗ:Ȗ:Ȗ:ȓ XX1%,YY1%,X%-XX1%,Y%-YY1%
+� � X%<XX1% � ȗ � XX1%,Y%
+� � Y%<YY1% � ȗ � X%,YY1%
+�
 �imfo
+�#� Z%=4:�:� Y%<YY1% � Ȕ Y%,YY1%
+� �
+� ��grab
+�T � MENU=1� MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�:ȗ X%,Y%,K%:� K%=0:Z%=0
+�
 �getarea
+� � � � �tRl
+�) ȑ 0,0:� 0,0:� 1279,1023:*SGET ztemp
, � 0
, *SCHOOSE ztemp
,
 *FX112,2
,$ � &ED,0,0:
,.
 *FX112,1
,8 � &ED,0,0:*FX113,1
,B
 *FX112,2
,L
 *GRAB
,V
 *FX112,1
,` � 24,XX1%;YY1%;X%;Y%;
,j ș"Vdig_Scale",64
,t ȗ X,Y,Z:� Z=4 � � �d|k
,~b OPT=1:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
,� �
,�b OPT=1:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
,� � � �error
,� � �d`A
,� ��truepic
,� T=0
,� �bounce
,� �
,� ȗ X%,Y%,Z%
,�/ MEM=MENU:�on_off:� MEM=0 � MENU=1 � � �T^m
,�
 �imfo
,�/ � Z%=4 � T=0 � T=1:XX1%=X%:YY1%=Y%:�bounce
-_ � T=1 � � 4,0:ȏ  XX1%,YY1%,(X%-XX1%)-(Y%-YY1%):Ȗ:Ȗ:Ȗ:ȏ  XX1%,YY1%,(X%-XX1%)-(Y%-YY1%)
-
 � T=1 � Z%=4 � � �Thm
- � Z%=1
- � 0:TCIRC=0:�
-(� � SHAD1=1 � � COL2% Ȝ TNT2%:ȏ XX1%+SHADAC%,YY1%+SHADDN%,(X%-XX1%)-(Y%-YY1%):� NN%=1 � ȏ Ȑ XX1%+SHADAC%,YY1%+SHADDN%,(X%-XX1%)-(Y%-YY1%)
-2j � COL% Ȝ TNT%:ȏ XX1%,YY1%,(X%-XX1%)-(Y%-YY1%):� NN%=1 � ȏ Ȑ XX1%,YY1%,(X%-XX1%)-(Y%-YY1%):�bounce
-< �bounce
-F � �tzl
-P ��shadsphere
-Z T=0
-dE MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�:ȗ X%,Y%,Z%:� Z%=0
-n! � 0,0:�1279,1023:*SGET ztemp
-x �bounce
-� �
-� ȗ X%,Y%,Z%
-�/ � Z%=4 � T=0 � XX1%=X%:YY1%=Y%:T=1:�bounce
-�
 �imfo
-�_ � T=1 � � 4,0:ȏ  XX1%,YY1%,(X%-XX1%)-(Y%-YY1%):Ȗ:Ȗ:Ȗ:ȏ  XX1%,YY1%,(X%-XX1%)-(Y%-YY1%)
-� � Z%=4 � � �dRm
-� � Z%=1:� 0
-�d OPT=1:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,Z%:� Z%=0:�menu1:� 24,0;0;1279;829;:Z%=0:�
-�+ � 4,0:ȏ XX1%,YY1%,(X%-XX1%)-(Y%-YY1%)
-� TEMPCOL%=�XX1%,YY1%)
-� XX2%=X%:YY2%=Y%
-� �bounce
-�! � :XP%=X%:YP%=Y%:ȗ X%,Y%,Z%
.' � (X%-XX1%)>180 � ȗ � XX1%+180,Y%
.( � (X%-XX1%)<-180 � ȗ � XX1%-180,Y%
.' � (Y%-YY1%)>180 � ȗ � X%,YY1%+180
."( � (Y%-YY1%)<-180 � ȗ � X%,YY1%-180
.,1 � XX1%,YY1%,X%,Y%:Ȗ:Ȗ:Ȗ:� XX1%,YY1%,X%,Y%
.6 � Z%=4 � � �Dhn
.; � Z%=2 � � �Dhn
.@ � Z%=1
.J *SCHOOSE ztemp
.T � 0:� &ED,0,0
.^d OPT=1:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,Z%:� Z%=0:�menu1:� 24,0;0;1279;829;:Z%=0:�
.h *SCHOOSE ztemp
.r � 0:� &ED,0,0
.| ȑ XX1%,YY1%
.�! rad%=(XX2%-XX1%)-(YY2%-YY1%)
.�8 L1%=(X%-XX1%):L2%=(Y%-YY1%):pix%=2:� NN%=1 � pix%=4
.� � Y%=-rad% � rad% � 4
.�' A%=(�(rad%*rad%-Y%*Y%)� pix%)*pix%
.�� X%=A% � -A% � -pix%
.� P1%=� �(X%/rad%)
.� P2%=� �(Y%/rad%)
.�  D1=�(P1%-L1%):D2=�(P2%-L2%)
.�# C%=6.75-�(D1*D2+D2*D2)/16-�(1)
.�S � ZT%=4 � � 0,COL% Ȝ (255-((C% � 3)*64)) � � 0,COL%+C% Ȝ (255-((C% � 3)*64))
.�" � �X%,Y%)=TEMPCOL% � Ȓ X%,Y%
.� � :ȗ X,Y,Z%:� Z%<>1 � �
.� ȑ 0,0:� 0
/d OPT=1:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,Z%:� Z%=0:�menu1:� 24,0;0;1279;829;:Z%=0:�
/ ��shadblock
/E MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�:ȗ X%,Y%,Z%:� Z%=0
/& �bounce
/0
 �getarea
/: �:ȗ X,Y,Z:� Z=0
/DR � 19,1,24,50,50,255:�:ȗ X,Y,ZT%:� ZT%>1:TEMPCOL%=�X,Y):� 19,1,24,255,255,255
/N 
/X/ ST=4:� TYPE=2 � Ȕ XX1%,YY1%:Ȕ X%,Y%:ST=2
/b XX2%=X%:YY2%=Y%
/l
 TC%=COL%
/v( AB%=(YY2%-YY1%)/12:� AB%<=0 � AB%=1
/� � ST=2 � AB%=AB%*2
/� � YY1%=YY2% � YY2%=YY2%+1
/�1 T=320:� X%=YY1% � YY2% � ((YY2%-YY1%)/5):K=0
/�$ T=T-64:� T<0 � T=256:COL%=COL2%
/�G � Y%=X% � X%+((YY2%-YY1%)) � ST:K=K+1:� Z%=XX1% � XX2% � 2+(NN%*2)
/�$ TP1=64*(�(1)+((K)/AB%)) � TP1=0
/�  TT=�((T-TP1)):� TT<0 � TT=0
/�7 � ZT%=4 � �0,COL% Ȝ TT � � 0,COL%+(TT/64) Ȝ TNT%
/�V � TYPE=1 �  �Z%,Y%)=TEMPCOL% � Ȓ Z%,Y% � � TYPE<>1 � �Y%,Z%)=TEMPCOL% � Ȓ Y%,Z%
/� � :ȗ X,Y,Z:� Z<>1 � �
/�
 COL%=TC%
/�d OPT=1:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,Z%:� Z%=0:�menu1:� 24,0;0;1279;829;:Z%=0:�
/�
 ��mag
/�E MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�:ȗ X%,Y%,Z%:� Z%=0
0" � 0,0:� 1279,1023:*SGET ztemp
0
 *FX112,1
0 *SCHOOSE ztemp
0  � 0:� &ED,0,0
0*
 *FX113,1
04 T=0
0> �:ȗ X%,Y%,Z%
0H/ � Z%=4 � T=0 � T=1:�bounce:XX1%=X%:YY1%=Y%
0R
 �imfo
0\ � T=0 � � �tNp
0f% � X%>XX1%+639 � ȗ � XX1%+639,Y%
0p% � X%<XX1%-639 � ȗ � XX1%-639,Y%
0z% � Y%<YY1%-511 � ȗ � X%,YY1%-511
0�% � Y%>YY1%+511 � ȗ � X%,YY1%+511
0�U � T=1 � � 4,0:ȓ XX1%,YY1%,X%-XX1%,Y%-YY1%:Ȗ:Ȗ:Ȗ:ȓ XX1%,YY1%,X%-XX1%,Y%-YY1%
0� � Z%=4 � T=1 � � �d@p
0� � Z%=1
0� � 0
0�d OPT=1:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,Z%:� Z%=0:�menu1:� 24,0;0;1279;829;:Z%=0:�
0� XX2%=X%:YY2%=Y%
0� *FX 112,1
0� � XX2%<XX1% � Ȕ XX2%,XX1%
0� � YY2%<YY1% � Ȕ YY2%,YY1%
0�& � XX1%,YY1%:� XX2%,YY2%:*SGET zip
0�- ȓ XX1%-4,YY1%-4,(X%-XX1%)+8,(Y%-YY1%)+8
0� �("FX112,1"):*FX113,1
16 � 128+5:� 63:�25,1);" PLEASE WAIT I'M THINKING "
1 ȗ � 4
1
 *FX112,2
1$ �
1. � 0
18 *SCHOOSE zip
1B � &ED,640,512
1L6 � X%=0 � (XX2%-XX1%) � 2:� Y%=0 � (YY2%-YY1%) � 4
1V- � �X%+640,Y%+512) Ȝ (Ȝ(X%+640,Y%+512))
1`. � SIZE=2 ȓ Ȑ X%*2,Y%*2,4 � Ȓ X%/3,Y%/3
1j �
1t& ȗ � X%+XX1%,YY1%+((YY2%-YY1%)/2)
1~ ȗ X,Y,Z%:� Z%=1 � � �tfq
1� �
1�8 � 0:� 0,0:� (XX2%-XX1%)*2,(YY2%-YY1%)*2:*SGET copy2
1�? � SIZE=1 � � 0,0:� (XX2%-XX1%)/3,(YY2%-YY1%)/3:*SGET copy2
1� *FX 112,1
1� � 0
1�
 *FX113,1
1� *SCHOOSE ztemp
1� � 0:� &ED,0,0
1� � Z%=1 � � �T^r
1� *SCHOOSE copy2
1� �:ȗ X%,Y%,Z%
1�� � 3,0:� &ED,X%+((XX1%-XX2%)/2),Y%+((YY1%-YY2%)/2):�:ȗ XX%,YY%,Z%:� XX%<>X% � YY%<>Y% � Z%>0:� &ED,X%+((XX1%-XX2%)/2),Y%+((YY1%-YY2%)/2)
2q � Z%=1 � � 0:OPT=1:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,Z%:� Z%=0:�menu1:� 24,0;0;1279;829;:Z%=0:�
2
 � Z%=4
2r � NP%=1 � � 3,0:� &ED,X%+((XX1%-XX2%)/2),Y%+((YY1%-YY2%)/2) � � 0:� &ED,X%+((XX1%-XX2%)/2),Y%+((YY1%-YY2%)/2)
2 � COL% Ȝ TNT%
2( ȗ � 2
22b OPT=1:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,Z%:� Z%=0:�menu1:� 24,0;0;1279;829;:Z%=0
2< �
2F �
2P ��imageshad
2Z �
2d9 � 24,0;0;1279;1023;:� 63 Ȝ 192:ȓ Ȑ 0,853,1259,170
2nK � 63+128 Ȝ 192:� 0:�14,1);"SHADOWING SELECTION LEFT/RIGHT, UP/DOWN."
2x �bounce
2� � 3:ȓ Ȑ 100,900,800,40
2� � 3:ȓ Ȑ 1100,870,40,104
2� � 34:ȓ Ȑ 500,890,2,60
2� ȓ Ȑ 1090,920,60,2
2�) � 25:ȓ Ȑ 500+(SHADAC%*8),904,10,30
2�' � 25:ȓ Ȑ 1102,920+(SHADDN%),30,2
2� ȗ X%,Y%,Z%
2�R � Z%=4 � X%>100 � X%<1000 � Y%>900 � Y%<950 � SHADAC%>-45 � SHADAC%-=4:� �Ddr
2�Q � Z%=2 � X%>100 � X%<1000 � Y%>900 � Y%<950 � SHADAC%<45 � SHADAC%+=4:� �Ddr
2�R � Z%=4 � X%>1100 � X%<1140 � Y%>870 � Y%<970 � SHADDN%<45 � SHADDN%+=4:� �Ddr
2�S � Z%=2 � X%>1100 � X%<1140 � Y%>870 � Y%<970 � SHADDN%>-45 � SHADDN%-=4:� �Ddr
2� � Z%=1 � �
2� � �t~r
3 ��font
3! �58,4);"FONT NAME:        "
3 �68,4);:� N$
3" � �(N$)>7 � �
3,% � N$="NORM" � �("FX25,0"):� �D^s
36 N$="F="+N$
3@ � � � �Drs
3J
 �(N$)
3T � � �error
3^ �setup2
3h �
3r3 �58,4);"SORRY NOT FOUND!":A=� :�setup2:� �tLh
3| � � �error
3�Y OPT=1:MENU=1:� 24,0;0;1279;1023;:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
3� � �d`A
3� ��starcommand
3�J MENU=0:OPT=1:� 24,0;0;1279;1023;:�bringback:�:ȗ X%,Y%,K%:� K%=0:Z%=0
3�" � 0,0:� 1279,1023:*SGET ztemp
3� � 128+16:� 63 Ȝ 192:�
3� *FX4,0
3� A$="*"
3� �0,0);"*_"
3� � :B$=�
3�7 � B$=�(127) � �(A$)>2 � A$=�A$,1,(�(A$)-1)):� �THt
3�$ � B$<�(32) � B$>�(127) � � �TRt
3� � �(A$)<60 � A$=A$+B$
4 �0,0);A$;"_ "
4 � B$=�(13)
4
 �(A$)
4&�:�"PRESS A KEY.."
40 A=�
4: *SCHOOSE ztemp
4D � 0:� &ED,0,0
4N *SDELETE ztemp
4Xb OPT=1:MENU=1:� 24,0;0;1279;1023;:�getback:�:ȗ X%,Y%,K%:� K%=0:�menu1:� 24,0;0;1279;829;:K%=0
4b �
4l �
4v � 63 Ȝ 192
4� �
4�$ �"THANKYOU FOR USING ARCTIST +"
4� *CON.NOBOOT
4�*CON.SPRITE.5
4�*CON.RMA.0
4�*CON.FONT.0
4�*CON.SCREEN.0
4�.�:�:�:�"PRESS ctrl & Break TO EXIT......."
4� A=�
4� � 7
4� � �dPt
4� �
4�$ '             ARCTIST PLUS V1.0
5 '
5, '            (c) 22/8/1989 Nigel Stuart
5 '
5 , '           Dedicated to my wife Sharon
5* '
54D '       Who has put up with me talking Archimedes all the time.
5> '
5H; '           Thanks to Acorn for a really great machine
5R '
5\ '
�

00000000  0d 00 0a 11 20 f4 20 3e  20 41 52 43 54 49 53 54  |.... . > ARCTIST|
00000010  2b 0d 00 14 0f 20 2a 43  4f 4e 2e 52 4d 41 2e 32  |+.... *CON.RMA.2|
00000020  0d 00 32 17 20 2a 43 48  41 4e 4e 45 4c 56 4f 49  |..2. *CHANNELVOI|
00000030  43 45 20 31 20 31 30 0d  00 3c 12 20 44 52 49 3d  |CE 1 10..<. DRI=|
00000040  30 3a 54 43 49 52 43 3d  30 0d 00 46 23 20 42 41  |0:TCIRC=0..F# BA|
00000050  4e 31 25 3d 31 3a 42 41  4e 32 25 3d 32 3a 53 48  |N1%=1:BAN2%=2:SH|
00000060  41 44 31 3d 30 3a 53 48  41 44 3d 31 0d 00 50 1c  |AD1=0:SHAD=1..P.|
00000070  20 53 48 41 44 41 43 25  3d 2d 32 30 3a 53 48 41  | SHADAC%=-20:SHA|
00000080  44 44 4e 25 3d 2d 32 30  0d 00 5a 1a 20 49 4d 46  |DDN%=-20..Z. IMF|
00000090  4f 3d 30 3a 53 4e 41 50  3d 30 3a 53 4e 41 50 31  |O=0:SNAP=0:SNAP1|
000000a0  3d 31 0d 00 64 1b 20 43  4f 4c 32 25 3d 36 33 3a  |=1..d. COL2%=63:|
000000b0  54 4e 54 32 25 3d 30 3a  42 4c 44 3d 30 0d 00 6e  |TNT2%=0:BLD=0..n|
000000c0  1a 20 de 20 53 41 25 28  32 2c 31 30 29 2c 53 44  |. . SA%(2,10),SD|
000000d0  25 28 32 2c 31 30 29 0d  00 78 21 20 de 20 44 25  |%(2,10)..x! . D%|
000000e0  28 33 29 2c 53 48 41 44  45 25 28 31 35 29 2c 43  |(3),SHADE%(15),C|
000000f0  43 43 43 25 28 39 36 29  0d 00 82 7f 20 59 3d 30  |CCC%(96).... Y=0|
00000100  3a e3 20 58 35 3d 30 b8  31 3a e3 20 58 33 3d 30  |:. X5=0.1:. X3=0|
00000110  b8 31 3a e3 20 58 31 3d  30 b8 31 3a e3 20 58 34  |.1:. X1=0.1:. X4|
00000120  3d 30 b8 31 3a e3 20 58  32 3d 30 b8 31 3a e3 20  |=0.1:. X2=0.1:. |
00000130  58 3d 30 20 b8 20 31 3a  59 3d 59 2b 31 3a 43 43  |X=0 . 1:Y=Y+1:CC|
00000140  43 43 25 28 59 29 3d 28  58 29 2b 28 58 31 2a 32  |CC%(Y)=(X)+(X1*2|
00000150  29 2b 28 58 32 2a 34 29  2b 28 58 33 2a 38 29 2b  |)+(X2*4)+(X3*8)+|
00000160  28 58 34 2a 31 36 29 2b  28 58 35 2a 33 32 29 3a  |(X4*16)+(X5*32):|
00000170  ed 20 2c 2c 2c 2c 2c 0d  00 8c 31 20 56 24 3d 22  |. ,,,,,...1 V$="|
00000180  31 2e 30 35 20 2b 22 3a  f4 20 56 65 72 73 69 6f  |1.05 +":. Versio|
00000190  6e 20 31 2e 30 2b 20 20  2f 20 41 44 44 45 44 20  |n 1.0+  / ADDED |
000001a0  46 45 41 54 55 52 45 53  0d 00 96 10 20 db 3a f4  |FEATURES.... .:.|
000001b0  20 4d 4f 44 45 20 31 35  0d 00 a0 18 20 4e 50 25  | MODE 15.... NP%|
000001c0  3d 30 3a 4d 43 25 3d 31  3a 41 4c 54 25 3d 31 30  |=0:MC%=1:ALT%=10|
000001d0  0d 00 aa 0c 20 f2 73 65  74 75 70 32 0d 00 b4 20  |.... .setup2... |
000001e0  20 f4 20 2a 43 4f 4e 2e  53 50 52 49 54 45 53 49  | . *CON.SPRITESI|
000001f0  5a 45 20 4d 55 53 54 20  3d 20 35 35 0d 00 be 16  |ZE MUST = 55....|
00000200  20 4f 50 50 53 3d 30 3a  20 2a 46 58 20 32 30 30  | OPPS=0: *FX 200|
00000210  2c 33 0d 00 c8 21 20 ee  20 85 20 f2 65 72 72 6f  |,3...! . . .erro|
00000220  72 3a e7 20 4f 50 50 53  3d 31 20 8c 20 e5 20 8d  |r:. OPPS=1 . . .|
00000230  74 64 41 0d 00 d2 61 20  41 24 3d 22 50 4c 45 41  |tdA...a A$="PLEA|
00000240  53 45 20 57 41 49 54 20  4c 4f 41 44 49 4e 47 20  |SE WAIT LOADING |
00000250  21 21 21 22 3a eb 20 31  35 3a 87 3a e3 20 59 3d  |!!!":. 15:.:. Y=|
00000260  31 20 b8 20 32 30 3a f1  8a 32 38 2c 32 30 29 3b  |1 . 20:..28,20);|
00000270  3a e3 20 58 3d 31 20 b8  20 32 33 3a fb 20 b3 28  |:. X=1 . 23:. .(|
00000280  36 33 29 3a f1 c1 41 24  2c 58 2c 31 29 3b 3a ed  |63):..A$,X,1);:.|
00000290  20 58 2c 59 0d 00 dc 17  20 2a 53 43 52 45 45 4e  | X,Y.... *SCREEN|
000002a0  4c 4f 41 44 20 53 43 52  45 45 4e 0d 00 e1 0b 20  |LOAD SCREEN.... |
000002b0  e5 20 8d 74 5a 41 0d 00  e6 14 20 2a 53 43 48 4f  |. .tZA.... *SCHO|
000002c0  4f 53 45 20 73 63 72 65  65 6e 0d 00 f0 0d 20 2a  |OSE screen.... *|
000002d0  46 58 31 31 32 2c 31 0d  00 fa 0e 20 f0 20 26 45  |FX112,1.... . &E|
000002e0  44 2c 30 2c 30 0d 01 04  0d 20 2a 46 58 31 31 32  |D,0,0.... *FX112|
000002f0  2c 32 0d 01 0e 0e 20 f0  20 26 45 44 2c 30 2c 30  |,2.... . &ED,0,0|
00000300  0d 01 18 14 20 2a 53 4d  45 52 47 45 20 22 53 3d  |.... *SMERGE "S=|
00000310  4b 45 59 22 0d 01 22 1f  20 41 43 25 3d 31 30 30  |KEY"..". AC%=100|
00000320  3a 55 50 25 3d 35 30 3a  4d 41 3d 33 32 3a 4d 44  |:UP%=50:MA=32:MD|
00000330  3d 31 36 0d 01 2c 0b 20  f4 20 4c 4f 4f 50 0d 01  |=16..,. . LOOP..|
00000340  36 16 20 41 43 32 25 3d  41 43 25 3a 55 50 32 25  |6. AC2%=AC%:UP2%|
00000350  3d 55 50 25 0d 01 40 2b  20 41 43 25 3d 41 43 25  |=UP%..@+ AC%=AC%|
00000360  2b 4d 41 3a e7 20 41 43  25 3c 31 20 84 20 41 43  |+MA:. AC%<1 . AC|
00000370  25 3e 31 30 30 30 20 8c  20 4d 41 3d 2d 4d 41 0d  |%>1000 . MA=-MA.|
00000380  01 4a 2a 20 55 50 25 3d  55 50 25 2b 4d 44 3a e7  |.J* UP%=UP%+MD:.|
00000390  20 55 50 25 3c 31 20 84  20 55 50 25 3e 39 30 30  | UP%<1 . UP%>900|
000003a0  20 8c 20 4d 44 3d 2d 4d  44 0d 01 54 25 20 d4 20  | . MD=-MD..T% . |
000003b0  31 2c 2d 31 35 2c 41 43  25 2f 38 2c 31 3a c8 a2  |1,-15,AC%/8,1:..|
000003c0  20 31 2c 31 32 37 2d 28  55 50 25 2f 34 29 0d 01  | 1,127-(UP%/4)..|
000003d0  5e 09 20 f2 73 77 69 0d  01 68 14 20 2a 53 43 48  |^. .swi..h. *SCH|
000003e0  4f 4f 53 45 20 73 63 72  65 65 6e 0d 01 72 0e 20  |OOSE screen..r. |
000003f0  f0 20 26 45 44 2c 30 2c  30 0d 01 7c 11 20 2a 53  |. &ED,0,0..|. *S|
00000400  43 48 4f 4f 53 45 20 73  70 69 0d 01 86 12 20 f0  |CHOOSE spi.... .|
00000410  20 26 45 44 2c 41 43 25  2c 55 50 25 0d 01 90 1b  | &ED,AC%,UP%....|
00000420  20 f0 20 26 45 44 2c 31  30 30 30 2d 41 43 25 2c  | . &ED,1000-AC%,|
00000430  39 30 30 2d 55 50 25 0d  01 9a 1b 20 41 3d a6 28  |900-UP%.... A=.(|
00000440  35 29 3a e7 20 41 3d 2d  31 20 8c 20 e5 20 8d 74  |5):. A=-1 . . .t|
00000450  5a 41 0d 01 a4 4c 20 db  3a ef 20 31 39 2c 31 2c  |ZA...L .:. 19,1,|
00000460  32 34 2c 32 35 35 2c 32  35 35 2c 32 35 35 3a fb  |24,255,255,255:.|
00000470  20 31 32 38 2b 36 33 20  c8 9c 20 31 39 32 3a db  | 128+63 .. 192:.|
00000480  3a 87 3a 4f 54 49 3d 30  3a 4f 54 54 3d 30 3a 4e  |:.:OTI=0:OTT=0:N|
00000490  4e 25 3d 30 3a f4 20 4d  4f 44 45 20 31 35 0d 01  |N%=0:. MODE 15..|
000004a0  ae 0b 20 c8 a2 20 31 2c  30 0d 01 b8 0b 20 f2 73  |.. .. 1,0.... .s|
000004b0  65 74 75 70 0d 01 c2 1a  20 ef 20 31 39 2c 31 2c  |etup.... . 19,1,|
000004c0  32 34 2c 32 35 35 2c 32  35 35 2c 32 35 35 0d 01  |24,255,255,255..|
000004d0  cc 17 20 ef 20 32 34 2c  30 3b 30 3b 31 32 37 39  |.. . 24,0;0;1279|
000004e0  3b 38 32 39 3b 0d 01 d6  10 20 4f 50 50 53 3d 31  |;829;.... OPPS=1|
000004f0  3a 41 56 3d 30 0d 01 e0  0f 20 f4 20 4d 41 49 4e  |:AV=0.... . MAIN|
00000500  4c 4f 4f 50 0d 01 ea 25  20 e7 20 53 4e 41 50 3d  |LOOP...% . SNAP=|
00000510  30 20 8c 20 c8 97 20 88  20 31 2c 32 20 8b 20 c8  |0 . .. . 1,2 . .|
00000520  97 20 88 20 31 36 2c 33  32 0d 01 f4 2f 20 f4 20  |. . 16,32.../ . |
00000530  49 46 20 59 25 3e 38 36  30 20 41 4e 44 20 4d 45  |IF Y%>860 AND ME|
00000540  4e 55 3d 31 20 54 48 45  4e 20 4d 4f 55 53 45 20  |NU=1 THEN MOUSE |
00000550  53 54 45 50 20 31 2c 31  0d 01 fe 0b 20 f2 6d 6f  |STEP 1,1.... .mo|
00000560  75 73 65 0d 02 08 97 20  e7 20 5a 25 3d 34 20 80  |use.... . Z%=4 .|
00000570  20 4d 45 4e 55 3d 31 20  80 20 4f 50 54 3d 31 20  | MENU=1 . OPT=1 |
00000580  80 20 58 25 3e 31 32 30  35 20 80 20 58 25 3c 31  |. X%>1205 . X%<1|
00000590  32 34 30 20 80 20 59 25  3e 38 36 35 20 80 20 59  |240 . Y%>865 . Y|
000005a0  25 3c 39 30 34 20 8c 20  f2 70 6c 75 73 6d 65 6e  |%<904 . .plusmen|
000005b0  75 3a e7 20 5a 25 3d 31  20 8c 20 4f 50 54 3d 31  |u:. Z%=1 . OPT=1|
000005c0  3a 4d 45 4e 55 3d 31 3a  ef 20 32 34 2c 30 3b 30  |:MENU=1:. 24,0;0|
000005d0  3b 31 32 37 39 3b 31 30  32 33 3b 3a f2 6d 65 6e  |;1279;1023;:.men|
000005e0  75 31 3a ef 20 32 34 2c  30 3b 30 3b 31 32 37 39  |u1:. 24,0;0;1279|
000005f0  3b 38 32 39 3b 3a 5a 25  3d 30 0d 02 12 09 20 44  |;829;:Z%=0.... D|
00000600  45 3d 31 0d 02 1c ba 20  4b 25 3d a6 30 3a e7 20  |E=1.... K%=.0:. |
00000610  4b 25 3d 31 33 33 20 8c  20 4d 45 4e 55 3d 30 3a  |K%=133 . MENU=0:|
00000620  4f 50 54 3d 31 3a ef 20  32 34 2c 30 3b 30 3b 31  |OPT=1:. 24,0;0;1|
00000630  32 37 39 3b 31 30 32 33  3b 3a f2 62 72 69 6e 67  |279;1023;:.bring|
00000640  62 61 63 6b 3a f5 3a c8  97 20 58 25 2c 59 25 2c  |back:.:.. X%,Y%,|
00000650  4b 25 3a fd 20 4b 25 3d  30 3a 5a 25 3d 30 3a f2  |K%:. K%=0:Z%=0:.|
00000660  64 75 6d 70 32 3a 4d 45  4e 55 3d 31 3a ef 20 32  |dump2:MENU=1:. 2|
00000670  34 2c 30 3b 30 3b 31 32  37 39 3b 31 30 32 33 3b  |4,0;0;1279;1023;|
00000680  3a f2 67 65 74 62 61 63  6b 3a f5 3a c8 97 20 58  |:.getback:.:.. X|
00000690  25 2c 59 25 2c 4b 25 3a  fd 20 4b 25 3d 30 3a f2  |%,Y%,K%:. K%=0:.|
000006a0  6d 65 6e 75 31 3a ef 20  32 34 2c 30 3b 30 3b 31  |menu1:. 24,0;0;1|
000006b0  32 37 39 3b 38 32 39 3b  3a 4b 25 3d 30 0d 02 26  |279;829;:K%=0..&|
000006c0  15 20 e7 20 4b 25 3d 2d  31 20 8c 20 e5 20 8d 54  |. . K%=-1 . . .T|
000006d0  4c 43 0d 02 30 15 20 e7  20 4b 25 3d 38 38 20 8c  |LC..0. . K%=88 .|
000006e0  20 e5 20 8d 44 6c 74 0d  02 3a 18 20 e7 20 4b 25  | . .Dlt..:. . K%|
000006f0  3d 38 30 20 8c 20 2a 43  4f 4c 5f 44 55 4d 50 0d  |=80 . *COL_DUMP.|
00000700  02 3f 19 20 e7 20 4b 25  3d 31 31 32 20 8c 20 2a  |.?. . K%=112 . *|
00000710  50 52 4f 50 52 49 4e 54  0d 02 44 14 20 e7 20 4b  |PROPRINT..D. . K|
00000720  25 3d 32 30 20 8c 20 f2  74 69 6e 74 0d 02 4e 1b  |%=20 . .tint..N.|
00000730  20 e7 20 4b 25 3d 34 32  20 8c 20 f2 73 74 61 72  | . K%=42 . .star|
00000740  63 6f 6d 6d 61 6e 64 0d  02 58 16 20 e7 20 4b 25  |command..X. . K%|
00000750  3d 31 38 20 8c 20 f2 72  6f 74 61 74 65 0d 02 62  |=18 . .rotate..b|
00000760  b3 20 e7 20 4b 25 3d 31  33 30 20 8c 20 4d 45 4e  |. . K%=130 . MEN|
00000770  55 3d 30 3a 4f 50 54 3d  31 3a ef 20 32 34 2c 30  |U=0:OPT=1:. 24,0|
00000780  3b 30 3b 31 32 37 39 3b  31 30 32 33 3b 3a f2 62  |;0;1279;1023;:.b|
00000790  72 69 6e 67 62 61 63 6b  3a f5 3a c8 97 20 58 25  |ringback:.:.. X%|
000007a0  2c 59 25 2c 4b 25 3a fd  20 4b 25 3d 30 3a 5a 25  |,Y%,K%:. K%=0:Z%|
000007b0  3d 30 3a f2 66 6f 72 6d  3a 4d 45 4e 55 3d 31 3a  |=0:.form:MENU=1:|
000007c0  ef 20 32 34 2c 30 3b 30  3b 31 32 37 39 3b 31 30  |. 24,0;0;1279;10|
000007d0  32 33 3b 3a f2 67 65 74  62 61 63 6b 3a f5 3a c8  |23;:.getback:.:.|
000007e0  97 20 58 25 2c 59 25 2c  4b 25 3a fd 20 4b 25 3d  |. X%,Y%,K%:. K%=|
000007f0  30 3a f2 6d 65 6e 75 31  3a ef 20 32 34 2c 30 3b  |0:.menu1:. 24,0;|
00000800  30 3b 31 32 37 39 3b 38  32 39 3b 3a 4b 25 3d 30  |0;1279;829;:K%=0|
00000810  0d 02 6c b9 20 e7 20 4b  25 3d 31 33 34 20 8c 20  |..l. . K%=134 . |
00000820  44 45 3d 32 3a 4d 45 4e  55 3d 30 3a 4f 50 54 3d  |DE=2:MENU=0:OPT=|
00000830  31 3a ef 20 32 34 2c 30  3b 30 3b 31 32 37 39 3b  |1:. 24,0;0;1279;|
00000840  31 30 32 33 3b 3a f2 62  72 69 6e 67 62 61 63 6b  |1023;:.bringback|
00000850  3a f5 3a c8 97 20 58 25  2c 59 25 2c 4b 25 3a fd  |:.:.. X%,Y%,K%:.|
00000860  20 4b 25 3d 30 3a 5a 25  3d 30 3a f2 64 75 6d 70  | K%=0:Z%=0:.dump|
00000870  32 3a 4d 45 4e 55 3d 31  3a ef 20 32 34 2c 30 3b  |2:MENU=1:. 24,0;|
00000880  30 3b 31 32 37 39 3b 31  30 32 33 3b 3a f2 67 65  |0;1279;1023;:.ge|
00000890  74 62 61 63 6b 3a f5 3a  c8 97 20 58 25 2c 59 25  |tback:.:.. X%,Y%|
000008a0  2c 4b 25 3a fd 20 4b 25  3d 30 3a f2 6d 65 6e 75  |,K%:. K%=0:.menu|
000008b0  31 3a ef 20 32 34 2c 30  3b 30 3b 31 32 37 39 3b  |1:. 24,0;0;1279;|
000008c0  38 32 39 3b 3a 4b 25 3d  30 0d 02 76 b9 20 e7 20  |829;:K%=0..v. . |
000008d0  4b 25 3d 31 33 35 20 8c  20 44 45 3d 33 3a 4d 45  |K%=135 . DE=3:ME|
000008e0  4e 55 3d 30 3a 4f 50 54  3d 31 3a ef 20 32 34 2c  |NU=0:OPT=1:. 24,|
000008f0  30 3b 30 3b 31 32 37 39  3b 31 30 32 33 3b 3a f2  |0;0;1279;1023;:.|
00000900  62 72 69 6e 67 62 61 63  6b 3a f5 3a c8 97 20 58  |bringback:.:.. X|
00000910  25 2c 59 25 2c 4b 25 3a  fd 20 4b 25 3d 30 3a 5a  |%,Y%,K%:. K%=0:Z|
00000920  25 3d 30 3a f2 64 75 6d  70 32 3a 4d 45 4e 55 3d  |%=0:.dump2:MENU=|
00000930  31 3a ef 20 32 34 2c 30  3b 30 3b 31 32 37 39 3b  |1:. 24,0;0;1279;|
00000940  31 30 32 33 3b 3a f2 67  65 74 62 61 63 6b 3a f5  |1023;:.getback:.|
00000950  3a c8 97 20 58 25 2c 59  25 2c 4b 25 3a fd 20 4b  |:.. X%,Y%,K%:. K|
00000960  25 3d 30 3a f2 6d 65 6e  75 31 3a ef 20 32 34 2c  |%=0:.menu1:. 24,|
00000970  30 3b 30 3b 31 32 37 39  3b 38 32 39 3b 3a 4b 25  |0;0;1279;829;:K%|
00000980  3d 30 0d 02 80 9a 20 e7  20 4b 25 3d 31 33 36 20  |=0.... . K%=136 |
00000990  8c 20 4d 45 4e 55 3d 30  3a 4f 50 54 3d 31 3a ef  |. MENU=0:OPT=1:.|
000009a0  20 32 34 2c 30 3b 30 3b  31 32 37 39 3b 31 30 32  | 24,0;0;1279;102|
000009b0  33 3b 3a f2 62 72 69 6e  67 62 61 63 6b 3a f2 64  |3;:.bringback:.d|
000009c0  75 6d 70 33 3a 4d 45 4e  55 3d 31 3a ef 20 32 34  |ump3:MENU=1:. 24|
000009d0  2c 30 3b 30 3b 31 32 37  39 3b 31 30 32 33 3b 3a  |,0;0;1279;1023;:|
000009e0  f2 67 65 74 62 61 63 6b  3a f5 3a c8 97 20 58 25  |.getback:.:.. X%|
000009f0  2c 59 25 2c 4b 25 3a fd  20 4b 25 3d 30 3a f2 6d  |,Y%,K%:. K%=0:.m|
00000a00  65 6e 75 31 3a ef 20 32  34 2c 30 3b 30 3b 31 32  |enu1:. 24,0;0;12|
00000a10  37 39 3b 38 32 39 3b 3a  4b 25 3d 30 0d 02 8a 99  |79;829;:K%=0....|
00000a20  20 e7 20 4b 25 3d 31 33  37 20 8c 20 4d 45 4e 55  | . K%=137 . MENU|
00000a30  3d 30 3a 4f 50 54 3d 31  3a ef 20 32 34 2c 30 3b  |=0:OPT=1:. 24,0;|
00000a40  30 3b 31 32 37 39 3b 31  30 32 33 3b 3a f2 62 72  |0;1279;1023;:.br|
00000a50  69 6e 67 62 61 63 6b 3a  f2 67 72 69 64 3a 4d 45  |ingback:.grid:ME|
00000a60  4e 55 3d 31 3a ef 20 32  34 2c 30 3b 30 3b 31 32  |NU=1:. 24,0;0;12|
00000a70  37 39 3b 31 30 32 33 3b  3a f2 67 65 74 62 61 63  |79;1023;:.getbac|
00000a80  6b 3a f5 3a c8 97 20 58  25 2c 59 25 2c 4b 25 3a  |k:.:.. X%,Y%,K%:|
00000a90  fd 20 4b 25 3d 30 3a f2  6d 65 6e 75 31 3a ef 20  |. K%=0:.menu1:. |
00000aa0  32 34 2c 30 3b 30 3b 31  32 37 39 3b 38 32 39 3b  |24,0;0;1279;829;|
00000ab0  3a 4b 25 3d 30 0d 02 94  97 20 e7 20 4b 25 3d 37  |:K%=0.... . K%=7|
00000ac0  20 8c 20 4d 45 4e 55 3d  30 3a 4f 50 54 3d 31 3a  | . MENU=0:OPT=1:|
00000ad0  ef 20 32 34 2c 30 3b 30  3b 31 32 37 39 3b 31 30  |. 24,0;0;1279;10|
00000ae0  32 33 3b 3a f2 62 72 69  6e 67 62 61 63 6b 3a f2  |23;:.bringback:.|
00000af0  67 61 6d 65 3a 4d 45 4e  55 3d 31 3a ef 20 32 34  |game:MENU=1:. 24|
00000b00  2c 30 3b 30 3b 31 32 37  39 3b 31 30 32 33 3b 3a  |,0;0;1279;1023;:|
00000b10  f2 67 65 74 62 61 63 6b  3a f5 3a c8 97 20 58 25  |.getback:.:.. X%|
00000b20  2c 59 25 2c 4b 25 3a fd  20 4b 25 3d 30 3a f2 6d  |,Y%,K%:. K%=0:.m|
00000b30  65 6e 75 31 3a ef 20 32  34 2c 30 3b 30 3b 31 32  |enu1:. 24,0;0;12|
00000b40  37 39 3b 38 32 39 3b 3a  4b 25 3d 30 0d 02 9e 9f  |79;829;:K%=0....|
00000b50  20 e7 20 4b 25 3d 32 31  38 20 8c 20 4d 45 4e 55  | . K%=218 . MENU|
00000b60  3d 30 3a 42 52 49 3d 30  3a 4f 50 54 3d 31 3a ef  |=0:BRI=0:OPT=1:.|
00000b70  20 32 34 2c 30 3b 30 3b  31 32 37 39 3b 31 30 32  | 24,0;0;1279;102|
00000b80  33 3b 3a f2 62 72 69 6e  67 62 61 63 6b 3a f2 73  |3;:.bringback:.s|
00000b90  68 61 64 3a 4d 45 4e 55  3d 31 3a ef 20 32 34 2c  |had:MENU=1:. 24,|
00000ba0  30 3b 30 3b 31 32 37 39  3b 31 30 32 33 3b 3a f2  |0;0;1279;1023;:.|
00000bb0  67 65 74 62 61 63 6b 3a  f5 3a c8 97 20 58 25 2c  |getback:.:.. X%,|
00000bc0  59 25 2c 4b 25 3a fd 20  4b 25 3d 30 3a f2 6d 65  |Y%,K%:. K%=0:.me|
00000bd0  6e 75 31 3a ef 20 32 34  2c 30 3b 30 3b 31 32 37  |nu1:. 24,0;0;127|
00000be0  39 3b 38 32 39 3b 3a 4b  25 3d 30 0d 02 a8 9f 20  |9;829;:K%=0.... |
00000bf0  e7 20 4b 25 3d 32 31 39  20 8c 20 4d 45 4e 55 3d  |. K%=219 . MENU=|
00000c00  30 3a 42 52 49 3d 31 3a  4f 50 54 3d 31 3a ef 20  |0:BRI=1:OPT=1:. |
00000c10  32 34 2c 30 3b 30 3b 31  32 37 39 3b 31 30 32 33  |24,0;0;1279;1023|
00000c20  3b 3a f2 62 72 69 6e 67  62 61 63 6b 3a f2 73 68  |;:.bringback:.sh|
00000c30  61 64 3a 4d 45 4e 55 3d  31 3a ef 20 32 34 2c 30  |ad:MENU=1:. 24,0|
00000c40  3b 30 3b 31 32 37 39 3b  31 30 32 33 3b 3a f2 67  |;0;1279;1023;:.g|
00000c50  65 74 62 61 63 6b 3a f5  3a c8 97 20 58 25 2c 59  |etback:.:.. X%,Y|
00000c60  25 2c 4b 25 3a fd 20 4b  25 3d 30 3a f2 6d 65 6e  |%,K%:. K%=0:.men|
00000c70  75 31 3a ef 20 32 34 2c  30 3b 30 3b 31 32 37 39  |u1:. 24,0;0;1279|
00000c80  3b 38 32 39 3b 3a 4b 25  3d 30 0d 02 b2 9f 20 e7  |;829;:K%=0.... .|
00000c90  20 4b 25 3d 32 32 30 20  8c 20 4d 45 4e 55 3d 30  | K%=220 . MENU=0|
00000ca0  3a 42 52 49 3d 35 3a 4f  50 54 3d 31 3a ef 20 32  |:BRI=5:OPT=1:. 2|
00000cb0  34 2c 30 3b 30 3b 31 32  37 39 3b 31 30 32 33 3b  |4,0;0;1279;1023;|
00000cc0  3a f2 62 72 69 6e 67 62  61 63 6b 3a f2 73 68 61  |:.bringback:.sha|
00000cd0  64 3a 4d 45 4e 55 3d 31  3a ef 20 32 34 2c 30 3b  |d:MENU=1:. 24,0;|
00000ce0  30 3b 31 32 37 39 3b 31  30 32 33 3b 3a f2 67 65  |0;1279;1023;:.ge|
00000cf0  74 62 61 63 6b 3a f5 3a  c8 97 20 58 25 2c 59 25  |tback:.:.. X%,Y%|
00000d00  2c 4b 25 3a fd 20 4b 25  3d 30 3a f2 6d 65 6e 75  |,K%:. K%=0:.menu|
00000d10  31 3a ef 20 32 34 2c 30  3b 30 3b 31 32 37 39 3b  |1:. 24,0;0;1279;|
00000d20  38 32 39 3b 3a 4b 25 3d  30 0d 02 bc 9f 20 e7 20  |829;:K%=0.... . |
00000d30  4b 25 3d 32 33 36 20 8c  20 4d 45 4e 55 3d 30 3a  |K%=236 . MENU=0:|
00000d40  42 52 49 3d 36 3a 4f 50  54 3d 31 3a ef 20 32 34  |BRI=6:OPT=1:. 24|
00000d50  2c 30 3b 30 3b 31 32 37  39 3b 31 30 32 33 3b 3a  |,0;0;1279;1023;:|
00000d60  f2 62 72 69 6e 67 62 61  63 6b 3a f2 73 68 61 64  |.bringback:.shad|
00000d70  3a 4d 45 4e 55 3d 31 3a  ef 20 32 34 2c 30 3b 30  |:MENU=1:. 24,0;0|
00000d80  3b 31 32 37 39 3b 31 30  32 33 3b 3a f2 67 65 74  |;1279;1023;:.get|
00000d90  62 61 63 6b 3a f5 3a c8  97 20 58 25 2c 59 25 2c  |back:.:.. X%,Y%,|
00000da0  4b 25 3a fd 20 4b 25 3d  30 3a f2 6d 65 6e 75 31  |K%:. K%=0:.menu1|
00000db0  3a ef 20 32 34 2c 30 3b  30 3b 31 32 37 39 3b 38  |:. 24,0;0;1279;8|
00000dc0  32 39 3b 3a 4b 25 3d 30  0d 02 c6 22 20 e7 20 4b  |29;:K%=0..." . K|
00000dd0  25 3d 31 34 20 8c 20 ff  28 22 46 58 32 30 30 2c  |%=14 . .("FX200,|
00000de0  30 22 29 3a eb 20 31 32  3a e0 0d 02 d0 14 20 e7  |0"):. 12:..... .|
00000df0  20 4b 25 3d 31 32 39 20  8c 20 f2 63 61 74 0d 02  | K%=129 . .cat..|
00000e00  da 4f 20 e7 20 4b 25 3d  31 33 31 20 8c 20 d4 20  |.O . K%=131 . . |
00000e10  31 2c 2d 31 35 2c 31 35  30 2c 30 3a f2 6c 61 73  |1,-15,150,0:.las|
00000e20  74 73 63 72 65 65 6e 3a  41 56 3d 31 3a d4 20 31  |tscreen:AV=1:. 1|
00000e30  2c 2d 31 35 2c 31 30 30  2c 30 3a f5 3a 41 24 3d  |,-15,100,0:.:A$=|
00000e40  bf 28 31 30 29 3a fd 20  41 24 3d 22 22 0d 02 e4  |.(10):. A$=""...|
00000e50  45 20 e7 20 41 56 3d 31  20 80 20 4b 25 3d 31 33  |E . AV=1 . K%=13|
00000e60  32 20 8c 20 f2 67 65 74  6c 61 73 74 73 63 72 65  |2 . .getlastscre|
00000e70  65 6e 3a d4 20 31 2c 2d  31 35 2c 35 30 2c 30 3a  |en:. 1,-15,50,0:|
00000e80  f5 3a 41 24 3d bf 28 31  30 29 3a fd 20 41 24 3d  |.:A$=.(10):. A$=|
00000e90  22 22 0d 02 ee 1d 20 e7  20 4b 25 3d 34 39 20 8c  |"".... . K%=49 .|
00000ea0  20 44 52 49 3d 30 3a 2a  4d 4f 55 4e 54 20 30 0d  | DRI=0:*MOUNT 0.|
00000eb0  02 f8 1d 20 e7 20 4b 25  3d 35 30 20 8c 20 44 52  |... . K%=50 . DR|
00000ec0  49 3d 31 3a 2a 4d 4f 55  4e 54 20 31 0d 03 02 2e  |I=1:*MOUNT 1....|
00000ed0  20 e7 20 4b 25 3d 35 32  20 8c 20 44 52 49 3d 34  | . K%=52 . DRI=4|
00000ee0  3a ff 22 4d 4f 55 4e 54  20 34 22 3a 2a 44 49 52  |:."MOUNT 4":*DIR|
00000ef0  20 4e 53 41 52 43 54 49  53 54 0d 03 0c 0b 20 e5  | NSARCTIST.... .|
00000f00  20 8d 64 60 41 0d 03 16  0d 20 dd f2 6f 6e 5f 6f  | .d`A.... ..on_o|
00000f10  66 66 0d 03 20 08 20 e6  20 30 0d 03 2a 5c 20 e7  |ff.. . . 0..*\ .|
00000f20  20 5a 25 3d 32 20 80 20  4d 45 4e 55 3d 31 20 8c  | Z%=2 . MENU=1 .|
00000f30  20 4d 45 4e 55 3d 30 3a  4f 50 54 3d 31 3a ef 20  | MENU=0:OPT=1:. |
00000f40  32 34 2c 30 3b 30 3b 31  32 37 39 3b 31 30 32 33  |24,0;0;1279;1023|
00000f50  3b 3a f2 62 72 69 6e 67  62 61 63 6b 3a f5 3a c8  |;:.bringback:.:.|
00000f60  97 20 58 25 2c 59 25 2c  4b 25 3a fd 20 4b 25 3d  |. X%,Y%,K%:. K%=|
00000f70  30 3a 5a 25 3d 30 0d 03  34 74 20 e7 20 5a 25 3d  |0:Z%=0..4t . Z%=|
00000f80  32 20 80 20 4d 45 4e 55  3d 30 20 8c 20 4f 50 54  |2 . MENU=0 . OPT|
00000f90  3d 31 3a 4d 45 4e 55 3d  31 3a ef 20 32 34 2c 30  |=1:MENU=1:. 24,0|
00000fa0  3b 30 3b 31 32 37 39 3b  31 30 32 33 3b 3a f2 67  |;0;1279;1023;:.g|
00000fb0  65 74 62 61 63 6b 3a f5  3a c8 97 20 58 25 2c 59  |etback:.:.. X%,Y|
00000fc0  25 2c 4b 25 3a fd 20 4b  25 3d 30 3a f2 6d 65 6e  |%,K%:. K%=0:.men|
00000fd0  75 31 3a ef 20 32 34 2c  30 3b 30 3b 31 32 37 39  |u1:. 24,0;0;1279|
00000fe0  3b 38 32 39 3b 3a 4b 25  3d 30 0d 03 3e 06 20 e1  |;829;:K%=0..>. .|
00000ff0  0d 03 48 0d 20 dd f2 62  6f 75 6e 63 65 0d 03 52  |..H. ..bounce..R|
00001000  21 20 c8 97 20 58 25 2c  59 25 2c 5a 25 3a e7 20  |! .. X%,Y%,Z%:. |
00001010  5a 25 3c 3e 30 20 8c 20  e5 20 8d 44 52 43 0d 03  |Z%<>0 . . .DRC..|
00001020  5c 06 20 e1 0d 03 66 0c  20 dd f2 6d 6f 75 73 65  |\. ...f. ..mouse|
00001030  0d 03 70 43 20 4d 43 32  25 3d 4d 43 25 3a 4d 43  |..pC MC2%=MC%:MC|
00001040  25 3d 4d 43 25 2b 41 4c  54 25 3a e7 20 4d 43 25  |%=MC%+ALT%:. MC%|
00001050  3e 32 35 35 20 84 20 4d  43 25 3c 38 30 20 8c 20  |>255 . MC%<80 . |
00001060  4d 43 25 3d 4d 43 32 25  3a 41 4c 54 25 3d 2d 41  |MC%=MC2%:ALT%=-A|
00001070  4c 54 25 0d 03 7a 0c 20  2a 46 58 32 31 2c 39 0d  |LT%..z. *FX21,9.|
00001080  03 84 25 20 e7 20 53 4e  41 50 3d 30 20 8c 20 c8  |..% . SNAP=0 . .|
00001090  97 20 88 20 32 2c 32 20  8b 20 c8 97 20 88 20 31  |. . 2,2 . .. . 1|
000010a0  36 2c 33 32 0d 03 8e 10  20 c8 97 20 58 25 2c 59  |6,32.... .. X%,Y|
000010b0  25 2c 5a 25 0d 03 98 14  e7 20 49 4d 46 4f 3d 31  |%,Z%..... IMFO=1|
000010c0  20 8c 20 f2 69 6d 66 6f  0d 03 a2 15 20 e7 20 5a  | . .imfo.... . Z|
000010d0  25 3e 30 20 8c 20 4d 43  25 3d 31 30 30 0d 03 ac  |%>0 . MC%=100...|
000010e0  60 20 e7 20 59 25 3c 38  36 35 20 84 20 4f 50 54  |` . Y%<865 . OPT|
000010f0  3c 3e 31 20 84 20 4d 45  4e 55 3d 30 20 8c 20 4d  |<>1 . MENU=0 . M|
00001100  43 25 3d 31 30 30 3a c8  97 20 fb 20 31 2c 32 30  |C%=100:.. . 1,20|
00001110  30 2c 32 30 30 2c 32 30  30 3a c8 97 20 ee 20 32  |0,200,200:.. . 2|
00001120  20 8b 20 c8 97 20 ee 20  31 20 3a c8 97 20 fb 20  | . .. . 1 :.. . |
00001130  31 2c 32 30 30 2c 32 30  30 2c 32 30 30 0d 03 b6  |1,200,200,200...|
00001140  26 e7 20 5a 25 3e 30 20  8c 20 c8 97 20 fb 20 31  |&. Z%>0 . .. . 1|
00001150  2c 32 30 30 2c 32 30 30  2c 32 30 30 3a c8 97 20  |,200,200,200:.. |
00001160  ee 20 32 0d 03 c0 26 c8  97 20 fb 20 33 2c 4d 43  |. 2...&.. . 3,MC|
00001170  25 2c 31 31 30 2b 28 4d  43 25 2f 33 29 2c 31 35  |%,110+(MC%/3),15|
00001180  30 2d 28 4d 43 25 2f 33  29 0d 03 ca 67 20 e7 20  |0-(MC%/3)...g . |
00001190  5a 25 3d 32 20 80 20 4d  45 4e 55 3d 31 20 80 20  |Z%=2 . MENU=1 . |
000011a0  4f 50 54 3c 3e 32 20 8c  20 4d 45 4e 55 3d 30 3a  |OPT<>2 . MENU=0:|
000011b0  4f 50 54 3d 31 3a ef 20  32 34 2c 30 3b 30 3b 31  |OPT=1:. 24,0;0;1|
000011c0  32 37 39 3b 31 30 32 33  3b 3a f2 62 72 69 6e 67  |279;1023;:.bring|
000011d0  62 61 63 6b 3a f5 3a c8  97 20 58 25 2c 59 25 2c  |back:.:.. X%,Y%,|
000011e0  5a 25 3a fd 20 5a 25 3d  30 3a e1 3a 5a 25 3d 30  |Z%:. Z%=0:.:Z%=0|
000011f0  0d 03 d4 74 20 e7 20 5a  25 3d 32 20 80 20 4d 45  |...t . Z%=2 . ME|
00001200  4e 55 3d 30 20 8c 20 4f  50 54 3d 31 3a 4d 45 4e  |NU=0 . OPT=1:MEN|
00001210  55 3d 31 3a ef 20 32 34  2c 30 3b 30 3b 31 32 37  |U=1:. 24,0;0;127|
00001220  39 3b 31 30 32 33 3b 3a  f2 67 65 74 62 61 63 6b  |9;1023;:.getback|
00001230  3a f5 3a c8 97 20 58 25  2c 59 25 2c 5a 25 3a fd  |:.:.. X%,Y%,Z%:.|
00001240  20 5a 25 3d 30 3a f2 6d  65 6e 75 31 3a ef 20 32  | Z%=0:.menu1:. 2|
00001250  34 2c 30 3b 30 3b 31 32  37 39 3b 38 32 39 3b 3a  |4,0;0;1279;829;:|
00001260  5a 25 3d 30 0d 03 de 2d  20 e7 20 5a 25 3d 34 20  |Z%=0...- . Z%=4 |
00001270  80 20 4f 50 54 3d 31 20  8c 20 e6 20 43 4f 4c 25  |. OPT=1 . . COL%|
00001280  20 c8 9c 20 54 4e 54 25  3a c8 92 20 58 25 2c 59  | .. TNT%:.. X%,Y|
00001290  25 0d 03 e8 20 20 e7 20  5a 25 3d 34 20 80 20 4f  |%...  . Z%=4 . O|
000012a0  50 54 3d 32 20 8c 20 f2  63 6f 6c 63 68 61 6e 67  |PT=2 . .colchang|
000012b0  65 0d 03 f2 20 20 e7 20  5a 25 3d 32 20 80 20 4f  |e...  . Z%=2 . O|
000012c0  50 54 3d 32 20 8c 20 f2  63 6f 6c 63 68 61 6e 67  |PT=2 . .colchang|
000012d0  65 0d 03 fc 70 20 e7 20  5a 25 3d 31 20 80 20 4f  |e...p . Z%=1 . O|
000012e0  50 54 3d 32 20 8c 20 4f  50 54 3d 31 3a 4d 45 4e  |PT=2 . OPT=1:MEN|
000012f0  55 3d 31 3a ef 20 32 34  2c 30 3b 30 3b 31 32 37  |U=1:. 24,0;0;127|
00001300  39 3b 31 30 32 33 3b 3a  f5 3a c8 97 20 58 25 2c  |9;1023;:.:.. X%,|
00001310  59 25 2c 5a 25 3a fd 20  5a 25 3d 30 3a f2 6d 65  |Y%,Z%:. Z%=0:.me|
00001320  6e 75 31 3a ef 20 32 34  2c 30 3b 30 3b 31 32 37  |nu1:. 24,0;0;127|
00001330  39 3b 38 32 39 3b 3a 5a  25 3d 30 3a 4f 50 54 3d  |9;829;:Z%=0:OPT=|
00001340  31 0d 04 06 5e 20 f4 49  46 20 5a 25 3d 31 20 54  |1...^ .IF Z%=1 T|
00001350  48 45 4e 20 56 44 55 20  32 34 2c 30 3b 30 3b 31  |HEN VDU 24,0;0;1|
00001360  32 37 39 3b 31 30 32 33  3b 3a 4b 3d 50 4f 49 4e  |279;1023;:K=POIN|
00001370  54 28 58 25 2c 59 25 29  3a 56 44 55 20 32 34 2c  |T(X%,Y%):VDU 24,|
00001380  30 3b 30 3b 31 32 37 39  3b 38 32 39 3b 3a 50 52  |0;0;1279;829;:PR|
00001390  49 4e 54 54 41 42 28 31  30 2c 31 30 29 3b 4b 0d  |INTTAB(10,10);K.|
000013a0  04 10 19 20 e7 20 5a 25  3d 31 20 8c 20 4f 54 54  |... . Z%=1 . OTT|
000013b0  3d 30 3a e5 8d 74 4e 43  0d 04 1a 23 20 e7 20 4d  |=0:..tNC...# . M|
000013c0  45 4e 55 3d 30 20 20 84  20 59 25 3c 38 35 33 20  |ENU=0  . Y%<853 |
000013d0  84 20 5a 25 3c 3e 34 20  8c 20 e1 0d 04 24 25 20  |. Z%<>4 . ...$% |
000013e0  e7 20 4f 50 54 3d 31 20  80 20 58 25 3c 36 30 20  |. OPT=1 . X%<60 |
000013f0  8c 20 f2 63 6f 6c 6f 75  72 20 3a 4f 50 54 3d 32  |. .colour :OPT=2|
00001400  0d 04 2e 38 20 e7 20 4f  50 54 3d 31 20 80 20 58  |...8 . OPT=1 . X|
00001410  25 3e 31 31 37 20 80 20  58 25 3c 31 37 30 20 80  |%>117 . X%<170 .|
00001420  20 59 25 3e 39 33 30 20  80 20 59 25 3c 39 39 30  | Y%>930 . Y%<990|
00001430  20 8c 20 f2 66 69 6c 6c  0d 04 38 11 20 e7 20 4d  | . .fill..8. . M|
00001440  45 4e 55 3d 30 20 8c 20  e1 0d 04 42 38 20 e7 20  |ENU=0 . ...B8 . |
00001450  4f 50 54 3d 31 20 80 20  58 25 3e 31 39 35 20 80  |OPT=1 . X%>195 .|
00001460  20 58 25 3c 32 35 30 20  80 20 59 25 3e 39 33 30  | X%<250 . Y%>930|
00001470  20 80 20 59 25 3c 39 39  30 20 8c 20 f2 72 65 63  | . Y%<990 . .rec|
00001480  74 0d 04 4c 11 20 e7 20  4d 45 4e 55 3d 30 20 8c  |t..L. . MENU=0 .|
00001490  20 e1 0d 04 56 38 20 e7  20 4f 50 54 3d 31 20 80  | ...V8 . OPT=1 .|
000014a0  20 58 25 3e 32 37 35 20  80 20 58 25 3c 33 33 30  | X%>275 . X%<330|
000014b0  20 80 20 59 25 3e 39 33  30 20 80 20 59 25 3c 39  | . Y%>930 . Y%<9|
000014c0  39 30 20 8c 20 f2 63 69  72 63 0d 04 60 11 20 e7  |90 . .circ..`. .|
000014d0  20 4d 45 4e 55 3d 30 20  8c 20 e1 0d 04 6a 37 20  | MENU=0 . ...j7 |
000014e0  e7 20 4f 50 54 3d 31 20  80 20 58 25 3e 33 35 35  |. OPT=1 . X%>355|
000014f0  20 80 20 58 25 3c 34 31  30 20 80 20 59 25 3e 39  | . X%<410 . Y%>9|
00001500  33 30 20 80 20 59 25 3c  39 39 30 20 8c 20 f2 74  |30 . Y%<990 . .t|
00001510  72 69 0d 04 74 11 20 e7  20 4d 45 4e 55 3d 30 20  |ri..t. . MENU=0 |
00001520  8c 20 e1 0d 04 7e 3a 20  e7 20 4f 50 54 3d 31 20  |. ...~: . OPT=1 |
00001530  80 20 58 25 3e 31 33 30  20 80 20 58 25 3c 31 39  |. X%>130 . X%<19|
00001540  30 20 80 20 59 25 3e 38  36 36 20 80 20 59 25 3c  |0 . Y%>866 . Y%<|
00001550  38 39 35 20 8c 20 f2 73  63 72 6f 6c 6c 0d 04 88  |895 . .scroll...|
00001560  11 20 e7 20 4d 45 4e 55  3d 30 20 8c 20 e1 0d 04  |. . MENU=0 . ...|
00001570  92 39 20 e7 20 4f 50 54  3d 31 20 80 20 58 25 3e  |.9 . OPT=1 . X%>|
00001580  35 31 30 20 80 20 58 25  3c 35 37 30 20 80 20 59  |510 . X%<570 . Y|
00001590  25 3e 39 33 30 20 80 20  59 25 3c 39 39 30 20 8c  |%>930 . Y%<990 .|
000015a0  20 f2 66 6c 69 70 32 0d  04 9c 11 20 e7 20 4d 45  | .flip2.... . ME|
000015b0  4e 55 3d 30 20 8c 20 e1  0d 04 a6 39 20 e7 20 4f  |NU=0 . ....9 . O|
000015c0  50 54 3d 31 20 80 20 58  25 3e 34 34 30 20 80 20  |PT=1 . X%>440 . |
000015d0  58 25 3c 34 39 30 20 80  20 59 25 3e 39 33 30 20  |X%<490 . Y%>930 |
000015e0  80 20 59 25 3c 39 39 30  20 8c 20 f2 66 6c 69 70  |. Y%<990 . .flip|
000015f0  31 0d 04 b0 11 20 e7 20  4d 45 4e 55 3d 30 20 8c  |1.... . MENU=0 .|
00001600  20 e1 0d 04 ba 3a 20 e7  20 4f 50 54 3d 31 20 80  | ....: . OPT=1 .|
00001610  20 58 25 3e 33 31 30 20  80 20 58 25 3c 34 31 30  | X%>310 . X%<410|
00001620  20 80 20 59 25 3e 38 36  36 20 80 20 59 25 3c 38  | . Y%>866 . Y%<8|
00001630  39 35 20 8c 20 f2 66 69  6c 6c 6f 6e 0d 04 c4 11  |95 . .fillon....|
00001640  20 e7 20 4d 45 4e 55 3d  30 20 8c 20 e1 0d 04 ce  | . MENU=0 . ....|
00001650  3b 20 e7 20 4f 50 54 3d  31 20 80 20 58 25 3e 35  |; . OPT=1 . X%>5|
00001660  39 35 20 80 20 58 25 3c  36 35 35 20 80 20 59 25  |95 . X%<655 . Y%|
00001670  3e 39 33 30 20 80 20 59  25 3c 39 39 30 20 8c 20  |>930 . Y%<990 . |
00001680  f2 69 6e 76 65 72 73 65  0d 04 d8 11 20 e7 20 4d  |.inverse.... . M|
00001690  45 4e 55 3d 30 20 8c 20  e1 0d 04 e2 39 20 e7 20  |ENU=0 . ....9 . |
000016a0  4f 50 54 3d 31 20 80 20  58 25 3e 36 37 35 20 80  |OPT=1 . X%>675 .|
000016b0  20 58 25 3c 37 33 35 20  80 20 59 25 3e 39 33 30  | X%<735 . Y%>930|
000016c0  20 80 20 59 25 3c 39 39  30 20 8c 20 f2 6c 69 6e  | . Y%<990 . .lin|
000016d0  65 6a 0d 04 ec 11 20 e7  20 4d 45 4e 55 3d 30 20  |ej.... . MENU=0 |
000016e0  8c 20 e1 0d 04 f6 39 20  e7 20 4f 50 54 3d 31 20  |. ....9 . OPT=1 |
000016f0  80 20 58 25 3e 37 35 35  20 80 20 58 25 3c 38 31  |. X%>755 . X%<81|
00001700  35 20 80 20 59 25 3e 39  33 30 20 80 20 59 25 3c  |5 . Y%>930 . Y%<|
00001710  39 39 30 20 8c 20 f2 6c  69 6e 65 70 0d 05 00 11  |990 . .linep....|
00001720  20 e7 20 4d 45 4e 55 3d  30 20 8c 20 e1 0d 05 0a  | . MENU=0 . ....|
00001730  39 20 e7 20 4f 50 54 3d  31 20 80 20 58 25 3e 38  |9 . OPT=1 . X%>8|
00001740  33 32 20 80 20 58 25 3c  38 39 30 20 80 20 59 25  |32 . X%<890 . Y%|
00001750  3e 39 33 30 20 80 20 59  25 3c 39 39 30 20 8c 20  |>930 . Y%<990 . |
00001760  f2 73 70 72 61 79 0d 05  14 11 20 e7 20 4d 45 4e  |.spray.... . MEN|
00001770  55 3d 30 20 8c 20 e1 0d  05 1e 37 20 e7 20 4f 50  |U=0 . ....7 . OP|
00001780  54 3d 31 20 80 20 58 25  3e 39 31 35 20 80 20 58  |T=1 . X%>915 . X|
00001790  25 3c 39 37 30 20 80 20  59 25 3e 39 33 30 20 80  |%<970 . Y%>930 .|
000017a0  20 59 25 3c 39 39 30 20  8c 20 f2 72 75 62 0d 05  | Y%<990 . .rub..|
000017b0  28 11 20 e7 20 4d 45 4e  55 3d 30 20 8c 20 e1 0d  |(. . MENU=0 . ..|
000017c0  05 32 38 20 e7 20 4f 50  54 3d 31 20 80 20 58 25  |.28 . OPT=1 . X%|
000017d0  3e 39 39 35 20 80 20 58  25 3c 31 30 35 30 20 80  |>995 . X%<1050 .|
000017e0  20 59 25 3e 39 33 30 20  80 20 59 25 3c 39 39 30  | Y%>930 . Y%<990|
000017f0  20 8c 20 f2 63 6c 73 0d  05 3c 11 20 e7 20 4d 45  | . .cls..<. . ME|
00001800  4e 55 3d 30 20 8c 20 e1  0d 05 46 3a 20 e7 20 4f  |NU=0 . ...F: . O|
00001810  50 54 3d 31 20 80 20 58  25 3e 31 30 37 35 20 80  |PT=1 . X%>1075 .|
00001820  20 58 25 3c 31 31 33 30  20 80 20 59 25 3e 39 33  | X%<1130 . Y%>93|
00001830  30 20 80 20 59 25 3c 39  39 30 20 8c 20 f2 63 6f  |0 . Y%<990 . .co|
00001840  70 79 0d 05 50 11 20 e7  20 4d 45 4e 55 3d 30 20  |py..P. . MENU=0 |
00001850  8c 20 e1 0d 05 5a 3b 20  e7 20 4f 50 54 3d 31 20  |. ...Z; . OPT=1 |
00001860  80 20 58 25 3e 31 31 35  35 20 80 20 58 25 3c 31  |. X%>1155 . X%<1|
00001870  32 31 35 20 20 80 20 59  25 3e 39 33 30 20 80 20  |215  . Y%>930 . |
00001880  59 25 3c 39 39 30 20 8c  20 f2 64 69 73 63 0d 05  |Y%<990 . .disc..|
00001890  64 11 20 e7 20 4d 45 4e  55 3d 30 20 8c 20 e1 0d  |d. . MENU=0 . ..|
000018a0  05 6e 38 20 e7 20 4f 50  54 3d 31 20 80 20 58 25  |.n8 . OPT=1 . X%|
000018b0  3e 35 33 30 20 80 20 58  25 3c 35 39 30 20 80 20  |>530 . X%<590 . |
000018c0  59 25 3e 38 36 36 20 80  20 59 25 3c 39 30 35 20  |Y%>866 . Y%<905 |
000018d0  8c 20 f2 74 65 78 74 0d  05 78 4a 20 f4 20 54 48  |. .text..xJ . TH|
000018e0  45 52 45 20 53 48 4f 55  4c 44 20 42 45 20 53 4f  |ERE SHOULD BE SO|
000018f0  4d 45 54 48 49 4e 47 20  48 45 52 45 20 3c 3c 3c  |METHING HERE <<<|
00001900  3c 3c 3c 3c 3c 3c 3c 3c  3c 2a 2a 2a 2a 2a 2a 2a  |<<<<<<<<<*******|
00001910  3c 3c 3c 3c 3c 3c 3c 3c  2a 2a 2a 2a 2a 2a 3c 3c  |<<<<<<<<******<<|
00001920  3c 0d 05 82 38 20 e7 20  4f 50 54 3d 31 20 80 20  |<...8 . OPT=1 . |
00001930  58 25 3e 37 35 30 20 80  20 58 25 3c 38 31 30 20  |X%>750 . X%<810 |
00001940  80 20 59 25 3e 38 36 36  20 80 20 59 25 3c 39 30  |. Y%>866 . Y%<90|
00001950  35 20 8c 20 f2 7a 6f 6f  6d 0d 05 8c 11 20 e7 20  |5 . .zoom.... . |
00001960  4d 45 4e 55 3d 30 20 8c  20 e1 0d 05 96 3f 20 f4  |MENU=0 . ....? .|
00001970  20 56 44 55 20 31 39 2c  31 2c 32 34 2c 31 30 30  | VDU 19,1,24,100|
00001980  2c 31 35 30 2c 32 30 30  3a 4f 53 43 4c 49 28 22  |,150,200:OSCLI("|
00001990  2a 46 58 31 39 22 29 3a  56 44 55 20 31 39 2c 31  |*FX19"):VDU 19,1|
000019a0  2c 32 34 2c 30 2c 30 2c  30 0d 05 a0 06 20 e1 0d  |,24,0,0,0.... ..|
000019b0  05 aa 0d 20 dd f2 73 63  72 6f 6c 6c 0d 05 b4 41  |... ..scroll...A|
000019c0  20 e7 20 20 4d 45 4e 55  3d 31 20 8c 20 4d 45 4e  | .  MENU=1 . MEN|
000019d0  55 3d 30 3a 4f 50 54 3d  31 3a ef 20 32 34 2c 30  |U=0:OPT=1:. 24,0|
000019e0  3b 30 3b 31 32 37 39 3b  31 30 32 33 3b 3a f2 62  |;0;1279;1023;:.b|
000019f0  72 69 6e 67 62 61 63 6b  3a 5a 25 3d 30 0d 05 be  |ringback:Z%=0...|
00001a00  06 20 f5 0d 05 c8 10 20  c8 97 20 58 25 2c 59 25  |. ..... .. X%,Y%|
00001a10  2c 5a 25 0d 05 d2 1f 20  ec 20 30 2c 30 3a ec 20  |,Z%.... . 0,0:. |
00001a20  31 35 2c 31 30 32 33 3a  2a 53 47 45 54 20 73 69  |15,1023:*SGET si|
00001a30  64 65 0d 05 dc 12 20 ef  20 32 33 2c 37 2c 31 2c  |de.... . 23,7,1,|
00001a40  31 2c 30 7c 0d 05 e6 12  20 2a 53 43 48 4f 4f 53  |1,0|.... *SCHOOS|
00001a50  45 20 73 69 64 65 0d 05  f0 1f 20 f0 20 26 45 44  |E side.... . &ED|
00001a60  2c 31 32 36 34 2c 30 3a  2a 53 44 45 4c 45 54 45  |,1264,0:*SDELETE|
00001a70  20 73 69 64 65 0d 05 fa  0c 20 fd 20 5a 25 3c 3e  | side.... . Z%<>|
00001a80  34 0d 06 04 6e 20 e7 20  20 4d 45 4e 55 3d 30 20  |4...n .  MENU=0 |
00001a90  8c 20 4f 50 54 3d 31 3a  4d 45 4e 55 3d 31 3a ef  |. OPT=1:MENU=1:.|
00001aa0  20 32 34 2c 30 3b 30 3b  31 32 37 39 3b 31 30 32  | 24,0;0;1279;102|
00001ab0  33 3b 3a f2 67 65 74 62  61 63 6b 3a f5 3a c8 97  |3;:.getback:.:..|
00001ac0  20 58 25 2c 59 25 2c 4b  25 3a fd 20 4b 25 3d 30  | X%,Y%,K%:. K%=0|
00001ad0  3a f2 6d 65 6e 75 31 3a  ef 20 32 34 2c 30 3b 30  |:.menu1:. 24,0;0|
00001ae0  3b 31 32 37 39 3b 38 32  39 3b 3a 4b 25 3d 30 0d  |;1279;829;:K%=0.|
00001af0  06 0e 06 20 e1 0d 06 18  0d 20 dd f2 63 6f 6c 6f  |... ..... ..colo|
00001b00  75 72 0d 06 22 18 20 ef  20 32 34 2c 30 3b 30 3b  |ur..". . 24,0;0;|
00001b10  31 32 37 39 3b 31 30 32  33 3b 0d 06 2c 25 20 e6  |1279;1023;..,% .|
00001b20  20 34 37 20 c8 9c 20 31  39 32 3a c8 93 20 c8 90  | 47 .. 192:.. ..|
00001b30  20 38 2c 38 36 35 2c 31  32 34 33 2c 31 34 36 0d  | 8,865,1243,146.|
00001b40  06 36 0a 20 58 43 25 3d  30 0d 06 40 33 20 43 43  |.6. XC%=0..@3 CC|
00001b50  25 3d 30 3a 50 50 3d 30  3a e3 20 5a 25 3d 39 36  |%=0:PP=0:. Z%=96|
00001b60  30 20 b8 20 38 36 30 20  88 2d 34 34 3a e7 20 5a  |0 . 860 .-44:. Z|
00001b70  25 3d 38 37 32 20 8c 20  50 50 3d 35 0d 06 4a 8e  |%=872 . PP=5..J.|
00001b80  59 25 3d 34 3a e3 20 58  25 3d 30 20 b8 20 32 32  |Y%=4:. X%=0 . 22|
00001b90  2d 50 50 3a 43 43 25 3d  43 43 25 2b 31 3a 59 25  |-PP:CC%=CC%+1:Y%|
00001ba0  3d 59 25 2b 31 32 3a 58  43 25 3d 58 43 25 2b 31  |=Y%+12:XC%=XC%+1|
00001bb0  3a 50 3d 32 30 3a e3 20  4b 25 3d 30 20 b8 20 33  |:P=20:. K%=0 . 3|
00001bc0  3a 4b 32 25 3d 28 4b 25  2a 36 34 29 3a e6 20 43  |:K2%=(K%*64):. C|
00001bd0  43 43 43 25 28 58 43 25  29 20 c8 9c 20 4b 32 25  |CCC%(XC%) .. K2%|
00001be0  3a c8 8f 20 20 c8 90 20  59 25 2b 31 35 2c 5a 25  |:..  .. Y%+15,Z%|
00001bf0  2b 31 35 2c 50 3a 50 3d  50 2d 34 3a ed 3a 59 25  |+15,P:P=P-4:.:Y%|
00001c00  3d 59 25 2b 33 30 3a ed  20 2c 0d 06 54 25 20 e6  |=Y%+30:. ,..T% .|
00001c10  20 34 37 20 c8 9c 20 31  39 32 3a c8 93 20 c8 90  | 47 .. 192:.. ..|
00001c20  20 37 36 34 2c 38 36 36  2c 32 35 30 2c 34 30 0d  | 764,866,250,40.|
00001c30  06 5e 08 20 e6 20 30 0d  06 68 79 20 c8 93 20 31  |.^. . 0..hy .. 1|
00001c40  30 33 30 2c 38 38 30 2c  32 30 30 2c 36 30 3a e6  |030,880,200,60:.|
00001c50  20 36 33 3a c8 93 20 31  30 33 34 2c 38 38 34 2c  | 63:.. 1034,884,|
00001c60  31 39 32 2c 35 32 3a e6  20 43 4f 4c 25 20 c8 9c  |192,52:. COL% ..|
00001c70  20 54 4e 54 25 3a c8 93  20 c8 90 20 31 30 34 30  | TNT%:.. .. 1040|
00001c80  2c 38 39 32 2c 39 32 2c  33 38 3a e6 20 43 4f 4c  |,892,92,38:. COL|
00001c90  32 25 20 c8 9c 20 54 4e  54 32 25 3a c8 93 20 c8  |2% .. TNT2%:.. .|
00001ca0  90 20 31 31 33 32 2c 38  39 32 2c 39 30 2c 33 38  |. 1132,892,90,38|
00001cb0  0d 06 72 8e 20 fb 20 36  33 20 c8 9c 20 30 3a fb  |..r. . 63 .. 0:.|
00001cc0  20 31 39 32 3a f1 8a 36  35 2c 31 29 3b 22 20 54  | 192:..65,1);" T|
00001cd0  49 4e 54 3d 22 3b 3a fb  20 43 4f 4c 25 2b 31 32  |INT=";:. COL%+12|
00001ce0  38 20 c8 9c 20 30 3a f1  22 20 22 3b 3a fb 20 43  |8 .. 0:." ";:. C|
00001cf0  4f 4c 25 2b 31 32 38 20  c8 9c 20 36 34 3a fb 20  |OL%+128 .. 64:. |
00001d00  36 33 20 c8 9c 20 31 39  32 3a f1 22 20 22 3b 3a  |63 .. 192:." ";:|
00001d10  fb 20 43 4f 4c 25 2b 31  32 38 20 c8 9c 20 31 32  |. COL%+128 .. 12|
00001d20  38 3a f1 22 20 22 3b 3a  fb 20 43 4f 4c 25 2b 31  |8:." ";:. COL%+1|
00001d30  32 38 20 c8 9c 20 31 39  32 3a f1 22 20 22 0d 06  |28 .. 192:." "..|
00001d40  7c 83 20 e7 20 54 4e 54  25 3d 30 20 8c 20 fb 20  ||. . TNT%=0 . . |
00001d50  43 4f 4c 25 2b 31 32 38  20 c8 9c 20 30 3a f1 8a  |COL%+128 .. 0:..|
00001d60  37 31 2c 31 29 3b 22 78  22 20 8b 20 e7 20 54 4e  |71,1);"x" . . TN|
00001d70  54 25 3d 36 34 20 8c 20  fb 20 43 4f 4c 25 2b 31  |T%=64 . . COL%+1|
00001d80  32 38 20 c8 9c 20 36 34  3a f1 8a 37 32 2c 31 29  |28 .. 64:..72,1)|
00001d90  3b 22 78 22 20 8b 20 e7  20 54 4e 54 25 3d 31 32  |;"x" . . TNT%=12|
00001da0  38 20 8c 20 fb 20 43 4f  4c 25 2b 31 32 38 20 c8  |8 . . COL%+128 .|
00001db0  9c 20 31 32 38 3a f1 8a  37 33 2c 31 29 3b 22 78  |. 128:..73,1);"x|
00001dc0  22 0d 06 86 39 20 fb 20  36 33 20 c8 9c 20 30 3a  |"...9 . 63 .. 0:|
00001dd0  e7 20 54 4e 54 25 3d 31  39 32 20 8c 20 fb 20 43  |. TNT%=192 . . C|
00001de0  4f 4c 25 2b 31 32 38 20  c8 9c 20 31 39 32 3a f1  |OL%+128 .. 192:.|
00001df0  8a 37 34 2c 31 29 3b 22  78 22 0d 06 90 0f 20 fb  |.74,1);"x".... .|
00001e00  20 36 33 3a fb 20 31 39  32 0d 06 9a 17 20 ef 20  | 63:. 192.... . |
00001e10  32 34 2c 30 3b 30 3b 31  32 37 39 3b 38 32 39 3b  |24,0;0;1279;829;|
00001e20  0d 06 a4 06 20 e1 0d 06  ae 0d 20 dd f2 66 69 6c  |.... ..... ..fil|
00001e30  6c 6f 6e 0d 06 b8 0c 20  f2 62 6f 75 6e 63 65 0d  |lon.... .bounce.|
00001e40  06 c2 1c 20 e7 20 4e 4e  25 3d 31 20 8c 20 4e 4e  |... . NN%=1 . NN|
00001e50  25 3d 30 20 8b 20 4e 4e  25 3d 31 0d 06 cc 1c 20  |%=0 . NN%=1.... |
00001e60  e7 20 4e 4e 25 3d 31 20  8c 20 4e 50 25 3d 31 20  |. NN%=1 . NP%=1 |
00001e70  8b 20 4e 50 25 3d 30 0d  06 d6 58 20 e7 20 4d 45  |. NP%=0...X . ME|
00001e80  4e 55 3d 31 20 8c 20 ef  20 32 34 2c 30 3b 30 3b  |NU=1 . . 24,0;0;|
00001e90  31 32 37 39 3b 31 30 32  33 3b 3a e6 20 34 2c 30  |1279;1023;:. 4,0|
00001ea0  3a c8 93 20 c8 90 20 33  30 36 2c 38 37 30 2c 31  |:.. .. 306,870,1|
00001eb0  30 38 2c 32 34 3a e6 20  43 4f 4c 25 3a ef 20 32  |08,24:. COL%:. 2|
00001ec0  34 2c 30 3b 30 3b 31 32  37 39 3b 38 32 39 3b 0d  |4,0;0;1279;829;.|
00001ed0  06 e0 06 20 e1 0d 06 ea  10 20 dd f2 63 6f 6c 63  |... ..... ..colc|
00001ee0  68 61 6e 67 65 0d 06 f4  17 ef 20 32 34 2c 30 3b  |hange..... 24,0;|
00001ef0  30 3b 31 32 37 39 3b 31  30 32 33 3b 0d 06 fe aa  |0;1279;1023;....|
00001f00  20 e7 20 58 25 3e 31 30  34 30 20 80 20 58 25 3c  | . X%>1040 . X%<|
00001f10  31 32 32 30 20 80 20 59  25 3e 38 39 32 20 80 20  |1220 . Y%>892 . |
00001f20  59 25 3c 39 33 30 20 8c  20 c8 94 20 43 4f 4c 25  |Y%<930 . .. COL%|
00001f30  2c 43 4f 4c 32 25 3a c8  94 20 54 4e 54 25 2c 54  |,COL2%:.. TNT%,T|
00001f40  4e 54 32 25 3a e6 20 43  4f 4c 25 20 c8 9c 20 54  |NT2%:. COL% .. T|
00001f50  4e 54 25 3a c8 93 20 c8  90 20 31 30 34 30 2c 38  |NT%:.. .. 1040,8|
00001f60  39 32 2c 39 32 2c 33 38  3a e6 20 43 4f 4c 32 25  |92,92,38:. COL2%|
00001f70  20 c8 9c 20 54 4e 54 32  25 3a c8 93 20 c8 90 20  | .. TNT2%:.. .. |
00001f80  31 31 33 32 2c 38 39 32  2c 39 30 2c 33 38 3a f5  |1132,892,90,38:.|
00001f90  3a c8 97 20 58 2c 59 2c  5a 3a fd 20 5a 3d 30 3a  |:.. X,Y,Z:. Z=0:|
00001fa0  e5 20 8d 74 40 47 0d 07  08 20 20 e7 20 58 25 3e  |. .t@G...  . X%>|
00001fb0  31 30 32 30 20 80 20 59  25 3e 38 37 39 20 8c 20  |1020 . Y%>879 . |
00001fc0  e5 20 8d 44 44 47 0d 07  12 1a 20 43 4f 4c 33 25  |. .DDG.... COL3%|
00001fd0  3d 43 4f 4c 25 3a 54 4e  54 33 25 3d 54 4e 54 25  |=COL%:TNT3%=TNT%|
00001fe0  0d 07 1c 20 20 43 4f 4c  25 3d b0 58 25 2c 59 25  |...  COL%=.X%,Y%|
00001ff0  29 3a 54 4e 54 25 3d c8  9c 28 58 25 2c 59 25 29  |):TNT%=..(X%,Y%)|
00002000  0d 07 26 39 20 e7 20 5a  25 3d 32 20 8c 20 43 4f  |..&9 . Z%=2 . CO|
00002010  4c 32 25 3d 43 4f 4c 25  3a 43 4f 4c 25 3d 43 4f  |L2%=COL%:COL%=CO|
00002020  4c 33 25 3a 54 4e 54 32  25 3d 54 4e 54 25 3a 54  |L3%:TNT2%=TNT%:T|
00002030  4e 54 25 3d 54 4e 54 33  25 0d 07 30 4e 20 e6 20  |NT%=TNT3%..0N . |
00002040  43 4f 4c 25 20 c8 9c 20  54 4e 54 25 3a c8 93 20  |COL% .. TNT%:.. |
00002050  c8 90 20 31 30 34 30 2c  38 39 32 2c 39 32 2c 33  |.. 1040,892,92,3|
00002060  38 3a e6 20 43 4f 4c 32  25 20 c8 9c 20 54 4e 54  |8:. COL2% .. TNT|
00002070  32 25 3a c8 93 20 c8 90  20 31 31 33 32 2c 38 39  |2%:.. .. 1132,89|
00002080  32 2c 39 30 2c 33 38 0d  07 3a 0b 20 e5 20 8d 74  |2,90,38..:. . .t|
00002090  40 47 0d 07 44 20 20 20  e7 20 59 25 3c 39 36 30  |@G..D   . Y%<960|
000020a0  20 84 20 59 25 3e 39 39  30 20 8c 20 e5 20 8d 74  | . Y%>990 . . .t|
000020b0  68 47 0d 07 4e 22 20 20  e7 20 58 25 3c 31 31 33  |hG..N"  . X%<113|
000020c0  34 20 84 20 58 25 3e 31  32 30 30 20 8c 20 e5 20  |4 . X%>1200 . . |
000020d0  8d 74 68 47 0d 07 58 21  20 e7 20 58 25 3e 31 31  |.thG..X! . X%>11|
000020e0  33 34 20 80 20 58 25 3c  31 31 35 30 20 8c 20 54  |34 . X%<1150 . T|
000020f0  4e 54 25 3d 30 0d 07 62  22 20 e7 20 58 25 3e 31  |NT%=0..b" . X%>1|
00002100  31 35 30 20 80 20 58 25  3c 31 31 36 36 20 8c 20  |150 . X%<1166 . |
00002110  54 4e 54 25 3d 36 34 0d  07 6c 23 20 e7 20 58 25  |TNT%=64..l# . X%|
00002120  3e 31 31 36 36 20 80 20  58 25 3c 31 31 38 32 20  |>1166 . X%<1182 |
00002130  8c 20 54 4e 54 25 3d 31  32 38 0d 07 76 23 20 e7  |. TNT%=128..v# .|
00002140  20 58 25 3e 31 31 38 32  20 80 20 58 25 3c 31 32  | X%>1182 . X%<12|
00002150  30 30 20 8c 20 54 4e 54  25 3d 31 39 32 0d 07 80  |00 . TNT%=192...|
00002160  8e 20 fb 20 36 33 20 c8  9c 20 30 3a fb 20 31 39  |. . 63 .. 0:. 19|
00002170  32 3a f1 8a 36 35 2c 31  29 3b 22 20 54 49 4e 54  |2:..65,1);" TINT|
00002180  3d 22 3b 3a fb 20 43 4f  4c 25 2b 31 32 38 20 c8  |=";:. COL%+128 .|
00002190  9c 20 30 3a fb 20 36 33  20 c8 9c 20 31 39 32 3a  |. 0:. 63 .. 192:|
000021a0  f1 22 20 22 3b 3a fb 20  43 4f 4c 25 2b 31 32 38  |." ";:. COL%+128|
000021b0  20 c8 9c 20 36 34 3a f1  22 20 22 3b 3a fb 20 43  | .. 64:." ";:. C|
000021c0  4f 4c 25 2b 31 32 38 20  c8 9c 20 31 32 38 3a f1  |OL%+128 .. 128:.|
000021d0  22 20 22 3b 3a fb 20 43  4f 4c 25 2b 31 32 38 20  |" ";:. COL%+128 |
000021e0  c8 9c 20 31 39 32 3a f1  22 20 22 0d 07 8a 83 20  |.. 192:." ".... |
000021f0  e7 20 54 4e 54 25 3d 30  20 8c 20 fb 20 43 4f 4c  |. TNT%=0 . . COL|
00002200  25 2b 31 32 38 20 c8 9c  20 30 3a f1 8a 37 31 2c  |%+128 .. 0:..71,|
00002210  31 29 3b 22 78 22 20 8b  20 e7 20 54 4e 54 25 3d  |1);"x" . . TNT%=|
00002220  36 34 20 8c 20 fb 20 43  4f 4c 25 2b 31 32 38 20  |64 . . COL%+128 |
00002230  c8 9c 20 36 34 3a f1 8a  37 32 2c 31 29 3b 22 78  |.. 64:..72,1);"x|
00002240  22 20 8b 20 e7 20 54 4e  54 25 3d 31 32 38 20 8c  |" . . TNT%=128 .|
00002250  20 fb 20 43 4f 4c 25 2b  31 32 38 20 c8 9c 20 31  | . COL%+128 .. 1|
00002260  32 38 3a f1 8a 37 33 2c  31 29 3b 22 78 22 0d 07  |28:..73,1);"x"..|
00002270  94 39 20 fb 20 36 33 20  c8 9c 20 30 3a e7 20 54  |.9 . 63 .. 0:. T|
00002280  4e 54 25 3d 31 39 32 20  8c 20 fb 20 43 4f 4c 25  |NT%=192 . . COL%|
00002290  2b 31 32 38 20 c8 9c 20  31 39 32 3a f1 8a 37 34  |+128 .. 192:..74|
000022a0  2c 31 29 3b 22 78 22 0d  07 9e 4e 20 e6 20 43 4f  |,1);"x"...N . CO|
000022b0  4c 25 20 c8 9c 20 54 4e  54 25 3a c8 93 20 c8 90  |L% .. TNT%:.. ..|
000022c0  20 31 30 34 30 2c 38 39  32 2c 39 32 2c 33 38 3a  | 1040,892,92,38:|
000022d0  e6 20 43 4f 4c 32 25 20  c8 9c 20 54 4e 54 32 25  |. COL2% .. TNT2%|
000022e0  3a c8 93 20 c8 90 20 31  31 33 32 2c 38 39 32 2c  |:.. .. 1132,892,|
000022f0  39 30 2c 33 38 0d 07 a8  17 20 ef 20 32 34 2c 30  |90,38.... . 24,0|
00002300  3b 30 3b 31 32 37 39 3b  38 32 39 3b 0d 07 b2 06  |;0;1279;829;....|
00002310  20 e1 0d 07 bc 0b 20 dd  f2 66 69 6c 6c 0d 07 c6  | ..... ..fill...|
00002320  18 20 ef 20 32 34 2c 30  3b 30 3b 31 32 37 39 3b  |. . 24,0;0;1279;|
00002330  31 30 32 33 3b 0d 07 d0  25 20 e6 20 34 2c 33 3a  |1023;...% . 4,3:|
00002340  c8 93 20 c8 90 20 31 31  30 2c 39 32 35 2c 36 35  |.. .. 110,925,65|
00002350  2c 36 35 3a e6 20 43 4f  4c 25 0d 07 da 0c 20 f2  |,65:. COL%.... .|
00002360  62 6f 75 6e 63 65 0d 07  e4 0a 20 4f 54 54 3d 31  |bounce.... OTT=1|
00002370  0d 07 ee 17 20 ef 20 32  34 2c 30 3b 30 3b 31 32  |.... . 24,0;0;12|
00002380  37 39 3b 38 32 39 3b 0d  07 f8 06 20 f5 0d 08 02  |79;829;.... ....|
00002390  10 20 c8 97 20 58 25 2c  59 25 2c 5a 25 0d 08 0c  |. .. X%,Y%,Z%...|
000023a0  0a 20 f2 69 6d 66 6f 0d  08 16 8a 20 e7 20 5a 25  |. .imfo.... . Z%|
000023b0  3d 34 20 8c 20 54 25 3d  30 3a f5 3a 50 50 3d c8  |=4 . T%=0:.:PP=.|
000023c0  9c 28 58 25 2c 59 25 29  3a e6 20 b0 58 25 2c 59  |.(X%,Y%):. .X%,Y|
000023d0  25 29 2b 31 32 38 20 c8  9c 20 50 50 3a e6 20 43  |%)+128 .. PP:. C|
000023e0  4f 4c 25 20 c8 9c 20 54  4e 54 25 3a c8 90 20 58  |OL% .. TNT%:.. X|
000023f0  25 2c 59 25 3a 20 54 25  3d 54 25 2b 36 34 3a 4b  |%,Y%: T%=T%+64:K|
00002400  25 3d b0 58 25 2c 59 25  29 3a fd 20 4b 25 3d 43  |%=.X%,Y%):. K%=C|
00002410  4f 4c 25 20 84 20 54 25  3d 32 35 36 3a f5 3a c8  |OL% . T%=256:.:.|
00002420  97 20 58 25 2c 59 25 2c  5a 25 3a fd 20 5a 25 3d  |. X%,Y%,Z%:. Z%=|
00002430  30 0d 08 20 b9 20 f4 20  4f 4c 44 4c 49 4e 45 3e  |0.. . . OLDLINE>|
00002440  3e 3e 49 46 20 5a 25 3d  34 20 54 48 45 4e 20 54  |>>IF Z%=4 THEN T|
00002450  25 3d 30 3a 52 45 50 45  41 54 3a 47 43 4f 4c 20  |%=0:REPEAT:GCOL |
00002460  50 4f 49 4e 54 28 58 25  2c 59 25 29 2b 31 32 38  |POINT(X%,Y%)+128|
00002470  20 54 49 4e 54 20 54 25  3a 47 43 4f 4c 20 43 4f  | TINT T%:GCOL CO|
00002480  4c 25 20 54 49 4e 54 20  54 4e 54 25 3a 46 49 4c  |L% TINT TNT%:FIL|
00002490  4c 20 58 25 2c 59 25 3a  20 54 25 3d 54 25 2b 36  |L X%,Y%: T%=T%+6|
000024a0  34 3a 4b 25 3d 50 4f 49  4e 54 28 58 25 2c 59 25  |4:K%=POINT(X%,Y%|
000024b0  29 3a 55 4e 54 49 4c 20  4b 25 3d 43 4f 4c 25 20  |):UNTIL K%=COL% |
000024c0  4f 52 20 54 25 3d 32 35  36 3a 52 45 50 45 41 54  |OR T%=256:REPEAT|
000024d0  3a 4d 4f 55 53 45 20 58  25 2c 59 25 2c 5a 25 3a  |:MOUSE X%,Y%,Z%:|
000024e0  55 4e 54 49 4c 20 5a 25  3d 30 0d 08 2a 0c 20 f2  |UNTIL Z%=0..*. .|
000024f0  6f 6e 5f 6f 66 66 0d 08  34 0b 20 fd 20 5a 25 3d  |on_off..4. . Z%=|
00002500  31 0d 08 3e 57 20 e7 20  4d 45 4e 55 3d 31 20 8c  |1..>W . MENU=1 .|
00002510  20 ef 20 32 34 2c 30 3b  30 3b 31 32 37 39 3b 31  | . 24,0;0;1279;1|
00002520  30 32 33 3b 3a e6 20 34  2c 30 3a c8 93 20 c8 90  |023;:. 4,0:.. ..|
00002530  20 31 31 30 2c 39 32 35  2c 36 35 2c 36 35 3a e6  | 110,925,65,65:.|
00002540  20 43 4f 4c 25 3a ef 20  32 34 2c 30 3b 30 3b 31  | COL%:. 24,0;0;1|
00002550  32 37 39 3b 38 32 39 3b  0d 08 48 0a 20 4f 54 54  |279;829;..H. OTT|
00002560  3d 30 0d 08 52 06 20 e1  0d 08 5c 0b 20 dd f2 72  |=0..R. ...\. ..r|
00002570  65 63 74 0d 08 66 0c 20  f2 62 6f 75 6e 63 65 0d  |ect..f. .bounce.|
00002580  08 70 57 20 e7 20 4d 45  4e 55 3d 31 20 8c 20 ef  |.pW . MENU=1 . .|
00002590  20 32 34 2c 30 3b 30 3b  31 32 37 39 3b 31 30 32  | 24,0;0;1279;102|
000025a0  33 3b 3a e6 20 34 2c 30  3a c8 93 20 c8 90 20 31  |3;:. 4,0:.. .. 1|
000025b0  39 30 2c 39 32 35 2c 36  35 2c 36 35 3a e6 20 43  |90,925,65,65:. C|
000025c0  4f 4c 25 3a ef 20 32 34  2c 30 3b 30 3b 31 32 37  |OL%:. 24,0;0;127|
000025d0  39 3b 38 32 39 3b 0d 08  7a 17 20 50 41 52 3d 31  |9;829;..z. PAR=1|
000025e0  20 3a 4f 54 54 3d 32 3a  58 31 25 3d 30 0d 08 84  | :OTT=2:X1%=0...|
000025f0  06 20 f5 0d 08 8e 0d 20  f2 61 6e 6f 74 68 65 72  |. ..... .another|
00002600  0d 08 98 10 20 c8 97 20  58 25 2c 59 25 2c 5a 25  |.... .. X%,Y%,Z%|
00002610  0d 08 a2 31 20 e7 20 50  41 52 3d 31 20 80 20 5a  |...1 . PAR=1 . Z|
00002620  25 3d 34 20 8c 20 58 31  25 3d 58 25 3a 59 31 25  |%=4 . X1%=X%:Y1%|
00002630  3d 59 25 3a 50 41 52 3d  32 3a f2 62 6f 75 6e 63  |=Y%:PAR=2:.bounc|
00002640  65 0d 08 ac 5e 20 e7 20  50 41 52 3d 32 20 8c 20  |e...^ . PAR=2 . |
00002650  e6 20 34 2c 30 3a c8 93  20 58 31 25 2c 59 31 25  |. 4,0:.. X1%,Y1%|
00002660  2c 58 25 2d 58 31 25 2c  59 25 2d 59 31 25 3a c8  |,X%-X1%,Y%-Y1%:.|
00002670  96 3a c8 96 3a c8 96 3a  c8 93 20 58 31 25 2c 59  |.:..:..:.. X1%,Y|
00002680  31 25 2c 58 25 2d 58 31  25 2c 59 25 2d 59 31 25  |1%,X%-X1%,Y%-Y1%|
00002690  3a e6 20 43 4f 4c 25 20  c8 9c 20 54 4e 54 25 0d  |:. COL% .. TNT%.|
000026a0  08 b6 92 20 e7 20 53 48  41 44 31 3d 31 20 8c 20  |... . SHAD1=1 . |
000026b0  e7 20 50 41 52 3d 32 20  80 20 5a 25 3d 34 20 8c  |. PAR=2 . Z%=4 .|
000026c0  20 e6 20 43 4f 4c 32 25  20 c8 9c 20 54 4e 54 32  | . COL2% .. TNT2|
000026d0  25 3a 20 c8 93 20 58 31  25 2b 53 48 41 44 41 43  |%: .. X1%+SHADAC|
000026e0  25 2c 59 31 25 2b 53 48  41 44 44 4e 25 2c 58 25  |%,Y1%+SHADDN%,X%|
000026f0  2d 58 31 25 2c 59 25 2d  59 31 25 3a e7 20 4e 4e  |-X1%,Y%-Y1%:. NN|
00002700  25 3d 31 20 8c 20 c8 93  20 c8 90 20 58 31 25 2b  |%=1 . .. .. X1%+|
00002710  53 48 41 44 41 43 25 2c  59 31 25 2b 53 48 41 44  |SHADAC%,Y1%+SHAD|
00002720  44 4e 25 2c 58 25 2d 58  31 25 2c 59 25 2d 59 31  |DN%,X%-X1%,Y%-Y1|
00002730  25 0d 08 c0 72 20 e7 20  50 41 52 3d 32 20 80 20  |%...r . PAR=2 . |
00002740  5a 25 3d 34 20 8c 20 e6  20 43 4f 4c 25 20 c8 9c  |Z%=4 . . COL% ..|
00002750  20 54 4e 54 25 3a 50 41  52 3d 31 3a f2 62 6f 75  | TNT%:PAR=1:.bou|
00002760  6e 63 65 3a 20 c8 93 20  58 31 25 2c 59 31 25 2c  |nce: .. X1%,Y1%,|
00002770  58 25 2d 58 31 25 2c 59  25 2d 59 31 25 3a e7 20  |X%-X1%,Y%-Y1%:. |
00002780  4e 4e 25 3d 31 20 8c 20  c8 93 20 c8 90 20 58 31  |NN%=1 . .. .. X1|
00002790  25 2c 59 31 25 2c 58 25  2d 58 31 25 2c 59 25 2d  |%,Y1%,X%-X1%,Y%-|
000027a0  59 31 25 0d 08 ca 0c 20  f2 6f 6e 5f 6f 66 66 0d  |Y1%.... .on_off.|
000027b0  08 d4 0b 20 fd 20 5a 25  3d 31 0d 08 de 57 20 e7  |... . Z%=1...W .|
000027c0  20 4d 45 4e 55 3d 31 20  8c 20 ef 20 32 34 2c 30  | MENU=1 . . 24,0|
000027d0  3b 30 3b 31 32 37 39 3b  31 30 32 33 3b 3a e6 20  |;0;1279;1023;:. |
000027e0  34 2c 30 3a c8 93 20 c8  90 20 31 39 30 2c 39 32  |4,0:.. .. 190,92|
000027f0  35 2c 36 35 2c 36 35 3a  e6 20 43 4f 4c 25 3a ef  |5,65,65:. COL%:.|
00002800  20 32 34 2c 30 3b 30 3b  31 32 37 39 3b 38 32 39  | 24,0;0;1279;829|
00002810  3b 0d 08 e8 0c 20 4f 54  54 3d 30 3a e1 0d 08 f2  |;.... OTT=0:....|
00002820  0b 20 dd f2 63 69 72 63  0d 08 fc 0c 20 f2 62 6f  |. ..circ.... .bo|
00002830  75 6e 63 65 0d 09 06 57  20 e7 20 4d 45 4e 55 3d  |unce...W . MENU=|
00002840  31 20 8c 20 ef 20 32 34  2c 30 3b 30 3b 31 32 37  |1 . . 24,0;0;127|
00002850  39 3b 31 30 32 33 3b 3a  e6 20 34 2c 30 3a c8 93  |9;1023;:. 4,0:..|
00002860  20 c8 90 20 32 37 30 2c  39 32 35 2c 36 35 2c 36  | .. 270,925,65,6|
00002870  35 3a e6 20 43 4f 4c 25  3a ef 20 32 34 2c 30 3b  |5:. COL%:. 24,0;|
00002880  30 3b 31 32 37 39 3b 38  32 39 3b 0d 09 10 18 20  |0;1279;829;.... |
00002890  50 41 52 3d 31 20 3a 4f  54 54 3d 33 20 3a 58 31  |PAR=1 :OTT=3 :X1|
000028a0  25 3d 30 0d 09 1a 06 20  f5 0d 09 24 19 20 c8 97  |%=0.... ...$. ..|
000028b0  20 58 25 2c 59 25 2c 5a  25 3a f2 61 6e 6f 74 68  | X%,Y%,Z%:.anoth|
000028c0  65 72 0d 09 2e 10 20 c8  97 20 58 25 2c 59 25 2c  |er.... .. X%,Y%,|
000028d0  5a 25 0d 09 38 31 20 e7  20 50 41 52 3d 31 20 80  |Z%..81 . PAR=1 .|
000028e0  20 5a 25 3d 34 20 8c 20  58 31 25 3d 58 25 3a 59  | Z%=4 . X1%=X%:Y|
000028f0  31 25 3d 59 25 3a 50 41  52 3d 32 3a f2 62 6f 75  |1%=Y%:PAR=2:.bou|
00002900  6e 63 65 0d 09 42 8d 20  e7 20 50 41 52 3d 32 20  |nce..B. . PAR=2 |
00002910  80 20 58 25 3c 3e 58 31  25 20 8c 20 e6 20 34 2c  |. X%<>X1% . . 4,|
00002920  30 3a c8 9d 20 20 58 31  25 2c 59 31 25 2c 28 58  |0:..  X1%,Y1%,(X|
00002930  25 2d 58 31 25 29 2c 28  59 25 2d 59 31 25 29 2c  |%-X1%),(Y%-Y1%),|
00002940  28 28 58 25 29 2d 58 31  25 29 2f 35 30 3a c8 96  |((X%)-X1%)/50:..|
00002950  3a c8 96 3a c8 96 3a c8  9d 20 58 31 25 2c 59 31  |:..:..:.. X1%,Y1|
00002960  25 2c 28 58 25 2d 58 31  25 29 2c 28 59 25 2d 59  |%,(X%-X1%),(Y%-Y|
00002970  31 25 29 2c 28 28 58 25  29 2d 58 31 25 29 2f 35  |1%),((X%)-X1%)/5|
00002980  30 3a e6 20 43 4f 4c 25  20 c8 9c 20 54 4e 54 25  |0:. COL% .. TNT%|
00002990  0d 09 4c c3 20 e7 20 50  41 52 3d 32 20 80 20 5a  |..L. . PAR=2 . Z|
000029a0  25 3d 34 20 80 20 53 48  41 44 31 3d 31 20 80 20  |%=4 . SHAD1=1 . |
000029b0  58 25 3c 3e 58 31 25 20  8c 20 e6 20 43 4f 4c 32  |X%<>X1% . . COL2|
000029c0  25 20 c8 9c 20 54 4e 54  32 25 3a c8 9d 20 58 31  |% .. TNT2%:.. X1|
000029d0  25 2b 53 48 41 44 41 43  25 2c 59 31 25 2b 53 48  |%+SHADAC%,Y1%+SH|
000029e0  41 44 44 4e 25 2c 28 58  25 2d 58 31 25 29 2c 28  |ADDN%,(X%-X1%),(|
000029f0  59 25 2d 59 31 25 29 2c  28 28 2e 34 2b 58 25 29  |Y%-Y1%),((.4+X%)|
00002a00  2d 58 31 25 29 2f 35 30  3a e7 20 4e 4e 25 3d 31  |-X1%)/50:. NN%=1|
00002a10  20 8c 20 c8 9d 20 c8 90  20 58 31 25 2b 53 48 41  | . .. .. X1%+SHA|
00002a20  44 41 43 25 2c 59 31 25  2b 53 48 41 44 44 4e 25  |DAC%,Y1%+SHADDN%|
00002a30  2c 28 58 25 2d 58 31 25  29 2c 28 59 25 2d 59 31  |,(X%-X1%),(Y%-Y1|
00002a40  25 29 2c 28 28 2e 34 2b  58 25 29 2d 58 31 25 29  |%),((.4+X%)-X1%)|
00002a50  2f 35 30 0d 09 56 a5 20  e7 20 50 41 52 3d 32 20  |/50..V. . PAR=2 |
00002a60  80 20 5a 25 3d 34 20 80  20 58 25 3c 3e 58 31 25  |. Z%=4 . X%<>X1%|
00002a70  20 8c 20 e6 20 43 4f 4c  25 20 c8 9c 20 54 4e 54  | . . COL% .. TNT|
00002a80  25 3a c8 9d 20 58 31 25  2c 59 31 25 2c 28 58 25  |%:.. X1%,Y1%,(X%|
00002a90  2d 58 31 25 29 2c 28 59  25 2d 59 31 25 29 2c 28  |-X1%),(Y%-Y1%),(|
00002aa0  28 2e 34 2b 58 25 29 2d  58 31 25 29 2f 35 30 3a  |(.4+X%)-X1%)/50:|
00002ab0  50 41 52 3d 31 3a f2 62  6f 75 6e 63 65 3a e7 20  |PAR=1:.bounce:. |
00002ac0  4e 4e 25 3d 31 20 8c 20  c8 9d 20 c8 90 20 58 31  |NN%=1 . .. .. X1|
00002ad0  25 2c 59 31 25 2c 28 58  25 2d 58 31 25 29 2c 28  |%,Y1%,(X%-X1%),(|
00002ae0  59 25 2d 59 31 25 29 2c  28 28 2e 34 2b 58 25 29  |Y%-Y1%),((.4+X%)|
00002af0  2d 58 31 25 29 2f 35 30  0d 09 60 0c 20 f2 6f 6e  |-X1%)/50..`. .on|
00002b00  5f 6f 66 66 0d 09 6a 0b  20 fd 20 5a 25 3d 31 0d  |_off..j. . Z%=1.|
00002b10  09 74 57 20 e7 20 4d 45  4e 55 3d 31 20 8c 20 ef  |.tW . MENU=1 . .|
00002b20  20 32 34 2c 30 3b 30 3b  31 32 37 39 3b 31 30 32  | 24,0;0;1279;102|
00002b30  33 3b 3a e6 20 34 2c 30  3a c8 93 20 c8 90 20 32  |3;:. 4,0:.. .. 2|
00002b40  37 30 2c 39 32 35 2c 36  35 2c 36 35 3a e6 20 43  |70,925,65,65:. C|
00002b50  4f 4c 25 3a ef 20 32 34  2c 30 3b 30 3b 31 32 37  |OL%:. 24,0;0;127|
00002b60  39 3b 38 32 39 3b 0d 09  7e 0c 20 4f 54 54 3d 30  |9;829;..~. OTT=0|
00002b70  3a e1 0d 09 88 0a 20 dd  f2 74 72 69 0d 09 92 0c  |:..... ..tri....|
00002b80  20 f2 62 6f 75 6e 63 65  0d 09 9c 57 20 e7 20 4d  | .bounce...W . M|
00002b90  45 4e 55 3d 31 20 8c 20  ef 20 32 34 2c 30 3b 30  |ENU=1 . . 24,0;0|
00002ba0  3b 31 32 37 39 3b 31 30  32 33 3b 3a e6 20 34 2c  |;1279;1023;:. 4,|
00002bb0  30 3a c8 93 20 c8 90 20  33 35 30 2c 39 32 35 2c  |0:.. .. 350,925,|
00002bc0  36 35 2c 36 35 3a e6 20  43 4f 4c 25 3a ef 20 32  |65,65:. COL%:. 2|
00002bd0  34 2c 30 3b 30 3b 31 32  37 39 3b 38 32 39 3b 0d  |4,0;0;1279;829;.|
00002be0  09 a6 11 20 50 41 52 3d  31 20 3a 4f 54 54 3d 34  |... PAR=1 :OTT=4|
00002bf0  0d 09 b0 06 20 f5 0d 09  ba 0d 20 f2 61 6e 6f 74  |.... ..... .anot|
00002c00  68 65 72 0d 09 c4 10 20  c8 97 20 58 25 2c 59 25  |her.... .. X%,Y%|
00002c10  2c 5a 25 0d 09 ce 31 20  e7 20 50 41 52 3d 31 20  |,Z%...1 . PAR=1 |
00002c20  80 20 5a 25 3d 34 20 8c  20 58 31 25 3d 58 25 3a  |. Z%=4 . X1%=X%:|
00002c30  59 31 25 3d 59 25 3a 50  41 52 3d 32 3a f2 62 6f  |Y1%=Y%:PAR=2:.bo|
00002c40  75 6e 63 65 0d 09 d8 54  20 e7 20 50 41 52 3d 32  |unce...T . PAR=2|
00002c50  20 8c 20 e6 20 34 2c 30  3a 86 20 58 31 25 2c 59  | . . 4,0:. X1%,Y|
00002c60  31 25 2c 28 58 25 29 2c  28 59 25 29 3a c8 96 3a  |1%,(X%),(Y%):..:|
00002c70  c8 96 3a c8 96 3a 86 20  58 31 25 2c 59 31 25 2c  |..:..:. X1%,Y1%,|
00002c80  28 58 25 29 2c 28 59 25  29 3a e6 20 43 4f 4c 25  |(X%),(Y%):. COL%|
00002c90  20 c8 9c 20 54 4e 54 25  0d 09 e2 90 20 e7 20 50  | .. TNT%.... . P|
00002ca0  41 52 3d 33 20 8c 20 e6  20 34 2c 30 3a 86 20 58  |AR=3 . . 4,0:. X|
00002cb0  31 25 2c 59 31 25 2c 58  32 25 2c 59 32 25 3a 86  |1%,Y1%,X2%,Y2%:.|
00002cc0  20 58 32 25 2c 59 32 25  2c 58 25 2c 59 25 3a 86  | X2%,Y2%,X%,Y%:.|
00002cd0  20 58 25 2c 59 25 2c 58  31 25 2c 59 31 25 3a c8  | X%,Y%,X1%,Y1%:.|
00002ce0  96 3a c8 96 3a c8 96 3a  86 20 58 31 25 2c 59 31  |.:..:..:. X1%,Y1|
00002cf0  25 2c 58 32 25 2c 59 32  25 3a 86 20 58 32 25 2c  |%,X2%,Y2%:. X2%,|
00002d00  59 32 25 2c 58 25 2c 59  25 3a 86 20 58 25 2c 59  |Y2%,X%,Y%:. X%,Y|
00002d10  25 2c 58 31 25 2c 59 31  25 3a e6 20 43 4f 4c 25  |%,X1%,Y1%:. COL%|
00002d20  20 c8 9c 20 54 4e 54 25  0d 09 ec 31 20 e7 20 50  | .. TNT%...1 . P|
00002d30  41 52 3d 32 20 80 20 5a  25 3d 34 20 8c 20 50 41  |AR=2 . Z%=4 . PA|
00002d40  52 3d 33 3a 58 32 25 3d  58 25 3a 59 32 25 3d 59  |R=3:X2%=X%:Y2%=Y|
00002d50  25 3a f2 62 6f 75 6e 63  65 0d 09 f6 c2 20 e7 20  |%:.bounce.... . |
00002d60  50 41 52 3d 33 20 80 20  5a 25 3d 34 20 80 20 53  |PAR=3 . Z%=4 . S|
00002d70  48 41 44 31 3d 31 20 8c  20 e6 20 43 4f 4c 32 25  |HAD1=1 . . COL2%|
00002d80  20 c8 9c 20 54 4e 54 32  25 3a 86 20 58 31 25 2b  | .. TNT2%:. X1%+|
00002d90  53 48 41 44 41 43 25 2c  59 31 25 2b 53 48 41 44  |SHADAC%,Y1%+SHAD|
00002da0  44 4e 25 2c 58 32 25 2b  53 48 41 44 41 43 25 2c  |DN%,X2%+SHADAC%,|
00002db0  59 32 25 2b 53 48 41 44  44 4e 25 3a 86 20 58 32  |Y2%+SHADDN%:. X2|
00002dc0  25 2b 53 48 41 44 41 43  25 2c 59 32 25 2b 53 48  |%+SHADAC%,Y2%+SH|
00002dd0  41 44 44 4e 25 2c 58 25  2b 53 48 41 44 41 43 25  |ADDN%,X%+SHADAC%|
00002de0  2c 59 25 2b 53 48 41 44  44 4e 25 3a 86 20 58 25  |,Y%+SHADDN%:. X%|
00002df0  2b 53 48 41 44 41 43 25  2c 59 25 2b 53 48 41 44  |+SHADAC%,Y%+SHAD|
00002e00  44 4e 25 2c 58 31 25 2b  53 48 41 44 41 43 25 2c  |DN%,X1%+SHADAC%,|
00002e10  59 31 25 2b 53 48 41 44  44 4e 25 0d 0a 00 78 20  |Y1%+SHADDN%...x |
00002e20  e7 20 50 41 52 3d 33 20  80 20 5a 25 3d 34 20 80  |. PAR=3 . Z%=4 .|
00002e30  20 53 48 41 44 31 3d 31  20 8c 20 e7 20 4e 4e 25  | SHAD1=1 . . NN%|
00002e40  3d 31 20 8c 20 ec 20 58  31 25 2b 53 48 41 44 41  |=1 . . X1%+SHADA|
00002e50  43 25 2c 59 31 25 2b 53  48 41 44 44 4e 25 3a ec  |C%,Y1%+SHADDN%:.|
00002e60  20 58 32 25 2b 53 48 41  44 41 43 25 2c 59 32 25  | X2%+SHADAC%,Y2%|
00002e70  2b 53 48 41 44 44 4e 25  3a f0 20 38 35 2c 58 25  |+SHADDN%:. 85,X%|
00002e80  2b 53 48 41 44 41 43 25  2c 59 25 2b 53 48 41 44  |+SHADAC%,Y%+SHAD|
00002e90  44 4e 25 0d 0a 0a 8c 20  e7 20 50 41 52 3d 33 20  |DN%.... . PAR=3 |
00002ea0  80 20 5a 25 3d 34 20 8c  20 e6 20 43 4f 4c 25 20  |. Z%=4 . . COL% |
00002eb0  c8 9c 54 4e 54 25 3a 86  20 58 31 25 2c 59 31 25  |..TNT%:. X1%,Y1%|
00002ec0  2c 58 32 25 2c 59 32 25  3a 86 20 58 32 25 2c 59  |,X2%,Y2%:. X2%,Y|
00002ed0  32 25 2c 58 25 2c 59 25  3a 86 20 58 25 2c 59 25  |2%,X%,Y%:. X%,Y%|
00002ee0  2c 58 31 25 2c 59 31 25  3a 50 41 52 3d 31 3a f2  |,X1%,Y1%:PAR=1:.|
00002ef0  62 6f 75 6e 63 65 3a e7  20 4e 4e 25 3d 31 20 8c  |bounce:. NN%=1 .|
00002f00  20 ec 20 58 31 25 2c 59  31 25 3a ec 20 58 32 25  | . X1%,Y1%:. X2%|
00002f10  2c 59 32 25 3a f0 20 38  35 2c 58 25 2c 59 25 0d  |,Y2%:. 85,X%,Y%.|
00002f20  0a 14 0c 20 f2 6f 6e 5f  6f 66 66 0d 0a 1e 0b 20  |... .on_off.... |
00002f30  fd 20 5a 25 3d 31 0d 0a  28 57 20 e7 20 4d 45 4e  |. Z%=1..(W . MEN|
00002f40  55 3d 31 20 8c 20 ef 20  32 34 2c 30 3b 30 3b 31  |U=1 . . 24,0;0;1|
00002f50  32 37 39 3b 31 30 32 33  3b 3a e6 20 34 2c 30 3a  |279;1023;:. 4,0:|
00002f60  c8 93 20 c8 90 20 33 35  30 2c 39 32 35 2c 36 35  |.. .. 350,925,65|
00002f70  2c 36 35 3a e6 20 43 4f  4c 25 3a ef 20 32 34 2c  |,65:. COL%:. 24,|
00002f80  30 3b 30 3b 31 32 37 39  3b 38 32 39 3b 0d 0a 32  |0;0;1279;829;..2|
00002f90  0c 20 4f 54 54 3d 30 3a  e1 0d 0a 3c 0b 20 dd f2  |. OTT=0:...<. ..|
00002fa0  61 72 65 61 0d 0a 46 0c  20 f2 62 6f 75 6e 63 65  |area..F. .bounce|
00002fb0  0d 0a 50 10 20 50 41 52  3d 31 3a 43 4e 54 3d 30  |..P. PAR=1:CNT=0|
00002fc0  0d 0a 5a 06 20 f5 0d 0a  64 10 20 c8 97 20 58 25  |..Z. ...d. .. X%|
00002fd0  2c 59 25 2c 5a 25 0d 0a  6e 31 20 e7 20 50 41 52  |,Y%,Z%..n1 . PAR|
00002fe0  3d 31 20 80 20 5a 25 3d  34 20 8c 20 58 31 25 3d  |=1 . Z%=4 . X1%=|
00002ff0  58 25 3a 59 31 25 3d 59  25 3a 50 41 52 3d 32 3a  |X%:Y1%=Y%:PAR=2:|
00003000  f2 62 6f 75 6e 63 65 0d  0a 78 79 20 e7 20 50 41  |.bounce..xy . PA|
00003010  52 3d 32 20 8c 20 e6 20  34 2c 30 3a ff 28 22 2a  |R=2 . . 4,0:.("*|
00003020  46 58 31 39 22 29 3a c8  93 20 c8 90 20 58 31 25  |FX19"):.. .. X1%|
00003030  2c 59 31 25 2c 28 58 25  2d 58 31 25 29 2c 28 59  |,Y1%,(X%-X1%),(Y|
00003040  25 2d 59 31 25 29 3a ff  28 22 2a 46 58 31 39 22  |%-Y1%):.("*FX19"|
00003050  29 3a c8 93 20 c8 90 20  58 31 25 2c 59 31 25 2c  |):.. .. X1%,Y1%,|
00003060  28 58 25 2d 58 31 25 29  2c 28 59 25 2d 59 31 25  |(X%-X1%),(Y%-Y1%|
00003070  29 3a e6 20 43 4f 4c 25  20 c8 9c 20 54 4e 54 25  |):. COL% .. TNT%|
00003080  0d 0a 82 0c 20 f2 6f 6e  5f 6f 66 66 0d 0a 8c 33  |.... .on_off...3|
00003090  20 e7 20 50 41 52 3d 32  20 80 20 5a 25 3d 34 20  | . PAR=2 . Z%=4 |
000030a0  8c 20 58 32 25 3d 58 25  3a 59 32 25 3d 59 25 3a  |. X2%=X%:Y2%=Y%:|
000030b0  f2 62 6f 75 6e 63 65 3a  43 4e 54 3d 31 3a e1 0d  |.bounce:CNT=1:..|
000030c0  0a 96 0b 20 fd 20 5a 25  3d 31 0d 0a a0 0c 20 f2  |... . Z%=1.... .|
000030d0  62 6f 75 6e 63 65 0d 0a  aa 06 20 e1 0d 0a b4 0c  |bounce.... .....|
000030e0  20 dd f2 66 6c 69 70 31  0d 0a be 0a 20 4f 54 54  | ..flip1.... OTT|
000030f0  3d 35 0d 0a c8 57 20 e7  20 4d 45 4e 55 3d 31 20  |=5...W . MENU=1 |
00003100  8c 20 ef 20 32 34 2c 30  3b 30 3b 31 32 37 39 3b  |. . 24,0;0;1279;|
00003110  31 30 32 33 3b 3a e6 20  34 2c 30 3a c8 93 20 c8  |1023;:. 4,0:.. .|
00003120  90 20 34 33 30 2c 39 32  35 2c 36 35 2c 36 35 3a  |. 430,925,65,65:|
00003130  e6 20 43 4f 4c 25 3a ef  20 32 34 2c 30 3b 30 3b  |. COL%:. 24,0;0;|
00003140  31 32 37 39 3b 38 32 39  3b 0d 0a d2 65 20 f2 61  |1279;829;...e .a|
00003150  72 65 61 3a e7 20 4f 54  54 3d 35 20 80 20 4d 45  |rea:. OTT=5 . ME|
00003160  4e 55 3d 31 20 8c 20 ef  20 32 34 2c 30 3b 30 3b  |NU=1 . . 24,0;0;|
00003170  31 32 37 39 3b 31 30 32  33 3b 3a e6 20 34 2c 30  |1279;1023;:. 4,0|
00003180  3a c8 93 20 c8 90 20 34  33 30 2c 39 32 35 2c 36  |:.. .. 430,925,6|
00003190  35 2c 36 35 3a e6 20 43  4f 4c 25 3a ef 20 32 34  |5,65:. COL%:. 24|
000031a0  2c 30 3b 30 3b 31 32 37  39 3b 38 32 39 3b 0d 0a  |,0;0;1279;829;..|
000031b0  dc 16 20 e7 20 43 4e 54  3d 30 20 8c 20 4f 54 54  |.. . CNT=0 . OTT|
000031c0  3d 30 3a e1 0d 0a e6 1b  20 e7 20 59 32 25 3c 59  |=0:..... . Y2%<Y|
000031d0  31 25 20 8c 20 c8 94 20  59 32 25 2c 59 31 25 0d  |1% . .. Y2%,Y1%.|
000031e0  0a f0 1b 20 e7 20 58 32  25 3c 58 31 25 20 8c 20  |... . X2%<X1% . |
000031f0  c8 94 20 58 32 25 2c 58  31 25 0d 0a fa 23 20 ec  |.. X2%,X1%...# .|
00003200  20 58 31 25 2c 59 31 25  3a ec 20 58 32 25 2c 59  | X1%,Y1%:. X2%,Y|
00003210  32 25 3a 2a 53 47 45 54  20 66 6c 69 70 0d 0b 04  |2%:*SGET flip...|
00003220  11 20 2a 53 46 4c 49 50  58 20 66 6c 69 70 0d 0b  |. *SFLIPX flip..|
00003230  0e 12 20 2a 53 43 48 4f  4f 53 45 20 66 6c 69 70  |.. *SCHOOSE flip|
00003240  0d 0b 18 20 20 f0 20 26  45 44 2c 58 31 25 2c 59  |...  . &ED,X1%,Y|
00003250  31 25 3a 2a 53 44 45 4c  45 54 45 20 66 6c 69 70  |1%:*SDELETE flip|
00003260  0d 0b 22 0a 20 4f 54 54  3d 30 0d 0b 2c 06 20 e1  |..". OTT=0..,. .|
00003270  0d 0b 36 0c 20 dd f2 66  6c 69 70 32 0d 0b 40 0a  |..6. ..flip2..@.|
00003280  20 4f 54 54 3d 36 0d 0b  4a 57 20 e7 20 4d 45 4e  | OTT=6..JW . MEN|
00003290  55 3d 31 20 8c 20 ef 20  32 34 2c 30 3b 30 3b 31  |U=1 . . 24,0;0;1|
000032a0  32 37 39 3b 31 30 32 33  3b 3a e6 20 34 2c 30 3a  |279;1023;:. 4,0:|
000032b0  c8 93 20 c8 90 20 35 31  30 2c 39 32 35 2c 36 35  |.. .. 510,925,65|
000032c0  2c 36 35 3a e6 20 43 4f  4c 25 3a ef 20 32 34 2c  |,65:. COL%:. 24,|
000032d0  30 3b 30 3b 31 32 37 39  3b 38 32 39 3b 0d 0b 54  |0;0;1279;829;..T|
000032e0  65 20 f2 61 72 65 61 3a  e7 20 4f 54 54 3d 36 20  |e .area:. OTT=6 |
000032f0  80 20 4d 45 4e 55 3d 31  20 8c 20 ef 20 32 34 2c  |. MENU=1 . . 24,|
00003300  30 3b 30 3b 31 32 37 39  3b 31 30 32 33 3b 3a e6  |0;0;1279;1023;:.|
00003310  20 34 2c 30 3a c8 93 20  c8 90 20 35 31 30 2c 39  | 4,0:.. .. 510,9|
00003320  32 35 2c 36 35 2c 36 35  3a e6 20 43 4f 4c 25 3a  |25,65,65:. COL%:|
00003330  ef 20 32 34 2c 30 3b 30  3b 31 32 37 39 3b 38 32  |. 24,0;0;1279;82|
00003340  39 3b 0d 0b 5e 16 20 e7  20 43 4e 54 3d 30 20 8c  |9;..^. . CNT=0 .|
00003350  20 4f 54 54 3d 30 3a e1  0d 0b 68 1b 20 e7 20 59  | OTT=0:...h. . Y|
00003360  32 25 3c 59 31 25 20 8c  20 c8 94 20 59 32 25 2c  |2%<Y1% . .. Y2%,|
00003370  59 31 25 0d 0b 72 1b 20  e7 20 58 32 25 3c 58 31  |Y1%..r. . X2%<X1|
00003380  25 20 8c 20 c8 94 20 58  32 25 2c 58 31 25 0d 0b  |% . .. X2%,X1%..|
00003390  7c 23 20 ec 20 58 31 25  2c 59 31 25 3a ec 20 58  ||# . X1%,Y1%:. X|
000033a0  32 25 2c 59 32 25 3a 2a  53 47 45 54 20 66 6c 69  |2%,Y2%:*SGET fli|
000033b0  70 0d 0b 86 11 20 2a 53  46 4c 49 50 59 20 66 6c  |p.... *SFLIPY fl|
000033c0  69 70 0d 0b 90 12 20 2a  53 43 48 4f 4f 53 45 20  |ip.... *SCHOOSE |
000033d0  66 6c 69 70 0d 0b 9a 20  20 f0 20 26 45 44 2c 58  |flip...  . &ED,X|
000033e0  31 25 2c 59 31 25 3a 2a  53 44 45 4c 45 54 45 20  |1%,Y1%:*SDELETE |
000033f0  66 6c 69 70 0d 0b a4 0a  20 4f 54 54 3d 30 0d 0b  |flip.... OTT=0..|
00003400  ae 06 20 e1 0d 0b b8 0e  20 dd f2 69 6e 76 65 72  |.. ..... ..inver|
00003410  73 65 0d 0b c2 0a 20 4f  54 54 3d 37 0d 0b cc 57  |se.... OTT=7...W|
00003420  20 e7 20 4d 45 4e 55 3d  31 20 8c 20 ef 20 32 34  | . MENU=1 . . 24|
00003430  2c 30 3b 30 3b 31 32 37  39 3b 31 30 32 33 3b 3a  |,0;0;1279;1023;:|
00003440  e6 20 34 2c 30 3a c8 93  20 c8 90 20 35 39 35 2c  |. 4,0:.. .. 595,|
00003450  39 32 35 2c 36 35 2c 36  35 3a e6 20 43 4f 4c 25  |925,65,65:. COL%|
00003460  3a ef 20 32 34 2c 30 3b  30 3b 31 32 37 39 3b 38  |:. 24,0;0;1279;8|
00003470  32 39 3b 0d 0b d6 0a 20  f2 61 72 65 61 0d 0b e0  |29;.... .area...|
00003480  5f 20 e7 20 43 4e 54 3d  30 20 80 20 4d 45 4e 55  |_ . CNT=0 . MENU|
00003490  3d 31 20 8c 20 ef 20 32  34 2c 30 3b 30 3b 31 32  |=1 . . 24,0;0;12|
000034a0  37 39 3b 31 30 32 33 3b  3a e6 20 34 2c 30 3a c8  |79;1023;:. 4,0:.|
000034b0  93 20 c8 90 20 35 39 35  2c 39 32 35 2c 36 35 2c  |. .. 595,925,65,|
000034c0  36 35 3a e6 20 43 4f 4c  25 3a ef 20 32 34 2c 30  |65:. COL%:. 24,0|
000034d0  3b 30 3b 31 32 37 39 3b  38 32 39 3b 0d 0b ea 10  |;0;1279;829;....|
000034e0  20 e7 20 43 4e 54 3d 30  20 8c 20 e1 0d 0b f4 37  | . CNT=0 . ....7|
000034f0  20 e6 20 34 2c 30 3a c8  93 20 c8 90 20 58 31 25  | . 4,0:.. .. X1%|
00003500  2c 59 31 25 2c 58 32 25  2d 58 31 25 2c 59 32 25  |,Y1%,X2%-X1%,Y2%|
00003510  2d 59 31 25 3a e6 20 43  4f 4c 25 20 c8 9c 20 54  |-Y1%:. COL% .. T|
00003520  4e 54 25 0d 0b fe 5e 20  4f 54 54 3d 30 3a e7 20  |NT%...^ OTT=0:. |
00003530  4d 45 4e 55 3d 31 20 20  8c 20 ef 20 32 34 2c 30  |MENU=1  . . 24,0|
00003540  3b 30 3b 31 32 37 39 3b  31 30 32 33 3b 3a e6 20  |;0;1279;1023;:. |
00003550  34 2c 30 3a c8 93 20 c8  90 20 35 39 35 2c 39 32  |4,0:.. .. 595,92|
00003560  35 2c 36 35 2c 36 35 3a  e6 20 43 4f 4c 25 3a ef  |5,65,65:. COL%:.|
00003570  20 32 34 2c 30 3b 30 3b  31 32 37 39 3b 38 32 39  | 24,0;0;1279;829|
00003580  3b 0d 0c 08 06 20 e1 0d  0c 12 0c 20 dd f2 6c 69  |;.... ..... ..li|
00003590  6e 65 6a 0d 0c 1c 6a f2  62 6f 75 6e 63 65 3a 50  |nej...j.bounce:P|
000035a0  41 52 3d 31 3a 4f 54 54  3d 38 3a e7 20 4d 45 4e  |AR=1:OTT=8:. MEN|
000035b0  55 3d 31 20 8c 20 ef 20  32 34 2c 30 3b 30 3b 31  |U=1 . . 24,0;0;1|
000035c0  32 37 39 3b 31 30 32 33  3b 3a e6 20 34 2c 30 3a  |279;1023;:. 4,0:|
000035d0  c8 93 20 c8 90 20 36 37  35 2c 39 32 35 2c 36 35  |.. .. 675,925,65|
000035e0  2c 36 35 3a e6 20 43 4f  4c 25 3a ef 20 32 34 2c  |,65:. COL%:. 24,|
000035f0  30 3b 30 3b 31 32 37 39  3b 38 32 39 3b 0d 0c 26  |0;0;1279;829;..&|
00003600  1b 20 f5 3a f2 61 6e 6f  74 68 65 72 3a c8 97 20  |. .:.another:.. |
00003610  58 25 2c 59 25 2c 5a 25  0d 0c 30 31 20 e7 20 50  |X%,Y%,Z%..01 . P|
00003620  41 52 3d 31 20 80 20 5a  25 3d 34 20 8c 20 58 31  |AR=1 . Z%=4 . X1|
00003630  25 3d 58 25 3a 59 31 25  3d 59 25 3a 50 41 52 3d  |%=X%:Y1%=Y%:PAR=|
00003640  32 3a f2 62 6f 75 6e 63  65 0d 0c 3a 15 20 e7 20  |2:.bounce..:. . |
00003650  a6 28 2d 39 39 29 20 8c  20 50 41 52 3d 31 0d 0c  |.(-99) . PAR=1..|
00003660  44 59 20 e7 20 50 41 52  3d 32 20 8c 20 e6 20 34  |DY . PAR=2 . . 4|
00003670  2c 30 3a ff 28 22 2a 46  58 31 39 22 29 3a 86 20  |,0:.("*FX19"):. |
00003680  58 31 25 2c 59 31 25 2c  58 25 2c 59 25 3a ff 28  |X1%,Y1%,X%,Y%:.(|
00003690  22 2a 46 58 31 39 22 29  3a 86 20 58 31 25 2c 59  |"*FX19"):. X1%,Y|
000036a0  31 25 2c 58 25 2c 59 25  3a e6 20 43 4f 4c 25 20  |1%,X%,Y%:. COL% |
000036b0  c8 9c 20 54 4e 54 25 0d  0c 4e 60 20 e7 20 50 41  |.. TNT%..N` . PA|
000036c0  52 3d 32 20 80 20 5a 25  3d 34 20 80 20 53 48 41  |R=2 . Z%=4 . SHA|
000036d0  44 31 3d 31 20 8c 20 e6  20 43 4f 4c 32 25 20 c8  |D1=1 . . COL2% .|
000036e0  9c 20 54 4e 54 32 25 3a  86 20 58 31 25 2b 53 48  |. TNT2%:. X1%+SH|
000036f0  41 44 41 43 25 2c 59 31  25 2b 53 48 41 44 44 4e  |ADAC%,Y1%+SHADDN|
00003700  25 2c 58 25 2b 53 48 41  44 41 43 25 2c 59 25 2b  |%,X%+SHADAC%,Y%+|
00003710  53 48 41 44 44 4e 25 0d  0c 58 4a 20 e7 20 50 41  |SHADDN%..XJ . PA|
00003720  52 3d 32 20 80 20 5a 25  3d 34 20 8c 20 e6 20 43  |R=2 . Z%=4 . . C|
00003730  4f 4c 25 20 c8 9c 20 54  4e 54 25 3a 86 20 58 31  |OL% .. TNT%:. X1|
00003740  25 2c 59 31 25 2c 58 25  2c 59 25 3a 58 31 25 3d  |%,Y1%,X%,Y%:X1%=|
00003750  58 25 3a 59 31 25 3d 59  25 3a f2 62 6f 75 6e 63  |X%:Y1%=Y%:.bounc|
00003760  65 0d 0c 62 0c 20 f2 6f  6e 5f 6f 66 66 0d 0c 6c  |e..b. .on_off..l|
00003770  0b 20 fd 20 5a 25 3d 31  0d 0c 76 56 e7 20 4d 45  |. . Z%=1..vV. ME|
00003780  4e 55 3d 31 20 8c 20 ef  20 32 34 2c 30 3b 30 3b  |NU=1 . . 24,0;0;|
00003790  31 32 37 39 3b 31 30 32  33 3b 3a e6 20 34 2c 30  |1279;1023;:. 4,0|
000037a0  3a c8 93 20 c8 90 20 36  37 35 2c 39 32 35 2c 36  |:.. .. 675,925,6|
000037b0  35 2c 36 35 3a e6 20 43  4f 4c 25 3a ef 20 32 34  |5,65:. COL%:. 24|
000037c0  2c 30 3b 30 3b 31 32 37  39 3b 38 32 39 3b 0d 0c  |,0;0;1279;829;..|
000037d0  80 06 20 e1 0d 0c 8a 0c  20 dd f2 6c 69 6e 65 70  |.. ..... ..linep|
000037e0  0d 0c 94 6a f2 62 6f 75  6e 63 65 3a 50 41 52 3d  |...j.bounce:PAR=|
000037f0  31 3a 4f 54 54 3d 39 3a  e7 20 4d 45 4e 55 3d 31  |1:OTT=9:. MENU=1|
00003800  20 8c 20 ef 20 32 34 2c  30 3b 30 3b 31 32 37 39  | . . 24,0;0;1279|
00003810  3b 31 30 32 33 3b 3a e6  20 34 2c 30 3a c8 93 20  |;1023;:. 4,0:.. |
00003820  c8 90 20 37 35 35 2c 39  32 35 2c 36 35 2c 36 35  |.. 755,925,65,65|
00003830  3a e6 20 43 4f 4c 25 3a  ef 20 32 34 2c 30 3b 30  |:. COL%:. 24,0;0|
00003840  3b 31 32 37 39 3b 38 32  39 3b 0d 0c 9e 1b 20 f5  |;1279;829;.... .|
00003850  3a f2 61 6e 6f 74 68 65  72 3a c8 97 20 58 25 2c  |:.another:.. X%,|
00003860  59 25 2c 5a 25 0d 0c a8  31 20 e7 20 50 41 52 3d  |Y%,Z%...1 . PAR=|
00003870  31 20 80 20 5a 25 3d 34  20 8c 20 58 31 25 3d 58  |1 . Z%=4 . X1%=X|
00003880  25 3a 59 31 25 3d 59 25  3a 50 41 52 3d 32 3a f2  |%:Y1%=Y%:PAR=2:.|
00003890  62 6f 75 6e 63 65 0d 0c  b2 15 20 e7 20 a6 28 2d  |bounce.... . .(-|
000038a0  39 39 29 20 8c 20 50 41  52 3d 31 0d 0c bc 59 20  |99) . PAR=1...Y |
000038b0  e7 20 50 41 52 3d 32 20  8c 20 e6 20 34 2c 30 3a  |. PAR=2 . . 4,0:|
000038c0  ff 28 22 2a 46 58 31 39  22 29 3a 86 20 58 31 25  |.("*FX19"):. X1%|
000038d0  2c 59 31 25 2c 58 25 2c  59 25 3a ff 28 22 2a 46  |,Y1%,X%,Y%:.("*F|
000038e0  58 31 39 22 29 3a 86 20  58 31 25 2c 59 31 25 2c  |X19"):. X1%,Y1%,|
000038f0  58 25 2c 59 25 3a e6 20  43 4f 4c 25 20 c8 9c 20  |X%,Y%:. COL% .. |
00003900  54 4e 54 25 0d 0c c6 89  20 e7 20 50 41 52 3d 32  |TNT%.... . PAR=2|
00003910  20 80 20 5a 25 3d 34 20  8c 20 e6 20 43 4f 4c 25  | . Z%=4 . . COL%|
00003920  20 c8 9c 20 54 4e 54 25  3a 86 20 58 31 25 2c 59  | .. TNT%:. X1%,Y|
00003930  31 25 2c 58 25 2c 59 25  3a f2 62 6f 75 6e 63 65  |1%,X%,Y%:.bounce|
00003940  3a e7 20 53 48 41 44 31  3d 31 20 8c 20 e6 20 43  |:. SHAD1=1 . . C|
00003950  4f 4c 32 25 20 c8 9c 20  54 4e 54 32 25 3a 86 20  |OL2% .. TNT2%:. |
00003960  58 31 25 2b 53 48 41 44  41 43 25 2c 59 31 25 2b  |X1%+SHADAC%,Y1%+|
00003970  53 48 41 44 44 4e 25 2c  58 25 2b 53 48 41 44 41  |SHADDN%,X%+SHADA|
00003980  43 25 2c 59 25 2b 53 48  41 44 44 4e 25 0d 0c d0  |C%,Y%+SHADDN%...|
00003990  0c 20 f2 6f 6e 5f 6f 66  66 0d 0c da 0b 20 fd 20  |. .on_off.... . |
000039a0  5a 25 3d 31 0d 0c e4 56  e7 20 4d 45 4e 55 3d 31  |Z%=1...V. MENU=1|
000039b0  20 8c 20 ef 20 32 34 2c  30 3b 30 3b 31 32 37 39  | . . 24,0;0;1279|
000039c0  3b 31 30 32 33 3b 3a e6  20 34 2c 30 3a c8 93 20  |;1023;:. 4,0:.. |
000039d0  c8 90 20 37 35 35 2c 39  32 35 2c 36 35 2c 36 35  |.. 755,925,65,65|
000039e0  3a e6 20 43 4f 4c 25 3a  ef 20 32 34 2c 30 3b 30  |:. COL%:. 24,0;0|
000039f0  3b 31 32 37 39 3b 38 32  39 3b 0d 0c ee 06 20 e1  |;1279;829;.... .|
00003a00  0d 0c f8 0c 20 dd f2 73  70 72 61 79 0d 0d 02 11  |.... ..spray....|
00003a10  20 e7 20 4d 45 4e 55 3d  30 20 8c 20 e1 0d 0d 0c  | . MENU=0 . ....|
00003a20  11 20 4f 50 54 3d 33 3a  4f 54 54 3d 31 30 0d 0d  |. OPT=3:OTT=10..|
00003a30  16 3a 20 20 ef 20 32 34  2c 30 3b 30 3b 31 32 37  |.:  . 24,0;0;127|
00003a40  39 3b 31 30 32 33 3b 3a  e6 20 35 38 20 c8 9c 20  |9;1023;:. 58 .. |
00003a50  31 39 32 3a c8 93 20 c8  90 20 30 2c 38 35 33 2c  |192:.. .. 0,853,|
00003a60  31 32 35 39 2c 31 37 30  0d 0d 20 22 20 e6 20 31  |1259,170.. " . 1|
00003a70  32 20 c8 9c 20 31 32 38  3a c8 93 20 30 2c 38 35  |2 .. 128:.. 0,85|
00003a80  33 2c 31 32 35 39 2c 31  37 30 0d 0d 2a 56 20 e3  |3,1259,170..*V .|
00003a90  20 58 3d 31 30 30 20 b8  20 31 30 30 30 20 88 20  | X=100 . 1000 . |
00003aa0  31 30 30 3a e6 20 37 35  20 c8 9c 20 31 32 38 3a  |100:. 75 .. 128:|
00003ab0  c8 93 20 58 2c 38 38 30  2c 38 30 2c 38 30 3a e6  |.. X,880,80,80:.|
00003ac0  20 36 33 20 c8 9c 20 31  39 32 3a c8 93 20 c8 90  | 63 .. 192:.. ..|
00003ad0  20 58 2b 38 2c 38 38 38  2c 36 34 2c 36 34 3a ed  | X+8,888,64,64:.|
00003ae0  0d 0d 34 2b 20 fb 20 31  34 3a f1 8a 32 35 2c 30  |..4+ . 14:..25,0|
00003af0  29 3b 22 53 45 4c 45 43  54 20 53 50 52 41 59 20  |);"SELECT SPRAY |
00003b00  49 4e 54 45 4e 53 49 54  59 2e 22 0d 0d 3e 5c 20  |INTENSITY."..>\ |
00003b10  e6 20 30 20 c8 9c 20 30  3a 41 4d 3d 31 3a e3 20  |. 0 .. 0:AM=1:. |
00003b20  58 3d 31 30 30 20 b8 20  31 30 30 30 20 88 20 31  |X=100 . 1000 . 1|
00003b30  30 30 3a e3 20 5a 3d 31  20 b8 20 41 4d 2a 32 3a  |00:. Z=1 . AM*2:|
00003b40  c8 92 20 58 2b 32 32 2b  b3 28 33 30 29 2c 39 30  |.. X+22+.(30),90|
00003b50  32 2b b3 28 33 30 29 3a  ed 20 5a 3a 41 4d 3d 41  |2+.(30):. Z:AM=A|
00003b60  4d 2b 32 3a ed 20 58 0d  0d 48 1d 20 3a ef 20 32  |M+2:. X..H. :. 2|
00003b70  34 2c 30 3b 30 3b 31 32  37 39 3b 38 32 39 3b 3a  |4,0;0;1279;829;:|
00003b80  49 4e 3d 30 0d 0d 52 06  20 f5 0d 0d 5c 0f c8 97  |IN=0..R. ...\...|
00003b90  20 58 25 2c 59 25 2c 5a  25 0d 0d 66 1f 20 e7 20  | X%,Y%,Z%..f. . |
00003ba0  59 25 3c 38 39 30 20 84  20 59 25 3e 39 35 30 20  |Y%<890 . Y%>950 |
00003bb0  8c 20 e5 20 8d 44 70 4d  0d 0d 70 24 20 e7 20 5a  |. . .DpM..p$ . Z|
00003bc0  25 3d 34 20 80 20 58 25  3e 31 31 30 20 80 20 58  |%=4 . X%>110 . X|
00003bd0  25 3c 31 37 30 20 8c 20  49 4e 3d 31 0d 0d 7a 24  |%<170 . IN=1..z$|
00003be0  20 e7 20 5a 25 3d 34 20  80 20 58 25 3e 32 31 30  | . Z%=4 . X%>210|
00003bf0  20 80 20 58 25 3c 32 37  30 20 8c 20 49 4e 3d 33  | . X%<270 . IN=3|
00003c00  0d 0d 84 24 20 e7 20 5a  25 3d 34 20 80 20 58 25  |...$ . Z%=4 . X%|
00003c10  3e 33 31 30 20 80 20 58  25 3c 33 37 30 20 8c 20  |>310 . X%<370 . |
00003c20  49 4e 3d 35 0d 0d 8e 23  e7 20 5a 25 3d 34 20 80  |IN=5...#. Z%=4 .|
00003c30  20 58 25 3e 34 31 30 20  80 20 58 25 3c 34 37 30  | X%>410 . X%<470|
00003c40  20 8c 20 49 4e 3d 37 0d  0d 98 23 e7 20 5a 25 3d  | . IN=7...#. Z%=|
00003c50  34 20 80 20 58 25 3e 35  31 30 20 80 20 58 25 3c  |4 . X%>510 . X%<|
00003c60  35 37 30 20 8c 20 49 4e  3d 39 0d 0d a2 24 e7 20  |570 . IN=9...$. |
00003c70  5a 25 3d 34 20 80 20 58  25 3e 36 31 30 20 80 20  |Z%=4 . X%>610 . |
00003c80  58 25 3c 36 37 30 20 8c  20 49 4e 3d 31 31 0d 0d  |X%<670 . IN=11..|
00003c90  ac 24 e7 20 5a 25 3d 34  20 80 20 58 25 3e 37 31  |.$. Z%=4 . X%>71|
00003ca0  30 20 80 20 58 25 3c 37  37 30 20 8c 20 49 4e 3d  |0 . X%<770 . IN=|
00003cb0  31 33 0d 0d b6 24 e7 20  5a 25 3d 34 20 80 20 58  |13...$. Z%=4 . X|
00003cc0  25 3e 38 31 30 20 80 20  58 25 3c 38 37 30 20 8c  |%>810 . X%<870 .|
00003cd0  20 49 4e 3d 31 35 0d 0d  c0 24 e7 20 5a 25 3d 34  | IN=15...$. Z%=4|
00003ce0  20 80 20 58 25 3e 39 31  30 20 80 20 58 25 3c 39  | . X%>910 . X%<9|
00003cf0  37 30 20 8c 20 49 4e 3d  31 37 0d 0d ca 26 e7 20  |70 . IN=17...&. |
00003d00  5a 25 3d 34 20 80 20 58  25 3e 31 30 31 30 20 80  |Z%=4 . X%>1010 .|
00003d10  20 58 25 3c 31 30 37 30  20 8c 20 49 4e 3d 31 39  | X%<1070 . IN=19|
00003d20  0d 0d d4 12 20 fd 20 5a  25 3d 32 20 84 20 49 4e  |.... . Z%=2 . IN|
00003d30  3e 30 0d 0d de 39 20 ef  20 32 34 2c 30 3b 30 3b  |>0...9 . 24,0;0;|
00003d40  31 32 37 39 3b 31 30 32  33 3b 3a e6 20 36 33 20  |1279;1023;:. 63 |
00003d50  c8 9c 20 31 39 32 3a c8  93 20 c8 90 20 30 2c 38  |.. 192:.. .. 0,8|
00003d60  35 33 2c 31 32 35 39 2c  31 37 30 0d 0d e8 13 20  |53,1259,170.... |
00003d70  f2 6d 65 6e 75 31 3a f2  62 6f 75 6e 63 65 0d 0d  |.menu1:.bounce..|
00003d80  f2 06 20 f5 0d 0d fc 0d  20 f2 61 6e 6f 74 68 65  |.. ..... .anothe|
00003d90  72 0d 0e 06 0d 20 f2 73  70 72 61 79 65 72 0d 0e  |r.... .sprayer..|
00003da0  10 0c 20 f2 6f 6e 5f 6f  66 66 0d 0e 1a 10 20 c8  |.. .on_off.... .|
00003db0  97 20 58 25 2c 59 25 2c  5a 25 0d 0e 24 0b 20 fd  |. X%,Y%,Z%..$. .|
00003dc0  20 5a 25 3d 31 0d 0e 2e  65 20 20 e7 20 4d 45 4e  | Z%=1...e  . MEN|
00003dd0  55 3d 31 20 8c 20 4f 54  54 3d 30 3a 4f 50 54 3d  |U=1 . OTT=0:OPT=|
00003de0  31 3a ef 20 32 34 2c 30  3b 30 3b 31 32 37 39 3b  |1:. 24,0;0;1279;|
00003df0  31 30 32 33 3b 3a e6 20  34 2c 30 3a c8 93 20 c8  |1023;:. 4,0:.. .|
00003e00  90 20 38 33 32 2c 39 32  35 2c 36 35 2c 36 35 20  |. 832,925,65,65 |
00003e10  3a e6 20 43 4f 4c 25 3a  ef 20 32 34 2c 30 3b 30  |:. COL%:. 24,0;0|
00003e20  3b 31 32 37 39 3b 38 32  39 3b 0d 0e 38 06 20 e1  |;1279;829;..8. .|
00003e30  0d 0e 42 0e 20 dd f2 73  70 72 61 79 65 72 0d 0e  |..B. ..sprayer..|
00003e40  4c 1c 20 c8 97 20 58 25  2c 59 25 2c 5a 25 3a e7  |L. .. X%,Y%,Z%:.|
00003e50  20 5a 25 3c 3e 34 20 8c  20 e1 0d 0e 56 5a 20 e7  | Z%<>4 . ...VZ .|
00003e60  20 53 48 41 44 31 3d 30  20 8c 20 e6 20 43 4f 4c  | SHAD1=0 . . COL|
00003e70  25 20 c8 9c 20 54 4e 54  25 3a 20 e3 20 4b 25 3d  |% .. TNT%: . K%=|
00003e80  31 20 b8 20 49 4e 2a 32  3a c8 92 20 58 25 2d 32  |1 . IN*2:.. X%-2|
00003e90  30 2b 28 b3 28 33 30 2b  49 4e 29 29 2c 59 25 2d  |0+(.(30+IN)),Y%-|
00003ea0  32 30 2b 28 b3 28 33 30  2b 49 4e 29 29 3a e5 20  |20+(.(30+IN)):. |
00003eb0  8d 44 6a 4e 0d 0e 60 8d  20 e3 20 4b 25 3d 31 20  |.DjN..`. . K%=1 |
00003ec0  b8 20 49 4e 2a 32 3a e6  20 43 4f 4c 25 20 c8 9c  |. IN*2:. COL% ..|
00003ed0  20 54 4e 54 25 3a 41 50  25 3d b3 28 33 30 2b 49  | TNT%:AP%=.(30+I|
00003ee0  4e 29 3a 41 50 50 25 3d  b3 28 33 30 2b 49 4e 29  |N):APP%=.(30+IN)|
00003ef0  3a c8 92 20 58 25 2d 32  30 2b 41 50 25 2c 59 25  |:.. X%-20+AP%,Y%|
00003f00  2d 32 30 2b 41 50 50 25  3a e6 20 43 4f 4c 32 25  |-20+APP%:. COL2%|
00003f10  20 c8 9c 20 54 4e 54 32  25 3a c8 92 20 58 25 2d  | .. TNT2%:.. X%-|
00003f20  32 30 2b 41 50 25 2b 53  48 41 44 41 43 25 2c 59  |20+AP%+SHADAC%,Y|
00003f30  25 2d 32 30 2b 41 50 50  25 2b 53 48 41 44 44 4e  |%-20+APP%+SHADDN|
00003f40  25 0d 0e 6a 09 20 ed 20  4b 25 0d 0e 74 06 20 e1  |%..j. . K%..t. .|
00003f50  0d 0e 7e 0a 20 dd f2 72  75 62 0d 0e 88 5c ef 20  |..~. ..rub...\. |
00003f60  32 34 2c 30 3b 30 3b 31  32 37 39 3b 31 30 32 33  |24,0;0;1279;1023|
00003f70  3b 20 20 3a e6 20 34 2c  33 3a c8 93 20 c8 90 20  |;  :. 4,3:.. .. |
00003f80  39 31 35 2c 39 32 35 2c  36 35 2c 36 35 3a e6 20  |915,925,65,65:. |
00003f90  43 4f 4c 25 3a 4f 54 54  3d 31 31 3a ef 20 32 34  |COL%:OTT=11:. 24|
00003fa0  2c 30 3b 30 3b 31 32 37  39 3b 38 32 39 3b 3a f2  |,0;0;1279;829;:.|
00003fb0  62 6f 75 6e 63 65 0d 0e  92 0a 20 f2 61 72 65 61  |bounce.... .area|
00003fc0  0d 0e 9c 15 20 e7 20 43  4e 54 3d 30 20 8c 20 e5  |.... . CNT=0 . .|
00003fd0  20 8d 64 6c 4e 0d 0e a6  1a 20 58 58 25 3d 58 25  | .dlN.... XX%=X%|
00003fe0  2d 58 31 25 3a 59 59 25  3d 59 25 2d 59 31 25 0d  |-X1%:YY%=Y%-Y1%.|
00003ff0  0e b0 42 20 e6 20 34 2c  30 3a c8 93 20 c8 90 20  |..B . 4,0:.. .. |
00004000  58 31 25 2c 59 31 25 2c  58 58 25 2c 59 59 25 3a  |X1%,Y1%,XX%,YY%:|
00004010  c8 96 3a c8 96 3a c8 96  3a c8 96 3a c8 93 20 c8  |..:..:..:..:.. .|
00004020  90 20 58 31 25 2c 59 31  25 2c 58 58 25 2c 59 59  |. X1%,Y1%,XX%,YY|
00004030  25 0d 0e ba 12 20 f2 69  6d 66 6f 3a f2 6f 6e 5f  |%.... .imfo:.on_|
00004040  6f 66 66 0d 0e c4 12 20  c8 97 20 58 31 25 2c 59  |off.... .. X1%,Y|
00004050  31 25 2c 5a 25 0d 0e ce  14 20 e7 20 5a 25 3d 30  |1%,Z%.... . Z%=0|
00004060  20 8c 20 e5 20 8d 74 70  4e 0d 0e d8 2f 20 e7 20  | . . .tpN.../ . |
00004070  5a 25 3d 34 20 8c 20 e6  20 36 33 20 c8 9c 20 31  |Z%=4 . . 63 .. 1|
00004080  39 32 3a c8 93 20 c8 90  20 58 31 25 2c 59 31 25  |92:.. .. X1%,Y1%|
00004090  2c 58 58 25 2c 59 59 25  0d 0e e2 15 20 e7 20 5a  |,XX%,YY%.... . Z|
000040a0  25 3c 3e 31 20 8c 20 e5  20 8d 74 70 4e 0d 0e ec  |%<>1 . . .tpN...|
000040b0  67 20 4f 54 54 3d 30 3a  e7 20 4d 45 4e 55 3d 31  |g OTT=0:. MENU=1|
000040c0  20 8c 20 ef 20 32 34 2c  30 3b 30 3b 31 32 37 39  | . . 24,0;0;1279|
000040d0  3b 31 30 32 33 3b 20 20  3a e6 20 34 2c 33 3a c8  |;1023;  :. 4,3:.|
000040e0  93 20 c8 90 20 39 31 35  2c 39 32 35 2c 36 35 2c  |. .. 915,925,65,|
000040f0  36 35 3a e6 20 43 4f 4c  25 3a ef 20 32 34 2c 30  |65:. COL%:. 24,0|
00004100  3b 30 3b 31 32 37 39 3b  38 32 39 3b 3a f2 62 6f  |;0;1279;829;:.bo|
00004110  75 6e 63 65 0d 0e f6 06  20 e1 0d 0f 00 0b 20 dd  |unce.... ..... .|
00004120  f2 63 6f 70 79 0d 0f 0a  12 20 4f 54 54 3d 31 32  |.copy.... OTT=12|
00004130  3a 4f 54 49 3d 31 32 0d  0f 14 63 ef 20 32 34 2c  |:OTI=12...c. 24,|
00004140  30 3b 30 3b 31 32 37 39  3b 31 30 32 33 3b 20 20  |0;0;1279;1023;  |
00004150  3a e6 20 34 2c 33 3a c8  93 20 c8 90 20 31 30 37  |:. 4,3:.. .. 107|
00004160  35 2c 39 32 35 2c 36 35  2c 36 35 3a e6 20 43 4f  |5,925,65,65:. CO|
00004170  4c 25 3a 4f 54 54 3d 31  31 3a ef 20 32 34 2c 30  |L%:OTT=11:. 24,0|
00004180  3b 30 3b 31 32 37 39 3b  38 32 39 3b 3a f2 62 6f  |;0;1279;829;:.bo|
00004190  75 6e 63 65 3a f2 61 72  65 61 0d 0f 1e 15 20 e7  |unce:.area.... .|
000041a0  20 43 4e 54 3d 30 20 8c  20 e5 20 8d 64 70 4f 0d  | CNT=0 . . .dpO.|
000041b0  0f 28 1b 20 e7 20 59 32  25 3c 59 31 25 20 8c 20  |.(. . Y2%<Y1% . |
000041c0  c8 94 20 59 32 25 2c 59  31 25 0d 0f 32 1b 20 e7  |.. Y2%,Y1%..2. .|
000041d0  20 58 32 25 3c 58 31 25  20 8c 20 c8 94 20 58 32  | X2%<X1% . .. X2|
000041e0  25 2c 58 31 25 0d 0f 3c  24 20 ec 20 58 31 25 2c  |%,X1%..<$ . X1%,|
000041f0  59 31 25 3a ec 20 58 32  25 2c 59 32 25 3a 2a 53  |Y1%:. X2%,Y2%:*S|
00004200  47 45 54 20 63 6f 70 79  32 0d 0f 46 0c 20 f2 62  |GET copy2..F. .b|
00004210  6f 75 6e 63 65 0d 0f 50  0c 20 f2 62 6f 75 6e 63  |ounce..P. .bounc|
00004220  65 0d 0f 5a 13 20 2a 53  43 48 4f 4f 53 45 20 63  |e..Z. *SCHOOSE c|
00004230  6f 70 79 32 0d 0f 64 06  20 f5 0d 0f 6e 10 20 c8  |opy2..d. ...n. .|
00004240  97 20 58 25 2c 59 25 2c  5a 25 0d 0f 78 11 20 4e  |. X%,Y%,Z%..x. N|
00004250  4e 50 25 3d 28 58 25 2b  59 25 29 0d 0f 82 88 20  |NP%=(X%+Y%).... |
00004260  e6 20 33 2c 30 3a f0 20  26 45 44 2c 58 25 2b 28  |. 3,0:. &ED,X%+(|
00004270  28 58 31 25 2d 58 32 25  29 2f 32 29 2c 59 25 2b  |(X1%-X2%)/2),Y%+|
00004280  28 28 59 31 25 2d 59 32  25 29 2f 32 29 3a c8 96  |((Y1%-Y2%)/2):..|
00004290  3a c8 96 3a f5 3a c8 97  20 58 41 25 2c 59 41 25  |:..:.:.. XA%,YA%|
000042a0  2c 5a 41 25 3a fd 20 4e  4e 50 25 3c 3e 28 58 41  |,ZA%:. NNP%<>(XA|
000042b0  25 2b 59 41 25 2b 5a 41  25 29 3a 3a f0 20 26 45  |%+YA%+ZA%)::. &E|
000042c0  44 2c 58 25 2b 28 28 58  31 25 2d 58 32 25 29 2f  |D,X%+((X1%-X2%)/|
000042d0  32 29 2c 59 25 2b 28 28  59 31 25 2d 59 32 25 29  |2),Y%+((Y1%-Y2%)|
000042e0  2f 32 29 0d 0f 8c 7a 20  e7 20 5a 25 3d 36 20 8c  |/2)...z . Z%=6 .|
000042f0  20 e7 20 4e 50 25 3d 31  20 8c 20 e6 20 33 2c 30  | . NP%=1 . . 3,0|
00004300  3a f0 20 26 45 44 2c 58  25 2b 28 28 58 31 25 2d  |:. &ED,X%+((X1%-|
00004310  58 32 25 29 2f 32 29 2c  59 25 2b 28 28 59 31 25  |X2%)/2),Y%+((Y1%|
00004320  2d 59 32 25 29 2f 32 29  20 8b 20 e7 20 5a 25 3d  |-Y2%)/2) . . Z%=|
00004330  36 20 e6 20 30 3a f0 20  26 45 44 2c 58 25 2b 28  |6 . 0:. &ED,X%+(|
00004340  28 58 31 25 2d 58 32 25  29 2f 32 29 2c 59 25 2b  |(X1%-X2%)/2),Y%+|
00004350  28 28 59 31 25 2d 59 32  25 29 2f 32 29 0d 0f 96  |((Y1%-Y2%)/2)...|
00004360  13 20 e7 20 5a 25 3d 30  20 8c 20 e5 8d 44 6e 4f  |. . Z%=0 . ..DnO|
00004370  0d 0f a0 13 20 4f 54 54  3d 31 32 3a f2 6f 6e 5f  |.... OTT=12:.on_|
00004380  6f 66 66 0d 0f aa 14 20  e7 20 5a 25 3d 31 20 8c  |off.... . Z%=1 .|
00004390  20 e5 20 8d 64 66 4f 0d  0f b4 13 20 2a 53 43 48  | . .dfO.... *SCH|
000043a0  4f 4f 53 45 20 63 6f 70  79 32 0d 0f be 12 20 fd  |OOSE copy2.... .|
000043b0  20 5a 25 3d 34 20 84 20  5a 25 3d 36 0d 0f c8 20  | Z%=4 . Z%=6... |
000043c0  20 c8 97 20 58 25 2c 59  25 2c 5a 25 3a e7 20 5a  | .. X%,Y%,Z%:. Z|
000043d0  25 3d 36 20 8c 20 e5 20  8d 44 64 4f 0d 0f d2 6a  |%=6 . . .DdO...j|
000043e0  20 e7 20 4e 50 25 3d 31  20 8c 20 e6 20 33 2c 30  | . NP%=1 . . 3,0|
000043f0  3a f0 20 26 45 44 2c 58  25 2b 28 28 58 31 25 2d  |:. &ED,X%+((X1%-|
00004400  58 32 25 29 2f 32 29 2c  59 25 2b 28 28 59 31 25  |X2%)/2),Y%+((Y1%|
00004410  2d 59 32 25 29 2f 32 29  20 8b 20 e6 20 30 3a f0  |-Y2%)/2) . . 0:.|
00004420  20 26 45 44 2c 58 25 2b  28 28 58 31 25 2d 58 32  | &ED,X%+((X1%-X2|
00004430  25 29 2f 32 29 2c 59 25  2b 28 28 59 31 25 2d 59  |%)/2),Y%+((Y1%-Y|
00004440  32 25 29 2f 32 29 0d 0f  dc 0b 20 e5 20 8d 44 50  |2%)/2).... . .DP|
00004450  4f 0d 0f e6 13 20 2a 53  44 45 4c 45 54 45 20 63  |O.... *SDELETE c|
00004460  6f 70 79 32 0d 0f f0 69  20 e7 20 4d 45 4e 55 3d  |opy2...i . MENU=|
00004470  31 20 8c 20 ef 20 32 34  2c 30 3b 30 3b 31 32 37  |1 . . 24,0;0;127|
00004480  39 3b 31 30 32 33 3b 20  20 3a e6 20 34 2c 33 3a  |9;1023;  :. 4,3:|
00004490  c8 93 20 c8 90 20 31 30  37 35 2c 39 32 35 2c 36  |.. .. 1075,925,6|
000044a0  35 2c 36 35 3a e6 20 43  4f 4c 25 3a 4f 54 54 3d  |5,65:. COL%:OTT=|
000044b0  31 31 3a ef 20 32 34 2c  30 3b 30 3b 31 32 37 39  |11:. 24,0;0;1279|
000044c0  3b 38 32 39 3b 3a f2 62  6f 75 6e 63 65 0d 0f fa  |;829;:.bounce...|
000044d0  10 20 4f 54 49 3d 30 3a  4f 54 54 3d 30 0d 10 04  |. OTI=0:OTT=0...|
000044e0  06 20 e1 0d 10 0e 0b 20  dd f2 64 69 73 63 0d 10  |. ..... ..disc..|
000044f0  18 39 20 ef 20 32 34 2c  30 3b 30 3b 31 32 37 39  |.9 . 24,0;0;1279|
00004500  3b 31 30 32 33 3b 3a e6  20 34 39 20 c8 9c 20 31  |;1023;:. 49 .. 1|
00004510  39 32 3a c8 93 20 c8 90  20 30 2c 38 35 33 2c 31  |92:.. .. 0,853,1|
00004520  32 35 39 2c 31 37 30 0d  10 22 1c 20 e6 20 36 33  |259,170..". . 63|
00004530  3a c8 93 20 20 30 2c 38  35 33 2c 31 32 35 39 2c  |:..  0,853,1259,|
00004540  31 37 30 0d 10 2c 12 20  fb 20 34 39 2b 31 32 38  |170..,. . 49+128|
00004550  3a fb 20 36 33 0d 10 36  2c 20 e6 20 34 39 20 c8  |:. 63..6, . 49 .|
00004560  9c 20 30 3a c8 93 20 c8  90 20 28 35 2a 31 36 2d  |. 0:.. .. (5*16-|
00004570  34 29 2d 33 30 2c 38 39  30 2c 33 34 30 2c 31 30  |4)-30,890,340,10|
00004580  36 0d 10 40 35 20 e3 20  58 3d 30 20 b8 20 32 30  |6..@5 . X=0 . 20|
00004590  20 88 20 34 3a e6 20 58  3a c8 93 20 28 35 2a 31  | . 4:. X:.. (5*1|
000045a0  36 2d 34 29 2d 58 2c 39  32 33 2d 58 2c 37 30 2b  |6-4)-X,923-X,70+|
000045b0  58 2c 37 30 2b 58 0d 10  4a 23 20 c8 93 20 28 31  |X,70+X..J# .. (1|
000045c0  30 2a 31 36 2d 34 29 2d  58 2c 39 32 33 2d 58 2c  |0*16-4)-X,923-X,|
000045d0  37 30 2b 58 2c 37 30 2b  58 0d 10 54 23 20 c8 93  |70+X,70+X..T# ..|
000045e0  20 28 31 35 2a 31 36 2d  34 29 2d 58 2c 39 32 33  | (15*16-4)-X,923|
000045f0  2d 58 2c 37 30 2b 58 2c  37 30 2b 58 0d 10 5e 23  |-X,70+X,70+X..^#|
00004600  20 c8 93 20 28 32 30 2a  31 36 2d 34 29 2d 58 2c  | .. (20*16-4)-X,|
00004610  39 32 33 2d 58 2c 37 30  2b 58 2c 37 30 2b 58 0d  |923-X,70+X,70+X.|
00004620  10 68 06 20 ed 0d 10 72  1c 20 e6 20 36 33 3a c8  |.h. ...r. . 63:.|
00004630  93 20 20 30 2c 38 35 33  2c 31 32 35 39 2c 31 37  |.  0,853,1259,17|
00004640  30 0d 10 7c 19 20 c8 97  20 c8 93 20 30 2c 38 35  |0..|. .. .. 0,85|
00004650  33 2c 31 32 35 39 2c 31  37 30 0d 10 86 1f 20 f1  |3,1259,170.... .|
00004660  8a 35 2c 31 29 3b 22 53  41 56 45 22 3b 8a 35 2c  |.5,1);"SAVE";.5,|
00004670  32 29 3b 22 53 43 52 45  22 0d 10 90 21 20 f1 8a  |2);"SCRE"...! ..|
00004680  31 30 2c 31 29 3b 22 4c  4f 41 44 22 3b 8a 31 30  |10,1);"LOAD";.10|
00004690  2c 32 29 3b 22 53 43 52  45 22 0d 10 9a 21 20 f1  |,2);"SCRE"...! .|
000046a0  8a 31 35 2c 31 29 3b 22  53 41 56 45 22 3b 8a 31  |.15,1);"SAVE";.1|
000046b0  35 2c 32 29 3b 22 53 50  52 49 22 0d 10 a4 21 20  |5,2);"SPRI"...! |
000046c0  f1 8a 32 30 2c 31 29 3b  22 4c 4f 41 44 22 3b 8a  |..20,1);"LOAD";.|
000046d0  32 30 2c 32 29 3b 22 53  50 52 49 22 0d 10 ae 06  |20,2);"SPRI"....|
000046e0  20 f5 0d 10 b8 10 20 c8  97 20 58 25 2c 59 25 2c  | ..... .. X%,Y%,|
000046f0  5a 25 0d 10 c2 3e 20 e7  20 5a 25 3d 34 20 80 20  |Z%...> . Z%=4 . |
00004700  58 25 3e 38 30 20 80 20  58 25 3c 31 34 30 20 80  |X%>80 . X%<140 .|
00004710  20 59 25 3e 39 33 30 20  80 20 59 25 3c 39 39 30  | Y%>930 . Y%<990|
00004720  20 8c 20 4f 50 54 54 3d  31 3a e5 20 8d 54 52 51  | . OPTT=1:. .TRQ|
00004730  0d 10 cc 3f 20 e7 20 5a  25 3d 34 20 80 20 58 25  |...? . Z%=4 . X%|
00004740  3e 31 37 30 20 80 20 58  25 3c 32 32 30 20 80 20  |>170 . X%<220 . |
00004750  59 25 3e 39 33 30 20 80  20 59 25 3c 39 39 30 20  |Y%>930 . Y%<990 |
00004760  8c 20 4f 50 54 54 3d 32  3a e5 20 8d 54 52 51 0d  |. OPTT=2:. .TRQ.|
00004770  10 d6 3f 20 e7 20 5a 25  3d 34 20 80 20 58 25 3e  |..? . Z%=4 . X%>|
00004780  32 34 30 20 80 20 58 25  3c 33 30 30 20 80 20 59  |240 . X%<300 . Y|
00004790  25 3e 39 33 30 20 80 20  59 25 3c 39 39 30 20 8c  |%>930 . Y%<990 .|
000047a0  20 4f 50 54 54 3d 33 3a  e5 20 8d 54 52 51 0d 10  | OPTT=3:. .TRQ..|
000047b0  e0 3f 20 e7 20 5a 25 3d  34 20 80 20 58 25 3e 33  |.? . Z%=4 . X%>3|
000047c0  32 30 20 80 20 58 25 3c  33 38 30 20 80 20 59 25  |20 . X%<380 . Y%|
000047d0  3e 39 33 30 20 80 20 59  25 3c 39 39 30 20 8c 20  |>930 . Y%<990 . |
000047e0  4f 50 54 54 3d 34 3a e5  20 8d 54 52 51 0d 10 ea  |OPTT=4:. .TRQ...|
000047f0  0b 20 fd 20 5a 25 3d 31  0d 10 f4 48 20 ef 20 32  |. . Z%=1...H . 2|
00004800  34 2c 30 3b 30 3b 31 32  37 39 3b 31 30 32 33 3b  |4,0;0;1279;1023;|
00004810  3a e6 20 36 33 20 c8 9c  20 31 39 32 3a c8 93 20  |:. 63 .. 192:.. |
00004820  c8 90 20 30 2c 38 35 33  2c 31 32 35 39 2c 31 37  |.. 0,853,1259,17|
00004830  30 3a f2 6d 65 6e 75 31  3a f2 62 6f 75 6e 63 65  |0:.menu1:.bounce|
00004840  0d 10 fe 18 20 c8 97 20  c8 93 20 30 2c 30 2c 31  |.... .. .. 0,0,1|
00004850  32 38 35 2c 31 30 32 33  0d 11 08 06 20 e1 0d 11  |285,1023.... ...|
00004860  12 2a 20 e7 20 4f 50 54  54 3d 31 20 8c 20 f1 20  |.* . OPTT=1 . . |
00004870  8a 34 30 2c 31 29 3b 22  53 41 56 45 20 54 48 45  |.40,1);"SAVE THE|
00004880  20 53 43 52 45 45 4e 22  0d 11 1c 2a 20 e7 20 4f  | SCREEN"...* . O|
00004890  50 54 54 3d 32 20 8c 20  f1 20 8a 34 30 2c 31 29  |PTT=2 . . .40,1)|
000048a0  3b 22 4c 4f 41 44 20 54  48 45 20 53 43 52 45 45  |;"LOAD THE SCREE|
000048b0  4e 22 0d 11 26 2d 20 e7  20 4f 50 54 54 3d 33 20  |N"..&- . OPTT=3 |
000048c0  8c 20 f1 20 8a 34 30 2c  31 29 3b 22 53 41 56 45  |. . .40,1);"SAVE|
000048d0  20 41 20 53 50 52 49 54  45 20 41 52 45 41 22 0d  | A SPRITE AREA".|
000048e0  11 30 2d 20 e7 20 4f 50  54 54 3d 34 20 8c 20 f1  |.0- . OPTT=4 . .|
000048f0  20 8a 34 30 2c 31 29 3b  22 4c 4f 41 44 20 41 20  | .40,1);"LOAD A |
00004900  53 50 52 49 54 45 20 41  52 45 41 22 0d 11 3a 2b  |SPRITE AREA"..:+|
00004910  20 f1 8a 33 30 2c 33 29  3b 22 45 6e 74 65 72 20  | ..30,3);"Enter |
00004920  66 69 6c 65 20 6e 61 6d  65 3a 20 20 20 20 20 20  |file name:      |
00004930  20 20 20 20 20 20 22 0d  11 44 15 20 41 24 3d 22  |      "..D. A$="|
00004940  22 3a fb 20 31 31 20 3a  47 4f 3d 30 0d 11 4e 06  |":. 11 :GO=0..N.|
00004950  20 f5 0d 11 58 0f 20 f1  8a 34 36 2c 33 29 3b 41  | ...X. ..46,3);A|
00004960  24 0d 11 62 0d 20 4b 24  3d bf 28 31 30 29 0d 11  |$..b. K$=.(10)..|
00004970  6c 50 20 e7 20 20 97 28  4b 24 29 3d 31 32 37 20  |lP .  .(K$)=127 |
00004980  80 20 a9 28 41 24 29 3e  30 20 8c 20 41 24 3d c1  |. .(A$)>0 . A$=.|
00004990  41 24 2c 31 2c a9 28 41  24 29 2d 31 29 3a f1 8a  |A$,1,.(A$)-1):..|
000049a0  34 36 2c 33 29 3b 22 20  20 20 20 20 20 20 20 20  |46,3);"         |
000049b0  20 20 20 22 3b 8a 34 36  2c 33 29 3b 41 24 0d 11  |   ";.46,3);A$..|
000049c0  76 1d 20 e7 20 4b 24 3d  bd 28 31 33 29 20 8c 20  |v. . K$=.(13) . |
000049d0  47 4f 3d 31 3a e5 20 8d  74 54 51 0d 11 80 1f 20  |GO=1:. .tTQ.... |
000049e0  e7 20 4b 24 3c 22 21 22  20 84 20 4b 24 3e 22 7a  |. K$<"!" . K$>"z|
000049f0  22 20 8c 20 e5 20 8d 44  62 51 0d 11 8a 0d 20 41  |" . . .DbQ.... A|
00004a00  24 3d 41 24 2b 4b 24 0d  11 94 15 20 fd 20 a9 28  |$=A$+K$.... . .(|
00004a10  41 24 29 3e 38 20 84 20  47 4f 3d 31 0d 11 9e 32  |A$)>8 . GO=1...2|
00004a20  20 fb 20 36 33 3a f1 8a  33 30 2c 33 29 3b 22 20  | . 63:..30,3);" |
00004a30  27 22 3b 41 24 3b 22 27  20 49 53 20 54 48 49 53  |'";A$;"' IS THIS|
00004a40  20 43 4f 52 52 45 43 54  20 59 2f 4e 3f 22 0d 11  | CORRECT Y/N?"..|
00004a50  a8 28 20 4b 24 3d bf 28  31 30 29 3a e7 20 4b 24  |.( K$=.(10):. K$|
00004a60  3d 22 4e 22 20 84 20 4b  24 3d 22 6e 22 20 8c 20  |="N" . K$="n" . |
00004a70  e5 20 8d 64 74 50 0d 11  b2 21 20 e7 20 4b 24 3c  |. .dtP...! . K$<|
00004a80  3e 22 59 22 20 80 20 4b  24 3c 3e 22 79 22 20 8c  |>"Y" . K$<>"y" .|
00004a90  20 e5 20 8d 74 68 51 0d  11 bc 4a 20 4d 45 4e 55  | . .thQ...J MENU|
00004aa0  3d 30 3a 4f 50 54 3d 31  3a ef 20 32 34 2c 30 3b  |=0:OPT=1:. 24,0;|
00004ab0  30 3b 31 32 37 39 3b 31  30 32 33 3b 3a f2 62 72  |0;1279;1023;:.br|
00004ac0  69 6e 67 62 61 63 6b 3a  f5 3a c8 97 20 58 25 2c  |ingback:.:.. X%,|
00004ad0  59 25 2c 4b 25 3a fd 20  4b 25 3d 30 3a 5a 25 3d  |Y%,K%:. K%=0:Z%=|
00004ae0  30 0d 11 c6 30 20 ff 28  22 4d 4f 55 4e 54 20 22  |0...0 .("MOUNT "|
00004af0  2b c3 28 44 52 49 29 29  3a e7 20 44 52 49 3d 34  |+.(DRI)):. DRI=4|
00004b00  20 8c 20 2a 44 49 52 20  4e 53 41 52 43 54 49 53  | . *DIR NSARCTIS|
00004b10  54 0d 11 d0 18 20 c8 97  20 c8 93 20 30 2c 30 2c  |T.... .. .. 0,0,|
00004b20  31 32 38 35 2c 31 30 32  33 0d 11 da 2f 20 e7 20  |1285,1023.../ . |
00004b30  4f 50 54 54 3d 31 20 8c  20 41 24 3d 22 50 3d 22  |OPTT=1 . A$="P="|
00004b40  2b 41 24 3a ff 28 22 2a  53 43 52 45 45 4e 53 41  |+A$:.("*SCREENSA|
00004b50  56 45 20 22 2b 41 24 29  0d 11 e4 3e 20 e7 20 4f  |VE "+A$)...> . O|
00004b60  50 54 54 3d 32 20 8c 20  41 24 3d 22 50 3d 22 2b  |PTT=2 . A$="P="+|
00004b70  41 24 3a ff 28 22 2a 53  4c 4f 41 44 20 22 2b 41  |A$:.("*SLOAD "+A|
00004b80  24 29 3a 2a 53 43 48 4f  4f 53 45 20 73 63 72 65  |$):*SCHOOSE scre|
00004b90  65 6e 64 75 6d 70 0d 11  ee 68 20 e7 20 4f 50 54  |endump...h . OPT|
00004ba0  54 3d 32 20 8c 20 e3 20  58 3d 30 20 b8 20 35 30  |T=2 . . X=0 . 50|
00004bb0  30 20 88 20 32 30 3a ef  20 32 34 2c 35 30 30 2d  |0 . 20:. 24,500-|
00004bc0  58 3b 35 30 30 2d 58 3b  37 37 39 2b 58 3b 35 32  |X;500-X;779+X;52|
00004bd0  34 2b 58 3b 3a f0 20 26  45 44 2c 30 2c 30 3a ed  |4+X;:. &ED,0,0:.|
00004be0  3a ef 20 32 34 2c 30 3b  30 3b 31 32 37 39 3b 31  |:. 24,0;0;1279;1|
00004bf0  30 32 33 3b 3a f0 20 26  45 44 2c 30 2c 30 0d 11  |023;:. &ED,0,0..|
00004c00  f8 0a 20 2a 53 4e 45 57  0d 12 02 16 20 e7 20 4f  |.. *SNEW.... . O|
00004c10  50 54 54 3c 33 20 8c 20  e5 20 8d 64 54 52 0d 12  |PTT<3 . . .dTR..|
00004c20  0c 15 20 e7 20 4f 50 54  54 3d 33 20 8c 20 f2 61  |.. . OPTT=3 . .a|
00004c30  72 65 61 0d 12 16 16 20  e7 20 4f 50 54 54 3d 34  |rea.... . OPTT=4|
00004c40  20 8c 20 e5 20 8d 44 70  52 0d 12 20 1b 20 e7 20  | . . .DpR.. . . |
00004c50  58 32 25 3c 58 31 25 20  8c 20 c8 94 20 58 32 25  |X2%<X1% . .. X2%|
00004c60  2c 58 31 25 0d 12 2a 1b  20 e7 20 59 32 25 3c 59  |,X1%..*. . Y2%<Y|
00004c70  31 25 20 8c 20 c8 94 20  59 32 25 2c 59 31 25 0d  |1% . .. Y2%,Y1%.|
00004c80  12 34 0f 20 41 24 3d 22  53 3d 22 2b 41 24 0d 12  |.4. A$="S="+A$..|
00004c90  3e 09 20 41 56 3d 30 0d  12 48 18 20 ec 20 58 31  |>. AV=0..H. . X1|
00004ca0  25 2c 59 31 25 3a ec 20  58 32 25 2c 59 32 25 0d  |%,Y1%:. X2%,Y2%.|
00004cb0  12 52 0e 20 2a 53 47 45  54 20 73 70 69 0d 12 5c  |.R. *SGET spi..\|
00004cc0  14 20 ff 28 22 2a 53 53  41 56 45 20 22 2b 41 24  |. .("*SSAVE "+A$|
00004cd0  29 0d 12 66 0b 20 e5 20  8d 64 54 52 0d 12 70 0f  |)..f. . .dTR..p.|
00004ce0  20 41 24 3d 22 53 3d 22  2b 41 24 0d 12 7a 30 20  | A$="S="+A$..z0 |
00004cf0  ff 28 22 4d 4f 55 4e 54  20 22 2b c3 28 44 52 49  |.("MOUNT "+.(DRI|
00004d00  29 29 3a e7 20 44 52 49  3d 34 20 8c 20 2a 44 49  |)):. DRI=4 . *DI|
00004d10  52 20 4e 53 41 52 43 54  49 53 54 0d 12 84 14 20  |R NSARCTIST.... |
00004d20  ff 28 22 2a 53 4c 4f 41  44 20 22 2b 41 24 29 0d  |.("*SLOAD "+A$).|
00004d30  12 8e 11 20 2a 53 43 48  4f 4f 53 45 20 73 70 69  |... *SCHOOSE spi|
00004d40  0d 12 98 12 20 f5 3a c8  97 20 58 25 2c 59 25 2c  |.... .:.. X%,Y%,|
00004d50  5a 25 0d 12 a2 44 20 e6  20 33 2c 30 3a f0 20 26  |Z%...D . 3,0:. &|
00004d60  45 44 2c 58 25 2d 32 30  2c 59 25 2d 32 30 3a ff  |ED,X%-20,Y%-20:.|
00004d70  28 22 2a 46 58 31 39 22  29 3a ff 28 22 2a 46 58  |("*FX19"):.("*FX|
00004d80  31 39 22 29 3a f0 20 26  45 44 2c 58 25 2d 32 30  |19"):. &ED,X%-20|
00004d90  2c 59 25 2d 32 30 0d 12  ac 12 20 fd 20 5a 25 3d  |,Y%-20.... . Z%=|
00004da0  34 20 84 20 5a 25 3d 31  0d 12 b6 14 20 e7 20 5a  |4 . Z%=1.... . Z|
00004db0  25 3d 31 20 8c 20 e5 20  8d 64 54 52 0d 12 c0 25  |%=1 . . .dTR...%|
00004dc0  20 e7 20 4e 4e 25 3c 3e  31 20 8c 20 e6 20 30 3a  | . NN%<>1 . . 0:|
00004dd0  f0 20 26 45 44 2c 58 25  2d 32 30 2c 59 25 2d 32  |. &ED,X%-20,Y%-2|
00004de0  30 0d 12 ca 26 20 e7 20  4e 4e 25 3d 31 20 8c 20  |0...& . NN%=1 . |
00004df0  e6 20 33 2c 30 3a f0 20  26 45 44 2c 58 25 2d 32  |. 3,0:. &ED,X%-2|
00004e00  30 2c 59 25 2d 32 30 0d  12 d4 62 20 4f 50 54 3d  |0,Y%-20...b OPT=|
00004e10  31 3a 4d 45 4e 55 3d 31  3a ef 20 32 34 2c 30 3b  |1:MENU=1:. 24,0;|
00004e20  30 3b 31 32 37 39 3b 31  30 32 33 3b 3a f2 67 65  |0;1279;1023;:.ge|
00004e30  74 62 61 63 6b 3a f5 3a  c8 97 20 58 25 2c 59 25  |tback:.:.. X%,Y%|
00004e40  2c 5a 25 3a fd 20 5a 25  3d 30 3a f2 6d 65 6e 75  |,Z%:. Z%=0:.menu|
00004e50  31 3a ef 20 32 34 2c 30  3b 30 3b 31 32 37 39 3b  |1:. 24,0;0;1279;|
00004e60  38 32 39 3b 3a 5a 25 3d  30 0d 12 de 1c e7 20 4f  |829;:Z%=0..... O|
00004e70  50 54 54 3e 32 20 8c 20  20 2a 53 44 45 4c 45 54  |PTT>2 .  *SDELET|
00004e80  45 20 73 70 69 0d 12 e8  18 20 c8 97 20 c8 93 20  |E spi.... .. .. |
00004e90  30 2c 30 2c 31 32 38 35  2c 31 30 32 33 0d 12 f2  |0,0,1285,1023...|
00004ea0  06 20 e1 0d 12 fc 09 20  dd f2 6f 6e 0d 13 06 17  |. ..... ..on....|
00004eb0  20 ef 20 32 34 2c 30 3b  30 3b 31 32 37 39 3b 38  | . 24,0;0;1279;8|
00004ec0  32 39 3b 0d 13 10 06 20  e1 0d 13 1a 0a 20 dd f2  |29;.... ..... ..|
00004ed0  6f 66 66 0d 13 24 19 20  20 ef 20 32 34 2c 30 3b  |off..$.  . 24,0;|
00004ee0  30 3b 31 32 37 39 3b 31  30 32 33 3b 0d 13 2e 06  |0;1279;1023;....|
00004ef0  20 e1 0d 13 38 12 20 dd  f2 74 65 78 74 3a c8 97  | ...8. ..text:..|
00004f00  20 ee 20 33 0d 13 42 4a  20 4d 45 4e 55 3d 30 3a  | . 3..BJ MENU=0:|
00004f10  4f 50 54 3d 31 3a ef 20  32 34 2c 30 3b 30 3b 31  |OPT=1:. 24,0;0;1|
00004f20  32 37 39 3b 31 30 32 33  3b 3a f2 62 72 69 6e 67  |279;1023;:.bring|
00004f30  62 61 63 6b 3a f5 3a c8  97 20 58 25 2c 59 25 2c  |back:.:.. X%,Y%,|
00004f40  4b 25 3a fd 20 4b 25 3d  30 3a 5a 25 3d 30 0d 13  |K%:. K%=0:Z%=0..|
00004f50  4c 12 20 f5 3a c8 97 20  58 25 2c 59 25 2c 5a 25  |L. .:.. X%,Y%,Z%|
00004f60  0d 13 56 0a 20 f2 69 6d  66 6f 0d 13 60 59 20 e6  |..V. .imfo..`Y .|
00004f70  20 34 2c 30 3a 86 20 58  25 2c 59 25 2b 38 2c 58  | 4,0:. X%,Y%+8,X|
00004f80  25 2b 31 36 2c 59 25 2b  38 3a ff 28 22 2a 46 58  |%+16,Y%+8:.("*FX|
00004f90  31 39 22 29 3a ff 28 22  2a 46 58 31 39 22 29 3a  |19"):.("*FX19"):|
00004fa0  86 20 58 25 2c 59 25 2b  38 2c 58 25 2b 31 36 2c  |. X%,Y%+8,X%+16,|
00004fb0  59 25 2b 38 3a e6 20 43  4f 4c 25 20 c8 9c 20 54  |Y%+8:. COL% .. T|
00004fc0  4e 54 25 0d 13 6a 12 20  fd 20 5a 25 3d 34 20 84  |NT%..j. . Z%=4 .|
00004fd0  20 5a 25 3d 31 0d 13 74  0c 20 f2 62 6f 75 6e 63  | Z%=1..t. .bounc|
00004fe0  65 0d 13 7e 08 20 ef 20  35 0d 13 88 12 20 58 32  |e..~. . 5.... X2|
00004ff0  25 3d 58 25 3a 59 32 25  3d 59 25 0d 13 92 06 20  |%=X%:Y2%=Y%.... |
00005000  f5 0d 13 9c 12 20 c8 97  20 58 58 25 2c 59 59 25  |..... .. XX%,YY%|
00005010  2c 5a 25 0d 13 a6 4e 20  e6 20 34 2c 30 3a 86 20  |,Z%...N . 4,0:. |
00005020  58 25 2c 59 25 2b 38 2c  58 25 2b 31 36 2c 59 25  |X%,Y%+8,X%+16,Y%|
00005030  2b 38 3a ff 28 22 2a 46  58 31 39 22 29 3a 86 20  |+8:.("*FX19"):. |
00005040  58 25 2c 59 25 2b 38 2c  58 25 2b 31 36 2c 59 25  |X%,Y%+8,X%+16,Y%|
00005050  2b 38 3a e6 20 43 4f 4c  25 20 c8 9c 20 54 4e 54  |+8:. COL% .. TNT|
00005060  25 0d 13 b0 1c 20 4b 24  3d bf 28 31 30 29 3a e6  |%.... K$=.(10):.|
00005070  20 43 4f 4c 25 20 c8 9c  20 54 4e 54 25 0d 13 ba  | COL% .. TNT%...|
00005080  21 20 e7 20 4b 24 3e bd  28 33 31 29 20 80 20 4b  |! . K$>.(31) . K|
00005090  24 3c 22 7e 22 20 8c 20  e4 20 8d 54 4a 54 0d 13  |$<"~" . . .TJT..|
000050a0  c4 2f 20 e7 20 4b 24 3d  bd 28 31 33 29 20 8c 20  |./ . K$=.(13) . |
000050b0  58 25 3d 58 32 25 3a 59  25 3d 59 25 2d 33 32 3a  |X%=X2%:Y%=Y%-32:|
000050c0  e7 20 59 25 3c 30 20 8c  20 59 25 3d 30 0d 13 ce  |. Y%<0 . Y%=0...|
000050d0  68 20 e7 20 4b 24 3d bd  28 31 32 37 29 20 8c 20  |h . K$=.(127) . |
000050e0  58 25 3d 58 25 2d 31 36  3a 54 45 4d 25 3d c8 9c  |X%=X%-16:TEM%=..|
000050f0  28 58 25 2c 59 25 2b 31  36 29 3a e6 20 b0 58 25  |(X%,Y%+16):. .X%|
00005100  2c 59 25 2b 31 36 29 20  c8 9c 20 54 45 4d 25 3a  |,Y%+16) .. TEM%:|
00005110  c8 93 20 c8 90 20 58 25  2c 59 25 2b 38 2c 31 36  |.. .. X%,Y%+8,16|
00005120  2c 33 32 3a e7 20 58 25  3c 58 32 25 20 8c 20 58  |,32:. X%<X2% . X|
00005130  25 3d 58 32 25 0d 13 d8  12 20 fd 20 5a 25 3d 31  |%=X2%.... . Z%=1|
00005140  20 84 20 5a 25 3d 34 0d  13 e2 0a 20 ef 20 34 3a  | . Z%=4.... . 4:|
00005150  87 0d 13 ec 62 20 4f 50  54 3d 31 3a 4d 45 4e 55  |....b OPT=1:MENU|
00005160  3d 31 3a ef 20 32 34 2c  30 3b 30 3b 31 32 37 39  |=1:. 24,0;0;1279|
00005170  3b 31 30 32 33 3b 3a f2  67 65 74 62 61 63 6b 3a  |;1023;:.getback:|
00005180  f5 3a c8 97 20 58 25 2c  59 25 2c 5a 25 3a fd 20  |.:.. X%,Y%,Z%:. |
00005190  5a 25 3d 30 3a f2 6d 65  6e 75 31 3a ef 20 32 34  |Z%=0:.menu1:. 24|
000051a0  2c 30 3b 30 3b 31 32 37  39 3b 38 32 39 3b 3a 5a  |,0;0;1279;829;:Z|
000051b0  25 3d 30 0d 13 f6 0b 20  c8 97 20 ee 20 32 0d 14  |%=0.... .. . 2..|
000051c0  00 06 20 e1 0d 14 0a 18  20 f4 20 44 4f 20 54 45  |.. ..... . DO TE|
000051d0  58 54 20 46 55 4e 43 54  49 4f 4e 53 0d 14 14 20  |XT FUNCTIONS... |
000051e0  20 e7 20 42 4c 44 3d 31  20 8c 20 ec 20 58 25 2d  | . BLD=1 . . X%-|
000051f0  34 2c 59 25 2b 34 30 3a  f1 20 4b 24 0d 14 1e 14  |4,Y%+40:. K$....|
00005200  20 ec 20 58 25 2c 59 25  2b 34 30 3a f1 20 4b 24  | . X%,Y%+40:. K$|
00005210  0d 14 28 45 20 e7 20 42  4c 44 3d 32 20 8c 20 e6  |..(E . BLD=2 . .|
00005220  20 43 4f 4c 32 25 20 c8  9c 20 54 4e 54 32 25 3a  | COL2% .. TNT2%:|
00005230  86 20 58 25 2c 59 25 2b  31 34 2c 58 25 2b 31 36  |. X%,Y%+14,X%+16|
00005240  2c 59 25 2b 31 34 3a e6  20 43 4f 4c 25 20 c8 9c  |,Y%+14:. COL% ..|
00005250  20 54 4e 54 25 0d 14 32  62 20 e7 20 42 4c 44 3d  | TNT%..2b . BLD=|
00005260  33 20 8c 20 e6 20 43 4f  4c 32 25 20 c8 9c 20 54  |3 . . COL2% .. T|
00005270  4e 54 32 25 3a ec 20 58  25 2d 32 2c 59 25 2b 33  |NT2%:. X%-2,Y%+3|
00005280  36 3a f1 20 4b 24 3a ec  20 58 25 2b 32 2c 59 25  |6:. K$:. X%+2,Y%|
00005290  2b 33 36 3a f1 20 4b 24  3a e6 20 43 4f 4c 25 20  |+36:. K$:. COL% |
000052a0  c8 9c 20 54 4e 54 25 3a  ec 20 58 25 2c 59 25 2b  |.. TNT%:. X%,Y%+|
000052b0  34 30 3a f1 20 4b 24 0d  14 3c 5f 20 e7 20 42 4c  |40:. K$..<_ . BL|
000052c0  44 3d 34 20 8c 20 e6 20  43 4f 4c 32 25 20 c8 9c  |D=4 . . COL2% ..|
000052d0  20 54 4e 54 32 25 3a ec  20 20 58 25 2b 53 48 41  | TNT2%:.  X%+SHA|
000052e0  44 41 43 25 2c 59 25 2b  34 30 2b 53 48 41 44 44  |DAC%,Y%+40+SHADD|
000052f0  4e 25 3a f1 20 4b 24 3a  e6 20 43 4f 4c 25 20 c8  |N%:. K$:. COL% .|
00005300  9c 20 54 4e 54 25 3a ec  20 58 25 2c 59 25 2b 34  |. TNT%:. X%,Y%+4|
00005310  30 3a f1 20 4b 24 0d 14  46 35 20 58 25 3d 58 25  |0:. K$..F5 X%=X%|
00005320  2b 31 36 3a e7 20 58 25  3e 31 32 36 33 20 8c 20  |+16:. X%>1263 . |
00005330  58 25 3d 30 3a 59 25 3d  59 25 2d 33 32 3a e7 20  |X%=0:Y%=Y%-32:. |
00005340  59 25 3c 30 20 8c 20 59  25 3d 30 0d 14 50 06 20  |Y%<0 . Y%=0..P. |
00005350  f8 0d 14 5a 0b 20 dd f2  7a 6f 6f 6d 0d 14 64 0c  |...Z. ..zoom..d.|
00005360  20 f2 62 6f 75 6e 63 65  0d 14 6e 4a 20 4d 45 4e  | .bounce..nJ MEN|
00005370  55 3d 30 3a 4f 50 54 3d  31 3a ef 20 32 34 2c 30  |U=0:OPT=1:. 24,0|
00005380  3b 30 3b 31 32 37 39 3b  31 30 32 33 3b 3a f2 62  |;0;1279;1023;:.b|
00005390  72 69 6e 67 62 61 63 6b  3a f5 3a c8 97 20 58 25  |ringback:.:.. X%|
000053a0  2c 59 25 2c 4b 25 3a fd  20 4b 25 3d 30 3a 5a 25  |,Y%,K%:. K%=0:Z%|
000053b0  3d 30 0d 14 78 16 20 c8  97 20 c8 93 20 30 2c 30  |=0..x. .. .. 0,0|
000053c0  2c 39 35 38 2c 39 36 30  0d 14 82 06 20 f5 0d 14  |,958,960.... ...|
000053d0  8c 10 20 c8 97 20 58 25  2c 59 25 2c 5a 25 0d 14  |.. .. X%,Y%,Z%..|
000053e0  96 45 20 20 e6 20 34 2c  30 3a c8 93 20 c8 90 20  |.E  . 4,0:.. .. |
000053f0  58 25 2c 59 25 2c 33 32  2c 36 34 3a ff 28 22 2a  |X%,Y%,32,64:.("*|
00005400  46 58 31 39 22 29 3a ff  28 22 2a 46 58 31 39 22  |FX19"):.("*FX19"|
00005410  29 3a c8 93 20 c8 90 20  58 25 2c 59 25 2c 33 32  |):.. .. X%,Y%,32|
00005420  2c 36 34 0d 14 a0 12 20  fd 20 5a 25 3d 34 20 84  |,64.... . Z%=4 .|
00005430  20 5a 25 3d 31 0d 14 aa  18 20 c8 97 20 c8 93 20  | Z%=1.... .. .. |
00005440  30 2c 30 2c 31 32 38 35  2c 31 30 32 33 0d 14 b4  |0,0,1285,1023...|
00005450  12 20 58 32 25 3d 58 25  3a 59 32 25 3d 59 25 0d  |. X2%=X%:Y2%=Y%.|
00005460  14 be 13 20 e6 20 43 4f  4c 25 20 c8 9c 20 54 4e  |... . COL% .. TN|
00005470  54 25 0d 14 c8 14 20 e7  20 58 25 3e 39 39 30 20  |T%.... . X%>990 |
00005480  8c 20 5a 25 3d 31 0d 14  d2 6d 20 e7 20 5a 25 3d  |. Z%=1...m . Z%=|
00005490  31 20 8c 20 4f 50 54 3d  31 3a 4d 45 4e 55 3d 31  |1 . OPT=1:MENU=1|
000054a0  3a ef 20 32 34 2c 30 3b  30 3b 31 32 37 39 3b 31  |:. 24,0;0;1279;1|
000054b0  30 32 33 3b 3a f2 67 65  74 62 61 63 6b 3a f5 3a  |023;:.getback:.:|
000054c0  c8 97 20 58 25 2c 59 25  2c 5a 25 3a fd 20 5a 25  |.. X%,Y%,Z%:. Z%|
000054d0  3d 30 3a f2 6d 65 6e 75  31 3a ef 20 32 34 2c 30  |=0:.menu1:. 24,0|
000054e0  3b 30 3b 31 32 37 39 3b  38 32 39 3b 3a 5a 25 3d  |;0;1279;829;:Z%=|
000054f0  30 3a e1 0d 14 dc 17 ef  20 32 34 2c 30 3b 30 3b  |0:...... 24,0;0;|
00005500  31 32 37 39 3b 31 30 32  33 3b 0d 14 e6 26 20 ec  |1279;1023;...& .|
00005510  20 31 30 32 32 2c 34 38  30 3a ec 20 31 32 37 38  | 1022,480:. 1278|
00005520  2c 31 30 32 32 3a 2a 53  47 45 54 20 7a 62 69 74  |,1022:*SGET zbit|
00005530  0d 14 f0 6e 20 e3 20 44  25 3d 31 35 20 b8 20 30  |...n . D%=15 . 0|
00005540  20 88 2d 31 3a e3 20 41  25 3d 30 20 b8 20 31 35  | .-1:. A%=0 . 15|
00005550  3a 4b 4f 4c 25 3d b0 28  58 25 2b 28 41 25 2a 32  |:KOL%=.(X%+(A%*2|
00005560  29 29 2c 28 59 25 2b 28  44 25 2a 34 29 29 29 3a  |)),(Y%+(D%*4))):|
00005570  54 4e 25 3d c8 9c 28 28  58 25 2b 28 41 25 2a 32  |TN%=..((X%+(A%*2|
00005580  29 29 2c 28 59 25 2b 28  44 25 2a 34 29 29 29 3a  |)),(Y%+(D%*4))):|
00005590  fb 20 20 4b 4f 4c 25 20  c8 9c 20 54 4e 25 0d 14  |.  KOL% .. TN%..|
000055a0  fa 54 20 e7 20 4b 4f 4c  25 3e 30 20 8c 20 f1 8a  |.T . KOL%>0 . ..|
000055b0  36 34 2b 41 25 2c 31 35  2d 44 25 29 3b bd 28 31  |64+A%,15-D%);.(1|
000055c0  39 30 29 20 8b 20 e7 20  4b 4f 4c 25 3d 30 20 8c  |90) . . KOL%=0 .|
000055d0  20 fb 20 36 33 20 c8 9c  20 31 39 32 3a f1 8a 36  | . 63 .. 192:..6|
000055e0  34 2b 41 25 2c 31 35 2d  44 25 29 3b bd 28 31 39  |4+A%,15-D%);.(19|
000055f0  31 29 0d 15 04 0c 20 ed  20 41 25 2c 44 25 0d 15  |1).... . A%,D%..|
00005600  0e 12 20 c8 97 20 b8 20  31 31 30 30 2c 39 30 30  |.. .. . 1100,900|
00005610  0d 15 18 3d 20 c8 93 20  c8 90 20 20 31 30 32 35  |...= .. ..  1025|
00005620  2c 35 31 30 2c 32 35 32  2c 2d 33 30 3a e6 20 36  |,510,252,-30:. 6|
00005630  33 20 c8 9c 20 31 39 32  3a c8 93 20 20 31 30 32  |3 .. 192:..  102|
00005640  35 2c 35 31 30 2c 32 35  32 2c 2d 33 30 0d 15 22  |5,510,252,-30.."|
00005650  13 20 f5 20 3a c8 97 20  58 25 2c 59 25 2c 5a 25  |. . :.. X%,Y%,Z%|
00005660  0d 15 2c ae 20 e7 20 5a  25 3d 34 20 80 20 59 25  |..,. . Z%=4 . Y%|
00005670  3e 35 31 30 20 80 20 59  25 3c 31 30 32 30 20 80  |>510 . Y%<1020 .|
00005680  20 58 25 3e 31 30 32 30  20 80 20 58 25 3c 31 32  | X%>1020 . X%<12|
00005690  37 32 20 8c 20 58 25 3d  58 25 2d 31 30 32 32 3a  |72 . X%=X%-1022:|
000056a0  59 25 3d 59 25 2d 35 31  30 3a 58 31 25 3d 58 25  |Y%=Y%-510:X1%=X%|
000056b0  2f 31 36 3a 59 31 25 3d  59 25 2f 33 32 3a fb 20  |/16:Y1%=Y%/32:. |
000056c0  43 4f 4c 25 20 c8 9c 20  54 4e 54 25 3a f1 8a 58  |COL% .. TNT%:..X|
000056d0  31 25 2b 36 34 2c 31 35  2d 59 31 25 29 3b bd 28  |1%+64,15-Y1%);.(|
000056e0  31 39 30 29 3a e6 20 43  4f 4c 25 20 c8 9c 20 54  |190):. COL% .. T|
000056f0  4e 54 25 3a c8 92 20 58  32 25 2b 28 58 31 25 2a  |NT%:.. X2%+(X1%*|
00005700  32 29 2c 59 32 25 2b 28  59 31 25 2a 34 29 0d 15  |2),Y2%+(Y1%*4)..|
00005710  36 a2 20 e7 20 5a 25 3d  32 20 80 20 59 25 3e 35  |6. . Z%=2 . Y%>5|
00005720  31 30 20 80 20 59 25 3c  31 30 32 30 20 80 20 58  |10 . Y%<1020 . X|
00005730  25 3e 31 30 32 30 20 80  20 58 25 3c 31 32 37 32  |%>1020 . X%<1272|
00005740  20 8c 20 58 25 3d 58 25  2d 31 30 32 32 3a 59 25  | . X%=X%-1022:Y%|
00005750  3d 59 25 2d 35 31 30 3a  58 31 25 3d 58 25 2f 31  |=Y%-510:X1%=X%/1|
00005760  36 3a 59 31 25 3d 59 25  2f 33 32 3a fb 20 30 20  |6:Y1%=Y%/32:. 0 |
00005770  c8 9c 20 30 3a f1 8a 58  31 25 2b 36 34 2c 31 35  |.. 0:..X1%+64,15|
00005780  2d 59 31 25 29 3b bd 28  31 39 30 29 3a e6 20 30  |-Y1%);.(190):. 0|
00005790  20 c8 9c 20 30 3a c8 92  20 58 32 25 2b 28 58 31  | .. 0:.. X2%+(X1|
000057a0  25 2a 32 29 2c 59 32 25  2b 28 59 31 25 2a 34 29  |%*2),Y2%+(Y1%*4)|
000057b0  0d 15 40 0b 20 fd 20 5a  25 3d 31 0d 15 4a 12 20  |..@. . Z%=1..J. |
000057c0  2a 53 43 48 4f 4f 53 45  20 7a 62 69 74 0d 15 54  |*SCHOOSE zbit..T|
000057d0  17 20 e6 20 30 3a f0 20  26 45 44 2c 31 30 32 32  |. . 0:. &ED,1022|
000057e0  2c 34 38 30 0d 15 5e 34  20 ef 20 32 34 2c 30 3b  |,480..^4 . 24,0;|
000057f0  30 3b 31 32 37 39 3b 31  30 32 33 3b 3a f2 67 65  |0;1279;1023;:.ge|
00005800  74 62 61 63 6b 3a ef 20  32 34 2c 30 3b 30 3b 31  |tback:. 24,0;0;1|
00005810  32 37 39 3b 38 32 39 3b  0d 15 68 11 20 c8 97 20  |279;829;..h. .. |
00005820  b8 20 58 32 25 2c 59 32  25 0d 15 72 0b 20 e5 20  |. X2%,Y2%..r. . |
00005830  8d 44 64 54 0d 15 7c 62  20 4f 50 54 3d 31 3a 4d  |.DdT..|b OPT=1:M|
00005840  45 4e 55 3d 31 3a ef 20  32 34 2c 30 3b 30 3b 31  |ENU=1:. 24,0;0;1|
00005850  32 37 39 3b 31 30 32 33  3b 3a f2 67 65 74 62 61  |279;1023;:.getba|
00005860  63 6b 3a f5 3a c8 97 20  58 25 2c 59 25 2c 5a 25  |ck:.:.. X%,Y%,Z%|
00005870  3a fd 20 5a 25 3d 30 3a  f2 6d 65 6e 75 31 3a ef  |:. Z%=0:.menu1:.|
00005880  20 32 34 2c 30 3b 30 3b  31 32 37 39 3b 38 32 39  | 24,0;0;1279;829|
00005890  3b 3a 5a 25 3d 30 0d 15  86 06 20 e1 0d 15 90 0c  |;:Z%=0.... .....|
000058a0  20 dd f2 73 65 74 75 70  0d 15 9a 0d 20 f2 67 65  | ..setup.... .ge|
000058b0  74 62 61 63 6b 0d 15 a4  0b 20 c8 97 20 ee 20 32  |tback.... .. . 2|
000058c0  0d 15 ae 1e 20 c8 97 20  fb 20 32 2c 31 30 30 2c  |.... .. . 2,100,|
000058d0  31 31 30 2c 31 32 30 3a  c8 97 20 ee 20 32 0d 15  |110,120:.. . 2..|
000058e0  b8 17 20 c8 97 20 fb 20  31 2c 32 30 30 2c 31 39  |.. .. . 1,200,19|
000058f0  30 2c 31 38 30 0d 15 c2  06 20 87 0d 15 cc 18 20  |0,180.... ..... |
00005900  c8 97 20 c8 93 20 30 2c  30 2c 31 32 38 35 2c 31  |.. .. 0,0,1285,1|
00005910  30 32 33 0d 15 d6 0b 20  4d 45 4e 55 3d 31 0d 15  |023.... MENU=1..|
00005920  e0 14 20 43 4f 4c 25 3d  30 3a 54 4e 54 25 3d 31  |.. COL%=0:TNT%=1|
00005930  39 32 0d 15 ea 0b 20 f2  6d 65 6e 75 31 0d 15 f4  |92.... .menu1...|
00005940  0a 20 4f 50 54 3d 31 0d  15 fe 06 20 e1 0d 16 08  |. OPT=1.... ....|
00005950  0e 20 dd f2 67 65 74 62  61 63 6b 0d 16 12 24 20  |. ..getback...$ |
00005960  ec 20 30 2c 38 33 33 3a  ec 20 31 32 37 39 2c 31  |. 0,833:. 1279,1|
00005970  30 32 33 3a 2a 53 47 45  54 20 42 4c 4f 43 4b 0d  |023:*SGET BLOCK.|
00005980  16 1c 06 20 e1 0d 16 26  10 20 dd f2 62 72 69 6e  |... ...&. ..brin|
00005990  67 62 61 63 6b 0d 16 30  13 20 2a 53 43 48 4f 4f  |gback..0. *SCHOO|
000059a0  53 45 20 42 4c 4f 43 4b  0d 16 3a 10 20 f0 20 26  |SE BLOCK..:. . &|
000059b0  45 44 2c 30 2c 38 33 33  0d 16 44 06 20 e1 0d 16  |ED,0,833..D. ...|
000059c0  4e 45 20 dd f2 6d 65 6e  75 31 3a f4 20 54 48 49  |NE ..menu1:. THI|
000059d0  53 20 49 53 20 54 48 45  20 4d 41 49 4e 20 4d 45  |S IS THE MAIN ME|
000059e0  4e 55 20 3c 3c 3c 3c 3c  3c 3c 3c 3c 3c 3c 3c 3c  |NU <<<<<<<<<<<<<|
000059f0  3c 3c 3c 3c 3c 3c 3c 3c  3c 3c 3c 3c 3c 3c 3c 3c  |<<<<<<<<<<<<<<<<|
00005a00  3c 3c 3c 0d 16 58 17 20  f1 8a 30 2c 30 29 3b bd  |<<<..X. ..0,0);.|
00005a10  28 37 29 3a 4f 50 54 32  3d 30 0d 16 62 22 20 ec  |(7):OPT2=0..b" .|
00005a20  20 30 2c 30 3a ec 20 31  32 37 39 2c 31 30 32 33  | 0,0:. 1279,1023|
00005a30  3a 2a 53 47 45 54 20 5a  54 45 4d 50 0d 16 6c 0e  |:*SGET ZTEMP..l.|
00005a40  20 2a 46 58 20 31 31 32  2c 32 0d 16 76 13 20 2a  | *FX 112,2..v. *|
00005a50  53 43 48 4f 4f 53 45 20  5a 54 45 4d 50 0d 16 80  |SCHOOSE ZTEMP...|
00005a60  18 20 f0 20 26 45 44 2c  30 2c 30 3a 2a 46 58 20  |. . &ED,0,0:*FX |
00005a70  31 31 33 2c 32 0d 16 8a  0e 20 2a 46 58 20 31 31  |113,2.... *FX 11|
00005a80  32 2c 31 0d 16 94 0e 20  f0 20 26 45 44 2c 30 2c  |2,1.... . &ED,0,|
00005a90  30 0d 16 9e 23 20 e6 20  31 20 c8 9c 20 30 3a c8  |0...# . 1 .. 0:.|
00005aa0  93 20 c8 90 20 32 30 2c  38 33 33 2c 31 32 35 39  |. .. 20,833,1259|
00005ab0  2c 31 37 30 0d 16 a8 25  20 e6 20 34 32 20 c8 9c  |,170...% . 42 ..|
00005ac0  20 31 32 38 3a c8 93 20  c8 90 20 30 2c 38 35 33  | 128:.. .. 0,853|
00005ad0  2c 31 32 35 39 2c 31 37  30 0d 16 b2 1b 20 e6 20  |,1259,170.... . |
00005ae0  30 3a c8 93 20 20 32 2c  38 34 39 2c 31 32 36 31  |0:..  2,849,1261|
00005af0  2c 31 37 30 0d 16 bc 1c  20 e6 20 34 32 3a c8 93  |,170.... . 42:..|
00005b00  20 20 30 2c 38 35 33 2c  31 32 35 30 2c 31 38 30  |  0,853,1250,180|
00005b10  0d 16 c6 1e 20 fb 20 31  32 38 2b 34 32 20 c8 9c  |.... . 128+42 ..|
00005b20  20 30 3a fb 20 31 36 20  c8 9c 20 31 39 32 0d 16  | 0:. 16 .. 192..|
00005b30  d0 0b 20 59 25 3d 38 37  30 0d 16 da 35 20 e3 20  |.. Y%=870...5 . |
00005b40  58 25 3d 30 20 b8 20 31  35 3a e3 20 5a 25 3d 32  |X%=0 . 15:. Z%=2|
00005b50  20 b8 20 33 20 3a 59 25  3d 59 25 2b 34 3a e6 20  | . 3 :Y%=Y%+4:. |
00005b60  58 25 2a 5a 25 20 c8 9c  20 5a 25 2a 36 34 0d 16  |X%*Z% .. Z%*64..|
00005b70  e4 1a 20 86 20 32 30 2c  59 25 2c 35 30 2c 59 25  |.. . 20,Y%,50,Y%|
00005b80  3a ed 20 5a 25 2c 58 25  0d 16 ee 10 20 e6 20 33  |:. Z%,X%.... . 3|
00005b90  30 20 c8 9c 20 31 39 32  0d 16 f8 1e 20 f1 8a 37  |0 .. 192.... ..7|
00005ba0  2c 31 29 3b 22 80 81 82  20 22 8a 37 2c 32 29 3b  |,1);"... ".7,2);|
00005bb0  22 83 84 85 20 22 0d 17  02 36 20 ef 20 35 3a ec  |"... "...6 . 5:.|
00005bc0  20 37 2a 31 36 2b 38 2c  39 39 35 3a f1 22 80 81  | 7*16+8,995:."..|
00005bd0  82 20 22 3a ec 20 37 2a  31 36 2b 38 2c 39 36 34  |. ":. 7*16+8,964|
00005be0  3a f1 22 83 84 85 20 22  3a ef 20 34 0d 17 0c 21  |:."... ":. 4...!|
00005bf0  20 f1 8a 31 32 2c 31 29  3b 22 86 87 87 88 22 3b  | ..12,1);"....";|
00005c00  8a 31 32 2c 32 29 3b 22  89 8a 8a 8b 22 0d 17 16  |.12,2);"...."...|
00005c10  38 20 ef 20 35 3a ec 20  31 32 2a 31 36 2b 38 2c  |8 . 5:. 12*16+8,|
00005c20  39 39 35 3a f1 22 86 87  87 88 22 3a ec 20 31 32  |995:."....":. 12|
00005c30  2a 31 36 2b 38 2c 39 36  34 3a f1 22 89 8a 8a 8b  |*16+8,964:."....|
00005c40  22 3a ef 20 34 0d 17 20  21 20 f1 8a 31 37 2c 31  |":. 4.. ! ..17,1|
00005c50  29 3b 22 20 8c 8d 20 22  3b 8a 31 37 2c 32 29 3b  |);" .. ";.17,2);|
00005c60  22 20 8e 8f 20 22 0d 17  2a 38 20 ef 20 35 3a ec  |" .. "..*8 . 5:.|
00005c70  20 31 37 2a 31 36 2b 38  2c 39 39 35 3a f1 22 20  | 17*16+8,995:." |
00005c80  8c 8d 20 22 3a ec 20 31  37 2a 31 36 2b 38 2c 39  |.. ":. 17*16+8,9|
00005c90  36 34 3a f1 22 20 8e 8f  20 22 3a ef 20 34 0d 17  |64:." .. ":. 4..|
00005ca0  34 21 20 f1 8a 32 32 2c  31 29 3b 22 20 90 91 92  |4! ..22,1);" ...|
00005cb0  22 3b 8a 32 32 2c 32 29  3b 22 20 93 94 95 22 0d  |";.22,2);" ...".|
00005cc0  17 3e 38 20 ef 20 35 3a  ec 20 32 32 2a 31 36 2b  |.>8 . 5:. 22*16+|
00005cd0  38 2c 39 39 35 3a f1 22  20 90 91 92 22 3a ec 20  |8,995:." ...":. |
00005ce0  32 32 2a 31 36 2b 38 2c  39 36 34 3a f1 22 20 93  |22*16+8,964:." .|
00005cf0  94 95 22 3a ef 20 34 0d  17 48 12 20 f1 8a 38 2c  |..":. 4..H. ..8,|
00005d00  34 29 3b 22 20 9a 9b 9c  22 0d 17 52 24 20 ef 20  |4);" ..."..R$ . |
00005d10  35 3a ec 20 38 2a 31 36  2b 38 2c 39 39 35 2d 39  |5:. 8*16+8,995-9|
00005d20  36 3a f1 22 20 9a 9b 9c  22 3a ef 20 34 0d 17 5c  |6:." ...":. 4..\|
00005d30  21 20 f1 8a 32 37 2c 31  29 3b 22 20 96 97 20 22  |! ..27,1);" .. "|
00005d40  3b 8a 32 37 2c 32 29 3b  22 20 98 99 20 22 0d 17  |;.27,2);" .. "..|
00005d50  66 38 20 ef 20 35 3a ec  20 32 37 2a 31 36 2b 38  |f8 . 5:. 27*16+8|
00005d60  2c 39 39 35 3a f1 22 20  96 97 20 22 3a ec 20 32  |,995:." .. ":. 2|
00005d70  37 2a 31 36 2b 38 2c 39  36 34 3a f1 22 20 98 99  |7*16+8,964:." ..|
00005d80  20 22 3a ef 20 34 0d 17  70 21 20 f1 8a 33 32 2c  | ":. 4..p! ..32,|
00005d90  31 29 3b 22 20 9d 9e 20  22 3b 8a 33 32 2c 32 29  |1);" .. ";.32,2)|
00005da0  3b 22 20 9f a0 20 22 0d  17 7a 38 20 ef 20 35 3a  |;" .. "..z8 . 5:|
00005db0  ec 20 33 32 2a 31 36 2b  38 2c 39 39 35 3a f1 22  |. 32*16+8,995:."|
00005dc0  20 9d 9e 20 22 3a ec 20  33 32 2a 31 36 2b 38 2c  | .. ":. 32*16+8,|
00005dd0  39 36 34 3a f1 22 20 9f  a0 20 22 3a ef 20 34 0d  |964:." .. ":. 4.|
00005de0  17 84 16 20 f1 8a 31 39  2c 34 29 3b 22 a1 a2 a3  |... ..19,4);"...|
00005df0  a4 a5 a6 a7 22 0d 17 8e  28 20 ef 20 35 3a ec 20  |...."...( . 5:. |
00005e00  31 39 2a 31 36 2b 38 2c  39 39 35 2d 39 36 3a f1  |19*16+8,995-96:.|
00005e10  22 a1 a2 a3 a4 a5 a6 a7  22 3a ef 20 34 0d 17 98  |".......":. 4...|
00005e20  21 20 f1 8a 33 37 2c 31  29 3b 22 a8 a9 aa ab 22  |! ..37,1);"...."|
00005e30  3b 8a 33 37 2c 32 29 3b  22 ac ad ae af 22 0d 17  |;.37,2);"...."..|
00005e40  a2 38 20 ef 20 35 3a ec  20 33 37 2a 31 36 2b 38  |.8 . 5:. 37*16+8|
00005e50  2c 39 39 35 3a f1 22 a8  a9 aa ab 22 3a ec 20 33  |,995:."....":. 3|
00005e60  37 2a 31 36 2b 38 2c 39  36 34 3a f1 22 ac ad ae  |7*16+8,964:."...|
00005e70  af 22 3a ef 20 34 0d 17  ac 21 20 f1 8a 34 32 2c  |.":. 4...! ..42,|
00005e80  31 29 3b 22 b0 b1 b2 b3  22 3b 8a 34 32 2c 32 29  |1);"....";.42,2)|
00005e90  3b 22 b4 b5 b6 b7 22 0d  17 b6 38 20 ef 20 35 3a  |;"...."...8 . 5:|
00005ea0  ec 20 34 32 2a 31 36 2b  38 2c 39 39 35 3a f1 22  |. 42*16+8,995:."|
00005eb0  b0 b1 b2 b3 22 3a ec 20  34 32 2a 31 36 2b 38 2c  |....":. 42*16+8,|
00005ec0  39 36 34 3a f1 22 b4 b5  b6 b7 22 3a ef 20 34 0d  |964:."....":. 4.|
00005ed0  17 c0 21 20 f1 8a 34 37  2c 31 29 3b 22 20 b8 b9  |..! ..47,1);" ..|
00005ee0  20 22 3b 8a 34 37 2c 32  29 3b 22 20 ba bb 20 22  | ";.47,2);" .. "|
00005ef0  0d 17 ca 38 20 ef 20 35  3a ec 20 34 37 2a 31 36  |...8 . 5:. 47*16|
00005f00  2b 38 2c 39 39 35 3a f1  22 20 b8 b9 20 22 3a ec  |+8,995:." .. ":.|
00005f10  20 34 37 2a 31 36 2b 38  2c 39 36 34 3a f1 22 20  | 47*16+8,964:." |
00005f20  ba bb 20 22 3a ef 20 34  0d 17 d4 21 20 f1 8a 35  |.. ":. 4...! ..5|
00005f30  32 2c 31 29 3b 22 bd bc  bc bd 22 3b 8a 35 32 2c  |2,1);"....";.52,|
00005f40  32 29 3b 22 bd bd bc bc  22 0d 17 de 38 20 ef 20  |2);"...."...8 . |
00005f50  35 3a ec 20 35 32 2a 31  36 2b 38 2c 39 39 35 3a  |5:. 52*16+8,995:|
00005f60  f1 22 bd bc bc bd 22 3a  ec 20 35 32 2a 31 36 2b  |."....":. 52*16+|
00005f70  38 2c 39 36 34 3a f1 22  bd bd bc bc 22 3a ef 20  |8,964:."....":. |
00005f80  34 0d 17 e8 21 20 f1 8a  35 37 2c 31 29 3b 22 20  |4...! ..57,1);" |
00005f90  c0 c1 20 22 3b 8a 35 37  2c 32 29 3b 22 20 c2 c3  |.. ";.57,2);" ..|
00005fa0  20 22 0d 17 f2 38 20 ef  20 35 3a ec 20 35 37 2a  | "...8 . 5:. 57*|
00005fb0  31 36 2b 38 2c 39 39 35  3a f1 22 20 c0 c1 20 22  |16+8,995:." .. "|
00005fc0  3a ec 20 35 37 2a 31 36  2b 38 2c 39 36 34 3a f1  |:. 57*16+8,964:.|
00005fd0  22 20 c2 c3 20 22 3a ef  20 34 0d 17 fc 21 20 f1  |" .. ":. 4...! .|
00005fe0  8a 36 32 2c 31 29 3b 22  c4 c5 c6 c7 22 3b 8a 36  |.62,1);"....";.6|
00005ff0  32 2c 32 29 3b 22 c8 c9  ca cb 22 0d 18 06 38 20  |2,2);"...."...8 |
00006000  ef 20 35 3a ec 20 36 32  2a 31 36 2b 38 2c 39 39  |. 5:. 62*16+8,99|
00006010  35 3a f1 22 c4 c5 c6 c7  22 3a ec 20 36 32 2a 31  |5:."....":. 62*1|
00006020  36 2b 38 2c 39 36 34 3a  f1 22 c8 c9 ca cb 22 3a  |6+8,964:."....":|
00006030  ef 20 34 0d 18 10 21 20  f1 8a 36 37 2c 31 29 3b  |. 4...! ..67,1);|
00006040  22 cc cd ce cf 22 3b 8a  36 37 2c 32 29 3b 22 d0  |"....";.67,2);".|
00006050  d1 d2 d3 22 0d 18 1a 38  20 ef 20 35 3a ec 20 36  |..."...8 . 5:. 6|
00006060  37 2a 31 36 2b 38 2c 39  39 35 3a f1 22 cc cd ce  |7*16+8,995:."...|
00006070  cf 22 3a ec 20 36 37 2a  31 36 2b 38 2c 39 36 34  |.":. 67*16+8,964|
00006080  3a f1 22 d0 d1 d2 d3 22  3a ef 20 34 0d 18 24 21  |:."....":. 4..$!|
00006090  20 f1 8a 37 32 2c 31 29  3b 22 d4 d5 d6 d7 22 3b  | ..72,1);"....";|
000060a0  8a 37 32 2c 32 29 3b 22  d8 d9 da d7 22 0d 18 2e  |.72,2);"...."...|
000060b0  38 20 ef 20 35 3a ec 20  37 32 2a 31 36 2b 38 2c  |8 . 5:. 72*16+8,|
000060c0  39 39 35 3a f1 22 d4 d5  d6 d7 22 3a ec 20 37 32  |995:."....":. 72|
000060d0  2a 31 36 2b 38 2c 39 36  34 3a f1 22 d8 d9 da d7  |*16+8,964:."....|
000060e0  22 3a ef 20 34 0d 18 38  13 20 f1 8a 33 33 2c 34  |":. 4..8. ..33,4|
000060f0  29 3b 22 dc dd de dc 22  0d 18 42 25 20 ef 20 35  |);"...."..B% . 5|
00006100  3a ec 20 33 33 2a 31 36  2b 38 2c 39 39 35 2d 39  |:. 33*16+8,995-9|
00006110  36 3a f1 22 dc dd de dc  22 3a ef 20 34 0d 18 4c  |6:."....":. 4..L|
00006120  13 20 f1 8a 34 37 2c 34  29 3b 22 df e0 e1 e2 22  |. ..47,4);"...."|
00006130  0d 18 56 25 20 ef 20 35  3a ec 20 34 37 2a 31 36  |..V% . 5:. 47*16|
00006140  2b 38 2c 39 39 35 2d 39  36 3a f1 22 df e0 e1 e2  |+8,995-96:."....|
00006150  22 3a ef 20 34 0d 18 60  13 20 20 f1 8a 37 35 2c  |":. 4..`.  ..75,|
00006160  34 29 3b 22 20 e3 20 22  0d 18 6a 22 20 ef 20 35  |4);" . "..j" . 5|
00006170  3a ec 20 37 36 2a 31 36  2b 38 2c 39 39 35 2d 39  |:. 76*16+8,995-9|
00006180  36 3a f1 22 e3 22 3a ef  20 34 0d 18 74 24 20 fb  |6:.".":. 4..t$ .|
00006190  20 31 32 38 3a ef 20 32  34 2c 30 3b 30 3b 31 32  | 128:. 24,0;0;12|
000061a0  37 39 3b 31 30 32 33 3b  3a e6 20 34 2c 30 0d 18  |79;1023;:. 4,0..|
000061b0  7e 21 e7 20 4f 54 54 3d  31 20 8c 20 c8 93 20 c8  |~!. OTT=1 . .. .|
000061c0  90 20 31 31 30 2c 39 32  35 2c 36 35 2c 36 35 0d  |. 110,925,65,65.|
000061d0  18 88 22 20 e7 20 4f 54  54 3d 32 20 8c 20 c8 93  |.." . OTT=2 . ..|
000061e0  20 c8 90 20 31 39 30 2c  39 32 35 2c 36 35 2c 36  | .. 190,925,65,6|
000061f0  35 0d 18 92 22 20 e7 20  4f 54 54 3d 33 20 8c 20  |5..." . OTT=3 . |
00006200  c8 93 20 c8 90 20 32 37  30 2c 39 32 35 2c 36 35  |.. .. 270,925,65|
00006210  2c 36 35 0d 18 9c 22 20  e7 20 4f 54 54 3d 34 20  |,65..." . OTT=4 |
00006220  8c 20 c8 93 20 c8 90 20  33 35 30 2c 39 32 35 2c  |. .. .. 350,925,|
00006230  36 35 2c 36 35 0d 18 a6  23 20 e7 20 4e 4e 25 3d  |65,65...# . NN%=|
00006240  31 20 8c 20 c8 93 20 c8  90 20 33 30 36 2c 38 37  |1 . .. .. 306,87|
00006250  30 2c 31 30 38 2c 32 34  0d 18 b0 22 20 e7 20 4f  |0,108,24..." . O|
00006260  54 54 3d 37 20 8c 20 c8  93 20 c8 90 20 35 39 35  |TT=7 . .. .. 595|
00006270  2c 39 32 35 2c 36 35 2c  36 35 0d 18 ba 22 20 e7  |,925,65,65..." .|
00006280  20 4f 54 54 3d 36 20 8c  20 c8 93 20 c8 90 20 35  | OTT=6 . .. .. 5|
00006290  31 30 2c 39 32 35 2c 36  35 2c 36 35 0d 18 c4 22  |10,925,65,65..."|
000062a0  20 e7 20 4f 54 54 3d 35  20 8c 20 c8 93 20 c8 90  | . OTT=5 . .. ..|
000062b0  20 34 33 30 2c 39 32 35  2c 36 35 2c 36 35 0d 18  | 430,925,65,65..|
000062c0  ce 22 20 e7 20 4f 54 54  3d 38 20 8c 20 c8 93 20  |." . OTT=8 . .. |
000062d0  c8 90 20 36 37 35 2c 39  32 35 2c 36 35 2c 36 35  |.. 675,925,65,65|
000062e0  0d 18 d8 23 20 e7 20 4f  54 54 3d 31 30 20 8c 20  |...# . OTT=10 . |
000062f0  c8 93 20 c8 90 20 38 33  32 2c 39 32 35 2c 36 35  |.. .. 832,925,65|
00006300  2c 36 35 0d 18 e2 22 20  e7 20 4f 54 54 3d 39 20  |,65..." . OTT=9 |
00006310  8c 20 c8 93 20 c8 90 20  37 35 35 2c 39 32 35 2c  |. .. .. 755,925,|
00006320  36 35 2c 36 35 0d 18 ec  2a 20 e7 20 4f 54 49 3d  |65,65...* . OTI=|
00006330  30 20 80 4f 54 54 3d 31  31 20 8c 20 c8 93 20 c8  |0 .OTT=11 . .. .|
00006340  90 20 39 31 35 2c 39 32  35 2c 36 35 2c 36 35 0d  |. 915,925,65,65.|
00006350  18 f6 24 20 e7 20 4f 54  49 3d 31 32 20 8c 20 c8  |..$ . OTI=12 . .|
00006360  93 20 c8 90 20 31 30 37  35 2c 39 32 35 2c 36 35  |. .. 1075,925,65|
00006370  2c 36 35 0d 19 00 37 20  ef 20 35 3a f4 20 47 43  |,65...7 . 5:. GC|
00006380  4f 4c 20 32 31 3a 4d 4f  56 45 20 39 31 36 2c 39  |OL 21:MOVE 916,9|
00006390  30 32 3a 50 52 49 4e 54  22 41 52 43 54 49 53 54  |02:PRINT"ARCTIST|
000063a0  20 76 65 72 20 31 2e 30  2e 22 0d 19 0a 26 20 e6  | ver 1.0."...& .|
000063b0  20 33 32 3a ec 20 38 38  36 2c 38 39 38 3a f1 22  | 32:. 886,898:."|
000063c0  41 52 43 54 49 53 54 20  76 65 72 20 22 3b 56 24  |ARCTIST ver ";V$|
000063d0  0d 19 14 25 20 e6 20 32  3a ec 20 38 38 32 2c 38  |...% . 2:. 882,8|
000063e0  39 34 3a f1 22 41 52 43  54 49 53 54 20 76 65 72  |94:."ARCTIST ver|
000063f0  20 22 3b 56 24 0d 19 1e  0a 20 ef 20 34 3a 87 0d  | ";V$.... . 4:..|
00006400  19 28 30 20 e6 20 43 4f  4c 25 20 c8 9c 20 54 4e  |.(0 . COL% .. TN|
00006410  54 25 3a ef 20 32 34 2c  30 3b 30 3b 31 32 37 39  |T%:. 24,0;0;1279|
00006420  3b 38 32 39 3b 3a 2a 46  58 20 31 31 33 2c 31 0d  |;829;:*FX 113,1.|
00006430  19 32 06 20 e1 0d 19 3c  12 20 f4 20 4f 50 54 49  |.2. ...<. . OPTI|
00006440  4f 4e 53 20 3d 20 3a 0d  19 46 1c 20 f4 20 4f 50  |ONS = :..F. . OP|
00006450  54 20 31 20 3d 20 53 45  4c 45 43 54 20 43 4f 4c  |T 1 = SELECT COL|
00006460  4f 55 52 0d 19 50 2d 20  e3 20 58 3d 30 20 b8 20  |OUR..P- . X=0 . |
00006470  32 35 35 3a fb 20 58 3a  f1 22 43 4f 4c 4f 55 52  |255:. X:."COLOUR|
00006480  20 49 53 20 4e 4f 3a 22  3b 58 3a 41 3d a5 3a ed  | IS NO:";X:A=.:.|
00006490  0d 19 5a 06 20 fa 0d 19  64 0c 20 dd f2 65 72 72  |..Z. ...d. ..err|
000064a0  6f 72 0d 19 6e 39 20 e7  20 4f 50 50 53 3d 31 20  |or..n9 . OPPS=1 |
000064b0  8c 20 4f 50 54 3d 31 3a  4d 45 4e 55 3d 31 3a ef  |. OPT=1:MENU=1:.|
000064c0  20 32 34 2c 30 3b 30 3b  31 32 37 39 3b 31 30 32  | 24,0;0;1279;102|
000064d0  33 3b 3a f2 67 65 74 62  61 63 6b 0d 19 78 18 20  |3;:.getback..x. |
000064e0  ef 20 32 34 2c 30 3b 30  3b 31 32 37 39 3b 31 30  |. 24,0;0;1279;10|
000064f0  32 33 3b 0d 19 82 25 20  e6 20 31 20 c8 9c 20 31  |23;...% . 1 .. 1|
00006500  39 32 3a c8 93 20 c8 90  20 32 30 2c 38 33 33 2c  |92:.. .. 20,833,|
00006510  31 32 35 39 2c 31 37 30  0d 19 8c 25 20 e6 20 36  |1259,170...% . 6|
00006520  36 20 c8 9c 20 31 39 32  3a c8 93 20 c8 90 20 30  |6 .. 192:.. .. 0|
00006530  2c 38 35 33 2c 31 32 35  39 2c 31 37 30 0d 19 96  |,853,1259,170...|
00006540  22 20 e6 20 36 33 20 c8  9c 20 31 39 32 3a c8 93  |" . 63 .. 192:..|
00006550  20 30 2c 38 35 33 2c 31  32 35 39 2c 31 37 30 0d  | 0,853,1259,170.|
00006560  19 a0 20 20 fb 20 36 33  20 c8 9c 20 31 39 32 3a  |..  . 63 .. 192:|
00006570  fb 20 31 32 38 2b 36 36  20 c8 9c 20 31 39 32 0d  |. 128+66 .. 192.|
00006580  19 aa 39 f1 8a 31 37 2c  31 29 3b 22 41 4e 20 45  |..9..17,1);"AN E|
00006590  52 52 4f 52 20 48 41 53  20 42 45 45 4e 20 44 45  |RROR HAS BEEN DE|
000065a0  54 45 43 54 45 44 20 2d  20 41 53 20 53 48 4f 57  |TECTED - AS SHOW|
000065b0  4e 20 42 45 4c 4f 57 22  0d 19 b4 35 20 f1 8a 31  |N BELOW"...5 ..1|
000065c0  30 2c 33 29 3b 22 45 52  52 4f 52 20 22 3b 9f 3b  |0,3);"ERROR ";.;|
000065d0  22 20 41 54 20 4c 49 4e  45 20 22 3b 9e 3b 22 20  |" AT LINE ";.;" |
000065e0  2d 3e 22 3b 3a f4 20 52  45 50 4f 52 54 0d 19 be  |->";:. REPORT...|
000065f0  13 20 ef 20 32 38 2c 34  30 2c 33 2c 37 37 2c 33  |. . 28,40,3,77,3|
00006600  0d 19 c8 0a 20 4f 54 54  3d 30 0d 19 d2 06 20 f6  |.... OTT=0.... .|
00006610  0d 19 dc 09 20 41 24 3d  be 0d 19 e6 12 ef 20 32  |.... A$=...... 2|
00006620  38 2c 30 2c 33 31 2c 37  39 2c 30 0d 19 f0 16 20  |8,0,31,79,0.... |
00006630  e7 20 41 24 3d 22 4e 22  20 8c 20 eb 20 31 32 3a  |. A$="N" . . 12:|
00006640  e0 0d 19 fa 55 20 e7 20  4f 50 50 53 3d 31 20 8c  |....U . OPPS=1 .|
00006650  20 4d 45 4e 55 3d 30 3a  4f 50 54 3d 31 3a ef 20  | MENU=0:OPT=1:. |
00006660  32 34 2c 30 3b 30 3b 31  32 37 39 3b 31 30 32 33  |24,0;0;1279;1023|
00006670  3b 3a f2 62 72 69 6e 67  62 61 63 6b 3a f5 3a c8  |;:.bringback:.:.|
00006680  97 20 58 25 2c 59 25 2c  4b 25 3a fd 20 4b 25 3d  |. X%,Y%,K%:. K%=|
00006690  30 3a 5a 25 3d 30 0d 1a  04 06 20 e1 0d 1a 0e 0d  |0:Z%=0.... .....|
000066a0  20 dd f2 73 65 74 75 70  32 0d 1a 18 2d 20 ef 20  | ..setup2...- . |
000066b0  32 33 2c 31 39 31 2c 32  35 34 2c 31 32 39 2c 31  |23,191,254,129,1|
000066c0  32 39 2c 31 32 39 2c 31  32 39 2c 31 32 39 2c 31  |29,129,129,129,1|
000066d0  32 39 2c 31 32 39 0d 1a  22 23 20 ef 20 32 33 2c  |29,129.."# . 23,|
000066e0  31 39 30 2c 30 2c 36 32  2c 36 32 2c 36 32 2c 36  |190,0,62,62,62,6|
000066f0  32 2c 36 32 2c 36 32 2c  30 0d 1a 2c 1d 20 ef 20  |2,62,62,0..,. . |
00006700  32 33 2c 31 32 38 2c 30  2c 31 2c 30 2c 31 2c 33  |23,128,0,1,0,1,3|
00006710  2c 33 2c 33 2c 33 0d 1a  36 3f 20 ef 20 32 33 2c  |,3,3,3..6? . 23,|
00006720  31 32 39 2c 25 31 31 31  31 31 31 30 30 2c 25 31  |129,%11111100,%1|
00006730  31 31 31 31 31 31 30 2c  25 30 30 31 31 30 30 30  |1111110,%0011000|
00006740  30 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |0,255,255,255,25|
00006750  35 2c 32 35 35 0d 1a 40  45 20 ef 20 32 33 2c 31  |5,255..@E . 23,1|
00006760  33 30 2c 30 2c 30 2c 30  2c 25 31 31 30 30 30 30  |30,0,0,0,%110000|
00006770  30 30 2c 25 31 31 31 30  30 30 30 30 2c 25 31 30  |00,%11100000,%10|
00006780  30 31 30 30 30 30 2c 25  31 31 30 31 31 30 30 30  |010000,%11011000|
00006790  2c 25 31 31 31 31 31 30  30 30 0d 1a 4a 1d 20 ef  |,%11111000..J. .|
000067a0  20 32 33 2c 31 33 31 2c  33 2c 33 2c 33 2c 33 2c  | 23,131,3,3,3,3,|
000067b0  33 2c 33 2c 31 2c 31 0d  1a 54 5c 20 ef 20 32 33  |3,3,1,1..T\ . 23|
000067c0  2c 31 33 32 2c 25 30 31  31 31 31 30 30 30 2c 25  |,132,%01111000,%|
000067d0  30 31 31 31 31 30 30 30  2c 25 31 31 31 31 31 30  |01111000,%111110|
000067e0  30 30 2c 25 31 31 31 31  31 30 30 30 2c 25 31 31  |00,%11111000,%11|
000067f0  31 31 31 30 30 30 2c 25  31 31 31 31 31 30 30 30  |111000,%11111000|
00006800  2c 25 31 31 31 31 31 30  30 30 2c 25 31 31 31 31  |,%11111000,%1111|
00006810  30 30 30 0d 1a 5e 36 20  ef 20 32 33 2c 31 33 33  |000..^6 . 23,133|
00006820  2c 25 30 31 31 31 31 30  30 30 2c 30 2c 30 2c 33  |,%01111000,0,0,3|
00006830  32 2c 33 32 2c 25 31 31  31 30 30 30 30 2c 25 31  |2,32,%1110000,%1|
00006840  31 31 30 30 30 30 2c 33  32 0d 1a 68 24 20 ef 20  |110000,32..h$ . |
00006850  32 33 2c 31 33 34 2c 30  2c 36 33 2c 36 33 2c 34  |23,134,0,63,63,4|
00006860  38 2c 34 38 2c 34 38 2c  34 38 2c 34 38 0d 1a 72  |8,48,48,48,48..r|
00006870  21 20 ef 20 32 33 2c 31  33 35 2c 30 2c 32 35 35  |! . 23,135,0,255|
00006880  2c 32 35 35 2c 30 2c 30  2c 30 2c 30 2c 30 0d 1a  |,255,0,0,0,0,0..|
00006890  7c 26 20 ef 20 32 33 2c  31 33 36 2c 30 2c 32 35  ||& . 23,136,0,25|
000068a0  32 2c 32 35 32 2c 31 32  2c 31 32 2c 31 32 2c 31  |2,252,12,12,12,1|
000068b0  32 2c 31 32 0d 1a 86 24  20 ef 20 32 33 2c 31 33  |2,12...$ . 23,13|
000068c0  37 2c 34 38 2c 34 38 2c  34 38 2c 34 38 2c 34 38  |7,48,48,48,48,48|
000068d0  2c 36 33 2c 36 33 2c 30  0d 1a 90 21 20 ef 20 32  |,63,63,0...! . 2|
000068e0  33 2c 31 33 38 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |3,138,0,0,0,0,0,|
000068f0  32 35 35 2c 32 35 35 2c  30 0d 1a 9a 26 20 ef 20  |255,255,0...& . |
00006900  32 33 2c 31 33 39 2c 31  32 2c 31 32 2c 31 32 2c  |23,139,12,12,12,|
00006910  31 32 2c 31 32 2c 32 35  32 2c 32 35 32 2c 30 0d  |12,12,252,252,0.|
00006920  1a a4 25 20 ef 20 32 33  2c 31 34 30 2c 37 2c 38  |..% . 23,140,7,8|
00006930  2c 31 36 2c 33 32 2c 36  34 2c 36 34 2c 31 32 38  |,16,32,64,64,128|
00006940  2c 31 32 38 0d 1a ae 26  20 ef 20 32 33 2c 31 34  |,128...& . 23,14|
00006950  31 2c 25 31 31 31 30 30  30 30 30 2c 31 36 2c 38  |1,%11100000,16,8|
00006960  2c 34 2c 32 2c 32 2c 31  2c 31 0d 1a b8 25 20 ef  |,4,2,2,1,1...% .|
00006970  20 32 33 2c 31 34 32 2c  31 32 38 2c 31 32 38 2c  | 23,142,128,128,|
00006980  36 34 2c 36 34 2c 33 32  2c 31 36 2c 38 2c 37 0d  |64,64,32,16,8,7.|
00006990  1a c2 26 20 ef 20 32 33  2c 31 34 33 2c 31 2c 31  |..& . 23,143,1,1|
000069a0  2c 32 2c 32 2c 34 2c 38  2c 31 36 2c 25 31 31 31  |,2,2,4,8,16,%111|
000069b0  30 30 30 30 30 0d 1a cc  2d 20 ef 20 32 33 2c 31  |00000...- . 23,1|
000069c0  34 34 2c 25 31 31 31 30  30 2c 25 31 30 30 31 31  |44,%11100,%10011|
000069d0  2c 31 36 2c 31 36 2c 31  36 2c 31 36 2c 31 36 2c  |,16,16,16,16,16,|
000069e0  31 36 0d 1a d6 31 20 ef  20 32 33 2c 31 34 35 2c  |16...1 . 23,145,|
000069f0  30 2c 30 2c 25 31 31 30  30 30 30 30 30 2c 25 31  |0,0,%11000000,%1|
00006a00  31 30 30 30 30 2c 25 31  31 30 30 2c 25 31 31 2c  |10000,%1100,%11,|
00006a10  30 2c 30 0d 1a e0 2b 20  ef 20 32 33 2c 31 34 36  |0,0...+ . 23,146|
00006a20  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 25 31 31  |,0,0,0,0,0,0,%11|
00006a30  30 30 30 30 30 30 2c 25  31 31 30 30 30 30 0d 1a  |000000,%110000..|
00006a40  ea 2d 20 ef 20 32 33 2c  31 34 37 2c 31 36 2c 31  |.- . 23,147,16,1|
00006a50  36 2c 31 36 2c 31 36 2c  31 36 2c 31 36 2c 25 31  |6,16,16,16,16,%1|
00006a60  30 30 31 31 2c 25 31 31  31 30 30 0d 1a f4 31 20  |0011,%11100...1 |
00006a70  ef 20 32 33 2c 31 34 38  2c 30 2c 30 2c 25 31 31  |. 23,148,0,0,%11|
00006a80  2c 25 31 31 30 30 2c 25  31 31 30 30 30 30 2c 25  |,%1100,%110000,%|
00006a90  31 31 30 30 30 30 30 30  2c 30 2c 30 0d 1a fe 2b  |11000000,0,0...+|
00006aa0  20 ef 20 32 33 2c 31 34  39 2c 25 31 31 30 30 30  | . 23,149,%11000|
00006ab0  30 2c 25 31 31 30 30 30  30 30 30 2c 30 2c 30 2c  |0,%11000000,0,0,|
00006ac0  30 2c 30 2c 30 2c 30 0d  1b 08 06 20 f4 0d 1b 12  |0,0,0,0.... ....|
00006ad0  20 20 ef 20 32 33 2c 31  35 30 2c 31 2c 33 2c 37  |  . 23,150,1,3,7|
00006ae0  2c 31 35 2c 33 31 2c 36  33 2c 37 2c 37 0d 1b 1c  |,15,31,63,7,7...|
00006af0  45 20 ef 20 32 33 2c 31  35 31 2c 31 32 38 2c 31  |E . 23,151,128,1|
00006b00  39 32 2c 25 31 31 31 30  30 30 30 30 2c 25 31 31  |92,%11100000,%11|
00006b10  31 31 30 30 30 30 2c 25  31 31 31 31 31 30 30 30  |110000,%11111000|
00006b20  2c 25 31 31 31 31 31 31  30 30 2c 32 32 34 2c 32  |,%11111100,224,2|
00006b30  32 34 0d 1b 26 20 20 ef  20 32 33 2c 31 35 32 2c  |24..&  . 23,152,|
00006b40  37 2c 37 2c 36 33 2c 33  31 2c 31 35 2c 37 2c 33  |7,7,63,31,15,7,3|
00006b50  2c 31 0d 1b 30 45 20 ef  20 32 33 2c 31 35 33 2c  |,1..0E . 23,153,|
00006b60  32 32 34 2c 32 32 34 2c  25 31 31 31 31 31 31 30  |224,224,%1111110|
00006b70  30 2c 25 31 31 31 31 31  30 30 30 2c 25 31 31 31  |0,%11111000,%111|
00006b80  31 30 30 30 30 2c 25 31  31 31 30 30 30 30 30 2c  |10000,%11100000,|
00006b90  31 39 32 2c 31 32 38 0d  1b 3a 06 20 f4 0d 1b 44  |192,128..:. ...D|
00006ba0  27 20 ef 20 32 33 2c 31  35 34 2c 32 34 2c 35 36  |' . 23,154,24,56|
00006bb0  2c 39 36 2c 32 35 35 2c  32 35 35 2c 39 36 2c 35  |,96,255,255,96,5|
00006bc0  36 2c 32 34 0d 1b 4e 21  20 ef 20 32 33 2c 31 35  |6,24..N! . 23,15|
00006bd0  35 2c 30 2c 30 2c 30 2c  32 35 35 2c 32 35 35 2c  |5,0,0,0,255,255,|
00006be0  30 2c 30 2c 30 0d 1b 58  2b 20 ef 20 32 33 2c 31  |0,0,0..X+ . 23,1|
00006bf0  35 36 2c 35 36 2c 31 31  32 2c 32 32 34 2c 31 39  |56,56,112,224,19|
00006c00  32 2c 31 39 32 2c 32 32  34 2c 31 31 32 2c 35 36  |2,192,224,112,56|
00006c10  0d 1b 62 06 20 f4 0d 1b  6c 24 20 ef 20 32 33 2c  |..b. ...l$ . 23,|
00006c20  31 35 37 2c 30 2c 30 2c  34 2c 31 32 2c 32 38 2c  |157,0,0,4,12,28,|
00006c30  36 33 2c 31 32 37 2c 32  35 35 0d 1b 76 26 20 ef  |63,127,255..v& .|
00006c40  20 32 33 2c 31 35 38 2c  30 2c 30 2c 33 32 2c 34  | 23,158,0,0,32,4|
00006c50  38 2c 35 36 2c 32 35 32  2c 32 35 34 2c 32 35 35  |8,56,252,254,255|
00006c60  0d 1b 80 24 20 ef 20 32  33 2c 31 35 39 2c 32 35  |...$ . 23,159,25|
00006c70  35 2c 31 32 37 2c 36 33  2c 32 38 2c 31 32 2c 34  |5,127,63,28,12,4|
00006c80  2c 30 2c 30 0d 1b 8a 26  20 ef 20 32 33 2c 31 36  |,0,0...& . 23,16|
00006c90  30 2c 32 35 35 2c 32 35  34 2c 32 35 32 2c 35 36  |0,255,254,252,56|
00006ca0  2c 34 38 2c 33 32 2c 30  2c 30 0d 1b 94 06 20 f4  |,48,32,0,0.... .|
00006cb0  0d 1b 9e 24 20 ef 20 32  33 2c 31 36 31 2c 30 2c  |...$ . 23,161,0,|
00006cc0  36 32 2c 36 32 2c 34 38  2c 36 30 2c 36 30 2c 34  |62,62,48,60,60,4|
00006cd0  38 2c 34 38 0d 1b a8 2b  20 ef 20 32 33 2c 31 36  |8,48...+ . 23,16|
00006ce0  32 2c 30 2c 31 30 32 2c  31 30 32 2c 31 30 32 2c  |2,0,102,102,102,|
00006cf0  31 30 32 2c 31 30 32 2c  31 30 33 2c 31 30 33 0d  |102,102,103,103.|
00006d00  1b b2 26 20 ef 20 32 33  2c 31 36 33 2c 30 2c 32  |..& . 23,163,0,2|
00006d10  34 2c 32 34 2c 32 34 2c  32 34 2c 32 34 2c 31 35  |4,24,24,24,24,15|
00006d20  38 2c 31 35 38 0d 1b bc  24 20 ef 20 32 33 2c 31  |8,158...$ . 23,1|
00006d30  36 34 2c 30 2c 33 31 2c  33 31 2c 32 37 2c 32 37  |64,0,31,31,27,27|
00006d40  2c 32 37 2c 33 31 2c 33  31 0d 1b c6 42 20 ef 20  |,27,31,31...B . |
00006d50  32 33 2c 31 36 35 2c 30  2c 34 38 2c 25 31 31 31  |23,165,0,48,%111|
00006d60  30 30 30 2c 25 31 31 31  31 30 30 2c 25 31 31 30  |000,%111100,%110|
00006d70  31 31 30 2c 25 31 31 30  30 31 31 2c 25 31 31 30  |110,%110011,%110|
00006d80  30 30 31 2c 25 31 31 30  30 30 30 0d 1b d0 2b 20  |001,%110000...+ |
00006d90  ef 20 32 33 2c 31 36 36  2c 30 2c 31 39 32 2c 31  |. 23,166,0,192,1|
00006da0  39 32 2c 31 39 32 2c 31  39 36 2c 31 39 38 2c 31  |92,192,196,198,1|
00006db0  39 35 2c 31 39 33 0d 1b  da 3a 20 ef 20 32 33 2c  |95,193...: . 23,|
00006dc0  31 36 37 2c 30 2c 34 2c  31 32 2c 25 31 31 30 30  |167,0,4,12,%1100|
00006dd0  30 2c 25 31 31 30 30 30  30 2c 25 31 31 30 30 30  |0,%110000,%11000|
00006de0  30 30 2c 25 31 31 30 30  30 30 30 30 2c 31 32 38  |00,%11000000,128|
00006df0  0d 1b e4 0e 20 f4 20 49  4e 56 45 52 53 45 0d 1b  |.... . INVERSE..|
00006e00  ee 25 20 ef 20 32 33 2c  31 36 38 2c 36 33 2c 33  |.% . 23,168,63,3|
00006e10  32 2c 33 32 2c 33 32 2c  33 32 2c 33 32 2c 33 32  |2,32,32,32,32,32|
00006e20  2c 33 32 0d 1b f8 20 20  ef 20 32 33 2c 31 36 39  |,32...  . 23,169|
00006e30  2c 32 35 35 2c 30 2c 30  2c 30 2c 31 2c 31 2c 31  |,255,0,0,0,1,1,1|
00006e40  2c 31 35 0d 1c 02 2a 20  ef 20 32 33 2c 31 37 30  |,15...* . 23,170|
00006e50  2c 30 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 31  |,0,255,255,255,1|
00006e60  32 37 2c 31 32 37 2c 31  32 37 2c 31 35 0d 1c 0c  |27,127,127,15...|
00006e70  2b 20 ef 20 32 33 2c 31  37 31 2c 30 2c 32 34 38  |+ . 23,171,0,248|
00006e80  2c 32 34 38 2c 32 34 38  2c 32 34 38 2c 32 34 38  |,248,248,248,248|
00006e90  2c 32 34 38 2c 32 34 38  0d 1c 16 25 20 ef 20 32  |,248,248...% . 2|
00006ea0  33 2c 31 37 32 2c 33 32  2c 33 32 2c 33 32 2c 33  |3,172,32,32,32,3|
00006eb0  32 2c 33 32 2c 33 32 2c  33 32 2c 36 33 0d 1c 20  |2,32,32,32,63.. |
00006ec0  20 20 ef 20 32 33 2c 31  37 33 2c 31 35 2c 31 2c  |  . 23,173,15,1,|
00006ed0  31 2c 31 2c 30 2c 30 2c  30 2c 32 35 35 0d 1c 2a  |1,1,0,0,0,255..*|
00006ee0  2a 20 ef 20 32 33 2c 31  37 34 2c 31 35 2c 31 32  |* . 23,174,15,12|
00006ef0  37 2c 31 32 37 2c 31 32  37 2c 32 35 35 2c 32 35  |7,127,127,255,25|
00006f00  35 2c 32 35 35 2c 30 0d  1c 34 2b 20 ef 20 32 33  |5,255,0..4+ . 23|
00006f10  2c 31 37 35 2c 32 34 38  2c 32 34 38 2c 32 34 38  |,175,248,248,248|
00006f20  2c 32 34 38 2c 32 34 38  2c 32 34 38 2c 32 34 38  |,248,248,248,248|
00006f30  2c 30 0d 1c 3e 06 20 f4  0d 1c 48 1d 20 ef 20 32  |,0..>. ...H. . 2|
00006f40  33 2c 31 37 36 2c 30 2c  30 2c 30 2c 31 2c 32 2c  |3,176,0,0,0,1,2,|
00006f50  34 2c 38 2c 38 0d 1c 52  23 20 ef 20 32 33 2c 31  |4,8,8..R# . 23,1|
00006f60  37 37 2c 30 2c 30 2c 30  2c 32 34 30 2c 31 36 2c  |77,0,0,0,240,16,|
00006f70  31 36 2c 31 36 2c 31 36  0d 1c 5c 1e 20 ef 20 32  |16,16,16..\. . 2|
00006f80  33 2c 31 37 38 2c 30 2c  30 2c 30 2c 31 2c 32 2c  |3,178,0,0,0,1,2,|
00006f90  34 2c 38 2c 31 36 0d 1c  66 1f 20 ef 20 32 33 2c  |4,8,16..f. . 23,|
00006fa0  31 37 39 2c 30 2c 30 2c  32 34 30 2c 38 2c 34 2c  |179,0,0,240,8,4,|
00006fb0  34 2c 34 2c 34 0d 1c 70  1e 20 ef 20 32 33 2c 31  |4,4,4..p. . 23,1|
00006fc0  38 30 2c 38 2c 38 2c 38  2c 31 35 2c 30 2c 30 2c  |80,8,8,8,15,0,0,|
00006fd0  30 2c 30 0d 1c 7a 25 20  ef 20 32 33 2c 31 38 31  |0,0..z% . 23,181|
00006fe0  2c 31 36 2c 31 36 2c 31  36 2c 33 31 2c 31 32 38  |,16,16,16,31,128|
00006ff0  2c 36 34 2c 36 33 2c 30  0d 1c 84 23 20 ef 20 32  |,64,63,0...# . 2|
00007000  33 2c 31 38 32 2c 33 32  2c 36 34 2c 31 32 38 2c  |3,182,32,64,128,|
00007010  30 2c 30 2c 30 2c 32 35  35 2c 30 0d 1c 8e 22 20  |0,0,0,255,0..." |
00007020  ef 20 32 33 2c 31 38 33  2c 34 2c 38 2c 31 36 2c  |. 23,183,4,8,16,|
00007030  33 32 2c 36 34 2c 31 32  38 2c 30 2c 30 0d 1c 98  |32,64,128,0,0...|
00007040  0d 20 f4 20 53 50 52 45  41 44 0d 1c a2 22 20 ef  |. . SPREAD..." .|
00007050  20 32 33 2c 31 38 34 2c  31 2c 31 32 39 2c 36 37  | 23,184,1,129,67|
00007060  2c 33 33 2c 31 37 2c 39  2c 35 2c 33 0d 1c ac 24  |,33,17,9,5,3...$|
00007070  20 ef 20 32 33 2c 31 38  35 2c 32 2c 34 2c 38 2c  | . 23,185,2,4,8,|
00007080  31 36 2c 33 32 2c 36 34  2c 31 32 38 2c 32 35 35  |16,32,64,128,255|
00007090  0d 1c b6 22 20 ef 20 32  33 2c 31 38 36 2c 32 35  |..." . 23,186,25|
000070a0  35 2c 31 2c 32 2c 34 2c  38 2c 31 36 2c 33 32 2c  |5,1,2,4,8,16,32,|
000070b0  36 34 0d 1c c0 2d 20 ef  20 32 33 2c 31 38 37 2c  |64...- . 23,187,|
000070c0  31 39 32 2c 31 36 30 2c  31 34 34 2c 31 33 36 2c  |192,160,144,136,|
000070d0  31 33 32 2c 31 33 30 2c  31 32 39 2c 31 32 38 0d  |132,130,129,128.|
000070e0  1c ca 0c 20 f4 20 53 50  52 41 59 0d 1c d4 22 20  |... . SPRAY..." |
000070f0  ef 20 32 33 2c 31 38 38  2c 30 2c 31 36 2c 30 2c  |. 23,188,0,16,0,|
00007100  36 34 2c 31 32 38 2c 30  2c 31 2c 33 36 0d 1c de  |64,128,0,1,36...|
00007110  22 20 ef 20 32 33 2c 31  38 39 2c 30 2c 33 32 2c  |" . 23,189,0,32,|
00007120  30 2c 34 2c 31 32 38 2c  31 36 2c 30 2c 38 30 0d  |0,4,128,16,0,80.|
00007130  1c e8 0d 20 f4 20 52 55  42 42 45 52 0d 1c f2 23  |... . RUBBER...#|
00007140  20 ef 32 33 2c 31 39 32  2c 37 2c 33 31 2c 33 31  | .23,192,7,31,31|
00007150  2c 33 31 2c 33 31 2c 31  36 2c 33 31 2c 31 37 0d  |,31,31,16,31,17.|
00007160  1c fc 2a 20 ef 32 33 2c  31 39 33 2c 32 32 34 2c  |..* .23,193,224,|
00007170  32 34 30 2c 32 34 30 2c  32 34 30 2c 32 34 30 2c  |240,240,240,240,|
00007180  38 2c 32 34 30 2c 31 33  36 0d 1d 06 24 20 ef 32  |8,240,136...$ .2|
00007190  33 2c 31 39 34 2c 31 37  2c 33 31 2c 31 38 2c 31  |3,194,17,31,18,1|
000071a0  37 2c 31 38 2c 31 37 2c  31 38 2c 31 37 0d 1d 10  |7,18,17,18,17...|
000071b0  2c 20 ef 32 33 2c 31 39  35 2c 31 33 36 2c 32 34  |, .23,195,136,24|
000071c0  38 2c 32 34 38 2c 31 32  30 2c 32 34 38 2c 31 32  |8,248,120,248,12|
000071d0  30 2c 32 34 38 2c 31 32  30 0d 1d 1a 0a 20 f4 20  |0,248,120.... . |
000071e0  43 4c 53 0d 1d 24 1c 20  ef 32 33 2c 31 39 36 2c  |CLS..$. .23,196,|
000071f0  33 2c 33 2c 33 2c 33 2c  33 2c 33 2c 33 2c 33 0d  |3,3,3,3,3,3,3,3.|
00007200  1d 2e 20 20 ef 32 33 2c  31 39 37 2c 32 32 34 2c  |..  .23,197,224,|
00007210  32 32 34 2c 30 2c 36 2c  36 2c 36 2c 36 2c 36 0d  |224,0,6,6,6,6,6.|
00007220  1d 38 20 20 ef 32 33 2c  31 39 38 2c 30 2c 30 2c  |.8  .23,198,0,0,|
00007230  30 2c 30 2c 31 35 2c 31  35 2c 31 32 2c 31 32 0d  |0,0,15,15,12,12.|
00007240  1d 42 20 20 ef 32 33 2c  31 39 39 2c 30 2c 30 2c  |.B  .23,199,0,0,|
00007250  30 2c 30 2c 31 39 32 2c  31 39 32 2c 30 2c 30 0d  |0,0,192,192,0,0.|
00007260  1d 4c 20 20 ef 32 33 2c  32 30 30 2c 33 2c 33 2c  |.L  .23,200,3,3,|
00007270  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 0d  |0,0,0,0,0,0,0,0.|
00007280  1d 56 20 20 ef 32 33 2c  32 30 31 2c 32 33 30 2c  |.V  .23,201,230,|
00007290  32 33 30 2c 37 2c 37 2c  30 2c 30 2c 30 2c 30 0d  |230,7,7,0,0,0,0.|
000072a0  1d 60 26 20 ef 32 33 2c  32 30 32 2c 31 35 2c 31  |.`& .23,202,15,1|
000072b0  35 2c 32 32 34 2c 32 32  34 2c 31 32 2c 31 32 2c  |5,224,224,12,12,|
000072c0  31 35 2c 31 35 0d 1d 6a  2c 20 ef 32 33 2c 32 30  |15,15..j, .23,20|
000072d0  33 2c 31 39 32 2c 31 39  32 2c 31 39 32 2c 31 39  |3,192,192,192,19|
000072e0  32 2c 31 39 32 2c 31 39  32 2c 31 39 32 2c 31 39  |2,192,192,192,19|
000072f0  32 0d 1d 74 0b 20 f4 20  43 4f 50 59 0d 1d 7e 26  |2..t. . COPY..~&|
00007300  20 ef 32 33 2c 32 30 34  2c 30 2c 30 2c 34 2c 32  | .23,204,0,0,4,2|
00007310  2c 37 2c 31 35 2c 25 31  31 30 31 30 30 31 2c 31  |,7,15,%1101001,1|
00007320  32 37 0d 1d 88 3d 20 ef  32 33 2c 32 30 35 2c 30  |27...= .23,205,0|
00007330  2c 30 2c 36 34 2c 31 32  38 2c 25 31 31 30 30 30  |,0,64,128,%11000|
00007340  30 31 30 2c 25 31 31 31  30 30 30 30 31 2c 25 31  |010,%11100001,%1|
00007350  30 31 31 30 30 2c 25 31  31 31 31 31 31 30 31 0d  |01100,%11111101.|
00007360  1d 92 2c 20 ef 32 33 2c  32 30 36 2c 30 2c 30 2c  |.., .23,206,0,0,|
00007370  31 2c 30 2c 31 2c 33 2c  25 31 30 30 31 31 30 31  |1,0,1,3,%1001101|
00007380  30 2c 25 31 31 30 31 31  31 31 31 0d 1d 9c 3e 20  |0,%11011111...> |
00007390  ef 32 33 2c 32 30 37 2c  30 2c 30 2c 31 36 2c 25  |.23,207,0,0,16,%|
000073a0  31 30 31 30 30 30 30 30  2c 25 31 31 31 31 30 30  |10100000,%111100|
000073b0  30 30 2c 25 31 31 31 31  31 30 30 30 2c 25 31 30  |00,%11111000,%10|
000073c0  30 31 30 31 31 2c 32 35  35 0d 1d a6 25 20 ef 32  |01011,255...% .2|
000073d0  33 2c 32 30 38 2c 33 31  2c 31 32 2c 38 2c 37 2c  |3,208,31,12,8,7,|
000073e0  34 2c 25 31 30 31 31 30  30 2c 32 34 2c 30 0d 1d  |4,%101100,24,0..|
000073f0  b0 37 20 ef 32 33 2c 32  30 39 2c 25 31 31 31 31  |.7 .23,209,%1111|
00007400  30 30 30 31 2c 39 36 2c  33 33 2c 25 31 31 30 30  |0001,96,33,%1100|
00007410  30 30 31 30 2c 36 34 2c  25 31 31 30 31 30 30 30  |0010,64,%1101000|
00007420  2c 34 38 2c 30 0d 1d ba  21 20 ef 32 33 2c 32 31  |,48,0...! .23,21|
00007430  30 2c 31 39 39 2c 31 33  31 2c 32 2c 31 2c 31 2c  |0,199,131,2,1,1,|
00007440  31 31 2c 36 2c 30 0d 1d  c4 28 20 ef 32 33 2c 32  |11,6,0...( .23,2|
00007450  31 31 2c 32 35 32 2c 32  34 2c 38 2c 32 34 30 2c  |11,252,24,8,240,|
00007460  31 36 2c 25 31 31 30 31  30 2c 31 32 2c 30 0d 1d  |16,%11010,12,0..|
00007470  ce 0b 20 f4 20 44 49 53  43 0d 1d d8 1d 20 ef 20  |.. . DISC.... . |
00007480  32 33 2c 32 31 32 2c 31  2c 31 2c 31 2c 30 2c 30  |23,212,1,1,1,0,0|
00007490  2c 31 2c 31 2c 31 0d 1d  e2 23 20 ef 20 32 33 2c  |,1,1,1...# . 23,|
000074a0  32 31 33 2c 32 35 35 2c  32 2c 32 2c 31 33 30 2c  |213,255,2,2,130,|
000074b0  31 33 30 2c 32 2c 31 2c  37 0d 1d ec 2e 20 ef 20  |130,2,1,7.... . |
000074c0  32 33 2c 32 31 34 2c 32  35 35 2c 36 34 2c 36 34  |23,214,255,64,64|
000074d0  2c 36 34 2c 36 34 2c 36  34 2c 31 32 38 2c 25 31  |,64,64,64,128,%1|
000074e0  31 31 30 30 30 30 30 0d  1d f6 2d 20 ef 20 32 33  |1100000...- . 23|
000074f0  2c 32 31 35 2c 31 32 38  2c 31 32 38 2c 31 32 38  |,215,128,128,128|
00007500  2c 31 32 38 2c 31 32 38  2c 31 32 38 2c 31 32 38  |,128,128,128,128|
00007510  2c 31 32 38 0d 1e 00 1d  20 ef 20 32 33 2c 32 31  |,128.... . 23,21|
00007520  36 2c 31 2c 31 2c 31 2c  31 2c 31 2c 31 2c 31 2c  |6,1,1,1,1,1,1,1,|
00007530  31 0d 1e 0a 1f 20 ef 20  32 33 2c 32 31 37 2c 34  |1.... . 23,217,4|
00007540  2c 34 2c 37 2c 30 2c 30  2c 30 2c 30 2c 32 35 35  |,4,7,0,0,0,0,255|
00007550  0d 1e 14 29 20 ef 20 32  33 2c 32 31 38 2c 33 32  |...) . 23,218,32|
00007560  2c 33 32 2c 25 31 31 31  30 30 30 30 30 2c 30 2c  |,32,%11100000,0,|
00007570  30 2c 30 2c 30 2c 32 35  35 0d 1e 1e 2d 20 ef 20  |0,0,0,255...- . |
00007580  32 33 2c 32 31 39 2c 31  32 38 2c 31 32 38 2c 31  |23,219,128,128,1|
00007590  32 38 2c 31 32 38 2c 31  32 38 2c 31 32 38 2c 31  |28,128,128,128,1|
000075a0  32 38 2c 31 32 38 0d 1e  28 0b 20 f4 20 54 45 58  |28,128..(. . TEX|
000075b0  54 0d 1e 32 31 20 ef 20  32 33 2c 32 32 30 2c 31  |T..21 . 23,220,1|
000075c0  34 2c 25 31 31 31 31 31  31 30 2c 25 31 31 31 31  |4,%1111110,%1111|
000075d0  30 30 30 2c 32 34 2c 32  34 2c 34 38 2c 34 38 2c  |000,24,24,48,48,|
000075e0  34 38 0d 1e 3c 4d 20 ef  20 32 33 2c 32 32 31 2c  |48..<M . 23,221,|
000075f0  25 31 31 31 31 31 31 30  2c 25 31 31 31 31 31 30  |%1111110,%111110|
00007600  2c 34 38 2c 25 31 31 31  31 30 30 2c 25 31 31 31  |,48,%111100,%111|
00007610  31 30 30 30 2c 25 31 31  30 30 30 30 30 2c 25 31  |1000,%1100000,%1|
00007620  31 31 31 31 30 30 2c 25  31 31 31 31 31 30 30 0d  |111100,%1111100.|
00007630  1e 46 49 20 ef 20 32 33  2c 32 32 32 2c 25 31 31  |.FI . 23,222,%11|
00007640  30 30 30 30 31 31 2c 25  31 31 30 30 31 31 30 2c  |000011,%1100110,|
00007650  25 31 31 31 31 30 30 2c  32 34 2c 32 34 2c 25 31  |%111100,24,24,%1|
00007660  31 31 31 30 30 2c 25 31  31 30 30 31 31 30 2c 25  |11100,%1100110,%|
00007670  31 31 30 30 30 30 31 31  0d 1e 50 0b 20 f4 20 5a  |11000011..P. . Z|
00007680  4f 4f 4d 0d 1e 5a 21 20  ef 20 32 33 2c 32 32 33  |OOM..Z! . 23,223|
00007690  2c 30 2c 30 2c 31 35 2c  31 32 2c 31 32 2c 31 35  |,0,0,15,12,12,15|
000076a0  2c 30 2c 30 0d 1e 64 21  20 ef 20 32 33 2c 32 32  |,0,0..d! . 23,22|
000076b0  34 2c 30 2c 37 2c 32 35  32 2c 34 2c 34 2c 32 35  |4,0,7,252,4,4,25|
000076c0  32 2c 37 2c 30 0d 1e 6e  21 20 ef 20 32 33 2c 32  |2,7,0..n! . 23,2|
000076d0  32 35 2c 30 2c 32 35 35  2c 30 2c 30 2c 30 2c 30  |25,0,255,0,0,0,0|
000076e0  2c 32 35 35 2c 30 0d 1e  78 2d 20 ef 20 32 33 2c  |,255,0..x- . 23,|
000076f0  32 32 36 2c 32 35 34 2c  31 33 30 2c 31 33 34 2c  |226,254,130,134,|
00007700  31 33 34 2c 31 33 34 2c  31 33 34 2c 31 33 30 2c  |134,134,134,130,|
00007710  32 35 34 0d 1e 82 47 20  ef 20 32 33 2c 32 32 37  |254...G . 23,227|
00007720  2c 25 31 31 30 30 30 2c  25 31 31 30 30 31 31 30  |,%11000,%1100110|
00007730  30 2c 25 31 31 30 30 31  31 30 2c 36 33 2c 36 33  |0,%1100110,63,63|
00007740  2c 25 31 31 30 30 31 31  30 2c 25 31 31 30 30 31  |,%1100110,%11001|
00007750  31 30 30 2c 25 31 31 30  30 30 0d 1e 8c 59 20 ef  |100,%11000...Y .|
00007760  20 32 33 2c 32 32 38 2c  30 2c 38 2c 25 31 31 31  | 23,228,0,8,%111|
00007770  30 30 2c 25 31 31 31 31  31 30 2c 25 31 31 30 31  |00,%111110,%1101|
00007780  31 30 2c 25 31 31 30 30  30 31 31 2c 25 31 31 30  |10,%1100011,%110|
00007790  30 30 31 31 2c 33 3a ef  20 32 33 2c 32 32 39 2c  |0011,3:. 23,229,|
000077a0  33 2c 36 2c 36 2c 31 32  2c 31 32 2c 30 2c 31 32  |3,6,6,12,12,0,12|
000077b0  2c 31 32 0d 1e 96 29 20  ef 20 32 33 2c 32 33 30  |,12...) . 23,230|
000077c0  2c 30 2c 31 32 37 2c 31  32 37 2c 31 32 37 2c 31  |,0,127,127,127,1|
000077d0  32 37 2c 31 32 37 2c 31  32 37 2c 30 0d 1e a0 59  |27,127,127,0...Y|
000077e0  20 ef 20 32 33 2c 32 33  31 2c 25 31 30 31 31 30  | . 23,231,%10110|
000077f0  31 30 2c 25 31 30 30 31  30 30 30 31 2c 25 31 30  |10,%10010001,%10|
00007800  30 30 31 30 30 2c 25 31  30 31 31 30 30 31 2c 25  |00100,%1011001,%|
00007810  31 30 31 30 31 30 31 31  2c 25 31 31 30 30 31 31  |10101011,%110011|
00007820  30 30 2c 25 31 30 31 30  30 31 31 2c 25 31 30 31  |00,%1010011,%101|
00007830  30 31 31 30 31 0d 1e aa  3c 20 ef 20 32 33 2c 32  |01101...< . 23,2|
00007840  33 32 2c 25 31 30 30 30  30 2c 25 31 30 30 30 30  |32,%10000,%10000|
00007850  31 30 2c 30 2c 25 31 30  31 30 30 2c 31 32 38 2c  |10,0,%10100,128,|
00007860  32 2c 25 31 30 30 31 30  30 30 2c 25 31 30 30 30  |2,%1001000,%1000|
00007870  31 0d 1e b4 43 20 ef 20  32 33 2c 32 33 33 2c 33  |1...C . 23,233,3|
00007880  2c 34 2c 25 31 30 31 30  2c 25 31 31 30 30 31 2c  |,4,%1010,%11001,|
00007890  25 31 30 30 31 30 30 2c  25 31 30 31 30 31 30 30  |%100100,%1010100|
000078a0  2c 25 31 31 30 30 30 30  30 31 2c 25 31 30 31 30  |,%11000001,%1010|
000078b0  30 31 30 30 0d 1e be 50  20 ef 20 32 33 2c 32 33  |0100...P . 23,23|
000078c0  34 2c 25 31 31 30 30 30  30 30 30 2c 25 31 31 30  |4,%11000000,%110|
000078d0  30 30 30 30 2c 25 31 30  30 31 30 30 30 30 2c 25  |0000,%10010000,%|
000078e0  31 30 31 30 30 30 2c 25  31 31 30 30 2c 25 31 30  |101000,%1100,%10|
000078f0  31 31 30 30 31 30 2c 25  31 30 31 2c 25 31 30 30  |110010,%101,%100|
00007900  31 30 30 31 0d 1e c8 43  20 ef 20 32 33 2c 32 33  |1001...C . 23,23|
00007910  35 2c 25 31 30 31 30 30  31 30 30 2c 25 31 31 30  |5,%10100100,%110|
00007920  30 30 30 30 31 2c 25 31  30 31 30 31 30 30 2c 25  |00001,%1010100,%|
00007930  31 30 30 31 30 30 2c 25  31 31 30 30 31 2c 25 31  |100100,%11001,%1|
00007940  30 31 30 2c 34 2c 33 0d  1e d2 51 20 ef 20 32 33  |010,4,3...Q . 23|
00007950  2c 32 33 36 2c 25 31 30  30 31 30 30 31 20 2c 25  |,236,%1001001 ,%|
00007960  31 30 31 2c 25 31 30 31  31 30 30 31 30 2c 25 31  |101,%10110010,%1|
00007970  31 30 30 2c 25 31 30 31  30 30 30 2c 25 31 30 30  |100,%101000,%100|
00007980  31 30 30 30 30 2c 25 31  31 30 30 30 30 30 2c 25  |10000,%1100000,%|
00007990  31 31 30 30 30 30 30 30  0d 1e dc 05 e1 0d 1e e6  |11000000........|
000079a0  12 20 dd f2 73 61 76 65  73 63 72 65 65 6e 6d 0d  |. ..savescreenm.|
000079b0  1e f0 55 20 e7 20 4d 45  4e 55 3d 31 20 8c 20 4d  |..U . MENU=1 . M|
000079c0  45 4e 55 3d 30 3a 4f 50  54 3d 31 3a ef 20 32 34  |ENU=0:OPT=1:. 24|
000079d0  2c 30 3b 30 3b 31 32 37  39 3b 31 30 32 33 3b 3a  |,0;0;1279;1023;:|
000079e0  f2 62 72 69 6e 67 62 61  63 6b 3a f5 3a c8 97 20  |.bringback:.:.. |
000079f0  58 25 2c 59 25 2c 4b 25  3a fd 20 4b 25 3d 30 3a  |X%,Y%,K%:. K%=0:|
00007a00  5a 25 3d 30 0d 1e fa 22  20 ec 20 30 2c 30 3a ec  |Z%=0..." . 0,0:.|
00007a10  20 31 32 37 39 2c 31 30  32 33 3a 2a 53 47 45 54  | 1279,1023:*SGET|
00007a20  20 7a 74 65 6d 70 0d 1f  04 6d 20 e7 20 4d 45 4e  | ztemp...m . MEN|
00007a30  55 3d 30 20 8c 20 4f 50  54 3d 31 3a 4d 45 4e 55  |U=0 . OPT=1:MENU|
00007a40  3d 31 3a ef 20 32 34 2c  30 3b 30 3b 31 32 37 39  |=1:. 24,0;0;1279|
00007a50  3b 31 30 32 33 3b 3a f2  67 65 74 62 61 63 6b 3a  |;1023;:.getback:|
00007a60  f5 3a c8 97 20 58 25 2c  59 25 2c 4b 25 3a fd 20  |.:.. X%,Y%,K%:. |
00007a70  4b 25 3d 30 3a f2 6d 65  6e 75 31 3a ef 20 32 34  |K%=0:.menu1:. 24|
00007a80  2c 30 3b 30 3b 31 32 37  39 3b 38 32 39 3b 3a 4b  |,0;0;1279;829;:K|
00007a90  25 3d 30 0d 1f 0e 06 20  e1 0d 1f 18 12 20 dd f2  |%=0.... ..... ..|
00007aa0  6c 6f 61 64 73 63 72 65  65 6e 6d 0d 1f 22 55 20  |loadscreenm.."U |
00007ab0  e7 20 4d 45 4e 55 3d 31  20 8c 20 4d 45 4e 55 3d  |. MENU=1 . MENU=|
00007ac0  30 3a 4f 50 54 3d 31 3a  ef 20 32 34 2c 30 3b 30  |0:OPT=1:. 24,0;0|
00007ad0  3b 31 32 37 39 3b 31 30  32 33 3b 3a f2 62 72 69  |;1279;1023;:.bri|
00007ae0  6e 67 62 61 63 6b 3a f5  3a c8 97 20 58 25 2c 59  |ngback:.:.. X%,Y|
00007af0  25 2c 4b 25 3a fd 20 4b  25 3d 30 3a 5a 25 3d 30  |%,K%:. K%=0:Z%=0|
00007b00  0d 1f 2c 13 20 2a 53 43  48 4f 4f 53 45 20 7a 74  |..,. *SCHOOSE zt|
00007b10  65 6d 70 0d 1f 36 0e 20  f0 20 26 45 44 2c 30 2c  |emp..6. . &ED,0,|
00007b20  30 0d 1f 40 13 20 2a 53  44 45 4c 45 54 45 20 7a  |0..@. *SDELETE z|
00007b30  74 65 6d 70 0d 1f 4a 6d  20 e7 20 4d 45 4e 55 3d  |temp..Jm . MENU=|
00007b40  30 20 8c 20 4f 50 54 3d  31 3a 4d 45 4e 55 3d 31  |0 . OPT=1:MENU=1|
00007b50  3a ef 20 32 34 2c 30 3b  30 3b 31 32 37 39 3b 31  |:. 24,0;0;1279;1|
00007b60  30 32 33 3b 3a f2 67 65  74 62 61 63 6b 3a f5 3a  |023;:.getback:.:|
00007b70  c8 97 20 58 25 2c 59 25  2c 4b 25 3a fd 20 4b 25  |.. X%,Y%,K%:. K%|
00007b80  3d 30 3a f2 6d 65 6e 75  31 3a ef 20 32 34 2c 30  |=0:.menu1:. 24,0|
00007b90  3b 30 3b 31 32 37 39 3b  38 32 39 3b 3a 4b 25 3d  |;0;1279;829;:K%=|
00007ba0  30 0d 1f 54 06 20 e1 0d  1f 5e 0a 20 dd f2 63 61  |0..T. ...^. ..ca|
00007bb0  74 0d 1f 68 11 20 f2 73  61 76 65 73 63 72 65 65  |t..h. .savescree|
00007bc0  6e 6d 0d 1f 72 55 20 e7  20 4d 45 4e 55 3d 31 20  |nm..rU . MENU=1 |
00007bd0  8c 20 4d 45 4e 55 3d 30  3a 4f 50 54 3d 31 3a ef  |. MENU=0:OPT=1:.|
00007be0  20 32 34 2c 30 3b 30 3b  31 32 37 39 3b 31 30 32  | 24,0;0;1279;102|
00007bf0  33 3b 3a f2 62 72 69 6e  67 62 61 63 6b 3a f5 3a  |3;:.bringback:.:|
00007c00  c8 97 20 58 25 2c 59 25  2c 4b 25 3a fd 20 4b 25  |.. X%,Y%,K%:. K%|
00007c10  3d 30 3a 5a 25 3d 30 0d  1f 7c 1a 20 fb 20 31 32  |=0:Z%=0..|. . 12|
00007c20  38 2b 36 33 3a fb 20 30  20 c8 9c 20 31 39 32 3a  |8+63:. 0 .. 192:|
00007c30  db 0d 1f 86 30 20 ff 28  22 4d 4f 55 4e 54 20 22  |....0 .("MOUNT "|
00007c40  2b c3 28 44 52 49 29 29  3a e7 20 44 52 49 3d 34  |+.(DRI)):. DRI=4|
00007c50  20 8c 20 2a 44 49 52 20  4e 53 41 52 43 54 49 53  | . *DIR NSARCTIS|
00007c60  54 0d 1f 90 07 20 2a 2e  0d 1f 9a 19 20 f5 3a c8  |T.... *..... .:.|
00007c70  97 20 58 25 2c 59 25 2c  5a 25 3a fd 20 5a 25 3d  |. X%,Y%,Z%:. Z%=|
00007c80  31 0d 1f a4 16 20 f5 3a  4b 25 3d a6 28 31 29 3a  |1.... .:K%=.(1):|
00007c90  fd 20 4b 25 3d 2d 31 0d  1f ae 0f 20 fb 20 31 32  |. K%=-1.... . 12|
00007ca0  38 3a fb 20 36 33 0d 1f  b8 11 20 f2 6c 6f 61 64  |8:. 63.... .load|
00007cb0  73 63 72 65 65 6e 6d 0d  1f c2 06 20 e1 0d 1f cc  |screenm.... ....|
00007cc0  0a 20 dd f2 63 6c 73 0d  1f d6 20 20 c8 97 20 58  |. ..cls...  .. X|
00007cd0  25 2c 59 25 2c 5a 25 3a  e7 20 5a 25 3e 30 20 8c  |%,Y%,Z%:. Z%>0 .|
00007ce0  20 e5 20 8d 64 56 5f 0d  1f e0 2a 20 ef 20 31 39  | . .dV_...* . 19|
00007cf0  2c 31 2c 32 34 2c 32 35  35 2c 30 2c 30 3a c8 97  |,1,24,255,0,0:..|
00007d00  20 58 25 2c 59 25 2c 5a  25 3a 41 3d a6 28 31 30  | X%,Y%,Z%:A=.(10|
00007d10  29 0d 1f ea 1e 20 ef 20  31 39 2c 31 2c 32 34 2c  |).... . 19,1,24,|
00007d20  31 35 35 2c 30 2c 30 3a  41 3d a6 28 31 30 29 0d  |155,0,0:A=.(10).|
00007d30  1f f4 1a 20 e7 20 5a 25  3d 31 20 8c 20 ef 20 31  |... . Z%=1 . . 1|
00007d40  39 2c 31 2c 32 34 7c 3a  e1 0d 1f fe 15 20 e7 20  |9,1,24|:..... . |
00007d50  5a 25 3c 3e 34 20 8c 20  e5 20 8d 64 60 5f 0d 20  |Z%<>4 . . .d`_. |
00007d60  08 1a 20 ef 20 31 39 2c  31 2c 32 34 2c 32 35 35  |.. . 19,1,24,255|
00007d70  2c 32 35 35 2c 32 35 35  0d 20 12 7b 20 f2 62 72  |,255,255. .{ .br|
00007d80  69 6e 67 62 61 63 6b 3a  4f 54 54 3d 30 3a fb 20  |ingback:OTT=0:. |
00007d90  31 32 38 2b 43 4f 4c 25  20 c8 9c 20 54 4e 54 25  |128+COL% .. TNT%|
00007da0  3a db 3a ef 20 32 34 2c  30 3b 30 3b 31 32 37 39  |:.:. 24,0;0;1279|
00007db0  3b 31 30 32 33 3b 3a f2  67 65 74 62 61 63 6b 3a  |;1023;:.getback:|
00007dc0  f5 3a c8 97 20 58 25 2c  59 25 2c 5a 25 3a fd 20  |.:.. X%,Y%,Z%:. |
00007dd0  5a 25 3d 30 3a f2 6d 65  6e 75 31 3a ef 20 32 34  |Z%=0:.menu1:. 24|
00007de0  2c 30 3b 30 3b 31 32 37  39 3b 38 32 39 3b 3a 5a  |,0;0;1279;829;:Z|
00007df0  25 3d 30 0d 20 1c 06 20  e1 0d 20 26 17 20 f4 20  |%=0. .. .. &. . |
00007e00  3c 3c 3c 3c 3c 3c 3c 3c  3c 3c 3c 3c 3c 3c 3c 3c  |<<<<<<<<<<<<<<<<|
00007e10  0d 20 30 11 20 dd f2 6c  61 73 74 73 63 72 65 65  |. 0. ..lastscree|
00007e20  6e 0d 20 3a 3e 20 ef 20  32 34 2c 30 3b 30 3b 31  |n. :> . 24,0;0;1|
00007e30  32 37 39 3b 31 30 32 33  3b 3a f2 62 72 69 6e 67  |279;1023;:.bring|
00007e40  62 61 63 6b 3a ec 20 30  2c 30 3a ec 20 31 32 37  |back:. 0,0:. 127|
00007e50  39 2c 31 30 32 33 3a 2a  53 47 45 54 20 6e 73 0d  |9,1023:*SGET ns.|
00007e60  20 44 55 20 ef 20 32 34  2c 30 3b 30 3b 31 32 37  | DU . 24,0;0;127|
00007e70  39 3b 31 30 32 33 3b 3a  f2 67 65 74 62 61 63 6b  |9;1023;:.getback|
00007e80  3a f5 3a c8 97 20 58 25  2c 59 25 2c 4b 25 3a fd  |:.:.. X%,Y%,K%:.|
00007e90  20 4b 25 3d 30 3a f2 6d  65 6e 75 31 3a ef 20 32  | K%=0:.menu1:. 2|
00007ea0  34 2c 30 3b 30 3b 31 32  37 39 3b 38 32 39 3b 3a  |4,0;0;1279;829;:|
00007eb0  4b 25 3d 30 0d 20 4e 06  20 e1 0d 20 58 14 20 dd  |K%=0. N. .. X. .|
00007ec0  f2 67 65 74 6c 61 73 74  73 63 72 65 65 6e 0d 20  |.getlastscreen. |
00007ed0  62 35 20 ef 20 32 34 2c  30 3b 30 3b 31 32 37 39  |b5 . 24,0;0;1279|
00007ee0  3b 31 30 32 33 3b 3a f2  62 72 69 6e 67 62 61 63  |;1023;:.bringbac|
00007ef0  6b 3a ec 20 30 2c 30 3a  2a 53 43 48 4f 4f 53 45  |k:. 0,0:*SCHOOSE|
00007f00  20 6e 73 0d 20 6c 0e 20  f0 20 26 45 44 2c 30 2c  | ns. l. . &ED,0,|
00007f10  30 0d 20 76 55 20 ef 20  32 34 2c 30 3b 30 3b 31  |0. vU . 24,0;0;1|
00007f20  32 37 39 3b 31 30 32 33  3b 3a f2 67 65 74 62 61  |279;1023;:.getba|
00007f30  63 6b 3a f5 3a c8 97 20  58 25 2c 59 25 2c 4b 25  |ck:.:.. X%,Y%,K%|
00007f40  3a fd 20 4b 25 3d 30 3a  f2 6d 65 6e 75 31 3a ef  |:. K%=0:.menu1:.|
00007f50  20 32 34 2c 30 3b 30 3b  31 32 37 39 3b 38 32 39  | 24,0;0;1279;829|
00007f60  3b 3a 4b 25 3d 30 0d 20  80 06 20 e1 0d 20 8a 0c  |;:K%=0. .. .. ..|
00007f70  20 dd f2 64 75 6d 70 32  0d 20 94 22 20 ec 20 30  | ..dump2. ." . 0|
00007f80  2c 30 3a ec 20 31 32 37  39 2c 31 30 32 33 3a 2a  |,0:. 1279,1023:*|
00007f90  53 47 45 54 20 7a 74 65  6d 70 0d 20 9e 19 20 f5  |SGET ztemp. .. .|
00007fa0  3a c8 97 20 58 25 2c 59  25 2c 5a 25 3a fd 20 5a  |:.. X%,Y%,Z%:. Z|
00007fb0  25 3d 30 0d 20 a8 16 20  ef 20 31 39 2c 31 2c 32  |%=0. .. . 19,1,2|
00007fc0  34 2c 30 2c 30 2c 32 35  35 0d 20 b2 11 20 f7 3a  |4,0,0,255. .. .:|
00007fd0  e3 20 41 3d 30 20 b8 20  31 35 0d 20 bc 1d 20 f3  |. A=0 . 15. .. .|
00007fe0  20 41 24 3a 53 48 41 44  45 25 28 41 29 3d a0 28  | A$:SHADE%(A)=.(|
00007ff0  22 25 22 2b 41 24 29 0d  20 c6 06 20 ed 0d 20 d0  |"%"+A$). .. .. .|
00008000  27 20 53 49 25 3d 30 3a  53 49 32 25 3d 30 3a e7  |' SI%=0:SI2%=0:.|
00008010  20 44 45 3d 33 20 8c 20  53 49 25 3d 38 3a 53 49  | DE=3 . SI%=8:SI|
00008020  32 25 3d 32 0d 20 da 17  20 53 48 41 44 45 25 28  |2%=2. .. SHADE%(|
00008030  31 35 29 3d 25 30 30 30  30 30 30 0d 20 e4 84 20  |15)=%000000. .. |
00008040  dc 20 31 31 31 31 31 31  2c 31 30 31 31 30 31 2c  |. 111111,101101,|
00008050  30 31 30 30 31 30 2c 30  31 31 31 31 31 2c 30 31  |010010,011111,01|
00008060  31 30 31 31 2c 31 31 31  31 30 30 2c 31 31 30 30  |1011,111100,1100|
00008070  31 31 2c 31 31 31 30 30  31 2c 31 30 31 30 30 31  |11,111001,101001|
00008080  2c 30 31 30 31 31 30 2c  31 30 30 31 31 30 2c 31  |,010110,100110,1|
00008090  30 30 31 30 30 2c 30 31  31 30 30 30 2c 31 30 30  |00100,011000,100|
000080a0  30 31 30 2c 31 30 30 30  30 31 2c 30 30 30 31 31  |010,100001,00011|
000080b0  30 2c 31 31 30 30 30 30  2c 30 30 30 31 30 30 0d  |0,110000,000100.|
000080c0  20 ee 19 20 f5 3a c8 97  20 58 25 2c 59 25 2c 5a  | .. .:.. X%,Y%,Z|
000080d0  25 3a fd 20 5a 25 3d 30  0d 20 f8 31 20 f5 20 3a  |%:. Z%=0. .1 . :|
000080e0  c8 97 20 58 25 2c 59 25  2c 5a 25 3a fd 20 5a 25  |.. X%,Y%,Z%:. Z%|
000080f0  3d 31 20 84 20 5a 25 3d  34 3a e7 20 5a 25 3d 31  |=1 . Z%=4:. Z%=1|
00008100  20 8c 20 e5 20 8d 74 5c  62 0d 21 02 19 20 f5 3a  | . . .t\b.!.. .:|
00008110  c8 97 20 58 25 2c 59 25  2c 5a 25 3a fd 20 5a 25  |.. X%,Y%,Z%:. Z%|
00008120  3d 30 0d 21 0c 10 20 4d  58 3d 58 25 3a 4d 59 3d  |=0.!.. MX=X%:MY=|
00008130  59 25 0d 21 16 57 20 f5  20 3a c8 97 20 58 25 2c  |Y%.!.W . :.. X%,|
00008140  59 25 2c 5a 25 3a e6 20  34 2c 30 3a c8 93 20 4d  |Y%,Z%:. 4,0:.. M|
00008150  58 2c 4d 59 2c 58 25 2d  4d 58 2c 59 25 2d 4d 59  |X,MY,X%-MX,Y%-MY|
00008160  3a ff 28 22 46 58 31 39  22 29 3a ff 28 22 46 58  |:.("FX19"):.("FX|
00008170  31 39 22 29 3a c8 93 20  4d 58 2c 4d 59 2c 58 25  |19"):.. MX,MY,X%|
00008180  2d 4d 58 2c 59 25 2d 4d  59 0d 21 20 19 20 e7 20  |-MX,Y%-MY.! . . |
00008190  58 25 3e 4d 58 20 8c 20  c8 97 20 b8 20 4d 58 2c  |X%>MX . .. . MX,|
000081a0  59 25 0d 21 2a 19 20 e7  20 59 25 3c 4d 59 20 8c  |Y%.!*. . Y%<MY .|
000081b0  20 c8 97 20 b8 20 58 25  2c 4d 59 0d 21 34 21 fd  | .. . X%,MY.!4!.|
000081c0  20 5a 25 3d 31 20 84 20  5a 25 3d 34 3a e7 20 5a  | Z%=1 . Z%=4:. Z|
000081d0  25 3d 31 20 8c 20 e5 20  8d 74 5c 62 0d 21 3e 14  |%=1 . . .t\b.!>.|
000081e0  20 4d 58 32 25 3d 58 25  3a 4d 59 32 25 3d 59 25  | MX2%=X%:MY2%=Y%|
000081f0  0d 21 48 1b 20 e7 20 4d  58 3e 4d 58 32 25 20 8c  |.!H. . MX>MX2% .|
00008200  20 c8 94 20 4d 58 2c 4d  58 32 25 0d 21 52 1b 20  | .. MX,MX2%.!R. |
00008210  e7 20 4d 59 3c 4d 59 32  25 20 8c 20 c8 94 20 4d  |. MY<MY2% . .. M|
00008220  59 2c 4d 59 32 25 0d 21  5c 13 20 58 31 25 3d 34  |Y,MY2%.!\. X1%=4|
00008230  2a 28 4d 58 20 81 20 34  29 0d 21 66 19 20 59 31  |*(MX . 4).!f. Y1|
00008240  25 3d 4d 59 2d 28 28 4d  59 2b 31 29 20 83 20 31  |%=MY-((MY+1) . 1|
00008250  36 29 0d 21 70 13 20 f4  20 4d 58 3d 31 32 37 39  |6).!p. . MX=1279|
00008260  3a 4d 59 3d 31 0d 21 7a  14 20 4d 58 3d 34 2a 28  |:MY=1.!z. MX=4*(|
00008270  4d 58 32 25 20 81 20 34  29 0d 21 84 16 20 4d 59  |MX2% . 4).!.. MY|
00008280  3d 31 36 2a 28 4d 59 32  25 20 81 20 31 36 29 0d  |=16*(MY2% . 16).|
00008290  21 8e 12 20 58 32 25 3d  4d 58 3a 59 32 25 3d 4d  |!.. X2%=MX:Y2%=M|
000082a0  59 0d 21 98 1e 20 68 6f  72 69 7a 64 6f 74 73 3d  |Y.!.. horizdots=|
000082b0  33 2b 28 58 32 25 2d 58  31 25 29 2a 33 2f 34 0d  |3+(X2%-X1%)*3/4.|
000082c0  21 a2 12 20 ef 20 32 2c  31 2c 32 37 2c 31 2c 36  |!.. . 2,1,27,1,6|
000082d0  34 0d 21 ac 16 20 ef 20  32 2c 31 2c 32 37 2c 31  |4.!.. . 2,1,27,1|
000082e0  2c 36 35 2c 31 2c 38 0d  21 b6 1e 20 e3 20 58 3d  |,65,1,8.!.. . X=|
000082f0  31 20 b8 20 38 3a ef 20  31 2c 31 30 3a ed 3a ef  |1 . 8:. 1,10:.:.|
00008300  20 31 2c 31 33 0d 21 c0  28 20 e3 20 59 25 3d 59  | 1,13.!.( . Y%=Y|
00008310  31 25 20 b8 20 59 32 25  2b 31 35 20 88 20 2d 31  |1% . Y2%+15 . -1|
00008320  36 3a f4 20 2d 28 31 36  2d 53 49 25 29 0d 21 ca  |6:. -(16-SI%).!.|
00008330  34 20 ef 20 31 2c 32 37  2c 31 2c 37 36 2c 31 2c  |4 . 1,27,1,76,1,|
00008340  68 6f 72 69 7a 64 6f 74  73 20 83 20 32 35 36 2c  |horizdots . 256,|
00008350  31 2c 68 6f 72 69 7a 64  6f 74 73 20 81 20 32 35  |1,horizdots . 25|
00008360  36 0d 21 d4 36 20 c8 97  20 58 58 25 2c 59 59 25  |6.!.6 .. XX%,YY%|
00008370  2c 5a 5a 25 3a e7 20 5a  5a 25 3d 31 20 8c 20 ef  |,ZZ%:. ZZ%=1 . .|
00008380  31 2c 32 37 2c 31 2c 35  30 2c 31 2c 31 32 2c 33  |1,27,1,50,1,12,3|
00008390  3a e5 20 8d 74 5c 62 0d  21 de 17 20 e3 20 58 25  |:. .t\b.!.. . X%|
000083a0  3d 58 31 25 20 b8 20 58  32 25 20 88 20 34 0d 21  |=X1% . X2% . 4.!|
000083b0  e8 46 20 e7 20 44 45 3d  32 20 8c 20 e3 20 5a 25  |.F . DE=2 . . Z%|
000083c0  3d 30 20 b8 20 33 20 88  20 32 20 8b 20 e7 20 44  |=0 . 3 . 2 . . D|
000083d0  45 3d 33 20 8c 20 e3 20  5a 25 3d 30 20 b8 20 33  |E=3 . . Z%=0 . 3|
000083e0  20 88 20 31 2e 32 20 20  8b 20 e3 20 5a 25 3d 30  | . 1.2  . . Z%=0|
000083f0  20 b8 20 33 0d 21 f2 59  20 e7 20 44 45 3d 32 20  | . 3.!.Y . DE=2 |
00008400  8c 20 51 25 3d b0 58 25  2c 59 25 2d 5a 25 2a 38  |. Q%=.X%,Y%-Z%*8|
00008410  29 20 80 20 26 46 20 8b  20 e7 20 44 45 3d 33 20  |) . &F . . DE=3 |
00008420  8c 20 51 25 3d b0 58 25  2c 59 25 2d 5a 25 2a 32  |. Q%=.X%,Y%-Z%*2|
00008430  29 20 80 20 26 46 20 8b  20 51 25 3d b0 58 25 2c  |) . &F . Q%=.X%,|
00008440  59 25 2d 5a 25 2a 34 29  20 80 20 26 46 0d 21 fc  |Y%-Z%*4) . &F.!.|
00008450  5f 20 e7 20 44 45 3d 33  20 8c 20 52 25 3d b0 58  |_ . DE=3 . R%=.X|
00008460  25 2b 33 2c 59 25 2d 5a  25 2a 32 29 20 80 20 26  |%+3,Y%-Z%*2) . &|
00008470  46 20 8b 20 e7 20 44 45  3d 32 20 8c 20 52 25 3d  |F . . DE=2 . R%=|
00008480  b0 58 25 2b 32 2c 59 25  2d 5a 25 2a 38 29 20 80  |.X%+2,Y%-Z%*8) .|
00008490  20 26 46 20 8b 20 52 25  3d b0 58 25 2b 32 2c 59  | &F . R%=.X%+2,Y|
000084a0  25 2d 5a 25 2a 34 29 20  80 20 26 46 0d 22 06 54  |%-Z%*4) . &F.".T|
000084b0  20 e7 20 51 25 3d 52 25  20 8c 20 44 25 28 5a 25  | . Q%=R% . D%(Z%|
000084c0  29 3d 53 48 41 44 45 25  28 51 25 29 20 8b 20 44  |)=SHADE%(Q%) . D|
000084d0  25 28 5a 25 29 3d 28 53  48 41 44 45 25 28 51 25  |%(Z%)=(SHADE%(Q%|
000084e0  29 20 80 20 25 31 31 31  30 30 30 29 2b 28 53 48  |) . %111000)+(SH|
000084f0  41 44 45 25 28 52 25 29  20 80 20 25 31 31 31 29  |ADE%(R%) . %111)|
00008500  0d 22 10 06 20 ed 0d 22  1a 42 20 e7 20 44 45 3d  |.".. ..".B . DE=|
00008510  32 20 8c 20 e3 20 5a 25  3d 31 20 b8 20 31 20 20  |2 . . Z%=1 . 1  |
00008520  8b 20 e7 20 44 45 3d 33  20 8c 20 e3 20 5a 25 3d  |. . DE=3 . . Z%=|
00008530  30 20 b8 20 33 20 88 20  31 2e 35 20 8b 20 e3 20  |0 . 3 . 1.5 . . |
00008540  5a 25 3d 30 20 b8 20 33  0d 22 24 1e 20 e6 20 36  |Z%=0 . 3."$. . 6|
00008550  34 20 c8 9c 20 31 39 36  3a c8 92 20 58 25 2c 59  |4 .. 196:.. X%,Y|
00008560  25 2d 5a 25 2a 34 0d 22  2e 06 20 ed 0d 22 38 13  |%-Z%*4.".. .."8.|
00008570  20 e3 20 52 25 3d 32 20  b8 20 30 20 88 2d 31 0d  | . R%=2 . 0 .-1.|
00008580  22 42 0c 20 64 61 74 61  25 3d 30 0d 22 4c 0f 20  |"B. data%=0."L. |
00008590  e3 20 5a 25 3d 30 20 b8  20 33 0d 22 56 34 20 64  |. Z%=0 . 3."V4 d|
000085a0  61 74 61 25 3d 64 61 74  61 25 2b 28 28 28 44 25  |ata%=data%+(((D%|
000085b0  28 5a 25 29 3e 3e 28 52  25 2a 32 29 29 80 20 25  |(Z%)>>(R%*2)). %|
000085c0  31 31 29 3c 3c 28 36 2d  32 2a 5a 25 29 29 0d 22  |11)<<(6-2*Z%))."|
000085d0  60 0f 20 ed 3a ef 31 2c  64 61 74 61 25 0d 22 6a  |`. .:.1,data%."j|
000085e0  06 20 ed 0d 22 74 06 20  ed 0d 22 7e 10 20 ef 20  |. .."t. .."~. . |
000085f0  31 2c 31 33 2c 31 2c 31  30 0d 22 88 0c 20 ed 3a  |1,13,1,10.".. .:|
00008600  f2 6e 61 6d 65 0d 22 92  16 20 ef 31 2c 32 37 2c  |.name.".. .1,27,|
00008610  31 2c 35 30 2c 31 2c 31  32 2c 33 0d 22 9c 13 ef  |1,50,1,12,3."...|
00008620  20 31 39 2c 31 2c 32 34  2c 30 2c 30 2c 30 0d 22  | 19,1,24,0,0,0."|
00008630  a6 13 20 2a 53 43 48 4f  4f 53 45 20 7a 74 65 6d  |.. *SCHOOSE ztem|
00008640  70 0d 22 b0 14 20 e6 20  43 4f 4c 25 3a f0 26 45  |p.".. . COL%:.&E|
00008650  44 2c 30 2c 30 0d 22 ba  06 20 e1 0d 22 c4 0c 20  |D,0,0.".. ..".. |
00008660  dd f2 64 75 6d 70 33 0d  22 ce 16 20 ef 20 31 39  |..dump3.".. . 19|
00008670  2c 31 2c 32 34 2c 30 2c  30 2c 32 30 30 0d 22 d8  |,1,24,0,0,200.".|
00008680  1c 20 2a 48 41 52 44 43  4f 50 59 46 58 20 31 2c  |. *HARDCOPYFX 1,|
00008690  31 2c 31 2c 30 2c 32 35  35 0d 22 e2 0a 20 f2 6e  |1,1,0,255.".. .n|
000086a0  61 6d 65 0d 22 ec 0e 20  ef 32 2c 31 2c 31 32 2c  |ame.".. .2,1,12,|
000086b0  33 0d 22 f6 1a 20 ef 20  31 39 2c 31 2c 32 34 2c  |3.".. . 19,1,24,|
000086c0  32 35 35 2c 32 35 35 2c  32 35 35 0d 23 00 06 20  |255,255,255.#.. |
000086d0  e1 0d 23 0a 0b 20 dd f2  6e 61 6d 65 0d 23 14 48  |..#.. ..name.#.H|
000086e0  20 4e 24 3d 22 20 20 20  20 20 41 72 63 74 69 73  | N$="     Arctis|
000086f0  74 20 50 4c 55 53 20 2d  20 22 2b 91 24 2b 22 20  |t PLUS - "+.$+" |
00008700  28 63 29 31 39 38 38 20  4e 69 67 65 6c 20 53 74  |(c)1988 Nigel St|
00008710  75 61 72 74 2e 20 3e 3e  22 2b c3 28 44 45 29 2b  |uart. >>"+.(DE)+|
00008720  22 3c 3c 22 0d 23 1e 2b  20 ef 20 32 2c 31 2c 32  |"<<".#.+ . 2,1,2|
00008730  37 2c 31 2c 31 32 30 2c  31 2c 31 2c 31 2c 32 37  |7,1,120,1,1,1,27|
00008740  2c 31 2c 37 37 2c 31 2c  32 37 2c 31 2c 31 35 0d  |,1,77,1,27,1,15.|
00008750  23 28 24 20 e3 20 58 3d  31 20 b8 20 a9 28 4e 24  |#($ . X=1 . .(N$|
00008760  29 3a ef 20 31 2c 97 28  c1 4e 24 2c 58 2c 31 29  |):. 1,.(.N$,X,1)|
00008770  29 3a ed 0d 23 32 06 20  e1 0d 23 3c 0b 20 dd f2  |):..#2. ..#<. ..|
00008780  66 6f 72 6d 0d 23 46 0a  20 2a 53 4e 45 57 0d 23  |form.#F. *SNEW.#|
00008790  50 22 20 ec 20 30 2c 30  3a ec 20 31 32 37 39 2c  |P" . 0,0:. 1279,|
000087a0  31 30 32 33 3a 2a 53 47  45 54 20 7a 74 65 6d 70  |1023:*SGET ztemp|
000087b0  0d 23 5a 26 20 fb 20 35  30 3a f1 8a 31 2c 31 35  |.#Z& . 50:..1,15|
000087c0  29 3b 22 46 4f 52 4d 41  54 20 41 20 44 49 53 43  |);"FORMAT A DISC|
000087d0  2e 2e 2e 2e 2e 22 0d 23  64 10 20 2a 46 4f 52 4d  |.....".#d. *FORM|
000087e0  41 54 20 30 20 44 0d 23  6e 1a 20 f1 3a f1 22 20  |AT 0 D.#n. .:." |
000087f0  20 20 50 52 45 53 53 20  41 20 4b 45 59 20 21 22  |  PRESS A KEY !"|
00008800  0d 23 78 08 20 4b 3d a5  0d 23 82 13 20 2a 53 43  |.#x. K=..#.. *SC|
00008810  48 4f 4f 53 45 20 7a 74  65 6d 70 0d 23 8c 12 20  |HOOSE ztemp.#.. |
00008820  e6 20 30 3a f0 20 26 45  44 2c 30 2c 30 0d 23 96  |. 0:. &ED,0,0.#.|
00008830  06 20 e1 0d 23 a0 0b 20  dd f2 67 72 69 64 0d 23  |. ..#.. ..grid.#|
00008840  aa 2b 20 e6 20 34 2c 30  3a e3 20 58 3d 31 20 b8  |.+ . 4,0:. X=1 .|
00008850  20 31 32 37 39 20 88 20  31 36 3a 86 20 58 2c 30  | 1279 . 16:. X,0|
00008860  2c 58 2c 31 30 32 33 3a  ed 0d 23 b4 2b 20 e6 20  |,X,1023:..#.+ . |
00008870  34 2c 30 3a e3 20 58 3d  31 20 b8 20 31 30 32 33  |4,0:. X=1 . 1023|
00008880  20 88 20 33 32 3a 86 20  30 2c 58 2c 31 32 37 39  | . 32:. 0,X,1279|
00008890  2c 58 3a ed 0d 23 be 13  20 e6 20 43 4f 4c 25 20  |,X:..#.. . COL% |
000088a0  c8 9c 20 54 4e 54 25 0d  23 c8 05 e1 0d 23 d2 0b  |.. TNT%.#....#..|
000088b0  20 dd f2 73 68 61 64 0d  23 dc 16 20 ef 20 31 39  | ..shad.#.. . 19|
000088c0  2c 31 2c 32 34 2c 30 2c  32 35 35 2c 30 0d 23 e6  |,1,24,0,255,0.#.|
000088d0  29 20 f5 20 c8 97 20 58  25 2c 59 25 2c 5a 25 3a  |) . .. X%,Y%,Z%:|
000088e0  fd 20 5a 25 3e 30 3a e7  20 5a 25 3d 31 20 8c 20  |. Z%>0:. Z%=1 . |
000088f0  e5 20 8d 44 5e 64 0d 23  f0 15 20 f5 20 c8 97 20  |. .D^d.#.. . .. |
00008900  53 2c 54 2c 55 3a fd 20  55 3d 30 0d 23 fa 73 20  |S,T,U:. U=0.#.s |
00008910  e6 20 34 2c 30 3a f5 20  c8 97 20 58 32 25 2c 59  |. 4,0:. .. X2%,Y|
00008920  32 25 2c 5a 25 3a c8 93  20 58 25 2c 59 25 2c 58  |2%,Z%:.. X%,Y%,X|
00008930  32 25 2d 58 25 2c 59 32  25 2d 59 25 3a ff 28 22  |2%-X%,Y2%-Y%:.("|
00008940  46 58 31 39 22 29 3a ff  28 22 46 58 31 39 22 29  |FX19"):.("FX19")|
00008950  3a c8 93 20 58 25 2c 59  25 2c 58 32 25 2d 58 25  |:.. X%,Y%,X2%-X%|
00008960  2c 59 32 25 2d 59 25 3a  fd 20 5a 25 3e 30 3a e7  |,Y2%-Y%:. Z%>0:.|
00008970  20 5a 25 3d 31 20 8c 20  e5 20 8d 44 5e 64 0d 24  | Z%=1 . . .D^d.$|
00008980  04 15 20 f5 20 c8 97 20  53 2c 54 2c 55 3a fd 20  |.. . .. S,T,U:. |
00008990  55 3d 30 0d 24 0e 19 20  e7 20 59 32 25 3c 59 25  |U=0.$.. . Y2%<Y%|
000089a0  20 8c 20 c8 94 20 59 32  25 2c 59 25 0d 24 18 19  | . .. Y2%,Y%.$..|
000089b0  20 e7 20 58 32 25 3c 58  25 20 8c 20 c8 94 20 58  | . X2%<X% . .. X|
000089c0  32 25 2c 58 25 0d 24 22  1d 20 e7 20 58 25 2f 32  |2%,X%.$". . X%/2|
000089d0  3d a8 28 58 25 2f 32 29  20 8c 20 58 25 3d 58 25  |=.(X%/2) . X%=X%|
000089e0  2d 32 0d 24 2c 1d 20 e7  20 59 25 2f 32 3d a8 28  |-2.$,. . Y%/2=.(|
000089f0  59 25 2f 32 29 20 8c 20  59 25 3d 59 25 2d 32 0d  |Y%/2) . Y%=Y%-2.|
00008a00  24 36 40 20 e6 20 36 34  20 c8 9c 20 30 3a 20 e7  |$6@ . 64 .. 0: .|
00008a10  20 42 52 49 3e 30 20 8c  20 e6 20 36 33 20 c8 9c  | BRI>0 . . 63 ..|
00008a20  20 31 39 36 20 3a 20 e7  20 42 52 49 3d 36 20 8c  | 196 : . BRI=6 .|
00008a30  20 e6 20 43 4f 4c 25 20  c8 9c 20 54 4e 54 25 0d  | . COL% .. TNT%.|
00008a40  24 40 55 20 e3 20 4b 25  3d 58 25 20 b8 20 58 32  |$@U . K%=X% . X2|
00008a50  25 20 88 20 34 3a e3 20  4c 25 3d 59 25 20 b8 20  |% . 4:. L%=Y% . |
00008a60  59 32 25 20 88 20 34 3a  e7 20 42 52 49 3d 35 20  |Y2% . 4:. BRI=5 |
00008a70  8c 20 54 54 25 3d c8 9c  28 4b 25 2d 32 2c 4c 25  |. TT%=..(K%-2,L%|
00008a80  29 3a e6 20 b0 4b 25 2d  32 2c 4c 25 29 20 c8 9c  |):. .K%-2,L%) ..|
00008a90  20 54 54 25 0d 24 4a 0d  20 c8 92 20 4b 25 2c 4c  | TT%.$J. .. K%,L|
00008aa0  25 0d 24 54 08 20 ed 20  2c 0d 24 5e 13 20 e6 20  |%.$T. . ,.$^. . |
00008ab0  43 4f 4c 25 20 c8 9c 20  54 4e 54 25 0d 24 68 1a  |COL% .. TNT%.$h.|
00008ac0  20 ef 20 31 39 2c 31 2c  32 34 2c 32 35 35 2c 32  | . 19,1,24,255,2|
00008ad0  35 35 2c 32 35 35 0d 24  72 06 20 e1 0d 24 7c 0b  |55,255.$r. ..$|.|
00008ae0  20 dd f2 67 61 6d 65 0d  24 86 22 20 ec 20 30 2c  | ..game.$." . 0,|
00008af0  30 3a ec 20 31 32 37 39  2c 31 30 32 33 3a 2a 53  |0:. 1279,1023:*S|
00008b00  47 45 54 20 7a 74 65 6d  70 0d 24 90 0f 20 fb 20  |GET ztemp.$.. . |
00008b10  31 32 38 2b 35 30 3a db  0d 24 9a 38 20 fb 20 36  |128+50:..$.8 . 6|
00008b20  33 3a f1 8a 31 39 2c 30  29 3b 22 53 50 4c 41 54  |3:..19,0);"SPLAT|
00008b30  54 45 52 2e 2e 2e 2e 2e  2e 2e 20 27 41 52 43 54  |TER....... 'ARCT|
00008b40  49 53 54 27 2c 20 4d 49  4e 49 20 47 41 4d 45 22  |IST', MINI GAME"|
00008b50  0d 24 a4 2f 20 e3 20 58  3d 31 20 b8 20 31 30 3a  |.$./ . X=1 . 10:|
00008b60  53 41 25 28 31 2c 58 29  3d b3 28 38 30 29 3a 53  |SA%(1,X)=.(80):S|
00008b70  44 25 28 31 2c 58 29 3d  b3 28 33 30 29 3a ed 0d  |D%(1,X)=.(30):..|
00008b80  24 ae 08 20 d1 3d 30 0d  24 b8 09 20 53 43 3d 30  |$.. .=0.$.. SC=0|
00008b90  0d 24 c2 0e 20 53 44 3d  30 3a 53 41 3d 30 0d 24  |.$.. SD=0:SA=0.$|
00008ba0  cc 06 20 f5 0d 24 d6 15  20 c8 97 20 88 20 31 2b  |.. ..$.. .. . 1+|
00008bb0  a8 28 91 2f 31 30 30 30  29 0d 24 e0 0f 20 e3 20  |.(./1000).$.. . |
00008bc0  43 3d 31 20 b8 20 31 30  0d 24 ea 10 20 fb 20 33  |C=1 . 10.$.. . 3|
00008bd0  30 20 c8 9c 20 31 39 36  0d 24 f4 1d 20 f1 8a 53  |0 .. 196.$.. ..S|
00008be0  41 25 28 31 2c 43 29 2c  53 44 25 28 31 2c 43 29  |A%(1,C),SD%(1,C)|
00008bf0  29 3b 22 a4 22 0d 24 fe  09 2a 46 58 31 39 0d 25  |);".".$..*FX19.%|
00008c00  08 22 20 fb 20 31 30 3a  f1 8a 53 41 25 28 32 2c  |." . 10:..SA%(2,|
00008c10  43 29 2c 53 44 25 28 32  2c 43 29 29 3b 22 2e 22  |C),SD%(2,C));"."|
00008c20  0d 25 12 1c 20 c8 97 20  58 2c 59 2c 5a 3a e7 20  |.%.. .. X,Y,Z:. |
00008c30  5a 3d 31 20 8c 20 e5 20  8d 74 7c 65 0d 25 1c a4  |Z=1 . . .t|e.%..|
00008c40  20 e7 20 5a 3d 34 20 80  20 b0 58 2c 59 29 3d 33  | . Z=4 . .X,Y)=3|
00008c50  30 20 8c 20 53 43 3d 53  43 2b 31 3a ef 31 39 2c  |0 . SC=SC+1:.19,|
00008c60  31 2c 32 34 2c 32 35 35  2c 32 35 35 2c 30 3a d4  |1,24,255,255,0:.|
00008c70  20 31 2c 2d 31 35 2c 31  35 30 2c 30 3a e3 20 58  | 1,-15,150,0:. X|
00008c80  3d 31 20 b8 20 31 30 3a  f1 8a 53 41 25 28 31 2c  |=1 . 10:..SA%(1,|
00008c90  43 29 2c 53 44 25 28 31  2c 43 29 29 3b 22 20 22  |C),SD%(1,C));" "|
00008ca0  3a 53 41 25 28 31 2c 58  29 3d b3 28 38 30 29 3a  |:SA%(1,X)=.(80):|
00008cb0  53 44 25 28 31 2c 58 29  3d b3 28 33 30 29 3a ed  |SD%(1,X)=.(30):.|
00008cc0  3a f5 3a c8 97 20 58 2c  59 2c 5a 3a fd 20 5a 3d  |:.:.. X,Y,Z:. Z=|
00008cd0  30 3a ef 31 39 2c 31 2c  32 34 2c 30 2c 30 2c 30  |0:.19,1,24,0,0,0|
00008ce0  0d 25 26 17 20 f5 3a c8  97 20 58 2c 59 2c 5a 5a  |.%&. .:.. X,Y,ZZ|
00008cf0  3a fd 20 5a 5a 3d 30 0d  25 30 28 20 53 41 25 28  |:. ZZ=0.%0( SA%(|
00008d00  32 2c 43 29 3d 53 41 25  28 31 2c 43 29 3a 53 44  |2,C)=SA%(1,C):SD|
00008d10  25 28 32 2c 43 29 3d 53  44 25 28 31 2c 43 29 0d  |%(2,C)=SD%(1,C).|
00008d20  25 3a 18 20 41 31 3d b3  28 33 29 2d 32 3a 41 32  |%:. A1=.(3)-2:A2|
00008d30  3d b3 28 33 29 2d 32 0d  25 44 19 20 53 41 25 28  |=.(3)-2.%D. SA%(|
00008d40  31 2c 43 29 3d 53 41 25  28 31 2c 43 29 2b 41 31  |1,C)=SA%(1,C)+A1|
00008d50  0d 25 4e 19 20 53 44 25  28 31 2c 43 29 3d 53 44  |.%N. SD%(1,C)=SD|
00008d60  25 28 31 2c 43 29 2b 41  32 0d 25 58 1f 20 e7 20  |%(1,C)+A2.%X. . |
00008d70  53 41 25 28 31 2c 43 29  3e 37 38 20 8c 20 53 41  |SA%(1,C)>78 . SA|
00008d80  25 28 31 2c 43 29 3d 32  0d 25 62 1f 20 e7 20 53  |%(1,C)=2.%b. . S|
00008d90  41 25 28 31 2c 43 29 3c  32 20 8c 20 53 41 25 28  |A%(1,C)<2 . SA%(|
00008da0  31 2c 43 29 3d 37 38 0d  25 6c 1f 20 e7 20 53 44  |1,C)=78.%l. . SD|
00008db0  25 28 31 2c 43 29 3c 32  20 8c 20 53 44 25 28 31  |%(1,C)<2 . SD%(1|
00008dc0  2c 43 29 3d 33 30 0d 25  76 1f 20 e7 20 53 44 25  |,C)=30.%v. . SD%|
00008dd0  28 31 2c 43 29 3e 33 30  20 8c 20 53 44 25 28 31  |(1,C)>30 . SD%(1|
00008de0  2c 43 29 3d 32 0d 25 80  29 20 d4 20 31 2c 2d 31  |,C)=2.%.) . 1,-1|
00008df0  35 2c 53 41 25 28 31 2c  43 29 2b 53 44 25 28 31  |5,SA%(1,C)+SD%(1|
00008e00  2c 43 29 2b 31 30 30 2c  32 2c 30 3a c8 96 0d 25  |,C)+100,2,0:...%|
00008e10  8a 08 20 ed 20 43 0d 25  94 09 20 fb 20 36 30 0d  |.. . C.%.. . 60.|
00008e20  25 9e 1e 20 f1 8a 30 2c  30 29 3b a8 28 28 35 30  |%.. ..0,0);.((50|
00008e30  30 30 2d 91 29 2f 31 30  29 3b 22 20 22 0d 25 a8  |00-.)/10);" ".%.|
00008e40  15 20 f1 8a 37 30 2c 30  29 3b 22 53 43 3a 22 3b  |. ..70,0);"SC:";|
00008e50  53 43 0d 25 b2 0e 20 fd  20 91 3e 3d 35 30 30 30  |SC.%.. . .>=5000|
00008e60  0d 25 bc 44 20 f1 8a 33  30 2c 31 30 29 3b 22 41  |.%.D ..30,10);"A|
00008e70  4e 4f 54 48 45 52 20 47  41 4d 45 20 3f 20 20 59  |NOTHER GAME ?  Y|
00008e80  2f 4e 2e 22 3a 41 24 3d  be 3a e7 20 41 24 3d 22  |/N.":A$=.:. A$="|
00008e90  59 22 20 84 20 41 24 3d  22 79 22 20 8c 20 e5 20  |Y" . A$="y" . . |
00008ea0  8d 74 50 64 0d 25 c6 0b  20 c8 97 20 88 20 31 0d  |.tPd.%.. .. . 1.|
00008eb0  25 d0 13 20 2a 53 43 48  4f 4f 53 45 20 7a 74 65  |%.. *SCHOOSE zte|
00008ec0  6d 70 0d 25 da 12 20 e6  20 30 3a f0 20 26 45 44  |mp.%.. . 0:. &ED|
00008ed0  2c 30 2c 30 0d 25 e4 06  20 e1 0d 25 ee 0e 20 dd  |,0,0.%.. ..%.. .|
00008ee0  f2 61 6e 6f 74 68 65 72  0d 25 f8 14 e7 20 49 4d  |.another.%... IM|
00008ef0  46 4f 3d 31 20 8c 20 f2  69 6d 66 6f 0d 26 02 11  |FO=1 . .imfo.&..|
00008f00  20 e7 20 4f 50 54 32 3d  35 20 8c 20 e1 0d 26 0c  | . OPT2=5 . ..&.|
00008f10  3f 20 c8 97 20 58 25 2c  59 25 2c 5a 25 3a e7 20  |? .. X%,Y%,Z%:. |
00008f20  4d 45 4e 55 3d 31 20 80  20 5a 25 3d 34 20 80 20  |MENU=1 . Z%=4 . |
00008f30  58 25 3c 36 30 20 80 20  59 25 3e 38 38 30 20 8c  |X%<60 . Y%>880 .|
00008f40  20 f2 63 6f 6c 6f 75 72  20 8b 20 e1 0d 26 16 34  | .colour . ..&.4|
00008f50  20 4f 50 54 3d 32 3a f2  62 6f 75 6e 63 65 3a f5  | OPT=2:.bounce:.|
00008f60  3a c8 97 20 58 25 2c 59  25 2c 5a 25 3a e7 20 5a  |:.. X%,Y%,Z%:. Z|
00008f70  25 3d 34 20 8c 20 f2 63  6f 6c 63 68 61 6e 67 65  |%=4 . .colchange|
00008f80  0d 26 20 0b 20 fd 20 5a  25 3d 31 0d 26 2a 0c 20  |.& . . Z%=1.&*. |
00008f90  f2 62 6f 75 6e 63 65 0d  26 34 5f 20 4f 50 54 3d  |.bounce.&4_ OPT=|
00008fa0  31 3a 4d 45 4e 55 3d 31  3a ef 20 32 34 2c 30 3b  |1:MENU=1:. 24,0;|
00008fb0  30 3b 31 32 37 39 3b 31  30 32 33 3b 3a f5 3a c8  |0;1279;1023;:.:.|
00008fc0  97 20 58 25 2c 59 25 2c  5a 25 3a fd 20 5a 25 3d  |. X%,Y%,Z%:. Z%=|
00008fd0  30 3a f2 6d 65 6e 75 31  3a ef 20 32 34 2c 30 3b  |0:.menu1:. 24,0;|
00008fe0  30 3b 31 32 37 39 3b 38  32 39 3b 3a 5a 25 3d 30  |0;1279;829;:Z%=0|
00008ff0  3a 4f 50 54 3d 31 0d 26  3e 06 20 e1 0d 26 48 0b  |:OPT=1.&>. ..&H.|
00009000  20 dd f2 74 69 6e 74 0d  26 52 19 20 ef 20 31 39  | ..tint.&R. . 19|
00009010  2c 31 2c 32 34 2c 31 37  35 2c 31 30 2c 32 35 35  |,1,24,175,10,255|
00009020  0d 26 5c 28 20 41 53 25  3d a6 28 35 29 3a e7 20  |.&\( AS%=.(5):. |
00009030  41 53 25 3c 34 38 20 84  20 41 53 25 3e 34 39 20  |AS%<48 . AS%>49 |
00009040  8c 20 e5 20 8d 44 5c 66  0d 26 66 48 20 41 53 25  |. . .D\f.&fH AS%|
00009050  3d 41 53 25 2a 31 30 3a  e7 20 41 53 25 3d 31 30  |=AS%*10:. AS%=10|
00009060  20 8c 20 ef 20 31 39 2c  31 2c 32 34 2c 32 30 30  | . . 19,1,24,200|
00009070  2c 32 30 30 2c 32 30 30  20 8b 20 ef 20 31 39 2c  |,200,200 . . 19,|
00009080  31 2c 32 34 2c 31 30 30  2c 31 30 30 2c 31 30 30  |1,24,100,100,100|
00009090  0d 26 70 1d 20 41 24 3d  bf 28 35 29 3a e7 20 41  |.&p. A$=.(5):. A|
000090a0  24 3e 22 22 20 8c 20 e5  20 8d 44 70 66 0d 26 7a  |$>"" . . .Dpf.&z|
000090b0  25 20 41 25 3d a6 28 35  29 3a e7 20 41 25 3c 34  |% A%=.(5):. A%<4|
000090c0  38 20 84 20 41 25 3e 35  34 20 8c 20 e5 20 8d 44  |8 . A%>54 . . .D|
000090d0  7a 66 0d 26 84 2e 20 41  53 25 3d 41 53 25 2b 41  |zf.&.. AS%=AS%+A|
000090e0  25 3a ef 20 31 39 2c 31  2c 32 34 2c 41 53 25 2a  |%:. 19,1,24,AS%*|
000090f0  31 30 2c 41 53 25 2a 31  30 2c 41 53 25 2a 31 30  |10,AS%*10,AS%*10|
00009100  0d 26 8e 2a 20 e3 20 58  3d 30 20 b8 20 31 35 3a  |.&.* . X=0 . 15:|
00009110  fb 20 58 2c 41 53 25 2a  31 36 2c 41 53 25 2a 31  |. X,AS%*16,AS%*1|
00009120  36 2c 41 53 25 2a 31 36  3a ed 0d 26 98 1d 20 41  |6,AS%*16:..&.. A|
00009130  24 3d bf 28 35 29 3a e7  20 41 24 3e 22 22 20 8c  |$=.(5):. A$>"" .|
00009140  20 e5 20 8d 74 58 66 0d  26 a2 16 20 ef 20 31 39  | . .tXf.&.. . 19|
00009150  2c 31 2c 32 34 2c 30 2c  30 2c 30 3a e1 0d 26 ac  |,1,24,0,0,0:..&.|
00009160  0d 20 dd f2 72 6f 74 61  74 65 0d 26 b6 0a 20 43  |. ..rotate.&.. C|
00009170  4f 25 3d 30 0d 26 c0 0b  20 50 50 3d 31 30 30 0d  |O%=0.&.. PP=100.|
00009180  26 ca 1f 20 43 4f 25 3d  43 4f 25 2b 31 3a e7 20  |&.. CO%=CO%+1:. |
00009190  43 4f 25 3e 31 35 20 8c  20 43 4f 25 3d 30 0d 26  |CO%>15 . CO%=0.&|
000091a0  d4 0a 20 2a 46 58 31 39  0d 26 de 25 20 e3 20 58  |.. *FX19.&.% . X|
000091b0  3d 31 20 b8 20 31 35 3a  fb 20 58 2c 43 4f 25 2a  |=1 . 15:. X,CO%*|
000091c0  58 2c 43 4f 25 2a 58 2c  43 4f 25 2a 58 0d 26 e8  |X,CO%*X,CO%*X.&.|
000091d0  1b 20 e3 20 50 3d 31 20  b8 20 50 50 3a ed 3a e7  |. . P=1 . PP:.:.|
000091e0  20 5a 3d 32 20 8c 20 e1  0d 26 f2 06 20 ed 0d 26  | Z=2 . ..&.. ..&|
000091f0  fc 26 20 c8 97 20 58 2c  59 2c 5a 3a e7 20 5a 3d  |.& .. X,Y,Z:. Z=|
00009200  31 20 80 20 50 50 3c 33  30 30 20 8c 20 50 50 3d  |1 . PP<300 . PP=|
00009210  50 50 2b 31 0d 27 06 1b  20 e7 20 5a 3d 34 20 80  |PP+1.'.. . Z=4 .|
00009220  20 50 50 3e 31 20 8c 20  50 50 3d 50 50 2d 31 0d  | PP>1 . PP=PP-1.|
00009230  27 10 0b 20 e5 20 8d 64  4a 66 0d 27 1a 0a 20 dd  |'.. . .dJf.'.. .|
00009240  f2 73 77 69 0d 27 24 13  20 c8 94 20 42 41 4e 31  |.swi.'$. .. BAN1|
00009250  25 2c 42 41 4e 32 25 0d  27 2e 19 20 ff 28 22 46  |%,BAN2%.'.. .("F|
00009260  58 31 31 32 2c 22 2b c3  28 42 41 4e 31 25 29 29  |X112,"+.(BAN1%))|
00009270  0d 27 38 19 20 ff 28 22  46 58 31 31 33 2c 22 2b  |.'8. .("FX113,"+|
00009280  c3 28 42 41 4e 32 25 29  29 0d 27 42 06 20 e1 0d  |.(BAN2%)).'B. ..|
00009290  27 4c 0b 20 dd f2 6e 6f  72 6d 0d 27 56 0d 20 2a  |'L. ..norm.'V. *|
000092a0  46 58 31 31 32 2c 31 0d  27 60 0d 20 2a 46 58 31  |FX112,1.'`. *FX1|
000092b0  31 33 2c 31 0d 27 6a 06  20 e1 0d 27 74 51 20 e3  |13,1.'j. ..'tQ .|
000092c0  20 58 3d 30 20 b8 20 36  34 3a fb 20 58 3a f1 22  | X=0 . 64:. X:."|
000092d0  43 4f 4c 4f 55 52 20 3d  20 22 58 3a 41 3d a5 3a  |COLOUR = "X:A=.:|
000092e0  ed 3a f4 20 3c 3c 3c 3c  3c 3c 3c 3c 3c 3c 3c 3c  |.:. <<<<<<<<<<<<|
000092f0  3c 20 43 4f 4c 4f 55 52  53 20 3c 3c 3c 3c 3c 3c  |< COLOURS <<<<<<|
00009300  3c 3c 3c 3c 3c 3c 3c 3c  3c 3c 3c 0d 27 7e 06 20  |<<<<<<<<<<<.'~. |
00009310  e0 0d 27 88 31 20 dd f2  70 6c 75 73 6d 65 6e 75  |..'.1 ..plusmenu|
00009320  3a 4f 50 54 32 3d 35 20  3a c8 97 20 ee 20 31 3a  |:OPT2=5 :.. . 1:|
00009330  c8 97 20 fb 20 31 2c 32  30 30 2c 32 30 30 2c 32  |.. . 1,200,200,2|
00009340  30 30 0d 27 92 11 20 e7  20 4d 45 4e 55 3d 30 20  |00.'.. . MENU=0 |
00009350  8c 20 e1 0d 27 9c 11 20  f4 20 53 50 41 52 45 20  |. ..'.. . SPARE |
00009360  4c 49 4e 45 0d 27 a6 0b  20 e4 20 8d 74 4c 68 0d  |LINE.'.. . .tLh.|
00009370  27 b0 20 20 c8 97 20 58  25 2c 59 25 2c 5a 25 3a  |'.  .. X%,Y%,Z%:|
00009380  e7 20 5a 25 3e 30 20 8c  20 c8 97 20 ee 20 32 0d  |. Z%>0 . .. . 2.|
00009390  27 ba 23 20 f2 69 6d 66  6f 3a e7 20 4f 50 54 32  |'.# .imfo:. OPT2|
000093a0  3d 36 20 8c 20 4f 50 54  32 3d 35 3a e5 20 8d 74  |=6 . OPT2=5:. .t|
000093b0  52 67 0d 27 c4 24 e7 20  53 4e 41 50 3d 30 20 8c  |Rg.'.$. SNAP=0 .|
000093c0  20 c8 97 20 88 20 32 2c  32 20 8b 20 c8 97 20 88  | .. . 2,2 . .. .|
000093d0  20 31 36 2c 33 32 0d 27  ce 5a 20 e7 20 5a 25 3d  | 16,32.'.Z . Z%=|
000093e0  34 20 80 20 58 25 3e 36  35 20 80 20 58 25 3c 31  |4 . X%>65 . X%<1|
000093f0  32 35 20 80 20 59 25 3e  39 33 30 20 80 20 59 25  |25 . Y%>930 . Y%|
00009400  3c 39 39 30 20 8c 20 c8  94 20 53 4e 41 50 31 2c  |<990 . .. SNAP1,|
00009410  53 4e 41 50 3a f2 62 6f  75 6e 63 65 3a c8 97 20  |SNAP:.bounce:.. |
00009420  b8 20 36 30 30 2c 34 38  30 3a e5 20 8d 74 5c 67  |. 600,480:. .t\g|
00009430  0d 27 d8 ae 20 e7 20 5a  25 3d 34 20 80 20 58 25  |.'.. . Z%=4 . X%|
00009440  3e 31 33 30 20 80 20 58  25 3c 31 37 30 20 80 20  |>130 . X%<170 . |
00009450  59 25 3e 39 33 30 20 80  20 59 25 3c 39 39 30 20  |Y%>930 . Y%<990 |
00009460  8c 20 49 4d 46 4f 3d 49  4d 46 4f 20 82 20 31 3a  |. IMFO=IMFO . 1:|
00009470  fb 20 31 33 30 3a f1 8a  31 2c 33 31 29 3b 22 20  |. 130:..1,31);" |
00009480  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000094c0  20 20 20 20 20 20 20 20  20 20 20 20 20 22 3b 3a  |             ";:|
000094d0  f2 62 6f 75 6e 63 65 3a  e5 20 8d 74 5c 67 0d 27  |.bounce:. .t\g.'|
000094e0  e2 a9 20 e7 20 5a 25 3d  34 20 80 20 58 25 3e 32  |.. . Z%=4 . X%>2|
000094f0  31 30 20 80 20 58 25 3c  33 30 36 20 80 20 59 25  |10 . X%<306 . Y%|
00009500  3e 39 33 30 20 80 20 59  25 3c 39 39 30 20 8c 20  |>930 . Y%<990 . |
00009510  fb 20 31 38 2b 31 32 38  3a f1 8a 31 33 2c 31 29  |. 18+128:..13,1)|
00009520  3b 22 63 20 e3 20 20 22  8a 31 33 2c 32 29 3b 22  |;"c .  ".13,2);"|
00009530  20 20 e3 20 63 32 22 3a  ef 20 35 3a ec 20 31 33  |  . c2":. 5:. 13|
00009540  2a 31 36 2b 38 2c 39 39  35 3a f1 22 63 20 e3 20  |*16+8,995:."c . |
00009550  20 20 22 3a ec 20 31 33  2a 31 36 2b 38 2c 39 36  |  ":. 13*16+8,96|
00009560  34 3a f1 22 20 20 e3 20  63 32 22 3a ef 20 34 3a  |4:."  . c2":. 4:|
00009570  f2 62 6f 75 6e 63 65 3a  f2 72 65 70 73 77 61 70  |.bounce:.repswap|
00009580  3a e5 20 8d 74 52 67 0d  27 ec 39 20 e7 20 5a 25  |:. .tRg.'.9 . Z%|
00009590  3d 34 20 80 20 58 25 3e  33 34 30 20 80 20 58 25  |=4 . X%>340 . X%|
000095a0  3c 34 30 37 20 80 20 59  25 3e 39 33 30 20 80 20  |<407 . Y%>930 . |
000095b0  59 25 3c 39 39 30 20 8c  20 f2 67 72 61 62 3a e1  |Y%<990 . .grab:.|
000095c0  0d 27 f6 ad 20 e7 20 5a  25 3d 34 20 80 20 58 25  |.'.. . Z%=4 . X%|
000095d0  3e 34 33 34 20 80 20 58  25 3c 34 37 30 20 80 20  |>434 . X%<470 . |
000095e0  59 25 3e 39 33 30 20 80  20 59 25 3c 39 39 30 20  |Y%>930 . Y%<990 |
000095f0  80 20 54 43 49 52 43 3d  30 20 8c 20 54 43 49 52  |. TCIRC=0 . TCIR|
00009600  43 3d 31 3a fb 20 31 38  2b 31 32 38 3a f1 8a 32  |C=1:. 18+128:..2|
00009610  37 2c 31 29 3b 22 8c 8d  22 8a 32 37 2c 32 29 3b  |7,1);"..".27,2);|
00009620  22 8e 8f 22 3a ef 20 35  3a ec 20 32 37 2a 31 36  |"..":. 5:. 27*16|
00009630  2b 38 2c 39 39 35 3a f1  22 8c 8d 22 3a ec 20 32  |+8,995:."..":. 2|
00009640  37 2a 31 36 2b 38 2c 39  36 34 3a f1 22 8e 8f 22  |7*16+8,964:.".."|
00009650  3a ef 20 34 3a f2 74 72  75 65 70 69 63 3a e7 20  |:. 4:.truepic:. |
00009660  4d 45 4e 55 3d 31 20 e5  20 8d 74 5c 67 0d 28 00  |MENU=1 . .t\g.(.|
00009670  4c 20 54 59 50 45 3d 30  3a e7 20 5a 25 3d 34 20  |L TYPE=0:. Z%=4 |
00009680  80 20 58 25 3e 35 37 36  20 80 20 58 25 3c 36 30  |. X%>576 . X%<60|
00009690  36 20 80 20 59 25 3e 39  33 30 20 80 20 59 25 3c  |6 . Y%>930 . Y%<|
000096a0  39 39 30 20 8c 20 54 59  50 45 3d 31 3a f2 73 68  |990 . TYPE=1:.sh|
000096b0  61 64 62 6c 6f 63 6b 3a  e1 0d 28 0a 45 20 e7 20  |adblock:..(.E . |
000096c0  5a 25 3d 34 20 80 20 58  25 3e 36 33 38 20 80 20  |Z%=4 . X%>638 . |
000096d0  58 25 3c 36 37 32 20 80  20 59 25 3e 39 33 30 20  |X%<672 . Y%>930 |
000096e0  80 20 59 25 3c 39 39 30  20 8c 20 54 59 50 45 3d  |. Y%<990 . TYPE=|
000096f0  32 3a f2 73 68 61 64 62  6c 6f 63 6b 3a e1 0d 28  |2:.shadblock:..(|
00009700  14 3f 20 e7 20 5a 25 3d  34 20 80 20 58 25 3e 35  |.? . Z%=4 . X%>5|
00009710  31 32 20 80 20 58 25 3c  35 34 30 20 80 20 59 25  |12 . X%<540 . Y%|
00009720  3e 39 33 30 20 80 20 59  25 3c 39 39 30 20 8c 20  |>930 . Y%<990 . |
00009730  f2 73 68 61 64 73 70 68  65 72 65 3a e1 0d 28 1e  |.shadsphere:..(.|
00009740  3f 20 e7 20 5a 25 3d 34  20 80 20 58 25 3e 37 30  |? . Z%=4 . X%>70|
00009750  30 20 80 20 58 25 3c 37  35 30 20 80 20 59 25 3e  |0 . X%<750 . Y%>|
00009760  39 33 30 20 80 20 59 25  3c 39 39 30 20 8c 20 53  |930 . Y%<990 . S|
00009770  49 5a 45 3d 32 3a f2 6d  61 67 3a e1 0d 28 28 3f  |IZE=2:.mag:..((?|
00009780  20 e7 20 5a 25 3d 34 20  80 20 58 25 3e 38 30 30  | . Z%=4 . X%>800|
00009790  20 80 20 58 25 3c 38 34  38 20 80 20 59 25 3e 39  | . X%<848 . Y%>9|
000097a0  33 30 20 80 20 59 25 3c  39 39 30 20 8c 20 53 49  |30 . Y%<990 . SI|
000097b0  5a 45 3d 31 3a f2 6d 61  67 3a e1 0d 28 32 3e 20  |ZE=1:.mag:..(2> |
000097c0  e7 20 5a 25 3d 34 20 80  20 58 25 3e 39 30 30 20  |. Z%=4 . X%>900 |
000097d0  80 20 58 25 3c 39 36 30  20 80 20 59 25 3e 39 34  |. X%<960 . Y%>94|
000097e0  33 20 80 20 59 25 3c 39  36 38 20 8c 20 42 4c 44  |3 . Y%<968 . BLD|
000097f0  3d 31 3a e4 20 8d 74 4c  68 0d 28 3c 40 20 e7 20  |=1:. .tLh.(<@ . |
00009800  5a 25 3d 34 20 80 20 58  25 3e 31 30 37 37 20 80  |Z%=4 . X%>1077 .|
00009810  20 58 25 3c 31 32 32 30  20 80 20 59 25 3e 39 34  | X%<1220 . Y%>94|
00009820  33 20 80 20 59 25 3c 39  36 38 20 8c 20 42 4c 44  |3 . Y%<968 . BLD|
00009830  3d 32 3a e4 20 8d 74 4c  68 0d 28 46 3e 20 e7 20  |=2:. .tLh.(F> . |
00009840  5a 25 3d 34 20 80 20 58  25 3e 39 30 30 20 80 20  |Z%=4 . X%>900 . |
00009850  58 25 3c 39 39 37 20 80  20 59 25 3e 39 30 33 20  |X%<997 . Y%>903 |
00009860  80 20 59 25 3c 39 33 35  20 8c 20 42 4c 44 3d 33  |. Y%<935 . BLD=3|
00009870  3a e4 20 8d 74 4c 68 0d  28 50 41 20 e7 20 5a 25  |:. .tLh.(PA . Z%|
00009880  3d 34 20 80 20 58 25 3e  31 30 37 37 20 80 20 58  |=4 . X%>1077 . X|
00009890  25 3c 31 31 37 30 20 20  80 20 59 25 3e 39 30 33  |%<1170  . Y%>903|
000098a0  20 80 20 59 25 3c 39 33  35 20 8c 20 42 4c 44 3d  | . Y%<935 . BLD=|
000098b0  34 3a e4 20 8d 74 4c 68  0d 28 5a 41 20 e7 20 5a  |4:. .tLh.(ZA . Z|
000098c0  25 3d 34 20 80 20 58 25  3e 39 35 35 20 80 20 58  |%=4 . X%>955 . X|
000098d0  25 3c 31 31 35 30 20 20  80 20 59 25 3e 39 39 35  |%<1150  . Y%>995|
000098e0  20 80 20 59 25 3c 31 30  32 33 20 8c 20 42 4c 44  | . Y%<1023 . BLD|
000098f0  3d 30 3a e4 20 8d 74 4c  68 0d 28 64 40 20 e7 20  |=0:. .tLh.(d@ . |
00009900  5a 25 3d 34 20 80 20 58  25 3e 39 36 35 20 80 20  |Z%=4 . X%>965 . |
00009910  58 25 3c 31 31 30 30 20  20 80 20 59 25 3e 38 36  |X%<1100  . Y%>86|
00009920  39 20 80 20 59 25 3c 39  30 30 20 8c 20 f2 66 6f  |9 . Y%<900 . .fo|
00009930  6e 74 3a e4 20 8d 74 4c  68 0d 28 6e a5 20 e7 20  |nt:. .tLh.(n. . |
00009940  5a 25 3d 34 20 80 20 58  25 3e 31 36 30 20 80 20  |Z%=4 . X%>160 . |
00009950  58 25 3c 32 36 36 20 80  20 59 25 3e 38 37 30 20  |X%<266 . Y%>870 |
00009960  80 20 59 25 3c 39 30 32  20 8c 20 c8 94 20 53 48  |. Y%<902 . .. SH|
00009970  41 44 31 2c 53 48 41 44  3a f2 62 6f 75 6e 63 65  |AD1,SHAD:.bounce|
00009980  3a fb 20 31 38 2b 31 32  38 3a f1 8a 31 30 2c 34  |:. 18+128:..10,4|
00009990  29 3b 22 53 48 41 44 4f  57 22 3a e6 20 33 30 3a  |);"SHADOW":. 30:|
000099a0  ef 20 35 3a ec 20 31 30  2a 31 36 2b 31 35 2c 39  |. 5:. 10*16+15,9|
000099b0  30 32 3a f1 22 53 48 41  44 4f 57 22 3a ef 20 34  |02:."SHADOW":. 4|
000099c0  3a e7 20 53 48 41 44 31  3d 31 20 8c 20 f2 69 6d  |:. SHAD1=1 . .im|
000099d0  61 67 65 73 68 61 64 3a  e5 20 8d 74 5c 67 0d 28  |ageshad:. .t\g.(|
000099e0  78 1c 20 e7 20 5a 25 3d  34 20 84 20 5a 25 3d 30  |x. . Z%=4 . Z%=0|
000099f0  20 20 8c 20 e5 20 8d 74  70 67 0d 28 82 06 20 e1  |  . . .tpg.(.. .|
00009a00  0d 28 8c 11 20 f4 20 44  72 61 77 20 69 63 6f 6e  |.(.. . Draw icon|
00009a10  73 0d 28 96 18 20 ef 20  32 34 2c 30 3b 30 3b 31  |s.(.. . 24,0;0;1|
00009a20  32 37 39 3b 31 30 32 33  3b 0d 28 a0 22 20 ec 20  |279;1023;.(." . |
00009a30  30 2c 30 3a ec 20 31 32  37 39 2c 31 30 32 33 3a  |0,0:. 1279,1023:|
00009a40  2a 53 47 45 54 20 7a 74  65 6d 70 0d 28 aa 13 20  |*SGET ztemp.(.. |
00009a50  2a 53 43 48 4f 4f 53 45  20 7a 74 65 6d 70 0d 28  |*SCHOOSE ztemp.(|
00009a60  b4 0d 20 2a 46 58 31 31  32 2c 32 0d 28 be 17 20  |.. *FX112,2.(.. |
00009a70  f0 20 26 45 44 2c 30 2c  30 3a 2a 46 58 31 31 33  |. &ED,0,0:*FX113|
00009a80  2c 32 0d 28 c8 0d 20 2a  46 58 31 31 32 2c 31 0d  |,2.(.. *FX112,1.|
00009a90  28 d2 11 20 f0 20 26 45  44 2c 30 2c 30 3a ef 37  |(.. . &ED,0,0:.7|
00009aa0  0d 28 dc 50 20 ef 20 32  34 2c 30 3b 30 3b 31 32  |.(.P . 24,0;0;12|
00009ab0  37 39 3b 31 30 32 33 3b  3a e6 20 34 31 20 c8 9c  |79;1023;:. 41 ..|
00009ac0  20 30 3a c8 93 20 c8 90  20 30 2c 38 35 33 2c 31  | 0:.. .. 0,853,1|
00009ad0  32 35 39 2c 31 37 30 3a  87 3a e6 20 30 20 3a c8  |259,170:.:. 0 :.|
00009ae0  93 20 30 2c 38 35 33 2c  31 32 35 39 2c 31 37 30  |. 0,853,1259,170|
00009af0  0d 28 e6 25 20 e6 20 33  30 20 c8 9c 20 31 39 32  |.(.% . 30 .. 192|
00009b00  3a fb 20 34 31 2b 31 32  38 20 c8 9c 20 31 32 38  |:. 41+128 .. 128|
00009b10  3a fb 20 31 36 0d 28 f0  23 20 e7 20 53 4e 41 50  |:. 16.(.# . SNAP|
00009b20  3d 31 20 8c 20 fb 20 31  38 2b 31 32 38 20 8b 20  |=1 . . 18+128 . |
00009b30  fb 20 34 31 2b 31 32 38  0d 28 fa 4c 20 f1 8a 34  |. 41+128.(.L ..4|
00009b40  2c 31 29 3b 22 96 99 20  22 8a 34 2c 32 29 3b 22  |,1);".. ".4,2);"|
00009b50  98 97 20 22 3a ef 20 35  3a ec 20 34 2a 31 36 2b  |.. ":. 5:. 4*16+|
00009b60  38 2c 39 39 35 3a f1 22  96 99 20 22 3a ec 20 34  |8,995:.".. ":. 4|
00009b70  2a 31 36 2b 38 2c 39 36  34 3a f1 22 98 97 20 22  |*16+8,964:.".. "|
00009b80  3a ef 20 34 0d 29 04 23  20 e7 20 49 4d 46 4f 3d  |:. 4.).# . IMFO=|
00009b90  31 20 8c 20 fb 20 31 38  2b 31 32 38 20 8b 20 fb  |1 . . 18+128 . .|
00009ba0  20 34 31 2b 31 32 38 0d  29 0e 4c 20 f1 8a 38 2c  | 41+128.).L ..8,|
00009bb0  31 29 3b 22 20 e4 20 22  8a 38 2c 32 29 3b 22 20  |1);" . ".8,2);" |
00009bc0  e5 20 22 3a ef 20 35 3a  ec 20 38 2a 31 36 2b 38  |. ":. 5:. 8*16+8|
00009bd0  2c 39 39 35 3a f1 22 20  e4 20 22 3a ec 20 38 2a  |,995:." . ":. 8*|
00009be0  31 36 2b 38 2c 39 36 34  3a f1 22 20 e5 20 22 3a  |16+8,964:." . ":|
00009bf0  ef 20 34 0d 29 18 0d 20  fb 20 34 31 2b 31 32 38  |. 4.).. . 41+128|
00009c00  0d 29 22 5c 20 f1 8a 31  33 2c 31 29 3b 22 63 20  |.)"\ ..13,1);"c |
00009c10  e3 20 20 20 22 8a 31 33  2c 32 29 3b 22 20 20 e3  |.   ".13,2);"  .|
00009c20  20 63 32 22 3a ef 20 35  3a ec 20 31 33 2a 31 36  | c2":. 5:. 13*16|
00009c30  2b 38 2c 39 39 35 3a f1  22 63 20 e3 20 20 20 22  |+8,995:."c .   "|
00009c40  3a ec 20 31 33 2a 31 36  2b 38 2c 39 36 34 3a f1  |:. 13*16+8,964:.|
00009c50  22 20 20 e3 20 63 32 22  3a ef 20 34 0d 29 2c 14  |"  . c2":. 4.),.|
00009c60  20 fb 20 34 31 2b 31 32  38 20 c8 9c 20 31 32 38  | . 41+128 .. 128|
00009c70  0d 29 36 82 20 f1 8a 32  31 2c 31 29 3b 22 47 52  |.)6. ..21,1);"GR|
00009c80  41 42 22 8a 32 31 2c 32  29 3b 22 47 52 41 42 22  |AB".21,2);"GRAB"|
00009c90  3a ef 20 35 3a ec 20 32  31 2a 31 36 2b 38 2c 39  |:. 5:. 21*16+8,9|
00009ca0  39 35 3a f1 22 47 52 41  42 22 3a ec 20 32 31 2a  |95:."GRAB":. 21*|
00009cb0  31 36 2b 38 2c 39 36 34  3a f1 22 47 52 41 42 22  |16+8,964:."GRAB"|
00009cc0  3a ec 20 32 31 2a 31 36  2b 31 30 2c 39 39 35 3a  |:. 21*16+10,995:|
00009cd0  f1 22 47 52 41 42 22 3a  ec 20 32 31 2a 31 36 2b  |."GRAB":. 21*16+|
00009ce0  31 30 2c 39 36 34 3a f1  22 47 52 41 42 22 3a ef  |10,964:."GRAB":.|
00009cf0  20 34 0d 29 40 24 20 e7  20 53 48 41 44 31 3d 31  | 4.)@$ . SHAD1=1|
00009d00  20 8c 20 fb 20 31 38 2b  31 32 38 20 8b 20 fb 20  | . . 18+128 . . |
00009d10  34 31 2b 31 32 38 0d 29  4a 4f 20 f1 8a 31 30 2c  |41+128.)JO ..10,|
00009d20  34 29 3b 22 53 48 41 44  4f 57 22 3a ef 20 35 3a  |4);"SHADOW":. 5:|
00009d30  ec 20 31 30 2a 31 36 2b  31 35 2c 39 30 32 3a f1  |. 10*16+15,902:.|
00009d40  22 53 48 41 44 4f 57 22  3a ec 20 31 30 2a 31 36  |"SHADOW":. 10*16|
00009d50  2b 31 37 2c 39 30 32 3a  f1 22 53 48 41 44 4f 57  |+17,902:."SHADOW|
00009d60  22 3a ef 20 34 0d 29 54  a5 20 fb 20 31 32 38 2b  |":. 4.)T. . 128+|
00009d70  34 31 20 c8 9c 20 30 3a  f1 8a 32 34 2c 34 29 3b  |41 .. 0:..24,4);|
00009d80  22 41 52 43 54 49 53 54  20 50 4c 55 53 2e 20 4d  |"ARCTIST PLUS. M|
00009d90  65 6e 75 20 70 61 67 65  20 23 32 22 3a ef 20 35  |enu page #2":. 5|
00009da0  3a e6 20 36 33 20 c8 9c  20 31 39 32 3a ec 20 32  |:. 63 .. 192:. 2|
00009db0  34 2a 31 36 2b 31 32 2c  39 30 30 3a f1 22 41 52  |4*16+12,900:."AR|
00009dc0  43 54 49 53 54 20 50 4c  55 53 2e 20 4d 65 6e 75  |CTIST PLUS. Menu|
00009dd0  20 70 61 67 65 20 23 32  22 3a ec 20 32 34 2a 31  | page #2":. 24*1|
00009de0  36 2b 31 34 2c 39 30 30  3a f1 22 41 52 43 54 49  |6+14,900:."ARCTI|
00009df0  53 54 20 50 4c 55 53 2e  20 4d 65 6e 75 20 70 61  |ST PLUS. Menu pa|
00009e00  67 65 20 23 32 22 3a ef  20 34 0d 29 5e 25 20 e6  |ge #2":. 4.)^% .|
00009e10  20 33 30 20 c8 9c 20 31  39 32 3a fb 20 34 31 2b  | 30 .. 192:. 41+|
00009e20  31 32 38 20 c8 9c 20 31  32 38 3a fb 20 31 36 0d  |128 .. 128:. 16.|
00009e30  29 68 24 20 e7 20 54 43  49 52 43 3d 31 20 8c 20  |)h$ . TCIRC=1 . |
00009e40  fb 20 31 38 2b 31 32 38  20 8b 20 fb 20 34 31 2b  |. 18+128 . . 41+|
00009e50  31 32 38 0d 29 72 4c 20  f1 8a 32 37 2c 31 29 3b  |128.)rL ..27,1);|
00009e60  22 8c 8d 22 8a 32 37 2c  32 29 3b 22 8e 8f 22 3a  |"..".27,2);"..":|
00009e70  ef 20 35 3a ec 20 32 37  2a 31 36 2b 38 2c 39 39  |. 5:. 27*16+8,99|
00009e80  35 3a f1 22 8c 8d 22 3a  ec 20 32 37 2a 31 36 2b  |5:."..":. 27*16+|
00009e90  38 2c 39 36 34 3a f1 22  8e 8f 22 3a ef 20 34 0d  |8,964:."..":. 4.|
00009ea0  29 7c 4c 20 f1 8a 33 32  2c 31 29 3b 22 e9 ea 22  |)|L ..32,1);".."|
00009eb0  8a 33 32 2c 32 29 3b 22  eb ec 22 3a ef 20 35 3a  |.32,2);"..":. 5:|
00009ec0  ec 20 33 32 2a 31 36 2b  38 2c 39 39 35 3a f1 22  |. 32*16+8,995:."|
00009ed0  e9 ea 22 3a ec 20 33 32  2a 31 36 2b 38 2c 39 36  |..":. 32*16+8,96|
00009ee0  34 3a f1 22 eb ec 22 3a  ef 20 34 0d 29 86 4c 20  |4:."..":. 4.).L |
00009ef0  f1 8a 33 36 2c 31 29 3b  22 e8 e8 22 8a 33 36 2c  |..36,1);"..".36,|
00009f00  32 29 3b 22 e7 e7 22 3a  ef 20 35 3a ec 20 33 36  |2);"..":. 5:. 36|
00009f10  2a 31 36 2b 38 2c 39 39  35 3a f1 22 e8 e8 22 3a  |*16+8,995:."..":|
00009f20  ec 20 33 36 2a 31 36 2b  38 2c 39 36 34 3a f1 22  |. 36*16+8,964:."|
00009f30  e7 e7 22 3a ef 20 34 0d  29 90 4c 20 f1 8a 34 30  |..":. 4.).L ..40|
00009f40  2c 31 29 3b 22 e7 e8 22  8a 34 30 2c 32 29 3b 22  |,1);"..".40,2);"|
00009f50  e7 e8 22 3a ef 20 35 3a  ec 20 34 30 2a 31 36 2b  |..":. 5:. 40*16+|
00009f60  38 2c 39 39 35 3a f1 22  e7 e8 22 3a ec 20 34 30  |8,995:."..":. 40|
00009f70  2a 31 36 2b 38 2c 39 36  34 3a f1 22 e7 e8 22 3a  |*16+8,964:."..":|
00009f80  ef 20 34 0d 29 9a 4f f1  8a 34 34 2c 31 29 3b 22  |. 4.).O..44,1);"|
00009f90  20 20 e6 22 8a 34 34 2c  32 29 3b 22 2e 20 20 22  |  .".44,2);".  "|
00009fa0  3a ef 20 35 3a ec 20 34  34 2a 31 36 2b 38 2c 39  |:. 5:. 44*16+8,9|
00009fb0  39 35 3a f1 22 20 20 e6  22 3a ec 20 34 34 2a 31  |95:."  .":. 44*1|
00009fc0  36 2b 38 2c 39 36 34 3a  f1 22 2e 20 20 22 3a ef  |6+8,964:.".  ":.|
00009fd0  20 34 0d 29 a4 4f f1 8a  35 30 2c 31 29 3b 22 20  | 4.).O..50,1);" |
00009fe0  20 2e 22 8a 35 30 2c 32  29 3b 22 e6 20 20 22 3a  | .".50,2);".  ":|
00009ff0  ef 20 35 3a ec 20 35 30  2a 31 36 2b 38 2c 39 39  |. 5:. 50*16+8,99|
0000a000  35 3a f1 22 20 20 2e 22  3a ec 20 35 30 2a 31 36  |5:."  .":. 50*16|
0000a010  2b 38 2c 39 36 34 3a f1  22 e6 20 20 22 3a ef 20  |+8,964:.".  ":. |
0000a020  34 0d 29 ae 11 20 20 e6  20 31 35 20 c8 9c 20 31  |4.)..  . 15 .. 1|
0000a030  39 32 0d 29 b8 22 20 e7  20 42 4c 44 3d 30 20 8c  |92.)." . BLD=0 .|
0000a040  20 fb 20 31 38 2b 31 32  38 20 8b 20 fb 20 34 31  | . 18+128 . . 41|
0000a050  2b 31 32 38 0d 29 c2 65  20 f1 8a 35 39 2c 30 29  |+128.).e ..59,0)|
0000a060  3b 22 54 45 58 54 20 26  20 46 4f 4e 54 53 2e 22  |;"TEXT & FONTS."|
0000a070  3a ef 20 35 3a ec 20 35  39 2a 31 36 2b 38 2c 31  |:. 5:. 59*16+8,1|
0000a080  30 31 35 3a f1 22 54 45  58 54 20 26 20 46 4f 4e  |015:."TEXT & FON|
0000a090  54 53 2e 22 3a ec 20 35  39 2a 31 36 2b 31 30 2c  |TS.":. 59*16+10,|
0000a0a0  31 30 31 35 3a f1 22 54  45 58 54 20 26 20 46 4f  |1015:."TEXT & FO|
0000a0b0  4e 54 53 2e 22 3a ef 20  34 0d 29 cc 0f 20 e6 20  |NTS.":. 4.).. . |
0000a0c0  36 33 20 c8 9c 20 36 34  0d 29 d6 21 e7 20 42 4c  |63 .. 64.).!. BL|
0000a0d0  44 3d 31 20 8c 20 fb 20  31 38 2b 31 32 38 20 8b  |D=1 . . 18+128 .|
0000a0e0  20 fb 20 34 31 2b 31 32  38 0d 29 e0 47 f1 8a 35  | . 41+128.).G..5|
0000a0f0  36 2c 32 29 3b 22 42 4f  4c 44 22 3a ef 20 35 3a  |6,2);"BOLD":. 5:|
0000a100  ec 20 35 36 2a 31 36 2b  38 2c 39 36 34 3a f1 22  |. 56*16+8,964:."|
0000a110  42 4f 4c 44 22 3a ec 20  35 36 2a 31 36 2b 31 30  |BOLD":. 56*16+10|
0000a120  2c 39 36 34 3a f1 22 42  4f 4c 44 22 3a ef 20 34  |,964:."BOLD":. 4|
0000a130  0d 29 ea 21 e7 20 42 4c  44 3d 32 20 8c 20 fb 20  |.).!. BLD=2 . . |
0000a140  31 38 2b 31 32 38 20 8b  20 fb 20 34 31 2b 31 32  |18+128 . . 41+12|
0000a150  38 0d 29 f4 55 f1 8a 36  37 2c 32 29 3b 22 55 4e  |8.).U..67,2);"UN|
0000a160  44 45 52 4c 49 4e 45 22  3a ef 20 35 3a ec 20 36  |DERLINE":. 5:. 6|
0000a170  37 2a 31 36 2b 38 2c 39  36 34 3a f1 22 55 4e 44  |7*16+8,964:."UND|
0000a180  45 52 4c 49 4e 45 22 3a  ec 20 36 37 2a 31 36 2b  |ERLINE":. 67*16+|
0000a190  31 30 2c 39 36 34 3a f1  22 55 4e 44 45 52 4c 49  |10,964:."UNDERLI|
0000a1a0  4e 45 22 3a ef 34 0d 29  fe 10 20 e6 20 36 33 20  |NE":.4.).. . 63 |
0000a1b0  c8 9c 20 31 39 32 0d 2a  08 21 e7 20 42 4c 44 3d  |.. 192.*.!. BLD=|
0000a1c0  33 20 8c 20 fb 20 31 38  2b 31 32 38 20 8b 20 fb  |3 . . 18+128 . .|
0000a1d0  20 34 31 2b 31 32 38 0d  2a 12 4c f1 8a 35 36 2c  | 41+128.*.L..56,|
0000a1e0  33 29 3b 22 46 55 5a 5a  45 52 22 3a ef 20 35 3a  |3);"FUZZER":. 5:|
0000a1f0  ec 20 35 36 2a 31 36 2b  38 2c 39 33 32 3a f1 22  |. 56*16+8,932:."|
0000a200  46 55 5a 5a 45 52 22 3a  ec 20 35 36 2a 31 36 2b  |FUZZER":. 56*16+|
0000a210  31 30 2c 39 33 32 3a f1  22 46 55 5a 5a 45 52 22  |10,932:."FUZZER"|
0000a220  3a ef 34 0d 2a 1c 21 e7  20 42 4c 44 3d 34 20 8c  |:.4.*.!. BLD=4 .|
0000a230  20 fb 20 31 38 2b 31 32  38 20 8b 20 fb 20 34 31  | . 18+128 . . 41|
0000a240  2b 31 32 38 0d 2a 26 4c  f1 8a 36 37 2c 33 29 3b  |+128.*&L..67,3);|
0000a250  22 53 48 41 44 4f 57 22  3a ef 20 35 3a ec 20 36  |"SHADOW":. 5:. 6|
0000a260  37 2a 31 36 2b 38 2c 39  33 32 3a f1 22 53 48 41  |7*16+8,932:."SHA|
0000a270  44 4f 57 22 3a ec 20 36  37 2a 31 36 2b 31 30 2c  |DOW":. 67*16+10,|
0000a280  39 33 32 3a f1 22 53 48  41 44 4f 57 22 3a ef 34  |932:."SHADOW":.4|
0000a290  0d 2a 30 0c fb 20 34 31  2b 31 32 38 0d 2a 3a 10  |.*0.. 41+128.*:.|
0000a2a0  20 e6 20 36 33 20 c8 9c  20 31 32 38 0d 2a 44 55  | . 63 .. 128.*DU|
0000a2b0  f1 8a 36 30 2c 34 29 3b  22 4c 4f 41 44 20 46 4f  |..60,4);"LOAD FO|
0000a2c0  4e 54 22 3a ef 20 35 3a  ec 20 36 30 2a 31 36 2b  |NT":. 5:. 60*16+|
0000a2d0  38 2c 39 30 30 3a f1 22  4c 4f 41 44 20 46 4f 4e  |8,900:."LOAD FON|
0000a2e0  54 22 3a ec 20 36 30 2a  31 36 2b 31 30 2c 39 30  |T":. 60*16+10,90|
0000a2f0  30 3a f1 22 4c 4f 41 44  20 46 4f 4e 54 22 3a ef  |0:."LOAD FONT":.|
0000a300  34 0d 2a 4e 17 20 ef 20  32 34 2c 30 3b 30 3b 31  |4.*N. . 24,0;0;1|
0000a310  32 37 39 3b 38 32 39 3b  0d 2a 58 0d 20 2a 46 58  |279;829;.*X. *FX|
0000a320  31 31 33 2c 31 0d 2a 62  06 20 f8 0d 2a 6c 0d 20  |113,1.*b. ..*l. |
0000a330  dd f2 69 6d 66 6f 3a 87  0d 2a 76 11 20 e7 20 49  |..imfo:..*v. . I|
0000a340  4d 46 4f 3d 30 20 8c 20  e1 0d 2a 80 16 20 c8 97  |MFO=0 . ..*.. ..|
0000a350  fb 20 33 2c 32 30 30 2c  32 30 30 2c 32 30 30 0d  |. 3,200,200,200.|
0000a360  2a 8a 5c 20 e6 20 34 2c  32 30 3a 86 20 58 25 2c  |*.\ . 4,20:. X%,|
0000a370  30 2c 58 25 2c 31 30 32  33 3a 86 20 30 2c 59 25  |0,X%,1023:. 0,Y%|
0000a380  2c 31 32 37 39 2c 59 25  3a c8 96 3a c8 96 3a 86  |,1279,Y%:..:..:.|
0000a390  20 58 25 2c 30 2c 58 25  2c 31 30 32 33 3a 86 20  | X%,0,X%,1023:. |
0000a3a0  30 2c 59 25 2c 31 32 37  39 2c 59 25 3a e6 20 43  |0,Y%,1279,Y%:. C|
0000a3b0  4f 4c 25 20 c8 9c 20 54  4e 54 25 0d 2a 94 31 41  |OL% .. TNT%.*.1A|
0000a3c0  4d 24 3d c3 28 28 93 2d  b8 50 29 2f 31 30 32 34  |M$=.((.-.P)/1024|
0000a3d0  29 3a e7 20 a9 28 41 4d  24 29 3e 37 20 8c 20 41  |):. .(AM$)>7 . A|
0000a3e0  4d 24 3d c1 41 4d 24 2c  31 2c 36 29 0d 2a 9e 95  |M$=.AM$,1,6).*..|
0000a3f0  20 fb 20 31 32 38 2b 32  3a fb 20 31 35 20 c8 9c  | . 128+2:. 15 ..|
0000a400  20 30 3a 3a f1 8a 31 2c  33 31 29 3b 22 28 63 29  | 0::..1,31);"(c)|
0000a410  4e 53 20 31 39 38 38 2e  20 7c 20 22 3b 3a fb 20  |NS 1988. | ";:. |
0000a420  31 35 20 c8 9c 20 36 34  3a f1 91 24 3b 22 20 20  |15 .. 64:..$;"  |
0000a430  20 7c 20 20 20 22 3b 3a  fb 20 31 35 20 c8 9c 20  | |   ";:. 15 .. |
0000a440  31 32 38 3a f1 41 4d 24  3b 22 4b 20 22 3b 3a fb  |128:.AM$;"K ";:.|
0000a450  20 31 35 20 c8 9c 20 31  39 36 3a f1 22 20 7c 20  | 15 .. 196:." | |
0000a460  20 58 20 2d 3e 22 3b 58  25 3b 22 20 20 59 20 2d  | X ->";X%;"  Y -|
0000a470  3e 22 3b 59 25 3b 22 20  20 20 22 3b 8a 30 2c 30  |>";Y%;"   ";.0,0|
0000a480  29 0d 2a a8 16 20 e7 20  a6 2d 31 20 8c 20 20 c8  |).*.. . .-1 .  .|
0000a490  97 20 88 20 31 2c 31 0d  2a b2 06 20 e1 0d 2a bc  |. . 1,1.*.. ..*.|
0000a4a0  0e 20 dd f2 72 65 70 73  77 61 70 0d 2a c6 08 20  |. ..repswap.*.. |
0000a4b0  54 3d 30 0d 2a d0 06 20  f5 0d 2a da 0d 20 f2 61  |T=0.*.. ..*.. .a|
0000a4c0  6e 6f 74 68 65 72 0d 2a  e4 10 20 c8 97 20 58 25  |nother.*.. .. X%|
0000a4d0  2c 59 25 2c 5a 25 0d 2a  ee 2f 20 e7 20 5a 25 3d  |,Y%,Z%.*./ . Z%=|
0000a4e0  34 20 80 20 54 3d 30 20  8c 20 54 3d 31 3a 58 58  |4 . T=0 . T=1:XX|
0000a4f0  31 25 3d 58 25 3a 59 59  31 25 3d 59 25 3a f2 62  |1%=X%:YY1%=Y%:.b|
0000a500  6f 75 6e 63 65 0d 2a f8  55 20 e7 20 54 3d 31 20  |ounce.*.U . T=1 |
0000a510  8c 20 e6 20 34 2c 30 3a  c8 93 20 58 58 31 25 2c  |. . 4,0:.. XX1%,|
0000a520  59 59 31 25 2c 58 25 2d  58 58 31 25 2c 59 25 2d  |YY1%,X%-XX1%,Y%-|
0000a530  59 59 31 25 3a c8 96 3a  c8 96 3a c8 96 3a c8 93  |YY1%:..:..:..:..|
0000a540  20 58 58 31 25 2c 59 59  31 25 2c 58 25 2d 58 58  | XX1%,YY1%,X%-XX|
0000a550  31 25 2c 59 25 2d 59 59  31 25 0d 2b 02 0c 20 f2  |1%,Y%-YY1%.+.. .|
0000a560  6f 6e 5f 6f 66 66 0d 2b  0c 1a 20 e7 20 54 3d 31  |on_off.+.. . T=1|
0000a570  20 80 20 5a 25 3d 34 20  8c 20 e5 20 8d 54 60 6b  | . Z%=4 . . .T`k|
0000a580  0d 2b 16 0d 20 fd 20 5a  25 3d 31 3a e1 0d 2b 20  |.+.. . Z%=1:..+ |
0000a590  1b 20 e7 20 59 25 3c 59  59 31 25 20 8c 20 c8 94  |. . Y%<YY1% . ..|
0000a5a0  20 59 25 2c 59 59 31 25  0d 2b 2a 1b 20 e7 20 58  | Y%,YY1%.+*. . X|
0000a5b0  25 3c 58 58 31 25 20 8c  20 c8 94 20 58 25 2c 58  |%<XX1% . .. X%,X|
0000a5c0  58 31 25 0d 2b 34 2b 20  e3 20 5a 25 3d 58 58 31  |X1%.+4+ . Z%=XX1|
0000a5d0  25 20 b8 20 58 25 20 88  20 32 3a e3 20 5a 5a 25  |% . X% . 2:. ZZ%|
0000a5e0  3d 59 59 31 25 20 b8 20  59 25 20 88 20 34 0d 2b  |=YY1% . Y% . 4.+|
0000a5f0  3e 43 20 e7 20 b0 5a 25  2c 5a 5a 25 29 3d 43 4f  |>C . .Z%,ZZ%)=CO|
0000a600  4c 32 25 20 80 20 c8 9c  28 5a 25 2c 5a 5a 25 29  |L2% . ..(Z%,ZZ%)|
0000a610  3d 54 4e 54 32 25 20 8c  20 e6 20 43 4f 4c 25 20  |=TNT2% . . COL% |
0000a620  c8 9c 20 54 4e 54 25 3a  c8 92 20 5a 25 2c 5a 5a  |.. TNT%:.. Z%,ZZ|
0000a630  25 0d 2b 48 1b 20 c8 97  20 fb 31 2c b0 5a 25 2c  |%.+H. .. .1,.Z%,|
0000a640  5a 5a 25 29 2a 34 2c 32  35 35 2c 30 0d 2b 52 1a  |ZZ%)*4,255,0.+R.|
0000a650  20 ed 3a c8 97 20 58 2c  59 2c 5a 3a e7 20 5a 3c  | .:.. X,Y,Z:. Z<|
0000a660  3e 31 20 8c 20 ed 0d 2b  5c 17 20 c8 97 20 fb 20  |>1 . ..+\. .. . |
0000a670  31 2c 32 32 30 2c 32 32  30 2c 32 30 30 0d 2b 66  |1,220,220,200.+f|
0000a680  06 20 e1 0d 2b 70 0e 20  dd f2 67 65 74 61 72 65  |. ..+p. ..getare|
0000a690  61 0d 2b 7a 16 20 54 3d  30 3a 58 58 31 25 3d 30  |a.+z. T=0:XX1%=0|
0000a6a0  3a 59 59 31 25 3d 30 0d  2b 84 3d 20 f5 3a c8 97  |:YY1%=0.+.= .:..|
0000a6b0  20 58 25 2c 59 25 2c 5a  25 3a e7 20 5a 25 3d 34  | X%,Y%,Z%:. Z%=4|
0000a6c0  20 80 20 54 3d 30 20 8c  20 54 3d 31 3a 58 58 31  | . T=0 . T=1:XX1|
0000a6d0  25 3d 58 25 3a 59 59 31  25 3d 59 25 3a f2 62 6f  |%=X%:YY1%=Y%:.bo|
0000a6e0  75 6e 63 65 0d 2b 8e 2e  e7 20 54 3d 31 20 8c 20  |unce.+... T=1 . |
0000a6f0  e6 20 34 2c 30 3a c8 93  20 58 58 31 25 2c 59 59  |. 4,0:.. XX1%,YY|
0000a700  31 25 2c 58 25 2d 58 58  31 25 2c 59 25 2d 59 59  |1%,X%-XX1%,Y%-YY|
0000a710  31 25 0d 2b 98 2f e7 20  54 3d 31 20 c8 96 3a c8  |1%.+./. T=1 ..:.|
0000a720  96 3a c8 96 3a c8 93 20  58 58 31 25 2c 59 59 31  |.:..:.. XX1%,YY1|
0000a730  25 2c 58 25 2d 58 58 31  25 2c 59 25 2d 59 59 31  |%,X%-XX1%,Y%-YY1|
0000a740  25 0d 2b a2 1d 20 e7 20  58 25 3c 58 58 31 25 20  |%.+.. . X%<XX1% |
0000a750  8c 20 c8 97 20 b8 20 58  58 31 25 2c 59 25 0d 2b  |. .. . XX1%,Y%.+|
0000a760  ac 1d 20 e7 20 59 25 3c  59 59 31 25 20 8c 20 c8  |.. . Y%<YY1% . .|
0000a770  97 20 b8 20 58 25 2c 59  59 31 25 0d 2b b6 0a 20  |. . X%,YY1%.+.. |
0000a780  f2 69 6d 66 6f 0d 2b c0  23 fd 20 5a 25 3d 34 3a  |.imfo.+.#. Z%=4:|
0000a790  e1 3a e7 20 59 25 3c 59  59 31 25 20 8c 20 c8 94  |.:. Y%<YY1% . ..|
0000a7a0  20 59 25 2c 59 59 31 25  0d 2b ca 06 20 e1 0d 2b  | Y%,YY1%.+.. ..+|
0000a7b0  d4 0b 20 dd f2 67 72 61  62 0d 2b de 54 20 e7 20  |.. ..grab.+.T . |
0000a7c0  4d 45 4e 55 3d 31 8c 20  4d 45 4e 55 3d 30 3a 4f  |MENU=1. MENU=0:O|
0000a7d0  50 54 3d 31 3a ef 20 32  34 2c 30 3b 30 3b 31 32  |PT=1:. 24,0;0;12|
0000a7e0  37 39 3b 31 30 32 33 3b  3a f2 62 72 69 6e 67 62  |79;1023;:.bringb|
0000a7f0  61 63 6b 3a f5 3a c8 97  20 58 25 2c 59 25 2c 4b  |ack:.:.. X%,Y%,K|
0000a800  25 3a fd 20 4b 25 3d 30  3a 5a 25 3d 30 0d 2b e8  |%:. K%=0:Z%=0.+.|
0000a810  0d 20 f2 67 65 74 61 72  65 61 0d 2b f2 0f 20 ee  |. .getarea.+.. .|
0000a820  20 85 20 e5 20 8d 74 52  6c 0d 2b fc 29 20 c8 91  | . . .tRl.+.) ..|
0000a830  20 30 2c 30 3a ec 20 30  2c 30 3a ec 20 31 32 37  | 0,0:. 0,0:. 127|
0000a840  39 2c 31 30 32 33 3a 2a  53 47 45 54 20 7a 74 65  |9,1023:*SGET zte|
0000a850  6d 70 0d 2c 06 08 20 e6  20 30 0d 2c 10 13 20 2a  |mp.,.. . 0.,.. *|
0000a860  53 43 48 4f 4f 53 45 20  7a 74 65 6d 70 0d 2c 1a  |SCHOOSE ztemp.,.|
0000a870  0d 20 2a 46 58 31 31 32  2c 32 0d 2c 24 0f 20 f0  |. *FX112,2.,$. .|
0000a880  20 26 45 44 2c 30 2c 30  3a 0d 2c 2e 0d 20 2a 46  | &ED,0,0:.,.. *F|
0000a890  58 31 31 32 2c 31 0d 2c  38 17 20 f0 20 26 45 44  |X112,1.,8. . &ED|
0000a8a0  2c 30 2c 30 3a 2a 46 58  31 31 33 2c 31 0d 2c 42  |,0,0:*FX113,1.,B|
0000a8b0  0d 20 2a 46 58 31 31 32  2c 32 0d 2c 4c 0a 20 2a  |. *FX112,2.,L. *|
0000a8c0  47 52 41 42 0d 2c 56 0d  20 2a 46 58 31 31 32 2c  |GRAB.,V. *FX112,|
0000a8d0  31 0d 2c 60 1a 20 ef 20  32 34 2c 58 58 31 25 3b  |1.,`. . 24,XX1%;|
0000a8e0  59 59 31 25 3b 58 25 3b  59 25 3b 0d 2c 6a 16 20  |YY1%;X%;Y%;.,j. |
0000a8f0  c8 99 22 56 64 69 67 5f  53 63 61 6c 65 22 2c 36  |.."Vdig_Scale",6|
0000a900  34 0d 2c 74 1c 20 c8 97  20 58 2c 59 2c 5a 3a e7  |4.,t. .. X,Y,Z:.|
0000a910  20 5a 3d 34 20 8c 20 e5  20 8d 64 7c 6b 0d 2c 7e  | Z=4 . . .d|k.,~|
0000a920  62 20 4f 50 54 3d 31 3a  4d 45 4e 55 3d 31 3a ef  |b OPT=1:MENU=1:.|
0000a930  20 32 34 2c 30 3b 30 3b  31 32 37 39 3b 31 30 32  | 24,0;0;1279;102|
0000a940  33 3b 3a f2 67 65 74 62  61 63 6b 3a f5 3a c8 97  |3;:.getback:.:..|
0000a950  20 58 25 2c 59 25 2c 4b  25 3a fd 20 4b 25 3d 30  | X%,Y%,K%:. K%=0|
0000a960  3a f2 6d 65 6e 75 31 3a  ef 20 32 34 2c 30 3b 30  |:.menu1:. 24,0;0|
0000a970  3b 31 32 37 39 3b 38 32  39 3b 3a 4b 25 3d 30 0d  |;1279;829;:K%=0.|
0000a980  2c 88 06 20 e1 0d 2c 92  62 20 4f 50 54 3d 31 3a  |,.. ..,.b OPT=1:|
0000a990  4d 45 4e 55 3d 31 3a ef  20 32 34 2c 30 3b 30 3b  |MENU=1:. 24,0;0;|
0000a9a0  31 32 37 39 3b 31 30 32  33 3b 3a f2 67 65 74 62  |1279;1023;:.getb|
0000a9b0  61 63 6b 3a f5 3a c8 97  20 58 25 2c 59 25 2c 4b  |ack:.:.. X%,Y%,K|
0000a9c0  25 3a fd 20 4b 25 3d 30  3a f2 6d 65 6e 75 31 3a  |%:. K%=0:.menu1:|
0000a9d0  ef 20 32 34 2c 30 3b 30  3b 31 32 37 39 3b 38 32  |. 24,0;0;1279;82|
0000a9e0  39 3b 3a 4b 25 3d 30 0d  2c 9c 0f 20 ee 20 85 20  |9;:K%=0.,.. . . |
0000a9f0  f2 65 72 72 6f 72 0d 2c  a6 0b 20 e5 20 8d 64 60  |.error.,.. . .d`|
0000aa00  41 0d 2c b0 0e 20 dd f2  74 72 75 65 70 69 63 0d  |A.,.. ..truepic.|
0000aa10  2c ba 08 20 54 3d 30 0d  2c c4 0c 20 f2 62 6f 75  |,.. T=0.,.. .bou|
0000aa20  6e 63 65 0d 2c ce 06 20  f5 0d 2c d8 10 20 c8 97  |nce.,.. ..,.. ..|
0000aa30  20 58 25 2c 59 25 2c 5a  25 0d 2c e2 2f 20 4d 45  | X%,Y%,Z%.,./ ME|
0000aa40  4d 3d 4d 45 4e 55 3a f2  6f 6e 5f 6f 66 66 3a e7  |M=MENU:.on_off:.|
0000aa50  20 4d 45 4d 3d 30 20 80  20 4d 45 4e 55 3d 31 20  | MEM=0 . MENU=1 |
0000aa60  8c 20 e5 20 8d 54 5e 6d  0d 2c ec 0a 20 f2 69 6d  |. . .T^m.,.. .im|
0000aa70  66 6f 0d 2c f6 2f 20 e7  20 5a 25 3d 34 20 80 20  |fo.,./ . Z%=4 . |
0000aa80  54 3d 30 20 8c 20 54 3d  31 3a 58 58 31 25 3d 58  |T=0 . T=1:XX1%=X|
0000aa90  25 3a 59 59 31 25 3d 59  25 3a f2 62 6f 75 6e 63  |%:YY1%=Y%:.bounc|
0000aaa0  65 0d 2d 00 5f 20 e7 20  54 3d 31 20 8c 20 e6 20  |e.-._ . T=1 . . |
0000aab0  34 2c 30 3a c8 8f 20 20  58 58 31 25 2c 59 59 31  |4,0:..  XX1%,YY1|
0000aac0  25 2c 28 58 25 2d 58 58  31 25 29 2d 28 59 25 2d  |%,(X%-XX1%)-(Y%-|
0000aad0  59 59 31 25 29 3a c8 96  3a c8 96 3a c8 96 3a c8  |YY1%):..:..:..:.|
0000aae0  8f 20 20 58 58 31 25 2c  59 59 31 25 2c 28 58 25  |.  XX1%,YY1%,(X%|
0000aaf0  2d 58 58 31 25 29 2d 28  59 25 2d 59 59 31 25 29  |-XX1%)-(Y%-YY1%)|
0000ab00  0d 2d 0a 1a 20 e7 20 54  3d 31 20 80 20 5a 25 3d  |.-.. . T=1 . Z%=|
0000ab10  34 20 8c 20 e5 20 8d 54  68 6d 0d 2d 14 0b 20 fd  |4 . . .Thm.-.. .|
0000ab20  20 5a 25 3d 31 0d 2d 1e  12 20 e6 20 30 3a 54 43  | Z%=1.-.. . 0:TC|
0000ab30  49 52 43 3d 30 3a e1 0d  2d 28 90 20 e7 20 53 48  |IRC=0:..-(. . SH|
0000ab40  41 44 31 3d 31 20 8c 20  e6 20 43 4f 4c 32 25 20  |AD1=1 . . COL2% |
0000ab50  c8 9c 20 54 4e 54 32 25  3a c8 8f 20 58 58 31 25  |.. TNT2%:.. XX1%|
0000ab60  2b 53 48 41 44 41 43 25  2c 59 59 31 25 2b 53 48  |+SHADAC%,YY1%+SH|
0000ab70  41 44 44 4e 25 2c 28 58  25 2d 58 58 31 25 29 2d  |ADDN%,(X%-XX1%)-|
0000ab80  28 59 25 2d 59 59 31 25  29 3a e7 20 4e 4e 25 3d  |(Y%-YY1%):. NN%=|
0000ab90  31 20 8c 20 c8 8f 20 c8  90 20 58 58 31 25 2b 53  |1 . .. .. XX1%+S|
0000aba0  48 41 44 41 43 25 2c 59  59 31 25 2b 53 48 41 44  |HADAC%,YY1%+SHAD|
0000abb0  44 4e 25 2c 28 58 25 2d  58 58 31 25 29 2d 28 59  |DN%,(X%-XX1%)-(Y|
0000abc0  25 2d 59 59 31 25 29 0d  2d 32 6a 20 e6 20 43 4f  |%-YY1%).-2j . CO|
0000abd0  4c 25 20 c8 9c 20 54 4e  54 25 3a c8 8f 20 58 58  |L% .. TNT%:.. XX|
0000abe0  31 25 2c 59 59 31 25 2c  28 58 25 2d 58 58 31 25  |1%,YY1%,(X%-XX1%|
0000abf0  29 2d 28 59 25 2d 59 59  31 25 29 3a e7 20 4e 4e  |)-(Y%-YY1%):. NN|
0000ac00  25 3d 31 20 8c 20 c8 8f  20 c8 90 20 58 58 31 25  |%=1 . .. .. XX1%|
0000ac10  2c 59 59 31 25 2c 28 58  25 2d 58 58 31 25 29 2d  |,YY1%,(X%-XX1%)-|
0000ac20  28 59 25 2d 59 59 31 25  29 3a f2 62 6f 75 6e 63  |(Y%-YY1%):.bounc|
0000ac30  65 0d 2d 3c 0c 20 f2 62  6f 75 6e 63 65 0d 2d 46  |e.-<. .bounce.-F|
0000ac40  0b 20 e5 20 8d 74 7a 6c  0d 2d 50 11 20 dd f2 73  |. . .tzl.-P. ..s|
0000ac50  68 61 64 73 70 68 65 72  65 0d 2d 5a 08 20 54 3d  |hadsphere.-Z. T=|
0000ac60  30 0d 2d 64 45 20 4d 45  4e 55 3d 30 3a 4f 50 54  |0.-dE MENU=0:OPT|
0000ac70  3d 31 3a ef 20 32 34 2c  30 3b 30 3b 31 32 37 39  |=1:. 24,0;0;1279|
0000ac80  3b 31 30 32 33 3b 3a f2  62 72 69 6e 67 62 61 63  |;1023;:.bringbac|
0000ac90  6b 3a f5 3a c8 97 20 58  25 2c 59 25 2c 5a 25 3a  |k:.:.. X%,Y%,Z%:|
0000aca0  fd 20 5a 25 3d 30 0d 2d  6e 21 20 ec 20 30 2c 30  |. Z%=0.-n! . 0,0|
0000acb0  3a ec 31 32 37 39 2c 31  30 32 33 3a 2a 53 47 45  |:.1279,1023:*SGE|
0000acc0  54 20 7a 74 65 6d 70 0d  2d 78 0c 20 f2 62 6f 75  |T ztemp.-x. .bou|
0000acd0  6e 63 65 0d 2d 82 06 20  f5 0d 2d 8c 10 20 c8 97  |nce.-.. ..-.. ..|
0000ace0  20 58 25 2c 59 25 2c 5a  25 0d 2d 96 2f 20 e7 20  | X%,Y%,Z%.-./ . |
0000acf0  5a 25 3d 34 20 80 20 54  3d 30 20 8c 20 58 58 31  |Z%=4 . T=0 . XX1|
0000ad00  25 3d 58 25 3a 59 59 31  25 3d 59 25 3a 54 3d 31  |%=X%:YY1%=Y%:T=1|
0000ad10  3a f2 62 6f 75 6e 63 65  0d 2d a0 0a 20 f2 69 6d  |:.bounce.-.. .im|
0000ad20  66 6f 0d 2d aa 5f 20 e7  20 54 3d 31 20 8c 20 e6  |fo.-._ . T=1 . .|
0000ad30  20 34 2c 30 3a c8 8f 20  20 58 58 31 25 2c 59 59  | 4,0:..  XX1%,YY|
0000ad40  31 25 2c 28 58 25 2d 58  58 31 25 29 2d 28 59 25  |1%,(X%-XX1%)-(Y%|
0000ad50  2d 59 59 31 25 29 3a c8  96 3a c8 96 3a c8 96 3a  |-YY1%):..:..:..:|
0000ad60  c8 8f 20 20 58 58 31 25  2c 59 59 31 25 2c 28 58  |..  XX1%,YY1%,(X|
0000ad70  25 2d 58 58 31 25 29 2d  28 59 25 2d 59 59 31 25  |%-XX1%)-(Y%-YY1%|
0000ad80  29 0d 2d b4 14 20 e7 20  5a 25 3d 34 20 8c 20 e5  |).-.. . Z%=4 . .|
0000ad90  20 8d 64 52 6d 0d 2d be  0f 20 fd 20 5a 25 3d 31  | .dRm.-.. . Z%=1|
0000ada0  3a e6 20 30 0d 2d c8 64  20 4f 50 54 3d 31 3a 4d  |:. 0.-.d OPT=1:M|
0000adb0  45 4e 55 3d 31 3a ef 20  32 34 2c 30 3b 30 3b 31  |ENU=1:. 24,0;0;1|
0000adc0  32 37 39 3b 31 30 32 33  3b 3a f2 67 65 74 62 61  |279;1023;:.getba|
0000add0  63 6b 3a f5 3a c8 97 20  58 25 2c 59 25 2c 5a 25  |ck:.:.. X%,Y%,Z%|
0000ade0  3a fd 20 5a 25 3d 30 3a  f2 6d 65 6e 75 31 3a ef  |:. Z%=0:.menu1:.|
0000adf0  20 32 34 2c 30 3b 30 3b  31 32 37 39 3b 38 32 39  | 24,0;0;1279;829|
0000ae00  3b 3a 5a 25 3d 30 3a e1  0d 2d d2 2b 20 e6 20 34  |;:Z%=0:..-.+ . 4|
0000ae10  2c 30 3a c8 8f 20 58 58  31 25 2c 59 59 31 25 2c  |,0:.. XX1%,YY1%,|
0000ae20  28 58 25 2d 58 58 31 25  29 2d 28 59 25 2d 59 59  |(X%-XX1%)-(Y%-YY|
0000ae30  31 25 29 0d 2d dc 19 20  54 45 4d 50 43 4f 4c 25  |1%).-.. TEMPCOL%|
0000ae40  3d b0 58 58 31 25 2c 59  59 31 25 29 0d 2d e6 14  |=.XX1%,YY1%).-..|
0000ae50  20 58 58 32 25 3d 58 25  3a 59 59 32 25 3d 59 25  | XX2%=X%:YY2%=Y%|
0000ae60  0d 2d f0 0c 20 f2 62 6f  75 6e 63 65 0d 2d fa 21  |.-.. .bounce.-.!|
0000ae70  20 f5 20 3a 58 50 25 3d  58 25 3a 59 50 25 3d 59  | . :XP%=X%:YP%=Y|
0000ae80  25 3a c8 97 20 58 25 2c  59 25 2c 5a 25 0d 2e 04  |%:.. X%,Y%,Z%...|
0000ae90  27 20 e7 20 28 58 25 2d  58 58 31 25 29 3e 31 38  |' . (X%-XX1%)>18|
0000aea0  30 20 8c 20 c8 97 20 b8  20 58 58 31 25 2b 31 38  |0 . .. . XX1%+18|
0000aeb0  30 2c 59 25 0d 2e 0e 28  20 e7 20 28 58 25 2d 58  |0,Y%...( . (X%-X|
0000aec0  58 31 25 29 3c 2d 31 38  30 20 8c 20 c8 97 20 b8  |X1%)<-180 . .. .|
0000aed0  20 58 58 31 25 2d 31 38  30 2c 59 25 0d 2e 18 27  | XX1%-180,Y%...'|
0000aee0  20 e7 20 28 59 25 2d 59  59 31 25 29 3e 31 38 30  | . (Y%-YY1%)>180|
0000aef0  20 8c 20 c8 97 20 b8 20  58 25 2c 59 59 31 25 2b  | . .. . X%,YY1%+|
0000af00  31 38 30 0d 2e 22 28 20  e7 20 28 59 25 2d 59 59  |180.."( . (Y%-YY|
0000af10  31 25 29 3c 2d 31 38 30  20 8c 20 c8 97 20 b8 20  |1%)<-180 . .. . |
0000af20  58 25 2c 59 59 31 25 2d  31 38 30 0d 2e 2c 31 20  |X%,YY1%-180..,1 |
0000af30  86 20 58 58 31 25 2c 59  59 31 25 2c 58 25 2c 59  |. XX1%,YY1%,X%,Y|
0000af40  25 3a c8 96 3a c8 96 3a  c8 96 3a 86 20 58 58 31  |%:..:..:..:. XX1|
0000af50  25 2c 59 59 31 25 2c 58  25 2c 59 25 0d 2e 36 14  |%,YY1%,X%,Y%..6.|
0000af60  20 e7 20 5a 25 3d 34 20  8c 20 e5 20 8d 44 68 6e  | . Z%=4 . . .Dhn|
0000af70  0d 2e 3b 14 20 e7 20 5a  25 3d 32 20 8c 20 e5 20  |..;. . Z%=2 . . |
0000af80  8d 44 68 6e 0d 2e 40 0b  20 fd 20 5a 25 3d 31 0d  |.Dhn..@. . Z%=1.|
0000af90  2e 4a 13 20 2a 53 43 48  4f 4f 53 45 20 7a 74 65  |.J. *SCHOOSE zte|
0000afa0  6d 70 0d 2e 54 12 20 e6  20 30 3a f0 20 26 45 44  |mp..T. . 0:. &ED|
0000afb0  2c 30 2c 30 0d 2e 5e 64  20 4f 50 54 3d 31 3a 4d  |,0,0..^d OPT=1:M|
0000afc0  45 4e 55 3d 31 3a ef 20  32 34 2c 30 3b 30 3b 31  |ENU=1:. 24,0;0;1|
0000afd0  32 37 39 3b 31 30 32 33  3b 3a f2 67 65 74 62 61  |279;1023;:.getba|
0000afe0  63 6b 3a f5 3a c8 97 20  58 25 2c 59 25 2c 5a 25  |ck:.:.. X%,Y%,Z%|
0000aff0  3a fd 20 5a 25 3d 30 3a  f2 6d 65 6e 75 31 3a ef  |:. Z%=0:.menu1:.|
0000b000  20 32 34 2c 30 3b 30 3b  31 32 37 39 3b 38 32 39  | 24,0;0;1279;829|
0000b010  3b 3a 5a 25 3d 30 3a e1  0d 2e 68 13 20 2a 53 43  |;:Z%=0:...h. *SC|
0000b020  48 4f 4f 53 45 20 7a 74  65 6d 70 0d 2e 72 12 20  |HOOSE ztemp..r. |
0000b030  e6 20 30 3a f0 20 26 45  44 2c 30 2c 30 0d 2e 7c  |. 0:. &ED,0,0..||
0000b040  11 20 c8 91 20 58 58 31  25 2c 59 59 31 25 0d 2e  |. .. XX1%,YY1%..|
0000b050  86 21 20 72 61 64 25 3d  28 58 58 32 25 2d 58 58  |.! rad%=(XX2%-XX|
0000b060  31 25 29 2d 28 59 59 32  25 2d 59 59 31 25 29 0d  |1%)-(YY2%-YY1%).|
0000b070  2e 90 38 20 4c 31 25 3d  28 58 25 2d 58 58 31 25  |..8 L1%=(X%-XX1%|
0000b080  29 3a 4c 32 25 3d 28 59  25 2d 59 59 31 25 29 3a  |):L2%=(Y%-YY1%):|
0000b090  70 69 78 25 3d 32 3a e7  20 4e 4e 25 3d 31 20 8c  |pix%=2:. NN%=1 .|
0000b0a0  20 70 69 78 25 3d 34 0d  2e 9a 1a 20 e3 20 59 25  | pix%=4.... . Y%|
0000b0b0  3d 2d 72 61 64 25 20 b8  20 72 61 64 25 20 88 20  |=-rad% . rad% . |
0000b0c0  34 0d 2e a4 27 20 41 25  3d 28 b6 28 72 61 64 25  |4...' A%=(.(rad%|
0000b0d0  2a 72 61 64 25 2d 59 25  2a 59 25 29 81 20 70 69  |*rad%-Y%*Y%). pi|
0000b0e0  78 25 29 2a 70 69 78 25  0d 2e ae 19 e3 20 58 25  |x%)*pix%..... X%|
0000b0f0  3d 41 25 20 b8 20 2d 41  25 20 88 20 2d 70 69 78  |=A% . -A% . -pix|
0000b100  25 0d 2e b8 15 20 50 31  25 3d 9d 20 98 28 58 25  |%.... P1%=. .(X%|
0000b110  2f 72 61 64 25 29 0d 2e  c2 15 20 50 32 25 3d 9d  |/rad%).... P2%=.|
0000b120  20 98 28 59 25 2f 72 61  64 25 29 0d 2e cc 20 20  | .(Y%/rad%)...  |
0000b130  44 31 3d 94 28 50 31 25  2d 4c 31 25 29 3a 44 32  |D1=.(P1%-L1%):D2|
0000b140  3d 94 28 50 32 25 2d 4c  32 25 29 0d 2e d6 23 20  |=.(P2%-L2%)...# |
0000b150  43 25 3d 36 2e 37 35 2d  b6 28 44 31 2a 44 32 2b  |C%=6.75-.(D1*D2+|
0000b160  44 32 2a 44 32 29 2f 31  36 2d b3 28 31 29 0d 2e  |D2*D2)/16-.(1)..|
0000b170  e0 53 20 e7 20 5a 54 25  3d 34 20 8c 20 e6 20 30  |.S . ZT%=4 . . 0|
0000b180  2c 43 4f 4c 25 20 c8 9c  20 28 32 35 35 2d 28 28  |,COL% .. (255-((|
0000b190  43 25 20 80 20 33 29 2a  36 34 29 29 20 8b 20 e6  |C% . 3)*64)) . .|
0000b1a0  20 30 2c 43 4f 4c 25 2b  43 25 20 c8 9c 20 28 32  | 0,COL%+C% .. (2|
0000b1b0  35 35 2d 28 28 43 25 20  80 20 33 29 2a 36 34 29  |55-((C% . 3)*64)|
0000b1c0  29 0d 2e ea 22 20 e7 20  b0 58 25 2c 59 25 29 3d  |)..." . .X%,Y%)=|
0000b1d0  54 45 4d 50 43 4f 4c 25  20 8c 20 c8 92 20 58 25  |TEMPCOL% . .. X%|
0000b1e0  2c 59 25 0d 2e f4 1d 20  ed 20 3a c8 97 20 58 2c  |,Y%.... . :.. X,|
0000b1f0  59 2c 5a 25 3a e7 20 5a  25 3c 3e 31 20 8c 20 ed  |Y,Z%:. Z%<>1 . .|
0000b200  0d 2e fe 0f 20 c8 91 20  30 2c 30 3a e6 20 30 0d  |.... .. 0,0:. 0.|
0000b210  2f 08 64 20 4f 50 54 3d  31 3a 4d 45 4e 55 3d 31  |/.d OPT=1:MENU=1|
0000b220  3a ef 20 32 34 2c 30 3b  30 3b 31 32 37 39 3b 31  |:. 24,0;0;1279;1|
0000b230  30 32 33 3b 3a f2 67 65  74 62 61 63 6b 3a f5 3a  |023;:.getback:.:|
0000b240  c8 97 20 58 25 2c 59 25  2c 5a 25 3a fd 20 5a 25  |.. X%,Y%,Z%:. Z%|
0000b250  3d 30 3a f2 6d 65 6e 75  31 3a ef 20 32 34 2c 30  |=0:.menu1:. 24,0|
0000b260  3b 30 3b 31 32 37 39 3b  38 32 39 3b 3a 5a 25 3d  |;0;1279;829;:Z%=|
0000b270  30 3a e1 0d 2f 12 10 20  dd f2 73 68 61 64 62 6c  |0:../.. ..shadbl|
0000b280  6f 63 6b 0d 2f 1c 45 20  4d 45 4e 55 3d 30 3a 4f  |ock./.E MENU=0:O|
0000b290  50 54 3d 31 3a ef 20 32  34 2c 30 3b 30 3b 31 32  |PT=1:. 24,0;0;12|
0000b2a0  37 39 3b 31 30 32 33 3b  3a f2 62 72 69 6e 67 62  |79;1023;:.bringb|
0000b2b0  61 63 6b 3a f5 3a c8 97  20 58 25 2c 59 25 2c 5a  |ack:.:.. X%,Y%,Z|
0000b2c0  25 3a fd 20 5a 25 3d 30  0d 2f 26 0c 20 f2 62 6f  |%:. Z%=0./&. .bo|
0000b2d0  75 6e 63 65 0d 2f 30 0d  20 f2 67 65 74 61 72 65  |unce./0. .getare|
0000b2e0  61 0d 2f 3a 15 20 f5 3a  c8 97 20 58 2c 59 2c 5a  |a./:. .:.. X,Y,Z|
0000b2f0  3a fd 20 5a 3d 30 0d 2f  44 52 20 ef 20 31 39 2c  |:. Z=0./DR . 19,|
0000b300  31 2c 32 34 2c 35 30 2c  35 30 2c 32 35 35 3a f5  |1,24,50,50,255:.|
0000b310  3a c8 97 20 58 2c 59 2c  5a 54 25 3a fd 20 5a 54  |:.. X,Y,ZT%:. ZT|
0000b320  25 3e 31 3a 54 45 4d 50  43 4f 4c 25 3d b0 58 2c  |%>1:TEMPCOL%=.X,|
0000b330  59 29 3a ef 20 31 39 2c  31 2c 32 34 2c 32 35 35  |Y):. 19,1,24,255|
0000b340  2c 32 35 35 2c 32 35 35  0d 2f 4e 05 20 0d 2f 58  |,255,255./N. ./X|
0000b350  2f 20 53 54 3d 34 3a e7  20 54 59 50 45 3d 32 20  |/ ST=4:. TYPE=2 |
0000b360  8c 20 c8 94 20 58 58 31  25 2c 59 59 31 25 3a c8  |. .. XX1%,YY1%:.|
0000b370  94 20 58 25 2c 59 25 3a  53 54 3d 32 0d 2f 62 14  |. X%,Y%:ST=2./b.|
0000b380  20 58 58 32 25 3d 58 25  3a 59 59 32 25 3d 59 25  | XX2%=X%:YY2%=Y%|
0000b390  0d 2f 6c 0d 20 54 43 25  3d 43 4f 4c 25 0d 2f 76  |./l. TC%=COL%./v|
0000b3a0  28 20 41 42 25 3d 28 59  59 32 25 2d 59 59 31 25  |( AB%=(YY2%-YY1%|
0000b3b0  29 2f 31 32 3a e7 20 41  42 25 3c 3d 30 20 8c 20  |)/12:. AB%<=0 . |
0000b3c0  41 42 25 3d 31 0d 2f 80  17 20 e7 20 53 54 3d 32  |AB%=1./.. . ST=2|
0000b3d0  20 8c 20 41 42 25 3d 41  42 25 2a 32 0d 2f 8a 1e  | . AB%=AB%*2./..|
0000b3e0  20 e7 20 59 59 31 25 3d  59 59 32 25 20 8c 20 59  | . YY1%=YY2% . Y|
0000b3f0  59 32 25 3d 59 59 32 25  2b 31 0d 2f 94 31 20 54  |Y2%=YY2%+1./.1 T|
0000b400  3d 33 32 30 3a e3 20 58  25 3d 59 59 31 25 20 b8  |=320:. X%=YY1% .|
0000b410  20 59 59 32 25 20 88 20  28 28 59 59 32 25 2d 59  | YY2% . ((YY2%-Y|
0000b420  59 31 25 29 2f 35 29 3a  4b 3d 30 0d 2f 9e 24 20  |Y1%)/5):K=0./.$ |
0000b430  54 3d 54 2d 36 34 3a e7  20 54 3c 30 20 8c 20 54  |T=T-64:. T<0 . T|
0000b440  3d 32 35 36 3a 43 4f 4c  25 3d 43 4f 4c 32 25 0d  |=256:COL%=COL2%.|
0000b450  2f a8 47 20 e3 20 59 25  3d 58 25 20 b8 20 58 25  |/.G . Y%=X% . X%|
0000b460  2b 28 28 59 59 32 25 2d  59 59 31 25 29 29 20 88  |+((YY2%-YY1%)) .|
0000b470  20 53 54 3a 4b 3d 4b 2b  31 3a e3 20 5a 25 3d 58  | ST:K=K+1:. Z%=X|
0000b480  58 31 25 20 b8 20 58 58  32 25 20 88 20 32 2b 28  |X1% . XX2% . 2+(|
0000b490  4e 4e 25 2a 32 29 0d 2f  b2 24 20 54 50 31 3d 36  |NN%*2)./.$ TP1=6|
0000b4a0  34 2a 28 b3 28 31 29 2b  28 28 4b 29 2f 41 42 25  |4*(.(1)+((K)/AB%|
0000b4b0  29 29 20 8b 20 54 50 31  3d 30 0d 2f bc 20 20 54  |)) . TP1=0./.  T|
0000b4c0  54 3d a8 28 28 54 2d 54  50 31 29 29 3a e7 20 54  |T=.((T-TP1)):. T|
0000b4d0  54 3c 30 20 8c 20 54 54  3d 30 0d 2f c1 37 20 e7  |T<0 . TT=0./.7 .|
0000b4e0  20 5a 54 25 3d 34 20 8c  20 e6 30 2c 43 4f 4c 25  | ZT%=4 . .0,COL%|
0000b4f0  20 c8 9c 20 54 54 20 8b  20 e6 20 30 2c 43 4f 4c  | .. TT . . 0,COL|
0000b500  25 2b 28 54 54 2f 36 34  29 20 c8 9c 20 54 4e 54  |%+(TT/64) .. TNT|
0000b510  25 0d 2f c6 56 20 e7 20  54 59 50 45 3d 31 20 80  |%./.V . TYPE=1 .|
0000b520  20 20 b0 5a 25 2c 59 25  29 3d 54 45 4d 50 43 4f  |  .Z%,Y%)=TEMPCO|
0000b530  4c 25 20 8c 20 c8 92 20  5a 25 2c 59 25 20 8b 20  |L% . .. Z%,Y% . |
0000b540  e7 20 54 59 50 45 3c 3e  31 20 80 20 b0 59 25 2c  |. TYPE<>1 . .Y%,|
0000b550  5a 25 29 3d 54 45 4d 50  43 4f 4c 25 20 8c 20 c8  |Z%)=TEMPCOL% . .|
0000b560  92 20 59 25 2c 5a 25 0d  2f d0 1b 20 ed 20 3a c8  |. Y%,Z%./.. . :.|
0000b570  97 20 58 2c 59 2c 5a 3a  e7 20 5a 3c 3e 31 20 8c  |. X,Y,Z:. Z<>1 .|
0000b580  20 ed 0d 2f da 0d 20 43  4f 4c 25 3d 54 43 25 0d  | ../.. COL%=TC%.|
0000b590  2f e4 64 20 4f 50 54 3d  31 3a 4d 45 4e 55 3d 31  |/.d OPT=1:MENU=1|
0000b5a0  3a ef 20 32 34 2c 30 3b  30 3b 31 32 37 39 3b 31  |:. 24,0;0;1279;1|
0000b5b0  30 32 33 3b 3a f2 67 65  74 62 61 63 6b 3a f5 3a  |023;:.getback:.:|
0000b5c0  c8 97 20 58 25 2c 59 25  2c 5a 25 3a fd 20 5a 25  |.. X%,Y%,Z%:. Z%|
0000b5d0  3d 30 3a f2 6d 65 6e 75  31 3a ef 20 32 34 2c 30  |=0:.menu1:. 24,0|
0000b5e0  3b 30 3b 31 32 37 39 3b  38 32 39 3b 3a 5a 25 3d  |;0;1279;829;:Z%=|
0000b5f0  30 3a e1 0d 2f ee 0a 20  dd f2 6d 61 67 0d 2f f8  |0:../.. ..mag./.|
0000b600  45 20 4d 45 4e 55 3d 30  3a 4f 50 54 3d 31 3a ef  |E MENU=0:OPT=1:.|
0000b610  20 32 34 2c 30 3b 30 3b  31 32 37 39 3b 31 30 32  | 24,0;0;1279;102|
0000b620  33 3b 3a f2 62 72 69 6e  67 62 61 63 6b 3a f5 3a  |3;:.bringback:.:|
0000b630  c8 97 20 58 25 2c 59 25  2c 5a 25 3a fd 20 5a 25  |.. X%,Y%,Z%:. Z%|
0000b640  3d 30 0d 30 02 22 20 ec  20 30 2c 30 3a ec 20 31  |=0.0." . 0,0:. 1|
0000b650  32 37 39 2c 31 30 32 33  3a 2a 53 47 45 54 20 7a  |279,1023:*SGET z|
0000b660  74 65 6d 70 0d 30 0c 0d  20 2a 46 58 31 31 32 2c  |temp.0.. *FX112,|
0000b670  31 0d 30 16 13 20 2a 53  43 48 4f 4f 53 45 20 7a  |1.0.. *SCHOOSE z|
0000b680  74 65 6d 70 0d 30 20 12  20 e6 20 30 3a f0 20 26  |temp.0 . . 0:. &|
0000b690  45 44 2c 30 2c 30 0d 30  2a 0d 20 2a 46 58 31 31  |ED,0,0.0*. *FX11|
0000b6a0  33 2c 31 0d 30 34 08 20  54 3d 30 0d 30 3e 12 20  |3,1.04. T=0.0>. |
0000b6b0  f5 3a c8 97 20 58 25 2c  59 25 2c 5a 25 0d 30 48  |.:.. X%,Y%,Z%.0H|
0000b6c0  2f 20 e7 20 5a 25 3d 34  20 80 20 54 3d 30 20 8c  |/ . Z%=4 . T=0 .|
0000b6d0  20 54 3d 31 3a f2 62 6f  75 6e 63 65 3a 58 58 31  | T=1:.bounce:XX1|
0000b6e0  25 3d 58 25 3a 59 59 31  25 3d 59 25 0d 30 52 0a  |%=X%:YY1%=Y%.0R.|
0000b6f0  20 f2 69 6d 66 6f 0d 30  5c 13 20 e7 20 54 3d 30  | .imfo.0\. . T=0|
0000b700  20 8c 20 e5 20 8d 74 4e  70 0d 30 66 25 20 e7 20  | . . .tNp.0f% . |
0000b710  58 25 3e 58 58 31 25 2b  36 33 39 20 8c 20 c8 97  |X%>XX1%+639 . ..|
0000b720  20 b8 20 58 58 31 25 2b  36 33 39 2c 59 25 0d 30  | . XX1%+639,Y%.0|
0000b730  70 25 20 e7 20 58 25 3c  58 58 31 25 2d 36 33 39  |p% . X%<XX1%-639|
0000b740  20 8c 20 c8 97 20 b8 20  58 58 31 25 2d 36 33 39  | . .. . XX1%-639|
0000b750  2c 59 25 0d 30 7a 25 20  e7 20 59 25 3c 59 59 31  |,Y%.0z% . Y%<YY1|
0000b760  25 2d 35 31 31 20 8c 20  c8 97 20 b8 20 58 25 2c  |%-511 . .. . X%,|
0000b770  59 59 31 25 2d 35 31 31  0d 30 84 25 20 e7 20 59  |YY1%-511.0.% . Y|
0000b780  25 3e 59 59 31 25 2b 35  31 31 20 8c 20 c8 97 20  |%>YY1%+511 . .. |
0000b790  b8 20 58 25 2c 59 59 31  25 2b 35 31 31 0d 30 8e  |. X%,YY1%+511.0.|
0000b7a0  55 20 e7 20 54 3d 31 20  8c 20 e6 20 34 2c 30 3a  |U . T=1 . . 4,0:|
0000b7b0  c8 93 20 58 58 31 25 2c  59 59 31 25 2c 58 25 2d  |.. XX1%,YY1%,X%-|
0000b7c0  58 58 31 25 2c 59 25 2d  59 59 31 25 3a c8 96 3a  |XX1%,Y%-YY1%:..:|
0000b7d0  c8 96 3a c8 96 3a c8 93  20 58 58 31 25 2c 59 59  |..:..:.. XX1%,YY|
0000b7e0  31 25 2c 58 25 2d 58 58  31 25 2c 59 25 2d 59 59  |1%,X%-XX1%,Y%-YY|
0000b7f0  31 25 0d 30 98 1a 20 e7  20 5a 25 3d 34 20 80 20  |1%.0.. . Z%=4 . |
0000b800  54 3d 31 20 8c 20 e5 20  8d 64 40 70 0d 30 a2 0b  |T=1 . . .d@p.0..|
0000b810  20 fd 20 5a 25 3d 31 0d  30 ac 08 20 e6 20 30 0d  | . Z%=1.0.. . 0.|
0000b820  30 b6 64 20 4f 50 54 3d  31 3a 4d 45 4e 55 3d 31  |0.d OPT=1:MENU=1|
0000b830  3a ef 20 32 34 2c 30 3b  30 3b 31 32 37 39 3b 31  |:. 24,0;0;1279;1|
0000b840  30 32 33 3b 3a f2 67 65  74 62 61 63 6b 3a f5 3a  |023;:.getback:.:|
0000b850  c8 97 20 58 25 2c 59 25  2c 5a 25 3a fd 20 5a 25  |.. X%,Y%,Z%:. Z%|
0000b860  3d 30 3a f2 6d 65 6e 75  31 3a ef 20 32 34 2c 30  |=0:.menu1:. 24,0|
0000b870  3b 30 3b 31 32 37 39 3b  38 32 39 3b 3a 5a 25 3d  |;0;1279;829;:Z%=|
0000b880  30 3a e1 0d 30 c0 14 20  58 58 32 25 3d 58 25 3a  |0:..0.. XX2%=X%:|
0000b890  59 59 32 25 3d 59 25 0d  30 ca 0e 20 2a 46 58 20  |YY2%=Y%.0.. *FX |
0000b8a0  31 31 32 2c 31 0d 30 d4  1f 20 e7 20 58 58 32 25  |112,1.0.. . XX2%|
0000b8b0  3c 58 58 31 25 20 8c 20  c8 94 20 58 58 32 25 2c  |<XX1% . .. XX2%,|
0000b8c0  58 58 31 25 0d 30 de 1f  20 e7 20 59 59 32 25 3c  |XX1%.0.. . YY2%<|
0000b8d0  59 59 31 25 20 8c 20 c8  94 20 59 59 32 25 2c 59  |YY1% . .. YY2%,Y|
0000b8e0  59 31 25 0d 30 e8 26 20  ec 20 58 58 31 25 2c 59  |Y1%.0.& . XX1%,Y|
0000b8f0  59 31 25 3a ec 20 58 58  32 25 2c 59 59 32 25 3a  |Y1%:. XX2%,YY2%:|
0000b900  2a 53 47 45 54 20 7a 69  70 0d 30 f2 2d 20 c8 93  |*SGET zip.0.- ..|
0000b910  20 58 58 31 25 2d 34 2c  59 59 31 25 2d 34 2c 28  | XX1%-4,YY1%-4,(|
0000b920  58 25 2d 58 58 31 25 29  2b 38 2c 28 59 25 2d 59  |X%-XX1%)+8,(Y%-Y|
0000b930  59 31 25 29 2b 38 0d 30  fc 1a 20 ff 28 22 46 58  |Y1%)+8.0.. .("FX|
0000b940  31 31 32 2c 31 22 29 3a  2a 46 58 31 31 33 2c 31  |112,1"):*FX113,1|
0000b950  0d 31 06 36 20 fb 20 31  32 38 2b 35 3a fb 20 36  |.1.6 . 128+5:. 6|
0000b960  33 3a f1 8a 32 35 2c 31  29 3b 22 20 50 4c 45 41  |3:..25,1);" PLEA|
0000b970  53 45 20 57 41 49 54 20  49 27 4d 20 54 48 49 4e  |SE WAIT I'M THIN|
0000b980  4b 49 4e 47 20 22 0d 31  10 0b 20 c8 97 20 ee 20  |KING ".1.. .. . |
0000b990  34 0d 31 1a 0d 20 2a 46  58 31 31 32 2c 32 0d 31  |4.1.. *FX112,2.1|
0000b9a0  24 06 20 db 0d 31 2e 08  20 e6 20 30 0d 31 38 11  |$. ..1.. . 0.18.|
0000b9b0  20 2a 53 43 48 4f 4f 53  45 20 7a 69 70 0d 31 42  | *SCHOOSE zip.1B|
0000b9c0  12 20 f0 20 26 45 44 2c  36 34 30 2c 35 31 32 0d  |. . &ED,640,512.|
0000b9d0  31 4c 36 20 e3 20 58 25  3d 30 20 b8 20 28 58 58  |1L6 . X%=0 . (XX|
0000b9e0  32 25 2d 58 58 31 25 29  20 88 20 32 3a e3 20 59  |2%-XX1%) . 2:. Y|
0000b9f0  25 3d 30 20 b8 20 28 59  59 32 25 2d 59 59 31 25  |%=0 . (YY2%-YY1%|
0000ba00  29 20 88 20 34 0d 31 56  2d 20 e6 20 b0 58 25 2b  |) . 4.1V- . .X%+|
0000ba10  36 34 30 2c 59 25 2b 35  31 32 29 20 c8 9c 20 28  |640,Y%+512) .. (|
0000ba20  c8 9c 28 58 25 2b 36 34  30 2c 59 25 2b 35 31 32  |..(X%+640,Y%+512|
0000ba30  29 29 0d 31 60 2e 20 e7  20 53 49 5a 45 3d 32 20  |)).1`. . SIZE=2 |
0000ba40  c8 93 20 c8 90 20 58 25  2a 32 2c 59 25 2a 32 2c  |.. .. X%*2,Y%*2,|
0000ba50  34 20 8b 20 c8 92 20 58  25 2f 33 2c 59 25 2f 33  |4 . .. X%/3,Y%/3|
0000ba60  0d 31 6a 06 20 ed 0d 31  74 26 20 c8 97 20 b8 20  |.1j. ..1t& .. . |
0000ba70  58 25 2b 58 58 31 25 2c  59 59 31 25 2b 28 28 59  |X%+XX1%,YY1%+((Y|
0000ba80  59 32 25 2d 59 59 31 25  29 2f 32 29 0d 31 7e 1e  |Y2%-YY1%)/2).1~.|
0000ba90  20 c8 97 20 58 2c 59 2c  5a 25 3a e7 20 5a 25 3d  | .. X,Y,Z%:. Z%=|
0000baa0  31 20 8c 20 e5 20 8d 74  66 71 0d 31 88 06 20 ed  |1 . . .tfq.1.. .|
0000bab0  0d 31 92 38 20 e6 20 30  3a ec 20 30 2c 30 3a ec  |.1.8 . 0:. 0,0:.|
0000bac0  20 28 58 58 32 25 2d 58  58 31 25 29 2a 32 2c 28  | (XX2%-XX1%)*2,(|
0000bad0  59 59 32 25 2d 59 59 31  25 29 2a 32 3a 2a 53 47  |YY2%-YY1%)*2:*SG|
0000bae0  45 54 20 63 6f 70 79 32  0d 31 9c 3f 20 e7 20 53  |ET copy2.1.? . S|
0000baf0  49 5a 45 3d 31 20 8c 20  ec 20 30 2c 30 3a ec 20  |IZE=1 . . 0,0:. |
0000bb00  28 58 58 32 25 2d 58 58  31 25 29 2f 33 2c 28 59  |(XX2%-XX1%)/3,(Y|
0000bb10  59 32 25 2d 59 59 31 25  29 2f 33 3a 2a 53 47 45  |Y2%-YY1%)/3:*SGE|
0000bb20  54 20 63 6f 70 79 32 0d  31 a6 0e 20 2a 46 58 20  |T copy2.1.. *FX |
0000bb30  31 31 32 2c 31 0d 31 b0  08 20 e6 20 30 0d 31 ba  |112,1.1.. . 0.1.|
0000bb40  0d 20 2a 46 58 31 31 33  2c 31 0d 31 c4 13 20 2a  |. *FX113,1.1.. *|
0000bb50  53 43 48 4f 4f 53 45 20  7a 74 65 6d 70 0d 31 ce  |SCHOOSE ztemp.1.|
0000bb60  12 20 e6 20 30 3a f0 20  26 45 44 2c 30 2c 30 0d  |. . 0:. &ED,0,0.|
0000bb70  31 d8 14 20 e7 20 5a 25  3d 31 20 8c 20 e5 20 8d  |1.. . Z%=1 . . .|
0000bb80  54 5e 72 0d 31 e2 13 20  2a 53 43 48 4f 4f 53 45  |T^r.1.. *SCHOOSE|
0000bb90  20 63 6f 70 79 32 0d 31  ec 12 20 f5 3a c8 97 20  | copy2.1.. .:.. |
0000bba0  58 25 2c 59 25 2c 5a 25  0d 31 f6 8d 20 e6 20 33  |X%,Y%,Z%.1.. . 3|
0000bbb0  2c 30 3a f0 20 26 45 44  2c 58 25 2b 28 28 58 58  |,0:. &ED,X%+((XX|
0000bbc0  31 25 2d 58 58 32 25 29  2f 32 29 2c 59 25 2b 28  |1%-XX2%)/2),Y%+(|
0000bbd0  28 59 59 31 25 2d 59 59  32 25 29 2f 32 29 3a f5  |(YY1%-YY2%)/2):.|
0000bbe0  3a c8 97 20 58 58 25 2c  59 59 25 2c 5a 25 3a fd  |:.. XX%,YY%,Z%:.|
0000bbf0  20 58 58 25 3c 3e 58 25  20 84 20 59 59 25 3c 3e  | XX%<>X% . YY%<>|
0000bc00  59 25 20 84 20 5a 25 3e  30 3a f0 20 26 45 44 2c  |Y% . Z%>0:. &ED,|
0000bc10  58 25 2b 28 28 58 58 31  25 2d 58 58 32 25 29 2f  |X%+((XX1%-XX2%)/|
0000bc20  32 29 2c 59 25 2b 28 28  59 59 31 25 2d 59 59 32  |2),Y%+((YY1%-YY2|
0000bc30  25 29 2f 32 29 0d 32 00  71 20 e7 20 5a 25 3d 31  |%)/2).2.q . Z%=1|
0000bc40  20 8c 20 e6 20 30 3a 4f  50 54 3d 31 3a 4d 45 4e  | . . 0:OPT=1:MEN|
0000bc50  55 3d 31 3a ef 20 32 34  2c 30 3b 30 3b 31 32 37  |U=1:. 24,0;0;127|
0000bc60  39 3b 31 30 32 33 3b 3a  f2 67 65 74 62 61 63 6b  |9;1023;:.getback|
0000bc70  3a f5 3a c8 97 20 58 25  2c 59 25 2c 5a 25 3a fd  |:.:.. X%,Y%,Z%:.|
0000bc80  20 5a 25 3d 30 3a f2 6d  65 6e 75 31 3a ef 20 32  | Z%=0:.menu1:. 2|
0000bc90  34 2c 30 3b 30 3b 31 32  37 39 3b 38 32 39 3b 3a  |4,0;0;1279;829;:|
0000bca0  5a 25 3d 30 3a e1 0d 32  0a 0b 20 fd 20 5a 25 3d  |Z%=0:..2.. . Z%=|
0000bcb0  34 0d 32 14 72 20 e7 20  4e 50 25 3d 31 20 8c 20  |4.2.r . NP%=1 . |
0000bcc0  e6 20 33 2c 30 3a f0 20  26 45 44 2c 58 25 2b 28  |. 3,0:. &ED,X%+(|
0000bcd0  28 58 58 31 25 2d 58 58  32 25 29 2f 32 29 2c 59  |(XX1%-XX2%)/2),Y|
0000bce0  25 2b 28 28 59 59 31 25  2d 59 59 32 25 29 2f 32  |%+((YY1%-YY2%)/2|
0000bcf0  29 20 8b 20 e6 20 30 3a  f0 20 26 45 44 2c 58 25  |) . . 0:. &ED,X%|
0000bd00  2b 28 28 58 58 31 25 2d  58 58 32 25 29 2f 32 29  |+((XX1%-XX2%)/2)|
0000bd10  2c 59 25 2b 28 28 59 59  31 25 2d 59 59 32 25 29  |,Y%+((YY1%-YY2%)|
0000bd20  2f 32 29 0d 32 1e 13 20  e6 20 43 4f 4c 25 20 c8  |/2).2.. . COL% .|
0000bd30  9c 20 54 4e 54 25 0d 32  28 0b 20 c8 97 20 ee 20  |. TNT%.2(. .. . |
0000bd40  32 0d 32 32 62 20 4f 50  54 3d 31 3a 4d 45 4e 55  |2.22b OPT=1:MENU|
0000bd50  3d 31 3a ef 20 32 34 2c  30 3b 30 3b 31 32 37 39  |=1:. 24,0;0;1279|
0000bd60  3b 31 30 32 33 3b 3a f2  67 65 74 62 61 63 6b 3a  |;1023;:.getback:|
0000bd70  f5 3a c8 97 20 58 25 2c  59 25 2c 5a 25 3a fd 20  |.:.. X%,Y%,Z%:. |
0000bd80  5a 25 3d 30 3a f2 6d 65  6e 75 31 3a ef 20 32 34  |Z%=0:.menu1:. 24|
0000bd90  2c 30 3b 30 3b 31 32 37  39 3b 38 32 39 3b 3a 5a  |,0;0;1279;829;:Z|
0000bda0  25 3d 30 0d 32 3c 06 20  e1 0d 32 46 06 20 e0 0d  |%=0.2<. ..2F. ..|
0000bdb0  32 50 10 20 dd f2 69 6d  61 67 65 73 68 61 64 0d  |2P. ..imageshad.|
0000bdc0  32 5a 06 20 87 0d 32 64  39 20 ef 20 32 34 2c 30  |2Z. ..2d9 . 24,0|
0000bdd0  3b 30 3b 31 32 37 39 3b  31 30 32 33 3b 3a e6 20  |;0;1279;1023;:. |
0000bde0  36 33 20 c8 9c 20 31 39  32 3a c8 93 20 c8 90 20  |63 .. 192:.. .. |
0000bdf0  30 2c 38 35 33 2c 31 32  35 39 2c 31 37 30 0d 32  |0,853,1259,170.2|
0000be00  6e 4b 20 fb 20 36 33 2b  31 32 38 20 c8 9c 20 31  |nK . 63+128 .. 1|
0000be10  39 32 3a fb 20 30 3a f1  8a 31 34 2c 31 29 3b 22  |92:. 0:..14,1);"|
0000be20  53 48 41 44 4f 57 49 4e  47 20 53 45 4c 45 43 54  |SHADOWING SELECT|
0000be30  49 4f 4e 20 4c 45 46 54  2f 52 49 47 48 54 2c 20  |ION LEFT/RIGHT, |
0000be40  55 50 2f 44 4f 57 4e 2e  22 0d 32 78 0c 20 f2 62  |UP/DOWN.".2x. .b|
0000be50  6f 75 6e 63 65 0d 32 82  1d 20 e6 20 33 3a c8 93  |ounce.2.. . 3:..|
0000be60  20 c8 90 20 31 30 30 2c  39 30 30 2c 38 30 30 2c  | .. 100,900,800,|
0000be70  34 30 0d 32 8c 1e 20 e6  20 33 3a c8 93 20 c8 90  |40.2.. . 3:.. ..|
0000be80  20 31 31 30 30 2c 38 37  30 2c 34 30 2c 31 30 34  | 1100,870,40,104|
0000be90  0d 32 96 1c 20 e6 20 33  34 3a c8 93 20 c8 90 20  |.2.. . 34:.. .. |
0000bea0  35 30 30 2c 38 39 30 2c  32 2c 36 30 0d 32 a0 18  |500,890,2,60.2..|
0000beb0  20 c8 93 20 c8 90 20 31  30 39 30 2c 39 32 30 2c  | .. .. 1090,920,|
0000bec0  36 30 2c 32 0d 32 aa 29  20 e6 20 32 35 3a c8 93  |60,2.2.) . 25:..|
0000bed0  20 c8 90 20 35 30 30 2b  28 53 48 41 44 41 43 25  | .. 500+(SHADAC%|
0000bee0  2a 38 29 2c 39 30 34 2c  31 30 2c 33 30 0d 32 b4  |*8),904,10,30.2.|
0000bef0  27 20 e6 20 32 35 3a c8  93 20 c8 90 20 31 31 30  |' . 25:.. .. 110|
0000bf00  32 2c 39 32 30 2b 28 53  48 41 44 44 4e 25 29 2c  |2,920+(SHADDN%),|
0000bf10  33 30 2c 32 0d 32 be 10  20 c8 97 20 58 25 2c 59  |30,2.2.. .. X%,Y|
0000bf20  25 2c 5a 25 0d 32 c8 52  20 e7 20 5a 25 3d 34 20  |%,Z%.2.R . Z%=4 |
0000bf30  80 20 58 25 3e 31 30 30  20 80 20 58 25 3c 31 30  |. X%>100 . X%<10|
0000bf40  30 30 20 80 20 59 25 3e  39 30 30 20 80 20 59 25  |00 . Y%>900 . Y%|
0000bf50  3c 39 35 30 20 80 20 53  48 41 44 41 43 25 3e 2d  |<950 . SHADAC%>-|
0000bf60  34 35 20 8c 20 53 48 41  44 41 43 25 2d 3d 34 3a  |45 . SHADAC%-=4:|
0000bf70  e5 20 8d 44 64 72 0d 32  d2 51 20 e7 20 5a 25 3d  |. .Ddr.2.Q . Z%=|
0000bf80  32 20 80 20 58 25 3e 31  30 30 20 80 20 58 25 3c  |2 . X%>100 . X%<|
0000bf90  31 30 30 30 20 80 20 59  25 3e 39 30 30 20 80 20  |1000 . Y%>900 . |
0000bfa0  59 25 3c 39 35 30 20 80  20 53 48 41 44 41 43 25  |Y%<950 . SHADAC%|
0000bfb0  3c 34 35 20 8c 20 53 48  41 44 41 43 25 2b 3d 34  |<45 . SHADAC%+=4|
0000bfc0  3a e5 20 8d 44 64 72 0d  32 dc 52 20 e7 20 5a 25  |:. .Ddr.2.R . Z%|
0000bfd0  3d 34 20 80 20 58 25 3e  31 31 30 30 20 80 20 58  |=4 . X%>1100 . X|
0000bfe0  25 3c 31 31 34 30 20 80  20 59 25 3e 38 37 30 20  |%<1140 . Y%>870 |
0000bff0  80 20 59 25 3c 39 37 30  20 80 20 53 48 41 44 44  |. Y%<970 . SHADD|
0000c000  4e 25 3c 34 35 20 8c 20  53 48 41 44 44 4e 25 2b  |N%<45 . SHADDN%+|
0000c010  3d 34 3a e5 20 8d 44 64  72 0d 32 e6 53 20 e7 20  |=4:. .Ddr.2.S . |
0000c020  5a 25 3d 32 20 80 20 58  25 3e 31 31 30 30 20 80  |Z%=2 . X%>1100 .|
0000c030  20 58 25 3c 31 31 34 30  20 80 20 59 25 3e 38 37  | X%<1140 . Y%>87|
0000c040  30 20 80 20 59 25 3c 39  37 30 20 80 20 53 48 41  |0 . Y%<970 . SHA|
0000c050  44 44 4e 25 3e 2d 34 35  20 8c 20 53 48 41 44 44  |DDN%>-45 . SHADD|
0000c060  4e 25 2d 3d 34 3a e5 20  8d 44 64 72 0d 32 f0 0f  |N%-=4:. .Ddr.2..|
0000c070  20 e7 20 5a 25 3d 31 20  8c 20 e1 0d 32 fa 0b 20  | . Z%=1 . ..2.. |
0000c080  e5 20 8d 74 7e 72 0d 33  04 0b 20 dd f2 66 6f 6e  |. .t~r.3.. ..fon|
0000c090  74 0d 33 0e 21 20 f1 8a  35 38 2c 34 29 3b 22 46  |t.3.! ..58,4);"F|
0000c0a0  4f 4e 54 20 4e 41 4d 45  3a 20 20 20 20 20 20 20  |ONT NAME:       |
0000c0b0  20 22 0d 33 18 12 20 f1  8a 36 38 2c 34 29 3b 3a  | ".3.. ..68,4);:|
0000c0c0  e8 20 4e 24 0d 33 22 12  20 e7 20 a9 28 4e 24 29  |. N$.3". . .(N$)|
0000c0d0  3e 37 20 8c 20 e1 0d 33  2c 25 20 e7 20 4e 24 3d  |>7 . ..3,% . N$=|
0000c0e0  22 4e 4f 52 4d 22 20 8c  20 ff 28 22 46 58 32 35  |"NORM" . .("FX25|
0000c0f0  2c 30 22 29 3a e5 20 8d  44 5e 73 0d 33 36 0f 20  |,0"):. .D^s.36. |
0000c100  4e 24 3d 22 46 3d 22 2b  4e 24 0d 33 40 0f 20 ee  |N$="F="+N$.3@. .|
0000c110  20 85 20 e5 20 8d 44 72  73 0d 33 4a 0a 20 ff 28  | . . .Drs.3J. .(|
0000c120  4e 24 29 0d 33 54 0f 20  ee 20 85 20 f2 65 72 72  |N$).3T. . . .err|
0000c130  6f 72 0d 33 5e 0c 20 f2  73 65 74 75 70 32 0d 33  |or.3^. .setup2.3|
0000c140  68 06 20 e1 0d 33 72 33  20 f1 8a 35 38 2c 34 29  |h. ..3r3 ..58,4)|
0000c150  3b 22 53 4f 52 52 59 20  4e 4f 54 20 46 4f 55 4e  |;"SORRY NOT FOUN|
0000c160  44 21 22 3a 41 3d a5 20  3a f2 73 65 74 75 70 32  |D!":A=. :.setup2|
0000c170  3a e4 20 8d 74 4c 68 0d  33 7c 0f 20 ee 20 85 20  |:. .tLh.3|. . . |
0000c180  f2 65 72 72 6f 72 0d 33  86 59 20 4f 50 54 3d 31  |.error.3.Y OPT=1|
0000c190  3a 4d 45 4e 55 3d 31 3a  ef 20 32 34 2c 30 3b 30  |:MENU=1:. 24,0;0|
0000c1a0  3b 31 32 37 39 3b 31 30  32 33 3b 3a f5 3a c8 97  |;1279;1023;:.:..|
0000c1b0  20 58 25 2c 59 25 2c 4b  25 3a fd 20 4b 25 3d 30  | X%,Y%,K%:. K%=0|
0000c1c0  3a f2 6d 65 6e 75 31 3a  ef 20 32 34 2c 30 3b 30  |:.menu1:. 24,0;0|
0000c1d0  3b 31 32 37 39 3b 38 32  39 3b 3a 4b 25 3d 30 0d  |;1279;829;:K%=0.|
0000c1e0  33 90 0b 20 e5 20 8d 64  60 41 0d 33 9a 12 20 dd  |3.. . .d`A.3.. .|
0000c1f0  f2 73 74 61 72 63 6f 6d  6d 61 6e 64 0d 33 a4 4a  |.starcommand.3.J|
0000c200  20 4d 45 4e 55 3d 30 3a  4f 50 54 3d 31 3a ef 20  | MENU=0:OPT=1:. |
0000c210  32 34 2c 30 3b 30 3b 31  32 37 39 3b 31 30 32 33  |24,0;0;1279;1023|
0000c220  3b 3a f2 62 72 69 6e 67  62 61 63 6b 3a f5 3a c8  |;:.bringback:.:.|
0000c230  97 20 58 25 2c 59 25 2c  4b 25 3a fd 20 4b 25 3d  |. X%,Y%,K%:. K%=|
0000c240  30 3a 5a 25 3d 30 0d 33  ae 22 20 ec 20 30 2c 30  |0:Z%=0.3." . 0,0|
0000c250  3a ec 20 31 32 37 39 2c  31 30 32 33 3a 2a 53 47  |:. 1279,1023:*SG|
0000c260  45 54 20 7a 74 65 6d 70  0d 33 b8 1b 20 fb 20 31  |ET ztemp.3.. . 1|
0000c270  32 38 2b 31 36 3a fb 20  36 33 20 c8 9c 20 31 39  |28+16:. 63 .. 19|
0000c280  32 3a db 0d 33 c2 0b 20  2a 46 58 34 2c 30 0d 33  |2:..3.. *FX4,0.3|
0000c290  cc 0b 20 41 24 3d 22 2a  22 0d 33 d6 10 20 f1 8a  |.. A$="*".3.. ..|
0000c2a0  30 2c 30 29 3b 22 2a 5f  22 0d 33 e0 0c 20 f5 20  |0,0);"*_".3.. . |
0000c2b0  3a 42 24 3d be 0d 33 ea  37 20 e7 20 42 24 3d bd  |:B$=..3.7 . B$=.|
0000c2c0  28 31 32 37 29 20 80 20  a9 28 41 24 29 3e 32 20  |(127) . .(A$)>2 |
0000c2d0  8c 20 41 24 3d c1 41 24  2c 31 2c 28 a9 28 41 24  |. A$=.A$,1,(.(A$|
0000c2e0  29 2d 31 29 29 3a e5 20  8d 54 48 74 0d 33 f4 24  |)-1)):. .THt.3.$|
0000c2f0  20 e7 20 42 24 3c bd 28  33 32 29 20 84 20 42 24  | . B$<.(32) . B$|
0000c300  3e bd 28 31 32 37 29 20  8c 20 e5 20 8d 54 52 74  |>.(127) . . .TRt|
0000c310  0d 33 fe 1a 20 e7 20 a9  28 41 24 29 3c 36 30 20  |.3.. . .(A$)<60 |
0000c320  8c 20 41 24 3d 41 24 2b  42 24 0d 34 08 13 20 f1  |. A$=A$+B$.4.. .|
0000c330  8a 30 2c 30 29 3b 41 24  3b 22 5f 20 22 0d 34 12  |.0,0);A$;"_ ".4.|
0000c340  0f 20 fd 20 42 24 3d bd  28 31 33 29 0d 34 1c 0a  |. . B$=.(13).4..|
0000c350  20 ff 28 41 24 29 0d 34  26 16 f1 3a f1 22 50 52  | .(A$).4&..:."PR|
0000c360  45 53 53 20 41 20 4b 45  59 2e 2e 22 0d 34 30 08  |ESS A KEY..".40.|
0000c370  20 41 3d a5 0d 34 3a 13  20 2a 53 43 48 4f 4f 53  | A=..4:. *SCHOOS|
0000c380  45 20 7a 74 65 6d 70 0d  34 44 12 20 e6 20 30 3a  |E ztemp.4D. . 0:|
0000c390  f0 20 26 45 44 2c 30 2c  30 0d 34 4e 13 20 2a 53  |. &ED,0,0.4N. *S|
0000c3a0  44 45 4c 45 54 45 20 7a  74 65 6d 70 0d 34 58 62  |DELETE ztemp.4Xb|
0000c3b0  20 4f 50 54 3d 31 3a 4d  45 4e 55 3d 31 3a ef 20  | OPT=1:MENU=1:. |
0000c3c0  32 34 2c 30 3b 30 3b 31  32 37 39 3b 31 30 32 33  |24,0;0;1279;1023|
0000c3d0  3b 3a f2 67 65 74 62 61  63 6b 3a f5 3a c8 97 20  |;:.getback:.:.. |
0000c3e0  58 25 2c 59 25 2c 4b 25  3a fd 20 4b 25 3d 30 3a  |X%,Y%,K%:. K%=0:|
0000c3f0  f2 6d 65 6e 75 31 3a ef  20 32 34 2c 30 3b 30 3b  |.menu1:. 24,0;0;|
0000c400  31 32 37 39 3b 38 32 39  3b 3a 4b 25 3d 30 0d 34  |1279;829;:K%=0.4|
0000c410  62 06 20 e1 0d 34 6c 06  20 db 0d 34 76 10 20 fb  |b. ..4l. ..4v. .|
0000c420  20 36 33 20 c8 9c 20 31  39 32 0d 34 80 06 20 f1  | 63 .. 192.4.. .|
0000c430  0d 34 8a 24 20 f1 22 54  48 41 4e 4b 59 4f 55 20  |.4.$ ."THANKYOU |
0000c440  46 4f 52 20 55 53 49 4e  47 20 41 52 43 54 49 53  |FOR USING ARCTIS|
0000c450  54 20 2b 22 0d 34 94 10  20 2a 43 4f 4e 2e 4e 4f  |T +".4.. *CON.NO|
0000c460  42 4f 4f 54 0d 34 9e 11  2a 43 4f 4e 2e 53 50 52  |BOOT.4..*CON.SPR|
0000c470  49 54 45 2e 35 0d 34 a8  0e 2a 43 4f 4e 2e 52 4d  |ITE.5.4..*CON.RM|
0000c480  41 2e 30 0d 34 b2 0f 2a  43 4f 4e 2e 46 4f 4e 54  |A.0.4..*CON.FONT|
0000c490  2e 30 0d 34 bc 11 2a 43  4f 4e 2e 53 43 52 45 45  |.0.4..*CON.SCREE|
0000c4a0  4e 2e 30 0d 34 c6 2e f1  3a f1 3a f1 3a f1 22 50  |N.0.4...:.:.:."P|
0000c4b0  52 45 53 53 20 63 74 72  6c 20 26 20 42 72 65 61  |RESS ctrl & Brea|
0000c4c0  6b 20 54 4f 20 45 58 49  54 2e 2e 2e 2e 2e 2e 2e  |k TO EXIT.......|
0000c4d0  22 0d 34 d0 08 20 41 3d  a5 0d 34 da 08 20 ef 20  |".4.. A=..4.. . |
0000c4e0  37 0d 34 e4 0b 20 e5 20  8d 64 50 74 0d 34 ee 06  |7.4.. . .dPt.4..|
0000c4f0  20 e0 0d 34 f8 24 20 27  20 20 20 20 20 20 20 20  | ..4.$ '        |
0000c500  20 20 20 20 20 41 52 43  54 49 53 54 20 50 4c 55  |     ARCTIST PLU|
0000c510  53 20 56 31 2e 30 0d 35  02 06 20 27 0d 35 0c 2c  |S V1.0.5.. '.5.,|
0000c520  20 27 20 20 20 20 20 20  20 20 20 20 20 20 28 63  | '            (c|
0000c530  29 20 32 32 2f 38 2f 31  39 38 39 20 4e 69 67 65  |) 22/8/1989 Nige|
0000c540  6c 20 53 74 75 61 72 74  0d 35 16 06 20 27 0d 35  |l Stuart.5.. '.5|
0000c550  20 2c 20 27 20 20 20 20  20 20 20 20 20 20 20 44  | , '           D|
0000c560  65 64 69 63 61 74 65 64  20 74 6f 20 6d 79 20 77  |edicated to my w|
0000c570  69 66 65 20 53 68 61 72  6f 6e 0d 35 2a 06 20 27  |ife Sharon.5*. '|
0000c580  0d 35 34 44 20 27 20 20  20 20 20 20 20 57 68 6f  |.54D '       Who|
0000c590  20 68 61 73 20 70 75 74  20 75 70 20 77 69 74 68  | has put up with|
0000c5a0  20 6d 65 20 74 61 6c 6b  69 6e 67 20 41 72 63 68  | me talking Arch|
0000c5b0  69 6d 65 64 65 73 20 61  6c 6c 20 74 68 65 20 74  |imedes all the t|
0000c5c0  69 6d 65 2e 0d 35 3e 06  20 27 0d 35 48 3b 20 27  |ime..5>. '.5H; '|
0000c5d0  20 20 20 20 20 20 20 20  20 20 20 54 68 61 6e 6b  |           Thank|
0000c5e0  73 20 74 6f 20 41 63 6f  72 6e 20 66 6f 72 20 61  |s to Acorn for a|
0000c5f0  20 72 65 61 6c 6c 79 20  67 72 65 61 74 20 6d 61  | really great ma|
0000c600  63 68 69 6e 65 0d 35 52  06 20 27 0d 35 5c 06 20  |chine.5R. '.5\. |
0000c610  27 0d ff                                          |'..|
0000c613