1 ! PROGRAM NAME --> I M P R O P -- BY BOB HUNTSMAN 11 DIM B2$(3%),B2%(3%):B2$(1%)="LET'S START WITH":B2$(2%)= "NOW SOME":B2$(3%)="FINALLY, SOME":B2%(1%)=5%:B2%(2%)=3%: B2%(3%)=2%:B2%(0%)=5%:B%=0% 12 OPEN "KB:" AS FILE 1%:INPUT #1%,"NAME PLEASE (CR)---> ";N$: V9$=SYS(CHR$(3%)):FIELD #1%,K% AS Q$,1% AS M3$(K%) FOR K%=0% TO 10%:RANDOM 27 DIM B$(7%):B$(1%)="EASY":B$(2%)="MEDIUM":B$(3%)="HARD": B$(4%)="WRONG":B$(5%)="RIGHT":B$(6%)="LOW":B$(7%)="HIGH" 30 PRINT "ENTER 'I' FOR INSTRUCTIONS:";:GOSUB 29000:PRINT M4$:GOTO 135 IF M4$<>"I" 50 PRINT:PRINT "THE REQUIREMENTS ARE:":PRINT 55 PRINT "YOU MUST ANSWER 5 EASY PROBLEMS, 3 MEDIUM "; "PROBLEMS, AND 2 HARD" 60 PRINT "PROBLEMS. YOU'LL BE GIVEN THREE TRIES TO ANSWER EACH "; "PROBLEM; HOWEVER" 65 PRINT "ONLY PROBLEMS ANSWERED CORRECTLY THE FIRST TRY ARE "; "SCORED AS CORRECT" 70 PRINT "ANSWERS. YOU MUST GET 80% OF THE EASY ONES CORRECT, 70% "; "OF THE MEDIUM" 75 PRINT "ONES CORRECT AND 50% OF THE HARD ONES CORRECT (THEY ARE "; "R E A L L Y" 85 PRINT "HARD) IN ORDER TO PASS. IF YOU PASS, THE COMPUTER WILL TELL"; " YOU AND" 90 PRINT "ALLOW YOU TO GO ON THE NEXT PROGRAM. BY THE WAY, IF YOU "; "WANT TO KNOW":PRINT "HOW "; 95 PRINT "YOU'RE DOING ENTER '?' WHEN ASKED FOR YOUR ANSWER. IF YOU "; "GIVE UP," 100 PRINT "ENTER 'Q' FOR YOUR ANSWER AND THE PROGRAM WILL TERMINATE!!": PRINT:PRINT 110 PRINT "IF THE PROGRAM PRINTS OUT '(CR)--->', THAT MEANS YOU MUST": PRINT "HIT THE RETURN KEY AFTER YOU INPUT YOUR ANSWER. IF "; "THAT IS":PRINT "NOT THERE, YOU NEED NOT HIT THE 'RETURN' KEY!!" :PRINT 111 RANDOM:GOTO 135 130 GOTO 1300 IF X%(B%+3%)=0%:GOTO 1300 IF B2%(B%)>X%(B%): GOTO 1300 IF 100%*X%(B%)/X%(B%+3%)<35%+15%*(4%-B%) 135 Q9%=Q9%+1%:GOTO 136 IF Q9%<>1%:PRINT "ENTER 'E' FOR BRIEF "; "DISCUSSION ABOUT IMPROPER FRACTIONS:";:GOSUB 29000: PRINT M4$:GOTO 136 IF M4$<>"E":GOSUB 500 136 GOTO 1200 IF B%=3%:B%=B%+1%:PRINT:PRINT B2$(B%);" ";B$(B%); " ONES:":PRINT:GOTO 130 200 GOTO 130 IF F6%=0%:F6%=0%:GOTO 230 IF B%:PRINT "GO BACK AND REDO PROGRAM #4, F R A C A D !!!": GOTO 32000 230 PRINT "REDO THE ";B$(B%);" PROBLEMS!!": X%(B%),X%(B%+3%),X%(B%+1%),X%(B%+4%)=0%:GOTO 200 500 PRINT:PRINT "BEFORE WE GO ON TO THE PROBLEMS, I'M GOING TO GIVE "; "YOU A LECTURE ABOUT":PRINT "IMPROPER FRACTIONS. FIRST OF "; "ALL, A FRACTION CAN BE CONSIDERED" 510 PRINT "A DIVISION PROBLEM WHERE 1/2 WOULD MEAN 1 DIVIDED BY 2. "; "FRACTIONS":PRINT "WHOSE ABSOLUTE VALUES ARE "; "LESS THAN 1 ARE CALLED PROPER FRACTIONS." 515 PRINT "A FRACTION WHOSE ABSOLUTE VALUE IS GREATER THAN OR EQUAL "; "TO 1 IS":PRINT "CALLED AN IMPROPER FRACTION. FOR EXAMPLE, "; "4/5 IS A PROPER FRACTION" 520 PRINT "BECAUSE 4/5 IS LESS THAN 1. 5/3, HOWEVER, IS AN IMPROPER "; "FRACTION":PRINT "BECAUSE 5/3 EQUALS 1 2/3 WHICH IS GREATER "; "THAN 1. DURING" 525 PRINT "THIS PROGRAM, YOU MUST DECIDE WHETHER OR NOT THE GIVEN "; "FRACTION IS":PRINT "IMPROPER OR NOT. IF YOU DECIDE THAT IT "; "IS IMPROPER, YOU MUST CHANGE" 530 PRINT "IT TO A WHOLE NUMBER AND A PROPER FRACTION. FOR EXAMPLE, "; "11/8 SHOULD":PRINT "BE CHANGED TO 1 3/8.":PRINT 540 PRINT "[HINT: AN EASY WAY TO TELL IF A FRACTION IS IMPROPER OR "; "NOT IS TO":PRINT "COMPARE THE NUMERATOR WITH THE "; "DENOMINATOR. IF THE" 545 PRINT "DENOMINATOR IS LARGER, THEN THE FRACTION IS PROPER; "; "OTHERWISE IT IS":PRINT "IMPROPER!!]":PRINT:PRINT:RETURN 640 DEF FNN$(V%)=MID(NUM$(V%),2%,LEN(NUM$(V%))-2%) 800 X3%=X3%+1%:H5%=H5%+1% IF B%=3%:X%=X%+1%:X%(B%+3%)=X%(B%+3%)+1%: X%(B%)=X%(B%)+1% IF E%=3% 810 RETURN IF E%=3% OR X%(B%+3%)<3%+B2%(B%):F6%=1%:PRINT :B%=B%-1%:PRINT N$;" -- YOU ARE NOT DOING VERY WELL ON "; "THESE PROBLEMS. YOU MUST":RETURN 900 D%=0%:D1%=INT(LOG10(C1%))+1%:FOR K1%=1% TO D1% 910 GOSUB 29000:GOTO 920 IF M4$="?":GOTO 940 IF M4$="Q": M%=ASCII(M4$):GOTO 910 IF (M%=13% OR M%=32%) AND D%=0%:RETURN IF M%=13% OR M%=32%:GOTO 910 IF M%<48% OR M%>57%: D%=D%*10%+M%-48%:PRINT M4$;:NEXT K1%:RETURN 920 F4%=0%:F4%=1% IF X%(K%) FOR K%=4% TO 6%:GOTO 910 IF F4%=0% 930 X%=POS(1%):PRINT M4$;:A1%=A%:B1%=B%:GOSUB 32005:A%=A1%:B%=B1%: PRINT TAB(X%-4%);"---> ";:GOTO 900 940 PRINT:PRINT:PRINT "SORRY, ";N$;" -- YOU DO NOT PASS. . .": GOTO 32000 1000 DEF FNR%(V%,V1%) 1010 V2%=V1%-V%+1%:V3%=INT(1000%*RND):V3%=V3%-V3%/V2%*V2%+V%:FNR%=V3% 1020 FNEND 1100 DEF FNX%=X%(1%)+X%(2%)+X%(3%) 1200 PRINT:PRINT "CONGRATULATIONS, ";N$;". YOU HAVE SUCCESSFULLY PASSED" 1210 PRINT "THE REQUIREMENTS OF THIS PROGRAM!! YOU NOW MAY GO ON TO 1220 PRINT "THE NEXT PROGRAM, #6, NAMED -LCM-.":PRINT:GOTO 32000 1300 R%=FNR%(1%,5%):H%=1%:I%=50%:E%=3%:IF B%=2% THEN H%=51%:I%=100% 1310 IF B%=3% THEN H%=100%:I%=400% 1320 A%=FNR%(H%,I%):B3%=FNR%(H%,I%) 1325 IF A%"N" AND M4$<>"Y":PRINT M4$;TAB(25%);:A$=M4$+"" 1350 IF R%=1% THEN IF A$="N" THEN GOTO 1390 ELSE PRINT "NO IT ISN'T, ";N$;"!!!":E%=2% IF E%=3%:GOSUB 800:GOTO 200 1355 IF A$="N" THEN PRINT "YES IT IS!!":E%=2% IF E%=3% 1360 PRINT "VERY GOOD!!" IF A$<>"N":PRINT:PRINT "CHANGE ";FNN$(A%); "/";FNN$(B3%);" TO A WHOLE NUMBER AND A PROPER FRACTION!!":PRINT 1365 PRINT "WHOLE NUMBER: ";:C1%=A%/B3%:GOSUB 900:C%=D%: PRINT TAB(17%);"ENTER FRACTIONAL PART BELOW!!":PRINT: O%=A%-A%/B3%*B3% 1370 PRINT "NUMERATOR --> ";:C1%=O%:GOSUB 900:F%=D%:PRINT: L%=LEN(FNN$(B3%)):PRINT TAB(16%);:PRINT "-"; FOR K%=1% TO L%:PRINT:PRINT "DENOMINATOR --> ";:C1%=B3%: GOSUB 900:G%=D%:PRINT TAB(20%);"WHICH IS --->";C%; FNN$(F%);"/";FNN$(G%); 1380 PRINT TAB(45%);:GOTO 1400 IF C%<>A%/B3% OR F%<>O% OR G%<>B3% 1390 PRINT "CORRECT!!":GOSUB 800:PRINT:PRINT:GOTO 200 1400 PRINT "WRONG!!":E%=E%-1%:GOTO 1410 IF E%<1%:PRINT: PRINT "TRY AGAIN, ";N$;"!!":PRINT:PRINT:GOTO 1365 1410 PRINT "SORRY -- THAT WAS YOUR LAST CHANCE!!":PRINT:PRINT "THE CORRECT ANSWER IS";A%/B3%;FNN$(A%-A%/B3%*B3%); "/";FNN$(B3%):PRINT:PRINT:GOSUB 800:GOTO 200 1600 DEF FNC%(V%,V1%) 1610 E9%=1%:D5%=0% 1625 D5%=D5%+2%:D5%=3% IF D5%=4%:IF D5%>V% OR D5%>V1% THEN FNC%=E9%:GOTO 1640 1630 IF V%/D5%*D5%=V% AND V1%/D5%*D5%=V1% THEN E9%=E9%*D5%:V%=V%/D5%: V1%=V1%/D5%:GOTO 1630 1635 V%=FNQ%(V%,D5%):V1%=FNQ%(V1%,D5%):GOTO 1625 1640 FNEND 1660 DEF FNQ%(V2%,V3%) 1665 IF V2%/V3%=V3%=V2% THEN V2%=V2%/V3%:GOTO 1665 1670 FNQ%=V2% 1675 FNEND 29000 GOTO 29100 IF M3%=Z3%:M4$=M3$(M3%):M3%=M3%+1%:RETURN 29100 M3%=0%:V9$=SYS(CHR$(4%)):GET #1%:Z3%=RECOUNT:GOTO 29000 32000 PRINT:PRINT "IMPROPER FRACTIONS":F3%=1% 32005 U$="\ \ - ## OUT OF ## ---> ###%":V9$=SYS(CHR$(2%)) UNLESS F3%=0% 32007 PRINT:PRINT N$;" -- HERE ARE YOUR SCORES:":PRINT 32010 FOR K%=1% TO 3%:GOTO 32100 IF X%(K%+3%)=0%:PRINTUSING U$, B$(K%),X%(K%),X%(K%+3%),100%*X%(K%)/X%(K%+3%) 32100 NEXT K% 32220 B%=0%:B%=B%+X%(K%) FOR K%=4% TO 6%:A%=0%:A%=A%+X%(K%) FOR K%=1% TO 3%:A%=100%*A%/B% 32225 IF F3%=0% THEN PRINT:PRINT "CUMULATIVE-->";A%:PRINT:RETURN 32230 B%=0%:B%=1% IF A%>60%:B%=2% IF A%>89%:DIM Z$(2%) 32240 Z$(0%)=", YOU DEFINITELY NEED MUCH MORE" + " PRACTICE!!":Z$(1%)=", YOU DID ABOUT AVERAGE" + " -- BUT YOU STILL NEED MORE PRACTICE!!" 32250 Z$(2%)=" -- GREAT -- YOU SEEM TO UNDERSTAND" + " THESE PROBLEMS VERY WELL!!" 32260 A$=NUM$(A%):PRINT:PRINT "YOUR CUMULATIVE SCORE IS"; LEFT(A$,LEN(A$)-1%);"%.":PRINT 32270 PRINT N$+Z$(B%):PRINT 32767 END