1  REM  ****  HP BASIC PROGRAM LIBRARY  ********************************
2  REM
3  REM        LOGIC:  LOGIC EXAMINATION PROGRAMS
4  REM        LOGIC3, PART 3 OF 5
5  REM         36251  REV B  --  10/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ****************************************
8  REM
10  REM  *** AARDWOLF & COMPANY WRITING TEAM ***  DAVID WHITNEY
20  REM  *** LOGIC3 *** 0636 WORDS *** VERSION 3 ***
30  DIM A$[72],B$[72],D$[72],E$[72],F$[72]
40  I=E=1
50  C=N=I-I
60  I2=I+I
70  IF TYP(I-I)=I+I2 THEN 550
80  E=E+I
90  READ A$,B$
100  D$="IF "
110  E$=" THEN "
120  F$=" ONLY IF "
130  Y=INT(E*RND(I)+I)
140  GOTO Y OF 170,190
150  PRINT D$;A$;E$;B$"."
160  GOTO 200
170  PRINT A$;F$;B$"."
180  GOTO 200
190  PRINT B$" IF "A$"."
200  Z=INT(I2*RND(I)+I)
210  PRINT "CAN WE SAY ";
220  W=M=INT(I2*RND(I))
230  GOTO (Y=Z)+I OF 250,240
240  IF  NOT W THEN 220
250  T=ABS(W-I)
260  GOTO Z OF 320,370
270  IF M THEN 300
280  PRINT D$;A$;E$;B$;
290  GOTO 410
300  PRINT D$;B$;E$;A$;
310  GOTO 410
320  IF M THEN 350
330  PRINT A$;F$;B$;
340  GOTO 410
350  PRINT B$;F$;A$;
360  GOTO 410
370  IF M THEN 400
380  PRINT B$" IF "A$;
390  GOTO 410
400  PRINT A$" IF "B$;
410  INPUT X$[I,I]
420  IF X$="Y" THEN 460
430  IF X$="N" THEN 460
440  PRINT "WHAT";
450  GOTO 410
460  IF  NOT T THEN 500
470  IF X$="Y" THEN 510
480  PRINT "WRONG---RECHECK THE DEFINITIONS."'10'10
490  GOTO 530
500  IF X$="Y" THEN 480
510  PRINT "CORRECT."'10'10
520  C=C+I
530  N=N+I
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 "A TRIANGLE IS EQUILATERAL","IT IS ISOSCELES","JOE STUDIES"
570  DATA "HE PASSES","QUADRILATERAL ABCD IS A SQUARE"
580  DATA "IT IS A RECTANGLE","N IS AN INTEGER","N IS RATIONAL"
590  DATA "P>0 AND Q<0","P*Q IS A NEGATIVE NUMBER"
600  DATA "X IS A NEGATIVE NUMBER","ABSOLUTE VALUE OF X IS > 0"
610  END 
