Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape25b_acorn_eu_1991_july.wav » CAPD

CAPD

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 » Acorn tapes » Electron_User » Electron_User_tape25b_acorn_eu_1991_july.wav
Filename: CAPD
Read OK:
File size: 1815 bytes
Load address: FFFF1A00
Exec address: FFFF8023
Duplicates

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

File contents
   10REM COMPUTER AIDED PERSPECTIVE
   20REM DRAWING
   30REM by H.R Wall
   40REM (c) The Micro User
   50REM Load by "CAPD"
   60MODE129
   70ON ERROR GOTO160
   80A=350:S=30:P=30:W2=0:L2=0:H2=0:SF=1
   90numpts%=0
  100*FX11,0
  110PROCassigncol
  120VDU23;8202;0;0;0;
  130DIM A(100,4)
  140DIM B(200,3)
  150DIM C(300)
  160CLS
  170PRINTTAB(5,5);"* * MAIN MENU * *"
  180PRINT'
  190PRINTTAB(5);"1. Edit"':PRINTTAB(5);"2. Load"':PRINTTAB(5);"3. Save"':PRINTTAB(5);"4. Preview"':PRINTTAB(5);"5. Co-ordinates and variables"':PRINTTAB(5);"6. Return to Basic"''
  200PRINT:B=GET:B=B-48:IF B<1 OR B>6 THEN VDU7:GOTO200
  210IF B=6 THEN 300
  220PRINT''
  230ON B GOTO 240,250,260,270,280
  240PROCedit:GOTO160
  250PROCload:GOTO160
  260PROCsave:GOTO160
  270PROCpreview:GOTO160
  280PROCdata:GOTO160
  290GOTO160
  300END
  310DEF PROCpreview
  320CLS
  330PROCcalcframe
  340ZR%=1:ZR1=ZR%
  350PROCdrawframe1(ZR1)
  360PROCframe1on
  370PROCmove
  380PROCkeyin
  390IF G=9 THEN 540
  400PROCcalcframe
  410ZR%=1:ZR1=ZR%
  420PROCdrawframe2(ZR1)
  430PROCframe2on
  440PROCeraseframe1(numpts%+1)
  450PROCmove
  460PROCkeyin
  470IF G=9 THEN 540
  480PROCcalcframe
  490ZR%=1:ZR1=ZR%
  500PROCdrawframe1(ZR1)
  510PROCframe1on
  520PROCeraseframe2(numpts%+1)
  530GOTO370
  540ENDPROC
  550DEF PROCdraw(ZR%)
  560R%=0:PROCptnum
  570REPEAT
  580X=B(ptnum%+ZR%-1,2):Y=B(ptnum%+ZR%-1,3)
  590PLOT 69,X,Y
  600PROCptnum
  610REPEAT
  620X=B(ptnum%+ZR%-1,2):Y=B(ptnum%+ZR%-1,3)
  630PLOT 5,X,Y
  640PROCptnum
  650UNTIL ptnum%=0
  660PROCptnum
  670UNTIL ptnum%=0
  680PROCdatums
  690ENDPROC
  700DEF PROCpers
  710R=PI/180
  720IF L+L2=0 AND W+W2=0 THEN B9=0:V=0:GOTO770
  730IF L+L2=0 THEN B9=90*R:V=W+W2:GOTO770
  740IF W+W2=0 THEN B9=0:V=L2+L2:GOTO770
  750B9=ATN((W+W2)/(L+L2))
  760V=(W+W2)/SIN(B9)
  770K=V*SIN((P*R)+B9)
  780L9=V*COS((P*R)+B9)
  790IF H-H2=0 THEN BA=0:T=L9:GOTO830
  800IF L9=0 THEN BA=90*R:T=H-H2:GOTO830
  810BA=ATN((H-H2)/L9)
  820T=(H-H2)/SIN(BA)
  830Y1=T*SIN(BA+(S*R))
  840J=T*COS(BA+(S*R))
  850X=K*A/(A+J)
  860Y=Y1*A/(A+J)
  870X=X*SF+640:Y=Y*SF+512
  880ENDPROC
  890DEF PROCassigncol
  900VDU19,0,4;0; :REM Frame 1 Back
  910VDU19,1,7;0; :REM Frame 2 Fore
  920VDU19,2,4;0; :REM Frame 2 Back
  930VDU19,3,7;0; :REM Frame 1 Fore
  940ENDPROC
  950DEF PROCframe1on
  960VDU19,1,7;0;
  970VDU19,2,4;0;
  980ENDPROC
  990DEF PROCframe2on
 1000VDU19,1,4;0;
 1010VDU19,2,7;0;
 1020ENDPROC
 1030DEF PROCeraseframe1(ZR1)
 1040GCOL2,2
 1050PROCdraw(ZR1)
 1060ENDPROC
 1070DEF PROCeraseframe2(ZR2)
 1080GCOL2,1
 1090PROCdraw(ZR2)
 1100ENDPROC
 1110DEF PROCdrawframe1(ZR1)
 1120GCOL1,1
 1130PROCdraw(ZR1)
 1140ENDPROC
 1150DEF PROCdrawframe2(ZR1)
 1160GCOL1,2
 1170PROCdraw(ZR1)
 1180ENDPROC
 1190DEF PROCmove
 1200ZR2%=numpts%+1
 1210FOR ZR%=1 TO numpts%
 1220FOR ZC%=1 TO 3
 1230B(ZR2%,ZC%)=B(ZR%,ZC%)
 1240NEXT:ZR2%=ZR2%+1
 1250NEXT
 1260ENDPROC
 1270DEF PROCkeyin
 1280*FX4,1
 1290G=GET
 1300IF G=139 S=S-10:GOTO1400
 1310IF G=138 S=S+10:GOTO1400
 1320IF G=136 P=P-10:GOTO1400
 1330IF G=137 P=P+10:GOTO1400
 1340IF G=76 SF=SF+(SF/10):GOTO1400
 1350IF G=83 SF=SF-(SF/10):GOTO1400
 1360IF G=67 A=INT(A-(A/5)):GOTO1400
 1370IF G=70 A=INT(A+(A/5)):GOTO1400
 1380IF G=9 THEN 1400
 1390GOTO1290
 1400*FX4,0
 1410ENDPROC
 1420DEF PROCcalcframe
 1430ZRB=1
 1440FOR ZR%=1 TO numpts%
 1450W=A(ZR%,2):L=A(ZR%,3):H=A(ZR%,4)
 1460PROCpers
 1470B(ZRB,1)=ZR%:B(ZRB,2)=X:B(ZRB,3)=Y
 1480ZRB=ZRB+1
 1490NEXT
 1500ENDPROC
 1510DEF PROCptnum
 1520R%=R%+1:ptnum%=C(R%)
 1530ENDPROC
 1540DEF PROCsave
 1550PRINTTAB(10)"* * SAVE * *";''
 1560PRINT" ";:INPUT"File name " fname$
 1570VV=OPENOUT(fname$)
 1580PRINT#VV,numpts%,A,SF,H2,L2,W2,S,P
 1590FOR R%=1 TO numpts%:FOR C%=1 TO 4
 1600PRINT#VV,A(R%,C%):NEXT:NEXT
 1610R%=0
 1620REPEAT
 1630R%=R%+1
 1640PRINT#VV,C(R%)
 1650UNTIL C(R%)=0
 1660R%=R%+1:PRINT#VV,C(R%)
 1670IF C(R%)>0 THEN 1620
 1680CLOSE#VV
 1690ENDPROC
 1700DEF PROCload
 1710PRINTTAB(10)"* * LOAD * *";''
 1720PRINT" ";:INPUT"File name " fname$
 1730VV=OPENUP(fname$)
 1740INPUT#VV,numpts%,A,SF,H2,L2,W2,S,P
 1750FOR R%=1 TO numpts%:FOR C%=1 TO 4
 1760INPUT#VV,A(R%,C%):NEXT:NEXT
 1770R%=0
 1780REPEAT
 1790R%=R%+1
 1800INPUT#VV,C(R%)
 1810UNTIL C(R%)=0
 1820R%=R%+1:INPUT#VV,C(R%)
 1830IF C(R%)>0 THEN 1780
 1840CLOSE#VV
 1850ENDPROC
 1860DEF PROCdata
 1870CLS
 1880PROCcalcframe
 1890@%=&02020A
 1900PR$="0":VDU14
 1910PRINTTAB(3,5);"* * CO-ORDINATES and VARIABLES * *"''
 1920PRINTTAB(5)"SUBJECT DATA"'
 1930PRINT;TAB(5)"Pt.";TAB(15)"W";TAB(24)"L";TAB(33)"H"'
 1940FORR=1 TO numpts%
 1950@%=&90A:PRINT;TAB(5)A(R,1);:@%=&02020A:PRINT;TAB(13)A(R,2);TAB(22)A(R,3);TAB(31)A(R,4):PRINT:NEXT:PRINT'
 1960PRINTTAB(3)"VARIABLES"'
 1970@%=&90A
 1980PRINTTAB(3)"A=";A;"  S=";S;"  P=";P;"  W2=";W2;"  L2=";L2;'
 1990PRINTTAB(3)"H2=";H2;:@%=&02020A:PRINT;" SF=";SF
 2000@%=&90A
 2010PRINT''
 2020PRINTTAB(7)"3D CO-ORDINATES"'
 2030PRINTTAB(7)"No.";TAB(17)"X";TAB(27)"Y";'
 2040FOR R=1 TO numpts%
 2050@%=&90A:PRINT;TAB(7);B(R,1);:@%=&02020A:PRINTTAB(10)B(R,2)-640;TAB(25)B(R,3)-512:PRINT:NEXT
 2060@%=&90A
 2070PRINT'
 2080PRINTTAB(6)"Order in which to join points"'
 2090PRINTTAB(2)"Note! 0=lift pen  0,0=end of plotting"''
 2100R=0
 2110REPEAT
 2120R=R+1
 2130PRINT;C(R);",";:IF ?&1E>36 PRINT'
 2140UNTIL C(R)=0 AND C(R+1)=0
 2150PRINT;"0"''
 2160IF PR$="Y" VDU3:GOTO2210
 2170PRINTTAB(3);:INPUT"Printer? Y/N "PR$
 2180IF PR$="N" GOTO2210
 2190IF PR$<>"Y" THEN 2170
 2200VDU2,15:GOTO 1910
 2210ENDPROC
 2220DEF PROCdatums
 2230PLOT 69,0,512
 2240PLOT 5,1280,512
 2250PLOT 69, 640,0
 2260PLOT 5,640,1024
 2270ENDPROC
 2280DEF PROCedit
 2290CLS
 2300PRINTTAB(10,5)"* * EDIT * *"''
 2310PRINTTAB(5)"1. Enter subject data"'
 2320PRINTTAB(5)"2. Alter subject data"'
 2330PRINTTAB(5)"3. Enter/Alter variables"'
 2340PRINTTAB(5)"4. Enter/Alter point sequence"''
 2350PRINTTAB(5)"5. Return to Main Menu"'
 2360PRINT:ED=GET:ED=ED-48:IF ED>5 VDU7:GOTO2360
 2370ON ED GOTO 2380,2390,2400,2410
 2380PROCsubjectin:GOTO2290
 2390PROCsubjectmod:GOTO2290
 2400PROCvarin:GOTO2290
 2410PROCjoinin:GOTO2290
 2420IF ED=5 GOTO2440
 2430GOTO2290
 2440ENDPROC
 2450DEF PROCvarin
 2460CLS
 2470PRINTTAB(5,4)"* * ENTER/ALTER VARIABLES * *"''
 2480PRINTTAB(2)"Enter new value or else press RETURN"''
 2490PRINTTAB(2)"Eye to C.V. (A=";A;") ";:INPUT XX:IF XX=0 A=A ELSE A=XX
 2500PRINT':PRINTTAB(2)"Tilt of base (S=";S;") ";:INPUT XX:IF XX=0 S=S ELSE S=XX
 2510PRINT':PRINTTAB(2)"Rotation  P=";P;") ";:INPUT XX:IF XX=0 P=P ELSE P=XX
 2520PRINT':PRINTTAB(2)"Width datum to C.V. (W2=";W2;") ";:INPUT XX:IF XX=0 W2=W2 ELSE W2=XX
 2530PRINT':PRINTTAB(2)"Length datum to C.V. (L2=";L2;") ";:INPUT XX:IF XX=0 L2=L2 ELSE L2=XX
 2540PRINT':PRINTTAB(2)"Horiz. datum to C.V. (H2=";H2;") ";:INPUT XX:IF XX=0 H2=H2 ELSE H2=XX
 2550PRINT':PRINTTAB(2)"Scale factor (SF=";SF;") ";:INPUT XX$:XX=EVAL(XX$):IF XX=0 SF=SF ELSE SF=XX
 2560ENDPROC
 2570DEF PROCsubjectmod
 2580CLS
 2590PRINTTAB(5,8)"* * ALTER SUBJECT DATA * *"''
 2600PRINTTAB(5)"Point No. to alter ";:INPUTG:R=G:GOTO2610
 2610PRINT'TAB(5);"Width (W=";A(R,2);") ";:INPUTXX:IF XX=0 A(R,2)=A(R,2) ELSE A(R,2)=XX
 2620PRINT'TAB(5);"Length (L=";A(R,3);")";:INPUTXX:IF XX=0 A(R,3)=A(R,3) ELSE A(R,3)=XX
 2630PRINT'TAB(5);"Height (L=";A(R,4);")";:INPUTXX:IF XX=0 A(R,4)=A(R,4) ELSE A(R,4)=XX
 2640PRINT''TAB(5);:INPUT"Another point? Y/N "AN$
 2650IF AN$="N" THEN 2680
 2660IF AN$<>"Y" THEN 2640
 2670GOTO 2580
 2680ENDPROC
 2690DEF PROCsubjectin
 2700R=numpts%+1
 2710CLS
 2720PRINTTAB(5,8)"* * ENTER SUBJECT DATA * *"''
 2730PRINT TAB(5)"Pt. No.     ";R:A(R,1)=R
 2740PRINT'TAB(5);"Width (W)  ";:INPUTXX:A(R,2)=XX
 2750PRINT'TAB(5);"Length (L) ";:INPUTXX:A(R,3)=XX
 2760PRINT'TAB(5);"Height (H) ";:INPUTXX:A(R,4)=XX
 2770PRINT''TAB(5);:INPUT"Another point? Y/N "AN$
 2780IF AN$="N" THEN 2810
 2790IF AN$<>"Y" THEN 2770
 2800R=R+1:GOTO 2710
 2810numpts%=R
 2820ENDPROC
 2830DEF PROCjoinin
 2840CLS
 2850PRINT;TAB(5,3)"* * ORDER OF JOINING POINTS * *"''
 2860PRINTTAB(2)"Note! 0=lift pen  0,0=end of plotting"''
 2870R=0
 2880REPEAT
 2890R=R+1
 2900PRINT;"  Point No. (";C(R);")";:INPUT PN$:IF ASC(PN$)=-1 C(R)=C(R):GOTO2930
 2910PROCjoinstr
 2920C(R)=PN
 2930UNTIL C(R)=0 AND C(R-1)=0
 2940ENDPROC
 2950DEF PROCjoinstr
 2960PN=0
 2970FORN=1 TO LEN(PN$)
 2980PN=PN*10+(ASC(MID$(PN$,N))-48)
 2990NEXT
 3000ENDPROC

 � 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
CAPD.m0
CAPD.m1
CAPD.m2
CAPD.m4
CAPD.m5