9100 PRINT ""
PRINT ""
COLOR 3
PRINT "                                                                  "
PRINT "              mmm      mmm   aaaa   tttttttttttt hh     hh  "
PRINT "              mmmm    mmmm  aa  aa  tt   tt   tt hh     hh   "
PRINT "              mm mm  mm mm aa    aa      tt      hh     hh   "
PRINT "              mm  mmmm  mm aaaaaaaa      tt      hhhhhhhhh   "
PRINT "              mm   mm   mm aa    aa      tt      hh     hh  "
PRINT "              mm        mm aa    aa      tt      hh     hh   "
PRINT "              mm        mm aa    aa      tt      hh     hh   "
COLOR 12
PRINT "            Qbasic Quizer Qbasic Quizer Qbasic Quizer Qbasic   "
PRINT "                                                 Version 1.1"
COLOR 25
PRINT "                                    Written by David Stelmack"
COLOR 3
PRINT ""
PRINT "                                                        "
PRINT "                        "
PRINT "                                      "
PRINT "                                    "
PRINT "After you are done the exercise you will return here."
COLOR 5
PRINT "To quit during an exercise, type exit to quit.(small letters)"
COLOR 3
9120 PRINT "1.  Adding and Subtracting Integers (11 Questions)"
9130 PRINT "2.  Multiplying and Dividing Integers (11 Questions)"
9140 PRINT "3.  Changing Fractions and Ratios into Percent Form (11 Questions)"
9150 PRINT "4.  Acknowledgements"
PRINT "5.  Exit"
PRINT ""
9160 INPUT "Enter an exercise number.   ", aa
9170 IF aa = 5 THEN PRINT "Thanks for Playing!"
IF aa = 5 THEN GOTO 11111
9171 IF aa = 1 THEN GOTO 10
IF aa = 2 THEN GOTO 1110
IF aa = 3 THEN GOTO 11110
IF aa = 4 THEN GOTO 43434



10 PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""

PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT "Solve using the correct sign"
PRINT "Addition"
655 INPUT "(-1) + (-3)      ", a$
20 IF a$ = "-4" THEN Z = 1
30 IF a$ = "-4" THEN GOTO 60
IF a$ = "exit" THEN GOTO 9100
40 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 655
IF n$ = "n" THEN GOTO 50
50 Z = 0
60 PRINT "SCORE"; Z
PRINT ""

70 INPUT "(-6) + (+2)   ", b$
80 IF b$ = "-4" THEN y = Z + 1
81 IF b$ = "-4" THEN GOTO 90
IF b$ = "exit" THEN GOTO 9100
82 PRINT "INCORECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 70
IF n$ = "n" THEN GOTO 81.5
81.5 y = Z
90 PRINT "SCORE:"; y
PRINT ""

100 INPUT "(+8) + (-5)  ", c$
120 IF c$ = "3" THEN X = y + 1
130 IF c$ = "3" THEN GOTO 160
IF c$ = "exit" THEN GOTO 9100
140 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 100
IF n$ = "n" THEN GOTO 150
150 X = y
160 PRINT "SCORE:"; X
PRINT ""
170 PRINT ""

200 INPUT "(+5) + (-8)  ", d$
220 IF d$ = "-3" THEN W = X + 1
230 IF d$ = "-3" THEN GOTO 260
IF d$ = "exit" THEN GOTO 9100
240 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 200
IF n$ = "n" THEN GOTO 250
250 W = X
260 PRINT "SCORE:"; W
270 PRINT ""

300 INPUT "(-3) + (+8)  ", e$
320 IF e$ = "5" THEN V = W + 1
330 IF e$ = "5" THEN GOTO 360
IF e$ = "exit" THEN GOTO 9100
340 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 300
IF n$ = "n" THEN GOTO 350
350 V = W
360 PRINT "SCORE:"; V
PRINT ""

PRINT "Subtraction"

400 INPUT "(+4) - (+6)  ", f$
420 IF f$ = "-2" THEN U = V + 1
430 IF f$ = "-2" THEN GOTO 460
IF f$ = "exit" THEN GOTO 9100
440 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 400
IF n$ = "n" THEN GOTO 450
450 U = V
460 PRINT "SCORE:"; U
PRINT ""

500 INPUT "(+7) - (+2)  ", g$
520 IF g$ = "5" THEN t = U + 1
530 IF g$ = "5" THEN GOTO 560
IF g$ = "exit" THEN GOTO 9100
540 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 500
IF n$ = "n" THEN GOTO 550
550 t = U
560 PRINT "SCORE:"; t
PRINT ""

600 INPUT "(-8) - (+4)  ", h$
620 IF h$ = "-12" THEN s = t + 1
630 IF h$ = "-12" THEN GOTO 660
IF h$ = "exit" THEN GOTO 9100
640 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 600
IF n$ = "n" THEN GOTO 650
650 s = t
660 PRINT "SCORE:"; s
PRINT ""

700 INPUT "(+3) - (+1)  ", i$
720 IF i$ = "2" THEN r = s + 1
730 IF i$ = "2" THEN GOTO 760
IF i$ = "exit" THEN GOTO 9100
740 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 700
IF n$ = "n" THEN GOTO 750
750 r = s
760 PRINT "SCORE:"; r
PRINT ""

800 INPUT "(+6) - (-1)  ", j$
820 IF j$ = "7" THEN Q = r + 1
830 IF j$ = "7" THEN GOTO 860
IF j$ = "exit" THEN GOTO 9100
840 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 800
IF n$ = "n" THEN GOTO 850
850 Q = r
860 PRINT "SCORE:"; Q
PRINT ""

900 INPUT "(-4) - (-3)  ", k$
920 IF k$ = "-1" THEN P = Q + 1
930 IF k$ = "-1" THEN GOTO 960
IF k$ = "exit" THEN GOTO 9100
940 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 900
IF n$ = "n" THEN GOTO 950
950 P = Q
960 PRINT "SCORE:"; P
PRINT ""
PRINT "***********************************************************************"
PRINT "                          You got"; (P / 11 * 100); "%   "
PRINT "                           That's"; P; "/11              "
PRINT "***********************************************************************"
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
INPUT "Press return if you're done viewing results.", zz
GOTO 9100













1110 PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT "Solve using the correct sign"
PRINT "Multiplying"

INPUT "(-5)(+6) ", a$
1120 IF a$ = "-30" THEN Z = 1
1130 IF a$ = "-30" THEN GOTO 1160
IF a$ = "exit" THEN GOTO 9100
1140 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 1120
IF n$ = "n" THEN GOTO 1150
1150 Z = 0
1160 PRINT "SCORE"; Z
PRINT ""
1170 INPUT "(+7)(-8)    ", b$
1180 IF b$ = "-56" THEN y = Z + 1
1181 IF b$ = "-56" THEN GOTO 1190
IF b$ = "exit" THEN GOTO 9100
1181.5 y = Z
1190 PRINT "SCORE:"; y
PRINT ""
11100 INPUT "(-7)(-9)   ", c$
11120 IF c$ = "63" THEN X = y + 1
11130 IF c$ = "63" THEN GOTO 11160
IF c$ = "exit" THEN GOTO 9100
11140 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 11100
IF n$ = "n" THEN GOTO 11150
11150 X = y
11160 PRINT "SCORE"; X
11170 PRINT ""
11200 INPUT "(+6)(+9)   ", d$
11220 IF d$ = "54" THEN W = X + 1
11230 IF d$ = "54" THEN GOTO 11260
IF d$ = "exit" THEN GOTO 9100
11240 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 11200
IF n$ = "n" THEN GOTO 11250
11250 W = X
11260 PRINT "SCORE"; W
11270 PRINT ""
11300 INPUT "(-12)(+5)  ", e$
11320 IF e$ = "-60" THEN V = W + 1
11330 IF e$ = "-60" THEN GOTO 11360
IF e$ = "exit" THEN GOTO 9100
11340 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 11300
IF n$ = "n" THEN GOTO 11350
11350 V = W
11360 PRINT "SCORE"; V
PRINT ""
PRINT "Division"
11400 INPUT "(-48)%(+4) ", f$
11420 IF f$ = "-12" THEN U = V + 1
11430 IF f$ = "-12" THEN GOTO 11460
IF f$ = "exit" THEN GOTO 9100
11440 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 11400
IF n$ = "n" THEN GOTO 11450
11450 U = V
11460 PRINT "SCORE"; U
PRINT ""
11500 INPUT "(-36)%(-4) ", g$
11520 IF g$ = "25" THEN t = U + 1
11530 IF g$ = "25" THEN GOTO 11560
IF g$ = "exit" THEN GOTO 9100
11540 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 11500
IF n$ = "n" THEN GOTO 11550
11550 t = U
11560 PRINT "SCORE"; t
PRINT ""
11600 INPUT "(+32)%(-8) ", h$
11620 IF h$ = "-4" THEN s = t + 1
11630 IF h$ = "-4" THEN GOTO 11660
IF h$ = "exit" THEN GOTO 9100
11640 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 11600
IF n$ = "n" THEN GOTO 11650
11650 s = t
11660 PRINT "SCORE"; s
PRINT ""
11700 INPUT "(-18)%(+3)   ", i$
11720 IF i$ = "-6" THEN r = s + 1
11730 IF i$ = "-6" THEN GOTO 11760
IF i$ = "exit" THEN GOTO 9100
11740 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 11700
IF n$ = "n" THEN GOTO 11750
11750 r = s
11760 PRINT "SCORE"; r
PRINT ""
11800 INPUT "(-60)%(-12)   ", j$
11820 IF j$ = "5" THEN Q = r + 1
11830 IF j$ = "5" THEN GOTO 11860
IF j$ = "exit" THEN GOTO 9100
11840 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 11800
IF n$ = "n" THEN GOTO 11850
11850 Q = r
11860 PRINT "SCORE"; Q

PRINT ""
11900 INPUT "(-40) % (-5)  ", k$
11920 IF k$ = "9" THEN P = Q + 1
11930 IF k$ = "9" THEN GOTO 11960
IF k$ = "exit" THEN GOTO 9100
11940 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 11900
IF n$ = "n" THEN GOTO 11950
11950 P = Q
11960 PRINT "SCORE"; P
PRINT "***********************************************************************"
PRINT "                          You got"; (P / 11 * 100); "%   "
PRINT "                           That's"; P; "/11              "
PRINT "***********************************************************************"

PRINT ""
INPUT "Press return if you're done viewing results.", zz
GOTO 9100










11110 PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT "Change into percent form."
PRINT "Fractions"

INPUT "1/2      ", a$
21120 IF a$ = "50" THEN Z = 1
21130 IF a$ = "50" THEN GOTO 21160
IF a$ = "exit" THEN GOTO 9100
21140 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 21120
IF n$ = "n" THEN GOTO 21150
21150 Z = 0
21160 PRINT "SCORE"; Z
PRINT ; ""
21170 INPUT "1/4    ", b$
21180 IF b$ = "25" THEN y = Z + 1
21181 IF b$ = "25" THEN GOTO 21190
IF b$ = "exit" THEN GOTO 9100
PRINT "incorrect"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 21170
IF n$ = "n" THEN GOTO 21181.5
21181.5 y = Z
21190 PRINT "SCORE:"; y
PRINT ""
211100 INPUT "3/10   ", c$
211120 IF c$ = "30" THEN X = y + 1
211130 IF c$ = "30" THEN GOTO 211160
IF c$ = "exit" THEN GOTO 9100
211140 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 211130
IF n$ = "n" THEN GOTO 211150
211150 X = y
211160 PRINT "SCORE"; X
211170 PRINT ""
211200 INPUT "3/5   ", d$
211220 IF d$ = "60" THEN W = X + 1
211230 IF d$ = "60" THEN GOTO 211260
IF d$ = "exit" THEN GOTO 9100
211240 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 211200
IF n$ = "n" THEN GOTO 211250
211250 W = X
211260 PRINT "SCORE"; W
211270 PRINT ""
211300 INPUT "5/2  ", e$
211320 IF e$ = "250" THEN V = W + 1
211330 IF e$ = "250" THEN GOTO 211360
IF e$ = "exit" THEN GOTO 9100
211340 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 211300
IF n$ = "n" THEN GOTO 211350
211350 V = W
211360 PRINT "SCORE"; V
PRINT ""


PRINT "Ratios"
211400 INPUT "3.5 : 5   ", f$
211420 IF f$ = "70" THEN U = V + 1
211430 IF f$ = "70" THEN GOTO 211460
IF f$ = "exit" THEN GOTO 9100
211440 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 211400
IF n$ = "n" THEN GOTO 211450
211450 U = V
211460 PRINT "SCORE"; U
PRINT ""
211500 INPUT "5.5 : 11 ", g$
211520 IF g$ = "50" THEN t = U + 1
211530 IF g$ = "50" THEN GOTO 211560
IF g$ = "exit" THEN GOTO 9100
211540 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 211500
IF n$ = "n" THEN GOTO 211550
211550 t = U
211560 PRINT "SCORE"; t
PRINT ""
211600 INPUT "2 : 10 ", h$
211620 IF h$ = "20" THEN s = t + 1
211630 IF h$ = "20" THEN GOTO 211660
IF h$ = "exit" THEN GOTO 9100
211640 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 211600
IF n$ = "n" THEN GOTO 211650
211650 s = t
211660 PRINT "SCORE"; s
PRINT ""
211700 INPUT "2.5 : 2.0   ", i$
211720 IF i$ = "125" THEN r = s + 1
211730 IF i$ = "125" THEN GOTO 211760
IF i$ = "exit" THEN GOTO 9100
211740 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 211700
IF n$ = "n" THEN GOTO 211750
211750 r = s
211760 PRINT "SCORE"; r
PRINT ""
211800 INPUT "4 : 5   ", j$
211820 IF j$ = "80" THEN Q = r + 1
211830 IF j$ = "80" THEN GOTO 211860
IF j$ = "exit" THEN GOTO 9100
211840 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 211800
IF n$ = "n" THEN GOTO 211850
211850 Q = r
211860 PRINT "SCORE"; Q

PRINT ""
211900 INPUT "-5 : 50  ", k$
211920 IF k$ = "-10" THEN P = Q + 1
211930 IF k$ = "-10" THEN GOTO 211960
IF k$ = "exit" THEN GOTO 9100
211940 PRINT "INCORRECT"
INPUT "Would you like to correct it? Y/N", n$
IF n$ = "y" THEN GOTO 211900
IF n$ = "n" THEN GOTO 211950
211950 P = Q
211960 PRINT "SCORE"; P
PRINT ""
PRINT "***********************************************************************"
PRINT "                          You got"; (P / 11 * 100); "%   "
PRINT "                           That's"; P; "/11              "
PRINT "***********************************************************************"

PRINT ""
INPUT "Press return if you're done viewing results.", zz
GOTO 9100

43434 PRINT ""
 PRINT ""
 PRINT ""
 PRINT ""
 PRINT ""
 PRINT ""
 PRINT ""
 PRINT ""
 PRINT ""
 PRINT ""
 PRINT "***************************************************************************"
 PRINT "* All questions in exercises 1 and 2 are from the Mathematics 9 text book.*"
 PRINT "*                                                                         *"
 PRINT "* This program was produced by David Stelmack.                            *"
 PRINT "*                                                                         *"
 PRINT "* My knowledge of qbasic programing was developed by reading the Computer *"
 PRINT "* Power sections in the Mathematics 9 text book.                          * "
 PRINT "*************************************************************************** "
 PRINT ""
 PRINT ""
 PRINT ""
 PRINT ""
 PRINT ""
 PRINT ""
 PRINT ""
 PRINT ""

 PRINT ""
 PRINT ""
 INPUT "Press return when done", e
 GOTO 9100














11111 PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""


PRINT ""
PRINT "    +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
PRINT "    +      This program was made possible by David Stelmack of E.D.S.S. +"
PRINT "    +      I will be updating this program soon and                     +"
PRINT "    +     will be adding to it.  Updates will be available              +"
PRINT "    +     at my site.   http://mypage.goplay.com/sofa                   +"
PRINT "    +    They will be found under the Free Files section on the left.   +"
PRINT "    +  If you have any comments about this program, send them to:       +"
PRINT "    +                   sofa@goplay.com                                 +"
PRINT "    + bye bye!                                                          +"
PRINT "    +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
PRINT ""
PRINT ""
PRINT ""
PRINT ""

11112 END