10 ' SOUK
20 MODE 1:BORDER 0
30 FOR i=0 TO 3:INK i,0:NEXT i
40 MEMORY &3FFF
50 LOAD"Souk.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 souk:":PRINT #1:PRINT #1,"A maze":PRINT #1,"alive":PRINT #1,"with spice":PRINT #1,"and voices."
125 PRINT #1:PRINT #1,"The heat":PRINT #1,"dances":PRINT #1,"between":PRINT #1,"shade and":PRINT #1,"golden":PRINT #1,"dust."
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-Talk to the merchant"
160 PEN 3:LOCATE 4,23:PRINT "4-Cross the souk NORTH"
170 PEN 2:LOCATE 4,24:PRINT "5-Taste the spices     6-Sing"
200 k$=INKEY$
210 IF k$="1"THEN RUN"Caire.bas"
220 IF k$="2"THEN GOTO 300
230 IF k$="3" AND PEEK(&BE80)=0 THEN GOTO 700
240 IF k$="3" AND PEEK(&BE80)=1 THEN GOTO 800
250 IF k$="3" AND PEEK(&BE80)=2 THEN GOTO 900
260 IF k$="3" AND PEEK(&BE80)=3 THEN GOTO 1000
270 IF k$="3" AND PEEK(&BE80)=4 THEN GOTO 1100
280 IF k$="3" AND PEEK(&BE80)=5 THEN GOTO 1300
290 IF k$="4"THEN GOTO 400
292 IF k$="5"THEN GOTO 500
294 IF k$="6"THEN GOTO 600
296 IF k$<"1"OR k$>"6" THEN GOTO 200

300 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
310 PEN 3:PRINT:PRINT"The Souk and its merchants full of":PRINT"colors, all trying to sell you even":PRINT"your own shadow..."
320 PEN 2:PRINT:PRINT"Between flying rugs and sneezing":PRINT"spices, you realize your nose will":PRINT"soon speak every dialect in this":PRINT"market if this keeps up."
330 PEN 1:PRINT:PRINT"You notice a pottery seller staring":PRINT"at you as if you were a rare vase."
340 PEN 3:PRINT:PRINT"With luck, he has the last mug ":PRINT CHR$(34);"Made in Taiwan";CHR$(34);" super trendy!"
350 LOCATE 2,15:PEN 2:PRINT"Made in Taiwan"
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"You try to slip north..."
420 PEN 1:PRINT:PRINT"But the crowd has built a human wall":PRINT"worthy of a rock festival."
430 PEN 2:PRINT:PRINT"With waving arms, flying bags and":PRINT"vendors bargaining like you were":PRINT"a rare carpet, it's clear crossing":PRINT"here is like dancing tango in a"
440 PRINT"packed elevator."
450 PEN 3:PRINT:PRINT"You give up, pride slightly bruised":PRINT"but intact."
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"You plunge your nose... and tongue":PRINT"in a spice mix so strong your":PRINT"mouth starts doing circus tricks."
520 PEN 1:PRINT:PRINT"Your taste buds sue for peace, your":PRINT"stomach wants independence, while a":PRINT"nearby merchant offers an antidote of":PRINT"dubious taste."
530 PEN 2:PRINT:PRINT"You wonder if you should try the":PRINT"paprika or just survive..."
540 PEN 3:PRINT:PRINT"No more spices!":PRINT"Your guts were made for yogurt":PRINT"with bifidus!"
550 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
560 GOTO 60           

600 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
610 PEN 3:PRINT:PRINT"You start your epic song, when a":PRINT"rotten olive, 'accidentally' thrown":PRINT"by a shopper, dives straight into":PRINT"your throat."
620 PEN 1:PRINT:PRINT"Your notes die, eyes bulge, and the":PRINT"crowd keeps trading like nothing":PRINT"happened."
630 PEN 2:PRINT:PRINT"Moral of the day:":PRINT:PRINT"Singing at the souk can cost your":PRINT"skin!"
640 PEN 1:PRINT:PRINT:PRINT"         End of journey..."
650 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
660 RUN"Mort.bas"          

700 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
710 PEN 1:PRINT:PRINT"The merchant:":PEN 2:PRINT:PRINT"Welcome, stranger!":PRINT:PRINT"My pots are older than my grandma...":PRINT:PRINT"      ...and smell about the same."
720 PEN 1:PRINT:PRINT"You:":PEN 3:PRINT:PRINT"Oh... uh...":PRINT"Just looking around...":PRINT"and trying not to break anything."
730 PEN 1:PRINT:PRINT"The merchant:":PEN 2:PRINT:PRINT"Then you're already a better client":PRINT"than the last tourist!"
740 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
750 POKE &BE80,1:GOTO 60

800 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
810 PEN 1:PRINT:PRINT"The merchant:":PEN 2:PRINT:PRINT"Look at this milk jar!":PRINT:PRINT"It survived three sandstorms and":PRINT"two mothers-in-law.":PRINT:PRINT"A golden deal!"
820 PEN 3:LOCATE 1,12:INPUT"  Want to buy it (Y/N) ";A$
830 IF UPPER$(A$)="Y" THEN D=2:GOTO 890
840 IF UPPER$(A$)="N" THEN GOTO 860
850 IF UPPER$(A$)<>"Y" OR UPPER$(A$)<>"N" THEN GOTO 820
860 PEN 1:PRINT:PRINT"The merchant:":PEN 2:PRINT:PRINT"Ah... I see you hesitate...":PRINT:PRINT"But it's the perfect jar for":PRINT"milk loved by cats in Egypt.":PRINT:PRINT"   Too bad!"
870 PEN 3:LOCATE 15,24:INPUT" ENTER  ",en$
880 GOTO 60
890 PEN 1:PRINT:PRINT"The merchant:":PEN 2:PRINT:PRINT"Perfect!":PRINT:PRINT"You just bought a piece of history...":PRINT"or at least a clay piece full of milk."
895 PEN 3:LOCATE 15,24:INPUT" ENTER  ",en$
897 POKE &BE80,2:GOTO 60

900 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
910 Pen 1:Print:Print"Merchant:":pen 2:Print:Print"I like clients who don't run after":Print"one purchase.":Print"You're curious..."
920 Pen 1:Print:Print"You:":pen 3:Print:Print"Curious, yes... but not enough to":Print"taste your shady spices!"
930 Pen 1:Print:Print"Merchant:":pen 2:Print:Print"Too bad, they're free... and a":Print"little hallucinogenic."
940 PEN 3:LOCATE 15,24:INPUT" ENTER  ",en$
950 POKE &BE80,3:Goto 60

1000 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
1010 Pen 1:Print:Print"Merchant:":pen 2:Print:Print"You know... behind these pots I":Print"sell... other things."
1020 Pen 1:Print:Print"You:":pen 3:Print:Print"T-shirts that say ";Chr$(34);"I Love Qattara";Chr$(34);" ?"
1030 Pen 1:Print:Print"Merchant:":pen 2:Print:Print"Older... rarer... and forbidden."
1040 Pen 1:Print:Print"You:":pen 3:Print:Print"Like my beach photos?"
1050 PEN 3:LOCATE 15,24:INPUT" ENTER  ",en$
1060 POKE &BE80,4:Goto 60

1100 IF PEEK(&BE81)=0 then goto 1120
1110 IF PEEK(&BE81)=1 then goto 1200

1120 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
1130 Pen 1:Print:Print"Merchant:":pen 2:Print:Print"I found 3 small scarab statues in":Print"the desert: Yellow, Orange, Brown."
1140 Pen 1:Print:Print"You:":pen 3:Print:Print"Great! I love items you wouldn't":Print"dare put on the coffee table."
1150 Pen 1:Print:Print"Merchant:":pen 2:Print:Print"They say they open doors you're not":Print"ready to cross."
1160 Pen 1:Print:Print"You:":pen 3:Print:Print"Like my aunt's bathroom door!"
1170 PEN 3:LOCATE 15,24:INPUT" ENTER  ",en$
1180 CLS:Pen 1:Print:Print"Merchant:":pen 2:Print:Print"But I won't trade them for gold or":Print"all the pottery in this souk!":PRINT"Bring me my lost treasure:":Print"a tiny papyrus fragment I dropped":Print"in the desert."
1194 PRINT"Return it and the 3 scarabs are":Print"yours. But hurry or I'll trade":Print"them for falafel kebabs!"
1196 PEN 3:LOCATE 15,24:INPUT" ENTER  ",en$
1198 Goto 60

1200 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
1210 Pen 1:Print:Print"Merchant:":pen 2:Print:Print"By Anubis' whiskers!!!":PRINT"You found my Papyrus lost in the":Print"desert storm!"
1220 Print"They laughed 'cause it's tiny but":Print"it holds a secret hieroglyph..."
1230 Print"Or maybe a tea stain, not sure."
1240 Print"Anyway, I'll swap it for my 3":Print"scarabs, stranger!"
1250 Pen 1:Print:Print"You:":pen 3:Print:Print"Deal!"
1260 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
1270 Poke &BE80,5:Goto 60

1300 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
1310 Pen 1:Print:Print"Merchant:":pen 2:Print:Print"Ah, you're back!":Print"You really want my whole shop, eh?":Print"But all I have left is my goat,":Print"Sekhmeeet...":Print"Her milk could revive a mummy!":Print"Can't let her go."
1340 Print"Come back tomorrow...":PRint"...or in a century!"
1350 PEN 3:LOCATE 15,24:INPUT" ENTER  ",en$
1360 Goto 60
