Home » Archimedes archive » Micro User » MU 1990-11.adf » Listings » OldLists/Sundial

OldLists/Sundial

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 » Micro User » MU 1990-11.adf » Listings
Filename: OldLists/Sundial
Read OK: ✔
File size: 0CA0 bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM SUNDIALS
   20REM by Arthur Harvey.
   30REM (c) The Micro User
   40ON ERROR PROCerror
   50MODE 1
   60@%=&2020D:VDU23;8202;0;0;0;
   70DIM A(20),X(20),Y(20)
   80PROCtitle
   90VDU26:VDU20:CLS
  100VDU28,10,20,30,6
  110PRINT"SUNDIALS"''"MENU"
  120PRINT'"H - Horizontal Dial"
  130PRINT"V - Vertical Dial"
  140IF Y(12)<>0 PRINT"R - Repeat last dial"
  150PRINT"Q - Quit program"
  160REPEAT:PRINT'"Enter letter :-"
  170K$=GET$:C=INSTR("HVQR",K$)
  180UNTIL C<>0
  190VDU26:COLOUR 3:COLOUR 128
  200IF C=1 PROChorizontal
  210IF C=2 PROCvertical
  220IF C=3 CLS:END
  230CLS:PROClist
  240PRINT'"Print out list ?  (Y/N)"
  250K=GET:IF K=89 VDU2:PROClist:VDU3
  260PROCkey
  270PROCdial:PROCgnomon
  280PRINT'"Print ?"
  290K=GET:VDU11:PRINTSPC(7)
  300IF K=89 PROCdump
  310PROCkey
  320GOTO 90
  330:
  340DEF PROCtitle
  350VDU19,3,6;0;:L=1:J=0
  360COLOUR 129:GCOL0,2
  370PROCangle:PROCdial
  380COLOUR1:COLOUR131
  390VDU28,0,31,7,0:CLS
  400PRINTTAB(0,6)" * * * *SUNDIALS * * * *"'"by"'" Arthur  Harvey."
  410PRINT'" Design your ownHorizon- tal or VerticalSundial,with the angles computedfor yourlatitude"
  420GCOL0,0
  430FOR C=0 TO 500 STEP 5:MOVE0,0:DRAW0,500:PLOT85,C,500:NEXT
  440Y(12)=0:PROCkey
  450ENDPROC
  460:
  470DEF PROChorizontal:CLS:J=0
  480INPUTTAB(3,12)"What is your Latitude (0-90):",L:IF L<0 OR L>90 GOTO 480
  490L=RAD(L)
  500D=0:F=0:H=0:G=L
  510PROCangle
  520ENDPROC
  530:
  540DEF PROCvertical:CLS:J=2
  550INPUTTAB(3,12)"What is your Latitude (0-90):",L:IF L<0 OR L>90 GOTO 550
  560INPUT'"What is the angle between the direction the Dial faces and the South (0-90):",D
  570IF D<0 OR D>90 GOTO 560 ELSE IF D=0 GOTO 600
  580PRINT'"Is that to the East or to the West ? ";:K=GET:PRINT;CHR$(K)
  590IF K=69 D=-D ELSE IF K<>87GOTO580
  600PRINT'"Computing ..."
  610L=RAD(L):D=RAD(D)
  620F=ATN(SIND/TANL)
  630G=-ASN(COSD*COSL)
  640H=ATN(TAND/SINL)
  650FOR C=4 TO 20
  660A(C)=ATN(COS(D)*COS(L)*TAN(H-RAD(C*15)))-F
  670IF RAD(15*(C-12))<D-1.57 OR RAD(15*(C-12))>D+1.57 Y(C)=1000:GOTO 710
  680IFABS(A(C))>1.57Y(C)=1000:GOTO710
  690Y(C)=-484/ABS(TANA(C)):X(C)=-484*SGN(A(C))
  700IF Y(C)<-930 X(C)=X(C)*-930/Y(C):Y(C)=-930
  710NEXT
  720ENDPROC
  730:
  740DEF PROCangle
  750PRINT'"Computing ..."
  760FOR C=13 TO 20
  770A(C)=ATN(TAN(RAD(15*(C-12)))*SINL)
  780IF A(C)<=0 A(C)=A(C)+PI
  790Y(C)=484/TANA(C):X(C)=484*SGN(L)
  800IF Y(C)>667 X(C)=X(C)*667/Y(C):Y(C)=667
  810IF Y(C)<-297 X(C)=X(C)*-297/Y(C):Y(C)=-297
  820A(24-C)=-A(C):Y(24-C)=Y(C):X(24-C)=-X(C)
  830NEXT
  840Y(12)=667
  850ENDPROC
  860:
  870DEF PROClist
  880IF J=0 PRINT"  DATA FOR HORIZONTAL DIAL"''"Latitude and",DEG(L)" Degrees"'"Angle of Gnomon":GOTO 930
  890PRINT"  DATA FOR VERTICAL DIAL"''TAB(28)"Degrees"
  900PRINT"Latitude"TAB(21)DEG(L)'"Facing "FNface TAB(21)ABS(DEG(D))
  910PRINT"Gnomon Angle"TAB(21)DEG(-G)
  920PRINT"Noon line to Gnomon"TAB(21)DEG(-F)
  930IF ABS(G)<.1 G=G/0
  940PRINT'TAB(9)"HOUR"TAB(19)"DEGREES"
  950PRINTTAB(16)"(from Noon line)"
  960PRINT
  970FOR C=4 TO 20
  980IF Y(C)=1000 GOTO 1000
  990PRINT C,DEG(A(C))
 1000NEXT
 1010PRINT'"Negative angles indicate anti-clockwise."
 1020ENDPROC
 1030:
 1040DEF PROCdial
 1050CLS:VDU29,779;500;
 1060FOR C=0 TO 12 STEP 6:E=500-C^2
 1070MOVEE,E:DRAWE,-E:DRAW-E,-E
 1080DRAW-E,E:DRAWE,E:NEXT
 1090IF J=0 VDU29,779;330; ELSE VDU29,779;964;
 1100FOR C=4 TO 20
 1110IF Y(C)=1000 GOTO 1140
 1120MOVE0,0:DRAWX(C),Y(C)
 1130PLOT0,16,0:VDU5,8:IF C<13 PRINTSTR$(C) ELSE PRINTSTR$(C-12):VDU4
 1140NEXT
 1150ENDPROC
 1160:
 1170DEF PROCgnomon
 1180P=260/TANG:IF J=0 AND P>631 P=631 ELSE IF P<-928 P=-928
 1190Q=P*TANG
 1200MOVE-520,0:DRAW-520,P:DRAW-520-Q,P:DRAW-520,0
 1210MOVE0,0:PLOT18,-P*TANF,P
 1220GCOL0,3:VDU4
 1230PRINTTAB(0,22-J)"Latitude"'" = ";DEG(L)'"degrees."
 1240IF J=0 ENDPROC
 1250PRINT"Facing"
 1260PRINT;ABS(DEG(D))'FNface
 1270ENDPROC
 1280:
 1290DEF PROCdump
 1300*GIMAGE EPS R1 H&C0 V&CD
 1310ENDPROC
 1320:
 1330DEF FNface
 1340IF D=0 =" South"
 1350IF D<0 =" East" ELSE =" West"
 1360:
 1370DEF PROCkey:*FX21
 1380PRINT:PRINT"Press"'" any key"
 1390VDU7:K=GET:CLS:ENDPROC
 1400:
 1410DEF PROCerror
 1420VDU3:IF ERR=17 GOTO 90
 1430IF ERR=18 PRINT'"Gnomon angle too small at this latitude.":Y(12)=0:PROCkey:CLS:GOTO 100
 1440CLS:REPORT:PRINT" at line ";ERL
 1450END


� SUNDIALS
� by Arthur Harvey.
� (c) The Micro User
(� � �error
2� 1
<@%=&2020D:�23;8202;0;0;0;
F� A(20),X(20),Y(20)
P
�title
Z
�26:�20:�
d�28,10,20,30,6
n�"SUNDIALS"''"MENU"
x�'"H - Horizontal Dial"
��"V - Vertical Dial"
�&� Y(12)<>0 �"R - Repeat last dial"
��"Q - Quit program"
��:�'"Enter letter :-"
�K$=�:C=�"HVQR",K$)
�
� C<>0
��26:� 3:� 128
�� C=1 �horizontal
�� C=2 �vertical
�
� C=3 �:�
��:�list
��'"Print out list ?  (Y/N)"
�K=�:� K=89 �2:�list:�3
�key
�dial:�gnomon
�'"Print ?"
"K=�:�11:�(7)
,� K=89 �dump
6�key
@
� �DZ@
J:
T� �title
^�19,3,6;0;:L=1:J=0
h� 129:�0,2
r�angle:�dial
|�1:�131
��28,0,31,7,0:�
�<�0,6)" * * * *SUNDIALS * * * *"'"by"'" Arthur  Harvey."
�`�'" Design your ownHorizon- tal or VerticalSundial,with the angles computedfor yourlatitude"
��0,0
�+� C=0 � 500 � 5:�0,0:�0,500:�85,C,500:�
�Y(12)=0:�key
��
�:
�� �horizontal:�:J=0
�@�3,12)"What is your Latitude (0-90):",L:� L<0 � L>90 � �d`A
�
L=�(L)
�D=0:F=0:H=0:G=L
�
�angle
�
:
� �vertical:�:J=2
&@�3,12)"What is your Latitude (0-90):",L:� L<0 � L>90 � �TfB
0V�'"What is the angle between the direction the Dial faces and the South (0-90):",D
:&� D<0 � D>90 � �TpB � � D=0 � �DXB
D9�'"Is that to the East or to the West ? ";:K=�:�;�(K)
N� K=69 D=-D � � K<>87�DDB
X�'"Computing ..."
bL=�(L):D=�(D)
lF=�(�D/�L)
vG=-�(�D*�L)
�H=�(�D/�L)
�� C=4 � 20
�$A(C)=�(�(D)*�(L)*�(H-�(C*15)))-F
�@� �(15*(C-12))<D-1.57 � �(15*(C-12))>D+1.57 Y(C)=1000:� �dFB
� �(A(C))>1.57Y(C)=1000:�dFB
�(Y(C)=-484/�(�A(C)):X(C)=-484*�(A(C))
�-� Y(C)<-930 X(C)=X(C)*-930/Y(C):Y(C)=-930
��
��
�:
�� �angle
��'"Computing ..."
�� C=13 � 20
A(C)=�(�(�(15*(C-12)))*�L)
� A(C)<=0 A(C)=A(C)+�
 Y(C)=484/�A(C):X(C)=484*�(L)
 *� Y(C)>667 X(C)=X(C)*667/Y(C):Y(C)=667
*-� Y(C)<-297 X(C)=X(C)*-297/Y(C):Y(C)=-297
4,A(24-C)=-A(C):Y(24-C)=Y(C):X(24-C)=-X(C)
>�
H
Y(12)=667
R�
\:
f� �list
p_� J=0 �"  DATA FOR HORIZONTAL DIAL"''"Latitude and",�(L)" Degrees"'"Angle of Gnomon":� �tbC
z.�"  DATA FOR VERTICAL DIAL"''�28)"Degrees"
�2�"Latitude"�21)�(L)'"Facing "�face �21)�(�(D))
��"Gnomon Angle"�21)�(-G)
�#�"Noon line to Gnomon"�21)�(-F)
�� �(G)<.1 G=G/0
��'�9)"HOUR"�19)"DEGREES"
��16)"(from Noon line)"
��
�� C=4 � 20
�� Y(C)=1000 � �dhC
�� C,�(A(C))
��
�0�'"Negative angles indicate anti-clockwise."
��
:
� �dial
�:�29,779;500;
$� C=0 � 12 � 6:E=500-C^2
.�E,E:�E,-E:�-E,-E
8�-E,E:�E,E:�
B%� J=0 �29,779;330; � �29,779;964;
L� C=4 � 20
V� Y(C)=1000 � �DtD
`�0,0:�X(C),Y(C)
j+�0,16,0:�5,8:� C<13 ��(C) � ��(C-12):�4
t�
~�
�:
�
� �gnomon
�2P=260/�G:� J=0 � P>631 P=631 � � P<-928 P=-928
�
Q=P*�G
�%�-520,0:�-520,P:�-520-Q,P:�-520,0
��0,0:�18,-P*�F,P
��0,3:�4
�-�0,22-J)"Latitude"'" = ";�(L)'"degrees."
�� J=0 �
�
�"Facing"
��;�(�(D))'�face
��
:

� �dump
*GIMAGE EPS R1 H&C0 V&CD
�
(:
2� �face
<� D=0 =" South"
F� D<0 =" East" � =" West"
P:
Z� �key:*FX21
d�:�"Press"'" any key"
n�7:K=�:�:�
x:
�� �error
��3:� �=17 � �DZ@
�M� �=18 �'"Gnomon angle too small at this latitude.":Y(12)=0:�key:�:� �Dd@
��:�:�" at line ";�
��
�
00000000  0d 00 0a 0e f4 20 53 55  4e 44 49 41 4c 53 0d 00  |..... SUNDIALS..|
00000010  14 17 f4 20 62 79 20 41  72 74 68 75 72 20 48 61  |... by Arthur Ha|
00000020  72 76 65 79 2e 0d 00 1e  18 f4 20 28 63 29 20 54  |rvey...... (c) T|
00000030  68 65 20 4d 69 63 72 6f  20 55 73 65 72 0d 00 28  |he Micro User..(|
00000040  0e ee 20 85 20 f2 65 72  72 6f 72 0d 00 32 07 eb  |.. . .error..2..|
00000050  20 31 0d 00 3c 1d 40 25  3d 26 32 30 32 30 44 3a  | 1..<.@%=&2020D:|
00000060  ef 32 33 3b 38 32 30 32  3b 30 3b 30 3b 30 3b 0d  |.23;8202;0;0;0;.|
00000070  00 46 17 de 20 41 28 32  30 29 2c 58 28 32 30 29  |.F.. A(20),X(20)|
00000080  2c 59 28 32 30 29 0d 00  50 0a f2 74 69 74 6c 65  |,Y(20)..P..title|
00000090  0d 00 5a 0d ef 32 36 3a  ef 32 30 3a db 0d 00 64  |..Z..26:.20:...d|
000000a0  12 ef 32 38 2c 31 30 2c  32 30 2c 33 30 2c 36 0d  |..28,10,20,30,6.|
000000b0  00 6e 17 f1 22 53 55 4e  44 49 41 4c 53 22 27 27  |.n.."SUNDIALS"''|
000000c0  22 4d 45 4e 55 22 0d 00  78 1b f1 27 22 48 20 2d  |"MENU"..x..'"H -|
000000d0  20 48 6f 72 69 7a 6f 6e  74 61 6c 20 44 69 61 6c  | Horizontal Dial|
000000e0  22 0d 00 82 18 f1 22 56  20 2d 20 56 65 72 74 69  |"....."V - Verti|
000000f0  63 61 6c 20 44 69 61 6c  22 0d 00 8c 26 e7 20 59  |cal Dial"...&. Y|
00000100  28 31 32 29 3c 3e 30 20  f1 22 52 20 2d 20 52 65  |(12)<>0 ."R - Re|
00000110  70 65 61 74 20 6c 61 73  74 20 64 69 61 6c 22 0d  |peat last dial".|
00000120  00 96 17 f1 22 51 20 2d  20 51 75 69 74 20 70 72  |...."Q - Quit pr|
00000130  6f 67 72 61 6d 22 0d 00  a0 19 f5 3a f1 27 22 45  |ogram".....:.'"E|
00000140  6e 74 65 72 20 6c 65 74  74 65 72 20 3a 2d 22 0d  |nter letter :-".|
00000150  00 aa 16 4b 24 3d be 3a  43 3d a7 22 48 56 51 52  |...K$=.:C=."HVQR|
00000160  22 2c 4b 24 29 0d 00 b4  0a fd 20 43 3c 3e 30 0d  |",K$)..... C<>0.|
00000170  00 be 11 ef 32 36 3a fb  20 33 3a fb 20 31 32 38  |....26:. 3:. 128|
00000180  0d 00 c8 15 e7 20 43 3d  31 20 f2 68 6f 72 69 7a  |..... C=1 .horiz|
00000190  6f 6e 74 61 6c 0d 00 d2  13 e7 20 43 3d 32 20 f2  |ontal..... C=2 .|
000001a0  76 65 72 74 69 63 61 6c  0d 00 dc 0d e7 20 43 3d  |vertical..... C=|
000001b0  33 20 db 3a e0 0d 00 e6  0b db 3a f2 6c 69 73 74  |3 .:......:.list|
000001c0  0d 00 f0 1f f1 27 22 50  72 69 6e 74 20 6f 75 74  |.....'"Print out|
000001d0  20 6c 69 73 74 20 3f 20  20 28 59 2f 4e 29 22 0d  | list ?  (Y/N)".|
000001e0  00 fa 1a 4b 3d a5 3a e7  20 4b 3d 38 39 20 ef 32  |...K=.:. K=89 .2|
000001f0  3a f2 6c 69 73 74 3a ef  33 0d 01 04 08 f2 6b 65  |:.list:.3.....ke|
00000200  79 0d 01 0e 11 f2 64 69  61 6c 3a f2 67 6e 6f 6d  |y.....dial:.gnom|
00000210  6f 6e 0d 01 18 0f f1 27  22 50 72 69 6e 74 20 3f  |on.....'"Print ?|
00000220  22 0d 01 22 11 4b 3d a5  3a ef 31 31 3a f1 89 28  |"..".K=.:.11:..(|
00000230  37 29 0d 01 2c 10 e7 20  4b 3d 38 39 20 f2 64 75  |7)..,.. K=89 .du|
00000240  6d 70 0d 01 36 08 f2 6b  65 79 0d 01 40 0a e5 20  |mp..6..key..@.. |
00000250  8d 44 5a 40 0d 01 4a 05  3a 0d 01 54 0c dd 20 f2  |.DZ@..J.:..T.. .|
00000260  74 69 74 6c 65 0d 01 5e  16 ef 31 39 2c 33 2c 36  |title..^..19,3,6|
00000270  3b 30 3b 3a 4c 3d 31 3a  4a 3d 30 0d 01 68 0e fb  |;0;:L=1:J=0..h..|
00000280  20 31 32 39 3a e6 30 2c  32 0d 01 72 10 f2 61 6e  | 129:.0,2..r..an|
00000290  67 6c 65 3a f2 64 69 61  6c 0d 01 7c 0b fb 31 3a  |gle:.dial..|..1:|
000002a0  fb 31 33 31 0d 01 86 12  ef 32 38 2c 30 2c 33 31  |.131.....28,0,31|
000002b0  2c 37 2c 30 3a db 0d 01  90 3c f1 8a 30 2c 36 29  |,7,0:....<..0,6)|
000002c0  22 20 2a 20 2a 20 2a 20  2a 53 55 4e 44 49 41 4c  |" * * * *SUNDIAL|
000002d0  53 20 2a 20 2a 20 2a 20  2a 22 27 22 62 79 22 27  |S * * * *"'"by"'|
000002e0  22 20 41 72 74 68 75 72  20 20 48 61 72 76 65 79  |" Arthur  Harvey|
000002f0  2e 22 0d 01 9a 60 f1 27  22 20 44 65 73 69 67 6e  |."...`.'" Design|
00000300  20 79 6f 75 72 20 6f 77  6e 48 6f 72 69 7a 6f 6e  | your ownHorizon|
00000310  2d 20 74 61 6c 20 6f 72  20 56 65 72 74 69 63 61  |- tal or Vertica|
00000320  6c 53 75 6e 64 69 61 6c  2c 77 69 74 68 20 74 68  |lSundial,with th|
00000330  65 20 61 6e 67 6c 65 73  20 63 6f 6d 70 75 74 65  |e angles compute|
00000340  64 66 6f 72 20 79 6f 75  72 6c 61 74 69 74 75 64  |dfor yourlatitud|
00000350  65 22 0d 01 a4 08 e6 30  2c 30 0d 01 ae 2b e3 20  |e".....0,0...+. |
00000360  43 3d 30 20 b8 20 35 30  30 20 88 20 35 3a ec 30  |C=0 . 500 . 5:.0|
00000370  2c 30 3a df 30 2c 35 30  30 3a f0 38 35 2c 43 2c  |,0:.0,500:.85,C,|
00000380  35 30 30 3a ed 0d 01 b8  10 59 28 31 32 29 3d 30  |500:.....Y(12)=0|
00000390  3a f2 6b 65 79 0d 01 c2  05 e1 0d 01 cc 05 3a 0d  |:.key.........:.|
000003a0  01 d6 17 dd 20 f2 68 6f  72 69 7a 6f 6e 74 61 6c  |.... .horizontal|
000003b0  3a db 3a 4a 3d 30 0d 01  e0 40 e8 8a 33 2c 31 32  |:.:J=0...@..3,12|
000003c0  29 22 57 68 61 74 20 69  73 20 79 6f 75 72 20 4c  |)"What is your L|
000003d0  61 74 69 74 75 64 65 20  28 30 2d 39 30 29 3a 22  |atitude (0-90):"|
000003e0  2c 4c 3a e7 20 4c 3c 30  20 84 20 4c 3e 39 30 20  |,L:. L<0 . L>90 |
000003f0  e5 20 8d 64 60 41 0d 01  ea 0a 4c 3d b2 28 4c 29  |. .d`A....L=.(L)|
00000400  0d 01 f4 13 44 3d 30 3a  46 3d 30 3a 48 3d 30 3a  |....D=0:F=0:H=0:|
00000410  47 3d 4c 0d 01 fe 0a f2  61 6e 67 6c 65 0d 02 08  |G=L.....angle...|
00000420  05 e1 0d 02 12 05 3a 0d  02 1c 15 dd 20 f2 76 65  |......:..... .ve|
00000430  72 74 69 63 61 6c 3a db  3a 4a 3d 32 0d 02 26 40  |rtical:.:J=2..&@|
00000440  e8 8a 33 2c 31 32 29 22  57 68 61 74 20 69 73 20  |..3,12)"What is |
00000450  79 6f 75 72 20 4c 61 74  69 74 75 64 65 20 28 30  |your Latitude (0|
00000460  2d 39 30 29 3a 22 2c 4c  3a e7 20 4c 3c 30 20 84  |-90):",L:. L<0 .|
00000470  20 4c 3e 39 30 20 e5 20  8d 54 66 42 0d 02 30 56  | L>90 . .TfB..0V|
00000480  e8 27 22 57 68 61 74 20  69 73 20 74 68 65 20 61  |.'"What is the a|
00000490  6e 67 6c 65 20 62 65 74  77 65 65 6e 20 74 68 65  |ngle between the|
000004a0  20 64 69 72 65 63 74 69  6f 6e 20 74 68 65 20 44  | direction the D|
000004b0  69 61 6c 20 66 61 63 65  73 20 61 6e 64 20 74 68  |ial faces and th|
000004c0  65 20 53 6f 75 74 68 20  28 30 2d 39 30 29 3a 22  |e South (0-90):"|
000004d0  2c 44 0d 02 3a 26 e7 20  44 3c 30 20 84 20 44 3e  |,D..:&. D<0 . D>|
000004e0  39 30 20 e5 20 8d 54 70  42 20 8b 20 e7 20 44 3d  |90 . .TpB . . D=|
000004f0  30 20 e5 20 8d 44 58 42  0d 02 44 39 f1 27 22 49  |0 . .DXB..D9.'"I|
00000500  73 20 74 68 61 74 20 74  6f 20 74 68 65 20 45 61  |s that to the Ea|
00000510  73 74 20 6f 72 20 74 6f  20 74 68 65 20 57 65 73  |st or to the Wes|
00000520  74 20 3f 20 22 3b 3a 4b  3d a5 3a f1 3b bd 28 4b  |t ? ";:K=.:.;.(K|
00000530  29 0d 02 4e 1e e7 20 4b  3d 36 39 20 44 3d 2d 44  |)..N.. K=69 D=-D|
00000540  20 8b 20 e7 20 4b 3c 3e  38 37 e5 8d 44 44 42 0d  | . . K<>87..DDB.|
00000550  02 58 15 f1 27 22 43 6f  6d 70 75 74 69 6e 67 20  |.X..'"Computing |
00000560  2e 2e 2e 22 0d 02 62 11  4c 3d b2 28 4c 29 3a 44  |..."..b.L=.(L):D|
00000570  3d b2 28 44 29 0d 02 6c  0e 46 3d 99 28 b5 44 2f  |=.(D)..l.F=.(.D/|
00000580  b7 4c 29 0d 02 76 0f 47  3d 2d 98 28 9b 44 2a 9b  |.L)..v.G=-.(.D*.|
00000590  4c 29 0d 02 80 0e 48 3d  99 28 b7 44 2f b5 4c 29  |L)....H=.(.D/.L)|
000005a0  0d 02 8a 0e e3 20 43 3d  34 20 b8 20 32 30 0d 02  |..... C=4 . 20..|
000005b0  94 24 41 28 43 29 3d 99  28 9b 28 44 29 2a 9b 28  |.$A(C)=.(.(D)*.(|
000005c0  4c 29 2a b7 28 48 2d b2  28 43 2a 31 35 29 29 29  |L)*.(H-.(C*15)))|
000005d0  2d 46 0d 02 9e 40 e7 20  b2 28 31 35 2a 28 43 2d  |-F...@. .(15*(C-|
000005e0  31 32 29 29 3c 44 2d 31  2e 35 37 20 84 20 b2 28  |12))<D-1.57 . .(|
000005f0  31 35 2a 28 43 2d 31 32  29 29 3e 44 2b 31 2e 35  |15*(C-12))>D+1.5|
00000600  37 20 59 28 43 29 3d 31  30 30 30 3a e5 20 8d 64  |7 Y(C)=1000:. .d|
00000610  46 42 0d 02 a8 20 e7 94  28 41 28 43 29 29 3e 31  |FB... ..(A(C))>1|
00000620  2e 35 37 59 28 43 29 3d  31 30 30 30 3a e5 8d 64  |.57Y(C)=1000:..d|
00000630  46 42 0d 02 b2 28 59 28  43 29 3d 2d 34 38 34 2f  |FB...(Y(C)=-484/|
00000640  94 28 b7 41 28 43 29 29  3a 58 28 43 29 3d 2d 34  |.(.A(C)):X(C)=-4|
00000650  38 34 2a b4 28 41 28 43  29 29 0d 02 bc 2d e7 20  |84*.(A(C))...-. |
00000660  59 28 43 29 3c 2d 39 33  30 20 58 28 43 29 3d 58  |Y(C)<-930 X(C)=X|
00000670  28 43 29 2a 2d 39 33 30  2f 59 28 43 29 3a 59 28  |(C)*-930/Y(C):Y(|
00000680  43 29 3d 2d 39 33 30 0d  02 c6 05 ed 0d 02 d0 05  |C)=-930.........|
00000690  e1 0d 02 da 05 3a 0d 02  e4 0c dd 20 f2 61 6e 67  |.....:..... .ang|
000006a0  6c 65 0d 02 ee 15 f1 27  22 43 6f 6d 70 75 74 69  |le.....'"Computi|
000006b0  6e 67 20 2e 2e 2e 22 0d  02 f8 0f e3 20 43 3d 31  |ng ..."..... C=1|
000006c0  33 20 b8 20 32 30 0d 03  02 1e 41 28 43 29 3d 99  |3 . 20....A(C)=.|
000006d0  28 b7 28 b2 28 31 35 2a  28 43 2d 31 32 29 29 29  |(.(.(15*(C-12)))|
000006e0  2a b5 4c 29 0d 03 0c 19  e7 20 41 28 43 29 3c 3d  |*.L)..... A(C)<=|
000006f0  30 20 41 28 43 29 3d 41  28 43 29 2b af 0d 03 16  |0 A(C)=A(C)+....|
00000700  20 59 28 43 29 3d 34 38  34 2f b7 41 28 43 29 3a  | Y(C)=484/.A(C):|
00000710  58 28 43 29 3d 34 38 34  2a b4 28 4c 29 0d 03 20  |X(C)=484*.(L).. |
00000720  2a e7 20 59 28 43 29 3e  36 36 37 20 58 28 43 29  |*. Y(C)>667 X(C)|
00000730  3d 58 28 43 29 2a 36 36  37 2f 59 28 43 29 3a 59  |=X(C)*667/Y(C):Y|
00000740  28 43 29 3d 36 36 37 0d  03 2a 2d e7 20 59 28 43  |(C)=667..*-. Y(C|
00000750  29 3c 2d 32 39 37 20 58  28 43 29 3d 58 28 43 29  |)<-297 X(C)=X(C)|
00000760  2a 2d 32 39 37 2f 59 28  43 29 3a 59 28 43 29 3d  |*-297/Y(C):Y(C)=|
00000770  2d 32 39 37 0d 03 34 2c  41 28 32 34 2d 43 29 3d  |-297..4,A(24-C)=|
00000780  2d 41 28 43 29 3a 59 28  32 34 2d 43 29 3d 59 28  |-A(C):Y(24-C)=Y(|
00000790  43 29 3a 58 28 32 34 2d  43 29 3d 2d 58 28 43 29  |C):X(24-C)=-X(C)|
000007a0  0d 03 3e 05 ed 0d 03 48  0d 59 28 31 32 29 3d 36  |..>....H.Y(12)=6|
000007b0  36 37 0d 03 52 05 e1 0d  03 5c 05 3a 0d 03 66 0b  |67..R....\.:..f.|
000007c0  dd 20 f2 6c 69 73 74 0d  03 70 5f e7 20 4a 3d 30  |. .list..p_. J=0|
000007d0  20 f1 22 20 20 44 41 54  41 20 46 4f 52 20 48 4f  | ."  DATA FOR HO|
000007e0  52 49 5a 4f 4e 54 41 4c  20 44 49 41 4c 22 27 27  |RIZONTAL DIAL"''|
000007f0  22 4c 61 74 69 74 75 64  65 20 61 6e 64 22 2c 9d  |"Latitude and",.|
00000800  28 4c 29 22 20 44 65 67  72 65 65 73 22 27 22 41  |(L)" Degrees"'"A|
00000810  6e 67 6c 65 20 6f 66 20  47 6e 6f 6d 6f 6e 22 3a  |ngle of Gnomon":|
00000820  e5 20 8d 74 62 43 0d 03  7a 2e f1 22 20 20 44 41  |. .tbC..z.."  DA|
00000830  54 41 20 46 4f 52 20 56  45 52 54 49 43 41 4c 20  |TA FOR VERTICAL |
00000840  44 49 41 4c 22 27 27 8a  32 38 29 22 44 65 67 72  |DIAL"''.28)"Degr|
00000850  65 65 73 22 0d 03 84 32  f1 22 4c 61 74 69 74 75  |ees"...2."Latitu|
00000860  64 65 22 8a 32 31 29 9d  28 4c 29 27 22 46 61 63  |de".21).(L)'"Fac|
00000870  69 6e 67 20 22 a4 66 61  63 65 20 8a 32 31 29 94  |ing ".face .21).|
00000880  28 9d 28 44 29 29 0d 03  8e 1c f1 22 47 6e 6f 6d  |(.(D))....."Gnom|
00000890  6f 6e 20 41 6e 67 6c 65  22 8a 32 31 29 9d 28 2d  |on Angle".21).(-|
000008a0  47 29 0d 03 98 23 f1 22  4e 6f 6f 6e 20 6c 69 6e  |G)...#."Noon lin|
000008b0  65 20 74 6f 20 47 6e 6f  6d 6f 6e 22 8a 32 31 29  |e to Gnomon".21)|
000008c0  9d 28 2d 46 29 0d 03 a2  13 e7 20 94 28 47 29 3c  |.(-F)..... .(G)<|
000008d0  2e 31 20 47 3d 47 2f 30  0d 03 ac 1c f1 27 8a 39  |.1 G=G/0.....'.9|
000008e0  29 22 48 4f 55 52 22 8a  31 39 29 22 44 45 47 52  |)"HOUR".19)"DEGR|
000008f0  45 45 53 22 0d 03 b6 1b  f1 8a 31 36 29 22 28 66  |EES"......16)"(f|
00000900  72 6f 6d 20 4e 6f 6f 6e  20 6c 69 6e 65 29 22 0d  |rom Noon line)".|
00000910  03 c0 05 f1 0d 03 ca 0e  e3 20 43 3d 34 20 b8 20  |......... C=4 . |
00000920  32 30 0d 03 d4 16 e7 20  59 28 43 29 3d 31 30 30  |20..... Y(C)=100|
00000930  30 20 e5 20 8d 64 68 43  0d 03 de 0f f1 20 43 2c  |0 . .dhC..... C,|
00000940  9d 28 41 28 43 29 29 0d  03 e8 05 ed 0d 03 f2 30  |.(A(C))........0|
00000950  f1 27 22 4e 65 67 61 74  69 76 65 20 61 6e 67 6c  |.'"Negative angl|
00000960  65 73 20 69 6e 64 69 63  61 74 65 20 61 6e 74 69  |es indicate anti|
00000970  2d 63 6c 6f 63 6b 77 69  73 65 2e 22 0d 03 fc 05  |-clockwise."....|
00000980  e1 0d 04 06 05 3a 0d 04  10 0b dd 20 f2 64 69 61  |.....:..... .dia|
00000990  6c 0d 04 1a 12 db 3a ef  32 39 2c 37 37 39 3b 35  |l.....:.29,779;5|
000009a0  30 30 3b 0d 04 24 1c e3  20 43 3d 30 20 b8 20 31  |00;..$.. C=0 . 1|
000009b0  32 20 88 20 36 3a 45 3d  35 30 30 2d 43 5e 32 0d  |2 . 6:E=500-C^2.|
000009c0  04 2e 15 ec 45 2c 45 3a  df 45 2c 2d 45 3a df 2d  |....E,E:.E,-E:.-|
000009d0  45 2c 2d 45 0d 04 38 10  df 2d 45 2c 45 3a df 45  |E,-E..8..-E,E:.E|
000009e0  2c 45 3a ed 0d 04 42 25  e7 20 4a 3d 30 20 ef 32  |,E:...B%. J=0 .2|
000009f0  39 2c 37 37 39 3b 33 33  30 3b 20 8b 20 ef 32 39  |9,779;330; . .29|
00000a00  2c 37 37 39 3b 39 36 34  3b 0d 04 4c 0e e3 20 43  |,779;964;..L.. C|
00000a10  3d 34 20 b8 20 32 30 0d  04 56 16 e7 20 59 28 43  |=4 . 20..V.. Y(C|
00000a20  29 3d 31 30 30 30 20 e5  20 8d 44 74 44 0d 04 60  |)=1000 . .DtD..`|
00000a30  13 ec 30 2c 30 3a df 58  28 43 29 2c 59 28 43 29  |..0,0:.X(C),Y(C)|
00000a40  0d 04 6a 2b f0 30 2c 31  36 2c 30 3a ef 35 2c 38  |..j+.0,16,0:.5,8|
00000a50  3a e7 20 43 3c 31 33 20  f1 c3 28 43 29 20 8b 20  |:. C<13 ..(C) . |
00000a60  f1 c3 28 43 2d 31 32 29  3a ef 34 0d 04 74 05 ed  |..(C-12):.4..t..|
00000a70  0d 04 7e 05 e1 0d 04 88  05 3a 0d 04 92 0d dd 20  |..~......:..... |
00000a80  f2 67 6e 6f 6d 6f 6e 0d  04 9c 32 50 3d 32 36 30  |.gnomon...2P=260|
00000a90  2f b7 47 3a e7 20 4a 3d  30 20 80 20 50 3e 36 33  |/.G:. J=0 . P>63|
00000aa0  31 20 50 3d 36 33 31 20  8b 20 e7 20 50 3c 2d 39  |1 P=631 . . P<-9|
00000ab0  32 38 20 50 3d 2d 39 32  38 0d 04 a6 0a 51 3d 50  |28 P=-928....Q=P|
00000ac0  2a b7 47 0d 04 b0 25 ec  2d 35 32 30 2c 30 3a df  |*.G...%.-520,0:.|
00000ad0  2d 35 32 30 2c 50 3a df  2d 35 32 30 2d 51 2c 50  |-520,P:.-520-Q,P|
00000ae0  3a df 2d 35 32 30 2c 30  0d 04 ba 14 ec 30 2c 30  |:.-520,0.....0,0|
00000af0  3a f0 31 38 2c 2d 50 2a  b7 46 2c 50 0d 04 c4 0b  |:.18,-P*.F,P....|
00000b00  e6 30 2c 33 3a ef 34 0d  04 ce 2d f1 8a 30 2c 32  |.0,3:.4...-..0,2|
00000b10  32 2d 4a 29 22 4c 61 74  69 74 75 64 65 22 27 22  |2-J)"Latitude"'"|
00000b20  20 3d 20 22 3b 9d 28 4c  29 27 22 64 65 67 72 65  | = ";.(L)'"degre|
00000b30  65 73 2e 22 0d 04 d8 0b  e7 20 4a 3d 30 20 e1 0d  |es."..... J=0 ..|
00000b40  04 e2 0d f1 22 46 61 63  69 6e 67 22 0d 04 ec 13  |...."Facing"....|
00000b50  f1 3b 94 28 9d 28 44 29  29 27 a4 66 61 63 65 0d  |.;.(.(D))'.face.|
00000b60  04 f6 05 e1 0d 05 00 05  3a 0d 05 0a 0b dd 20 f2  |........:..... .|
00000b70  64 75 6d 70 0d 05 14 1c  2a 47 49 4d 41 47 45 20  |dump....*GIMAGE |
00000b80  45 50 53 20 52 31 20 48  26 43 30 20 56 26 43 44  |EPS R1 H&C0 V&CD|
00000b90  0d 05 1e 05 e1 0d 05 28  05 3a 0d 05 32 0b dd 20  |.......(.:..2.. |
00000ba0  a4 66 61 63 65 0d 05 3c  13 e7 20 44 3d 30 20 3d  |.face..<.. D=0 =|
00000bb0  22 20 53 6f 75 74 68 22  0d 05 46 1d e7 20 44 3c  |" South"..F.. D<|
00000bc0  30 20 3d 22 20 45 61 73  74 22 20 8b 20 3d 22 20  |0 =" East" . =" |
00000bd0  57 65 73 74 22 0d 05 50  05 3a 0d 05 5a 10 dd 20  |West"..P.:..Z.. |
00000be0  f2 6b 65 79 3a 2a 46 58  32 31 0d 05 64 19 f1 3a  |.key:*FX21..d..:|
00000bf0  f1 22 50 72 65 73 73 22  27 22 20 61 6e 79 20 6b  |."Press"'" any k|
00000c00  65 79 22 0d 05 6e 0e ef  37 3a 4b 3d a5 3a db 3a  |ey"..n..7:K=.:.:|
00000c10  e1 0d 05 78 05 3a 0d 05  82 0c dd 20 f2 65 72 72  |...x.:..... .err|
00000c20  6f 72 0d 05 8c 14 ef 33  3a e7 20 9f 3d 31 37 20  |or.....3:. .=17 |
00000c30  e5 20 8d 44 5a 40 0d 05  96 4d e7 20 9f 3d 31 38  |. .DZ@...M. .=18|
00000c40  20 f1 27 22 47 6e 6f 6d  6f 6e 20 61 6e 67 6c 65  | .'"Gnomon angle|
00000c50  20 74 6f 6f 20 73 6d 61  6c 6c 20 61 74 20 74 68  | too small at th|
00000c60  69 73 20 6c 61 74 69 74  75 64 65 2e 22 3a 59 28  |is latitude.":Y(|
00000c70  31 32 29 3d 30 3a f2 6b  65 79 3a db 3a e5 20 8d  |12)=0:.key:.:. .|
00000c80  44 64 40 0d 05 a0 16 db  3a f6 3a f1 22 20 61 74  |Dd@.....:.:." at|
00000c90  20 6c 69 6e 65 20 22 3b  9e 0d 05 aa 05 e0 0d ff  | line ";........|
00000ca0

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .