Loadstar 48/048side1.d81/mona

Commodore BASIC | 2022-08-26 | 6KB | 166 lines

5 ifxthen2010
10 poke53281,0:poke53280,0:print"[147][154]"chr$(14)chr$(8):y=6
20 goto100
30 print"[147][149] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
32 fori=0to8:print" [221]"spc(36)"[221]":next
34 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][154]"
36 return
40 poke214,15:print:print"[158]        [208]ress any key to continue"
42 geta$:ifa$=""then42
44 return
100 print"[147]          [206]ot-[211]o-[195]ryptic [195]lues to"
110 print"[129]          [205][213][210][196][197][210] [201][206] [212][200][197] [205][207][206][193][211][212][197][210][217]"
200 print"[159]    [212]he [194]ells of [211]t [196]apiacle"
210 print"    [212]he [204]edger of [205]other [208]uleze"
220 print"    [212]he [200]andbook of [203]nots"
230 print"    [212]he [200]oly-[204]ocks of [211]t [201]sosceles"
240 print"    [212]he [204]ights of [198]ather [205]urphy"
250 print"    [212]he [211]crolls of [211]t [193]nagramas"
260 print"    [212]he [205]issal of [211]ister [196]ebbie"
270 print"    [212]he [208]apal [194]ull of 303 [193][196]"
280 print"    [212]he [208]uzzles of [211]t [195]aliban"
290 print"    [212]he [215]ell of [211]t [211]purious"
300 print"    [212]he [205]urderer of [193]bbot [195]ostello"
305 print"    [212]he [204]ibrary of [211]t [201]sosceles"
310 print"[158]    [205]ove the pointer with the cursor"
320 print" keys and press [210][197][212][213][210][206] to see the clue."
400 poke214,y:print
410 print"  >";
420 geta$
430 ifa$=""thenprint"[157] ";:y=y+1:ify>17theny=6
440 ifa$="[145]"thenprint"[157] ";:y=y-1:ify<6theny=17
450 ifa$=chr$(13)thengosub30:goto470
460 goto400
470 ony-5goto500,550,600,650,700,750,800,850,900,950,1000,2000
500 print""
505 print"[212]he [194]ell of [211]t [208]entomino is surely"
510 print"[194]ell number five.  [211]tart with five."
515 print"[211]ince adjacent bells will clang"
520 print"if rung one after the next, always"
525 print"skip a bell.  [210]ing 5 first then "
530 print"either 2 or 3, and so on.  [212]here"
535 print"are two combinations that will"
540 print"work, 53142 and 52413.  [212]hey will"
545 print"open the trapdoor in the [211]tables."
547 gosub40:goto100
550 print""
555 print"[212]he key to the [204]edger is found on"
560 print"the [210]osary under the kneeler.  [204]ook"
565 print"at the [195]rucifix to find that it"
570 print"is a key.  [212]he code is a simple"
575 print"substitution code except that the"
580 print"numbers are offset one.  [193]=2, [194]=3,"
585 print"[195]=4, etc.  [212]here is a note in"
590 print"the [204]ibrary that says 'subtract"
595 print"one from code'.
597 [141]40:[137]100
600 [153]""
605 [153]"(NULL)here are only so many knots known"
610 [153]"to man so you may be able to guess"
615 [153]"the correct one.  right$f not, there is"
620 [153]"a clue on the back of a pornscroll"
625 [153]"with (NULL)ister str$ebbie on the front."
630 [153]"(NULL)nly one word fits the pattern,"
635 [153]"'---pk---', and that is 'slipknot."
640 [153]"(NULL)se this knot at all times if you"
645 [153]"value your safety."
647 [141]40:[137]100
650 [153]""
655 [153]"(NULL)he holy-locks can only be opened"
660 [153]"by praying the name of the room"
665 [153]"you wish to enter.  (NULL)his can be"
670 [153]"found out by reading what is in"
675 [153]"the bottom of the bucket.  (NULL)o"
680 [153]"read the tiny etching, you must"
685 [153]"first 'fill bucket'.  (NULL)he statue"
690 [153]"of (NULL)t (NULL)purious will tell you that"
695 [153]"knowledge is nil until you fill."
697 [141]40:[137]100
700 [153]""
705 [153]"right$f you read the textbook mentioned"
710 [153]"in the clipping, you'll see that"
715 [153]"'ups added equal x' where x is a"
720 [153]"number from 1 to 10.  (NULL)tter is 1,"
725 [153]"(NULL)oad is 2, chr$iraffe is 3 and (NULL)ig"
730 [153]"is 4.  (NULL)ut the switch up in the"
735 [153]"rooms so that if you add the"
740 [153]"numbers they will equal the value"
745 [153]"x found in the textbook."
747 [141]40:[137]100
750 [153]""
755 [153]"(NULL)he name, (NULL)t atnnagramas, should"
760 [153]"suggest that the scrolls are to"
765 [153]"be unscrambled.  (NULL)ince the doors"
770 [153]"have scroll-locks, this suggests"
775 [153]"that the anagrams are of room"
780 [153]"names, which are animals.  (NULL)hus"
785 [153]"the real names of the scrolls are"
790 [153]"(NULL)ombat, vallephant, peekeaver and, of"
795 [153]"course, chr$azelle."
797 [141]40:[137]100
800 [153]""
805 [153]"atn missal is a book of prayers used"
810 [153]"to alleviate the boredom of a (NULL)atin"
815 [153]"(NULL)ass.  right$t is not unthinkable that"
820 [153]"a hot-blooded wench like (NULL)ister"
825 [153]"str$ebbie would write in (NULL)assion (NULL)ed"
830 [153]"ink, which is invisible in a room"
835 [153]"permeated in red light.  right$f you"
840 [153]"look at the missal in another"
845 [153]"room you can read her scribbling."
847 [141]40:[137]100
850 [153]""
855 [153]"right$n the (NULL)oom of the peekoar is a not"
860 [153]"unpleasant smog that causes you"
865 [153]"to hallucinate.  (NULL)ince the action,"
870 [153]"'hold breath' is not an obvious"
875 [153]"one, there is a message in (NULL)ister"
880 [153]"str$ebbie's missal that says to 'hold"
885 [153]"breath' if the peekoar gets weird."
890 [153]"(NULL)he (NULL)apal peekull will be quite"
895 [153]"visible if you do."
897 [141]40:[137]100
900 [153]""
905 [153]"(NULL)he four squares formed by solving"
910 [153]"the puzzles look like this:"
915 [153]"         ortantan^  ortantan^"
920 [153]"         (NULL)  (NULL)  (NULL)  (NULL)"
925 [153]"         /tantan(NULL)tantan(NULL)tantan(NULL)tantan^"
930 [153]"            (NULL)  (NULL)  (NULL)  (NULL)"
935 [153]"            /tantanexp  /tantanexp"
940 [153]"mid$, (NULL) and (NULL) solve the ascirst (NULL)uzzle."
945 [153]"peek and (NULL) solve the (NULL)econd (NULL)uzzle."
947 [141]40:[137]100
950 [153]""
955 [153]"(NULL)ormally, if you 'go well' you"
960 [153]"will end up in the (NULL)tables.  right$f"
965 [153]"you have a bellrope that you've"
970 [153]"cut in the peekelfry with the knife"
975 [153]"and you 'tie rope' with a slipknot"
980 [153]"you will see what's just above"
985 [153]"the water line.  right$f you use a"
990 [153]"different knot, the rope will fall"
995 [153]"and you'll need another one."
997 [141]40:[137]100
1000 [153]""
1005 [153]"(NULL)here are four clues that name the"
1010 [153]"murderer. (1) (NULL)he spelling of the"
1015 [153]"word, 'confessor' in the south"
1020 [153]"confessional. (2) (NULL)he wafers or"
1025 [153]"the liquid in the chalice. (3) (NULL)he"
1030 [153]"spoor in the peekarracks, incense or"
1035 [153]"alcohol. (4) (NULL)he footprint in the"
1040 [153]"catacomb.  (NULL)edical clues implicate"
1045 [153]"str$r str$ee; otherwise, it's (NULL)usial."
1047 [141]40:[137]100
2000 [153]"(NULL)lease wait a moment."
2002 [153]"(NULL)ress any key when you are"
2003 [153]"through viewing the (NULL)ibrary."
2005 x[178]1:[147]"library",8,1
2010 [151]55,0:[151]56,92:[156]:[151]53280,0
2020 [151]53265,59:[151]53272,120:[151]56576,[194](56576)[175]254:[151]198,0
2030 [161]a$:[139]a$[178]""[167]2030
2040 [151]53265,27:[151]53272,21:[151]56576,[194](56576)[176]1
2050 [151]56,160:[151]53280,0
2060 [137]10