10 ' PYRAMID6
20 MODE 1:BORDER 0
30 FOR i=0 TO 3:INK i,0:NEXT i
40 MEMORY &3FFF
50 LOAD"Pyramid6.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 corridor":PRINT #1,"frozen,":PRINT #1,"where":PRINT #1,"shadow":PRINT #1,"dims":PRINT #1,"the stone,"
130 PRINT #1,"and where":PRINT #1,"stands":PRINT #1,"silently":PRINT #1,"the echo of":PRINT #1,"a sleeping":PRINT #1,"king."

140 LOCATE 13,20:PEN 2:PRINT"WHAT WILL YOU DO ?"
150 PEN 3:LOCATE 4,21:PRINT "1-WEST  2-EAST  3-SOUTH  4-Examine"
160 PEN 2:LOCATE 4,22:PRINT "5-Stroke the vases"
170 PEN 3:LOCATE 4,23:PRINT "6-Search the sarcophagus"
180 PEN 2:LOCATE 4,24:PRINT "7-Search the vases   8-Dig"

200 k$=INKEY$
210 IF k$="1" THEN RUN"Pyramid5.bas"
220 IF k$="2" THEN RUN"Pyramid7.bas"
230 IF k$="3" THEN RUN"Pyramid2.bas"
240 IF k$="4" THEN GOTO 300
250 IF k$="5" THEN GOTO 400
260 IF k$="6" THEN GOTO 500
270 IF k$="7" THEN GOTO 600
280 IF k$="8" THEN GOTO 700
290 IF k$<"1" OR k$>"8" THEN GOTO 200

300 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
310 PEN 3:PRINT:PRINT "You inspect the corridor with":PRINT "care."
320 PEN 2:PRINT:PRINT "On the left, a royal sarcophagus":LOCATE 1,6:PRINT "stares at you with that snobby":LOCATE 1,7:PRINT "look of those who paid for their":PRINT "own pyramid."
330 PEN 3:PRINT:PRINT "In front of you, three huge vases":PRINT "stand upright like guards in an":PRINT "ancient nightclub."
340 PRINT:PRINT "The floor, with cold stone slabs,":PRINT "shines under the dust: a perfect":PRINT "floor for a kitchen..."
350 PEN 2:PRINT:PRINT "Well, if you like cooking in a":PRINT "haunted tomb."
360 PEN 1:PRINT:PRINT "All in all, it's cozy, but it":PRINT "still needs a small IKEA rug":PRINT "for the decor."
370 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
380 GOTO 60

400 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
410 PEN 3:PRINT "You lean toward the vases, and":PRINT "decide... to stroke them."
420 PEN 1:LOCATE 1,4:PRINT "Yes, really, stroke them..."
430 PEN 2:PRINT:PRINT "As your hand brushes the clay, a":PRINT "soft sound is heard."
440 PEN 3:LOCATE 1,9:PRINT "Curious: each vase produces a":PRINT "different note."
450 PEN 2:PRINT:PRINT "You continue, a bit out of curiosity,":PRINT "a bit out of obsession...":PRINT "And, miracle! By stroking these":PRINT "ancient pots, a symphony":PRINT "finally emerges:"
460 PEN 1:PRINT:PRINT "      LA - MI - RE - MI - SOL - MI"
470 PRINT "      DO - SI - LA - SOL - LA - MI"
480 PEN 3:PRINT:PRINT "Could this be a whisper from the past?":PRINT "Or even the key to a forgotten symphony?"
485 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
490 GOTO 60

500 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
510 PEN 3:PRINT "You open the sarcophagus, curious to":PRINT "see what it might contain."
520 PEN 2:PRINT:PRINT "As soon as your hand slides in, a":LOCATE 1,5:PRINT "cloud of dust jumps at your face."
530 PEN 1:PRINT:PRINT "You sneeze...":PRINT:PRINT "     Hard. Very hard. Too hard."
540 PEN 3:PRINT:PRINT "The vibrations shake the lid, which":PRINT "falls back on you immediately!"
550 PEN 2:PRINT:PRINT "You are trapped for eternity,":PRINT "with only silence, sand, and a subtle":PRINT "scent of mummy as company."
560 PEN 3:PRINT:PRINT "You have finally obtained the fate":PRINT "of a true pharaoh...":PEN 1:PRINT:PRINT "              ...prestige minus."
570 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
580 RUN "Mort.bas"

600 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
610 PEN 3:PRINT "You decide to search the vases."
620 PEN 2:PRINT:PRINT "In one, your hand finds a piece":PRINT "of fragile papyrus."
630 PEN 1:PRINT:PRINT "You unfold it carefully... and":PRINT "discover a musical score, but":PRINT "not just any:" :PRINT:PRINT "        A numerical sequence!"
640 PEN 3:PRINT:PRINT "Alas, time has played little tricks":PRINT "and made some numbers disappear."
650 PEN 2:PRINT:PRINT "      Only this remains:"
660 PEN 1:PRINT:PRINT "         1 -   - 2 - 3 -   - 3":PRINT:PRINT "         7 - 6 -   - 4 - 5 -  "
670 PEN 3:PRINT:PRINT "It's unreadable... But you feel":PRINT "that this papyrus has style."
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
710 PEN 3:PRINT:PRINT "You thrust your shovel into the floor...":PRINT "and nothing. Nada."
720 PEN 2:PRINT:PRINT "The floor, a stone slab, is more":PRINT "solid than your motivation to do":PRINT "sports on a Monday morning."
730 PEN 3:PRINT:PRINT "You contemplate your shovel...":PRINT:PRINT "       Then the stone...":PRINT "           And finally yourself..."
740 PEN 2:PRINT:PRINT "And you understand this floor is built":PRINT "to last, unlike your patience."
750 PEN 1:PRINT:PRINT "Come on, put away your toy and stop":PRINT "playing the hyperactive mole."
760 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
770 GOTO 60
