10  COM Z6,H$[7],V6,J7,W$[72],U$[72],I[4],C3,S[7],I6,P[7]
20  COM I,R7,N9,L[24,8],N7,P$[72],Q$[72],N[24,4],M[4],F9,D[4,2],R[16]
30  GOTO 80
40  CHAIN "$ANAL-4"
50  CHAIN "$ANAL-3"
60  CHAIN "$ANAL-1"
70  CHAIN "$EX-DAT"
80  A9=I-I
90  IF F9=2 THEN 410
100  IF F9=4 THEN 160
110  PRINT "WOULD ANOTHER FORM OF OUTPUT BE OF VALUE AT THIS TIME";
120  INPUT B$[I,I]
130  IF B$="N" THEN 410
140  F9=I
150  GOTO 40
160  PRINT '10"WOULD YOU LIKE TO USE THE SAME VARIABLES BUT REDEFINE EITHER"
170  PRINT "THE DEPENDENT OR INDEPENDENT FUNCTION";
180  INPUT B$[I,I]
190  IF B$#"Y" THEN 240
200  F9=0
210  W$=P$
220  U$=Q$
230  GOTO 50
240  IF  NOT C3 AND  NOT A9 THEN 410
250  IF  NOT C3 AND A9=2 THEN 1080
260  PRINT '10"WOULD YOU LIKE TO SELECT A DIFFERENT PLAN FOR THE ANALYSIS"
270  PRINT "OF THE VARIABLES IN THIS INVESTIGATION";
280  INPUT B$[I,I]
290  IF B$="N" THEN 1080
300  MAT S=ZER
310  MAT P=ZER
320  MAT M=ZER
330  FOR W=I TO 4
340  S[W+2]=W
350  NEXT W
360  PRINT "WILL THE NEW PLAN REQUIRE ANOTHER SET OF DATA";
370  INPUT B$[I,I]
380  IF B$="Y" THEN 400
390  GOTO 60
400  GOTO 70
410  PRINT '10"DOES (DO) THE GRAPH(S) RESEMBLE A STRAIGHT LINE(S)";
420  INPUT B$[I,I]
430  A9=I
440  IF B$#"Y" THEN 160
450  DIM D$[4]
460  D$="*@#."
470  Z8=I-I
480  PRINT '10"WOULD YOU LIKE TO DETERMINE THE SLOPE OF THE LINE";
490  INPUT B$[I,I]
500  IF B$#"Y" THEN 260
510  A9=2
520  IF R[I]=R[2] OR  NOT R[2] THEN 610
530  PRINT '10"SELECT ONE OF THE CHARACTERS USED TO PLOT A GIVEN SET OF DATA:"
540  PRINT "WHICH OF THESE PLOT CHARACTERS DO YOU WANT TO ANALYZE (# @ * .)";
550  INPUT B$[I,I]
560  FOR N=I TO 4
570  IF B$=D$[N,N] THEN 620
580  NEXT N
590  PRINT "SORRY CHARLIE, YOU'LL HAVE TO PLAY THIS GAME STRAIGHT!"
600  GOTO 530
610  N=I
620  PRINT '10"SELECT AN INTERVAL FOR THE 'CHANGE IN ("W$")' AND THE"
630  PRINT "CORRESPONDING 'CHANGE IN ("U$")'."
640  PRINT "'CHANGE ALONG Y-AXIS' = 'CHANGE IN ("U$")' = ";
650  INPUT Y
660  PRINT "'CHANGE ALONG X-AXIS' = 'CHANGE IN ("W$")' = ";
670  INPUT X
680  PRINT TAB(20)"CHANGE IN (Y)"'10'13TAB(12)"SLOPE = ------------- = "INT(1000*Y/X+.5)/1000
690  PRINT TAB(20)"CHANGE IN (X)"
700  PRINT '10"DOES THE EXTENSION OF YOUR GRAPH INCLUDE THE ORIGIN, THE POINT (0,0)";
710  INPUT B$[I,I]
720  PRINT "COMPARE YOUR RESULT FOR THE SLOPE OF THE LINE WITH THE FOLLOWING VALUE"
730  PRINT "CALCULATED BY 'MODEQ'."
740  IF B$="N" THEN 800
750  PRINT TAB(20)"CHANGE IN (Y)"'10'13TAB(12)"SLOPE = ------------- = "INT(R[N]*1000+.5)/1000
760  PRINT TAB(20)"CHANGE IN (X)"
770  PRINT '10"THE DEVIATION IN VALUES FOR THE SLOPE OF THE LINE IS "ABS(INT(1000*(R[N]-Y/X)/R[N]+.5))/10" PERCENT."
780  IF ABS((R[N]-Y/X)/R[N]*100)<10 THEN 1020
790  GOTO 890
800  PRINT TAB(20)"CHANGE IN (Y)"'10'13TAB(12)"SLOPE = ------------- = "INT(1000*R[N+4]+.5)/1000
810  PRINT TAB(20)"CHANGE IN (X)"
820  Z9=R[8+2*N-I]-(R[4+N]*R[8+2*N])
830  IF ABS(Z9)>.0001 THEN 850
840  Z9=I-I
850  PRINT "THE Y-AXIS INTERCEPT IS "Z9". YOU SHOULD COMPARE THIS VALUE"
860  PRINT "WITH THE INTERCEPT ON YOUR GRAPH."
870  PRINT '10"THE DEVIATION IN VALUES FOR THE SLOPE OF THE LINE IS "ABS(INT(1000*(R[N+4]-Y/X)/R[N+4]+.5))/10" PERCENT."
880  IF ABS((R[N+4]-Y/X)/R[N+4]*100)<10 THEN 1020
890  PRINT '10"WHILE THE FIGURE OF 'TEN PERCENT' IS NOT A STANDARD FOR MAXIMUM"
900  PRINT "ERROR, AN ERROR GREATER THAN THIS VALUE MAY SUGGEST THE FOLLOWING:"
910  PRINT TAB(5)"1) A REEXAMINATION OF THE CHANGES IN VALUES ALONG THE"
920  PRINT TAB(8)"(Y) AND (X) AXES,"
930  PRINT TAB(5)"2) THE RELATIONSHIP MAY NOT BE LINEAR. TRY A"
940  PRINT TAB(8)"REDEFINITON OF FUNCTIONS"
950  PRINT TAB(5)"3) ANOTHER PLAN FOR THE ANALYSIS"'10
960  A9=3
970  PRINT "IS THE PROBLEM IN YOUR VALUES FOR 'CHANGE IN (Y)' OR 'CHANGE  IN (X)'";
980  INPUT B$[I,I]
990  IF B$="N" THEN 160
1000  PRINT "OKAY, TRY AGAIN."
1010  GOTO 640
1020  Z8=Z8+I
1030  IF  NOT R[Z8+I] THEN 160
1040  PRINT '10"WOULD YOU LIKE TO FIND THE SLOPE OF ANOTHER LINE";
1050  INPUT B$[I,I]
1060  IF B$="N" THEN 160
1070  GOTO 540
1080  PRINT '10"THIS CONCLUDES THE PROGRAM. IF YOU WANT TO EXTEND YOUR PLAN FOR"
1090  PRINT "ANALYSIS OR TRY ANOTHER PLAN, RUN 'MODEQ' AGAIN."
1100  END 
