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