Conclusions

If an amateur sport is worth planning for, then for certain, your system integration needs are worth planning too. But neither confuse needs with preferences nor forget to include intangibles into the cost/benefit calculations if you can. Your present system may not have any duplication of data-entry, but some desired enhancement to your system may have been discarded from your consideration unwittingly because of a (quite natural) fear that you might have to type in all that data twice.

If it needs to be done, it can be done. It is only a matter of deciding by what means and at what price.

THE SYSTEM INTEGRATION CATALOG

There are sports equipment catalogs, and the concluding paragraph here is a small and incomplete catalog of ideas for you to pursue. It is without prices and catalog numbers, and without sufficient examples, and only intended to give you a sense of the great number and variety of tools and resources available.

Computer to Computer communications—hard wired, telephone modems, async, bisync, diskette files, tape files, communication packages..

Terminal to Computer communications—hardware terminals, terminal utilities, terminal emulator packages, modems.

Inter-Program communication—interactive packages, custom software, in-house programming, contract programming, source codes, file/data transfer utilities.

Peripheral communications—Card Readers, Bar Code Readers, plotters, multiplexers, "black box" emulators.

Inter-Language communications—machine language, file compatibility, pure ASCII data files, language packages, JCL & TRS-Xenix shell, DO files.

Hard-Copy communication—multi-part paper/forms, rnulti copy programs, spooling to disk files, merge letters.

And of course, temporary (to become permanent?) data-entry clerks, to duplicate, or triplicate, all that data. JS

Computer Customer Service Address and Phone Numbers

8AM to 5PM Central Time Computer Customer Services 400 Atrium, One Tandy Center Fort Worth, Texas 76102

Model I/III/4 Business Group (817) 390-3939

Model II/12/16 Business Group (817) 390-3935

Languages and Compilers (817) 390-3946

Color/Model 100/Pocket Computer Group (817) 390-3944 Hardware and Communications Group ... (817) 390-21,40

Educational Software (817) 390-3302

Games, Books, and New'Products (817) 390-2133

Newsletter Subscription Problems ...____(817) 870-0407

4*mm

Hilt

Yorrick's Escape

Brian Mullen, Ph.D. Department of Psychology Murray State University Murray, KY 42071

You awaken in the dreaded Dungeons of Amleth. Nearby, a disembodied skull begins chattering at you, offer ing to help you escape. You pick up Yorrick and set off through the catacombs, in search of a means of escape . . .

Yorrick's Escape is a BASIC language adventure-type computer game which takes up 170 lines and requires approximately 13,000 bytes of random access memory. Yorrick was developed out of the author's frustration with the rapid habituation to which many superficially complex adventure games are susceptible. For example, many adventure games will take place in a complicated dungeon, ship, mansion, etc. However, once you have worked your way through the game's domain, you quickly develop a map and determine how to locate and use the object(s) required to escape. Soon after the problem-solving challenge of the adventure has dissipated, the adventure degenerates into an exercise in typing speed.

Yorrick provides an interesting alternative. The scenario is initially similar to the typical adventure game. Yorrick describes objects that he sees, your current location, possible exits, etc. The player moves about by entering compass directions (N, S, E, W) and uses one- or two-word commands to acquire objects or to interact with the environment. Five levels of difficulty provide varying levels of challenge. The dungeon seems to be relatively simple the first time you play the game; there are nine interconnecting chambers, with various dungeon-sounding descriptions (e.g., "dark, damp passageway"). And, of course, the chattering skull in the upper right corner of the screen is Yorrick.

However, suppose you trip and fall into a pit of suck-erworms (an unfortunate possibility); or, suppose you are killed in a battle with a blood-thirsty snotgurgle. If you dust yourself off and begin the game again, you will find that the descriptions of the chambers have changed, the arrangement of the chambers has altered, different objects are present, new monsters confront you. All of these attributes are randomly determined with each start of the game. There are sixteen different chamber configurations, 100 different room descriptions, and nine different rooms in which you might first awaken. The monsters which lurk in the various chambers, the objects which you might pick up, and the attributes of some of those objects are all different with each play of Yorrick.

A further twist built into Yorrick is that there is more than one end-game scenario. Each end-game scenario lets you escape the dungeon proper, only to thwart you with a problem which requires creative and analytic consideration. Only by solving this problem with the resources you have at hand, can you attain the safety of the Forest. One of the end-game scenarios will occur with considerable regularity; another will occur only rarely. All of these scenarios will demand the utmost of you and Yorrick. Being able to clobber the mandatory swarthy dwarf is necessary, but not sufficient, to escape from the Dungeons of Amleth.

10 CLEAR 1000

: DIMI$(20), A$(9), B$(9), C$(9), D$(9), PL(9), AR$(9), AM $(10), F$(9), AN$(9), N$(10), MD$(9), M$(9), 0D$(9), 0$(9), IN$(200), S$(10), R$(10), MS(9), W$(9), WA$(9), MC$(7), MV$(6) 20 CLS

: PRINT " YORRICK'S ESCAPE

BRIAN MULLEN" : FOR U=1 TO 250 : NEXT U 30 PRINT

: PRINT

: INPUT "ENTER LEVEL OF DIFFICULTY (1=EASY 5=DIFFICULT)"; DF 40 PRINT

: INPUT "DO YOU WANT INSTRUCTIONS (Y/N)"; 1$ 50 IF I$="Y" THEN GOTO 60

: PRINT "WELCOME TO THE DREADED DUNGEONS OF AMLETH. YOU MUST HAVE

DONE SOMETHING TERRIBLE TO HAVE BEEN

80 PRINT "HELLO. MY NAME IS YORRICK. I WAS BANISHED TO THESE DUNGEONS

AGES AGO BY THE BALEFUL WITCH THELMA.

I LONG TO BE FREE, TO REST IN

SURVIVE LONG" 90 PRINT "ENOUGH TO ESCAPE FROM THIS HELL-HOLE. BUT I DID LEARN MUCH

ABOUT THE DANGERS (AND THE TREASURES)

HIDDEN IN THE CATACOMBS. IF YOU CARRY

: GOSUB 1590 100 PRINT

: INPUT "(ENTER TO CONTINUE)"; E$ : IF E$="" GOTO 110 110 CLS

PRINT "I CAN GIVE YOU STATUS REPORTS,, TELL YOU WHAT YOU'RE

CARRYING, WARN YOU OF DANGERS, IDENTIFY VALUABLE OBJECTS, AND SO ON." 120 PRINT "ARE YOU READY?" : J=5

: GOSUB 1590 : PRINT

: GOSUB 1590 : INPUT E$ : IF E$="" GOTO 130 130 PRINT "ALRIGHT. JUST BE CAREFUL . . . . . . AND WATCH OUT FOR THE SUCKER WORMS!!" : J=8

: MC$(3)="K" : MC$(4)="H" : MC$(5)="T" : MC$(6)="X" : MC$(7)="Z" 150 MV$(1)="A"

: MV$(2)="E" : MV$(3)="I" : MV$(4)="0" : MV$(5)="U" : MV$(6)="Y" 160 PW$=MC$(RND(7))+ MV$(RND(6))+ MC$(RND(5))+

MC$(RND(5))+ MV$(RND (6))+ MC$(RND(7)) 170 W$(l)="FLAMING SWORD" : W$(2)="MAGIC LANCE" : W$(3)="BROADSWORD" : W$(4)="MACE" : W$(5)="BATTLEAXE" : W$(6)="CUDGEL" : W$(7)="CLUB" : W$(8)="BATTLEAXE" : W$(9)="MAGIC WAND" 180 OD$(l)="GOLD COINS" : 0D$(2)="DIAMONDS" : OD$(3)="A GOLD RING" : OD$(4)="RUBIES" : OD$(5)="FOOD" : OD$(6)="FOOD" : OD$(7)="EMERALDS" : OD$(8)="SILVER COINS" : OD$(9)="A BAG OF PEARLS" : IN$="" 190 MD$(1)="SWARTHY DWARF" : MD$(2)="GOBLIN" : MD$(3)="HIDEOUS GHOUL" : MD$(4)="EVIL TROLL" : MD$(5)="BLOOD-THIRSTY SNOTGURGLE" : MD$(6)="MIGHTY MADNESS" : MD$(7)="HELL-HAG" : MD$(8)="GHASTLY TROLL" : MD$(9)="DWARF" 200 S$(1)="HALLWAY" : S$(2)="ROOM" : S$(3)="PASSAGEWAY" : S$(4)="CHAMBER" : S$(5)="CRYPT" : S$(6)="ROOM" : S$(7)="GALLERY" : S$(8)="VAULT" : S$(9)="TOMB" : S$(10)="PIT" 210 R$(1)="A LONG, COLD"

: R$(2)="A DARK, DAMP" : R$(3)="A MUSTY" : R$(4)="AN ERIE, GREEN" : R$(5)="AN OPPRESSIVE" : R$(6)="A LARGE" : R$(7)="A SMALL" : R$(8)="A FOUL-SMELLING" : R$(9)="A NARROW, BLACK" : R$(10)="A SLANTED" 220 SS=10

: FS=10 : SC=SC+FS+SS : WL$="" : C=0 230 A$(4)="N"

: A$(6)="N" : A$(7)="N" : A$(8)="N" : Q=RND(2)

: IF Q=1 THEN A $(1)="N" ELSE A$(2)="N" : Q=RND(2)

: IF Q=1 THEN A$(5)="N" 240 B$(3)="S"

: IF A$(5)="N" THEN B$(6)="S" : Q=RND(2)

: IF Q=1 THEN B$(1)="S" ELSE B$(2)="S" 250 C$(2)="EM

: IF A$(5)="N" THEN Q=RND(2) : IF Q=1 THEN C$(l)= "E" 260 IF A$(5X>"N" THEN C$(1) = "E" 270 D$(3)="W"

: IF C$(1)="E" THEN D$(2)="W" 280 FOR PL=1 TO 9

: IF X=Y THEN M$(X)=MD$(Y) ELSE M$(X)="" : NEXT X 310 Y=RND(6)

: IF X=Y THEN M$(X)=MD$(Y) ELSE M$(X)="" : NEXT X 330 Y=RND(9)

: IF X=Y THEN M$(X)=MD$(Y) ELSE M$(X)=,,,, : NEXT X 350 X=RND(9)

: IF X=Y THEN 0$(X)=0D$(Y) ELSE 0$(X)="" : NEXT X 370 Y=RND(9)

: IF X=Y THEN 0$(X)=0D$(Y) ELSE 0$(X)="" : NEXT X 390 Y=RND(8)

: IF X=Y THEN WA$(X)=W$(Y) ELSE WA$(X)="" : NEXT X

400

Y=RND(9)

: WA$(Y)=W$(9)

410

PL=RND(9)

: DL=RND(9)

420

FS=FS+.6311

: SS=SS-(DF/7.

430

CLS

: PRINT "PRESENT LOCATION : "; AR$(PL); " "; AN$(PL)

440 PRINT "POSSIBLE EXITS : "; A$(PL); " "; B$(PL); "

" ; C$(PL); " "D$(PL) 450 PRINT "OBJECTS I CAN SEE : "; WA$(PL); " "; 0$(PL); " "; LS$(PL)

: IF WA$(PL)="" AND 0$(PL)="" AND LS$(PL)="" THEN PRINT @148, "NOTHING" : J=4

: GOSUB 1590 460 J=4

: GOSUB 1590

470 IF PL=DL THEN PRINT "THERE IS A MASSIVE DOOR ON THIS WALL" : J=7

: GOSUB 1590

480 IF SS<=3 THEN PRINT "YOU'RE GETTING WEAK! YOU

NEED SOME FOOD OR SOME REST!" 490 IF SS<1 GOTO 870

500 IF M$(PL)="" THEN GOTO 51.0 ELSE PRINT "THERE IS A

"; M$(PL); " GLARING AT YOU!" : GOTO 980 510 PRINT

: INPUT "COMMAND"; 1$ 520 IF LEFT$(I $, 3)="GET" OR LEFT$(I$, 3)="TAK" PRINT "OK" : J=3

5.30 IF LEFT$( 1$, 3)="ATT" OR LEFT$(I$, 3)="KIL" OR LEFT$(1$, 3)="HIT" OR LEFT$(I$, 3)="FIG" PRINT "OK" : J=3

: GOSUB 1590

540 IF M$(PL)<>"" AND I$="TALK" OR M$(PL)<>"" AND I$="ASK" OR M$(PL)<>"" AND I$="SPEAK" OR M$(PL)<>"" AND I$="SAY" THEN PRINT "THE "; M$(PL); " GRUMBLES AT YOU." : PRINT "I DON'T THINK HE LIKES YOU!" : J=10

550 IF I$="TALK" OR I$="SPEAK" OR I$="SAY" OR

I$="ASK" THEN PRINT "THERE IS NO ONE HERE EXCEPT YOU AND I." : J=10

560 IF I$="READ" AND ST=1 THEN PRINT "ON THE MAGIC SCROLL IS WRITTEN THE WORD "'; PW$; "'." : J=ll

570 IF I$=PW$ OR RIGHT$(1$, 6)=PW$ THEN PRINT "NOTHING HAPPENS." : J=5

580 IF (I$="WAVE" OR I$="WAVE WAND") AND PL=DL AND

WT=1 THEN PRINT "THE MASSIVE DOOR SLOWLY SWINGS OPEN!" : J=10

: GOSUB 1590 : GOTO 1160

590 IF (I$="WAVE" OR I$="WAVE WAND") THEN PRINT "NOTHING HAPPENS." : J=3

: GOSUB 1590 : GOTO 420 600 IF LEFT$(1$, 3)="LOO" PRINT "OK" : J=3

: GOSUB 1590 : GOTO 420 610 IF LEFT$(I $, 3)="STA" PRINT "OK" : J=3

: GOSUB 1590 : GOTO 1140 620 IF LEFT$(I$, 3)="INV" PRINT "OK" : J=3

: GOSUB 1590 : GOTO 1120

630

IF

I$="N" AND

PL=1

AND A$(1)="N"

THEN

PL=

=7

GOTO 420

640

IF

I$="N" AND

PL=2

AND A$(2)="N"

THEN

PL=

=7

GOTO 420

650

IF

I$="N" AND

PL =4

THEN PL=3

GOTO 420

660

IF

I$="N" AND

PL=6

AND B$(1)="S"

THEN

PL =

■l

GOTO 420

670

IF

I$="N" AND

PL=7

THEN PL=8

GOTO 420

680

IF

I$="N" AND

PL=8

THEN PL=9

GOTO 420

690

IF

I$="S" AND

PL=1

AND B$(l)="S"

THEN

PL=

■6

: GOTO 420

700

IF

I$="S" AND GOTO 420

PL

=2

AND B$(2)='

'S"

THEN

PL

=6

710

IF

I$="S" AND GOTO 420

PL

=3

THEN PL=4

720

IF

I$="S" AND GOTO 420

PL

=6

AND A$(5)='

'N"

THEN

PL

=5

730

IF

I$="S" AND GOTO 420

PL

=9

THEN PL=8

740

IF

I$="S" AND GOTO 420

PL

=8

THEN PL=7

750

IF

I$="S" AND GOTO 420

PL

=7

AND A$(1)=

'N"

THEN

PL

= 1.

760

IF

I$="S" AND GOTO 420

PL

=7

AND A$(2 ) = '

'N"

THEN

PL

=2

770

IF

I$="E" AND GOTO 420

PL

= 1

AND C$(1 ) = '

'E"

THEN

PL

=2

780

IF

I$="E" AND GOTO 420

PL

=2

THEN PL=3

790

IF

I$="E" AND GOTO 420

PL

=5

THEN PL=4

800

IF

I$="W" AND GOTO 420

PL

=2

AND D$(2)=

'W"

THEN

PL

= 1

81.0

IF

I$="W" AND GOTO 420

PL

=3

THEN PL=2

820

IF

I$="W" AND GOTO 420

PL

=4

THEN PL=5

830

IF

I$="N" AND GOTO 420

PL

= 6

AND B$ ( 2 ) =

■S"

THEN

PL

=2

840

IF

I$="N" AND GOTO 420

PL

=5

AND A$(5)=

'N"

THEN

PL

=6

850

IF

I$="N" OR

I$=

'S

' OR I$="E"

OR

I$="W"

THEN

PRINT "THERE IS NO EXIT IN THAT DIRECTION!" : J= 10 : SS=SS-.5 : GOSUB 1590 860 PRINT "DON'T BE RIDICULOUS!" : J=5

: GOSUB 1590 870 IF RND(10)<8 THEN PRINT "YOU FOOL!"

: PRINT "YOU HAVE JUST STUMBLED INTO A PIT OF SUCKER WORMS!" : PRINT "ARRRRGGHHHHH!!!" : J=ll

: GOSUB 1590 : GOTO 1670 : ELSE GOTO 420 880 IF 0$(PL)="" AND WA$(PL)="" AND LS$(PL)="" THEN PRINT "THERE IS NOTHING HERE TO GET!" : J=8

: GOSUB 1590 ELSE PRINT "YOU NOW HAVE THE "; 0$(PL); " "; WA$(PL); " "; LS$(PL) : J=7

: GOSUB 1590

: IN$=IN$+" "+0$(PL)+" "+WA$(PL)+" "+LS$(PL) 890 IF WA$(PL)<>"" THEN GOSUB 1150 900 IF WA$(PL)=W$(9) THEN WT=1

910 If 0$(PL)=0D$(5) OR 0$(PL)=0D$(6) THEN SS=SS+3 920 IF 0$(PL)<>"" THEN SC=SC+5 930 IF LS$(PL)<>"" THEN ST=1 940 0$(PL)=""

: LS$(PL)="" 950 IF WA$(PL)=W$(1) OR WA$(PL)=W$(2) OR

WA$(PL)=W$(3) OR WA$(PL)=W$(4 ) THEN FS=FS+3 960 FS=FS+1 970 WA$(PL)="" : GOTO 420

980 IF RND(5)<3 THEN PRINT "HE LOOKS ANGRY!" : J=6

: GOSUB 1590 990 IF RND(5)=1 THEN PRINT

: PRINT "THE "; M$(PL); " THROWS A ROCK AT YOU!" : J=10

: GOSUB 1590 .1000 GOTO 510

1010 IF M$(PL)="" THEN PRINT "THERE IS NO ONE HERE

EXCEPT YOU AND I, AND I CAN'T FIGHT

: GOSUB 1590 : GOTO 420 1020 FOR X=1 TO 6 1030 MS(X)=RND(16)+DF

1050 IF FS>MS(PL) PRINT "YOU HAVE KILLED THE "; M$(PL); "!!" : J=10

: GOSUB 1590 : M$(PL)="" : FS=FS+(1/1.3*DF) : GOT 0420

1060 IF FS=MS(PL) OR FS>=(MS(PL)-l) PRINT "YOU HIT THE "; M$(PL); "!" : PRINT "BUT HE'S NOT DEAD YET!" : FS=FS + (1/1.3*DF) : J=8

1070 IF FS<(MS(PL)-1) THEN PRINT "YOU SWING AT THE "; M$(PL); " BUT YOU MISS!" : PRINT "THE"; M$(PL); " SWINGS AT YOU!" : J=8

: GOSUB 1590 1080 Y=RND(10)

: IF Y>=5 AND FS<(MS(PL)-l) THEN PRINT "AND HE HITS YOU!!" : J=4

1090 IF Y<5 AND FS<(MS(PL)-l) THEN PRINT "BUT HE MISSES!" : J=4

: GOSUB 1590

1100 IF Y>=8 AND FS<(MS(PL)-1) THEN PRINT "YOU ARE DEAD!!!" : FS=FS-10 : J=4

: GOSUB 1590 : GOTO 1670 1110 GOTO 420

1120 IF IN$="" THEN PRINT "YOU AREN'T CARRYING ANYTHING RIGHT NOW." : J=10

1130 PRINT "YOU ARE CURRENTLY HOLDING "; IN$ : J» 10

: GOSUB 1590 : GOTO 420 1140 CLS

: PRINT "* * * CURRENT STATUS * * *" : PRINT "FIGHTING STRENGTH : "; FS : PRINT "SURVIVAL STRENGTH : "; SS : J=15

1160 PRINT "WELL! I THINK WE MADE IT!" : J=5

: PRINT "THIS IS THE TUNNEL LEADING OUT OF THE DUNGEON AND INTO THE FOREST." : J=10

: GOSUB 1590 1180 CH=RND(10)

: IF CH>3 GOTO 1200 1190 IF CH>1 GOTO 1350 ELSE GOTO 1490 1200 CLS

1220

1230

1240

1250 1260

1270

1280

1290

SUCKER WORM BLOCKING THE WAY!" J=8

GOSUB 1590 PRINT

INPUT "COMMAND"; 1$ IF I$="HIT" OR I$="KILL" OR I$="ATTACK" OR I$="FIGHT" THEN PRINT "YOU SWING AT THE GIANT SUCKER WORM!"

J=10

GOSUB 1590 IF C<3 GOTO 1200 IF C=3 THEN PRINT "I THINK HE JUST LAUGHED AT YOU! " J=9

GOSUB 1590 GOTO 1200

IF C=4 THEN PRINT "I TOLD YOU HE IS JUST TOO BIG!"

: PRINT "THE GIANT SUCKER WORM HAS YOU BY THE WAIST!" J=9

GOSUB 1590 GOTO 1670

IF I$="N" OR I$="S" OR I$="W" OR I$="E" THEN PRINT "THERE IS NO EXIT IN THAT DIRECTION. BESIDES, THERE'S NO TURNING BACK NOW!" J=6

GOSUB 1590 GOTO 1200 IF I$="LOOK" GOTO 1200

IF I$="WAVE" OR I$="WAVE WAND" THEN PRINT "NOTHING HAPPENS" J=4

GOSUB 1590 GOTO 1200

IF LEFT$(1$, 3)="INV" AND IN$=" " OR LEFT$(I$, 3)="INV" AND IN$=" " OR LEFT$(I$, 3)="INV" AND IN$=" " OR LEFT$(I $, 3)="INV" AND IN$=" " THEN PRINT "YOU ARE NOT CARRYING ANYTHING RIGHT NOW. " J=10

GOSUB 1590 GOTO 1200

IF LEFT$(I $, 3)="INV" THEN PRINT "YOU ARE CURRENTLY HOLDING "; IN$ J=10

GOSUB 1590 GOTO 1200 IF I$="STATUS" OR I$="STA" THEN CLS

PRINT PRINT

1300

1310

1320

1330

'CURRENT LOCATION : PRINT "FIGHTING STRENGTH PRINT "SURVIVAL STRENGTH J=15

GOSUB 1590 GOTO 1200

IF I$="SAY" OR I$="TALK" OR I$="SPEAK" THEN PRINT "WHAT CAN YOU SAY TO A 230 FOOT WORK?" J=10

GOSUB 1590 GOTO 1200

IF I$="READ" AND ST=0 THEN PRINT "THERE IS NOTHING HERE TO READ" J=5

GOSUB 1590 GOTO 1200

IF I$="READ" AND ST=1 THEN PRINT "ON THE MAGIC SCROLL IS PRINTED THE WORD '"; PW$; "'." J=ll

GOSUB 1590 GOTO 1200

IF I$=PW$ OR RIGHT$(1$, 6) PW$ THEN PRINT "THE SPELL HAS WORKED!"

: PRINT "THE SUCKER WORM HAS VANISHED!!"

1340

1350

1360

1370

1380

1390

1400

1410

J=10

GOSUB 1590 GOTO 1660 PRINT "I DON'T UNDERSTAND YOU." : J=9

: GOSUB 1590 : GOTO 1200 CLS

PRINT "THE PASSAGEWAY HAS BECOME A DEAD-END." J=5

GOSUB 1590 GOTO 1360 CLS

: PRINT "THE ENTIRE WALL HERE IS A LARGE MIRROR." J=10

GOSUB 1590 PRINT

INPUT "COMMAND"; 1$ IF I$="WAVE" OR I$="WAVE WAND" THEN PRINT "NOTHING HAPPENS" J=3

GOSUB 1590 GOTO 1360

IF I$="N" OR I$="S" OR I$="E" OR I$="W" THEN PRINT "THERE IS NO TURNING BACK NOW! GET US OUT OF HERE!" J=8

GOSUB 1590 GOTO 1360

IF I$="HIT" OR I$="ATTACK" OR I$="TOUCH" OR I$="OPEN" THEN PRINT "THAT DOESN'T SEEM TO DO ANY GOOD." J=5

GOSUB 1590 GOTO 1360 IF LEFT$(I$

3)="INV" THEN PRINT "YOU ARE

1420 1430

1440

1450 1460

1470

CURRENTLY CARRYING :"; IN$ J=10

GOSUB 1590 GOTO 1360 IF LEFT$(1$, 3)="STA" THEN CLS PRINT "* * * CURRENT STATUS * PRINT "CURRENT LOCATION : PRINT "FIGHTING STRENGTH PRINT "SURVIVAL STRENGTH J=15

GOSUB 1590 GOTO 1360

IF I$="SAY" OR I$="SPEAK" OR I$="TALK" THEN PRINT "WHAT WOULD YOU LIKE TO SAY?" : J=6

: GOSUB 1590 : GOTO 1360

IF RIGHT?(1$, 6)=PW$ THEN PRINT "THE MIRROR SHIMMERS SLIGHTLY ... BUT

NOTHING HAPPENS ..." J=12

GOSUB 1590 GOTO 1360

IF (I$="READ" OR I$="SCROLL") AND ST=1 THEN PRINT "ON THE MAGIC SCROLL IS WRITTEN THE WORD '"; PW$; '" ." J=10

GOSUB 1590 GOTO 1360 PR$=MID$(PW$, 6, 1)+MID$(PW$, 5, 1)+MID$(PW$, 3, 1) +MID$(PW$, 2, 1)

IF I$=PR$ THEN PRINT "THE MIRROR SHIMMERS, DISAPPEARS! LOOK

THE FOREST!" J=12

GOSUB 1590 GOTO 1660 IF I$="LOOK" THEN PRINT "OK"

THEN

THERE IS

GOSUB 1590 GOTO 1360

1480 PRINT "I DON'T UNDERSTAND YOU." J=5

GOSUB 1590 GOTO 1360 1490 CLS

: PRINT "UH OH . . . UH OH . . ." : PRINT "AN ABYSS YAWNS BEFORE US . . . BEFORE US . . ."

: PRINT "THIS IS THE DREADED CHAMBER OF ECHOES ... OF ECHOES ..." J=18

GOSUB 1590 PRINT

INPUT "COMMAND"; 1$ 1500 IF I$="N" OR I$="S" OR I$="E" OR I$="W" PRINT "THERE IS NO WAY TO GO IN THAT DIRECTION . . . DIRECTION ..."

: PRINT "BESIDES, THERE'S NO TURNING BACK NOW . . . BACK NOW ..."

: GOSUB 1590 : GOTO 1490

1510 IF I$="HIT" OR I$="ATTACK" OR I$="KILL" PRINT

"THERE IS NO ONE HERE BUT ME . . . HERE BUT ME .

: PRINT "AND I CAN'T FIGHT WITH YOU . . . FIGHT WITH YOU" J=14

GOSUB 1590 GOTO 1490

1520 IF I$="SAY" OR I$="SPEAK" OR I$="TALK" PRINT

"WHAT WOULD YOU LIKE TO SAY . . . LIKE TO SAY . . ?" J=10

GOSUB 1590 GOTO 1490

1530 IF I$=PW$ PRINT "THE GROUND BENEATH US RUMBLES . . . RUMBLES ..."

: PRINT "BUT NOTHING ELSE HAPPENS . . . ELSE HAPPENS ..." J=16

GOSUB 1590 GOTO 1490

1540 IF LEFT$(1$, 6)=PW$ AND RIGHT$(I$, 6)=PW$ PRINT "LOOK!"

: PRINT "THE ABYSS HAS CLOSED ... HAS CLOSED .

1610

1620

1630 1640

1650

1660

1670

POKE 15412, 191 POKE 15413, 191 POKE 15414, 191 POKE 15415, 159 POKE 1541.6, 143 POKE 15417, 148 POKE 15474, 131 POKE 15475, 175 POKE 15476, 191 POKE 15477, 177 POKE 15478, 187 POKE 15479, 191 POKE 15480, 135 POKE 15481, 129 POKE 15539, 137 POKE 15540, 140 POKE 15541, 140 POKE 15542, 140 POKE 15543, 140 POKE 15544, 129 FOR A=1 TO RND(100) : NEXT A

IF J<=0 THEN RETURN POKE 15539, 169 POKE 15540, 176 POKE 15541, 176 POKE 15542, 176 POKE 15543, 184 POKE 15544, 129 FOR A=1 TO RND(50) NEXT A J=J-1 GOTO 1610 CLS

PRINT "YOU DID IT!!" PRINT "WE'VE ESCAPED!!" J=ll

GOSUB 1590

PRINT "YOU TAKE WITH YOU :" PRINT PRINT IN$

PRINT "AND ME, OF COURSE!" PRINT "FINAL SCORE ="; (SC+FS+SS)*DF END CLS

: PRINT "WE'RE DONE FOR!" : PRINT "NOW WE ARE BOTH DOOMED TO STAY IN THIS HELL-HOLE FOREVER!" J-15

II

GOSUB 1590

: PRINT "AND

A DOORWAY OUT OF THE DUNGEON AND

POKE 15730,

158

INTO THE FOREST HAS APPEARED . . .

POKE 15731,

143

HAS APPEARED

ii

POKE 15732,

191

: J=18

POKE 15733,

191

: GOSUB 1590

POKE 15734,

191

: GOTO 1660

POKE 15735,

159

IF I. $="LOOK"

OR I$="SEARCH" PRINT "OK"

POKE 15736,

143

: J=3

POKE 15737,

148

: GOSUB 1590

1690 POKE 15794, 131

: GOTO 1490

POKE 15795,

175

IF I$="WAVE"

PRINT "NOTHING HAPPENS"

POKE 15796,

191

: J=5

POKE 15797,

177

: GOSUB 1590

POKE 15798,

187

: GOTO 1490

POKE 15799,

191

IF (LEFT$(I$

4)="READ" OR I$="SCROLL") AND ST=1

POKE 15800,

135

PRINT "THE WORD ""; PW$; "' IS PRINTED ON THE

POKE 15801,

129

SCROLL . . .

ON THE SCROLL ..."

1700 POKE 15859, 137

: J=15

POKE 15860,

140

: GOSUB 1590

POKE 15861,

140

: GOTO 1490

POKE 15861,

140

PRINT "I DON

T UNDERSTAND YOU . . . YOU ..."

POKE 15862,

140

: J=9

POKE 15863,

140

: GOSUB 1590

POKE 15864,

129

: GOTO 1490

FOR A=1 TO

RND(100)

POKE 15410,

158

NEXT A

: POKE 15411

, 143

IF A=0 THEN

END

0 0

Post a comment