10 ' DESERT 4
20 MODE 1:BORDER 0
30 FOR i=0 TO 3:INK i,0:NEXT i
40 MEMORY &3FFF
50 LOAD"Desert4.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,"A huge":PRINT #1,"dune":PRINT #1,"rises":PRINT #1,"before"
125 PRINT #1,"you,":PRINT #1,"like":PRINT #1,"a wall":PRINT #1,"of sand":PRINT #1,"swallowing":PRINT #1,"the"::PRINT #1,"horizon."
130 LOCATE 13,20:PEN 2:PRINT"WHAT WILL YOU DO ?"
140 PEN 3:LOCATE 4,21:PRINT "1-NORTH   2-SOUTH   3-WEST  4-EAST"
150 PEN 2:LOCATE 4,22:PRINT "5-Build a hut  6-Examine"
160 PEN 3:LOCATE 4,23:PRINT "7-Inventory    8-Climb the dune"
170 PEN 2:LOCATE 4,24:PRINT "9-Wait and do nothing"
200 k$=INKEY$
210 IF k$="1"THEN GOTO 1000
220 IF k$="2"THEN GOTO 300
230 IF k$="3"THEN GOTO 400
240 IF k$="4"THEN RUN"Desert3.bas"
250 IF k$="5"THEN GOTO 500
255 IF k$="6"THEN GOTO 700
260 IF k$="7"THEN GOTO 600
270 IF k$="8"THEN GOTO 900
280 IF k$="9"THEN GOTO 800
290 IF k$<"1"OR k$>"9" THEN GOTO 200

300 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
310 PEN 3:PRINT:PRINT"You rush SOUTH, spirits high...":LOCATE 15,4:PEN 1:PRINT"Bad move!"
320 PEN 2:PRINT:PRINT"A herd of camels, clearly angry,":PRINT"spots you."
330 PEN 1:PRINT:PRINT"Before you can say ";CHR$(34);"oasis";CHR$(34);", they":PRINT"charge and start a wild routine":PRINT"of kicks and stomps."
340 PEN 3:PRINT:PRINT"In seconds, you become a human":PRINT"rug for furious camels, thrown":PRINT"into the sand like an old cushion."
350 PEN 2:PRINT:PRINT"You are dead, kaput..."
360 PEN 1:PRINT:PRINT:PRINT"           That's all, folks!"
370 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
380 RUN"Mort.bas"

400 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
410 PEN 3:PRINT:PRINT"You head WEST, proud and brave..."
420 PEN 1:PRINT:PRINT"Until your feet meet a"
430 PRINT"forgotten trap, subtly hidden under":PRINT"sand centuries ago by mischievous":PRINT"Bedouins."
440 PEN 2:PRINT:PRINT"A hatch opens under your sandals,":PRINT"letting you fall into a deep pit":PRINT"filled with spikes..."
450 PEN 1:PRINT:PRINT"              SCROUCH!"
460 PEN 3:PRINT:PRINT"If it comforts you, know that":PRINT"you now decorate the desert":PRINT"better than any cactus."
470 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
480 RUN"Mort.bas"

500 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
510 PEN 3:PRINT:PRINT"Seriously?"
520 PEN 1:PRINT:PRINT"Build a hut in the desert?"
530 PEN 3:PRINT:PRINT"You see trees or even a blade":PRINT"of grass anywhere?"
540 PEN 2:PRINT:PRINT"No, right? Agreed."
550 PEN 3:PRINT:PRINT"Officially, the sun really":PRINT"fried your brain..."
560 PEN 2:PRINT:PRINT"Come on, pull yourself together,":PRINT"Junior Woodchucks!"
570 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
580 GOTO 60

600 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
610 PEN 3:PRINT:PRINT"You have the following items:"
630 PEN 2:PRINT:PRINT
635 PRINT"- Car keys":PRINT
640 IF PEEK(&BE80)=2 AND PEEK(&BE85)=0 THEN PRINT"- A jar of milk":PRINT
650 IF PEEK(&BE85)=1 THEN PRINT"- A jar of fresh water":PRINT
660 IF PEEK(&BE84)=1 THEN PRINT"- A shovel":PRINT
670 IF PEEK(&BE81)=1 AND PEEK(&BE80)<=4 THEN PRINT"- A papyrus fragment":PRINT
675 IF PEEK(&BE80)>=5 AND PEEK(&BE86)=0 THEN PRINT"- 3 scarabs (Brown, Orange, Yellow)":PRINT
676 PRINT"- Sand in your sandals"
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:PRINT"A gigantic dune rises before you,":PRINT"so vast it could host a ski":PRINT"championship...":PRINT:PRINT"   ...and lose all competitors!"
720 PEN 2:PRINT:PRINT"Its crest almost touches the sky,":PRINT"and you, tiny, feel like an ant,":PRINT"except the ant probably has more":PRINT"sense than wanting to climb it."
730 PEN 1:PRINT:PRINT"Yet something irresistibly draws":PRINT"you to the top, as if the sand":PRINT"itself whispers your name."
740 PEN 3:PRINT:PRINT"What mystery hides behind its curves?"
750 LOCATE 15,25:INPUT" ENTER  ",en$
760 GOTO 60

800 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
810 PEN 3:PRINT"Ah, you choose the grand strategy of":PRINT:PRINT CHR$(34);"sit and wait for life to handle":Print"the rest";CHR$(34);"?"
820 PEN 2:PRINT:PRINT"Wise... or lazy, depending."
840 PEN 1:PRINT:PRINT"Ok... let's wait and see..."
850 PEN 3:PRINT:PRINT"     5 minutes pass, nothing...":PRINT:PRINT"     10 minutes, still nothing...":PRINT:PRINT"     One hour, no change..."
860 PEN 1:PRINT:PRINT"Well, well..."
870 PEN 2:PRINT:PRINT"But really, do you think the solution":PRINT"will fall from the sky while you":PRINT"bask in the sun?":PRINT:PRINT"I don't think so..."
880 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
890 GOTO 60

900 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
910 PEN 3:PRINT"You start the assault on the dune."
920 PEN 2:PRINT:PRINT"After what seems an eternity,":PRINT"you finally reach the top."
930 PEN 1:PRINT:PRINT"From above, the desert stretches":PRINT"endlessly, a golden sea..."
940 PEN 3:PRINT:PRINT"             Except to the NORTH."
950 PEN 2:PRINT:PRINT"A triangular shape appears on":PRINT"the horizon."
960 PEN 1:PRINT:PRINT"A pyramid? A mirage?":PRINT"Or just your brain in need":PRINT"of air conditioning?"
970 PEN 3:PRINT:PRINT"Before thinking further, your foot slips"
980 PEN 2:PRINT"And you roll down the slope,":PRINT"like a human spring roll,":PRINT"swallowing sand each turn."
990 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
992 CLS:LOCATE 1,6:PRINT"When your infernal descent ends,":PRINT"you realize you landed somehow":PRINT"on the other side of the dune, NORTH":PRINT"of the desert, sand everywhere"
993 PRINT"even in places you never imagined.":LOCATE 32,8:PEN 1:PRINT"NORTH"
994 PEN 2:LOCATE 1,14:PRINT"Your eyes spot a tiny pyramid":PRINT"teasing you from afar."
995 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
996 RUN"Pyramid1.bas"

1000 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
1010 PEN 3:PRINT:PRINT"Ah, the NORTH intrigues you, right?"
1020 PEN 2:PRINT:PRINT"With its insolent opulence, this":PRINT"majestic, pretentious dune refuses":PRINT"to reveal its secrets."
1030 PEN 3:PRINT:PRINT"To reach it, forget a peaceful walk...":PRINT"you'll need to roll up your sleeves!"
1040 PEN 1:PRINT:PRINT"But watch your step!":PRINT"Sand can be tricky..."
1050 LOCATE 15,25:PEN 3:INPUT" ENTER  ",en$
1060 GOTO 60
