� COMPUTER AIDED PERSPECTIVE

� DRAWING
� by H.R Wall
(� (c) The Micro User
2� Load by "CAPD"
<�129
F
� � �t`@
P'A=350:S=30:P=30:W2=0:L2=0:H2=0:SF=1
Z
numpts%=0
d*FX11,0
n�assigncol
x�23;8202;0;0;0;
�� A(100,4)
�� B(200,3)
�� C(300)
��
��5,5);"* * MAIN MENU * *"
��'
���5);"1. Edit"':�5);"2. Load"':�5);"3. Save"':�5);"4. Preview"':�5);"5. Co-ordinates and variables"':�5);"6. Return to Basic"''
�'�:B=�:B=B-48:� B<1 � B>6 � �7:�dH@
�� B=6 � �TlA
��''
�"� B � �dp@,�dz@,�TDA,�TNA,�TXA
��edit:�t`@
��load:�t`@

�save:�t`@

�preview:�t`@

�data:�t`@

"	�t`@

,�

6� �preview

@�

J�calcframe

TZR%=1:ZR1=ZR%

^�drawframe1(ZR1)

h
�frame1on

r	�move

|
�keyin

�� G=9 � �T\B

��calcframe

�ZR%=1:ZR1=ZR%

��drawframe2(ZR1)

�
�frame2on

��eraseframe1(numpts%+1)

�	�move

�
�keyin

�� G=9 � �T\B

��calcframe

�ZR%=1:ZR1=ZR%

��drawframe1(ZR1)

�
�frame1on
�eraseframe2(numpts%+1)
	�DrA
�
&� �draw(ZR%)
0R%=0:�ptnum
:�
D+X=B(ptnum%+ZR%-1,2):Y=B(ptnum%+ZR%-1,3)
N� 69,X,Y
X
�ptnum
b�
l+X=B(ptnum%+ZR%-1,2):Y=B(ptnum%+ZR%-1,3)
v� 5,X,Y
�
�ptnum
�� ptnum%=0
�
�ptnum
�� ptnum%=0
��datums
��
�� �pers
�R=�/180
�&� L+L2=0 � W+W2=0 � B9=0:V=0:�TBC
�#� L+L2=0 � B9=90*R:V=W+W2:�TBC
�!� W+W2=0 � B9=0:V=L2+L2:�TBC
�B9=�((W+W2)/(L+L2))
�V=(W+W2)/�(B9)
K=V*�((P*R)+B9)
L9=V*�((P*R)+B9)
� H-H2=0 � BA=0:T=L9:�T~C
 !� L9=0 � BA=90*R:T=H-H2:�T~C
*BA=�((H-H2)/L9)
4T=(H-H2)/�(BA)
>Y1=T*�(BA+(S*R))
HJ=T*�(BA+(S*R))
RX=K*A/(A+J)
\Y=Y1*A/(A+J)
fX=X*SF+640:Y=Y*SF+512
p�
z� �assigncol
��19,0,4;0; :� Frame 1 Back
��19,1,7;0; :� Frame 2 Fore
��19,2,4;0; :� Frame 2 Back
��19,3,7;0; :� Frame 1 Fore
��
�� �frame1on
��19,1,7;0;
��19,2,4;0;
��
�� �frame2on
��19,1,4;0;
��19,2,7;0;
��
� �eraseframe1(ZR1)
�2,2
�draw(ZR1)
$�
.� �eraseframe2(ZR2)
8�2,1
B�draw(ZR2)
L�
V� �drawframe1(ZR1)
`�1,1
j�draw(ZR1)
t�
~� �drawframe2(ZR1)
��1,2
��draw(ZR1)
��
�� �move
�ZR2%=numpts%+1
�� ZR%=1 � numpts%
�� ZC%=1 � 3
�B(ZR2%,ZC%)=B(ZR%,ZC%)
��:ZR2%=ZR2%+1
��
��
�� �keyin

*FX4,1

G=�
� G=139 S=S-10:�DxE
� G=138 S=S+10:�DxE
(� G=136 P=P-10:�DxE
2� G=137 P=P+10:�DxE
<� G=76 SF=SF+(SF/10):�DxE
F� G=83 SF=SF-(SF/10):�DxE
P� G=67 A=�(A-(A/5)):�DxE
Z� G=70 A=�(A+(A/5)):�DxE
d� G=9 � �DxE
n	�TJE
x
*FX4,0
��
�� �calcframe
�	ZRB=1
�� ZR%=1 � numpts%
�$W=A(ZR%,2):L=A(ZR%,3):H=A(ZR%,4)
�	�pers
�&B(ZRB,1)=ZR%:B(ZRB,2)=X:B(ZRB,3)=Y
�
ZRB=ZRB+1
��
��
�� �ptnum
�R%=R%+1:ptnum%=C(R%)
��
� �save
�10)"* * SAVE * *";''
�" ";:�"File name " fname$
"VV=�(fname$)
,"�#VV,numpts%,A,SF,H2,L2,W2,S,P
6� R%=1 � numpts%:� C%=1 � 4
@�#VV,A(R%,C%):�:�
JR%=0
T�
^R%=R%+1
h�#VV,C(R%)
r
� C(R%)=0
|R%=R%+1:�#VV,C(R%)
�� C(R%)>0 � �DTF
��#VV
��
�� �load
��10)"* * LOAD * *";''
��" ";:�"File name " fname$
�VV=�(fname$)
�"�#VV,numpts%,A,SF,H2,L2,W2,S,P
�� R%=1 � numpts%:� C%=1 � 4
��#VV,A(R%,C%):�:�
�R%=0
��
�R%=R%+1
�#VV,C(R%)

� C(R%)=0
R%=R%+1:�#VV,C(R%)
&� C(R%)>0 � �dtF
0�#VV
:�
D� �data
N�
X�calcframe
b@%=&02020A
lPR$="0":�14
v1�3,5);"* * CO-ORDINATES and VARIABLES * *"''
��5)"SUBJECT DATA"'
�'�;�5)"Pt.";�15)"W";�24)"L";�33)"H"'
��R=1 � numpts%
�M@%=&90A:�;�5)A(R,1);:@%=&02020A:�;�13)A(R,2);�22)A(R,3);�31)A(R,4):�:�:�'
��3)"VARIABLES"'
�@%=&90A
�8�3)"A=";A;"  S=";S;"  P=";P;"  W2=";W2;"  L2=";L2;'
�(�3)"H2=";H2;:@%=&02020A:�;" SF=";SF
�@%=&90A
��''
��7)"3D CO-ORDINATES"'
��7)"No.";�17)"X";�27)"Y";'
�� R=1 � numpts%
G@%=&90A:�;�7);B(R,1);:@%=&02020A:�10)B(R,2)-640;�25)B(R,3)-512:�:�
@%=&90A
�'
 (�6)"Order in which to join points"'
*1�2)"Note! 0=lift pen  0,0=end of plotting"''
4R=0
>�
H	R=R+1
R�;C(R);",";:� ?&1E>36 �'
\� C(R)=0 � C(R+1)=0
f�;"0"''
p� PR$="Y" �3:�tbH
z�3);:�"Printer? Y/N "PR$
�� PR$="N" �tbH
�� PR$<>"Y" � �DzH
��2,15:� �DvG
��
�
� �datums
�� 69,0,512
�� 5,1280,512
�� 69, 640,0
�� 5,640,1024
��
�� �edit
��
��10,5)"* * EDIT * *"''
	 �5)"1. Enter subject data"'
	 �5)"2. Alter subject data"'
	#�5)"3. Enter/Alter variables"'
	$)�5)"4. Enter/Alter point sequence"''
	.!�5)"5. Return to Main Menu"'
	8#�:ED=�:ED=ED-48:� ED>5 �7:�TxI
	B� ED � �DLI,�DVI,�D`I,�DjI
	L�subjectin:�drH
	V�subjectmod:�drH
	`�varin:�drH
	j�joinin:�drH
	t� ED=5 �tHI
	~	�drH
	��
	�� �varin
	��
	�+�5,4)"* * ENTER/ALTER VARIABLES * *"''
	�0�2)"Enter new value or else press RETURN"''
	�8�2)"Eye to C.V. (A=";A;") ";:� XX:� XX=0 A=A � A=XX
	�<�':�2)"Tilt of base (S=";S;") ";:� XX:� XX=0 S=S � S=XX
	�8�':�2)"Rotation  P=";P;") ";:� XX:� XX=0 P=P � P=XX
	�H�':�2)"Width datum to C.V. (W2=";W2;") ";:� XX:� XX=0 W2=W2 � W2=XX
	�I�':�2)"Length datum to C.V. (L2=";L2;") ";:� XX:� XX=0 L2=L2 � L2=XX
	�I�':�2)"Horiz. datum to C.V. (H2=";H2;") ";:� XX:� XX=0 H2=H2 � H2=XX
	�L�':�2)"Scale factor (SF=";SF;") ";:� XX$:XX=�(XX$):� XX=0 SF=SF � SF=XX
�

� �subjectmod
�
(�5,8)"* * ALTER SUBJECT DATA * *"''
(+�5)"Point No. to alter ";:�G:R=G:�TrJ
2G�'�5);"Width (W=";A(R,2);") ";:�XX:� XX=0 A(R,2)=A(R,2) � A(R,2)=XX
<G�'�5);"Length (L=";A(R,3);")";:�XX:� XX=0 A(R,3)=A(R,3) � A(R,3)=XX
FG�'�5);"Height (L=";A(R,4);")";:�XX:� XX=0 A(R,4)=A(R,4) � A(R,4)=XX
P%�''�5);:�"Another point? Y/N "AN$
Z� AN$="N" � �DxJ
d� AN$<>"Y" � �DPJ
n
� �TTJ
x�
�� �subjectin
�R=numpts%+1
��
�(�5,8)"* * ENTER SUBJECT DATA * *"''
�"� �5)"Pt. No.     ";R:A(R,1)=R
�&�'�5);"Width (W)  ";:�XX:A(R,2)=XX
�&�'�5);"Length (L) ";:�XX:A(R,3)=XX
�&�'�5);"Height (H) ";:�XX:A(R,4)=XX
�%�''�5);:�"Another point? Y/N "AN$
�� AN$="N" � �dzJ
�� AN$<>"Y" � �dRJ
�R=R+1:� �tVJ
�
numpts%=R
�

� �joinin
�
".�;�5,3)"* * ORDER OF JOINING POINTS * *"''
,1�2)"Note! 0=lift pen  0,0=end of plotting"''
6R=0
@�
J	R=R+1
TA�;"  Point No. (";C(R);")";:� PN$:� �(PN$)=-1 C(R)=C(R):�DrK
^�joinstr
hC(R)=PN
r� C(R)=0 � C(R-1)=0
|�
�� �joinstr
�PN=0
��N=1 � �(PN$)
�PN=PN*10+(�(�PN$,N))-48)
��
��
�

00000000  0d 00 0a 20 f4 20 43 4f  4d 50 55 54 45 52 20 41  |... . COMPUTER A|
00000010  49 44 45 44 20 50 45 52  53 50 45 43 54 49 56 45  |IDED PERSPECTIVE|
00000020  0d 00 14 0d f4 20 44 52  41 57 49 4e 47 0d 00 1e  |..... DRAWING...|
00000030  11 f4 20 62 79 20 48 2e  52 20 57 61 6c 6c 0d 00  |.. by H.R Wall..|
00000040  28 18 f4 20 28 63 29 20  54 68 65 20 4d 69 63 72  |(.. (c) The Micr|
00000050  6f 20 55 73 65 72 0d 00  32 14 f4 20 4c 6f 61 64  |o User..2.. Load|
00000060  20 62 79 20 22 43 41 50  44 22 0d 00 3c 08 eb 31  | by "CAPD"..<..1|
00000070  32 39 0d 00 46 0d ee 20  85 20 e5 8d 74 60 40 0d  |29..F.. . ..t`@.|
00000080  00 50 27 41 3d 33 35 30  3a 53 3d 33 30 3a 50 3d  |.P'A=350:S=30:P=|
00000090  33 30 3a 57 32 3d 30 3a  4c 32 3d 30 3a 48 32 3d  |30:W2=0:L2=0:H2=|
000000a0  30 3a 53 46 3d 31 0d 00  5a 0d 6e 75 6d 70 74 73  |0:SF=1..Z.numpts|
000000b0  25 3d 30 0d 00 64 0b 2a  46 58 31 31 2c 30 0d 00  |%=0..d.*FX11,0..|
000000c0  6e 0e f2 61 73 73 69 67  6e 63 6f 6c 0d 00 78 13  |n..assigncol..x.|
000000d0  ef 32 33 3b 38 32 30 32  3b 30 3b 30 3b 30 3b 0d  |.23;8202;0;0;0;.|
000000e0  00 82 0e de 20 41 28 31  30 30 2c 34 29 0d 00 8c  |.... A(100,4)...|
000000f0  0e de 20 42 28 32 30 30  2c 33 29 0d 00 96 0c de  |.. B(200,3).....|
00000100  20 43 28 33 30 30 29 0d  00 a0 05 db 0d 00 aa 1e  | C(300).........|
00000110  f1 8a 35 2c 35 29 3b 22  2a 20 2a 20 4d 41 49 4e  |..5,5);"* * MAIN|
00000120  20 4d 45 4e 55 20 2a 20  2a 22 0d 00 b4 06 f1 27  | MENU * *".....'|
00000130  0d 00 be 88 f1 8a 35 29  3b 22 31 2e 20 45 64 69  |......5);"1. Edi|
00000140  74 22 27 3a f1 8a 35 29  3b 22 32 2e 20 4c 6f 61  |t"':..5);"2. Loa|
00000150  64 22 27 3a f1 8a 35 29  3b 22 33 2e 20 53 61 76  |d"':..5);"3. Sav|
00000160  65 22 27 3a f1 8a 35 29  3b 22 34 2e 20 50 72 65  |e"':..5);"4. Pre|
00000170  76 69 65 77 22 27 3a f1  8a 35 29 3b 22 35 2e 20  |view"':..5);"5. |
00000180  43 6f 2d 6f 72 64 69 6e  61 74 65 73 20 61 6e 64  |Co-ordinates and|
00000190  20 76 61 72 69 61 62 6c  65 73 22 27 3a f1 8a 35  | variables"':..5|
000001a0  29 3b 22 36 2e 20 52 65  74 75 72 6e 20 74 6f 20  |);"6. Return to |
000001b0  42 61 73 69 63 22 27 27  0d 00 c8 27 f1 3a 42 3d  |Basic"''...'.:B=|
000001c0  a5 3a 42 3d 42 2d 34 38  3a e7 20 42 3c 31 20 84  |.:B=B-48:. B<1 .|
000001d0  20 42 3e 36 20 8c 20 ef  37 3a e5 8d 64 48 40 0d  | B>6 . .7:..dH@.|
000001e0  00 d2 10 e7 20 42 3d 36  20 8c 20 8d 54 6c 41 0d  |.... B=6 . .TlA.|
000001f0  00 dc 07 f1 27 27 0d 00  e6 22 ee 20 42 20 e5 20  |....''...". B . |
00000200  8d 64 70 40 2c 8d 64 7a  40 2c 8d 54 44 41 2c 8d  |.dp@,.dz@,.TDA,.|
00000210  54 4e 41 2c 8d 54 58 41  0d 00 f0 0f f2 65 64 69  |TNA,.TXA.....edi|
00000220  74 3a e5 8d 74 60 40 0d  00 fa 0f f2 6c 6f 61 64  |t:..t`@.....load|
00000230  3a e5 8d 74 60 40 0d 01  04 0f f2 73 61 76 65 3a  |:..t`@.....save:|
00000240  e5 8d 74 60 40 0d 01 0e  12 f2 70 72 65 76 69 65  |..t`@.....previe|
00000250  77 3a e5 8d 74 60 40 0d  01 18 0f f2 64 61 74 61  |w:..t`@.....data|
00000260  3a e5 8d 74 60 40 0d 01  22 09 e5 8d 74 60 40 0d  |:..t`@.."...t`@.|
00000270  01 2c 05 e0 0d 01 36 0e  dd 20 f2 70 72 65 76 69  |.,....6.. .previ|
00000280  65 77 0d 01 40 05 db 0d  01 4a 0e f2 63 61 6c 63  |ew..@....J..calc|
00000290  66 72 61 6d 65 0d 01 54  11 5a 52 25 3d 31 3a 5a  |frame..T.ZR%=1:Z|
000002a0  52 31 3d 5a 52 25 0d 01  5e 14 f2 64 72 61 77 66  |R1=ZR%..^..drawf|
000002b0  72 61 6d 65 31 28 5a 52  31 29 0d 01 68 0d f2 66  |rame1(ZR1)..h..f|
000002c0  72 61 6d 65 31 6f 6e 0d  01 72 09 f2 6d 6f 76 65  |rame1on..r..move|
000002d0  0d 01 7c 0a f2 6b 65 79  69 6e 0d 01 86 10 e7 20  |..|..keyin..... |
000002e0  47 3d 39 20 8c 20 8d 54  5c 42 0d 01 90 0e f2 63  |G=9 . .T\B.....c|
000002f0  61 6c 63 66 72 61 6d 65  0d 01 9a 11 5a 52 25 3d  |alcframe....ZR%=|
00000300  31 3a 5a 52 31 3d 5a 52  25 0d 01 a4 14 f2 64 72  |1:ZR1=ZR%.....dr|
00000310  61 77 66 72 61 6d 65 32  28 5a 52 31 29 0d 01 ae  |awframe2(ZR1)...|
00000320  0d f2 66 72 61 6d 65 32  6f 6e 0d 01 b8 1b f2 65  |..frame2on.....e|
00000330  72 61 73 65 66 72 61 6d  65 31 28 6e 75 6d 70 74  |raseframe1(numpt|
00000340  73 25 2b 31 29 0d 01 c2  09 f2 6d 6f 76 65 0d 01  |s%+1).....move..|
00000350  cc 0a f2 6b 65 79 69 6e  0d 01 d6 10 e7 20 47 3d  |...keyin..... G=|
00000360  39 20 8c 20 8d 54 5c 42  0d 01 e0 0e f2 63 61 6c  |9 . .T\B.....cal|
00000370  63 66 72 61 6d 65 0d 01  ea 11 5a 52 25 3d 31 3a  |cframe....ZR%=1:|
00000380  5a 52 31 3d 5a 52 25 0d  01 f4 14 f2 64 72 61 77  |ZR1=ZR%.....draw|
00000390  66 72 61 6d 65 31 28 5a  52 31 29 0d 01 fe 0d f2  |frame1(ZR1).....|
000003a0  66 72 61 6d 65 31 6f 6e  0d 02 08 1b f2 65 72 61  |frame1on.....era|
000003b0  73 65 66 72 61 6d 65 32  28 6e 75 6d 70 74 73 25  |seframe2(numpts%|
000003c0  2b 31 29 0d 02 12 09 e5  8d 44 72 41 0d 02 1c 05  |+1)......DrA....|
000003d0  e1 0d 02 26 10 dd 20 f2  64 72 61 77 28 5a 52 25  |...&.. .draw(ZR%|
000003e0  29 0d 02 30 0f 52 25 3d  30 3a f2 70 74 6e 75 6d  |)..0.R%=0:.ptnum|
000003f0  0d 02 3a 05 f5 0d 02 44  2b 58 3d 42 28 70 74 6e  |..:....D+X=B(ptn|
00000400  75 6d 25 2b 5a 52 25 2d  31 2c 32 29 3a 59 3d 42  |um%+ZR%-1,2):Y=B|
00000410  28 70 74 6e 75 6d 25 2b  5a 52 25 2d 31 2c 33 29  |(ptnum%+ZR%-1,3)|
00000420  0d 02 4e 0c f0 20 36 39  2c 58 2c 59 0d 02 58 0a  |..N.. 69,X,Y..X.|
00000430  f2 70 74 6e 75 6d 0d 02  62 05 f5 0d 02 6c 2b 58  |.ptnum..b....l+X|
00000440  3d 42 28 70 74 6e 75 6d  25 2b 5a 52 25 2d 31 2c  |=B(ptnum%+ZR%-1,|
00000450  32 29 3a 59 3d 42 28 70  74 6e 75 6d 25 2b 5a 52  |2):Y=B(ptnum%+ZR|
00000460  25 2d 31 2c 33 29 0d 02  76 0b f0 20 35 2c 58 2c  |%-1,3)..v.. 5,X,|
00000470  59 0d 02 80 0a f2 70 74  6e 75 6d 0d 02 8a 0e fd  |Y.....ptnum.....|
00000480  20 70 74 6e 75 6d 25 3d  30 0d 02 94 0a f2 70 74  | ptnum%=0.....pt|
00000490  6e 75 6d 0d 02 9e 0e fd  20 70 74 6e 75 6d 25 3d  |num..... ptnum%=|
000004a0  30 0d 02 a8 0b f2 64 61  74 75 6d 73 0d 02 b2 05  |0.....datums....|
000004b0  e1 0d 02 bc 0b dd 20 f2  70 65 72 73 0d 02 c6 0b  |...... .pers....|
000004c0  52 3d af 2f 31 38 30 0d  02 d0 26 e7 20 4c 2b 4c  |R=./180...&. L+L|
000004d0  32 3d 30 20 80 20 57 2b  57 32 3d 30 20 8c 20 42  |2=0 . W+W2=0 . B|
000004e0  39 3d 30 3a 56 3d 30 3a  e5 8d 54 42 43 0d 02 da  |9=0:V=0:..TBC...|
000004f0  23 e7 20 4c 2b 4c 32 3d  30 20 8c 20 42 39 3d 39  |#. L+L2=0 . B9=9|
00000500  30 2a 52 3a 56 3d 57 2b  57 32 3a e5 8d 54 42 43  |0*R:V=W+W2:..TBC|
00000510  0d 02 e4 21 e7 20 57 2b  57 32 3d 30 20 8c 20 42  |...!. W+W2=0 . B|
00000520  39 3d 30 3a 56 3d 4c 32  2b 4c 32 3a e5 8d 54 42  |9=0:V=L2+L2:..TB|
00000530  43 0d 02 ee 17 42 39 3d  99 28 28 57 2b 57 32 29  |C....B9=.((W+W2)|
00000540  2f 28 4c 2b 4c 32 29 29  0d 02 f8 12 56 3d 28 57  |/(L+L2))....V=(W|
00000550  2b 57 32 29 2f b5 28 42  39 29 0d 03 02 13 4b 3d  |+W2)/.(B9)....K=|
00000560  56 2a b5 28 28 50 2a 52  29 2b 42 39 29 0d 03 0c  |V*.((P*R)+B9)...|
00000570  14 4c 39 3d 56 2a 9b 28  28 50 2a 52 29 2b 42 39  |.L9=V*.((P*R)+B9|
00000580  29 0d 03 16 1e e7 20 48  2d 48 32 3d 30 20 8c 20  |)..... H-H2=0 . |
00000590  42 41 3d 30 3a 54 3d 4c  39 3a e5 8d 54 7e 43 0d  |BA=0:T=L9:..T~C.|
000005a0  03 20 21 e7 20 4c 39 3d  30 20 8c 20 42 41 3d 39  |. !. L9=0 . BA=9|
000005b0  30 2a 52 3a 54 3d 48 2d  48 32 3a e5 8d 54 7e 43  |0*R:T=H-H2:..T~C|
000005c0  0d 03 2a 13 42 41 3d 99  28 28 48 2d 48 32 29 2f  |..*.BA=.((H-H2)/|
000005d0  4c 39 29 0d 03 34 12 54  3d 28 48 2d 48 32 29 2f  |L9)..4.T=(H-H2)/|
000005e0  b5 28 42 41 29 0d 03 3e  14 59 31 3d 54 2a b5 28  |.(BA)..>.Y1=T*.(|
000005f0  42 41 2b 28 53 2a 52 29  29 0d 03 48 13 4a 3d 54  |BA+(S*R))..H.J=T|
00000600  2a 9b 28 42 41 2b 28 53  2a 52 29 29 0d 03 52 0f  |*.(BA+(S*R))..R.|
00000610  58 3d 4b 2a 41 2f 28 41  2b 4a 29 0d 03 5c 10 59  |X=K*A/(A+J)..\.Y|
00000620  3d 59 31 2a 41 2f 28 41  2b 4a 29 0d 03 66 19 58  |=Y1*A/(A+J)..f.X|
00000630  3d 58 2a 53 46 2b 36 34  30 3a 59 3d 59 2a 53 46  |=X*SF+640:Y=Y*SF|
00000640  2b 35 31 32 0d 03 70 05  e1 0d 03 7a 10 dd 20 f2  |+512..p....z.. .|
00000650  61 73 73 69 67 6e 63 6f  6c 0d 03 84 1e ef 31 39  |assigncol.....19|
00000660  2c 30 2c 34 3b 30 3b 20  3a f4 20 46 72 61 6d 65  |,0,4;0; :. Frame|
00000670  20 31 20 42 61 63 6b 0d  03 8e 1e ef 31 39 2c 31  | 1 Back.....19,1|
00000680  2c 37 3b 30 3b 20 3a f4  20 46 72 61 6d 65 20 32  |,7;0; :. Frame 2|
00000690  20 46 6f 72 65 0d 03 98  1e ef 31 39 2c 32 2c 34  | Fore.....19,2,4|
000006a0  3b 30 3b 20 3a f4 20 46  72 61 6d 65 20 32 20 42  |;0; :. Frame 2 B|
000006b0  61 63 6b 0d 03 a2 1e ef  31 39 2c 33 2c 37 3b 30  |ack.....19,3,7;0|
000006c0  3b 20 3a f4 20 46 72 61  6d 65 20 31 20 46 6f 72  |; :. Frame 1 For|
000006d0  65 0d 03 ac 05 e1 0d 03  b6 0f dd 20 f2 66 72 61  |e.......... .fra|
000006e0  6d 65 31 6f 6e 0d 03 c0  0e ef 31 39 2c 31 2c 37  |me1on.....19,1,7|
000006f0  3b 30 3b 0d 03 ca 0e ef  31 39 2c 32 2c 34 3b 30  |;0;.....19,2,4;0|
00000700  3b 0d 03 d4 05 e1 0d 03  de 0f dd 20 f2 66 72 61  |;.......... .fra|
00000710  6d 65 32 6f 6e 0d 03 e8  0e ef 31 39 2c 31 2c 34  |me2on.....19,1,4|
00000720  3b 30 3b 0d 03 f2 0e ef  31 39 2c 32 2c 37 3b 30  |;0;.....19,2,7;0|
00000730  3b 0d 03 fc 05 e1 0d 04  06 17 dd 20 f2 65 72 61  |;.......... .era|
00000740  73 65 66 72 61 6d 65 31  28 5a 52 31 29 0d 04 10  |seframe1(ZR1)...|
00000750  08 e6 32 2c 32 0d 04 1a  0e f2 64 72 61 77 28 5a  |..2,2.....draw(Z|
00000760  52 31 29 0d 04 24 05 e1  0d 04 2e 17 dd 20 f2 65  |R1)..$....... .e|
00000770  72 61 73 65 66 72 61 6d  65 32 28 5a 52 32 29 0d  |raseframe2(ZR2).|
00000780  04 38 08 e6 32 2c 31 0d  04 42 0e f2 64 72 61 77  |.8..2,1..B..draw|
00000790  28 5a 52 32 29 0d 04 4c  05 e1 0d 04 56 16 dd 20  |(ZR2)..L....V.. |
000007a0  f2 64 72 61 77 66 72 61  6d 65 31 28 5a 52 31 29  |.drawframe1(ZR1)|
000007b0  0d 04 60 08 e6 31 2c 31  0d 04 6a 0e f2 64 72 61  |..`..1,1..j..dra|
000007c0  77 28 5a 52 31 29 0d 04  74 05 e1 0d 04 7e 16 dd  |w(ZR1)..t....~..|
000007d0  20 f2 64 72 61 77 66 72  61 6d 65 32 28 5a 52 31  | .drawframe2(ZR1|
000007e0  29 0d 04 88 08 e6 31 2c  32 0d 04 92 0e f2 64 72  |).....1,2.....dr|
000007f0  61 77 28 5a 52 31 29 0d  04 9c 05 e1 0d 04 a6 0b  |aw(ZR1).........|
00000800  dd 20 f2 6d 6f 76 65 0d  04 b0 12 5a 52 32 25 3d  |. .move....ZR2%=|
00000810  6e 75 6d 70 74 73 25 2b  31 0d 04 ba 15 e3 20 5a  |numpts%+1..... Z|
00000820  52 25 3d 31 20 b8 20 6e  75 6d 70 74 73 25 0d 04  |R%=1 . numpts%..|
00000830  c4 0f e3 20 5a 43 25 3d  31 20 b8 20 33 0d 04 ce  |... ZC%=1 . 3...|
00000840  1a 42 28 5a 52 32 25 2c  5a 43 25 29 3d 42 28 5a  |.B(ZR2%,ZC%)=B(Z|
00000850  52 25 2c 5a 43 25 29 0d  04 d8 11 ed 3a 5a 52 32  |R%,ZC%).....:ZR2|
00000860  25 3d 5a 52 32 25 2b 31  0d 04 e2 05 ed 0d 04 ec  |%=ZR2%+1........|
00000870  05 e1 0d 04 f6 0c dd 20  f2 6b 65 79 69 6e 0d 05  |....... .keyin..|
00000880  00 0a 2a 46 58 34 2c 31  0d 05 0a 07 47 3d a5 0d  |..*FX4,1....G=..|
00000890  05 14 18 e7 20 47 3d 31  33 39 20 53 3d 53 2d 31  |.... G=139 S=S-1|
000008a0  30 3a e5 8d 44 78 45 0d  05 1e 18 e7 20 47 3d 31  |0:..DxE..... G=1|
000008b0  33 38 20 53 3d 53 2b 31  30 3a e5 8d 44 78 45 0d  |38 S=S+10:..DxE.|
000008c0  05 28 18 e7 20 47 3d 31  33 36 20 50 3d 50 2d 31  |.(.. G=136 P=P-1|
000008d0  30 3a e5 8d 44 78 45 0d  05 32 18 e7 20 47 3d 31  |0:..DxE..2.. G=1|
000008e0  33 37 20 50 3d 50 2b 31  30 3a e5 8d 44 78 45 0d  |37 P=P+10:..DxE.|
000008f0  05 3c 1e e7 20 47 3d 37  36 20 53 46 3d 53 46 2b  |.<.. G=76 SF=SF+|
00000900  28 53 46 2f 31 30 29 3a  e5 8d 44 78 45 0d 05 46  |(SF/10):..DxE..F|
00000910  1e e7 20 47 3d 38 33 20  53 46 3d 53 46 2d 28 53  |.. G=83 SF=SF-(S|
00000920  46 2f 31 30 29 3a e5 8d  44 78 45 0d 05 50 1d e7  |F/10):..DxE..P..|
00000930  20 47 3d 36 37 20 41 3d  a8 28 41 2d 28 41 2f 35  | G=67 A=.(A-(A/5|
00000940  29 29 3a e5 8d 44 78 45  0d 05 5a 1d e7 20 47 3d  |)):..DxE..Z.. G=|
00000950  37 30 20 41 3d a8 28 41  2b 28 41 2f 35 29 29 3a  |70 A=.(A+(A/5)):|
00000960  e5 8d 44 78 45 0d 05 64  10 e7 20 47 3d 39 20 8c  |..DxE..d.. G=9 .|
00000970  20 8d 44 78 45 0d 05 6e  09 e5 8d 54 4a 45 0d 05  | .DxE..n...TJE..|
00000980  78 0a 2a 46 58 34 2c 30  0d 05 82 05 e1 0d 05 8c  |x.*FX4,0........|
00000990  10 dd 20 f2 63 61 6c 63  66 72 61 6d 65 0d 05 96  |.. .calcframe...|
000009a0  09 5a 52 42 3d 31 0d 05  a0 15 e3 20 5a 52 25 3d  |.ZRB=1..... ZR%=|
000009b0  31 20 b8 20 6e 75 6d 70  74 73 25 0d 05 aa 24 57  |1 . numpts%...$W|
000009c0  3d 41 28 5a 52 25 2c 32  29 3a 4c 3d 41 28 5a 52  |=A(ZR%,2):L=A(ZR|
000009d0  25 2c 33 29 3a 48 3d 41  28 5a 52 25 2c 34 29 0d  |%,3):H=A(ZR%,4).|
000009e0  05 b4 09 f2 70 65 72 73  0d 05 be 26 42 28 5a 52  |....pers...&B(ZR|
000009f0  42 2c 31 29 3d 5a 52 25  3a 42 28 5a 52 42 2c 32  |B,1)=ZR%:B(ZRB,2|
00000a00  29 3d 58 3a 42 28 5a 52  42 2c 33 29 3d 59 0d 05  |)=X:B(ZRB,3)=Y..|
00000a10  c8 0d 5a 52 42 3d 5a 52  42 2b 31 0d 05 d2 05 ed  |..ZRB=ZRB+1.....|
00000a20  0d 05 dc 05 e1 0d 05 e6  0c dd 20 f2 70 74 6e 75  |.......... .ptnu|
00000a30  6d 0d 05 f0 18 52 25 3d  52 25 2b 31 3a 70 74 6e  |m....R%=R%+1:ptn|
00000a40  75 6d 25 3d 43 28 52 25  29 0d 05 fa 05 e1 0d 06  |um%=C(R%).......|
00000a50  04 0b dd 20 f2 73 61 76  65 0d 06 0e 1a f1 8a 31  |... .save......1|
00000a60  30 29 22 2a 20 2a 20 53  41 56 45 20 2a 20 2a 22  |0)"* * SAVE * *"|
00000a70  3b 27 27 0d 06 18 1e f1  22 20 22 3b 3a e8 22 46  |;''....." ";:."F|
00000a80  69 6c 65 20 6e 61 6d 65  20 22 20 66 6e 61 6d 65  |ile name " fname|
00000a90  24 0d 06 22 10 56 56 3d  ae 28 66 6e 61 6d 65 24  |$..".VV=.(fname$|
00000aa0  29 0d 06 2c 22 f1 23 56  56 2c 6e 75 6d 70 74 73  |)..,".#VV,numpts|
00000ab0  25 2c 41 2c 53 46 2c 48  32 2c 4c 32 2c 57 32 2c  |%,A,SF,H2,L2,W2,|
00000ac0  53 2c 50 0d 06 36 1f e3  20 52 25 3d 31 20 b8 20  |S,P..6.. R%=1 . |
00000ad0  6e 75 6d 70 74 73 25 3a  e3 20 43 25 3d 31 20 b8  |numpts%:. C%=1 .|
00000ae0  20 34 0d 06 40 15 f1 23  56 56 2c 41 28 52 25 2c  | 4..@..#VV,A(R%,|
00000af0  43 25 29 3a ed 3a ed 0d  06 4a 08 52 25 3d 30 0d  |C%):.:...J.R%=0.|
00000b00  06 54 05 f5 0d 06 5e 0b  52 25 3d 52 25 2b 31 0d  |.T....^.R%=R%+1.|
00000b10  06 68 0e f1 23 56 56 2c  43 28 52 25 29 0d 06 72  |.h..#VV,C(R%)..r|
00000b20  0d fd 20 43 28 52 25 29  3d 30 0d 06 7c 16 52 25  |.. C(R%)=0..|.R%|
00000b30  3d 52 25 2b 31 3a f1 23  56 56 2c 43 28 52 25 29  |=R%+1:.#VV,C(R%)|
00000b40  0d 06 86 14 e7 20 43 28  52 25 29 3e 30 20 8c 20  |..... C(R%)>0 . |
00000b50  8d 44 54 46 0d 06 90 08  d9 23 56 56 0d 06 9a 05  |.DTF.....#VV....|
00000b60  e1 0d 06 a4 0b dd 20 f2  6c 6f 61 64 0d 06 ae 1a  |...... .load....|
00000b70  f1 8a 31 30 29 22 2a 20  2a 20 4c 4f 41 44 20 2a  |..10)"* * LOAD *|
00000b80  20 2a 22 3b 27 27 0d 06  b8 1e f1 22 20 22 3b 3a  | *";''....." ";:|
00000b90  e8 22 46 69 6c 65 20 6e  61 6d 65 20 22 20 66 6e  |."File name " fn|
00000ba0  61 6d 65 24 0d 06 c2 10  56 56 3d ad 28 66 6e 61  |ame$....VV=.(fna|
00000bb0  6d 65 24 29 0d 06 cc 22  e8 23 56 56 2c 6e 75 6d  |me$)...".#VV,num|
00000bc0  70 74 73 25 2c 41 2c 53  46 2c 48 32 2c 4c 32 2c  |pts%,A,SF,H2,L2,|
00000bd0  57 32 2c 53 2c 50 0d 06  d6 1f e3 20 52 25 3d 31  |W2,S,P..... R%=1|
00000be0  20 b8 20 6e 75 6d 70 74  73 25 3a e3 20 43 25 3d  | . numpts%:. C%=|
00000bf0  31 20 b8 20 34 0d 06 e0  15 e8 23 56 56 2c 41 28  |1 . 4.....#VV,A(|
00000c00  52 25 2c 43 25 29 3a ed  3a ed 0d 06 ea 08 52 25  |R%,C%):.:.....R%|
00000c10  3d 30 0d 06 f4 05 f5 0d  06 fe 0b 52 25 3d 52 25  |=0.........R%=R%|
00000c20  2b 31 0d 07 08 0e e8 23  56 56 2c 43 28 52 25 29  |+1.....#VV,C(R%)|
00000c30  0d 07 12 0d fd 20 43 28  52 25 29 3d 30 0d 07 1c  |..... C(R%)=0...|
00000c40  16 52 25 3d 52 25 2b 31  3a e8 23 56 56 2c 43 28  |.R%=R%+1:.#VV,C(|
00000c50  52 25 29 0d 07 26 14 e7  20 43 28 52 25 29 3e 30  |R%)..&.. C(R%)>0|
00000c60  20 8c 20 8d 64 74 46 0d  07 30 08 d9 23 56 56 0d  | . .dtF..0..#VV.|
00000c70  07 3a 05 e1 0d 07 44 0b  dd 20 f2 64 61 74 61 0d  |.:....D.. .data.|
00000c80  07 4e 05 db 0d 07 58 0e  f2 63 61 6c 63 66 72 61  |.N....X..calcfra|
00000c90  6d 65 0d 07 62 0e 40 25  3d 26 30 32 30 32 30 41  |me..b.@%=&02020A|
00000ca0  0d 07 6c 0f 50 52 24 3d  22 30 22 3a ef 31 34 0d  |..l.PR$="0":.14.|
00000cb0  07 76 31 f1 8a 33 2c 35  29 3b 22 2a 20 2a 20 43  |.v1..3,5);"* * C|
00000cc0  4f 2d 4f 52 44 49 4e 41  54 45 53 20 61 6e 64 20  |O-ORDINATES and |
00000cd0  56 41 52 49 41 42 4c 45  53 20 2a 20 2a 22 27 27  |VARIABLES * *"''|
00000ce0  0d 07 80 17 f1 8a 35 29  22 53 55 42 4a 45 43 54  |......5)"SUBJECT|
00000cf0  20 44 41 54 41 22 27 0d  07 8a 27 f1 3b 8a 35 29  | DATA"'...'.;.5)|
00000d00  22 50 74 2e 22 3b 8a 31  35 29 22 57 22 3b 8a 32  |"Pt.";.15)"W";.2|
00000d10  34 29 22 4c 22 3b 8a 33  33 29 22 48 22 27 0d 07  |4)"L";.33)"H"'..|
00000d20  94 12 e3 52 3d 31 20 b8  20 6e 75 6d 70 74 73 25  |...R=1 . numpts%|
00000d30  0d 07 9e 4d 40 25 3d 26  39 30 41 3a f1 3b 8a 35  |...M@%=&90A:.;.5|
00000d40  29 41 28 52 2c 31 29 3b  3a 40 25 3d 26 30 32 30  |)A(R,1);:@%=&020|
00000d50  32 30 41 3a f1 3b 8a 31  33 29 41 28 52 2c 32 29  |20A:.;.13)A(R,2)|
00000d60  3b 8a 32 32 29 41 28 52  2c 33 29 3b 8a 33 31 29  |;.22)A(R,3);.31)|
00000d70  41 28 52 2c 34 29 3a f1  3a ed 3a f1 27 0d 07 a8  |A(R,4):.:.:.'...|
00000d80  14 f1 8a 33 29 22 56 41  52 49 41 42 4c 45 53 22  |...3)"VARIABLES"|
00000d90  27 0d 07 b2 0b 40 25 3d  26 39 30 41 0d 07 bc 38  |'....@%=&90A...8|
00000da0  f1 8a 33 29 22 41 3d 22  3b 41 3b 22 20 20 53 3d  |..3)"A=";A;"  S=|
00000db0  22 3b 53 3b 22 20 20 50  3d 22 3b 50 3b 22 20 20  |";S;"  P=";P;"  |
00000dc0  57 32 3d 22 3b 57 32 3b  22 20 20 4c 32 3d 22 3b  |W2=";W2;"  L2=";|
00000dd0  4c 32 3b 27 0d 07 c6 28  f1 8a 33 29 22 48 32 3d  |L2;'...(..3)"H2=|
00000de0  22 3b 48 32 3b 3a 40 25  3d 26 30 32 30 32 30 41  |";H2;:@%=&02020A|
00000df0  3a f1 3b 22 20 53 46 3d  22 3b 53 46 0d 07 d0 0b  |:.;" SF=";SF....|
00000e00  40 25 3d 26 39 30 41 0d  07 da 07 f1 27 27 0d 07  |@%=&90A.....''..|
00000e10  e4 1a f1 8a 37 29 22 33  44 20 43 4f 2d 4f 52 44  |....7)"3D CO-ORD|
00000e20  49 4e 41 54 45 53 22 27  0d 07 ee 1f f1 8a 37 29  |INATES"'......7)|
00000e30  22 4e 6f 2e 22 3b 8a 31  37 29 22 58 22 3b 8a 32  |"No.";.17)"X";.2|
00000e40  37 29 22 59 22 3b 27 0d  07 f8 13 e3 20 52 3d 31  |7)"Y";'..... R=1|
00000e50  20 b8 20 6e 75 6d 70 74  73 25 0d 08 02 47 40 25  | . numpts%...G@%|
00000e60  3d 26 39 30 41 3a f1 3b  8a 37 29 3b 42 28 52 2c  |=&90A:.;.7);B(R,|
00000e70  31 29 3b 3a 40 25 3d 26  30 32 30 32 30 41 3a f1  |1);:@%=&02020A:.|
00000e80  8a 31 30 29 42 28 52 2c  32 29 2d 36 34 30 3b 8a  |.10)B(R,2)-640;.|
00000e90  32 35 29 42 28 52 2c 33  29 2d 35 31 32 3a f1 3a  |25)B(R,3)-512:.:|
00000ea0  ed 0d 08 0c 0b 40 25 3d  26 39 30 41 0d 08 16 06  |.....@%=&90A....|
00000eb0  f1 27 0d 08 20 28 f1 8a  36 29 22 4f 72 64 65 72  |.'.. (..6)"Order|
00000ec0  20 69 6e 20 77 68 69 63  68 20 74 6f 20 6a 6f 69  | in which to joi|
00000ed0  6e 20 70 6f 69 6e 74 73  22 27 0d 08 2a 31 f1 8a  |n points"'..*1..|
00000ee0  32 29 22 4e 6f 74 65 21  20 30 3d 6c 69 66 74 20  |2)"Note! 0=lift |
00000ef0  70 65 6e 20 20 30 2c 30  3d 65 6e 64 20 6f 66 20  |pen  0,0=end of |
00000f00  70 6c 6f 74 74 69 6e 67  22 27 27 0d 08 34 07 52  |plotting"''..4.R|
00000f10  3d 30 0d 08 3e 05 f5 0d  08 48 09 52 3d 52 2b 31  |=0..>....H.R=R+1|
00000f20  0d 08 52 1c f1 3b 43 28  52 29 3b 22 2c 22 3b 3a  |..R..;C(R);",";:|
00000f30  e7 20 3f 26 31 45 3e 33  36 20 f1 27 0d 08 5c 17  |. ?&1E>36 .'..\.|
00000f40  fd 20 43 28 52 29 3d 30  20 80 20 43 28 52 2b 31  |. C(R)=0 . C(R+1|
00000f50  29 3d 30 0d 08 66 0b f1  3b 22 30 22 27 27 0d 08  |)=0..f..;"0"''..|
00000f60  70 16 e7 20 50 52 24 3d  22 59 22 20 ef 33 3a e5  |p.. PR$="Y" .3:.|
00000f70  8d 74 62 48 0d 08 7a 1d  f1 8a 33 29 3b 3a e8 22  |.tbH..z...3);:."|
00000f80  50 72 69 6e 74 65 72 3f  20 59 2f 4e 20 22 50 52  |Printer? Y/N "PR|
00000f90  24 0d 08 84 13 e7 20 50  52 24 3d 22 4e 22 20 e5  |$..... PR$="N" .|
00000fa0  8d 74 62 48 0d 08 8e 15  e7 20 50 52 24 3c 3e 22  |.tbH..... PR$<>"|
00000fb0  59 22 20 8c 20 8d 44 7a  48 0d 08 98 10 ef 32 2c  |Y" . .DzH.....2,|
00000fc0  31 35 3a e5 20 8d 44 76  47 0d 08 a2 05 e1 0d 08  |15:. .DvG.......|
00000fd0  ac 0d dd 20 f2 64 61 74  75 6d 73 0d 08 b6 0e f0  |... .datums.....|
00000fe0  20 36 39 2c 30 2c 35 31  32 0d 08 c0 10 f0 20 35  | 69,0,512..... 5|
00000ff0  2c 31 32 38 30 2c 35 31  32 0d 08 ca 0f f0 20 36  |,1280,512..... 6|
00001000  39 2c 20 36 34 30 2c 30  0d 08 d4 10 f0 20 35 2c  |9, 640,0..... 5,|
00001010  36 34 30 2c 31 30 32 34  0d 08 de 05 e1 0d 08 e8  |640,1024........|
00001020  0b dd 20 f2 65 64 69 74  0d 08 f2 05 db 0d 08 fc  |.. .edit........|
00001030  1b f1 8a 31 30 2c 35 29  22 2a 20 2a 20 45 44 49  |...10,5)"* * EDI|
00001040  54 20 2a 20 2a 22 27 27  0d 09 06 20 f1 8a 35 29  |T * *"''... ..5)|
00001050  22 31 2e 20 45 6e 74 65  72 20 73 75 62 6a 65 63  |"1. Enter subjec|
00001060  74 20 64 61 74 61 22 27  0d 09 10 20 f1 8a 35 29  |t data"'... ..5)|
00001070  22 32 2e 20 41 6c 74 65  72 20 73 75 62 6a 65 63  |"2. Alter subjec|
00001080  74 20 64 61 74 61 22 27  0d 09 1a 23 f1 8a 35 29  |t data"'...#..5)|
00001090  22 33 2e 20 45 6e 74 65  72 2f 41 6c 74 65 72 20  |"3. Enter/Alter |
000010a0  76 61 72 69 61 62 6c 65  73 22 27 0d 09 24 29 f1  |variables"'..$).|
000010b0  8a 35 29 22 34 2e 20 45  6e 74 65 72 2f 41 6c 74  |.5)"4. Enter/Alt|
000010c0  65 72 20 70 6f 69 6e 74  20 73 65 71 75 65 6e 63  |er point sequenc|
000010d0  65 22 27 27 0d 09 2e 21  f1 8a 35 29 22 35 2e 20  |e"''...!..5)"5. |
000010e0  52 65 74 75 72 6e 20 74  6f 20 4d 61 69 6e 20 4d  |Return to Main M|
000010f0  65 6e 75 22 27 0d 09 38  23 f1 3a 45 44 3d a5 3a  |enu"'..8#.:ED=.:|
00001100  45 44 3d 45 44 2d 34 38  3a e7 20 45 44 3e 35 20  |ED=ED-48:. ED>5 |
00001110  ef 37 3a e5 8d 54 78 49  0d 09 42 1e ee 20 45 44  |.7:..TxI..B.. ED|
00001120  20 e5 20 8d 44 4c 49 2c  8d 44 56 49 2c 8d 44 60  | . .DLI,.DVI,.D`|
00001130  49 2c 8d 44 6a 49 0d 09  4c 14 f2 73 75 62 6a 65  |I,.DjI..L..subje|
00001140  63 74 69 6e 3a e5 8d 64  72 48 0d 09 56 15 f2 73  |ctin:..drH..V..s|
00001150  75 62 6a 65 63 74 6d 6f  64 3a e5 8d 64 72 48 0d  |ubjectmod:..drH.|
00001160  09 60 10 f2 76 61 72 69  6e 3a e5 8d 64 72 48 0d  |.`..varin:..drH.|
00001170  09 6a 11 f2 6a 6f 69 6e  69 6e 3a e5 8d 64 72 48  |.j..joinin:..drH|
00001180  0d 09 74 10 e7 20 45 44  3d 35 20 e5 8d 74 48 49  |..t.. ED=5 ..tHI|
00001190  0d 09 7e 09 e5 8d 64 72  48 0d 09 88 05 e1 0d 09  |..~...drH.......|
000011a0  92 0c dd 20 f2 76 61 72  69 6e 0d 09 9c 05 db 0d  |... .varin......|
000011b0  09 a6 2b f1 8a 35 2c 34  29 22 2a 20 2a 20 45 4e  |..+..5,4)"* * EN|
000011c0  54 45 52 2f 41 4c 54 45  52 20 56 41 52 49 41 42  |TER/ALTER VARIAB|
000011d0  4c 45 53 20 2a 20 2a 22  27 27 0d 09 b0 30 f1 8a  |LES * *"''...0..|
000011e0  32 29 22 45 6e 74 65 72  20 6e 65 77 20 76 61 6c  |2)"Enter new val|
000011f0  75 65 20 6f 72 20 65 6c  73 65 20 70 72 65 73 73  |ue or else press|
00001200  20 52 45 54 55 52 4e 22  27 27 0d 09 ba 38 f1 8a  | RETURN"''...8..|
00001210  32 29 22 45 79 65 20 74  6f 20 43 2e 56 2e 20 28  |2)"Eye to C.V. (|
00001220  41 3d 22 3b 41 3b 22 29  20 22 3b 3a e8 20 58 58  |A=";A;") ";:. XX|
00001230  3a e7 20 58 58 3d 30 20  41 3d 41 20 8b 20 41 3d  |:. XX=0 A=A . A=|
00001240  58 58 0d 09 c4 3c f1 27  3a f1 8a 32 29 22 54 69  |XX...<.':..2)"Ti|
00001250  6c 74 20 6f 66 20 62 61  73 65 20 28 53 3d 22 3b  |lt of base (S=";|
00001260  53 3b 22 29 20 22 3b 3a  e8 20 58 58 3a e7 20 58  |S;") ";:. XX:. X|
00001270  58 3d 30 20 53 3d 53 20  8b 20 53 3d 58 58 0d 09  |X=0 S=S . S=XX..|
00001280  ce 38 f1 27 3a f1 8a 32  29 22 52 6f 74 61 74 69  |.8.':..2)"Rotati|
00001290  6f 6e 20 20 50 3d 22 3b  50 3b 22 29 20 22 3b 3a  |on  P=";P;") ";:|
000012a0  e8 20 58 58 3a e7 20 58  58 3d 30 20 50 3d 50 20  |. XX:. XX=0 P=P |
000012b0  8b 20 50 3d 58 58 0d 09  d8 48 f1 27 3a f1 8a 32  |. P=XX...H.':..2|
000012c0  29 22 57 69 64 74 68 20  64 61 74 75 6d 20 74 6f  |)"Width datum to|
000012d0  20 43 2e 56 2e 20 28 57  32 3d 22 3b 57 32 3b 22  | C.V. (W2=";W2;"|
000012e0  29 20 22 3b 3a e8 20 58  58 3a e7 20 58 58 3d 30  |) ";:. XX:. XX=0|
000012f0  20 57 32 3d 57 32 20 8b  20 57 32 3d 58 58 0d 09  | W2=W2 . W2=XX..|
00001300  e2 49 f1 27 3a f1 8a 32  29 22 4c 65 6e 67 74 68  |.I.':..2)"Length|
00001310  20 64 61 74 75 6d 20 74  6f 20 43 2e 56 2e 20 28  | datum to C.V. (|
00001320  4c 32 3d 22 3b 4c 32 3b  22 29 20 22 3b 3a e8 20  |L2=";L2;") ";:. |
00001330  58 58 3a e7 20 58 58 3d  30 20 4c 32 3d 4c 32 20  |XX:. XX=0 L2=L2 |
00001340  8b 20 4c 32 3d 58 58 0d  09 ec 49 f1 27 3a f1 8a  |. L2=XX...I.':..|
00001350  32 29 22 48 6f 72 69 7a  2e 20 64 61 74 75 6d 20  |2)"Horiz. datum |
00001360  74 6f 20 43 2e 56 2e 20  28 48 32 3d 22 3b 48 32  |to C.V. (H2=";H2|
00001370  3b 22 29 20 22 3b 3a e8  20 58 58 3a e7 20 58 58  |;") ";:. XX:. XX|
00001380  3d 30 20 48 32 3d 48 32  20 8b 20 48 32 3d 58 58  |=0 H2=H2 . H2=XX|
00001390  0d 09 f6 4c f1 27 3a f1  8a 32 29 22 53 63 61 6c  |...L.':..2)"Scal|
000013a0  65 20 66 61 63 74 6f 72  20 28 53 46 3d 22 3b 53  |e factor (SF=";S|
000013b0  46 3b 22 29 20 22 3b 3a  e8 20 58 58 24 3a 58 58  |F;") ";:. XX$:XX|
000013c0  3d a0 28 58 58 24 29 3a  e7 20 58 58 3d 30 20 53  |=.(XX$):. XX=0 S|
000013d0  46 3d 53 46 20 8b 20 53  46 3d 58 58 0d 0a 00 05  |F=SF . SF=XX....|
000013e0  e1 0d 0a 0a 11 dd 20 f2  73 75 62 6a 65 63 74 6d  |...... .subjectm|
000013f0  6f 64 0d 0a 14 05 db 0d  0a 1e 28 f1 8a 35 2c 38  |od........(..5,8|
00001400  29 22 2a 20 2a 20 41 4c  54 45 52 20 53 55 42 4a  |)"* * ALTER SUBJ|
00001410  45 43 54 20 44 41 54 41  20 2a 20 2a 22 27 27 0d  |ECT DATA * *"''.|
00001420  0a 28 2b f1 8a 35 29 22  50 6f 69 6e 74 20 4e 6f  |.(+..5)"Point No|
00001430  2e 20 74 6f 20 61 6c 74  65 72 20 22 3b 3a e8 47  |. to alter ";:.G|
00001440  3a 52 3d 47 3a e5 8d 54  72 4a 0d 0a 32 47 f1 27  |:R=G:..TrJ..2G.'|
00001450  8a 35 29 3b 22 57 69 64  74 68 20 28 57 3d 22 3b  |.5);"Width (W=";|
00001460  41 28 52 2c 32 29 3b 22  29 20 22 3b 3a e8 58 58  |A(R,2);") ";:.XX|
00001470  3a e7 20 58 58 3d 30 20  41 28 52 2c 32 29 3d 41  |:. XX=0 A(R,2)=A|
00001480  28 52 2c 32 29 20 8b 20  41 28 52 2c 32 29 3d 58  |(R,2) . A(R,2)=X|
00001490  58 0d 0a 3c 47 f1 27 8a  35 29 3b 22 4c 65 6e 67  |X..<G.'.5);"Leng|
000014a0  74 68 20 28 4c 3d 22 3b  41 28 52 2c 33 29 3b 22  |th (L=";A(R,3);"|
000014b0  29 22 3b 3a e8 58 58 3a  e7 20 58 58 3d 30 20 41  |)";:.XX:. XX=0 A|
000014c0  28 52 2c 33 29 3d 41 28  52 2c 33 29 20 8b 20 41  |(R,3)=A(R,3) . A|
000014d0  28 52 2c 33 29 3d 58 58  0d 0a 46 47 f1 27 8a 35  |(R,3)=XX..FG.'.5|
000014e0  29 3b 22 48 65 69 67 68  74 20 28 4c 3d 22 3b 41  |);"Height (L=";A|
000014f0  28 52 2c 34 29 3b 22 29  22 3b 3a e8 58 58 3a e7  |(R,4);")";:.XX:.|
00001500  20 58 58 3d 30 20 41 28  52 2c 34 29 3d 41 28 52  | XX=0 A(R,4)=A(R|
00001510  2c 34 29 20 8b 20 41 28  52 2c 34 29 3d 58 58 0d  |,4) . A(R,4)=XX.|
00001520  0a 50 25 f1 27 27 8a 35  29 3b 3a e8 22 41 6e 6f  |.P%.''.5);:."Ano|
00001530  74 68 65 72 20 70 6f 69  6e 74 3f 20 59 2f 4e 20  |ther point? Y/N |
00001540  22 41 4e 24 0d 0a 5a 14  e7 20 41 4e 24 3d 22 4e  |"AN$..Z.. AN$="N|
00001550  22 20 8c 20 8d 44 78 4a  0d 0a 64 15 e7 20 41 4e  |" . .DxJ..d.. AN|
00001560  24 3c 3e 22 59 22 20 8c  20 8d 44 50 4a 0d 0a 6e  |$<>"Y" . .DPJ..n|
00001570  0a e5 20 8d 54 54 4a 0d  0a 78 05 e1 0d 0a 82 10  |.. .TTJ..x......|
00001580  dd 20 f2 73 75 62 6a 65  63 74 69 6e 0d 0a 8c 0f  |. .subjectin....|
00001590  52 3d 6e 75 6d 70 74 73  25 2b 31 0d 0a 96 05 db  |R=numpts%+1.....|
000015a0  0d 0a a0 28 f1 8a 35 2c  38 29 22 2a 20 2a 20 45  |...(..5,8)"* * E|
000015b0  4e 54 45 52 20 53 55 42  4a 45 43 54 20 44 41 54  |NTER SUBJECT DAT|
000015c0  41 20 2a 20 2a 22 27 27  0d 0a aa 22 f1 20 8a 35  |A * *"''...". .5|
000015d0  29 22 50 74 2e 20 4e 6f  2e 20 20 20 20 20 22 3b  |)"Pt. No.     ";|
000015e0  52 3a 41 28 52 2c 31 29  3d 52 0d 0a b4 26 f1 27  |R:A(R,1)=R...&.'|
000015f0  8a 35 29 3b 22 57 69 64  74 68 20 28 57 29 20 20  |.5);"Width (W)  |
00001600  22 3b 3a e8 58 58 3a 41  28 52 2c 32 29 3d 58 58  |";:.XX:A(R,2)=XX|
00001610  0d 0a be 26 f1 27 8a 35  29 3b 22 4c 65 6e 67 74  |...&.'.5);"Lengt|
00001620  68 20 28 4c 29 20 22 3b  3a e8 58 58 3a 41 28 52  |h (L) ";:.XX:A(R|
00001630  2c 33 29 3d 58 58 0d 0a  c8 26 f1 27 8a 35 29 3b  |,3)=XX...&.'.5);|
00001640  22 48 65 69 67 68 74 20  28 48 29 20 22 3b 3a e8  |"Height (H) ";:.|
00001650  58 58 3a 41 28 52 2c 34  29 3d 58 58 0d 0a d2 25  |XX:A(R,4)=XX...%|
00001660  f1 27 27 8a 35 29 3b 3a  e8 22 41 6e 6f 74 68 65  |.''.5);:."Anothe|
00001670  72 20 70 6f 69 6e 74 3f  20 59 2f 4e 20 22 41 4e  |r point? Y/N "AN|
00001680  24 0d 0a dc 14 e7 20 41  4e 24 3d 22 4e 22 20 8c  |$..... AN$="N" .|
00001690  20 8d 64 7a 4a 0d 0a e6  15 e7 20 41 4e 24 3c 3e  | .dzJ..... AN$<>|
000016a0  22 59 22 20 8c 20 8d 64  52 4a 0d 0a f0 10 52 3d  |"Y" . .dRJ....R=|
000016b0  52 2b 31 3a e5 20 8d 74  56 4a 0d 0a fa 0d 6e 75  |R+1:. .tVJ....nu|
000016c0  6d 70 74 73 25 3d 52 0d  0b 04 05 e1 0d 0b 0e 0d  |mpts%=R.........|
000016d0  dd 20 f2 6a 6f 69 6e 69  6e 0d 0b 18 05 db 0d 0b  |. .joinin.......|
000016e0  22 2e f1 3b 8a 35 2c 33  29 22 2a 20 2a 20 4f 52  |"..;.5,3)"* * OR|
000016f0  44 45 52 20 4f 46 20 4a  4f 49 4e 49 4e 47 20 50  |DER OF JOINING P|
00001700  4f 49 4e 54 53 20 2a 20  2a 22 27 27 0d 0b 2c 31  |OINTS * *"''..,1|
00001710  f1 8a 32 29 22 4e 6f 74  65 21 20 30 3d 6c 69 66  |..2)"Note! 0=lif|
00001720  74 20 70 65 6e 20 20 30  2c 30 3d 65 6e 64 20 6f  |t pen  0,0=end o|
00001730  66 20 70 6c 6f 74 74 69  6e 67 22 27 27 0d 0b 36  |f plotting"''..6|
00001740  07 52 3d 30 0d 0b 40 05  f5 0d 0b 4a 09 52 3d 52  |.R=0..@....J.R=R|
00001750  2b 31 0d 0b 54 41 f1 3b  22 20 20 50 6f 69 6e 74  |+1..TA.;"  Point|
00001760  20 4e 6f 2e 20 28 22 3b  43 28 52 29 3b 22 29 22  | No. (";C(R);")"|
00001770  3b 3a e8 20 50 4e 24 3a  e7 20 97 28 50 4e 24 29  |;:. PN$:. .(PN$)|
00001780  3d 2d 31 20 43 28 52 29  3d 43 28 52 29 3a e5 8d  |=-1 C(R)=C(R):..|
00001790  44 72 4b 0d 0b 5e 0c f2  6a 6f 69 6e 73 74 72 0d  |DrK..^..joinstr.|
000017a0  0b 68 0b 43 28 52 29 3d  50 4e 0d 0b 72 17 fd 20  |.h.C(R)=PN..r.. |
000017b0  43 28 52 29 3d 30 20 80  20 43 28 52 2d 31 29 3d  |C(R)=0 . C(R-1)=|
000017c0  30 0d 0b 7c 05 e1 0d 0b  86 0e dd 20 f2 6a 6f 69  |0..|....... .joi|
000017d0  6e 73 74 72 0d 0b 90 08  50 4e 3d 30 0d 0b 9a 11  |nstr....PN=0....|
000017e0  e3 4e 3d 31 20 b8 20 a9  28 50 4e 24 29 0d 0b a4  |.N=1 . .(PN$)...|
000017f0  1c 50 4e 3d 50 4e 2a 31  30 2b 28 97 28 c1 50 4e  |.PN=PN*10+(.(.PN|
00001800  24 2c 4e 29 29 2d 34 38  29 0d 0b ae 05 ed 0d 0b  |$,N))-48).......|
00001810  b8 05 e1 0d ff                                    |.....|
00001815