10 ' CHAT
20 MODE 1:BORDER 0:P=0
30 FOR i=0 TO 3:INK i,0:NEXT i
40 MEMORY &3FFF
50 LOAD"Chat.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,"Bastet St.":PRINT #1:PRINT #1,"Tall homes":PRINT #1,"rise, and":PRINT #1,"on their"
125 PRINT #1,"roofs,":PRINT #1,"cats rule":PRINT #1,"as furry":PRINT #1,"pharaohs":PRINT #1,"with long":PRINT #1,"whiskers."

130 LOCATE 13,20:PEN 2:PRINT"WHAT DO YOU DO ?"
140 PEN 3:LOCATE 4,21:PRINT "1-NORTH     2-SOUTH     3-Examine"
150 PEN 2:LOCATE 4,22:PRINT "4-Approach the left cat"
160 PEN 3:LOCATE 4,23:PRINT "5-Approach the right cat"
170 PEN 2:LOCATE 4,24:PRINT "6-Climb the rooftops"

200 k$=INKEY$
210 IF k$="1" THEN GOTO 300
220 IF k$="2" THEN RUN"Caire.bas"
230 IF k$="3" THEN GOTO 400
240 IF k$="4" THEN GOTO 700
250 IF k$="5" THEN GOTO 500
260 IF k$="6" THEN GOTO 600
270 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"You try to move NORTH..."
320 PEN 1:PRINT:PRINT"But a horde of Egyptian cats stands":PRINT"before you, whiskers at attention!"
330 PEN 2:PRINT:PRINT"No way to pass:":Print:PRINT"It's like these furballs guard a secret":Print"millennia old."
340 PEN 3:PRINT:PRINT"You retreat, beaten by an army of":PRINT"purrs..."
350 Pen 2:Print:Print"Yes, purrs that sound like a firm NO,":Print"and believe me, it's scarier than a":Print"stone gate kept by a grumpy sphinx."
360 LOCATE 35,15:Pen 1:Print"NO"
370 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
380 GOTO 60

400 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
410 PEN 3:PRINT"You examine the scene."
420 PEN 2:PRINT:PRINT"A twisted alley, crooked houses, and on":Print"the rooftops... black Egyptian":Print"cats."
430 PEN 3:PRINT:Print"Majestic, sleek, and clearly:":PRINT"smarter than you."
440 Pen 1:Print:Print"They stare like you stepped on their":Print"sacred land."
450 Pen 2:Print:Print"Hoping for clues?":Print"You get feline disdain and a silent":Print"lesson:"
460 PEn 1:Print:Print"     Here, they're the bosses!"
470 PEn 3:Print:Print"But hey, pour some milk and you'll pay":Print"your protection.":Print"Then you'll be tolerated...":Pen 2:PRINT:Print"          ...until the next round!"
480 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
490 GOTO 60

500 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
510 PEN 3:PRINT:PRint"You approach the right cat, acting":Print"confident..."
520 Pen 1:Print:Print"           Fatal mistake."
530 Pen 2:Print:Print"The creature stares, eyes shining":Print"like a cursed amulet, then decides":Print"your face is a scratching post."
540 Pen 3:Print:PRint"The cat leaps from its perch and in a":Print"second, you're buried under claws,":Print"furious meows and flying fur."
550 Pen 2:Print:Print"They'll later say an adventurer ended":Print"as a feline offering, wrapped in cat":Print"hair, not bandages."
560 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
570 Run "Mort.bas"

600 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
610 PEn 3:PRint:Print"As if you lack all sense, you choose":Print"to climb shaky tiles under a sun":Print"that could melt a camel."
620 PEn 1:Print:Print"You cling to a rusty gutter, protesting":Print"loudly it never signed up for this."
630 Pen 2:Print:PRint"Your foot slips on a tile that":Print"clearly planned early retirement."
640 Pen 3:Print:Print"And after contortions worthy of a tragic":locate 1,13:Print"ballet, you're back to square one."
650 Pen 2:Print:Print "Just some dust, many regrets, and a":Print"mocking pigeon watching you."
680 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
690 GOTO 60
         
700 IF Peek(&BE82)=1 THEN GOTO 800
710 IF Peek(&BE82)=0 and Peek(&BE80)<2 THEN GOTO 900
720 IF Peek(&BE82)=0 and Peek(&BE80)>=2 THEN GOTO 1100

800 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
810 Pen 3:Print:Print"You approach the cat again":PRINT:Print"But it seems to say:"
820 PEn 2:Print:Print Chr$(34);"Ah... it's YOU again!"
830 Pen 1:Print:Print"Look at me now:":PRINT:Print"My belly's full, yarn is dull, and my":Print"claws are on break."
840 PEn 2:Print:Print"What do you want, a medal? A hug?"
850 Pen 3:Print:Print"You got the yarn, that's more than":Print"most get."
860 Pen 2:Print:Print"Now scram.":PRINT:PRINT"The sun warms my left side and":PRINT"I have an Olympic-level nap coming.";Chr$(34)
870 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
880 GOTO 60  

900 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
910 Pen 3:Print:Print"The cat is here. Motionless.":Print"Too still..."
920 Pen 1:Print:Print"Its gaze is empty, almost tragic.":Print"Its belly growls."
930 Pen 2:Print:Print"You approach, feeling pity.":Print"But it still won't move."
940 Print:Print"No blink. Just that fixed gaze,":Print"accusing, like it waits for a":Print"royal feast."
950 Pen 3:Print:Print"But you have nothing...":Print"Nothing to feed it...":Print"Not even a stale kibble..."
960 PEN 3:LOCATE 15,24:INPUT" ENTER  ",en$
970 Goto 60

1100 CLS:INK 0,0:INK 1,6:INK 2,15:INK 3,24
1110 Pen 3:Print:Print"The left cat stares at you,":Print"with a deep, solemn gaze."
1115 Pen 2:Print:Print"It looks hungry.":Print"Its belly drums like a tiny war drum."
1120 Pen 1:Print:Print"Its whiskers twitch with every sway":Print"of the jar you brought from the souk."
1130 PEn 3:Print:Print"It sniffed the milk inside, no doubt":Print"about it."
1140 Pen 1:Locate 10,15:Input"Give milk (Y/N) ";A$
1150 If UPPER$(A$)="Y" then Goto 1200
1160 If UPPER$(A$)="N" then Goto 1300
1170 If UPPER$(A$)<>"Y" OR UPPER$(A$)<>"N" then goto 1140

1200 CLS:Pen 3:Print"The cat smells the milk, dignified,":Print"almost haughty."
1210 PEn 2:Print:Print"You hand it the jar.":Print"It steps closer, laps with grace...":Print"And with a sigh of joy, drops the yarn":Print"it held in its claws."
1220 Pen 1:Print:Print"You pick it up, triumphant."
1230 PEn 3:Print:PRint"And in its eyes, a sly gleam.":Print"Oh, if milk could flatter like words,":Print"you'd be king of the souks,":Print"dear donor."
1240 PEn 2:Print:Print"But you got a yarn.":Print"And it got its meal.":PRINT"Two clever minds, a fair trade.":Pen 1:Print:Print"Moral: every flatterer gets yarn,":Print"with milk in hand!"
1250 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
1260 Poke &BE82,1:GOTO 60

1300 PEn 2:PRint:PRint"The cat stares, belly empty and hope":Print"crushed.":PRINT:PRINT"No milk? It ranks you in the class:":PEn 1:PRINT:Print "           ";Chr$(34);"useless humans";Chr$(34)
1310 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
1320 GOTO 60
