Home » Archimedes archive » Acorn User » AU 1994-06.adf » !StarInfo_StarInfo » Marshall/!WorldTime/DrawMap
Marshall/!WorldTime/DrawMap
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 User » AU 1994-06.adf » !StarInfo_StarInfo |
| Filename: | Marshall/!WorldTime/DrawMap |
| Read OK: | ✔ |
| File size: | 0247 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >DrawMap
20REM Plots map from graphics units data stored in MapXY file for test.
30REM P.E.Marshall Jan 1993
40:
50ONERROR : CLOSE#0 : REPORT : PRINTERL : END
60MODE0
70name$="<WorldTime$Dir>.MapXY"
80ch%=OPENIN(name$)
90IF ch%=0 THEN PRINT"File ";name$;" not found." : K=INKEY(500) : END
100DIM buf EXT#ch%
110CLOSE #ch%
120OSCLI("LOAD "+name$+" "+STR$~buf)
130P%=buf
140X%=P%!0 : Y%=P%!4
150WHILE Y%<>&FFFF
160 MOVE X%,Y%
170 P%+=8 : X%=P%!0 : Y%=P%!4
180 WHILE X%<>&FFFF
190 P%+=8
200 DRAW X%,Y%
210 X%=P%!0 : Y%=P%!4
220 ENDWHILE
230 P%+=8 : X%=P%!0 : Y%=P%!4
240ENDWHILE
250*POINTER
260REPEAT
270 MOUSE X,Y,B
280 VDU30:PRINTX,Y
290UNTIL 0
300END
310
320
330
� >DrawMap
G� Plots map from graphics units data stored in MapXY file for test.
� P.E.Marshall Jan 1993
(:
2� : �#0 : � : � : �
<�0
F!name$="<WorldTime$Dir>.MapXY"
Pch%=�(name$)
Z9� ch%=0 � �"File ";name$;" not found." : K=�(500) : �
d� buf �#ch%
n
� #ch%
x �("LOAD "+name$+" "+�~buf)
�
P%=buf
�X%=P%!0 : Y%=P%!4
�ȕ Y%<>&FFFF
�
� X%,Y%
� P%+=8 : X%=P%!0 : Y%=P%!4
� ȕ X%<>&FFFF
�
P%+=8
� � X%,Y%
� X%=P%!0 : Y%=P%!4
� �
� P%+=8 : X%=P%!0 : Y%=P%!4
��
� *POINTER
�
ȗ X,Y,B
�30:�X,Y
"� 0
,�
6
@
J
� 00000000 0d 00 0a 0e f4 20 3e 44 72 61 77 4d 61 70 0d 00 |..... >DrawMap..|
00000010 14 47 f4 20 50 6c 6f 74 73 20 6d 61 70 20 66 72 |.G. Plots map fr|
00000020 6f 6d 20 67 72 61 70 68 69 63 73 20 75 6e 69 74 |om graphics unit|
00000030 73 20 64 61 74 61 20 73 74 6f 72 65 64 20 69 6e |s data stored in|
00000040 20 4d 61 70 58 59 20 66 69 6c 65 20 66 6f 72 20 | MapXY file for |
00000050 74 65 73 74 2e 0d 00 1e 1b f4 20 50 2e 45 2e 4d |test...... P.E.M|
00000060 61 72 73 68 61 6c 6c 20 4a 61 6e 20 31 39 39 33 |arshall Jan 1993|
00000070 0d 00 28 05 3a 0d 00 32 19 ee 85 20 3a 20 d9 23 |..(.:..2... : .#|
00000080 30 20 3a 20 f6 20 3a 20 f1 9e 20 3a 20 e0 0d 00 |0 : . : .. : ...|
00000090 3c 06 eb 30 0d 00 46 21 6e 61 6d 65 24 3d 22 3c |<..0..F!name$="<|
000000a0 57 6f 72 6c 64 54 69 6d 65 24 44 69 72 3e 2e 4d |WorldTime$Dir>.M|
000000b0 61 70 58 59 22 0d 00 50 10 63 68 25 3d 8e 28 6e |apXY"..P.ch%=.(n|
000000c0 61 6d 65 24 29 0d 00 5a 39 e7 20 63 68 25 3d 30 |ame$)..Z9. ch%=0|
000000d0 20 8c 20 f1 22 46 69 6c 65 20 22 3b 6e 61 6d 65 | . ."File ";name|
000000e0 24 3b 22 20 6e 6f 74 20 66 6f 75 6e 64 2e 22 20 |$;" not found." |
000000f0 3a 20 4b 3d a6 28 35 30 30 29 20 3a 20 e0 0d 00 |: K=.(500) : ...|
00000100 64 0f de 20 62 75 66 20 a2 23 63 68 25 0d 00 6e |d.. buf .#ch%..n|
00000110 0a d9 20 23 63 68 25 0d 00 78 1e ff 28 22 4c 4f |.. #ch%..x..("LO|
00000120 41 44 20 22 2b 6e 61 6d 65 24 2b 22 20 22 2b c3 |AD "+name$+" "+.|
00000130 7e 62 75 66 29 0d 00 82 0a 50 25 3d 62 75 66 0d |~buf)....P%=buf.|
00000140 00 8c 15 58 25 3d 50 25 21 30 20 3a 20 59 25 3d |...X%=P%!0 : Y%=|
00000150 50 25 21 34 0d 00 96 10 c8 95 20 59 25 3c 3e 26 |P%!4...... Y%<>&|
00000160 46 46 46 46 0d 00 a0 0d 20 20 ec 20 58 25 2c 59 |FFFF.... . X%,Y|
00000170 25 0d 00 aa 1f 20 20 50 25 2b 3d 38 20 3a 20 58 |%.... P%+=8 : X|
00000180 25 3d 50 25 21 30 20 3a 20 59 25 3d 50 25 21 34 |%=P%!0 : Y%=P%!4|
00000190 0d 00 b4 12 20 20 c8 95 20 58 25 3c 3e 26 46 46 |.... .. X%<>&FF|
000001a0 46 46 0d 00 be 0d 20 20 20 20 50 25 2b 3d 38 0d |FF.... P%+=8.|
000001b0 00 c8 0f 20 20 20 20 df 20 58 25 2c 59 25 0d 00 |... . X%,Y%..|
000001c0 d2 19 20 20 20 20 58 25 3d 50 25 21 30 20 3a 20 |.. X%=P%!0 : |
000001d0 59 25 3d 50 25 21 34 0d 00 dc 07 20 20 ce 0d 00 |Y%=P%!4.... ...|
000001e0 e6 1f 20 20 50 25 2b 3d 38 20 3a 20 58 25 3d 50 |.. P%+=8 : X%=P|
000001f0 25 21 30 20 3a 20 59 25 3d 50 25 21 34 0d 00 f0 |%!0 : Y%=P%!4...|
00000200 05 ce 0d 00 fa 0c 2a 50 4f 49 4e 54 45 52 0d 01 |......*POINTER..|
00000210 04 05 f5 0d 01 0e 0d 20 c8 97 20 58 2c 59 2c 42 |....... .. X,Y,B|
00000220 0d 01 18 0d 20 ef 33 30 3a f1 58 2c 59 0d 01 22 |.... .30:.X,Y.."|
00000230 07 fd 20 30 0d 01 2c 05 e0 0d 01 36 04 0d 01 40 |.. 0..,....6...@|
00000240 04 0d 01 4a 04 0d ff |...J...|
00000247 
.