1  REM  ****  HP BASIC PROGRAM LIBRARY  ********************************
2  REM
3  REM        LOGIC:  LOGIC EXAMINATION PROGRAMS
4  REM        LOGIC4, PART 4 OF 5
5  REM        36251  REV B  --  10/73
6  REM
7  REM  **** CONTRIBUTED PROGRAM  ************************************
10  REM  *** AARDWOLF & COMPANY WRITING TEAM ***  JOHN C. RIDGES
20  REM  *** LOGIC4 *** 0823 WORDS *** VERSION 2 ***
30  G$=" AND "
40  H$=" OR "
50  DIM A$[72],B$[72],C$[72],D$[72],E$[72],F$[72],G$[72],H$[72]
60  I0=C=N=0
70  I1= NOT I0
80  I2=I1+I1
90  IF TYP(I0)=I2+I1 THEN 530
100  READ A$,B$,C$,D$
110  PRINT '10"IF "A$" THEN "D$"."
120  L=I0
130  GOSUB 330
140  PRINT '10"IT IS NOT THE CASE THAT IF "D$","'13'10"THEN "B$"."
150  L=I2+I2
160  GOSUB 330
170  GOTO 90
180  Z$="Y"
190  Y$="N"
200  IF I=I2+I2 OR L AND I=I2+I1 THEN 230
210  Y$="Y"
220  Z$="N"
230  IF X$=Z$ THEN 290
240  IF X$=Y$ THEN 270
250  PRINT "WHAT";
260  GOTO 430
270  PRINT "WRONG."
280  GOTO 310
290  PRINT "CORRECT."
300  C=C+I1
310  N=N+I1
320  RETURN 
330  PRINT "CAN WE SAY ";
340  I=INT(RND(I1)*I2^I2)+I1
350  GOTO I+L OF 360,380,400,420,450,470,510
360  PRINT A$;G$;C$;
370  GOTO 430
380  PRINT B$;G$;D$;
390  GOTO 430
400  PRINT A$;H$;C$;
410  GOTO 430
420  PRINT B$;H$;D$;
430  INPUT X$[I1,I1]
440  GOTO 180
450  PRINT C$;G$;A$;
460  GOTO 430
470  PRINT D$;G$;B$;
480  GOTO 430
490  PRINT C$;H$;A$;
500  GOTO 430
510  PRINT D$;H$;B$;
520  GOTO 430
530  PRINT '10"YOU ANSWERED"C"OUT OF"N"QUESTIONS CORRECTLY FOR A"'13'10"FINAL SCORE OF"INT(C/N*100)"%."'10
540  DATA "THE SUN IS SHINING","THE SUN IS NOT SHINING"
550  DATA "IT IS NIGHT","IT IS DAY"
560  DATA "A QUADRILATERAL IS A SQUARE"
570  DATA "A QUADRILATERAL ISN'T A SQUARE"
580  DATA "IT IS NOT A RHOMBUS","IT IS A RHOMBUS"
590  DATA "2 TRIANGLES ARE CONGRUENT"
600  DATA "2 TRIANGLES ARE NOT CONGRUENT"
610  DATA "CORRESPONDING ANGLES AREN'T ="
620  DATA "CORRESPONDING ANGLES ARE ="
630  DATA "FLORTZ ARE KRUNK","FLORTZ ARE NOT KRUNK"
640  DATA "GRUTZ ARE NOT GLABOT","GRUTZ ARE GLABOT"
650  DATA "P<0 AND Z>0","P<=0 OR Q<=0"
660  DATA "P*Q>=0","P*Q<0"
670  DATA "JOHN IS PRESIDENT","JOHN IS NOT PRESIDENT"
680  DATA "HE IS YOUNGER THAN 40","HE IS AT LEAST 40 YEARS OLD"
690  DATA "N IS AN INTEGER","N IS NOT AN INTEGER"
700  DATA "N IS NOT RATIONAL","N IS RATIONAL"
710  END 
