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