10 ' PYRAMIDA
20 MODE 1:BORDER 0:PAPER 0:L=0
30 FOR i=0 TO 3:INK i,0:NEXT i
40 MEMORY &3FFF
50 LOAD"PyramidA.cmp"
60 FOR i=0 TO 3:INK i,0:NEXT i
70 POKE &A634,&C8:POKE &A635,0:POKE &A636,0:CALL &A60B
80 POKE &C7F1,&C9:CALL &C7D0
90 CALL &A60B

100 WINDOW #1,25,36,4,19
110 INK 0,0:INK 1,3:INK 2,15:INK 3,24
120 PEN #1,3:PRINT #1:PRINT #1,"A sanctuary":PRINT #1,"of":PRINT #1,"knowledge,":PRINT #1,"lost in the"
130 PRINT #1,"eternal":PRINT #1,"silence of":PRINT #1,"the stones."

140 LOCATE 13,20:PEN 2:PRINT "WHAT WILL YOU DO ?"
150 PEN 3:LOCATE 4,21:PRINT "1-WEST      2-EAST      3-Examine"
160 PEN 2:LOCATE 4,22:PRINT "4-Climb the bookshelf"
170 PEN 3:LOCATE 4,23:PRINT "5-Read the book"
180 PEN 2:LOCATE 4,24:PRINT "6-Read the papyrus scrolls"

200 k$=INKEY$
210 IF k$="1" THEN RUN"Pyramid9.bas"
220 IF k$="2" THEN RUN"PyramidB.bas"
230 IF k$="3" THEN GOTO 300
240 IF k$="4" THEN GOTO 400
250 IF k$="5" THEN GOTO 600
260 IF k$="6" THEN GOTO 500
280 IF k$<"1" OR k$>"6" THEN GOTO 200

300 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
310 PEN 3:PRINT:PRINT "You discover a stone bookshelf,":PRINT "massive and solid, mocking time and":PRINT"storms."
320 PEN 2:PRINT:PRINT "Dusty papyrus scrolls are rolled":LOCATE 1,7:PRINT "up and seem to challenge you silently:"
330 PEN 1:PRINT:PRINT "Who dares unroll us without tearing?"
340 PEN 3:PRINT:PRINT "An open book rests in the center,":PRINT "its mysterious pages inviting you":PRINT "to read... or hesitate, as if knowing":PRINT "you love puzzles too much."
350 PEN 2:LOCATE 9,11:PRINT "book"
360 PEN 3:LOCATE 15,25:INPUT " ENTER  ",en$
370 GOTO 60

400 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
410 PEN 3:PRINT "You climb the bookshelf carefully,":PRINT "making sure not to tangle in the scrolls"
420 PEN 2:PRINT:PRINT "Each shelf threatens to protest unde":PRINT "your weight, but miracle:":PEN 3:PRINT:PRINT "        The stone is solid!"
430 PEN 1:PRINT:PRINT "At the top, you find a hidden trapdoor":PRINT "in the ceiling."
440 PEN 3:PRINT:PRINT "With a small effort, you push it open." :PRINT "It creaks as if mocking you."
450 PEN 2:PRINT:PRINT "And you enter the new room, hoping the":PRINT "floor doesn't mock your sense of":PRiNT"adventure."
460 PEN 1:PRINT:PRINT "You reach the upper level of the":PRINT"pyramid..."
470 PEN 3:LOCATE 15,25:INPUT " ENTER  ",en$
480 RUN"PyramidC.bas"

500 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
510 PEN 3:PRINT "You find a papyrus scroll and, curious,":LOCATE 1,2:PRINT "you start unrolling it."
520 PEN 2:PRINT:PRINT "Dipping your thumb to turn pages, you":PRINT "suspect nothing..."
530 PEN 3:PRINT:PRINT "Until a cold shiver runs up your arm:"
540 PEN 1:PRINT:PRINT "    The paper was... poisoned!"
550 PEN 2:PRINT:PRINT "The poison moves from your thumb to":PRINT"your mouth, and you feel your tongue":PRINT"turn blue, like the poor monks of":PRINT"an ancient abbey said to have died"
560 PRINT "from over-studying manuscripts."
570 PEN 3:PRINT:PRINT "You can scream all you want, too late:":PEN 1:PRINT:PRINT "Your adventure ends here, with a":PRINT "colorful, unique style."
580 PEN 3:LOCATE 15,25:INPUT " ENTER  ",en$
590 RUN"Mort.bas"

600 IF PEEK(&BE83)=0 THEN GOTO 700
610 IF PEEK(&BE83)=1 THEN GOTO 800
620 IF PEEK(&BE83)=2 THEN GOTO 900
630 IF PEEK(&BE83)=3 OR PEEK(&BE83)=4 THEN GOTO 1000

700 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
710 PEN 3:PRINT "You take the book in hand, and one":PRINT"thing jumps out:"
720 PEN 1:PRINT:PRINT "It is not an ancient relic, but a fine":PRINT "book smelling of luxury stationery!"
730 PEN 2:PRINT:PRINT "The cover, though dusty, shows perfectly":LOCATE 1,8:PRINT "smooth leather, almost too modern to be":PRINT "honest."
740 PEN 3:PRINT:PRINT "And the paper... white, thick, flawless"
750 LOCATE 1,12:PRINT "as if someone forgot their FAC manual":PRINT"here yesterday..."
760 PEN 2:PRINT:PRINT "It is neither a sacred grimoire nor a":PRINT "curse, but rather a boring lecture."
770 PEN 1:PRINT:PRINT "Unless... its content hides something":PRINT"else?"
780 PEN 3:LOCATE 15,25:INPUT " ENTER  ",en$
790 POKE &BE83,1:GOTO 60

800 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
810 PEN 3:PRINT:PRINT "On the first page, you find a physics":PRINT"lesson!"
820 PEN 2:PRINT:PRINT "The text discusses freezing and":PRINT"temperature laws, with formulas even":PRINT"your high school teacher would":PRINT"find suspicious."
830 PEN 3:PRINT:PRINT "Apparently, absolute zero is not":PRINT "just an idea, but a lifestyle, and":PRINT"cryogenics seems the author's":PRINT"favorite topic."
840 PEN 1:PRINT:PRINT:PRINT "   Strange...":PRINT:PRINT "            and intriguing..."
850 PEN 3:LOCATE 15,25:INPUT " ENTER  ",en$
860 POKE &BE83,2:GOTO 60

900 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
910 PEN 3:PRINT "The second page makes you raise an":PRINT"eyebrow:":PEN 1:PRINT:PRINT "Graphs, equations, and diagrams":PRINT "worthy of a futuristic lab."
920 PEN 2:PRINT:PRINT "It talks about time curvature, spatial":PRINT "distortion, and someone scribbled:"
930 PEN 1:PRINT:PRINT "      ";CHR$(34);"Plausible E.T. hypothesis";CHR$(34)
940 PEN 3:PRINT:PRINT "It feels like reading a science manual":PRINT "and a sci-fi movie script at once."
950 PEN 2:PRINT:PRINT "At this point, you either found a":PRINT"misunderstood genius or an alien":PRINT"preparing a PowerPoint."
960 PEN 3:PRINT:PRINT "Keep reading, because honestly,":PRINT "who could resist?"
980 LOCATE 15,25:INPUT " ENTER  ",en$
990 POKE &BE83,3:GOTO 60

1000 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
1010 PEN 3:PRINT "The last page of this book is a glossary"
1020 PEN 1:LOCATE 1,3::PRINT "Yes, a dictionary, but not just any:"
1030 PEN 2:PRINT:PRINT "It links classic hieroglyphs to":PRINT "symbols previously unknown."
1040 PEN 3:PRINT:PRINT "Congratulations, you expanded your":PRINT "adventurer's vocabulary!":PRINT:PRINT "Now you understand signs even":PRINT "Egyptologists would not dare pronounce."
1050 PEN 2:PRINT:PRINT "Some glyphs are so strange they seem":PRINT "like emojis invented by a hip pharaoh."
1060 PEN 1:PRINT:PRINT "One thing is sure: you will never":PRINT "forget these new words."
1070 PEN 3:LOCATE 15,25:INPUT " ENTER  ",en$
1080 POKE &BE83,4:GOTO 60
