A(20,2,26)Q$""&1 MENU02""O34)"DRAWING MASTER":::k43)"D-DEFINE OBJECT":53)"R-READ OBJECT":63)"S-SAVE OBJECT":73)"V-VIEW OBJECT":93)"T-TRANSLATE OBJECT"::3)"M-MAIN MENU":;3)"E-END SESSION"< 3700eA(Q$"D")2(Q$"R")3(Q$"S")4(Q$"V")5(Q$"T")100,1600,1800,300,1399vDQ$"E"3800~F50c DEFINEd""e 2D MODEf"MAXIMUMS:":"20 PARTS":"12 PTS PER PART/FACE":g"# OF 2D PARTS";P1hPAP12:Q$"":A(0,0,0)P1j P10200.k PT2P11Al:"PART";PT1Pm PT2120sn"COPY LAST PART?(Y/N)": 3700o Q$"N"120s1000u140x"# OF POINTS";PO}"CLOSED?(Y/N)":3700Q$"Y"A(PT,0,1)1:129A(PT,0,1)2A(PT,0,0)POTA2ET2PO1:"X,Y";A(PT,0,TA),A(PT,0,TA1):TATA2:N PT\ 3D MODEt"# OF 3D PARTS";P2 P20A(1,0,0)0:49Q$"":A(1,0,0)P2 PTPA P2PA1:"PART";PT1 PTPA 212"COPY LAST PART?(Y/N)":3700 Q$"N"2121000#2297"# OF POINTS?"N"ON EACH FACE";PO_A(PT,0,0)POy"CLOSED?(Y/N)":3700 Q$"Y" A(PT,0,1)1:220A(PT,0,1)2TA2 TT12"FACE";TTT2 PO1:"X,Y";A(PT,TT,TA),A(PT,TT,TA1):TATA2:TA2 TT" PT+* 50?+ VIEW MOVE RAMa,36866,150:36869,240:648,306J217228:J,158::J229250:J,159:@36865,30:36867,21:36869,252:36879,30JI0219:7680I,I:MCO0O I0219:38400I,CO:TI40967615:I,0:] 2D READ6^P1A(0,0,0):PAP12D_P10449T` PT2P11eaPOA(PT,0,0)nbTA2}c T2PO1hX1A(PT,0,TA):Y1A(PT,0,TA1) VIEW 1ST COMPARETPO1A(PT,0,1)1 X2A(PT,0,2):Y2A(PT,0,3):500 TPO1445#X2A(PT,0,TA2):Y2A(PT,0,TA3),5008TATA2@ TI PTW 3D READgP2A(1,0,0)uP20800 PTPA P2PA1POA(PT,0,0) TT1 2TA2 T2 PO1X1A(PT,TT,TA):Y1A(PT,TT,TA1)& TPO1 A(PT,0,1)1X2A(PT,TT,2):Y2A(PT,TT,3): 5006TPO1476\X2A(PT,TT,TA2):Y2A(PT,TT,TA3)f 500rTATA2z T TTTA2 FA1POX1A(PT,1,TA):Y1A(PT,1,TA1)X2A(PT,2,TA):Y2A(PT,2,TA1) 500TATA2 FA PT800& VIEW 2ND COMPARE7X0:Y0:SI1O X1X2Y1Y2SI1n(X2X1)(Y2Y1)Y1Y2525w 530 (Y2Y1)(X1X2)640SI1:540(X2X1)(Y1Y2)Y1Y2620Y1Y2X1X2&Y1Y23500W VIEW PLOT LOOP7XYYY1Y2 SI((Y2Y1)(X2X1)):Y(YY):XX1:3000:3200:YY@b660`l(Y1Y2)(X1X2)SI1:640iv540z X1X23600XXX1X1SI((X2X1)(Y2Y1)):X(XX):YY1:3000:3300:XX VIEW GO MENU A$""*A$:A$""8104 A$(77)810>I40967615:I,0:IH36865,25:36867,46:36869,240:36879,27UR(147)^\ 50dt COPY PART"":"PART";PT1;"/TRANSLATION:""RIGHT=+X LEFT=-X""DOWN=+Y UP=-Y":"X TRANS.";TX"Y TRANS.";TY "IS PART 3D?(Y/N)":3700Q$"Y"1100N A(PT,0,0)A(PT1,0,0):A(PT,0,1)A(PT1,0,1)WTA2lT2A(PT,0,0)1A(PT,0,TA)A(PT1,0,TA)TXA(PT,0,TA1)A(PT1,0,TA1)TY$TATA2) T,"".LA(PT,0,0)A(PT1,0,0):A(PT,0,1)A(PT1,0,1)Q TT12VTA2,[T2A(PT,0,0)1M`A(PT,TT,TA)A(PT1,TT,TA)TXreA(PT,TT,TA1)A(PT1,TT,TA1)TY~jTATA2o Tt TTv""yw TRANSx"":"TRANSLATION:"}"RIGHT=+X LEFT=-X""DOWN=+Y UP=-Y": "X TRANS.";TX "Y TRANS.";TY0 P1A(0,0,0):PAP12@  PT2P11Q POA(PT,0,0)Z TA2h T2PO1 A(PT,0,TA)A(PT,0,TA)TX A(PT,0,TA1)A(PT,0,TA1)TY TATA2  T  PT P2A(1,0,0)  PTPA P2PA1 POA(PT,0,0) ! TT1 2!TA2"!T2 PO1A!A(PT,TT,TA)A(PT,TT,TA)TXd!A(PT,TT,TA1)A(PT,TT,TA1)TYp!TATA2x! T! TT! PT! 50!? READ!@"":"TAPE OR DISK": OU$!A"NAME OF PICTURE FILE";F$!B(OU$,1)"T"OU1:1605"COU8"E1,OU,0,F$*"J1,A(0,0,0),A(1,0,0)B"O PT2 A(0,0,0)1K"TTA2f"Y1,A(PT,0,0),A(PT,0,1)~"^ T1 A(PT,0,0)1"c1,A(PT,0,TA),A(PT,0,TA1)"hTATA2"m T"r PT"w PTA(0,0,0)2 A(1,0,0)A(0,0,0)1"y1,A(PT,0,0),A(PT,0,1) #| TT1 2#TA2.# T2 A(PT,0,0)1O#1,A(PT,TT,TA),A(PT,TT,TA1)[#TATA2c# Tl# TTu# PT|#1# 50# FILE#"":"TAPE OR DISK": IN$# "NAME OF PICTURE FILE";F$# (IN$,1)"T"IN1:1805# IN8$ 1,IN,1,F$$R$(13),$1,A(0,0,0);R$;A(1,0,0)D$ PT2 A(0,0,0)1M$!TA0e$& T0 A(PT,0,0)1$+1,A(PT,0,TA);R$;A(PT,0,TA1)$0TATA2$5 T$: PT$? PTA(0,0,0)2 A(1,0,0)A(0,0,0)1$A1,A(PT,0,0);R$;A(PT,0,1)$D TT1 2%ITA2%N T2 A(PT,0,0)1@%X1,A(PT,TT,TA);R$;A(PT,TT,TA1)L%]TATA2T%b T]%g TTf%l PTm%v1v%{ 50% PLOT SUB% X176 X0 % Y160 Y0 % CH(Y16)22(X8)% RO(Y16(Y16))16:BY409616CHRO& BI7(X(X8)8):BY,(BY) (2BI):/& Y LOOP SUBD& X1X2X1X11:R& X1X11:c& X LOOP SUBx& Y1Y2Y1Y11:& Y1Y11:& Y1=Y2& X1X2SI1& XXX1X2SI:X(XX):YY1:3000: XX& & X1=X2&Y1Y2SI1'YYY1Y2SI:Y(YY):XX1:3000: YY'$''s Q$1'tQ$""G'v Q$:Q$"" 3702M'~_' END SESSIONj'"":