10*|" Filename SEARCH2
20 ON ERROR PROCerror
30CLS
40PROCt
50PRINT
60PRINT" Written and directed b
y :"
70PRINT" John Carpenter"
80PRINT
90PRINT" NB.. The Search for Sanity i
s the SAME as the Search for Sense..jus
t the offline version...if you wou
ld like the other version,then let me kn
ow!"
100PRINT'''''
110PRINT" Press Return please.
."
120REPEAT:UNTILGET=13
130PROCt
140PRINT
150PRINT" THE MENU"
160PRINT"
170PRINT''
180PRINT" 1) Information "
190PRINT
200PRINT" 2) The Advice Bureau"
210PRINT
220PRINT" 3) Start the game"
230PRINT
240PRINT" 4) Play with your ear wax"
250PRINT'" 0) Oh just forget the game.
.grumble!"
260PRINT''
270PRINT" Your order,monsieur ? "
280REPEAT
290A$=GET$
300UNTILINSTR("12340",A$)
310PRINT'" Ah bon.. ";A$
320FORA=1TO1000
330IFA$="1"THEN PROCinfo
340IFA$="2"THEN PROChints
350IFA$="3"THEN PROCgo
360IFA$="4"THEN PROChar
370IFA$="0"THEN PROCbb
380GOTO130
390DEF PROCt
400CLS
410PRINT"
,,,,,,,,,,,";
420PRINT" The Search For Sani
ty
430PRINT"
,,,,,,,,,,,";
440ENDPROC
450DEF PROChar
460CLS
470PRINT" Ooh..Mmm..oooh...aaahhh..."
480PRINT" Do you want to see the menu
again?"
490REPEAT
500A$=GET$
510IFINSTR("Yy",A$) THEN ENDPROC
520PRINT'" Tuff..you're seeing it agai
n anyway"
530FORA=1TO2000:NEXTA
540ENDPROC
550DEF PROCinfo
560PROCt
570PRINT'" A long long time ago..abou
t 25 minutes to be precise..thine wife d
id call and thine wife did scream Get r
id of that Bloody Weed! and thou didst
go out into the garden and thou didst w
onder"
580PRINT " how thou was going to get t
he weeds out without getting your hards
dirty and thou must confess to gettin
g very narked off indeed.Anyway,th
ou's adventure is very simple.."
590PRINT " Dig up the weed "
600PRINT
610PRINT" Well,that's about all of tho
u's quest, bt it's more tricky than it
sounds..."
620PRINT
630PROCreturn
640PROCt
650PRINT'" How to Play Thine's Game.."
660PRINT "
670PRINT
680PRINT" You can move by selecting an
option from the menu.It is very sim
ple to play so there is no need for any
sort of instructions which is why I
have not done any... AH ... oops.."
690PRINT
700PRINT" How to Avoid being Seen.."
710PRINT"
720PRINT'" Hide behind a very large bu
sh and blindfold the person who yo
u don't want to see you."
730PRINT
740PROCreturn
750PROCt
760PRINT'" Incidentally..no knowledge
of gardening is necessary to complete th
is game as it has very little to do wi
th gardening Your co-operation in this m
atter,is appreciated. Thank you !"'
770PROCreturn
780ENDPROC
790DEF PROCreturn
800PRINT" Press Return
810REPEAT:UNTILGET=13
820ENDPROC
830DEF PROChints
840PROCt
850PRINT
860PRINT" We are sorry but the advice
bureau is closed for a short lunch bre
ak.Please contact John Carpenter if yo
u are stuck and can't hach the program..
Thanks!!"'
870PROCreturn
880ENDPROC
890DEF PROCgo
900CLS
910PRINT" Please wait..."
920CHAIN"SANITY"
930ENDPROC
940DEF PROCbb
950CLS
960PRINT" Wha-at ?? Quit before you ha
ve even started ??? Give us a chance
please!!?"
970PRINT
980PRINT" 1) Give us a chance "
990PRINT
1000PRINT" 2) Eat my nose."
1010PRINT
1020PRINT" 3) Be ruthless..quit!!"
1030PRINT
1040PRINT" Your hands are in my fate.."
;
1050REPEAT:A$=GET$:UNTILINSTR("123",A$)
1060IFA$="2"THEN CLS:PRINT" YUM
YUM! GOTO
1070IFA$="1"THEN ENDPROC
1080CLS:PRINT" Sniff.."
1090PRINT'':END
1100*|" DUNCAN... you should
1110*|" put a CHAIN'MENU'job here
1120ENDPROC
1130DEF PROCerror
1140CLS
1150PRINT" WHOOPPEE!
1160PRINT
1170PRINT" Er..actually..that's a lie..
the following is,in fact.. bad n
ews..."
1180PRINT
1190REPORT
1200PRINT" at line ";ERL
1210PRINT
1220PRINT" DAMNATION !"'
1230PROCreturn
1240PROCbb
1250ENDPROC