10 ' PYRAMID3
20 MODE 1:BORDER 0:PAPER 0
30 FOR i=0 TO 3:INK i,0:NEXT i
40 MEMORY &3FFF
50 LOAD"Pyramid3.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,"The Chamber":PRINT #1,"of the Last":PRINT #1,"Breath:" 
130 PRINT #1,:PRINT #1,"Here rests":PRINT #1,"a secret":PRINT #1,"shrouded in":PRINT #1,"shadow":PRINT #1,"and light,":PRINT #1,"like a":PRINT #1,"promise":PRINT #1,"never":PRINT #1,"broken."

140 LOCATE 13,20:PEN 2:PRINT"WHAT WILL YOU DO ?"
150 PEN 3:LOCATE 4,21:PRINT "1-EAST"
160 PEN 2:LOCATE 4,22:PRINT "2-Unplug left computer"
170 PEN 3:LOCATE 4,23:PRINT "3-Unplug right computer"
180 PEN 2:LOCATE 4,24:PRINT "4-Search the sarcophagus"

200 k$=INKEY$
210 IF k$="1" THEN GOTO 300
220 IF k$="2" THEN GOTO 700
230 IF k$="3" THEN GOTO 700
240 IF k$="4" THEN GOTO 700
280 IF k$<"1" OR k$>"4" THEN GOTO 200

300 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
310 PEN 3:PRINT:PRINT"You can't just leave without":PRINT"tampering with something in":PRINT"this room full of totally":PRINT"anachronistic gear!"
320 PEN 2:PRINT:PRINT"Show a little courage for once..."
330 PEN 1:PRINT:PRINT"Come on, let's go back!"
340 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
350 GOTO 60

400 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
410 PEN 3:PRINT"In the funerary chamber, at the":PRINT"heart of the pyramid, you find":PRINT"a glass sarcophagus, connected to":LOCATE 1,4:PRINT"cables, themselves linked to":PRINT"electronic machines!!!"
420 PEN 2:PRINT:PRINT"You scan the room with your eyes."
430 PEN 1:PRINT:PRINT"Chilling atmosphere, end-of-world":PRINT"lighting, and that big thing in":PRINT"the center..."
440 PEN 3:PRINT:PRINT"Seriously, who leaves a futuristic":PRINT"coffin in a millennia-old":PRINT"pyramid?"
450 PEN 2:PRINT:PRINT"It looks like a mix between":PRINT"Tutankhamun and a power strip!"
460 PEN 1:PRINT:PRINT"Yet strangely, this place feels":PRINT"familiar... as if you had":PRINT"already lived in this sarcophagus!"
470 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
480 CLS
490 PEN 1:LOCATE 1,4:PRINT"Suddenly, a synthetic voice from":PRINT"beyond the grave resounds:"
500 PEN 3:PRINT:PRINT"Hello, my old friend."
510 PRINT:PRINT"I suppose your memories and":PRINT"thoughts must be extremely confused."
520 LOCATE 1,12:PRINT"Sit down and listen carefully, I":PRINT"will explain EVERYTHING..."
525 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
527 CLS
530 PEN 3:PRINT:PRINT"You are not in 1951."
540 PRINT:PRINT"You are not really an Egyptologist":PRINT"either..."
550 PRINT:PRINT"In reality, you are a scientist of":PRINT"the future, placed in cryogenic":LOCATE 1,9:PRINT"sleep in this pyramid that you":PRINT"built yourself with a scientific team,"
560 LOCATE 1,11:PRINT"to protect forbidden knowledge."
570 PRINT:PRINT"Knowledge so destructive that you":PRINT"discovered... and sealed here:" : PEN 1:PRINT:PRINT"             THE ANUBIS."
580 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
590 CLS
600 PEN 3:LOCATE 2,13:PRINT"But let's go back to the beginning..."
610 LOCATE 15,25:INPUT" ENTER  ",en$
620 RUN"Epilogue.bas"

700 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
710 PEN 3:LOCATE 1,13:PRINT"Are you sure you want to do this (Y/N)?"
720 k$=INKEY$
730 IF UPPER$(k$)="O" OR UPPER$(k$)="Y" THEN GOTO 760
740 IF UPPER$(k$)="N" THEN GOTO 60
750 IF UPPER$(k$)<>"O" AND UPPER$(k$)<>"N" AND UPPER$(k$)<>"Y" THEN GOTO 720
760 CLS:LOCATE 11,13:PRINT"REALLY sure (Y/N)?"
770 k$=INKEY$
780 IF UPPER$(k$)="O" OR UPPER$(k$)="Y" THEN GOTO 810
790 IF UPPER$(k$)="N" THEN GOTO 60
800 IF UPPER$(k$)<>"O" AND UPPER$(k$)<>"N" AND UPPER$(k$)<>"Y" THEN GOTO 770
810 CLS:LOCATE 6,13:PRINT"Truly, TRULY sure (Y/N)?"
820 k$=INKEY$
830 IF UPPER$(k$)="O" OR UPPER$(k$)="Y" THEN GOTO 860
840 IF UPPER$(k$)="N" THEN GOTO 60
850 IF UPPER$(k$)<>"O" AND UPPER$(k$)<>"N" AND UPPER$(k$)<>"Y" THEN GOTO 820
860 CLS:LOCATE 1,12:PRINT"As you approach the device, a":PRINT"phenomenon occurs..."
870 LOCATE 15,25:INPUT" ENTER  ",en$
880 GOTO 400
