12-03-89/ArcOver

Home » CEEFAX disks » telesoftware14.adl » 12-03-89/ArcOver

12-03-89/ArcOver

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 » CEEFAX disks » telesoftware14.adl
Filename:	12-03-89/ArcOver
Read OK:	✔
File size:	0D11 bytes
Load address:	FFFFFB41
Exec address:	877F102A

File contents

   10REM > ArcDisOver  (C) BBC tv and Peter Vince  7/3/89
   20REM Weather Satellite image display and overlay program for Archimedes
   30 
   40REM Ensure there is room on disc for final image
   50*CREATE"a" A0B8
   60*DELETE"a"
   70 
   80ON ERROR ON ERROR OFF:PRINTTAB(0,28);:REPORT:GOTO580
   90DIM Z% 360
  100 
  110MODE 14
  120*CAT
  130INPUT'"Enter name of file to be drawn ";infyl$
  140S%=OPENINinfyl$
  150IF S%=0 THEN PRINT"Data file """;infyl$;""" not found.";CHR$7:END
  160 
  170PTR#S%=2
  180IF BGET#S%<3 OR BGET#S%-&84 OR BGET#S%-16 THEN format=FALSE ELSE format=TRUE
  190width=BGET#S% + BGET#S%*256
  200height=BGET#S% + BGET#S%*256
  210IF (width=276 AND height=200) OR (width=320 AND height=256) OR (width=360 AND height=288) THEN size=TRUE ELSE size=FALSE
  220PTR#S%=17
  230IF format=FALSE OR size=FALSE OR (BGET#S%AND7)-3 THEN PRINT'"Data using incompatible format -"'"cannot decode."';CHR$7:CLOSE#S%:END
  240 
  250message%=BGET#S%
  260IF message% AND 1 THEN ident$=FNgetstring  ELSE GOTO290
  270IF message% AND 16 THEN PRINT'new$
  280 
  290creditflag%=BGET#S%
  300IF creditflag% AND 1 THEN credit$=FNgetstring  ELSE credit$="" : GOTO330
  310IF creditflag% AND 16 THEN PRINT'new$
  320 
  330IF ((message% OR creditflag%) AND 16) = 0 THEN 370
  340PRINT'"Press the Space-Bar to continue...";
  350REPEAT UNTIL GET=32
  360 
  370MODE9
  380VDU23,1,0;0;0;0;
  390COLOUR 132:CLS
  400IF (width=276 AND height=200) THEN window=TRUE ELSE window=FALSE : GOTO430
  410VDU 24,72;96;1207;927; :GCOL0,140:CLG
  420VDU 24,88;112;1191;911;:GCOL0,132:CLG:VDU26
  430PROCheader
  440PTR#S%=0 : PTR#S% = BGET#S% + BGET#S%*256
  450 
  460FOR V% = (0-window*112) TO (1020+window*112) STEP 4
  470MOVE (1280+window*88),V%
  480PROCfill
  490FOR I%=P% TO (360+window*80):Z%?I%=C%:NEXT
  500IF overlay THEN PROClinemap : GOTO 520
  510IF L% THEN PROClineover ELSE PROClinegrey
  520NEXT
  530 
  540OSCLI("SCREENSAVE "+outfyl$)
  550COLOUR 12
  560PRINTTAB(1,30)" Saved as ";outfyl$;TAB(39);
  570IF window THEN PRINTTAB(39);
  580VDU23,1,1;0;0;0; 31,0,31
  590CLOSE#0
  600END
  610 
  620DEFPROClinemap
  630FOR P%=0 TO (319+window*44)
  640C%=Z%?P%
  650GCOL0,C%DIV8+(C%AND4)*2
  660PLOT65,-4,0
  670NEXT
  680ENDPROC
  690 
  700DEFPROClineover
  710FOR P%=0 TO (319+window*44)
  720C%=Z%?P%
  730IF C%<2 THEN PLOT64,-4,0 ELSE GCOL0,C% : PLOT65,-4,0
  740NEXT
  750ENDPROC
  760 
  770DEFPROClinegrey
  780FOR P%=0 TO (319+window*44)
  790GCOL0,Z%?P%
  800PLOT65,-4,0
  810NEXT
  820ENDPROC
  830 
  840DEFPROCfill
  850B%=&FF:P%=0
  860REPEAT
  870O%=B%
  880B%=BGET#S%
  890C%=B%AND15
  900W%=B%DIV16
  910IF C%=O% THEN UNTIL TRUE : ENDPROC
  920IF W%=15 THEN W%=BGET#S%+15 : IF W%=270 THEN W%=BGET#S%+270
  930FOR P%=P% TO P%+W% : Z%?P%=C% : NEXT
  940UNTIL FALSE
  950 
  960DEFPROCheader
  970GCOL0,12:GCOL0,132
  980source$=FNgetstring
  990rad%=BGET#S%
 1000date$=FNgetstring
 1010time$=FNgetstring
 1020jd$=FNgetstring
 1030B%=BGET#S% : area=B% AND &7F : overlay=B% AND &80
 1040 
 1050IF jd$="" THEN outfyl$="NODATE" ELSE outfyl$=LEFT$(jd$,7)+MID$(jd$,9,2)
 1060IF area>0 AND area<5 THEN prefix$=MID$("waeb",area,1) ELSE prefix$="?"
 1070outfyl$=prefix$+outfyl$
 1080 
 1090IF overlay THEN outfyl$="LandMas"+LEFT$(infyl$,3) : L%=0 : GOTO 1140
 1100 
 1110L%=OPENIN("LandMas"+MID$(infyl$,4,3))
 1120IF L% THEN CLOSE#L% : OSCLI("SCREENLOAD LandMas"+MID$(infyl$,4,3)) : IF window THEN COLOUR 132 : PRINTTAB(0,30);SPC(40);
 1130 
 1140IF (message%AND12)=0 THEN 1240
 1150IF (message%AND3)<>3 THEN title$=source$ ELSE title$=ident$
 1160IF message%AND2 THEN 1210
 1170 
 1180IF rad%>0 AND rad%<5 THEN title$=title$+" "+MID$(" IRVZWVRD",rad%*2,2)
 1190IF date$<>"" THEN title$=title$+"  "+LEFT$(date$,2)+"/"+MID$(date$,3,2)+"/"+MID$(date$,5)
 1200IF time$<>"" THEN title$=title$+" "+LEFT$(time$,2)+":"+MID$(time$,3)
 1210MOVE 640-LEN(title$)*16,924+window*864
 1220VDU 5 : PRINT title$
 1230 
 1240IF credit$="" OR (creditflag%AND7)<>7 THEN 1280
 1250MOVE 640-LEN(credit$)*16,988
 1260VDU 5 : PRINT credit$
 1270 
 1280PTR#S%=PTR#S%+33 : REM Skip projection, mapping, and source grey scale
 1290IF L% THEN PTR#S%=PTR#S%+6 : FOR I%=2 TO 15 : ELSE FOR I%=0 TO 15
 1300COLOUR I%,BGET#S%,BGET#S%,BGET#S%
 1310NEXT
 1320VDU 4, 23,1,0;0;0;0;
 1330ENDPROC
 1340 
 1350DEFFNgetstring
 1360new$=""
 1370REPEAT
 1380C%=BGET#S%
 1390IF C% THEN new$=new$+CHR$C%
 1400UNTIL C%=0
 1410=new$


6� > ArcDisOver  (C) BBC tv and Peter Vince  7/3/89
H� Weather Satellite image display and overlay program for Archimedes
 
(2� Ensure there is room on disc for final image
2*CREATE"a" A0B8
<*DELETE"a"
F 
P� � � � �:�0,28);:�:�DDB
Z� Z% 360
d 
n� 14
x*CAT
�.�'"Enter name of file to be drawn ";infyl$
�S%=�infyl$
�8� S%=0 � �"Data file """;infyl$;""" not found.";�7:�
� 
�
�#S%=2
�7� �#S%<3 � �#S%-&84 � �#S%-16 � format=� � format=�
�width=�#S% + �#S%*256
�height=�#S% + �#S%*256
�f� (width=276 � height=200) � (width=320 � height=256) � (width=360 � height=288) � size=� � size=�
��#S%=17
�g� format=� � size=� � (�#S%�7)-3 � �'"Data using incompatible format -"'"cannot decode."';�7:�#S%:�
� 
�message%=�#S%
/� message% � 1 � ident$=�getstring  � �TbA
� message% � 16 � �'new$
 
"creditflag%=�#S%
,@� creditflag% � 1 � credit$=�getstring  � credit$="" : �DJA
6� creditflag% � 16 � �'new$
@ 
J0� ((message% � creditflag%) � 16) = 0 � �DrA
T+�'"Press the Space-Bar to continue...";
^� � �=32
h 
r�9
|�23,1,0;0;0;0;
�� 132:�
�<� (width=276 � height=200) � window=� � window=� : �tnA
�"� 24,72;96;1207;927; :�0,140:�
�&� 24,88;112;1191;911;:�0,132:�:�26
��header
�#�#S%=0 : �#S% = �#S% + �#S%*256
� 
�1� V% = (0-window*112) � (1020+window*112) � 4
�� (1280+window*88),V%
�	�fill
�(� I%=P% � (360+window*80):Z%?I%=C%:�
�!� overlay � �linemap : � �THB
� � L% � �lineover � �linegrey
�
 
�("SCREENSAVE "+outfyl$)
&� 12
0%�1,30)" Saved as ";outfyl$;�39);
:� window � �39);
D�23,1,1;0;0;0; 31,0,31
N�#0
X�
b 
l
��linemap
v� P%=0 � (319+window*44)
�C%=Z%?P%
��0,C%�8+(C%�4)*2
��65,-4,0
��
��
� 
���lineover
�� P%=0 � (319+window*44)
�C%=Z%?P%
�(� C%<2 � �64,-4,0 � �0,C% : �65,-4,0
��
��
� 
��linegrey
� P%=0 � (319+window*44)
�0,Z%?P%
 �65,-4,0
*�
4�
> 
H
��fill
RB%=&FF:P%=0
\�
f	O%=B%
pB%=�#S%
zC%=B%�15
�W%=B%�16
�� C%=O% � � � : �
�1� W%=15 � W%=�#S%+15 : � W%=270 � W%=�#S%+270
�"� P%=P% � P%+W% : Z%?P%=C% : �
�� �
� 
���header
��0,12:�0,132
�source$=�getstring
�
rad%=�#S%
�date$=�getstring
�time$=�getstring
�jd$=�getstring
.B%=�#S% : area=B% � &7F : overlay=B% � &80
 
;� jd$="" � outfyl$="NODATE" � outfyl$=�jd$,7)+�jd$,9,2)
$=� area>0 � area<5 � prefix$=�"waeb",area,1) � prefix$="?"
.outfyl$=prefix$+outfyl$
8 
B<� overlay � outfyl$="LandMas"+�infyl$,3) : L%=0 : � �DtD
L 
V L%=�("LandMas"+�infyl$,4,3))
`Z� L% � �#L% : �("SCREENLOAD LandMas"+�infyl$,4,3)) : � window � � 132 : �0,30);�(40);
j 
t� (message%�12)=0 � �dXD
~6� (message%�3)<>3 � title$=source$ � title$=ident$
�� message%�2 � �tzD
� 
�@� rad%>0 � rad%<5 � title$=title$+" "+�" IRVZWVRD",rad%*2,2)
�L� date$<>"" � title$=title$+"  "+�date$,2)+"/"+�date$,3,2)+"/"+�date$,5)
�;� time$<>"" � title$=title$+" "+�time$,2)+":"+�time$,3)
�%� 640-�(title$)*16,924+window*864
�� 5 : � title$
� 
�,� credit$="" � (creditflag%�7)<>7 � �T@E
�� 640-�(credit$)*16,988
�� 5 : � credit$
� 
D�#S%=�#S%+33 : � Skip projection, mapping, and source grey scale

4� L% � �#S%=�#S%+6 : � I%=2 � 15 : � � I%=0 � 15
� I%,�#S%,�#S%,�#S%
�
(� 4, 23,1,0;0;0;0;
2�
< 
Fݤgetstring
Pnew$=""
Z�
dC%=�#S%
n� C% � new$=new$+�C%
x
� C%=0
�	=new$
�

00000000  0d 00 0a 36 f4 20 3e 20  41 72 63 44 69 73 4f 76  |...6. > ArcDisOv|
00000010  65 72 20 20 28 43 29 20  42 42 43 20 74 76 20 61  |er  (C) BBC tv a|
00000020  6e 64 20 50 65 74 65 72  20 56 69 6e 63 65 20 20  |nd Peter Vince  |
00000030  37 2f 33 2f 38 39 0d 00  14 48 f4 20 57 65 61 74  |7/3/89...H. Weat|
00000040  68 65 72 20 53 61 74 65  6c 6c 69 74 65 20 69 6d  |her Satellite im|
00000050  61 67 65 20 64 69 73 70  6c 61 79 20 61 6e 64 20  |age display and |
00000060  6f 76 65 72 6c 61 79 20  70 72 6f 67 72 61 6d 20  |overlay program |
00000070  66 6f 72 20 41 72 63 68  69 6d 65 64 65 73 0d 00  |for Archimedes..|
00000080  1e 05 20 0d 00 28 32 f4  20 45 6e 73 75 72 65 20  |.. ..(2. Ensure |
00000090  74 68 65 72 65 20 69 73  20 72 6f 6f 6d 20 6f 6e  |there is room on|
000000a0  20 64 69 73 63 20 66 6f  72 20 66 69 6e 61 6c 20  | disc for final |
000000b0  69 6d 61 67 65 0d 00 32  13 2a 43 52 45 41 54 45  |image..2.*CREATE|
000000c0  22 61 22 20 41 30 42 38  0d 00 3c 0e 2a 44 45 4c  |"a" A0B8..<.*DEL|
000000d0  45 54 45 22 61 22 0d 00  46 05 20 0d 00 50 1e ee  |ETE"a"..F. ..P..|
000000e0  20 85 20 ee 20 85 20 87  3a f1 8a 30 2c 32 38 29  | . . . .:..0,28)|
000000f0  3b 3a f6 3a e5 8d 44 44  42 0d 00 5a 0c de 20 5a  |;:.:..DDB..Z.. Z|
00000100  25 20 33 36 30 0d 00 64  05 20 0d 00 6e 08 eb 20  |% 360..d. ..n.. |
00000110  31 34 0d 00 78 08 2a 43  41 54 0d 00 82 2e e8 27  |14..x.*CAT.....'|
00000120  22 45 6e 74 65 72 20 6e  61 6d 65 20 6f 66 20 66  |"Enter name of f|
00000130  69 6c 65 20 74 6f 20 62  65 20 64 72 61 77 6e 20  |ile to be drawn |
00000140  22 3b 69 6e 66 79 6c 24  0d 00 8c 0e 53 25 3d 8e  |";infyl$....S%=.|
00000150  69 6e 66 79 6c 24 0d 00  96 38 e7 20 53 25 3d 30  |infyl$...8. S%=0|
00000160  20 8c 20 f1 22 44 61 74  61 20 66 69 6c 65 20 22  | . ."Data file "|
00000170  22 22 3b 69 6e 66 79 6c  24 3b 22 22 22 20 6e 6f  |"";infyl$;""" no|
00000180  74 20 66 6f 75 6e 64 2e  22 3b bd 37 3a e0 0d 00  |t found.";.7:...|
00000190  a0 05 20 0d 00 aa 0a cf  23 53 25 3d 32 0d 00 b4  |.. .....#S%=2...|
000001a0  37 e7 20 9a 23 53 25 3c  33 20 84 20 9a 23 53 25  |7. .#S%<3 . .#S%|
000001b0  2d 26 38 34 20 84 20 9a  23 53 25 2d 31 36 20 8c  |-&84 . .#S%-16 .|
000001c0  20 66 6f 72 6d 61 74 3d  a3 20 8b 20 66 6f 72 6d  | format=. . form|
000001d0  61 74 3d b9 0d 00 be 19  77 69 64 74 68 3d 9a 23  |at=.....width=.#|
000001e0  53 25 20 2b 20 9a 23 53  25 2a 32 35 36 0d 00 c8  |S% + .#S%*256...|
000001f0  1a 68 65 69 67 68 74 3d  9a 23 53 25 20 2b 20 9a  |.height=.#S% + .|
00000200  23 53 25 2a 32 35 36 0d  00 d2 66 e7 20 28 77 69  |#S%*256...f. (wi|
00000210  64 74 68 3d 32 37 36 20  80 20 68 65 69 67 68 74  |dth=276 . height|
00000220  3d 32 30 30 29 20 84 20  28 77 69 64 74 68 3d 33  |=200) . (width=3|
00000230  32 30 20 80 20 68 65 69  67 68 74 3d 32 35 36 29  |20 . height=256)|
00000240  20 84 20 28 77 69 64 74  68 3d 33 36 30 20 80 20  | . (width=360 . |
00000250  68 65 69 67 68 74 3d 32  38 38 29 20 8c 20 73 69  |height=288) . si|
00000260  7a 65 3d b9 20 8b 20 73  69 7a 65 3d a3 0d 00 dc  |ze=. . size=....|
00000270  0b cf 23 53 25 3d 31 37  0d 00 e6 67 e7 20 66 6f  |..#S%=17...g. fo|
00000280  72 6d 61 74 3d a3 20 84  20 73 69 7a 65 3d a3 20  |rmat=. . size=. |
00000290  84 20 28 9a 23 53 25 80  37 29 2d 33 20 8c 20 f1  |. (.#S%.7)-3 . .|
000002a0  27 22 44 61 74 61 20 75  73 69 6e 67 20 69 6e 63  |'"Data using inc|
000002b0  6f 6d 70 61 74 69 62 6c  65 20 66 6f 72 6d 61 74  |ompatible format|
000002c0  20 2d 22 27 22 63 61 6e  6e 6f 74 20 64 65 63 6f  | -"'"cannot deco|
000002d0  64 65 2e 22 27 3b bd 37  3a d9 23 53 25 3a e0 0d  |de."';.7:.#S%:..|
000002e0  00 f0 05 20 0d 00 fa 11  6d 65 73 73 61 67 65 25  |... ....message%|
000002f0  3d 9a 23 53 25 0d 01 04  2f e7 20 6d 65 73 73 61  |=.#S%.../. messa|
00000300  67 65 25 20 80 20 31 20  8c 20 69 64 65 6e 74 24  |ge% . 1 . ident$|
00000310  3d a4 67 65 74 73 74 72  69 6e 67 20 20 8b 20 e5  |=.getstring  . .|
00000320  8d 54 62 41 0d 01 0e 1c  e7 20 6d 65 73 73 61 67  |.TbA..... messag|
00000330  65 25 20 80 20 31 36 20  8c 20 f1 27 6e 65 77 24  |e% . 16 . .'new$|
00000340  0d 01 18 05 20 0d 01 22  14 63 72 65 64 69 74 66  |.... ..".creditf|
00000350  6c 61 67 25 3d 9a 23 53  25 0d 01 2c 40 e7 20 63  |lag%=.#S%..,@. c|
00000360  72 65 64 69 74 66 6c 61  67 25 20 80 20 31 20 8c  |reditflag% . 1 .|
00000370  20 63 72 65 64 69 74 24  3d a4 67 65 74 73 74 72  | credit$=.getstr|
00000380  69 6e 67 20 20 8b 20 63  72 65 64 69 74 24 3d 22  |ing  . credit$="|
00000390  22 20 3a 20 e5 8d 44 4a  41 0d 01 36 1f e7 20 63  |" : ..DJA..6.. c|
000003a0  72 65 64 69 74 66 6c 61  67 25 20 80 20 31 36 20  |reditflag% . 16 |
000003b0  8c 20 f1 27 6e 65 77 24  0d 01 40 05 20 0d 01 4a  |. .'new$..@. ..J|
000003c0  30 e7 20 28 28 6d 65 73  73 61 67 65 25 20 84 20  |0. ((message% . |
000003d0  63 72 65 64 69 74 66 6c  61 67 25 29 20 80 20 31  |creditflag%) . 1|
000003e0  36 29 20 3d 20 30 20 8c  20 8d 44 72 41 0d 01 54  |6) = 0 . .DrA..T|
000003f0  2b f1 27 22 50 72 65 73  73 20 74 68 65 20 53 70  |+.'"Press the Sp|
00000400  61 63 65 2d 42 61 72 20  74 6f 20 63 6f 6e 74 69  |ace-Bar to conti|
00000410  6e 75 65 2e 2e 2e 22 3b  0d 01 5e 0c f5 20 fd 20  |nue...";..^.. . |
00000420  a5 3d 33 32 0d 01 68 05  20 0d 01 72 06 eb 39 0d  |.=32..h. ..r..9.|
00000430  01 7c 12 ef 32 33 2c 31  2c 30 3b 30 3b 30 3b 30  |.|..23,1,0;0;0;0|
00000440  3b 0d 01 86 0b fb 20 31  33 32 3a db 0d 01 90 3c  |;..... 132:....<|
00000450  e7 20 28 77 69 64 74 68  3d 32 37 36 20 80 20 68  |. (width=276 . h|
00000460  65 69 67 68 74 3d 32 30  30 29 20 8c 20 77 69 6e  |eight=200) . win|
00000470  64 6f 77 3d b9 20 8b 20  77 69 6e 64 6f 77 3d a3  |dow=. . window=.|
00000480  20 3a 20 e5 8d 74 6e 41  0d 01 9a 22 ef 20 32 34  | : ..tnA...". 24|
00000490  2c 37 32 3b 39 36 3b 31  32 30 37 3b 39 32 37 3b  |,72;96;1207;927;|
000004a0  20 3a e6 30 2c 31 34 30  3a da 0d 01 a4 26 ef 20  | :.0,140:....&. |
000004b0  32 34 2c 38 38 3b 31 31  32 3b 31 31 39 31 3b 39  |24,88;112;1191;9|
000004c0  31 31 3b 3a e6 30 2c 31  33 32 3a da 3a ef 32 36  |11;:.0,132:.:.26|
000004d0  0d 01 ae 0b f2 68 65 61  64 65 72 0d 01 b8 23 cf  |.....header...#.|
000004e0  23 53 25 3d 30 20 3a 20  cf 23 53 25 20 3d 20 9a  |#S%=0 : .#S% = .|
000004f0  23 53 25 20 2b 20 9a 23  53 25 2a 32 35 36 0d 01  |#S% + .#S%*256..|
00000500  c2 05 20 0d 01 cc 31 e3  20 56 25 20 3d 20 28 30  |.. ...1. V% = (0|
00000510  2d 77 69 6e 64 6f 77 2a  31 31 32 29 20 b8 20 28  |-window*112) . (|
00000520  31 30 32 30 2b 77 69 6e  64 6f 77 2a 31 31 32 29  |1020+window*112)|
00000530  20 88 20 34 0d 01 d6 19  ec 20 28 31 32 38 30 2b  | . 4..... (1280+|
00000540  77 69 6e 64 6f 77 2a 38  38 29 2c 56 25 0d 01 e0  |window*88),V%...|
00000550  09 f2 66 69 6c 6c 0d 01  ea 28 e3 20 49 25 3d 50  |..fill...(. I%=P|
00000560  25 20 b8 20 28 33 36 30  2b 77 69 6e 64 6f 77 2a  |% . (360+window*|
00000570  38 30 29 3a 5a 25 3f 49  25 3d 43 25 3a ed 0d 01  |80):Z%?I%=C%:...|
00000580  f4 21 e7 20 6f 76 65 72  6c 61 79 20 8c 20 f2 6c  |.!. overlay . .l|
00000590  69 6e 65 6d 61 70 20 3a  20 e5 20 8d 54 48 42 0d  |inemap : . .THB.|
000005a0  01 fe 20 e7 20 4c 25 20  8c 20 f2 6c 69 6e 65 6f  |.. . L% . .lineo|
000005b0  76 65 72 20 8b 20 f2 6c  69 6e 65 67 72 65 79 0d  |ver . .linegrey.|
000005c0  02 08 05 ed 0d 02 12 05  20 0d 02 1c 1c ff 28 22  |........ .....("|
000005d0  53 43 52 45 45 4e 53 41  56 45 20 22 2b 6f 75 74  |SCREENSAVE "+out|
000005e0  66 79 6c 24 29 0d 02 26  08 fb 20 31 32 0d 02 30  |fyl$)..&.. 12..0|
000005f0  25 f1 8a 31 2c 33 30 29  22 20 53 61 76 65 64 20  |%..1,30)" Saved |
00000600  61 73 20 22 3b 6f 75 74  66 79 6c 24 3b 8a 33 39  |as ";outfyl$;.39|
00000610  29 3b 0d 02 3a 15 e7 20  77 69 6e 64 6f 77 20 8c  |);..:.. window .|
00000620  20 f1 8a 33 39 29 3b 0d  02 44 1a ef 32 33 2c 31  | ..39);..D..23,1|
00000630  2c 31 3b 30 3b 30 3b 30  3b 20 33 31 2c 30 2c 33  |,1;0;0;0; 31,0,3|
00000640  31 0d 02 4e 07 d9 23 30  0d 02 58 05 e0 0d 02 62  |1..N..#0..X....b|
00000650  05 20 0d 02 6c 0d dd f2  6c 69 6e 65 6d 61 70 0d  |. ..l...linemap.|
00000660  02 76 1c e3 20 50 25 3d  30 20 b8 20 28 33 31 39  |.v.. P%=0 . (319|
00000670  2b 77 69 6e 64 6f 77 2a  34 34 29 0d 02 80 0c 43  |+window*44)....C|
00000680  25 3d 5a 25 3f 50 25 0d  02 8a 14 e6 30 2c 43 25  |%=Z%?P%.....0,C%|
00000690  81 38 2b 28 43 25 80 34  29 2a 32 0d 02 94 0c f0  |.8+(C%.4)*2.....|
000006a0  36 35 2c 2d 34 2c 30 0d  02 9e 05 ed 0d 02 a8 05  |65,-4,0.........|
000006b0  e1 0d 02 b2 05 20 0d 02  bc 0e dd f2 6c 69 6e 65  |..... ......line|
000006c0  6f 76 65 72 0d 02 c6 1c  e3 20 50 25 3d 30 20 b8  |over..... P%=0 .|
000006d0  20 28 33 31 39 2b 77 69  6e 64 6f 77 2a 34 34 29  | (319+window*44)|
000006e0  0d 02 d0 0c 43 25 3d 5a  25 3f 50 25 0d 02 da 28  |....C%=Z%?P%...(|
000006f0  e7 20 43 25 3c 32 20 8c  20 f0 36 34 2c 2d 34 2c  |. C%<2 . .64,-4,|
00000700  30 20 8b 20 e6 30 2c 43  25 20 3a 20 f0 36 35 2c  |0 . .0,C% : .65,|
00000710  2d 34 2c 30 0d 02 e4 05  ed 0d 02 ee 05 e1 0d 02  |-4,0............|
00000720  f8 05 20 0d 03 02 0e dd  f2 6c 69 6e 65 67 72 65  |.. ......linegre|
00000730  79 0d 03 0c 1c e3 20 50  25 3d 30 20 b8 20 28 33  |y..... P%=0 . (3|
00000740  31 39 2b 77 69 6e 64 6f  77 2a 34 34 29 0d 03 16  |19+window*44)...|
00000750  0c e6 30 2c 5a 25 3f 50  25 0d 03 20 0c f0 36 35  |..0,Z%?P%.. ..65|
00000760  2c 2d 34 2c 30 0d 03 2a  05 ed 0d 03 34 05 e1 0d  |,-4,0..*....4...|
00000770  03 3e 05 20 0d 03 48 0a  dd f2 66 69 6c 6c 0d 03  |.>. ..H...fill..|
00000780  52 0f 42 25 3d 26 46 46  3a 50 25 3d 30 0d 03 5c  |R.B%=&FF:P%=0..\|
00000790  05 f5 0d 03 66 09 4f 25  3d 42 25 0d 03 70 0b 42  |....f.O%=B%..p.B|
000007a0  25 3d 9a 23 53 25 0d 03  7a 0c 43 25 3d 42 25 80  |%=.#S%..z.C%=B%.|
000007b0  31 35 0d 03 84 0c 57 25  3d 42 25 81 31 36 0d 03  |15....W%=B%.16..|
000007c0  8e 15 e7 20 43 25 3d 4f  25 20 8c 20 fd 20 b9 20  |... C%=O% . . . |
000007d0  3a 20 e1 0d 03 98 31 e7  20 57 25 3d 31 35 20 8c  |: ....1. W%=15 .|
000007e0  20 57 25 3d 9a 23 53 25  2b 31 35 20 3a 20 e7 20  | W%=.#S%+15 : . |
000007f0  57 25 3d 32 37 30 20 8c  20 57 25 3d 9a 23 53 25  |W%=270 . W%=.#S%|
00000800  2b 32 37 30 0d 03 a2 22  e3 20 50 25 3d 50 25 20  |+270...". P%=P% |
00000810  b8 20 50 25 2b 57 25 20  3a 20 5a 25 3f 50 25 3d  |. P%+W% : Z%?P%=|
00000820  43 25 20 3a 20 ed 0d 03  ac 07 fd 20 a3 0d 03 b6  |C% : ...... ....|
00000830  05 20 0d 03 c0 0c dd f2  68 65 61 64 65 72 0d 03  |. ......header..|
00000840  ca 10 e6 30 2c 31 32 3a  e6 30 2c 31 33 32 0d 03  |...0,12:.0,132..|
00000850  d4 16 73 6f 75 72 63 65  24 3d a4 67 65 74 73 74  |..source$=.getst|
00000860  72 69 6e 67 0d 03 de 0d  72 61 64 25 3d 9a 23 53  |ring....rad%=.#S|
00000870  25 0d 03 e8 14 64 61 74  65 24 3d a4 67 65 74 73  |%....date$=.gets|
00000880  74 72 69 6e 67 0d 03 f2  14 74 69 6d 65 24 3d a4  |tring....time$=.|
00000890  67 65 74 73 74 72 69 6e  67 0d 03 fc 12 6a 64 24  |getstring....jd$|
000008a0  3d a4 67 65 74 73 74 72  69 6e 67 0d 04 06 2e 42  |=.getstring....B|
000008b0  25 3d 9a 23 53 25 20 3a  20 61 72 65 61 3d 42 25  |%=.#S% : area=B%|
000008c0  20 80 20 26 37 46 20 3a  20 6f 76 65 72 6c 61 79  | . &7F : overlay|
000008d0  3d 42 25 20 80 20 26 38  30 0d 04 10 05 20 0d 04  |=B% . &80.... ..|
000008e0  1a 3b e7 20 6a 64 24 3d  22 22 20 8c 20 6f 75 74  |.;. jd$="" . out|
000008f0  66 79 6c 24 3d 22 4e 4f  44 41 54 45 22 20 8b 20  |fyl$="NODATE" . |
00000900  6f 75 74 66 79 6c 24 3d  c0 6a 64 24 2c 37 29 2b  |outfyl$=.jd$,7)+|
00000910  c1 6a 64 24 2c 39 2c 32  29 0d 04 24 3d e7 20 61  |.jd$,9,2)..$=. a|
00000920  72 65 61 3e 30 20 80 20  61 72 65 61 3c 35 20 8c  |rea>0 . area<5 .|
00000930  20 70 72 65 66 69 78 24  3d c1 22 77 61 65 62 22  | prefix$=."waeb"|
00000940  2c 61 72 65 61 2c 31 29  20 8b 20 70 72 65 66 69  |,area,1) . prefi|
00000950  78 24 3d 22 3f 22 0d 04  2e 1b 6f 75 74 66 79 6c  |x$="?"....outfyl|
00000960  24 3d 70 72 65 66 69 78  24 2b 6f 75 74 66 79 6c  |$=prefix$+outfyl|
00000970  24 0d 04 38 05 20 0d 04  42 3c e7 20 6f 76 65 72  |$..8. ..B<. over|
00000980  6c 61 79 20 8c 20 6f 75  74 66 79 6c 24 3d 22 4c  |lay . outfyl$="L|
00000990  61 6e 64 4d 61 73 22 2b  c0 69 6e 66 79 6c 24 2c  |andMas"+.infyl$,|
000009a0  33 29 20 3a 20 4c 25 3d  30 20 3a 20 e5 20 8d 44  |3) : L%=0 : . .D|
000009b0  74 44 0d 04 4c 05 20 0d  04 56 20 4c 25 3d 8e 28  |tD..L. ..V L%=.(|
000009c0  22 4c 61 6e 64 4d 61 73  22 2b c1 69 6e 66 79 6c  |"LandMas"+.infyl|
000009d0  24 2c 34 2c 33 29 29 0d  04 60 5a e7 20 4c 25 20  |$,4,3))..`Z. L% |
000009e0  8c 20 d9 23 4c 25 20 3a  20 ff 28 22 53 43 52 45  |. .#L% : .("SCRE|
000009f0  45 4e 4c 4f 41 44 20 4c  61 6e 64 4d 61 73 22 2b  |ENLOAD LandMas"+|
00000a00  c1 69 6e 66 79 6c 24 2c  34 2c 33 29 29 20 3a 20  |.infyl$,4,3)) : |
00000a10  e7 20 77 69 6e 64 6f 77  20 8c 20 fb 20 31 33 32  |. window . . 132|
00000a20  20 3a 20 f1 8a 30 2c 33  30 29 3b 89 28 34 30 29  | : ..0,30);.(40)|
00000a30  3b 0d 04 6a 05 20 0d 04  74 1c e7 20 28 6d 65 73  |;..j. ..t.. (mes|
00000a40  73 61 67 65 25 80 31 32  29 3d 30 20 8c 20 8d 64  |sage%.12)=0 . .d|
00000a50  58 44 0d 04 7e 36 e7 20  28 6d 65 73 73 61 67 65  |XD..~6. (message|
00000a60  25 80 33 29 3c 3e 33 20  8c 20 74 69 74 6c 65 24  |%.3)<>3 . title$|
00000a70  3d 73 6f 75 72 63 65 24  20 8b 20 74 69 74 6c 65  |=source$ . title|
00000a80  24 3d 69 64 65 6e 74 24  0d 04 88 17 e7 20 6d 65  |$=ident$..... me|
00000a90  73 73 61 67 65 25 80 32  20 8c 20 8d 74 7a 44 0d  |ssage%.2 . .tzD.|
00000aa0  04 92 05 20 0d 04 9c 40  e7 20 72 61 64 25 3e 30  |... ...@. rad%>0|
00000ab0  20 80 20 72 61 64 25 3c  35 20 8c 20 74 69 74 6c  | . rad%<5 . titl|
00000ac0  65 24 3d 74 69 74 6c 65  24 2b 22 20 22 2b c1 22  |e$=title$+" "+."|
00000ad0  20 49 52 56 5a 57 56 52  44 22 2c 72 61 64 25 2a  | IRVZWVRD",rad%*|
00000ae0  32 2c 32 29 0d 04 a6 4c  e7 20 64 61 74 65 24 3c  |2,2)...L. date$<|
00000af0  3e 22 22 20 8c 20 74 69  74 6c 65 24 3d 74 69 74  |>"" . title$=tit|
00000b00  6c 65 24 2b 22 20 20 22  2b c0 64 61 74 65 24 2c  |le$+"  "+.date$,|
00000b10  32 29 2b 22 2f 22 2b c1  64 61 74 65 24 2c 33 2c  |2)+"/"+.date$,3,|
00000b20  32 29 2b 22 2f 22 2b c1  64 61 74 65 24 2c 35 29  |2)+"/"+.date$,5)|
00000b30  0d 04 b0 3b e7 20 74 69  6d 65 24 3c 3e 22 22 20  |...;. time$<>"" |
00000b40  8c 20 74 69 74 6c 65 24  3d 74 69 74 6c 65 24 2b  |. title$=title$+|
00000b50  22 20 22 2b c0 74 69 6d  65 24 2c 32 29 2b 22 3a  |" "+.time$,2)+":|
00000b60  22 2b c1 74 69 6d 65 24  2c 33 29 0d 04 ba 25 ec  |"+.time$,3)...%.|
00000b70  20 36 34 30 2d a9 28 74  69 74 6c 65 24 29 2a 31  | 640-.(title$)*1|
00000b80  36 2c 39 32 34 2b 77 69  6e 64 6f 77 2a 38 36 34  |6,924+window*864|
00000b90  0d 04 c4 12 ef 20 35 20  3a 20 f1 20 74 69 74 6c  |..... 5 : . titl|
00000ba0  65 24 0d 04 ce 05 20 0d  04 d8 2c e7 20 63 72 65  |e$.... ...,. cre|
00000bb0  64 69 74 24 3d 22 22 20  84 20 28 63 72 65 64 69  |dit$="" . (credi|
00000bc0  74 66 6c 61 67 25 80 37  29 3c 3e 37 20 8c 20 8d  |tflag%.7)<>7 . .|
00000bd0  54 40 45 0d 04 e2 1b ec  20 36 34 30 2d a9 28 63  |T@E..... 640-.(c|
00000be0  72 65 64 69 74 24 29 2a  31 36 2c 39 38 38 0d 04  |redit$)*16,988..|
00000bf0  ec 13 ef 20 35 20 3a 20  f1 20 63 72 65 64 69 74  |... 5 : . credit|
00000c00  24 0d 04 f6 05 20 0d 05  00 44 cf 23 53 25 3d 8f  |$.... ...D.#S%=.|
00000c10  23 53 25 2b 33 33 20 3a  20 f4 20 53 6b 69 70 20  |#S%+33 : . Skip |
00000c20  70 72 6f 6a 65 63 74 69  6f 6e 2c 20 6d 61 70 70  |projection, mapp|
00000c30  69 6e 67 2c 20 61 6e 64  20 73 6f 75 72 63 65 20  |ing, and source |
00000c40  67 72 65 79 20 73 63 61  6c 65 0d 05 0a 34 e7 20  |grey scale...4. |
00000c50  4c 25 20 8c 20 cf 23 53  25 3d 8f 23 53 25 2b 36  |L% . .#S%=.#S%+6|
00000c60  20 3a 20 e3 20 49 25 3d  32 20 b8 20 31 35 20 3a  | : . I%=2 . 15 :|
00000c70  20 8b 20 e3 20 49 25 3d  30 20 b8 20 31 35 0d 05  | . . I%=0 . 15..|
00000c80  14 17 fb 20 49 25 2c 9a  23 53 25 2c 9a 23 53 25  |... I%,.#S%,.#S%|
00000c90  2c 9a 23 53 25 0d 05 1e  05 ed 0d 05 28 16 ef 20  |,.#S%.......(.. |
00000ca0  34 2c 20 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |4, 23,1,0;0;0;0;|
00000cb0  0d 05 32 05 e1 0d 05 3c  05 20 0d 05 46 0f dd a4  |..2....<. ..F...|
00000cc0  67 65 74 73 74 72 69 6e  67 0d 05 50 0b 6e 65 77  |getstring..P.new|
00000cd0  24 3d 22 22 0d 05 5a 05  f5 0d 05 64 0b 43 25 3d  |$=""..Z....d.C%=|
00000ce0  9a 23 53 25 0d 05 6e 18  e7 20 43 25 20 8c 20 6e  |.#S%..n.. C% . n|
00000cf0  65 77 24 3d 6e 65 77 24  2b bd 43 25 0d 05 78 0a  |ew$=new$+.C%..x.|
00000d00  fd 20 43 25 3d 30 0d 05  82 09 3d 6e 65 77 24 0d  |. C%=0....=new$.|
00000d10  ff                                                |.|
00000d11

12-03-89/ArcOver.m0

12-03-89/ArcOver.m1

12-03-89/ArcOver.m2

12-03-89/ArcOver.m4

12-03-89/ArcOver.m5

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