10MODE7:VDU23,1,0;0;0;0;:*FX200,3
20PRINTTAB(13);CHR$141;"WORLD MAP"'T
AB(13);CHR$141;"WORLD MAP"''SPC12;"extr
acted from"'" WORLD and UK/EUROPE MA
P LOCATOR"'SPC5;"now released into publi
c domain"'SPC8;"by TECHNICAL SOFTWARE"
21PRINT'''" for simplicity some very
specialised"'" features have been i
mmobilised"
22PRINT'''"Map colours for colour or
mono display ?"'TAB(13);"Press C or M":R
EPEATG=GETAND223:UNTILG=67ORG=77:IFG=67T
%=4:U%=3:V%=2ELSET%=1:U%=7:V%=6
30G=87
40*TV253,1
50MODE1:VDU23,1,0;0;0;0;23,240,60,102
,102,60,0;0;23,241;24,24;0;0;19,1,T%;0;1
9,2,U%;0;19,3,V%;0;23;6,26;0;0;0,23;12,2
24;0;0;0,23;13,7;0;0;0:?&302=97:?&306=24
7:?&309=25:!&34E=&3F00103F:?&354=65:CLS:
?&30B=20:?&D0=?&D0OR8:HIMEM=&3F00
60IFG=87CHAIN"WORLDM"ELSECHAIN"EURM"