10 '
20 ' THE SECRET OF ANUBIS
30 '
40 ' 2025 - Eric Cubizolle (TITAN)
50 '
60 POKE &BDEE,&C9
70 MODE 0:BORDER 0
80 FOR i=0 TO 15:INK i,0:NEXT i
90 LOAD"Title.scr",&C000
100 MEMORY &6FFF
110 music=&7000
120 player=&9500
130 LOAD"music.akg",music
140 LOAD"player.bin",player
150 INK 0,0:INK 1,1:INK 2,2:INK 3,3:INK 4,4:INK 5,5:INK 6,6:INK 7,7
160 INK 8,8:INK 9,11:INK 10,13:INK 11,15:INK 12,16:INK 13,20:INK 14,24:INK 15,26
170 CALL player,music,0
180 CALL &BB06

190 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,25:BORDER 0:CLS
200 PEN 3:PRINT "FEBRUARY 1951,"
210 PEN 1:PRINT:PRINT:PRINT "PROFESSION: EGYPTOLOGIST"
220 PEN 2:PRINT "The cold froze Paris and my work,"
230 PRINT "when... a letter arrived.":PEN 1:LOCATE 11,6:PRINT "letter"
240 PEN 3:PRINT:PRINT "It was waiting on my desk,"
250 PRINT "placed there, like a last reminder"
260 PRINT "that miracles do exist."
270 PEN 2:PRINT:PRINT "Thick paper, smell of old leather,"
280 PRINT "a golden seal pressed in wax:"
290 PEN 3:PRINT:PRINT "For once, it was not a bill!"
300 PEN 3:PRINT:PRINT "The seal, I knew it."
310 PRINT "I had seen it long ago,"
320 PEN 2:PRINT "often,"
330 PEN 1:PRINT "          ...then never again."
340 PRINT:PRINT
350 PEN 3:PRINT "           Press any key..."
360 CALL &BB06

370 CLS:PEN 1:PRINT "TARIQ El-Nasir."
380 PEN 3:PRINT:PRINT "Patron, billionaire, compulsive"
390 PRINT "collector of lost civilizations."
400 PEN 2:PRINT:PRINT "A man so mysterious I never had"
410 PRINT "the chance to meet him in person."
420 PEN 3:PRINT:PRINT "He only sent me, by mail, the"
430 PRINT "addresses of my future sites."
440 PRINT "Missions that, until then, had never"
450 PRINT "led to glory..."
460 PEN 1:PRINT:PRINT "Like that failed expedition in Sudan."
470 PRINT "I returned with two broken fingers,"
480 PRINT "a sunstroke, and a newspaper clipping"
490 PRINT "that didn't even mention me."
500 PEN 2:PRINT:PRINT "But since then, nothing. Silence,"
510 PRINT "as long as a desert without an oasis."
520 PEN 3:LOCATE 1,25:PRINT "           Press any key..."
530 CALL &BB06

540 CLS:PEN 1:PRINT "And there he wrote to me again."
550 PEN 3:PRINT:PRINT "I did not open the letter immediately."
560 PEN 2:PRINT:PRINT "I studied its edges like"
570 PRINT "examining a treasure map hastily":PRINT"scrawled."
580 PEN 3:PRINT:PRINT "This type of letter does not appear"
590 PRINT "by chance. It never brings good news."
600 PRINT "Only riddles. Traps."
610 PRINT "And sometimes, death.":LOCATE 16,12:PEN 1:PRINT "death"
620 PEN 2:PRINT:PRINT "But in my case..."
630 PRINT:PRINT "         ...I had nothing to lose."
640 PEN 3:LOCATE 1,25:PRINT "           Press any key..."
650 CALL &BB06

660 CLS:PEN 2:PRINT "  Welcome to":PEN 1:LOCATE 14,1:PRINT "THE SECRET OF ANUBIS"
670 PEN 3:PRINT:PRINT "You play as a slightly overwhelmed"
680 PRINT "egyptologist with a dusty reputation,"
690 PRINT "suddenly called by an old patron"
700 PRINT "for an extraordinary mission."
710 PEN 2:PRINT:PRINT "    This game is inspired by the"
720 PEN 1:PRINT " ";CHR$(34);"Choose Your Own Adventure books";CHR$(34)
730 PEN 3:PRINT:PRINT "Each screen presents a situation:"
740 PEN 1:PRINT:PRINT "A place to explore, an object to"
750 PRINT "examine, a choice to make."
760 PEN 2:PRINT:PRINT "On the left, an illustration sets the"
770 PRINT "scene. On the right, a description"
780 PRINT "guides you. At the bottom, numbered"
790 PRINT "actions are proposed to you."
800 PEN 3:PRINT:PRINT "Just press the number corresponding"
810 PRINT "to your chosen action."
820 PEN 3:LOCATE 1,25:PRINT "           Press any key..."
830 CALL &BB06

840 CLS:PEN 2:LOCATE 1,3:PRINT "Explore, search, deduce, or..."
850 PEN 1:PRINT "die (it will happen... often)."
860 PEN 3:PRINT:PRINT "Some decisions will advance you"
870 PRINT "in the adventure."
880 PRINT "Others will lose you in the twists"
890 PRINT "of a riddle or, worse,"
900 PRINT "cause your demise."
910 PEN 1:LOCATE 12,10:PRINT "demise"
920 PEN 2:PRINT:PRINT "Take your time, keep your eyes open,"
930 PRINT "gather clues, and above all..."
940 PEN 1:PRINT:PRINT "Never trust everything you see."
950 PEN 2:LOCATE 4,21:PRINT "(c) 2025 - Eric Cubizolle (TITAN)"
960 PRINT "         Music: Pulsophonic"
970 PEN 3:LOCATE 1,25:PRINT "           Press any key..."
980 CALL &BB06
990 CALL player+3
1000 RUN"Bureau.bas"
