20001 GOTO 22000¢20002 REM ****DATA LOGGING****¢20010 CLOSE #1:OPEN #1,8,0,"P:"¢20015 ? #1:? #1:? #1;" ";FILE$¢20020 ? #1,"NUMBER OF LEVELS",L¢20030 ? #1;" INITIAL WIDTH",WID¢20040 ? #1;"CONTRACTION RATIO",DIAM¢20050 ? #1;"LEFT ANGLE ",H1¢20060 ? #1;"INCREMENT LEFT",DL¢20070 ? #1;"RIGHT ANGLE",H2¢20080 ? #1;"INCREMENT RIGHT",DR¢20090 ? #1;"LEFT SHORTENING RATIO",R1¢20100 ? #1;"LEFT S. RATIO INCREMENT",RD1¢20110 ? #1;"RIGHT SHORTENING RATIO",R2¢20120 ? #1;"RIGHT S. RATIO INCREMENT",RD2¢20130 ? #1;"DIVERGENCE",DIV¢20140 ? #1;"NO. CONTROLLERS",MM¢20170 ? #1;"STRENGTH","X","Y","Z"¢20180 FOR M=1 TO MM:? #1;FACTOR(M),QX(M),QY(M),QZ(M):NEXT M¢20190 ? #1,"UNIFORM DEVIATIONS"," ",UDX,UDY,UDZ¢20195 ? #1;CHR$(12)¢20210 RETURN ¢20999 REM ***DATA READER ROUTINE ****¢21000 READ L,WID,DIAM,H1,H2,DL,DR,R1,R2,RD1,RD2,DIV,UDX,UDY,UDZ,MM:IF MM=0 THEN RETURN ¢21010 FOR J=1 TO MM:READ FF,X,Y,Z:QX(J)=X:QY(J)=Y:QZ(J)=Z:FACTOR(J)=FF¢21020 RETURN ¢21999 REM ****MAIN PROG****¢22000 DIM FACTOR(10),QX(10),QY(10),QZ(10):DRIVE$="D1:"¢22005 FOR JK=0 TO 9¢22010 FILE$="NO":FILE$(LEN(FILE$)+1)=STR$(JK):RESTORE 23000+JK:GOSUB 21000:GOSUB 20010:GOSUB GO:GOSUB WRITE¢22020 NEXT JK¢23000 DATA 7,6,.7,30,35,0,0,.7,.9,0,0,0,0,0,0,0¢23001 DATA 7,6,.7,0,25,0,0,.7,.9,0,0,140,0,0,0,0¢23002 DATA 7,6,.7,10,35,0,0,.7,.9,0,0,140,0,0,0,0¢23003 DATA 7,6,.7,20,25,2,2,.7,.9,0,0,0,0,0,0,0¢23004 DATA 7,6,.7,60,65,0,0,.5,.9,0,0,0,0,0,0,0¢23005 DATA 7,6,.7,30,35,0,0,.7,.9,0,0,0,0,0,-.1,0¢23006 DATA 7,6,.7,0,25,0,0,.7,.9,0,0,140,0,0,0,1,.07,1,1,1¢23007 DATA 7,6,.7,30,35,0,0,.7,.9,0,0, 0,0,0,.10,0¢23008 DATA 7,6,.7,10,35,0,0,.7,.9,0,0,0,0,.2,0,1,.05,0,1,1¢23009 DATA 7,6,.7,0,25,0,0,.7,.9,0,0,0,0,0,0,1,-.07,1,1,1¢
