10 ' DESERT 2
20 MODE 1:BORDER 0
30 FOR i=0 TO 3:INK i,0:NEXT i
40 MEMORY &3FFF
50 LOAD"Desert2.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,"An":PRINT #1,"ancient":PRINT #1,"Egyptian":PRINT #1,"site":PRINT #1,"rises":PRINT #1,"from the":PRINT #1,"sand,":PRINT #1,"with its":PRINT #1,"broken":PRINT #1,"columns":PRINT #1,"and":PRINT #1,"symbols":PRINT #1,"erased":PRINT #1,"by time..."
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-Dig       7-Pray"
160 PEN 3:LOCATE 4,23:PRINT "8-Lift the broken column"
170 PEN 2:LOCATE 4,24:PRINT "9-Sacrifice something"
200 k$=INKEY$
210 IF k$="1"THEN RUN"Desert1.bas"
220 IF k$="2"THEN GOTO 300
230 IF k$="3"THEN RUN"Desert3.bas"
240 IF k$="4"THEN GOTO 400
250 IF k$="5"THEN GOTO 500
260 IF k$="6" AND PEEK(&BE84)=1 THEN GOTO 600
265 IF k$="6" AND PEEK(&BE84)=0 THEN GOTO 900
270 IF k$="7"THEN GOTO 1000
280 IF k$="8"THEN GOTO 1100
290 IF k$="9"THEN GOTO 1200
295 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 jump happily to the south..."
320 PEN 1:PRINT:PRINT"BOING! First snake."
330 PEN 2:PRINT:PRINT"PLOP! Second snake."
340 PEN 3:PRINT:PRINT"PSSST! Fifty snakes later,":PRINT"you look like a venom balloon ready to":PRINT"pop."
350 PEN 1:PRINT:PRINT"You regret not reading reviews":PRINT"on TripadVenom..."
360 LOCATE 4,13:PEN 2:PRINT"TripadVenom"
370 PEN 3:PRINT:PRINT"But now, it's way too late for you":PRINT"anyway."
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 march east, head high...":PRINT"and clueless."
420 PEN 1:PRINT:PRINT"A furious wind rises suddenly":PRINT"and sweeps you in a wild spin."
430 PEN 2:PRINT:PRINT"Moments later, calm returns.":PRINT"Your lifeless body is found,":PRINT"head stuck deep in a camel's rear":PRINT"who never asked for this mess."
440 PEN 3:PRINT:PRINT"For once you didn’t stick":PRINT"your nose in others’ business":PRINT"on purpose..."
450 PEN 1:PRINT:PRINT"What an irony!"
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"Ah, an archaeological site!":PRINT"Right up your alley!"
520 PEN 2:PRINT:PRINT"In front of you, two broken":PRINT"Egyptian columns, half-buried":PRINT"like tired giants in the sand."
530 PEN 1:PRINT:PRINT"The wind blows, stealing some":PRINT"sand grains and your sense of":PRINT"direction."
540 PEN 3:PRINT:PRINT"Is this really where TARIQ":PRINT"wanted to send me?"
550 LOCATE 20,14:PEN 1:PRINT"Maybe..."
560 PEN 2:PRINT:PRINT"Perhaps this old civilization":PRINT"left treasures waiting patiently":PRINT"under these ruins..."
570 PEN 2:PRINT:PRINT"...or maybe just a trap for":PRINT"clumsy tourists."
580 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
590 GOTO 60

600 IF PEEK(&BE81)=0 THEN GOTO 700
610 IF PEEK(&BE81)=1 THEN GOTO 800

700 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
710 PEN 3:PRINT:PRINT"What do you hope to find in sand?"
715 LOCATE 1,3:PEN 2:PRINT:PRINT"A magic lamp?":PRINT"An old Inca gear?"
720 PEN 1:PRINT:PRINT"Armed with your shovel, you":PRINT"start digging..."
725 PEN 3:LOCATE 17,7:PRINT"shovel"
730 PEN 2:LOCATE 1,10:PRINT"    Five minutes later:":PEN 3
740 PRINT:PRINT"- A rock.":PRINT:PRINT"- Another rock.":PRINT:PRINT"- An angry beetle you put back":PRINT"  while apologizing."
742 PRINT:PRINT"- A third rock that looks":PRINT"  exactly like the others..."
745 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
747 CLS
750 PEN 3:PRINT:PRINT"And finally, after much effort":PRINT"and a few blisters, you find a":PRINT"papyrus fragment with 3 marks":PRINT"drawn in this order:"
755 LOCATE 1,4:PEN 2:PRINT"papyrus fragment"
760 LOCATE 1,7:PEN 1:PRINT:PRINT"     Orange - Brown - Yellow"
770 PEN 2:PRINT:PRINT"You keep it in your pocket, thinking it":PRINT"may help later."
780 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
790 POKE &BE81,1:GOTO 60
800 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
810 PEN 3:PRINT:PRINT"You dig furiously like gold":PRINT"bars are hidden below."
820 PEN 1:PRINT:PRINT"Bad news: only rocks and a dead":PRINT"lizard here..."
830 PEN 2:PRINT:PRINT"You already found a papyrus,":PRINT"a miracle in this stingy desert."
840 LOCATE 26,9:PEN 3:PRINT"papyrus"
850 LOCATE 1,12:PRINT"Seriously, what did you expect?":PRINT"A Pharaoh GX4000 console?"
860 PEN 2:PRINT:PRINT"Put the shovel away now!"
870 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
880 GOTO 60

900 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
910 PEN 3:PRINT:PRINT"You dig with bare hands like a":PRINT"hyper kid at the beach."
920 PEN 2:PRINT:PRINT"You dig hard, sure a secret lies":PRINT"under the sand."
930 PEN 3:PRINT:PRINT"What lies there is your brain:":PEN 1:PRINT:PRINT"   Sand is 70 degrees hot!!!"
940 PEN 3:PRINT:PRINT"Your fingers burn like toast in":PRINT"a forgotten toaster..."
950 PEN 2:PRINT:PRINT"A proper tool would help a lot."
960 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
970 GOTO 60

1000 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
1010 PEN 3:PRINT:PRINT"You kneel and pray, hoping for a":PRINT"divine sign."
1020 PEN 2:PRINT:PRINT"The sky stays silent... except for":PRINT"me, narrating in style."
1030 PEN 1:PRINT:PRINT"Yep, another witty line. You're":PRINT"welcome."
1040 PEN 3:PRINT:PRINT"You pray, I talk, so who's God now?"
1050 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
1060 GOTO 60

1100 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
1110 PEN 3:PRINT:PRINT"You really think you can lift that":PRINT"stone column?"
1120 PRINT:PRINT"With noodle arms and jelly abs?"
1130 PEN 1:PRINT:PRINT"Come on, be serious..."
1140 PEN 3:PRINT:PRINT"You try anyway.":PEN 2:PRINT:PRINT"Result:":PRINT:PRINT"Three secs later, the column stays":PRINT"and you lose a spine disk."
1150 PEN 1:PRINT:PRINT"Bravo, cardboard Hercules!"
1160 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
1170 GOTO 60

1200 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
1210 PEN 3:PRINT"You proudly choose to sacrifice":PRINT"something..."
1220 PEN 2:PRINT:PRINT"Very noble."
1230 PEN 1:PRINT:PRINT"So? An offering? A rare item?":PRINT"A hair lock?"
1240 PEN 3:PRINT:PRINT"Oh no... you hesitate.":PEN 1:PRINT:PRINT"Long time...":PRINT"   Very long...":PRINT"        TOO long..."
1250 PEN 2:PRINT:PRINT"I'm sacrificing MY time watching":PRINT"this pathetic sketch!"
1260 PEN 3:PRINT:PRINT"You put a stone down solemnly.":PEN 2:PRINT:PRINT"Wow. So generous.":PRINT"Gods must be laughing hard."
1270 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
1280 GOTO 60