� Program Stonehenge
� Version B0.1
� Bill Walker
(� BUUBUG June 1985
2�:
F� � � �dXI
P:
d�1
n
�setup
x	�init
�� AZ=-40�30 � 10
�AL=30*��AZ
�	�calc
��pic
�� AZ
�� VX%=1000�2000 � 100
�	�calc
��pic
��
��4
��
�:
���setup
�N%=11:� Number of stones
�S%=600:� Plotting scale
0VX%=1000:� Viewpoint - screen is plane x=VX%
$G%=-200:� Ground is at height G%
� B%(N%,7,2),T%(7,1)
$<� B%() holds the 3D coordinates  of each block's corners
.#� T%() holds the 2D coordinates
8*AZ=30:� Sun's angle round from   North
B+AL=20:� Sun's angle up from      ground
L7�calc:� generate shadow      factors from AL and AZ
V� def chars for Sun
`�23,224,0,0,4,0,2,3,42,31
j)�23,225,8,51,238,228,246,223,255,255 
t&�23,226,0,128,32,8,192,224,224,250
~#�23,227,63,23,43,47,79,79,43,55
�/�23,228,255,255,255,255,255,255,255,255,255
�+�23,229,242,252,244,251,188,238,190,228
��23,230,31,7,7,13,6,0,1,0
�'�23,231,255,254,127,63,29,119,22,44
�)�23,232,164,232,244,144,240,192,128,0
�KSUN$=�224+�225+�226+�3,�8)+�10+�227+�228+�229+�3,�8)+�10+�230+�231+�232
��29,640;512;5
�-MASK=2:COL=7:� Used in palette  switching
�� assemble cls/ground m/c
�MC%=&A00
��I%=0�2�2:P%=MC%
�[OPT I%
 LDA#&30:STA&71;SCRN HI

LDA#&28:STA&72;� HI 
LDA#&00:STA&70;SCRN LO
TAY
(LDA#&74:�#&55:STA&75
2LDA#&74:�#&AA:STA&76
<LDA#&74:�#&FF:STA&74
FTAX
P.L0 TXA
Z�(&70),Y:STA(&70),Y
dINY:BNE L0
nINC&71:DEC&72:BNE L0
xLDA#&28:STA&72;
�.L1 TXA
��(&70),Y:�A&75:STA(&70),Y
�INY:TXA
��(&70),Y:�A&76:STA(&70),Y
�INY:BNE L1
�INC&71:DEC&72:BNE L1
�RTS
�]:�
�?&74=&0F
��
�:
�
��init
�� Build stones' coordinates
� B%,A%,QA%,R,RC
R=400:� Radius of ring
(RC=300:� centre of ring on x    axis
"B%=0
,
� �D@F
6.� Angle of stones' visible sides to viewer
@(�-30,30,0,0,30,-30,60,-60,0,0,30,-30
J*I%=360/(N%+1):� A%=180-I%/2 � 15 � -I%
T	� QA%
^�blinit(B%,A%,QA%)
h	� QA%
r�blinit(B%+1,-A%,QA%)
|B%=B%+2
��
��
�:
���blinit(B%,A%,QA%)
�#� build one stone's coordinates
�� C,S,X,Y,CX,CY,I%
� CX=R%*��A%+RC
� CY=R%*��A%
�S=20*��QA%
�C=20*��QA%
�X=S+CX:Y=C+CY
�8 B%(B%,0,0)=X:B%(B%,4,0)=X:B%(B%,0,1)=Y:B%(B%,4,1)=Y
�X=C+CX:Y=-S+CY
7B%(B%,1,0)=X:B%(B%,5,0)=X:B%(B%,1,1)=Y:B%(B%,5,1)=Y
X=-S+CX:Y=-C+CY
8B%(B%,2,0)=X:B%(B%,6,0)=X:B%(B%,2,1)=Y:B%(B%,6,1)=Y 
&X=-C+CX:Y=S+CY
07B%(B%,3,0)=X:B%(B%,7,0)=X:B%(B%,3,1)=Y:B%(B%,7,1)=Y
:�I%=0�3
DB%(B%,I%,2)=G%+80
NB%(B%,I%+4,2)=G%
X� I%
b�
l:
v
��calc
�#� shadow factors from AL and AZ
�SFX=� � AZ/� � AL
�SFY=-� � AZ/� � AL
��
�:
�	��pic
�� draw pic given AZ, AL VX%
��2,128+MASK:�1,MASK � 3
�MASK=MASK � 3
�	� MC%
��sun
��Z%=0 � N%:�shadow(Z%):�
��Z%=0 � N%:�box(Z%):�
)�19,1,COL;0;:COL=COL � 7:�19,2,COL;0;
�
:
 
��box(B%)
*� draw one stone
4
� I%,M
>�I%=0�7
HM=S%/(VX%-B%(B%,I%,0))
R1T%(I%,0)=M*B%(B%,I%,1):T%(I%,1)=M*B%(B%,I%,2)
\�
f=�4,T%(4,0),T%(4,1):�4,T%(5,0),T%(5,1):�87,T%(0,0),T%(0,1)
p?�87,T%(1,0),T%(1,1):�87,T%(3,0),T%(3,1):�87,T%(2,0),T%(2,1)
z>�4,T%(1,0),T%(1,1):�87,T%(6,0),T%(6,1):�87,T%(5,0),T%(5,1)
�<�5,T%(4,0),T%(4,1):�5,T%(0,0),T%(0,1):�5,T%(3,0),T%(3,1)
�<�5,T%(2,0),T%(2,1):�5,T%(6,0),T%(6,1):�5,T%(5,0),T%(5,1)
�<�5,T%(1,0),T%(1,1):�5,T%(0,0),T%(0,1):�4,T%(2,0),T%(2,1)
��5,T%(1,0),T%(1,1)
��
�:
���shadow(B%)
�� draw stone's shadow
�� H%,M,S0%,S1%,S2%
��I%= 0 � 7
�H%=B%(B%,I%,2)-G%
�1S0%=B%(B%,I%,0)+H%*SFX:S1%=B%(B%,I%,1)+H%*SFY
�
S2%=G%
	M=S%/(VX%-S0%)
	!T%(I%,0)=M*S1%:T%(I%,1)=M*S2%
	�
	$> �4,T%(0,0),T%(0,1):�4,T%(4,0),T%(4,1):�87,T%(5,0),T%(5,1)
	.=�4,T%(0,0),T%(0,1):�87,T%(1,0),T%(1,1):�4,T%(5,0),T%(5,1)
	8>�87,T%(6,0),T%(6,1):�4,T%(1,0),T%(1,1):�87,T%(2,0),T%(2,1)
	B=�4,T%(6,0),T%(6,1):�87,T%(7,0),T%(7,1):�4,T%(2,0),T%(2,1)
	L>�87,T%(3,0),T%(3,1):�4,T%(7,0),T%(7,1):�87,T%(4,0),T%(4,1)
	V=�4,T%(3,0),T%(3,1):�87,T%(0,0),T%(0,1):�4,T%(1,0),T%(1,1)
	`>�87,T%(2,0),T%(2,1):�4,T%(3,0),T%(3,1):�87,T%(0,0),T%(0,1)
	j�4,T%(3,0),T%(3,1)
	t�87,T%(0,0),T%(0,1)
	~�
	�:
	�	��sun
	�� AZ>50 � AZ<310 �
	�� Y%,Z%,I%
	�Y%=800*� � AZ:Z%=900*� � AL
	�� Y%-48,Z%+48:� SUN$
	��
	�:
	�	� � �
	��6
	� �:�" at line ";�;" Error ";�
	��
�

00000000  0d 00 0a 18 f4 20 50 72  6f 67 72 61 6d 20 53 74  |..... Program St|
00000010  6f 6e 65 68 65 6e 67 65  0d 00 14 12 f4 20 56 65  |onehenge..... Ve|
00000020  72 73 69 6f 6e 20 42 30  2e 31 0d 00 1e 11 f4 20  |rsion B0.1..... |
00000030  42 69 6c 6c 20 57 61 6c  6b 65 72 0d 00 28 16 f4  |Bill Walker..(..|
00000040  20 42 55 55 42 55 47 20  4a 75 6e 65 20 31 39 38  | BUUBUG June 198|
00000050  35 0d 00 32 06 f4 3a 0d  00 46 0e ee 20 85 20 e5  |5..2..:..F.. . .|
00000060  20 8d 64 58 49 0d 00 50  05 3a 0d 00 64 06 eb 31  | .dXI..P.:..d..1|
00000070  0d 00 6e 0a f2 73 65 74  75 70 0d 00 78 09 f2 69  |..n..setup..x..i|
00000080  6e 69 74 0d 00 82 14 e3  20 41 5a 3d 2d 34 30 b8  |nit..... AZ=-40.|
00000090  33 30 20 88 20 31 30 0d  00 8c 0e 41 4c 3d 33 30  |30 . 10....AL=30|
000000a0  2a 9b b2 41 5a 0d 00 96  09 f2 63 61 6c 63 0d 00  |*..AZ.....calc..|
000000b0  a0 08 f2 70 69 63 0d 00  aa 08 ed 20 41 5a 0d 00  |...pic..... AZ..|
000000c0  b4 19 e3 20 56 58 25 3d  31 30 30 30 b8 32 30 30  |... VX%=1000.200|
000000d0  30 20 88 20 31 30 30 0d  00 be 09 f2 63 61 6c 63  |0 . 100.....calc|
000000e0  0d 00 c8 08 f2 70 69 63  0d 00 d2 05 ed 0d 00 dc  |.....pic........|
000000f0  06 ef 34 0d 00 e6 05 e0  0d 00 f0 05 3a 0d 03 e8  |..4.........:...|
00000100  0b dd f2 73 65 74 75 70  0d 03 f2 1c 4e 25 3d 31  |...setup....N%=1|
00000110  31 3a f4 20 4e 75 6d 62  65 72 20 6f 66 20 73 74  |1:. Number of st|
00000120  6f 6e 65 73 0d 03 fc 1b  53 25 3d 36 30 30 3a f4  |ones....S%=600:.|
00000130  20 50 6c 6f 74 74 69 6e  67 20 73 63 61 6c 65 0d  | Plotting scale.|
00000140  04 06 30 56 58 25 3d 31  30 30 30 3a f4 20 56 69  |..0VX%=1000:. Vi|
00000150  65 77 70 6f 69 6e 74 20  2d 20 73 63 72 65 65 6e  |ewpoint - screen|
00000160  20 69 73 20 70 6c 61 6e  65 20 78 3d 56 58 25 0d  | is plane x=VX%.|
00000170  04 10 24 47 25 3d 2d 32  30 30 3a f4 20 47 72 6f  |..$G%=-200:. Gro|
00000180  75 6e 64 20 69 73 20 61  74 20 68 65 69 67 68 74  |und is at height|
00000190  20 47 25 0d 04 1a 18 de  20 42 25 28 4e 25 2c 37  | G%..... B%(N%,7|
000001a0  2c 32 29 2c 54 25 28 37  2c 31 29 0d 04 24 3c f4  |,2),T%(7,1)..$<.|
000001b0  20 42 25 28 29 20 68 6f  6c 64 73 20 74 68 65 20  | B%() holds the |
000001c0  33 44 20 63 6f 6f 72 64  69 6e 61 74 65 73 20 20  |3D coordinates  |
000001d0  6f 66 20 65 61 63 68 20  62 6c 6f 63 6b 27 73 20  |of each block's |
000001e0  63 6f 72 6e 65 72 73 0d  04 2e 23 f4 20 54 25 28  |corners...#. T%(|
000001f0  29 20 68 6f 6c 64 73 20  74 68 65 20 32 44 20 63  |) holds the 2D c|
00000200  6f 6f 72 64 69 6e 61 74  65 73 0d 04 38 2a 41 5a  |oordinates..8*AZ|
00000210  3d 33 30 3a f4 20 53 75  6e 27 73 20 61 6e 67 6c  |=30:. Sun's angl|
00000220  65 20 72 6f 75 6e 64 20  66 72 6f 6d 20 20 20 4e  |e round from   N|
00000230  6f 72 74 68 0d 04 42 2b  41 4c 3d 32 30 3a f4 20  |orth..B+AL=20:. |
00000240  53 75 6e 27 73 20 61 6e  67 6c 65 20 75 70 20 66  |Sun's angle up f|
00000250  72 6f 6d 20 20 20 20 20  20 67 72 6f 75 6e 64 0d  |rom      ground.|
00000260  04 4c 37 f2 63 61 6c 63  3a f4 20 67 65 6e 65 72  |.L7.calc:. gener|
00000270  61 74 65 20 73 68 61 64  6f 77 20 20 20 20 20 20  |ate shadow      |
00000280  66 61 63 74 6f 72 73 20  66 72 6f 6d 20 41 4c 20  |factors from AL |
00000290  61 6e 64 20 41 5a 0d 04  56 17 f4 20 64 65 66 20  |and AZ..V.. def |
000002a0  63 68 61 72 73 20 66 6f  72 20 53 75 6e 0d 04 60  |chars for Sun..`|
000002b0  1d ef 32 33 2c 32 32 34  2c 30 2c 30 2c 34 2c 30  |..23,224,0,0,4,0|
000002c0  2c 32 2c 33 2c 34 32 2c  33 31 0d 04 6a 29 ef 32  |,2,3,42,31..j).2|
000002d0  33 2c 32 32 35 2c 38 2c  35 31 2c 32 33 38 2c 32  |3,225,8,51,238,2|
000002e0  32 38 2c 32 34 36 2c 32  32 33 2c 32 35 35 2c 32  |28,246,223,255,2|
000002f0  35 35 20 0d 04 74 26 ef  32 33 2c 32 32 36 2c 30  |55 ..t&.23,226,0|
00000300  2c 31 32 38 2c 33 32 2c  38 2c 31 39 32 2c 32 32  |,128,32,8,192,22|
00000310  34 2c 32 32 34 2c 32 35  30 0d 04 7e 23 ef 32 33  |4,224,250..~#.23|
00000320  2c 32 32 37 2c 36 33 2c  32 33 2c 34 33 2c 34 37  |,227,63,23,43,47|
00000330  2c 37 39 2c 37 39 2c 34  33 2c 35 35 0d 04 88 2f  |,79,79,43,55.../|
00000340  ef 32 33 2c 32 32 38 2c  32 35 35 2c 32 35 35 2c  |.23,228,255,255,|
00000350  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
00000360  32 35 35 2c 32 35 35 2c  32 35 35 0d 04 92 2b ef  |255,255,255...+.|
00000370  32 33 2c 32 32 39 2c 32  34 32 2c 32 35 32 2c 32  |23,229,242,252,2|
00000380  34 34 2c 32 35 31 2c 31  38 38 2c 32 33 38 2c 31  |44,251,188,238,1|
00000390  39 30 2c 32 32 38 0d 04  9c 1d ef 32 33 2c 32 33  |90,228.....23,23|
000003a0  30 2c 33 31 2c 37 2c 37  2c 31 33 2c 36 2c 30 2c  |0,31,7,7,13,6,0,|
000003b0  31 2c 30 0d 04 a6 27 ef  32 33 2c 32 33 31 2c 32  |1,0...'.23,231,2|
000003c0  35 35 2c 32 35 34 2c 31  32 37 2c 36 33 2c 32 39  |55,254,127,63,29|
000003d0  2c 31 31 39 2c 32 32 2c  34 34 0d 04 b0 29 ef 32  |,119,22,44...).2|
000003e0  33 2c 32 33 32 2c 31 36  34 2c 32 33 32 2c 32 34  |3,232,164,232,24|
000003f0  34 2c 31 34 34 2c 32 34  30 2c 31 39 32 2c 31 32  |4,144,240,192,12|
00000400  38 2c 30 0d 04 ba 4b 53  55 4e 24 3d bd 32 32 34  |8,0...KSUN$=.224|
00000410  2b bd 32 32 35 2b bd 32  32 36 2b c4 33 2c bd 38  |+.225+.226+.3,.8|
00000420  29 2b bd 31 30 2b bd 32  32 37 2b bd 32 32 38 2b  |)+.10+.227+.228+|
00000430  bd 32 32 39 2b c4 33 2c  bd 38 29 2b bd 31 30 2b  |.229+.3,.8)+.10+|
00000440  bd 32 33 30 2b bd 32 33  31 2b bd 32 33 32 0d 04  |.230+.231+.232..|
00000450  c4 11 ef 32 39 2c 36 34  30 3b 35 31 32 3b 35 0d  |...29,640;512;5.|
00000460  04 ce 2d 4d 41 53 4b 3d  32 3a 43 4f 4c 3d 37 3a  |..-MASK=2:COL=7:|
00000470  f4 20 55 73 65 64 20 69  6e 20 70 61 6c 65 74 74  |. Used in palett|
00000480  65 20 20 73 77 69 74 63  68 69 6e 67 0d 04 d8 1d  |e  switching....|
00000490  f4 20 61 73 73 65 6d 62  6c 65 20 63 6c 73 2f 67  |. assemble cls/g|
000004a0  72 6f 75 6e 64 20 6d 2f  63 0d 04 e2 0c 4d 43 25  |round m/c....MC%|
000004b0  3d 26 41 30 30 0d 04 ec  14 e3 49 25 3d 30 b8 32  |=&A00.....I%=0.2|
000004c0  88 32 3a 50 25 3d 4d 43  25 0d 04 f6 0b 5b 4f 50  |.2:P%=MC%....[OP|
000004d0  54 20 49 25 0d 05 00 1b  20 4c 44 41 23 26 33 30  |T I%.... LDA#&30|
000004e0  3a 53 54 41 26 37 31 3b  53 43 52 4e 20 48 49 0d  |:STA&71;SCRN HI.|
000004f0  05 0a 18 4c 44 41 23 26  32 38 3a 53 54 41 26 37  |...LDA#&28:STA&7|
00000500  32 3b 9c 20 48 49 20 0d  05 14 1a 4c 44 41 23 26  |2;. HI ....LDA#&|
00000510  30 30 3a 53 54 41 26 37  30 3b 53 43 52 4e 20 4c  |00:STA&70;SCRN L|
00000520  4f 0d 05 1e 07 54 41 59  0d 05 28 18 4c 44 41 23  |O....TAY..(.LDA#|
00000530  26 37 34 3a 80 23 26 35  35 3a 53 54 41 26 37 35  |&74:.#&55:STA&75|
00000540  0d 05 32 18 4c 44 41 23  26 37 34 3a 80 23 26 41  |..2.LDA#&74:.#&A|
00000550  41 3a 53 54 41 26 37 36  0d 05 3c 18 4c 44 41 23  |A:STA&76..<.LDA#|
00000560  26 37 34 3a 82 23 26 46  46 3a 53 54 41 26 37 34  |&74:.#&FF:STA&74|
00000570  0d 05 46 07 54 41 58 0d  05 50 0b 2e 4c 30 20 54  |..F.TAX..P..L0 T|
00000580  58 41 0d 05 5a 17 80 28  26 37 30 29 2c 59 3a 53  |XA..Z..(&70),Y:S|
00000590  54 41 28 26 37 30 29 2c  59 0d 05 64 0e 49 4e 59  |TA(&70),Y..d.INY|
000005a0  3a 42 4e 45 20 4c 30 0d  05 6e 18 49 4e 43 26 37  |:BNE L0..n.INC&7|
000005b0  31 3a 44 45 43 26 37 32  3a 42 4e 45 20 4c 30 0d  |1:DEC&72:BNE L0.|
000005c0  05 78 13 4c 44 41 23 26  32 38 3a 53 54 41 26 37  |.x.LDA#&28:STA&7|
000005d0  32 3b 0d 05 82 0b 2e 4c  31 20 54 58 41 0d 05 8c  |2;.....L1 TXA...|
000005e0  1d 80 28 26 37 30 29 2c  59 3a 84 41 26 37 35 3a  |..(&70),Y:.A&75:|
000005f0  53 54 41 28 26 37 30 29  2c 59 0d 05 96 0b 49 4e  |STA(&70),Y....IN|
00000600  59 3a 54 58 41 0d 05 a0  1d 80 28 26 37 30 29 2c  |Y:TXA.....(&70),|
00000610  59 3a 84 41 26 37 36 3a  53 54 41 28 26 37 30 29  |Y:.A&76:STA(&70)|
00000620  2c 59 0d 05 aa 0e 49 4e  59 3a 42 4e 45 20 4c 31  |,Y....INY:BNE L1|
00000630  0d 05 b4 18 49 4e 43 26  37 31 3a 44 45 43 26 37  |....INC&71:DEC&7|
00000640  32 3a 42 4e 45 20 4c 31  0d 05 be 07 52 54 53 0d  |2:BNE L1....RTS.|
00000650  05 c8 07 5d 3a ed 0d 05  d2 0c 3f 26 37 34 3d 26  |...]:.....?&74=&|
00000660  30 46 0d 05 dc 05 e1 0d  05 e6 05 3a 0d 05 f0 0a  |0F.........:....|
00000670  dd f2 69 6e 69 74 0d 05  fa 1f f4 20 42 75 69 6c  |..init..... Buil|
00000680  64 20 73 74 6f 6e 65 73  27 20 63 6f 6f 72 64 69  |d stones' coordi|
00000690  6e 61 74 65 73 0d 06 04  14 ea 20 42 25 2c 41 25  |nates..... B%,A%|
000006a0  2c 51 41 25 2c 52 2c 52  43 0d 06 0e 1a 52 3d 34  |,QA%,R,RC....R=4|
000006b0  30 30 3a f4 20 52 61 64  69 75 73 20 6f 66 20 72  |00:. Radius of r|
000006c0  69 6e 67 0d 06 18 28 52  43 3d 33 30 30 3a f4 20  |ing...(RC=300:. |
000006d0  63 65 6e 74 72 65 20 6f  66 20 72 69 6e 67 20 6f  |centre of ring o|
000006e0  6e 20 78 20 20 20 20 61  78 69 73 0d 06 22 08 42  |n x    axis..".B|
000006f0  25 3d 30 0d 06 2c 0a f7  20 8d 44 40 46 0d 06 36  |%=0..,.. .D@F..6|
00000700  2e f4 20 41 6e 67 6c 65  20 6f 66 20 73 74 6f 6e  |.. Angle of ston|
00000710  65 73 27 20 76 69 73 69  62 6c 65 20 73 69 64 65  |es' visible side|
00000720  73 20 74 6f 20 76 69 65  77 65 72 0d 06 40 28 dc  |s to viewer..@(.|
00000730  2d 33 30 2c 33 30 2c 30  2c 30 2c 33 30 2c 2d 33  |-30,30,0,0,30,-3|
00000740  30 2c 36 30 2c 2d 36 30  2c 30 2c 30 2c 33 30 2c  |0,60,-60,0,0,30,|
00000750  2d 33 30 0d 06 4a 2a 49  25 3d 33 36 30 2f 28 4e  |-30..J*I%=360/(N|
00000760  25 2b 31 29 3a e3 20 41  25 3d 31 38 30 2d 49 25  |%+1):. A%=180-I%|
00000770  2f 32 20 b8 20 31 35 20  88 20 2d 49 25 0d 06 54  |/2 . 15 . -I%..T|
00000780  09 f3 20 51 41 25 0d 06  5e 16 f2 62 6c 69 6e 69  |.. QA%..^..blini|
00000790  74 28 42 25 2c 41 25 2c  51 41 25 29 0d 06 68 09  |t(B%,A%,QA%)..h.|
000007a0  f3 20 51 41 25 0d 06 72  19 f2 62 6c 69 6e 69 74  |. QA%..r..blinit|
000007b0  28 42 25 2b 31 2c 2d 41  25 2c 51 41 25 29 0d 06  |(B%+1,-A%,QA%)..|
000007c0  7c 0b 42 25 3d 42 25 2b  32 0d 06 86 05 ed 0d 06  ||.B%=B%+2.......|
000007d0  90 05 e1 0d 06 9a 05 3a  0d 06 a4 17 dd f2 62 6c  |.......:......bl|
000007e0  69 6e 69 74 28 42 25 2c  41 25 2c 51 41 25 29 0d  |init(B%,A%,QA%).|
000007f0  06 ae 23 f4 20 62 75 69  6c 64 20 6f 6e 65 20 73  |..#. build one s|
00000800  74 6f 6e 65 27 73 20 63  6f 6f 72 64 69 6e 61 74  |tone's coordinat|
00000810  65 73 0d 06 b8 16 ea 20  43 2c 53 2c 58 2c 59 2c  |es..... C,S,X,Y,|
00000820  43 58 2c 43 59 2c 49 25  0d 06 c2 12 20 43 58 3d  |CX,CY,I%.... CX=|
00000830  52 25 2a 9b b2 41 25 2b  52 43 0d 06 cc 0f 20 43  |R%*..A%+RC.... C|
00000840  59 3d 52 25 2a b5 b2 41  25 0d 06 d6 0e 53 3d 32  |Y=R%*..A%....S=2|
00000850  30 2a b5 b2 51 41 25 0d  06 e0 0e 43 3d 32 30 2a  |0*..QA%....C=20*|
00000860  9b b2 51 41 25 0d 06 ea  11 58 3d 53 2b 43 58 3a  |..QA%....X=S+CX:|
00000870  59 3d 43 2b 43 59 0d 06  f4 38 20 42 25 28 42 25  |Y=C+CY...8 B%(B%|
00000880  2c 30 2c 30 29 3d 58 3a  42 25 28 42 25 2c 34 2c  |,0,0)=X:B%(B%,4,|
00000890  30 29 3d 58 3a 42 25 28  42 25 2c 30 2c 31 29 3d  |0)=X:B%(B%,0,1)=|
000008a0  59 3a 42 25 28 42 25 2c  34 2c 31 29 3d 59 0d 06  |Y:B%(B%,4,1)=Y..|
000008b0  fe 12 58 3d 43 2b 43 58  3a 59 3d 2d 53 2b 43 59  |..X=C+CX:Y=-S+CY|
000008c0  0d 07 08 37 42 25 28 42  25 2c 31 2c 30 29 3d 58  |...7B%(B%,1,0)=X|
000008d0  3a 42 25 28 42 25 2c 35  2c 30 29 3d 58 3a 42 25  |:B%(B%,5,0)=X:B%|
000008e0  28 42 25 2c 31 2c 31 29  3d 59 3a 42 25 28 42 25  |(B%,1,1)=Y:B%(B%|
000008f0  2c 35 2c 31 29 3d 59 0d  07 12 13 58 3d 2d 53 2b  |,5,1)=Y....X=-S+|
00000900  43 58 3a 59 3d 2d 43 2b  43 59 0d 07 1c 38 42 25  |CX:Y=-C+CY...8B%|
00000910  28 42 25 2c 32 2c 30 29  3d 58 3a 42 25 28 42 25  |(B%,2,0)=X:B%(B%|
00000920  2c 36 2c 30 29 3d 58 3a  42 25 28 42 25 2c 32 2c  |,6,0)=X:B%(B%,2,|
00000930  31 29 3d 59 3a 42 25 28  42 25 2c 36 2c 31 29 3d  |1)=Y:B%(B%,6,1)=|
00000940  59 20 0d 07 26 12 58 3d  2d 43 2b 43 58 3a 59 3d  |Y ..&.X=-C+CX:Y=|
00000950  53 2b 43 59 0d 07 30 37  42 25 28 42 25 2c 33 2c  |S+CY..07B%(B%,3,|
00000960  30 29 3d 58 3a 42 25 28  42 25 2c 37 2c 30 29 3d  |0)=X:B%(B%,7,0)=|
00000970  58 3a 42 25 28 42 25 2c  33 2c 31 29 3d 59 3a 42  |X:B%(B%,3,1)=Y:B|
00000980  25 28 42 25 2c 37 2c 31  29 3d 59 0d 07 3a 0b e3  |%(B%,7,1)=Y..:..|
00000990  49 25 3d 30 b8 33 0d 07  44 15 42 25 28 42 25 2c  |I%=0.3..D.B%(B%,|
000009a0  49 25 2c 32 29 3d 47 25  2b 38 30 0d 07 4e 14 42  |I%,2)=G%+80..N.B|
000009b0  25 28 42 25 2c 49 25 2b  34 2c 32 29 3d 47 25 0d  |%(B%,I%+4,2)=G%.|
000009c0  07 58 08 ed 20 49 25 0d  07 62 05 e1 0d 07 6c 05  |.X.. I%..b....l.|
000009d0  3a 0d 07 76 0a dd f2 63  61 6c 63 0d 07 80 23 f4  |:..v...calc...#.|
000009e0  20 73 68 61 64 6f 77 20  66 61 63 74 6f 72 73 20  | shadow factors |
000009f0  66 72 6f 6d 20 41 4c 20  61 6e 64 20 41 5a 0d 07  |from AL and AZ..|
00000a00  8a 15 53 46 58 3d 9b 20  b2 20 41 5a 2f b7 20 b2  |..SFX=. . AZ/. .|
00000a10  20 41 4c 0d 07 94 16 53  46 59 3d 2d b5 20 b2 20  | AL....SFY=-. . |
00000a20  41 5a 2f b7 20 b2 20 41  4c 0d 07 9e 05 e1 0d 07  |AZ/. . AL.......|
00000a30  a8 05 3a 0d 07 b2 09 dd  f2 70 69 63 0d 07 bc 1f  |..:......pic....|
00000a40  f4 20 64 72 61 77 20 70  69 63 20 67 69 76 65 6e  |. draw pic given|
00000a50  20 41 5a 2c 20 41 4c 20  56 58 25 0d 07 c6 1b e6  | AZ, AL VX%.....|
00000a60  32 2c 31 32 38 2b 4d 41  53 4b 3a e6 31 2c 4d 41  |2,128+MASK:.1,MA|
00000a70  53 4b 20 82 20 33 0d 07  d0 11 4d 41 53 4b 3d 4d  |SK . 3....MASK=M|
00000a80  41 53 4b 20 82 20 33 0d  07 da 09 d6 20 4d 43 25  |ASK . 3..... MC%|
00000a90  0d 07 e4 08 f2 73 75 6e  0d 07 ee 1c e3 5a 25 3d  |.....sun.....Z%=|
00000aa0  30 20 b8 20 4e 25 3a f2  73 68 61 64 6f 77 28 5a  |0 . N%:.shadow(Z|
00000ab0  25 29 3a ed 0d 07 f8 19  e3 5a 25 3d 30 20 b8 20  |%):......Z%=0 . |
00000ac0  4e 25 3a f2 62 6f 78 28  5a 25 29 3a ed 0d 08 02  |N%:.box(Z%):....|
00000ad0  29 ef 31 39 2c 31 2c 43  4f 4c 3b 30 3b 3a 43 4f  |).19,1,COL;0;:CO|
00000ae0  4c 3d 43 4f 4c 20 82 20  37 3a ef 31 39 2c 32 2c  |L=COL . 7:.19,2,|
00000af0  43 4f 4c 3b 30 3b 0d 08  0c 05 e1 0d 08 16 05 3a  |COL;0;.........:|
00000b00  0d 08 20 0d dd f2 62 6f  78 28 42 25 29 0d 08 2a  |.. ...box(B%)..*|
00000b10  14 f4 20 64 72 61 77 20  6f 6e 65 20 73 74 6f 6e  |.. draw one ston|
00000b20  65 0d 08 34 0a ea 20 49  25 2c 4d 0d 08 3e 0b e3  |e..4.. I%,M..>..|
00000b30  49 25 3d 30 b8 37 0d 08  48 1a 4d 3d 53 25 2f 28  |I%=0.7..H.M=S%/(|
00000b40  56 58 25 2d 42 25 28 42  25 2c 49 25 2c 30 29 29  |VX%-B%(B%,I%,0))|
00000b50  0d 08 52 31 54 25 28 49  25 2c 30 29 3d 4d 2a 42  |..R1T%(I%,0)=M*B|
00000b60  25 28 42 25 2c 49 25 2c  31 29 3a 54 25 28 49 25  |%(B%,I%,1):T%(I%|
00000b70  2c 31 29 3d 4d 2a 42 25  28 42 25 2c 49 25 2c 32  |,1)=M*B%(B%,I%,2|
00000b80  29 0d 08 5c 05 ed 0d 08  66 3d f0 34 2c 54 25 28  |)..\....f=.4,T%(|
00000b90  34 2c 30 29 2c 54 25 28  34 2c 31 29 3a f0 34 2c  |4,0),T%(4,1):.4,|
00000ba0  54 25 28 35 2c 30 29 2c  54 25 28 35 2c 31 29 3a  |T%(5,0),T%(5,1):|
00000bb0  f0 38 37 2c 54 25 28 30  2c 30 29 2c 54 25 28 30  |.87,T%(0,0),T%(0|
00000bc0  2c 31 29 0d 08 70 3f f0  38 37 2c 54 25 28 31 2c  |,1)..p?.87,T%(1,|
00000bd0  30 29 2c 54 25 28 31 2c  31 29 3a f0 38 37 2c 54  |0),T%(1,1):.87,T|
00000be0  25 28 33 2c 30 29 2c 54  25 28 33 2c 31 29 3a f0  |%(3,0),T%(3,1):.|
00000bf0  38 37 2c 54 25 28 32 2c  30 29 2c 54 25 28 32 2c  |87,T%(2,0),T%(2,|
00000c00  31 29 0d 08 7a 3e f0 34  2c 54 25 28 31 2c 30 29  |1)..z>.4,T%(1,0)|
00000c10  2c 54 25 28 31 2c 31 29  3a f0 38 37 2c 54 25 28  |,T%(1,1):.87,T%(|
00000c20  36 2c 30 29 2c 54 25 28  36 2c 31 29 3a f0 38 37  |6,0),T%(6,1):.87|
00000c30  2c 54 25 28 35 2c 30 29  2c 54 25 28 35 2c 31 29  |,T%(5,0),T%(5,1)|
00000c40  0d 08 84 3c f0 35 2c 54  25 28 34 2c 30 29 2c 54  |...<.5,T%(4,0),T|
00000c50  25 28 34 2c 31 29 3a f0  35 2c 54 25 28 30 2c 30  |%(4,1):.5,T%(0,0|
00000c60  29 2c 54 25 28 30 2c 31  29 3a f0 35 2c 54 25 28  |),T%(0,1):.5,T%(|
00000c70  33 2c 30 29 2c 54 25 28  33 2c 31 29 0d 08 8e 3c  |3,0),T%(3,1)...<|
00000c80  f0 35 2c 54 25 28 32 2c  30 29 2c 54 25 28 32 2c  |.5,T%(2,0),T%(2,|
00000c90  31 29 3a f0 35 2c 54 25  28 36 2c 30 29 2c 54 25  |1):.5,T%(6,0),T%|
00000ca0  28 36 2c 31 29 3a f0 35  2c 54 25 28 35 2c 30 29  |(6,1):.5,T%(5,0)|
00000cb0  2c 54 25 28 35 2c 31 29  0d 08 98 3c f0 35 2c 54  |,T%(5,1)...<.5,T|
00000cc0  25 28 31 2c 30 29 2c 54  25 28 31 2c 31 29 3a f0  |%(1,0),T%(1,1):.|
00000cd0  35 2c 54 25 28 30 2c 30  29 2c 54 25 28 30 2c 31  |5,T%(0,0),T%(0,1|
00000ce0  29 3a f0 34 2c 54 25 28  32 2c 30 29 2c 54 25 28  |):.4,T%(2,0),T%(|
00000cf0  32 2c 31 29 0d 08 a2 16  f0 35 2c 54 25 28 31 2c  |2,1).....5,T%(1,|
00000d00  30 29 2c 54 25 28 31 2c  31 29 0d 08 ac 05 e1 0d  |0),T%(1,1)......|
00000d10  08 b6 05 3a 0d 08 c0 10  dd f2 73 68 61 64 6f 77  |...:......shadow|
00000d20  28 42 25 29 0d 08 ca 19  f4 20 64 72 61 77 20 73  |(B%)..... draw s|
00000d30  74 6f 6e 65 27 73 20 73  68 61 64 6f 77 0d 08 d4  |tone's shadow...|
00000d40  16 ea 20 48 25 2c 4d 2c  53 30 25 2c 53 31 25 2c  |.. H%,M,S0%,S1%,|
00000d50  53 32 25 0d 08 de 0e e3  49 25 3d 20 30 20 b8 20  |S2%.....I%= 0 . |
00000d60  37 0d 08 e8 15 48 25 3d  42 25 28 42 25 2c 49 25  |7....H%=B%(B%,I%|
00000d70  2c 32 29 2d 47 25 0d 08  f2 31 53 30 25 3d 42 25  |,2)-G%...1S0%=B%|
00000d80  28 42 25 2c 49 25 2c 30  29 2b 48 25 2a 53 46 58  |(B%,I%,0)+H%*SFX|
00000d90  3a 53 31 25 3d 42 25 28  42 25 2c 49 25 2c 31 29  |:S1%=B%(B%,I%,1)|
00000da0  2b 48 25 2a 53 46 59 0d  08 fc 0a 53 32 25 3d 47  |+H%*SFY....S2%=G|
00000db0  25 0d 09 06 12 4d 3d 53  25 2f 28 56 58 25 2d 53  |%....M=S%/(VX%-S|
00000dc0  30 25 29 0d 09 10 21 54  25 28 49 25 2c 30 29 3d  |0%)...!T%(I%,0)=|
00000dd0  4d 2a 53 31 25 3a 54 25  28 49 25 2c 31 29 3d 4d  |M*S1%:T%(I%,1)=M|
00000de0  2a 53 32 25 0d 09 1a 05  ed 0d 09 24 3e 20 f0 34  |*S2%.......$> .4|
00000df0  2c 54 25 28 30 2c 30 29  2c 54 25 28 30 2c 31 29  |,T%(0,0),T%(0,1)|
00000e00  3a f0 34 2c 54 25 28 34  2c 30 29 2c 54 25 28 34  |:.4,T%(4,0),T%(4|
00000e10  2c 31 29 3a f0 38 37 2c  54 25 28 35 2c 30 29 2c  |,1):.87,T%(5,0),|
00000e20  54 25 28 35 2c 31 29 0d  09 2e 3d f0 34 2c 54 25  |T%(5,1)...=.4,T%|
00000e30  28 30 2c 30 29 2c 54 25  28 30 2c 31 29 3a f0 38  |(0,0),T%(0,1):.8|
00000e40  37 2c 54 25 28 31 2c 30  29 2c 54 25 28 31 2c 31  |7,T%(1,0),T%(1,1|
00000e50  29 3a f0 34 2c 54 25 28  35 2c 30 29 2c 54 25 28  |):.4,T%(5,0),T%(|
00000e60  35 2c 31 29 0d 09 38 3e  f0 38 37 2c 54 25 28 36  |5,1)..8>.87,T%(6|
00000e70  2c 30 29 2c 54 25 28 36  2c 31 29 3a f0 34 2c 54  |,0),T%(6,1):.4,T|
00000e80  25 28 31 2c 30 29 2c 54  25 28 31 2c 31 29 3a f0  |%(1,0),T%(1,1):.|
00000e90  38 37 2c 54 25 28 32 2c  30 29 2c 54 25 28 32 2c  |87,T%(2,0),T%(2,|
00000ea0  31 29 0d 09 42 3d f0 34  2c 54 25 28 36 2c 30 29  |1)..B=.4,T%(6,0)|
00000eb0  2c 54 25 28 36 2c 31 29  3a f0 38 37 2c 54 25 28  |,T%(6,1):.87,T%(|
00000ec0  37 2c 30 29 2c 54 25 28  37 2c 31 29 3a f0 34 2c  |7,0),T%(7,1):.4,|
00000ed0  54 25 28 32 2c 30 29 2c  54 25 28 32 2c 31 29 0d  |T%(2,0),T%(2,1).|
00000ee0  09 4c 3e f0 38 37 2c 54  25 28 33 2c 30 29 2c 54  |.L>.87,T%(3,0),T|
00000ef0  25 28 33 2c 31 29 3a f0  34 2c 54 25 28 37 2c 30  |%(3,1):.4,T%(7,0|
00000f00  29 2c 54 25 28 37 2c 31  29 3a f0 38 37 2c 54 25  |),T%(7,1):.87,T%|
00000f10  28 34 2c 30 29 2c 54 25  28 34 2c 31 29 0d 09 56  |(4,0),T%(4,1)..V|
00000f20  3d f0 34 2c 54 25 28 33  2c 30 29 2c 54 25 28 33  |=.4,T%(3,0),T%(3|
00000f30  2c 31 29 3a f0 38 37 2c  54 25 28 30 2c 30 29 2c  |,1):.87,T%(0,0),|
00000f40  54 25 28 30 2c 31 29 3a  f0 34 2c 54 25 28 31 2c  |T%(0,1):.4,T%(1,|
00000f50  30 29 2c 54 25 28 31 2c  31 29 0d 09 60 3e f0 38  |0),T%(1,1)..`>.8|
00000f60  37 2c 54 25 28 32 2c 30  29 2c 54 25 28 32 2c 31  |7,T%(2,0),T%(2,1|
00000f70  29 3a f0 34 2c 54 25 28  33 2c 30 29 2c 54 25 28  |):.4,T%(3,0),T%(|
00000f80  33 2c 31 29 3a f0 38 37  2c 54 25 28 30 2c 30 29  |3,1):.87,T%(0,0)|
00000f90  2c 54 25 28 30 2c 31 29  0d 09 6a 16 f0 34 2c 54  |,T%(0,1)..j..4,T|
00000fa0  25 28 33 2c 30 29 2c 54  25 28 33 2c 31 29 0d 09  |%(3,0),T%(3,1)..|
00000fb0  74 17 f0 38 37 2c 54 25  28 30 2c 30 29 2c 54 25  |t..87,T%(0,0),T%|
00000fc0  28 30 2c 31 29 0d 09 7e  05 e1 0d 09 88 05 3a 0d  |(0,1)..~......:.|
00000fd0  09 92 09 dd f2 73 75 6e  0d 09 9c 16 e7 20 41 5a  |.....sun..... AZ|
00000fe0  3e 35 30 20 80 20 41 5a  3c 33 31 30 20 e1 0d 09  |>50 . AZ<310 ...|
00000ff0  a6 0e ea 20 59 25 2c 5a  25 2c 49 25 0d 09 b0 1f  |... Y%,Z%,I%....|
00001000  59 25 3d 38 30 30 2a b5  20 b2 20 41 5a 3a 5a 25  |Y%=800*. . AZ:Z%|
00001010  3d 39 30 30 2a b5 20 b2  20 41 4c 0d 09 ba 18 ec  |=900*. . AL.....|
00001020  20 59 25 2d 34 38 2c 5a  25 2b 34 38 3a f1 20 53  | Y%-48,Z%+48:. S|
00001030  55 4e 24 0d 09 c4 05 e1  0d 09 ce 05 3a 0d 09 d8  |UN$.........:...|
00001040  09 ee 20 85 20 87 0d 09  e2 06 eb 36 0d 09 ec 20  |.. . ......6... |
00001050  f6 3a f1 22 20 61 74 20  6c 69 6e 65 20 22 3b 9e  |.:." at line ";.|
00001060  3b 22 20 45 72 72 6f 72  20 22 3b 9f 0d 09 f6 05  |;" Error ";.....|
00001070  e0 0d ff                                          |...|
00001073