REM Walter Anderson

REM 19-9-02



CLS
INPUT "What is your Name"; a$
CLS
LOCATE 11, 35
PRINT "What they do "; a$
SLEEP 2
CLS
Start:
PRINT "A.SPORTS"
PRINT "B.JUNK"
PRINT "C.QUIT"
INPUT "Which test would you like to take(caps please)"; B$
SCREEN 12
LINE (50, 80)-(550, 180), 0, BF
LINE (48, 79)-(552, 181), 4, B
LINE (47, 78)-(553, 182), 4, B
LINE (100, 120)-(500, 140), 4, B
LINE (99, 120)-(501, 140), 4, B

FOR X = 122 TO 501 STEP 5
  LINE (102, 122)-(X, 138), 9, BF
  FOR hld = 1 TO 3000: NEXT
  LOCATE 7, 30: PRINT "  TEST IS NOW LOADING.... "
  NEXT
 CLS
IF B$ = "A" THEN GOSUB SPORTS
IF B$ = "B" THEN GOSUB JUNK
IF B$ = "C" THEN GOSUB QUIT

SPORTS:
q1:
IF nw > 2 THEN GOTO q2
LOCATE 30, 30
PRINT " Welcome to the sports Quiz"
SLEEP 2
CLS
PRINT "First Question"
SLEEP 3
CLS
LOCATE 11, 5
INPUT "What does NFL stand for(all caps please)"; A1$
IF A1$ = "NATIONAL FOOTBALL LEAGUE" THEN PRINT "correct"
IF A1$ = "NATIONAL FOOTBALL LEAGUE" THEN GOTO q2:
 SLEEP 1
 CLS
IF A1$ <> "NATIONAL FOOTBALL LEAGUE" THEN PRINT "TRY AGAIN"
IF A1$ <> "NATIONAL FOOTBALL LEAGUE" THEN nw = nw + 1
GOTO q1
SLEEP 2
CLS
PRINT "Get ready for question 2"

q2:

INPUT "What city is the football hall of fame located"; z$
IF z$ = "OHIO" THEN PRINT "correct"
IF z$ = "OHIO" THEN GOTO q3
IF z$ <> "OHIO" THEN PRINT "sorry try again"
IF z$ <> "OHIO" THEN nw = nw + 1
IF z$ <> "OHIO" GOTO q2
IF nw > 2 THEN GOTO q3
SLEEP 1
CLS

q3:
IF nw > 2 THEN GOTO QUIT
INPUT "What team holds the most  NBA championships (full name)"; X$
IF X$ = "BOSTON CELTICS" THEN PRINT "correct"
IF X$ = "BOSTON CELTICS" THEN GOTO QUIT
IF X$ <> "BOSTON CELTICS" THEN PRINT "TRY AGAIN"
IF X$ <> "BOSTON CELTICS" THEN nw = nw + 1
SLEEP 2

CLS
JUNK:
INPUT " Please enter a word"; g$
INPUT "How many letters do u want to see"; q1
PRINT LEFT$(g$, q1)
SLEEP 1
PRINT RIGHT$(g$, q1)
SLEEP 1
CLS

FOR X = 1 TO 10
INPUT "NAME"; NAME$(X)
NEXT X
FOR X = 1 TO 10
PRINT NAME$(X)
NEXT X
SLEEP 2
CLS

INPUT "GIVE ME A NUMBER"; N1
INPUT "GIVE ME ANOTHER NUMBER"; N2
t = N1 + N2
PRINT t
SLEEP 2
CLS
INPUT "ENTER A NUMBER"; C1
INPUT "ENTER ANOTHER NUMBER"; C2
t = C1 - C2
PRINT t
SLEEP 2
CLS
INPUT "ENTER A NUMBER"; B1
INPUT "ENTER ANOTHER NUMBER"; B2
t = B1 * B2
PRINT t
SLEEP 2
CLS
INPUT "ENTER A NUMBER"; B1
INPUT "ENTER ANOTHER NUMBER"; B2
t = B1 / B2
PRINT t
SLEEP 2
CLS
FOR X = 1 TO 5
a(X) = 99
NEXT X
FOR X = 1 TO 5
a(X) = 99
NEXT X
FOR X = 1 TO 5
PRINT a(X)
NEXT X
SLEEP 1
CLS
SLEEP 1

INPUT "enter a word please"; W$
PRINT MID$(W$, 2, 2)

INPUT "word please"; f$
PRINT LEN(f$)

INPUT "Enter a numbr with a decimal in it"; f1
PRINT INT(f1)

FOR X = 1 TO 5
READ FIR$
PRINT FIR$
DATA CHELSEY
DATA Mozart
DATA Matt
DATA Tamika
DATA marc
NEXT X
SLEEP 2
CLS

INPUT "ENTER A NUMBER"; x1
INPUT "ENTER ANOTHER ONE"; x2
INPUT "ENTER ONE MORE"; x3
R = x1 + x2 + x3 + 496
PRINT R
PRINT "THE SQUARE ROOT IS.."; SQR(R)
SLEEP 2
CLS
FOR y = 1 TO 5
READ Car$
PRINT Car$
NEXT y
DATA


RESTORE
FOR X = 1 TO 10
INPUT "NAME"; NAME$(X)
NEXT X
FOR X = 1 TO 10
PRINT N$(X)
NEXT X




QUIT:
CLS
LOCATE 11, 35
PRINT "THIS COMPUTER WILL BLOW UP IN "
SLEEP 3
CLS
SCREEN 7
CIRCLE (175, 95), 43.5, 7
PAINT (175, 95), 7
LINE (160, 60)-(160, 55), 7
LINE (190, 59.5)-(190, 55), 7
LINE (160, 55)-(190, 55), 7
PAINT (170, 56), 7
LINE (173, 55)-(173, 50)
LINE (173, 50)-(176.5, 47)
LINE (177, 55)-(177, 52)
LINE (177, 52)-(180, 48)
LINE (180, 48)-(180, 42)
LINE (176.5, 47)-(176.5, 39)
LINE (180, 42)-(182, 40)
LINE (176.5, 40)-(180, 37)
LINE (180, 37)-(182, 40)

REM FLARE
LINE (173, 54)-(155, 50), 4
LINE (154, 50)-(168, 48), 4
LINE (168, 48)-(154, 41), 4
LINE (154, 41)-(168, 43), 4
LINE (168, 43)-(158, 33), 4
LINE (158, 33)-(170, 38), 4
LINE (170, 38)-(180, 32), 4
LINE (180, 32)-(187, 38), 4
LINE (187, 38)-(197, 35), 4
LINE (197, 35)-(190, 43), 4
LINE (190, 43)-(200, 45), 4
LINE (200, 45)-(190, 49), 4
LINE (190, 49)-(200, 51), 4
LINE (200, 51)-(173, 54), 4
LOCATE 11, 40
SLEEP 2
PRINT "5"
SLEEP 1
CLS
SCREEN 7
CIRCLE (175, 95), 43.5, 7
PAINT (175, 95), 7
LINE (160, 60)-(160, 55), 7
LINE (190, 59.5)-(190, 55), 7
LINE (160, 55)-(190, 55), 7
PAINT (170, 56), 7
LINE (173, 55)-(173, 50)
LINE (173, 50)-(176.5, 47)
LINE (177, 55)-(177, 52)
LINE (177, 52)-(180, 48)
LINE (180, 48)-(180, 42)
LINE (176.5, 47)-(176.5, 39)
LINE (180, 42)-(182, 40)
LINE (176.5, 40)-(180, 37)
LINE (180, 37)-(182, 40)

REM FLARE
LINE (173, 54)-(155, 50), 4
LINE (154, 50)-(168, 48), 4
LINE (168, 48)-(154, 41), 4
LINE (154, 41)-(168, 43), 4
LINE (168, 43)-(158, 33), 4
LINE (158, 33)-(170, 38), 4
LINE (170, 38)-(180, 32), 4
LINE (180, 32)-(187, 38), 4
LINE (187, 38)-(197, 35), 4
LINE (197, 35)-(190, 43), 4
LINE (190, 43)-(200, 45), 4
LINE (200, 45)-(190, 49), 4
LINE (190, 49)-(200, 51), 4
LINE (200, 51)-(173, 54), 4

LOCATE 11, 40
PRINT "4"
SLEEP 1
CLS
SCREEN 7
CIRCLE (175, 95), 43.5, 7
PAINT (175, 95), 7
LINE (160, 60)-(160, 55), 7
LINE (190, 59.5)-(190, 55), 7
LINE (160, 55)-(190, 55), 7
PAINT (170, 56), 7
LINE (173, 55)-(173, 50)
LINE (173, 50)-(176.5, 47)
LINE (177, 55)-(177, 52)
LINE (177, 52)-(180, 48)
LINE (180, 48)-(180, 42)
LINE (176.5, 47)-(176.5, 39)
LINE (180, 42)-(182, 40)
LINE (176.5, 40)-(180, 37)
LINE (180, 37)-(182, 40)

REM FLARE
LINE (173, 54)-(155, 50), 4
LINE (154, 50)-(168, 48), 4
LINE (168, 48)-(154, 41), 4
LINE (154, 41)-(168, 43), 4
LINE (168, 43)-(158, 33), 4
LINE (158, 33)-(170, 38), 4
LINE (170, 38)-(180, 32), 4
LINE (180, 32)-(187, 38), 4
LINE (187, 38)-(197, 35), 4
LINE (197, 35)-(190, 43), 4
LINE (190, 43)-(200, 45), 4
LINE (200, 45)-(190, 49), 4
LINE (190, 49)-(200, 51), 4
LINE (200, 51)-(173, 54), 4

LOCATE 11, 40
PRINT "3"
SLEEP 1
CLS
SCREEN 7
CIRCLE (175, 95), 43.5, 7
PAINT (175, 95), 7
LINE (160, 60)-(160, 55), 7
LINE (190, 59.5)-(190, 55), 7
LINE (160, 55)-(190, 55), 7
PAINT (170, 56), 7
LINE (173, 55)-(173, 50)
LINE (173, 50)-(176.5, 47)
LINE (177, 55)-(177, 52)
LINE (177, 52)-(180, 48)
LINE (180, 48)-(180, 42)
LINE (176.5, 47)-(176.5, 39)
LINE (180, 42)-(182, 40)
LINE (176.5, 40)-(180, 37)
LINE (180, 37)-(182, 40)

REM FLARE
LINE (173, 54)-(155, 50), 4
LINE (154, 50)-(168, 48), 4
LINE (168, 48)-(154, 41), 4
LINE (154, 41)-(168, 43), 4
LINE (168, 43)-(158, 33), 4
LINE (158, 33)-(170, 38), 4
LINE (170, 38)-(180, 32), 4
LINE (180, 32)-(187, 38), 4
LINE (187, 38)-(197, 35), 4
LINE (197, 35)-(190, 43), 4
LINE (190, 43)-(200, 45), 4
LINE (200, 45)-(190, 49), 4
LINE (190, 49)-(200, 51), 4
LINE (200, 51)-(173, 54), 4

LOCATE 11, 40
PRINT "2"
SLEEP 1
CLS
SCREEN 7
CIRCLE (175, 95), 43.5, 7
PAINT (175, 95), 7
LINE (160, 60)-(160, 55), 7
LINE (190, 59.5)-(190, 55), 7
LINE (160, 55)-(190, 55), 7
PAINT (170, 56), 7
LINE (173, 55)-(173, 50)
LINE (173, 50)-(176.5, 47)
LINE (177, 55)-(177, 52)
LINE (177, 52)-(180, 48)
LINE (180, 48)-(180, 42)
LINE (176.5, 47)-(176.5, 39)
LINE (180, 42)-(182, 40)
LINE (176.5, 40)-(180, 37)
LINE (180, 37)-(182, 40)

REM FLARE
LINE (173, 54)-(155, 50), 4
LINE (154, 50)-(168, 48), 4
LINE (168, 48)-(154, 41), 4
LINE (154, 41)-(168, 43), 4
LINE (168, 43)-(158, 33), 4
LINE (158, 33)-(170, 38), 4
LINE (170, 38)-(180, 32), 4
LINE (180, 32)-(187, 38), 4
LINE (187, 38)-(197, 35), 4
LINE (197, 35)-(190, 43), 4
LINE (190, 43)-(200, 45), 4
LINE (200, 45)-(190, 49), 4
LINE (190, 49)-(200, 51), 4
LINE (200, 51)-(173, 54), 4

LOCATE 11, 40
PRINT "1"
SLEEP 1
CLS
SCREEN 7
CIRCLE (175, 95), 43.5, 7
PAINT (175, 95), 7
LINE (160, 60)-(160, 55), 7
LINE (190, 59.5)-(190, 55), 7
LINE (160, 55)-(190, 55), 7
PAINT (170, 56), 7
LINE (173, 55)-(173, 50)
LINE (173, 50)-(176.5, 47)
LINE (177, 55)-(177, 52)
LINE (177, 52)-(180, 48)
LINE (180, 48)-(180, 42)
LINE (176.5, 47)-(176.5, 39)
LINE (180, 42)-(182, 40)
LINE (176.5, 40)-(180, 37)
LINE (180, 37)-(182, 40)

REM FLARE
LINE (173, 54)-(155, 50), 4
LINE (154, 50)-(168, 48), 4
LINE (168, 48)-(154, 41), 4
LINE (154, 41)-(168, 43), 4
LINE (168, 43)-(158, 33), 4
LINE (158, 33)-(170, 38), 4
LINE (170, 38)-(180, 32), 4
LINE (180, 32)-(187, 38), 4
LINE (187, 38)-(197, 35), 4
LINE (197, 35)-(190, 43), 4
LINE (190, 43)-(200, 45), 4
LINE (200, 45)-(190, 49), 4
LINE (190, 49)-(200, 51), 4
LINE (200, 51)-(173, 54), 4

LOCATE 11, 40
PRINT "0"
SLEEP 1
CLS
SCREEN 7
CIRCLE (175, 95), 43.5, 7
PAINT (175, 95), 7
LINE (160, 60)-(160, 55), 7
LINE (190, 59.5)-(190, 55), 7
LINE (160, 55)-(190, 55), 7
PAINT (170, 56), 7
LINE (173, 55)-(173, 50)
LINE (173, 50)-(176.5, 47)
LINE (177, 55)-(177, 52)
LINE (177, 52)-(180, 48)
LINE (180, 48)-(180, 42)
LINE (176.5, 47)-(176.5, 39)
LINE (180, 42)-(182, 40)
LINE (176.5, 40)-(180, 37)
LINE (180, 37)-(182, 40)

REM FLARE
LINE (173, 54)-(155, 50), 4
LINE (154, 50)-(168, 48), 4
LINE (168, 48)-(154, 41), 4
LINE (154, 41)-(168, 43), 4
LINE (168, 43)-(158, 33), 4
LINE (158, 33)-(170, 38), 4
LINE (170, 38)-(180, 32), 4
LINE (180, 32)-(187, 38), 4
LINE (187, 38)-(197, 35), 4
LINE (197, 35)-(190, 43), 4
LINE (190, 43)-(200, 45), 4
LINE (200, 45)-(190, 49), 4
LINE (190, 49)-(200, 51), 4
LINE (200, 51)-(173, 54), 4

LOCATE 11, 40
PRINT "BOOM"
SLEEP 1
CLS
PALETTE 0, 1
SCREEN 1
LINE (138, 35)-(288, 165), 3, BF
LINE (20, 10)-(160, 100), 2, BF
DIM a%(200)
FOR x3 = 1 TO 180
FOR i% = 0 TO 3
a%(i%) = (a%(i%) + 1) MOD 16
NEXT i%
PALETTE USING a%(0)
NEXT x3
SLEEP 1
CLS

SUB FLASHBOX

END SUB