10 ' DESERT 3
20 MODE 1:BORDER 0
30 FOR i=0 TO 3:INK i,0:NEXT i
40 MEMORY &3FFF
50 LOAD"Desert3.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,"An oasis":PRINT #1,"appears":PRINT #1,"like a":PRINT #1,"mirage.":PRINT #1:PRINT #1,"Here, the"
125 PRINT #1,"desert":PRINT #1,"bows":PRINT #1,"and offers":PRINT #1,"a breath":PRINT #1,"of life."
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-Examine  6-Dive in the oasis"
160 PEN 3:LOCATE 4,23:PRINT "7-Search the vegetation"
170 PEN 2:LOCATE 4,24:PRINT "8-Fetch water from the oasis"
200 k$=INKEY$
210 IF k$="1"THEN GOTO 300
220 IF k$="2"THEN GOTO 400
230 IF k$="3"THEN RUN"Desert4.bas"
240 IF k$="4"THEN RUN"Desert2.bas"
250 IF k$="5"THEN GOTO 500
255 IF k$="6" and Peek(&BE84)=0 THEN GOTO 600
260 IF k$="6" and Peek(&BE84)=1 THEN GOTO 700
270 IF k$="7"THEN GOTO 800
280 IF k$="8" and Peek(&BE85)=0 THEN GOTO 900
285 IF k$="8" and Peek(&BE85)=1 THEN GOTO 1000
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 3:PRINT:PRINT"You head NORTH."
320 PEN 2:PRINT:PRINT"Suddenly, the dunes seem to":PRINT"rise inexplicably..."
330 PEN 1:PRINT:PRINT"Hallucination?"
340 PEN 3:PRINT:PRINT"No, you are simply sinking":PRINT"slowly into the quicksand..."
350 PEN 1:PRINT:PRINT"Impossible to get out."
360 PEN 2:PRINT:PRINT"Your last thought is a scene":PRINT"from a movie with Pierre Richard":PRINT"and Gerard Depardieu..."
370 PEN 1:PRINT:PRINT"Game Over!"
380 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
390 RUN"Mort.bas"
400 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
410 PEN 3:PRINT:PRINT"You rush SOUTH with the":PRINT"energy of an explorer...":PRINT"and the intelligence of a pigeon":PRINT"hitting a window."
420 PEN 1:PRINT:PRINT"In two steps, bravo:":PRINT"you reached the official quicksand":PRINT"amusement park!"
430 PEN 2:PRINT:PRINT"One ticket only, final exit."
440 PEN 3:PRINT:PRINT"You wave your arms but it":PRINT"changes nothing: at best you":PRINT"look like a mashed swimmer."
450 PEN 1:PRINT:PRINT"Your last bubble of air escapes...":PRINT"and with it, your dignity."
460 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
470 RUN"Mort.bas"
500 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
510 PEN 3:PRINT:PRINT"An oasis!"
520 PEN 1:PRINT:PRINT"Miracle in the middle of this":PRINT"giant toaster called the desert."
530 PEN 3:PRINT:PRINT"A few palms, for postcard effect,":PRINT"a bit of greenery dueling, and":PRINT"around, the dunes, always dunes..."
540 PEN 2:PRINT:PRINT"Like a sandy audience watching":PRINT"you sweat."
550 PEN 3:PRINT:PRINT"In the center, a crystalline water":PRINT"winking at you, like:"
560 PEN 2:PRINT:PRINT CHR$(34);"Come swim... what could":PRINT" possibly go wrong?";CHR$(34)
570 PEN 1:PRINT:PRINT"(Spoiler: EVERYTHING!)"
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"Without hesitation, you dive":PRINT"into the crystalline water like":PRINT"Tarzan on vacation."
620 PEN 1:LOCATE 16,6:PRINT"SPLASH!"
630 PEN 2:PRINT:PRINT"Your head hits a metal object":PRINT"hidden under the surface."
640 PEN 3:PRINT:PRINT"Good news: it wasn't a":PRINT"German submarine, just... a shovel.":LOCATE 29,12:PEN 1:PRINT"shovel"
650 PEN 2:LOCATE 1,14:PRINT"You take it out proudly as if":PRINT"you caught Excalibur."
660 PEN 1:PRINT:PRINT"Admit it: a shovel in the desert":LOCATE 1,18:PRINT"makes you a pro adventurer":PRINT"(or a Sunday gravedigger)."
670 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
680 POKE &BE84,1:GOTO 60
700 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
710 PEN 3:PRINT:PRINT"A hit with the shovel in the":PRINT"face wasn't enough?"
720 PEN 2:PRINT:PRINT"You need to dive again into":PRINT"this oasis, it's stronger than you, huh?"
730 PEN 1:PRINT:PRINT"You are AGAIN in the middle of the water"
740 PEN 3:PRINT:PRINT"You stir, dig, search...":PRINT"all you manage is to bubble like a":PRINT"constipated carp."
750 PEN 1:PRINT:PRINT"Result?":PEN 2:PRINT:PRINT"Nothing. No treasure, no second":PRINT"magic shovel, not even an old flip-flop."
760 PEN 1:PRINT:PRINT"Come on, let's pretend to be mature for":PRINT"two minutes."
770 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
780 GOTO 60
800 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
810 PEN 3:PRINT:PRINT"You decide to search the vegetation,":PRINT"convinced adventure smiles at you."
820 PEN 2:PRINT:PRINT"You part the tall grass looking":PRINT"for hidden treasure."
830 PEN 1:PRINT:PRINT"Bravo! You just found...":PRINT"a magnificent Datura, a toxic plant":PRINT"nicknamed here":PRINT:PRINT"          ";Chr$(34);"Devil's Weed";Chr$(34)
840 LOCATE 15,9:PEN 3:PRINT"Datura":LOCATE 1,14:PRINT"Quite a program!"
850 PEN 2:PRINT:PRINT"In less than two minutes, you see":PRINT"three suns and a purple camel."
860 PEN 1:PRINT:PRINT"You laugh, cry, fall, and die."
870 PEN 2:PRINT:PRINT"End of the exploration..."
880 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
890 RUN"Mort.bas"
900 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
910 PEN 3:PRINT:PRINT"You carefully pour the milk":PRINT"from your jar on the sand."
920 PEN 2:PRINT:PRINT"The desert thanks you: it was":PRINT"waiting to open a local cheese factory."
930 PEN 1:PRINT:PRINT"Then, like a fake sommelier,":PRINT"you refill your precious jar with":PRINT"fresh crystalline oasis water."
940 PEN 3:PRINT:PRINT " ";CHR$(34);"Rare water,":PRINT" ready to quench your thirst...":PRINT"                        for adventure!";CHR$(34):PEN 1:LOCATE 29,14:PRINT"adventure"
950 PEN 2:PRINT:PRINT:PRINT"Admit it, impressive huh?":PRINT"Normal, it's me."
960 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
970 POKE &BE85,1:GOTO 60
1000 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
1010 PEN 3:PRINT:PRINT"Ok..."
1020 PEN 2:PRINT:PRINT"You empty the water you had":PRINT"collected, just to refill":PRINT"- A-GAIN - your jar.":PEN 3:LOCATE 3,6:PRINT"A-GAIN"
1030 PEN 1:PRINT:PRINT"Heh... Seriously, what's the plan?":PRINT"Dry the entire oasis by yourself?"
1040 PEN 3:PRINT:PRINT"Break a record of waste or what?"
1050 PEN 2:PRINT:PRINT"Anyway, you have - A-GAIN - fresh":PRINT"water...":PEN 3:LOCATE 20,13:PRINT"A-GAIN"
1060 PEN 1:PRINT:PRINT:PRINT"Your jar is full, unlike your":PRINT"common sense, which is totally empty."
1070 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
1080 GOTO 60
