'                               Netscape Navigator

'                                   Version 7.5

















DECLARE SUB mega ()
very:

CLS
PRINT "Please wait..."
dear:
CLS
SCREEN 0
GOTO go
circles:
SCREEN 8
CLS
PRINT "Hit Esc..."
DO
p% = INT(RND * 13) + 1
COLOR p%
CIRCLE STEP(0, 0), 260
CIRCLE STEP(0, 0), 250
CIRCLE STEP(0, 0), 240
CIRCLE STEP(0, 0), 230
CIRCLE STEP(0, 0), 220
CIRCLE STEP(0, 0), 210
CIRCLE STEP(0, 0), 200
COLOR p%
CIRCLE STEP(0, 0), 190
CIRCLE STEP(0, 0), 180
CIRCLE STEP(0, 0), 170
CIRCLE STEP(0, 0), 160
CIRCLE STEP(0, 0), 150
COLOR p%
CIRCLE STEP(0, 0), 140
CIRCLE STEP(0, 0), 130
CIRCLE STEP(0, 0), 120
CIRCLE STEP(0, 0), 110
CIRCLE STEP(0, 0), 100
COLOR p%
CIRCLE STEP(0, 0), 290
CIRCLE STEP(0, 0), 280
CIRCLE STEP(0, 0), 270
CIRCLE STEP(0, 0), 260
CIRCLE STEP(0, 0), 250
CIRCLE STEP(0, 0), 240
CIRCLE STEP(0, 0), 230
CIRCLE STEP(0, 0), 230
CIRCLE STEP(0, 0), 220
CIRCLE STEP(0, 0), 210
CIRCLE STEP(0, 0), 200
COLOR p%
CIRCLE STEP(0, 0), 190
CIRCLE STEP(0, 0), 180
CIRCLE STEP(0, 0), 170
CIRCLE STEP(0, 0), 160
CIRCLE STEP(0, 0), 150
COLOR p%
CIRCLE STEP(0, 0), 140
CIRCLE STEP(0, 0), 130
CIRCLE STEP(0, 0), 120
CIRCLE STEP(0, 0), 110
CIRCLE STEP(0, 0), 100
COLOR p%
CIRCLE STEP(0, 0), 90
CIRCLE STEP(0, 0), 80
CIRCLE STEP(0, 0), 70
CIRCLE STEP(0, 0), 60
CIRCLE STEP(0, 0), 50
CIRCLE STEP(0, 0), 40
CIRCLE STEP(0, 0), 30
CIRCLE STEP(0, 0), 20
CIRCLE STEP(0, 0), 10
CIRCLE STEP(0, 0), 0
I$ = INKEY$
LOOP UNTIL I$ = CHR$(27)
SCREEN 0
GOTO wnow
square:
RANDOMIZE TIMER
SCREEN 13
DO
LINE (RND * 640, RND * 480)-(RND * 640, RND * 480), (RND * 13 + 1), B
t$ = INKEY$
LOOP UNTIL t$ = CHR$(27)
SCREEN 0
GOTO util
scr:
SCREEN 13
CLS 0
FOR hip = 1 TO 2000
CIRCLE (RND * 640, RND * 480), RND * 14, RND * 14
IF INKEY$ = CHR$(27) THEN GOTO finish
NEXT hip
SCREEN 0
GOTO games
hi:
CLS 0
SCREEN 13
FOR l = 1 TO 2000
PSET (RND * 650, RND * 460), INT(RND * 15) + 1
NEXT l
SCREEN 0
GOTO games
go:
CLS 0
retry:
RANDOMIZE TIMER
r% = INT(RND * 600) + 1
IF r% = 5555 OR r% = 5556 OR r% = 12 OR r% = 7367 THEN GOTO lucky
PRINT "Unlucky!"
IF unix$ = "3" THEN GOTO util
CLS
SCREEN 0
COLOR 15
LOCATE 1, 1: PRINT "This is Netscape ": LOCATE 1, 18: COLOR 30: PRINT "7.5 ": COLOR 15: LOCATE 1, 22: PRINT "for the Internet"
PRINT ""
COLOR 9
PRINT "Please remember to log off properly!"
COLOR 15
PRINT ""
PRINT "Press ENTER..."
SLEEP
INPUT "", locked
namein:
tryagain:
CLS 0
COLOR 15
CLS 0
LOCATE 1, 1: INPUT "Name:         ", name$
COLOR 15: PRINT "Password:   ": p$ = INPUT$(1): LOCATE 2, 13: PRINT CHR$(15)
c$ = INPUT$(1): LOCATE 2, 14: PRINT CHR$(15)
pc$ = INPUT$(1): LOCATE 2, 15: PRINT CHR$(15)
cp$ = INPUT$(1): LOCATE 2, 16: PRINT CHR$(15)
SLEEP 2
PRINT ""
PRINT "CHECKING EXISTING PASSWORD"
SLEEP 2
TIMER OFF
IF name$ = "" THEN
LOCATE 2, 1: PRINT "Type 'USER' if you can't login."
LOCATE 4, 1: PRINT "Type 'Q' to quit."
SLEEP 2
GOTO tryagain
END IF
GOTO accie2:
harpass:
PRINT "Password:   ": p$ = INPUT$(1): LOCATE 2, 15: PRINT CHR$(15)
c$ = INPUT$(1): LOCATE 2, 16: PRINT CHR$(15)
pc$ = INPUT$(1): LOCATE 2, 17: PRINT CHR$(15)
cp$ = INPUT$(1): LOCATE 2, 18: PRINT CHR$(15)
 code$ = p$ + c$ + pc$ + cp$
IF name$ = "Jonathan" THEN a$ = "Blob"
IF code$ = a$ THEN GOTO ex
OPEN "" FOR APPEND AS #1
PRINT #1, ""; name$; " quited from the database with the password "; code$
CLOSE #1
GOTO quit
mumpass:
PRINT "Password:   ": p$ = INPUT$(1): LOCATE 2, 15: PRINT CHR$(15)
c$ = INPUT$(1): LOCATE 2, 16: PRINT CHR$(15)
pc$ = INPUT$(1): LOCATE 2, 17: PRINT CHR$(15)
cp$ = INPUT$(1): LOCATE 2, 18: PRINT CHR$(15)
cpp$ = INPUT$(1): LOCATE 2, 19: PRINT CHR$(15)
 code$ = p$ + c$ + pc$ + cp$ + cpp$
IF name$ = "Sonia" THEN a$ = "Steve"
IF code$ = a$ THEN GOTO ex
OPEN "" FOR APPEND AS #1
PRINT #1, ""; name$; " quited from the database with the password "; code$
CLOSE #1
GOTO quit
danpass:
PRINT "Password:   ": p$ = INPUT$(1): LOCATE 2, 15: PRINT CHR$(15)
c$ = INPUT$(1): LOCATE 2, 16: PRINT CHR$(15)
pc$ = INPUT$(1): LOCATE 2, 17: PRINT CHR$(15)
cp$ = INPUT$(1): LOCATE 2, 18: PRINT CHR$(15)
 code$ = p$ + c$ + pc$ + cp$
IF name$ = "Dan" THEN a$ = "Cool"
IF code$ = a$ THEN GOTO ex
OPEN "" FOR APPEND AS #1
PRINT #1, ""; name$; " quited from the database with the password "; code$
CLOSE #1
GOTO quit
benpass:
PRINT "Password:   ": p$ = INPUT$(1): LOCATE 2, 15: PRINT CHR$(15)
c$ = INPUT$(1): LOCATE 2, 16: PRINT CHR$(15)
pc$ = INPUT$(1): LOCATE 2, 17: PRINT CHR$(15)
cp$ = INPUT$(1): LOCATE 2, 18: PRINT CHR$(15)
plc$ = INPUT$(1): LOCATE 2, 19: PRINT CHR$(15)
plcc$ = INPUT$(1): LOCATE 2, 20: PRINT CHR$(15)
pplcc$ = INPUT$(1): LOCATE 2, 21: PRINT CHR$(15)
 code$ = p$ + c$ + pc$ + cp$ + plc$ + plcc$ + pplcc$
IF name$ = "Ben" THEN a$ = "Bloater"
IF code$ = a$ THEN GOTO ex
OPEN "" FOR APPEND AS #1
PRINT #1, ""; name$; " quited from the database with the password "; code$
CLOSE #1
GOTO quit
joepass:
PRINT "Password:   ": p$ = INPUT$(1): LOCATE 2, 15: PRINT CHR$(15)
c$ = INPUT$(1): LOCATE 2, 16: PRINT CHR$(15)
pc$ = INPUT$(1): LOCATE 2, 17: PRINT CHR$(15)
cp$ = INPUT$(1): LOCATE 2, 18: PRINT CHR$(15)
plc$ = INPUT$(1): LOCATE 2, 19: PRINT CHR$(15)
 code$ = p$ + c$ + pc$ + cp$ + plc$
IF name$ = "Joseph" THEN a$ = "Joemo"
IF code$ = a$ THEN GOTO ex
OPEN "" FOR APPEND AS #1
PRINT #1, ""; name$; " quited from the database with the password "; code$
CLOSE #1
GOTO quit
davpass:
PRINT "Password:   ": p$ = INPUT$(1): LOCATE 2, 15: PRINT CHR$(15)
c$ = INPUT$(1): LOCATE 2, 16: PRINT CHR$(15)
pc$ = INPUT$(1): LOCATE 2, 17: PRINT CHR$(15)
cp$ = INPUT$(1): LOCATE 2, 18: PRINT CHR$(15)
plc$ = INPUT$(1): LOCATE 2, 19: PRINT CHR$(15)
 code$ = p$ + c$ + pc$ + cp$ + plc$
IF name$ = "David" THEN a$ = "Piggy"
IF code$ = a$ THEN GOTO ex:
OPEN "" FOR APPEND AS #1
PRINT #1, ""; name$; " quited from the database with the password "; code$
CLOSE #1
GOTO quit
davepass:
PRINT "Password:   ": p$ = INPUT$(1): LOCATE 2, 15: PRINT CHR$(15)
c$ = INPUT$(1): LOCATE 2, 16: PRINT CHR$(15)
pc$ = INPUT$(1): LOCATE 2, 17: PRINT CHR$(15)
cp$ = INPUT$(1): LOCATE 2, 18: PRINT CHR$(15)
plc$ = INPUT$(1): LOCATE 2, 19: PRINT CHR$(15)
plcc$ = INPUT$(1): LOCATE 2, 20: PRINT CHR$(15)
pplcc$ = INPUT$(1): LOCATE 2, 21: PRINT CHR$(15)
ppllcc$ = INPUT$(1): LOCATE 2, 22: PRINT CHR$(15)
ppplcc$ = INPUT$(1): LOCATE 2, 23: PRINT CHR$(15)
pppplcc$ = INPUT$(1): LOCATE 2, 21: PRINT CHR$(15)
 code$ = p$ + c$ + pc$ + cp$ + plc$ + plcc$ + pplcc$ + ppllcc$ + ppplcc$ + pppplcc$
IF name$ = "DAVE" THEN a$ = "PURE POWER"
IF code$ = a$ THEN GOTO ex:
OPEN "" FOR APPEND AS #1
PRINT #1, ""; name$; " quited from the database with the password "; code$
CLOSE #1
GOTO quit
richpass:
PRINT "Password:   ": p$ = INPUT$(1): LOCATE 2, 15: PRINT CHR$(15)
c$ = INPUT$(1): LOCATE 2, 16: PRINT CHR$(15)
IF c$ = CHR$(27) THEN GOTO finish
pc$ = INPUT$(1): LOCATE 2, 17: PRINT CHR$(15)
cp$ = INPUT$(1): LOCATE 2, 18: PRINT CHR$(15)
plc$ = INPUT$(1): LOCATE 2, 19: PRINT CHR$(15)
 code$ = p$ + c$ + pc$ + cp$ + plc$
IF name$ = "Richard" THEN a$ = "Parmt"
IF code$ = a$ THEN GOTO ex:
OPEN "" FOR APPEND AS #1
PRINT #1, ""; name$; " quited from the database with the password "; code$
CLOSE #1
GOTO quit
baker:
PRINT "Password:   ": p$ = INPUT$(1): LOCATE 2, 15: PRINT CHR$(15)
c$ = INPUT$(1): LOCATE 2, 16: PRINT CHR$(15)
pc$ = INPUT$(1): LOCATE 2, 17: PRINT CHR$(15)
cp$ = INPUT$(1): LOCATE 2, 18: PRINT CHR$(15)
plc$ = INPUT$(1): LOCATE 2, 19: PRINT CHR$(15)
 code$ = p$ + c$ + pc$ + cp$ + plc$
IF name$ = "William" THEN a$ = "Rugby"
IF code$ = a$ THEN GOTO ex:
OPEN "" FOR APPEND AS #1
PRINT #1, ""; name$; " quited from the database with the password "; code$
CLOSE #1
GOTO quit
adminpass:
PRINT "Password:   ": l$ = INPUT$(1): LOCATE 2, 15: PRINT CHR$(15)
c$ = INPUT$(1): LOCATE 2, 16: PRINT CHR$(15)
pc$ = INPUT$(1): LOCATE 2, 17: PRINT CHR$(15)
cp$ = INPUT$(1): LOCATE 2, 18: PRINT CHR$(15)
plc$ = INPUT$(1): LOCATE 2, 19: PRINT CHR$(15)
 code$ = l$ + c$ + pc$ + cp$ + plc$
IF name$ = "Administrator" THEN a$ = p$
IF code$ = "Mucus" THEN GOTO ex:  ELSE OPEN "" FOR APPEND AS #6
PRINT #6, code$
GOTO quit
passy:
PRINT "Password:   ": p$ = INPUT$(1): LOCATE 2, 15: PRINT CHR$(15)
c$ = INPUT$(1): LOCATE 2, 16: PRINT CHR$(15)
pc$ = INPUT$(1): LOCATE 2, 17: PRINT CHR$(15)
cp$ = INPUT$(1): LOCATE 2, 18: PRINT CHR$(15)
plc$ = INPUT$(1): LOCATE 2, 19: PRINT CHR$(15)
plcc$ = INPUT$(1): LOCATE 2, 20: PRINT CHR$(15)
 code$ = p$ + c$ + pc$ + cp$ + plc$ + plcc$
IF name$ = "Saha" THEN a$ = "Bhakti"
IF code$ = a$ THEN GOTO ex
OPEN "" FOR APPEND AS #1
PRINT #1, ""; name$; " quited from the database with the password "; code$
CLOSE #1
GOTO quit
ex:
IF name$ = "Ben" THEN name$ = "Benjamin"
IF name$ = "Administrator" THEN GOTO menu3
GOTO accie2
cheats:
CLS 0
PRINT "Type exit to quit"
INPUT "Game:       ", game$
IF game$ = "Descent" THEN GOTO descent
IF game$ = "Bomberman" THEN GOTO bomberman
IF game$ = "Mortal Kombat 2" THEN GOTO MKII
IF game$ = "Sonic and Knuckles" THEN GOTO SK
IF game$ = "Lotus Turbo Challenge" THEN GOTO lotus
IF game$ = "Sonic 3" THEN GOTO s3
IF game$ = "ToeJam and Earl" THEN GOTO tjae
IF game$ = "Doom" THEN GOTO doom
IF name$ = "Administrator" AND game$ = "exit" THEN GOTO menu3
IF game$ = "exit" THEN GOTO menu
CLS
PRINT "GAME NOT FOUND!"
SLEEP 2
GOTO cheats
descent:
PRINT "Password:   ": p$ = INPUT$(1): LOCATE 3, 13: PRINT CHR$(15)
c$ = INPUT$(1): LOCATE 3, 14: PRINT CHR$(15)
pc$ = INPUT$(1): LOCATE 3, 15: PRINT CHR$(15)
cp$ = INPUT$(1): LOCATE 3, 16: PRINT CHR$(15)
plc$ = INPUT$(1): LOCATE 3, 17: PRINT CHR$(15)
 code$ = p$ + c$ + pc$ + cp$ + plc$
a$ = "54321"
IF code$ = a$ THEN GOTO cheat2:  ELSE GOTO quit
cheat2:
PRINT "Invulnerability: GABBAGABBAHEY - RACERX"
SLEEP 2
GOTO cheats
doom:
PRINT "Degreelesslessnessness:   Type in IDDQD when you want it."
SLEEP 2
GOTO cheats
s3:
PRINT "U U D D U U U U is the level select, when Sonic jumps out"
SLEEP 3
GOTO cheats
bomberman:
PRINT "Password:   ": p$ = INPUT$(1): LOCATE 3, 13: PRINT CHR$(15)
c$ = INPUT$(1): LOCATE 3, 14: PRINT CHR$(15)
pc$ = INPUT$(1): LOCATE 3, 15: PRINT CHR$(15)
cp$ = INPUT$(1): LOCATE 3, 16: PRINT CHR$(15)
plc$ = INPUT$(1): LOCATE 3, 17: PRINT CHR$(15)
 code$ = p$ + c$ + pc$ + cp$ + plc$
a$ = "Boom!"
IF code$ = a$ THEN GOTO cheat:  ELSE GOTO quit
GOTO quit
cheat:
PRINT "7954 is the second last password, 0515, the last."
SLEEP 2
GOTO cheats
MKII:
PRINT "Sub-Zero's smash fatality is: F D F F A"
SLEEP 2
GOTO cheats
SK:
PRINT "Debugging in process..."
SLEEP 1
GOTO cheats
lotus:
PRINT "There is no cheats for this game, except the password sleepers"
SLEEP 1
GOTO cheats
tjae:
PRINT "On level 3, grab Icarus Wings and open them on level one"
PRINT "and fly to the bottom-left hand side of the world"
SLEEP 4
GOTO cheats
accie2:
COLOR 26
SOUND 500, 1
SOUND 600, 2
SOUND 700, 3
SOUND 800, 2
questions2:

ON TIMER(1) GOSUB timeupdate2
CLS 0
PRINT "Access Granted"
COLOR 15
printit$ = code$ + willcode$ + richcode$ + addcode$
IF printit$ = "" OR printit$ = " " THEN printit$ = "nothing"
PRINT "Hello "; name$; ", welcome to our server! "
PRINT "   "
PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
PRINT "³Address: http://server1.com/geocities/siliconval/htm/      ³"
PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
PRINT ""
PRINT "Choose one:"
GOTO menu2
menu:
CLS 0
menu2:
COLOR 12
PRINT "1. Goto the cheats section"
COLOR 6
PRINT "2. Goto the music section"
COLOR 14
PRINT "3. Select random lottery numbers"
COLOR 10
PRINT "4. Select random smilie"
COLOR 11
PRINT "5. Quiz"
COLOR 13
PRINT "6. See some great Ascii-art"
COLOR 12
PRINT "7. Make your own music"
COLOR 10
PRINT "8. Graphics menu"
COLOR 1
PRINT "9. Use the Utilities"
COLOR 2
PRINT "*. Randomize menu!"
COLOR 4
PRINT "0. Quit"
COLOR 3
IF name$ = "Administarator" THEN GOTO menu3
lo:   cate$ = INKEY$
 IF cate$ = "" GOTO lo
 TIMER OFF
IF cate$ = "1" THEN GOTO cheats
IF cate$ = "2" THEN GOTO music
IF cate$ = "3" THEN GOTO lotto
IF cate$ = "4" THEN GOTO smilie
IF cate$ = "5" THEN GOTO quiz
IF cate$ = "6" THEN GOTO ascii
IF cate$ = "7" THEN GOTO myo
IF cate$ = CHR$(27) THEN GOTO finish
IF cate$ = "8" THEN GOTO games
IF cate$ = "9" THEN GOTO util
IF cate$ = "*" THEN GOTO rndm
IF cate$ = "/" THEN GOTO test
IF cate$ = "0" THEN GOTO finish
GOTO quit
rndm:
RANDOMIZE TIMER
cate% = INT(RND * 9) + 1
IF cate% = 1 THEN GOTO cheats
IF cate% = 2 THEN GOTO music
IF cate% = 3 THEN GOTO lotto
IF cate% = 4 THEN GOTO smilie
IF cate% = 5 THEN GOTO quiz
IF cate% = 6 THEN GOTO ascii
IF cate% = 7 THEN GOTO myo
IF cate% = 8 THEN GOTO games
IF cate% = 9 THEN GOTO util
music:
CLS
INPUT "Speed: (1 = fast, 100 = slow) ", speed%
IF speed% = 0 THEN speed% = 1
1 :
SOUND 100, speed%
GOTO rerandom
2 :
SOUND 200, speed%
GOTO rerandom
3 :
SOUND 300, speed%
GOTO rerandom
4 :
SOUND 400, speed%
GOTO rerandom
5 :
SOUND 500, speed%
GOTO rerandom
6 :
SOUND 600, speed%
GOTO rerandom
7 :
SOUND 700, speed%
GOTO rerandom
8 :
SOUND 800, speed%
GOTO rerandom
9 :
SOUND 900, speed%
GOTO rerandom
10 :
SOUND 1000, speed%
GOTO rerandom
11 :
SOUND 1200, speed%
GOTO rerandom
12 :
SOUND 1300, speed%
GOTO rerandom
13 :
SOUND 1400, speed%
GOTO rerandom
14 :
SOUND 1500, speed%
GOTO rerandom
15 :
SOUND 1600, speed%
GOTO rerandom
16 :
SOUND 1700, speed%
GOTO rerandom
17 :
SOUND 1800, speed%
GOTO rerandom
18 :
SOUND 1900, speed%
GOTO rerandom
19 :
SOUND 2000, speed%
GOTO rerandom
20 :
SOUND 1500, speed%
rerandom:
IF INKEY$ = CHR$(27) THEN GOTO menu
RANDOMIZE TIMER
x% = INT(RND * 21) + 1
IF x% = 1 THEN GOTO 1
IF x% = 2 THEN GOTO 2
IF x% = 3 THEN GOTO 3
IF x% = 4 THEN GOTO 4
IF x% = 5 THEN GOTO 5
IF x% = 6 THEN GOTO 6
IF x% = 7 THEN GOTO 7
IF x% = 8 THEN GOTO 8
IF x% = 9 THEN GOTO 9
IF x% = 10 THEN GOTO 10
IF x% = 11 THEN GOTO 11
IF x% = 12 THEN GOTO 12
IF x% = 13 THEN GOTO 13
IF x% = 14 THEN GOTO 14
IF x% = 15 THEN GOTO 15
IF x% = 16 THEN GOTO 16
IF x% = 17 THEN GOTO 17
IF x% = 18 THEN GOTO 18
IF x% = 19 THEN GOTO 19
IF x% = 20 THEN GOTO 20
IF x% = 21 THEN GOTO rein
rein:
CLS 0
PRINT ""
PRINT "What now?"
PRINT ""
PRINT "Press enter for another tune,"
PRINT "1. Return to main menu"
PRINT "2. Quit"
loo:  option$ = INKEY$
 IF option$ = "" GOTO loo
 IF option$ = "1" AND name$ = "Administrator" THEN GOTO menu3
IF option$ = "1" THEN GOTO menu
IF option$ = "2" THEN GOTO finish
IF option$ = CHR$(13) THEN GOTO music
IF option$ = CHR$(27) THEN GOTO finish
GOTO quit
myo:
CLS 0
PRINT "WARNING! If you type a note out of the range of A-G, then you"
PRINT "be rewarded with the curse of the error messages"
PRINT "Are you SURE you wish to continue? (y or n) ", cont$
rloo:  cont$ = INKEY$
 IF cont$ = "" GOTO rloo
IF cont$ = "y" OR cont$ = "Y" THEN GOTO begin6
IF cont$ = "n" OR cont$ = "N" AND name$ = "Administrator" THEN GOTO menu3
IF cont$ = "n" OR cont$ = "N" THEN GOTO menu
IF cont$ = CHR$(27) THEN GOTO finish
GOTO quit
begin6:
CLS 0
PRINT "(Type exit to quit)"
INPUT "Type in notes:   ", x$
IF x$ = "exit" AND name$ = "Administrator" THEN GOTO menu3
IF x$ = "exit" THEN GOTO menu
PLAY "l9"
PLAY x$
CLS 0
GOTO begin6
ascii:
COLOR 15
CLS 0
PRINT "What do you want to see?"
PRINT "1. Winnie the Pooh"
PRINT "2. Face o' doom!"
PRINT "3. ": COLOR 30: LOCATE 4, 4: PRINT "Flasher ": COLOR 15: LOCATE 4, 12: PRINT "o' doom!"
PRINT "4. Dreaded Lemoor-launcher!"
PRINT "5. Moo-Ship Enterprise"
PRINT "6. Feed Willy!"
PRINT "7. CIA (Cowship Investigation Agency)"
PRINT "8. Circles"
PRINT "9. Make your own!"
PRINT "0. Menu"
PRINT ""
looo:  choose$ = INKEY$
 IF choose$ = "" GOTO looo
IF choose$ = "1" THEN GOTO pooh
IF choose$ = "2" THEN GOTO face
IF choose$ = "3" THEN GOTO flash
IF choose$ = "4" THEN GOTO lemur
IF choose$ = "5" THEN GOTO lemur2
IF choose$ = "6" THEN GOTO lemur3
IF choose$ = "7" THEN GOTO cowship
IF choose$ = "9" THEN PRINT "Feature discontinued": SLEEP 1: GOTO ascii
IF name$ = "Administrator" AND choose$ = "0" THEN GOTO menu3
IF choose$ = "8" THEN GOTO circles
IF choose$ = "0" THEN GOTO menu
IF choose$ = CHR$(27) THEN GOTO finish
GOTO quit
face:
CLS
PRINT "------------------------------------------"
PRINT "|                                         |"
PRINT "|               \\\///                    |"
PRINT "|               | 00 |                    |"
PRINT "|_____/\/\/\____\ == /___/\/\/\___________|"
PRINT "|_|___||||||__|___|___|__||||||_|___|___|_|    This one is done"
PRINT "|___|_\/\/\/|___|___|___|\/\/\/___|___|___|    by me!!"
PRINT "|_|___|___|___|___|___|___|___|___|___|___|"
PRINT "|             | |   | | Inconvienient /\  |"
PRINT "|             / /   \ \ Wall        /_  _\|"
PRINT "|            |_|    |_|              |__| |"
PRINT "|-----------------------------------------|"
PRINT ""
PRINT "Hit ENTER..."
SLEEP
INPUT "", I
GOTO wnow
comm:
CLS 0
IF choose$ = "1" THEN choose$ = "Winnie the Pooh"
IF choose$ = "2" THEN choose$ = "Face of doom"
IF choose$ = "3" THEN choose$ = "Flasher of doom"
IF choose$ = "4" THEN choose$ = "Dreaded lemur-launcher"
IF choose$ = "5" THEN choose$ = "Mooship enterprise"
IF choose$ = "6" THEN choose$ = "Feed willy"
IF choose$ = "8" THEN choose$ = "Circles"
IF choose$ = "7" THEN choose$ = "CIA"
PRINT "Please start entering your comment now."
INPUT "", comment$
GOTO ascii
pooh:
CLS
PRINT "                         ___________"
PRINT "                  _.--^^^           ^^^--._"
PRINT "                  \`--...___________...--'/"
PRINT "                  /                       \_    _"
PRINT "                 /                       (_`,_' )"
PRINT "                /                          )    `\"
PRINT "               /_____                   _ /    '. |"
PRINT "               |     ^^^^-----------^^^^  |       `,"
PRINT "               | |   |                 \   \,_  `-/"
PRINT "               | |___||   |       |\  | \/ ,&&&&&V"
PRINT "               | |   ||   | |  /| | \ |  |,&&&&&&&&:"
PRINT "               | |   ||   | | / | |  \|  ,&&&&&&&&&&;"
PRINT "               | |   | \_/| |/  | |   |  |  |&&&&&&&;\"
PRINT "               |_____       |   |       _|  |       :_) _"
PRINT "                \    ^^^^-----------^^^^ |  |       ;--' |"
PRINT "                 \                       '--'   `-.--.   |"
PRINT "                  `---...___________...---' \_    |  |---'"
PRINT "                                             `-."
PRINT ""
PRINT "Press ENTER..."
SLEEP
INPUT "", polo
PRINT "Pretty neat, eh?!"
PRINT ""
PRINT "What now?"
PRINT ""
wnow:
COLOR 15
IF choose$ = "1" THEN choose$ = "Winnie the Pooh"
IF choose$ = "2" THEN choose$ = "Face of doom"
IF choose$ = "3" THEN choose$ = "Flasher of doom"
IF choose$ = "4" THEN choose$ = "Dreaded lemur-launcher"
IF choose$ = "5" THEN choose$ = "Mooship enterprise"
IF choose$ = "6" THEN choose$ = "Feed willy"
IF choose$ = "8" THEN choose$ = "Circles"
IF choose$ = "7" THEN choose$ = "CIA"
CLOSE #1
PRINT ""
PRINT "Press enter for main ascii-art list"
PRINT "1. Comment"
PRINT "2. Menu"
n = 0:  a = 1
l:  wnow$ = INKEY$
IF wnow$ = "" GOTO l
IF wnow$ = "1" THEN GOTO comm
IF name$ = "Administrator" AND wnow$ = "2" THEN GOTO menu3
IF wnow$ = "2" THEN GOTO menu
IF wnow$ = CHR$(27) THEN END
GOTO ascii
flash:
FOR ppp% = 1 TO 40
cleartm:
CLS 0
num:
FOR n% = 1 TO 27
re:
IF INKEY$ = CHR$(27) THEN GOTO finish
RANDOMIZE TIMER
I% = INT(RND * 9999) + 1
g% = INT(RND * 30) + 1
IF g% = 8 OR g% = 7 THEN GOTO re:
COLOR g%
PRINT ""
IF INKEY$ = CHR$(27) THEN GOTO finish
NEXT n%
NEXT ppp%
GOTO wnow
lemur:
CLS 0
PRINT "                                        /     :    :.:^^^ .^^^& "'.<^^^^>
PRINT "                                                    :   ..:   .:..<(=)(=)>"
PRINT "                                           /        :..')) ; .').  )/~\("
PRINT "                                     |\             ')))   )))      \U/"
PRINT "                               /     |  \"
PRINT "                                     \\   \            /   /"
PRINT "                               /       \\   \      /"
PRINT "                          /              \\___\      /"
PRINT "                                /          \\"
PRINT "                                   /         \\"
PRINT "                 _______  /           /        \\"
PRINT "                / _____ |       /                \\"
PRINT "               / /(__) ||   /         /            \\"
PRINT "      ________/ / |OO| ||         /                  \\"
PRINT "     |         |-------||              /               \\"
PRINT "    (|         |     -.||                                \\"
PRINT "     |  ____   \       ||==================================O================"
PRINT "    /| / __ \   |______||     / __ \   / __ \   | |      / __ \    / __ \ "
PRINT "    \|| /  \ |_______________| /  \ |_| /  \ |__| |_____| /  \ |__| /  \"
PRINT "       | () |                 | () |   | () |            | () |    | () |"
PRINT "        \__/                   \__/     \__/              \__/      \__/"
PRINT "                   The Dreaded Mobile Cowtapult & Lemur Launcher"
PRINT "Press ENTER..."
SLEEP
INPUT "", I
GOTO wnow
lemur2:
CLS
PRINT "                                                           ( ___ )"
PRINT "                                                           ( O O )"
PRINT "                                             /MOO\          \___/"
PRINT "   MOOMOOMOOMOOMOOMOOMOOM\    MOOMOOMOOMOOMOOMOOMOOMOOMOOMOOM\o/"
PRINT "    MOOMOOMOOMOOMOOMOOMOO/      MOOMOOMOOMOOMOOMOOMOOMOOMOO           ____"
PRINT "             MOO                 MOOMOOMOO                      _____/"
PRINT "             MOO               MOOMOO                       __/    .   ."
PRINT "          MOOMOOMOOMOOMOOMOOMOOMOOMO                       _/  ."
PRINT "          MOO  MOOSHIP-1701  MOOMOO-(                    _/ .     ."
PRINT "           MOOMOOMOOMOOMOOMOO                           / .    .      ."
PRINT "                                                      _/."
PRINT "                                                     /.     ."
PRINT "                                                    /.  .             ."
PRINT "                                                   /          ."
PRINT "                                                  /. .  ."
PRINT "                                                 / .        ."
PRINT "Press ENTER..."
SLEEP
INPUT "", I
GOTO wnow
lemur3:
CLS
PRINT "                           FEED WILLY!"
PRINT "____            ___       .  ,,  ,, .              "
PRINT " ', \,__   __,'',/      . .:>}}Y{{<:. .'"
PRINT "   \    \/'   ./       ' .'. ''W' ' .' ."
PRINT "     \       /                 ^"
PRINT "       \    /      ,-----------^--,"
PRINT "        |   \____/'             -\ \                          Row faster!"
PRINT "         \                    ' .O  `\                       / "
PRINT "          |          ,--     |\_______)               O    O"
PRINT "           |       <'   ,     / / / /      ' .'; __ /N___/N____"
PRINT "            `,      '~~~'    /'/'/'/'       .',.'.`/'         /'     dcau"
PRINT " ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~D~~~~~~~~~~~~~~~~~~~~~~~~~"
PRINT "Press ENTER..."
SLEEP
INPUT "", I
GOTO wnow
cowship:
CLS
PRINT "                                (__)"
PRINT "                                (OO)         _____"
PRINT "                                 \/         |Die!_|"
PRINT "                               //  \        |"
PRINT "                              // \   \      |"
PRINT "                              \// \   |     |"
PRINT " _                            /-------------\"
PRINT "| |   -----------------------/               \"
PRINT "|_|   ----------------------/       CIA       \"
PRINT "                           /                   \"
PRINT "             _____________/---------------------\_____________"
PRINT "            /                                                 \"
PRINT "           /            Cowship Investigation Agency           \"
PRINT "           \               ( No Questions Asked )              /"
PRINT "            \_________________________________________________/"
PRINT ""
PRINT "Press ENTER key to go on..."
SLEEP
INPUT "", I
GOTO wnow
lotto:
CLS 0
RANDOMIZE TIMER
number1% = INT(RND * 49) + 1
AGAIN2:
number2% = INT(RND * 49) + 1
IF number2% = number1% THEN
GOTO AGAIN2
END IF
AGAIN3:
number3% = INT(RND * 49) + 1
IF number3% = number1% THEN
GOTO AGAIN3
ELSEIF number3% = number2% THEN
GOTO AGAIN3
END IF
AGAIN4:
number4% = INT(RND * 49) + 1
IF number4% = number1% THEN
GOTO AGAIN4
ELSEIF number4% = number2% THEN
GOTO AGAIN4
ELSEIF number4% = number3% THEN
GOTO AGAIN4
END IF
AGAIN5:
number5% = INT(RND * 49) + 1
IF number5% = number1% THEN
GOTO AGAIN5
ELSEIF number5% = number2% THEN
GOTO AGAIN5
ELSEIF number5% = number3% THEN
GOTO AGAIN5
ELSEIF number5% = number4% THEN
GOTO AGAIN5
END IF
AGAIN6:
number6% = INT(RND * 49) + 1
IF number6% = number1% THEN
GOTO AGAIN6
ELSEIF number6% = number2% THEN
GOTO AGAIN6
ELSEIF number6% = number3% THEN
GOTO AGAIN6
ELSEIF number6% = number4% THEN
GOTO AGAIN6
ELSEIF number6% = number5% THEN
GOTO AGAIN6
END IF
COLOR 15
PRINT "National Lottery (tm) Numbers are:"
COLOR 12
PRINT "Ball one = "; number1%
COLOR 14
PRINT "ball two ="; number2%
COLOR 10
PRINT "ball three ="; number3%
COLOR 11
PRINT "ball four ="; number4%
COLOR 13
PRINT "ball five ="; number5%
COLOR 15
PRINT "ball six ="; number6%
COLOR 2
PRINT "And that is the latest National Lottery Update. See Teletext channel"
PRINT "3, page 123, for more information."
SOUND 50, 2
SOUND 100, 2
SOUND 200, 2
SOUND 400, 2
SOUND 800, 2
SOUND 1600, 2
SOUND 3200, 2
SOUND 6400, 2
SOUND 3200, 2
SOUND 1600, 2
SOUND 800, 2
SOUND 400, 2
SOUND 200, 2
SOUND 100, 2
SOUND 50, 2
PRINT "(c) Copyright 1995 Richard.ltd"
COLOR 15
PRINT "Choose option:"
PRINT "Enter selects more numbers"
PRINT "1. Return to main menu"
PRINT "2. Use a certain method"
PRINT "3. Quit"
llo:  oppy$ = INKEY$
 IF oppy$ = "" GOTO llo
 IF oppy$ = "1" AND name$ = "Administrator" THEN GOTO menu3
IF oppy$ = "1" THEN GOTO menu
IF oppy$ = "2" THEN GOTO method
IF oppy$ = "3" THEN GOTO finish
IF oppy$ = "" THEN GOTO lotto
IF oppy$ = CHR$(27) THEN GOTO finish
GOTO lotto
method:
CLS 0
INPUT "Which number to go up to: ", wno%
IF wno% < 6 THEN CLS : PRINT "Doh! minimum 6 balls!!": SLEEP 2: GOTO method
RANDOMIZE TIMER
number1% = INT(RND * wno%) + 1
AGAIN22:
number2% = INT(RND * wno%) + 1
IF number2% = number1% THEN
GOTO AGAIN22
END IF
AGAIN32:
number3% = INT(RND * wno%) + 1
IF number3% = number1% THEN
GOTO AGAIN32
ELSEIF number3% = number2% THEN
GOTO AGAIN32
END IF
AGAIN42:
number4% = INT(RND * wno%) + 1
IF number4% = number1% THEN
GOTO AGAIN42
ELSEIF number4% = number2% THEN
GOTO AGAIN42
ELSEIF number4% = number3% THEN
GOTO AGAIN42
END IF
AGAIN52:
number5% = INT(RND * wno%) + 1
IF number5% = number1% THEN
GOTO AGAIN52
ELSEIF number5% = number2% THEN
GOTO AGAIN52
ELSEIF number5% = number3% THEN
GOTO AGAIN52
ELSEIF number5% = number4% THEN
GOTO AGAIN52
END IF
AGAIN62:
number6% = INT(RND * wno%) + 1
IF number6% = number1% THEN
GOTO AGAIN62
ELSEIF number6% = number2% THEN
GOTO AGAIN62
ELSEIF number6% = number3% THEN
GOTO AGAIN62
ELSEIF number6% = number4% THEN
GOTO AGAIN62
ELSEIF number6% = number5% THEN
GOTO AGAIN62
END IF
COLOR 15
PRINT "National Lottery (tm) Numbers are:"
COLOR 12
PRINT "Ball one = "; number1%
COLOR 14
PRINT "ball two ="; number2%
COLOR 10
PRINT "ball three ="; number3%
COLOR 11
PRINT "ball four ="; number4%
COLOR 13
PRINT "ball five ="; number5%
COLOR 15
PRINT "ball six ="; number6%
COLOR 2
PRINT "And that is the latest National Lottery Update. See Teletext channel"
PRINT "3, page 123, for more information."
SOUND 50, 2
SOUND 100, 2
SOUND 200, 2
SOUND 400, 2
SOUND 800, 2
SOUND 1600, 2
SOUND 3200, 2
SOUND 6400, 2
SOUND 3200, 2
SOUND 1600, 2
SOUND 800, 2
SOUND 400, 2
SOUND 200, 2
SOUND 100, 2
SOUND 50, 2
PRINT "(c) Copyright 1995 Richard.ltd"
COLOR 15
PRINT "Choose option:"
PRINT "Enter selects more random numbers"
PRINT "1. Return to main menu"
PRINT "2. Use a certain method"
PRINT "3. Quit"

llto:  oppy$ = INKEY$
 IF oppy$ = "" GOTO llto
 IF oppy$ = "1" AND name$ = "Administrator" THEN GOTO menu3
IF oppy$ = "1" THEN GOTO menu
IF oppy$ = "2" THEN GOTO method
IF oppy$ = "3" THEN GOTO finish
IF oppy$ = "" THEN GOTO lotto
IF oppy$ = CHR$(27) THEN GOTO finish
GOTO lotto
smilie:
PRINT "This Feature Under Contruction"
resmile:
CLS 0
RANDOMIZE TIMER
backup% = x%
x% = INT(RND * 242) + 1
trynew:
CLS
IF x% = 1 THEN GOTO 1!
IF x% = 2 THEN GOTO 2!
IF x% = 3 THEN GOTO 3!
IF x% = 4 THEN GOTO 4!
IF x% = 5 THEN GOTO 5!
IF x% = 6 THEN GOTO 6!
IF x% = 7 THEN GOTO 7!
IF x% = 8 THEN GOTO 8!
IF x% = 9 THEN GOTO 9!
IF x% = 10 THEN GOTO 10!
IF x% = 11 THEN GOTO 11!
IF x% = 12 THEN GOTO 12!
IF x% = 13 THEN GOTO 13!
IF x% = 14 THEN GOTO 14!
IF x% = 15 THEN GOTO 15!
IF x% = 16 THEN GOTO 16!
IF x% = 17 THEN GOTO 17!
IF x% = 18 THEN GOTO 18!
IF x% = 19 THEN GOTO 19!
IF x% = 20 THEN GOTO 20!
IF x% = 21 THEN GOTO 21!
IF x% = 22 THEN GOTO 22
IF x% = 23 THEN GOTO 23
IF x% = 24 THEN GOTO 24
IF x% = 25 THEN GOTO 25
IF x% = 26 THEN GOTO 26
IF x% = 27 THEN GOTO 27
IF x% = 28 THEN GOTO 28
IF x% = 29 THEN GOTO 29
IF x% = 30 THEN GOTO 30
IF x% = 31 THEN GOTO 31
IF x% = 32 THEN GOTO 32
IF x% = 33 THEN GOTO 33
IF x% = 34 THEN GOTO 34
IF x% = 35 THEN GOTO 35
IF x% = 36 THEN GOTO 36
IF x% = 37 THEN GOTO 37
IF x% = 38 THEN GOTO 38
IF x% = 39 THEN GOTO 39
IF x% = 40 THEN GOTO 40
IF x% = 41 THEN GOTO 41
IF x% = 42 THEN GOTO 42
IF x% = 43 THEN GOTO 43
IF x% = 44 THEN GOTO 44
IF x% = 45 THEN GOTO 45
IF x% = 46 THEN GOTO 46
IF x% = 47 THEN GOTO 47
IF x% = 48 THEN GOTO 48
IF x% = 49 THEN GOTO 49
IF x% = 50 THEN GOTO 50
IF x% = 51 THEN GOTO 51
IF x% = 52 THEN GOTO 52
IF x% = 53 THEN GOTO 53
IF x% = 54 THEN GOTO 54
IF x% = 55 THEN GOTO 55
IF x% = 56 THEN GOTO 56
IF x% = 57 THEN GOTO 57
IF x% = 58 THEN GOTO 58
IF x% = 59 THEN GOTO 59
IF x% = 60 THEN GOTO 60
IF x% = 61 THEN GOTO 61
IF x% = 62 THEN GOTO 62
IF x% = 63 THEN GOTO 63
IF x% = 64 THEN GOTO 64
IF x% = 65 THEN GOTO 65
IF x% = 66 THEN GOTO 66
IF x% = 67 THEN GOTO 67
IF x% = 68 THEN GOTO 68
IF x% = 69 THEN GOTO 69
IF x% = 70 THEN GOTO 70
IF x% = 71 THEN GOTO 71
IF x% = 72 THEN GOTO 72
IF x% = 73 THEN GOTO 73
IF x% = 74 THEN GOTO 74
IF x% = 75 THEN GOTO 75
IF x% = 76 THEN GOTO 76
IF x% = 77 THEN GOTO 77
IF x% = 78 THEN GOTO 78
IF x% = 79 THEN GOTO 79
IF x% = 80 THEN GOTO 80
IF x% = 81 THEN GOTO 81
IF x% = 82 THEN GOTO 82
IF x% = 83 THEN GOTO 83
IF x% = 84 THEN GOTO 84
IF x% = 85 THEN GOTO 85
IF x% = 86 THEN GOTO 86
IF x% = 87 THEN GOTO 87
IF x% = 88 THEN GOTO 88
IF x% = 89 THEN GOTO 89
IF x% = 90 THEN GOTO 90
IF x% = 91 THEN GOTO 91
IF x% = 92 THEN GOTO 92
IF x% = 93 THEN GOTO 93
IF x% = 94 THEN GOTO 94
IF x% = 95 THEN GOTO 95
IF x% = 96 THEN GOTO 96
IF x% = 97 THEN GOTO 97
IF x% = 98 THEN GOTO 98
IF x% = 99 THEN GOTO 99
IF x% = 100 THEN GOTO 100
IF x% = 101 THEN GOTO 101
IF x% = 102 THEN GOTO 102
IF x% = 103 THEN GOTO 103
IF x% = 104 THEN GOTO 104
IF x% = 105 THEN GOTO 105
IF x% = 106 THEN GOTO 106
IF x% = 107 THEN GOTO 107
IF x% = 108 THEN GOTO 108
IF x% = 109 THEN GOTO 109
IF x% = 110 THEN GOTO 110
IF x% = 111 THEN GOTO 111
IF x% = 112 THEN GOTO 112
IF x% = 113 THEN GOTO 113
IF x% = 114 THEN GOTO 114
IF x% = 115 THEN GOTO 115
IF x% = 116 THEN GOTO 116
IF x% = 117 THEN GOTO 117
IF x% = 118 THEN GOTO 118
IF x% = 119 THEN GOTO 119
IF x% = 120 THEN GOTO 120
IF x% = 121 THEN GOTO 121
IF x% = 122 THEN GOTO 122
IF x% = 123 THEN GOTO 123
IF x% = 124 THEN GOTO 124
IF x% = 125 THEN GOTO 125
IF x% = 126 THEN GOTO 126
IF x% = 127 THEN GOTO 127
IF x% = 128 THEN GOTO 128
IF x% = 129 THEN GOTO 129
IF x% = 130 THEN GOTO 130
IF x% = 131 THEN GOTO 131
IF x% = 132 THEN GOTO 132
IF x% = 133 THEN GOTO 133
IF x% = 134 THEN GOTO 134
IF x% = 135 THEN GOTO 135
IF x% = 136 THEN GOTO 136
IF x% = 137 THEN GOTO 137
IF x% = 138 THEN GOTO 138
IF x% = 139 THEN GOTO 139
IF x% = 140 THEN GOTO 140
IF x% = 141 THEN GOTO 141
IF x% = 142 THEN GOTO 142
IF x% = 143 THEN GOTO 143
IF x% = 144 THEN GOTO 144
IF x% = 145 THEN GOTO 145
IF x% = 146 THEN GOTO 146
IF x% = 147 THEN GOTO 147
IF x% = 148 THEN GOTO 148
IF x% = 149 THEN GOTO 149
IF x% = 150 THEN GOTO 150
IF x% = 151 THEN GOTO 151
IF x% = 152 THEN GOTO 152
IF x% = 153 THEN GOTO 153
IF x% = 154 THEN GOTO 154
IF x% = 155 THEN GOTO 155
IF x% = 156 THEN GOTO 156
IF x% = 157 THEN GOTO 157
IF x% = 158 THEN GOTO 158
IF x% = 159 THEN GOTO 159
IF x% = 160 THEN GOTO 160
IF x% = 161 THEN GOTO 161
IF x% = 162 THEN GOTO 162
IF x% = 163 THEN GOTO 163
IF x% = 164 THEN GOTO 164
IF x% = 165 THEN GOTO 165
IF x% = 166 THEN GOTO 166
IF x% = 167 THEN GOTO 167
IF x% = 168 THEN GOTO 168
IF x% = 169 THEN GOTO 169
IF x% = 170 THEN GOTO 170
IF x% = 171 THEN GOTO 171
IF x% = 172 THEN GOTO 172
IF x% = 173 THEN GOTO 173
IF x% = 174 THEN GOTO 174
IF x% = 175 THEN GOTO 175
IF x% = 176 THEN GOTO 176
IF x% = 177 THEN GOTO 177
IF x% = 178 THEN GOTO 178
IF x% = 179 THEN GOTO 179
IF x% = 180 THEN GOTO 180
IF x% = 181 THEN GOTO 181
IF x% = 182 THEN GOTO 182
IF x% = 183 THEN GOTO 183
IF x% = 184 THEN GOTO 184
IF x% = 185 THEN GOTO 185
IF x% = 186 THEN GOTO 186
IF x% = 187 THEN GOTO 187
IF x% = 188 THEN GOTO 188
IF x% = 189 THEN GOTO 189
IF x% = 190 THEN GOTO 190
IF x% = 191 THEN GOTO 191
IF x% = 192 THEN GOTO 192
IF x% = 193 THEN GOTO 193
IF x% = 194 THEN GOTO 194
IF x% = 195 THEN GOTO 195
IF x% = 196 THEN GOTO 196
IF x% = 197 THEN GOTO 197
IF x% = 198 THEN GOTO 198
IF x% = 199 THEN GOTO 199
IF x% = 200 THEN GOTO 200
IF x% = 201 THEN GOTO 201
IF x% = 202 THEN GOTO 202
IF x% = 203 THEN GOTO 203
IF x% = 204 THEN GOTO 204
IF x% = 205 THEN GOTO 205
IF x% = 206 THEN GOTO 206
IF x% = 207 THEN GOTO 207
IF x% = 208 THEN GOTO 208
IF x% = 209 THEN GOTO 209
IF x% = 210 THEN GOTO 210
IF x% = 211 THEN GOTO 211
IF x% = 212 THEN GOTO 212
IF x% = 213 THEN GOTO 213
IF x% = 214 THEN GOTO 214
IF x% = 215 THEN GOTO 215
IF x% = 216 THEN GOTO 216
IF x% = 217 THEN GOTO 217
IF x% = 218 THEN GOTO 218
IF x% = 219 THEN GOTO 219
IF x% = 220 THEN GOTO 220
IF x% = 221 THEN GOTO 222
IF x% = 223 THEN GOTO 223
IF x% = 224 THEN GOTO 224
IF x% = 225 THEN GOTO 225
IF x% = 226 THEN GOTO 226
IF x% = 227 THEN GOTO 227
IF x% = 228 THEN GOTO 228
IF x% = 229 THEN GOTO 229
IF x% = 230 THEN GOTO 230
IF x% = 231 THEN GOTO 231
IF x% = 232 THEN GOTO 232
IF x% = 233 THEN GOTO 233
IF x% = 234 THEN GOTO 234
IF x% = 235 THEN GOTO 235
IF x% = 236 THEN GOTO 236
IF x% = 237 THEN GOTO 237
IF x% = 238 THEN GOTO 238
IF x% = 239 THEN GOTO 239
IF x% = 240 THEN GOTO 240
IF x% = 241 THEN GOTO 241
IF x% = 242 THEN GOTO 242
1! :
PRINT ":-)      Basic Smiley"
GOTO fin
2! :
PRINT ",-)      Winking happy Smiley"
GOTO fin
3! :
PRINT "(-:      Left hand Smiley"
GOTO fin
4! :
PRINT "(:-)     Smiley big face"
GOTO fin
5! :
PRINT "(:-(     Very unhappy Smiley"
GOTO fin
6! :
PRINT ",-}      Wry and winking Smiley"
GOTO fin
7! :
PRINT "8-O      O My God"
GOTO fin
8! :
PRINT "'-)      Winking Smiley"
GOTO fin
9! :
PRINT ":-#      My lips are scaled"
GOTO fin
10! :
PRINT ":-*      Kiss"
GOTO fin
11! :
PRINT ":-/      Skeptical Smiley"
GOTO fin
12! :
PRINT ":->      Sarcastic Smiley"
GOTO fin
13! :
PRINT ":-@      Screaming Smiley"
GOTO fin
14! :
PRINT ":-d      Said with a smile"
GOTO fin
15! :
PRINT ":-V      Shouting Smiley"
GOTO fin
16! :
PRINT ":-X      A big wet kiss"
GOTO fin
17! :
PRINT ":-\      Undecided Smiley"
GOTO fin
18! :
PRINT ":-]      Smiley blockhead"
GOTO fin
19! :
PRINT ";-(      Crying Smiley"
GOTO fin
20! :
PRINT ">;->     A very lewd remark was just made"
GOTO fin
21! :
PRINT ";^)      Smirking Smiley"
GOTO fin
22 :
PRINT "%-)      Smiley after staring at a screen for 15 hours straight"
GOTO fin
23 :
PRINT "):-(     Nordic Smiley"
GOTO fin
24 :
PRINT "3:]      Lucy my pet dog Smiley"
GOTO fin
25 :
PRINT ":-&      Tongue tied"
GOTO fin
26 :
PRINT "8:-)     Little girl Smiley"
GOTO fin
27 :
PRINT ":-)8<    Big girl Smiley"
GOTO fin
28 :
PRINT ":-O      Talkaktive Smiley"
GOTO fin
29 :
PRINT ":-6      Smiley after eating something spicy"
GOTO fin
30 :
PRINT "+:-)     Priest Smiley"
GOTO fin
31 :
PRINT "O:-)     Angel Smiley"
GOTO fin
32 :
PRINT ":-<      Walrus Smiley"
GOTO fin
33 :
PRINT ":-?      Smiley smokes a pipe"
GOTO fin
34 :
PRINT ":-E      Bucktoothed vampire"
GOTO fin
35 :
PRINT ":-Q      Smoking Smiley"
GOTO fin
36 :
PRINT ":-}X     Bow tie-wearing Smiley"
GOTO fin
37 :
PRINT ":-[      Vampire Smiley"
GOTO fin
38 :
PRINT ":-a      Smiley touching her tongue to her nose"
GOTO fin
39 :

PRINT ":-{      Mustache"
GOTO fin
40 :

PRINT ":-{}     Smiley wears lipstick"
GOTO fin
41 :

PRINT ":^)      Smiley with a personality"
GOTO fin
42 :

PRINT ":0)      Pig Smiley"
GOTO fin
43 :
PRINT "<:-l     Dunce Smiley"
GOTO fin
44 :
PRINT ":=)      Orangutan Smiley"
GOTO fin
45 :
PRINT ">:->     Devilish Smiley"
GOTO fin
46 :
PRINT ">:-l     Klingon Smiley"
GOTO fin
47 :
PRINT "@:-)     Smiley wearing a turban"
GOTO fin
48 :
PRINT "@:-}     Smiley just back from the hairdresser"
GOTO fin
49 :
PRINT "C=:-)    Chef Smiley"
GOTO fin
50 :
PRINT "X:-)     Smiley with a mop top"
GOTO fin
51 :
PRINT "[:-)     Smiley wearing a walkman"
GOTO fin
52 :
PRINT "[:]      Robot Smiley"
GOTO fin
53 :
PRINT "{:-)     Smiley wears a toupee"
GOTO fin
54 :
PRINT "}:-)     Above in an updraft"
GOTO fin
55 :
PRINT "l^o      Hepcat Smiley"
GOTO fin
56 :
PRINT "}:^#)    Pointy nosed Smiley with mustache"
GOTO fin
57 :
PRINT ":-(=)    Bucktooth Smiley"
GOTO fin
58 :

PRINT "O-)      Message from cyclops"
GOTO fin
59 :

PRINT ":-3      Handlebar mustache Smiley"
GOTO fin
60 :

PRINT ": =      Beaver Smiley"
GOTO fin
61 :

PRINT ":-O-     Whistling Smiley "
GOTO fin
62 :
PRINT "P-(      Pirate Smiley"
GOTO fin
63 :
PRINT "?-(      Black eye"
GOTO fin
64 :
PRINT "d:-)     Baseball Smiley"
GOTO fin
65 :
PRINT ":8)      Pigish Smiley"
GOTO fin
66 :
PRINT ":-7      Smirking Smiley"
GOTO fin
67 :
PRINT "):-)     Impish Smiley"
GOTO fin
68 :
PRINT ":/\)     Extremely bignosed Smiley"
GOTO fin
69 :

PRINT "8(:-)    Mickey Mouse"
GOTO fin
70 :

PRINT "([(      Robocop"
GOTO fin
71 :

PRINT ":-(*)    That comment made me sick"
GOTO fin
72 :
PRINT "&-l      That made me cry"
GOTO fin
73 :
PRINT ":-e      Disappointed Smiley"
GOTO fin
74 :
PRINT ":,(      Crying Smiley"
GOTO fin
75 :
PRINT ":-(      Boo hoo"
GOTO fin
76 :
PRINT ":-P      Nyahhhh!"
GOTO fin
77 :
PRINT ":-S      What you say makes no sense"
GOTO fin
78 :
PRINT ":-[      Un-Smiley blockhead"
GOTO fin
79 :

PRINT ":-C      Real unhappy Smiley"
GOTO fin
80 :

PRINT ":-r      Smiley raspberry"
GOTO fin
81 :
PRINT ":-t      Pouting Smiley"
GOTO fin
82 :
PRINT ":-W      Speak with forked tongue"
GOTO fin
83 :
PRINT "X-(      You are brain dead"
GOTO fin
84 :
PRINT "l-O      Smiley is yawning"
GOTO fin
85 :
PRINT "l:-O     Flattop loudmouth Smiley"
GOTO fin
86 :
PRINT "$-)      Yuppie Smiley"
GOTO fin
87 :
PRINT ":-!      Foot in mouth"
GOTO fin
88 :
PRINT ":----}   You lie like pinnochio"
GOTO fin
89 :
PRINT "O-)      Smiley after smoking a banana"
GOTO fin
90 :
PRINT "=:-)     Smiley is a punk"
GOTO fin
91 :
PRINT "=:-(     Real punks never smile"
GOTO fin
92 :
PRINT "3:[      Pit bull Smiley"
GOTO fin
93 :
PRINT "8<:-)    Smiley is a wizard"
GOTO fin
94 :
PRINT ":#)      Drunk Smiley"
GOTO fin
95 :
PRINT "8-#      Dead Smiley"
GOTO fin
96 :
PRINT ";-)      Winky smilie"
GOTO fin
97 :
PRINT ":-I      Indifferent smilie."
GOTO fin
98 :
PRINT ";->      Winky lewd smilie"
GOTO fin
99 :
PRINT ":*)      Drunk Smiley"
GOTO fin
100 :
PRINT "8-)      Smiley wearing sunglasses"
GOTO fin
101 :
PRINT "B:-)     Smiley with sunglasses on head"
GOTO fin
102 :
PRINT "::-)     Smiley wearing normal glasses"
GOTO fin
103 :
PRINT "B-)      Smiley wearing horn-rimmed glasses"
GOTO fin
104 :
PRINT ":-)-8    Big girl Smiley"
GOTO fin
105 :
PRINT ":-{)     Smiley with a mustache"
GOTO fin
106 :
PRINT ":-F      Bucktoothed vampire with one tooth missing"
GOTO fin
107 :
PRINT ":-*      Smiley just ate something sour"
GOTO fin
108 :
PRINT ":-)~     Drooling Smiley"
GOTO fin
109 :
PRINT ":-~)     Smiley has a cold"
GOTO fin
110 :
PRINT ": '-(     Smiley is crying"
GOTO fin
111 :
PRINT ": '-)    Smiley is so happy, s/he is crying"
GOTO fin
112 :
PRINT ":-#      Smiley wears braces"
GOTO fin
113 :
PRINT ":v)      Smiley has a broken nose"
GOTO fin
114 :
PRINT "::<)      Smiley is from an Ivy League School"
GOTO fin
115 :
PRINT "=:-)     Smiley is a hosehead"
GOTO fin
116 :
PRINT "-:-)     Smiley is a punk rocker"
GOTO fin
117 :
PRINT "-:-(     (Real punk rockers don't smile)"
GOTO fin
118 :
PRINT "+-[:-)   Smiley is the Pope or holds some other religious office"
GOTO fin
119 :
PRINT "`:-)     Smiley shaved one of his eyebrows off this morning"
GOTO fin
120 :
PRINT ",:-)     Same thing...other side"
GOTO fin
121 :
PRINT "|-I      Smiley is asleep"
GOTO fin
122 :
PRINT "|-O      Smiley is yawning/snoring"
GOTO fin
123 :
PRINT "O-)      A scuba diver"
GOTO fin
124 :
PRINT "O :-)    Another angel smilie"
GOTO fin
125 :
PRINT ":-D      Smiley is laughing (at you!)"
GOTO fin
126 :
PRINT ":-X      Smiley's lips are sealed"
GOTO fin
127 :
PRINT "@=       Smiley is pro-nuclear war"
GOTO fin
128 :
PRINT "*<:-)    Smiley is wearin a Santa Claus Hat"
GOTO fin
129 :
PRINT ":-o      Uh oh!"
GOTO fin
130 :
PRINT "(8-o     It's Mr. Bill!"
GOTO fin
131 :
PRINT "*:o)     Bozo the Clown!"
GOTO fin
132 :
PRINT "d8=      Your pet beaver is wearing goggles and a hard hat."
GOTO fin
133 :
PRINT "E-:-)    Smiley is a Ham radio operator"
GOTO fin
134 :
PRINT ":-9      Smiley is licking his/her lips"
GOTO fin
135 :
PRINT "%-6      Smiley is braindead"
GOTO fin
136 :
PRINT "(:I      Smiley is an egghead"
GOTO fin
137 :
PRINT "<:-I     Smiley is a dunce"
GOTO fin
138 :
PRINT "K:P      Smiley is a little kid with a propeller beenie"
GOTO fin
139 :
PRINT ":-0      No Yelling!  (Quiet Lab)"
GOTO fin
140 :
COLOR 10
PRINT ":-:      Mutant Smilie"
COLOR 15
GOTO fin
141 :
PRINT "         The invisible smilie"
GOTO fin
142 :
PRINT ".-)      Smiley only has one eye"
GOTO fin
143 :
PRINT ",-)      One eye winking!"
GOTO fin
144 :
PRINT "X-(      Smiley just died"
GOTO fin
145 :
PRINT "8 :-)    Smiley is a wizard"
GOTO fin
146 :
PRINT ":)       Midget smilie"
GOTO fin
147 :
PRINT ":]       Gleep...a friendly midget smilie who will be your friend"
GOTO fin
148 :
PRINT "=)       Variation on a theme..."
GOTO fin
149 :
PRINT ":}       What should we call these? (what?)"
GOTO fin
150 :
PRINT ":>       Lewd"
GOTO fin
151 :
PRINT ":@       Stress scream"
GOTO fin
152 :
PRINT ":D       Laughter"
GOTO fin
153 :
PRINT ":I       Hmmm..."
GOTO fin
154 :
PRINT ":(       Sad"
GOTO fin
155 :
PRINT ":[       Real Downer"
GOTO fin
156 :
PRINT ":<       Disappointed"
GOTO fin
157 :
PRINT ":{       Bummed big time"
GOTO fin
158 :
PRINT ":O       Yelling"
GOTO fin
159 :
PRINT "BI       A frog"
GOTO fin
160 :
PRINT ":C       Really sad"
GOTO fin
161 :
PRINT ":Q       Smoking"
GOTO fin
162 :
PRINT "[]       Hugs and"
GOTO fin
163 :
PRINT ":*       Kisses"
GOTO fin
164 :
PRINT "|I       Asleep"
GOTO fin
165 :
PRINT "|^o      Snoring"
GOTO fin
166 :
PRINT ":-`      Smiley spitting out its chewing tobacco"
GOTO fin
167 :
PRINT ":-1      Smiley bland face"
GOTO fin
168 :
PRINT ":-#)     Smiley face with bushy mustache"
GOTO fin
169 :
PRINT ":-$      Smiley face with it's mouth wired shut"
GOTO fin
170 :
PRINT ":-%      Smiley banker"
GOTO fin
171 :
PRINT "8-)      Smiley swimmer"
GOTO fin
172 :
PRINT ":-*      Smiley after eating something bitter"
GOTO fin
173 :
PRINT ":-0      Smiley orator"
GOTO fin
174 :
PRINT ")8-)     Scuba Smiley big-face"
GOTO fin
175 :
PRINT ":-q      Smiley trying to touch its tongue to its nose"
GOTO fin
176 :
PRINT ":-t      Cross Smiley"
GOTO fin
177 :
PRINT ":-i      Semi-Smiley"
GOTO fin
178 :
PRINT ":-o      Smiley singing national anthem"
GOTO fin
179 :
PRINT ":-p      Smiley sticking its tongue out (at you!)"
GOTO fin
180 :
PRINT ":-}      Smiley is sticking his tongue out!"
GOTO fin
181 :
PRINT ":-s      Smiley after a BIZARRE comment"
GOTO fin
182 :
PRINT ":-d      Lefty Smiley razzing you"
GOTO fin
183 :
PRINT "g-)      Monocled Smiley"
GOTO fin
184
PRINT ":-j      Left smiling smilely"
GOTO fin
185 :
PRINT ":-K      Little Smiley with a chin"
GOTO fin
186 :
PRINT ":-l      Y. A. S."
GOTO fin
187 :
COLOR 10
PRINT ":-:      Mutant Smiley"
COLOR 15
GOTO fin
188 :
PRINT ":-|      Have an ordinary day Smiley "
GOTO fin
189 :
PRINT ":-<      Real sad Smiley"
GOTO fin
190 :
PRINT ":->      Y.A.S."
GOTO fin
191 :
PRINT ":-z      Y.A.C.S."
GOTO fin
192 :
PRINT ":-x      My lips are sealed Smiley"
GOTO fin
193 :
PRINT ":-c      Bummed out Smiley"
GOTO fin
194 :
PRINT ":-v      Talking head Smiley"
GOTO fin
195 :
PRINT ":-b      Left-pointing tongue Smiley"
GOTO fin
196 :
PRINT ".-]      One-eyed smilely"
GOTO fin
197 :
PRINT "0-)      Smiley cyclops (scuba diver?)"
GOTO fin
198 :
PRINT ":-=)     Older Smiley with mustache"
GOTO fin
199 :
PRINT ":u)      Smiley with funny-looking left nose"
GOTO fin
200 :
PRINT ":n)      Smiley with funny-looking right nose"
GOTO fin
201 :
PRINT ":<       Midget unsmiley"
GOTO fin
202 :
PRINT ":>       Midget Smiley"
GOTO fin
203 :
PRINT "~~:-(    Net.flame"
GOTO fin
204 :
PRINT "|-)      Hee Hee"
GOTO fin
205 :
PRINT "O |-)    Net.religion"
GOTO fin
206 :
PRINT "|-D      Ho Ho"
GOTO fin
207 :
PRINT "8 :-I    Net.unix-wizards"
GOTO fin
208 :
PRINT "X-(      Net.suicide"
GOTO fin
209 :
PRINT ":-I      Hmm"
GOTO fin
210 :
PRINT "E-:-I    Net.ham-radio"
GOTO fin
211 :
PRINT ">:-I     Net.startrek"
GOTO fin
212 :
PRINT "3:o[     Net.pets"
GOTO fin
213 :
PRINT "|-P      Yuk"
GOTO fin
214 :
PRINT ":-}      Beard"
GOTO fin
215 :
PRINT ":-)X     Bow tie"
GOTO fin
216 :
PRINT "<:I      Dunce"
GOTO fin
217 :
PRINT "(:I      Egghead"
GOTO fin
218 :
PRINT "@:I      Turban"
GOTO fin
219 :
PRINT "8-)      Glasses"
GOTO fin
220 :
PRINT "8:-)     Glasses on forehead"
GOTO fin
221 :
PRINT ":-8(     Condescending stare"
GOTO fin
222 :
PRINT "8-|      Suspensful smilie"
GOTO fin
223 :
PRINT "8-)      Smiley with big eyes...perhaps wearing contact lenses..."
GOTO fin
224 :
PRINT "|-(      Smiley lost his contact lenses"
GOTO fin
225 :
PRINT "H-)      Cross-eyed Smiley"
GOTO fin
226 :
PRINT "+-(      Smiley, shot between the eyes"
GOTO fin
227 :
PRINT "~:-D     Smiley, thinking and steaming or having only one single hair"
GOTO fin
228 :
PRINT "`'       Cat's eyes in the night"
GOTO fin
229 :
PRINT "         Ghost Smiley in invisible state"
GOTO fin
230 :
PRINT "L-P      Totally scrambled Smiley (thats why L-P Mud exists... B)"
GOTO fin
231 :
PRINT "O-|      Big Smiley Is Watching You"
GOTO fin
232 :
PRINT ">/.#(    Adolf Hitler"
GOTO fin
233 :
PRINT ">:-{}    Mick Jagger"
GOTO fin
234 :
PRINT ">(Z(:^P  Napoleon"
GOTO fin
235 :
PRINT "0B>5:-)  Elvis"
GOTO fin
236 :
PRINT ">@:-)    Elvis"
GOTO fin
237 :
PRINT ": .)     Cindy Crawford"
GOTO fin
238 :
PRINT ": - =    Hitler"
GOTO fin
239 :
PRINT "[ : ]    Frankenstien"
GOTO fin
240 :
PRINT "7:^]     Reagan"
GOTO fin
241 :
PRINT "\|://    Bush"
GOTO fin
242 :
PRINT "=|:-)=   Abe Lincoln"
fin:
PRINT ""
PRINT ""
PRINT "What now? "
PRINT "(Enter selects another smilie)"
PRINT "1. Return to main menu"
PRINT "2. RELATED TOPIC: Smiley Quiz"
PRINT "3. Previous smiley"
PRINT "4. Quit database"
lop:  opp$ = INKEY$
IF opp$ = CHR$(27) THEN GOTO finish
IF opp$ = "" GOTO lop
IF opp$ = "1" AND name$ = "Administrator" THEN GOTO menu3
IF opp$ = "1" THEN GOTO menu
IF opp$ = CHR$(13) THEN GOTO resmile
 GOTO begin2
CLOSE #3
IF opp$ = "3" THEN x% = backup%: GOTO trynew
IF opp$ = "4" THEN GOTO finish
GOTO quit
quiz:
CLS 0
PRINT "Which one?"
PRINT "1. Normal quiz"
PRINT "2. Smilie quiz"
PRINT "3. Maths quiz"
PRINT "4. Exit quiz mode"
slog:  qmode$ = INKEY$
 IF qmode$ = "" GOTO slog
IF name$ = "Administrator" AND qmode$ = "4" THEN GOTO menu3
IF qmode$ = "1" THEN GOTO begin1
IF qmode$ = CHR$(27) THEN GOTO finish
IF qmode$ = "2" THEN GOTO begin2
IF qmode$ = "3" THEN GOTO math
IF qmode$ = "4" THEN GOTO menu
GOTO quit
begin1:
CLS 0
PRINT "1."
PRINT "Spell the word which magicians use, and has 5 A's in it."
INPUT "", q1$
IF INKEY$ = CHR$(27) THEN GOTO finish
IF q1$ = "Abracadabra" OR q1$ = "abracadabra" THEN GOTO q2
 GOTO wrong
wrong:
COLOR 15
PRINT ""
PRINT "Sorry..."
PRINT ""
PRINT "What now?"
PRINT ""
PRINT "Press enter to return to quiz menu"
PRINT "1. Return to main menu"
PRINT "2. Quit"
loi:  ent$ = INKEY$
 IF ent$ = "" GOTO loi
 IF ent$ = "2" AND name$ = "Administrator" THEN GOTO menu3
IF ent$ = "1" THEN GOTO menu
IF ent$ = "2" THEN GOTO finish
IF ent$ = CHR$(27) THEN GOTO finish
GOTO quiz
q2:
PRINT "2."
PRINT "What is the square root of 100?"
INPUT "", q2$
IF q2$ = "10" THEN GOTO q3
 GOTO wrong
q3:
PRINT "What is Sonic the Hedgehog's 2-tailed friend called? (real name!)"
INPUT "", q3$
IF q3$ = "Miles Prower" OR q3$ = "Tails" THEN GOTO q4
 GOTO wrong
q4:
PRINT "4."
PRINT "Draw a normal smilie"
INPUT "", SMILE$
COLOR 14
IF SMILE$ = ":-)" THEN GOTO q5
 GOTO wrong
q5:
COLOR 15
PRINT "5."
PRINT "What name does this file have?"
INPUT "", file$
IF file$ = "database.bas" THEN GOTO complete
GOTO wrong
complete:
CLS 0
SOUND 50, 1
SOUND 100, 1
SOUND 150, 1
SOUND 200, 1
SOUND 250, 1
SOUND 300, 1
SOUND 350, 1
SOUND 400, 1
SOUND 450, 1
SOUND 500, 1
SOUND 550, 1
SOUND 600, 1
SOUND 650, 1
SOUND 700, 1
SOUND 750, 1
SOUND 800, 1
SOUND 850, 1
SOUND 900, 1
SOUND 950, 1
SOUND 1000, 1
SOUND 1050, 1
SOUND 1100, 1
SOUND 1150, 1
SOUND 1200, 1
SOUND 1250, 1
SOUND 1300, 1
SOUND 1350, 1
SOUND 1400, 1
SOUND 1450, 1
SOUND 1500, 1
SOUND 1550, 1
SOUND 1600, 1
SOUND 1650, 1
SOUND 1700, 1
SOUND 1750, 1
SOUND 1800, 1
SOUND 1850, 1
SOUND 1900, 1
SOUND 1950, 1
SOUND 2000, 1
pooey:
COLOR 15
RANDOMIZE TIMER
poo% = INT(RND * 30) + 1
COLOR 30
PRINT "            |-------------------------------|"
COLOR 29
PRINT "            |                               |"
COLOR 28
PRINT "            |    ___             ___        |"
COLOR 27
PRINT "            |   |


|           |


|       |"
COLOR 26
PRINT "            |   |___|           |___|       |"
COLOR 25
PRINT "            |                               |"
COLOR 24
PRINT "            |                               |"
COLOR 23
PRINT "            |       Happy Hour!             |"
COLOR 22
PRINT "            |    __               __        |"
COLOR 21
PRINT "            |    \ \             / /        |"
COLOR 20
PRINT "            |     \ \_         _/ /         |"
COLOR 19
PRINT "            |      \_ \_______/ _/          |"
COLOR 18
PRINT "            |        \_________/            |"
COLOR 17
PRINT "            |-------------------------------|"
PRINT ""
CLOSE #1, #2, #3, #4
OPEN "" FOR APPEND AS #4
IF qmode$ = "1" THEN qmode$ = "Normal Quiz"
IF qmode$ = "2" THEN qmode$ = "Smilie Quiz"
IF qmode$ = "3" THEN qmode$ = "Maths Quiz"
IF qmode$ = "" OR qmode$ = "0" THEN qmode$ = "Smilie Quiz"
PRINT #4, name$; " completed the "; qmode$; " on "; DATE$; ", "; TIME$
CLOSE #4
PRINT ""
COLOR 15
PRINT "Well done!"
PRINT ""
PRINT "1. Return to main menu"
PRINT "2. Return to quiz menu"
PRINT "3. Quit"
loa:  opppo$ = INKEY$
IF opppo$ = "" GOTO loa
IF oppo$ = "1" AND name$ = "Administrator" THEN GOTO menu3
IF opppo$ = "1" THEN GOTO menu
IF opppo$ = "2" THEN GOTO quiz
IF opppo$ = CHR$(27) THEN GOTO finish
IF opppo$ = "3" THEN GOTO finish
GOTO quit
test:
I = 0
CLS
COLOR 15
TIMER OFF

ON TIMER(1) GOSUB doitnow
LOCATE 3, 1: PRINT "5 - 10 is good. Takes while for final result."
DO
I = I + 1
LOCATE 1, 1: PRINT I
LOOP
doitnow:
ON ERROR GOTO errhand
LOCATE 2, 1: PRINT "Calculating..."
COLOR 15
I = I / 2
LOCATE 1, 1: PRINT I
I = I / 2
LOCATE 1, 1: PRINT I
I = I / 2
LOCATE 1, 1: PRINT I
I = I / 2
I = I / 2
I = I / 2
LOCATE 1, 1: PRINT I
SLEEP 1
I = I / 2
I = I / 2
I = I / 2

LOCATE 1, 1: PRINT I
CLS 0
IF I > 10 THEN comp$ = "This computer is absolutely brilliant excellent perfecty" + CHR$(13) + "excellent. I am envious."
IF I < 10 AND I > 9 THEN comp$ = "This is a very fast machine here. Be proud of it."
IF I < 9 AND I > 8 THEN comp$ = "You have one of the top o' the range machines."
IF I < 8 AND I > 7 THEN comp$ = "This is a high-spec machine"
IF I < 7 AND I > 6 THEN comp$ = "This is a decent machine."
IF I < 6 AND I > 5 THEN comp$ = "This is a pretty good system."
IF I < 5 AND I > 4 THEN comp$ = "It's an OK machine."
IF I < 4 AND I > 3 THEN comp$ = "It's not a very good system."
IF I < 3 AND I > 2 THEN comp$ = "It's a bad system."
IF I < 2 AND I > 1 THEN comp$ = "This is awful."
IF I < 1 AND I > 0 THEN comp$ = "<Flabbergasted.> How can anyone USE this system?"
ON ERROR GOTO 0
doit:
PRINT comp$
PRINT ""
PRINT "Hit ENTER to continue..."
SLEEP
INPUT "", plo$
IF NOT plo$ = "" THEN GOTO quit
GOTO util
errhand:
comp$ = "Yikes. It's so bad, it failed the test!!!"
GOTO doit
begin2:
CLS 0
COLOR 15
PRINT "1. Draw a normal smilie"
COLOR 14
INPUT "", SMILE$
COLOR 14
IF SMILE$ = ":-)" THEN GOTO qs2
COLOR 15
GOTO wrong
qs2:
COLOR 15
PRINT ""
PRINT "Draw a winking smilie (a lot harder, you can't see!)"
COLOR 0
INPUT "", smile2$
IF smile2$ = ";-)" THEN GOTO qs3
COLOR 15
GOTO wrong
qs3:
COLOR 15
PRINT ""
PRINT "Draw a mutant smilie"
COLOR 10
INPUT "", smile3$
IF smile3$ = ":-:" THEN GOTO qs4
GOTO wrong
qs4:
COLOR 15
PRINT ""
PRINT "Draw a BomberSmilie"
COLOR 4
INPUT "", smile4$
IF smile4$ = "0-[:-D]" THEN GOTO qs5
GOTO wrong
qs5:
COLOR 15
PRINT ""
PRINT "Draw an antennae (invisible)"
COLOR 0
INPUT "", smile5$
IF smile5$ = "0-" THEN GOTO qs6
COLOR 15
GOTO wrong
qs6:
COLOR 15
PRINT ""
PRINT "Draw a Happy Hour smilie"
COLOR 12
INPUT "", smile6$
IF smile6$ = ":-D" THEN GOTO complete
COLOR 15
GOTO wrong
math:
CLS 0
PRINT "What is 20 squared?"
INPUT "", mq1$
IF mq1$ = "400" THEN GOTO qm2
GOTO wrong
hell:
FOR c% = 1 TO 3000
 l% = 2
FOR z% = 3000 TO 50
SOUND z%, 2
NEXT z%
NEXT c%
GOTO go
qm2:
COLOR 15
PRINT ""
PRINT "Find D:"
PRINT ""
PRINT "10 - H = D"
PRINT "H x 2 = 10"
PRINT ""
COLOR 15
INPUT "D=  ", mq2$
IF mq2$ = "5" THEN GOTO complete
GOTO wrong
games:
COLOR 15
CLS 0
PRINT "Choose one:  "
PRINT ""
PRINT "1. My Name"
PRINT "2. Eraser"
PRINT "3. Guess the code!"
PRINT "4. Rose"
PRINT "5. Scare"
PRINT "6. Cat Pooping"
PRINT "7. Cat Butt"
PRINT "8. Sky"
PRINT "9. USA"
PRINT "*. Randomize graphic choice!"
PRINT "0. Exit games"
lot:  gamech$ = INKEY$
IF gamech$ = "" THEN GOTO lot
IF gamech$ = "*" THEN GOTO rndd
GOTO bin
rndd:
re2:
gamech% = INT(RND * 9) + 1
IF gamech% = 1 THEN GOTO gorilla
IF gamech% = 2 THEN GOTO nibble
IF gamech% = 3 THEN GOTO code
IF gamech% = 4 THEN GOTO hoo
IF gamech% = 5 THEN GOTO rubish
IF gamech% = 6 THEN PRINT "": PRINT "Please wait...": RUN "A:\cat.bas"
IF gamech% = 7 THEN PRINT "": PRINT "Please wait...": RUN "A:\cat2.bas"
IF gamech% = 8 THEN PRINT "": PRINT "Please wait...": RUN "A:\clouds.bas"
IF gamech% = 9 THEN GOTO beginus
GOTO re2
bin:
IF gamech$ = "1" THEN GOTO gorilla
IF gamech$ = "2" THEN GOTO nibble
IF gamech$ = "3" THEN GOTO code
IF gamech$ = "4" THEN GOTO hoo
IF gamech$ = "5" THEN GOTO rubish
IF gamech$ = "6" THEN PRINT "": PRINT "Please wait...": RUN "A:\cat.bas"
IF gamech$ = CHR$(27) THEN GOTO finish
IF gamech$ = "7" THEN PRINT "": PRINT "Please wait...": RUN "A:\cat2.bas"
IF gamech$ = "0" AND name$ = "Administrator" THEN GOTO menu3
IF gamech$ = "0" THEN GOTO menu
IF gamech$ = "8" THEN PRINT "": PRINT "Please wait...": RUN "A:\clouds.bas"
IF gamech$ = "9" THEN GOTO beginus
GOTO quit
code:
CLS
    DEF SEG = 0
    POKE &H417, (Status% XOR &H40)
PRINT "De-fuse the missile in 4 goes!"
PRINT "Guess with the letters A-Z"
PRINT ""
RANDOMIZE TIMER
 c$ = CHR$(64 + INT(RND * 26 + 1))
FOR g = 1 TO 4
PRINT "Letter:"
 n = 0: LET a = 1
plot:  g$ = INKEY$
 IF g$ = "" GOTO plot
IF g$ = c$ THEN GOTO welldone
IF g$ = CHR$(27) THEN GOTO finish
IF g$ < c$ THEN PRINT "Later than "; g$
IF g$ > c$ THEN PRINT "Earlier than "; g$
NEXT g
CLS
PRINT "You died in the explosion"
PRINT "The correct code was "; c$
GOTO en
welldone:
CLS
PRINT "Well Done!"
en:
DEF SEG = 0
Status% = PEEK(&H417)
POKE &H417, (Status% XOR &H40)
SLEEP 2
GOTO games
RANDOMIZE TIMER
hoo:
CLS
PRINT "": RUN "a:\rose.bas"
starto:
a10: CLS :  n = 0:  a = ASC("a")
a20:  x = INT(RND(1) * 26 + a)
a30: PRINT : PRINT "Find: "; CHR$(x)
a40:  a$ = INKEY$
n = n + 1
a50: IF a$ = "" GOTO a40
IF a$ = CHR$(27) THEN GOTO finish
a60: IF a$ <> CHR$(x) THEN GOTO a120
a70:  s = INT((n / 235) * 10) / 130
a80: PRINT "You took "; s; " seconds"
SLEEP 2
a110: GOTO a10
a120: PRINT "Wrong Key"
PRINT ""
INPUT "Play again: ", again$
IF again$ = "y" OR again$ = "Y" OR again$ = "yes" OR again$ = "YES" THEN GOTO starto
SLEEP 1
GOTO games
rubish:
PRINT
PRINT "": RUN "a:\scare.bas"
SLEEP 1
GOTO games
PRINT "": PRINT "Please wait...": RUN "A:\scare.bas"
gorillas:
PRINT "": RUN "A:\name.bas"
COLOR 14
PRINT "Access denied!"
SLEEP 1
GOTO games
gorilla:
GOTO gorillas
nibble:
PRINT "": RUN "A:\eraser.bas"
COLOR 14
PRINT "Access denied!"
SLEEP 1
GOTO games
util:
CLS 0
COLOR 15
PRINT "What do you wish to do?"
PRINT "1. Use a database (name, age, etc...)"
PRINT "2. View colorful squares"
PRINT "3. Return to log on screen"
PRINT "4. Goto menu"
PRINT "5. Check NetSpace remaining"
PRINT "6. Calculator"
PRINT "7. Create a directory"
PRINT "8. Delete a directory"
PRINT "9. Show the files in a directory"
PRINT "0. Test the speed of this computer"
PRINT ""
lob:  unix$ = INKEY$
IF unix$ = "" GOTO lob
IF unix$ = "1" THEN GOTO info
IF unix$ = "2" THEN GOTO square
IF unix$ = "3" THEN PRINT "": PRINT "Please wait...": RUN "A:\internet.bas"
IF unix$ = CHR$(27) THEN GOTO finish
IF unix$ = "4" AND name$ = "Administrator" THEN GOTO menu3:
IF unix$ = "4" THEN GOTO menu
IF unix$ = "3" THEN GOTO very
IF unix$ = "5" THEN GOTO flamemem
IF unix$ = "6" THEN GOTO calc
IF unix$ = "7" THEN GOTO md
IF unix$ = "8" THEN GOTO rrmdir
IF unix$ = "9" THEN CLS : ON ERROR GOTO dirnot: INPUT "Directory: ", dir$: CHDIR dir$: FILES: PRINT "": INPUT "Press ENTER...", o: ON ERROR GOTO 0: GOTO util:
IF unix$ = "0" THEN GOTO test
IF unix$ = "*" THEN PRINT "Not available": SLEEP 1: GOTO util
GOTO quit
viewem:
RANDOMIZE TIMER
ERROR (RND * 70) + 1
md:
INPUT "Directory to create: ", dir$
ON ERROR GOTO dirnot
MKDIR dir$
COLOR 15
IF failed = 0 THEN PRINT "The directory "; dir$; " was created successfully!"
IF failed = 1 THEN PRINT "The directory "; dir$; " was NOT created."
OPEN "" FOR APPEND AS #1
caption$ = "User " + name$ + " created directory " + dir$ + " on " + DATE$
PRINT #1, caption$
SLEEP 2
failed = 0
ON ERROR GOTO 0
GOTO util
dirnot:
COLOR 30
PRINT "Warning!"
COLOR 15
PRINT "Access denied - possible cause - invalid directory name!"
failed = 1
SLEEP 2
IF unix$ = "9" GOTO util
RESUME NEXT
rrmdir:
ON ERROR GOTO dirnot
INPUT "Directory to delete: ", dir$
RMDIR dir$
COLOR 15
IF failed = 0 THEN PRINT "The directory "; dir$; " was deleted successfully!"
IF failed = 1 THEN PRINT "The directory "; dir$; " was NOT deleted!"
failed = 0
ON ERROR GOTO 0
SLEEP 2
GOTO util
calc:
PRINT "Please wait........": RUN "a:\calc.bas"
GOTO util
who:
CLS
IF name$ = "Benjamin" THEN name$ = "Benjamin Vickers"
IF name$ = "Jonathan" THEN name$ = "Jonathan Harris"
IF name$ = "Joseph" THEN name$ = "Joseph Smalley"
IF name$ = "DAVE" THEN name$ = "David Woodcock"
IF name$ = "Sonia" THEN name$ = "Sonia Crisp"
IF name$ = "Saha" THEN name$ = "Steve Crisp"
IF name$ = "David" THEN name$ = "David Kneale"
IF name$ = "Dan" THEN name$ = "Daniel Hoyle"
IF name$ = "Sarah" THEN name$ = "Sarah Hoyle"
IF a$ = "Mucus" THEN a$ = "***"
IF a$ = "" OR a$ = " " THEN a$ = "nothing"
PRINT "Name:     "; name$
PRINT "Password: "; a$
PRINT "Time:     "; TIME$
PRINT "Date:     "; DATE$
PRINT "Press ENTER to continue..."
SLEEP
INPUT "", poo$
IF poo$ = "" THEN GOTO util
GOTO quit
sup:
CLS 0
PRINT "To speed up the Loading... process, hit BackSpace to light up a face!"
PRINT "Warning! Your password and name may sometimes be changed using this."
PRINT ""
PRINT "Press ENTER to continue..."
SLEEP
INPUT "", boo$
IF boo$ = "" THEN GOTO co
GOTO quit
co:
GOTO util
info:
CLS 0
INPUT "Name:       ", naame$
INPUT "Age:        ", agge$
INPUT "Hobby       ", tutor$
INPUT "Fave Sport  ", sport$
INPUT "Fave Song   ", song$
INPUT "Fave Food   ", food$
INPUT "Fave Drink  ", drink$
PRINT "Now for your comments on this database. Write what you think is"
INPUT "best, what is worst, why, etc... ", com$
PRINT , naame$
PRINT , agge$
PRINT , tutor$
PRINT , sport$
PRINT , song$
PRINT , food$
PRINT , drink$
PRINT , com$
SLEEP 5
GOTO util
lucky:
CLS 0
PRINT "Count yourself lucky! You have been picked by the random"
PRINT "number generator as the one person to be able to view my name!"
PRINT "To start, press any key now. If you wish to just use the database"
PRINT "instead, type in 'data' at the name menu. The odds of"
PRINT "getting to this  screen are 1 in 20000!!!"
SLEEP
GOTO gorillas
quit:
COLOR 25
SOUND 50, 20
PRINT "Access Denied"
COLOR 15
SLEEP 1
GOTO proper
finish:
PRINT ""
LOCATE 20, 1: PRINT "Thank-You for using version 7.5 Netscape Navigator."
SLEEP 1
SYSTEM
GOTO proper
menu3:
CLS 0
COLOR 12
PRINT "1. Goto the cheats section"
COLOR 6
PRINT "2. Goto the music section"
COLOR 14
PRINT "3. Select random lottery numbers"
COLOR 10
PRINT "4. Select random smilie"
COLOR 11
PRINT "5. Quiz"
COLOR 13
PRINT "6. See some great Ascii-art"
COLOR 15
PRINT "7. Make your own music"
PRINT "8. Games menu"
PRINT "9. Use the Utilities"
PRINT "*. Delete files"
PRINT "]. View Comments"
PRINT "0. Quit"
lp:  cate2$ = INKEY$
 IF cate2$ = "" GOTO lp
IF cate2$ = "1" THEN GOTO cheats
IF cate2$ = "2" THEN GOTO music
IF cate2$ = "3" THEN GOTO lotto
IF cate2$ = CHR$(27) THEN GOTO finish
IF cate2$ = "4" THEN GOTO smilie
IF cate2$ = "5" THEN GOTO quiz
IF cate2$ = "6" THEN GOTO ascii
IF cate2$ = "7" THEN GOTO myo
IF cate2$ = "8" THEN GOTO games
IF cate2$ = "9" THEN GOTO util
IF cate2$ = "*" THEN GOTO delfiles
IF cate2$ = "]" THEN GOTO viewcom
IF cate2$ = "0" THEN GOTO finish
GOTO quit
delfiles:
CLS 0
PRINT "Oops    = CANCEL"
PRINT "<ENTER> =     (login file)"
PRINT "hack    =  (admin hackers)"
PRINT "\       =  (section logins)"
PRINT "pass    =  (incorrect passwords)"
PRINT "data    =  (database inputs)"
PRINT "speed   = "
PRINT "all     = ALL OF THE ABOVE 6"
PRINT ""
INPUT "File to delete:  ", f$
trytokill:
IF f$ = "all" THEN SHELL " >>nul": GOTO tricked
IF f$ = "data" THEN f$ = ""
IF f$ = "speed" THEN f$ = "": redoitforluck = 1
IF f$ = "\" THEN f$ = ""
IF f$ = "" THEN f$ = ""
IF f$ = "pass" THEN f$ = ""
IF f$ = "hack" THEN f$ = ""
IF f$ = "Oops" THEN GOTO menu3
OPEN f$ FOR APPEND AS #1
CLOSE #1
KILL f$
tricked:
IF redoitforluck = 1 THEN OPEN "" FOR APPEND AS #1: CLOSE : KILL "": redoitforluck = 0
    FOR I% = 440 TO 1000 STEP 5
    SOUND I%, I% / 10000
    NEXT I%
    GOTO menu3
filenot:
CLS
PRINT "ERROR - The specified file was not found."
SLEEP 2
GOTO menu3
viewcom:
CLS 0
PRINT "What do you wish to see?"
PRINT "1. The database inputs"
PRINT "2. The Ascii-art"
PRINT "3. The names entered"
PRINT "4. Finish comments"
PRINT "5. View different section logins"
PRINT "6. Check to see if anyone has hacked into Admin"
PRINT "7. Incorret passwords"
PRINT ""
loll:  wiwon$ = INKEY$
 IF wiwon$ = "" GOTO loll
IF wiwon$ = "1" THEN GOTO datain
IF wiwon$ = "2" THEN GOTO ascin
IF wiwon$ = "3" THEN GOTO login
IF wiwon$ = "4" THEN GOTO menu3
IF wiwon$ = CHR$(27) THEN GOTO finish
IF wiwon$ = "5" THEN GOTO SMILE
IF wiwon$ = "6" THEN GOTO hack
IF wiwon$ = "7" THEN GOTO logout
IF wiwon$ = "8" THEN GOTO finish
GOTO quit
CLOSE
logout:
OPEN "" FOR APPEND AS #1
CLOSE
OPEN "" FOR INPUT AS #1
PRINT "Entries in file:": PRINT
DO WHILE NOT EOF(1)
LINE INPUT #1, rec$
PRINT rec$
LOOP
CLOSE #1
PRINT ""
INPUT "Press ENTER...", p
GOTO viewcom
hack:
OPEN "" FOR APPEND AS #1
CLOSE
OPEN "" FOR INPUT AS #1
PRINT "Entries in file:": PRINT
DO WHILE NOT EOF(1)
LINE INPUT #1, rec$
PRINT rec$
LOOP
CLOSE #1
PRINT ""
INPUT "Press ENTER...", p
GOTO viewcom
SMILE:
CLOSE
OPEN "" FOR APPEND AS #1
CLOSE
OPEN "" FOR INPUT AS #1
PRINT "Entries in file:": PRINT
DO WHILE NOT EOF(1)
LINE INPUT #1, rec$
IF INKEY$ = CHR$(27) THEN SLEEP
PRINT rec$
IF INKEY$ = CHR$(27) THEN SLEEP
LOOP
CLOSE #1
PRINT ""
PRINT "Press ENTER...."
INPUT "", t
GOTO viewcom
login:
CLOSE
OPEN "" FOR APPEND AS #1
CLOSE
    OPEN "" FOR INPUT AS #1
    CLS
    PRINT "Entries in file:": PRINT
    DO WHILE NOT EOF(1)
        LINE INPUT #1, rec$
        PRINT rec$
    LOOP
    CLOSE #1
PRINT ""
PRINT "Press ENTER..."
INPUT "", p
GOTO viewcom
notfun:
CLS
PRINT "A disk error occured. Possible cause - file not found."
SLEEP 1
ON ERROR GOTO 0
GOTO util
datain:
OPEN "" FOR APPEND AS #1
CLOSE
OPEN "" FOR INPUT AS #1
CLS
PRINT "Contents of file:": PRINT
DO WHILE NOT EOF(1)
INPUT #1, naame$, agge$, tutor$, sport$, song$, food$, drink$, com$
PRINT "Name:        "; naame$
PRINT "Age:         "; agge$
PRINT "Tutor:       "; tutor$
PRINT "Fave sport:  "; sport$
PRINT "Fave song:   "; song$
PRINT "Fave food:   "; food$
PRINT "Fave drink:  "; drink$
PRINT "Comment:     "; com$
LOOP
CLOSE
PRINT ""
PRINT "Press ENTER key to continue..."
SLEEP
INPUT "", k
GOTO viewcom
ascin:
OPEN "" FOR APPEND AS #1
CLOSE
OPEN "" FOR INPUT AS #1
CLS
PRINT "Comment:": PRINT
DO WHILE NOT EOF(1)
INPUT #1, comm$
PRINT comm$
LOOP
CLOSE #1
PRINT ""
PRINT "Press ENTER to continue..."
SLEEP
INPUT "", jk
GOTO viewcom
proper:
SYSTEM
timeupdate2:
LOCATE 4, 1: PRINT "The current time is "; TIME$
LOCATE 5, 1: PRINT "The current date is "; DATE$
RETURN
beginus:
PRINT "": PRINT "Please wait...": RUN "a:\usa.bas"
GOTO games
reflexus:
COLOR 15
CLS
OPEN "" FOR APPEND AS #1
CLOSE
OPEN "" FOR INPUT AS #1
DO WHILE NOT EOF(1)
INPUT #1, alles$
LOOP
CLOSE
IF alles$ = "" OR alles$ = " " THEN GOTO jolly
OPEN "" FOR INPUT AS #1
PRINT "Is this still ?"
DO WHILE NOT EOF(1)
LINE INPUT #1, rec$
LOCATE 1, 15: PRINT rec$
LOOP
CLOSE #1
INPUT "Y or N: ", yorn$
IF yorn$ = "y" OR yorn$ = "Y" THEN GOTO start
jolly:
CLS
INPUT "What is your name? ", name$
CLOSE
OPEN "" FOR OUTPUT AS #1
PRINT #1, name$
CLOSE #1
PRINT ""
PRINT "Welcome "; name$; " to the ultimate reflex test. Here, random numbers"
PRINT "will flash on screen. Your goal is to hit SPACE BAR on the number the"
PRINT "game tells you. Every level, the numbers increase by ten. There are 10 levels"
PRINT ""
PRINT "Good Luck!"
PRINT ""
start:
PRINT ""
IF yorn$ = "y" OR yorn$ = "Y" THEN PRINT "Are you ready "; rec$; " ?"
PRINT "Press SPACE to start the game..."
DO
t$ = INKEY$
IF t$ = " " THEN EXIT DO
IF t$ = "'" THEN plant = 10: d = 30: GOTO red
LOOP
COLOR 15
RANDOMIZE TIMER
d = 30
pol% = INT(RND * d) + 1
poi = 5000
FOR plant = 1 TO 10
LET d = d + 10
LET poi = poi - 500
RANDOMIZE TIMER
red:
CLS
poll% = INT(RND * d) + 1
z% = INT(RND * d) + 1
IF z% = poll% THEN GOTO red
PRINT "Hit SPACE on number"; poll%; "or number"; z%; ". Press ENTER to begin."
SLEEP
INPUT "", p
DO
CLS
RANDOMIZE TIMER
p% = INT(RND * d) + 1
PRINT p%
FOR poin = 1 TO poi
NEXT poin
fall$ = INKEY$
IF fall$ = "'" THEN p% = poll%: EXIT DO
LOOP UNTIL fall$ = " "
IF p% = poll% OR p% = z% THEN PRINT "Well Done!": SLEEP 2: GOTO lnext
PRINT "Oops...Game Over!"
PRINT "You got to level"; plant
PRINT "Press ENTER..."
INPUT "", l

CLOSE
GOTO games
lnext:
NEXT plant
COLOR 15
SOUND 400, 20
SOUND 500, 10
SOUND 600, 1
PLAY "t200abee"
OPEN "" FOR APPEND AS #1
PRINT #1, name$; " completed the ultimate reflex test on "; DATE$;
PRINT #1, ""
CLOSE #1
COLOR 15
PRINT "Well done "; rec$; " you have completed the": LOCATE 2, 34: COLOR 30: PRINT "ultimate": COLOR 15: LOCATE 2, 43: PRINT "reflex test."
PRINT "You certainly have good hand/eye co-ordination, or"
PRINT "was all that by fluke...?"
PRINT ""
PRINT "Hit ENTER..."
SLEEP
CLOSE
GOTO games

flamemem:
COLOR 3: PRINT "Netscape is running"
SLEEP 2
GOTO util

SUB mega
FOR I = 50 TO 100
SOUND I, 1
NEXT I
END SUB