Math Programs

  20 REM %C%A%R%L% %E%.% %D%O%W%N%E%R% % % % % % % % % % % % % % % % % % %3% %R%D% %S%T%R%E%E%T% % % % % % % % % % % % % % % % % % % % % %N%E%W%E%L%L%,% %P%A% %1%5%4%6%6
  40 SLOW 
  60 CLS 
  80 REM %T%I%T%L%E% %P%A%G%E
 100 PRINT AT 10,0;
 120 FOR R=1 TO 12
 140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 160 NEXT R
 180 PRINT AT 11,5;"%M%U%L%T%I%P%L%Y%I%N%G% %F%R%A%C%T%I%O%N%S"
 200 PRINT AT 16,6;"%B%Y% %C%A%R%L% %E%.% %D%O%W%N%E%R"
 220 PRINT AT 20,11;"MAY 1988"
 240 PAUSE 250
 260 CLS 
 280 REM %S%E%T% %S%P%E%E%D
 300 PRINT AT 8,0;"PRESS <F> FOR FAST SPEED..."
 320 PRINT AT 10,0;"PRESS <S> FOR SLOW SPEED..."
 340 INPUT B$
 360 IF B$="F" THEN LET P=60
 380 IF B$="F" THEN FAST 
 400 IF B$<>"F" THEN LET P=6000
 420 CLS 
 440 GOSUB 3500
 460 CLS 
 480 GOSUB 3840
 500 REM %G%E%T% %N%U%M%B%E%R%S% %F%O%R% %F%R%A%C%T%I%O%N
 520 PRINT AT 0,0;"FIRST WHOLE NUMBER:";
 540 INPUT FIRST WN
 560 IF FIRST WN<1 OR FIRST WN>99 THEN GOTO 540
 580 PRINT FIRST WN
 600 PRINT 
 620 PRINT "FIRST NUMERATOR:";
 640 INPUT FIRST N
 660 IF FIRST N<1 OR FIRST N>99 THEN GOTO 640
 680 PRINT FIRST N
 700 PRINT "FIRST DENOMINATOR:";
 720 INPUT FIRST D
 740 IF FIRST D<1 OR FIRST D>99 THEN GOTO 720
 760 PRINT FIRST D
 780 PRINT 
 800 PRINT 
 820 PRINT "SECOND WHOLE NUMBER:";
 840 INPUT SECOND WN
 860 IF SECOND WN<1 OR SECOND WN>99 THEN GOTO 840
 880 PRINT SECOND WN
 900 PRINT 
 920 PRINT "SECOND NUMERATOR:";
 940 INPUT SECOND N
 960 IF SECOND N<1 OR SECOND N>99 THEN GOTO 940
 980 PRINT SECOND N
\n1000 PRINT "SECOND DENOMINATOR:";
\n1020 INPUT SECOND D
\n1040 IF SECOND D<1 OR SECOND D>99 THEN GOTO 1020
\n1060 PRINT SECOND D
\n1080 PAUSE 300
\n1100 CLS 
\n1120 REM %P%R%I%N%T% %T%O% %S%C%R%E%E%N
\n1140 PRINT AT 3,5;FIRST WN;AT 3,7;"---";AT 2,8;FIRST N;AT 4,8;FIRST D;AT 3,12;"%X"
\n1160 PRINT AT 3,15;SECOND WN;AT 3,17;"---";AT 2,18;SECOND N;AT 4,18;SECOND D
\n1180 PRINT AT 7,0;"--------------------------------"
\n1200 PRINT AT 10,5;FIRST WN;AT 10,7;"---";AT 9,8;FIRST N;AT 11,8;FIRST D;AT 10,12;"%X"
\n1220 PRINT AT 10,15;SECOND WN;AT 10,17;"---";AT 9,18;SECOND N;AT 11,18;SECOND D
\n1240 REM %M%I%X%E%D% %N%U%M% %T%O% %I%M%P%R%O%P%E%R
\n1260 PRINT AT 15,0;"CHANGE THE MIXED NUMERAL TO AN  IMPROPER FRACTION"
\n1280 GOSUB 3980
\n1300 PRINT AT 15,0;"REWRITE THE SAME DENOMINATOR"
\n1320 GOSUB 3980
\n1340 PRINT AT 10,5;"  ";AT 10,7;"---";AT 9,8;"  ";AT 11,8;FIRST D;AT 10,12;"%X"
\n1360 PRINT AT 10,15;"  ";AT 10,17;"---";AT 9,18;"  ";AT 11,18;SECOND D
\n1380 PRINT AT 15,0;"MULTIPLY THE WHOLE NUMBER TIMES THE DENOMINATOR"
\n1400 GOSUB 3980
\n1420 PRINT AT 15,0;"MULTIPLY ";FIRST WN;" TIMES ";FIRST D
\n1440 GOSUB 3980
\n1460 PRINT AT 15,0;"YOUR PRODUCT IS ";FIRST WN*FIRST D
\n1480 GOSUB 3980
\n1500 PRINT AT 13,0;"PRODUCT IS ";FIRST WN*FIRST D;AT 14,0;"NOW ADD ";FIRST N;" TO PRODUCT"
\n1520 GOSUB 3980
\n1540 PRINT AT 13,0;
\n1560 FOR A=1 TO 7
\n1580 PRINT "                                "
\n1600 NEXT A
\n1620 PRINT AT 15,0;"ADD ";FIRST WN*FIRST D;" PLUS ";FIRST N
\n1640 GOSUB 3980
\n1660 PRINT AT 15,0;"YOUR SUM IS ";FIRST WN*FIRST D+FIRST N
\n1680 GOSUB 3980
\n1700 PRINT AT 15,0;"REWRITE ";FIRST WN*FIRST D+FIRST N;" AS YOUR NEW NUMERATOR"
\n1720 PRINT AT 9,8;FIRST WN*FIRST D+FIRST N
\n1740 GOSUB 3980
\n1760 PRINT AT 15,0;"MULTIPLY THE WHOLE NUMBER TIMES THE DENOMINATOR OF FRACTION:2"
\n1780 GOSUB 3980
\n1800 PRINT AT 15,0;"MULTIPLY ";SECOND WN;" TIMES ";SECOND D
\n1820 GOSUB 3980
\n1840 PRINT AT 15,0;"YOUR PRODUCT IS ";SECOND WN*SECOND D
\n1860 GOSUB 3980
\n1880 PRINT AT 13,0;"YOUR PRODUCT IS ";SECOND WN*SECOND D;AT 14,0;"NOW ADD ";SECOND N;" TO PRODUCT"
\n1900 GOSUB 3980
\n1920 PRINT AT 13,0;
\n1940 FOR S=1 TO 7
\n1960 PRINT "                                "
\n1980 NEXT S
\n2000 PRINT AT 15,0;"ADD ";SECOND WN*SECOND D;" PLUS ";SECOND N
\n2020 GOSUB 3980
\n2040 PRINT AT 15,0;"YOUR SUM IS ";SECOND WN*SECOND D+SECOND N
\n2060 GOSUB 3980
\n2080 PRINT AT 15,0;"REWRITE ";SECOND WN*SECOND D+SECOND N;" AS YOUR NEW NUMERATOR"
\n2100 PRINT AT 9,18;SECOND WN*SECOND D+SECOND N
\n2120 GOSUB 3980
\n2140 PRINT AT 10,21;"= ----"
\n2160 PRINT AT 15,0;"MULTIPLY ";FIRST WN*FIRST D+FIRST N;" TIMES ";SECOND WN*SECOND D+SECOND N
\n2180 GOSUB 3980
\n2200 LET A=FIRST WN*FIRST D+FIRST N
\n2220 LET B=SECOND WN*SECOND D+SECOND N
\n2240 PRINT AT 15,0;"YOUR PRODUCT IS ";A*B
\n2260 GOSUB 3980
\n2280 PRINT AT 15,0;"WRITE ";A*B;" AS YOUR NUMERATOR"
\n2300 PRINT AT 9,24;A*B
\n2320 GOSUB 3980
\n2340 LET C=FIRST D*SECOND D
\n2360 PRINT AT 15,0;"MULTIPLY ";FIRST D;" TIMES ";SECOND D
\n2380 GOSUB 3980
\n2400 PRINT AT 15,0;"YOUR PRODUCT IS ";C
\n2420 GOSUB 3980
\n2440 PRINT AT 15,0;"WRITE ";C;" AS YOUR DENOMINATOR"
\n2460 PRINT AT 11,24;C
\n2480 GOSUB 3980
\n2500 LET DENOMINATOR=C
\n2520 LET NUMERATOR=A*B
\n2540 REM %L%O%W%E%S%T% %T%E%R%M%S
\n2560 PRINT AT 15,0;"NOW YOU HAVE TO PUT THE FRACTIONIN LOWEST TERMS."
\n2580 GOSUB 3980
\n2600 CLS 
\n2620 PRINT AT 9,1;NUMERATOR
\n2640 PRINT AT 10,0;"-----"
\n2660 PRINT AT 11,1;DENOMINATOR
\n2680 PRINT AT 10,6;"=   ----"
\n2700 PRINT AT 15,0;"COMPUTING LOWEST TERMS...WAIT."
\n2720 FOR O=20 TO 1 STEP -1
\n2740 IF O<10 THEN PRINT AT 18,16;"  "
\n2760 PRINT AT 17,0;"I AM DIVIDING NUMERATOR AND THE DENOMINATOR BY: ";O
\n2780 LET I=NUMERATOR/O
\n2800 LET J=DENOMINATOR/O
\n2820 IF INT I=I AND INT J=J THEN GOTO 2860
\n2840 NEXT O
\n2860 LET NUMERATOR=I
\n2880 LET DENOMINATOR=J
\n2900 PRINT AT 9,10;NUMERATOR;AT 11,10;DENOMINATOR
\n2920 GOSUB 3980
\n2940 REM %I%M%P%R%O%P%E%R% %T%O% %M%I%X%E%D
\n2960 LET WHOLE NUMBER=NUMERATOR/DENOMINATOR
\n2980 PRINT AT 15,0;"DIVIDE THE NUMERATOR ";NUMERATOR
\n3000 PRINT AT 16,0;"BY THE DENOMINATOR ";DENOMINATOR
\n3020 GOSUB 3980
\n3040 LET WHOLE NUMBER=INT WHOLE NUMBER
\n3060 LET NEW NUMERATOR=(NUMERATOR/DENOMINATOR)-INT (NUMERATOR/DENOMINATOR)
\n3080 LET NEW NUMERATOR=NEW NUMERATOR*DENOMINATOR
\n3100 LET NEW NUMERATOR=INT (NEW NUMERATOR+.5)
\n3120 CLS 
\n3140 REM %L%A%S%T% %S%C%R%E%E%N
\n3160 PRINT AT 9,1;NUMERATOR
\n3180 PRINT AT 10,0;"-----"
\n3200 PRINT AT 11,1;DENOMINATOR
\n3220 PRINT AT 10,6;"=      ----"
\n3240 PRINT AT 10,10;WHOLE NUMBER
\n3260 PRINT AT 9,14;NEW NUMERATOR
\n3280 PRINT AT 11,14;DENOMINATOR
\n3300 GOSUB 4160
\n3320 CLS 
\n3340 PRINT AT 5,0;"YOU HAVE COMPLETED YOUR PROBLEM"
\n3360 PRINT AT 9,0;"PLEASE GIVE SOMEONE ELSE A TURN"
\n3380 PRINT AT 13,0;"ENTER Y TO RUN THE PROGRAM AGAIN"
\n3400 INPUT A$
\n3420 IF A$="Y" THEN GOTO 40
\n3440 IF A$<>"Y" THEN GOTO 3460
\n3460 STOP 
\n3480 REM %D%I%R%E%C%T%I%O%N%S
\n3500 PRINT "DIRECTIONS:"
\n3520 PRINT 
\n3540 PRINT "FIRST ENTER THE NUMBERS ASKED.  DO NOT ENTER ZERO."
\n3560 PRINT 
\n3580 PRINT "SECOND READ THE STEPS. EVERY    STEP IS EXPLAINED."
\n3600 PRINT 
\n3620 PRINT "NEXT FOLLOW THE DIRECTIONS ON   THE BOTTOM OF THE SCREEN."
\n3640 PRINT 
\n3660 PRINT "AT THE END I WILL PRINT THE     ANSWER."
\n3680 PRINT 
\n3700 PRINT 
\n3720 PRINT "IT IS TIME TO START..."
\n3740 PRINT AT 21,0;"%P%R%E%S%S% %A% %K%E%Y% %T%O% %S%T%A%R%T%.%.%."
\n3760 PAUSE 6000
\n3780 CLS 
\n3800 RETURN 
\n3820 STOP 
\n3840 PRINT AT 10,0;"NUMBERS BETWEEN 1 AND 99 ONLY."
\n3860 PAUSE 300
\n3880 CLS 
\n3900 PRINT AT 21,0;"                                "
\n3920 RETURN 
\n3940 STOP 
\n3960 REM %E%R%A%S%E% %S%C%R%E%E%N% %+% %P%A%U%S%E
\n3980 PRINT AT 21,0;"%P%R%E%S%S% %A%N%Y% %K%E%Y% %T%O% %C%O%N%T%I%N%U%E%.%.%."
\n4000 PAUSE P
\n4020 PRINT AT 15,0;
\n4040 FOR X=1 TO 7
\n4060 PRINT "                                "
\n4080 NEXT X
\n4100 RETURN 
\n4120 STOP 
\n4140 REM %L%A%S%T% %S%C%R%E%E%N
\n4160 PRINT AT 1,1;FIRST WN;" ---"
\n4180 PRINT AT 0,4;FIRST N
\n4200 PRINT AT 2,4;FIRST D
\n4220 PRINT AT 1,7;"%X"
\n4240 PRINT AT 1,9;SECOND WN;" ---"
\n4260 PRINT AT 0,12;SECOND N
\n4280 PRINT AT 2,12;SECOND D
\n4300 PRINT AT 1,18;"="
\n4320 PRINT AT 1,25;"----"
\n4340 PRINT AT 1,22;WHOLE NUMBER
\n4360 PRINT AT 0,26;NEW NUMERATOR
\n4380 PRINT AT 2,26;DENOMINATOR
\n4400 PRINT AT 21,0;"%P%R%E%S%S% %A%N%Y% %K%E%Y% %T%O% %C%O%N%T%I%N%U%E%.%.%."
\n4420 PAUSE 6000
\n4440 RETURN 
\n4460 SAVE "FRACTION%S"
\n4470 RUN 

   1 REM %A%L%E%X% %S%W%E%I%T%Z%E%R                   %R%.%D%.% %1% %B%O%X% %2%0%7                  %F%A%Y%E%T%T%E% %C%I%T%Y%,% %P%A% %1%5%4%3%8          %4%1%2%-%3%2%6%-%4%9%3%5
  10 RAND 
  20 REM %L%O%O%K% %F%O%R% %3% %R%E%M%S% %I%N% %T%H%E% %L%O%W%E%S%T% %T%E%R%M%S% %S%E%C%T%I%O%N%.%.%.
  30 CLS 
  40 SLOW 
  50 PRINT AT 1,0;"%S%E%L%E%C%T% %(%1%)% %O%F% %T%H%E% %F%O%L%L%O%W%I%N%G"
  60 PRINT ,,,,,,,,"%(%1%)% %L%O%W%E%S%T% %T%E%R%M%S"
  70 PRINT ,,"%(%2%)% %M%I%X%E%D% %N%U%M%E%R%A%L% %T%O% %I%M%P%R%O%P%E%R"
  80 PRINT ,,"%(%3%)% %I%M%P%R%O%P%E%R% %T%O% %M%I%X%E%D% %N%U%M%E%R%A%L"
  90 PRINT AT 18,12;"BY MR. SWEITZER";AT 20,12;"MARCH 23-24, 1987"
 100 INPUT NUMBER
 110 IF NUMBER=1 THEN RUN 150
 120 IF NUMBER=2 THEN RUN 1070
 130 IF NUMBER=3 THEN RUN 1910
 140 IF NUMBER<1 OR NUMBER>3 THEN GOTO 100
 150 CLS 
 160 PRINT AT 10,0;"...LOWEST TERMS..."
 170 PAUSE 100
 180 LET Q=0
 190 LET RI=0
 200 LET WR=0
 210 CLS 
 220 PRINT AT 8,0;"HOW MANY QUESTIONS PLEASE?: ";
 230 INPUT P
 240 PRINT P
 250 PAUSE 100
 260 CLS 
 270 PRINT AT 8,0;"DO YOU WANT THE COMPUTER TO",,,"GIVE YOU THE NUMERATOR AND",,,"THE DENOMINATOR (Y/N)? ";
 280 INPUT R$
 290 PRINT R$
 300 PAUSE 100
 310 IF R$="N" THEN GOTO 540
 320 CLS 
 330 PRINT AT 9,0;"LARGEST NUMERATOR TO USE: ";
 340 INPUT N
 350 PRINT N
 360 PRINT AT 11,0;"LARGEST DENOMINATOR TO USE: ";
 370 INPUT D
 380 PRINT D
 390 PAUSE 100
 400 CLS 
 410 PRINT AT 10,0;"T   H   I   N   K   I   N   G"
 420 LET NUM=INT (RND*N)+1
 430 LET A=NUM/2
 440 LET B=INT A
 450 REM %R%E%M%O%V%E% %R%E%M% %I%N% %N%E%X%T% %L%I%N%E% %I%F% %Y%O%U% %A%L%W%A%Y%S% %W%A%N%T% %A% %F%R%A%C%T%I%O%N% %T%H%A%T% %M%U%S%T% %B%E% %R%E%D%U%C%E%D
 460 REM IF A<>B THEN GOTO 0200
 470 LET DEN=INT (RND*D)+1
 480 LET A=DEN/2
 490 LET B=INT A
 500 REM %R%E%M%O%V%E% %R%E%M% %I%N% %N%E%X%T% %L%I%N%E% %I%F% %Y%O%U% %A%L%W%A%Y%S% %W%A%N%T% %A% %F%R%A%C%T%I%O%N% %T%H%A%T% %M%U%S%T% %B%E% %R%E%D%U%C%E%D
 510 REM IF A<>B THEN GOTO 0240
 520 REM %R%E%M%O%V%E% %R%E%M% %I%N% %N%E%X%T% %L%I%N%E% %I%F% %Y%O%U% %W%A%N%T% %O%N%L%Y% %P%R%O%P%E%R% %F%R%A%C%T%I%O%N%S
 530 IF DEN<NUM THEN GOTO 420
 540 IF R$="N" THEN CLS 
 550 IF R$="N" THEN PRINT AT 10,0;"KEEP NUMERATORS AND DENOMINATORSLESS THAN 1,000"
 560 IF R$="N" THEN PAUSE 100
 570 IF R$="N" THEN CLS 
 580 IF R$="N" THEN PRINT AT 10,0;"PLEASE ENTER NUMERATOR: ";
 590 IF R$="N" THEN INPUT NUM
 600 IF R$="N" THEN PRINT NUM
 610 IF R$="N" THEN CLS 
 620 IF R$="N" THEN PRINT AT 10,0;"PLEASE ENTER DENOMINATOR: ";
 630 IF R$="N" THEN INPUT DEN
 640 IF R$="N" THEN PRINT DEN
 650 CLS 
 660 PRINT "PLACE FRACTION IN LOWEST TERMS."
 670 PRINT 
 680 PRINT "%P%R%O%B%L%E%M..%Y%O%U%R% %A%N%S%W%E%R..%M%Y% %A%N%S%W%E%R"
 690 PRINT AT 4,1;NUM;AT 5,0;"\''\''\''\''";AT 6,1;DEN
 700 FAST 
 710 FOR T=1 TO 4
 720 FOR X=20 TO 1 STEP -1
 730 LET A=NUM/X
 740 LET B=INT A
 750 IF A<>B THEN NEXT X
 760 LET C=DEN/X
 770 LET E=INT C
 780 IF C<>E THEN NEXT X
 790 LET NUM=A
 800 LET DEN=C
 810 NEXT T
 820 SLOW 
 830 PRINT ,,,,"ENTER NUMERATOR: ";
 840 INPUT HNUM
 850 PRINT HNUM
 860 PRINT ,,"ENTER DENOMINATOR: ";
 870 INPUT HDEN
 880 PRINT HDEN
 890 PRINT AT 4,12;HNUM;AT 5,11;"\''\''\''\''";AT 6,12;HDEN
 900 PAUSE 60
 910 PRINT AT 4,25;A;AT 5,24;"\''\''\''\''";AT 6,25;C
 920 IF HNUM=NUM AND HDEN=DEN THEN PRINT AT 15,0;"%Y%O%U% %A%G%R%E%E% %W%I%T%H% %M%E%,% %Y%O%U% %A%R%E% %R%I%G%H%T"
 930 IF HNUM<>NUM OR HDEN<>DEN THEN PRINT AT 15,0;"%Y%O%U% %A%R%E% %V%E%R%Y% %W%R%O%N%G%,% %T%R%Y% %H%A%R%D%E%R"
 940 IF HNUM=NUM AND HDEN=DEN THEN LET RI=RI+1
 950 IF HNUM<>NUM OR HDEN<>DEN THEN LET WR=WR+1
 960 LET Q=Q+1
 970 PRINT ,,"NUMBER PROBLEMS COMPLETED: ";Q
 980 PRINT "NUMBER CORRECT: ";RI
 990 PRINT "NUMBER WRONG: ";WR
\n1000 IF Q<P THEN PRINT AT 21,0;"PRESS ANY KEY TO CONTINUE..."
\n1010 IF Q<P THEN PAUSE 4E4
\n1020 IF Q<P AND R$="Y" THEN GOTO 400
\n1030 IF Q<P AND R$="N" THEN GOTO 540
\n1040 IF Q=P THEN PRINT AT 21,0;"THIS ROUND OVER, PRESS A KEY..."
\n1050 PAUSE 4E4
\n1060 RUN 
\n1070 REM % % % % % % % % % % % % % % % % % % % % % % % 
\n1080 LET RI=0
\n1090 LET WR=0
\n1100 REM MIXED NUMERAL TO IMPROPER
\n1110 CLS 
\n1120 PRINT AT 10,0;"...MIXED NUMERAL TO IMPROPER       FRACTION..."
\n1130 PAUSE 100
\n1140 CLS 
\n1150 PRINT AT 10,0;"HOW MANY QUESTIONS PLEASE?: ";
\n1160 INPUT P
\n1170 PRINT P
\n1180 PAUSE 100
\n1190 LET Q=0
\n1200 CLS 
\n1210 PRINT AT 10,0;"DO YOU WANT THE COMPUTER TO",,,"SELECT THE QUESTIONS (Y/N)? ";
\n1220 INPUT R$
\n1230 PRINT R$
\n1240 PAUSE 100
\n1250 IF R$="Y" THEN CLS 
\n1260 IF R$="Y" THEN PRINT AT 8,0;"LARGEST WHOLE NUMBER TO USE: ";
\n1270 IF R$="Y" THEN INPUT W
\n1280 IF R$="Y" THEN PRINT W
\n1290 IF R$="Y" THEN PRINT AT 10,0;"LARGEST NUMERATOR TO USE: ";
\n1300 IF R$="Y" THEN INPUT N
\n1310 IF R$="Y" THEN PRINT N
\n1320 IF R$="Y" THEN PRINT AT 12,0;"LARGEST DENOMINATOR TO USE: ";
\n1330 IF R$="Y" THEN INPUT D
\n1340 IF R$="Y" THEN PRINT D
\n1350 PAUSE 100
\n1360 LET A=0
\n1370 LET B=0
\n1380 LET DEN=0
\n1390 LET NUM=0
\n1400 CLS 
\n1410 IF R$="Y" THEN PRINT AT 10,0;"T   H   I   N   K   I   N   G"
\n1420 IF R$="Y" THEN LET WHOLE=INT (RND*W)+1
\n1430 IF R$="Y" THEN LET NUM=INT (RND*N)+1
\n1440 IF R$="Y" THEN LET A=NUM/2
\n1450 IF R$="Y" THEN LET B=INT A
\n1460 IF R$="Y" AND A<>B THEN GOTO 1430
\n1470 IF R$="Y" THEN LET DEN=INT (RND*D)+1
\n1480 IF R$="Y" THEN LET A=DEN/2
\n1490 IF R$="Y" THEN LET B=INT A
\n1500 IF R$="Y" AND A<>B THEN GOTO 1470
\n1510 IF R$="Y" AND DEN<NUM THEN GOTO 1410
\n1520 IF R$="N" THEN PRINT AT 10,0;"ENTER WHOLE NUMBER: ";
\n1530 IF R$="N" THEN INPUT WHOLE
\n1540 IF R$="N" THEN PRINT WHOLE
\n1550 IF R$="N" THEN PRINT ,,"ENTER NUMERATOR: ";
\n1560 IF R$="N" THEN INPUT NUM
\n1570 IF R$="N" THEN PRINT NUM
\n1580 IF R$="N" THEN PRINT ,,"ENTER DENOMINATOR: ";
\n1590 IF R$="N" THEN INPUT DEN
\n1600 IF R$="N" THEN PRINT DEN
\n1610 IF R$="N" THEN PAUSE 100
\n1620 CLS 
\n1630 PRINT AT 0,0;"%P%R%O%B%L%E%M%.%.%Y%O%U%R% %A%N%S%W%E%R%.%.%M%Y% %A%N%S%W%E%R"
\n1640 PRINT AT 5,0;WHOLE
\n1650 PRINT AT 4,3;NUM
\n1660 PRINT AT 5,2;"\''\''\''\''"
\n1670 PRINT AT 6,3;DEN
\n1680 PRINT AT 10,0;"ENTER NUMERATOR: ";
\n1690 INPUT HNUM
\n1700 PRINT HNUM
\n1710 PRINT ,,"ENTER DENOMINATOR: ";
\n1720 INPUT HDEN
\n1730 PRINT HDEN
\n1740 PRINT AT 4,13;HNUM;AT 5,12;"\''\''\''\''";AT 6,13;HDEN
\n1750 LET CNUM=(WHOLE*DEN)+NUM
\n1760 PRINT AT 4,25;CNUM;AT 5,24;"\''\''\''\''";AT 6,25;DEN
\n1770 IF CNUM=HNUM AND DEN=HDEN THEN PRINT AT 14,0;"%Y%O%U% %A%G%R%E%E% %W%I%T%H% %M%E%,% %Y%O%U% %A%R%E% %R%I%G%H%T"
\n1780 IF CNUM=HNUM AND DEN=HDEN THEN LET RI=RI+1
\n1790 IF CNUM<>HNUM OR DEN<>HDEN THEN LET WR=WR+1
\n1800 IF CNUM<>HNUM OR DEN<>HDEN THEN PRINT AT 14,0;"%Y%O%U% %A%R%E% %W%R%O%N%G%,% %T% %H% %I% %N% %K%.%.%."
\n1810 LET Q=Q+1
\n1820 PRINT AT 16,0;"NUMBER QUESTIONS COMPLETED: ";Q
\n1830 PRINT "NUMBER CORRECT: ";RI
\n1840 PRINT "NUMBER WRONG: ";WR
\n1850 IF Q<P THEN PRINT AT 21,0;"PRESS ANY KEY TO CONTINUE..."
\n1860 IF Q<P THEN PAUSE 4E4
\n1870 IF Q<P THEN GOTO 1400
\n1880 IF Q=P THEN PRINT AT 21,0;"END OF QUESTIONS, PRESS ANY KEY"
\n1890 PAUSE 4E4
\n1900 RUN 
\n1910 REM % % % % % % % % % % % % % % % % % % % % % % % 
\n1920 LET Q=0
\n1930 LET WR=0
\n1940 LET RI=0
\n1950 REM IMPROPER TO MIXED
\n1960 LET NUM=0
\n1970 LET DEN=0
\n1980 CLS 
\n1990 PRINT AT 10,0;"...IMPROPER FRACTION TO MIXED      NUMERAL..."
\n2000 PAUSE 100
\n2010 CLS 
\n2020 PRINT AT 10,0;"HOW MANY QUESTIONS PLEASE?: ";
\n2030 INPUT P
\n2040 PRINT P
\n2050 PAUSE 100
\n2060 CLS 
\n2070 PRINT AT 10,0;"DO YOU WANT THE COMPUTER TO",,,"GIVE YOU THE QUESTIONS (Y/N)? ";
\n2080 INPUT R$
\n2090 PRINT R$
\n2100 PAUSE 100
\n2110 CLS 
\n2120 IF R$="Y" THEN PRINT AT 9,0;"LARGEST NUMERATOR TO USE: ";
\n2130 IF R$="Y" THEN INPUT N
\n2140 IF R$="Y" THEN PRINT N
\n2150 IF R$="Y" THEN PRINT AT 11,0;"LARGEST DENOMINATOR TO USE: ";
\n2160 IF R$="Y" THEN INPUT D
\n2170 IF R$="Y" THEN PRINT D
\n2180 IF R$="Y" THEN PAUSE 100
\n2190 CLS 
\n2200 IF R$="Y" THEN LET NUM=INT (RND*N)+1
\n2210 IF R$="Y" THEN LET DEN=INT (RND*D)+1
\n2220 IF R$="Y" AND DEN>NUM THEN GOTO 2200
\n2230 IF R$="N" THEN PRINT AT 2,0;"REMEMBER, NUMERATOR MUST BE",,,"LARGER THAN DENOMINATOR."
\n2240 IF R$="N" THEN PAUSE 120
\n2250 IF R$="N" THEN PRINT AT 9,0;"PLEASE ENTER NUMERATOR: ";
\n2260 IF R$="N" THEN INPUT NUM
\n2270 IF R$="N" THEN PRINT NUM
\n2280 IF R$="N" THEN PRINT AT 11,0;"PLEASE ENTER DENOMINATOR: ";
\n2290 IF R$="N" THEN INPUT DEN
\n2300 IF R$="N" THEN PRINT DEN
\n2310 IF R$="N" THEN PAUSE 100
\n2320 CLS 
\n2330 IF R$="N" AND NUM<=DEN THEN PRINT AT 18,0;"%F%O%L%L%O%W% %D%I%R%E%C%T%I%O%N%S% %P%L%E%A%S%E%.%.%."
\n2340 IF R$="N" AND NUM<=DEN THEN PAUSE 120
\n2350 IF R$="N" AND NUM<=DEN THEN GOTO 2230
\n2360 PRINT "%P%R%O%B%L%E%M%.%.%Y%O%U%R% %A%N%S%W%E%R%.%.%M%Y% %A%N%S%W%E%R"
\n2370 PRINT AT 3,2;NUM;AT 4,1;"\''\''\''";AT 5,2;DEN
\n2380 PRINT AT 10,0;"ENTER WHOLE NUMBER: ";
\n2390 INPUT HWHOLE
\n2400 PRINT HWHOLE
\n2410 PRINT ,,"ENTER NUMERATOR: ";
\n2420 INPUT HNUM
\n2430 PRINT HNUM
\n2440 PRINT ,,"ENTER DENOMINATOR: ";
\n2450 INPUT HDEN
\n2460 PRINT HDEN
\n2470 PRINT AT 4,11;HWHOLE;AT 3,15;HNUM;AT 4,14;"\''\''\''";AT 5,15;HDEN
\n2480 LET CWHOLE=INT (NUM/DEN)
\n2490 LET QUOT=NUM/DEN
\n2500 LET REM=QUOT-INT (NUM/DEN)
\n2510 LET CNUM=INT (REM*DEN+.5)
\n2520 PRINT AT 4,25;CWHOLE;AT 3,29;CNUM;AT 4,28;"\''\''\''";AT 5,29;DEN
\n2530 LET Q=Q+1
\n2540 PRINT AT 16,0;"NUMBER QUESTIONS COMPLETED: ";Q
\n2550 IF CWHOLE=HWHOLE AND CNUM=HNUM AND DEN=HDEN THEN LET RI=RI+1
\n2560 IF CWHOLE<>HWHOLE OR CNUM<>HNUM OR DEN<>HDEN THEN LET WR=WR+1
\n2570 PRINT "NUMBER CORRECT: ";RI
\n2580 PRINT "NUMBER WRONG: ";WR
\n2590 IF Q<P THEN PRINT AT 21,0;"PRESS ANY KEY TO CONTINUE..."
\n2600 IF Q<P THEN PAUSE 4E4
\n2610 IF Q<P THEN GOTO 2190
\n2620 IF Q=P THEN PRINT AT 21,0;"THIS ROUND OVER, PRESS A KEY..."
\n2630 IF Q=P THEN PAUSE 4E4
\n2640 RUN 
\n2650 SAVE "FRACTION%S"
\n2651 SLOW 
\n2652 CLS 
\n2660 RUN 
\n8999 REM %D%E%L%E%T%E% %B%E%L%O%W% %I%F% %Y%O%U% %D%O% %N%O%T% %H%A%V%E% %F%A%S%T%L%O%A%D%.
\n9000 DIM T$(24)
\n9010 LET T$="-"
\n9020 RAND USR 32685
\n9030 LET T$="%P"
\n9040 RAND USR 32685
\n9050 RUN 

  10 REM %M%R%.% %S%W%E%I%T%Z%E%R% %A%P%R%I%L%/%M%A%Y% %1%9%8%8
  20 LET R=0
  30 REM   %G%O%T%O% %3%0% %T%O% %R%E%S%T%A%R%T% %T%O% %S%A%V%E% %V%A%L%U%E% %I%N% %M%E%M%O%R%Y
  40 LET K=1
  50 FAST 
  60 CLS 
  70 LET A=0
  80 LET S=0
  90 LET D=0
 100 LET M=0
 110 LET P=1
 120 PRINT "*THE TIMEX COMPUTER CALCULATOR*"
 130 FOR X=1 TO 15
 140 PRINT AT X,5;"\: ";AT X,25;"\ :"
 150 NEXT X
 160 FOR X=5 TO 25
 170 PRINT AT 1,X;"\.."
 180 PRINT AT 15,X;"\''"
 190 NEXT X
 200 PRINT AT 7,8;"7";AT 7,11;"8";AT 7,14;"9";AT 7,17;"%DIVIDE"
 210 PRINT AT 9,8;"4";AT 9,11;"5";AT 9,14;"6";AT 9,17;"%MULTIPLY"
 220 PRINT AT 11,8;"1";AT 11,11;"2";AT 11,14;"3";AT 11,17;"%SUBTRACT"
 230 PRINT AT 13,8;"0";AT 13,11;"%EQUAL";AT 13,17;"%ADD"
 240 PRINT AT 5,8;"%CLEAR";AT 5,16;"<%O>FF"
 250 FOR X=8 TO 18
 260 PRINT AT 2,X;"-";AT 4,X;"-"
 270 NEXT X
 280 SLOW 
 290 FOR X=1 TO 2
 300 PRINT AT 2,20;"T";AT 3,21;"I";AT 4,22;"M";AT 3,23;"E";AT 2,24;"X"
 310 PRINT AT 2,20;"%T";AT 3,21;"%I";AT 4,22;"%M";AT 3,23;"%E";AT 2,24;"%X"
 320 NEXT X
 330 REM INPUT AREA
 340 DIM I(10)
 350 DIM Q$(10)
 360 PRINT AT 16,0;"ENTER NUMBER, ONE DIGIT AT A    TIME, THEN OPERATION AFTER EACH NUMBER %I%N%C%L%U%D%I%N%G THE LAST ENTRY THEN PRESS EQUAL FOR ANSWER."
 370 PRINT "ENTER <%E> AND THEN <%V> TO SHOW  CURRENT VALUE OF MEMORY."
 380 LET I$=INKEY$
 390 IF I$="O" THEN GOTO 2000
 400 IF I$="C" THEN GOTO 590
 410 IF I$="A" THEN GOSUB 930
 420 IF I$="S" THEN GOSUB 1080
 430 IF I$="M" THEN GOSUB 1240
 440 IF I$="D" THEN GOSUB 1400
 450 IF I$="E" THEN GOSUB 1580
 460 IF I$="9" THEN LET I=9
 470 IF I$="8" THEN LET I=8
 480 IF I$="7" THEN LET I=7
 490 IF I$="6" THEN LET I=6
 500 IF I$="5" THEN LET I=5
 510 IF I$="4" THEN LET I=4
 520 IF I$="3" THEN LET I=3
 530 IF I$="2" THEN LET I=2
 540 IF I$="1" THEN LET I=1
 550 IF I$="0" THEN LET I=0
 560 IF I$<"0" OR I$>"9" THEN GOTO 380
 570 IF I=7 THEN PRINT AT 7,8;"%7"
 580 IF I=7 THEN PRINT AT 7,8;"7"
 590 IF I$="C" THEN PRINT AT 5,8;"%C%L%E%A%R"
 600 IF I$="C" THEN PRINT AT 5,8;"CLEAR"
 610 IF I$="C" THEN GOTO 800
 620 IF I=8 THEN PRINT AT 7,11;"%8"
 630 IF I=8 THEN PRINT AT 7,11;"8"
 640 IF I=9 THEN PRINT AT 7,14;"%9"
 650 IF I=9 THEN PRINT AT 7,14;"9"
 660 IF I=6 THEN PRINT AT 9,14;"%6"
 670 IF I=6 THEN PRINT AT 9,14;"6"
 680 IF I=5 THEN PRINT AT 9,11;"%5"
 690 IF I=5 THEN PRINT AT 9,11;"5"
 700 IF I=4 THEN PRINT AT 9,8;"%4"
 710 IF I=4 THEN PRINT AT 9,8;"4"
 720 IF I=3 THEN PRINT AT 11,14;"%3"
 730 IF I=3 THEN PRINT AT 11,14;"3"
 740 IF I=2 THEN PRINT AT 11,11;"%2"
 750 IF I=2 THEN PRINT AT 11,11;"2"
 760 IF I=1 THEN PRINT AT 11,8;"%1"
 770 IF I=1 THEN PRINT AT 11,8;"1"
 780 IF I=0 THEN PRINT AT 13,8;"%0"
 790 IF I=0 THEN PRINT AT 13,8;"0"
 800 IF I$="C" THEN GOTO 30
 810 PRINT AT 3,8+P;I;
 820 LET I(P)=I
 830 FAST 
 840 FOR N=1 TO P
 850 LET Q$(N)=STR$ I(N)
 860 NEXT N
 870 LET P=P+1
 880 IF P=10 THEN PRINT AT 2,7;"  %O%V%E%R%F%L%O%W  "
 890 IF P=10 THEN PAUSE 250
 900 IF P=10 THEN GOTO 30
 910 SLOW 
 920 GOTO 380
 930 REM %A%D%D
 940 LET O$="A"
 950 FOR F=1 TO 6
 960 PRINT AT 13,17;"+       "
 970 PRINT AT 13,17;"%+% % % % % % % "
 980 NEXT F
 990 PRINT AT 13,17;"%ADD     "
\n1000 LET A=A+VAL Q$
\n1010 PRINT AT 3,9;"          "
\n1020 LET P=1
\n1030 LET S=9999999999
\n1040 LET D=9999999999
\n1050 LET M=9999999999
\n1060 LET Q$=""
\n1070 RETURN 
\n1080 REM %S%U%B
\n1090 FOR F=1 TO 6
\n1100 PRINT AT 11,17;"-       "
\n1110 PRINT AT 11,17;"%-% % % % % % % "
\n1120 NEXT F
\n1130 PRINT AT 11,17;"%SUBTRACT"
\n1140 IF K=1 THEN LET S1=VAL Q$
\n1150 IF K>1 THEN LET S=S1-VAL Q$
\n1160 PRINT AT 3,9;"          "
\n1170 LET P=1
\n1180 LET K=K+1
\n1190 LET A=9999999999
\n1200 LET D=9999999999
\n1210 LET M=9999999999
\n1220 LET Q$=""
\n1230 RETURN 
\n1240 REM %M%U%L%T
\n1250 FOR F=1 TO 6
\n1260 PRINT AT 9,17;"X       "
\n1270 PRINT AT 9,17;"%X% % % % % % % "
\n1280 NEXT F
\n1290 IF K=1 THEN LET M1=VAL Q$
\n1300 IF K>1 THEN LET M=M1*VAL Q$
\n1310 LET K=K+1
\n1320 PRINT AT 9,17;"%MULTIPLY"
\n1330 PRINT AT 3,9;"          "
\n1340 LET P=1
\n1350 LET A=9999999999
\n1360 LET S=9999999999
\n1370 LET D=9999999999
\n1380 LET Q$=""
\n1390 RETURN 
\n1400 REM %D%I%V
\n1410 FOR F=1 TO 6
\n1420 PRINT AT 7,17;"/       "
\n1430 PRINT AT 7,17;"%/% % % % % % % "
\n1440 NEXT F
\n1450 IF K=1 THEN LET D1=VAL Q$
\n1460 IF K>1 THEN LET D=D1/VAL Q$
\n1470 IF K>1 THEN LET D=INT (100*D+.05)/100
\n1480 LET K=K+1
\n1490 PRINT AT 7,17;"%DIVIDE  "
\n1500 PRINT AT 3,9;"          "
\n1510 LET P=1
\n1520 LET A=9999999999
\n1530 LET S=9999999999
\n1540 LET M=9999999999
\n1550 LET Q$=""
\n1560 RETURN 
\n1570 STOP 
\n1580 REM %E%Q%U%A%L
\n1590 FOR F=1 TO 8
\n1600 PRINT AT 13,11;"%=% % % % "
\n1610 PRINT AT 13,11;"=    "
\n1620 NEXT F
\n1630 PRINT AT 13,11;"%EQUAL"
\n1640 IF A<9999999999 THEN PRINT AT 3,9;A
\n1650 IF M<9999999999 THEN PRINT AT 3,9;M
\n1660 IF D<9999999999 THEN PRINT AT 3,9;D
\n1670 IF S<9999999999 THEN PRINT AT 3,9;S
\n1680 PRINT AT 16,0;"M=ADD TO MEMORY                 L=SUBTRACT FROM MEMORY          C=CONTINUE OPERATION            R=RUN AGAIN (NOTE:ERASES MEMORY)"
\n1690 PRINT "V=CURRENT VALUE OF MEMORY       P/S=<P> PRINT MEMORY/<S> SCREEN"
\n1700 IF INKEY$="" THEN GOTO 1700
\n1710 IF INKEY$="V" THEN PRINT AT 3,6;"%M->";R
\n1720 IF INKEY$="R" THEN RUN 
\n1730 IF INKEY$="C" THEN GOTO 30
\n1740 IF INKEY$="M" THEN GOTO 1790
\n1750 IF INKEY$="L" THEN GOTO 1890
\n1760 IF INKEY$="P" THEN LPRINT ,,;"->:";R
\n1770 IF INKEY$="S" THEN COPY 
\n1780 GOTO 1680
\n1790 REM %M%E%M%O%R%Y ADD
\n1800 IF A<9999999999 THEN LET R=R+A
\n1810 IF S<9999999999 THEN LET R=R+S
\n1820 IF D<9999999999 THEN LET R=R+D
\n1830 IF M<9999999999 THEN LET R=R+M
\n1840 PRINT AT 3,6;"             "
\n1850 PRINT AT 3,6;"%M->";R
\n1860 GOTO 1680
\n1870 PRINT AT 3,6;"             "
\n1880 GOTO 30
\n1890 REM %M%E%M%O%R%Y SUBTRACT
\n1900 IF A<>9999999999 THEN LET R=R-A
\n1910 IF S<>9999999999 THEN LET R=R-S
\n1920 IF M<>9999999999 THEN LET R=R-M
\n1930 IF D<>9999999999 THEN LET R=R-D
\n1940 PRINT AT 3,6;"             "
\n1950 PRINT AT 3,6;"%M->";R
\n1960 GOTO 1680
\n1970 PRINT AT 3,6;"             "
\n1980 GOTO 30
\n1990 STOP 
\n2000 CLS 
\n2010 PRINT AT 8,0;"DO YOU WANT TO QUIT (Y/N)?"
\n2020 IF INKEY$="" THEN GOTO 2020
\n2030 IF INKEY$<>"Y" THEN GOTO 30
\n2040 IF INKEY$="Y" THEN PRINT ,,,,"IF STORING OVER ONE MONTH PLEASE",,"REMOVE BATTERIES..."
\n2050 STOP 
\n2060 SAVE "TIMEX CALCULATOR%."
\n2070 RUN 

   1 GOTO 2060
  10 REM %T%Y%P%E%D% %N%O%V%E%M%B%E%R% %3%/%4%-%1%9%8%4
  20 CLS 
  30 RAND 
  40 SLOW 
  50 DIM I$(10,10)
  60 LET RI=0
  70 LET WR=0
  80 LET K=0
  90 REM %D%I%R%E%C%T%I%O%N%S% %S%E%C%T%I%O%N
 100 PRINT AT 10,7;"%W%O%R%D% %P%R%O%B%L%E%M%S"
 110 PAUSE 200
 120 PRINT AT 19,0;"PLEASE ENTER YOUR NAME",,,"(LESS THAN 8 LETTERS PLEASE)"
 130 INPUT N$
 140 IF LEN N$>7 THEN GOTO 120
 150 CLS 
 160 PRINT AT 1,0;"%D%I%R%E%C%T%I%O%N%S: SOLVE EACH OF THE ",,,"FOLLOWING QUESTIONS.  READ VERY",,,"CAREFULLY :";N$
 170 PRINT ,,"REMEMBER TO USE PENCIL AND ",,,"PAPER TO SOLVE THESE PROBLEMS."
 180 PRINT ,,"YOU DON\ 'T HAVE TO ENTER THE WORD",,"WITH YOUR ANSWER BECAUSE I WILL ",,"PROVIDE THE CORRECT WORD."
 190 PRINT ,,"ONLY ENTER NUMBERS FOR ANSWERS."
 200 PRINT AT 21,2;"PRESS ANY KEY TO CONTINUE"
 210 PAUSE 1000
 220 CLS 
 230 PRINT AT 10,0;"HOW MANY PROBLEMS ?",,,"(2 TO 25 PROBLEMS ONLY)"
 240 INPUT P
 250 IF P<2 OR P>25 THEN GOTO 230
 260 CLS 
 270 PRINT AT 10,0;"WHAT IS THE LARGEST NUMBER YOU",,,"WISH TO WORK WITH ?"
 280 PRINT ,,"(MORE THAN 1 AND LESS THAN",,,"10,000 PLEASE)"
 290 INPUT N
 300 IF N<2 OR N>9999 THEN GOTO 270
 310 CLS 
 320 FOR M=1 TO 21
 330 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 340 NEXT M
 350 FOR U=1 TO 20 STEP 2
 360 PRINT AT U,2;"THANK YOU VERY MUCH   ";N$
 370 PRINT 
 380 NEXT U
 390 PAUSE 100
 400 CLS 
 410 PRINT AT 4,0;"YOU HAVE SELECTED ";P;" PROBLEMS",,,;"TO SOLVE."
 420 PRINT ,,"YOU HAVE SELECTED ";N;" AS",,,"YOUR LARGEST NUMBER."
 430 PRINT ,,"AND YOUR NAME IS: ";N$
 440 PRINT ,,"I KNOW MUCH MORE ABOUT YOU",,,N$;" BUT I CAN\ 'T PRINT IT",,,"ON A TV."
 450 PRINT AT 21,2;"PRESS ANY KEY TO CONTINUE"
 460 PAUSE 1000
 470 GOTO 700
 480 REM %R%A%N%D%O%M% %N%U%M%B%E%R%S
 490 LET N1=INT (RND*N)+1
 500 LET N2=INT (RND*N)+1
 510 IF N1<2 OR N2<2 THEN GOTO 490
 520 IF N1<N2 THEN GOTO 490
 530 LET K=K+1
 540 IF K=(P+1) THEN GOTO 1480
 550 PRINT AT 1,7;"%Q%U%E%S%T%I%O%N%  ";K
 560 REM %N%O%U%N%S% %L%I%S%T%I%N%G
 570 LET I$(1)="COMPUTERS"
 580 LET I$(6)="ORANGES"
 590 LET I$(7)="PENS"
 600 LET I$(8)="STICKERS"
 610 LET I$(9)="DOLLARS"
 620 LET I$(10)="WATCHES"
 630 LET I$(2)="APPLES"
 640 LET I$(3)="TRUCKS"
 650 LET I$(4)="PENCILS"
 660 LET I$(5)="BOOKS"
 670 RAND 
 680 LET A=INT (RND*10)+1
 690 RETURN 
 700 CLS 
 710 GOSUB 490
 720 REM %S%T%A%R%T% %O%F% %Q%U%E%S%T%I%O%N%S
 730 PRINT AT 8,0;"IF A PERSON HAD ";N1;" ";I$(A);AT 10,0;"AND ";N$;" HAD ";N2;" ";I$(A);AT 12,0;"HOW MANY WOULD THEY HAVE";AT 14,0;"ALTOGETHER ?"
 740 INPUT R
 750 LET C=N1+N2
 760 GOSUB 1050
 770 CLS 
 780 GOSUB 490
 790 PRINT AT 8,0;"IF ";N$;" HAD ";N1;" ";I$(A);AT 10,0;"AND (S)HE LOST ";N2;AT 12,0;"HOW MANY WERE LEFT."
 800 INPUT R
 810 LET C=N1-N2
 820 GOSUB 1050
 830 CLS 
 840 GOSUB 490
 844 REM   %C%H%A%N%G%E% %T%H%E% %1%0% %I%N% %R%N%D% %F%O%R% %D%I%F%F%E%R%E%N%T% %F%A%C%T%O%R%S
 845 LET N2=INT (RND*10)+1
 850 PRINT AT 8,0;N$;", IF YOU HAD ";N1;AT 10,0;I$(A);" HOW MANY WOULD YOU";AT 12,0;"HAVE IF YOU HAD ";N2;" TIMES";AT 14,0;"AS MANY ?"
 860 INPUT R
 870 LET C=N1*N2
 880 GOSUB 1050
 890 CLS 
 900 GOSUB 490
 910 REM   %I%N% %L%I%N%E% %9%2%0% % %C%H%A%N%G%E% % % %T%H%E% %1%0%0% %I%N% %R%N%D% % % %F%O%R% %D%I%F%F%E%R%E%N%T% %D%I%V%I%S%O%R%S
 940 LET N2=INT (RND*10)+1
 945 IF N2>N1 THEN GOTO 920
 949 PRINT AT 8,0;"IF ";N$;" HAD ";N1;" ";I$(A);AT 10,0;"AND GAVE EQUAL AMOUNTS";AT 12,0;"TO ";N2;" FRIENDS HOW MANY";AT 14,0;"WOULD EACH FRIEND HAVE ?"
 950 PRINT AT 17,0;"(TO THE NEAREST WHOLE NUMBER",,,"ONLY ";N$;")"
 960 INPUT R
 970 PRINT AT 17,0;"                              ",,,"                         "
 980 LET C=N1/N2
 990 LET C=INT (C+.5)
\n1000 GOSUB 1050
\n1010 GOSUB 490
\n1020 IF K<(P+1) THEN GOTO 730
\n1030 STOP 
\n1040 REM %C%H%E%C%K%I%N%G% %A%N%S%W%E%R
\n1050 IF R=C THEN LET RI=RI+1
\n1060 IF R=C THEN PRINT AT 19,0;"--------------------------------"
\n1070 PRINT AT 18,0;"YOUR ANSWER IS: ";R;" ";I$(A)
\n1080 IF R<>C THEN PRINT AT 19,0;"--------------------------------"
\n1090 IF R<>C THEN PRINT AT 20,0;"%W%R%O%N%G-ANSWER: ";C;" ";I$(A)
\n1100 IF R=C THEN PRINT AT 20,0;"ANSWER IS CORRECT: ";N$
\n1110 IF R<>C THEN LET WR=WR+1
\n1120 REM SCORE
\n1130 PAUSE 300
\n1140 CLS 
\n1150 REM %S%C%O%R%E%B%O%A%R%D% %S%C%R%E%E%N
\n1160 PRINT AT 4,0;"--------------------------------"
\n1170 PRINT AT 0,7;N$;" YOUR SCORE"
\n1180 PRINT AT 3,10;"%T%O%T%A%L%=% %  ";RI+WR
\n1190 PRINT AT 3,23;P-(RI+WR);" TO GO"
\n1200 PRINT AT 6,10;"%C%O%R%R%E%C%T%= ";RI
\n1210 PRINT AT 8,10;"%W%R%O%N%G%=% %  ";WR
\n1220 PRINT AT 10,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
\n1230 PRINT AT 16,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
\n1240 REM %G%R%A%D%E% %A%S%S%I%G%N
\n1250 LET GR=(RI/(RI+WR))*100
\n1260 IF GR>=90 THEN LET G$="AN ""A"": EXCELLENT"
\n1270 IF GR>=80 AND GR<90 THEN LET G$="A ""B"": ABOVE AVERAGE"
\n1280 IF GR>=70 AND GR<80 THEN LET G$="A ""C"": AVERAGE"
\n1290 IF GR>=60 AND GR<70 THEN LET G$="A ""D"": BELOW AVERAGE, TRY HARDER"
\n1300 IF GR<60 THEN LET G$="AN ""E"": TERRIBLE, YOU NEED HELP"
\n1310 PRINT AT 12,0;"YOU\ 'RE CURRENT GRADE:";AT 14,0;G$
\n1320 PAUSE 150
\n1330 IF K=P THEN PRINT AT 18,0;"YOU ARE DONE,  ",N$,"GIVE SOMEONE ELSE A TURN. PRESS ANY KEY TO  CONTINUE."
\n1340 IF K=P THEN PAUSE 4E4
\n1350 IF K=P THEN RUN 
\n1360 IF K<>P THEN CLS 
\n1370 REM %C%O%M%M%E%N%T% %S%E%C%T%I%O%N
\n1380 IF K=2 THEN GOSUB 1500
\n1390 IF K=4 THEN GOSUB 1550
\n1400 IF K=1 THEN GOSUB 1590
\n1410 IF K=6 THEN GOSUB 1630
\n1420 IF K=10 THEN GOSUB 1670
\n1430 IF K>5 AND GR>=90 THEN GOSUB 1980
\n1440 IF K>5 AND GR<70 THEN GOSUB 2020
\n1450 RETURN 
\n1460 SAVE "WORD PROBLEMS VARIATIO%N"
\n1471 RUN 2
\n1480 GOTO 1330
\n1490 REM %C%O%M%M%E%N%T% %S%E%C%T%I%O%N
\n1500 CLS 
\n1510 PRINT AT 10,0;N$;" I LOVE MATHEMATICS."
\n1520 PAUSE 200
\n1530 CLS 
\n1540 RETURN 
\n1550 PRINT AT 10,0;"MR. SWEITZER TAUGHT ME WHEN I ",,,"WAS IN FOURTH GRADE."
\n1560 PAUSE 300
\n1570 CLS 
\n1580 RETURN 
\n1590 PRINT AT 10,0;"WELL YOU AT LEAST FINISHED ONE",,,"QUESTION WITHOUT RUINING THE",,,"PROGRAM."
\n1600 PAUSE 300
\n1610 CLS 
\n1620 RETURN 
\n1630 PRINT AT 10,0;"I WOULD RATHER BE HERE WITH YOU,",,N$;" THAN WITH AN %I%B%M",,,"%O%R% %C%O%M%M%O%D%O%R%E% %C%O%M%P%U%T%E%R%."
\n1640 PAUSE 350
\n1650 CLS 
\n1660 RETURN 
\n1670 PRINT AT 10,0;"I THINK, NO WAIT, I KNOW I CAN",,,"COMPUTE FASTER THAN YOU."
\n1680 PAUSE 350
\n1690 CLS 
\n1700 PRINT AT 10,0;"I CAN READ YOUR THOUGHTS AND ",,,"YOU REALLY THINK YOU CAN BEAT ",,,"ME AT MATHEMATICS.  HOG WASH."
\n1710 PAUSE 450
\n1720 CLS 
\n1730 PRINT AT 2,0;"OK, IF YOU THINK YOU A LOWLY ",,,"HUMAN BY THE NAME OF: ";N$,,,"CAN WORK MATH PROBLEMS FASTER",,,"THAN ME, A TIMEX, PLEASE PRESS",,,"THE LETTER ""Y"" BUT IF YOU ARE",,,"CHICKEN AS I KNOW YOU TO BE",,,"PRESS THE LETTER ""N""."
\n1740 PRINT AT 21,0;"OK, PRESS (Y/N) KEY HUMAN"
\n1750 IF INKEY$="" THEN GOTO 1750
\n1760 IF INKEY$<>"Y" THEN RETURN 
\n1770 CLS 
\n1780 PRINT AT 3,0;"GET READY, I WILL GIVE YOU ONLY",,,"ONE PROBLEM SO BE CAREFUL."
\n1790 PRINT ,,"BY THE WAY I WILL BE SOLVING THE",,"SAME PROBLEM AT THE SAME TIME."
\n1800 PRINT ,,"IF YOU FINISH FIRST (NEVER) THEN",,"QUICKLY LOOK AT MY SCREEN TO ",,,"SEE IF I HAVE FINISHED (I WILL",,,"HAVE)."
\n1810 PAUSE 1000
\n1820 CLS 
\n1830 PRINT "HERE\ 'S THE PROBLEM. BY THE WAY",,,"THIS WILL NOT CHANGE YOUR TOTAL",,,"NUMBER OF QUESTION OR GRADE",,,"BECAUSE NO HUMAN HAS EVER WON."
\n1840 PAUSE 500
\n1850 LET RAN=INT (RND*1000000)+1
\n1860 LET RAN1=INT (RND*1000000)+1
\n1870 IF RAN1<10 OR RAN<100 THEN GOTO 1850
\n1880 PRINT AT 9,0;RAN;" X ";RAN1;" = "
\n1890 FAST 
\n1900 LET ANSWER=RAN*RAN1
\n1910 PRINT AT 12,0;"ANSWER IS: ";ANSWER
\n1920 SLOW 
\n1930 PRINT AT 15,0;"SEE, I TOLD YOU I AM FASTER THAN",,"ANY HUMAN."
\n1940 PRINT AT 21,0;"RETURNING TO PROGRAM IN 6 SEC."
\n1950 PAUSE 600
\n1960 CLS 
\n1970 RETURN 
\n1980 PRINT AT 9,0;"I THOUGHT YOU WOULD DO WELL ",,,"BECAUSE YOU HAVE MR. SWEITZER",,,"FOR MATHEMATICS."
\n1990 PAUSE 300
\n2000 CLS 
\n2010 RETURN 
\n2020 PRINT AT 8,0;"WHAT SEEMS TO BE THE TROUBLE",,,"I NEVER DID THAT POORLY EVEN ",,,"WHEN ALL MY CIRCUITS AND ",,,"MICROPROCESSOR SHORTED OUT."
\n2030 PAUSE 400
\n2040 CLS 
\n2050 RETURN 
\n2060 PRINT AT 8,0;"%I%N% %L%I%N%E% %9%2%0% % % %C%H%A%N%G%E% %T%H%E% %1%0%0%,%E%T%C%I%N% %R%N%D% %F%O%R% %D%I%F%F%E%R%E%N%T% %D%I%V%I%S%O%R%S% % % "
\n2065 PRINT AT 11,0;"%I%N% %L%I%N%E% %8%4%5% %C%H%A%N%G%E% %T%H%E% %1%0%,%E%T%C%.%I%N%R%N%D% %F%O%R% %D%I%F%F%E%R%E%N%T% %S%E%C%O%N%D% %F%A%C%T%O%R%S"
\n2070 PAUSE 800
\n2080 CLS 
\n2090 RUN 2