10 ' PYRAMIDB
20 MODE 1:BORDER 0:PAPER 0
30 FOR i=0 TO 3:INK i,0:NEXT i
40 MEMORY &3FFF
50 LOAD"PyramidB.cmp"

55 Dim Dieux(14)
56 Restore 800
57 For i=1 to 7:Read A$(i),b$(i):Next i

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,"Face":PRINT #1,"frozen":PRINT #1,"forever,":PRINT #1,"the":PRINT #1,"Sphinx":PRINT #1,"sleeps."
130 PRINT #1,:PRINT #1,"Yet its":PRINT #1,"gaze":PRINT #1,"never":PRINT #1,"dies."

140 LOCATE 13,20:PEN 2:PRINT"WHAT DO YOU DO ?"
150 PEN 3:LOCATE 4,21:PRINT "1-WEST        2-Go down ladder"
160 PEN 2:LOCATE 4,22:PRINT "3-Examine     4-Talk to Sphinx"
170 PEN 3:LOCATE 4,23:PRINT "5-Search Sphinx"
180 PEN 2:LOCATE 4,24:PRINT "6-Push Sphinx 7-Shout"

200 k$=INKEY$
210 IF k$="1"Then RUN"PyramidA.bas"
220 IF k$="2"Then RUN"Pyramid7.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" and PEEK(&BE85)=0 Then GOTO 700
280 IF k$="7" and PEEK(&BE85)=1 Then GOTO 1600
290 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"In this room, the dim light":PRINT"sets a dramatic mood."
320 PEN 2:PRINT:PRINT"At its center, the Sphinx.":PRINT"Majestic, imposing... and as chatty":PRINT"as an anvil."
330 PEN 1:PRINT:PRINT"It has ruled for millennia,":PRINT"ignoring guided tours."
340 PEN 3:PRINT:PRINT"Under your feet, a floor that has":PRINT"not seen a mop since Ramses II."
350 PEN 3:PRINT:PRINT"And there, a hole with a ladder":PRINT"going down...":PRINT:PRINT"Why go down a dark hole?":PRINT"Because it's a brilliant idea!"
360 PEN 2:PRINT:PRINT"Oh, and FYI: no exit except":PRINT"to the WEST. So if you hoped to":PRINT"open a window to air out, forget it."
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 stand before the Sphinx and":PRINT"start talking, sure that the":PRINT"stone has much to say."
420 PEN 1:PRINT:PRINT"            Total silence."
430 PEN 2:PRINT:PRINT"No whisper, no sigh..."
440 PEN 3:PRINT:PRINT"Just two fixed eyes staring":PRINT"at you emotionlessly."
450 PEN 2:PRINT:PRINT"You try everything:":PRINT"The weather, the best stuffed":PRINT"pigeon recipe, the papyrus market":PRINT"and even the debate ";CHR$(34);"sand or gravel:"
460 PRINT"who scrapes more";CHR$(34)
470 PEN 1:PRINT:PRINT"                Nothing."
480 PEN 3:PRINT:PRINT"Maybe with its limestone ears":PRINT"and ancient age, it doesn't hear well?":PRINT"Who knows... speaking louder might help."
490 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
495 GOTO 60

500 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
510 PEN 3:PRINT"You decide to search the Sphinx."
520 PEN 2:PRINT:PRINT"Normal, who could resist the urge":PRINT"to touch a 4000-year-old monument?"
530 PEN 3:PRINT:PRINT"You feel the paws, look for a":PRINT"hiding place...":PRINT"when suddenly, a faint click is heard."
540 PEN 1:PRINT:PRINT"Ouch..."
550 PEN 2:PRINT:PRINT"You just triggered the oldest":PRINT"anti-burglar mechanism in":PRINT"the world."
560 PEN 3:PRINT:PRINT"The floor opens under your feet,":PRINT"and you end your descent to":PRINT"the lower floor ...3D puzzle":PRINT"first prize."
570 PEN 1:PRINT:PRINT"Curtain."
580 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
590 RUN"Mort.bas" 

600 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
610 PEN 3:PRINT:PRINT"You take a deep breath,":PRINT"place your hands on the Sphinx and":PRINT"push with all your strength."
620 PEN 1:PRINT:PRINT"After two seconds, a blinding":PRINT"realization:"
630 PEN 2:PRINT:PRINT"This thing weighs more than a truck":PRINT"full of sarcophagi, and you, skipped" :PRINT"gym class."
640 PEN 3:PRINT:PRINT"Then, catching your breath,":Locate 1,14:PRINT"you notice numbers engraved on the":PRINT"base."
650 PEN 2:PRINT:PRINT"Strange numbers..."
660 PEN 1:PRINT:PRINT"Does the Sphinx have a small soft":PRINT"spot for math between existential":PRINT"riddles?"
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 scream as if the whole desert":PRINT"would collapse, and... miracle!"
720 PEN 2:PRINT:PRINT"The Sphinx opens its mouth and":PRINT"a strangely metallic sound":PRINT"emerges:"
730 PEN 3:PRINT:PRINT"- Vocal frequency analysis...":PRINT:PRINT"- User match confirmed.":PRINT:PRINT"- Identity recognized."
740 PRINT:PRINT"To access advanced pyramid info":PRINT"answer a question about the":PRINT"Egyptian gods."
750 PEN 2:PRINT:PRINT"A talking Sphinx analyzing my voice?!":PRINT"What a monumental mess!"
760 PEN 1:Locate 1,22:PRINT"       Do you want to answer":PRINT"     the Sphinx riddle (Y/N)?"
770 k$=INKEY$
780 IF upper$(k$)="Y" THEN GOTO 800
790 IF upper$(k$)="N" THEN GOTO 60
795 IF upper$(k$)<>"Y" OR upper$(k$)<>"N" THEN GOTO 760

800 Data SOBEK,Crocodile,THOT,Ibis,HORUS,Hawk,BASTET,Cat,MIYSIS,Lion,KHNUM,Ram,ANUBIS,Jackal
850 Randomize Time
860 j=INT(RND(1)*7)
870 if j=0 then j=7
880 CLS:PEN 3:PRINT:PRINT"In Egyptian mythology, which":PRINT"animal is linked to the god ";A$(j);" ?"
890 PEN 2:PRINT:PRINT:PRINT "1-Crocodile":PRINT"2-Ibis":PRINT"3-Hawk":PRINT"4-Cat":PRINT"5-Lion":PRINT"6-Ram":PRINT"7-Jackal"
900 Locate 1,16:PEN 1:PRINT "Your choice?"

1200 KK$=INKEY$
1210 IF KK$="1"THEN C$="Crocodile"
1220 IF KK$="2"THEN C$="Ibis"
1230 IF KK$="3"THEN C$="Hawk"
1240 IF KK$="4"THEN C$="Cat"
1250 IF KK$="5"THEN C$="Lion"
1260 IF KK$="6"THEN C$="Ram"
1270 IF KK$="7"THEN C$="Jackal"
1280 IF KK$<"1"OR KK$>"7" THEN GOTO 1200

1300 IF C$=B$(j) Then Goto 1500

1400 CLS:INK 1,6,0:PEN 1:Locate 1,11:PRINT "             WRONG ANSWER!"
1410 PEN 1:PRINT:PRINT"         ACCESS TO INFO DENIED"
1420 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
1490 GOTO 60

1500 CLS:PEN 3:PRINT:PRINT"CORRECT ANSWER!"
1510 PEN 2:PRINT:PRINT"ACCESS TO INFO GRANTED"
1520 PEN 1:PRINT::PRINT:PRINT"Archive 6112-B"
1530 PEN 3:PRINT:PRINT:PRINT"An old legend tells that":PRINT"when the 5 strongest gods joined":PRINT"the 7 most influential goddesses":PRINT"of the Egyptian pantheon, the 12":PRINT"divinities offered"
1540 PRINT"then one key of knowledge to":PRINT"the people of Egypt."
1550 PEN 1:Locate 10,11:PRINT"5":Locate 5,12:PRINT"7":Locate 31,13:PRINT"12"
1560 PEN 2:Locate 1,20:PRINT"End of archive."
1570 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
1580 POKE &BE85,1
1590 GOTO 60

1600 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
1610 PEN 3:PRINT"You take a deep breath and":PRINT"scream again, as if your":PRINT"Opera career depended on it."
1620 PEN 1:PRINT:PRINT"Maybe you forgot the hint the":PRINT"Sphinx already gave?"
1630 PEN 2:PRINT:PRINT"Or you hope it gives you the":PRINT"Wi-Fi code this time?"
1640 PEN 3:PRINT:PRINT"Result: max vibration, decibels":PRINT"in the red... and the Sphinx":PRINT"reboots saying ";Chr$(34);"You again?";Chr$(34)
1650 PEN 3:PRINT:PRINT"To access advanced pyramid info":PRINT"answer a question about the":PRINT"Egyptian gods."
1660 LOCATE 15,25:INPUT" ENTER  ",en$
1670 RESTORE 800
1680 For i=1 to 7:Read A$(i),b$(i):Next i
1690 GOTO 850
