A(20,2,26) Q$""& 1 MENU/ 2""N 34)"DRAWING MASTER":::j 43)"D-DEFINE OBJECT": 53)"L-LOAD OBJECT": 63)"S-SAVE OBJECT": 73)"V-VIEW OBJECT": 93)"T-TRANSLATE OBJECT": :3)"M-MAIN MENU":!;3)"E-END SESSION"!<3700c!A(Q$"D")2(Q$"L")3(Q$"S")4(Q$"V")5(Q$"T")100,1600,1800,300,1399t!DQ$"E"3800|!F50!c DIFINE!d""!e 2D MODE!f"MAXIMUMS:":"20 PARTS":"12 PTS PER FACE/PART":!g"# OF 2D PARTS";P1 "hPAP12:Q$"":A(0,0,0)P1"jP10200*"kPT2P11="l:"PART";PT1K"mPT2120m"n"COPY LAST PART?(Y/N)":3700}"oQ$"N"120"s1000"u140"x"# OF POINTS";PO"}"CLOSED?(Y/N)":3700"Q$"Y"A(PT,0,1)1:129"A(PT,0,1)2"A(PT,0,0)PO#TA2>#T2PO1:"X,Y";A(PT,0,TA),A(PT,0,TA1):TATA2:F#PTT# 3D MODEl#"# OF 3D PARTS";P2#P20A(1,0,0)0:49#Q$"":A(1,0,0)P2#PTPAP2PA1#:"PART";PT1#PTPA212#"COPY LAST PART?(Y/N)":3700$Q$"N"212 $1000$229)$"# OF POINTS?"@$"ON EACH FACE";POQ$A(PT,0,0)POk$"CLOSED?(Y/N)":3700$Q$"Y"A(PT,0,1)1:220$A(PT,0,1)2$TA2$TT12$"FACE";TT$T2PO1:"X,Y";A(PT,TT,TA),A(PT,TT,TA1):TATA2:$TA2%TT%PT%*50*%+ VIEW MOVE RAML%,36866,150:36869,240:648,30x%6J217228:J,158::J229250:J,159:%@36865,30:36867,21:36869,252:36879,30%JI0219:I7680,I:%MCO0%OI0219:38400I,CO:%TI40967615:I,0:&] 2D READ &^P1A(0,0,0):PAP12.&_P10449=&`PT2P11N&aPOA(PT,0,0)W&bTA2e&cT2PO1&hX1A(PT,0,TA):Y1A(PT,0,TA1)& VIEW 1ST COMPARE&TPO1A(PT,0,1)1X2A(PT,0,2):Y2A(PT,0,3):500&TPO1445 'X2A(PT,0,TA2):Y2A(PT,0,TA3)'500'TATA2%'T-'PT;' 3D READK'P2A(1,0,0)Y'P20800l'PTPAP2PA1}'POA(PT,0,0)'TT12'TA2'T2PO1'X1A(PT,TT,TA):Y1A(PT,TT,TA1)'TPO1A(PT,0,1)1X2A(PT,TT,2):Y2A(PT,TT,3):500 (TPO14763(X2A(PT,TT,TA2):Y2A(PT,TT,TA3)<(500H(TATA2O(TW(TT`(TA2m(FA1PO(X1A(PT,1,TA):Y1A(PT,1,TA1)(X2A(PT,2,TA):Y2A(PT,2,TA1)(500(TATA2(FA(PT(800( VIEW 2ND COMPARE)X0:Y0:SI1)X1X2Y1Y2SI1=)(X2X1)(Y2Y1)Y1Y2525F) 530_) (Y2Y1)(X1X2)640n)SI1:540)(X2X1)(Y1Y2)Y1Y2620)Y1Y2X1X2)&Y1Y23500)W VIEW PLOT LOOP*XYYY1Y2SI((Y2Y1)(X2X1)):Y(YY):XX1:3000:3200:YY*b660.*l(Y1Y2)(X1X2)SI1:6407*v540G*X1X23600*XXX1X2SI((X2X1)(Y2Y1)):X(XX):YY1:3000:3300:XX** VIEW GO MAIN* A$""*%36878,15:36876,170:36874,240**A$:A$""810*/A$""36878,0 +0A$""36878,15+4A$(77)810I+>36876,0:36874,0:I40967615:I,0:v+H36865,25:36867,46:36869,240:36879,27+R(147)+\50++ COPY PART+"":"PART";PT1;"/TRANSLATION:"+"RIGHT=+X LEFT=-X"+"DOWN=+Y UP=-Y":,"X TRANS.";TX,"Y TRANS.";TY9,"IS PART 3D?(Y/N)":3700J,Q$"Y"1100z, A(PT,0,0)A(PT1,0,0):A(PT,0,1)A(PT1,0,1),TA2,T2A(PT,0,0)1,A(PT,0,TA)A(PT1,0,TA)TX,A(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)8-QTT12A-VTA2V-[T2A(PT,0,0)1w-`A(PT,TT,TA)A(PT1,TT,TA)TX-eA(PT,TT,TA1)A(PT1,TT,TA1)TY-jTATA2-oT-tTT-v""-y-w TRANS.-x"":"TRANSLATION:".}"RIGHT=+X LEFT=-X"."DOWN=+Y UP=-Y":.."X TRANS.";TXA."Y TRANS.";TYY.P1A(0,0,0):PAP12h.PT2P11y.POA(PT,0,0).TA2.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) /PTPAP2PA1/POA(PT,0,0))/TT122/TA2@/T2PO1_/A(PT,TT,TA)A(PT,TT,TA)TX/A(PT,TT,TA1)A(PT,TT,TA1)TY/TATA2/T/TT/PT/50/? READ/@"":"TAPE OR DISK":OU$/A"NAME OF PICTURE FILE";F$0B(OU$,1)"T"OU1:16050COU8*0E1,OU,0,F$C0J1,A(0,0,0),A(1,0,0)X0OPT2A(0,0,0)1a0TTA2|0Y1,A(PT,0,0),A(PT,0,1)0^T1A(PT,0,0)10c1,A(PT,0,TA),A(PT,0,TA1)0hTATA20mT0rPT0wPTA(0,0,0)2A(1,0,0)A(0,0,0)1 1y1,A(PT,0,0),A(PT,0,1)1|TT12"1TA271T2A(PT,0,0)1X11,A(PT,TT,TA),A(PT,TT,TA1)d1TATA2k1Ts1TT{1PT111501 FILE1"":"TAPE OR DISK":IN$1 "NAME OF PICTURE FILE";F$1 (IN$,1)"T"IN1:18051 IN82 1,IN,1,F$2R$(13)021,A(0,0,0);R$;A(1,0,0)E2PT2A(0,0,0)1N2!TA0c2&T0A(PT,0,0)12+1,A(PT,0,TA);R$;A(PT,0,TA1)20TATA225T2:PT2?PTA(0,0,0)2A(1,0,0)A(0,0,0)12A1,A(PT,0,0);R$;A(PT,0,1)2DTT122ITA23NT2A(PT,0,0)133X1,A(PT,TT,TA);R$;A(PT,TT,TA1)?3]TATA2F3bTN3gTTV3lPT]3v1e3{50t3 PLOT SUB3 X176X03 Y160Y03 CH(Y16)22(X8)3 RO(Y16(Y16))16:BY409616CHRO4 BI7(X(X8)8):BY,(BY)(2BI):4 Y LOOP SUB(4 X1X2X1X11:64 X1X11:G4 X LOOP SUB\4 Y1Y2Y1Y11:j4 Y1Y11:v4 Y1=Y24 X1X2SI14 XXX1X2SI1:X(XX):YY1:3000:XX4 4 X1=X24Y1Y2SI14YYY1Y2SI1:Y(YY):XX1:3000:YY5$ 5s Q$5tQ$""+5vQ$:Q$""370215~<5"":