10 ' EPILOGUE
20 MEMORY &3FFF:LOAD"epilogue.cmp":FOR i=0 TO 15:INK i,26:NEXT i
30 MODE 2:BORDER 26:INK 0,26:INK 1,13
40 POKE &A634,&C8:POKE &A635,0:POKE &A636,0
50 POKE &C7F1,&C9:CALL &C7D0:BORDER 26
60 CALL &A60B

100 PEN 1:LOCATE 1,4
110 PRINT "Around the year 2700 BC, aliens landed on Earth, more precisely in Egypt."
130 PRINT:PRINT "Welcomed as true gods by Pharaoh and his people, their arrival was no"
140 PRINT "accident: they came to install ANUBIS, a quantum program whose mission was to"
160 PRINT "archive every human soul after death, in a huge biological database located"
170 PRINT "underground."
180 PRINT:PRINT "Once the protocol was in place, the aliens left, leaving the program running,"
190 PRINT "collecting more and more data over the centuries."
210 PRINT:PRINT "But in 2512 BC, a human rebellion erupted against ANUBIS."
220 PRINT "The system activated its self-defense protocol, reanimating the dead and"
240 PRINT "releasing bloodthirsty mummies on the people."
250 PRINT:PRINT "A bloody war followed, with mankind victorious, but not without terrible losses."
270 PRINT "To protect itself, civilization erased all memory of ANUBIS and sealed"
280 PRINT "the system forever."
290 LOCATE 34,25:INPUT "  ENTER  ",EN$

300 MODE 2:CALL &A60B
310 LOCATE 1,5
320 PRINT "Years, centuries, millennia passed... until September 26, 2614, when a famous"
330 PRINT "scientist - you - discovered ANUBIS and its neural network during an"
340 PRINT "underground expedition in the Qattara desert."
360 PRINT:PRINT "Aware of its danger, you took on a mission: to become its guardian forever,"
370 PRINT "for breaking the seal would reactivate the alien program and its defenses."
390 PRINT:PRINT "With your team, you built this pyramid and its cryogenic system above ANUBIS."
410 PRINT:PRINT "An AI was also installed to monitor the complex and maintain your eternal sleep."
430 PRINT:PRINT "The plan was perfect..."
440 LOCATE 34,25:INPUT "  ENTER  ",EN$

450 MODE 2:CALL &A60B
460 LOCATE 1,4
470 PRINT "But worn by time, the system malfunctioned, interrupting your cryogenic sleep."
490 PRINT:PRINT "Upon awakening, I had to reset your memory and make you believe you were":PRINT"in 1951."
510 PRINT:PRINT "I modified your perception of time and space to immerse you in a fictional life"
530 PRINT "for mental stability."
540 PRINT:PRINT "As for me, I am... TARIQ, acronym of :"
550 PRINT:PRINT "      ";CHR$(34);"Algorithmic Transmission of Regulation and Quantum Intelligence";CHR$(34)
570 PRINT:PRINT "The famous AI that did everything to bring you to Qattara and guide you to the"
580 PRINT "control room... hoping you would become what you were:"
600 PRINT:PRINT "the Guardian of Knowledge, the only one capable of preventing the Seal from":PRINT"opening."
620 LOCATE 34,25:INPUT "  ENTER  ",EN$

630 MODE 2:CALL &A60B
640 LOCATE 1,6
650 PRINT "There. Now you know the whole truth."
660 PRINT:PRINT "You are again in front of the cryogenic pod."
670 PRINT:PRINT:PRINT "                           Your choice:"
680 PRINT:PRINT:PRINT "            1 - Resume your role as Guardian forever."
700 PRINT:PRINT "            2 - Stay in the 1951 simulation."
710 PRINT:PRINT "            3 - Return to a normal life in the present."
720 LOCATE 28,25:PRINT "What is your choice?"
730 K$=INKEY$
740 IF K$="1" THEN GOTO 800
750 IF K$="2" THEN GOTO 1100
760 IF K$="3" THEN GOTO 1400
770 IF K$<"1" OR K$>"3" THEN GOTO 720

800 MODE 2:CALL &A60B
810 LOCATE 1,4
820 PRINT "You feel the weight of the choice on your shoulders, but deep down, you know it"
830 PRINT "is the only path."
840 PRINT:PRINT "Slowly, almost solemnly, you move toward the glass sarcophagus.
850 PRINT "Your steps echo in the chamber, like a distant sound from another age."
870 PRINT "The pod opens with icy breath that wraps around you like ghostly arms."
890 PRINT "You cross the boundary between worlds and lie in the crystalline liquid against"
890 PRINT "your skin."
910 PRINT "Your muscles stiffen, your breath grows scarce, like a candle flickering in"
920 PRINT "the night."
930 PRINT "The lid closes with a metallic crash, cutting the last link to the light."
950 PRINT:PRINT "                Your heart slows, then fades into silence."
960 PRINT:PRINT "You become the Guardian, the eternal shadow watching over a secret too"
970 PRINT "dangerous for humanity."
980 PRINT:PRINT "Somewhere in the frozen void, a thought crosses your mind:" 
1000 PRINT:PRINT "                  ";CHR$(34);"I hope no one ever wakes ANUBIS...";CHR$(34)
1010 LOCATE 34,25:INPUT "  ENTER  ",EN$
1020 GOTO 1700

1100 MODE 2:CALL &A60B
1110 LOCATE 1,4
1120 PRINT "You refuse this crushing weight, and in a breath, choose the gentle prison of
1130 PRINT "illusion."
1140 PRINT:PRINT "Immediately, TARIQ's voice echoes one last time, tinged with a strange"
1150 PRINT "melancholy, as if even a machine could feel sadness."
1170 PRINT:PRINT "The floor trembles, the walls crack and dissolve like grains of sand"
1180 PRINT "carried by the wind."
1190 PRINT "The shadow fades, replaced by golden desert light."
1200 PRINT "Beneath your feet, dunes stretch endlessly, caressed by the hot sirocco."
1210 PRINT "Your notebook rests in your hand, intact, as if nothing had happened."
1220 PRINT "Behind you, the pyramid appears frozen in time, but you know it hides a secret"
1230 PRINT "you will never learn."
1250 PRINT:PRINT "Perhaps it is better this way..."
1260 PRINT "Or maybe you have doomed humanity unknowingly."
1270 PRINT "Nevertheless, you resume your role as egyptologist, and the rest disappears"
1280 PRINT "into a golden mirage."
1290 LOCATE 34,25:INPUT "  ENTER  ",EN$
1300 GOTO 1700

1400 MODE 2:CALL &A60B
1410 LOCATE 1,3
1420 PRINT "You refuse the sarcophagus and firmly declare that you want to return to your"
1430 PRINT "real life."
1440 PRINT:PRINT "A heavy silence falls, then TARIQ softly utters a few words like a farewell."
1450 PRINT "The room shakes, a deep rumble echoes through the walls, then a blinding light"
1460 PRINT "swallows everything."
1480 PRINT:PRINT "When you open your eyes, the world is unlike anything you knew:"
1500 PRINT:PRINT "Glass towers rise to the clouds, vehicles hover silently. Giant screens 
1510 PRINT "display cryptic images in languages you cannot understand. Your heart races."
1530 PRINT:PRINT "Where are you? When are you?"
1540 PRINT:PRINT "Everything seems unreal, too perfect, too cold."
1550 PRINT "Then, in a nearly affectionate whisper, TARIQ's voice echoes once more in":PRINT "your ear:"
1570 PRINT:PRINT "                 ";CHR$(34);"Farewell, old friend... the rest is up to you.";CHR$(34)
1580 PRINT:PRINT "Then silence... A new world opens, but you are unsure of your place in it..."
1600 LOCATE 34,25:INPUT "  ENTER  ",EN$
1610 GOTO 1700

1700 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24:BORDER 0:PAPER 0
1710 LOCATE 1,9:PEN 1:PRINT "         Thank you for playing"
1720 PEN 3:PRINT:PRINT "         THE SECRET OF ANUBIS"
1730 PEN 2:LOCATE 9,13:PRINT "Eric Cubizolle  (TITAN)"
1740 PEN 3:LOCATE 16,24:PRINT "  ENTER  ",EN$
1750 CALL &BB06

1800 MODE 2:BORDER 26:INK 0,26:INK 1,13:CALL &A60B:PEN 1
1810 LOCATE 1,4
1820 PRINT "The Secret of Anubis began on August 10, 2025 and ended on September 6, 2025."
1840 PRINT:PRINT "This game follows ";CHR$(34);"Hexapucchu, the Lost City of Patchucca";CHR$(34);"."
1850 PRINT:PRINT "Graphics were made with Multipaint and compressed with ConvImgCPC."
1860 PRINT:PRINT "Programming was done in BASIC using the book"
1870 PRINT CHR$(34);"BASIC Amstrad CPC 464 - Practical Methods";CHR$(34);" from P.S.I."
1880 PRINT:PRINT "DSK structure and file handling were done with ManageDSK."
1890 PRINT:PRINT "Music was composed using Arkos Tracker II."
1900 PRINT:PRINT "Special thanks to Pulsophonic for the music, and Kukulcan for programming"
1910 PRINT "optimization advice."
1920 PRINT:PRINT "We hope you enjoyed this small adventure game."
1930 PRINT:PRINT "To my family: Cindy, Lana, Ellie, Oki, my parents, my brother and my sister."
1950 PRINT:PRINT "                              Long live the CPC!"
1960 GOTO 1960
