\
BRANCH  10:11 AM        15-SEP-75
10 INPUT"INSTRUCTIONS (Y OR N)";A$
20 IF A$="Y" OR A$="YES" THEN 50 ELSE GO TO 80
50 REM*****USER INSTRUCTIONS******
60 &"THIS PROGRAM DESIGNS THE BRANCHING SCHEME FOR GIVING A TEST"
61 &"IN A LESSON WRITTEN IN DECAL AND DETERMINES IF A STUDENT"
62 &"HAS ACHIEVED A STANDARD OF 'N' CORRECT ANSWERS OUT OF 'T'"
63 &"TRIES.  THE PROGRAM PRINTS EITHER A DETAILED LIST OF BRANCHING"
64 &"INSTRUCTIONS OR A TABLE OR BOTH AND GIVES THE USER THE OPTION"
65 &"OF STARTING THE TEST WITH ANY SEGMENT NUMBER OF HIS CHOICE."
66 &"THE USER ALSO HAS THE OPTION OF SPECIFYING  WHETHER"
67 &"OR NOT HE WANTS QUESTION NUMBERS PRINTED IN THE TABLE."
70 &:&
80 INPUT  "ENTER 'N' AND 'T' SEPARATED BY COMMAS.  'N,T'";N,T
81 &"DO YOU WANT TO START WITH A SEGMENT NUMBER OTHER THAN 1"
82 INPUT"(Y OR N)";A$
83 IF A$<>"Y" THEN 90
85 INPUT"STARTING SEGMENT NO. ";S
86 S=S-1
90 INPUT"DO YOU WANT: SCHEME (S), TABLE (T), OR BOTH (B)";C$
100 IF C$="S" THEN P=0: Q=1
101 IF C$="T" THEN P=1: Q=0
102 IF C$="B" THEN P=0: Q=0
105 IF Q=0 THENINPUT"QUESTION NOS BY SEG. (Y OR N)";A$
106 IF A$<>"Y"  THEN X=1 ELSE X=0
170 IFP<>0 THEN 530
175 &:&:&:&
180 &"     BRANCHING SCHEME FOR "N" OUT OF "T
190 M=(T-N+1)*N
195 &TAB(11);M"SEGMENTS NEEDED.":&:&
200 FOR K=1TOM
210 &"SEG";
211 &USING"###",K+S
215 &"   ON RIGHT, BR TO ";
220 FOR A=1 TO T-N
230IF K=A*N OR K=M THEN&"'PASS'";:GOTO260
240 NEXT A
250 &USING"SEG###",K+1+S;
260 &"   ON WRONG, BR TO ";
270 IF K+N<=M THEN &USING"SEG###",K+N+S:GOTO300
280 &"'FAIL'"
300 NEXT K
390 &:&:&
530 IFQ<>0 THEN 960
540&:&:&
550 &"    TABLE OF BRANCHING FOR "N" OUT OF "T
560 &
600  &"   WRONG";
610 &TAB(10*(I+1));I;FOR I=0TO T-N+1:&
620 &"RIGHT"
700 FOR K=1TON
710 &USING"###",K+S;
720 FOR I=0 TO T-N
730 &TAB(10*(I+1));"SEG";
740 &USING"##",K+N*I+S;
750 &" W>";
760 NEXT I
770 &TAB(10*(I+1));"  FAIL"
775 IF X<>0 THEN 800
780 &TAB(I*10);"Q#";K+I-1; FOR I=1 TO T-N+1:&
800 &TAB(I*10+1);"R";  FOR I = 1 TO T-N+1:&
810 &TAB(I*10+1);"V";  FOR I = 1 TO T-N+1:&
820 NEXT K
900 &TAB(10*I);"PASS"; FOR I = 1 TO T-N+1 :&
950 & FOR I=1 TO 7
960 INPUT "WOULD YOU LIKE A DIFFERENT RUN (Y OR N)";A$
970 IF A$<>"Y" THEN 1000
980 GO TO 80
1000 END

READY