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