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›