REM MIRIAM NAGI REM 12-9-02 CLS START: SCREEN 12 COLOR 4 LOCATE 15, 30 LINE (50, 80)-(550, 180), 0, BF LINE (48, 79)-(552, 181), 15, B LINE (47, 78)-(553, 182), 15, B LINE (100, 120)-(500, 140), 15, B LINE (99, 120)-(501, 140), 15, B FOR x = 122 TO 501 STEP 5 LINE (102, 122)-(x, 138), 1, BF FOR hld = 1 TO 5000: NEXT LOCATE 7, 30: PRINT "LOADING QUIZ...." NEXT SLEEP 1 CLS LOCATE 7, 30: PRINT "Ready" FOR hld = 1 TO 15000: NEXT SLEEP 4 CLS COLOR 9 LOCATE 10, 25 INPUT "NAME?"; N$ LOCATE 11, 25 PRINT "HELLO", N$ LOCATE 12, 25 PRINT N$; " PUT YOUR KEYBOARD ON CAPSLOCK PLEASE" SLEEP 2 CLS REM MENU: LOCATE 10, 20 PRINT "MENU" LOCATE 11, 20 PRINT "A. ADDITION QUIZ" LOCATE 12, 20 PRINT "B. MULTIPLICATION QUIZ" LOCATE 13, 20 PRINT "C.SUBTRACTION QUIZ" LOCATE 14, 20 PRINT "D. OTHER STUFF" LOCATE 15, 20 PRINT "E. THE END" INPUT "ENTER YOUR CHOICE"; S$ IF S$ = "A" THEN GOSUB ADDITION IF S$ = "B" THEN GOSUB MULTIPLICATION IF S$ = "C" THEN GOSUB SUBTRACTION IF S$ = "D" THEN GOSUB OTHERS IF S$ = "E" THEN GOSUB THEEND GOTO START ADDITION: CLS LOCATE 10, 25 PRINT "HELLO ", N$ LOCATE 11, 25 PRINT " GOOD LUCK !" SLEEP 4 CLS PRINT " THIS IS A PRACTICE A QUESTION " INPUT "1. WHAT IS 60+10?"; A IF A <> 70 THEN PRINT "THAT IS WRONG" IF A = 70 THEN PRINT "THAT IS CORRECT" PRINT " NOW YOU WILL BEGIN THE TEST" SLEEP 4 CLS PRINT "1. WHAT IS 90 + 10 " PRINT "A.100" PRINT "B.80" INPUT "ENTER YOUR ANSWER"; B$ IF B$ = "A" THEN GOSUB CORRECT IF B$ = "B" THEN GOSUB WRONG SLEEP 2 CLS PRINT "2. WHAT IS THE SUM OF 500+245?" PRINT "C. 845" PRINT "D.800" INPUT "YOUR ANSWER IS?"; M$ IF M$ = "C" THEN GOSUB CORRECT IF M$ = "D" THEN GOSUB WRONG SLEEP 2 CLS PRINT "3. WHAT IS THE SUM OF 845+237?" PRINT "E.1082" PRINT "F.1234" INPUT "ENTER YOUR ANSWER "; H$ IF H$ = "E" THEN GOSUB CORRECT IF H$ = "F" THEN GOSUB WRONG SLEEP 2 CLS PRINT "4. WHAT IS THE SUM OF 500+400?" PRINT "A.900" PRINT "B.1000" INPUT "ENTER YOUR ANSWER"; K$ IF K$ = "A" THEN GOSUB CORRECT IF K$ = "B" THEN GOSUB WRONG SLEEP 2 CLS PRINT "5. WHAT IS THE SUM OF 89+243?" PRINT "C.332" PRINT "D.889" INPUT "ENTER YOUR ANSWER"; G$ IF G$ = "C" THEN GOSUB CORRECT IF G$ = "D" THEN GOSUB WRONG SLEEP 2 CLS PRINT " 6.MAGGIE HAS 20 APPLES AND MIRIAM HAS 50 HOW MANY DO THEY HAVE IN ALL?" PRINT "A.70 APPLES" PRINT "B.60 APPLES" INPUT "ENTER YOUR ANSWER"; H$ IF H$ = "A" THEN GOSUB CORRECT IF H$ = "B" THEN GOSUB WRONG SLEEP 2 CLS PRINT "7.WHAT IS THE SUM OF 234+567?" PRINT "A.801" PRINT "B.891" INPUT "ENTER YOUR ANSWER"; L$ IF L$ = "A" THEN GOSUB CORRECT IF L$ = "B" THEN GOSUB WRONG SLEEP 2 CLS PRINT "8. WHAT IS THE SUM OF 489+678" PRINT "A.1167" PRINT "B. 1187" INPUT "ENTER YOUR ANSWER"; J$ IF J$ = "A" THEN GOSUB CORRECT IF J$ = "B" THEN GOSUB WRONG SLEEP 2 CLS PRINT "9. WHAT IS THE SUM OF 40 +120?" PRINT "A.160" PRINT "B.180" INPUT "ENTER YOUR ANSWER"; D$ IF D$ = "A" THEN GOSUB CORRECT IF D$ = "B" THEN GOSUB WRONG SLEEP 2 CLS PRINT "10. WHAT IS THE SUM OF 80+90" PRINT "A.170" PRINT "B. 190" INPUT "ENTER YOUR ANSWER"; A$ IF A$ = "A" THEN GOSUB CORRECT IF A$ = "B" THEN GOSUB WRONG RETURN CLS MULTIPLICATION: CLS LOCATE 10, 25 PRINT " HELLO "; N$ LOCATE 11, 25 PRINT "GOOD LUCK!" SLEEP 2 CLS PRINT "1. WHAT IS 60*2?" PRINT "A.120" PRINT "B.160" INPUT "ENTER YOUR ANSWER"; R$ IF R$ = "A" THEN GOSUB CORRECT IF R$ = "B" THEN GOSUB WRONG SLEEP 2 CLS PRINT "2. WHAT IS 80*2?" PRINT "A.120" PRINT "B.100" INPUT "ENTER YOUR ANSWER"; W$ IF W$ = "A" THEN GOSUB CORRECT IF W$ = "B" THEN GOSUB WRONG SLEEP 2 CLS PRINT "3. WHAT IS 15*2?" PRINT "A.30" PRINT "B.225" INPUT "ENTER YOUR ANSWER"; L$ IF L$ = "A" THEN GOSUB CORRECT IF L$ = "B" THEN GOSUB WRONG SLEEP 2 CLS PRINT "4. WHAT IS 40*5?'" PRINT "A.200" PRINT "B.102400" INPUT "ENTER YOUR ANSWER"; J$ IF J$ = "A" THEN GOSUB CORRECT IF J$ = "B" THEN GOSUB WRONG SLEEP 2 CLS PRINT "5. WHAT IS 80*5?" PRINT "A.400" PRINT "B.1600" INPUT "ENTER YOUR ANSWER"; y$ IF y$ = "A" THEN GOSUB CORRECT IF y$ = "B" THEN GOSUB WRONG SLEEP 2 CLS RETURN SUBTRACTION: CLS LOCATE 10, 25 PRINT "HELLO"; N$ LOCATE 11, 25 PRINT "GOOD LUCK!" CLS PRINT "ERICA HAS $20 AND SHE BUYS A BAG OF CHIPS FOR $3, AND A DRINK FOR $2, HOW MUCH $$ DOES SHE HAVE LEFT?" PRINT "A.15" PRINT "B. 20" INPUT "ENTER YOUR ANSWER"; M$ IF M$ = "A" THEN GOSUB CORRECT IF M$ = "B" THEN GOSUB WRONG SLEEP 2 CLS PRINT "2. MAGGIE HAS 100 APPLES , SHE GIVES 50 TO STEPHAINE, HOW MANY APPLES DOES MAGGIE HAVE LEFT?" PRINT "A. 50" PRINT "B. 100" INPUT "ENTER YOUR ANSWER"; B$ IF B$ = "A" THEN GOSUB CORRECT IF B$ = "B" THEN GOSUB WRONG SLEEP 2 CLS PRINT "3. WHAT 560-235?" PRINT "A.325" PRINT "B.400" INPUT "ENTER YOUR ANSWER"; R$ IF R$ = "A" THEN GOSUB CORRECT IF R$ = "B" THEN GOSUB WRONG SLEEP 2 CLS PRINT "4. WHAT IS 500-200?" PRINT "A. 300" PRINT "B. 200" INPUT "ENTER YOUR ANSWER "; K$ IF K$ = "A" THEN GOSUB CORRECT IF K$ = "B" THEN GOSUB WRONG SLEEP 2 CLS PRINT "5. WHAT IS 800-400?" PRINT "A. 400" PRINT "B.200" INPUT "ENTER YOUR ANSWER"; O$ IF O$ = "A" THEN GOSUB CORRECT IF O$ = "B" THEN GOSUB WRONG SLEEP 2 CLS RETURN OTHERS: CLS LOCATE 10, 25 PRINT "HELLO"; N$ LOCATE 11, 25 INPUT "ENTER A NUMBER PLEASE"; N1 INPUT "ENTER ANOTHER NUMBER PLEASE"; N2 t = N1 + N2 PRINT " THIS IS YOUR TOTAL"; t P = N1 * N2 S = N1 - N2 PRINT "THIS IS YOUR SUBTRACTION"; S PRINT "THIS IS YOUR PRODUCT"; P D = N1 / N2 PRINT "THIS YOUR DIVISION"; D SLEEP 3 CLS FOR x = 1 TO 10 PRINT N$ NEXT x SLEEP 2 CLS FOR t = 1 TO 5 READ NAME$ PRINT NAMED$ NEXT t DATA MIRIAM, ERICA, MAGGIE, STEPHAINE, JESSICA RESTORE SLEEP 2 CLS INPUT "ENTER A NAME"; G$ PRINT G$ PRINT LEFT$(G$, 1) PRINT RIGHT$(G$, 1) SLEEP 2 CLS INPUT "ENTER A WORD "; W$ PRINT LEN(W$) SLEEP 2 CLS PRINT MID$(W$, 5, 1) PRINT "THIS IS THE 5TH LETTER OF YOUR WORD" PRINT MID$(W$, 3, 2) PRINT "THESE ARE THE 3RD AND 4TH LETTERS OF THE WORD" SLEEP 3 CLS INPUT "ENTER A NUMBER"; L1 PRINT SQR(L1) INPUT "ENTER A NUMBER WITH A DECIMAL IN IT "; L1 PRINT INT(L1) SLEEP 2 CLS FOR x = 1 TO 5 INPUT "ENTER A NUMBER"; A(x) NEXT x FOR x = 1 TO 5 PRINT A(x) NEXT x SLEEP 3 CLS DIM U$(15) FOR x = 1 TO 15 INPUT "ENTER A NAME"; U$(x) NEXT x FOR x = 1 TO 15 PRINT U$(x) NEXT x SLEEP 3 CLS RETURN CORRECT: CLS SCREEN 12 COLOR 9 LOCATE 12, 12 PRINT "YOU ARE CORRECT!" SLEEP 1 STAR1: LINE (100, 30)-(95, 35), 6 LINE (100, 30)-(105, 35), 6 LINE (95, 35)-(85, 35), 6 LINE (85, 35)-(95, 40), 6 SLEEP 1 LINE (95, 40)-(90, 50), 6 LINE (90, 50)-(100, 45), 6 LINE (100, 45)-(110, 50), 6 LINE (110, 50)-(105, 40), 6 SLEEP 1 LINE (105, 40)-(115, 35), 6 LINE (115, 35)-(105, 35), 6 SLEEP 1 PAINT (100, 40), 14, 6 STAR3: LINE (150, 30)-(145, 35), 6 LINE (145, 35)-(135, 35), 6 LINE (135, 35)-(145, 40), 6 LINE (145, 40)-(140, 50), 6 SLEEP 1 LINE (140, 50)-(150, 45), 6 LINE (150, 45)-(160, 50), 6 LINE (160, 50)-(155, 40), 6 LINE (155, 40)-(165, 35), 6 SLEEP 1 LINE (165, 35)-(155, 35), 6 LINE (155, 35)-(150, 30), 6 SLEEP 1 PAINT (150, 40), 14, 6 STAR2: LINE (195, 30)-(190, 35), 6 LINE (190, 35)-(180, 35), 6 LINE (180, 35)-(190, 40), 6 LINE (190, 40)-(185, 50), 6 SLEEP 1 LINE (185, 50)-(195, 45), 6 LINE (195, 45)-(205, 50), 6 LINE (205, 50)-(200, 40), 6 LINE (200, 40)-(210, 35), 6 SLEEP 1 LINE (210, 35)-(200, 35), 6 LINE (200, 35)-(195, 30), 6 SLEEP 1 PAINT (195, 40), 14, 6 C = C + 1 PRINT "YOU HAVE GOTTEN "; C; " CORRECT" SLEEP 3 CLS SQUARE1: LINE (80, 50)-(75, 50), 4 LINE (75, 50)-(75, 55), 4 SLEEP 1 LINE (75, 55)-(80, 55), 4 LINE (80, 55)-(80, 50), 4 SQUARE2: LINE (85, 45)-(70, 45), 9 LINE (70, 45)-(70, 60), 9 SLEEP 1 LINE (70, 60)-(85, 60), 9 LINE (85, 60)-(85, 45), 9 SQUARE3: LINE (90, 40)-(65, 40), 4 LINE (65, 40)-(65, 65), 4 SLEEP 1 LINE (65, 65)-(90, 65), 4 LINE (90, 65)-(90, 40), 4 SQUARE4: LINE (95, 35)-(60, 35), 9 LINE (60, 35)-(60, 70), 9 SLEEP 1 LINE (60, 70)-(95, 70), 9 LINE (95, 70)-(95, 35), 9 SLEEP 3 CLS SUARES: LINE (155, 90)-(145, 90), 4 LINE (145, 90)-(145, 100), 4 LINE (145, 100)-(155, 100), 4 LINE (155, 100)-(155, 90), 4 SLEEP 1 LINE (160, 85)-(140, 85), 9 LINE (140, 85)-(140, 105), 9 LINE (140, 105)-(160, 105), 9 LINE (160, 105)-(160, 85), 9 SLEEP 1 LINE (165, 80)-(135, 80), 4 LINE (135, 80)-(135, 110), 4 LINE (135, 110)-(165, 110), 4 LINE (165, 110)-(165, 80), 4 SLEEP 1 LINE (170, 75)-(130, 75), 9 LINE (130, 75)-(130, 115), 9 LINE (130, 115)-(170, 115), 9 LINE (170, 115)-(170, 75), 9 SLEEP 1 LINE (175, 70)-(125, 70), 4 LINE (125, 70)-(125, 120), 4 LINE (125, 120)-(175, 120), 4 LINE (175, 120)-(175, 70), 4 SLEEP 1 LINE (180, 65)-(120, 65), 9 LINE (120, 65)-(120, 125), 9 LINE (120, 125)-(180, 125), 9 LINE (180, 125)-(180, 65), 9 SLEEP 1 LINE (185, 60)-(115, 60), 4 LINE (115, 60)-(115, 130), 4 LINE (115, 130)-(185, 130), 4 LINE (185, 130)-(185, 60), 4 SLEEP 1 LINE (190, 55)-(110, 55), 9 LINE (110, 55)-(110, 135), 9 LINE (110, 135)-(190, 135), 9 LINE (190, 135)-(190, 55), 9 SLEEP 3 CLS LINE (210, 140)-(210, 150), 4 LINE (210, 150)-(220, 150), 4 LINE (220, 150)-(220, 140), 4 LINE (220, 140)-(210, 140), 4 SLEEP 1 LINE (225, 135)-(205, 135), 9 LINE (225, 135)-(225, 155), 9 LINE (225, 155)-(205, 155), 9 LINE (205, 155)-(205, 135), 9 SLEEP 1 LINE (230, 130)-(200, 130), 4 LINE (200, 130)-(200, 160), 4 LINE (200, 160)-(230, 160), 4 LINE (230, 160)-(230, 130), 4 SLEEP 1 LINE (235, 125)-(195, 125), 9 LINE (195, 125)-(195, 165), 9 LINE (195, 165)-(235, 165), 9 LINE (235, 165)-(235, 125), 9 SLEEP 3 LINE (280, 160)-(240, 160), 4 LINE (240, 160)-(240, 200), 4 LINE (240, 200)-(280, 200), 4 LINE (280, 200)-(280, 160), 4 SLEEP 1 LINE (275, 165)-(245, 165), 9 LINE (245, 165)-(245, 195), 9 LINE (245, 195)-(275, 195), 9 LINE (275, 195)-(275, 165), 9 SLEEP 1 LINE (270, 170)-(250, 170), 4 LINE (250, 170)-(250, 190), 4 LINE (250, 190)-(270, 190), 4 LINE (270, 190)-(270, 170), 4 SLEEP 1 LINE (265, 175)-(255, 175), 9 LINE (255, 175)-(255, 185), 9 LINE (255, 185)-(265, 185), 9 LINE (265, 185)-(265, 175), 9 SLEEP 5 CLS RETURN WRONG: CLS SCREEN 7 COLOR 9 LOCATE 10, 15 PRINT "YOU KNOW WHAT?" SLEEP 3 CLS y: LINE (45, 30)-(35, 30), 4 LINE (35, 30)-(35, 55), 4 LINE (35, 55)-(50, 60), 4 LINE (50, 60)-(50, 90), 4 LINE (50, 90)-(60, 90), 4 LINE (60, 90)-(60, 60), 4 LINE (60, 60)-(70, 55), 4 LINE (70, 55)-(70, 30), 4 LINE (70, 30)-(60, 30), 4 LINE (60, 30)-(60, 50), 4 LINE (60, 50)-(45, 50), 4 LINE (45, 50)-(45, 30), 4 O: LINE (110, 30)-(85, 30), 4 LINE (85, 30)-(85, 90), 4 LINE (85, 90)-(110, 90), 4 LINE (110, 90)-(110, 30), 4 LINE (105, 40)-(90, 40), 4 LINE (90, 40)-(90, 80), 4 LINE (90, 80)-(105, 80), 4 LINE (105, 80)-(105, 40), 4 U: LINE (135, 30)-(125, 30), 4 LINE (125, 30)-(125, 90), 4 LINE (125, 90)-(155, 90), 4 LINE (155, 90)-(155, 30), 4 LINE (155, 30)-(145, 30), 4 LINE (145, 30)-(145, 80), 4 LINE (145, 80)-(135, 80), 4 LINE (135, 80)-(135, 30), 4 SLEEP 4 CLS LINE (70, 30)-(35, 30), 4 LINE (35, 30)-(35, 65), 4 LINE (35, 65)-(55, 65), 4 LINE (55, 65)-(55, 80), 4 LINE (55, 80)-(35, 80), 4 LINE (35, 80)-(35, 90), 4 LINE (35, 90)-(70, 90), 4 LINE (70, 90)-(70, 55), 4 LINE (70, 55)-(45, 55), 4 LINE (45, 55)-(45, 40), 4 LINE (45, 40)-(70, 40), 4 LINE (70, 40)-(70, 30), 4 su: LINE (85, 30)-(95, 30), 4 LINE (85, 90)-(85, 30), 4 LINE (95, 30)-(95, 80), 4 LINE (105, 30)-(115, 30), 4 LINE (105, 30)-(105, 80), 4 LINE (115, 30)-(115, 90), 4 LINE (115, 90)-(85, 90), 4 LINE (105, 80)-(95, 80), 4 C: LINE (155, 30)-(125, 30), 4 LINE (125, 30)-(125, 90), 4 LINE (125, 90)-(155, 90), 4 LINE (155, 90)-(155, 80), 4 LINE (155, 80)-(135, 80), 4 LINE (135, 80)-(135, 40), 4 LINE (135, 40)-(155, 40), 4 LINE (155, 40)-(155, 30), 4 K: LINE (175, 30)-(165, 30), 4 LINE (165, 30)-(165, 90), 4 LINE (165, 90)-(175, 90), 4 LINE (175, 90)-(175, 65), 4 LINE (175, 65)-(190, 90), 4 LINE (190, 90)-(205, 90), 4 LINE (205, 90)-(180, 60), 4 LINE (180, 60)-(205, 35), 4 LINE (205, 35)-(200, 30), 4 LINE (200, 30)-(175, 50), 4 LINE (175, 50)-(175, 30), 4 LINE (175, 30)-(165, 30), 4 MARK: LINE (215, 30)-(235, 30), 4 LINE (235, 30)-(220, 70), 4 LINE (220, 70)-(215, 30), 4 LINE (215, 80)-(225, 80), 4 LINE (225, 80)-(225, 90), 4 LINE (225, 90)-(215, 90), 4 LINE (215, 80)-(215, 90), 4 SLEEP 3 CLS LOCATE 10, 20 PRINT "YOU NEED TO BE PRACTING YOUR MATH " RETURN THEEND: PRINT "BYE " SLEEP 3 CLS B: LINE (75, 80)-(55, 80), 9 LINE (55, 80)-(55, 120), 9 LINE (55, 120)-(75, 120), 9 LINE (75, 120)-(75, 100), 9 LINE (75, 100)-(55, 100), 9 LINE (75, 100)-(75, 80), 9 SLEEP 1 LINE (70, 85)-(60, 85), 9 LINE (60, 85)-(60, 95), 9 LINE (60, 95)-(70, 95), 9 LINE (70, 95)-(70, 85), 9 SLEEP 1 LINE (70, 105)-(60, 105), 9 LINE (60, 105)-(60, 115), 9 LINE (60, 115)-(70, 115), 9 LINE (70, 115)-(70, 105), 9 SLEEP 1 Y2: LINE (105, 80)-(100, 80), 4 LINE (100, 80)-(95, 90), 4 LINE (95, 90)-(90, 90), 4 LINE (85, 80)-(80, 80), 4 SLEEP 1 LINE (80, 80)-(90, 95), 4 LINE (90, 95)-(90, 120), 4 LINE (90, 120)-(95, 120), 4 LINE (95, 120)-(95, 95), 4 LINE (95, 95)-(105, 80), 4 SLEEP 1 E: LINE (130, 80)-(110, 80), 9 LINE (110, 80)-(110, 120), 9 LINE (110, 120)-(130, 120), 9 LINE (130, 120)-(130, 110), 9 SLEEP 1 LINE (130, 110)-(115, 110), 9 LINE (115, 110)-(115, 105), 9 LINE (115, 105)-(130, 105), 9 LINE (130, 105)-(130, 95), 9 SLEEP 1 LINE (130, 95)-(115, 95), 9 LINE (115, 95)-(115, 90), 9 LINE (115, 90)-(130, 90), 9 LINE (130, 90)-(130, 80), 9 SLEEP 1 MARK2: LINE (145, 80)-(150, 80), 4 LINE (150, 80)-(150, 110), 4 LINE (150, 110)-(145, 110), 4 LINE (145, 110)-(145, 80), 4 SLEEP 1 LINE (145, 115)-(150, 115), 4 LINE (150, 115)-(150, 120), 4 LINE (150, 120)-(145, 120), 4 LINE (145, 120)-(145, 115), 4 SLEEP 4 BIGSTAR: LINE (250, 35)-(235, 60), 14 LINE (235, 60)-(200, 60), 14 SLEEP 1 LINE (200, 60)-(230, 80), 14 LINE (230, 80)-(210, 115), 14 SLEEP 1 LINE (210, 115)-(250, 100), 14 LINE (250, 100)-(290, 120), 14 SLEEP 1 LINE (290, 120)-(275, 80), 14 LINE (275, 80)-(300, 60), 14 SLEEP 1 LINE (300, 60)-(265, 60), 14 LINE (265, 60)-(250, 35), 14 SLEEP 2 SMALLSTAR1: LINE (185, 5)-(175, 20), 14 LINE (175, 20)-(160, 20), 14 SLEEP 1 LINE (160, 20)-(175, 35), 14 LINE (175, 35)-(165, 50), 14 SLEEP 1 LINE (165, 50)-(185, 40), 14 LINE (185, 40)-(205, 50), 14 SLEEP 1 LINE (205, 50)-(195, 30), 14 LINE (195, 30)-(210, 20), 14 SLEEP 1 LINE (210, 20)-(195, 20), 14 LINE (195, 20)-(185, 5), 14 SLEEP 2 SMALLSTAR2: LINE (300, 140)-(295, 150), 14 LINE (295, 150)-(285, 150), 14 SLEEP 1 LINE (285, 150)-(295, 160), 14 LINE (295, 160)-(290, 170), 14 SLEEP 1 LINE (290, 170)-(300, 165), 14 LINE (300, 165)-(310, 170), 14 SLEEP 1 LINE (310, 170)-(305, 160), 14 LINE (305, 160)-(315, 150), 14 SLEEP 1 LINE (315, 150)-(305, 150), 14 LINE (305, 150)-(300, 140), 14 SLEEP 3