REM frank ling
main:
CLS
SCREEN 12
lvalue = 1
REM menu
DO

LOCATE 7, 33
COLOR 7
PRINT "Main Menu:"
LOCATE 8, 33
PRINT "----------"

LOCATE 10, 34
IF lvalue = 1 THEN COLOR 1 ELSE COLOR 7
PRINT "Play Game"
LOCATE 12, 34
IF lvalue = 2 THEN COLOR 1 ELSE COLOR 7
PRINT "SortSort"
LOCATE 14, 35
IF lvalue = 3 THEN COLOR 1 ELSE COLOR 7
PRINT "Quiz"
LOCATE 16, 32
IF lvalue = 4 THEN COLOR 1 ELSE COLOR 7
PRINT "Miscellaneous"
LOCATE 18, 35
IF lvalue = 5 THEN COLOR 1 ELSE COLOR 7
PRINT "Exit"

a$ = INKEY$

IF RIGHT$(a$, 1) = "H" THEN lvalue = lvalue - 1
IF RIGHT$(a$, 1) = "P" THEN lvalue = lvalue + 1

IF lvalue < 1 THEN lvalue = 5
IF lvalue > 5 THEN lvalue = 1

IF a$ = CHR$(13) AND lvalue = 1 THEN GOTO gamestart
IF a$ = CHR$(13) AND lvalue = 2 THEN GOSUB sortsort
IF a$ = CHR$(13) AND lvalue = 3 THEN GOSUB quiz
IF a$ = CHR$(13) AND lvalue = 4 THEN GOTO misc
IF a$ = CHR$(13) AND lvalue = 5 THEN END

LOOP

gamestart:
SCREEN 7, 0, 0, 0
PRINT "Use the up and down arrows to navigate"
PRINT "Press space bar to shoot"
PRINT "The objective is to shoot the other"
PRINT "flame before it reaches the other"
PRINT "end"
PRINT
PRINT "Press any key to continue"
DO WHILE INKEY$ = ""
LOOP

REM FIRESPRITE
SCREEN 7, 0, 1, 0
REDIM firesprite(20 * 20)

SLEEP 1

qlen = 20
wlen = 20

FOR w = 1 TO wlen
	FOR q = 1 TO qlen
	READ z
	PSET (q, w), z
	NEXT q
NEXT w


DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,04,00,00,00,00,00,00,04,04,00,00,00,00,00,00,04,00,00
DATA 00,04,04,00,00,00,00,04,04,04,04,04,04,00,00,00,00,04,04,00
DATA 00,04,00,00,00,00,04,04,04,12,12,04,04,04,00,00,00,00,04,00
DATA 00,04,04,00,00,00,04,04,04,12,12,04,04,04,00,00,00,04,04,00
DATA 00,04,04,04,00,04,04,12,12,12,12,12,12,04,04,00,04,04,04,00
DATA 00,04,04,12,04,04,12,12,12,12,12,12,12,12,04,04,12,04,04,00
DATA 00,00,04,12,12,04,02,12,12,12,12,12,12,02,04,12,12,04,00,00
DATA 00,00,04,04,12,12,02,02,12,12,12,12,02,02,12,12,04,04,00,00
DATA 00,00,04,04,12,12,02,02,02,12,12,02,02,02,12,12,04,04,00,00
DATA 00,00,04,12,12,12,12,12,12,14,14,12,12,12,12,12,12,04,00,00
DATA 00,00,12,12,12,12,12,12,14,14,14,14,12,12,12,12,12,12,00,00
DATA 00,00,12,12,12,12,12,14,14,14,14,14,14,12,12,12,12,12,00,00
DATA 00,00,00,12,12,12,14,00,14,14,14,14,00,14,12,12,12,00,00,00
DATA 00,00,00,12,12,12,14,14,00,14,14,00,14,14,12,12,12,00,00,00
DATA 00,00,00,00,12,12,12,14,14,00,00,14,14,12,12,12,00,00,00,00
DATA 00,00,00,00,00,12,12,12,14,14,14,14,12,12,12,00,00,00,00,00
DATA 00,00,00,00,00,00,00,12,12,12,12,12,12,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,



GET (0, 0)-(qlen, wlen), firesprite
CLS

REM fire1
REDIM fire1(10 * 10)
e = 10
r = 10
FOR r = 1 TO 10
	FOR e = 1 TO 10
		READ z
		PSET (e, r), z
	NEXT e
  NEXT r

DATA 00,00,00,04,00,00,04,00,00,00
DATA 00,00,04,04,00,04,04,04,00,00
DATA 00,00,04,04,04,04,04,04,00,00
DATA 00,04,04,12,12,04,04,04,00,00
DATA 00,04,04,12,12,04,04,00,00,00
DATA 00,04,04,12,12,04,04,00,00,00
DATA 00,04,12,12,12,04,04,04,00,00
DATA 00,04,12,14,14,12,04,04,00,00
DATA 04,04,12,14,14,14,12,04,00,00
DATA 04,04,12,14,14,14,12,04,00,00
GET (0, 0)-(10, 10), fire1
CLS

GOTO playstart

REM movement
randomizer:
DO
b = INT(RND * 170)
IF b = 5 THEN RETURN
IF b = 15 THEN RETURN
IF b = 25 THEN RETURN
IF b = 35 THEN RETURN
IF b = 45 THEN RETURN
IF b = 55 THEN RETURN
IF b = 65 THEN RETURN
IF b = 75 THEN RETURN
IF b = 85 THEN RETURN
IF b = 95 THEN RETURN
IF b = 105 THEN RETURN
IF b = 115 THEN RETURN
IF b = 125 THEN RETURN
IF b = 135 THEN RETURN
IF b = 145 THEN RETURN
IF b = 155 THEN RETURN
LOOP

playstart:
GOSUB randomizer
w = 0
enemy1 = 300

DO
a$ = INKEY$

REM FIRESPRITE
PUT (0, w), firesprite
IF a$ = CHR$(32) THEN GOTO fire1
IF RIGHT$(a$, 1) = "H" THEN w = w - 10
IF RIGHT$(a$, 1) = "P" THEN w = w + 10
IF w > 160 THEN w = 0
IF w < 0 THEN w = 160

REM ENEMY
PUT (enemy1, b), fire1
enemy1 = enemy1 - 1
IF enemy1 < 0 THEN GOTO lose

REM BLACKHOLE
LINE (0, 180)-(15, 200), 0, BF

PCOPY 1, 0
CLS
LOOP


fire1:
REM fire projection
lf1 = b
e1 = w
e1 = e1 + 5
GOSUB randomizer
enemy2 = 300
r1 = 0

DO
a$ = INKEY$

REM FIRESPRITE
PUT (0, w), firesprite
IF RIGHT$(a$, 1) = "H" THEN w = w - 10
IF RIGHT$(a$, 1) = "P" THEN w = w + 10
IF w > 160 THEN w = 0
IF w < 0 THEN w = 160

REM ENEMY
PUT (enemy1, lf1), fire1
enemy1 = enemy1 - 1
IF enemy1 < 1 THEN GOTO lose

PUT (enemy2, b), fire1
enemy2 = enemy2 - 1
IF enemy2 < 1 THEN GOTO lose

REM MISSILE
PUT (r1, e1), fire1
r1 = r1 + 1
IF r1 > 305 THEN r1 = 0
IF r1 >= enemy1 AND lf1 = e1 THEN pointcount = pointcount + 1: r1 = 3: enemy1 = 3: lf1 = 180: e1 = 180: IF a$ = CHR$(32) THEN GOTO fire2

REM BLACKHOLE
LINE (0, 180)-(15, 200), 0, BF


PCOPY 1, 0
CLS
LOOP


fire2:
enemy3 = 300
lf2 = b
GOSUB randomizer
r2 = 0
e2 = w
e2 = e2 + 5

DO
a$ = INKEY$

REM FIRESPRITE
PUT (0, w), firesprite
IF RIGHT$(a$, 1) = "H" THEN w = w - 10
IF RIGHT$(a$, 1) = "P" THEN w = w + 10
IF w > 160 THEN w = 0
IF w < 0 THEN w = 160

REM ENEMY
PUT (enemy2, lf2), fire1
enemy2 = enemy2 - 1
IF enemy2 < 1 THEN GOTO lose

PUT (enemy3, b), fire1
enemy3 = enemy3 - 1
IF enemy3 < 1 THEN GOTO lose

REM MISSILE
PUT (r1, e1), fire1
r1 = r1 + 1
PUT (r2, e2), fire1
r2 = r2 + 1
IF r1 > 300 THEN r1 = 0
IF r2 > 300 THEN r2 = 0
IF r1 >= enemy1 AND lf1 = e1 THEN r1 = 3: enemy1 = 3: lf1 = 180
IF r2 >= enemy2 AND lf2 = e2 THEN pointcount = pointcount + 1: r2 = 3: enemy2 = 3: lf2 = 180: e2 = 180: IF a$ = CHR$(32) THEN GOTO fire3

REM BLACKHOLE
LINE (0, 180)-(15, 200), 0, BF

PCOPY 1, 0
CLS
LOOP

fire3:
enemy4 = 300
lf3 = b
GOSUB randomizer
r3 = 0
e3 = w
e3 = e3 + 5

DO
a$ = INKEY$

REM FIRESPRITE
PUT (0, w), firesprite
IF RIGHT$(a$, 1) = "H" THEN w = w - 10
IF RIGHT$(a$, 1) = "P" THEN w = w + 10
IF w > 160 THEN w = 0
IF w < 0 THEN w = 160

REM ENEMY
 PUT (enemy3, lf3), fire1
enemy3 = enemy3 - 1
IF enemy3 < 1 THEN GOTO lose

PUT (enemy4, b), fire1
enemy4 = enemy4 - 1
IF enemy4 < 1 THEN GOTO lose

REM MISSILE
PUT (r2, e2), fire1
r2 = r2 + 2
PUT (r3, e3), fire1
r3 = r3 + 1
IF r2 > 300 THEN r2 = 0
IF r3 > 300 THEN r3 = 0
IF r2 >= enemy2 AND lf2 = e2 THEN r2 = 3: enemy2 = 3: lf2 = 180: e2 = 180
IF r3 >= enemy3 AND lf3 = e3 THEN pointcount = pointcount + 1: r3 = 3: enemy3 = 3: lf3 = 180: e3 = 180: IF a$ = CHR$(32) THEN GOTO fire4

REM BLACKHOLE
LINE (0, 180)-(15, 200), 0, BF


PCOPY 1, 0
CLS
LOOP


fire4:
enemy5 = 300
lf4 = b
GOSUB randomizer
r4 = 0
e4 = w
e4 = e4 + 5

DO
a$ = INKEY$

REM FIRESPRITE
PUT (0, w), firesprite
IF RIGHT$(a$, 1) = "H" THEN w = w - 10
IF RIGHT$(a$, 1) = "P" THEN w = w + 10
IF w > 160 THEN w = 0
IF w < 0 THEN w = 160

REM ENEMY
PUT (enemy4, lf4), fire1
enemy4 = enemy4 - 1
IF enemy4 < 1 THEN GOTO lose

PUT (enemy5, b), fire1
enemy5 = enemy5 - 1
IF enemy5 < 1 THEN GOTO lose

REM MISSILE
PUT (r3, e3), fire1
r3 = r3 + 2
PUT (r4, e4), fire1
r4 = r4 + 1
IF r3 > 300 THEN r3 = 0
IF r4 > 300 THEN r4 = 0
IF r3 >= enemy3 AND lf3 = e3 THEN r3 = 3: enemy3 = 3: lf3 = 180: e3 = 180
IF r4 >= enemy4 AND lf4 = e4 THEN pointcount = pointcount + 1: r4 = 3: enemy4 = 3: lf4 = 180: e4 = 180: IF a$ = CHR$(32) THEN GOTO fire5

REM BLACKHOLE
LINE (0, 180)-(15, 200), 0, BF


PCOPY 1, 0
CLS
LOOP


fire5:
enemy6 = 300
lf5 = b
GOSUB randomizer
r5 = 0
e5 = w
e5 = e5 + 5

DO
a$ = INKEY$

REM FIRESPRITE
PUT (0, w), firesprite
IF RIGHT$(a$, 1) = "H" THEN w = w - 10
IF RIGHT$(a$, 1) = "P" THEN w = w + 10
IF w > 160 THEN w = 0
IF w < 0 THEN w = 160
REM ENEMY
PUT (enemy5, lf5), fire1
enemy5 = enemy5 - 1
IF enemy5 < 1 THEN GOTO lose

PUT (enemy6, b), fire1
enemy6 = enemy6 - 1
IF enemy6 < 1 THEN GOTO lose

REM MISSILE
PUT (r4, e4), fire1
r4 = r4 + 2
PUT (r5, e5), fire1
r5 = r5 + 1
IF r4 > 300 THEN r4 = 0
IF r5 > 300 THEN r5 = 0
IF r4 >= enemy4 AND lf4 = e4 THEN r4 = 3: enemy4 = 3: lf4 = 180: e4 = 180
IF r5 >= enemy5 AND lf5 = e5 THEN pointcount = pointcount + 1: r5 = 3: enemy5 = 3: lf5 = 180: e5 = 180: IF a$ = CHR$(32) THEN GOTO fire6

REM BLACKHOLE
LINE (0, 180)-(15, 200), 0, BF


PCOPY 1, 0
CLS
LOOP

fire6:
enemy7 = 300
lf6 = b
GOSUB randomizer
r6 = 0
e6 = w
e6 = e6 + 5

DO
a$ = INKEY$

REM FIRESPRITE
PUT (0, w), firesprite
IF RIGHT$(a$, 1) = "H" THEN w = w - 10
IF RIGHT$(a$, 1) = "P" THEN w = w + 10
IF w > 160 THEN w = 0
IF w < 0 THEN w = 160

REM ENEMY
PUT (enemy6, lf6), fire1
enemy6 = enemy6 - 1
IF enemy6 < 1 THEN GOTO lose

PUT (enemy7, b), fire1
enemy7 = enemy7 - 1
IF enemy7 < 1 THEN GOTO lose

REM MISSILE
PUT (r5, e5), fire1
r5 = r5 + 2
PUT (r6, e6), fire1
r6 = r6 + 1
IF r5 > 300 THEN r5 = 0
IF r6 > 300 THEN r6 = 0
IF r5 >= enemy5 AND lf5 = e5 THEN r5 = 3: enemy5 = 3: lf5 = 180: e5 = 180
IF r6 >= enemy6 AND lf6 = e6 THEN pointcount = pointcount + 1: r6 = 3: enemy6 = 3: lf6 = 180: e6 = 180: IF a$ = CHR$(32) THEN GOTO fire7

REM BLACKHOLE
LINE (0, 180)-(15, 200), 0, BF


PCOPY 1, 0
CLS
LOOP


fire7:
enemy8 = 300
lf7 = b
GOSUB randomizer
r7 = 0
e7 = w
e7 = e7 + 5

DO
a$ = INKEY$

REM FIRESPRITE
PUT (0, w), firesprite
IF RIGHT$(a$, 1) = "H" THEN w = w - 10
IF RIGHT$(a$, 1) = "P" THEN w = w + 10
IF w > 160 THEN w = 0
IF w < 0 THEN w = 160

REM ENEMY
PUT (enemy7, lf7), fire1
enemy7 = enemy7 - 1
IF enemy7 < 1 THEN GOTO lose

PUT (enemy8, b), fire1
enemy8 = enemy8 - 1
IF enemy8 < 1 THEN GOTO lose

REM MISSILE
PUT (r6, e6), fire1
r6 = r6 + 2
PUT (r7, e7), fire1
r7 = r7 + 1
IF r6 > 300 THEN r6 = 0
IF r7 > 300 THEN r7 = 0
IF r6 >= enemy6 AND lf6 = e6 THEN r6 = 3: enemy6 = 3: lf6 = 180: e6 = 180
IF r7 >= enemy7 AND lf7 = e7 THEN pointcount = pointcount + 1: r7 = 3: enemy7 = 3: lf7 = 180: e7 = 180: IF a$ = CHR$(32) THEN GOTO fire8

REM BLACKHOLE
LINE (0, 180)-(15, 200), 0, BF


PCOPY 1, 0
CLS
LOOP


fire8:
enemy9 = 300
lf8 = b
GOSUB randomizer
r8 = 0
e8 = w
e8 = e8 + 5

DO
a$ = INKEY$

REM FIRESPRITE
PUT (0, w), firesprite
IF RIGHT$(a$, 1) = "H" THEN w = w - 10
IF RIGHT$(a$, 1) = "P" THEN w = w + 10
IF w > 160 THEN w = 0
IF w < 0 THEN w = 160

REM ENEMY
PUT (enemy8, lf8), fire1
enemy8 = enemy8 - 1
IF enemy8 < 1 THEN GOTO lose

PUT (enemy9, b), fire1
enemy9 = enemy9 - 1
IF enemy9 < 1 THEN GOTO lose

REM MISSILE
PUT (r7, e7), fire1
r7 = r7 + 2
PUT (r8, e8), fire1
r8 = r8 + 1
IF r7 > 300 THEN r7 = 0
IF r8 > 300 THEN r8 = 0
IF r7 >= enemy7 AND lf7 = e7 THEN r7 = 3: enemy7 = 3: lf7 = 180: e7 = 180
IF r8 >= enemy8 AND lf8 = e8 THEN pointcount = pointcount + 1: r8 = 3: enemy8 = 3: lf8 = 180: e8 = 180: IF a$ = CHR$(32) THEN GOTO fire9

REM BLACKHOLE
LINE (0, 180)-(15, 200), 0, BF


PCOPY 1, 0
CLS
LOOP


fire9:
enemy10 = 300
lf9 = b
GOSUB randomizer
r9 = 0
e9 = w
e9 = e9 + 5

DO
a$ = INKEY$

REM FIRESPRITE
PUT (0, w), firesprite
IF RIGHT$(a$, 1) = "H" THEN w = w - 10
IF RIGHT$(a$, 1) = "P" THEN w = w + 10
IF w > 160 THEN w = 0
IF w < 0 THEN w = 160

REM ENEMY
PUT (enemy9, lf9), fire1
enemy9 = enemy9 - 1
IF enemy9 < 1 THEN GOTO lose

PUT (enemy10, b), fire1
enemy10 = enemy10 - 1
IF enemy10 < 1 THEN GOTO lose

REM MISSILE
PUT (r8, e8), fire1
r8 = r8 + 2
PUT (r9, e9), fire1
r9 = r9 + 1
IF r8 > 300 THEN r8 = 0
IF r9 > 300 THEN r9 = 0
IF r8 >= enemy8 AND lf8 = e8 THEN r8 = 3: enemy8 = 3: lf8 = 180: e8 = 180
IF r9 >= enemy9 AND lf9 = e9 THEN pointcount = pointcount + 1: r9 = 3: enemy9 = 3: lf9 = 180: e9 = 180: GOTO win

REM BLACKHOLE
LINE (0, 180)-(15, 200), 0, BF


PCOPY 1, 0
CLS
LOOP


'fire10:
'lf10 = b
'GOSUB randomizer
'r10 = 0
'e10 = w
'e10 = e10 + 5

'DO
'a$ = INKEY$

'REM FIRESPRITE
'PUT (0, w), firesprite
'IF RIGHT$(a$, 1) = "H" THEN w = w - 10
'IF RIGHT$(a$, 1) = "P" THEN w = w + 10
'IF w > 160 THEN w = 0
'IF w < 0 THEN w = 160

'REM ENEMY
'PUT (enemy10, lf10), fire1
'enemy10 = enemy10 - 1
'IF enemy10 < 1 THEN GOTO lose

'REM MISSILE
'PUT (r9, e9), fire1
'r9 = r9 + 2
'PUT (r10, e10), fire1
'r10 = r10 + 1
'IF r9 > 300 THEN r9 = 0
'IF r10 > 300 THEN r10 = 0
'IF r9 >= enemy9 AND lf9 = e9 THEN r9 = 3: enemy9 = 3: lf9 = 180: e9 = 180: GOTO win
'IF r10 >= enemy10 AND lf10 = e10 THEN r10 = 3: enemy10 = 3: lf10 = 180: e10 = 180

'REM BLACKHOLE
'LINE (0, 180)-(15, 200), 0, BF


'PCOPY 1, 0
'CLS
'LOOP

REM WIN
win:
SCREEN 7, 0, 0, 0
CLS

PRINT "You WIN!!"
SLEEP 3: CLS
RESTORE
GOTO main

REM LOSE
lose:
SCREEN 7, 0, 0, 0
CLS

PRINT "You Lose"
SLEEP 3: CLS
RESTORE
GOTO main


quiz:
CLS
PRINT "     Sugar gliders are a type of marsupial that are part of the"
PRINT "possum family.  In the wild they are found in Australia."
PRINT "They are given their name due to their fondness for sweet"
PRINT "food and their ability to glide by stretch the gliding  "
PRINT "membrane which is a thin skin which stretches from the fifth"
PRINT "finger to the ankle.  "
PRINT "     Being marsupials, gliders have a short gestation period."
PRINT "Their young are born hairless and blind.  Once they are born they"
PRINT "make their way into the pouch of the mother where they find a"
PRINT "nipple and attach themselves their for a period of two months."
PRINT "The newly emerged glider remains within the parent's nest for a"
PRINT "period of one more month."
PRINT "     In the wild sugar gliders have a normal life span of 5-7 years"
PRINT "but in captivity they can live up to 15 years."
PRINT "They are social animals.  In the wild 7-12 gliders may coexist"
PRINT "within the same nest.  In captivity they should be kept with atleast"
PRINT "one other glider.  Their lifespan may be shortened without the company"
PRINT "of another gliders through depression which are particularly suseptible."
PRINT ""
PRINT "PRESS ANY KEY WHEN YOU ARE READY TO TAKE THE TEST"
DO WHILE INKEY$ = ""
LOOP
CLS

REM question 1
PRINT "Where are sugar gliders found?"
PRINT "(A)Austria"
PRINT "(B)Australia"
PRINT "(C)New York"
PRINT "(D)Asia"
INPUT "Enter Answer"; ans$
IF LCASE$(ans$) = "b" THEN
	GOSUB Correct
ELSE GOSUB Wrong
END IF

REM question 2
PRINT "How do sugar gliders fly?"
PRINT "(A)Wings"
PRINT "(B)Jet propulsion"
PRINT "(C)Skin"
PRINT "(D)Rockets"
INPUT "Enter Answer"; ans1$
IF LCASE$(ans1$) = "c" THEN
	GOSUB Correct
ELSE GOSUB Wrong
END IF

REM question 3
PRINT "Why are they given the name sugar glider?"
PRINT "(A)They have a fondness for sweets"
PRINT "(B)They can swim"
PRINT "(C)They have the ability to glide"
PRINT "(D)Both A and B"
INPUT "Enter Answer"; ans2$
IF LCASE$(ans2$) = "d" THEN
	GOSUB Correct
ELSE GOSUB Wrong
END IF

REM question 4
PRINT "How long do sugar gliders remain within the pouch of the mother?"
PRINT "(A)1 year"
PRINT "(B)2 months"
PRINT "(C)1 month"
PRINT "(D)3 months"
INPUT "Enter Answer"; ans3$
IF LCASE$(ans3$) = "b" THEN
	GOSUB Correct
ELSE GOSUB Wrong
END IF

REM question 5
PRINT "What are sugar gliders?"
PRINT "(A)marsupials"
PRINT "(B)chickens"
PRINT "(C)squirrels"
PRINT "(D)insects"
INPUT "Enter Answer"; ans4$
IF LCASE$(ans4$) = "a" THEN
	GOSUB Correct
ELSE GOSUB Wrong
END IF

REM question 6
PRINT "What shortens their life span?"
PRINT "(A)food"
PRINT "(B)loneliness"
PRINT "(C)water"
PRINT "(D)darkness"
INPUT "Enter Answer"; ans5$
IF LCASE$(ans5$) = "b" THEN
	GOSUB Correct
ELSE GOSUB Wrong
END IF

REM question 7
PRINT "What shortens their life span?"
PRINT "(A)food"
PRINT "(B)loneliness"
PRINT "(C)water"
PRINT "(D)darkness"
INPUT "Enter Answer"; ans6$
IF LCASE$(ans6$) = "b" THEN
	GOSUB Correct
ELSE GOSUB Wrong
END IF

REM question 8
PRINT "How long do newly emerged sugargliders remain in the nest?"
PRINT "(A)3 years"
PRINT "(B)3 months"
PRINT "(C)1 month"
PRINT "(D)5 years"
INPUT "Enter Answer"; ans7$
IF LCASE$(ans7$) = "c" THEN
	GOSUB Correct
ELSE GOSUB Wrong
END IF

GOSUB rawscore
GOSUB average
GOSUB lettergrade
GOTO main
END


Correct:
c = c + 1
PRINT "Good Job"
SLEEP 1: CLS
RETURN

Wrong:
w = w + 1
PRINT "Fool"
SLEEP 1: CLS
RETURN

rawscore:
PRINT "You have "; c; " correct"
PRINT "You have "; w; " wrong"
SLEEP 2: CLS
RETURN

average:
average = (c / 8) * 100
PRINT "You average is "; average
SLEEP 2: CLS
RETURN

lettergrade:
IF average >= 90 THEN lettergrade$ = "A"
IF average >= 80 AND average < 90 THEN lettergrade$ = "B"
IF average >= 70 AND average < 80 THEN lettergrade$ = "C"
IF average >= 60 AND average < 70 THEN lettergrade$ = "D"
IF average < 60 THEN lettergrade$ = "F"
PRINT "Your letter grade is:"; lettergrade$
SLEEP 2: CLS
RETURN

REM sortsort

sortsort:
CLS
FOR m = 1 TO 10
INPUT "Number"; num(m)
NEXT m

FOR n = 1 TO 9
FOR m = 1 TO 9
IF num(m) > num(m + 1) THEN
t = num(m + 1)
num(m + 1) = num(m)
num(m) = t
END IF
NEXT m
NEXT n
SLEEP 1: CLS
PRINT "Your numbers are now in order"
FOR m = 1 TO 10
PRINT num(m)
NEXT m
SLEEP 3: CLS
RETURN

REM Misc
misc:
SCREEN 0
CLS
INPUT "Enter a five letter word"; w$
IF LEN(w$) < 5 OR LEN(w$) > 5 THEN
	PRINT "You Must Have Five Letters"
	SLEEP 2
	GOTO misc
END IF

PRINT "Word:"; w$
PRINT "First Letter:"; LEFT$(w$, 1)
PRINT "Last Letter:"; RIGHT$(w$, 1)
PRINT "Length:"; LEN(w$)
PRINT "Third Letter:"; MID$(w$, 3, 1)
PRINT "Fifth Letter:"; MID$(w$, 5, 1)
PRINT "Third and Fourth Letters:"; MID$(w$, 3, 2)
SLEEP 3


CLS
GOSUB getnames
GOSUB printnames
GOSUB squarertfndr
GOTO main
END

getnames:
FOR p = 1 TO 5
INPUT "Enter a name"; nam$(p)
NEXT p
RETURN


printnames:
PRINT "The Names You Entered Were:"
FOR p = 1 TO 5
PRINT nam$(p)
NEXT p
SLEEP 3: CLS
RETURN

squarertfndr:
INPUT "Enter a positive number"; posnum
squarert = SQR(posnum)
IF posnum > 0 THEN PRINT "The square root is"; squarert
SLEEP 2
RETURN

LOCATE 19, 0
  PRINT "Press any key to continue"
DO WHILE INKEY$ = ""
LOOP