@ @10000G@%:15000:(142):@TEXT:"PRESS HELP FOR INSTRUCTIONS"b@AD(250)(251)2561|@650,128: KEY REPEAT@N1:AW0:CI(41,3):CR(41,3)@ P%(200,6),PP%(200,6)@X0:Y0:Z0:SK1:CT0@PT1:TG0@(DX319:DY99A2@,0,2:@,0A7@,55296,0,0,1,1,"X="4A8@,55296,0,8,1,1,"Y="OA9@,55296,0,16,1,1,"Z="[A<R3.866tABX$"0":Y$"0":Z$"0"AFXOZR3:YOZ4AGX$(X)" ":Y$(Y)" ":Z$(Z)" "AHX$(X)" ":Y$(Y)" ":Z$(Z)" "AI@,55296,16,16,1,1,Z$ BJ@,55296,16,8,1,1,Y$#BK@,55296,16,0,1,1,X$@BL(X)120X100(X):70[BM(Y)95Y95(Y):70xBN(Z)100Z100(Z):70BPXXX2.6DXXO:YYYDYYOBY@,AD,XX8,YY8,32,32BZA$:@,XX4,YY,XX4,YY,1:@,XX,YY2,XX,YY2,1C_@,XX4,YY,XX4,YY,0:@,XX,YY2,XX,YY2,0!CdA$""906Cf@!,AD,XX8,YY8SCiA$"H"A$:A$"E"5000iCnA$"I"YYN:70CxA$"K"YYN:70CA$"J"XXN:70CA$"L"XXN:70CA$"R"ZZN:70CA$"D"ZZN:70CA$""8500DA$""X0:Y0:Z0:70DA$""7000:704DA$""CT0CT1:70SDA$""CT1CT0:TG0:70oDA$(27)PTPT1:1600DA$"X"TG1300DA$"X"400DA$"1"A$"9"N(A$)DA$"":70D,P%(PT,4)X:P%(PT,5)Y:P%(PT,6)ZD6XOZR3:YOZ4E@XXX2.6DXXO:YYYDYYO7EJXOP%(PT,3)R3:YOP%(PT,3)4dETX1P%(PT,1)2.6DXXO:Y1P%(PT,2)DYYOyEY@,X1,Y1,XX,YY,1E[CT1PTPT1:400E^PTPT1:TG0:J0:70E@T,XX,YY,1:P%(PT,1)X:P%(PT,2)Y:P%(PT,3)Z:TGL1:J1E70F@,0,2:@,0:I1PT&FXP%(I,1):YP%(I,2):ZP%(I,3)9FXOZR3:YOZ4XFOXX2.6DXXO:OYYDYYOzFXP%(I,4):YP%(I,5):ZP%(I,6)FXOZR3:YOZ4FXXX2.6DXXO:YYYDYYOF@,OX,OY,XX,YY,1F I:J11000:JFF @TEXT:NPPTG%"X-Y ANGLE OF ROTATION (5TO35)";AX;G*"X-Z ANGLE OF ROTATION (5TO35)";AYcG4"Y-Z ANGLE OF ROTATION (5TO35)";AZyG9JXAX:JYAY:JZAZG>CV180:ZXJXCV:S0(ZX):C0(ZX)GHI1NPGRPP%(I,1)P%(I,1)C0P%(I,2)S0.9G\PP%(I,4)P%(I,4)C0P%(I,5)S0.9HfPP%(I,2)P%(I,1)S0P%(I,2)C0.9EHpPP%(I,5)P%(I,4)S0P%(I,5)C0.9LHzItHCV180:ZYJYCV:S0(ZY):C0(ZY)HI1NPHJ1PP%(I,1):J2PP%(I,4)HPP%(I,1)J1C0P%(I,3)S0.9HPP%(I,4)J2C0P%(I,6)S0.9HPP%(I,3)J1S0P%(I,3)C0.9 IPP%(I,6)J2S0P%(I,6)C0.9'IIOICV180:ZZJZCV:S0(ZZ):C0(ZZ)[II1NPwIJ1PP%(I,3):J2PP%(I,6)IPP%(I,3)J1C0PP%(I,2)S0.9I$PP%(I,6)J2C0PP%(I,5)S0.9I.PP%(I,2)J1S0PP%(I,2)C0.9I8PP%(I,5)J2S0PP%(I,5)C0.9JBIJL1500/JQJXJXAX:JYJYAY:JZJZAZLJRI1300:GG$:GG$""IgJSGG$(27)6000:1600uJV(CR)830J[6000:1600J@,0,2:@,0:I1NPJXPP%(I,1):YPP%(I,2):ZPP%(I,3)JXXSK:YYSKJZZ(400(400Z)):XXZZ:YYZZKXO0:YO0$KOXX2.6DXXO:OYYDYYOIKXPP%(I,4):YPP%(I,5):ZPP%(I,6)[K XXSK:YYSK~K ZZ(400(400Z)):XXZZ:YYZZKXXX2.6DXXO:YYYDYYOK"@,OX,OY,XX,YY,1K,IK6K@2500:@TEXTKENPPTKJ17),"MENU"KT"1 ROTATE"L^"2 TRANSLATE"Lh"3 SCALE".Lr"4 SAVE"=Lw"5 LOAD"OLy"6 DISPLAY"jLz"7 RETURN TO EDITOR"}L{"8 HARDCOPY"L|"9 RESTART FROM SCRATCH"L"10 QUIT"L:"YOUR CHOICE ";CHLCH10LCH1CH91600MCH1695,1750,1800,1850,2000,2100,3000,7500,8000EM"DO YOU WANT CONTINUOUS ROTATION";CR$NMCR0eM(CR$,1)"Y"CR1nM800M"X CHANGE";XCM"Y CHANGE";YCM"Z CHANGE";ZCM4000M1500: 5:1600M"ENTER SCALER (.2TO3)";SKM SK.2SK31800N&AW0:2500N01500: 5:16000N:"FILE NAME";N$8NDN$RNN1,8,2,"0:"N$",S,W"\Nb1,PThNlI1PTNv1,P%(I,1):1,P%(I,2):1,P%(I,3)N1,P%(I,4):1,P%(I,5):1,P%(I,6)NIN1N1600N"FILE NAME";N$N1,8,2,"0:"N$",S,R"O1,PTOI1PT3O1,P%(I,1):1,P%(I,2):1,P%(I,3)XO1,P%(I,4):1,P%(I,5):1,P%(I,6)_O IqO1:NPPT:AW0{O 1600O41500O>SS$:SS$""2110OH1600O (AW)O I1PT:J16O PP%(I,J)P%(I,J):J:IO AW1O P DX319:DY99:PT020P 7006P XP%(PT,4):YP%(PT,5):ZP%(PT,6)BP PTPT1KP AW0SP 55_P I1PTjP J16P P%(I,J)P%(I,J)SK.5P J:IP SK1:PI1NP1PP%(I,1)P%(I,1)XCPP%(I,4)P%(I,4)XCPP%(I,2)P%(I,2)YCQP%(I,5)P%(I,5)YCQP%(I,3)P%(I,3)ZC1QP%(I,6)P%(I,6)ZC8QINQDX159:DY99:ZC0]QAW0:2500cQQ@TEXT:A$:A$:A$:A$:(14)Q" "Q:" "R:"............................UP"1R"............................OWN"ZR"............................EFT"R"............................IGHT"R"............................(OSITIVE -AXIS MOVEMENT)"S"............................(EGATIVE -AXIS MOVEMENT)"2S"-......................OME CURSOR"cS"-......................EAREST POINTS:" "S:"0-9.........................ET CURSOR STEP SIZE"T"...........................ET ENDPOINT (A LINE IS DRAWN AFTER EACH"XT" PAIR OF POINTS OF ARE DEFIGNED"T"-.....................ELETE LAST LINE"T "[].......................UNCTIONS MENU"U"-.....................ONTINUOUS LINE DRAW MODE TOGGLE"9U:" PRESS TO CONTINUE EDITING"oU" PRESS FOR MORE DETAILED HELP"wU(A$U2 A$""(142):PTPT1:3000U<A$"HELP"5160UF@TEXT VP" HE -3 PROGRAM IS DESIGNED AS A SIMPLE CAD PROGRAM FOR THE 128 USING"ZVZ"THE - PROGRAM. HE PROGRAM IS BASED ON A 3- COORDINATE"Vd"SYSTEM. IRE-FRAME STRUCTURES CAN BE DRAWN WITH EASY TO USE KEYBOARD COMMANDS."Wn"HE SMALL FLASHING CURSOR IS MOVED BY THE ,,,,, AND KEYS. SE THE "YWx"KEY TO SET AN ENDPOINT OF A LINE. FER BOTH ENDPOINTS ARE SET, THE LINE WILL"W"BE DRAWN. N THE CONTINUOUS LINE DRAW MODE (TOGGLED BY ONTROL-) THE FIRST"X"POINT OF ONE LINE IS AUTOMATICALLY SET TO THE LAST POINT OF THE NEXT LINE. SE"\X"ONTROL- TO DELETE THE LAST LINE DRAWN, CONTROL- TO HOME THE CURSOR TO (0,0,0)"X"AND ONTROL- TO MOVE THE CURSOR TO THE NEAREST POINT. HE STEP SIZE IS THE"Y"DISTANCE THAT THE CURSOR MOVES EACH TIME YOU PRESS A CURSOR CONTROL KEY. STEP"`Y"SIZE OF 5 IS GOOD; HOWEVER, THE SYSTEM DEFAULTS TO A STEP SIZE OF 1. O GET THE"Y"FEEL OF THE EDITING SYSTEM, RECOMMEND DRAWING A CUBE. HEN YOU ARE DONE, HIT"Y"THE KEY TO GO ON TO THE FUNCTIONS MENU."@Z" HE ROTATE FUNCTION WILL ROTATE YOUR FIGURE AROUND ALL THREE OF THE AXIS,"Z"USING ANGLES OF ROTATION THAT YOU SUPPLY. F YOU CHOOSE CONTINUOUS ROTATION,"Z"YOUR FIGURE WILL ROTATE AUTOMATICALLY. O STOP THE RATATION, HIT THE KEY"A["WITHIN 2 SECONDS OF THE PICTURE BEING DRAWN TO RETURN TO THE MENU. F YOU WAIT"["TOO LONG, YOU WILL RETURN TO THE MENU AFTER THE NEXT VIEW IS SHOWN. HE"["TRANSLATE COMMAND IS USED TO MOVE YOUR FIGURE TO A DIFFERDNT PART OF THE SCREEN."@\"HE SCALE COMMAND IS USED TO SHRINK AND ENLARGE YOUR FIGURE. HE SAVE AND LOAD"\"COMMANDS SAVE AND LOAD YOUR FIGURES TO DISK. HEY ARE NOT SAVED AS PICTURE "\""FILES. HE DISPLAY COMMAND WILL DISPLAY YOUR FIGURE UNTILL YOU PRESS ."=],"HE VIEPOINT FOR DISPLAY IS DIFFERENT THAN THAT FOR THE EDITOR. UIT, HARDCOPY"]6"RETURN TO EDITOR AND RESTART FROM SCRATCH ALL DO AS EXPECTED."]@" RESS ANY KEY TO RETURN TO THE EDITOR.";]JA$:A$""5450]{(142):PTPT1:3000]pI1NP:J16^zP%(I,J)PP%(I,J)^J:I ^g^XXRXP%(1,1):XRXRXR:YRYP%(1,2):YRYRYR:ZRZ P%(1,3):ZRZRZRw^bRRXRYRZR^lMRRR:MI1:MJ0^vI1PT1^XRXP%(I,1):XRXRXR:YRYP%(I,2):YRYRYR:ZRZP%(I,3):ZRZRZR^RRXRYRZR _RRMRMRRR:MII:MJ0P_XRXP%(I,4):XRXRXR:YRYP%(I,5):YRYRYR:ZRZP%(I,6):ZRZRZR`_RRXRYRZR{_RRMRMRRR:MII:MJ1_I_MJMJ3:XP%(MI,MJ1):YP%(MI,MJ2):ZP%(MI,MJ3)__L"SECONDARY ADRESS ENTER -1 TO FOR MENU";SA_QSA11600`V1500``@H,2,SA`j16007`@"ARE YOU SURE";AR$R`J(AR$,1)"Y"AW0:20\`T1600r`4!PTPT2:PT120|`>!3000`'EL1500EL1600AW0`'1600`:@TEXT:(14)`:::::28);"OUBLE ELIX NGINEERING"`:::35);"RESENTS:"a:::::37);"-80"8a:::::32);"BY R. NFINITY"_a:::29);"WITH SPECIAL THANKS TO"{a:32);"ALRUS OFTWARE"a: 3: