F/LOAD1

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_36.ADF » F/LOAD1

F/LOAD1

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_36.ADF
Filename:	F/LOAD1
Read OK:	✔
File size:	11E3 bytes
Load address:	FFFF1D00
Exec address:	FFFF8023

Duplicates

There is 1 duplicate copy of this file in the archive:

Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_36.ADF » F/LOAD1
Personal collection » Acorn hard disk » zipped_disks » elk03 » eug36/F/LOAD1

File contents

    1GOTO 5
    2DEF PROC_Exit:VDU23,33,24,24,24,24,24;24;23,34,108,108,108,0,0;0;23,35,54,54,127,54,54,127,54,54;23,36,12,63,104,62,11,126,24;23,37,96,102,12,24,48,102,6;:*FX20,0
    3*FX20,1
    4CHAIN"MENU1"
    5MODE 1:ONERRORPROC_Exit
    6VDU23;8202;0;0;0;19,2,4,0;0;0;23,33,7,31,63,127,124,-8,-16,-16,23,34,240,252,254,-1,15,6,0;23,35,240,240,248,252,127,127,63,15,23,36,0;6,15,-1,-2,-4,-16,28,0,30,12,7,17,130,12,26,29,-4;0;:PROC_L
    7VDU28,13,30,26,7,17,131,12,26,17,128,31,19,0,33,34,8,8,10,35,36,23,33,15,63,127,126,-8,-16,-16,-16,23,34,240,252,-2,62,30,15,15,15,23,35,-16,-8,124,127,63,15,0;23,36,15,31,62,-2,252,240,0;29,128;0;
    8PROC_L:VDU29,0;0;28,27,30,39,7,17,129,12,26,24,0;32;1279;36;16,26,18;2,24,256;840;352;931;
    9MOVE256,840:MOVE256,959:PLOT85,272,840:PLOT85,268,936:PLOT85,272,892:PLOT85,304,880:PLOT85,300,840:PLOT85,351,960:PLOT85,332,896:PLOT85,351,840:PLOT85,332,840:VDU26:GCOL0,3:VDU5,29,225;622;:PROCF
   10VDU29,280;544;:PROCF:VDU29,320;650;:PROCF:VDU29,0;0;:GCOL0,2:MOVE368,895:MOVE368,840:PLOT85,387,895:PLOT85,387,840
   11GCOL0,3:VDU5,23,37,64,48,56,124,126,126,126,60,29,96;480;:PROC_Drip:VDU29,92;416;:PROC_Drip:VDU29,16;432;:PROC_Drip:VDU29,0;0;:GCOL0,2:PROC_Rays:PROC_c
   12GCOL0,1:MOVE260,348:MOVE304,348:PLOT85,220,328:PLOT85,340,328:VDU24,200;252;360;324;:MOVE172,252:MOVE388,252:PLOT85,280,426:VDU24,200;220;360;364;:MOVE196,256:MOVE 370,256:PLOT 85,280,132
   13VDU24,200;200;1279;1023;:MOVE230,216:MOVE339,216:PLOT85,280,186:VDU26:GCOL0,3:MOVE280,236:DRAW290,232:DRAW302,232:DRAW320,244:DRAW328,264:DRAW328,276:DRAW 320,272:GCOL0,2
   14MOVE 256,288:PRINT",":MOVE 298,314:PRINT",":GCOL 0,3:MOVE248,288:PRINT",":MOVE 290,314:PRINT",":GCOL 0,2:PROC_r:PROC_Arc(684,372,32,16,1):PROC_Arc(618,200,40,0,0):PROC_Arc(720,140,32,0,0):VDU 29,0;0;
   15MOVE 520,892:VDU 5,33,34,8,8,10,35,36:MOVE 656,392:DRAW 660,396:MOVE 688,380:DRAW 676,384:MOVE 660,360:DRAW 666,364:DRAW 688,360:MOVE 692,156:DRAW 712,160:DRAW 682,250:DRAW 748,240:DRAW 752,248:PLOT 21,752,260:PLOT 21,734,316
   16VDU 24,0;40;863;1023;:GCOL 0,0:MOVE 556,135:MOVE 416,120:PLOT 85,1279,40:PLOT 85,416,40:GCOL 0,2:MOVE 578,312:PRINT"@@":MOVE 594,308:DRAW 676,304:DRAW 722,320:DRAW 734,316:VDU 26:GCOL 0,2:MOVE 640,840:MOVE 640,938
   17PLOT 85,659,840:PLOT 85,659,938:MOVE 703,938:PLOT 85,655,926:PLOT 85,703,926:MOVE 655,895:MOVE 688,895:PLOT 85,655,880:PLOT 85,688,880:PROC_Bunting:VDU 29,240;0;:PROC_r:VDU 29,-4;0;: MOVE 760,892:VDU 5,33,34,8,8,10,35,36:GCOL 0,0
   18MOVE 795,856:MOVE 824,872:PLOT 85,824,840:GCOL 0,2:MOVE 776,872:MOVE 820,876:PLOT 85,776,864:PLOT 85,820,864:MOVE800,840:DRAW812,840:MOVE800,848
   19VDU29,0;0;24,0;100;1279;240;29,1072;400;:FORX%=-200TO0STEP10:MOVEX%,X%*2:DRAWX%+200,-((X%+200)*2):NEXT
   20VDU 26, 29,0;0;:PROC_n:VDU 29,502;0;:PROC_c:VDU 26:MOVE994,248:DRAW 1154,248:MOVE986,264:DRAW 1162,264:PROCP(1006,272,1028,338):PROCP(1110,272,1092,338):MOVE 1032,370:DRAW 1116,370:MOVE 1032,386:DRAW 1116,386:PROCP(1084,388,1052,688)
   21PROCP(1032,388,1064,688):MOVE 1056,742:PRINT"^":VDU 29,132;0;:PROC_n:VDU26:MOVE 964,884:MOVE 964,936:PLOT 85,980,884:PLOT 85,980,936
   22VDU 4,26:COLOUR 128:COLOUR 3:VDU 23,35,60,66,153,161,161,153,66,60:PRINTTAB(6,31)"#  Genevieve  Greville  l986" TAB(0,0):GCOL 0,3: MOVE 488,32:DRAW 500,28:VDU 23,33,12,28,28,44,44,76,12,0:VDU26,4,31,30,31,33,30:VDU 28,13,29,26,7
   23T%=TIME:REPEAT UNTIL TIME>T%+200
   24COLOUR 2
   25VDU 23,35,-1;-1;-1;-1;
   26FOR J%=0 TO 27
   27T%=TIME:REPEAT UNTIL TIME>T%+10
   28IF J%<10 OR J%>20 PRINT TAB(0,22)
   29IF J%=10 OR J%=20 PRINT TAB(0,22)"     ####"
   30IF J%>10 AND J%<20 PRINT TAB(0,22)"      ##"
   31NEXT J%
   32GCOL 0,3:MOVE 704,672:DRAW 704,640:DRAW 672,640:DRAW 672,352:MOVE 704,352:DRAW 704,320:DRAW 576,320
   33COLOUR 128
   34PROC_Exit
   35DEF PROC_Arc(X,Y,Xs,Ys,D%)
   36VDU 29,X;Y;:X=Xs:Y=Ys
   37MOVE X,Y: IF D%=1 PROC2:ENDPROC
   38FORJ%=0TO21:X=X+Y/6:Y=Y-X/2:DRAWX,Y:NEXT
   39ENDPROC
   40DEFPROC2:FORJ%=0TO26:X=X-Y/4:Y=Y+X/2:DRAWX,Y:NEXT:ENDPROC
   41DEFPROC_c
   42MOVE404,892:VDU5,33,34,8,8,10,35,36
   43GCOL0,0:MOVE428,862
   44MOVE472,914:PLOT85,472,835
   45GCOL0,2:ENDPROC
   46X=X-Y/C%:Y=Y+X/C%:PLOTB%,X,Y:PLOTB%,X*D,Y*D:NEXT
   47VDU29,0;0;
   48ENDPROC
   49DEFPROC_L:MOVE560,1019:MOVE560,960:PLOT85,575,1019:PLOT85,575,960:MOVE576,975:PLOT85,603,960:PLOT85,603,975:MOVE 607,964:DRAW 607,971:MOVE 571,1023:DRAW 564,1023:ENDPROC
   50DEFPROC_r
   51MOVE464,895:MOVE464,840
   52PLOT85,483,895:PLOT85,483,840
   53MOVE468,872:MOVE504,883
   54PLOT85,496,895:PLOT85,504,895
   55ENDPROC
   56DEFPROC_n
   57MOVE864,895:VDU34
   58MOVE832,895:MOVE832,840
   59PLOT85,848,895:PLOT85,848,840
   60MOVE852,876:DRAW832,880
   61MOVE868,895:PLOT85,868,880
   62MOVE880,864:MOVE880,840
   63PLOT85,892,876:PLOT85,892,840
   64ENDPROC
   65DEFPROCF
   66MOVE32,0:DRAW32,76
   67MOVE -4,20:DRAW 64,60
   68MOVE 64,20:DRAW 0,64
   69MOVE -8,68:PRINT "*"
   70MOVE -12,40:PRINT "*"
   71MOVE 16,20:PRINT "*"
   72MOVE 20,88:PRINT "*"
   73MOVE 48,36:PRINT "*"
   74MOVE 48,68:PRINT "*"
   75ENDPROC
   76 
   77DEF PROC_Drip
   78MOVE28,0:VDU9,37,8:PLOT21,20,50:ENDPROC
   79DEF PROC_Bunting
   80GCOL 0,1
   81FOR C%=1 TO 8
   82MOVE 448+C%*32,500+2^C%
   83MOVE 468+C%*39,500+2^C%
   84PLOT 85,430+C%*33,490+2^C%
   85NEXT C%
   86GCOL 0,2
   87ENDPROC
   88 
   89DEFPROCP(X%,Y%,A%,B%)
   90Step=(A%-X%)*32/(B%-Y%)
   91St=0
   92FOR J%=Y% TO B% STEP 32
   93MOVE X%+St,J%
   94DRAW X%+32+St+Step,J%+32
   95MOVE X%+32+St,J%
   96DRAW X%+St,J%
   97MOVE X%+St+Step,J%+32
   98DRAW X%+32+St,J%
   99St=St+Step
  100NEXT J%
  101MOVE X%,Y%:GCOL 0,3:PLOT 21,A%+Step,B%+32:GCOL0,2
  102MOVE X%+32,Y%:DRAW A%+32+Step,B%+32
  103ENDPROC
  104DEF PROC_Rays
  105VDU29,280;270;:GCOL0,3:X=90:Y=0:MOVEX,Y:MOVE X,Y:FORJ%=0TO33
  106X=X+Y/16:Y=Y-X/16:X=X+Y/16:Y=Y-X/16:X=X+Y/16:Y=Y-X/16:IFJ% MOD 2=0 THEN MOVE X*5/4,Y*5/4:ELSE PLOT 85,X,Y
  107NEXT J%
  108VDU 29,0;0;: GCOL 0,2
  109ENDPROC


� �TE@
�� �_Exit:�23,33,24,24,24,24,24;24;23,34,108,108,108,0,0;0;23,35,54,54,127,54,54,127,54,54;23,36,12,63,104,62,11,126,24;23,37,96,102,12,24,48,102,6;:*FX20,0
*FX20,1
�"MENU1"
� 1:��_Exit
��23;8202;0;0;0;19,2,4,0;0;0;23,33,7,31,63,127,124,-8,-16,-16,23,34,240,252,254,-1,15,6,0;23,35,240,240,248,252,127,127,63,15,23,36,0;6,15,-1,-2,-4,-16,28,0,30,12,7,17,130,12,26,29,-4;0;:�_L
��28,13,30,26,7,17,131,12,26,17,128,31,19,0,33,34,8,8,10,35,36,23,33,15,63,127,126,-8,-16,-16,-16,23,34,240,252,-2,62,30,15,15,15,23,35,-16,-8,124,127,63,15,0;23,36,15,31,62,-2,252,240,0;29,128;0;
Y�_L:�29,0;0;28,27,30,39,7,17,129,12,26,24,0;32;1279;36;16,26,18;2,24,256;840;352;931;
	��256,840:�256,959:�85,272,840:�85,268,936:�85,272,892:�85,304,880:�85,300,840:�85,351,960:�85,332,896:�85,351,840:�85,332,840:�26:�0,3:�5,29,225;622;:�F

[�29,280;544;:�F:�29,320;650;:�F:�29,0;0;:�0,2:�368,895:�368,840:�85,387,895:�85,387,840
~�0,3:�5,23,37,64,48,56,124,126,126,126,60,29,96;480;:�_Drip:�29,92;416;:�_Drip:�29,16;432;:�_Drip:�29,0;0;:�0,2:�_Rays:�_c
��0,1:�260,348:�304,348:�85,220,328:�85,340,328:�24,200;252;360;324;:�172,252:�388,252:�85,280,426:�24,200;220;360;364;:�196,256:� 370,256:� 85,280,132

��24,200;200;1279;1023;:�230,216:�339,216:�85,280,186:�26:�0,3:�280,236:�290,232:�302,232:�320,244:�328,264:�328,276:� 320,272:�0,2
�� 256,288:�",":� 298,314:�",":� 0,3:�248,288:�",":� 290,314:�",":� 0,2:�_r:�_Arc(684,372,32,16,1):�_Arc(618,200,40,0,0):�_Arc(720,140,32,0,0):� 29,0;0;
�� 520,892:� 5,33,34,8,8,10,35,36:� 656,392:� 660,396:� 688,380:� 676,384:� 660,360:� 666,364:� 688,360:� 692,156:� 712,160:� 682,250:� 748,240:� 752,248:� 21,752,260:� 21,734,316
�� 24,0;40;863;1023;:� 0,0:� 556,135:� 416,120:� 85,1279,40:� 85,416,40:� 0,2:� 578,312:�"@@":� 594,308:� 676,304:� 722,320:� 734,316:� 26:� 0,2:� 640,840:� 640,938
�� 85,659,840:� 85,659,938:� 703,938:� 85,655,926:� 85,703,926:� 655,895:� 688,895:� 85,655,880:� 85,688,880:�_Bunting:� 29,240;0;:�_r:� 29,-4;0;: � 760,892:� 5,33,34,8,8,10,35,36:� 0,0
s� 795,856:� 824,872:� 85,824,840:� 0,2:� 776,872:� 820,876:� 85,776,864:� 85,820,864:�800,840:�812,840:�800,848
Y�29,0;0;24,0;100;1279;240;29,1072;400;:�X%=-200�0�10:�X%,X%*2:�X%+200,-((X%+200)*2):�
�� 26, 29,0;0;:�_n:� 29,502;0;:�_c:� 26:�994,248:� 1154,248:�986,264:� 1162,264:�P(1006,272,1028,338):�P(1110,272,1092,338):� 1032,370:� 1116,370:� 1032,386:� 1116,386:�P(1084,388,1052,688)
k�P(1032,388,1064,688):� 1056,742:�"^":� 29,132;0;:�_n:�26:� 964,884:� 964,936:� 85,980,884:� 85,980,936
�� 4,26:� 128:� 3:� 23,35,60,66,153,161,161,153,66,60:�6,31)"#  Genevieve  Greville  l986" �0,0):� 0,3: � 488,32:� 500,28:� 23,33,12,28,28,44,44,76,12,0:�26,4,31,30,31,33,30:� 28,13,29,26,7
T%=�:� � �>T%+200
� 2
� 23,35,-1;-1;-1;-1;
� J%=0 � 27
T%=�:� � �>T%+10
� J%<10 � J%>20 � �0,22)
'� J%=10 � J%=20 � �0,22)"     ####"
&� J%>10 � J%<20 � �0,22)"      ##"
� J%
 O� 0,3:� 704,672:� 704,640:� 672,640:� 672,352:� 704,352:� 704,320:� 576,320
!	� 128
"
�_Exit
#� �_Arc(X,Y,Xs,Ys,D%)
$� 29,X;Y;:X=Xs:Y=Ys
%� X,Y: � D%=1 �2:�
&#�J%=0�21:X=X+Y/6:Y=Y-X/2:�X,Y:�
'�
()��2:�J%=0�26:X=X-Y/4:Y=Y+X/2:�X,Y:�:�
)��_c
*"�404,892:�5,33,34,8,8,10,35,36
+�0,0:�428,862
,�472,914:�85,472,835
-
�0,2:�
.+X=X-Y/C%:Y=Y+X/C%:�B%,X,Y:�B%,X*D,Y*D:�
/�29,0;0;
0�
1���_L:�560,1019:�560,960:�85,575,1019:�85,575,960:�576,975:�85,603,960:�85,603,975:� 607,964:� 607,971:� 571,1023:� 564,1023:�
2��_r
3�464,895:�464,840
4�85,483,895:�85,483,840
5�468,872:�504,883
6�85,496,895:�85,504,895
7�
8��_n
9�864,895:�34
:�832,895:�832,840
;�85,848,895:�85,848,840
<�852,876:�832,880
=�868,895:�85,868,880
>�880,864:�880,840
?�85,892,876:�85,892,840
@�
A��F
B�32,0:�32,76
C� -4,20:� 64,60
D� 64,20:� 0,64
E� -8,68:� "*"
F� -12,40:� "*"
G� 16,20:� "*"
H� 20,88:� "*"
I� 48,36:� "*"
J� 48,68:� "*"
K�
L 
M� �_Drip
N�28,0:�9,37,8:�21,20,50:�
O� �_Bunting
P	� 0,1
Q� C%=1 � 8
R� 448+C%*32,500+2^C%
S� 468+C%*39,500+2^C%
T� 85,430+C%*33,490+2^C%
U� C%
V	� 0,2
W�
X 
Y��P(X%,Y%,A%,B%)
ZStep=(A%-X%)*32/(B%-Y%)
[St=0
\� J%=Y% � B% � 32
]� X%+St,J%
^� X%+32+St+Step,J%+32
_� X%+32+St,J%
`� X%+St,J%
a� X%+St+Step,J%+32
b� X%+32+St,J%
cSt=St+Step
d� J%
e)� X%,Y%:� 0,3:� 21,A%+Step,B%+32:�0,2
f!� X%+32,Y%:� A%+32+Step,B%+32
g�
h� �_Rays
i2�29,280;270;:�0,3:X=90:Y=0:�X,Y:� X,Y:�J%=0�33
j^X=X+Y/16:Y=Y-X/16:X=X+Y/16:Y=Y-X/16:X=X+Y/16:Y=Y-X/16:�J% � 2=0 � � X*5/4,Y*5/4:� � 85,X,Y
k� J%
l� 29,0;0;: � 0,2
m�
�

00000000  0d 00 01 0a e5 20 8d 54  45 40 0d 00 02 9f dd 20  |..... .TE@..... |
00000010  f2 5f 45 78 69 74 3a ef  32 33 2c 33 33 2c 32 34  |._Exit:.23,33,24|
00000020  2c 32 34 2c 32 34 2c 32  34 2c 32 34 3b 32 34 3b  |,24,24,24,24;24;|
00000030  32 33 2c 33 34 2c 31 30  38 2c 31 30 38 2c 31 30  |23,34,108,108,10|
00000040  38 2c 30 2c 30 3b 30 3b  32 33 2c 33 35 2c 35 34  |8,0,0;0;23,35,54|
00000050  2c 35 34 2c 31 32 37 2c  35 34 2c 35 34 2c 31 32  |,54,127,54,54,12|
00000060  37 2c 35 34 2c 35 34 3b  32 33 2c 33 36 2c 31 32  |7,54,54;23,36,12|
00000070  2c 36 33 2c 31 30 34 2c  36 32 2c 31 31 2c 31 32  |,63,104,62,11,12|
00000080  36 2c 32 34 3b 32 33 2c  33 37 2c 39 36 2c 31 30  |6,24;23,37,96,10|
00000090  32 2c 31 32 2c 32 34 2c  34 38 2c 31 30 32 2c 36  |2,12,24,48,102,6|
000000a0  3b 3a 2a 46 58 32 30 2c  30 0d 00 03 0b 2a 46 58  |;:*FX20,0....*FX|
000000b0  32 30 2c 31 0d 00 04 0c  d7 22 4d 45 4e 55 31 22  |20,1....."MENU1"|
000000c0  0d 00 05 10 eb 20 31 3a  ee 85 f2 5f 45 78 69 74  |..... 1:..._Exit|
000000d0  0d 00 06 c1 ef 32 33 3b  38 32 30 32 3b 30 3b 30  |.....23;8202;0;0|
000000e0  3b 30 3b 31 39 2c 32 2c  34 2c 30 3b 30 3b 30 3b  |;0;19,2,4,0;0;0;|
000000f0  32 33 2c 33 33 2c 37 2c  33 31 2c 36 33 2c 31 32  |23,33,7,31,63,12|
00000100  37 2c 31 32 34 2c 2d 38  2c 2d 31 36 2c 2d 31 36  |7,124,-8,-16,-16|
00000110  2c 32 33 2c 33 34 2c 32  34 30 2c 32 35 32 2c 32  |,23,34,240,252,2|
00000120  35 34 2c 2d 31 2c 31 35  2c 36 2c 30 3b 32 33 2c  |54,-1,15,6,0;23,|
00000130  33 35 2c 32 34 30 2c 32  34 30 2c 32 34 38 2c 32  |35,240,240,248,2|
00000140  35 32 2c 31 32 37 2c 31  32 37 2c 36 33 2c 31 35  |52,127,127,63,15|
00000150  2c 32 33 2c 33 36 2c 30  3b 36 2c 31 35 2c 2d 31  |,23,36,0;6,15,-1|
00000160  2c 2d 32 2c 2d 34 2c 2d  31 36 2c 32 38 2c 30 2c  |,-2,-4,-16,28,0,|
00000170  33 30 2c 31 32 2c 37 2c  31 37 2c 31 33 30 2c 31  |30,12,7,17,130,1|
00000180  32 2c 32 36 2c 32 39 2c  2d 34 3b 30 3b 3a f2 5f  |2,26,29,-4;0;:._|
00000190  4c 0d 00 07 c7 ef 32 38  2c 31 33 2c 33 30 2c 32  |L.....28,13,30,2|
000001a0  36 2c 37 2c 31 37 2c 31  33 31 2c 31 32 2c 32 36  |6,7,17,131,12,26|
000001b0  2c 31 37 2c 31 32 38 2c  33 31 2c 31 39 2c 30 2c  |,17,128,31,19,0,|
000001c0  33 33 2c 33 34 2c 38 2c  38 2c 31 30 2c 33 35 2c  |33,34,8,8,10,35,|
000001d0  33 36 2c 32 33 2c 33 33  2c 31 35 2c 36 33 2c 31  |36,23,33,15,63,1|
000001e0  32 37 2c 31 32 36 2c 2d  38 2c 2d 31 36 2c 2d 31  |27,126,-8,-16,-1|
000001f0  36 2c 2d 31 36 2c 32 33  2c 33 34 2c 32 34 30 2c  |6,-16,23,34,240,|
00000200  32 35 32 2c 2d 32 2c 36  32 2c 33 30 2c 31 35 2c  |252,-2,62,30,15,|
00000210  31 35 2c 31 35 2c 32 33  2c 33 35 2c 2d 31 36 2c  |15,15,23,35,-16,|
00000220  2d 38 2c 31 32 34 2c 31  32 37 2c 36 33 2c 31 35  |-8,124,127,63,15|
00000230  2c 30 3b 32 33 2c 33 36  2c 31 35 2c 33 31 2c 36  |,0;23,36,15,31,6|
00000240  32 2c 2d 32 2c 32 35 32  2c 32 34 30 2c 30 3b 32  |2,-2,252,240,0;2|
00000250  39 2c 31 32 38 3b 30 3b  0d 00 08 59 f2 5f 4c 3a  |9,128;0;...Y._L:|
00000260  ef 32 39 2c 30 3b 30 3b  32 38 2c 32 37 2c 33 30  |.29,0;0;28,27,30|
00000270  2c 33 39 2c 37 2c 31 37  2c 31 32 39 2c 31 32 2c  |,39,7,17,129,12,|
00000280  32 36 2c 32 34 2c 30 3b  33 32 3b 31 32 37 39 3b  |26,24,0;32;1279;|
00000290  33 36 3b 31 36 2c 32 36  2c 31 38 3b 32 2c 32 34  |36;16,26,18;2,24|
000002a0  2c 32 35 36 3b 38 34 30  3b 33 35 32 3b 39 33 31  |,256;840;352;931|
000002b0  3b 0d 00 09 9c ec 32 35  36 2c 38 34 30 3a ec 32  |;.....256,840:.2|
000002c0  35 36 2c 39 35 39 3a f0  38 35 2c 32 37 32 2c 38  |56,959:.85,272,8|
000002d0  34 30 3a f0 38 35 2c 32  36 38 2c 39 33 36 3a f0  |40:.85,268,936:.|
000002e0  38 35 2c 32 37 32 2c 38  39 32 3a f0 38 35 2c 33  |85,272,892:.85,3|
000002f0  30 34 2c 38 38 30 3a f0  38 35 2c 33 30 30 2c 38  |04,880:.85,300,8|
00000300  34 30 3a f0 38 35 2c 33  35 31 2c 39 36 30 3a f0  |40:.85,351,960:.|
00000310  38 35 2c 33 33 32 2c 38  39 36 3a f0 38 35 2c 33  |85,332,896:.85,3|
00000320  35 31 2c 38 34 30 3a f0  38 35 2c 33 33 32 2c 38  |51,840:.85,332,8|
00000330  34 30 3a ef 32 36 3a e6  30 2c 33 3a ef 35 2c 32  |40:.26:.0,3:.5,2|
00000340  39 2c 32 32 35 3b 36 32  32 3b 3a f2 46 0d 00 0a  |9,225;622;:.F...|
00000350  5b ef 32 39 2c 32 38 30  3b 35 34 34 3b 3a f2 46  |[.29,280;544;:.F|
00000360  3a ef 32 39 2c 33 32 30  3b 36 35 30 3b 3a f2 46  |:.29,320;650;:.F|
00000370  3a ef 32 39 2c 30 3b 30  3b 3a e6 30 2c 32 3a ec  |:.29,0;0;:.0,2:.|
00000380  33 36 38 2c 38 39 35 3a  ec 33 36 38 2c 38 34 30  |368,895:.368,840|
00000390  3a f0 38 35 2c 33 38 37  2c 38 39 35 3a f0 38 35  |:.85,387,895:.85|
000003a0  2c 33 38 37 2c 38 34 30  0d 00 0b 7e e6 30 2c 33  |,387,840...~.0,3|
000003b0  3a ef 35 2c 32 33 2c 33  37 2c 36 34 2c 34 38 2c  |:.5,23,37,64,48,|
000003c0  35 36 2c 31 32 34 2c 31  32 36 2c 31 32 36 2c 31  |56,124,126,126,1|
000003d0  32 36 2c 36 30 2c 32 39  2c 39 36 3b 34 38 30 3b  |26,60,29,96;480;|
000003e0  3a f2 5f 44 72 69 70 3a  ef 32 39 2c 39 32 3b 34  |:._Drip:.29,92;4|
000003f0  31 36 3b 3a f2 5f 44 72  69 70 3a ef 32 39 2c 31  |16;:._Drip:.29,1|
00000400  36 3b 34 33 32 3b 3a f2  5f 44 72 69 70 3a ef 32  |6;432;:._Drip:.2|
00000410  39 2c 30 3b 30 3b 3a e6  30 2c 32 3a f2 5f 52 61  |9,0;0;:.0,2:._Ra|
00000420  79 73 3a f2 5f 63 0d 00  0c 9a e6 30 2c 31 3a ec  |ys:._c.....0,1:.|
00000430  32 36 30 2c 33 34 38 3a  ec 33 30 34 2c 33 34 38  |260,348:.304,348|
00000440  3a f0 38 35 2c 32 32 30  2c 33 32 38 3a f0 38 35  |:.85,220,328:.85|
00000450  2c 33 34 30 2c 33 32 38  3a ef 32 34 2c 32 30 30  |,340,328:.24,200|
00000460  3b 32 35 32 3b 33 36 30  3b 33 32 34 3b 3a ec 31  |;252;360;324;:.1|
00000470  37 32 2c 32 35 32 3a ec  33 38 38 2c 32 35 32 3a  |72,252:.388,252:|
00000480  f0 38 35 2c 32 38 30 2c  34 32 36 3a ef 32 34 2c  |.85,280,426:.24,|
00000490  32 30 30 3b 32 32 30 3b  33 36 30 3b 33 36 34 3b  |200;220;360;364;|
000004a0  3a ec 31 39 36 2c 32 35  36 3a ec 20 33 37 30 2c  |:.196,256:. 370,|
000004b0  32 35 36 3a f0 20 38 35  2c 32 38 30 2c 31 33 32  |256:. 85,280,132|
000004c0  0d 00 0d 86 ef 32 34 2c  32 30 30 3b 32 30 30 3b  |.....24,200;200;|
000004d0  31 32 37 39 3b 31 30 32  33 3b 3a ec 32 33 30 2c  |1279;1023;:.230,|
000004e0  32 31 36 3a ec 33 33 39  2c 32 31 36 3a f0 38 35  |216:.339,216:.85|
000004f0  2c 32 38 30 2c 31 38 36  3a ef 32 36 3a e6 30 2c  |,280,186:.26:.0,|
00000500  33 3a ec 32 38 30 2c 32  33 36 3a df 32 39 30 2c  |3:.280,236:.290,|
00000510  32 33 32 3a df 33 30 32  2c 32 33 32 3a df 33 32  |232:.302,232:.32|
00000520  30 2c 32 34 34 3a df 33  32 38 2c 32 36 34 3a df  |0,244:.328,264:.|
00000530  33 32 38 2c 32 37 36 3a  df 20 33 32 30 2c 32 37  |328,276:. 320,27|
00000540  32 3a e6 30 2c 32 0d 00  0e 9b ec 20 32 35 36 2c  |2:.0,2..... 256,|
00000550  32 38 38 3a f1 22 2c 22  3a ec 20 32 39 38 2c 33  |288:.",":. 298,3|
00000560  31 34 3a f1 22 2c 22 3a  e6 20 30 2c 33 3a ec 32  |14:.",":. 0,3:.2|
00000570  34 38 2c 32 38 38 3a f1  22 2c 22 3a ec 20 32 39  |48,288:.",":. 29|
00000580  30 2c 33 31 34 3a f1 22  2c 22 3a e6 20 30 2c 32  |0,314:.",":. 0,2|
00000590  3a f2 5f 72 3a f2 5f 41  72 63 28 36 38 34 2c 33  |:._r:._Arc(684,3|
000005a0  37 32 2c 33 32 2c 31 36  2c 31 29 3a f2 5f 41 72  |72,32,16,1):._Ar|
000005b0  63 28 36 31 38 2c 32 30  30 2c 34 30 2c 30 2c 30  |c(618,200,40,0,0|
000005c0  29 3a f2 5f 41 72 63 28  37 32 30 2c 31 34 30 2c  |):._Arc(720,140,|
000005d0  33 32 2c 30 2c 30 29 3a  ef 20 32 39 2c 30 3b 30  |32,0,0):. 29,0;0|
000005e0  3b 0d 00 0f b6 ec 20 35  32 30 2c 38 39 32 3a ef  |;..... 520,892:.|
000005f0  20 35 2c 33 33 2c 33 34  2c 38 2c 38 2c 31 30 2c  | 5,33,34,8,8,10,|
00000600  33 35 2c 33 36 3a ec 20  36 35 36 2c 33 39 32 3a  |35,36:. 656,392:|
00000610  df 20 36 36 30 2c 33 39  36 3a ec 20 36 38 38 2c  |. 660,396:. 688,|
00000620  33 38 30 3a df 20 36 37  36 2c 33 38 34 3a ec 20  |380:. 676,384:. |
00000630  36 36 30 2c 33 36 30 3a  df 20 36 36 36 2c 33 36  |660,360:. 666,36|
00000640  34 3a df 20 36 38 38 2c  33 36 30 3a ec 20 36 39  |4:. 688,360:. 69|
00000650  32 2c 31 35 36 3a df 20  37 31 32 2c 31 36 30 3a  |2,156:. 712,160:|
00000660  df 20 36 38 32 2c 32 35  30 3a df 20 37 34 38 2c  |. 682,250:. 748,|
00000670  32 34 30 3a df 20 37 35  32 2c 32 34 38 3a f0 20  |240:. 752,248:. |
00000680  32 31 2c 37 35 32 2c 32  36 30 3a f0 20 32 31 2c  |21,752,260:. 21,|
00000690  37 33 34 2c 33 31 36 0d  00 10 a7 ef 20 32 34 2c  |734,316..... 24,|
000006a0  30 3b 34 30 3b 38 36 33  3b 31 30 32 33 3b 3a e6  |0;40;863;1023;:.|
000006b0  20 30 2c 30 3a ec 20 35  35 36 2c 31 33 35 3a ec  | 0,0:. 556,135:.|
000006c0  20 34 31 36 2c 31 32 30  3a f0 20 38 35 2c 31 32  | 416,120:. 85,12|
000006d0  37 39 2c 34 30 3a f0 20  38 35 2c 34 31 36 2c 34  |79,40:. 85,416,4|
000006e0  30 3a e6 20 30 2c 32 3a  ec 20 35 37 38 2c 33 31  |0:. 0,2:. 578,31|
000006f0  32 3a f1 22 40 40 22 3a  ec 20 35 39 34 2c 33 30  |2:."@@":. 594,30|
00000700  38 3a df 20 36 37 36 2c  33 30 34 3a df 20 37 32  |8:. 676,304:. 72|
00000710  32 2c 33 32 30 3a df 20  37 33 34 2c 33 31 36 3a  |2,320:. 734,316:|
00000720  ef 20 32 36 3a e6 20 30  2c 32 3a ec 20 36 34 30  |. 26:. 0,2:. 640|
00000730  2c 38 34 30 3a ec 20 36  34 30 2c 39 33 38 0d 00  |,840:. 640,938..|
00000740  11 bc f0 20 38 35 2c 36  35 39 2c 38 34 30 3a f0  |... 85,659,840:.|
00000750  20 38 35 2c 36 35 39 2c  39 33 38 3a ec 20 37 30  | 85,659,938:. 70|
00000760  33 2c 39 33 38 3a f0 20  38 35 2c 36 35 35 2c 39  |3,938:. 85,655,9|
00000770  32 36 3a f0 20 38 35 2c  37 30 33 2c 39 32 36 3a  |26:. 85,703,926:|
00000780  ec 20 36 35 35 2c 38 39  35 3a ec 20 36 38 38 2c  |. 655,895:. 688,|
00000790  38 39 35 3a f0 20 38 35  2c 36 35 35 2c 38 38 30  |895:. 85,655,880|
000007a0  3a f0 20 38 35 2c 36 38  38 2c 38 38 30 3a f2 5f  |:. 85,688,880:._|
000007b0  42 75 6e 74 69 6e 67 3a  ef 20 32 39 2c 32 34 30  |Bunting:. 29,240|
000007c0  3b 30 3b 3a f2 5f 72 3a  ef 20 32 39 2c 2d 34 3b  |;0;:._r:. 29,-4;|
000007d0  30 3b 3a 20 ec 20 37 36  30 2c 38 39 32 3a ef 20  |0;: . 760,892:. |
000007e0  35 2c 33 33 2c 33 34 2c  38 2c 38 2c 31 30 2c 33  |5,33,34,8,8,10,3|
000007f0  35 2c 33 36 3a e6 20 30  2c 30 0d 00 12 73 ec 20  |5,36:. 0,0...s. |
00000800  37 39 35 2c 38 35 36 3a  ec 20 38 32 34 2c 38 37  |795,856:. 824,87|
00000810  32 3a f0 20 38 35 2c 38  32 34 2c 38 34 30 3a e6  |2:. 85,824,840:.|
00000820  20 30 2c 32 3a ec 20 37  37 36 2c 38 37 32 3a ec  | 0,2:. 776,872:.|
00000830  20 38 32 30 2c 38 37 36  3a f0 20 38 35 2c 37 37  | 820,876:. 85,77|
00000840  36 2c 38 36 34 3a f0 20  38 35 2c 38 32 30 2c 38  |6,864:. 85,820,8|
00000850  36 34 3a ec 38 30 30 2c  38 34 30 3a df 38 31 32  |64:.800,840:.812|
00000860  2c 38 34 30 3a ec 38 30  30 2c 38 34 38 0d 00 13  |,840:.800,848...|
00000870  59 ef 32 39 2c 30 3b 30  3b 32 34 2c 30 3b 31 30  |Y.29,0;0;24,0;10|
00000880  30 3b 31 32 37 39 3b 32  34 30 3b 32 39 2c 31 30  |0;1279;240;29,10|
00000890  37 32 3b 34 30 30 3b 3a  e3 58 25 3d 2d 32 30 30  |72;400;:.X%=-200|
000008a0  b8 30 88 31 30 3a ec 58  25 2c 58 25 2a 32 3a df  |.0.10:.X%,X%*2:.|
000008b0  58 25 2b 32 30 30 2c 2d  28 28 58 25 2b 32 30 30  |X%+200,-((X%+200|
000008c0  29 2a 32 29 3a ed 0d 00  14 c0 ef 20 32 36 2c 20  |)*2):...... 26, |
000008d0  32 39 2c 30 3b 30 3b 3a  f2 5f 6e 3a ef 20 32 39  |29,0;0;:._n:. 29|
000008e0  2c 35 30 32 3b 30 3b 3a  f2 5f 63 3a ef 20 32 36  |,502;0;:._c:. 26|
000008f0  3a ec 39 39 34 2c 32 34  38 3a df 20 31 31 35 34  |:.994,248:. 1154|
00000900  2c 32 34 38 3a ec 39 38  36 2c 32 36 34 3a df 20  |,248:.986,264:. |
00000910  31 31 36 32 2c 32 36 34  3a f2 50 28 31 30 30 36  |1162,264:.P(1006|
00000920  2c 32 37 32 2c 31 30 32  38 2c 33 33 38 29 3a f2  |,272,1028,338):.|
00000930  50 28 31 31 31 30 2c 32  37 32 2c 31 30 39 32 2c  |P(1110,272,1092,|
00000940  33 33 38 29 3a ec 20 31  30 33 32 2c 33 37 30 3a  |338):. 1032,370:|
00000950  df 20 31 31 31 36 2c 33  37 30 3a ec 20 31 30 33  |. 1116,370:. 103|
00000960  32 2c 33 38 36 3a df 20  31 31 31 36 2c 33 38 36  |2,386:. 1116,386|
00000970  3a f2 50 28 31 30 38 34  2c 33 38 38 2c 31 30 35  |:.P(1084,388,105|
00000980  32 2c 36 38 38 29 0d 00  15 6b f2 50 28 31 30 33  |2,688)...k.P(103|
00000990  32 2c 33 38 38 2c 31 30  36 34 2c 36 38 38 29 3a  |2,388,1064,688):|
000009a0  ec 20 31 30 35 36 2c 37  34 32 3a f1 22 5e 22 3a  |. 1056,742:."^":|
000009b0  ef 20 32 39 2c 31 33 32  3b 30 3b 3a f2 5f 6e 3a  |. 29,132;0;:._n:|
000009c0  ef 32 36 3a ec 20 39 36  34 2c 38 38 34 3a ec 20  |.26:. 964,884:. |
000009d0  39 36 34 2c 39 33 36 3a  f0 20 38 35 2c 39 38 30  |964,936:. 85,980|
000009e0  2c 38 38 34 3a f0 20 38  35 2c 39 38 30 2c 39 33  |,884:. 85,980,93|
000009f0  36 0d 00 16 c1 ef 20 34  2c 32 36 3a fb 20 31 32  |6..... 4,26:. 12|
00000a00  38 3a fb 20 33 3a ef 20  32 33 2c 33 35 2c 36 30  |8:. 3:. 23,35,60|
00000a10  2c 36 36 2c 31 35 33 2c  31 36 31 2c 31 36 31 2c  |,66,153,161,161,|
00000a20  31 35 33 2c 36 36 2c 36  30 3a f1 8a 36 2c 33 31  |153,66,60:..6,31|
00000a30  29 22 23 20 20 47 65 6e  65 76 69 65 76 65 20 20  |)"#  Genevieve  |
00000a40  47 72 65 76 69 6c 6c 65  20 20 6c 39 38 36 22 20  |Greville  l986" |
00000a50  8a 30 2c 30 29 3a e6 20  30 2c 33 3a 20 ec 20 34  |.0,0):. 0,3: . 4|
00000a60  38 38 2c 33 32 3a df 20  35 30 30 2c 32 38 3a ef  |88,32:. 500,28:.|
00000a70  20 32 33 2c 33 33 2c 31  32 2c 32 38 2c 32 38 2c  | 23,33,12,28,28,|
00000a80  34 34 2c 34 34 2c 37 36  2c 31 32 2c 30 3a ef 32  |44,44,76,12,0:.2|
00000a90  36 2c 34 2c 33 31 2c 33  30 2c 33 31 2c 33 33 2c  |6,4,31,30,31,33,|
00000aa0  33 30 3a ef 20 32 38 2c  31 33 2c 32 39 2c 32 36  |30:. 28,13,29,26|
00000ab0  2c 37 0d 00 17 15 54 25  3d 91 3a f5 20 fd 20 91  |,7....T%=.:. . .|
00000ac0  3e 54 25 2b 32 30 30 0d  00 18 07 fb 20 32 0d 00  |>T%+200..... 2..|
00000ad0  19 18 ef 20 32 33 2c 33  35 2c 2d 31 3b 2d 31 3b  |... 23,35,-1;-1;|
00000ae0  2d 31 3b 2d 31 3b 0d 00  1a 0f e3 20 4a 25 3d 30  |-1;-1;..... J%=0|
00000af0  20 b8 20 32 37 0d 00 1b  14 54 25 3d 91 3a f5 20  | . 27....T%=.:. |
00000b00  fd 20 91 3e 54 25 2b 31  30 0d 00 1c 1c e7 20 4a  |. .>T%+10..... J|
00000b10  25 3c 31 30 20 84 20 4a  25 3e 32 30 20 f1 20 8a  |%<10 . J%>20 . .|
00000b20  30 2c 32 32 29 0d 00 1d  27 e7 20 4a 25 3d 31 30  |0,22)...'. J%=10|
00000b30  20 84 20 4a 25 3d 32 30  20 f1 20 8a 30 2c 32 32  | . J%=20 . .0,22|
00000b40  29 22 20 20 20 20 20 23  23 23 23 22 0d 00 1e 26  |)"     ####"...&|
00000b50  e7 20 4a 25 3e 31 30 20  80 20 4a 25 3c 32 30 20  |. J%>10 . J%<20 |
00000b60  f1 20 8a 30 2c 32 32 29  22 20 20 20 20 20 20 23  |. .0,22)"      #|
00000b70  23 22 0d 00 1f 08 ed 20  4a 25 0d 00 20 4f e6 20  |#"..... J%.. O. |
00000b80  30 2c 33 3a ec 20 37 30  34 2c 36 37 32 3a df 20  |0,3:. 704,672:. |
00000b90  37 30 34 2c 36 34 30 3a  df 20 36 37 32 2c 36 34  |704,640:. 672,64|
00000ba0  30 3a df 20 36 37 32 2c  33 35 32 3a ec 20 37 30  |0:. 672,352:. 70|
00000bb0  34 2c 33 35 32 3a df 20  37 30 34 2c 33 32 30 3a  |4,352:. 704,320:|
00000bc0  df 20 35 37 36 2c 33 32  30 0d 00 21 09 fb 20 31  |. 576,320..!.. 1|
00000bd0  32 38 0d 00 22 0a f2 5f  45 78 69 74 0d 00 23 19  |28..".._Exit..#.|
00000be0  dd 20 f2 5f 41 72 63 28  58 2c 59 2c 58 73 2c 59  |. ._Arc(X,Y,Xs,Y|
00000bf0  73 2c 44 25 29 0d 00 24  17 ef 20 32 39 2c 58 3b  |s,D%)..$.. 29,X;|
00000c00  59 3b 3a 58 3d 58 73 3a  59 3d 59 73 0d 00 25 16  |Y;:X=Xs:Y=Ys..%.|
00000c10  ec 20 58 2c 59 3a 20 e7  20 44 25 3d 31 20 f2 32  |. X,Y: . D%=1 .2|
00000c20  3a e1 0d 00 26 23 e3 4a  25 3d 30 b8 32 31 3a 58  |:...&#.J%=0.21:X|
00000c30  3d 58 2b 59 2f 36 3a 59  3d 59 2d 58 2f 32 3a df  |=X+Y/6:Y=Y-X/2:.|
00000c40  58 2c 59 3a ed 0d 00 27  05 e1 0d 00 28 29 dd f2  |X,Y:...'....()..|
00000c50  32 3a e3 4a 25 3d 30 b8  32 36 3a 58 3d 58 2d 59  |2:.J%=0.26:X=X-Y|
00000c60  2f 34 3a 59 3d 59 2b 58  2f 32 3a df 58 2c 59 3a  |/4:Y=Y+X/2:.X,Y:|
00000c70  ed 3a e1 0d 00 29 08 dd  f2 5f 63 0d 00 2a 22 ec  |.:...)..._c..*".|
00000c80  34 30 34 2c 38 39 32 3a  ef 35 2c 33 33 2c 33 34  |404,892:.5,33,34|
00000c90  2c 38 2c 38 2c 31 30 2c  33 35 2c 33 36 0d 00 2b  |,8,8,10,35,36..+|
00000ca0  11 e6 30 2c 30 3a ec 34  32 38 2c 38 36 32 0d 00  |..0,0:.428,862..|
00000cb0  2c 18 ec 34 37 32 2c 39  31 34 3a f0 38 35 2c 34  |,..472,914:.85,4|
00000cc0  37 32 2c 38 33 35 0d 00  2d 0a e6 30 2c 32 3a e1  |72,835..-..0,2:.|
00000cd0  0d 00 2e 2b 58 3d 58 2d  59 2f 43 25 3a 59 3d 59  |...+X=X-Y/C%:Y=Y|
00000ce0  2b 58 2f 43 25 3a f0 42  25 2c 58 2c 59 3a f0 42  |+X/C%:.B%,X,Y:.B|
00000cf0  25 2c 58 2a 44 2c 59 2a  44 3a ed 0d 00 2f 0c ef  |%,X*D,Y*D:.../..|
00000d00  32 39 2c 30 3b 30 3b 0d  00 30 05 e1 0d 00 31 81  |29,0;0;..0....1.|
00000d10  dd f2 5f 4c 3a ec 35 36  30 2c 31 30 31 39 3a ec  |.._L:.560,1019:.|
00000d20  35 36 30 2c 39 36 30 3a  f0 38 35 2c 35 37 35 2c  |560,960:.85,575,|
00000d30  31 30 31 39 3a f0 38 35  2c 35 37 35 2c 39 36 30  |1019:.85,575,960|
00000d40  3a ec 35 37 36 2c 39 37  35 3a f0 38 35 2c 36 30  |:.576,975:.85,60|
00000d50  33 2c 39 36 30 3a f0 38  35 2c 36 30 33 2c 39 37  |3,960:.85,603,97|
00000d60  35 3a ec 20 36 30 37 2c  39 36 34 3a df 20 36 30  |5:. 607,964:. 60|
00000d70  37 2c 39 37 31 3a ec 20  35 37 31 2c 31 30 32 33  |7,971:. 571,1023|
00000d80  3a df 20 35 36 34 2c 31  30 32 33 3a e1 0d 00 32  |:. 564,1023:...2|
00000d90  08 dd f2 5f 72 0d 00 33  15 ec 34 36 34 2c 38 39  |..._r..3..464,89|
00000da0  35 3a ec 34 36 34 2c 38  34 30 0d 00 34 1b f0 38  |5:.464,840..4..8|
00000db0  35 2c 34 38 33 2c 38 39  35 3a f0 38 35 2c 34 38  |5,483,895:.85,48|
00000dc0  33 2c 38 34 30 0d 00 35  15 ec 34 36 38 2c 38 37  |3,840..5..468,87|
00000dd0  32 3a ec 35 30 34 2c 38  38 33 0d 00 36 1b f0 38  |2:.504,883..6..8|
00000de0  35 2c 34 39 36 2c 38 39  35 3a f0 38 35 2c 35 30  |5,496,895:.85,50|
00000df0  34 2c 38 39 35 0d 00 37  05 e1 0d 00 38 08 dd f2  |4,895..7....8...|
00000e00  5f 6e 0d 00 39 10 ec 38  36 34 2c 38 39 35 3a ef  |_n..9..864,895:.|
00000e10  33 34 0d 00 3a 15 ec 38  33 32 2c 38 39 35 3a ec  |34..:..832,895:.|
00000e20  38 33 32 2c 38 34 30 0d  00 3b 1b f0 38 35 2c 38  |832,840..;..85,8|
00000e30  34 38 2c 38 39 35 3a f0  38 35 2c 38 34 38 2c 38  |48,895:.85,848,8|
00000e40  34 30 0d 00 3c 15 ec 38  35 32 2c 38 37 36 3a df  |40..<..852,876:.|
00000e50  38 33 32 2c 38 38 30 0d  00 3d 18 ec 38 36 38 2c  |832,880..=..868,|
00000e60  38 39 35 3a f0 38 35 2c  38 36 38 2c 38 38 30 0d  |895:.85,868,880.|
00000e70  00 3e 15 ec 38 38 30 2c  38 36 34 3a ec 38 38 30  |.>..880,864:.880|
00000e80  2c 38 34 30 0d 00 3f 1b  f0 38 35 2c 38 39 32 2c  |,840..?..85,892,|
00000e90  38 37 36 3a f0 38 35 2c  38 39 32 2c 38 34 30 0d  |876:.85,892,840.|
00000ea0  00 40 05 e1 0d 00 41 07  dd f2 46 0d 00 42 10 ec  |.@....A...F..B..|
00000eb0  33 32 2c 30 3a df 33 32  2c 37 36 0d 00 43 13 ec  |32,0:.32,76..C..|
00000ec0  20 2d 34 2c 32 30 3a df  20 36 34 2c 36 30 0d 00  | -4,20:. 64,60..|
00000ed0  44 12 ec 20 36 34 2c 32  30 3a df 20 30 2c 36 34  |D.. 64,20:. 0,64|
00000ee0  0d 00 45 11 ec 20 2d 38  2c 36 38 3a f1 20 22 2a  |..E.. -8,68:. "*|
00000ef0  22 0d 00 46 12 ec 20 2d  31 32 2c 34 30 3a f1 20  |"..F.. -12,40:. |
00000f00  22 2a 22 0d 00 47 11 ec  20 31 36 2c 32 30 3a f1  |"*"..G.. 16,20:.|
00000f10  20 22 2a 22 0d 00 48 11  ec 20 32 30 2c 38 38 3a  | "*"..H.. 20,88:|
00000f20  f1 20 22 2a 22 0d 00 49  11 ec 20 34 38 2c 33 36  |. "*"..I.. 48,36|
00000f30  3a f1 20 22 2a 22 0d 00  4a 11 ec 20 34 38 2c 36  |:. "*"..J.. 48,6|
00000f40  38 3a f1 20 22 2a 22 0d  00 4b 05 e1 0d 00 4c 05  |8:. "*"..K....L.|
00000f50  20 0d 00 4d 0c dd 20 f2  5f 44 72 69 70 0d 00 4e  | ..M.. ._Drip..N|
00000f60  1d ec 32 38 2c 30 3a ef  39 2c 33 37 2c 38 3a f0  |..28,0:.9,37,8:.|
00000f70  32 31 2c 32 30 2c 35 30  3a e1 0d 00 4f 0f dd 20  |21,20,50:...O.. |
00000f80  f2 5f 42 75 6e 74 69 6e  67 0d 00 50 09 e6 20 30  |._Bunting..P.. 0|
00000f90  2c 31 0d 00 51 0e e3 20  43 25 3d 31 20 b8 20 38  |,1..Q.. C%=1 . 8|
00000fa0  0d 00 52 18 ec 20 34 34  38 2b 43 25 2a 33 32 2c  |..R.. 448+C%*32,|
00000fb0  35 30 30 2b 32 5e 43 25  0d 00 53 18 ec 20 34 36  |500+2^C%..S.. 46|
00000fc0  38 2b 43 25 2a 33 39 2c  35 30 30 2b 32 5e 43 25  |8+C%*39,500+2^C%|
00000fd0  0d 00 54 1b f0 20 38 35  2c 34 33 30 2b 43 25 2a  |..T.. 85,430+C%*|
00000fe0  33 33 2c 34 39 30 2b 32  5e 43 25 0d 00 55 08 ed  |33,490+2^C%..U..|
00000ff0  20 43 25 0d 00 56 09 e6  20 30 2c 32 0d 00 57 05  | C%..V.. 0,2..W.|
00001000  e1 0d 00 58 05 20 0d 00  59 14 dd f2 50 28 58 25  |...X. ..Y...P(X%|
00001010  2c 59 25 2c 41 25 2c 42  25 29 0d 00 5a 1b 53 74  |,Y%,A%,B%)..Z.St|
00001020  65 70 3d 28 41 25 2d 58  25 29 2a 33 32 2f 28 42  |ep=(A%-X%)*32/(B|
00001030  25 2d 59 25 29 0d 00 5b  08 53 74 3d 30 0d 00 5c  |%-Y%)..[.St=0..\|
00001040  15 e3 20 4a 25 3d 59 25  20 b8 20 42 25 20 88 20  |.. J%=Y% . B% . |
00001050  33 32 0d 00 5d 0e ec 20  58 25 2b 53 74 2c 4a 25  |32..].. X%+St,J%|
00001060  0d 00 5e 19 df 20 58 25  2b 33 32 2b 53 74 2b 53  |..^.. X%+32+St+S|
00001070  74 65 70 2c 4a 25 2b 33  32 0d 00 5f 11 ec 20 58  |tep,J%+32.._.. X|
00001080  25 2b 33 32 2b 53 74 2c  4a 25 0d 00 60 0e df 20  |%+32+St,J%..`.. |
00001090  58 25 2b 53 74 2c 4a 25  0d 00 61 16 ec 20 58 25  |X%+St,J%..a.. X%|
000010a0  2b 53 74 2b 53 74 65 70  2c 4a 25 2b 33 32 0d 00  |+St+Step,J%+32..|
000010b0  62 11 df 20 58 25 2b 33  32 2b 53 74 2c 4a 25 0d  |b.. X%+32+St,J%.|
000010c0  00 63 0e 53 74 3d 53 74  2b 53 74 65 70 0d 00 64  |.c.St=St+Step..d|
000010d0  08 ed 20 4a 25 0d 00 65  29 ec 20 58 25 2c 59 25  |.. J%..e). X%,Y%|
000010e0  3a e6 20 30 2c 33 3a f0  20 32 31 2c 41 25 2b 53  |:. 0,3:. 21,A%+S|
000010f0  74 65 70 2c 42 25 2b 33  32 3a e6 30 2c 32 0d 00  |tep,B%+32:.0,2..|
00001100  66 21 ec 20 58 25 2b 33  32 2c 59 25 3a df 20 41  |f!. X%+32,Y%:. A|
00001110  25 2b 33 32 2b 53 74 65  70 2c 42 25 2b 33 32 0d  |%+32+Step,B%+32.|
00001120  00 67 05 e1 0d 00 68 0c  dd 20 f2 5f 52 61 79 73  |.g....h.. ._Rays|
00001130  0d 00 69 32 ef 32 39 2c  32 38 30 3b 32 37 30 3b  |..i2.29,280;270;|
00001140  3a e6 30 2c 33 3a 58 3d  39 30 3a 59 3d 30 3a ec  |:.0,3:X=90:Y=0:.|
00001150  58 2c 59 3a ec 20 58 2c  59 3a e3 4a 25 3d 30 b8  |X,Y:. X,Y:.J%=0.|
00001160  33 33 0d 00 6a 5e 58 3d  58 2b 59 2f 31 36 3a 59  |33..j^X=X+Y/16:Y|
00001170  3d 59 2d 58 2f 31 36 3a  58 3d 58 2b 59 2f 31 36  |=Y-X/16:X=X+Y/16|
00001180  3a 59 3d 59 2d 58 2f 31  36 3a 58 3d 58 2b 59 2f  |:Y=Y-X/16:X=X+Y/|
00001190  31 36 3a 59 3d 59 2d 58  2f 31 36 3a e7 4a 25 20  |16:Y=Y-X/16:.J% |
000011a0  83 20 32 3d 30 20 8c 20  ec 20 58 2a 35 2f 34 2c  |. 2=0 . . X*5/4,|
000011b0  59 2a 35 2f 34 3a 8b 20  f0 20 38 35 2c 58 2c 59  |Y*5/4:. . 85,X,Y|
000011c0  0d 00 6b 08 ed 20 4a 25  0d 00 6c 14 ef 20 32 39  |..k.. J%..l.. 29|
000011d0  2c 30 3b 30 3b 3a 20 e6  20 30 2c 32 0d 00 6d 05  |,0;0;: . 0,2..m.|
000011e0  e1 0d ff                                          |...|
000011e3

F/LOAD1.m0

F/LOAD1.m1

F/LOAD1.m2

F/LOAD1.m4

F/LOAD1.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .