Home » Personal collection » Commodore disks » disk50a2_progs1.d64 » globe2

globe2

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 » Commodore disks » disk50a2_progs1.d64
Filename: globe2
Read OK: ✔
File size: 0AD3 bytes
Load address: 0801
Exec address: 0000
File contents
    10 REM PROGRAM GLOBE
    20 REM VERSION B1.0
    30 REM AUTHOR M. TOULMONDE
    40 REM BEEBUG JAN/FEB 1986
    50 REM COPYRIGHT
    60 REM CONVERTED BY D. FORD
    70 :
   100 K=0.95:GOSUB 1000:REM INPUT
   110 GOSUB 1180:REM GLOBE
   120 IF P<>0 THEN GOSUB 1380:REM LINES
   130 GOSUB 1500:REM CONTS
   140 GET A$:IF A$="" THEN 140
   150 GOSUB 2500:REM GRAPH OFF
   160 GOTO 70
   170 :
  1000 REM INPUT
  1005 PRINT"<clr><white>";:POKE53280,0:POKE53281,0
  1010 POKE211,15:POKE214,2:SYS 58732:PRINT"🭶 ♠ 🭻 🭰 🭴":PRINTCHR$(14)
  1020 PRINT"   🭰HIS PROGRAM DRAWS A PICTURE OF THE"
  1022 PRINT"🭶ARTH AS IT WOULD BE SEEN IF WE WERE"
  1024 PRINT"IN SPACE.":PRINT
  1030 PRINT"♠ MAGNIFICATION OF 1 GIVES A COMPLETE"
  1032 PRINT"REPRESENTATION OF THE GLOBE":PRINT
  1040 INPUT"╲AGNIFICATION";R:PRINT
  1050 R=500*ABS(R):IF R=0 THEN R=500
  1060 PRINT"🭱IVE THE POSITIONS OF THE POINT LOCATED"
  1062 PRINT"AT THE VERTICAL OF WHICHEVER COUNTRY"
  1064 PRINT"OR PART OF THE EARTH YOU WISH TO SEE:":PRINT
  1070 INPUT"🭼ATITUDE (-90 TO 90)";LA
  1080 IF ABS(LA)>90 THEN 1070
  1090 INPUT"🭼ONGITUDE (-180 TO 180";LO
  1100 LO=-LO:IF ABS(LO)>180 THEN 1090
  1110 PRINT:PRINT"╲ERIDIAN AND PARALLEL LINES (🭵/╱) ? ";
  1120 GET R$:IF R$<>"Y" AND R$<>"N" THEN 1120
  1125 PRINT R$
  1130 IF R$="N" THEN P=0:RETURN
  1140 INPUT"♠NGLE STEP (EG 15/30/45/90)";P
  1150 IF P<1 THEN P=90
  1160 RETURN
  1170 :
  1180 REM GLOBE
  1200 GOSUB 2000
  1230 G=π/180:S=SIN(LA*G):C=COS(LA*G)
  1240 IF R>850 THEN T=0:GOTO 1340
  1250 CL=1:XX%=R:YY%=0
  1270 FOR I=0 TO 180 STEP 2
  1280 X1=R*COS(I*G):Y1=K*R*SIN(I*G)
  1290 X2=R*COS((360-I)*G):Y2=K*R*SIN((360-I)*G)
  1300 GOSUB 3000
  1330 NEXT:T=0
  1340 RETURN
  1370 :
  1380 REM LINES
  1390 CL=0
  1400 FOR L=0 TO 180-P STEP P
  1410 FORF=90TO450STEP12:FC=F:LC=L:GOSUB1640:NEXT
  1420 T=0:NEXT L
  1430 FORL=0TO360STEP12:FC=66.5:LC=L:GOSUB1640:NEXT
  1440 FORL=0TO360STEP12:FC=-66.5:LC=L:GOSUB1640:NEXT
  1450 FORL=0TO360STEP12:FC=23.5:LC=L:GOSUB1640:NEXT
  1460 FORL=0TO360STEP12:FC=-23.5:LC=L:GOSUB1640:NEXT
  1470 FORL=0TO360STEP12:FC=0:LC=L:GOSUB1640:NEXT
  1480 RETURN
  1490 :
  1630 :
  1640 REM C
  1650 D=(LC-LO)*G:Q=SIN(D):M=COS(D)
  1660 U=COS(FC*G):V=SIN(FC*G)
  1670 X%=R*U*Q:Y%=R*(V*C-U*M*S)*K
  1680 IF T=0 THEN X1=X%:Y1=Y%:GOTO 1710
  1690 Z=V*S+U*M*C
  1700 IF Z<0 THEN X1=X%:Y1=Y%:GOTO 1710
  1705 X2=X%:Y2=Y%:GOSUB 3000
  1710 T=1:RETURN
  2000 REM HIRES ON!
  2010 POKE 53272,(PEEK(53272)AND15)OR16
  2020 POKE 56578,PEEK(56578)OR3
  2030 POKE 56576,(PEEK(56576)AND252)OR3
  2040 POKE 53272,(PEEK(53272)AND241)OR8
  2050 POKE 53265,PEEK(53265)OR32
  2055 POKE 53270,PEEK(53270) OR 16
  2060 FOR J=$400 TO $07F0
  2070 POKEJ,86:NEXT
  2080 FORJ=$2000 TO $4000:POKEJ,0:NEXT
  2085 POKE 53280,0:POKE 53281,0
  2090 RETURN
  2500 REM HIRES OFF!
  2510 POKE 53265,PEEK(53265) AND 223
  2520 POKE 53272,(PEEK(53272)AND240)OR4
  2530 RETURN
  3000 REM DRAW LINE!
  3010 XA=(X1+640)/5:XB=(X2+640)/5
  3020 YA=(512-Y1)/6:YB=(512-Y2)/6
  3030 IF XA<>XB THEN MP=(YB-YA)/(XB-XA):CP=YA-MP*XA
  3040 IF ABS(XB-XA)<ABS(YB-YA) THEN 3120
  3050 IF XA=XB THEN RETURN
  3060 FOR X3=XA TO XB STEP 2*SGN(XB-XA)
  3070 Y3=MP*X3+CP
  3080 GOSUB 3500:REM PLOT
  3090 NEXT:X1=X2:Y1=Y2
  3100 RETURN
  3110 :
  3120 FOR Y3=YA TO YB STEP SGN(YB-YA)
  3130 X3=XA:IF XA<>XB THEN X3=(Y3-CP)/MP
  3140 GOSUB 3500:REM PLOT
  3150 NEXT:X1=X2:Y1=Y2
  3160 RETURN
  3500 XT=X3:X3=X3 AND 254:CX=0
  3510 IF (CL AND 1)=1 THEN CX=1
  3520 GOSUB 4000:CX=0:X3=X3+1
  3530 IF (CL AND 2)=2 THEN CX=1
  3540 GOSUB 4000:X3=XT:RETURN
  4000 CH=INT(X3/8):RO=INT(Y3/8):LN=Y3 AND 7
  4010 BY=8192+RO*320+8*CH+LN:BI=7-(X3 AND 7)
  4020 IF (CX AND 1)=1 THEN POKE BY,PEEK(BY) OR (2^BI):RETURN
  4030 POKE BY,PEEK(BY) AND (255-(2^BI)):RETURN



� PROGRAM GLOBE(� VERSION B1.0B� AUTHOR M. TOULMONDE\(� BEEBUG JAN/FEB 1986l2� COPYRIGHT�<� CONVERTED BY D. FORD�F:�dK�0.95:� 1000:� INPUT�n� 1180:� GLOBE�x� P��0 � � 1380:� LINES��� 1500:� CONTS	�� A$:� A$�"" � 140	�� 2500:� GRAPH OFF 	�� 70&	�:2	�� INPUTO	��"�";:�53280,0:�53281,0~	��211,15:�214,2:� 58732:�"� � � � �":��(14)�	��"   �HIS PROGRAM DRAWS A PICTURE OF THE"�	��"�ARTH AS IT WOULD BE SEEN IF WE WERE"�	�"IN SPACE.":�
�"� MAGNIFICATION OF 1 GIVES A COMPLETE"=
�"REPRESENTATION OF THE GLOBE":�V
�"�AGNIFICATION";R:�s
R�500��(R):� R�0 � R�500�
$�"�IVE THE POSITIONS OF THE POINT LOCATED"�
&�"AT THE VERTICAL OF WHICHEVER COUNTRY"�
(�"OR PART OF THE EARTH YOU WISH TO SEE:":�.�"�ATITUDE (-90 TO 90)";LA28� �(LA)�90 � 1070SB�"�ONGITUDE (-180 TO 180";LOqLLO��LO:� �(LO)�180 � 1090�V�:�"�ERIDIAN AND PARALLEL LINES (�/�) ? ";�`� R$:� R$��"Y" � R$��"N" � 1120�e� R$�j� R$�"N" � P�0:�t�"�NGLE STEP (EG 15/30/45/90)";P~� P�1 � P�90��$�:0�� GLOBE;�� 2000[�G���180:S��(LA�G):C��(LA�G)t�� R�850 � T�0:� 1340��CL�1:XX%�R:YY%�0��� I�0 � 180 � 2�X1�R��(I�G):Y1�K�R��(I�G)�
X2�R��((360�I)�G):Y2�K�R��((360�I)�G)�� 3000�2�:T�0
<�
Z:
d� LINES
nCL�01
x� L�0 � 180�P � PT
��F�90�450�12:FC�F:LC�L:�1640:�`
�T�0:� L�
��L�0�360�12:FC�66.5:LC�L:�1640:��
��L�0�360�12:FC��66.5:LC�L:�1640:��
��L�0�360�12:FC�23.5:LC�L:�1640:��
��L�0�360�12:FC��23.5:LC�L:�1640:���L�0�360�12:FC�0:LC�L:�1640:���$�:*^:2h� CPrD�(LC�LO)�G:Q��(D):M��(D)h|U��(FC�G):V��(FC�G)��X%�R�U�Q:Y%�R�(V�C�U�M�S)�K��� T�0 � X1�X%:Y1�Y%:� 1710��Z�V�S�U�M�C��� Z�0 � X1�X%:Y1�Y%:� 1710��X2�X%:Y2�Y%:� 3000��T�1:��� HIRES ON!$�� 53272,(�(53272)�15)�16;�� 56578,�(56578)�3X�� 56576,(�(56576)�252)�3u�� 53272,(�(53272)�241)�8�� 53265,�(53265)�32�� 53270,�(53270) � 16�� J�$400 � $07F0��J,86:�� �J�$2000 � $4000:�J,0:��%� 53280,0:� 53281,0*��	� HIRES OFF!.�	� 53265,�(53265) � 223K�	� 53272,(�(53272)�240)�4Q�	�b�� DRAW LINE!��XA�(X1�640)�5:XB�(X2�640)�5��YA�(512�Y1)�6:YB�(512�Y2)�6��� XA��XB � MP�(YB�YA)�(XB�XA):CP�YA�MP�XA��� �(XB�XA)��(YB�YA) � 3120��� XA�XB � ��� X3�XA � XB � 2��(XB�XA)-�Y3�MP�X3�CP?� 3500:� PLOTQ�:X1�X2:Y1�Y2W�]&:y0� Y3�YA � YB � �(YB�YA)�:X3�XA:� XA��XB � X3�(Y3�CP)�MP�D� 3500:� PLOT�N�:X1�X2:Y1�Y2�X���
XT�X3:X3�X3 � 254:CX�0��
� (CL � 1)�1 � CX�1�
� 4000:CX�0:X3�X3�1)�
� (CL � 2)�2 � CX�1<�
� 4000:X3�XT:�`�CH��(X3�8):RO��(Y3�8):LN�Y3 � 7��BY�8192�RO�320�8�CH�LN:BI�7�(X3 � 7)��� (CX � 1)�1 � � BY,�(BY) � (2�BI):���� BY,�(BY) � (255�(2�BI)):�
UHJ@. program globe@(HT@. version b1.0@bH.@. author m. toulmonde@£H(@. beebug jan/feb 1986@LH2@. copyright@.H<@. converted by d. ford@.Hf@:@.HD@k.0.95:. 1000:. input@.HN@. 1180:. globe@.HX@. p..0 . . 1380:. lines@.H.@. 1500:. conts@@I.@. a$:. a$."" . 140@WI.@. 2500:. graph off@ I.@. 70@&I.@:@2I.C. input@oI.C.".E";:.53280,0:.53281,0@.I.C.211,15:.214,2:. 58732:.". . . . .":..(14)@.I.C."   .his program draws a picture of the"@.I.C.".arth as it would be seen if we were"@.I@D."in space.":.@XJFD.". magnification of 1 gives a complete"@=JHD."representation of the globe":.@vJPD.".agnification";r:.@SJZDr.500..(r):. r.0 . r.500@.J$D.".ive the positions of the point located"@.J&D."at the vertical of whichever country"@.J(D."or part of the earth you wish to see:":.@£K.D.".atitude (-90 to 90)";la@2K8D. .(la).90 . 1070@sKbD.".ongitude (-180 to 180";lo@QKlDlo..lo:. .(lo).180 . 1090@.KvD.:.".eridian and parallel lines (./.) ? ";@.K.D. r$:. r$.."y" . r$.."n" . 1120@.KED. r$@.KJD. r$."n" . p.0:.@GLTD.".ngle step (eg 15/30/45/90)";p@XL.D. p.1 . p.90@.L.D.@$L.D:@0L.D. globe@;L.D. 2000@[L.Dg...180:s..(la.g):c..(la.g)@TL.D. r.850 . t.0:. 1340@.L.Dcl.1:xx%.r:yy%.0@.L.D. i.0 . 180 . 2@.L@Ex1.r..(i.g):y1.k.r..(i.g)@.LJEx2.r..((360.i).g):y2.k.r..((360.i).g)@.LTE. 3000@.L2E.:t.0@@M<E.@FMzE:@RMDE. lines@[MNEcl.0@1MXE. l.0 . 180.p . p@tM.E.f.90.450.12:fc.f:lc.l:.1640:.@.M.Et.0:. l@.M.E.l.0.360.12:fc.66.5:lc.l:.1640:.@.M.E.l.0.360.12:fc..66.5:lc.l:.1640:.@.M.E.l.0.360.12:fc.23.5:lc.l:.1640:.@.M.E.l.0.360.12:fc..23.5:lc.l:.1640:.@XN.E.l.0.360.12:fc.0:lc.l:.1640:.@.N.E.@$N.E:@*N.F:@2NHF. c@pNRFd.(lc.lo).g:q..(d):m..(d)@HN.Fu..(fc.g):v..(fc.g)@.N.Fx%.r.u.q:y%.r.(v.c.u.m.s).k@.N.F. t.0 . x1.x%:y1.y%:. 1710@.N.Fz.v.s.u.m.c@.N.F. z.0 . x1.x%:y1.y%:. 1710@.N.Fx2.x%:y2.y%:. 3000@.N.Ft.1:.@GO.G. hires on!@$O.G. 53272,(.(53272).15).16@;O.G. 56578,.(56578).3@xO.G. 56576,(.(56576).252).3@UO.G. 53272,(.(53272).241).8@.OBH. 53265,.(53265).32@.OGH. 53270,.(53270) . 16@.OLH. j.$400 . $07f0@.OVH.j,86:.@.O H.j.$2000 . $4000:.j,0:.@.O%H. 53280,0:. 53281,0@BP*H.@SP.I. hires off!@.P.I. 53265,.(53265) . 223@kP.I. 53272,(.(53272).240).4@qP.I.@BP.K. draw line!@.P.Kxa.(x1.640).5:xb.(x2.640).5@.P.Kya.(512.y1).6:yb.(512.y2).6@.P.K. xa..xb . mp.(yb.ya).(xb.xa):cp.ya.mp.xa@.P.K. .(xb.xa)..(yb.ya) . 3120@.P.K. xa.xb . .@]Q.K. x3.xa . xb . 2..(xb.xa)@-Q.Ky3.mp.x3.cp@?QHL. 3500:. plot@qQRL.:x1.x2:y1.y2@wQ£L.@]Q&L:@YQ0L. y3.ya . yb . .(yb.ya)@.Q:Lx3.xa:. xa..xb . x3.(y3.cp).mp@.QdL. 3500:. plot@.QnL.:x1.x2:y1.y2@.QxL.@.Q.Mxt.x3:x3.x3 . 254:cx.0@.Q.M. (cl . 1).1 . cx.1@QR.M. 4000:cx.0:x3.x3.1@)R.M. (cl . 2).2 . cx.1@<R.M. 4000:x3.xt:.@.R.Och..(x3.8):ro..(y3.8):ln.y3 . 7@.R.Oby.8192.ro.320.8.ch.ln:bi.7.(x3 . 7)@.R.O. (cx . 1).1 . . by,.(by) . (2.bi):.@.R.O. by,.(by) . (255.(2.bi)):.@@@
00000000  15 08 0a 00 8f 20 50 52  4f 47 52 41 4d 20 47 4c  |..... PROGRAM GL|
00000010  4f 42 45 00 28 08 14 00  8f 20 56 45 52 53 49 4f  |OBE.(.... VERSIO|
00000020  4e 20 42 31 2e 30 00 42  08 1e 00 8f 20 41 55 54  |N B1.0.B.... AUT|
00000030  48 4f 52 20 4d 2e 20 54  4f 55 4c 4d 4f 4e 44 45  |HOR M. TOULMONDE|
00000040  00 5c 08 28 00 8f 20 42  45 45 42 55 47 20 4a 41  |.\.(.. BEEBUG JA|
00000050  4e 2f 46 45 42 20 31 39  38 36 00 6c 08 32 00 8f  |N/FEB 1986.l.2..|
00000060  20 43 4f 50 59 52 49 47  48 54 00 87 08 3c 00 8f  | COPYRIGHT...<..|
00000070  20 43 4f 4e 56 45 52 54  45 44 20 42 59 20 44 2e  | CONVERTED BY D.|
00000080  20 46 4f 52 44 00 8d 08  46 00 3a 00 a7 08 64 00  | FORD...F.:...d.|
00000090  4b b2 30 2e 39 35 3a 8d  20 31 30 30 30 3a 8f 20  |K.0.95:. 1000:. |
000000a0  49 4e 50 55 54 00 ba 08  6e 00 8d 20 31 31 38 30  |INPUT...n.. 1180|
000000b0  3a 8f 20 47 4c 4f 42 45  00 d6 08 78 00 8b 20 50  |:. GLOBE...x.. P|
000000c0  b3 b1 30 20 a7 20 8d 20  31 33 38 30 3a 8f 20 4c  |..0 . . 1380:. L|
000000d0  49 4e 45 53 00 e9 08 82  00 8d 20 31 35 30 30 3a  |INES...... 1500:|
000000e0  8f 20 43 4f 4e 54 53 00  00 09 8c 00 a1 20 41 24  |. CONTS...... A$|
000000f0  3a 8b 20 41 24 b2 22 22  20 a7 20 31 34 30 00 17  |:. A$."" . 140..|
00000100  09 96 00 8d 20 32 35 30  30 3a 8f 20 47 52 41 50  |.... 2500:. GRAP|
00000110  48 20 4f 46 46 00 20 09  a0 00 89 20 37 30 00 26  |H OFF. .... 70.&|
00000120  09 aa 00 3a 00 32 09 e8  03 8f 20 49 4e 50 55 54  |...:.2.... INPUT|
00000130  00 4f 09 ed 03 99 22 93  05 22 3b 3a 97 35 33 32  |.O...."..";:.532|
00000140  38 30 2c 30 3a 97 35 33  32 38 31 2c 30 00 7e 09  |80,0:.53281,0.~.|
00000150  f2 03 97 32 31 31 2c 31  35 3a 97 32 31 34 2c 32  |...211,15:.214,2|
00000160  3a 9e 20 35 38 37 33 32  3a 99 22 c5 20 c1 20 d2  |:. 58732:.". . .|
00000170  20 d4 20 c8 22 3a 99 c7  28 31 34 29 00 ac 09 fc  | . .":..(14)....|
00000180  03 99 22 20 20 20 d4 48  49 53 20 50 52 4f 47 52  |.."   .HIS PROGR|
00000190  41 4d 20 44 52 41 57 53  20 41 20 50 49 43 54 55  |AM DRAWS A PICTU|
000001a0  52 45 20 4f 46 20 54 48  45 22 00 d8 09 fe 03 99  |RE OF THE"......|
000001b0  22 c5 41 52 54 48 20 41  53 20 49 54 20 57 4f 55  |".ARTH AS IT WOU|
000001c0  4c 44 20 42 45 20 53 45  45 4e 20 49 46 20 57 45  |LD BE SEEN IF WE|
000001d0  20 57 45 52 45 22 00 eb  09 00 04 99 22 49 4e 20  | WERE"......"IN |
000001e0  53 50 41 43 45 2e 22 3a  99 00 18 0a 06 04 99 22  |SPACE.":......."|
000001f0  c1 20 4d 41 47 4e 49 46  49 43 41 54 49 4f 4e 20  |. MAGNIFICATION |
00000200  4f 46 20 31 20 47 49 56  45 53 20 41 20 43 4f 4d  |OF 1 GIVES A COM|
00000210  50 4c 45 54 45 22 00 3d  0a 08 04 99 22 52 45 50  |PLETE".=...."REP|
00000220  52 45 53 45 4e 54 41 54  49 4f 4e 20 4f 46 20 54  |RESENTATION OF T|
00000230  48 45 20 47 4c 4f 42 45  22 3a 99 00 56 0a 10 04  |HE GLOBE":..V...|
00000240  85 22 cd 41 47 4e 49 46  49 43 41 54 49 4f 4e 22  |.".AGNIFICATION"|
00000250  3b 52 3a 99 00 73 0a 1a  04 52 b2 35 30 30 ac b6  |;R:..s...R.500..|
00000260  28 52 29 3a 8b 20 52 b2  30 20 a7 20 52 b2 35 30  |(R):. R.0 . R.50|
00000270  30 00 a2 0a 24 04 99 22  c7 49 56 45 20 54 48 45  |0...$..".IVE THE|
00000280  20 50 4f 53 49 54 49 4f  4e 53 20 4f 46 20 54 48  | POSITIONS OF TH|
00000290  45 20 50 4f 49 4e 54 20  4c 4f 43 41 54 45 44 22  |E POINT LOCATED"|
000002a0  00 ce 0a 26 04 99 22 41  54 20 54 48 45 20 56 45  |...&.."AT THE VE|
000002b0  52 54 49 43 41 4c 20 4f  46 20 57 48 49 43 48 45  |RTICAL OF WHICHE|
000002c0  56 45 52 20 43 4f 55 4e  54 52 59 22 00 fd 0a 28  |VER COUNTRY"...(|
000002d0  04 99 22 4f 52 20 50 41  52 54 20 4f 46 20 54 48  |.."OR PART OF TH|
000002e0  45 20 45 41 52 54 48 20  59 4f 55 20 57 49 53 48  |E EARTH YOU WISH|
000002f0  20 54 4f 20 53 45 45 3a  22 3a 99 00 1c 0b 2e 04  | TO SEE:":......|
00000300  85 22 cc 41 54 49 54 55  44 45 20 28 2d 39 30 20  |.".ATITUDE (-90 |
00000310  54 4f 20 39 30 29 22 3b  4c 41 00 32 0b 38 04 8b  |TO 90)";LA.2.8..|
00000320  20 b6 28 4c 41 29 b1 39  30 20 a7 20 31 30 37 30  | .(LA).90 . 1070|
00000330  00 53 0b 42 04 85 22 cc  4f 4e 47 49 54 55 44 45  |.S.B..".ONGITUDE|
00000340  20 28 2d 31 38 30 20 54  4f 20 31 38 30 22 3b 4c  | (-180 TO 180";L|
00000350  4f 00 71 0b 4c 04 4c 4f  b2 ab 4c 4f 3a 8b 20 b6  |O.q.L.LO..LO:. .|
00000360  28 4c 4f 29 b1 31 38 30  20 a7 20 31 30 39 30 00  |(LO).180 . 1090.|
00000370  a0 0b 56 04 99 3a 99 22  cd 45 52 49 44 49 41 4e  |..V..:.".ERIDIAN|
00000380  20 41 4e 44 20 50 41 52  41 4c 4c 45 4c 20 4c 49  | AND PARALLEL LI|
00000390  4e 45 53 20 28 d9 2f ce  29 20 3f 20 22 3b 00 c4  |NES (./.) ? ";..|
000003a0  0b 60 04 a1 20 52 24 3a  8b 20 52 24 b3 b1 22 59  |.`.. R$:. R$.."Y|
000003b0  22 20 af 20 52 24 b3 b1  22 4e 22 20 a7 20 31 31  |" . R$.."N" . 11|
000003c0  32 30 00 cd 0b 65 04 99  20 52 24 00 e2 0b 6a 04  |20...e.. R$...j.|
000003d0  8b 20 52 24 b2 22 4e 22  20 a7 20 50 b2 30 3a 8e  |. R$."N" . P.0:.|
000003e0  00 07 0c 74 04 85 22 c1  4e 47 4c 45 20 53 54 45  |...t..".NGLE STE|
000003f0  50 20 28 45 47 20 31 35  2f 33 30 2f 34 35 2f 39  |P (EG 15/30/45/9|
00000400  30 29 22 3b 50 00 18 0c  7e 04 8b 20 50 b3 31 20  |0)";P...~.. P.1 |
00000410  a7 20 50 b2 39 30 00 1e  0c 88 04 8e 00 24 0c 92  |. P.90.......$..|
00000420  04 3a 00 30 0c 9c 04 8f  20 47 4c 4f 42 45 00 3b  |.:.0.... GLOBE.;|
00000430  0c b0 04 8d 20 32 30 30  30 00 5b 0c ce 04 47 b2  |.... 2000.[...G.|
00000440  ff ad 31 38 30 3a 53 b2  bf 28 4c 41 ac 47 29 3a  |..180:S..(LA.G):|
00000450  43 b2 be 28 4c 41 ac 47  29 00 74 0c d8 04 8b 20  |C..(LA.G).t.... |
00000460  52 b1 38 35 30 20 a7 20  54 b2 30 3a 89 20 31 33  |R.850 . T.0:. 13|
00000470  34 30 00 89 0c e2 04 43  4c b2 31 3a 58 58 25 b2  |40.....CL.1:XX%.|
00000480  52 3a 59 59 25 b2 30 00  9d 0c f6 04 81 20 49 b2  |R:YY%.0...... I.|
00000490  30 20 a4 20 31 38 30 20  a9 20 32 00 bb 0c 00 05  |0 . 180 . 2.....|
000004a0  58 31 b2 52 ac be 28 49  ac 47 29 3a 59 31 b2 4b  |X1.R..(I.G):Y1.K|
000004b0  ac 52 ac bf 28 49 ac 47  29 00 e5 0c 0a 05 58 32  |.R..(I.G).....X2|
000004c0  b2 52 ac be 28 28 33 36  30 ab 49 29 ac 47 29 3a  |.R..((360.I).G):|
000004d0  59 32 b2 4b ac 52 ac bf  28 28 33 36 30 ab 49 29  |Y2.K.R..((360.I)|
000004e0  ac 47 29 00 f0 0c 14 05  8d 20 33 30 30 30 00 fa  |.G)...... 3000..|
000004f0  0c 32 05 82 3a 54 b2 30  00 00 0d 3c 05 8e 00 06  |.2..:T.0...<....|
00000500  0d 5a 05 3a 00 12 0d 64  05 8f 20 4c 49 4e 45 53  |.Z.:...d.. LINES|
00000510  00 1b 0d 6e 05 43 4c b2  30 00 31 0d 78 05 81 20  |...n.CL.0.1.x.. |
00000520  4c b2 30 20 a4 20 31 38  30 ab 50 20 a9 20 50 00  |L.0 . 180.P . P.|
00000530  54 0d 82 05 81 46 b2 39  30 a4 34 35 30 a9 31 32  |T....F.90.450.12|
00000540  3a 46 43 b2 46 3a 4c 43  b2 4c 3a 8d 31 36 34 30  |:FC.F:LC.L:.1640|
00000550  3a 82 00 60 0d 8c 05 54  b2 30 3a 82 20 4c 00 85  |:..`...T.0:. L..|
00000560  0d 96 05 81 4c b2 30 a4  33 36 30 a9 31 32 3a 46  |....L.0.360.12:F|
00000570  43 b2 36 36 2e 35 3a 4c  43 b2 4c 3a 8d 31 36 34  |C.66.5:LC.L:.164|
00000580  30 3a 82 00 ab 0d a0 05  81 4c b2 30 a4 33 36 30  |0:.......L.0.360|
00000590  a9 31 32 3a 46 43 b2 ab  36 36 2e 35 3a 4c 43 b2  |.12:FC..66.5:LC.|
000005a0  4c 3a 8d 31 36 34 30 3a  82 00 d0 0d aa 05 81 4c  |L:.1640:.......L|
000005b0  b2 30 a4 33 36 30 a9 31  32 3a 46 43 b2 32 33 2e  |.0.360.12:FC.23.|
000005c0  35 3a 4c 43 b2 4c 3a 8d  31 36 34 30 3a 82 00 f6  |5:LC.L:.1640:...|
000005d0  0d b4 05 81 4c b2 30 a4  33 36 30 a9 31 32 3a 46  |....L.0.360.12:F|
000005e0  43 b2 ab 32 33 2e 35 3a  4c 43 b2 4c 3a 8d 31 36  |C..23.5:LC.L:.16|
000005f0  34 30 3a 82 00 18 0e be  05 81 4c b2 30 a4 33 36  |40:.......L.0.36|
00000600  30 a9 31 32 3a 46 43 b2  30 3a 4c 43 b2 4c 3a 8d  |0.12:FC.0:LC.L:.|
00000610  31 36 34 30 3a 82 00 1e  0e c8 05 8e 00 24 0e d2  |1640:........$..|
00000620  05 3a 00 2a 0e 5e 06 3a  00 32 0e 68 06 8f 20 43  |.:.*.^.:.2.h.. C|
00000630  00 50 0e 72 06 44 b2 28  4c 43 ab 4c 4f 29 ac 47  |.P.r.D.(LC.LO).G|
00000640  3a 51 b2 bf 28 44 29 3a  4d b2 be 28 44 29 00 68  |:Q..(D):M..(D).h|
00000650  0e 7c 06 55 b2 be 28 46  43 ac 47 29 3a 56 b2 bf  |.|.U..(FC.G):V..|
00000660  28 46 43 ac 47 29 00 88  0e 86 06 58 25 b2 52 ac  |(FC.G).....X%.R.|
00000670  55 ac 51 3a 59 25 b2 52  ac 28 56 ac 43 ab 55 ac  |U.Q:Y%.R.(V.C.U.|
00000680  4d ac 53 29 ac 4b 00 a7  0e 90 06 8b 20 54 b2 30  |M.S).K...... T.0|
00000690  20 a7 20 58 31 b2 58 25  3a 59 31 b2 59 25 3a 89  | . X1.X%:Y1.Y%:.|
000006a0  20 31 37 31 30 00 b7 0e  9a 06 5a b2 56 ac 53 aa  | 1710.....Z.V.S.|
000006b0  55 ac 4d ac 43 00 d6 0e  a4 06 8b 20 5a b3 30 20  |U.M.C...... Z.0 |
000006c0  a7 20 58 31 b2 58 25 3a  59 31 b2 59 25 3a 89 20  |. X1.X%:Y1.Y%:. |
000006d0  31 37 31 30 00 ed 0e a9  06 58 32 b2 58 25 3a 59  |1710.....X2.X%:Y|
000006e0  32 b2 59 25 3a 8d 20 33  30 30 30 00 f7 0e ae 06  |2.Y%:. 3000.....|
000006f0  54 b2 31 3a 8e 00 07 0f  d0 07 8f 20 48 49 52 45  |T.1:....... HIRE|
00000700  53 20 4f 4e 21 00 24 0f  da 07 97 20 35 33 32 37  |S ON!.$.... 5327|
00000710  32 2c 28 c2 28 35 33 32  37 32 29 af 31 35 29 b0  |2,(.(53272).15).|
00000720  31 36 00 3b 0f e4 07 97  20 35 36 35 37 38 2c c2  |16.;.... 56578,.|
00000730  28 35 36 35 37 38 29 b0  33 00 58 0f ee 07 97 20  |(56578).3.X.... |
00000740  35 36 35 37 36 2c 28 c2  28 35 36 35 37 36 29 af  |56576,(.(56576).|
00000750  32 35 32 29 b0 33 00 75  0f f8 07 97 20 35 33 32  |252).3.u.... 532|
00000760  37 32 2c 28 c2 28 35 33  32 37 32 29 af 32 34 31  |72,(.(53272).241|
00000770  29 b0 38 00 8d 0f 02 08  97 20 35 33 32 36 35 2c  |).8...... 53265,|
00000780  c2 28 35 33 32 36 35 29  b0 33 32 00 a7 0f 07 08  |.(53265).32.....|
00000790  97 20 35 33 32 37 30 2c  c2 28 35 33 32 37 30 29  |. 53270,.(53270)|
000007a0  20 b0 20 31 36 00 bc 0f  0c 08 81 20 4a b2 24 34  | . 16...... J.$4|
000007b0  30 30 20 a4 20 24 30 37  46 30 00 c8 0f 16 08 97  |00 . $07F0......|
000007c0  4a 2c 38 36 3a 82 00 e4  0f 20 08 81 4a b2 24 32  |J,86:.... ..J.$2|
000007d0  30 30 30 20 a4 20 24 34  30 30 30 3a 97 4a 2c 30  |000 . $4000:.J,0|
000007e0  3a 82 00 fc 0f 25 08 97  20 35 33 32 38 30 2c 30  |:....%.. 53280,0|
000007f0  3a 97 20 35 33 32 38 31  2c 30 00 02 10 2a 08 8e  |:. 53281,0...*..|
00000800  00 13 10 c4 09 8f 20 48  49 52 45 53 20 4f 46 46  |...... HIRES OFF|
00000810  21 00 2e 10 ce 09 97 20  35 33 32 36 35 2c c2 28  |!...... 53265,.(|
00000820  35 33 32 36 35 29 20 af  20 32 32 33 00 4b 10 d8  |53265) . 223.K..|
00000830  09 97 20 35 33 32 37 32  2c 28 c2 28 35 33 32 37  |.. 53272,(.(5327|
00000840  32 29 af 32 34 30 29 b0  34 00 51 10 e2 09 8e 00  |2).240).4.Q.....|
00000850  62 10 b8 0b 8f 20 44 52  41 57 20 4c 49 4e 45 21  |b.... DRAW LINE!|
00000860  00 82 10 c2 0b 58 41 b2  28 58 31 aa 36 34 30 29  |.....XA.(X1.640)|
00000870  ad 35 3a 58 42 b2 28 58  32 aa 36 34 30 29 ad 35  |.5:XB.(X2.640).5|
00000880  00 a2 10 cc 0b 59 41 b2  28 35 31 32 ab 59 31 29  |.....YA.(512.Y1)|
00000890  ad 36 3a 59 42 b2 28 35  31 32 ab 59 32 29 ad 36  |.6:YB.(512.Y2).6|
000008a0  00 d0 10 d6 0b 8b 20 58  41 b3 b1 58 42 20 a7 20  |...... XA..XB . |
000008b0  4d 50 b2 28 59 42 ab 59  41 29 ad 28 58 42 ab 58  |MP.(YB.YA).(XB.X|
000008c0  41 29 3a 43 50 b2 59 41  ab 4d 50 ac 58 41 00 ef  |A):CP.YA.MP.XA..|
000008d0  10 e0 0b 8b 20 b6 28 58  42 ab 58 41 29 b3 b6 28  |.... .(XB.XA)..(|
000008e0  59 42 ab 59 41 29 20 a7  20 33 31 32 30 00 ff 10  |YB.YA) . 3120...|
000008f0  ea 0b 8b 20 58 41 b2 58  42 20 a7 20 8e 00 1d 11  |... XA.XB . ....|
00000900  f4 0b 81 20 58 33 b2 58  41 20 a4 20 58 42 20 a9  |... X3.XA . XB .|
00000910  20 32 ac b4 28 58 42 ab  58 41 29 00 2d 11 fe 0b  | 2..(XB.XA).-...|
00000920  59 33 b2 4d 50 ac 58 33  aa 43 50 00 3f 11 08 0c  |Y3.MP.X3.CP.?...|
00000930  8d 20 33 35 30 30 3a 8f  20 50 4c 4f 54 00 51 11  |. 3500:. PLOT.Q.|
00000940  12 0c 82 3a 58 31 b2 58  32 3a 59 31 b2 59 32 00  |...:X1.X2:Y1.Y2.|
00000950  57 11 1c 0c 8e 00 5d 11  26 0c 3a 00 79 11 30 0c  |W.....].&.:.y.0.|
00000960  81 20 59 33 b2 59 41 20  a4 20 59 42 20 a9 20 b4  |. Y3.YA . YB . .|
00000970  28 59 42 ab 59 41 29 00  9c 11 3a 0c 58 33 b2 58  |(YB.YA)...:.X3.X|
00000980  41 3a 8b 20 58 41 b3 b1  58 42 20 a7 20 58 33 b2  |A:. XA..XB . X3.|
00000990  28 59 33 ab 43 50 29 ad  4d 50 00 ae 11 44 0c 8d  |(Y3.CP).MP...D..|
000009a0  20 33 35 30 30 3a 8f 20  50 4c 4f 54 00 c0 11 4e  | 3500:. PLOT...N|
000009b0  0c 82 3a 58 31 b2 58 32  3a 59 31 b2 59 32 00 c6  |..:X1.X2:Y1.Y2..|
000009c0  11 58 0c 8e 00 e1 11 ac  0d 58 54 b2 58 33 3a 58  |.X.......XT.X3:X|
000009d0  33 b2 58 33 20 af 20 32  35 34 3a 43 58 b2 30 00  |3.X3 . 254:CX.0.|
000009e0  f9 11 b6 0d 8b 20 28 43  4c 20 af 20 31 29 b2 31  |..... (CL . 1).1|
000009f0  20 a7 20 43 58 b2 31 00  11 12 c0 0d 8d 20 34 30  | . CX.1...... 40|
00000a00  30 30 3a 43 58 b2 30 3a  58 33 b2 58 33 aa 31 00  |00:CX.0:X3.X3.1.|
00000a10  29 12 ca 0d 8b 20 28 43  4c 20 af 20 32 29 b2 32  |).... (CL . 2).2|
00000a20  20 a7 20 43 58 b2 31 00  3c 12 d4 0d 8d 20 34 30  | . CX.1.<.... 40|
00000a30  30 30 3a 58 33 b2 58 54  3a 8e 00 60 12 a0 0f 43  |00:X3.XT:..`...C|
00000a40  48 b2 b5 28 58 33 ad 38  29 3a 52 4f b2 b5 28 59  |H..(X3.8):RO..(Y|
00000a50  33 ad 38 29 3a 4c 4e b2  59 33 20 af 20 37 00 89  |3.8):LN.Y3 . 7..|
00000a60  12 aa 0f 42 59 b2 38 31  39 32 aa 52 4f ac 33 32  |...BY.8192.RO.32|
00000a70  30 aa 38 ac 43 48 aa 4c  4e 3a 42 49 b2 37 ab 28  |0.8.CH.LN:BI.7.(|
00000a80  58 33 20 af 20 37 29 00  b2 12 b4 0f 8b 20 28 43  |X3 . 7)...... (C|
00000a90  58 20 af 20 31 29 b2 31  20 a7 20 97 20 42 59 2c  |X . 1).1 . . BY,|
00000aa0  c2 28 42 59 29 20 b0 20  28 32 ae 42 49 29 3a 8e  |.(BY) . (2.BI):.|
00000ab0  00 d2 12 be 0f 97 20 42  59 2c c2 28 42 59 29 20  |...... BY,.(BY) |
00000ac0  af 20 28 32 35 35 ab 28  32 ae 42 49 29 29 3a 8e  |. (255.(2.BI)):.|
00000ad0  00 00 00                                          |...|
00000ad3

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 18 Aug 2025, 13:06 UTC
Website designed by .