Home » Archimedes archive » Acorn Computing » 1993 07 Mega Disk.adf » 93_07 » DataVision/!DataVis/Accs/CASHBOOKG/Miscellany/!TOMSnApr/OZONE_1
DataVision/!DataVis/Accs/CASHBOOKG/Miscellany/!TOMSnApr/OZONE_1
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 » Archimedes archive » Acorn Computing » 1993 07 Mega Disk.adf » 93_07 |
| Filename: | DataVision/!DataVis/Accs/CASHBOOKG/Miscellany/!TOMSnApr/OZONE_1 |
| Read OK: | ✔ |
| File size: | 0CB3 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM>!OZONES.OZONE_1
20REM OZONE MOVIE SPRITE PLAYER
30REM Written By Mike Cook Tel. 0706 216701
40REM
50REM Data Supplied by:-
60REM NASA, GSFC, members of the TOMS Nimbus Experiment
70REM Ms P. T. Guimaraes, Dr. R D McPeaters, Dr. A J Krueger
80REM
90REM
100SSIZE%=200000
110DIM SPBK% SSIZE%,SS% 16,FT$(20)
120OMODE%=MODE:MODE 12
130VDU 23,1,0;0;0;0;
140LC%=1:AF%=1
150PROC_InitS
160PROC_PALL
170PROC_SETS
180*POINTER
190PROC_SHOW(AF%)
200REPEAT
210REPEAT
220PROC_LEVEL
230MOUSE X%,Y%,B%
240UNTIL B%=4
250IF Y%>=16 AND Y%<=118 THEN
260IF X%>905 AND X%<1057 THEN PROC_RUN
270IF X%>655 AND X%<861 THEN PROC_SHOW(AF%-1)
280IF X%>335 AND X%<534 THEN PROC_SHOW(AF%+1)
290IF X%>55 AND X%<240 THEN MODE OMODE%:END
300ENDIF
310REPEAT:MOUSE X%,Y%,B%:UNTIL B%=0
320UNTIL FALSE
330END
340
350DEF PROC_SHOW(A%)
360IF A%>NFR% THEN A%=NFR%
370IF A%<1 THEN A%=1
380AF%=A%
390A$=STR$(A%)
400PROC_PL(FT$(A%),3)
410SYS "OS_SpriteOp",52+256,SPBK%,A$,0,200,0,SS%,0
420ENDPROC
430
440DEF PROC_RUN
450LOCAL X%,Y%,B%,ST%
460ST%=FALSE
470PROC_BUT("STOP",950,100,13)
480REPEAT:MOUSE X%,Y%,B%:UNTIL B%=0
490MOVE 0,200
500REPEAT
510REPEAT
520PROC_SHOW(AF%)
530MOUSE X%,Y%,B%
540IF B%=4 AND Y%<=118 AND X%>906 AND X%<=1056 THEN ST%=TRUE
550IF ST%=FALSE THEN
560FOR B%=1 TO 15
570*FX19
580NEXT
590ENDIF
600AF%+=1
610UNTIL AF%>NFR% OR ST%
620AF%=1
630IF ST%=FALSE THEN
640FOR B%=1 TO 50
650*FX19
660NEXT
670ENDIF
680UNTIL ST%
690PROC_BUT("RUN ",950,100,8)
700ENDPROC
710
720DEF PROC_SETS
730T$="Ozone Data"
740PROC_PC("Ozone Data Movie",0)
750PROC_PC("By Mike Cook",1)
760PROC_BUT("QUIT",100,100,8)
770PROC_BUT("FORWARD",380,100,4)
780PROC_BUT("BACK",700,100,4)
790PROC_BUT("RUN ",950,100,8)
800PROC_SCALE
810ENDPROC
820
830DEF PROC_PC(T$,X%)
840LOCAL A%
850A%=40-LEN(T$)/2
860PRINTTAB(A%,X%)T$
870ENDPROC
880
890DEF PROC_PL(T$,X%)
900LOCAL A%
910VDU 23,1,0;0;0;0;
920A%=20-LEN(T$)/2
930PRINTTAB(A%,X%)T$;
940ENDPROC
950
960DEF PROC_InitS
970LOCAL A%,DF%
980DF%=OPENIN("<OZONE$DIR>.TOMS_DAT")
990INPUT#DF%,SFN$,MXD%,MND%,NFR%
1000NFR%+=1
1010FOR A%=1 TO NFR%
1020INPUT#DF%,FT$(A%)
1030NEXT
1040CLOSE #DF%
1050SPBK%!0=SSIZE%
1060SPBK%!8=16
1070SYS "OS_SpriteOp",9+512,SPBK%
1080SFN$="<OZONE$DIR>."+SFN$
1090SYS "OS_SpriteOp",10+512,SPBK%,SFN$
1100SS%!0=2:SS%!4=1:SS%!8=1:SS%!12=1
1110ENDPROC
1120
1130DEF PROC_LEVEL
1140LOCAL X%,Y%,B%,C%
1150MOUSE X%,Y%,B%
1160IF Y%>150 THEN
1170C%=POINT(X%,Y%)
1180IF C%>0 AND C%<15 THEN
1190IF LC%<>C% THEN PROC_POINT(0,LC%)
1200PROC_POINT(15,C%):LC%=C%
1210ELSE
1220PROC_POINT(0,LC%)
1230ENDIF
1240ELSE
1250PROC_POINT(0,LC%)
1260ENDIF
1270ENDPROC
1280
1290DEF PROC_POINT(C%,P%)
1300VDU 5
1310GCOL 0,C%
1320MOVE 850,50*P%+190
1330PRINT"->"
1340VDU 4
1350ENDPROC
1360
1370DEF PROC_BUT(A$,X%,Y%,N%)
1380LOCAL PX%,PY%,LX%
1390LX%=(LEN(A$)+2)*16
1400PX%=X%-16:PY%=Y%-48
1410GCOL 0,N%-1
1420MOVE PX%-26,PY%-32
1430PLOT 0,LX%+50,0
1440PLOT 81,0,96
1450GCOL 0,N%
1460MOVE PX%-26,PY%-32
1470PLOT 0,0,96
1480PLOT 81,LX%+50,0
1490GCOL 0,N%+1
1500RECTANGLE FILL PX%,PY%-16,LX%,64
1510GCOL 0,0
1520MOVE X%,Y%-16
1530VDU5
1540PRINTA$
1550VDU4
1560REM RECTANGLE PX%,PY%-16,LX%,64
1570ENDPROC
1580
1590DEF PROC_SCALE
1600REM SCALE MAX AND MIN DOBSON UNITS
1610DI%=(MXD%-MND%)/14
1620mN=(MND%/3.1428571)-16
1630MN=(MXD%/3.1428571)-16
1640RG=(MN-mN)/14
1650PROC_UNITS
1660ENDPROC
1670
1680DEF PROC_UNITS
1690LOCAL Y%,RS%,A%
1700VDU 5
1710Y%=200
1720RS%=50
1730FOR A%=0 TO 13
1740GCOL 0,A%+1
1750RECTANGLEFILL 900,Y%,RS%,RS%
1760GCOL 0,15
1770RECTANGLE 900,Y%,RS%,RS%
1780Y%+=RS%
1790MOVE 900+RS%+32,Y%-16
1800PRINT ;MND%+DI%*A%;" DU"
1810NEXT
1820VDU 4
1830ENDPROC
1840
1850DEF PROC_PALL
1860
1870VDU19,1,16,255,0,255
1880VDU19,2,16,128,0,255
1890VDU19,3,16,0,64,223
1900:
1910VDU19,4,16,0,128,255
1920VDU19,5,16,0,239,255
1930VDU19,6,16,0,255,197
1940:
1950VDU19,7,16,0,223,116
1960VDU19,8,16,0,239,32
1970VDU19,9,16,80,255,0
1980:
1990VDU19,10,16,200,255,0
2000VDU19,11,16,255,239,0
2010VDU19,12,16,255,167,0
2020:
2030VDU19,13,16,223,80,0
2040VDU19,14,16,255,0,0
2050VDU19,15,16,255,255,255
2060
2070ENDPROC
�>!OZONES.OZONE_1
%� OZONE MOVIE SPRITE PLAYER
+� Written By Mike Cook Tel. 0706 216701
(�
2� Data Supplied by:-
<7� NASA, GSFC, members of the TOMS Nimbus Experiment
F<� Ms P. T. Guimaraes, Dr. R D McPeaters, Dr. A J Krueger
P�
Z�
dSSIZE%=200000
n!� SPBK% SSIZE%,SS% 16,FT$(20)
xOMODE%=�:� 12
�� 23,1,0;0;0;0;
�LC%=1:AF%=1
� �_InitS
�
�_PALL
�
�_SETS
� *POINTER
��_SHOW(AF%)
��
��
� �_LEVEL
�ȗ X%,Y%,B%
�
� B%=4
�� Y%>=16 � Y%<=118 �
� X%>905 � X%<1057 � �_RUN
%� X%>655 � X%<861 � �_SHOW(AF%-1)
%� X%>335 � X%<534 � �_SHOW(AF%+1)
"!� X%>55 � X%<240 � � OMODE%:�
,�
6�:ȗ X%,Y%,B%:� B%=0
@� �
J�
T
^� �_SHOW(A%)
h� A%>NFR% � A%=NFR%
r� A%<1 � A%=1
|
AF%=A%
� A$=�(A%)
��_PL(FT$(A%),3)
�2ș "OS_SpriteOp",52+256,SPBK%,A$,0,200,0,SS%,0
��
�
� � �_RUN
�� X%,Y%,B%,ST%
� ST%=�
� �_BUT("STOP",950,100,13)
��:ȗ X%,Y%,B%:� B%=0
� � 0,200
��
��
�_SHOW(AF%)
ȗ X%,Y%,B%
0� B%=4 � Y%<=118 � X%>906 � X%<=1056 � ST%=�
&
� ST%=� �
0� B%=1 � 15
: *FX19
D�
N�
X
AF%+=1
b� AF%>NFR% � ST%
l AF%=1
v
� ST%=� �
�� B%=1 � 50
� *FX19
��
��
� � ST%
��_BUT("RUN ",950,100,8)
��
�
� � �_SETS
�T$="Ozone Data"
� �_PC("Ozone Data Movie",0)
��_PC("By Mike Cook",1)
��_BUT("QUIT",100,100,8)
�_BUT("FORWARD",380,100,4)
�_BUT("BACK",700,100,4)
�_BUT("RUN ",950,100,8)
�_SCALE
*�
4
>� �_PC(T$,X%)
H� A%
RA%=40-�(T$)/2
\�A%,X%)T$
f�
p
z� �_PL(T$,X%)
�� A%
�� 23,1,0;0;0;0;
�A%=20-�(T$)/2
��A%,X%)T$;
��
�
�
� �_InitS
� � A%,DF%
�!DF%=�("<OZONE$DIR>.TOMS_DAT")
� �#DF%,SFN$,MXD%,MND%,NFR%
� NFR%+=1
�� A%=1 � NFR%
��#DF%,FT$(A%)
�
� #DF%
SPBK%!0=SSIZE%
$SPBK%!8=16
. ș "OS_SpriteOp",9+512,SPBK%
8 SFN$="<OZONE$DIR>."+SFN$
B&ș "OS_SpriteOp",10+512,SPBK%,SFN$
L$SS%!0=2:SS%!4=1:SS%!8=1:SS%!12=1
V�
`
j
� �_LEVEL
t� X%,Y%,B%,C%
~ȗ X%,Y%,B%
�� Y%>150 �
�C%=�X%,Y%)
�� C%>0 � C%<15 �
� � LC%<>C% � �_POINT(0,LC%)
��_POINT(15,C%):LC%=C%
��
��_POINT(0,LC%)
��
��
��_POINT(0,LC%)
��
��
� �_POINT(C%,P%)
� 5
� 0,C%
(� 850,50*P%+190
2 �"->"
<� 4
F�
P
Z� �_BUT(A$,X%,Y%,N%)
d� PX%,PY%,LX%
nLX%=(�(A$)+2)*16
xPX%=X%-16:PY%=Y%-48
� � 0,N%-1
�� PX%-26,PY%-32
�� 0,LX%+50,0
�
� 81,0,96
�
� 0,N%
�� PX%-26,PY%-32
� � 0,0,96
�� 81,LX%+50,0
� � 0,N%+1
�ȓ Ȑ PX%,PY%-16,LX%,64
� � 0,0
�� X%,Y%-16
��5
�A$
�4
!� RECTANGLE PX%,PY%-16,LX%,64
"�
,
6
� �_SCALE
@$� SCALE MAX AND MIN DOBSON UNITS
JDI%=(MXD%-MND%)/14
TmN=(MND%/3.1428571)-16
^MN=(MXD%/3.1428571)-16
hRG=(MN-mN)/14
r �_UNITS
|�
�
�
� �_UNITS
�� Y%,RS%,A%
�� 5
�
Y%=200
�
RS%=50
�� A%=0 � 13
� � 0,A%+1
�ȓȐ 900,Y%,RS%,RS%
�
� 0,15
�ȓ 900,Y%,RS%,RS%
� Y%+=RS%
�� 900+RS%+32,Y%-16
� ;MND%+DI%*A%;" DU"
�
� 4
&�
0
: � �_PALL
D
N�19,1,16,255,0,255
X�19,2,16,128,0,255
b�19,3,16,0,64,223
l:
v�19,4,16,0,128,255
��19,5,16,0,239,255
��19,6,16,0,255,197
�:
��19,7,16,0,223,116
��19,8,16,0,239,32
��19,9,16,80,255,0
�:
��19,10,16,200,255,0
��19,11,16,255,239,0
��19,12,16,255,167,0
�:
��19,13,16,223,80,0
��19,14,16,255,0,0
�19,15,16,255,255,255
�
� 00000000 0d 00 0a 15 f4 3e 21 4f 5a 4f 4e 45 53 2e 4f 5a |.....>!OZONES.OZ|
00000010 4f 4e 45 5f 31 0d 00 14 25 f4 20 20 20 20 20 20 |ONE_1...%. |
00000020 20 4f 5a 4f 4e 45 20 4d 4f 56 49 45 20 53 50 52 | OZONE MOVIE SPR|
00000030 49 54 45 20 50 4c 41 59 45 52 0d 00 1e 2b f4 20 |ITE PLAYER...+. |
00000040 57 72 69 74 74 65 6e 20 42 79 20 4d 69 6b 65 20 |Written By Mike |
00000050 43 6f 6f 6b 20 54 65 6c 2e 20 30 37 30 36 20 32 |Cook Tel. 0706 2|
00000060 31 36 37 30 31 0d 00 28 05 f4 0d 00 32 18 f4 20 |16701..(....2.. |
00000070 44 61 74 61 20 53 75 70 70 6c 69 65 64 20 62 79 |Data Supplied by|
00000080 3a 2d 0d 00 3c 37 f4 20 4e 41 53 41 2c 20 47 53 |:-..<7. NASA, GS|
00000090 46 43 2c 20 6d 65 6d 62 65 72 73 20 6f 66 20 74 |FC, members of t|
000000a0 68 65 20 54 4f 4d 53 20 4e 69 6d 62 75 73 20 45 |he TOMS Nimbus E|
000000b0 78 70 65 72 69 6d 65 6e 74 0d 00 46 3c f4 20 4d |xperiment..F<. M|
000000c0 73 20 50 2e 20 54 2e 20 47 75 69 6d 61 72 61 65 |s P. T. Guimarae|
000000d0 73 2c 20 44 72 2e 20 52 20 44 20 4d 63 50 65 61 |s, Dr. R D McPea|
000000e0 74 65 72 73 2c 20 44 72 2e 20 41 20 4a 20 4b 72 |ters, Dr. A J Kr|
000000f0 75 65 67 65 72 0d 00 50 05 f4 0d 00 5a 05 f4 0d |ueger..P....Z...|
00000100 00 64 11 53 53 49 5a 45 25 3d 32 30 30 30 30 30 |.d.SSIZE%=200000|
00000110 0d 00 6e 21 de 20 53 50 42 4b 25 20 53 53 49 5a |..n!. SPBK% SSIZ|
00000120 45 25 2c 53 53 25 20 31 36 2c 46 54 24 28 32 30 |E%,SS% 16,FT$(20|
00000130 29 0d 00 78 11 4f 4d 4f 44 45 25 3d eb 3a eb 20 |)..x.OMODE%=.:. |
00000140 31 32 0d 00 82 13 ef 20 32 33 2c 31 2c 30 3b 30 |12..... 23,1,0;0|
00000150 3b 30 3b 30 3b 0d 00 8c 0f 4c 43 25 3d 31 3a 41 |;0;0;....LC%=1:A|
00000160 46 25 3d 31 0d 00 96 0b f2 5f 49 6e 69 74 53 0d |F%=1....._InitS.|
00000170 00 a0 0a f2 5f 50 41 4c 4c 0d 00 aa 0a f2 5f 53 |...._PALL....._S|
00000180 45 54 53 0d 00 b4 0c 2a 50 4f 49 4e 54 45 52 0d |ETS....*POINTER.|
00000190 00 be 0f f2 5f 53 48 4f 57 28 41 46 25 29 0d 00 |...._SHOW(AF%)..|
000001a0 c8 05 f5 0d 00 d2 05 f5 0d 00 dc 0b f2 5f 4c 45 |............._LE|
000001b0 56 45 4c 0d 00 e6 0f c8 97 20 58 25 2c 59 25 2c |VEL...... X%,Y%,|
000001c0 42 25 0d 00 f0 0a fd 20 42 25 3d 34 0d 00 fa 18 |B%..... B%=4....|
000001d0 e7 20 59 25 3e 3d 31 36 20 80 20 59 25 3c 3d 31 |. Y%>=16 . Y%<=1|
000001e0 31 38 20 8c 0d 01 04 1e e7 20 58 25 3e 39 30 35 |18 ...... X%>905|
000001f0 20 80 20 58 25 3c 31 30 35 37 20 8c 20 f2 5f 52 | . X%<1057 . ._R|
00000200 55 4e 0d 01 0e 25 e7 20 58 25 3e 36 35 35 20 80 |UN...%. X%>655 .|
00000210 20 58 25 3c 38 36 31 20 8c 20 f2 5f 53 48 4f 57 | X%<861 . ._SHOW|
00000220 28 41 46 25 2d 31 29 0d 01 18 25 e7 20 58 25 3e |(AF%-1)...%. X%>|
00000230 33 33 35 20 80 20 58 25 3c 35 33 34 20 8c 20 f2 |335 . X%<534 . .|
00000240 5f 53 48 4f 57 28 41 46 25 2b 31 29 0d 01 22 21 |_SHOW(AF%+1).."!|
00000250 e7 20 58 25 3e 35 35 20 80 20 58 25 3c 32 34 30 |. X%>55 . X%<240|
00000260 20 8c 20 eb 20 4f 4d 4f 44 45 25 3a e0 0d 01 2c | . . OMODE%:...,|
00000270 05 cd 0d 01 36 18 f5 3a c8 97 20 58 25 2c 59 25 |....6..:.. X%,Y%|
00000280 2c 42 25 3a fd 20 42 25 3d 30 0d 01 40 07 fd 20 |,B%:. B%=0..@.. |
00000290 a3 0d 01 4a 05 e0 0d 01 54 04 0d 01 5e 10 dd 20 |...J....T...^.. |
000002a0 f2 5f 53 48 4f 57 28 41 25 29 0d 01 68 17 e7 20 |._SHOW(A%)..h.. |
000002b0 41 25 3e 4e 46 52 25 20 8c 20 41 25 3d 4e 46 52 |A%>NFR% . A%=NFR|
000002c0 25 0d 01 72 11 e7 20 41 25 3c 31 20 8c 20 41 25 |%..r.. A%<1 . A%|
000002d0 3d 31 0d 01 7c 0a 41 46 25 3d 41 25 0d 01 86 0c |=1..|.AF%=A%....|
000002e0 41 24 3d c3 28 41 25 29 0d 01 90 13 f2 5f 50 4c |A$=.(A%)....._PL|
000002f0 28 46 54 24 28 41 25 29 2c 33 29 0d 01 9a 32 c8 |(FT$(A%),3)...2.|
00000300 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |. "OS_SpriteOp",|
00000310 35 32 2b 32 35 36 2c 53 50 42 4b 25 2c 41 24 2c |52+256,SPBK%,A$,|
00000320 30 2c 32 30 30 2c 30 2c 53 53 25 2c 30 0d 01 a4 |0,200,0,SS%,0...|
00000330 05 e1 0d 01 ae 04 0d 01 b8 0b dd 20 f2 5f 52 55 |........... ._RU|
00000340 4e 0d 01 c2 12 ea 20 58 25 2c 59 25 2c 42 25 2c |N..... X%,Y%,B%,|
00000350 53 54 25 0d 01 cc 09 53 54 25 3d a3 0d 01 d6 1c |ST%....ST%=.....|
00000360 f2 5f 42 55 54 28 22 53 54 4f 50 22 2c 39 35 30 |._BUT("STOP",950|
00000370 2c 31 30 30 2c 31 33 29 0d 01 e0 18 f5 3a c8 97 |,100,13).....:..|
00000380 20 58 25 2c 59 25 2c 42 25 3a fd 20 42 25 3d 30 | X%,Y%,B%:. B%=0|
00000390 0d 01 ea 0b ec 20 30 2c 32 30 30 0d 01 f4 05 f5 |..... 0,200.....|
000003a0 0d 01 fe 05 f5 0d 02 08 0f f2 5f 53 48 4f 57 28 |.........._SHOW(|
000003b0 41 46 25 29 0d 02 12 0f c8 97 20 58 25 2c 59 25 |AF%)...... X%,Y%|
000003c0 2c 42 25 0d 02 1c 30 e7 20 42 25 3d 34 20 80 20 |,B%...0. B%=4 . |
000003d0 59 25 3c 3d 31 31 38 20 80 20 58 25 3e 39 30 36 |Y%<=118 . X%>906|
000003e0 20 80 20 58 25 3c 3d 31 30 35 36 20 8c 20 53 54 | . X%<=1056 . ST|
000003f0 25 3d b9 0d 02 26 0d e7 20 53 54 25 3d a3 20 8c |%=...&.. ST%=. .|
00000400 0d 02 30 0f e3 20 42 25 3d 31 20 b8 20 31 35 0d |..0.. B%=1 . 15.|
00000410 02 3a 09 2a 46 58 31 39 0d 02 44 05 ed 0d 02 4e |.:.*FX19..D....N|
00000420 05 cd 0d 02 58 0a 41 46 25 2b 3d 31 0d 02 62 14 |....X.AF%+=1..b.|
00000430 fd 20 41 46 25 3e 4e 46 52 25 20 84 20 53 54 25 |. AF%>NFR% . ST%|
00000440 0d 02 6c 09 41 46 25 3d 31 0d 02 76 0d e7 20 53 |..l.AF%=1..v.. S|
00000450 54 25 3d a3 20 8c 0d 02 80 0f e3 20 42 25 3d 31 |T%=. ...... B%=1|
00000460 20 b8 20 35 30 0d 02 8a 09 2a 46 58 31 39 0d 02 | . 50....*FX19..|
00000470 94 05 ed 0d 02 9e 05 cd 0d 02 a8 09 fd 20 53 54 |............. ST|
00000480 25 0d 02 b2 1b f2 5f 42 55 54 28 22 52 55 4e 20 |%....._BUT("RUN |
00000490 22 2c 39 35 30 2c 31 30 30 2c 38 29 0d 02 bc 05 |",950,100,8)....|
000004a0 e1 0d 02 c6 04 0d 02 d0 0c dd 20 f2 5f 53 45 54 |.......... ._SET|
000004b0 53 0d 02 da 13 54 24 3d 22 4f 7a 6f 6e 65 20 44 |S....T$="Ozone D|
000004c0 61 74 61 22 0d 02 e4 1e f2 5f 50 43 28 22 4f 7a |ata"....._PC("Oz|
000004d0 6f 6e 65 20 44 61 74 61 20 4d 6f 76 69 65 22 2c |one Data Movie",|
000004e0 30 29 0d 02 ee 1a f2 5f 50 43 28 22 42 79 20 4d |0)....._PC("By M|
000004f0 69 6b 65 20 43 6f 6f 6b 22 2c 31 29 0d 02 f8 1b |ike Cook",1)....|
00000500 f2 5f 42 55 54 28 22 51 55 49 54 22 2c 31 30 30 |._BUT("QUIT",100|
00000510 2c 31 30 30 2c 38 29 0d 03 02 1e f2 5f 42 55 54 |,100,8)....._BUT|
00000520 28 22 46 4f 52 57 41 52 44 22 2c 33 38 30 2c 31 |("FORWARD",380,1|
00000530 30 30 2c 34 29 0d 03 0c 1b f2 5f 42 55 54 28 22 |00,4)....._BUT("|
00000540 42 41 43 4b 22 2c 37 30 30 2c 31 30 30 2c 34 29 |BACK",700,100,4)|
00000550 0d 03 16 1b f2 5f 42 55 54 28 22 52 55 4e 20 22 |....._BUT("RUN "|
00000560 2c 39 35 30 2c 31 30 30 2c 38 29 0d 03 20 0b f2 |,950,100,8).. ..|
00000570 5f 53 43 41 4c 45 0d 03 2a 05 e1 0d 03 34 04 0d |_SCALE..*....4..|
00000580 03 3e 11 dd 20 f2 5f 50 43 28 54 24 2c 58 25 29 |.>.. ._PC(T$,X%)|
00000590 0d 03 48 08 ea 20 41 25 0d 03 52 11 41 25 3d 34 |..H.. A%..R.A%=4|
000005a0 30 2d a9 28 54 24 29 2f 32 0d 03 5c 0e f1 8a 41 |0-.(T$)/2..\...A|
000005b0 25 2c 58 25 29 54 24 0d 03 66 05 e1 0d 03 70 04 |%,X%)T$..f....p.|
000005c0 0d 03 7a 11 dd 20 f2 5f 50 4c 28 54 24 2c 58 25 |..z.. ._PL(T$,X%|
000005d0 29 0d 03 84 08 ea 20 41 25 0d 03 8e 13 ef 20 32 |)..... A%..... 2|
000005e0 33 2c 31 2c 30 3b 30 3b 30 3b 30 3b 0d 03 98 11 |3,1,0;0;0;0;....|
000005f0 41 25 3d 32 30 2d a9 28 54 24 29 2f 32 0d 03 a2 |A%=20-.(T$)/2...|
00000600 0f f1 8a 41 25 2c 58 25 29 54 24 3b 0d 03 ac 05 |...A%,X%)T$;....|
00000610 e1 0d 03 b6 04 0d 03 c0 0d dd 20 f2 5f 49 6e 69 |.......... ._Ini|
00000620 74 53 0d 03 ca 0c ea 20 41 25 2c 44 46 25 0d 03 |tS..... A%,DF%..|
00000630 d4 21 44 46 25 3d 8e 28 22 3c 4f 5a 4f 4e 45 24 |.!DF%=.("<OZONE$|
00000640 44 49 52 3e 2e 54 4f 4d 53 5f 44 41 54 22 29 0d |DIR>.TOMS_DAT").|
00000650 03 de 1d e8 23 44 46 25 2c 53 46 4e 24 2c 4d 58 |....#DF%,SFN$,MX|
00000660 44 25 2c 4d 4e 44 25 2c 4e 46 52 25 0d 03 e8 0b |D%,MND%,NFR%....|
00000670 4e 46 52 25 2b 3d 31 0d 03 f2 11 e3 20 41 25 3d |NFR%+=1..... A%=|
00000680 31 20 b8 20 4e 46 52 25 0d 03 fc 11 e8 23 44 46 |1 . NFR%.....#DF|
00000690 25 2c 46 54 24 28 41 25 29 0d 04 06 05 ed 0d 04 |%,FT$(A%).......|
000006a0 10 0a d9 20 23 44 46 25 0d 04 1a 12 53 50 42 4b |... #DF%....SPBK|
000006b0 25 21 30 3d 53 53 49 5a 45 25 0d 04 24 0e 53 50 |%!0=SSIZE%..$.SP|
000006c0 42 4b 25 21 38 3d 31 36 0d 04 2e 20 c8 99 20 22 |BK%!8=16... .. "|
000006d0 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 39 2b 35 |OS_SpriteOp",9+5|
000006e0 31 32 2c 53 50 42 4b 25 0d 04 38 1c 53 46 4e 24 |12,SPBK%..8.SFN$|
000006f0 3d 22 3c 4f 5a 4f 4e 45 24 44 49 52 3e 2e 22 2b |="<OZONE$DIR>."+|
00000700 53 46 4e 24 0d 04 42 26 c8 99 20 22 4f 53 5f 53 |SFN$..B&.. "OS_S|
00000710 70 72 69 74 65 4f 70 22 2c 31 30 2b 35 31 32 2c |priteOp",10+512,|
00000720 53 50 42 4b 25 2c 53 46 4e 24 0d 04 4c 24 53 53 |SPBK%,SFN$..L$SS|
00000730 25 21 30 3d 32 3a 53 53 25 21 34 3d 31 3a 53 53 |%!0=2:SS%!4=1:SS|
00000740 25 21 38 3d 31 3a 53 53 25 21 31 32 3d 31 0d 04 |%!8=1:SS%!12=1..|
00000750 56 05 e1 0d 04 60 04 0d 04 6a 0d dd 20 f2 5f 4c |V....`...j.. ._L|
00000760 45 56 45 4c 0d 04 74 11 ea 20 58 25 2c 59 25 2c |EVEL..t.. X%,Y%,|
00000770 42 25 2c 43 25 0d 04 7e 0f c8 97 20 58 25 2c 59 |B%,C%..~... X%,Y|
00000780 25 2c 42 25 0d 04 88 0e e7 20 59 25 3e 31 35 30 |%,B%..... Y%>150|
00000790 20 8c 0d 04 92 0e 43 25 3d b0 58 25 2c 59 25 29 | .....C%=.X%,Y%)|
000007a0 0d 04 9c 14 e7 20 43 25 3e 30 20 80 20 43 25 3c |..... C%>0 . C%<|
000007b0 31 35 20 8c 0d 04 a6 1e e7 20 4c 43 25 3c 3e 43 |15 ...... LC%<>C|
000007c0 25 20 8c 20 f2 5f 50 4f 49 4e 54 28 30 2c 4c 43 |% . ._POINT(0,LC|
000007d0 25 29 0d 04 b0 19 f2 5f 50 4f 49 4e 54 28 31 35 |%)....._POINT(15|
000007e0 2c 43 25 29 3a 4c 43 25 3d 43 25 0d 04 ba 05 cc |,C%):LC%=C%.....|
000007f0 0d 04 c4 12 f2 5f 50 4f 49 4e 54 28 30 2c 4c 43 |....._POINT(0,LC|
00000800 25 29 0d 04 ce 05 cd 0d 04 d8 05 cc 0d 04 e2 12 |%)..............|
00000810 f2 5f 50 4f 49 4e 54 28 30 2c 4c 43 25 29 0d 04 |._POINT(0,LC%)..|
00000820 ec 05 cd 0d 04 f6 05 e1 0d 05 00 04 0d 05 0a 14 |................|
00000830 dd 20 f2 5f 50 4f 49 4e 54 28 43 25 2c 50 25 29 |. ._POINT(C%,P%)|
00000840 0d 05 14 07 ef 20 35 0d 05 1e 0a e6 20 30 2c 43 |..... 5..... 0,C|
00000850 25 0d 05 28 13 ec 20 38 35 30 2c 35 30 2a 50 25 |%..(.. 850,50*P%|
00000860 2b 31 39 30 0d 05 32 09 f1 22 2d 3e 22 0d 05 3c |+190..2.."->"..<|
00000870 07 ef 20 34 0d 05 46 05 e1 0d 05 50 04 0d 05 5a |.. 4..F....P...Z|
00000880 18 dd 20 f2 5f 42 55 54 28 41 24 2c 58 25 2c 59 |.. ._BUT(A$,X%,Y|
00000890 25 2c 4e 25 29 0d 05 64 11 ea 20 50 58 25 2c 50 |%,N%)..d.. PX%,P|
000008a0 59 25 2c 4c 58 25 0d 05 6e 14 4c 58 25 3d 28 a9 |Y%,LX%..n.LX%=(.|
000008b0 28 41 24 29 2b 32 29 2a 31 36 0d 05 78 17 50 58 |(A$)+2)*16..x.PX|
000008c0 25 3d 58 25 2d 31 36 3a 50 59 25 3d 59 25 2d 34 |%=X%-16:PY%=Y%-4|
000008d0 38 0d 05 82 0c e6 20 30 2c 4e 25 2d 31 0d 05 8c |8..... 0,N%-1...|
000008e0 13 ec 20 50 58 25 2d 32 36 2c 50 59 25 2d 33 32 |.. PX%-26,PY%-32|
000008f0 0d 05 96 10 f0 20 30 2c 4c 58 25 2b 35 30 2c 30 |..... 0,LX%+50,0|
00000900 0d 05 a0 0d f0 20 38 31 2c 30 2c 39 36 0d 05 aa |..... 81,0,96...|
00000910 0a e6 20 30 2c 4e 25 0d 05 b4 13 ec 20 50 58 25 |.. 0,N%..... PX%|
00000920 2d 32 36 2c 50 59 25 2d 33 32 0d 05 be 0c f0 20 |-26,PY%-32..... |
00000930 30 2c 30 2c 39 36 0d 05 c8 11 f0 20 38 31 2c 4c |0,0,96..... 81,L|
00000940 58 25 2b 35 30 2c 30 0d 05 d2 0c e6 20 30 2c 4e |X%+50,0..... 0,N|
00000950 25 2b 31 0d 05 dc 1b c8 93 20 c8 90 20 50 58 25 |%+1...... .. PX%|
00000960 2c 50 59 25 2d 31 36 2c 4c 58 25 2c 36 34 0d 05 |,PY%-16,LX%,64..|
00000970 e6 09 e6 20 30 2c 30 0d 05 f0 0e ec 20 58 25 2c |... 0,0..... X%,|
00000980 59 25 2d 31 36 0d 05 fa 06 ef 35 0d 06 04 07 f1 |Y%-16.....5.....|
00000990 41 24 0d 06 0e 06 ef 34 0d 06 18 21 f4 20 52 45 |A$.....4...!. RE|
000009a0 43 54 41 4e 47 4c 45 20 50 58 25 2c 50 59 25 2d |CTANGLE PX%,PY%-|
000009b0 31 36 2c 4c 58 25 2c 36 34 0d 06 22 05 e1 0d 06 |16,LX%,64.."....|
000009c0 2c 04 0d 06 36 0d dd 20 f2 5f 53 43 41 4c 45 0d |,...6.. ._SCALE.|
000009d0 06 40 24 f4 20 53 43 41 4c 45 20 4d 41 58 20 41 |.@$. SCALE MAX A|
000009e0 4e 44 20 4d 49 4e 20 44 4f 42 53 4f 4e 20 55 4e |ND MIN DOBSON UN|
000009f0 49 54 53 0d 06 4a 16 44 49 25 3d 28 4d 58 44 25 |ITS..J.DI%=(MXD%|
00000a00 2d 4d 4e 44 25 29 2f 31 34 0d 06 54 1a 6d 4e 3d |-MND%)/14..T.mN=|
00000a10 28 4d 4e 44 25 2f 33 2e 31 34 32 38 35 37 31 29 |(MND%/3.1428571)|
00000a20 2d 31 36 0d 06 5e 1a 4d 4e 3d 28 4d 58 44 25 2f |-16..^.MN=(MXD%/|
00000a30 33 2e 31 34 32 38 35 37 31 29 2d 31 36 0d 06 68 |3.1428571)-16..h|
00000a40 11 52 47 3d 28 4d 4e 2d 6d 4e 29 2f 31 34 0d 06 |.RG=(MN-mN)/14..|
00000a50 72 0b f2 5f 55 4e 49 54 53 0d 06 7c 05 e1 0d 06 |r.._UNITS..|....|
00000a60 86 04 0d 06 90 0d dd 20 f2 5f 55 4e 49 54 53 0d |....... ._UNITS.|
00000a70 06 9a 0f ea 20 59 25 2c 52 53 25 2c 41 25 0d 06 |.... Y%,RS%,A%..|
00000a80 a4 07 ef 20 35 0d 06 ae 0a 59 25 3d 32 30 30 0d |... 5....Y%=200.|
00000a90 06 b8 0a 52 53 25 3d 35 30 0d 06 c2 0f e3 20 41 |...RS%=50..... A|
00000aa0 25 3d 30 20 b8 20 31 33 0d 06 cc 0c e6 20 30 2c |%=0 . 13..... 0,|
00000ab0 41 25 2b 31 0d 06 d6 17 c8 93 c8 90 20 39 30 30 |A%+1........ 900|
00000ac0 2c 59 25 2c 52 53 25 2c 52 53 25 0d 06 e0 0a e6 |,Y%,RS%,RS%.....|
00000ad0 20 30 2c 31 35 0d 06 ea 15 c8 93 20 39 30 30 2c | 0,15...... 900,|
00000ae0 59 25 2c 52 53 25 2c 52 53 25 0d 06 f4 0b 59 25 |Y%,RS%,RS%....Y%|
00000af0 2b 3d 52 53 25 0d 06 fe 16 ec 20 39 30 30 2b 52 |+=RS%..... 900+R|
00000b00 53 25 2b 33 32 2c 59 25 2d 31 36 0d 07 08 18 f1 |S%+32,Y%-16.....|
00000b10 20 3b 4d 4e 44 25 2b 44 49 25 2a 41 25 3b 22 20 | ;MND%+DI%*A%;" |
00000b20 44 55 22 0d 07 12 05 ed 0d 07 1c 07 ef 20 34 0d |DU".......... 4.|
00000b30 07 26 05 e1 0d 07 30 04 0d 07 3a 0c dd 20 f2 5f |.&....0...:.. ._|
00000b40 50 41 4c 4c 0d 07 44 04 0d 07 4e 16 ef 31 39 2c |PALL..D...N..19,|
00000b50 31 2c 31 36 2c 32 35 35 2c 30 2c 32 35 35 0d 07 |1,16,255,0,255..|
00000b60 58 16 ef 31 39 2c 32 2c 31 36 2c 31 32 38 2c 30 |X..19,2,16,128,0|
00000b70 2c 32 35 35 0d 07 62 15 ef 31 39 2c 33 2c 31 36 |,255..b..19,3,16|
00000b80 2c 30 2c 36 34 2c 32 32 33 0d 07 6c 05 3a 0d 07 |,0,64,223..l.:..|
00000b90 76 16 ef 31 39 2c 34 2c 31 36 2c 30 2c 31 32 38 |v..19,4,16,0,128|
00000ba0 2c 32 35 35 0d 07 80 16 ef 31 39 2c 35 2c 31 36 |,255.....19,5,16|
00000bb0 2c 30 2c 32 33 39 2c 32 35 35 0d 07 8a 16 ef 31 |,0,239,255.....1|
00000bc0 39 2c 36 2c 31 36 2c 30 2c 32 35 35 2c 31 39 37 |9,6,16,0,255,197|
00000bd0 0d 07 94 05 3a 0d 07 9e 16 ef 31 39 2c 37 2c 31 |....:.....19,7,1|
00000be0 36 2c 30 2c 32 32 33 2c 31 31 36 0d 07 a8 15 ef |6,0,223,116.....|
00000bf0 31 39 2c 38 2c 31 36 2c 30 2c 32 33 39 2c 33 32 |19,8,16,0,239,32|
00000c00 0d 07 b2 15 ef 31 39 2c 39 2c 31 36 2c 38 30 2c |.....19,9,16,80,|
00000c10 32 35 35 2c 30 0d 07 bc 05 3a 0d 07 c6 17 ef 31 |255,0....:.....1|
00000c20 39 2c 31 30 2c 31 36 2c 32 30 30 2c 32 35 35 2c |9,10,16,200,255,|
00000c30 30 0d 07 d0 17 ef 31 39 2c 31 31 2c 31 36 2c 32 |0.....19,11,16,2|
00000c40 35 35 2c 32 33 39 2c 30 0d 07 da 17 ef 31 39 2c |55,239,0.....19,|
00000c50 31 32 2c 31 36 2c 32 35 35 2c 31 36 37 2c 30 0d |12,16,255,167,0.|
00000c60 07 e4 05 3a 0d 07 ee 16 ef 31 39 2c 31 33 2c 31 |...:.....19,13,1|
00000c70 36 2c 32 32 33 2c 38 30 2c 30 0d 07 f8 15 ef 31 |6,223,80,0.....1|
00000c80 39 2c 31 34 2c 31 36 2c 32 35 35 2c 30 2c 30 0d |9,14,16,255,0,0.|
00000c90 08 02 19 ef 31 39 2c 31 35 2c 31 36 2c 32 35 35 |....19,15,16,255|
00000ca0 2c 32 35 35 2c 32 35 35 0d 08 0c 04 0d 08 16 05 |,255,255........|
00000cb0 e1 0d ff |...|
00000cb3 
.