10 ' PYRAMID5
20 MODE 1:BORDER 0:PAPER 0
30 for i=0 to 3:ink i,0:next i
40 MEMORY &3FFF
50 LOAD"Pyramid5.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,35,5,18
110 ink 1,3:Ink 2,15:Ink 3,24
120 PEN #1,3:Print #1,"A silent":Print #1,"room":Print #1,"where":Print #1,"Gods":Print #1,"observe,":Print #1,"under":Print #1,"the dark":Print #1,"shadow":Print #1,"of a":Print #1,"ceiling":Print #1,"weakened":Print #1,"by time."

130 locate 13,20:PEN 2:Print"WHAT WILL YOU DO?"
140 Pen 3: locate 4,21:PRint "1-WEST  2-EAST  3-NORTH  4-Examine"
150 Pen 2:locate 4,22:Print "5-Search the rubble on the ground"
160 Pen 3:locate 4,23:Print "6-Inspect the limestone block"
170 Pen 2:locate 4,24:Print "7-Lie down     8-Summon Anubis"

200 k$=INKEY$
210 IF k$="1"THEN RUN"Pyramid4.bas"
220 IF k$="2"THEN RUN"Pyramid6.bas"
230 IF k$="3"THEN RUN"Pyramid9.bas"
240 IF k$="4"THEN GOTO 600
250 IF k$="5"THEN GOTO 700
260 IF k$="6"THEN GOTO 800
270 IF k$="7"THEN GOTO 900
280 IF k$="8"THEN GOTO 1000
290 IF k$<"1"OR k$>"8" THEN GOTO 200

600 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24:Border 0:PAPER 0
610 PEN 3:PRINT"The walls are covered with huge":PRINT"hieroglyphs:"
620 PEN 2:PRINT:PRINT"Egyptian gods stare at you with their":PRINT"harsh eyes, while some pharaohs seem":PRINT"to spy on your every single move."
630 PEN 3:PRINT:PRINT"On the ground, a huge limestone block":PRINT"stands next to rubble that whispers:":PEN 1:PRINT:PRINT"         ";CHR$(34);"Do not touch us";CHR$(34)
640 PEN 2:PRINT:PRINT"Further NORTH, a staircase climbs":PRINT"to the upper floor, promising new":PRINT"adventures... and probably more":PRINT"dangers."
650 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
660 CLS:PEN 3:Locate 1,6:PRINT"The ceiling creaks softly under the":PRINT"weight of centuries: fragile, squeaky":PRINT"and ready to remind you that gravity":PRINT"is not your best friend."
670 PEN 2:PRINT:PRINT"A perfect place to feel small, careful":PRINT"and slightly freaked out."
680 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
690 GOTO 60

700 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24:Border 0:PAPER 0
710 PEN 3:PRINT"You lean over the pile of rubble":PRINT"because old stones, oh yes, you love":PRINT"that stuff!"
720 PEN 2:PRINT:PRINT"The rocks crunch under your fingers.":PEN 3:PRINT:PRINT"Oh, just one tiny detail worth":PRINT"mentioning:"
730 PEN 1:PRINT:PRINT"Right above, the ceiling looks a bit":PRINT"... fragile..."
740 PEN 2:PRINT:PRINT"Before you can gloat over your great":PRINT"discovery, a huge limestone block":PRINT"breaks loose and decides to join the":PRINT"adventure..."
750 PEN 1:PRINT:PRINT"              BOOOOOOM!"
760 PEN 3:PRINT:PRINT"You're now as flat as a pancake..."
770 PEN 2:PRINT:PRINT"Not like the fallen block wasn’t an":PRINT"obvious clue, huh?"
780 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
790 RUN"Mort.bas"

800 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24:Border 0:PAPER 0
810 PEN 3:PRINT:PRINT"You approach the big limestone block":PRINT"like it’s a misplaced couch."
820 PEN 2:PRINT:PRINT"Massive, rectangular, a true stone":PRINT"titan, now perfectly still where it":PRINT"decided to settle, far from the roof."
830 PEN 1:PRINT:PRINT"You guess it once took a quick dive":PRINT"from the top of the room."
840 PEN 3:PRINT:PRINT"It sits here, waiting calmly for its":PRINT"limestone buddies to join and create":PRINT"the big lazy block club..."
850 LOCATE 15,25:INPUT" ENTER  ",en$
860 GOTO 60            

900 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24:Border 0:PAPER 0
910 PEN 3:PRINT:PRINT"You lie down on the big limestone":PRINT"block like it’s a luxury lounger."
920 PEN 1:PRINT:PRINT"Bad news: limestone comfort level is":PRINT"not exactly beach vibes."
930 PEN 2:PRINT:PRINT"Your back aches, but hey, at least":PRINT"it’ll make a funny story at fancy":PRINT"dinners."
935 PRINT:PRINT"Well... if you ever get invited..."
940 PEN 3:PRINT:PRINT"Gazing at the ceiling, you notice it":PRINT"looks, how to say... fragile."
942 PRINT:PRINT"Cracks, holes, definitely not the":PRINT"promise of a safe nap!"
945 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
947 CLS
950 PEN 2:PRINT"Then your eyes wander to the walls":PRINT"with their majestic hieroglyphs:"
955 PRINT:PRINT"You spot a few divine beings:"
960 PEN 3:PRINT:PRINT"SOBEK, crocodile snout,":PRINT:PRINT"THOT, the wise ibis,":PRINT:PRINT"HORUS, vigilant falcon,"
965 PRINT:PRINT"BASTET, sacred cat,":PRINT:PRINT"MIYSIS, fierce lion,":PRINT:PRINT"KHNOUM, the ram god,":PRINT:PRINT"and of course ANUBIS, the eternal jackal"
970 PEN 1:PRINT:PRINT"A quick mythology review, on the house!"
980 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
990 GOTO 60

1000 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24:Border 0:PAPER 0
1010 PEN 3:PRINT"You call Anubis like some great priest,":PRINT"arms raised, solemn voice, as if the":PRINT"whole pantheon would rush at your call."
1020 PEN 2:Locate 1,6:PRINT"Result?":PRINT:PRINT"No divine sign, no mystic light, no":PRINT"ghostly jackal..."
1030 PEN 1:PRINT:PRINT"Just you, declaiming spells to a":PRINT"ceiling that seems really unimpressed..."
1040 PEN 3:PRINT:PRINT"Stones do not move, hieroglyphs stay":PRINT"stoic, even the small breeze barely":PRINT"caresses you without emotion."
1050 PEN 2:PRINT:PRINT"Alright, we’ll never speak of this":PRINT"awkward lonely moment again."
1060 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
1070 GOTO 60
