10 ' CAIRO
20 MODE 1:BORDER 0
30 FOR i=0 TO 3:INK i,0:NEXT i
40 MEMORY &3FFF
50 LOAD"Caire.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,"Cairo.":PRINT #1:PRINT #1,"Today its":PRINT #1,"streets,":PRINT #1,"usually so":PRINT #1,"alive and":PRINT #1,"so loud,":PRINT #1,"are now":PRINT #1,"lost in":PRINT #1,"a deep":PRINT #1,"silence."
130 LOCATE 13,20:PEN 2:PRINT"WHAT WILL YOU DO ?"
140 PEN 3:LOCATE 4,21:PRINT "1-Go to Qattara by car"
150 PEN 2:LOCATE 4,22:PRINT "2-Examine      3-Look for a cat"
160 PEN 3:LOCATE 4,23:PRINT "4-Get in the car        5-NORTH"
170 PEN 2:LOCATE 4,24:PRINT "6-Talk to the woman      7-EAST"
200 k$=INKEY$
210 IF k$="1" AND PEEK(&BE83)=0 THEN GOTO 300
220 IF k$="1" AND PEEK(&BE83)=1 THEN GOTO 400
230 IF k$="2" THEN GOTO 500
240 IF k$="3" THEN GOTO 600
250 IF k$="4" AND PEEK(&BE83)=0 THEN GOTO 700
260 IF k$="4" AND PEEK(&BE83)=1 THEN GOTO 800
265 IF k$="5" THEN RUN"Chat.bas"
270 IF k$="6" AND PEEK(&BE82)=0 THEN GOTO 900
280 IF k$="6" AND PEEK(&BE82)=1 THEN GOTO 1000
285 IF k$="7" THEN RUN"Souk.bas"
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:PRINT"You stand before the old car,":PRINT"admiring its lines... well, what":PRINT"remains of them."
320 PEN 2:PRINT:PRINT"Alas, without the key, it is as":PRINT"motionless as a mummy asleep":PRINT"for three thousand years."
330 PEN 3:PRINT:PRINT"You can stare, stroke, whisper":PRINT"sweet words, nothing works:"
340 PEN 1:PRINT:PRINT"For now, it's not taking you":PRINT"anywhere."
350 PEN 2:PRINT:PRINT"You must find the key before you":PRINT"can head toward the Qattara":PRINT"desert.":LOCATE 21,17:PEN 3:PRINT"Qattara"
360 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
370 GOTO 60

400 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
410 PEN 3:PRINT:PRINT"Key in hand, you turn the ignition..."
420 PEN 1:PRINT:PRINT"The engine coughs, the car growls":PRINT"like an angry sphinx before it":PRINT"rushes toward the Qattara":PRINT"desert!":LOCATE 19,6:PEN 3:PRINT"Qattara"
430 PEN 2:PRINT:PRINT:PRINT"You pray no camel crosses the road,":PRINT"as the brakes feel more symbolic":PRINT"than efficient..."
440 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
450 RUN"Desert1.bas"

500 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
510 PEN 3:PRINT:PRINT"Cairo stretches before you, calm":PRINT"today, like a cat napping in the":PRINT"sun."
520 PEN 1:PRINT:PRINT"To the left, an old car rests,":PRINT"dusty and proud of its stillness,":PRINT"like a crocodile dozing on the":PRINT"riverbank."
530 PEN 2:PRINT:PRINT"To the right, a woman sits on the":PRINT"curb, frowning, knitting thoughts":PRINT"more tangled than her ball of":PRINT"yarn."
540 PEN 3:PRINT:PRINT"Around you, the street is quiet,":PRINT"broken only by fountains and the":PRINT"rustle of passing robes."
550 PEN 2:PRINT:PRINT"Sometimes a distant meow cuts the":PRINT"silence."
560 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
570 GOTO 60

600 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
610 PEN 3:PRINT:PRINT"You scan every corner, hoping for":PRINT"a cat to appear..."
620 PEN 1:PRINT:PRINT"But nothing."
630 PEN 2:PRINT:PRINT"At this rate, even a striking hen":PRINT"would slip past you!"
640 PEN 3:PRINT:PRINT"The cat must be laughing somewhere,":PRINT"writing in his secret diary:"
650 PEN 2:PRINT:PRINT"   ";CHR$(34);"How to humiliate an adventurer":PRINT"        without lifting a paw.";CHR$(34)
660 PEN 1:PRINT:PRINT"You start to think this creature":PRINT"doesn't exist at all."
670 PEN 2:PRINT:PRINT"...At least not here."
680 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
690 GOTO 60

700 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
710 PEN 3:PRINT"Without a key, you try to pick the":PRINT"lock."
720 PEN 1:PRINT:PRINT"And then, bam!"
730 PEN 2:PRINT:PRINT"A siren screams, lights flash, and":PRINT"a cop jumps out like an angry":PRINT"scarab!"
740 PEN 3:PRINT:PRINT"You try to explain you're not a":PRINT"thief, just an adventurer in a":PRINT"hurry, but he won't listen."
750 PEN 2:PRINT:PRINT"Hours later... or centuries later":PRINT"on the Egyptian calendar, you":PRINT"realize:"
760 PEN 1:PRINT:PRINT"Your trial was forgotten. The judge":PRINT"retired, the clerk got lost in the":PRINT"bazaar, and you... you rot in":PRINT"prison forever."
770 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
780 RUN"Mort.bas"

800 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
810 PEN 3:PRINT:PRINT"Key in hand, you open the door.":PEN 1:PRINT:PRINT"        Miracle, it clicks!"
820 PEN 2:PRINT:PRINT"You did it! Yes, you really opened":PRINT"a car..."
830 PEN 3:PRINT:PRINT"And not just any car: a relic able":PRINT"to survive centuries of dust and":PRINT"sand!"
840 PEN 1:PRINT:PRINT"Careful, hero of the day:":PEN 2:PRINT:PRINT"You're holding the wheel of fate.":PRINT:PRINT"Or at least, the gear stick of an":PRINT"old heap ready to roar... or choke."
850 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
860 GOTO 60

900 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
910 PEN 1:PRINT:PRINT"The old woman:":PEN 2:PRINT:PRINT"You!":PRINT:PRINT"Yes, you with your tired adventurer":PRINT"face.":PRINT:PRINT"Can't you help me?"
920 PRINT:PRINT"That mustached demon, that furry":PRINT"thief, that... cat, stole my ball":PRINT"of yarn!"
930 PRINT:PRINT"Bring it back and I'll give you a":PRINT"key I found on the ground."
940 PRINT:PRINT"Seems to open a car... or a modern":PRINT"sarcophagus, who knows."
950 PEN 3:LOCATE 15,24:INPUT" ENTER  ",en$
960 GOTO 60

1000 IF PEEK(&BE83)=0 THEN GOTO 1100
1010 IF PEEK(&BE83)=1 THEN GOTO 1200

1100 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
1110 PEN 1:PRINT:PRINT"The old woman:":PEN 2:PRINT:PRINT CHR$(34);"My yarn! You found it!":PRINT:PRINT"That cursed cat really stole it!"
1115 PRINT:PRINT"Thank you, stranger. Without it, I":PRINT"had to knit sand... and believe":PRINT"me, it scratches!"
1120 PRINT:PRINT"Here, take this key.":PRINT"I don't own a car...":PRINT"and I doubt a goat would start with":PRINT"this!";CHR$(34):LOCATE 17,12:PEN 3:PRINT"key"
1130 PEN 3:LOCATE 15,24:INPUT" ENTER  ",en$
1140 POKE &BE83,1:GOTO 60

1200 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
1210 PEN 1:PRINT:PRINT"The old woman stares at you, eyes":PRINT"squinted, the yarn in her hands:"
1220 PEN 2:PRINT:PRINT CHR$(34);"What now? You again?":PRINT:PRINT"I've got nothing left for you!":PRINT:PRINT"Go on, shoo!":PRINT:PRINT"Now let me knit in peace!";CHR$(34)
1230 PEN 3:PRINT:PRINT:PRINT"Charming..."
1240 LOCATE 15,24:INPUT" ENTER  ",en$
1250 GOTO 60
