10*|"
20*|" Search for Sanity
30*|" by John Carpenter
40*|" Filename : SANITY
50*|"
60*|"
70 ON ERROR PROCerror
80CLS
90PRINT" The Time... about 4:34pm "
100PRINT
110PRINT" The Place.. just down the ro
ad"
120PRINT
130PRINT" The Game... The Search for S
anity..."
140PRINT
150PRINT" Please..... press return..."
160REPEAT:UNTILGET=13
170PROCinit:PROCmain
180RUN
190DEF PROCt
200CLS
210PRINT"
,,,,,,,,,,,";
220PRINT" The Search For Sani
ty
230PRINT"
,,,,,,,,,,,";
240PRINT
250ENDPROC
260DEF PROCbb
270CLS
280CLS:PRINT" Sniff.."
290PRINT'':END
300*|" DUNCAN load up menu here
310ENDPROC
320DEF PROCerror
330CLS
340PRINT" WHOOPPEE!
350PRINT
360PRINT" Er..actually..that's a lie..
the following is,in fact.. bad n
ews..."
370PRINT
380REPORT
390PRINT" at line ";ERL
400PRINT
410PRINT" DAMNATION !"'
420PROCreturn
430PROCbb
440ENDPROC
450DEF PROCreturn
460PRINT" Press Return
470REPEAT:UNTILGET=13
480ENDPROC
490DEF PROCinit
500l%=1
510f%=0
520g%=0
530w%=0
540b%=0
550t%=0
560p%=0
570s%=0
580c%=0
590x%=0
600e%=0
610r%=0
620z%=0
630v%=0
640u%=0
650m%=0
660ENDPROC
670DEF PROCgive
680CLS
690PRINT" What do you want to give,t
hen ... ?"
700PRINT
710IFf%=0 AND w%=0 AND b%=0 AND c%=0 A
ND e%=0 AND r%=0 AND v%=0 AND u%=0 THEN
PRINT'" You have nothing to give !"':PRO
Creturn:ENDPROC
720IFf%=1 THEN PRINT" 1 The Pink Flami
ngo"
730IFw%=1 THEN PRINT" 2 The small pink
Worm"
740IFb%=1 THEN PRINT" 3 The Bunsen Bur
ner"
750IFc%=1 THEN PRINT" 4 The large,fres
h cabbage"
760IFe%=1 THEN PRINT" 5 The brown colo
ured towel."
770IFr%=1 THEN PRINT" 6 The Lovely,cut
e green bunny rabbit"
780IFv%=1 THEN PRINT" 7 The Pair of gr
een Gloves"
790IFu%=1 THEN PRINT" 8 Lloyd George's
boring lecture."
800IFw%=1 AND e%=1 THEN PRINT" 9 The W
orm inside the towel."
810PRINT" 0 Don't give anyone anything
"
820REPEAT
830A$=GET$
840UNTILINSTR("1234567890",A$)
850IFA$="0"THEN ENDPROC
860IFA$="1" AND f%=0 THEN GOTO 820
870IFA$="2" AND w%=0 THEN GOTO 820
880IFA$="3" AND b%=0 THEN GOTO 820
890IFA$="4" AND c%=0 THEN GOTO 820
900IFA$="5" AND e%=0 THEN GOTO 820
910IFA$="6" AND r%=0 THEN GOTO 820
920IFA$="7" AND v%=0 THEN GOTO 820
930IFA$="8" AND u%=0 THEN GOTO 820
940IFA$="9" AND e%=0 THEN GOTO 820
950IFA$="9" AND w%=0 THEN GOTO 820
960IFA$="1"THEN f%=0
970IFA$="2"THEN w%=0
980IFA$="3"THEN b%=0
990IFA$="4"THEN c%=0
1000IFA$="5"THEN e%=0
1010IFA$="6"THEN r%=0
1020IFA$="7"THEN v%=0
1030IFA$="8"THEN u%=0
1040IFA$="9"THEN e%=0:w%=0
1050IFA$="1"AND l%<>20 THEN PRINT" (S)h
e takes the flamingo and walks off"
1060IFA$="1"AND l%=20 THEN PRINT " Lloy
d George suddenly awakes with a star
t,says Thanks and gives you a lect
ure about flamingos.":u%=1:g%=1:ENDPROC
1070IFA$="2"THEN PRINT" (S)he takes the
worm,pulls a rather odd face at you and
walks off."
1080IFA$="3"THEN PRINT" Oh THANK YOU (s
)he says and takes the bunsen burner f
rom you..."
1090IFA$="4"AND l%<>12 THEN PRINT" Erm.
.thanks..(s)he walks off with your cabb
age.."
1100IF A$="5"THEN PRINT" The person tak
es the towel and starts singing.."
1110IFA$="4"AND l%=12 THEN PRINT" The w
ife takes the cabbage and plops some
nice green gloves in your hands.. then
walks off.":z%=1:v%=1
1120IFA$="9" AND l%<>6 THEN PRINT" The
person thanks you for your gift and walk
s off."
1130IFA$="9" AND l%=6 THEN PRINT" Oooh
goody a sandwich! the fat git sez and
eats it.He then gives you a cabbage and
says Don't Spend it all at once.":c%=1:p
%=1
1140 IF A$="6" THEN PRINT " You give hi
m/her the fluffy pink bunny rabbit and
they cuddle it...Awwww..."
1150 IF A$="7" THEN PRINT " Ooh thanks!
Just what I want! they say as they go
away..."
1160IFA$="8" AND l%<>3 THEN PRINT" You
give them the boring lecture and they
hit you straight SLAP between the eyes
.... OUCH!"
1170IFA$="8" AND l%=3 THEN PRINT" You g
ive the teacher the lecture and he is
suddenly inspired and runs off leavi
ng behind a fluffy green rabbit, which
you take.":r%=1:t%=1
1180PRINT
1190PROCreturn
1200CLS
1210ENDPROC
1220DEF PROCmain
1230PROCt
1240IF l%=1 THEN PROC1:GOTO1230
1250IF l%=2 THEN PROC2:GOTO1230
1260IF l%=3 THEN PROC3:GOTO1230
1270IF l%=4 THEN PROC4:GOTO1230
1280IF l%=5 THEN PROC5:GOTO1230
1290IF l%=6 THEN PROC6:GOTO1230
1300IF l%=7 THEN PROC7:GOTO1230
1310IF l%=8 THEN PROC8:GOTO1230
1320IF l%=9 THEN PROC9:GOTO1230
1330IF l%=10THEN PROC10:GOTO1230
1340IF l%=11THEN PROC11:GOTO1230
1350IF l%=12THEN PROC12:GOTO1230
1360IF l%=15THEN PROC15:GOTO1230
1370IF l%=16THEN PROC16:GOTO1230
1380IF l%=19THEN PROC19:GOTO1230
1390IF l%=20THEN PROC20:GOTO1230
1400IF l%=21THEN PROC21
1410GOTO 1230
1420ENDPROC
1430DEF PROC1
1440PRINT" You are walking down a road.
It is not a very strange road and noth
ing in it suddenly catches you off gua
rd making you jump back in surprise."
1450PRINT" Do you want to go :"
1460PRINT'" 1) North"
1470PRINT'" 2) South"
1480PRINT'" 3) East"
1490PRINT'" 4) West"
1500REPEAT:A$=GET$
1510UNTILINSTR("1234",A$)
1520IFA$="1"THEN l%=2
1530IFA$="2"THEN l%=7
1540IFA$="3"THEN l%=10
1550IFA$="4"THEN l%=5
1560ENDPROC
1570DEF PROC2
1580PRINT" You walk down the road.To th
e right of you is St GIMMEGIMME's Schoo
l for the Mentally Disturbed ,behind y
ou is a cross roads.Ahead of you is
a pile of earth."
1590PRINT" Which way do you want to go
:"
1600PRINT'" 1) North"
1610PRINT'" 2) South"
1620PRINT'" 3) East"
1630REPEAT:A$=GET$
1640UNTILINSTR("123",A$)
1650IFA$="1"THEN l%=4
1660IFA$="2"THEN l%=1
1670IFA$="3"THEN l%=3
1680ENDPROC
1690DEF PROC3
1700PRINT" You enter into St Gimmegimme
's School and notice that the place is
in a state of disorder.After wading thr
ough a mound of text books you come
to a classroom."
1710IFt%=1 THEN GOTO 1830
1720IFt%=0 THEN PRINT" There is a confu
sed teacher here,pacing to and fro,with
a frown on his face. Will you ..."
1730PRINT" 1) Give something to him"
1740PRINT'" 2) Hit him"
1750PRINT'" 3) Run away"
1760PRINT'" 4) Sing 'My baby's gone awa
y'"
1770REPEAT:A$=GET$:UNTILINSTR("1234",A$
)
1780CLS
1790IFA$="1"THEN PROCgive:PROCt:GOTO170
0
1800IFA$="2"THEN PRINT" You take a swip
e at him.He then rips you apart with
a latin book..uh oh.. you appear to h
ave snuffed it! Oops!":PROCdie
1810IFA$="3"THEN PRINT" As you run past
him,he sticks his foot out and you go
flying through the classroom windo
w and kill yourself very nastily.":PROCd
ie
1820IFA$="4"THEN PRINT" Singing is not
allowed in this school, bend over!And p
repare for 6 of the best you bend off an
d he shoots you six times up the ar
sehole..you decide that you might as we
ll die..":PROCdie
1830PRINT" You here a boring lecture be
ing given nearby... Do you ..."
1840PRINT'" 1) Go North"
1850PRINT'" 2) Go West"
1860REPEAT:A$=GET$:UNTILINSTR("12",A$)
1870IFA$="1"THEN l%=15
1880IFA$="2"THEN l%=2
1890ENDPROC
1900DEF PROC4
1910PRINT" You come to a large mound of
earth.You wonder why it is in the midd
le of the road...to your right is St G
immegimme's School ,ahead is a lake,sout
h is more road and to your left is a p
ark."
1920PRINT" DO YOU..."
1930PRINT'" 1) Go north"
1940PRINT" 2) Go south"
1950PRINT" 3) Go west"
1960PRINT" 4) Go east"
1970PRINT" 5) Eat the earth"
1980PRINT" 6) Dig in the Earth"
1990PRINT" 7) Jump on top of the mound.
"
2000PRINT" 8) Sing 'My baby just cares
for me'"
2010REPEAT:A$=GET$
2020UNTILINSTR("12345678",A$)
2030CLS
2040IFA$="5"THEN CLS:PRINT" YUK!!"':GO
TO1910
2050IFA$="7"THEN CLS:PRINT" You jump on
top of the mound.Although, unfortunate
ly,it all caves in and you find yourse
lf buried underneath.Ho humm you're dead
..!":PROCdie
2060IFA$="8"THEN CLS:PRINT" You sing th
is and the whole mound of earth falls
on you and you squished..":PROCdie
2070IFA$="6"AND m%=1 THEN CLS:PRINT" No
thing here..."':GOTO1920
2080IFA$="6"THEN CLS:PRINT" HEY! You di
g in the earth and find a lovely pink
worm which you keep!":PROCreturn:w%=1:m
%=1:CLS:PRINT" Now...":GOTO1920
2090IFA$="1"THEN l%=19
2100IFA$="2"THEN l%=2
2110IFA$="3"THEN l%=20
2120IFA$="4"THEN l%=15
2130ENDPROC
2140DEF PROC5
2150PRINT" You are walking down an alle
yway..to the north is what looks like
a yard,and to the east is the road."
2160PRINT" Will you go..."
2170PRINT'" 1) North"
2180PRINT'" 2) East"
2190REPEAT:A$=GET$
2200UNTILINSTR("12",A$)
2210IFA$="1"THEN l%=6
2220IFA$="2"THEN l%=1
2230ENDPROC
2240DEF PROC6
2250PRINT" You come to a yard.."
2260IFp%=1 THEN GOTO2380
2270IFp%=0THEN PRINT" There is a fat gi
t here looking at you hungrily.. Do you
..."
2280PRINT" 1) Give him something"
2290PRINT" 2) Run away"
2300PRINT" 3) Faint"
2310PRINT" 4) Sing 'My baby likes to ea
t cheese'"
2320REPEAT:A$=GET$:UNTILINSTR("1234",A$
)
2330CLS
2340IFA$="1"THEN PROCgive:PROCt:GOTO225
0
2350IFA$="2"THEN CLS:PRINT" You try to
run away but he throws up over you an
d you suffocate...Eugh..":PROCdie
2360IFA$="3"THEN CLS:PRINT" You faint..
.unfortunately,you don't wake up so
you presume that you must be dead.He pro
bably ate you..what a git!":PROCdie
2370IFA$="4"THEN CLS:PRINT" You get as
far as 'likes' before he eats you up
..yum yum yum..eurgh..":PROCdie
2380PRINT" There is no one here at the
moment... so it's not very exciting..t
here is no where else to go so you migh
t as well press any key to go back sou
th.."
2390A=GET
2400l%=5
2410ENDPROC
2420DEF PROC7
2430PRINT" You are walking down.. A ROA
D! and from your previous road-walking-d
own experience you would say the
re is nothing special about it.You
can go east down another road or so
uth down.."
2440PRINT" erm..another road... Which w
ay will you go ?"
2450PRINT'" 1) East"
2460PRINT'" 2) South"
2470PRINT'" 3) North"
2480REPEAT:A$=GET$
2490UNTILINSTR("123",A$)
2500IFA$="3"THEN l%=1:ENDPROC
2510IFA$="1"THEN l%=9 ELSE l%=8
2520ENDPROC
2530DEF PROC8
2540PRINT" You are fairly near your own
home..but are on another sodding road.
To the east is your garden,to the south
is a path leading to your house. Will
you go.."
2550PRINT'" 1) South"
2560PRINT'" 2) East"
2570PRINT'" 3) North"
2580REPEAT:A$=GET$
2590UNTILINSTR("123",A$)
2600IFA$="3" THEN l%=7:ENDPROC
2610IFA$="1"THEN l%=11 ELSE l%=21
2620ENDPROC
2630DEF PROC9
2640PRINT" You walk down the road.To yo
ur right is a neighbour in her garden."
2650IFx%=1 THEN PRINT" You poor lambsyw
ambsy! she says and gives you a towe
l.You dry yourself off and keep the tow
el."':PROCreturn:CLS:x%=0:e%=1:GOTO2640
2660PRINT" Do you.."
2670PRINT'" 1) Go north"
2680PRINT'" 2) Go west"
2690PRINT'" 3) Smash in the neighbour's
house and kill her family and frie
nds."
2700REPEAT:A$=GET$:UNTILINSTR("123",A$)
2710CLS
2720IFA$="3"THEN CLS:PRINT" You get as
far as the first window before your
brains are blown out by a passing pol
iceman..you don't even have time to go
AAAAAAARRRRRRRRRGGGGGHHHHH!":PROCdie
2730IFA$="1"THEN l%=10 ELSE l%=7
2740ENDPROC
2750DEF PROC10
2760PRINT" You are getting bored of wal
king down roads,so you try a silly wal
k to cheer yourself up.To the east is a
fire station with not many roads
by it apart from this one,but to the wes
t is a cross roads.. Do you.."
2770PRINT'" 1) Go east"
2780PRINT'" 2) Go west"
2790PRINT'" 3) Go South"
2800REPEAT:A$=GET$
2810UNTILINSTR("123",A$)
2820IFA$="3" THEN l%=9:ENDPROC
2830IFA$="1"THEN l%=16 ELSE l%=1
2840ENDPROC
2850DEF PROC11
2860DEF PROC11
2870PRINT" You are walking down a count
ry path which leads to your nice hom
e.To your east is your house where you
expect your lovely wife to be and t
o the north is another jolly fun road. D
O YOU..."
2880PRINT'" 1) Go north"
2890PRINT'" 2) Go into your house.."
2900REPEAT:A$=GET$
2910UNTILINSTR("12",A$)
2920IFA$="2"THEN l%=12 ELSE l%=8
2930ENDPROC
2940DEF PROC12
2950PRINT" You go inside your house and
inside is your wife.She looks at you i
n a nasty way.You shit your pants. Do
you.."
2960PRINT'" 1) Run north to the garden"
2970PRINT'" 2) Run east out of the hous
e"
2980PRINT'" 3) Give the wife something"
2990PRINT'" 4) Say 'hello' and give her
a kiss"
3000PRINT'" 5) Suggest something a litt
le ruder.."
3010REPEAT:A$=GET$:UNTILINSTR("12345",A
$)
3020CLS
3030IFA$="1"THEN l%=21:ENDPROC
3040IFA$="2"THEN l%=11:ENDPROC
3050IFA$="3"THEN PROCgive:PROCt:GOTO295
0
3060IFz%=1 THEN GOTO 3090
3070IFA$="4"THEN PRINT" As you kiss her
,she bites your tongue off. OUCH! Ge
t me a friggin cabbage she says."':PRO
Creturn:PROCt:GOTO2950
3080IFA$="5"THEN PRINT" YOU PERVERT! sh
e screams and rips your testicles off w
ith the breadknife..":PROCdie
3090IFA$="4"THEN PRINT" She says hi and
you give her a nice kiss.. Aww.."':
GOTO2960
3100IFA$="5"THEN PRINT" You both go ups
tairs and come out of the bedroom hal
f an hour later feeling exhausted but m
uch better than when you went in..!"':PR
OCreturn:PROCt:PRINT" Do you :"':GOTO 29
60
3110ENDPROC
3120DEF PROC15
3130PRINT" You walk inside what appears
to be a rather low budget science la
b.There doesn't appear to be anythin
g here except a bench..."
3140IFb%=0THEN PRINT" with a bunsen bur
ner on it! You take this and add it t
o your collection..":b%=1
3150PRINT" Which way..."
3160PRINT'" 1) South to the classrooms"
3170PRINT'" 2) West out of the school"
3180REPEAT:A$=GET$
3190UNTILINSTR("12",A$)
3200IFA$="1"THEN l%=3 ELSE l%=4
3210ENDPROC
3220DEF PROC16
3230PRINT" You stroll into the fire sta
tion..It appears to be a normal fire
station but with hardly anyone about
! Do you.."
3240PRINT'" 1) Burn something (hehehe)"
3250PRINT'" 2) Shout FIRE several times
"
3260PRINT'" 3) Go back west out of here
"
3270PRINT'" 4) Vandalise something."
3280REPEAT:A$=GET$
3290UNTILINSTR("1234",A$)
3300CLS
3310IFA$="2"THEN PRINT'" Suddenly,loads
of people appear and start spraying
the place.Realising there isn't a
fire they get pissed off and beat you u
p with their hoses, killing you,ho
w sad... snigger..":PROCdie
3320IFA$="3"THEN l%=10:ENDPROC
3330IFA$="4"THEN PRINT'" You look for s
omething to vandalise,but fail and spend
hours running round in circles gettin
g very out of breath until you coll
apse and die of extreme exhaustion.":P
ROCdie
3340IFA$="1" AND b%=0 THEN PRINT'" You
have no means of burning anything!"':PRO
Creturn:GOTO3230
3350IF r%=0 THEN PRINT'" You have nothi
ng to burn..."':PROCreturn:GOTO3230
3360CLS
3370PRINT" You set fire to the rabbit w
ith the bunsen burner.It goes up in
flames and firemen rush out of the buil
ding and spray everywhere with water
(including you)..."
3380PRINT" You are now wet.."
3390PRINT" You decide to go away from t
he fire station and go back west."
3400b%=0
3410r%=0
3420x%=1
3430l%=10
3440PRINT
3450PROCreturn
3460ENDPROC
3470DEF PROC19
3480PRINT" You come to a large lake.As
you are admiring this a large pink f
lamingo comes over. You take the fla
mingo and then decide what to do next.
..well, what ?"
3490f%=1
3500PRINT'" 1) Go South"
3510PRINT'" 2) Go for a swim"
3520REPEAT:A$=GET$:UNTILINSTR("12",A$)
3530IFA$="1"THEN l%=4:ENDPROC
3540a=RND(2)
3550CLS
3560IFa=1 THEN PRINT" You dive into the
water and swim for about 5 metres be
fore realising that,in fact,you don't kn
ow how to swim,you then decide to th
row your arms in the air wildly and sc
ream..then you drown.":PROCdie
3570PRINT" You swim out into the lake,b
ut as you do so,a flock of flamingos s
ee you are carrying one of their friend
s and dive bomb you..you die a nasty de
ath..":PROCdie
3580ENDPROC
3590DEF PROC20
3600PRINT" You are strolling in the par
k.It is a nice day and you look about.
"
3610IF g%=1 THEN PRINT" Lloyd George is
here,tap dancing near the bench.":GOT
O 3740
3620PRINT" Lloyd George is here half as
leep on a bench.. do you.."
3630PRINT'" 1) Go back east"
3640PRINT'" 2) Give him something"
3650PRINT'" 3) Kill him"
3660PRINT'" 4) Wake him up"
3670REPEAT:A$=GET$:UNTILINSTR("1234",A$
)
3680CLS
3690IFA$="1"THEN l%=4:ENDPROC
3700IFA$="2"THEN PROCgive:GOTO3600
3710IFA$="3"THEN CLS:PRINT" You try and
kill him,but he wakes up and attacks
your groin.Unfortunately, the nearest
you've come to fighting is pruning the
daisies,so you die..":PROCdie
3720IFA$="4"THEN CLS:PRINT" You try and
wake him up softly,he sits up and shou
ts ARGH!GERMANS! and rips your legs o
ff..you lie on the ground a while,then
suddenly decide that he has, in fact,rip
ped your legs off.That means";
3730IFA$="4"THEN PRINT" that you have n
o legs ..now..you should not really,in t
heory,be living..Ah!You decide..you mus
t be DEAD ..yes,that's right..then you
die of confusion.."
3740PRINT" You decide there is nothing
of interest here...press any key to go b
ack right."
3750A=GET
3760l%=4
3770ENDPROC
3780DEF PROC21
3790PRINT" You go into your garden.The
weed is sitting there,in the flower
bed.You walk over to it and pull it
out! HOORAY!"
3800PRINT
3810IFv%=0 THEN PRINT" However,your han
ds are now very dirty.. the dirt spreads
all over your body, the dirt is ther
e,you cannot rid yourself of this
dirt..this..this..oh sod it.. you die
..":PROCdie
3820PRINT" Gosh..it was lucky you were
wearing those gloves otherwise your
hands would be dirty.. Phew!"'
3830PROCreturn
3840CLS
3850PRINT"
,,,,,,,,,,,";
3860VDU141:PRINT" CONGRATULATIONS!! CON
GRATULATIONS!!"
3870VDU141:PRINT" CONGRATULATIONS!! CON
GRATULATIONS!!"
3880PRINT"
,,,,,,,,,,,";
3890PRINT
3900PRINT" You have plucked the weed.."
3910PRINT" and!Your hands are clean..."
3920PRINT" which means you've WON!"
3930PRINT
3940PRINT" You have conquered The Searc
h FOr Sanity written by John Carpe
nter for Resolve (gotta get a quick p
lug in here somewhere) so.. WELL DONE!"
3950PRINT
3960PROCreturn
3970CLS
3980PRINT"
,,,,,,,,,,,";
3990PRINT" The tremendous task..."
4000PRINT" The fearsome feat....."
4010PRINT" The massive mission..."
4020PRINT" The quite hard quest.."
4030PRINT" The devilish duty....."
4040PRINT" The awful alliteration"
4050PRINT
4060PRINT" You have conquered it all!"
4070PRINT"
4080PRINT
4090PRINT" Congratulations.. just a sha
me the end is so shit..yer?Oh well..wed
don unless you cheated ! Humph.."
4100PRINT
4110PRINT"
,,,,,,,,,,,";
4120REPEAT:UNTILGET=13
4130PROCbb
4140ENDPROC
4150DEF PROCdie
4160PRINT
4170PROCreturn
4180CLS
4190VDU141:PRINT" Oh dear,oh dear,oh de
ar..."
4200VDU141:PRINT" Oh dear,oh dear,oh de
ar..."
4210PRINT"
,,,,,,,,,,,";
4220PRINT
4230PRINT" You appeared to have snuffed
it,ya great pillock!"
4240PRINT
4250PRINT" 1) Have Another Go!"
4260PRINT'" 2) Quit this horrid game!"
4270PRINT'" The choice (1 or 2) is your
s..."
4280REPEAT:A$=GET$:UNTILINSTR("12",A$)
4290IFA$="2"THEN PROCbb
4300CLS
4310PRINT" Please wait.."
4330CHAIN"Sanity"