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