1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        LOGIC:  LOGIC EXAMINATION PROGRAMS
4  REM        LOGIC2, PART 2 OF 5
5  REM        36251  REV B  -- 10/73
6  REM 
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
8  REM
10  REM  *** AARDWOLF & COMPANY WRITING TEAM ***  JOHN C. RIDGES
20  REM  *** LOGIC2 *** 0846 WORDS *** VERSION 2 ***
30  DIM A$[72],B$[72],C$[72],D$[72],E$[72],F$[72],K$[72],R$[72]
40  J=C=I0=N=0
50  H=I1= NOT I0
60  PRINT 
70  IF TYP(I0)=3 THEN 550
80  READ A$,B$,C$,D$,E$,F$
90  FOR H=I1 TO I0 STEP -I1
100  R$="DISJUNCTION."
110  K$=" OR "
120  IF H THEN 150
130  K$=" AND "
140  R$="CONJUNCTION."
150  PRINT '10'10'10'10"IF "A$;K$;C$","'13'10"THEN "E$"."'13'10'10'10"O.K. --- NOW ASSUME "F$"."'13'13'10'10"CAN WE CONCLUDE:"
160  FOR D=I0 TO I1
170  Z$="N"
180  Y$="Y"
190  PRINT "     ";
200  I=INT(RND(I1)*6)+I1
210  IF I=J THEN 200
220  J=I
230  GOTO I OF 240,290,310,330,350,370
240  IF H THEN 270
250  PRINT B$" OR "D$;
260  GOTO 390
270  PRINT B$" AND "D$;
280  GOTO 390
290  PRINT B$;
300  GOTO H+I1 OF 410,390
310  PRINT D$;
320  GOTO 300
330  PRINT B$;K$;
340  GOTO 310
350  PRINT B$;K$;C$;
360  GOTO 410
370  PRINT A$;K$;D$;
380  GOTO 410
390  Z$="Y"
400  Y$="N"
410  INPUT X$[I1,I1]
420  IF X$=Z$ THEN 460
430  IF X$#Y$ THEN 490
440  PRINT "WRONG --- GO BACK AND STUDY THE NEGATION OF A "R$
450  GOTO 510
460  C=C+I1
470  PRINT "CORRECT."
480  GOTO 510
490  PRINT "WHAT";
500  GOTO 410
510  N=N+I1
520  NEXT D
530  NEXT H
540  GOTO 70
550  PRINT '10"YOU ANSWERED"C"OUT OF"N"QUESTIONS CORRECTLY FOR A"'13'10"FINAL SCORE OF"INT(C/N*100)"%."'10
560  DATA "IT IS A WARM NIGHT","IT IS NOT A WARM NIGHT"
570  DATA "I AM OVER MY COLD","I AM NOT OVER MY COLD"
580  DATA "I AM GOING TO THE GAME","I AM NOT GOING TO THE GAME"
590  DATA "JOE ATTENDS CLASS","JOE DOES NOT ATTEND CLASS"
600  DATA "HE STUDIES DILIGENTLY","HE DOES NOT STUDY DILIGENTLY"
610  DATA "HE PASSES THE COURSE","HE FAILS THE COURSE"
620  DATA "GLEEBS ARE SEERY","GLEEBS ARE NOT SEERY"
630  DATA "MODULS ARE TRUNE","MODULS ARE NOT TRUNE"
640  DATA "FLORTZ ARE ARTIFERAKE","FLORTZ ARE NOT ARTIFERAKE"
650  DATA "EDGAR INHERRITS MONEY","EDGAR DOES NOT INHERIT MONEY"
660  DATA "HE INVESTS WISELY","HE DOES NOT INVEST WISELY"
670  DATA "HE BECOMES WEALTHY","HE DOES NOT BECOME WEALTHY"
680  END 
