10 ' PYRAMID7
20 MODE 1:BORDER 0:PAPER 0
30 FOR i=0 TO 3:INK i,0:NEXT i
40 MEMORY &3FFF
50 LOAD"Pyramid7.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,"An empty":PRINT #1,"room":PRINT #1,"from which":PRINT #1,"springs":PRINT #1,"a ladder"
130 PRINT #1,"leading to":PRINT #1,"a shadowy":PRINT #1,"abyss in":PRINT #1,"the":PRINT #1,"ceiling,":PRINT #1,"guards":PRINT #1,"a silent":PRINT #1,"vase."

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 ladder"
170 PEN 3:LOCATE 4,23:PRINT "5-Search the vase        6-Rest"
180 PEN 2:LOCATE 4,24:PRINT "7-Crawl under ladder"

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

300 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
310 PEN 3:PRINT:PRINT "You look around you:"
320 PEN 2:PRINT:PRINT "An empty room, a lonely vase":LOCATE 1,5:PRINT "and a ladder climbing up to a black hole."
330 PEN 1:PRINT:PRINT "If this is a puzzle, it is":PRINT "sponsored by boredom..."
340 PEN 3:PRINT:PRINT "The vase seems to say:":PEN 1:PRINT:PRINT CHR$(34);"Go on, just a little peek...":PRINT "good for your karma.";CHR$(34)
350 PEN 3:PRINT:PRINT "As for the hole, it remains":PRINT "black, silent, and deeply":PRINT "condescending, as if your":PRINT "curiosity amused it endlessly."
360 PEN 2:PRINT:PRINT "You begin to doubt this room":PRINT "has any real purpose..."
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 grab the ladder with all":PRINT "due caution:"
420 PEN 2:PRINT:PRINT "This old wood seems older than":PRINT "your ex-mother-in-law."
430 PEN 1:PRINT:PRINT "          Yet, miracle:"
440 PEN 3:PRINT:PRINT "It holds firm, even when you":PRINT "put all your weight on it...":PRINT "including the XXL kebab you":PRINT "devoured before your adventure."
450 PEN 2:PRINT:PRINT "No creaks, no collapse, just a climb":PRINT "worthy of a Just Price tyrolean!"
460 PEN 1:PRINT:PRINT "You reach the top, ready to":PRINT "discover what lies beyond this":PRINT "mysterious hole..."
470 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
480 RUN"PyramidB.bas"

500 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
510 PEN 3:PRINT "You approach the vase, which turns":LOCATE 1,2:PRINT "out to be... a canopic jar!"
520 PEN 2:PRINT:PRINT "Strange that it is alone... where are":PRINT "its siblings?"
530 PEN 3:PRINT:PRINT "With a mix of curiosity and disgust,":PRINT "you plunge your hand inside, ready":PRINT "to find embalmed pharaoh guts."
540 PEN 1:PRINT:PRINT "And indeed, there are remains...":PRINT "But not what you expected:"
550 PEN 2:PRINT:PRINT "Old circuit debris!"
560 PRINT "Components, burned boards,":PRINT "as if R2D2 emptied its chip bag here."
570 PEN 3:PRINT:PRINT "At this point, either pharaohs had a":PRINT "hidden geek side, or you have":PRINT "found the remains of the first":PRINT "digital mummy!"
580 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
590 GOTO 60

600 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
610 PEN 3:PRINT:PRINT "You sit on the stone floor to":PRINT "catch your breath."
620 PEN 1:PRINT:PRINT "  The floor is cold... icy, really."
630 PEN 2:PRINT:PRINT "So cold that your backside sends":PRINT "an SOS straight to your brain,":LOCATE 1,9:PRINT "making your head jerk upright."
640 PEN 3:LOCATE 1,11:PRINT "Then you see a light escaping from":PRINT "the hole in the ceiling,":PRINT "with a faint buzzing,":LOCATE 1,14:PRINT "or perhaps muted musical notes,"
650 PRINT "like a tune the pyramid itself":PRINT "hums to lure you higher..."
660 PEN 1:PRINT:PRINT "Good news? Or the official teaser":PRINT "of your next misfortune?"
670 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
680 GOTO 60

700 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
710 PEN 3:PRINT "You decide to crawl under the ladder."
720 PEN 1:PRINT:PRINT "Bravo! An act of courage...":PRINT "or pure provocation of superstition!"
730 PEN 2:PRINT:PRINT "Do you also want to break a mirror,":PRINT "spill salt, or cross a black cat":PRINT "while you're at it?"
740 PEN 3:PRINT:PRINT "Anyway, during your bravery act, you":PRINT "notice an inscription on a rung:"
750 PEN 1:LOCATE 1,13:PRINT "          ";CHR$(34);"I Want to Believe";CHR$(34)
760 PEN 3:PRINT:PRINT "Seriously? An English phrase here,":PRINT "on a ladder in the heart of a pyramid?!"
770 PEN 2:PRINT:PRINT "Unless a certain FBI agent did a":PRINT "training course in Egypt..."
780 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
790 GOTO 60
