5 key off:randomize timer
10 PRINT "welcome to chase v 1.0, an action/adventure game.":print "written by Jason SW from BASCentral, at http://bascentral.topcities.com.":print "press b to begin or  or escape to exit."
30 i$=input$(1)
40 IF i$="b" THEN  160
50 IF i$=chr$(27) THEN PRINT "thank you for playing chase, a BASCentral production.":END
70 print "invalid response.":GOTO 30
160 cls:PRINT "you wake up to find yourself in an unfamiliar place."
170 PRINT "you say to yourself, where the hell am I?"
180 PRINT "you get up."
190 SOUND 100,1
200 SOUND 104,1
210 SOUND 100,1
220 SOUND 104,1
230 SOUND 100,1
240 SOUND 104,1
250 PRINT "you here a disturbing noise."
260 print "you look back, and see a spider, 30 times a normal spider's size, and a cannon":print "like thing on it's back, firing.":print "you say, holy shit!"
270 PRINT "you run the other way."
280 PRINT "you come to the end of the passage."
290 PRINT "two doors. one has a panel by it. the other one just has a handle."
300 PRINT "press l for the left door with panel,  w to wait,":print "or r to go through the other."
310 n$=input$(1)
320 IF N$="l" THEN  380
330 IF N$="r" THEN  360
340 IF N$="w" THEN  400
350 GOTO 300
360 PRINT "you run on. after 20 mins, you come to three doors."
370 PRINT "left straight, right. the one ahead of you has a panel by it. press l r w or s.":GOTO 410
380 PRINT "the pannel displays, yellow mutant level, access denied."
390 GOTO 300
400 PRINT "you wait, and the spider comes around a corner,":print "and blows off you're head.":END
410 bc$=input$(1)
420 IF BC$="l" THEN  470
430 IF BC$="s" THEN  510
440 IF BC$="r" THEN  620
450 IF BC$="w" THEN  530
460 GOTO 370
470 PRINT "you go in, and you see a transporter in front of you."
480 PRINT "then it shines, and the spider is in front of you. it takes it's legs, and crushes you're scull and brain."
490 PRINT "you collapse, and die."
500 END
510 PRINT "the pannel displays, blue mutant level, access denied."
520 GOTO 370
530 PRINT "you wait."
540 PRINT "then you here it say"
570 PRINT "i'm coming to get you you basterd."
600 PRINT "it grabs you, and throws you against the wall so hard,":print "that you're brains are showing."
610 END
620 cls:PRINT "a voice from no where says 2 6 9 7, remember it. you'll need it."
630 PRINT "then it opens."
640 PRINT "you stop for a minute, then keep on running."
650 PRINT "you can here the spider chasing after you."
660 PRINT "you come to 1 door."
670 SOUND 100,40
680 PRINT "you walk in."
690 PRINT "there are 2 doors here."
700 PRINT "the spider comes out of one. it says,"
730 PRINT "so, you have gotten to the end."
740 PRINT "well, i wouldn't try getting past. face it squirt, you're dead."
780 PRINT "you see a shotgun, and pick it up."
790 PRINT "shoot it, or run past it? s or r?"
800 bq$=input$(1)
810 IF BQ$="s" THEN  860
820 IF BQ$="r" THEN  840
830 GOTO 790
840 PRINT "you try to run past, but it gets you in it's mouth, and eats you."
850 END
860 cls:PRINT "you raise the shotgun."
890 PRINT "what the hell are you doing?"
920 PRINT "what am i doing? i'm going to blast you're ass to hell!"
930 cls:print "press space to shoot."
940 one$=input$(1)
950 IF ONE$=" " THEN  970
960 GOTO 940
970 SOUND 100,1
980 two$=input$(1)
990 IF TWO$=" " THEN  1010
1000 GOTO 980
1010 SOUND 100,1
1020 THREE$=INPUT$(1)
1030 IF THREE$=" " THEN  1050
1040 GOTO 1020
1050 SOUND 100,1
1060 PRINT "it lets out one long death cry, and crumples."
1070 PRINT "press enter to continue."
1080 LINE INPUT "",ba$
1110 cls:PRINT "you see the other door, and notice it's an elevator door."
1120 PRINT "yeah!!!"
1130 PRINT "you go to it, and press call."
1140 PRINT "out of no where, somebody says"
1170 PRINT "enter password."
1200 INPUT PASSWD$
1210 IF PASSWD$="2697" THEN  1310
1250 PRINT "invalid password."
1280 PRINT "you remember a number, something somebody said."
1290 PRINT "then it hits you. 2 6 9 7!!!"
1300 GOTO 1200
1310 cls:PRINT "the elevator starts coming."
1320 BEEP:PRINT "boss level"
1330 BEEP:PRINT "level 2"
1340 BEEP:PRINT "level 1"
1350 PRINT "the doors open, and you go in."
1360 PRINT "the elevator asks you"
1390 PRINT "enter 2, or boss level."
1420 INPUT LAST$
1430 IF LAST$="2" THEN  1510
1470 PRINT "not available."
1500 GOTO 1370
1510 cls:PRINT "the elevator goes up."
1520 BEEP
1530 PRINT "level 2."
1540 PRINT "the door opens."
1550 PRINT "you walk out."
1560 PRINT "the doors and call button fade away in to solid wall."
1570 PRINT "a voice from behind you says"
1600 PRINT "who disturbs me. what. oh, a human. disgusting. i must destroy it."
1630 PRINT "you run the other way again."
1640 PRINT "you reach the end of the passage."
1650 PRINT "you see amunition clips."
1660 SOUND 200,6
1690 SOUND 220,4
1700 SOUND 210,4
1710 SOUND 200,2
1720 PRINT "that sound means you picked them up."
1730 PRINT "the door to your right has a pannel by it."
1740 PRINT "left or right? press l or r?"
1750 dq$=input$(1)
1760 IF DQ$="l" THEN  1810
1770 IF DQ$="r" THEN  1790
1780 GOTO 1740
1790 cls:PRINT "the pannel displays green mutant level, access denied."
1800 GOTO 1740
1810 cls:PRINT "you go through."
1820 PRINT "after an hour of running, you come to three doors."
1830 PRINT "the one to the left has a pannel by it."
1840 PRINT "press l s or r."
1850 EXITA$=INPUT$(1)
1860 IF EXITA$="l" THEN  1900
1870 IF EXITA$="s" THEN  1990
1880 IF EXITA$="r" THEN  1920
1890 GOTO 1840
1900 cls:PRINT "the pannel displays, orange mutant level, access denied."
1910 GOTO 1840
1920 PRINT "you go in."
1930 PRINT "you see a transporter here. then it shines,"
1940 PRINT "and the overgrown wasp is in front of you!"
1950 PRINT "it stings you with it's stinger, and the venom is so strong,"
1960 PRINT "that you can already feel yourself dying."
1970 PRINT "you collapse."
1980 END
1990 cls:PRINT "a voice from no where again says 2 1 5 1 3 7, remember it. you'll need it."
2000 PRINT "then it opens."
2010 PRINT "you go in. you see an AK47 asalt rifle."
2020 sound 37,3
2030 sound 37,1
2040 sound 37,1
2050 SOUND 50,3
2060 SOUND 60,3
2070 PRINT "this signifies that you have picked up the a k 47."
2080 PRINT "then, you see a door in front of you."
2090 SOUND 100,40
2100 PRINT "again, as before, there are 2 doors."
2110 PRINT "the creature, who looks like a large wasp, comes out of one."
2140 PRINT "so, i see you have gotten here. you may have been able to kill my friend, but not me."
2150 PRINT "and don't even try that shotgun of yours, it's no match."
2180 PRINT "no need for the shotgun, i've got an a k 47 asalt weapon. kiss you're ass, and you're life goodbye."
2210 PRINT "what? an a k 47 weapon?"
2240 PRINT "yeppers. you raise you're newly aquired weapon, and point it in it's direction."
2250 cls:print "press space to shoot."
2260 ENEM$=input$(1)
2270 IF ENEM$=" " THEN 2290
2280 GOTO 2250
2290 SOUND 100,1
2300 ENEMB$=input$(1)
2310 IF ENEMB$=" " THEN  2330
2320 GOTO 2250
2330 SOUND 100,1
2340 ENEMC$=input$(1)
2350 IF ENEMC$=" " THEN  2370
2360 GOTO 2250
2370 SOUND 100,1
2380 ENEMD$=input$(1)
2390 IF ENEMD$=" " THEN  2410
2400 GOTO 2250
2410 SOUND 100,1
2420 ENEMF$=input$(1)
2430 IF ENEMF$=" " THEN  2450
2440 GOTO 2250
2450 SOUND 100,1
2460 PRINT "the wasp falls to the ground, and splits open, blood all over the floor."
2470 PRINT "you go over to the next elevator door, and press call. and somebody says"
2500 PRINT "enter password."
2530 INPUT PASSWDB$
2540 cls:IF PASSWDB$="215137" THEN  2610
2580 PRINT "invalid. please try again."
2590 PRINT "then you remember something somebody said. then it hits you, 2 1 5 1 3 7!!"
2600 GOTO 2500
2610 PRINT "the elevator starts to move."
2620 BEEP:PRINT "boss level"
2630 BEEP:PRINT "level 3"
2640 BEEP:PRINT "level 2"
2650 PRINT "then the doors open. you go in."
2660 PRINT "then it asks you"
2690 PRINT "enter 3 or boss level."
2720 INPUT ANSWR$
2725 cls
2730 IF ANSWR$="3" THEN  2790
2770 PRINT "not available."
2780 GOTO 2670
2790 PRINT "it goes up."
2800 BEEP
2810 PRINT "the doors open."
2820 PRINT "you walk out, and see a button. you press it, and a subway train comes on a":print "track that you didn't notice before."
2830 PRINT "the doors open, and you get on, and sit down."
2840 PRINT "then it starts to move."
2850 PRINT "there is only a female passenger on the subway. she says"
2880 PRINT "hello, my name is lisa."
2890 PRINT "i am here to give you two things."
2900 PRINT "one is a tool box":print " these elevators from now on are old, and break down all the time."
2910 PRINT "the other thing is a data wafer needed to get off this dump, and on to level 3."
2920 PRINT "what's you're name?"
2950 PRINT "type in you're real first name here."
2960 INPUT na$
2990 cls:PRINT "well, "na$", here you go."
3020 PRINT "she gives you the tool box."
3030 sound 37,4
3040 SOUND 1000,6
3070 PRINT "then, she gives you the data wafer."
3080 sound 37,4
3090 SOUND 1000,6
3120 PRINT "then, after 20 minutes, the subway stops."
3150 PRINT "goodbye, "na$". see you later."
3180 PRINT "goodbye, lisa."
3190 PRINT "a pannel near the door displays, insert the data wafer, you found."
3200 PRINT "you insert the data wafer in to the slot that appears, seconds later."
3210 PRINT "it then displays, correct. then it opens."
3220 PRINT "you walk out. level 3."
3230 PRINT "you walk out. a stream of acid shoots down, and hits you."
3240 BEEP:BEEP:BEEP:BEEP:BEEP:BEEP:BEEP:BEEP:BEEP
3250 PRINT "atention! you're hurt."
3260 PRINT "you continue on, and here an overgrown dog growl, and start coming towards you."
3270 PRINT "you scream, and run away. a sharp pain goes all through you, because you're hurt."
3280 PRINT "you come to 4 doors, the one to the right having the pannel, one being a door in the floor."
3290 PRINT "press l, s, r, w, or d."
3300 LSR$=input$(1)
3305 cls
3310 IF LSR$="l" THEN  3370
3320 IF LSR$="s" THEN  3510
3330 IF LSR$="r" THEN  3390
3340 IF LSR$="w" THEN  3470
3350 IF LSR$="d" THEN  3410
3360 GOTO 3290
3370 PRINT "you go in, and find yourself, falling... falling... falling... in to an acid pit.":print "you're dead."
3380 END
3390 PRINT "the pannel displays, magenta mutant level, access denied."
3400 GOTO 3290
3410 PRINT "you jump down, and the door shuts, and locks. you're trapped."
3420 PRINT "you find yourself in an elevator like thing, with holes in the floor."
3430 PRINT "you look down, and see an all most endless drop."
3440 PRINT "suddenly, there is a clunking noise above you,":print "and you plummet a sickening 899 feet."
3450 PRINT "then, spikes come through the holes in the floor and scuer you like a shishcabob.":print "you're dead."
3460 END
3470 PRINT "the dog comes around a corner, steps up to you, and claws you're eyes out."
3480 PRINT "you scream from the pain."
3490 PRINT "you then collapse from a fatal amount of blood loss."
3500 END
3510 BEEP:PRINT "warning blood loss is becoming severe."
3520 PRINT "then you find the best thing you could have at the moment, a health pack."
3530 sound 37,4
3540 SOUND 1000,2
3550 SOUND 1000,2
3560 PRINT "you're health is now 100 percent."
3570 PRINT "you get on to a chair with a joy stick on it."
3580 PRINT "the floor ends, and an endless drop begins below."
3590 PRINT "the chair starts to move."
3600 PRINT "you come to two offshooting passages."
3610 PRINT "press l to move the joy stick left, and therefor go left, or r to go right?"
3620 DROP$=input$(1)
3630 IF DROP$="l" THEN  3660
3640 IF DROP$="r" THEN  3680
3650 GOTO 3610
3660 PRINT "you push left on the joy stick, and you rush in to a dead end so fast and hard, that you smash you're head and die."
3670 END
3680 cls:PRINT "you go right. then floor is beneath you again. you sie in releaf."
3690 PRINT "it stops in front of two doors. you get off."
3700 PRINT "which door? press 1 for door 1, or 2 for door 2."
3710 DOOR$=input$(1)
3720 IF DOOR$="1" THEN  3750
3730 IF DOOR$="2" THEN  3770
3740 GOTO 3700
3750 PRINT "you go through. you start to fall, for an eturnity. finally, something stabs you in 1000 different places, deep."
3760 PRINT "you die seconds after, and you're body falls for an eturnity.":END
3770 cls:PRINT "a voice says 2 6 9 7 2 1 5 1 3 remember it. you'll need it. then the door opens."
3780 PRINT "you see a flame thrower."
3790 SOUND 140,6
3820 SOUND 160,8
3830 SOUND 180,8
3840 SOUND 190,8
3850 PRINT "then, you come to a set of double automatic doors."
3860 PRINT "they rumble open."
3870 sound 37,80
3880 PRINT "you go through. the dog drops through a trap door and says."
3910 PRINT "i am the mid quest boss. you're chances of passing this test are low."
3920 PRINT "don't even try that a k 47 of yours, its no good."
3950 PRINT "no need, i just got a flame thrower."
3960 print "you raise and point it, press space to shoot."
3970 GUN$=input$(1)
3980 IF GUN$=" " THEN  4000
3990 GOTO 3960
4000 SOUND 100,1
4010 sound 37,8
4020 GUNA$=input$(1)
4030 IF GUNA$=" " THEN  4050
4040 GOTO 3960
4050 SOUND 100,1
4060 sound 37,8
4070 GUNB$=input$(1)
4080 IF GUNB$=" " THEN  4100
4090 GOTO 3960
4100 SOUND 100,1
4110 sound 37,8
4120 GUNC$=input$(1)
4130 IF GUNC$=" " THEN  4150
4140 GOTO 3960
4150 SOUND 100,1
4160 sound 37,8
4170 GUND$=input$(1)
4180 IF GUND$=" " THEN  4200
4190 GOTO 3960
4200 SOUND 100,1
4210 sound 37,8
4220 GUNE$=input$(1)
4230 IF GUNE$=" " THEN  4250
4240 GOTO 3960
4250 SOUND 100,1
4260 sound 37,8
4270 GUNF$=input$(1)
4280 IF GUNF$=" " THEN  4300
4290 GOTO 3960
4300 SOUND 100,1
4310 sound 37,8
4320 GUNG$=input$(1)
4330 IF GUNG$=" " THEN  4350
4340 GOTO 3960
4350 SOUND 100,1
4360 sound 37,8
4370 GUNH$=input$(1)
4380 IF GUNH$=" " THEN  4400
4390 GOTO 3960
4400 SOUND 100,1
4410 sound 37,8
4420 GUNI$=input$(1)
4430 IF GUNI$=" " THEN  4450
4440 GOTO 3960
4450 SOUND 100,1
4460 sound 37,8
4470 GUNJ$=input$(1)
4480 IF GUNJ$=" " THEN  4500
4490 GOTO 3960
4500 SOUND 100,1
4510 sound 37,8
4520 cls:PRINT "the dog lets out a long whine of a death cry, and turns in to nothing but blood."
4530 PRINT "congratulations, you have beat the mid game boss."
4540 PRINT "you go over to the next elevator."
4570 PRINT "enter password."
4600 INPUT PASSWDC$:cls
4610 IF PASSWDC$="269721513" THEN  4710
4650 PRINT "invalid. try again."
4680 PRINT "then you think of a number."
4690 PRINT "something somebody said. then you get it, 2 6 9 7 2 1 5 1 3!"
4700 GOTO 4570
4710 PRINT "it starts coming."
4720 BEEP:PRINT "boss level"
4730 BEEP:PRINT "level 4"
4740 BEEP:PRINT "level 3"
4750 PRINT "the doors open, and you go in."
4760 PRINT "but this time, it doesn't ask you to put anything in,"
4770 PRINT "it goes up by itself."
4780 PRINT "then it comes to a grinding hault, and a pannel displays,"
4790 PRINT "elevator out of order open maintanance door, with an arrow pointing towards it."
4800 PRINT "you take out you're tool box."
4810 PRINT "you open the small door, and see a metal nut."
4820 PRINT "you take out the appropriate tool."
4830 PRINT "you then notice that there are holes in the floor."
4840 PRINT "loosen it, or tighten it press l or t?"
4850 RESP$=input$(1)
4860 IF RESP$="l" THEN  4890
4870 IF RESP$="t" THEN  4930
4880 GOTO 4840
4890 PRINT "you loosen it, and it falls off, and so do the cables."
4900 PRINT "you plummet very fast for a minute exactly,"
4910 PRINT "then 10 foot spikes come through the holes, and scuer you like a shishcabob."
4920 END
4930 cls:PRINT "you tighten it, and continue you're upward journey."
4940 BEEP
4950 PRINT "the doors open. you walk out. level 4"
4960 PRINT "a stench comes to you're nose."
4970 PRINT "then, something growls behind you. it's a bobcat!"
4980 PRINT "you run. you come to 3 doors."
4990 PRINT "press 1, 2, or 3."
5000 CG$=input$(1)
5010 IF CG$="1" THEN  5050
5020 IF CG$="2" THEN  5090
5030 IF CG$="3" THEN  5070
5040 GOTO 4990
5050 PRINT "you go in. you get shocked by 200000 amps of electricity, and die instantly."
5060 END
5070 PRINT "you go in. a needle shoots into you, squirting in some lethal liquid.":print "you're dead."
5080 END
5090 cls:PRINT "you go in the door. you find yourself on some sort of platform."
5100 PRINT "then, some powerful force pushes the platform up."
5110 PRINT "you again are faced with three choices."
5120 PRINT "left, straight, or right. press l, s, or r"
5130 BG$=input$(1)
5140 IF BG$="l" THEN  5180
5150 IF BG$="s" THEN  5200
5160 IF BG$="r" THEN  5240
5170 GOTO 5120
5180 PRINT "you get in. you see a big block of stone hanging above you. then it falls and crushes you."
5190 END
5200 print "you go in."
5210 PRINT "then somebody starts punching and kicking you very fast, like a mortal kombat brutality."
5220 PRINT "you're body finally gives in, and you collapse and die."
5230 END
5240 cls:PRINT "you enter the room. you see a machine gun here."
5250 SOUND 140,2
5260 SOUND 140,2
5270 SOUND 140,2
5280 SOUND 140,2
5290 SOUND 160,4
5300 SOUND 150,4
5310 SOUND 170,8
5320 PRINT "there are 3 circular hatches in front of you. a pannel then displays, 1 4 6 5 1 7 5 2 9 4 remember."
5330 PRINT "they are labled as 1, 2, and 3. press 1, 2, or 3."
5340 HTH$=input$(1)
5350 IF HTH$="1" THEN  5390
5360 IF HTH$="2" THEN  5460
5370 IF HTH$="3" THEN  5430
5380 GOTO 5330
5390 PRINT "you go through to find yourself falling... falling... falling..."
5400 PRINT "to find yourself on the earth, by you're house. you've won! wait."
5410 PRINT "suddenly, you get sucked up by a passing tornado. you're dead."
5420 END
5430 PRINT "you go in to find yourself locked in."
5440 PRINT "suddenly, you're body is cut to shreds by a wirlwind of knives."
5450 END
5460 cls:PRINT "you go in to find yourself in front of the bobcat. it says"
5490 PRINT "i am persion. you will never get past me."
5520 PRINT "yes i will, i have a machine gun."
5550 PRINT "no you won't."
5560 PRINT "this isn't going to be anything normal,"
5570 PRINT "it's going to be a tournament to the death."
5600 LA=35000
5610 LE=40000
5620 PRINT "you're tournament energy is "LA" Persion's is "LE"."
5630 IF LA < 1 THEN PRINT "you're energy is 0. you collapse and die.":END
5650 PRINT "type in  attack by cost. for example, if slice was 2000, you would type in 2000."
5660 PRINT "select: gunshot=5000 superpunch=2050 stone slab smack=8050 knife wind=20000"
5670 INPUT PT
5675 cls
5680 IF PT=5000 THEN PRINT "you used gunshot,":GOTO 5730
5690 IF PT=2050 THEN PRINT "you used superpunch,":GOTO 5790
5700 IF PT=8050 THEN PRINT "you used stone slab smack,":GOTO 5850
5710 IF PT=20000 THEN PRINT "you used knife wind,":GOTO 5910
5720 PRINT "you waited too long, or pressed an incorrect attack cost,":GOTO 5970
5730 A=int(rnd(1)*2)+1
5740 IF A=1 THEN PRINT "a hit!!!":GOTO 5770
5750 IF A=2 THEN PRINT "a miss."
5760 GOTO 5730
5770 LE=LE-5000
5780 GOTO 5970
5790 B=int(rnd(1)*2)+1
5800 IF B=1 THEN PRINT "a hit!!!":GOTO 5830
5810 IF B=2 THEN PRINT "a miss.":GOTO 5970
5820 GOTO 5790
5830 LE=LE-2050
5840 GOTO 5970
5850 C=int(rnd(1)*2)+1
5860 IF C=1 THEN PRINT "a hit!!!":GOTO 5890
5870 IF C=2 THEN PRINT "a miss.":GOTO 5970
5880 GOTO 5850
5890 LE=LE-8050
5900 GOTO 5970
5910 D=int(rnd(1)*2)+1
5920 IF D=1 THEN PRINT "a hit!!!":GOTO 5950
5930 IF D=2 THEN PRINT "a miss.":GOTO 5970
5940 GOTO 5910
5950 LE=LE-20000
5960 GOTO 5970
5970 IF LE < 1 THEN PRINT "congratulations, you have defeated Persion!":GOTO 6310 else PRINT "it's persion's turn."
5980 EAS=int(rnd(1)*4)+1
5990 IF EAS=1 THEN PRINT "persion uses fury swipe,":GOTO 6040
6000 IF EAS=2 THEN PRINT "persion uses bite,":GOTO 6100
6010 IF EAS=3 THEN PRINT "persion uses acid spit,":GOTO 6160
6020 IF EAS=4 THEN PRINT "persion uses venomous scratch,":GOTO 6220
6030 GOTO 5980
6040 EBS=int(rnd(1)*2)+1
6050 IF EBS=1 THEN PRINT "a hit!!!":GOTO 6080
6060 IF EBS=2 THEN PRINT "a miss":GOTO 5620
6070 GOTO 6040
6080 PRINT "it takes away 8050 units of energy."
6090 LA=LA-8050:GOTO 5620
6100 EBS=int(rnd(1)*2)+1
6110 IF EBS=1 THEN PRINT "a hit!!!":GOTO 6140
6120 IF EBS=2 THEN PRINT "a miss":GOTO 5620
6130 GOTO 6100
6140 PRINT "it takes away 2000 units of energy."
6150 LA=LA-2000:GOTO 5620
6160 EBS=int(rnd(1)*2)+1
6170 IF EBS=1 THEN PRINT "a hit!!!":GOTO 6200
6180 IF EBS=2 THEN PRINT "a miss":GOTO 5620
6190 GOTO 6160
6200 PRINT "it takes away 1050 units of energy."
6210 LA=LA-1050:GOTO 5620
6220 EBS=int(rnd(1)*2)+1
6230 IF EBS=1 THEN PRINT "a hit!!!":GOTO 6260
6240 IF EBS=2 THEN PRINT "a miss.":GOTO 5620
6250 GOTO 6220
6260 PRINT "it takes away 3050 units of energy."
6270 LA=LA-3050
6280 GOTO 5620
6310 PRINT "reeeeeeeeeeeeeeeeeeeear."
6320 PRINT "you killed me."
6330 PRINT "fine then, you got the password, go on the"
6340 PRINT "el..."
6350 PRINT "el..."
6360 PRINT "el..."
6370 SOUND 120,2
6380 SOUND 110,2
6390 SOUND 100,2
6400 sound 37,4
6430 PRINT "persion dies. congratulations!!!!"
6440 PRINT "you walk over to the other elevator."
6450 PRINT "but just then, you notice that it's a teleporter."
6460 PRINT "then, a keypad and display fold out from the the side."
6470 PRINT "it then displays, passcode."
6480 INPUT PCODE$:cls
6490 IF PCODE$="1465175294" THEN  6510
6500 PRINT "it displays, invalid. try again.":GOTO 6480
6510 PRINT "you then see, and then feel a reddish beam consume you."
6520 SOUND 100,1
6530 SOUND 120,1
6540 SOUND 140,1
6550 SOUND 160,1
6560 SOUND 200,80
6570 SOUND 160,1
6580 SOUND 140,1
6590 SOUND 120,1
6600 SOUND 100,1
6610 PRINT "when it stops, you're in a totally different place."
6620 PRINT "level 5"
