10 ' DESERT 1
20 MODE 1:BORDER 0
30 FOR i=0 TO 3:INK i,0:NEXT i
40 MEMORY &3FFF
50 LOAD"Desert1.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 desert.":PRINT #1:PRINT #1,"Dunes":PRINT #1,"stretch":PRINT #1,"endless,":PRINT #1,"swept"
125 PRINT #1,"by hot":PRINT #1,"winds,":PRINT #1,"under an":PRINT #1,"unyielding":PRINT #1,"sky.":PRINT #1

130 LOCATE 13,20:PEN 2:PRINT"WHAT DO YOU DO?"
140 PEN 3:LOCATE 4,21:PRINT "1-Back to Cairo        2-Examine"
150 PEN 2:LOCATE 4,22:PRINT "3-NORTH  4-SOUTH  5-WEST  6-Sit"
160 PEN 3:LOCATE 4,23:PRINT "7-Watch the sunset"
170 PEN 2:LOCATE 4,24:PRINT "8-Play dead in the sand"

200 k$=INKEY$
210 IF k$="1"THEN RUN"Caire.bas"
220 IF k$="2"THEN GOTO 300
230 IF k$="3"THEN GOTO 400
240 IF k$="4"THEN RUN"Desert2.bas"
250 IF k$="5"THEN GOTO 500
260 IF k$="6"THEN GOTO 600
270 IF k$="7"THEN GOTO 700
280 IF k$="8"THEN GOTO 800
290 IF k$<"1"OR k$>"8" THEN GOTO 200

300 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
310 PEN 1:PRINT"Welcome to the desert!"
320 PEN 3:PRINT:PRINT"Sand everywhere: under your feet,":PRINT"in your nose, and likely in your":PRINT"thoughts too."
330 PEN 2:PRINT:PRINT"Dunes stretch so far that a GPS":PRINT"would quit in tears."
340 PEN 3:PRINT:PRINT"In short, without a plan, you'll":PRINT"find a fossilized selfie before an":PRINT"oasis!"
350 LOCATE 1,13:PRINT:PRINT"A joke for archaeologists in 3000":PRINT"years."
360 PEN 1:PRINT:PRINT"TARIQ surely left you a clue to":PRINT"reach Qattara without spinning":PRINT"in circles forever!"
370 PEN 2:PRINT:PRINT"Better use your memory..."
380 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
390 GOTO 60

400 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
410 PEN 3:PRINT:PRINT"Some sang that north held coal...":PRINT"Here, it's scorpions instead."
420 PEN 1:PRINT:PRINT"And they're lined up like bouncers":PRINT"at a club door."
430 PEN 2:PRINT:PRINT"You try to mimic one to sneak past... ":PRINT"But face it, your tail is way too":PRINT"short!"
440 PEN 3:PRINT:PRINT"So, NORTH is a no-go.":LOCATE 5,12:PEN 2:PRINT"NORTH"
450 PEN 1:PRINT:PRINT"And start fearing the local fauna":PRINT"or end up as a kebab."
460 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
470 GOTO 60    

500 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
510 PEN 3:PRINT:PRINT"Ah, WEST... Great idea!"
520 PEN 1:PRINT:PRINT"Running straight into danger as":PRINT"always!"
530 PEN 2:PRINT:PRINT"You're so predictable."
540 PEN 3:PRINT:PRINT"There, quicksand awaits you like":PRINT"fans at a tap dance show:"
550 PEN 1:PRINT:PRINT"Ready to swallow you whole,":PRINT"cheering your last steps."
560 PEN 2:PRINT:PRINT"Let's be clear: WEST is the fast":PRINT"track to a ridiculous death.":LOCATE 17,15:PEN 3:PRINT"WEST"
570 PEN 1:LOCATE 11,18:PRINT"So you stay here."
575 PEN 3:PRINT:PRINT"And a tip: Watch your toes next time..."
580 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
590 GOTO 60

600 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
610 PEN 3:PRINT:PRINT"You place your royal butt on the":PRINT"blazing sand."
620 PEN 2:PRINT:PRINT"Comfy at first, it soon feels like":PRINT"a third-degree burn decorates your":PRINT"skin with blisters."
630 PEN 3:PRINT:PRINT"A little talc and you're good!":PRINT
640 PEN 1:PRINT:PRINT"Drama queen!"
650 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
660 GOTO 60

700 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
710 PEN 3:PRINT:PRINT"A sudden urge to recall sweet old":PRINT"days with Gertrude, your ex who":PRINT"ran away with Gerald, the butcher?"
720 PEN 2:PRINT:PRINT"Such a romantic soul!"
730 PEN 1:PRINT:PRINT"True, Gertrude was... unforgettable."
740 PEN 3:PRINT:PRINT"Now stop crying and get back on track!"
750 PEN 2:PRINT:PRINT"Deal?"
760 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
770 GOTO 60

800 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
810 PEN 3:PRINT"In a flash of genius... or heatstroke,":PRINT"you lie in the sand, arms wide, eyes":PRINT"half-closed, like a mummy."
820 PEN 2:PRINT:PRINT"A fly checks your ear, leaves.":PRINT"A vulture finds you too fresh to eat."
830 PRINT"Beetles climb you, thinking they've":PRINT"found a holy hill."
840 PEN 1:PRINT:PRINT"After minutes of Oscar-worthy acting,":PRINT"you stand up."
850 PEN 3:PRINT:PRINT"Result:":PRINT"       - No enemy.":PRINT"       - Still alive."
860 PEN 2:PRINT:PRINT"If a desert spirit saw you, it laughed":PRINT"hard!"
870 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
880 GOTO 60
