Notes

Disk info for Super_Eamon_Alternate.dsk:

File Name: riag_011_Super_Eamon_Alternate/Super_Eamon_Alternate.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 64512
Used Space (bytes): 78848
Physical Size (KB): 140
Free Space (KB): 63
Used Space (KB): 77
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 252
Used Sectors: 308
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for Super_Eamon_Alternate.dsk:

riag_011_Super_Eamon_Alternate/Super_Eamon_Alternate.dsk DISK VOLUME #254
* A 002 SUPER EAMON
* B 006 LGS
* A 045 GUILD HALL
* T 007 SNAPPY
* B 013 SUPER EAMON.CRN
T 002 CHARACTERS
T 010 ADVENTURERS
* A 039 NEW GUY
* A 092 THE MAIN HALL
* B 008 MH.CRN
* B 012 MH.MOVE
* B 002 MH.SHAPES
* B 008 MH.LTRS
* B 003 MH.WRITE
* B 014 MH.PCS
* B 002 ROUTINES
* B 005 INFO.0
* B 005 INFO.1
* B 005 INFO.2
* B 005 INFO.3
* B 005 INFO.4
* B 005 INFO.5
* B 005 INFO.6
* A 089 SIDE ALLEY
* B 005 SIDE ALLEY.PCS1
* B 019 SIDE ALLEY.PCS2
* B 009 SIDE ALLEY.CRN
* B 009 SIDE ALLEY.MOVE
* A 026 WEAPONS
* B 003 MHSA.PCS
* B 003 SAMH.PCS
* A 007 MAIN HALL
* A 002 THE WONDERFUL WORLD OF EAMON
* B 014 PICDRAWL
T 002 THE ADVENTURER
T 001 EAMON.NAME
T 002 FRESH MEAT
DOS 3.3 format; 64,512 bytes free; 78,848 bytes used.

Text found in Super_Eamon_Alternate.dsk/MH.SHAPES.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 0C 00 20 00 32 00 45 00 47 00 49 00 4B 00 4D 00 .. .2.E. G.I.K.M.
$000010 4F 00 51 00 53 00 55 00 57 00 59 00 05 00 05 00 O.Q.S.U. W.Y.....
$000020 3F 2E F5 3E BF B6 09 24 2D 36 0C C1 21 1C 37 3F ?.u>?6.$ -6.A!.7?
$000030 07 00 33 6F 1E 3E 3F 96 2A 2D 2D E5 3F 3F 0C 2D ..3o.>?. *--e??.-
$000040 3C 67 29 2D 00 00 00 00 00 05 00 05 00 05 00 05

Text found in Super_Eamon_Alternate.dsk/MHSA.PCS.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 20 80 00 89 A0 1D 89 A0 60 58 A0 60 00 80 60 58 ... .. `X `..`X
$000010 A0 6A 58 A0 6D 30 A0 79 1C A0 92 13 A0 A4 13 A0 jX m0 y . .. $.
$000020 C1 1D A0 C9 2F A0 CD 58 A0 D7 58 A0 D7 00 80 D7 A. I/ MX WX W..W
$000030 58 A0 DF 89 A1 17 89 80 DF 89 A0 DF 00 80 1D 89 X _.!... _. _....
$000040 A0 1D 00 80 6A 58 A0 B4 18 80 6A 52 A0 B0 17 60 ...jX 4 ..jR 0.`
$000050 35 E0 B4 29 E0 99 16 60 3C C0 83 19 C0 80 1C 60 5`4)`..` <@..@..`
$000060 37 43 C0 84 1D 10 6A 0A 30 74 30 6F 30 20 30 53 7C@...j. 0t0o0 0S
$000070 30 49 30 44 30 45 30 20 30 41 30 4C 30 4C 30 45 0I0D0E0 0A0L0L0E
$000080 30 59 81 17 00 A1 17 8B 00 20 80 00 89 A0 45 89 0Y...!.. . ... E.
$000090 A0 45 1C A0 C4 1C A0 C4 89 A1 17 89 80 CA 89 A0 E. D. D .!...J.
$0000A0 CA 16 A0 3F 16 A0 3F 89 80 C3 7E A0 B3 68 A0 B3 J. ?. ?. .C~ 3h 3
$0000B0 1C 60 2A E0 2E 98 80 B4 4D A0 5A 4D A0 5A 54 A0 .`*`...4 M ZM ZT
$0000C0 56 54 A0 56 4D A0 45 4D 60 53 E0 51 53 E0 6B 52 VT VM EM `S`QS`kR
$0000D0 60 50 43 C0 7D 4E C0 7D 4A C0 7D 46 45 C0 7D 32 `PC@}N@} J@}FE@}2
$0000E0 C0 9C 49 C0 A3 47 C0 9F 42 C0 9F 30 60 65 44 C0 @.I@#G@. B@.0`eD@
$0000F0 7C 40 C0 7D 3B C0 7D 39 43 C0 83 3F 60 4D C0 7E |@@};@}9 C@.?`M@~
$000100 33 C0 80 30 C0 82 32 C0 9D 32 42 60 50 C0 81 37 3@.0@.2@ .2B`P@.7
$000110 C0 82 3A C0 82 3D C0 82 36 C0 80 4F 43 C0 9F 39 @.:@.=@. 6@.OC@.9
$000120 C0 9B 39 40 C0 80 31 80 8A 3C A0 89 38 A0 89 35 @.9@@.1. .< .8 .5
$000130 60 57 42 C0 87 3E C0 87 40 C0 89 3F 60 5B 80 57 `WB@.>@. @@.?`[.W
$000140 3C A0 4E 40 A0 53 45 A0 5C 46 A0 64 42 A0 62 3D < N@ SE \F dB b=
$000150 A0 56 3B E0 58 40 80 56 4D A0 56 46 80 5A 46 A0 V;`X@.V M VF.ZF
$000160 5A 4D 60 50 E0 58 4B C0 98 3F 40 C0 9D 32 C0 9B ZM`P`XK@ .?@@.2@.
$000170 32 C0 9C 34 60 59 E0 6E 34 E0 48 45 E0 96 40 E0 2@.4`Y`n 4`HE`.@`
$000180 AF 40 E0 B1 4B E0 BC 40 10 6F 0D 30 42 30 20 30 /@`1K`<@ .o.0B0 0
$000190 41 30 20 30 52 E0 B1 4B 00 03 31 A1 09 2E 40 60 A0 0R`1K ..1!..@`
** END **

Text found in Super_Eamon_Alternate.dsk/NEW GUY.bas:

0 D$ = CHR$(4):Q$ = CHR$(34):X = PEEK(79) *256 + PEEK(78):X = RND( -X): ONERR GOTO 12000
15 X = PEEK(79) *256 + PEEK(78):X = RND( -X): PRINT D$"OPEN THE ADVENTURER": PRINT D$"READ THE ADVENTURER": INPUT E$: PRINT D$"CLOSE": PRINT D$"DELETE THE ADVENTURER": VTAB 24: PRINT : PRINT "THE IRISHMAN RETURNS WITH ANOTHER MAN IN TOW, AND TURNS YOU OVER TO HIM.": PRINT
16 PRINT "THIS MAN IS TALL, THOUGH SOMETHING ABOUT HIS FACE SUGGESTS SOME ELVISH BLOOD.": PRINT : PRINT "HE LOOKS YOU UP AND DOWN, AND SAYS:": PRINT " "Q$"FIRST I MUST KNOW WHETHER YOU ARE MALE OR FEMALE. WHICH ARE YOU?"Q$: PRINT : PRINT "YOUR ANSWER? (M/F) ";
60 GET B$: IF B$ < >"M" AND B$ < >"F" GOTO 60
80 PRINT B$:C = (B$ = "M"): FOR I = 1 TO 18: CALL -912: FOR J = 1 TO 30: NEXT J,I: VTAB 6: PRINT : PRINT "THE ELVISH MAN LOOKS LOST IN THOUGHT FOR A MOMENT, THEN SAYS:": PRINT " "Q$"YOU WILL HAVE TO LEARN THE RULES": PRINT " HERE, BUT FIRST YOU MUST DECIDE ON YOUR PRIME ATTRIBUTES."Q$: VTAB 23
81 PRINT "PRESS WHEN YOU ARE READY..."
111 ON PEEK( -16384) < >141 GOTO 111: POKE -16368,0: GOSUB 1000: HOME : VTAB 6: PRINT E$"'S ATTRIBUTES:": PRINT " HARDINESS: "G: PRINT " AGILITY : "F: PRINT " CHARISMA : "E: VTAB 12: PRINT "THE MAN HANDS YOU A BOOKLET ENTITLED:": PRINT :A$ = ">>SUPER-EAMON: INSTRUCTIONS<<": HTAB 21 - LEN(A$)/2: PRINT ">>";: INVERSE : PRINT "SUPER-EAMON";: NORMAL
112 PRINT ": INSTRUCTIONS<<": VTAB 18: PRINT "YOU": PRINT " READ THE INSTUCTION BOOK": PRINT " GIVE THE BOOKLET BACK"
146 VTAB 18: HTAB 5: GET H$: ON H$ < >"R" AND H$ < >"G" GOTO 146: SPEED= 120: CALL -958: IF H$ = "G" THEN PRINT "GIVE THE INSTRUCTION BOOKLET BACK": PRINT " TO THE MAN.": SPEED= 255: GOTO 600
150 PRINT "ACCEPT THE BOOKLET FROM THE MAN,": PRINT " AND BEGIN TO READ.": FOR I = 1 TO 16: CALL -912: FOR J = 1 TO 100: NEXT J,I: SPEED= 255:Q$ = CHR$(34)
170 P = 0: VTAB 6: PRINT "THE COVER OF THE INSTRUCTIONS SAYS:": PRINT :A$ = "WELCOME TO SUPER-EAMON": HTAB 21 - LEN(A$)/2: PRINT A$: VTAB 10: HTAB 5: PRINT "PAGE": POKE 32,9: POKE 33,30: PRINT : VTAB 10: PRINT "<1> THE WORLD OF EAMON": PRINT "<2> WEAPONS": VTAB 12: HTAB 1: PRINT "<3> ARMOR": PRINT "<4> FIGHTING MONSTERS": PRINT "<5> HARDINESS & AGILITY"
171 PRINT "<6> CHARISMA": PRINT "<7> MONEY": PRINT "<8> MAGIC SPELLS": TEXT : VTAB 19: HTAB 5: PRINT "OR <";: INVERSE : PRINT "G";: NORMAL : PRINT "> TO GIVE BOOKLET BACK": FOR I = 20 TO 39:X = PEEK(1920 +I):X = X -192:X = X +64 *(X <0): POKE 1920 +I,X:X = PEEK(1959 -I):X = X -192:X = X +64 *(X <0): POKE 1959 -I,X: NEXT : COLOR= 2: FOR I = 17 TO 47 STEP 2: PLOT 0,I: PLOT 39,I: NEXT : HLIN 0,39 AT 41: VTAB 23: HTAB 5
172 PRINT "<#> FOR PAGE, FOR PAGE 1": POKE -16368,0
195 X = PEEK( -16384) -128: ON X <1 GOTO 195: POKE -16368,0: ON X = ASC("G") GOTO 600: IF X = 32 THEN X = ASC("1")
196 P = X - ASC("1") +1: ON P <1 OR P >8 GOTO 195: GOTO 220
199 END
200 :
210 X = PEEK( -16384) -128: ON X <1 GOTO 210: POKE -16368,0: IF X = ASC("C") GOTO 240
211 IF X = 8 OR X = 27 THEN P = P -1: ON P <1 GOTO 240: GOTO 220
212 IF X = 32 OR X = 21 THEN P = P +1: ON P >8 GOTO 240: GOTO 220
215 IF X = > ASC("1") AND X < = ASC("8") THEN P = VAL( CHR$(X)): GOTO 220
217 GOSUB 2000: GOTO 210
220 HOME : PRINT "SUPER-EAMON INSTRUCTIONS PAGE "P: ON P GOSUB 250,300,350,400,425,450,500,550: VTAB 23:A$ = " FOR NEXT PAGE, FOR LAST": HTAB 21 - LEN(A$)/2: PRINT A$:A$ = "<#> FOR PAGE, FOR COVER": HTAB 21 - LEN(A$)/2: PRINT A$;: GOTO 200
240 HOME : GOTO 170
250 A$ = "THE WORLD OF EAMON": HTAB 21 - LEN(A$)/2: PRINT A$: PRINT : PRINT "IN THE WORLD OF EAMON, YOU CAN WANDER AROUND THE MAIN HALL, EQUIPPING YOUR- SELF FOR ADVENTURES OUT IN THE FAR REACHES OF THE IMAGINATION."
251 PRINT "YOU CAN BUY ITEMS AT VARIOUS SHOPS WHICH WILL INCREASE YOUR CHANCES OF SURVIV- ING WHAT THE MONSTERS DISH OUT.": PRINT
252 PRINT "TO HELP YOU GET STARTED, THE GUILD HALL PROVIDES A "Q$"BEGINNER'S CAVE"Q$". HERE YOU MAY STRIVE FOR EXPERIENCE AND GOLD AGAINST LESS MIGHTY MONSTERS.": PRINT "LET US ALL TOAST THE GUILD MASTER FOR RESTOCKING THE CAVE DAILY!": PRINT
253 PRINT "WITH MORE MONEY, YOU CAN BUY BETTER ARMS AND TAKE ON MORE DIFFICULT QUESTS.": RETURN
300 A$ = "WEAPONS": HTAB 21 - LEN(A$)/2: PRINT A$: PRINT : PRINT "YOU WILL WANT TO BUY A WEAPON AT THE WEAPONS SHOP. AS A NOVICE, YOU ARE BETTER WITH SOME WEAPONS THAN OTHERS.";: PRINT : PRINT "THE FIVE CLASSES OF WEAPONS (AND YOUR CURRENT ABILITIES WITH EACH) ARE..."
301 PRINT " AXE VERY LOW BOW VERY VERY LOW": PRINT " CLUB LOW SPEAR VERY LOW SWORD VERY LOW": PRINT
302 PRINT "EVERY TIME YOU SCORE A HIT IN BATTLE, YOUR ABILITY WITH THE WEAPON YOU ARE USING MAY INCREASE. THE MORE YOU USE A WEAPON, THE BETTER YOU WILL BE WITH IT. PRACTICE MAKES PERFECT.": RETURN
350 A$ = "ARMOR": HTAB 21 - LEN(A$)/2: PRINT A$: PRINT : PRINT "YOU CAN WEAR 1 OF THE 3 ARMOR TYPES, AND ALSO MAY CARRY A SHIELD. THESE PRO- TECTIONS WILL ABSORB SOME OF THE HITS MADE AGAINST YOU, BUT THEY MAKE IT HARDER FOR YOU TO HIT THE MONSTERS!": PRINT
351 PRINT "THE PROTECTIONS ARE--": PRINT " ARMOR TYPE HITS ABSORB YOUR HITS SKIN (NO ARMOR)" TAB( 20);0; TAB( 35)"- 0%": PRINT " LEATHER" TAB( 20);1; TAB( 35)"-10%": PRINT " CHAIN" TAB( 20);2; TAB( 35)"-20%": PRINT " PLATE" TAB( 20);5; TAB( 35)"-60%": PRINT " + SHIELD" TAB( 20);1; TAB( 35)"- 5%": PRINT
352 PRINT "AS YOU FIGHT MONSTERS, YOU WILL GET USED TO FIGHTING IN ARMOR, AND EVENTUALLY YOU WON'T NOTICE YOU'RE WEARING IT!": RETURN
400 A$ = "FIGHTING MONSTERS": HTAB 21 - LEN(A$)/2: PRINT A$: PRINT : PRINT "WHEN YOU ARE ON ADVENTURES, YOU WILL HAVE TO FIGHT MANY FIERCE MONSTERS."
401 PRINT : PRINT "IN EAMON ADVENTURES, BATTLES ARE DONE ON A BLOW-BY-BLOW BASIS. YOU, AND EACH MONSTER OR FRIEND, WILL AIM ONE BLOW"
402 PRINT " AT ONE ENEMY": PRINT : PRINT "EACH BLOW WILL EITHER MISS, BOUNCE OFF ARMOR, OR HIT. A HIT WILL WEAKEN THE PERSON WHO WAS HIT.": PRINT
405 PRINT "IF YOU ARE HIT, YOU WILL NOT KNOW EXACTLY HOW MUCH DAMAGE YOU TOOK; YOU WILL BE TOLD SOMETHING LIKE "Q$"YOU DON'T FEEL VERY GOOD"Q$", OR THAT "Q$"YOU ARE AT DEATH'S DOOR"Q$".": RETURN
425 A$ = "HARDINESS & AGILITY": HTAB 21 - LEN(A$)/2: PRINT A$: PRINT : PRINT "YOUR HARDINESS ("G") DETERMINES HOW": PRINT " MUCH DAMAGE YOU CAN TAKE IN A BATTLE BEFORE DYING. IT ALSO SETS HOW MUCH TREASURE, ETC. YOU CAN CARRY AROUND WITH YOU.": PRINT
426 PRINT "AGILITY (YOURS IS "F") DEALS WITH YOUR": PRINT " FIGHTING ABILITY. THE MORE AGILE YOU ARE, THE MORE LIKELY YOU ARE TO HIT A MONSTER. AGILITY CAN MAKE UP FOR YOUR HEAVY ARMOR (WHILE YOU ARE STILL"
427 PRINT " GETTING USED TO IT), OR FOR AN UNFAMILIAR WEAPON.": RETURN
450 A$ = "CHARISMA": HTAB 21 - LEN(A$)/2: PRINT A$: PRINT : PRINT "YOUR CHARISMA ("E") AFFECTS HOW": PRINT " CITIZENS OF EAMON REACT TO YOU.": PRINT
451 PRINT "IN THE MAIN HALL, YOU WILL GET BETTER PRICES FROM THE MERCHANTS IF YOU IMPRESS THEM FAVORABLY; IE, IF YOUR CHARISMA IS HIGH.": PRINT
452 PRINT "SIMILARLY, WHEN YOU ARE ON AN ADVENTURE, A HIGH CHARISMA MAKES IT MORE LIKELY THAT A MONSTER WILL NOT ATTACK YOU, BUT RATHER WILL BE YOUR FRIEND. SOME MONSTERS ARE IMMUNE TO ANY CHARMS, OF COURSE.": RETURN
500 A$ = "MONEY": HTAB 21 - LEN(A$)/2: PRINT A$: PRINT : PRINT "YOU START OFF WITH A LOAN OF 200 GOLD PIECES FROM THE BANK.": PRINT "YOU WILL WANT TO SPEND THIS MONEY ON SUPPLIES FOR YOUR FIRST ADVENTURE. YOU WILL GET BETTER PRICES FOR ITEMS IF YOUR CHARISMA IS HIGH."
501 PRINT : PRINT "ONCE YOU PAY OFF YOUR LOAN (PLUS ANY INTEREST) AND BEGIN TO ACCUMULATE WEALTH, YOU MAY WANT TO PUT SOME OF YOUR GOLD INTO THE BANK, WHERE IT": PRINT " CANNOT BE STOLEN."
502 PRINT "HOWEVER, IT IS A GOOD IDEA TO CARRY SOME GOLD WITH YOU ON ADVENTURES FOR USE IN BRIBING MONSTERS, AND FOR RANSOM.": RETURN
550 A$ = "MAGIC SPELLS": HTAB 21 - LEN(A$)/2: PRINT A$: PRINT : PRINT "THE WORLD OF EAMON IS A MAGICAL ONE. MANY ADVENTURES WILL HAVE THEIR OWN MAGICAL CHARACTERISTICS, BUT THERE ARE FOUR SPELLS WHICH ARE USEFUL IN ALMOST EVERY ADVENTURE.": PRINT : INVERSE : FOR I = 1 TO 4: HTAB 2
551 PRINT MID$ ("POWERHEAL BLASTSPEED",5 *I -4,5 -(I = 2)): NEXT : NORMAL : VTAB 11: HTAB 8: PRINT "CALL UPON THE GODS TO HELP YOU": HTAB 8: PRINT "HEAL SOME OF YOUR WOUNDS": HTAB 8: PRINT "THROW LIGHTENING AT AN ENEMY": HTAB 8: PRINT "SPEED UP YOUR REFLEXES": PRINT
552 PRINT "YOU CAN LEARN THESE SPELLS FROM ANY MAGICIAN WILLING TO TEACH YOU, BUT YOU WILL HAVE TO PRACTICE A SPELL BEFORE YOU CAN BE SURE OF CASTING IT": PRINT " WHEN YOU NEED IT. (SPELLS ARE LIKE WEAPONS IN THIS RESPECT)": RETURN
600 HOME : VTAB 4: PRINT "THE MAN TAKES THE BOOKLET BACK, SAYING:": PRINT : PRINT Q$"IT IS NOW TIME FOR YOU TO START": PRINT " YOUR LIFE."Q$: PRINT : PRINT "HE MAKES AN ODD SIGN WITH HIS HAND, AND ADDS:": PRINT Q$"LIVE LONG AND PROSPER."Q$: PRINT : PRINT : PRINT "YOU NOW WANDER INTO THE MAIN HALL."
601 PRINT D$"OPEN ADVENTURERS,L220": PRINT D$"READ ADVENTURERS,R0": INPUT D: FOR R = 1 TO D: PRINT D$"READ ADVENTURERS,R";R: INPUT A$,H: IF H < >0 THEN NEXT : PRINT D$;"WRITE ADVENTURERS,R0": PRINT D +1:R = D +1
640 PRINT D$"WRITE ADVENTURERS,R"R: PRINT E$: PRINT 1: PRINT G: PRINT F: PRINT E: FOR X = 1 TO 4: PRINT "0": NEXT : PRINT 5: PRINT -10: PRINT 20: PRINT 10: PRINT 0: PRINT 0: PRINT B$: PRINT 200: PRINT -200: PRINT 0: FOR W = 1 TO 4: PRINT "NONE": PRINT 0: PRINT 0: PRINT 0: PRINT 0: NEXT : PRINT D$"CLOSE":F$ = "THE ADVENTURER": PRINT D$"OPEN"F$: PRINT D$"DELETE"F$: PRINT D$"OPEN"F$: PRINT D$"WRITE"F$: PRINT E$: PRINT R: PRINT D$"CLOSE": PRINT D$;"RUN THE MAIN HALL"
1000 HOME :A(1) = 12 +4 *C:A(2) = 12 +4 *(1 -C):A(3) = 12:B = 12:A = 1:V = 10: VTAB V +3: PRINT "HARDINESS (HD): 12": PRINT "AGILITY (AG): 12": PRINT "CHARISMA (CH): 12": VTAB V: HTAB 18: INVERSE : PRINT "BASE POINTS": NORMAL : HTAB 18: PRINT "!"; CHR$(8); CHR$(10);"V": VTAB V +4 -C: HTAB 21: PRINT "+ 4": VTAB V +1: HTAB 24: INVERSE : PRINT MID$ ("FEMALE",1 +2 *C)" BONUS": NORMAL : HTAB 24: PRINT "V": VTAB 2
1001 PRINT "THE TALL MAN TELLS YOU": PRINT Q$"USE THE ARROW KEYS TO INCREASE OR DECREASE THE ABILITY POINTED TO.": PRINT " PRESS [H], [A], OR [C] TO POINT TO ANOTHER ABILITY.": PRINT " PRESS [Q] WHEN FINISHED."Q$
1040 FOR I = 1 TO 3: VTAB V +2 +I: HTAB 27: PRINT "= "A(I): NEXT : VTAB V +2 +A: HTAB 32: INVERSE : PRINT "<==": NORMAL : VTAB V +6: HTAB 17: PRINT "LEFT OVER--> " SPC( B <10);B
1051 X = PEEK( -16384) -128: ON X <0 GOTO 1051:A$ = CHR$(21) + CHR$(8) + CHR$(10) + CHR$(11) + CHR$(1) + CHR$(26) +"QHAC": POKE -16368,0: FOR I = 1 TO LEN(A$): IF X < > ASC( MID$ (A$,I,1)) THEN NEXT : GOSUB 2010: GOTO 1051
1055 IF I = 1 GOTO 1100
1056 IF I = 2 GOTO 1150
1060 IF I = 7 THEN ON B = 0 GOTO 1090:A$ = "YOU STILL HAVE POINTS LEFT!!!": GOSUB 1180: GOTO 1051
1065 IF I <7 THEN VTAB V +2 +A: HTAB 32: CALL -868:A = A -(I = 4 OR I = 5) +(I = 3 OR I = 6):A = A *(A <4 AND A = >1) +3 *(A <1) +(A = >4): GOTO 1040
1070 IF I >7 THEN VTAB V +2 +A: HTAB 32: CALL -868:A = I -7: GOTO 1040
1090 VTAB V +8: CALL -958: PRINT "THE TALL GENTLEMAN ASKS, "Q$"IS THIS": PRINT " CHARACTER TO YOUR LIKING?"Q$: PRINT : PRINT "YOU ANSWER (Y/N) ";
1091 GET H$: IF H$ = "N" THEN VTAB V +8: HTAB 1: CALL -958: GOTO 1040
1092 IF H$ < >"Y" GOTO 1091
1099 G = A(1):F = A(2):E = A(3): RETURN
1100 IF B <1 THEN A$ = "YOU HAVE NO MORE POINTS TO DISTRIBUTE!": GOSUB 1180: GOTO 1149
1120 IF A(A) = >24 THEN A$ = "24 POINTS ARE THE MOST YOU CAN DEVOTE":C$ = "TO ANY ONE ATTRIBUTE.": GOSUB 1180: GOTO 1149
1130 A(A) = A(A) +1:B = B -1
1149 GOTO 1040
1150 IF A(A) < = 12 +4 *(A = 2 -C) THEN A$ = "YOU CAN'T TAKE MORE POINTS AWAY!":C$ = "THIS SKILL IS AS LOW AS POSSIBLE!!": GOSUB 1180: GOTO 1179
1170 A(A) = A(A) -1:B = B +1
1179 GOTO 1040
1180 VTAB V +10: PRINT "THE TALL MAN POINTS OUT:": GOSUB 2000: INVERSE : PRINT A$: POKE -16368,0: IF LEN(C$) >0 THEN HTAB 3: PRINT C$:C$ = ""
1191 NORMAL : GOSUB 2000: FOR I = 1 TO 300: IF PEEK( -16384) <128 THEN NEXT
1199 POKE -16368,0: VTAB V +10: CALL -958: RETURN
2000 PRINT CHR$(7);: RETURN
2010 S = 49200: FOR I = 1 TO 20:X = PEEK(S) * PEEK(S): NEXT : RETURN
12000 CALL C%:A% = PEEK(222): IF A% >253 THEN RESUME
12020 B% = PEEK(218) +256 * PEEK(219): IF A% >0 AND A% <15 THEN VTAB 20: CALL -958: POKE -16301,0: VTAB 23: INVERSE : PRINT "MAKE SURE SUPER EAMON IS IN DRIVE";: NORMAL : PRINT " AND PRESS KEY...";: GET G$: POKE -16302,0
12030 VTAB 1: RESUME

Text found in Super_Eamon_Alternate.dsk/SAMH.PCS.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 20 80 00 9E A0 60 58 A0 60 00 80 60 58 A0 6A 58 ... `X `..`X jX
$000010 A0 6D 30 A0 79 1C A0 92 13 A0 A4 13 A0 C1 1D A0 m0 y. . . $. A.
$000020 C9 2F A0 CD 58 A0 D7 58 A0 D7 00 80 D7 58 A0 DF I/ MX WX W..WX _
$000030 89 A1 17 89 80 DF 89 A0 DF 00 80 6A 58 A0 B4 18 .!..._. _..jX 4.
$000040 80 6A 52 A0 B0 17 60 04 E0 2C 34 E0 DC 30 E1 17 .jR 0.`. `,4`\0a.
$000050 31 E0 DD 74 60 35 E0 B4 29 E0 99 16 60 3C C0 90 1`]t`5`4 )`..`<@.
$000060 15 C0 8B 17 60 37 43 C0 8D 19 10 6A 0A 30 74 30 .@..`7C@ ...j.0t0
$000070 6F 30 20 30 4D 30 61 30 69 30 6E 30 20 30 48 30 o0 0M0a0 i0n0 0H0
$000080 61 30 6C 30 6C 81 17 00 A1 17 BF 00 80 00 A3 A0 a0l0l... !.?...#
$000090 50 60 A0 6D 60 A0 6D 12 A0 CB 12 A0 CB 60 A1 17 P` m` m. K. K`!.
$0000A0 60 80 4F 60 A0 4F 00 80 6E 2F A0 78 2F A0 78 1A `.O` O.. n/ x/ x.
$0000B0 A0 8D 1A A0 8D 2F A0 CA 2F 80 9B 1C A0 9B 26 A0 .. ./ J /... .&
$0000C0 AC 26 A0 AC 1C A0 9B 1C 10 D8 18 30 47 30 55 30 ,& ,. .. .X.0G0U0
$0000D0 49 30 4C 30 44 10 DC 26 30 48 30 41 30 4C 30 4C I0L0D.\& 0H0A0L0L
$0000E0 10 D7 33 30 4F 30 46 30 46 30 49 30 43 30 45 80 .W30O0F0 F0I0C0E.
$0000F0 D0 16 A0 D0 3C A1 09 3C A1 09 16 A0 D0 16 60 04 P. P

Text found in Super_Eamon_Alternate.dsk/SIDE ALLEY.bas:

5 L = 5:D = 21: GOTO 10
6 L = 6:D = 45: GOTO 10
7 L = 7:D = 25: GOTO 10
8 L = 8:D = 105: GOTO 10
10 IF PEEK(103) < >1 OR PEEK(104) < >90 THEN POKE 104,90: POKE 103,1: POKE 90 *256,0: PRINT : PRINT CHR$(4)"RUN SIDE ALLEY,L"L
20 Q$ = CHR$(34):D$ = CHR$(4): SCALE= 1: ROT= 0:Q = 49152:M = 49168:N = 49232:ER% = 774: ONERR GOTO 12000
30 IF L = 6 THEN PRINT D$"BLOAD ROUTINES"
100 I% = 5120: IF L < >7 THEN HGR : POKE -16302,0: GOSUB 500
120 LT% = 16896: POKE 233,LT%/256: POKE 232,LT% -256 * PEEK(233):A$ = "": GOSUB 200:Z% = 16387:CB% = 16384: IF L = 6 THEN PRINT D$"BLOAD PICDRAWL,A$800": PRINT D$"BLOAD MH.LTRS,A$4200": PRINT D$"BLOAD MH.WRITE,A$4000"
130 IF L >4 AND L <8 THEN PRINT D$"BLOAD SIDE ALLEY.PCS1,A$1C00": PRINT D$"BLOAD SIDE ALLEY.PCS2,A$4880"
150 H% = 7168:Y% = 7832:X% = 18560:V% = 19697:U% = 20292:R% = 21280:Q% = 22030: SCALE= 1: ROT= 0: GOSUB 9200: ON L = 7 GOTO 4000: GOTO 1000
200 IF LEN(A$) <1 THEN RETURN
220 G1% = F:G2% = P: POKE 6,0: CALL Z%: IF NOT (IN) THEN RETURN
250 CALL -2613: SCALE= ABS((256 * PEEK(225) + PEEK(224)) -F): FOR I = P -1 TO P +8: XDRAW 98 AT F,I: NEXT : SCALE= 1: RETURN
350 PRINT : PRINT D$"BLOAD SAMH.PCS,A"H%:J% = H%:N% = J% +140: RETURN
500 HCOLOR= 1: HPLOT 0,0: CALL -3082
520 PRINT : PRINT D$"BLOAD SIDE ALLEY.CRN,A"I%: POKE 0,0: POKE 1,20: POKE 2,128: CALL 784: HCOLOR= 0: HPLOT 0,0 TO 0,191: PRINT D$"BLOAD SIDE ALLEY.MOVE,A"I%: POKE 0,0: CALL I%: RETURN
550 H7 = FRE(0): IF C% THEN GOSUB 570
560 G1% = Z:G2% = V: POKE 6, ASC("\"): CALL Z%:C% = 1: RETURN
570 G1% = Z:G2% = V:G4% = V +G6:G3% = Z +G5: IF G3% >279 THEN G3% = 279
590 HCOLOR= 7: CALL CB%: HCOLOR= 4: RETURN
600 X = F:Y = P:H$ = ""
620 GET B$: ON B$ = CHR$(13) GOTO 679: IF (B$ < > CHR$(8) AND B$ <" ") OR (B$ = CHR$(8) AND LEN(H$) <1) GOTO 620
630 IF B$ = CHR$(8) THEN GOSUB 680:H$ = MID$ (H$,1, LEN(H$) -1):B$ = H$:H$ = "":F = X:P = Y: GOTO 650
640 IF LEN(H$) = >L THEN GOSUB 680:H$ = MID$ (H$,1, LEN(H$) -1) +B$:F = X:P = Y:A$ = H$: GOSUB 200: CALL -2613:F = PEEK(225) *256 = PEEK(224): GOTO 620
650 A$ = B$: GOSUB 200: CALL -2613:F = PEEK(225) *256 + PEEK(224):H$ = H$ +B$: GOTO 620
679 RETURN
680 CALL -2613:X1 = PEEK(225) *256 + PEEK(224): SCALE= 9:HC = PEEK(228): HCOLOR= 3: ROT= PEEK(249) +16 -32 *( PEEK(249) >240): FOR I = X1 TO X STEP -1: DRAW 98 AT I,Y: NEXT : SCALE= 1: ROT= PEEK(249) -16 +32 *( PEEK(249) <16): POKE 228,HC: RETURN
1000 :
1010 POKE 0,2 -SX: POKE 1,D:GD = A *(A <60000) +60000 *(A = >60000): POKE 769,GD/256: POKE 768,GD -256 * PEEK(769):GD = A -GD: CALL I%:D = PEEK(1):A = GD +256 * PEEK(769) + PEEK(768):X = PEEK(Q) -128: POKE M,0: IF X = 27 THEN GOSUB 9400: GOTO 1010
1030 IF D = 2 OR D = 3 GOTO 6000
1040 IF D = 13 OR D = 22 GOTO 11000
1050 IF D = 46 OR D = 54 GOTO 2000
1055 IF D = 116 OR D = 122 OR D = 123 GOTO 10000
1060 IF D = 16 OR D = 24 GOTO 4000
1063 IF D = 56 OR D = 64 GOTO 7000
1067 IF D = 104 OR D = 112 GOTO 3000
1070 IF D = 102 OR D = 110 GOTO 5000
1099 FOR I = 1 TO 10:H = PEEK(49200) - PEEK(49200): FOR J = 1 TO 5: NEXT J,I: GOTO 1000
2000 POKE 1,R%/256: POKE 0,R% -256 * PEEK(1): CALL 2048:Z = 5:V = 3:G5 = 280:G6 = 28:C% = 0:E$ = "":A$ = "Sam Slicker Says: " +Q$ +"I don't see a load of\treasure with you, so you must want to\buy a weapon, right?" +Q$ +" You answer...(Y/N)": GOSUB 550
2021 GET H$: ON H$ = "N" GOTO 2900: IF H$ < >"Y" GOTO 2021
2025 IF A% >3 THEN A$ = Q$ +"Sorry I can't help you. The Law says\you can carry only 4 weapons in the Hall,\and you already have 4!" +Q$ +" says Sam.": GOSUB 550:C = 2000: GOSUB 9350: GOTO 2800
2030 A$ = "Sam asks: " +Q$ +"Well, what is the name of\the weapon you seek, " + MID$ ("madam?sir?",1 +SX *6,6 -2 *SX) +Q$ +"\You reply->": GOSUB 550: CALL -2613:F = PEEK(225) *256 + PEEK(224):P = PEEK(226):L = 20: GOSUB 600:E$ = H$: IF LEN(E$) <2 THEN GOSUB 2700: ON H$ = "N" GOTO 2900: GOTO 2030
2040 FOR I = 1 TO 5:H = I: GOSUB 9600:H = LEN(E$) - LEN(H$) +1: FOR J = 1 TO H: IF H$ < > MID$ (E$,J, LEN(H$)) THEN NEXT J,I: GOTO 2050
2045 D% = 0:C = I:A$ = "Sam says: " +Q$ +"Hmm... a " +H$ +" weapon\of some sort, yes?" +Q$ +"\ You answer...(Y/N)": GOSUB 550
2046 GET H$: ON H$ < >"Y" AND H$ < >"N" GOTO 2046: ON H$ = "Y" GOTO 2060:D% = 1:A$ = "Sam is surprised. " +Q$ +"What type of weapon\is it, then? 1..Axe 2..Bow 3..Club 4..Spear\5..Sword?" +Q$ +" You reply...": GOTO 2052
2050 D% = 0:A$ = " What\kind of weapon is it? 1..Axe 2..Bow 3..Club\4..Spear 5..Sword?" +Q$ +" You reply...": IF RND(1) <.3 THEN D% = 1:A$ = Q$ +"I don't recall this particular weapon." +A$: GOTO 2052
2051 A$ = Q$ +"Yes, that name sounds familiar." +A$
2052 GOSUB 550
2055 GET H$:H = VAL(H$): ON H <1 OR H >5 GOTO 2055:C = H
2060 HOME : TEXT : VTAB 5: PRINT "SAM SAYS: "Q$"SO YOU'RE LOOKING FOR A": PRINT " "E$".": PRINT : PRINT " HOW WOULD YOU DESCRIBE THIS RARE": PRINT " WEAPON:": PRINT : PRINT " AN AVERAGE RARE WEAPON": PRINT : PRINT " A SUPERIOR WEAPON": PRINT : PRINT " A TRULY MATCHLESS WEAPON."Q$: PRINT : PRINT : PRINT "YOU REPLY (A/S/M)...";
2062 GET H$:T% = (H$ = "A") +2 *(H$ = "S") +3 *(H$ = "M"): ON T% <1 GOTO 2062: PRINT H$: HOME : VTAB 3: PRINT "SAM GOES INTO THE BACK ROOM, MUTTERING TO HIMSELF. YOU HEAR LARGE CHESTS BEING DRAGGED, AND OTHER HALF-MUFFLED SOUNDS.":H = 0
2075 S = 49200:H = H +1: IF H <5 THEN FOR I = 1 TO 5:K = 6 * RND(1): FOR J = 1 TO K:X = PEEK(S) +101:X = PEEK(S) - PEEK(S) -101: NEXT J:K = 70 * RND(1): FOR J = 1 TO K: NEXT J,I:K = 500 * RND(1): FOR J = 1 TO K: NEXT : GOTO 2075
2080 IF (D% AND RND(1) >.20 +.05 *T%) OR ( NOT D% AND RND(1) >.05 +.05 *T%) GOTO 2100
2081 PRINT : PRINT "SAM RETURNS EMPTY-HANDED, AND EXPLAINS THAT HE COULD NOT FIND THE WEAPON YOU DESCRIBED.": PRINT : PRINT Q$"TRY AGAIN SOME OTHER TIME"Q$", HE ADVISES.": VTAB 22: PRINT "[PRESS KEY TO GO ON]": POKE M,0
2085 X = PEEK(Q) -128: ON X <0 GOTO 2085: POKE M,0: POKE N,0: GOTO 2800
2100 H = 2 + INT(3 * RND(1)): PRINT : PRINT "SAM RETURNS WITH HIS ARMS FULL, SAYING: "Q$"I FOUND "H" "E$"S!"Q$: FOR I = 1 TO 7: CALL -912: FOR J = 1 TO 10: NEXT J,I
2112 G% = 1.3 *T% * RND(1) +1: ON G% >3 GOTO 2112:WS = (6 +4 * RND(1) +2.2 *T%)/G%:L% = WS +.15 *WS *(G% >1):X = 3 *(10 *G% *L% +1)/8:O = 1: IF H <4 THEN O = 1 + INT((5 -H) * RND(1)):H = H +O -1: IF O = 1 AND H = 2 THEN O = 2 AND H = 3
2120 H$ = "": VTAB 4: PRINT Q$"WHICH DO YOU WANT?": PRINT : ON O GOTO 2121,2122,2123
2121 PRINT " THIS 'UN IS KIND OF SHABBY": PRINT " (YOURS FOR " INT(X *2 ^.3)" GP)":H$ = "S"
2122 PRINT " HERE'S AN OKAY "E$: PRINT " (I WANT " INT(X *2 ^.6)" GP FOR IT)":H$ = H$ +"O": IF H = 2 GOTO 2125
2123 PRINT " THIS 'ERE'S A GOOD WEAPON": PRINT " (THE COST IS " INT(X *2)" GP)":H$ = H$ +"G": IF H >3 THEN PRINT " THIS 'UN IS IN EXCELLENT CONDITION": PRINT " (PAY ONLY " INT(X *4)" GP FOR IT!)":H$ = H$ +"E"
2125 PRINT : PRINT : PRINT " (";: FOR I = 1 TO LEN(H$): PRINT MID$ (H$,I,1)"/";: NEXT : PRINT "N FOR NONE)": VTAB PEEK(37) -1: PRINT "WHICH DO YOU CHOOSE? ";
2126 GET B$: ON B$ = "N" GOTO 2160: FOR I = 1 TO LEN(H$): IF MID$ (H$,I,1) < >B$ THEN NEXT : GOTO 2126
2130 O = I +O -1: POKE N,0:X = INT(X *2 ^ VAL( MID$ (".3.6 1 2",2 *O -1,2))): IF X >A THEN A$ = "Sam is a bit upset that you have\wasted his time by not bringing\enough gold.": GOSUB 550: GOTO 2150
2140 A = A -X:A$ = "After taking your " + STR$(X) +" GP, Sam\hands you your " +E$ +".": GOSUB 550:A% = A% +1:A$(A%) = E$:C%(A%) = G%:E%(A%) = L%:B%(A%) = C:A%(A%) = -20 +10 *O +5 *(O = 1)
2150 C = 2000: GOSUB 9350: GOTO 2800
2160 POKE N,0:A$ = "Sam says: " +Q$ +"Sorry we can't do business.\ Can I help you with something else?" +Q$ +"\You answer...(Y/N)": GOSUB 550
2161 GET H$: ON H$ < >"Y" AND H$ < >"N" GOTO 2161: ON H$ = "N" GOTO 2800: GOTO 2030
2700 A$ = "Sam glares at you: " +Q$ +"Look, do you want\a weapon, or not?" +Q$ +"\ You answer...(Y/N)": GOSUB 550
2720 GET H$: ON H$ < >"Y" AND H$ < >"N" GOTO 2720: RETURN
2800 A$ = "Sam reminds you " +Q$ +"Be sure to stop by\after your next adventure!" +Q$ +"\ [Press to Leave]": GOSUB 550: GOTO 2911
2900 A$ = Q$ +"Well then, take off! I've no time for idlers.\Stop in after your next adventure." +Q$ +"\ [Press to Leave]": GOSUB 550
2911 GET H$: ON H$ < >"L" GOTO 2911: GOTO 2990
2990 GOSUB 500:D = 45:E$ = "": GOTO 1000
3000 POKE 1,H%/256: POKE 0,H% -256 * PEEK(1): CALL 2048:Z = 5:V = 1:G5 = 280:G6 = 28:C% = 0:A$ = "As you enter the training area, you are\greeted by your friend Whitey O'Thraight.\" +Q$ +"I guess you're ready for a workout." +Q$: GOSUB 550:C% = 1:C = 2500: GOSUB 9350: ON A% <1 GOTO 3800
3001 IF A% = 1 THEN A$ = "Whitey asks you: " +Q$ +"Do you want to practice\with your " + LEFT$(A$(1),26) +"?" +Q$ +"\You answer...(Y/N)": GOSUB 550
3031 IF A% = 1 THEN GET H$: ON H$ = "N" GOTO 3700: ON H$ < >"Y" GOTO 3031:W = 1: TEXT : GOTO 3050
3040 HOME : TEXT : VTAB 2: PRINT "WHITEY ASKS YOU: ": PRINT " "Q$"WHICH WEAPON DID YOU WANT TO PRACTICE WITH?"Q$: PRINT : PRINT "[PRESS <0> TO NOT PRACTICE]": PRINT : FOR I = 1 TO A%: PRINT " <"I"> " LEFT$(A$(I),25)" (" MID$ ("ABCSPSW",B%(I) +(B%(I) >4),1 +(B%(I) >3))")": PRINT : NEXT : PRINT : PRINT "YOU ANSWER...(0-"A%")"
3045 W = PEEK(Q) -176: ON W <0 GOTO 3045: POKE M,0: ON W = 0 GOTO 3700: IF W >A% GOTO 3045
3050 POKE 768,W: HOME : TEXT : VTAB 2: PRINT "WHITEY GOES OFF, SAYING:": PRINT " "Q$"LET ME CHECK ON WHAT MONSTERS WE HAVE AVAILABLE RIGHT NOW."Q$: GOSUB 9500: PRINT CHR$(4)"RUN WEAPONS"
3700 POKE N,0:A$ = "Whitey says:\" +Q$ +"Glad you could stop by. Good hunting!" +Q$ +"\Press to Leave the Training area": GOSUB 550: GOTO 3920
3800 A$ = "Whitey exclaims: " +Q$ +"You have no weapons!!\You need one before you can practice!" +Q$ +"\[Press to Leave Whitey's place]": GOSUB 550: GOTO 3920
3920 GET H$: ON H$ < >"L" GOTO 3920:R$ = "": FOR I = 1 TO 6:B$(I) = "": NEXT : POKE N,0: GOSUB 500:D = 105: GOTO 1000
4000 POKE 1,X%/256: POKE 0,X% -256 * PEEK(1): CALL 2048:AB = 0:Z = 5:V = 152:G5 = 280:G6 = 38:C% = 0:ND = 0:IR = 0: IF RND(1) <.35 GOTO 4095
4020 A$ = "You see you can Buy a beer for 2 GP\" + MID$ (" Talk to Abby Cadabra\",100 -99 *AB) +" Leave the Bar\ walk thru to Guild Hall": GOSUB 550:C% = 1
4030 GET H$: ON H$ = "L" GOTO 4999: ON H$ = "G" GOTO 4900: ON H$ = "T" AND AB GOTO 4100: IF H$ < >"B" GOTO 4030
4035 IF A <2 THEN A$ = "The barkeep gently rolls you out\the door when he realizes\you don't have enough Gold left.": GOSUB 550:C = 2500: GOSUB 9350: GOTO 4999
4040 A = A -2:ND = ND +1: IF IR OR ( RND(1) <1 -.05 *ND ^2) THEN A$ = "The bartender serves you some\Frobozz Beer: " +Q$ +"for the REAL Adventurer!" +Q$: GOSUB 550:C = 2000: GOSUB 9350: ON RND(1) <.2 AND NOT AB GOSUB 4090: GOTO 4020
4042 IR = 1:A$ = "As he serves your beer, the barkeep\offers to introduce you around.\ Do you want him to? (Y/N)": GOSUB 550: GET H$: IF H$ = "N" GOTO 4020
4045 HOME : TEXT : VTAB 1: PRINT " [PRESS BAR TO STOP SCROLLING]": PRINT : PRINT "THE BARKEEP POINTS TO PEOPLE AROUND THE ROOM, SAYING:": PRINT : POKE 34,5: PRINT D$"OPEN ADVENTURERS,L220": FOR I = 1 TO NC: PRINT D$"READ ADVENTURERS,R"I: INPUT H$,ST: FOR J = 1 TO 13: INPUT H: NEXT : INPUT B$: PRINT D$: IF ST < >1 OR H$ = F$ GOTO 4070
4055 IR = 2: IF PEEK(Q) = 160 THEN POKE M,0: FOR X = 0 TO 1:X = ( PEEK(Q) >127): NEXT : POKE M,0
4060 A$ = "":H = INT(8 * RND(1)):A$ = MID$ ("THAT THERE IS +HE'S TALKING TO+HE'S NEXT TO IN THE CORNER ISTHERE'S",H *16 +1,13 +3 *(H = 1 OR H = 3)) +" ": IF MID$ (A$,1,1) = "+" THEN A$ = MID$ (A$,2): IF NOT S1 THEN A$ = "S" +A$
4061 IF A$ = " " THEN A$ = "": IF RND(1) >.5 THEN A$ = "UMMM... "
4065 PRINT A$;H$;: IF PEEK(36) <27 THEN H = INT(4 * RND(1)): IF H <4 THEN PRINT ", " MID$ ("TO THE SIDERIGHT THEREIN",1 +H *11,11);: IF H = 2 THEN PRINT " " MID$ ("BLUE RED GREENBROWNBLACKWHITE",1 + INT(6 * RND(1)) *5,5);
4067 S1 = (B$ = "M"): PRINT : PRINT
4070 NEXT : PRINT D$"CLOSE": IF IR = 1 THEN PRINT : PRINT "THE BARTENDER TURNS TO YOU WITH A RED FACE AND SAYS: "Q$"SORRY, MATE, BUT ALL O' THESE BLOKES ARE NORMAL PEOPLE; NOT AN ADVENTURER IN THE BUNCH."Q$
4071 IF IR = 1 THEN PRINT : PRINT "HE GIVES YOU A FREE BEER, AND WALKS AWAY STILL APOLOGIZING.":A = A +2
4080 PRINT : PRINT : VTAB 22: HTAB 5: INVERSE : PRINT "PRESS TO GO ON": NORMAL : POKE M,0: FOR I = 0 TO 1:I = ( PEEK(Q) = 141): NEXT : POKE M,0: TEXT : POKE N,0: GOTO 4020
4090 A$ = "While you are staring off into space,\the famous witch Abby Cadabra appears in\a cloud of purple smoke!": GOSUB 550:C = 1000: GOSUB 9350
4095 AB = 1: POKE 1,V%/256: POKE 0,V% -256 * PEEK(1): CALL 2051: GOTO 4020
4100 A$ = "Abby glances at you and then checks\a small purple book which she conjures\from nowhere.": GOSUB 550:C = 1000: GOSUB 9350: ON B% >3 GOTO 4200
4101 IF B% >2 THEN A$ = "Abby says: " +Q$ +"You probably want me to\teach you the ":W = 0: FOR I = 1 TO 4:H$ = "": ON D%(I) < = 0 GOSUB 4990:A$ = A$ +H$:W = W +I *(H$ < >""): NEXT :A$ = A$ +" spell, right?" +Q$ +"\You answer...(Y/N)":C$ = "YN"
4121 IF B% <3 THEN H$ = "":C$ = "":A$ = "Abby says: " +Q$ +"So you want to learn a spell?\": FOR I = 1 TO 4: IF D%(I) < = 0 THEN GOSUB 4990:A$ = A$ +" <" + MID$ (H$,1,1) +"> " +H$:C$ = C$ + MID$ (H$,1,1)
4122 IF B% <3 THEN NEXT :A$ = A$ +"\Which one do you feel need of?" +Q$ +"\ You answer..."
4125 GOSUB 550
4126 GET H$: FOR I = 1 TO LEN(C$): IF H$ < > MID$ (C$,I,1) THEN NEXT : GOTO 4126
4127 IF B% >2 THEN ON H$ = "Y" GOTO 4130:A$ = "Abby grins innocently at you and says:\" +Q$ +"Then you MUST want to buy me a drink!\ Wonderful of you, la" + MID$ ("ssd",1 +2 *SX,2 -SX) +"!" +Q$ +"\ Do you? (Y/N)": GOSUB 550: GOTO 4220
4128 W = 0: FOR I = 1 TO 4:W = W +I *(H$ = MID$ ("BHSP",I,1)): NEXT
4130 SC = VAL( MID$ ("301050 1",W *2 -1,2)) *(1.15 -.025 *(U -12)) *S%:SC = INT(SC):I = W: GOSUB 4990:A$ = "Abby says: " +Q$ +"I will teach you the\" +H$ +" spell for " + STR$(SC) +" GP, all right?" +Q$ +"\You reply...(Y/N)": GOSUB 550
4150 GET H$: ON H$ < >"Y" AND H$ < >"N" GOTO 4150: IF H$ = "N" THEN A$ = "Abby turns back to her drink, saying:\" +Q$ +"Perhaps another time?" +Q$: GOSUB 550:C = 2000: GOSUB 9350: GOTO 4020
4160 IF A "Y" AND H$ < >"N" GOTO 4220: IF H$ = "Y" THEN A$ = "Abby gulps her drink and thanks you\before turning back to her\table conversation.": GOSUB 550: FOR C = 1 TO 2000: NEXT C:A = A -2: ON A = >0 GOTO 4020:A = 0: GOTO 4045
4230 A$ = "Abby wiggles her fingers at you, mumbling\something like " +Q$ +"Etgay ostlay, varlet!" +Q$ +" and...\Everything dissolves into purple smoke...": GOSUB 550:C = 2500: GOSUB 9350: HCOLOR= 2: HPLOT 0,0: CALL -3082: GOSUB 520:D = 10 +8 * INT(12 * RND(1)) + INT(3 * RND(1)): GOTO 1000
4900 GOSUB 350: POKE 1,N%/256: POKE 0,N% -256 * PEEK(1): CALL 2048:L = 7: GOTO 11020
4990 H$ = MID$ ("BlastHeal SpeedPower",I *5 -4,5 -(I = 2)): RETURN
4999 GOSUB 500:D = 25: GOTO 1000
5000 POKE 1,U%/256: POKE 0,U% -256 * PEEK(1): CALL 2048:Z = 5:V = 153:G5 = 280:G6 = 38:C% = 0
5020 A$ = "Inside the Temple, you realize no one is\paying attention to you. You could\ try to Steal some gold, or\

Text found in Super_Eamon_Alternate.dsk/SNAPPY.txt:

23
NOT KNOWIN' THIS JOB MEANT WIPIN' THE NOSES OF GREENHORNS...
SPENDING HIS LIFE LEADING GREENHORNS BY THE HAND...
THE NAMES SOME PARENTS CAN THINK UP...
HE SHOULD HAVE LISTENED TO HIS TEACHER AND GONE ON WELFARE...
YOUNG ADVENTURERS ARE ONLY IN IT FOR THE GOLD...
NAMES WI' MORE ADJECTIVES THAN NOUNS...
HE SHOULDA LISTENED TO HIS SISTER AND GONE TO AN EARLY GRAVE.
GETTING THE ROBOT TO HANDLE THE DUMB-LOOKING ONES...
HAVING SEEN UGLY FACES BEFORE BUT SOME THINGS'RE INHUMAN...
SETTING AN EXAMPLE BY WIPING OUT ONE SNOTTY KID...
LEARNING PROGRAMMIN' AND GETTIN' OUTTA THIS DRAGON RACE...
BURNIN' THE PLACE DOWN AN' COLLECTIN' THE INSURANCE...
SNOTTY KIDS RUSHIN' AROUND WITH NO PLACE TO GO...
SEEING MORE DANGEROUS TYPES IN A KINDERGARTEN...
TELLING THE GUARDS TO KEEP AN EYE ON THIS ONE...
THE GOOD OLD DAYS WHEN A BODY KNEW WHO EVERYBODY WAS...
IF HE'D BOUGHT APPLE AT 25 HE'D BE FREE BY NOW...
WISHING HIS PARENTS HAD BEEN SMART LIKE HIM AND HAD NO KIDS...
THE JUNK MARCOS CALLS A WEAPON AND SELLS TO THESE FOOLS...
LOSING A WEEK'S PAY TO THAT SHARPIE SHELLIE...
THE DIMWIT ON THE NIGHT SHIFT CAN'T SPELL HIS OWN NAME...
BAD BEER AND BAD COMPANY IS MORE THAN A MAN CAN TAKE...
THESE YOUNG ADVENTURERS THINKIN' EVERYTHING'S A GAME...

Text found in Super_Eamon_Alternate.dsk/SUPER EAMON.bas:

10 ONERR GOTO 100
20 POKE 103,1: POKE 104,86: POKE 22016,0: PRINT CHR$(4)"RUN GUILD HALL,L10"
100 CALL -1370

Text found in Super_Eamon_Alternate.dsk/THE ADVENTURER.txt:

ANDRED
0

Text found in Super_Eamon_Alternate.dsk/THE MAIN HALL.bas:

5 K = 38:L = 5: GOTO 10
6 K = 78:L = 6: GOTO 10
7 K = 39:L = 7: GOTO 10
10 IF PEEK(103) < >1 OR PEEK(104) < >86 THEN POKE 104,86: POKE 103,1: POKE 86 *256,0: PRINT CHR$(4)"RUN THE MAIN HALL,L"L
20 Q$ = CHR$(34):D$ = CHR$(4): SCALE= 1: ROT= 0:ER% = 774: ONERR GOTO 12000
100 KB = -16384:CK = -16368:R% = 5376: IF L < >7 THEN HGR : POKE -16302,0: GOSUB 500
120 M% = 5120:J% = 16896:A$ = "": GOSUB 200:WR% = 16387:CB% = 16384:R% = 5376: PRINT D$"BLOAD MH.SHAPES,A$1400": IF L = 5 THEN PRINT D$"BLOAD PICDRAWL,A$800": PRINT D$"BLOAD MH.LTRS,A$4200": PRINT D$"BLOAD MH.WRITE,A$4000"
130 PRINT D$"BLOAD MH.PCS,A$4880":K% = 18560:GH% = 19381:Z% = 19929:Y% = 19986:X% = 20664:V% = 21057:I% = 21731:H% = 21799: SCALE= 1: ROT= 0: GOSUB 9200: ON L = 7 GOTO 8000: GOTO 1000
200 POKE 233,J%/256: POKE 232,J% -256 * PEEK(233): IF LEN(A$) <1 THEN RETURN
220 G1% = D:G2% = A: POKE 6,0: CALL WR%: IF NOT (Q) THEN RETURN
250 CALL -2613: SCALE= ABS((256 * PEEK(225) + PEEK(224)) -D): FOR I = A -1 TO A +8: XDRAW 98 AT D,I: NEXT : SCALE= 1: RETURN
290 HTAB 21 - LEN(A$)/2: PRINT A$: RETURN
300 PRINT CHR$(7);: RETURN
350 PRINT D$"BLOAD MHSA.PCS,A"K%:U% = K%:T% = K% +137: RETURN
500 HCOLOR= 1: HPLOT 0,0: CALL -3082
520 PRINT : PRINT D$"BLOAD MH.CRN,A$1500": POKE 0,0: POKE 1,21: POKE 2,128: CALL 784: HPLOT 0,0 TO 0,191: PRINT D$"BLOAD MH.MOVE,A$1500": POKE 0,0: CALL R%: RETURN
549 RETURN
550 X = FRE(0): POKE 233,J%/256: POKE 232,J% -256 * PEEK(233): IF D% THEN GOSUB 570
560 G1% = G3:G2% = G4: POKE 6, ASC("\"): CALL WR%:D% = 1: RETURN
570 G1% = G3:G2% = G4:G4% = G4 +G6:G3% = G3 +G5: IF G3% >279 THEN G3% = 279
590 HCOLOR= 7: CALL CB%: HCOLOR= 4: RETURN
600 X = D:Y = A:H$ = ""
620 GET F$: ON F$ = CHR$(13) GOTO 679: IF (F$ < > CHR$(8) AND F$ <" ") OR (F$ = CHR$(8) AND LEN(H$) <1) GOTO 620
630 IF F$ = CHR$(8) THEN GOSUB 680:H$ = MID$ (H$,1, LEN(H$) -1):F$ = H$:H$ = "":D = X:A = Y: GOTO 650
640 IF LEN(H$) = >L THEN GOSUB 680:H$ = MID$ (H$,1, LEN(H$) -1) +F$:D = X:A = Y:A$ = H$: GOSUB 200: CALL -2613:D = PEEK(225) *256 = PEEK(224): GOTO 620
650 A$ = F$: GOSUB 200: CALL -2613:D = PEEK(225) *256 + PEEK(224):H$ = H$ +F$: GOTO 620
679 RETURN
680 CALL -2613:X1 = PEEK(225) *256 + PEEK(224): SCALE= 9:HC = PEEK(228): HCOLOR= 3: ROT= PEEK(249) +16 -32 *( PEEK(249) >240): FOR I = X1 TO X STEP -1: DRAW 98 AT I,Y: NEXT : SCALE= 1: ROT= PEEK(249) -16 +32 *( PEEK(249) <16): POKE 228,HC: RETURN
1000 :
1010 POKE 0,2 -O: POKE 1,K:GD = C *(C <60000) +60000 *(C = >60000): POKE 769,GD/256: POKE 768,GD -256 * PEEK(769):GD = C -GD: CALL R%:K = PEEK(1):C = GD +256 * PEEK(769) + PEEK(768):X = PEEK(KB) -128: POKE CK,0: IF X = 27 THEN GOSUB 9400: GOTO 1010
1050 IF K = 4 GOTO 10000
1055 IF K >138 GOTO 3000
1060 IF K = 31 OR K = 39 GOTO 8000
1061 IF K = 119 OR K = 127 GOTO 7000
1065 IF K = 71 OR K = 79 OR K = 87 GOTO 11000
1070 IF K = 17 OR K = 25 GOTO 4000
1071 IF K = 81 OR K = 89 GOTO 5000
1072 IF K = 121 OR K = 129 GOTO 6000
1099 FOR I = 1 TO 10:H = PEEK(49200) - PEEK(49200): FOR J = 1 TO 5: NEXT J,I: GOTO 1000
3000 HOME : TEXT : VTAB 3:A$ = "CHARMING GENTLEMAN": IF O THEN A$ = "BEAUTIFUL LADY"
3020 PRINT : PRINT D$"BLOAD INFO.0": VTAB 3: PRINT "THE "A$" AT THE": VTAB 8: PRINT " " MID$ ("SHE",2 -O)" ASKS. ": VTAB 22: HTAB 35
3051 GET H$: ON H$ <"1" OR H$ >"6" GOTO 3051: PRINT H$: VTAB 1: PRINT CHR$(4)"BLOAD INFO."H$: IF H$ = "1" THEN VTAB 9: PRINT MID$ ("SHE",2 -O)" CONTINUES: ": VTAB 20: HTAB 21: PRINT MID$ ("SHE",2 -O)" ADDS. "
3061 IF H$ = "2" THEN VTAB 8: PRINT MID$ ("SHE",2 -O)" ADDS: "
3062 IF H$ = "3" THEN VTAB 16: PRINT MID$ ("SHE",2 -O)" CONTINUES: "
3064 IF H$ = "4" THEN VTAB 14: PRINT MID$ ("SHE",2 -O)" CONTINUES: "
3065 IF H$ = "5" THEN VTAB 2: PRINT "THE " MID$ ("LADYMAN",5 -4 *O,4)" AT THE COUNTER SAYS: "
3066 IF H$ = "6" THEN VTAB 3: PRINT "THE " MID$ ("LADYMAN",5 -4 *O,4)" BEHIND THE COUNTER SMILES AT ": VTAB 17: PRINT MID$ ("SHE",2 -O)" THEN SHOOS YOU TOWARD THE DOOR TO "
3080 ON PEEK(KB) < >155 GOTO 3080: POKE CK,0: POKE -16304,0: POKE -16302,0: GOTO 1000
4000 POKE 1,Y%/256: POKE 0,Y% -256 * PEEK(1): CALL 2048:HO = 0:G3 = 5:G4 = 162:G5 = 280:G6 = 28:D% = 0:ND = 0: IF RND(1) <.35 THEN GOSUB 4060
4020 A$ = "You can Buy a drink for 2 GP\" + MID$ (" Talk to Hokus\",100 -99 *HO) +" Leave the Tavern": GOSUB 550:D% = 1
4030 GET H$: ON H$ = "L" GOTO 4999: ON H$ = "T" GOTO 4100: IF H$ < >"B" AND (H$ < >"T" OR NOT HO) GOTO 4030
4040 IF C >2 THEN A$ = "The barkeeper says:\" +Q$ +"Here " + MID$ ("TootsBub",1 +5 *O,5) + MID$ (", have a strong one!!!, best switch to coffee.",1 +22 *(ND >6),22 +3 *(ND >6)) +Q$: GOSUB 550
4041 IF C >2 THEN N = 1800: GOSUB 9350:ND = ND +1:C = C -2: ON ( RND(1) <.2 OR ND >12) AND NOT HO GOSUB 4050: GOTO 4020
4045 A$ = "The barkeep gently throws you out\on your ear when he discovers\you don't have enough Gold left.": GOSUB 550:N = 2500: GOSUB 9350: GOTO 4999
4050 A$ = "As you sip your drink, who should walk in\but Hokus Tokus, the famous magician!": GOSUB 550:N = 1000: GOSUB 9350
4060 HO = 1: POKE 1,X%/256: POKE 0,X% -256 * PEEK(1): CALL 2051: GOTO 4020
4100 A$ = "Hokus examines you closely with a\monocle he plucks from thin air.": GOSUB 550:N = 1000: GOSUB 9350: ON C% >3 GOTO 4200
4101 IF C% >2 THEN A$ = "Hokus says: " +Q$ +"You probably want me to\teach you the ":W = 0: FOR I = 1 TO 4:H$ = "": ON E%(I) < = 0 GOSUB 4990:A$ = A$ +H$:W = W +I *(H$ < >""): NEXT :A$ = A$ +" spell, right?" +Q$ +"\You answer...(Y/N)":C$ = "YN"
4121 IF C% <3 THEN H$ = "":C$ = "":A$ = "Hokus says: " +Q$ +"So you want to learn a spell?\": FOR I = 1 TO 4: IF E%(I) < = 0 THEN GOSUB 4990:A$ = A$ +" <" + MID$ (H$,1,1) +"> " +H$:C$ = C$ + MID$ (H$,1,1)
4122 IF C% <3 THEN NEXT :A$ = A$ +"\Which one?" +Q$ +" You answer..."
4125 GOSUB 550
4126 GET H$: FOR I = 1 TO LEN(C$): IF H$ < > MID$ (C$,I,1) THEN NEXT : GOTO 4126
4127 IF C% >2 THEN ON H$ = "Y" GOTO 4130:A$ = "Hokus beams at you and says:\" +Q$ +"Then you MUST want to buy me a drink!\ Thank you!" +Q$ +" Do you?...(Y/N)": GOSUB 550: GOTO 4220
4128 W = 0: FOR I = 1 TO 4:W = W +I *(H$ = MID$ ("BHSP",I,1)): NEXT
4130 SC = VAL( MID$ ("301050 1",W *2 -1,2)) *(1.15 -.025 *(CH -12)) *S%:SC = INT(SC):I = W: GOSUB 4990:A$ = "Hokus says: " +Q$ +"I will teach you the\" +H$ +" spell for " + STR$(SC) +" GP, all right?" +Q$ +"\You reply...(Y/N)": GOSUB 550
4150 GET H$: ON H$ < >"Y" AND H$ < >"N" GOTO 4150: IF H$ = "N" THEN A$ = "Hokus turns back to his drink, saying:\" +Q$ +"Sorry we can't do business." +Q$: GOSUB 550:N = 2000: GOSUB 9350: GOTO 4020
4160 IF C 1000) +(SC >3000):A$ = "Hokus teaches you the spell after you give\him the " + STR$(SC) +" GP. He then invests part\of his windfall in a " + MID$ ("smokingdoubletriple",H *6 -5 +(H >1),6 +(H = 1)) +" dragon blomb.": GOSUB 550:C = C -SC:E%(W) = 25 + INT(51 * RND(1)):C% = C% +1:N = 1500
4171 GOSUB 9350: GOTO 4020
4200 A$ = "Hokus smiles at you: " +Q$ +"Since you already\know all the spells I do, you MUST want\to buy me a drink!!" +Q$ +" Do you?...(Y/N)": GOSUB 550
4220 GET H$: ON H$ < >"Y" AND H$ < >"N" GOTO 4220: IF H$ = "Y" THEN A$ = "Hokus downs his drink and thanks you\politely before returning to his\conversation with the bartender.": GOSUB 550:N = 2000: GOSUB 9350:C = C -2: ON C = >0 GOTO 4020:C = 0: GOTO 4045
4230 A$ = "Hokus wiggles his fingers at you, mumbling\something like " +Q$ +"Amscray, kid!" +Q$ +" and...\Everything dissolves into blue mist...": GOSUB 550:N = 2500: GOSUB 9350: HCOLOR= 6: HPLOT 0,0: CALL -3082: GOSUB 520:K = 29 +8 * INT(14 * RND(1)) + INT(3 * RND(1)): GOTO 1000
4990 H$ = MID$ ("BlastHeal SpeedPower",I *5 -4,5 -(I = 2)): RETURN
4999 GOSUB 500:K = K +1: GOTO 1000
5000 POKE 1,V%/256: POKE 0,V% -256 * PEEK(1): CALL 2048:G3 = 5:G4 = 5:G5 = 280:G6 = 28:D% = 0: IF F <0 GOTO 5400
5020 HCOLOR= 0:A$ = "Shylock McFenney greets you with:\" +Q$ +"Do you want to make a deposit?" +Q$ +"\You answer...(Y/N)": GOSUB 550:D% = 1
5030 GET H$: ON H$ = "N" GOTO 5200: IF H$ < >"Y" GOTO 5030
5035 POKE 1,H%/256: POKE 0,H% -256 * PEEK(1): CALL 2051:A$ = "McFenney rubs his hands together & asks:\" +Q$ +"How many Gold Pieces will you deposit?" +Q$ +"\You answer=>": GOSUB 550: CALL -2613:D = PEEK(225) *256 + PEEK(224):A = PEEK(226):L = LEN( STR$(C)): GOSUB 600:V = INT( VAL(H$))
5036 IF V >C THEN A$ = "McFenney is sad that you don't have that\much gold on you, but he accepts the\" + STR$(C) +" GP that you do have.": GOSUB 550:V = C:N = 2000: GOSUB 9350
5055 IF V <1 THEN POKE 1,I%/256: POKE 0,I% -256 * PEEK(1): CALL 2051: GOTO 5500
5060 IF NC < = 1 GOTO 5080
5070 A$ = "He asks, " +Q$ +"By the way, should this gold\go in Your account, or Someone Else's?" +Q$ +"\You answer...(Y/S)": GOSUB 550
5075 GET H$: ON H$ < >"Y" AND H$ < >"S" GOTO 5075: IF H$ = "S" GOTO 5100
5080 F = F +V:C = C -V: GOTO 5460
5100 HOME : TEXT : VTAB 2: PRINT "MCFENNEY SAYS:": PRINT : PRINT Q$ +"I HAVE ACCOUNTS FOR THESE PEOPLE:": PRINT D$"OPEN ADVENTURERS,L220":X = 13:CT = 0:G% = 0: VTAB 6: FOR I = 1 TO NC: PRINT D$"READ ADVENTURERS,R"I: INPUT H$,H: PRINT D$: IF H$ < >"" AND H$ < >B$ AND H < >0 THEN CT = CT +1:G% = G% +1:F%(CT) = I: INVERSE : PRINT CHR$(G% + ASC("A") -1);: NORMAL : PRINT "> "H$
5135 IF G% = 16 AND I TO CANCEL."Q$:X = 27: GOSUB 5190
5150 HOME : VTAB 10:C = C -V: PRINT : PRINT D$"READ ADVENTURERS,R"L%: INPUT B$(1): INPUT A(0),A(1),A(2),A(3): FOR I = 1 TO 9: INPUT F%(I): NEXT : INPUT A(4): INPUT B$(2):S2 = (B$(2) = "M"): INPUT A(5),A(6),A(7): FOR I = 1 TO 4: INPUT B$(I +2): FOR J = 1 TO 4: INPUT F%(I *4 +6 +J): NEXT J,I: PRINT D$: PRINT "MCFENNEY DEPOSITS THE MONEY IN THE ACCOUNT OF "B$(1)"."
5151 PRINT D$"WRITE ADVENTURERS,R"L%: PRINT B$(1): PRINT A(0): PRINT A(1): PRINT A(2): PRINT A(3): FOR I = 1 TO 9: PRINT F%(I): NEXT : PRINT A(4): PRINT B$(2): PRINT A(5): PRINT A(6) +V: PRINT A(7): FOR I = 1 TO 4: PRINT B$(I +2): FOR J = 1 TO 4: PRINT F%(I *4 +6 +J): NEXT J,I: PRINT D$"CLOSE": POKE -16304,0
5152 A$ = "McFenney takes your Gold Pieces and says:\" +Q$ +"I'm sure " + MID$ ("Lady Lord ",1 +5 *S2,5) +B$(1) +"\ is grateful." +Q$: GOSUB 550:A$ = "[press to leave]":D = 110:A = 25: GOSUB 200: GOTO 5700
5180 VTAB 22: PRINT "PICK A PERSON TO GET YOUR GOLD, OR PRESS FOR NEXT PAGE."Q$
5190 Z = PEEK(KB) -128: ON Z <13 GOTO 5190: POKE CK,0: IF (Z < ASC("A") OR Z > ASC("A") +G% -1) AND (Z < >X) THEN VTAB 24: INVERSE :A$ = "PRESS LETTER TO CHOOSE PERSON": GOSUB 300: GOSUB 290: PRINT A$;: NORMAL : GOSUB 300: FOR I = 1 TO 2500: NEXT : HTAB 1: CALL -868: GOTO 5190
5191 IF Z = 13 THEN VTAB 3: CALL -958: RETURN
5192 IF Z = 27 THEN POP : POKE -16304,0: GOTO 5070
5195 POP :L% = CT -G% +Z - ASC("A") +1:L% = F%(L%): GOTO 5150
5199 GOTO 5700
5200 POKE 1,I%/256: POKE 0,I% -256 * PEEK(1): CALL 2051: IF F < = 0 GOTO 5300
5220 A$ = "McFenney glowers a bit and says:\" +Q$ +"Do you want to withdraw gold, then?" +Q$ +"\You answer...(Y/N)": GOSUB 550
5221 GET H$: ON H$ < >"Y" AND H$ < >"N" GOTO 5221: IF H$ = "N" GOTO 5500
5230 A$ = "McFenney reluctantly tells you:\" +Q$ +"You have " + STR$(F) +" GP on deposit. How much\will you withdraw?" +Q$ +" ->": GOSUB 550: CALL -2613:D = PEEK(225) *256 + PEEK(224):A = PEEK(226):L = LEN( STR$(F)): GOSUB 600:WD = INT( VAL(H$)): ON WD = 0 GOTO 5500
5231 IF WD >F THEN A$ = "McFenney coldly points out that you\ have only " + STR$(F) +" GP on deposit.": GOSUB 550:WD = F:N = 2000: GOSUB 9350
5250 A$ = "McFenney asks hopefully: " +Q$ +"Are you REALLY\sure you want to withdraw " + STR$(WD) +" GP?" +Q$ +"\You answer...(Y/N)": GOSUB 550
5255 GET H$: ON H$ = "Y" GOTO 5270: ON H$ < >"N" GOTO 5255: POKE 1,H%/256: POKE 0,H% -256 * PEEK(1): CALL 2051:A$ = "McFenney smiles happily and\thanks you for dropping by.\ [press to leave]": GOSUB 550: GOTO 5299
5270 F = F -WD:C = C +WD:A$ = "You have " + STR$(F) +" still on deposit.": IF F <1 THEN A$ = "Your account is now empty."
5280 A$ = "McFenney sadly hands you your " + STR$(WD) +" GP,\saying: " +Q$ +A$ +Q$ +"\ [press to leave]": GOSUB 550
5299 GOTO 5700
5300 A$ = "McFenney muses: " +Q$ +"You have no gold on\deposit; do you want to borrow money?" +Q$ +"\You answer...(Y/N)": GOSUB 550
5311 GET H$: ON H$ = "N" GOTO 5500: IF H$ < >"Y" GOTO 5311
5320 M = G *35: FOR I = 1 TO 5:M = M +G%(I): NEXT :M = M +AE: FOR I = 1 TO 4:M = M +E%(I)/10: NEXT :M = M *B%/100 *CH/10: IF M <100 AND F <0 THEN A$ = "McFenney rages: " +Q$ +"You haven't even\paid off your first loan yet!!\ [press to leave Bank]": GOSUB 550: GOTO 5700
5335 IF M <200 THEN A$ = "McFenney explains briskly: " +Q$ +"We lend\only to Experienced Adventurers." +Q$ +"\ [press to leave Bank]": GOSUB 550: GOTO 5700
5340 M = (M -200)/20:M = 10 * INT(M *M/10 +.5): IF F <0 AND ABS(F) = >M THEN A$ = "McFenney notes that you have already\borrowed up to your credit limit.\ [press to leave Bank]": GOSUB 550: GOTO 5700
5360 IF F <0 THEN M = M +F:A$ = "McFenney decides: " +Q$ +"We will lend you\up to " + STR$(M) +" more GP." +Q$ +"\You accept how much=>": GOSUB 550
5365 IF F = >0 THEN A$ = "McFenney decides: " +Q$ +"We will lend you\up to " + STR$(M) +" GP." +Q$ +"\You accept how much=>": GOSUB 550
5370 CALL -2613:D = PEEK(225) *256 + PEEK(224):A = PEEK(226):L = LEN( STR$(M)): GOSUB 600:LN = INT( VAL(H$)): IF LN >M THEN A$ = "McFenney reminds you:\" +Q$ +"Your credit limit is " + STR$(M) +" GP." +Q$: GOSUB 550:LN = M:N = 2500: GOSUB 9350
5380 C = C +LN:F = F -LN:A$ = "McFenney gives you " + STR$(LN) +" GP & says:\" +Q$ +"You now owe us " + STR$( -1 *F) +" GP @ 20% per Month!" +Q$ +"\ [press to leave Bank]": GOSUB 550: GOTO 5700
5400 HCOLOR= 0:A$ = "Shylock McFenney greets you with:\" +Q$ +"Do you want to pay your loan?" +Q$ +"\You answer...(Y/N)":G3 = 5:G4 = 5:G5 = 280: GOSUB 550:D% = 1
5411 GET H$: ON H$ = "N" GOTO 5200: IF H$ < >"Y" GOTO 5411
5420 POKE 1,H%/256: POKE 0,H% -256 * PEEK(1): CALL 2051:A$ = "McFenney grins and says:\" +Q$ +"You owe " + STR$( -1 *F) +" GP; how much will\you pay off?" +Q$ +" You answer=>": GOSUB 550: CALL -2613:D = PEEK(225) *256 + PEEK(224):A = PEEK(226):L = LEN( STR$( -1 *F)): GOSUB 600:V = INT( VAL(H$))
5421 IF V >C THEN A$ = "McFenney is sad that you don't have that\much gold on you, but he accepts the\" + STR$(C) +" GP that you do have.": GOSUB 550:V = C:N = 2000: GOSUB 9350
5445 IF V <1 THEN POKE 1,I%/256: POKE 0,I% -256 * PEEK(1): CALL 2051: GOTO 5500
5450 F = F +V:C = C -V
5460 A$ = "McFenney takes your Gold Pieces and says:\" +Q$ +"You now": IF F >0 THEN A$ = A$ +" have " + STR$(F) +" GP on deposit." +Q$ +"\ [press to leave]"
5462 IF F = 0 THEN A$ = A$ +" have no GP in your account." +Q$ +"\ [press to leave]"
5464 IF F <0 THEN A$ = A$ +" owe the Bank " + STR$( -1 *F) +" GP." +Q$ +"\ [press to leave]"
5465 GOSUB 550: GOTO 5700
5500 A$ = "McFenney says curtly: " +Q$ +"Well! Some of us\ have work to do. Good Day to you!!!" +Q$ +"\ [press to leave]": GOSUB 550: GOTO 5700
5700 :
5710 GET H$: ON H$ < >"L" GOTO 5710: GOSUB 500:K = K +1: GOTO 1000
6000 POKE 1,K%/256: POKE 0,K% -256 * PEEK(1): CALL 2048:A$ = "FINE WEAPONS":D = 60:A = 135: GOSUB 200:A$ = "The Right To Buy Weapons":A = A +10:D = 20: GOSUB 200:A$ = "Is The Right To Be Free":A = A +10:D = 30: GOSUB 200:G3 = 5:G4 = 2:G5 = 280:G6 = 28:D% = 0
6001 A$ = "The Proprieter, Marcos Cavielli, greets you\warmly: " +Q$ +B$ +"! Old pal!\How are you?" +Q$ +" You answer...": GOSUB 550:D% = 1: CALL -2613:D = PEEK(225) *256 + PEEK(224):A = PEEK(226):L = 10: GOSUB 600
6040 A$ = "He asks: " +Q$ +"Do you want to <1> Buy a Weapon\<2> Buy Armor <3> Sell a Weapon\<4> Sell Armor or <5> Leave?" +Q$ +" You say...": GOSUB 550
6045 GET H$: ON H$ >"5" OR H$ <"1" GOTO 6045: IF H$ = "5" GOTO 6700
6050 IF H$ = "1" AND A% >3 THEN A$ = Q$ +"You know the Law: Only 4 Weapons in the\Hall! You'll have to sell me one before\you can buy another," +Q$ +" says Marcos.": GOSUB 550:N = 2000: GOSUB 9350: GOTO 6040
6060 ON H$ = "1" GOTO 6100: ON H$ = "2" GOTO 6200: IF H$ = "3" AND A% <1 THEN A$ = Q$ +"Such a fonny " + MID$ ("girlguy",1 +4 *O,4 -O) +"!! You don' have\any weapons to sell!! Ha,ha!!" +Q$ +",\laughs Marcos.": GOSUB 550:N = 2000: GOSUB 9350: GOTO 6040
6066 IF H$ = "3" GOTO 6300
6070 IF H$ = "4" AND G < = 0 THEN A$ = Q$ +"Hah! Always making witha the choke!\You aren't wearing any armor, old friend!" +Q$ +",\chuckles Marcos.": GOSUB 550:N = 2000: GOSUB 9350: GOTO 6040
6071 GOTO 6400
6080 POKE -16304,0:A$ = "Marcos asks you:\" +Q$ +"You wan' anythin else from old Marcos?" +Q$ +"\You answer...(Y/N) ": GOSUB 550
6090 GET H$: ON H$ < >"Y" AND H$ < >"N" GOTO 6090: IF H$ = "N" GOTO 6700
6099 GOTO 6040
6100 A$ = Q$ +"I gotta the best!! Do you wan' a\<1> Axe <2> Bow <3> Club <4> Spear\ or <5> Sword?" +Q$ +" You answer...(1-5) ": GOSUB 550
6115 GET H$: ON H$ <"1" OR H$ >"5" GOTO 6115:F% = VAL(H$):W$ = MID$ ("AXEBOWCLUBSPEARSWORD",3 *F% -2 +(F% >3) +2 *(F% >4),3 +(F% >2) +(F% >3)):WP = VAL( MID$ ("2540202550",F% *2 -1,2)):WD = VAL( MID$ ("66458",F%,1)): HOME : TEXT : VTAB 2: PRINT "MARCOS SAYS:": PRINT : PRINT Q$"I GOTTA LOTSA "W$"S.": PRINT :E = WP *(16/CH) *W%/200
6116 PRINT INT(E)" GP FOR THIS ONE;": PRINT " SHE'S A LITTLE ";: INVERSE : PRINT "BEAT-UP";: NORMAL : PRINT ", BUT WORKS ALL RIGHT.": PRINT : PRINT INT(2 *E)" GP IS THE PRICE FOR THIS ONE;": PRINT " IT'SA H";: INVERSE : PRINT "OKAY";: NORMAL : PRINT " "W$"; SOLID": PRINT " WORKMANSHIP WENT INTO MAKING THIS.": PRINT
6117 PRINT INT(E *4)" GP IS ALL I WANT": PRINT " FOR THIS REALLY ";: INVERSE : PRINT "GOOD";: NORMAL : PRINT " WEAPON. SHE'S A HIGH-CLASS "W$"!": VTAB 18: PRINT "YOU TELL MARCOS YOU WANT...": PRINT " THE BEAT-UP "W$: PRINT " THE OKAY "W$: PRINT " THE GOOD "W$: PRINT " NONE OF THESE": VTAB 18: HTAB 28
6129 GET H$: ON H$ < >"G" AND H$ < >"O" AND H$ < >"B" AND H$ < >"N" GOTO 6129: IF H$ = "N" GOTO 6080
6130 E$ = "Good":E% = E *4: IF H$ < >"G" THEN E$ = "Okay":E% = E *2: IF H$ = "B" THEN E$ = "Beat-up":E% = E
6140 POKE -16304,0: IF E% >C THEN A$ = "Marcos is upset that you don't have\enough gold, but he politely shows you\out of his shop.": GOSUB 550:N = 2000: GOSUB 9350: GOTO 6700
6150 A$ = "Marcos hands you the " +E$ +" " +W$ +"\and takes your " + STR$(E%) +" GP.": GOSUB 550:C = C -E%:A% = A% +1:A$(A%) = W$:D%(A%) = 1:C%(A%) = WD:B%(A%) = 0 -10 *(E% = INT(E)) +10 *(E% = INT(E *4)):A%(A%) = F%:N = 1000: GOSUB 9350: GOTO 6080
6200 E = 100 *(16/CH) *100/W%: HOME : TEXT : VTAB 2:P = 0: IF G >0 THEN P = INT(G/2):P = INT(P *E/2 +E *(G >5)): PRINT "MARCOS OFFERS YOU "P" GP FOR YOUR OLD": PRINT " SET OF ARMOR.": PRINT
6230 VTAB 5: PRINT "MARCOS TELLS YOU:": PRINT : PRINT Q$"I CARRY THREE TYPES OF ARMOR:": PRINT : PRINT " LEATHER ARMOR FOR " INT(E)" GP,": PRINT : PRINT : PRINT " CHAIN MAIL FOR " INT(E *2)" GP, AND": PRINT : PRINT : PRINT " PLATE ARMOR FOR " INT(E *5)" GP."Q$
6231 IF P >0 THEN FOR I = 1 TO 3:H = INT( VAL( MID$ ("125",I,1)) *E) -P: VTAB 7 +3 *I: HTAB 6:A$ = "[" + STR$(H) +" GP WITH TRADE-IN]": IF H < = 0 THEN A$ = "[FREE WITH TRADE-IN!]": IF H <0 THEN A$ = "[I GIVE YOU " + STR$( -1 *H) +" GP W. TRADE-IN!]"
6237 IF P >0 THEN PRINT A$: NEXT
6240 VTAB 20: PRINT "WHICH DO YOU CHOOSE? (L/C/P/N FOR NONE)"
6241 X = PEEK(KB) -128: ON X <32 GOTO 6241: POKE CK,0:H$ = CHR$(X): ON H$ < >"L" AND H$ < >"C" AND H$ < >"P" AND H$ < >"N" GOTO 6241: IF H$ = "N" THEN POKE -16304,0: GOTO 6260
6245 E = E +E *(H$ = "C") +4 *E *(H$ = "P"):E = INT(E -P): POKE -16304,0: IF E >C THEN E% = E: GOTO 6140
6252 C = C -E:G = 2 +2 *(H$ = "C") +4 *(H$ = "P") +(G -2 * INT(G/2) >.9):A$ = "Marcos helps you into your new " + MID$ ("LeatherChainPlate", INT(G/2) *6 -5 +( INT(G/2) = 2),7 -2 *(G = >4)) +" \armor": IF E >0 THEN A$ = A$ +" after getting your " + STR$(E) +" Gold Pieces."
6256 IF E = 0 THEN A$ = A$ +" and pronounces it a perfect fit."
6257 IF E <0 THEN A$ = A$ +" gives you " + STR$( -1 *E) +" GP on your trade-in."
6259 GOSUB 550:N = 1500: GOSUB 9350
6260 IF G -2 * INT(G/2) >.9 GOTO 6080
6270 E = INT(50 *14/(CH -1) *100/W%):A$ = "Marcos then asks you:\" +Q$ +"How about a Shield. Here's one for\only " + STR$(E) +" GP!" +Q$ +" You answer...(Y/N) ": GOSUB 550
6280 GET H$: ON H$ < >"Y" AND H$ < >"N" GOTO 6280: IF H$ = "N" GOTO 6080
6285 IF E >C THEN E% = E: GOTO 6140
6290 A$ = "Marcos hands you your new Shield after\you give him the " + STR$(E) +" Gold Pieces.": GOSUB 550:N = 2000: GOSUB 9350:C = C -E:G = 2 * INT(G/2) +1: GOTO 6080
6300 W = 1: ON A% <2 GOTO 6330:A$ = Q$ +"Sell which?":H = LEN(A$):H0 = 0: FOR I = 1 TO A%:E$ = " <" + STR$(I) +"> " + LEFT$(A$(I),15):H1 = ( LEN(E$) +H >45):E$ = MID$ ("\" +E$,2 -H1):A$ = A$ +E$:H = LEN(E$) +H *( NOT H1):H0 = H0 +H1: NEXT :A$ = A$ +Q$: GOSUB 550:A$ = "You reply...(1-" + STR$(A%) +") ":D = 10 +150 *(H0 >1):A = 22: GOSUB 200
6320 GET H$: ON H$ <"1" OR VAL(H$) >A% GOTO 6320:W = VAL(H$)
6330 E = 10 *D%(W) *(C%(W) +1)/8:WO = 2 ^(B%(W)/10): IF WO >8 THEN WO = 8 + SQR(WO -8)
6340 E = INT(E *WO *W%/100):A$ = Q$ + MID$ ("It's a bit banged-up...I'll have to sharpen itHmm...rusty, some blood",1 +23 * INT(3 * RND(1)),23) +"... I'll give you\" + STR$(E) +" GP for this " + LEFT$(A$(W),23) +",\take it or leave it!":A$ = A$ +Q$ +" You answer...(T/L)": GOSUB 550
6350 GET H$: ON H$ < >"T" AND H$ < >"L" GOTO 6350: IF H$ = "L" THEN A$ = "Marcos says: " +Q$ +"Sorry we can't do business.\Anythin' else I can do for you?" +Q$ +"\You answer...(Y/N) ": GOSUB 550: GOTO 6090
6360 A$ = "Marcos takes your weapon and puts it in\a box in a corner. Then he gives\you your " + STR$(E) +" GP.": GOSUB 550:C = C +E:N = 2000: GOSUB 9350: IF W 5)):A$ = Q$ +"You wan' sell your armor? I'll give you\" + STR$(P) +" GP for it, hokay?" +Q$ +"\You answer...(Y/N)": GOSUB 550
6411 GET H$: ON H$ = "N" GOTO 6450: IF H$ < >"Y" GOTO 6411
6420 A$ = "Marcos gives you your " + STR$(P) +" GP and\drapes your armor over a chair in back.": GOSUB 550:C = C +P:G = G -2 * INT(G/2):N = 1500: GOSUB 9350
6450 IF G -2 * INT(G/2) <.9 GOTO 6080
6460 P = 25 *16/CH *100/W%:P = INT(P):A$ = "Marcos offers: " +Q$ +"Your Shield looks like she'sa\in good shape. I give you " + STR$(P) +" GP for her." +Q$ +"\You answer...(Y/N) ": GOSUB 550
6461 GET H$: ON H$ = "N" GOTO 6080: IF H$ < >"Y" GOTO 6461
6470 A$ = "Marcos accepts your shield and tosses\it in a corner. He then counts out\your " + STR$(P) +" GP.": GOSUB 550:C = C +P:G = 2 * INT(G/2):N = 1500: GOSUB 9350: GOTO 6080
6700 A$ = "Marcos shows you out the door, saying\" +Q$ +"Come backa soon, my friend!" +Q$ +"\[press to leavea the Shop]": GOSUB 550
6730 GET H$: ON H$ < >"L" GOTO 6730: GOSUB 500:K = K +1: GOTO 1000
7000 HOME : HGR : POKE -16302,0: HCOLOR= 3: POKE 233,M%/256: POKE 232,M% -256 * PEEK(233):X = 140:Y = 75: XDRAW 2 -O AT X,Y: FOR J = 1 TO 150: NEXT : FOR I = 10 TO 110 STEP 10: DRAW 2 -O AT X -I,Y: DRAW 2 -O AT X +I,Y: NEXT : ROT= 32:X = X -2:Y = Y +16: FOR I = 0 TO 110 STEP 10: DRAW 2 -O AT X -I,Y: DRAW 2 -O AT X +I,Y: NEXT : ROT= 0:A$ = "Welcome to the Hall of Mirrors,":D = 140 -3 * LEN(A$):A = 120: GOSUB 7950
7001 A$ = "O " + MID$ ("LadyLord",1 +4 *O,4) +" " +B$ +"!":D = 116 -3.5 * LEN(B$):A = 140: GOSUB 7950:A$ = "The Hall of Mirrors":D = 7:A = 42: ROT= 16: GOSUB 7950
7002 HCOLOR= 0:G1% = 15:G2% = 75:G3% = 265:G4% = 160: CALL CB%: HCOLOR= 3: HCOLOR= 3: ROT= 0: HPLOT 115,35 TO 115,61 TO 151,61 TO 151,35 TO 115,35: POKE 233,M%/256: POKE 232,M% -256 * PEEK(233): XDRAW 2 -O AT 135,45: HCOLOR= 3
7006 A$ = " Name: ":Q = 1:D = 20:A = 15: GOSUB 200:Q = 0:A$ = B$:D = 70: GOSUB 200:D = 20:A = 35:A$ = "Hardiness:": GOSUB 200:A = 46:A$ = "Agility:": GOSUB 200:A = 57:A$ = "Charisma"
7007 GOSUB 200:D = 86:A = 35:Q = 1:A$ = " " + STR$(HD) +" ": GOSUB 200:A = 46:A$ = " " + STR$(AG) +" ": GOSUB 200:A = 57:A$ = " " + STR$(CH) +" ": GOSUB 200:Q = 0:D = 20:A = 70:Q = 1
7010 A$ = " Spells ": GOSUB 200:Q = 0:D = 24:CT = 0: FOR S = 1 TO 4: IF E%(S) >0 THEN CT = CT +1:A$ = MID$ ("BlastHeal SpeedPower",S *5 -4,5):A = A +11: GOSUB 200
7165 NEXT : IF CT = 0 THEN A$ = "None":A = A +11: GOSUB 200
7170 D = 90:A = 70:A$ = " Armor ":Q = 1: GOSUB 200:U = INT(G/2):A$ = MID$ ("SkinLeatherChainPlate",1 +4 *U +3 *(U >1) +(U >2),5 +2 *(U = 1) -(U <1)):D = 95:A = 81:Q = 0: GOSUB 200: IF U *2 2) +(WA >3)):A = A +9: GOSUB 200:H = G%(WA)
7181 R = 1 +(H = >0) +(H >10) +(H >20) +(H >35) +(H >60) +(H >75) +(H >82) +(H >92):A$ = MID$ (R$,R *8 -7,7):D = 220: GOSUB 200: NEXT : IF G >0 THEN A$ = "Armor":A = A +9:D = 170: GOSUB 200:H = AE/((G +6 *(G >6))/20):R = 1 +(H = >0) +(H >0) +(H >20) +(H >35) +(H >60) +(H >75) +(H >82) +(H >92):A$ = MID$ (R$,R *8 -7,7):D = 220: GOSUB 200
7190 A$ = " Gold: ":D = 90:A = 105:Q = 1: GOSUB 200:Q = 0:A$ = STR$(C) +" in pocket": IF C = 0 THEN A$ = "You're carrying none!"
7191 D = 131:A = 105: GOSUB 200:A$ = "(" + STR$(F) +" GP in Bank)": IF F <0 THEN A$ = "(Bank loan: " + STR$( -1 *F) +" GP)"
7196 IF F < >0 THEN A = A +10: GOSUB 200
7200 IF A% = 0 THEN D = 80:A = 140:A$ = "You have NO weapons!": GOSUB 200: GOTO 7250
7210 FOR I = 1 TO 4:X(I) = -1E6: NEXT : FOR I = 1 TO A%:X(I) = B%(I) +G%(A%(I)):X(I) = X(I) *C%(I) *.5 *D%(I): NEXT : FOR I = 1 TO 3: FOR J = 3 TO I STEP -1: IF X(J) = >X(J +1) GOTO 7229
7221 T$ = A$(J):A$(J) = A$(J +1):A$(J +1) = T$:X = B%(J):B%(J) = B%(J +1):B%(J +1) = X:X = A%(J):A%(J) = A%(J +1):A%(J +1) = X:X = D%(J):D%(J) = D%(J +1):D%(J +1) = X:X = C%(J):C%(J) = C%(J +1):C%(J +1) = X:X = X(J):X(J) = X(J +1):X(J +1) = X
7229 NEXT J: IF T$ < >"" THEN T$ = "": NEXT I
7240 Q = 1:D = 20:A = 130:A$ = " Weapons ": GOSUB 200:D = 145:A$ = " Quality ": GOSUB 200:D = 210:A$ = " Damage ": GOSUB 200:Q = 0: HCOLOR= 3: HPLOT 78,A +5 TO 144,A +5: HPLOT 199,A +5 TO 209,A +5:A = A +2: FOR W = 1 TO A%:D = 25:A = A +9:A$ = LEFT$(A$(W),15) +" (" + MID$ ("ABCSpSw",A%(W) +(A%(W) >4),1 +(A%(W) >3)) +")": GOSUB 200:D = 160:A$ = STR$( ABS(B%(W)))
7241 A$ = MID$ ("- ",2 -(B%(W) <0),4 - LEN(A$)) +A$ +"%": GOSUB 200:A$ = RIGHT$(" " + STR$(D%(W)),3) +"D" + RIGHT$(" " + STR$(C%(W)),3):D = 220: GOSUB 200: NEXT
7250 D = 70:A = 184:A$ = "Press to leave the Hall": GOSUB 200:R$ = ""
7270 GET H$: ON H$ < >"L" GOTO 7270: GOSUB 500:K = K -1: GOTO 1000
7950 POKE 233,J%/256: POKE 232,J% -256 * PEEK(233): DRAW 100 AT D,A: FOR I = 1 TO LEN(A$):H = ASC( MID$ (A$,I)) -31: IF H <1 OR H >100 GOTO 7995
7980 DRAW H: ON H = 1 GOTO 7994:X = PEEK(249):X = X +32:X = X -64 *(X >250): ROT= X: DRAW 101: DRAW H:X = PEEK(249):X = X -32:X = X +64 *(X <0): ROT= X: DRAW 101: DRAW H
7994 DRAW 99
7995 NEXT : RETURN
8000 POKE 1,GH%/256: POKE 0,GH% -256 * PEEK(1): CALL 2048:D% = 0
8020 G3 = 5:G4 = 163:G5 = 280:G6 = 28:A$ = "Once inside the Guild Hall, you see you can\ go to the Desk, go thru to the Bar,\or Leave. Which do you do?": GOSUB 550:D% = 1
8021 GET H$: ON H$ < >"L" AND H$ < >"B" AND H$ < >"D" GOTO 8021: ON H$ = "B" GOTO 8800: IF H$ = "L" GOTO 8900
8030 POKE 1,Z%/256: POKE 0,Z% -256 * PEEK(1): CALL 2051:A$ = "Your friend the Irishman says:\" +Q$ +"Did ye wan' ta take a room an' rest\ fer a bit?" +Q$ +" You answer...(Y/N)": GOSUB 550
8031 GET H$: ON H$ < >"Y" AND H$ < >"N" GOTO 8031: IF H$ = "N" THEN A$ = "He smiles at you and says: " +Q$ +"Well then! Get\yerself out in the Hall and have some fun!" +Q$ +"\[press to Leave the Guild Hall]": GOSUB 550: FOR I = 0 TO 1: GET H$:I = (H$ = "L"): NEXT : GOTO 8900
8040 A$ = "The Irishman says: " +Q$ +"If ye wan' ta leave\the Main Hall, just sign me book, la" + MID$ ("ddss",3 -2 *O,2) +"ie." +Q$ +"\ to Sign, to Change your mind...": GOSUB 550
8041 GET H$: ON H$ = "C" GOTO 8020: ON H$ < >"S" GOTO 8041:A$ = "You sign the book and take your room key;\the elevator doors open, and you ride\it to your well-earned nap.": GOSUB 550: GOSUB 8100: PRINT : GOSUB 9500: HOME : TEXT : VTAB 10:A$ = "INSERT NEW DISK TO BOOT,": GOSUB 290: PRINT :A$ = "OR": GOSUB 290: PRINT
8042 A$ = "LEAVE SUPER-EAMON IN DRIVE": GOSUB 290: PRINT :A$ = "FOR MORE ADVENTURING": GOSUB 290: VTAB 20:A$ = "PRESS WHEN READY": GOSUB 290: FOR I = 0 TO 1:I = ( PEEK(KB) = 141): NEXT : POKE CK,0: PRINT : CALL -1370
8100 H = 14:T = 37:B = 96: FOR I = 0 TO 31: HCOLOR= 3: HPLOT H +I,T TO H +I,B: IF I <15 THEN HPLOT H -I,T TO H -I,B: IF I >5 THEN HCOLOR= 0: HPLOT H -I,65 +I: IF I = 6 THEN HPLOT H -6,T TO H -6,71
8111 HCOLOR= 0: HPLOT H +I,70: IF I <6 THEN HPLOT H -I,70
8115 NEXT : RETURN
8800 PRINT : GOSUB 350: POKE 1,T%/256: POKE 0,T% -256 * PEEK(1): CALL 2048:L = 7: GOTO 11050
8900 GOSUB 500:K = K -1: GOTO 1000
9200 DIM E%(4),G%(6),A$(4),A%(4),B%(4),D%(4),C%(4): PRINT : PRINT D$"OPEN THE ADVENTURER": PRINT D$"READ THE ADVENTURER": INPUT B$: INPUT RC: PRINT D$"CLOSE": PRINT D$"OPEN ADVENTURERS,L220": PRINT D$"READ ADVENTURERS,R"0: INPUT NC: PRINT D$: DIM F%(NC +26),A(NC +10),B$(8): PRINT D$"READ ADVENTURERS,R"RC: INPUT B$: INPUT ST: INPUT HD,AG,CH
9201 FOR I = 1 TO 4: INPUT E%(I): NEXT : FOR I = 1 TO 5: INPUT G%(I): NEXT : INPUT AE: INPUT G$:O = (G$ = "M"): INPUT C,F:C = INT(C):F = INT(F): INPUT G: FOR W = 1 TO 4: INPUT A$(W),A%(W),B%(W),D%(W),C%(W): IF A$(W) = "" THEN A$(W) = "NONE"
9261 NEXT W: PRINT D$"CLOSE"
9270 FOR I = 1 TO 3: IF A$(I) < >"NONE" OR A$(I +1) = "NONE" THEN NEXT : GOTO 9275
9271 X$ = A$(I):A$(I) = A$(I +1):A$(I +1) = X$:X = A%(I):A%(I) = A%(I +1):A%(I +1) = X:X = B%(I):B%(I) = B%(I +1):B%(I +1) = X:X = D%(I):D%(I) = D%(I +1):D%(I +1) = X:X = C%(I):C%(I) = C%(I +1):C%(I +1) = X: GOTO 9270
9275 A% = 0: FOR I = 1 TO 4:A% = A% +(A$(I) < >"NONE"): NEXT :C% = 0: FOR I = 1 TO 4:C% = C% +(E%(I) >0): NEXT :B% = 75 +50 * RND(1):W% = 90 +20 * RND(1):S% = 85 +30 * RND(1): RETURN
9350 POKE CK,0: FOR H = 1 TO N/4: IF PEEK(KB) <128 THEN NEXT
9399 POKE CK,0: RETURN
9400 HOME : TEXT : VTAB 3: PRINT "YOU ARE THE " MID$ ("MIGHTYFAIR",7 -6 *O,6)" "B$: PRINT : HTAB 5: PRINT "YOU HAVE "C" GOLD PIECES ON YOU.": PRINT : HTAB 5: PRINT "YOU KNOW "C%" SPELLS.": PRINT : PRINT :U = INT(G/2): PRINT "YOU ARE WEARING " MID$ ("NOLEATHERCHAINPLATE",(U = 0) +U *5 -2 *(U = 1),5 +2 *(U = 1) -3 *(U = 0))" ARMOR"
9401 IF G >U *2 THEN HTAB 10: PRINT "AND CARRYING A SHIELD"
9430 PRINT : PRINT "YOU ARE CARRYING "A%" WEAPONS" MID$ (".:",1 +(A% >0),1): IF A% THEN FOR I = 1 TO A%: HTAB 5: PRINT LEFT$(A$(I),30): NEXT
9440 VTAB 22: PRINT " PRESS TO RETURN TO MAIN HALL MAP": FOR I = 0 TO 1:I = ( PEEK(KB) = 155): NEXT : POKE CK,0: POKE -16304,0: RETURN
9500 PRINT : PRINT D$"OPEN ADVENTURERS,L220": PRINT D$"WRITE ADVENTURERS,R"RC: PRINT B$: PRINT ST: GOSUB 9580: PRINT D$"CLOSE": RETURN
9550 PRINT D$"OPEN CHARACTERS,L150": PRINT D$"WRITE CHARACTERS,R1": PRINT CHR$(13) + MID$ (B$,2): GOSUB 9580: PRINT D$"WRITE CHARACTERS,R0": PRINT 1: PRINT D$"CLOSE": RETURN
9580 PRINT HD: PRINT AG: PRINT CH: FOR I = 1 TO 4: PRINT E%(I): NEXT : FOR I = 1 TO 5: PRINT G%(I): NEXT : PRINT AE: PRINT G$: PRINT C: PRINT F: PRINT G: FOR W = 1 TO 4: PRINT A$(W): PRINT A%(W): PRINT B%(W): PRINT D%(W): PRINT C%(W): NEXT W: RETURN
10000 ST = 2: GOSUB 9500: GOSUB 9550: HOME : TEXT : VTAB 8: PRINT "TO GO ON AN ADVENTURE:": PRINT : PRINT " INSERT ADVENTURE DISK AND ";: INVERSE : PRINT "PRESS ": NORMAL : HTAB 37: PRINT "-"
10001 PRINT : PRINT "TO RETURN TO THE MAIN HALL": PRINT : PRINT " KEEP SUPER EAMON IN AND ";: INVERSE : PRINT "PRESS ": NORMAL : HTAB 35: PRINT "-": VTAB 18: PRINT "WHICH "
10016 VTAB 18: HTAB 8: GET H$: ON H$ < >"G" AND H$ < >"M" GOTO 10016: PRINT H$: IF H$ = "M" THEN ST = 1: GOSUB 9500:K = K +8: POKE -16304,0: POKE -16302,0: GOTO 1000
10030 HOME : PRINT D$"OPEN EAMON.NAME": PRINT D$"READ EAMON.NAME": INPUT A$: PRINT D$"CLOSE": VTAB 7: PRINT "AS YOU WALK DOWN THE DARK PATH, A SIGN WARNS YOU OF DANGER AHEAD IN": PRINT : INVERSE : GOSUB 290: NORMAL : PRINT : PRINT "GOOD LUCK, "B$"!!": PRINT D$"OPEN FRESH MEAT": PRINT D$"WRITE FRESH MEAT": PRINT 1: PRINT B$: GOSUB 9580: PRINT D$"CLOSE": POKE 104,8
10031 POKE 103,1: POKE 8 *256,0: PRINT D$"RUN"A$: END
11000 GOSUB 350: POKE 1,U%/256: POKE 0,U% -256 * PEEK(1): CALL 2048:A$ = "entering Side Alley":D = 84:A = 180: GOSUB 200:L = 5
11050 GOSUB 9500: POKE 104,90: POKE 90 *256,0: PRINT D$"RUN SIDE ALLEY,L"L
12000 CALL ER%:N% = PEEK(222): IF N% >253 THEN RESUME
12020 EL% = PEEK(218) +256 * PEEK(219): IF N% >0 AND N% <15 THEN VTAB 20: CALL -958: POKE -16301,0: VTAB 23: INVERSE : PRINT "MAKE SURE SUPER EAMON IS IN DRIVE";: NORMAL : PRINT " AND PRESS KEY...";: GET I$: POKE -16302,0
12030 VTAB 1: RESUME

Text found in Super_Eamon_Alternate.dsk/THE WONDERFUL WORLD OF EAMON.bas:

10 PRINT CHR$(4)"MAXFILES 3": HIMEM: 48640
20 IF PEEK(978) <189 THEN CALL -1370
30 PRINT CHR$(4)"RUN SUPER EAMON"

Text found in Super_Eamon_Alternate.dsk/WEAPONS.bas:

10 D$ = CHR$(4):Q$ = CHR$(34):W = PEEK(768):R% = 7168:O% = 16387:N% = 16384:O = 49152:N = 49168:Y = 49232:M% = 774: ONERR GOTO 12000
20 GOSUB 9200: GOTO 3000
550 H7 = FRE(0): IF J% THEN GOSUB 570
560 G1% = M:G2% = L: POKE 6, ASC("\"): CALL O%:J% = 1: RETURN
570 G1% = M:G2% = L:G4% = L +G6:G3% = M +G5: IF G3% >279 THEN G3% = 279
590 HCOLOR= 7: CALL N%: HCOLOR= 4: RETURN
3000 M = 5:L = 1:G5 = 280:G6 = 28:J% = 1: HOME : VTAB 2: PRINT : PRINT "WHITEY RETURNS AND TELLS YOU:": PRINT " "Q$"YOU CAN HAVE YOUR CHOICE! WHICH OF THESE MONSTERS DO YOU WANT TO FIGHT WITH YOUR " MID$ (B$(W),1,25)"?": PRINT : FOR I = 1 TO 3: RESTORE
3065 X(I) = INT( RND(1) *20) +1: IF I >1 THEN ON X(I) = X(1) GOTO 3065: IF I >2 THEN IF X(I) = X(2) GOTO 3065
3067 FOR J = 1 TO X(I): READ A$(I): NEXT J,I:H = H%(D%(W)):H = H *(H >1) +(H < = 1): FOR I = 1 TO 3:A(I) = G%(W) *F%(W) + INT(20 * RND(1)):E%(I) = INT(6 * RND(1)) +2 *(D >2):C%(I) = INT(2 +8 * RND(1)) +3 *(G%(W) *F%(W) >5):A%(I) = 1 + INT(2 *I * RND(1)): PRINT " "I"> "A%(I)" "A$(I);: IF A%(I) >1 THEN PRINT "S";
3071 B%(I) = 20 +(A(I) +E%(I) *C%(I)/2) *A%(I) *H ^.7 *(.75 +.5 * RND(1)): PRINT : HTAB 15: PRINT "FOR "B%(I)" GP": PRINT :B%(I) = B%(I) +500: NEXT : PRINT : PRINT "PLUS THE USUAL 500 GP DEPOSIT, WHICH YOU WILL GET BACK IF YOU DON'T NEED TO BE RESUSCITATED.": PRINT
3072 PRINT "CHOOSE WHICH YOU WISH TO FIGHT, OR PRESS TO CANCEL THE FIGHT."Q$
3081 X = PEEK(O) -128: ON X <0 GOTO 3081: POKE N,0: ON X = 13 GOTO 3700: ON X < ASC("1") OR X > ASC("3") GOTO 3081:X = X - ASC("0"): IF B to Leave the Training area": GOSUB 550: GOTO 3920
3090 G% = B%(X):B = B -G%: HOME : PRINT : PRINT "WHITEY TAKES THE "G%" GP FROM YOU.":G% = G% -500:A$(1) = A$(X):A(1) = A(X):E%(1) = E%(X):C%(1) = C%(X):B%(1) = 1:C% = A%(X):A%(1) = 0:R$ = A$(1)
3091 IF C% >1 THEN FOR I = 2 TO C%:A$(I) = R$ +" #" + STR$(I):A(I) = A(1):A%(I) = 0:E%(I) = E%(1) *(.9 +.2 * RND(1)):C%(I) = 1 +C%(1) *(.75 +.4 * RND(1)):B%(I) = 1 +( RND(1) >.8): NEXT :A$(1) = R$ +" #1"
3096 A$(0) = B$:A(0) = V:A%(0) = 0:E%(0) = D:B%(0) = F%(W):C%(0) = G%(W):K = D *5 +30 *(D >5): SPEED= 180:E$ = "ATTACK":B% = 0: PRINT : PRINT : PRINT B$" IS FIGHTING "C%: PRINT " "R$ MID$ ("S",1,(C% < >1)): PRINT " USING " MID$ ("HERHIS",1 +3 *U,3)" "B$(W)"!": PRINT
3120 PRINT "ATTACK OR FLEE? ";: INPUT "";H$:C$ = MID$ (H$,1,1): ON C$ < >"A" AND C$ < >"F" AND H$ < >"" GOTO 3120: IF H$ = "" THEN VTAB ( PEEK(37)): HTAB 17: PRINT E$:H$ = E$
3125 E$ = H$: IF C$ = "F" THEN INVERSE : PRINT : PRINT "END BATTLE?";: NORMAL : PRINT " ";: GET H$: PRINT H$: PRINT : ON H$ < >"Y" GOTO 3120:B% = 2: GOTO 3500
3130 D% = 0: IF LEN(H$) >1 THEN D% = VAL( RIGHT$(H$,1)): IF D% >C% THEN PRINT : GOTO 3120
3131 IF D% = 0 THEN FOR I = 1 TO C%:D% = I *(A%(I) A(D%) THEN PRINT : PRINT " THE CORPSE IGNORES YOUR BLOWS!": GOTO 3200
3150 A% = 0: GOSUB 3300
3160 IF B% = 1 THEN PRINT : INVERSE : PRINT "YOU HAVE BEEN KILLED!!!": NORMAL : PRINT " FORTUNATELY, WHITEY HAD ARRANGED FOR A RESUSCITATION TEAM TO STAND BY; THEY HAVE REVIVED YOU, AND YOU ARE NOW FINE.":B% = 0: GOTO 3500
3165 IF B% = 2 THEN PRINT : PRINT "WHITEY INTERRUPTS THE BATTLE WHEN HE SEES YOU HAVE NO WEAPON LEFT.":B$(W) = "NONE": IF W < = E% THEN B$(W) = B$(E%):I%(W) = I%(E%):D%(W) = D%(E%):G%(W) = G%(E%):F%(W) = F%(E%)
3166 IF B% = 2 THEN E% = E% -1: GOTO 3500
3170 C = 0: FOR I = 1 TO C%:C = C +(A%(I) A(A%) GOTO 3249: PRINT : PRINT A$(I)" IS ATTACKING": PRINT " "A$(0)"...";: IF B%(I) <1 THEN PRINT : PRINT " BUT HAS NO WEAPON!": GOTO 3249
3220 GOSUB 3300: IF B% GOTO 3160
3249 NEXT I
3260 C = 0: FOR I = 1 TO C%:C = C +(A%(I) 1));" REMAIN" MID$ ("S",1,(C = 1)): PRINT : GOTO 3120
3300 H = .5: IF A% = 0 THEN H = 0.01 *(I%(W) +2 *T +H%(D%(W))): IF K >E THEN H = H -(K -E)/100
3320 FOR J = 1 TO 100: NEXT : IF H < RND(1) THEN PRINT "A MISS!": GOTO 3399
3330 ON RND(1) >.04 GOTO 3340: PRINT "A FUMBLE!": IF RND(1) <.5 THEN PRINT " "A$(A%)" QUICKLY RECOVERS": GOTO 3399
3331 IF RND(1) <.5 THEN INVERSE : HTAB 4: PRINT "WEAPON BROKEN!": NORMAL :B%(A%) = 0:C%(A%) = 0: ON A% < >0 GOTO 3399:B% = 2: GOTO 3399
3335 G = U *(A% = 0) +2 *(A% >0): PRINT " INJURES "; MID$ ("HERHIMIT",1 +G *3,3)"SELF!":D% = A%:A = B%(A%) *(1 +C%(A%) * RND(1)): ON RND(1) >.2 GOTO 3360:A = A *2: GOTO 3370
3340 ON RND(1) >.05 GOTO 3350: INVERSE : PRINT "CRITICAL HIT!": NORMAL :A = B%(A%) *(1 +C%(A%) * RND(1)): ON RND(1) <.5 GOTO 3370:A = A *1.5: IF RND(1) <.33 THEN A = A *4/3: IF RND(1) <.3 THEN A = A *3/2: IF RND(1) <.2 THEN A = 999
3349 GOTO 3360
3350 A = INT(B%(A%) *(1 +C%(A%) * RND(1))): PRINT "A HIT!"
3360 S = A -E%(D%): IF S < = 0 THEN PRINT " ARMOR ABSORBS BLOW!": GOTO 3390
3370 A%(D%) = A%(D%) +S: IF A%(D%) = >A(D%) THEN B% = (D% = 0): ON B% GOTO 3399: INVERSE : PRINT A$(D%)" IS DEAD!": NORMAL :A$(D%) = "DEAD " +A$(D%): GOTO 3390
3375 G = INT(6 *A%(D%)/A(D%)) +1: PRINT " "A$(D%)" IS " MID$ ("JUST FINE! A BIT SHAKY! HURTING A BITIN MUCH PAIN!LEAKING BLOOD99% DEAD!!!",G *13 -12,13)
3390 IF A% = 0 AND D% < >0 AND A >0 THEN H%(D%(W)) = H%(D%(W)) +2 *( RND(1) >H):E = E +2 *( RND(1) <(K -E)/100)
3399 RETURN
3500 SPEED= 120: PRINT : INVERSE : PRINT "THE FIGHT IS OVER!!!": NORMAL : PRINT : IF B% THEN PRINT "WHITEY RETURNS YOUR 500 GP DEPOSIT.":B = B +500: PRINT
3520 H = (B% = 1) *.75 +(B% = 2) *.25: ON H < RND(1) GOTO 3530:H = 100 *(G% <200): IF H = 0 THEN H = 100 +100 * INT( RND(1) *G%/100)
3525 PRINT "A TELECOM CAMERA CREW (WHICH YOUR ALERT EYE FAILED TO NOTICE EARLIER) GIVES YOU "H" GP FOR YOUR WONDERFUL": PRINT " PERFORMANCE!!!":B = B +H
3530 R$ = "V V LOW#V LOW #LOW #LOW-MED#MEDIUM #MED-HI #HIGH #V HIGH #V V HI": PRINT :H = D%(W): GOSUB 9600: PRINT "YOUR "H$" ABILITY IS NOW ";:H = H%(D%(W)): GOSUB 3590: PRINT MID$ (R$,R *8 -7,7): PRINT : ON D <1 GOTO 3550: PRINT "YOUR ARMOR EXPERTISE IS NOW IN THE":H = 100 *E/(D *5 +30 *(D >5)): GOSUB 3590
3531 H$ = MID$ (R$,R *8 -7,7)
3540 IF RIGHT$(H$,1) = " " THEN H$ = MID$ (H$,1, LEN(H$) -1): GOTO 3540
3545 PRINT " "H$" CATEGORY."
3550 SPEED= 255: PRINT : PRINT "PRESS TO LEAVE THE WEAPONS TRAINING AREA"
3560 X = PEEK(O) -128: ON X < >76 GOTO 3560: GOTO 3900
3590 R = 1 +(H = >0) +(H >10) +(H >20) +(H >35) +(H >60) +(H >75) +(H >82) +(H >92): RETURN
3700 POKE Y,0:A$ = "Whitey says:\" +Q$ +"Glad you could stop by. Good hunting!" +Q$ +"\Press to Leave Whitey's place": GOSUB 550: GOTO 3920
3900 :
3920 GET H$: ON H$ < >"L" GOTO 3920: GOTO 11000
9200 DIM J%(4),H%(6),B$(4),D%(4),I%(4),F%(4),G%(4): PRINT : PRINT D$"OPEN THE ADVENTURER": PRINT D$"READ THE ADVENTURER": INPUT B$: INPUT Q: PRINT D$"CLOSE": PRINT D$"OPEN ADVENTURERS,L220": PRINT D$"READ ADVENTURERS,R"0: INPUT P: PRINT D$: DIM A%(P +25),A(P +8),A$(8),E%(6),B%(6),C%(6): PRINT D$"READ ADVENTURERS,R"Q: INPUT B$: INPUT ST
9201 INPUT V,T,Z: FOR I = 1 TO 4: INPUT J%(I): NEXT : FOR I = 1 TO 5: INPUT H%(I): NEXT : INPUT E: INPUT F$:U = (F$ = "M"): INPUT B,F:B = INT(B):F = INT(F): INPUT D: FOR I = 1 TO 4: INPUT B$(I),D%(I),I%(I),F%(I),G%(I): NEXT I: PRINT D$"CLOSE":H% = 0: FOR I = 1 TO 4:H% = H% +(J%(I) >0): NEXT :E% = 0: FOR I = 1 TO 4: IF B$(I) < >"NONE" AND B$(I) < >"" THEN E% = I: NEXT
9280 W% = 75 +50 * RND(1):S% = 82 +36 * RND(1): RETURN
9360 POKE N,0: FOR H = 1 TO WT/4: IF PEEK(O) <128 THEN NEXT
9399 POKE N,0: RETURN
9500 PRINT : PRINT D$"OPEN ADVENTURERS,L220": PRINT D$"WRITE ADVENTURERS,R"Q: PRINT B$: PRINT ST: GOSUB 9580: PRINT D$"CLOSE": RETURN
9580 PRINT V: PRINT T: PRINT Z: FOR I = 1 TO 4: PRINT J%(I): NEXT : FOR I = 1 TO 5: PRINT H%(I): NEXT : PRINT E: PRINT F$: PRINT B: PRINT F: PRINT D: FOR W = 1 TO 4: PRINT B$(W): PRINT D%(W): PRINT I%(W): PRINT F%(W): PRINT G%(W): NEXT W: RETURN
9600 H$ = MID$ ("AXEBOWCLUBSPEARSWORD",1 +(H -1) *3 +(H = 4) +3 *(H = 5),3 +(H >2) +(H >3)):C$ = MID$ ("AxeBowClubSpearSword",1 +(H -1) *3 +(H = 4) +3 *(H = 5),3 +(H >2) +(H >3)): RETURN
11000 GOSUB 9500: PRINT D$"RUN SIDE ALLEY,L8"
12000 CALL M%:F% = PEEK(222): IF F% >253 THEN RESUME
12020 P% = PEEK(218) +256 * PEEK(219): IF F% >0 AND F% <15 THEN VTAB 20: CALL -958: POKE -16301,0: VTAB 23: INVERSE : PRINT "MAKE SURE SUPER EAMON IS IN DRIVE";: NORMAL : PRINT " AND PRESS KEY...";: GET G$: POKE -16302,0
12030 VTAB 1: RESUME : DATA BLACK PUDDING,CHANEL MIST,BIG BLUE,RED YUCK,VERMICIOUS KNID,DEADLY DOORKNOB,KILLER BUNNY,NONVISIBLE,GLUEY ELMER,REVENOOER,MAD AGENT,MR SLUGGO,HOUSEPLANT,MUCKMOOD,YELLOW PAGE,HIGH WIZARD,SENSES TAKER,BARREL MIMIC,BABY BOLO,CRIMSON DRAGON