SCREEN 12
9529 'Info
CLS
COLOR 4
INPUT "Name?"; name$
COLOR 10
INPUT "Age?"; age
COLOR 13
9530 INPUT "Sex? M or F?"; sex$
sex$ = UCASE$(sex$)
IF sex$ = "M" THEN 9550
IF sex$ = "F" THEN 9540
IF sex$ = sex$ THEN 9530
9540 'Menu (f)
CLS
COLOR 14
PRINT "Main Menu :"
COLOR 5
PRINT " lay game"
COLOR 2
LOCATE 2, 1
PRINT "P"
COLOR 5
PRINT " ntroduction"
COLOR 2
LOCATE 3, 1
PRINT "I"
COLOR 5
PRINT "i structions"
LOCATE 4, 2
COLOR 2
PRINT "N"
COLOR 5
PRINT " xit"
COLOR 2
LOCATE 5, 1
PRINT "E"
COLOR 9
9545 INPUT "What'll it Be?"; option$
DO
option$ = UCASE$(INPUT$(1))
LOOP WHILE INSTR("PINE", option$) = 0
IF option$ = "I" THEN 9560
IF option$ = "N" THEN 9580
IF option$ = "P" THEN 9600
IF option$ = "E" THEN 59999
IF option$ = option$ THEN 9545
9550 'Menu (m)
CLS
COLOR 14
PRINT "Main Menu :"
COLOR 5
PRINT " lay game"
COLOR 2
LOCATE 2, 1
PRINT "P"
COLOR 5
PRINT " ntroduction"
COLOR 2
LOCATE 3, 1
PRINT "I"
COLOR 5
PRINT "i structions"
LOCATE 4, 2
COLOR 2
PRINT "N"
COLOR 5
PRINT " xit"
COLOR 2
LOCATE 5, 1
PRINT "E"
COLOR 10
9559 INPUT "What'll it Be?"; option$
IF option$ = "I" THEN 9570
IF option$ = "i" THEN 9570
IF option$ = "N" THEN 9590
IF option$ = "n" THEN 9590
IF option$ = "P" THEN 9600
IF option$ = "p" THEN 9600
IF option$ = "E" THEN 59999
IF option$ = "e" THEN 59999
IF option$ = option$ THEN 9559
9560 REM ** Intro (f)
COLOR 15
PRINT name$; ", you have recently killed your "; age + 1; " year old boyfriend, Nick"
PRINT "And now the police are hot on your tail"
PRINT "Luckily, you look out the window and see a police car round the corner"
PRINT "You can tell they're looking for you"
PRINT "You drop your cup of hot coffee onto the floor"
PRINT "S M A S H !!!!!!"
PRINT "You must decide what to do, and quick, because here they come..."
PRINT
PRINT "PRESS ANY KEY TO CONTINUE"
SLEEP
GOTO 9540
9570 REM ** Intro (m)
COLOR 15
PRINT name$; ", you have recently killed your "; age - 1; " year old girlfriend, Nicole"
PRINT "And now the police are hot on your tail"
PRINT "Luckily, you look out the window and see a police car round the corner"
PRINT "You can tell they're looking for you"
PRINT "You drop your cup of hot coffee onto the floor"
PRINT "S M A S H !!!!!!"
PRINT "You must decide what to do, and quick, because here they come..."
PRINT
PRINT "PRESS ANY KEY TO CONTINUE"
SLEEP
GOTO 9550
9580 REM ** Instructions (f)
COLOR 15
PRINT "How To Play :"
PRINT "The object is very simple : To escape the police"
PRINT "If you can avoid them enough times, they will eventually give up the search"
PRINT "But it's not as easy as it looks"
PRINT "You will have a certain amount of options as to where to go"
PRINT "Pick one"
PRINT "If it is the right one, you are free from that place"
PRINT "If it is the wrong one, then you are caught by the police"
PRINT "P.S. It gets harder as the game goes along"
PRINT "Good Luck!"
PRINT
PRINT "PRESS ANY KEY TO CONTINUE"
SLEEP
GOTO 9540
9590 REM ** Instructions (m)
COLOR 15
PRINT "How To Play :"
PRINT "The object is very simple : To escape the police"
PRINT "If you can avoid them enough times, they will eventually give up the search"
PRINT "But it's not as easy as it looks"
PRINT "You will have a certain amount of options as to where to go"
PRINT "Pick one"
PRINT "If it is the right one, you are free from that place"
PRINT "If it is the wrong one, then you are caught by the police"
PRINT "P.S. It gets harder as the game goes along"
PRINT "Good Luck!"
PRINT
PRINT "PRESS ANY KEY TO CONTINUE"
SLEEP
GOTO 9550
9600 REM ** Game
REM ** Home
COLOR 9
CLS
PRINT "As you see the police coming around the corner, you must decide what to do"
PRINT "Do you "
PRINT "A - go outside and surrender"
PRINT "B - run out back and try to escape down the alley"
PRINT "C - run up the stairs and hide in your bedroom"
9601 INPUT "Where do you go"; home$
IF home$ = "A" THEN 9800
IF home$ = "a" THEN 9800
IF home$ = "B" THEN 9610
IF home$ = "b" THEN 9610
IF home$ = "C" THEN 9630
IF home$ = "c" THEN 9630
IF home$ = home$ THEN 9601
9610 LET allee = INT(RND(1) * 4 + 1)
ON allee GOTO 9615, 9617, 9618, 9620
9615 PRINT "You were lucky this time, you got away"
GOTO 9645
9617 PRINT "You nearly break your leg, but you get away"
GOTO 9645
9618 PRINT "You are shot at, but are not hit, and you get away"
GOTO 9645
9620 PRINT "You've been caught by the police.  Bad choice my friend"
GOTO 9810
9625 LET bedroom = INT(RND(1) * 4 + 1)
ON bedroom GOTO 9630, 9620, 9640, 9635
9630 PRINT "You were lucky you hid in your secret place in the wall, but you made it"
GOTO 9645
9635 PRINT "At the last second, you jumped out the window and ran down the alley. You made it."
GOTO 9645
9640 PRINT "Whoa! They almost got you! You were lucky this time!"
GOTO 9645
9645 REM ** Alley
SLEEP 3
CLS
PRINT "You run out back to the alley.  You hide behind a garbage can and check out the situation"
PRINT "The police are waiting for you"
PRINT "Do you : "
PRINT "A - stand up and surrender"
PRINT "B - stay there and wait for them to go"
PRINT "C - make a run for it"
9646 INPUT "What do you do?"; alley$
IF alley$ = "a" THEN 9800
IF alley$ = "A" THEN 9800
IF alley$ = "b" THEN 9650
IF alley$ = "B" THEN 9650
IF alley$ = "c" THEN 9665
IF alley$ = "C" THEN 9665
IF alley$ = alley$ THEN 9646
9650 LET stay = INT(RND(1) * 5 + 1)
ON stay GOTO 9655, 9660, 9660, 9620, 9655
9655 PRINT "You're lucky, they leave"
GOTO 9690
9660 PRINT "They make a quick search, but don't see you"
GOTO 9690
9665 LET runa = INT(RND(1) * 5 + 1)
ON runa GOTO 9670, 9675, 9675, 9675, 9680
9670 PRINT "You take off, bullets whistling by your ear, but you make it"
GOTO 9690
9675 PRINT "You stealthily take off, leaving them none the wiser"
GOTO 9690
9680 PRINT "You knock over the garbage can that you were hiding behind. They chase after you"
GOTO 9620
9690 REM ** Garbage Can
SLEEP 3
CLS
PRINT "You sit there and decide where to go"
PRINT "Do you :"
PRINT "A - head to the police station and surrender"
PRINT "B - go to your best friend's house, eventually heading to the airport"
PRINT "C - make a direct route to the airport"
9691 INPUT "What do you do?"; can$
IF can$ = "a" THEN 9800
IF can$ = "A" THEN 9800
IF can$ = "b" THEN 9695
IF can$ = "B" THEN 9695
IF can$ = "c" THEN 9710
IF can$ = "C" THEN 9710
IF can$ = can$ THEN 9691
9695 LET friend = INT(RND(1) * 7 + 1)
ON friend GOTO 9700, 9620, 9700, 9700, 9700, 9620, 9700
9700 PRINT "You make it to your friend's house without incident"
GOTO 9730
9705 PRINT "They were waiting for you"
GOTO 9720
9710 LET air = INT(RND(1) * 5 + 1)
ON air GOTO 9715, 9715, 9720, 9720, 9715
9715 PRINT "You must make a stop at the bank before you head to the airport"
LET bank = INT(RND(1) * 5 + 1)
ON bank GOTO 9720, 9725, 9725, 9720, 9720
9720 PRINT "You grab the needed amount of money from your account and take off, witout incident"
GOTO 9731
9725 PRINT "They were waiting for you"
GOTO 9720
9730 REM ** At friend's house / Stop at bank
SLEEP 3
CLS
PRINT "You are at your friend's house"
PRINT "You say goodbye, your friend still puzzled as to what you do"
PRINT "You suddenly hear the wail of the police car's, and they seem to be heading this way"
9731 PRINT "You decide to head to the airport, taking a cab"
LET taxi = INT(RND(1) * 5 + 1)
ON taxi GOTO 9735, 9732, 9732, 9735, 9735
9732 PRINT "You try to talk to the driver, but he doesn't respond.  Suddenly the doors lock and the driver shows you his badge."
PRINT "It's a long drive to the police station"
GOTO 9620
9735 PRINT "You arrive at the airport, no problem"
PRINT "Now that you are at the airport, you must decide where to go"
PRINT "There's no turning back now"
9736 PRINT "Do you go to :"
PRINT "1. Dallas, Texas"
PRINT "2. L.A., California"
PRINT "3. Tokyo, Japan"
PRINT "4. Somewhere in France"
INPUT "Where to?"; destination$
IF destination$ = "1" THEN 9740
IF destination$ = "2" THEN 9745
IF destination$ = "3" THEN 9750
IF destination$ = "4" THEN 9755
IF destination$ = destination$ THEN CLS
GOTO 9736
9740 LET destination$ = "Dallas, Texas"
PRINT "Now heading to "; destination$
GOTO 9760
9745 LET destination$ = "L.A., California"
PRINT "Now heading to "; destination$
GOTO 9760
9750 LET destination$ = "Tokyo, Japan"
PRINT "Now heading to "; destination$
GOTO 9760
9755 LET destination$ = "somewhere in France"
PRINT "Now heading to "; destination$
GOTO 9760
9760 PRINT "You head to the desk to buy your ticket"
LET ticket = INT(RND(1) * 6 + 1)
ON ticket GOTO 9765, 9770, 9775, 9775, 9765, 9775
9765 PRINT "You board your plane and are safely headed to your destination"
PRINT "Congratulations!"
PLAY "abacde"
SLEEP 3
9766 IF sex$ = "m" THEN 9550
IF sex$ = "f" THEN 9540
IF sex$ = "F" THEN 9540
IF sex$ = "M" THEN 9550
9770 PRINT "Luckily, you avoid a police officer and board the plane. You're home free!"
PRINT "Congratulations!"
PLAY "abacde"
SLEEP 3
GOTO 9766
9775 PRINT "You slip by some officers and board your plane. You think you're home free when suddenly 5 or 6 police officers board your plane, and head straight for you"
PRINT "Too Bad!"
PLAY "a"
PLAY "b"
PRINT
GOTO 9620
9800 PRINT "Good Choice. You did the right thing"
9810 REM ** In Court
PRINT
PRINT "In court : "
PRINT
PRINT "The charge that faces you if you are convicted : First degree murder"
PRINT
PRINT "The judge finds you GUILTY AS CHARGED and gives you the Death Penalty"
PRINT
PRINT "As they strap you to the chair, you begin to regret ever killing your lover"
PRINT
PRINT "BZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ"
PRINT
PRINT "THE END"
PRINT
PLAY "bdefa"
LOCATE 25, 25
PRINT "PRESS ANY KEY TO CONTINUE"
SLEEP
IF sex$ = "m" THEN 9550
IF sex$ = "f" THEN 9540
IF sex$ = "F" THEN 9540
IF sex$ = "M" THEN 9550
59999 END