]CATALOG
C1982 DSR C#254
T 005 ADV.SOLVE
T 017 ARMOR
T 002 BDATA
T 002 BOARDS
T 004 BRD.MENU
T 004 BUY.INFO
T 009 CASTLE.DES
T 002 CASTLES
B 003 CHAIN
T 003 CNTRL.CHAR
T 004 CONFIG
T 002 DATA
T 001 DOWNS
B 014 DRIVER
B 002 DRIVER DATA
T 010 FACTS
T 006 FEES
A 002 HELLO
T 018 HELP
T 024 HELP.Split Infinity
T 008 INFO
T 012 LEVELS
T 006 MENU
T 003 MENU.ADV
T 002 MODULES
T 008 NEW
T 001 NEWS
T 004 OFF1
T 034 OWNERS HELP
T 007 PGL
T 006 PRELUDE.Split Infinity
T 002 QSCAN
T 002 RANK
A 030 RESET1
T 003 SETVALUES
T 006 SPELLS
A 041 START
T 003 STATS
T 004 TIMESLOTS
T 002 VOTING
T 002 VOTING.TOP
T 017 WEAPONS
] PR#0
]CATALOG
C1982 DSR C#254
A 048 BRD
A 019 CASTLE EDITOR
A 024 CHAT
A 043 COMPLETE EDITOR
A 070 FIGHT
A 031 GA
A 021 JOUST
A 024 MA
A 074 MAIN
A 013 OFF
A 002 START
A 022 STORES
T 001 VC
]PR#0
]CATALOG
C1982 DSR C#254
A 083 ADVENT
A 006 ASTART
T 031 CHAR
T 141 DES
T 004 ITEMS
T 049 MONSTERS
T 122 SHD
T 049 USE
]PR#0
]LIST
5 IF TC$ = "Y" THEN POKE 1014,0: POKE 952,240: POKE 953,253
10 GOSUB 50
20 CALL 54915
30 ONERR GOTO 8700
40 GOTO 8710
50 B$(3) = "strike":B$(4) = "hit":B$(5) = "slam":B$(6) = "rag":B$(7) = "smite":
B$(8) = "slash"
60 RETURN
70 GOSUB 8300:O$ = DL$ + "[T/" + STR$ (TL) + "][?=Menu]->": GOSUB 6000:C$ = "
P"
80 CALL 54915
90 IF EN > 0 THEN EN = EN + 1
100 IF EN = 4 THEN O$ = EL$ + "Kaboom! Well, you killed the Black Adept a
nd destroyed his army but you died in the process. So you haven't really
won. Sorry!" + EL$:R = 30: GOSUB 7000: GOTO 8390
110 PR = R
120 IF I$ < > "B" THEN 200
130 IF I$ = "B" AND MO$ < > "C" THEN O$ = EL$ + "There is Nobody here to Brib
e!": GOSUB 7000: GOTO 70
140 O$ = EL$ + "Enter Amount of Bribe $": GOSUB 6000
150 X = VAL (I$)
160 IF X < 0 OR X > GD THEN O$ = EL$ + YO$ + EL$: GOSUB 7000: GOTO 140
170 GD = GD - X:BR = BR - X
180 IF BR > 0 THEN O$ = EL$ + "Gee thanx. Maybe now I can buy a piece of gum.
I want more!": GOSUB 7000: GOTO 70
190 GOTO 9370
200 IF I$ = "Z" THEN 3500
210 IF I$ = "P" THEN POKE 1,128:O$ = DL$ + "What is it concerning(40 Char. Ma
x)?" + DL$: GOSUB 6000: VTAB (4): PRINT I$:O$ = EL$ + "If I am around I'll answe
r.": GOSUB 7000: HOME : POKE 1,0: GOTO 70
220 IF I$ < > "T" THEN 260
230 IF MO$ < > "C" THEN O$ = EL$ + "There Is Nobody Here!": GOSUB 7000: GOTO
70
240 IF BR > 0 THEN O$ = EL$ + "Give me " + STR$ (BR) + " Gold and I'll talk."
: GOSUB 8540: GOSUB 7000: GOTO 70
250 GOTO 9370
260 IF I$ < > "J" THEN 290
270 IF SH = 0 THEN O$ = EL$ + "There isn't any shop here!": GOSUB 7000: GOTO 7
0
280 J$ = STR$ (SH):A$ = ST$: GOSUB 9570: CALL 35848"STORES"
290 IF I$ = "U" THEN 3130
300 IF I$ = "V" THEN 3680
310 IF I$ = "G" THEN 2960
320 IF I$ = "?" THEN F$ = "MENU.ADV": GOSUB 2880: GOTO 70
330 IF I$ = "D" THEN 3070
340 IF I$ < > "O" THEN 370
350 O$ = EL$ + "Leave the Adventure?->": GOSUB 6000: IF I$ < > "Y" THEN 70
360 GOTO 8390
370 IF I$ = "L" THEN 8710
380 IF CH$ = "" AND I$ = "K" THEN O$ = EL$ + "There isn't a Chest Here!": GOSU
B 7000: GOTO 70
390 IF I$ = "K" THEN 2780
400 IF I$ = "N" OR I$ = "S" OR I$ = "E" OR I$ = "W" THEN 9180
410 IF I$ < > "I" THEN 470
420 O$ = "":Y = 0
430 FOR X = 1 TO 10
440 IF I$(X) < > "Blank" THEN O$ = O$ + EL$ + I$(X):Y = Y + 1
450 NEXT
460 O$ = O$ + DL$ + "You have " + STR$ (10 - Y) + " Spaces Free.": GOSUB 7000:
GOTO 70
470 IF I$ = "Y" THEN GOSUB 2200
480 IF I$ = "C" THEN 1620
490 IF I$ = "H" THEN GOSUB 8650: GOTO 70
500 IF I$ < > "F" THEN EN = EN - 1: GOTO 70
510 IF BR$ = "On" THEN BR$ = "Off": GOTO 530
520 BR$ = "On"
530 O$ = EL$ + "Brief is now " + BR$: GOSUB 7000
540 GOTO 70
550 Y = 0
560 GOSUB 50
570 O$ = EL$ + "You hear footsteps from a nearby room. They are coming in your
direction....." + EL$: GOSUB 7000
580 X = INT (US * RND (1)) + 1
590 PRINT D$"OPENSTATS,L200"C$(15)
600 PRINT D$"READSTATS,R"X
610 INPUT B$(1),B$(2),A1,A2,A3,A4,A5,A6,A7,A8,A9
620 IF A2 < 0 THEN A2 = A2 - (A2 * 2)
630 IF A7 < 0 THEN A7 = A7 - (A7 * 2)
640 S1 = - 1:S2 = - 1
650 PRINT D$"CLOSE"
660 IF Y = 15 THEN O$ = EL$ + "Jeez...Must have been your imagination.": GOSUB
7000: GOTO 70
670 IF B$(2) < > "On" OR B$(1) = "EMPTY" OR B$(1) = "Empty" OR A = X THEN Y =
Y + 1: GOTO 580
680 GOSUB 9610
690 O$ = EL$ + B$(1) + " walks into the room and draws his weapon!"
700 GOSUB 8540: GOSUB 7000
710 O$ = DL$: GOSUB 7000
720 IF AG > A2 THEN O$ = "You get first attack!": GOSUB 7000: GOTO 1090
730 O$ = "He gets first Attack!": GOSUB 7000
740 O$ = DL$: GOSUB 7000:X = INT (3 * RND (1)) + 1: IF X = 2 THEN 1870
750 IF A2 > 50 THEN 890
760 G(1) = A3 + A2
770 G(2) = INT ((WE + AG) * RND (1)) + 1
780 AM = INT ((A7 + A2 + (2 * MP)) * RND (1)) + 1: IF AR > AM THEN O$ = "Your
" + AM$ + " Absorbes the Damage!": GOSUB 8540: GOSUB 7000: GOTO 1090
790 IF G(2) < G(1) THEN 890
800 X = INT (5 * RND (1)) + 1
810 IF X = 1 THEN O$ = B$(1) + " swings at you with his " + MW$ + " and misses
!"
820 IF X = 2 THEN O$ = "You duck skillfully under his blow!"
830 IF X = 3 THEN O$ = "He swings at you but you jump nimbly aside!"
840 IF X = 4 THEN O$ = B$(1) + "s " + MW$ + " flies over your head just missin
g you!"
850 IF X = 5 THEN O$ = "His weapon misses you by a mile!"
860 GOSUB 8540
870 GOSUB 7000
880 GOTO 1090
890 G(3) = (A7 / 25) + 1:G(3) = (G(3) * MP)
900 G(8) = 0
910 G(5) = G(3) * (AP * (1 / 100))
920 G(3) = G(3) - G(5)
930 G(4) = G(3) / 4:G(3) = G(3) - (G(4) * RND (1)) + G(4)
940 G(3) = INT (G(3))
950 X = INT (5 * RND (1)) + 3
960 IF G(6) > 0 THEN G(6) = G(6) - 1:G(3) = INT (G(3) - (G(3) / 3))
970 IF G(8) = 0 THEN 990
980 IF MO$ = "Y" THEN O$ = B$(1) + " casts a " + S$(G(8)) + " spell which " +
B$(X) + "s you doing " + STR$ (G(3)) + " damage.": GOSUB 8540: GOSUB 7000: GOTO
1020
990 O$ = B$(1) + " " + B$(X) + "s you with his " + MW$ + " doing " + STR$ (G(3
)) + " damage."
1000 GOSUB 8540
1010 GOSUB 7000
1020 HP = HP - G(3): IF HP > 0 THEN 1090
1030 O$ = DL$ + B$(1) + " has killed you!" + DL$ + "He gets all your gold!" + E
L$
1040 GOSUB 7000
1050 IF S1 < 0 THEN O$ = EL$ + "Your Lucky! You don't get logged off if you
are killed by another user.": GOSUB 7000:HP = TH:PO = TP: GOTO 70
1060 GD = 0: IF B$ = "Y" AND B$(1) = "A Black Adept" THEN O$ = EL$ + "You have
been Resurrected!" + EL$ + EL$ + "You feel your body shit positions..." + EL$ +
EL$ + "[Press Return]":CR = 1: GOSUB 7000: GOSUB 8000:B$ = "N":HP = TH:PO = TP:R
= 30:B$(1) = "": GOTO 10
1070 IF B$ = "Y" THEN O$ = EL$ + "You have been Resurrected!": GOSUB 7000:FI$
= "On":B$ = "N":HP = TH:PO = TP: GOTO 70
1080 R = 30: GOTO 8390
1090 O$ = DL$ + "F)ight C)ast R)un H)ealth S)tats->": GOSUB 6000:C$ = "W"
1100 IF I$ = "R" THEN O$ = EL$ + "You throw down all your gold to divert the
creature and take off!" + DL$:GD = 0: GOSUB 7000:R = PN: GOTO 8710
1110 IF I$ = "S" THEN GOSUB 2200
1120 IF I$ = "H" THEN GOSUB 8650: GOTO 1090
1130 IF I$ = "F" THEN O$ = EL$: GOSUB 7000: GOTO 1160
1140 IF I$ = "C" THEN 1620
1150 GOTO 1090
1160 IF AG > 50 THEN 1300
1170 G(1) = WE + AG
1180 G(2) = INT ((A3 + A2) * RND (1)) + 1
1190 AM = INT ((ST + AG + (2 * HT)) * RND (1)) + 1: IF A4 > AM THEN O$ = "His
" + MH$ + " Absorbes the Damage!": GOSUB 8540: GOSUB 7000: GOTO 740
1200 IF G(1) > G(2) THEN 1300
1210 X = INT (5 * RND (1)) + 1
1220 IF X = 1 THEN O$ = "You swing at him with your " + WP$ + " but he jumps n
imbly aside."
1230 IF X = 2 THEN O$ = "He ducks skillfully under your blow!"
1240 IF X = 3 THEN O$ = "You lunge at him but he ducks under your blow!"
1250 IF X = 4 THEN O$ = "Your " + WP$ + " misses him by a mile!"
1260 IF X = 5 THEN O$ = "Your " + WP$ + " flies over his head!"
1270 GOSUB 8540
1280 GOSUB 7000
1290 GOTO 740
1300 G(3) = (ST / 25) + 1:G(3) = (G(3) * HT)
1310 G(5) = G(3) * (MH * (1 / 100))
1320 G(3) = G(3) - G(5)
1330 G(4) = G(3) / 4:G(3) = G(3) - (G(4) * RND (1)) + G(4)
1340 G(3) = INT (G(3))
1350 X = INT (6 * RND (1)) + 3
1360 IF I$ = "C" THEN O$ = "Your " + S$(Y) + " spell " + B$(X) + "s the monste
r doing " + STR$ (G(3)) + " damage!": GOSUB 8540: GOSUB 7000: GOTO 1400
1370 O$ = "You " + B$(X) + " him with your " + WP$ + " doing " + STR$ (G(3)) +
" damage!"
1380 GOSUB 8540
1390 GOSUB 7000
1400 A9 = A9 - G(3): IF A9 > 0 THEN 740
1410 O$ = DL$ + "You've killed " + B$(1) + "!" + EL$
1420 O$ = O$ + EL$ + "You gain " + STR$ (A6) + " gold and " + STR$ (A5) + " e
xp!" + EL$: GOSUB 7000
1430 GD = GD + A6:EX = EX + A5:A9 = A8:A6 = 0:B$(2) = "Dead"
1440 O$ = EL$: GOSUB 7000
1450 IF D5 < 1 THEN 1470
1460 MF$ = MF$ + STR$ (1000 - R)
1470 GOTO 70
1480 X = (X * 20) + 1
1490 X = INT (20 * RND (1)) + X
1500 GOSUB 50
1510 IF D5 = - 11 AND I$ = "GUARD" THEN RETURN
1520 PRINT D$"OPENMONSTERS,L60"C$(9)
1530 PRINT D$"READMONSTERS,R"X
1540 INPUT B$(1),A7,A2,A8,A3,A4,A6,S1,S2,A9
1550 PRINT D$"CLOSE"
1560 A5 = (((A9 / TH) * 8) / 100) * EX:A5 = INT (A5) + 100
1570 NE$ = "N"
1580 GOSUB 9610
1590 IF I$ = "Black Adept" THEN B$(1) = I$:A9 = A9 * 3
1600 IF I$ = "GUARD" THEN B$(1) = "Guard"
1610 O$ = EL$ + "A vicious " + B$(1) + " attacks you!": GOSUB 8540: GOSUB 7000:
B$(1) = "A " + B$(1): GOTO 710
1620 IF NE$ = "Y" THEN O$ = EL$ + "Sorry, Negate has been activated. All spe
lls are impotent.": GOSUB 7000: GOTO 1090
1630 O$ = EL$ + "Cast(?): ": GOSUB 6000
1640 IF I$ < > "?" THEN O$ = I$: GOSUB 9620: GOTO 1690
1650 O$ = EL$ + "Name / Quantity / Power Required" + EL$ + "-------------------
-------------" + DL$: GOSUB 7000
1660 FOR X = 1 TO SN: IF S(X) > 0 THEN O$ = S$(X) + "-" + STR$ (S(X)) + " ("
+ STR$ (X * 2) + ")" + EL$: GOSUB 7000
1670 NEXT
1680 GOTO 1620
1690 FOR X = 1 TO SN: IF S$(X) = B$(0) THEN 1720
1700 NEXT
1710 O$ = EL$ + "There is no such spell!": GOSUB 7000: GOTO 8680
1720 IF S(X) = 0 THEN O$ = EL$ + "You don't have that spell!": GOSUB 7000: GOT
O 8680
1730 IF B$(1) = "A Black Adept" THEN O$ = EL$ + "Your spells don't seem to wor
k on the Black Adept!" + EL$: GOSUB 7000: GOTO 1090
1740 IF C$ = "P" AND U(X) < > 0 THEN O$ = EL$ + "Not a Peace Time spell!": GO
SUB 7000: GOTO 70
1750 IF C$ = "P" THEN 1970
1760 IF S$(X) = "Death" OR S$(X) = "Teleport" OR S$(X) = "Negate" THEN 1780
1770 IF U(X) < 1 THEN O$ = EL$ + "Not a Battle spell!": GOSUB 7000: GOTO 1090
1780 IF PO < (X * 2) THEN O$ = EL$ + "You don't have enough power!": GOSUB 700
0: GOTO 1090
1790 PO = PO - (X * 2)
1800 S(X) = S(X) - 1
1810 O$ = EL$ + "Alakazam!" + DL$: GOSUB 7000:I$ = "C"
1820 IF S$(X) = "Teleport" THEN R = PN: GOTO 8710
1830 Y = X
1840 IF S$(X) = "Death" THEN G(3) = A9 / 2: GOTO 1340
1850 IF S$(X) = "Negate" THEN NE$ = "Y":O$ = "Negate has been activated. All
magical spells are impotent for the duration of this battle.": GOSUB 7000: GOTO
760
1860 G(3) = (WI / 25) + 1:G(3) = (G(3) * U(X)): GOTO 1310
1870 IF S1 < 2 OR S2 < 2 OR NE$ = "Y" THEN 760
1880 G(8) = 0
1890 IF S1 < 2 THEN G(8) = S2
1900 IF S2 < 2 THEN G(8) = S1
1910 IF G(8) < > 0 THEN 1950
1920 X = INT (2 * RND (1)) + 1
1930 IF X = 1 THEN G(8) = S1
1940 IF X = 2 THEN G(8) = S2
1950 IF S$(G(8)) = "Death" THEN G(3) = HP / 2: GOTO 940
1960 G(3) = (A8 / 25) + 1:G(3) = (G(3) * U(G(8))): GOTO 910
1970 IF PO < (X * 2) THEN O$ = EL$ + "You don't have enough power!": GOSUB 700
0: GOTO 70
1980 IF B$ = "Y" AND S$(X) = "Resurrect" THEN O$ = EL$ + "Resurrect has alread
y been Activated." + EL$: GOSUB 7000: GOTO 70
1990 PO = PO - (X * 2):S(X) = S(X) - 1
2000 O$ = EL$ + "Alakazam!!!" + EL$: GOSUB 7000
2010 IF S$(X) = "Inviso" THEN G(0) = G(0) + 15:O$ = EL$ + "Inviso has been Act
ivated" + DL$ + "Estimated lasting time [" + STR$ (G(0)) + "] Moves": GOSUB 700
0: GOTO 70
2020 IF S$(X) < > "Protect" AND S$(X) < > "Super Protect" THEN 2060
2030 IF S$(X) = "Protect" THEN G(6) = G(6) + 10:O$ = "Protect "
2040 IF S$(X) = "Super Protect" THEN G(6) = G(6) + 20:O$ = "Super Protect "
2050 O$ = EL$ + O$ + "has been Activated" + DL$ + "Estimated Lasting Time [" +
STR$ (G(6)) + "] Hits": GOSUB 7000: GOTO 70
2060 IF S$(X) = "Resurrect" THEN B$ = "Y":O$ = EL$ + "Resurrect has been Activ
ated." + EL$: GOSUB 7000: GOTO 70
2070 IF S$(X) = "Super Increase" THEN HP = TH * 2:PO = TP * 2:O$ = EL$ + "Hit
Points = " + STR$ (HP) + "!" + DL$ + "Power = " + STR$ (PO) + "!" + EL$: GOSUB
7000: GOTO 70
2080 IF S$(X) < > "Increase" THEN 2130
2090 O$ = EL$ + "[H/it points-P/ower]->": GOSUB 6000: IF I$ < > "H" AND I$ <
> "P" THEN 2090
2100 IF I$ = "H" THEN HP = TH * 2:O$ = EL$ + "Hit points = " + STR$ (HP)
2110 IF I$ = "P" THEN PO = TP * 2:O$ = EL$ + "Power = " + STR$ (PO)
2120 O$ = O$ + "!": GOSUB 7000: GOTO 70
2130 IF S$(X) = "Cure Light Wounds" THEN G(3) = INT (10 * RND (1)) + 1:G(4)
= INT (10 * RND (1)) + 1
2140 IF S$(X) = "Cure Severe Wounds" THEN G(3) = INT (20 * RND (1)) + 10:G(4
) = INT (20 * RND (1)) + 10
2150 IF S$(X) = "Cure All Wounds" THEN HP = TH:PO = TP:O$ = EL$ + "All hit poi
nts and power restored!": GOSUB 7000: GOTO 70
2160 O$ = EL$ + "Hit points +" + STR$ (G(3)) + DL$ + "Power +" + STR$ (G(4)):
HP = HP + G(3):PO = PO + G(4): IF HP > TH THEN HP = TH
2170 IF PO > TP THEN PO = TP
2180 GOSUB 7000
2190 GOTO 70
2200 O$ = EL$ + "Strength: " + STR$ (ST) + EL$ + "Wisdom: " + STR$ (WI) + EL$
+ "Agility: " + STR$ (AG) + EL$ + "Intelligence: " + STR$ (CH) + EL$ + EL$ +
"Gold: " + STR$ (GD) + EL$ + "Exp: " + STR$ (EX) + EL$ + EL$ + "Weapon: " + WP
$ + EL$ + "Armor: " + AM$ + EL$
2210 O$ = O$ + EL$ + "Protection Left: " + STR$ (G(6)) + " Hits"
2220 O$ = O$ + EL$ + "Inviso Left: " + STR$ (G(0)) + " Moves"
2230 O$ = O$ + EL$ + "Ressurect: ": IF B$ = "Y" THEN O$ = O$ + "On": GOTO 2250
2240 O$ = O$ + "Off"
2250 O$ = O$ + EL$: GOSUB 7000
2260 RETURN
2270 B$(0) = "There is a Force Field to the "
2280 IF D1 < 0 THEN O$ = EL$ + B$(0) + "North." + EL$: GOSUB 7000
2290 IF D2 < 0 THEN O$ = EL$ + B$(0) + "South." + EL$: GOSUB 7000
2300 IF D3 < 0 THEN O$ = EL$ + B$(0) + "West." + EL$: GOSUB 7000
2310 IF D4 < 0 THEN O$ = EL$ + B$(0) + "East." + EL$: GOSUB 7000
2320 IF LEN (OB$) = 0 THEN 2370
2330 FOR X = 1 TO 10
2340 IF I$(X) = OB$ OR OB$ = WP$ OR OB$ = AM$ THEN O$ = "": GOTO 2370
2350 NEXT
2360 O$ = EL$ + "There is a " + OB$ + " lying on the ground." + EL$: GOSUB 8540
: GOSUB 7000
2370 IF I$ = "L" AND CH$ = "Y" THEN O$ = EL$ + "There is a Chest in the Room."
+ EL$: GOSUB 7000
2380 IF MO$ = "C" AND I$ = "L" THEN O$ = EL$ + "There is a " + TR$ + " in the
Room." + EL$: GOSUB 8540: GOSUB 7000
2390 IF I$ = "L" THEN 70
2400 IF D5 = - 8 AND B$ = "Y" THEN B$(1) = "A Black Adept": GOTO 1060
2410 IF D5 = - 8 THEN O$ = EL$ + "You Are Dead!" + EL$: GOSUB 7000: GOTO 1080
2420 IF D5 < 1 OR D5 > 199 THEN 2480
2430 IF LEN (MF$) < 3 THEN 2470
2440 FOR X = 1 TO LEN (MF$) STEP 3
2450 IF VAL ( MID$ (MF$,X,3)) = 1000 - R THEN X = 11:I$ = "": GOTO 2630
2460 NEXT
2470 IF D5 > 0 THEN MO$ = "Y":X = D5: GOTO 1500
2480 CH$ = "":X = INT (35 * RND (1)) + 1
2490 IF D5 = - 1 THEN X = 11
2500 IF D5 < > - 2 THEN 2560
2510 IF LEN (TF$) < 3 THEN 2550
2520 FOR X = 1 TO LEN (TF$) STEP 3
2530 IF VAL ( MID$ (TF$,X,3)) = 1000 - R THEN X = 11:I$ = "": GOTO 2560
2540 NEXT
2550 X = 22
2560 IF D5 = - 3 OR D5 = - 7 THEN X = 29
2570 IF D5 = - 4 THEN X = 35
2580 IF D5 = - 5 THEN X = 1
2590 IF D5 = - 14 THEN X = L - 1:I$ = "Black Adept": GOSUB 1480:D5 = X: GOTO
2430
2600 IF D5 = - 11 THEN X = L - 1:I$ = "GUARD": GOSUB 1480:D5 = X: GOTO 2430
2610 IF D5 > 199 THEN MO$ = "Y": GOTO 9370
2620 IF ((X > 0 AND X < 11) OR (X > 30 AND X < 36)) AND D5 < > - 5 AND D5 <
> - 4 AND G(0) > 0 THEN X = 11
2630 IF X > 0 AND X < 11 THEN X = L - 1:MO$ = "Y": GOTO 1480
2640 IF X > 10 AND X < 21 THEN 70
2650 B(0) = X
2660 X = L * L * 10
2670 Y = X / 2
2680 K = INT (Y * RND (1)) + (X - (X / 2))
2690 T = INT (LE * L + 1)
2700 IF B(1) = - 99 THEN B(1) = 0: RETURN
2710 IF B(0) > 20 AND B(0) < 26 THEN CH$ = "Y":O$ = EL$ + "There is a Chest In
the Room.": GOSUB 7000: GOTO 70
2720 IF B(0) > 30 AND B(0) < 36 THEN MO$ = "": GOTO 550
2730 O$ = EL$ + "You walk into a Trap!": GOSUB 7000
2740 IF D5 = - 7 THEN 2770
2750 B(0) = INT (100 * RND (1)) + 1
2760 IF AG > B(0) THEN O$ = DL$ + "You quickly jump aside!": GOSUB 7000: GOTO
70
2770 B(0) = 2: GOTO 2840
2780 B(0) = INT (3 * RND (1)) + 1
2790 O$ = EL$ + "You open the Chest!":CH$ = "": GOSUB 7000
2800 B(1) = - 99: GOSUB 2660
2810 O$ = DL$ + "You find "
2820 IF D5 = - 2 THEN B(0) = 1:TF$ = TF$ + STR$ (1000 - R)
2830 IF B(0) = 1 THEN K = K * L * L * 5:O$ = O$ + "Treasure!" + DL$ + "Gold +
" + STR$ (K):GD = GD + K: GOSUB 7000: GOTO 70
2840 IF B(0) = 2 THEN O$ = DL$ + "There is an Explosion!" + DL$ + "Hit Points
-" + STR$ (T):HP = HP - T: GOSUB 7000: IF HP < 1 THEN HP = 0:MO$ = "Y": IF HP =
0 THEN O$ = DL$ + "You are Dead!": GOSUB 7000: GOTO 1070
2850 IF B(0) = 2 THEN X = INT (5 * RND (1)) + 1: IF X = 3 OR D5 = - 7 THEN
O$ = DL$ + "You Are Poisoned!":PO$ = "Y": GOSUB 7000
2860 IF B(0) = 2 THEN 70
2870 O$ = O$ + "Ash!" + DL$ + "Hit Points + " + STR$ (T):HP = HP + T: GOSUB 70
00: GOTO 70
2880 PRINT D$"OPEN"F$C$(17)
2890 PRINT D$"READ"F$
2900 & C: IF PEEK (960) = PEEK (971) AND RT < > 3 THEN POKE 960,0: GOTO 29
00
2910 IF PEEK (960) = PEEK (970) AND RT = 5 THEN POKE 960,0: GOTO 2900
2920 PRINT CHR$ (4)"CLOSE": IF PEEK (960) = 255 THEN 60
2930 IF PEEK (960) = PEEK (970) THEN POKE 960,3:O$ = EL$: GOTO 7000
2940 IF PEEK (960) = PEEK (971) THEN POKE 960,2
2950 RETURN
2960 IF LEN (OB$) = 0 THEN O$ = EL$ + "There is Nothing to Get!": GOSUB 7000:
GOTO 70
2970 IF LEN (OB$) < 7 THEN 3010
2980 FOR X = 1 TO SN
2990 IF S$(X) = LEFT$ (OB$, LEN (OB$) - 6) THEN 3050
3000 NEXT
3010 FOR X = 1 TO 10: IF I$(X) = "Blank" THEN 3040
3020 NEXT
3030 O$ = EL$ + "You can't Carry any more!": GOSUB 7000: GOTO 70
3040 O$ = EL$ + "You Get the " + OB$ + ".": GOSUB 8540: GOSUB 7000:I$(X) = OB$:
OB$ = "":AB$ = "": GOTO 70
3050 IF S(X) > 8 THEN O$ = EL$ + "You can't have more than 9 of any Spel
l!": GOSUB 7000: GOTO 70
3060 S(X) = S(X) + 1:O$ = EL$ + "You pick up the " + OB$ + " and quickly learn
it.":OB$ = "": GOSUB 8540: GOSUB 7000:FS$ = FS$ + STR$ (1000 - R): GOTO 70
3070 O$ = EL$ + "What?:": GOSUB 6000:O$ = I$: GOSUB 9620:I$ = B$(0)
3080 FOR X = 1 TO 10
3090 IF I$(X) = I$ THEN 3120
3100 NEXT
3110 O$ = EL$ + "You don't have that item!": GOSUB 7000: GOTO 70
3120 O$ = EL$ + "As you drop the " + I$(X) + " it dissapears!":I$(X) = "Blank":
GOSUB 8540: GOSUB 7000: GOTO 70
3130 O$ = EL$ + "Use What?->": GOSUB 6000:O$ = I$: GOSUB 9620:I$ = B$(0)
3140 FOR X = 1 TO 10
3150 IF I$(X) = I$ THEN 3180
3160 NEXT
3170 O$ = EL$ + "You Don't have that Item!": GOSUB 7000: GOTO 70
3180 IF I$ = "Bottle Of Holy Water" THEN O$ = EL$ + "You open the bottle and d
rink deeply. You feel faint, and briefly pass out. When you awake, the bottl
e is gone.":HP = TH * 3:PO = TP * 3: GOSUB 7000:I$(X) = "Blank": GOTO 70
3190 IF R = 85 AND I$ = "Thermonuclear Bomb" THEN EN = 1
3200 IF I$ = "Magic Potion" THEN O$ = EL$ + "You open the bottle and drink dep
ly. A Brief warmth comes over your body. The bottle then dissapears.":PO$ = "N
":I$(X) = "Blank": GOSUB 7000: GOTO 70
3210 IF I$ < > "Box Of Teleportation" THEN 3280
3220 O$ = EL$ + "A) Set Coordinates" + EL$ + "B) Teleport" + DL$ + "Which(Q=Qui
t)->": GOSUB 6000: IF I$ = "Q" THEN 70
3230 IF I$ < > "A" AND I$ < > "B" THEN 3220
3240 IF I$ = "B" AND TC = 0 THEN O$ = EL$ + "You have not set the coordinates
for a location yet!": GOSUB 7000: GOTO 70
3250 IF EN > 0 AND I$ = "B" THEN O$ = EL$ + "Bleep....Oh NO! Something is aff
ecting the Box! It won't work!": GOSUB 7000: GOTO 70
3260 IF I$ = "B" THEN R = TC:O$ = EL$ + "Poof!" + EL$: GOSUB 7000: GOTO 8710
3270 IF I$ = "A" THEN TC = R:O$ = EL$ + "You set the Coordinates for this room
.": GOSUB 7000: GOTO 70
3280 IF I$ < > BO$ THEN O$ = EL$ + "Nothing Happens.": GOSUB 7000: GOTO 70
3290 PRINT D$"OPENUSE,L110"C$(29)
3300 PRINT D$"READUSE,R"R
3310 INPUT D6,D7,D8,D9,RR,AB$,B$(0),O$,A$(0)
3320 PRINT D$"CLOSE"
3330 O$ = EL$ + O$ + EL$ + A$(0) + EL$: GOSUB 7000
3340 IF B$(0) < > "N" THEN 3370
3350 FOR X = 1 TO 10: IF I$(X) = I$ THEN I$(X) = "Blank"
3360 NEXT
3370 IF LEN (AB$) = 0 THEN 3430
3380 IF RIGHT$ (AB$,5) = "Spell" AND LEN (FS$) > 0 THEN MO$ = "SC": GOSUB 89
90:MO$ = "C": IF LEN (AB$) = 0 THEN 3430
3390 FOR X = 1 TO 10
3400 IF I$(X) = AB$ THEN 3440
3410 NEXT
3420 O$ = EL$ + "A " + AB$ + " Appears at your feet.": GOSUB 8540: GOSUB 7000:O
B$ = AB$
3430 B$(1) = "A Exit Opens up to the "
3440 IF D6 < > 0 THEN D1 = D6:O$ = EL$ + B$(1) + "North." + EL$: GOSUB 7000
3450 IF D7 < > 0 THEN D2 = D7:O$ = EL$ + B$(1) + "South." + EL$: GOSUB 7000
3460 IF D8 < > 0 THEN D3 = D8:O$ = EL$ + B$(1) + "West." + EL$: GOSUB 7000
3470 IF D9 < > 0 THEN D4 = D9:O$ = EL$ + B$(1) + "East." + EL$: GOSUB 7000
3480 IF RR = R THEN 70
3490 R = RR:O$ = EL$: GOSUB 7000: GOTO 8710
3500 O$ = EL$ + "Equip with what Item?->": GOSUB 6000:O$ = I$: GOSUB 9620:I$ =
B$(0)
3510 FOR X = 1 TO 10
3520 IF I$ = I$(X) THEN 3550
3530 NEXT
3540 O$ = EL$ + "You don't have that Item!": GOSUB 7000: GOTO 70
3550 Y = X
3560 PRINT D$"OPENWEAPONS,L40"C$(19)
3570 FOR X = 1 TO WN
3580 PRINT D$"READWEAPONS,R"X: INPUT B$(0),T,T: IF B$(0) = I$(Y) THEN I$(Y) =
WP$:WE = X:HT = T: PRINT D$"CLOSE": GOTO 3670
3590 NEXT X
3600 PRINT D$"CLOSE"
3610 PRINT D$"OPENARMOR,L40"C$(1)
3620 FOR X = 1 TO AN
3630 PRINT D$"READARMOR,R"X: INPUT B$(0),T,T: IF B$(0) = I$(Y) THEN I$(Y) = AM
$:AR = X:AP = T: PRINT D$"CLOSE": GOTO 3670
3640 NEXT
3650 PRINT D$"CLOSE"
3660 O$ = EL$ + "That's not a Weapon or an Armor!": GOSUB 7000: GOTO 70
3670 O$ = EL$ + "Equipment transfer complete.": GOSUB 7000: GOTO 70
3680 O$ = EL$ + "Say What?->": GOSUB 6000:O$ = I$: GOSUB 9620:I$ = B$(0)
3690 IF RIGHT$ (N$,3) < > "Inn" THEN 3810
3700 X = VAL (I$): IF X < 1 OR X > 5 THEN O$ = EL$ + "Sorry, you can't stay lo
nger than 5 hours.": GOSUB 7000: GOTO 70
3710 IF X > TL THEN O$ = EL$ + "You don't have that much time left!": GOSUB 70
00: GOTO 70
3720 O$ = EL$ + "The Manager nods and takes you to your room. You quickly fal
l asleep." + DL$: GOSUB 7000
3730 FOR Y = 1 TO X:O$ = "zzzzz....": GOSUB 7000: FOR T = 1 TO 500: NEXT T: NE
XT Y
3740 FOR Y = 1 TO X
3750 HP = HP + (TH / 5):PO = PO + (TP / 5)
3760 NEXT
3770 TI = TI - X: IF HP > TH THEN HP = TH
3780 IF PO > TP THEN PO = TP
3790 HP = INT (HP):PO = INT (PO)
3800 O$ = DL$ + "You wake up refreshed and ready to take on the world!": GOSUB
7000: GOTO 70
3810 IF LEN (BO$) = 0 OR LEFT$ (BO$,1) < > "#" THEN O$ = EL$ + "Nothing Hap
pens.": GOSUB 7000: GOTO 70
3820 I$ = "#" + I$
3830 GOTO 3280
6000 GOSUB 7000: GOSUB 8000: RETURN
7000 & B / O$: RETURN
8000 CC = 0: IF PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
8539:CF = 9
8010 IF CF = 9 AND PEEK (1) < > 128 THEN CF = 1:CA$ = "Y"
8020 IF CA$ < > "Y" OR LEN (CN$) > 1 THEN 8040
8030 IF CF = 1 THEN CALL 38539
8040 IF PEEK (1) = 128 THEN 8140
8050 IF LEN (CN$) = 0 THEN 8140
8060 FOR T = 1 TO LEN (CN$)
8070 IF MID$ (CN$,T,1) = "," THEN I$ = MID$ (CN$,1,T - 1):CN$ = RIGHT$ (CN$
, LEN (CN$) - T): GOTO 8110
8080 IF MID$ (CN$,T,1) = "#" THEN I$ = MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
0
8090 NEXT
8100 POKE 960,0
8110 IF O$ = "STOP" THEN O$ = "": GOTO 8210
8120 IF LEN (I$) = 0 THEN 8050
8130 O$ = I$ + EL$: GOSUB 7000: GOTO 8290
8140 POKE 960,0: & A / SP$:I$ = MID$ (SP$,1): IF PEEK (961) THEN 1560
8150 CN$ = I$ + "#":O$ = "STOP"
8160 IF LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
8170 POKE 961,0: IF PEEK (960) = 255 THEN CC = CC + 1: IF CC > 1 OR I$ = "OFF
" THEN 8390
8180 IF PEEK (960) = 255 THEN 8140
8190 IF PEEK (1) = 128 THEN CN$ = "": GOTO 8230
8200 IF LEN (CN$) > 0 THEN 8060
8210 IF LEN (I$) < > 1 AND RIGHT$ (I$,1) = " " THEN I$ = LEFT$ (I$, LEN (I
$) - 1): GOTO 8210
8220 IF LEN (I$) < > 1 AND LEFT$ (I$,1) = " " THEN I$ = RIGHT$ (I$, LEN (I
$) - 1): GOTO 8220
8230 IF LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 7000: GOTO 8250
8240 IF LEN (I$) = 0 THEN 8000
8250 IF CA$ < > "Y" THEN 8290
8260 IF CF = 1 THEN CALL 36798
8270 IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 7000: CALL 36798
:CF = 1
8280 IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 7000: CALL 385
39:CF = 0
8290 CR = 0: RETURN
8300 IF CL$ = "N" THEN T$ = DA$: RETURN
8310 PR# 4: IN# 4: INPUT "#";T,T,T,T,T,B: INPUT "%";T$
8320 IF TI = 0 THEN TI = T
8330 PR# 0: POKE 56,102: POKE 57,213: CALL 1002
8340 IF TI > T THEN T = TI + (60 - TI) + T
8350 TL = CO - (T - TI)
8360 IF EN > 0 THEN 8380
8370 IF TL < = 0 THEN O$ = EL$ + "You are out of Time!": GOSUB 7000: GOTO 839
0
8380 RETURN
8390 O$ = DL$ + "Later Dude!": GOSUB 7000: PRINT D$"OPENITEMS"C$(25): PRINT D$"
READITEMS"
8400 FOR X = 1 TO IN
8410 INPUT I$
8420 FOR Y = 1 TO 10
8430 IF I$(Y) = I$ THEN B(Y) = X
8440 NEXT
8450 NEXT : PRINT D$"CLOSE"
8460 FOR X = 1 TO 10: IF I$(X) = "Blank" THEN B(X) = 0
8470 NEXT
8480 IF CP$ = "N" THEN ST = ST - (ST * 2)
8490 PRINT D$"OPENSAVE,L48"C$(27): PRINT D$"WRITESAVE,R"A: PRINT R: FOR X = 1
TO 10: PRINT B(X): NEXT : PRINT TC: PRINT D$"CLOSE":HP = TH:PO = TP: GOSUB 8500:
PRINT D$"RUNSTART"C$(14)
8500 PRINT D$"OPENSTATS,L200"C$(15): PRINT D$"WRITESTATS,R"A: PRINT NA$: PRINT
FI$: PRINT LE: PRINT AG: PRINT WE: PRINT AR: PRINT EX: PRINT GD: PRINT ST: PRIN
T TH: PRINT HP: PRINT PA$: PRINT WI: PRINT CH: PRINT LS: PRINT CA: PRINT CL: PRI
NT AD$: PRINT CP
8510 PRINT FD: PRINT PO: PRINT TP: PRINT BA: PRINT PA: PRINT DE: PRINT DA$
8520 FOR X = 1 TO SN: PRINT S(X): NEXT
8530 PRINT D$"CLOSE": RETURN
8540 IF LEN (O$) < 40 THEN 8640
8550 Y = 40
8560 X = 0
8570 IF MID$ (O$,Y - X,1) = " " THEN B$(0) = LEFT$ (O$,(Y - 1) - X):B$(0) =
B$(0) + EL$ + RIGHT$ (O$, LEN (O$) - (Y - X)): GOTO 8590
8580 X = X + 1: GOTO 8570
8590 O$ = B$(0)
8600 IF (Y + 40) > LEN (O$) THEN 8640
8610 Y = Y + 39
8620 Y = (Y - X) + 1
8630 GOTO 8560
8640 RETURN
8650 O$ = EL$ + "Hit Points " + STR$ (HP) + " out of " + STR$ (TH) + "." + EL
$ + "Power " + STR$ (PO) + " out of " + STR$ (TP) + "." + EL$ + "Food: " + ST
R$ (FD) + EL$ + "Poisoned: ": IF PO$ = "Y" THEN O$ = O$ + "Yes": GOTO 8670
8660 O$ = O$ + "No"
8670 GOSUB 7000: RETURN
8680 IF C$ = "P" THEN 70
8690 GOTO 1090
8700 CALL - 3288: PRINT "ERROR ON LINE ";: PRINT PEEK (219) * 256 + PEEK (2
18): GOTO 70
8710 PN = PR: IF I$ = "L" THEN 8730
8720 D6 = 0:D7 = 0:D8 = 0:D9 = 0:SH = 0:CH$ = "":MO$ = "":AB$ = "":OB$ = "":BR
= 0:F1 = 0:DR$ = "":GI$ = "":TR$ = ""
8730 IF R > 299 THEN 9510
8740 IF R < > 299 THEN 8770
8750 IF CF = 1 THEN CALL 38539
8760 F$ = "ADV.SOLVE": GOSUB 2880: GOTO 9720
8770 PRINT D$"OPENDES,L410"C$(24)
8780 PRINT D$"READDES,R"R
8790 INPUT N$,D1,D2,D3,D4,D5,OB$,BO$,O$
8800 SH = 0
8810 IF N$ = "Adventurers Shop" THEN SH = 1
8820 IF N$ = "Hospital" THEN SH = 2
8830 IF N$ = "McDonalds" THEN SH = 3
8840 IF I$ = "L" AND D6 = 0 AND D7 = 0 AND D8 = 0 AND D9 = 0 THEN 8900
8850 IF I$ < > "L" THEN 8910
8860 IF D6 < > D1 AND D6 < > 0 THEN D1 = D6
8870 IF D7 < > D2 AND D7 < > 0 THEN D2 = D7
8880 IF D8 < > D3 AND D8 < > 0 THEN D3 = D8
8890 IF D9 < > D4 AND D9 < > 0 THEN D4 = D9
8900 IF LEN (AB$) > 0 AND OB$ < > AB$ THEN OB$ = AB$
8910 O$ = EL$ + "[" + N$ + "]" + " " + "Exits: "
8920 IF D1 < > 0 THEN O$ = O$ + "N "
8930 IF D2 < > 0 THEN O$ = O$ + "S "
8940 IF D3 < > 0 THEN O$ = O$ + "W "
8950 IF D4 < > 0 THEN O$ = O$ + "E "
8960 O$ = O$ + EL$: GOSUB 7000
8970 IF LEN (OB$) > 5 AND RIGHT$ (OB$,5) = "Spell" AND LEN (FS$) > 0 THEN 8
990
8980 GOTO 9030
8990 FOR X = 1 TO LEN (FS$) STEP 3
9000 IF VAL ( MID$ (FS$,X,3)) = 1000 - R THEN OB$ = "":GI$ = "":AB$ = ""
9010 NEXT
9020 IF MO$ = "SC" THEN RETURN
9030 IF R < 310 OR R > 390 THEN 9060
9040 IF D5 = - 1 THEN O$ = EL$ + "You step into the square and it turns Whi
te. You are safe.": GOSUB 7000
9050 IF D5 = - 6 THEN O$ = EL$ + "You step into the square and it turns Red
. You are instantly incinerated.": GOSUB 7000: GOTO 1070
9060 IF D5 = - 6 OR D5 = - 12 OR D5 = - 13 OR D5 = - 9 THEN 9090
9070 IF RIGHT$ (N$,3) = "Inn" THEN O$ = EL$ + "This is a small, quaint little
inn furnished and payed for by the local government. There is no charg
e to stay." + EL$: GOSUB 7000
9080 GOTO 9150
9090 O$ = EL$: GOSUB 7000
9100 IF D5 = - 6 THEN O$ = "You are inside the Red Adepts Castle.":D5 = - 1
9110 IF D5 = - 9 THEN O$ = "You are inside the White Adepts Castle.":D5 = -
1
9120 IF D5 = - 12 THEN O$ = "You are inside the Forest of the Elves.":D5 = 0
9130 IF D5 = - 13 THEN O$ = "You are inside the Black Adepts Castle.":D5 = -
1
9140 O$ = O$ + EL$: GOSUB 7000
9150 IF BR$ = "On" AND I$ < > "L" THEN PRINT D$"CLOSE": GOTO 2270
9160 IF R > 299 THEN 2270
9170 GOSUB 2900: GOTO 2270
9180 IF (I$ = "N" AND D1 = 0) OR (I$ = "S" AND D2 = 0) OR (I$ = "W" AND D3 = 0
) OR (I$ = "E" AND D4 = 0) THEN O$ = EL$ + "You Can't Go That Way.": GOSUB 7000:
GOTO 70
9190 IF I$ = "N" THEN R = D1
9200 IF I$ = "S" THEN R = D2
9210 IF I$ = "W" THEN R = D3
9220 IF I$ = "E" THEN R = D4
9230 IF R > 0 THEN 9310
9240 FOR X = 1 TO 10: IF I$(X) = "Force Field Pass" THEN 9300
9250 NEXT
9260 O$ = EL$ + "Bzzzzzzzz. Your body Riddles with electricity as you pas
s through the field. You need a Force Field Pass to go through unscathed."
: GOSUB 7000
9270 X = INT (TH / 3):X = INT (X * RND (1)) + X
9280 O$ = DL$ + "You lose " + STR$ (X) + " Hit Points.":HP = HP - X: GOSUB 700
0
9290 O$ = EL$: GOSUB 7000
9300 R = R - (2 * R)
9310 IF PO$ = "Y" THEN O$ = EL$ + "You're Poisoned!" + DL$ + "Hit Points -":T
= INT (((LE * L) / 2) + 1):O$ = O$ + STR$ (T) + EL$: GOSUB 7000:HP = HP - T
9320 IF G(0) > 0 THEN G(0) = G(0) - 1
9330 FD = FD - 3: IF FD < 1 THEN FD = 0:O$ = EL$ + "You're starving!" + DL$ + "
Hit Points -":T = INT (((LE * L) / 2) + 1):O$ = O$ + STR$ (T) + EL$: GOSUB 700
0:HP = HP - T
9340 IF FD > 0 AND FD < 10 THEN O$ = EL$ + "Warning! You are low on food!" +
EL$: GOSUB 7000
9350 IF HP < 1 THEN O$ = DL$ + "You are Dead!" + EL$: GOSUB 7000:R = 1: GOTO 1
070
9360 GOTO 8710
9370 PRINT D$"OPENCHAR,L200"C$(23)
9380 PRINT D$"READCHAR,R"D5
9390 INPUT TR$,BR,GI$,I$
9400 IF MO$ < > "C" THEN MO$ = "C": PRINT D$"CLOSE": GOTO 9420
9410 IF MO$ = "C" THEN O$ = EL$ + "The " + TR$ + " Speaks:" + EL$: GOSUB 7000:
GOSUB 2900: GOTO 9440
9420 O$ = EL$ + "You see a " + TR$ + ".": GOSUB 8540: GOSUB 7000
9430 GOTO 70
9440 IF LEN (GI$) = 0 THEN 70
9450 FOR X = 1 TO 10
9460 IF I$(X) = GI$ THEN 70
9470 NEXT
9480 IF RIGHT$ (GI$,5) = "Spell" AND LEN (FS$) > 0 THEN MO$ = "SC": GOSUB 89
90:MO$ = "C": IF LEN (GI$) = 0 THEN 70
9490 O$ = EL$ + "The " + TR$ + " drops a " + GI$ + " at your Feet.": GOSUB 8540
: GOSUB 7000:OB$ = GI$:AB$ = GI$
9500 GOTO 70
9510 PRINT D$"OPENSHD,L55"C$(28)
9520 PRINT D$"READSHD,R"R
9530 INPUT N$,D1,D2,D3,D4,D5,OB$
9540 PRINT D$"CLOSE"
9550 IF LEFT$ (OB$,1) = "*" THEN BO$ = RIGHT$ (OB$, LEN (OB$) - 1):OB$ = ""
9560 GOTO 8800
9570 Y = VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y = VAL ( RIGHT$ (A$,1)): POKE 43
624,Y:Y = VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN PRINT D$"OPEN VC,V"Y
9575 IF TC$ = "Y" THEN POKE 1014,10: POKE 952,215: POKE 953,251
9580 RETURN
9590 PRINT D$"OPENWEAPONS,L40"C$(19): PRINT D$"READWEAPONS,R"T: INPUT B$(0),B(
3),B(4):T = B(3) / 4: PRINT D$"CLOSE": RETURN
9600 PRINT D$"OPENARMOR,L40"C$(1): PRINT D$"READARMOR,R"T: INPUT B$(0),B(3),B(
4): PRINT D$"CLOSE": RETURN
9610 T = A3: GOSUB 9590:B(2) = T:MP = B(4):MW$ = B$(0):T = A4: GOSUB 9600:MH =
B(4):MH$ = B$(0): RETURN
9620 B$(0) = "":J = 0
9630 FOR X = 1 TO LEN (O$)
9640 A$ = MID$ (O$,X,1)
9650 IF X = 1 THEN T = ASC (A$): IF T > 64 AND T < 91 THEN 9690
9660 T = ASC (A$): IF T < 65 OR T > 90 THEN J = 1: GOTO 9690
9670 IF J = 1 THEN J = 0: GOTO 9690
9680 T = T + 32:A$ = CHR$ (T)
9690 B$(0) = B$(0) + A$
9700 NEXT
9710 RETURN
9720 X = WE + 1: IF X > WN THEN X = WN
9730 Y = AR + 1: IF Y > AN THEN Y = WN
9740 WE = X:AR = X
9760 T = WE: GOSUB 9590:O$ = EL$ + "You get a " + B$(0) + "!":T = AR: GOSUB 960
0:O$ = O$ + DL$ + "You get a " + B$(0) + "!" + EL$: GOSUB 7000:CA = 0: FOR X = 1
TO 10:I$(X) = "Blank": NEXT :R = 0: GOTO 8390
]LOAD ASTART
]LIST
5 IF TC$ = "Y" THEN POKE 1014,0: POKE 952,240: POKE 953,253
10 ONERR GOTO 140
20 IF BD$ < > "Y" THEN 40
30 FOR X = 1 TO MM:T$(X) = "":N%(X) = 0: NEXT
40 FOR X = 1 TO ML:D$(X) = "": NEXT
50 ME$ = ""
60 O$ = SC$: HOME : GOSUB 500
70 O$ = EL$ + " ->Split Infinity<-" + DL$ + " Written, Conceived, a
nd Programmed by" + DL$ + " The Time Lord" + EL$: GOSUB 500
80 PRINT D$"OPENITEMS"C$(25)
90 PRINT D$"READITEMS"
100 X = 0
110 X = X + 1
120 INPUT A$
130 GOTO 110
140 CALL - 3288
150 IN = X - 1
160 CO = CO + 5
200 ONERR GOTO 250
210 R = 0
220 FOR X = 1 TO 10:B(X) = 0: NEXT
230 PRINT D$"OPENSAVE,L48"C$(27): PRINT D$"READSAVE,R"A: INPUT R: FOR X = 1 TO
10: INPUT B(X): NEXT : INPUT TC: PRINT D$"CLOSE"
240 GOTO 260
250 CALL - 3288
260 PRINT D$"OPENITEMS"C$(25): PRINT D$"READITEMS"
270 FOR X = 1 TO IN
280 INPUT I$
290 FOR Y = 1 TO 10
300 IF B(Y) = X THEN I$(Y) = I$
310 NEXT
320 NEXT
330 PRINT D$"CLOSE"
340 FOR X = 1 TO 10
350 IF LEN (I$(X)) = 0 THEN I$(X) = "Blank"
360 NEXT
370 L = 1
390 IF LE > 3 THEN L = 2
400 IF LE > 7 THEN L = 3
410 IF LE > 12 THEN L = 4
420 IF LE > 19 THEN L = 5
430 IF LE > 29 THEN L = 6
440 IF LE > 55 THEN L = 7
441 IF LE > 75 THEN L = 8
442 IF LE > 95 THEN L = 9
443 IF LE > 115 THEN L = 10
460 IF R = 0 THEN R = 30
470 PR = R
480 G(0) = 0:G(6) = 0
490 A$ = AV$: GOSUB 510: CALL 35848"ADVENT"
500 & B / O$: RETURN
510 Y = VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y = VAL ( RIGHT$ (A$,1)): POKE 436
24,Y:Y = VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN PRINT D$"OPEN VC,V"Y
515 IF TC$ = "Y" THEN POKE 1014,10: POKE 952,215: POKE 953,251
520 RETURN
]PR#0
]LOAD FIGHT
]LIST
5 IF TC$ = "Y" THEN POKE 1014,0: POKE 952,240: POKE 953,253
10 AC$ = "": CALL 54915:QA = 0:AM = 0:G(6) = 0:K = 0:B$ = "N": IF A > 0 THEN 30
20 PRINT CHR$ (4)"SAVEFIGHT,S3": PRINT CHR$ (4)"RUNCASTLE EDITOR,S6"
30 T = WE: GOSUB 40:B(1) = T:HT = B(4): GOTO 220
40 PRINT D$"OPENWEAPONS,L40"C$(19): PRINT D$"READWEAPONS,R"T: INPUT B$(0),B(3)
,B(4):T = INT (B(3) / 4): IF T > 1000000 THEN T = 1000000
50 PRINT D$"CLOSE": RETURN
60 PRINT D$"OPENARMOR,L40"C$(1): PRINT D$"READARMOR,R"T: INPUT B$(0),B(3),B(4)
: PRINT D$"CLOSE": RETURN
90 CALL - 3288: GOTO 230
100 IF FO > = 4 THEN 130
110 O$ = EL$ + "Return To Main Dungeon? Y/N ": GOSUB 6000
120 IF I$ < > "Y" THEN 230
130 O$ = DL$ + "-=> HOLD...Transport Heading to Main." + EL$: GOSUB 7000
140 A$ = MA$: GOSUB 8850: CALL 35848"MAIN"
150 PRINT D$"OPENSTATS,L200"C$(15)
160 PRINT D$"READSTATS,R"A
170 INPUT NA$,FI$,LE,AG,WE,AR,EX,GD,ST,TH,HP,PA$,WI,CH,LS,CA,CL,AD$,CP,FD,PO,T
P,BA,PA,DE,I$
180 FOR X = 1 TO SN: INPUT S(X): NEXT
190 PRINT D$"CLOSE"
200 IF I$ = "Q" THEN POP : GOTO 230
210 RETURN
220 HOME :O$ = SC$ + DL$ + DL$ + EL$: GOSUB 7000
230 GOSUB 8300:O$ = DL$ + "Your choices are..." + DL$ + "A) ttack a Users Cast
le" + EL$ + "C) orridor Of Death" + EL$ + "D) ungeon" + EL$ + "P) roving Grounds
" + DL$
240 O$ = O$ + "Which(FL=" + STR$ (4 - FO) + "): ": GOSUB 6000
245 ONERR GOTO 90
250 IF I$ = "A" THEN 9170
260 AC$ = "N":FI = 0:B$(2) = "": IF I$ = "C" THEN 2490
300 IF I$ = "Q" THEN 100
310 IF I$ < > "D" AND I$ < > "P" THEN 230
320 MO$ = "N": IF I$ = "D" THEN MO$ = "Y": GOTO 680
340 O$ = EL$ + "Enter user number of person you wish to fight(1-" + STR$ (U
S) + "/Q): #": GOSUB 6000
350 X = VAL (I$)
360 GOSUB 8300
370 IF A = X THEN 340
380 GOSUB 200
390 ONERR GOTO 500
400 PRINT D$"OPENSTATS,L200"C$(15)
410 PRINT D$"READSTATS,R"X
420 INPUT B$(1),B$(2),A1,A2,A3,A4,A5,A6,A7,A0,A9,A$,A8
430 S1 = 0:S2 = 0
440 PRINT D$"CLOSE"
450 IF A2 < 0 THEN A2 = A2 - (A2 * 2):Y = - 99
460 IF A7 < 0 THEN GOSUB 9380:A7 = A7 - (A7 * 2)
470 IF AC$ = "Y" THEN GOSUB 8870: RETURN
480 Y = 0
490 GOTO 510
500 CALL - 3288: PRINT D$"CLOSE":O$ = EL$ + "There is no such user!" + EL$: G
OSUB 7000: GOTO 340
510 IF LE > A1 + FL THEN O$ = EL$ + "You can only fight a User higher or " +
STR$ (FL) + " levels below you." + EL$: GOSUB 8420: GOSUB 7000: GOTO 340
520 ONERR GOTO 550
530 IF B$(2) = "Dead" THEN PRINT D$"OPEN DEATH,L50"C$(6): PRINT D$"READ DEATH
,R"X: INPUT I$: PRINT D$"CLOSE":O$ = EL$ + "Sorry, " + B$(1) + " has already bee
n" + " killed by " + I$ + "." + EL$: GOSUB 8420: GOSUB 7000: GOTO 340
540 GOTO 560
550 CALL - 3288:O$ = EL$ + "Sorry, " + B$(1) + " is Dead." + EL$: GOSUB 8420:
GOSUB 7000: GOTO 340
560 IF B$(1) = "Empty" THEN O$ = EL$ + "Sorry, that Character has been deleted
." + EL$: GOSUB 7000: GOTO 340
570 GOSUB 8870
580 B$(3) = STR$ (A3 - WE): IF A3 > WE THEN B$(3) = "+" + B$(3)
590 B$(4) = STR$ (A4 - AR): IF A4 > AR THEN B$(4) = "+" + B$(4)
600 B$(3) = " (" + B$(3) + ")":B$(4) = " (" + B$(4) + ")"
610 O$ = EL$ + "Character: " + B$(1) + DL$ + "Weapon: " + MW$ + B$(3) + EL$ + "
Armor: " + MH$ + B$(4) + DL$ + "Hit Points: " + STR$ (A9)
620 GOSUB 7000
630 O$ = DL$ + "Do you wish to fight " + B$(1) + "?" + EL$ + "Y/N: ": GOSUB 600
0
640 GOSUB 200
650 IF I$ < > "Y" THEN 340
660 FO = FO + 1
670 FI = X
680 B$(3) = "strike":B$(4) = "hit":B$(5) = "slam":B$(6) = "rag":B$(7) = "smite"
:B$(8) = "pound"
690 IF MO$ = "R" THEN RETURN
700 IF MO$ = "Y" THEN GOTO 1940
710 O$ = DL$: GOSUB 7000
720 IF AG > A2 THEN O$ = "You get first attack!" + DL$: GOSUB 7000: GOTO 1210
730 O$ = "He gets first attack!": GOSUB 7000
740 O$ = DL$: GOSUB 7000
750 IF MO$ = "Y" THEN X = INT (3 * RND (1)) + 1: IF X = 2 THEN 2390
760 IF A2 > 50 THEN 900
770 G(1) = A3 + A2
780 G(2) = INT ((WE + AG) * RND (1)) + 1
790 AM = INT ((A7 + A2 + (2 * MP)) * RND (1)) + 1: IF AR > AM THEN O$ = "Your
" + AM$ + " Absorbes the Damage!": GOSUB 8420: GOSUB 7000: GOTO 1210
800 IF G(2) < G(1) THEN 900
810 X = INT (5 * RND (1)) + 1
820 IF X = 1 THEN O$ = B$(1) + " swings at you with his " + MW$ + " and misses
!"
830 IF X = 2 THEN O$ = "You duck skillfully under his blow!"
840 IF X = 3 THEN O$ = "He swings at you but you jump nimbly aside!"
850 IF X = 4 THEN O$ = B$(1) + "s " + MW$ + " flies over your head just missin
g you!"
860 IF X = 5 THEN O$ = "His weapon misses you by a mile!"
870 GOSUB 8420
880 GOSUB 7000
890 GOTO 1210
900 G(3) = (A7 / 25) + 1
910 G(3) = G(3) * MP:G(8) = 0
920 G(5) = G(3) * (AP * (1 / 100))
930 G(3) = G(3) - G(5)
940 G(4) = G(3) / 4:G(3) = G(3) - (G(4) * RND (1)) + G(4)
950 G(3) = INT (G(3))
960 X = INT (5 * RND (1)) + 3
970 IF G(6) > 0 THEN G(6) = G(6) - 1:G(3) = INT (G(3) - (G(3) / 3))
980 IF Y = - 99 THEN Y = 0: RETURN
990 IF G(8) = 0 THEN 1010
1000 IF MO$ = "Y" THEN O$ = B$(1) + " casts a " + S$(G(8)) + " spell which " +
B$(X) + "s you doing " + STR$ (G(3)) + " damage.": GOSUB 8420: GOSUB 7000: GOT
O 1040
1010 O$ = B$(1) + " " + B$(X) + "s you with his " + MW$ + " doing " + STR$ (G(
3)) + " damage."
1020 GOSUB 8420
1030 GOSUB 7000
1040 HP = HP - G(3): IF HP > 0 THEN 1210
1050 O$ = DL$ + B$(1) + " has killed you!" + DL$ + "He gets all your gold!" + E
L$
1060 IF MO$ = "Y" THEN 1110
1070 AM = 0:QA = 0
1080 IF WE > A3 THEN G(0) = A3:A3 = WE:WE = G(0):O$ = O$ + DL$ + "You Swap Wea
pons With Him!":AM = 1
1090 IF AR > A4 THEN G(0) = A4:A4 = AR:AR = G(0):O$ = O$ + DL$ + "You Swap Arm
or With Him!":QA = 1
1100 GOSUB 7000:O$ = "": GOSUB 8530
1110 A6 = A6 + GD:GD = 0:A5 = A5 + EX:HP = TH:PO = TP: GOSUB 7000
1120 IF B$ < > "Y" THEN 1190
1140 O$ = EL$ + "You have been Resurected!" + DL$ + "Continue on Quest? Y/N ":
GOSUB 6000: IF I$ < > "Y" AND I$ < > "N" THEN 1140
1160 B$ = "N"
1170 IF I$ = "Y" THEN 2870
1180 GOTO 130
1190 IF MO$ = "Y" OR MO$ = "NV" THEN 8370
1200 X = - 99: GOTO 1770
1210 IF MO$ < > "Y" THEN 1300
1220 IF FI > 0 THEN O$ = DL$ + "F)ight, C)ast, H)ealth, S)tats: ": GOSUB 6000:
IF I$ = "C" THEN 2130
1230 IF I$ = "S" THEN GOSUB 3210: GOTO 1220
1240 IF FI > 0 AND I$ = "H" THEN GOSUB 8660: GOTO 1210
1250 IF FI > 0 AND I$ < > "F" THEN 1210
1260 IF FI > 0 THEN 1350
1270 O$ = DL$ + "F)ight, H)ealth, R)un, C)ast: ": GOSUB 6000: IF I$ = "C" THEN
2130
1280 IF I$ = "H" THEN GOSUB 8660: GOTO 1270
1290 GOTO 1330
1300 O$ = DL$ + "<F>ight <H>ealth <R>un: ": GOSUB 6000
1310 IF I$ = "H" THEN GOSUB 8660: GOTO 1300
1320 IF I$ < > "F" AND I$ < > "R" AND I$ < > "Q" THEN 1300
1330 IF I$ = "R" OR I$ = "Q" THEN 100
1340 IF I$ < > "F" THEN 1270
1350 O$ = EL$: GOSUB 7000
1360 IF AG > 50 THEN 1500
1370 G(1) = WE + AG
1380 G(2) = INT ((A3 + A2) * RND (1)) + 1
1390 AM = INT ((ST + AG + (2 * HT)) * RND (1)) + 1: IF A4 > AM THEN O$ = "His
" + MH$ + " Absorbes the Damage!": GOSUB 8420: GOSUB 7000: GOTO 740
1400 IF G(1) > G(2) THEN 1500
1410 X = INT (5 * RND (1)) + 1
1420 IF X = 1 THEN O$ = "You swing at him with your " + WP$ + " but he jumps n
imbly aside."
1430 IF X = 2 THEN O$ = "He ducks skillfully under your blow!"
1440 IF X = 3 THEN O$ = "You lunge at him but he ducks under your blow!"
1450 IF X = 4 THEN O$ = "Your " + WP$ + " misses him by a mile!"
1460 IF X = 5 THEN O$ = "Your " + WP$ + " flies over his head!"
1470 GOSUB 8420
1480 GOSUB 7000
1490 GOTO 740
1500 G(3) = (ST / 25) + 1:G(3) = (G(3) * HT)
1510 G(5) = G(3) * (MH * (1 / 100))
1520 G(3) = G(3) - G(5)
1530 G(4) = G(3) / 4:G(3) = G(3) - (G(4) * RND (1)) + G(4)
1540 G(3) = INT (G(3))
1550 X = INT (6 * RND (1)) + 3
1560 IF I$ = "C" THEN O$ = "Your " + S$(Y) + " spell " + B$(X) + "s the monste
r doing " + STR$ (G(3)) + " damage!": GOSUB 8420: GOSUB 7000: GOTO 1600
1570 O$ = "You " + B$(X) + " him with your " + WP$ + " doing " + STR$ (G(3)) +
" damage!"
1580 GOSUB 8420
1590 GOSUB 7000
1600 A9 = A9 - G(3): IF A9 > 0 THEN 740
1610 O$ = DL$ + "You've killed " + B$(1) + "!" + EL$
1620 O$ = O$ + EL$ + "You gain " + STR$ (A6) + " gold and " + STR$ (A5) + " e
xp!" + EL$: GOSUB 7000
1630 QA = 0:AM = 0
1640 IF MO$ = "Y" THEN 1680
1650 IF WE < A3 THEN O$ = EL$ + "You also get his " + MW$ + "!":G(0) = WE:WE =
A3:A3 = G(0):AM = 1: GOSUB 7000:WP$ = MW$:HT = MP: GOTO 1670
1660 O$ = EL$ + "You also get " + STR$ (B(2)) + " gold for his " + MW$ + "!":G
D = GD + B(2): GOSUB 8420: GOSUB 7000
1670 IF A4 > AR THEN G(0) = AR:AR = A4:A4 = G(0):O$ = DL$ + "You get his " + M
H$ + "!":QA = 1: GOSUB 7000:AM$ = MH$:AP = MH
1680 GD = GD + A6:EX = EX + A5:A9 = A0:A6 = 0:B$(2) = "Dead"
1690 O$ = EL$: GOSUB 7000
1700 IF MO$ = "Y" THEN 1750
1710 IF AC$ = "Y" THEN 1750
1720 POKE 2,255
1730 O$ = EL$ + "Leave Message to " + B$(1) + "?" + EL$ + "Y/N: ": GOSUB 6000:
POKE 1,128:B$(4) = "No Comment.": IF I$ = "Y" THEN O$ = EL$ + "40 Char. Max" + D
L$: GOSUB 6000:B$(4) = I$
1740 POKE 2,0: POKE 1,0
1750 IF FI > 0 AND MO$ = "Y" THEN 2870
1760 IF MO$ = "Y" THEN 100
1770 GOSUB 8380:B$(8) = NA$:G(1) = A:A = FI: GOSUB 150:AR = A4:WE = A3:EX = A5
:GD = A6:HP = A0:FI$ = B$(2):B$(0) = DA$:DA$ = I$: IF AC$ < > "Y" THEN 1790
1780 IF X < > - 99 THEN NC = INT (BA / 2):BA = NC - BA:AG = AG - (AG * 2):F
I$ = NC$
1790 GOSUB 8380:DA$ = B$(0)
1800 IF AC$ = "Y" THEN 1820
1810 O$ = DL$: GOSUB 7000: IF B$(2) = "Dead" THEN GOSUB 1870
1820 A = G(1): GOSUB 150
1830 GOSUB 8670
1840 IF B$(2) < > "Dead" THEN GOTO 8370
1850 IF AC$ = "Y" THEN 9370
1860 GOTO 100
1870 PRINT D$"OPENDEATH,L50"C$(6)
1880 PRINT D$"WRITEDEATH,R"A
1890 PRINT G(1): PRINT QA""AM: PRINT B$(4)
1900 PRINT D$"CLOSE"
1910 PRINT D$"OPENRANK,L4"C$(11): PRINT D$"READRANK,R"A: INPUT X: PRINT D$"CLO
SE": PRINT D$"OPENTOP,L35"C$(16): PRINT D$"READTOP,R"X: INPUT D$(1),D$(2),D$(3):
PRINT D$"CLOSE"
1920 PRINT D$"OPENTOP,L35": PRINT D$"WRITETOP,R"X: PRINT "D": PRINT D$(2): PRI
NT D$(3): PRINT D$"CLOSE"
1930 RETURN
1940 HOME :O$ = SC$: GOSUB 7000:O$ = DL$ + DL$ + "What level do you wish to en
ter:" + DL$ + "1) Easy" + EL$ + "2) Medium" + EL$ + "3) Hard" + EL$ + "4) Extrem
ely hard" + EL$ + "5) Crazy" + EL$ + "6) Suicidal" + EL$
1950 O$ = O$ + "7) Instaneaneous Death" + EL$ + "8) Half-Way to Hell" + EL$ + "
9) The Dead Zone" + EL$ + "10) The Land of the Immortals" + DL$
1960 O$ = O$ + "Which(Q quits): ": GOSUB 6000
1970 GOSUB 200
1980 X = VAL (I$)
1990 IF X < 1 OR X > (CN / 20) THEN 1940
2000 FO = FO + 1
2010 X = X - 1
2020 X = (X * 20) + 1
2030 X = INT (20 * RND (1)) + X
2040 PRINT D$"OPENMONSTERS,L60"C$(9)
2050 PRINT D$"READMONSTERS,R"X
2060 INPUT B$(1),A7,A2,A8,A3,A4,A6,S1,S2,A9
2070 PRINT D$"CLOSE"
2080 A5 = (((A9 / TH) * 8) / 100) * EX:A5 = INT (A5) + 100: IF NE$ = "T" THEN
NE$ = "Y": GOTO 2100
2090 NE$ = "N"
2100 GOSUB 8870
2110 IF MO$ = "R" THEN A6 = A6 * 2:A5 = A5 * 2:MO$ = "Y"
2120 O$ = DL$ + "A vicious " + B$(1) + " attacks you!": GOSUB 8420: GOSUB 7000:
B$(1) = "A " + B$(1): GOTO 710
2130 IF NE$ = "Y" THEN O$ = EL$ + "Sorry, Negate has been activated. All spe
lls are impotent.": GOSUB 7000: GOTO 1210
2140 O$ = EL$ + "Cast(?): ": GOSUB 6000
2150 IF I$ < > "?" THEN O$ = I$: GOSUB 8880: GOTO 2200
2160 O$ = EL$ + "Name / Quantity / Power Required" + EL$ + "-------------------
-------------" + DL$: GOSUB 7000
2170 FOR X = 1 TO SN: IF S(X) > 0 THEN O$ = S$(X) + "-" + STR$ (S(X)) + " ("
+ STR$ (X * 2) + ")" + EL$: GOSUB 7000
2180 NEXT
2190 GOTO 2130
2200 FOR X = 1 TO SN: IF S$(X) = B$(0) THEN 2240
2210 NEXT
2220 IF B$(2) = "CO" THEN O$ = EL$ + "There is no such spell!": GOSUB 7000: GO
TO 2880
2230 O$ = EL$ + "There is no such spell!": GOSUB 7000: GOTO 1210
2240 IF S(X) = 0 AND B$(2) = "CO" THEN O$ = EL$ + "You don't have that spell!"
: GOSUB 7000: GOTO 2880
2250 IF S(X) = 0 THEN O$ = EL$ + "You don't have that spell!": GOSUB 7000: GOT
O 1210
2260 IF B$(2) = "CO" AND (U(X) > 0 OR S$(X) = "Negate") THEN O$ + EL$ + "Sorry
, that is a battle spell.": GOSUB 7000: GOTO 2860
2270 IF S$(X) = "Inviso" AND B$(2) = "CO" THEN O$ = EL$ + "Sorry, that is an A
dventure spell.": GOSUB 7000: GOTO 2860
2280 IF B$(2) = "CO" THEN 2980
2290 IF S$(X) = "Death" OR S$(X) = "Negate" THEN 2310
2300 IF U(X) < 1 THEN O$ = EL$ + "Not a Battle spell!": GOSUB 7000: GOTO 1210
2310 IF PO < (X * 2) THEN O$ = EL$ + "You don't have enough power!": GOSUB 700
0: GOTO 1210
2320 PO = PO - (X * 2)
2330 S(X) = S(X) - 1
2340 O$ = EL$ + "Zap!" + DL$: GOSUB 7000:I$ = "C"
2350 Y = X
2360 IF S$(X) = "Death" THEN G(3) = A9 / 2: GOTO 1540
2370 IF S$(X) = "Negate" THEN NE$ = "Y":O$ = "Negate has been activated. All
magical spells are impotent for the duration of this battle.": GOSUB 7000: GOTO
740
2380 G(3) = (WI / 25) + 1:G(3) = (G(3) * U(X)): GOTO 1510
2390 IF (S1 < 2 AND S2 < 2) OR NE$ = "Y" THEN 770
2400 G(8) = 0
2410 IF S1 < 2 THEN G(8) = S2
2420 IF S2 < 2 THEN G(8) = S1
2430 IF G(8) < > 0 THEN 2470
2440 X = INT (2 * RND (1)) + 1
2450 IF X = 1 THEN G(8) = S1
2460 IF X = 2 THEN G(8) = S2
2470 IF S$(G(8)) = "Death" THEN G(3) = HP / 2: GOTO 950
2480 G(3) = (A8 / 25) + 1:G(3) = (G(3) * U(G(8))): GOTO 920
2490 O$ = EL$ + "Once you enter the corridor there will be few chances to leav
e. Play? Y/N->": GOSUB 6000: IF I$ < > "Y" THEN 230
2500 G(3) = LE * LE * 60:O$ = EL$ + "Gold +" + STR$ (G(3)) + EL$: GOSUB 7000:G
D = GD + G(3)
2510 FOR X = WN - MS + 1 TO WN: IF X > WE THEN 2530
2520 NEXT
2530 X = (102 - X):X = X * 20:X = X - 1:G(3) = CN + 20 - X:G(2) = 1
2540 O$ = EL$ + "You can start anywhere from room " + STR$ (G(2)) + " to room
" + STR$ (G(3)) + ".": GOSUB 8420: GOSUB 7000
2550 ONERR GOTO 2570
2560 GOTO 2580
2570 CALL - 3288
2580 O$ = DL$ + "Enter Starting Room #": GOSUB 6000
2590 X = VAL (I$): IF X < G(2) OR X > G(3) THEN 2580
2600 IF G(3) + 20 > CN THEN 2620
2610 O$ = EL$ + "The closest magical weapon and armor lie in room #" + STR$
(G(3) + 20) + "." + EL$: GOSUB 7000
2620 FI = X - 1:FO = FI
2630 MO$ = "R": GOSUB 680:MO$ = "Y"
2640 FI = FI + 1
2650 ONERR GOTO 2670
2660 I$ = "": GOTO 2680
2670 CALL - 3288: GOTO 2880
2680 FOR X = 21 TO CN + 1 STEP 20: IF FI = X THEN 2710
2690 NEXT
2700 GOTO 2820
2710 O$ = EL$ + "As you continue on your perilous quest you notice a door to t
he west. This may be your only chance to leave." + EL$ + "Quit? Y/N: ": GOSU
B 6000
2720 IF I$ < > "Y" AND I$ < > "N" THEN 2710
2730 IF I$ = "Y" THEN 130
2740 T = MS:Y = T - 1
2750 FOR X = CN - (Y * 20) TO CN STEP 20
2760 T = T - 1: IF X = FI - 1 THEN X = T: GOTO 2790
2770 NEXT
2780 GOTO 2820
2790 IF WE < WN - X THEN WE = WN - X:T = WE: GOSUB 40:O$ = EL$ + "You Get a "
+ B$(0) + EL$:WP$ = B$(0):HT = B(4): GOSUB 7000
2800 IF AR < AN - X THEN AR = AN - X:T = AR: GOSUB 60:O$ = EL$ + "You Get a "
+ B$(0) + EL$:AM$ = B$(0):AP = B(4): GOSUB 7000
2810 IF FI = CN + 1 THEN 130
2820 IF AC$ = "Y" THEN O$ = DL$ + "[" + B$(1) + "'s Castle]" + DL$ + "Room " +
STR$ (FI) + DL$: GOSUB 7000:B$(2) = "C": IF T > 0 THEN X = T: GOTO 2040
2830 IF AC$ = "Y" THEN 2880
2840 O$ = DL$ + "[Corridor of Death]" + DL$ + "Room " + STR$ (FI) + DL$: GOSUB
7000
2850 B$(2) = "C"
2860 IF FI < > FO THEN X = FI:FO = FI: GOTO 2040
2870 B$(2) = "CO"
2880 GOSUB 8300:O$ = DL$ + "[Tm:" + STR$ (TL) + "/C)ast H)ealth M)ove S)tats]
->": GOSUB 6000: CALL 54915
2890 IF I$ = "S" THEN GOSUB 3210
2900 IF I$ = "M" THEN FD = FD - 3: IF FD < 1 THEN FD = 0:O$ = EL$ + "You're st
arving!" + DL$ + "Hit points -" + STR$ (LE) + EL$: GOSUB 7000:HP = HP - LE
2910 IF FD > 0 AND FD < 10 THEN O$ = EL$ + "Warning! You are low on food!" +
EL$: GOSUB 7000
2920 IF HP < 1 THEN O$ = EL$ + "You died of starvation!" + DL$ + "Monsters com
e by and rob you of all your gold!" + EL$: GOSUB 7000:GD = 0: GOTO 8370
2930 IF I$ = "H" THEN GOSUB 8660
2940 IF I$ = "C" THEN 2130
2950 IF I$ = "M" AND AC$ = "Y" THEN FI = FI + 1: GOTO 8980
2960 IF I$ = "M" THEN 2640
2970 GOTO 2880
2980 IF PO < (X * 2) THEN O$ = EL$ + "You don't have enough power!": GOSUB 700
0: GOTO 2880
2985 IF AC$ = "Y" AND S$(X) = "Resurrect" THEN O$ = EL$ + "Sorry, you cannot c
ast that spell insidea castle.": GOSUB 7000: GOTO 2880
2990 IF S$(X) = "Resurrect" AND B$ = "Y" THEN O$ = EL$ + "Resurrect has alread
y been Activated!" + EL$: GOSUB 7000: GOTO 2880
3000 PO = PO - (X * 2):S(X) = S(X) - 1
3010 O$ = EL$ + "Alakazam!!!" + EL$: GOSUB 7000
3020 IF S$(X) = "Teleport" THEN O$ = EL$ + "Zap! You are teleported to safety
!" + EL$: GOSUB 7000:FO = 4: GOTO 130
3030 IF S$(X) < > "Protect" AND S$(X) < > "Super Protect" THEN 3070
3040 IF S$(X) = "Protect" THEN G(6) = G(6) + 10:O$ = "Protect "
3050 IF S$(X) = "Super Protect" THEN G(6) = G(6) + 20:O$ = "Super Protect "
3060 O$ = EL$ + O$ + "has been Activated" + DL$ + "Estimated Lasting Time [" +
STR$ (G(6)) + "] Hits": GOSUB 7000: GOTO 2880
3070 IF S$(X) = "Resurrect" THEN B$ = "Y":O$ = EL$ + "Resurrect has been Activ
ated." + EL$: GOSUB 7000: GOTO 2880
3080 IF S$(X) = "Super Increase" THEN HP = TH * 2:PO = TP * 2:O$ = EL$ + "Hit
Points = " + STR$ (HP) + "!" + DL$ + "Power = " + STR$ (PO) + "!" + EL$: GOSUB
7000: GOTO 2880
3090 IF S$(X) < > "Increase" THEN 3140
3100 O$ = EL$ + "[H/it points-P/ower]->": GOSUB 6000: IF I$ < > "H" AND I$ <
> "P" THEN 3100
3110 IF I$ = "H" THEN HP = TH * 2:O$ = EL$ + "Hit points = " + STR$ (HP)
3120 IF I$ = "P" THEN PO = TP * 2:O$ = EL$ + "Power = " + STR$ (PO)
3130 O$ = O$ + "!": GOSUB 7000: GOTO 2880
3140 IF S$(X) = "Cure Light Wounds" THEN G(3) = INT (10 * RND (1)) + 1:G(4)
= INT (10 * RND (1)) + 1
3150 IF S$(X) = "Cure Severe Wounds" THEN G(3) = INT (20 * RND (1)) + 10:G(4
) = INT (20 * RND (1)) + 10
3160 IF S$(X) = "Cure All Wounds" THEN HP = TH:PO = TP:O$ = EL$ + "All Hit Poi
nts and Power restored!": GOSUB 7000: GOTO 2880
3170 O$ = EL$ + "Hit points +" + STR$ (G(3)) + DL$ + "Power +" + STR$ (G(4)):
HP = HP + G(3):PO = PO + G(4): IF HP > TH THEN HP = TH
3180 IF PO > TP THEN PO = TP
3190 GOSUB 7000
3200 GOTO 2880
3210 O$ = EL$ + "Strength: " + STR$ (ST) + EL$ + "Wisdom: " + STR$ (WI) + EL$
+ "Agility: " + STR$ (AG) + EL$ + "Intelligence: " + STR$ (CH) + EL$ + EL$ +
"Gold: " + STR$ (GD) + EL$ + "Exp: " + STR$ (EX) + EL$ + EL$ + "Weapons: " + W
P$ + EL$ + "Armor: " + AM$ + EL$
3220 O$ = O$ + EL$ + "Protection Left: " + STR$ (G(6)) + " Hits"
3230 O$ = O$ + EL$ + "Resurrect: "
3240 I$ = "Off"
3250 IF B$ = "Y" THEN I$ = "On"
3260 O$ = O$ + I$
3270 GOSUB 7000
3280 RETURN
3290 A$ = CH$: GOSUB 8850: CALL 35848"CHAT"
6000 GOSUB 7000: GOSUB 8000: RETURN
7000 & B / O$: POKE 960,0: RETURN
8000 CC = 0: IF PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
8539:CF = 9
8010 IF CF = 9 AND PEEK (1) < > 128 THEN CF = 1:CA$ = "Y"
8020 IF CA$ < > "Y" OR LEN (CN$) > 1 THEN 8040
8030 IF CF = 1 THEN CALL 38539
8040 IF PEEK (1) = 128 THEN 8140
8050 IF LEN (CN$) = 0 THEN 8140
8060 FOR T = 1 TO LEN (CN$)
8070 IF MID$ (CN$,T,1) = "," THEN I$ = MID$ (CN$,1,T - 1):CN$ = RIGHT$ (CN$
, LEN (CN$) - T): GOTO 8110
8080 IF MID$ (CN$,T,1) = "#" THEN I$ = MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
0
8090 NEXT
8100 POKE 960,0
8110 IF O$ = "STOP" THEN O$ = "": GOTO 8210
8120 IF LEN (I$) = 0 THEN 8050
8130 O$ = I$ + EL$: GOSUB 7000: GOTO 8290
8140 POKE 960,0: & A / SP$:I$ = MID$ (SP$,1): IF PEEK (961) THEN 3290
8150 CN$ = I$ + "#":O$ = "STOP"
8160 IF LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
8170 POKE 961,0: IF PEEK (960) = 255 THEN CC = CC + 1: FOR T = 1 TO 500: NEXT
: IF CC > 1 OR I$ = "OFF" THEN 8370
8180 IF PEEK (960) = 255 THEN 8140
8190 IF PEEK (1) = 128 THEN CN$ = "": GOTO 8230
8200 IF LEN (CN$) > 0 THEN 8060
8210 IF LEN (I$) < > 1 AND RIGHT$ (I$,1) = " " THEN I$ = LEFT$ (I$, LEN (I
$) - 1): GOTO 8210
8220 IF LEN (I$) < > 1 AND LEFT$ (I$,1) = " " THEN I$ = RIGHT$ (I$, LEN (I
$) - 1): GOTO 8220
8230 IF LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 7000: GOTO 8250
8240 IF LEN (I$) = 0 THEN 8000
8250 IF CA$ < > "Y" THEN 8290
8260 IF CF = 1 THEN CALL 36798
8270 IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 7000: CALL 36798
:CF = 1
8280 IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 7000: CALL 385
39:CF = 0
8290 CR = 0: RETURN
8300 IF CL$ = "N" THEN T$ = DA$: RETURN
8310 PR# 4: IN# 4: INPUT "#";T,T,T,T,T,B: INPUT "%";T$
8320 PR# 0: POKE 56,102: POKE 57,213: CALL 1002
8330 IF TI > T THEN T = TI + (60 - TI) + T
8340 TL = CO - (T - TI)
8350 IF TL < = 0 THEN O$ = EL$ + "You are out of Time! Later.": GOSUB 7000:
GOTO 8370
8360 RETURN
8370 A$ = OF$: GOSUB 8850: CALL 35848"OFF"
8380 PRINT D$"OPENSTATS,L200"C$(15): PRINT D$"WRITESTATS,R"A: PRINT NA$: PRINT
FI$: PRINT LE: PRINT AG: PRINT WE: PRINT AR: PRINT EX: PRINT GD: PRINT ST: PRIN
T TH: PRINT HP: PRINT PA$: PRINT WI: PRINT CH: PRINT LS: PRINT CA: PRINT CL: PRI
NT AD$: PRINT CP
8390 PRINT FD: PRINT PO: PRINT TP: PRINT BA: PRINT PA: PRINT DE: PRINT DA$
8400 FOR X = 1 TO SN: PRINT S(X): NEXT
8410 PRINT D$"CLOSE": RETURN
8420 IF LEN (O$) < 40 THEN 8520
8430 Y = 40
8440 X = 0
8450 IF MID$ (O$,Y - X,1) = " " THEN B$(0) = LEFT$ (O$,(Y - 1) - X):B$(0) =
B$(0) + EL$ + RIGHT$ (O$, LEN (O$) - (Y - X)): GOTO 8470
8460 X = X + 1: GOTO 8450
8470 O$ = B$(0)
8480 IF (Y + 40) > LEN (O$) THEN 8520
8490 Y = Y + 39
8500 Y = (Y - X) + 1
8510 GOTO 8440
8520 RETURN
8530 PRINT : PRINT D$"OPEND-"B$(1)C$(20)
8540 PRINT D$"APPENDD-"B$(1)
8550 PRINT D$"WRITED-"B$(1)
8560 PRINT "You Killed " + NA$ + " On " + DA$
8570 PRINT
8580 PRINT "You got " + STR$ (GD) + " Gold."
8590 PRINT "You got " + STR$ (EX) + " Experience."
8600 IF AM = 1 THEN PRINT "You also got his " + WP$
8610 IF AM < > 1 THEN PRINT "You also got " + STR$ (B(1)) + " gold for his
weapon.":GD = GD + B(1)
8620 IF QA = 1 THEN PRINT "You also got his " + AM$:QA = 0
8630 PRINT
8640 PRINT
8650 PRINT D$"CLOSE": RETURN
8660 O$ = EL$ + "Hit Points: " + STR$ (HP) + " out of " + STR$ (TH) + EL$ + "
Power: " + STR$ (PO) + " out of " + STR$ (TP) + EL$ + " Food: " + S
TR$ (FD): GOSUB 7000: RETURN
8670 PRINT D$"OPENCSTAT"C$(17)
8680 PRINT D$"APPENDCSTAT"
8690 PRINT D$"WRITECSTAT"
8700 B$(3) = "[" + NA$ + "] VS [" + B$(1) + "]"
8710 X = (40 - LEN (B$(3))) / 2
8720 O$ = ""
8730 FOR Y = 1 TO X:O$ = O$ + " ": NEXT :O$ = O$ + B$(3)
8740 PRINT O$
8750 PRINT
8760 IF B$(2) < > "Dead" THEN B$(3) = "[" + B$(1) + "]": GOTO 8780
8770 B$(3) = "*<-" + NA$ + "->*"
8780 X = (40 - LEN (B$(3))) / 2
8790 O$ = ""
8800 FOR Y = 1 TO X:O$ = O$ + " ": NEXT :O$ = O$ + B$(3)
8810 PRINT O$
8820 PRINT : PRINT
8830 PRINT D$"CLOSE"
8840 RETURN
8850 Y = VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y = VAL ( RIGHT$ (A$,1)): POKE 43
624,Y:Y = VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN PRINT D$"OPEN VC,V"Y
8855 IF TC$ = "Y" THEN POKE 1014,10: POKE 952,215: POKE 953,251
8860 RETURN
8870 T = A3: GOSUB 40:B(2) = T:MP = B(4):MW$ = B$(0):T = A4: GOSUB 60:MH = B(4)
:MH$ = B$(0): RETURN
8880 B$(0) = "":J = 0
8890 FOR X = 1 TO LEN (O$)
8900 A$ = MID$ (O$,X,1)
8910 IF X = 1 THEN 8950
8920 T = ASC (A$): IF T < 65 OR T > 90 THEN J = 1: GOTO 8950
8930 IF J = 1 THEN J = 0: GOTO 8950
8940 T = T + 32:A$ = CHR$ (T)
8950 B$(0) = B$(0) + A$
8960 NEXT
8970 RETURN
8980 IF FI < > 20 THEN 9030
8990 O$ = EL$ + "You enter the treasure room of this treacherous castle, es
tatic that your quest is nearly complete. But wait... It appears you are not
alone in the room! It seems that the owner of this"
9000 O$ = O$ + EL$ + "Castle is present. He speaks: ": GOSUB 7000:O$ = DL$ +
"'How dare you disturb my castle! You Shall Die a Cruel death Scum!!!" + EL$:
GOSUB 7000
9010 G(6) = 0: IF HP > TH THEN HP = TH
9020 B$(2) = "":MO$ = "N":X = NC: GOSUB 390:X = NC:B$(2) = "On": GOTO 660
9030 A$ = LEFT$ (D$(FI),1)
9040 B$ = RIGHT$ (D$(FI),1)
9050 T = 0
9060 O$ = DL$ + "[" + C$ + "'s Castle]" + DL$ + "Room " + STR$ (FI) + DL$: GOS
UB 7000:B$(2) = "C"
9070 IF A$ = "0" THEN 9100
9080 X = ASC (A$) - 65:X = X * 20:T = INT (20 * RND (1)) + X
9090 Y = 0
9100 IF B$ = "0" THEN 9150
9110 G(8) = ASC (B$) - 64:Y = - 99: GOSUB 2470
9120 O$ = EL$ + "You walk into a trap!" + DL$: GOSUB 7000:O$ = "A " + S$(G(8))
+ " Spell hit's you doing " + STR$ (G(3)) + " damage." + EL$: GOSUB 8420: GOSUB
7000:HP = HP - G(3)
9130 IF HP < 1 THEN O$ = EL$ + "You are Dead!" + EL$: GOTO 1110
9140 IF G(3) = 0 AND T > 0 THEN NE$ = "T"
9150 IF T > 0 THEN X = T:O$ = DL$ + "There is a monster in the room.....": GOS
UB 7000: GOTO 2040
9160 O$ = EL$ + "Phew! The room appears to be empty...": GOSUB 7000: GOTO 2870
9170 O$ = EL$ + "Enter Castle # to Attack(1-" + STR$ (US) + ")->": GOSUB 6000
9180 IF I$ = "Q" THEN 220
9190 X = VAL (I$): IF X < 1 OR X > US THEN 9170
9200 IF A = X THEN 9170
9210 AC$ = "Y":NC = X
9220 ONERR GOTO 9250
9230 PRINT D$"OPENCASTLES,L39"C$(12): PRINT D$"READCASTLES,R"X: INPUT CS$: PRI
NT D$"CLOSE"
9240 GOTO 9260
9250 CALL - 3288: GOSUB 9380
9260 GOSUB 400
9270 IF Y = - 99 THEN Y = 0:O$ = DL$ + "Sorry, that persons Castle has alread
y been robbed." + EL$: GOSUB 7000: GOTO 9170
9280 IF LE > A1 + FL THEN O$ = EL$ + "You can only attack a User that is " +
STR$ (FL) + " levels below you or higher." + EL$: GOSUB 8420: GOSUB 7000: GOTO 9
170
9290 IF B$(1) = "Empty" THEN O$ = EL$ + "Sorry, that user has been deleted." +
EL$: GOTO 9170
9300 O$ = EL$ + "Attack " + B$(1) + "'s Castle Y/N->": GOSUB 8420: GOSUB 6000:
IF I$ < > "Y" THEN 9170
9310 Y = 0
9320 FOR X = 1 TO 38 STEP 2
9330 Y = Y + 1:D$(Y) = MID$ (CS$,X,2)
9340 NEXT
9350 MO$ = "R": GOSUB 680:MO$ = "Y":C$ = B$(1):NC$ = B$(2)
9360 FI = 1:B$(2) = "C": GOTO 8980
9370 O$ = EL$ + "You get half of " + C$ + "'s Treasure which amounts to $" + S
TR$ (NC) + " Gold Pieces!" + EL$: GOSUB 8420: GOSUB 7000:GD = GD + NC:FO = 4: GO
TO 130
9380 CS$ = "00000000000000000000000000000000000000": RETURN
]LOAD BRD
]LIST
10 IF TC$ = "Y" THEN POKE 1014,0: POKE 952,240: POKE 953,253
20 CALL 54915
30 IF A > 0 THEN 50
40 PRINT CHR$ (4)"SAVEBRD,S3": PRINT CHR$ (4)"RUNMA,S6"
50 B$(1) = "": ONERR GOTO 140
60 J = 1:BB = 1: GOTO 1120
70 IF PB = 1 THEN GOSUB 8530
80 A$ = OF$: GOSUB 9210: CALL 35848"OFF"
90 B$ = "B" + STR$ (BB) + "/": GOSUB 8470: RETURN
100 GOSUB 90:J = 0:MN = N%(AM) + 1
110 IF I$ = "N" THEN 8790
120 IF B$(1) = "POST" THEN B$(1) = "POST1": GOTO 8790
130 GOTO 150
140 CALL - 3288: CALL 54915: GOTO 120
150 GOSUB 8380:O$ = DL$ + "[" + STR$ (TL) + "][Last:" + STR$ (J) + "/" + ST
R$ (AM) + "][?=Menu]->": GOSUB 7000:CR = 1: GOSUB 8300: CALL 54915
160 ONERR GOTO 140
170 B$(1) = ""
180 IF J < 1 OR J > AM THEN 210
190 IF Z(BB) < N%(J) THEN Z(BB) = N%(J)
200 IF Z(BB) > N%(AM) THEN Z(BB) = N%(AM)
210 IF I$ = "" THEN J = J + 1
220 IF J > AM THEN O$ = EL$ + "No More Messages": GOSUB 7000:J = J - 1: GOTO 1
20
230 IF I$ = "" THEN GOSUB 1030: GOTO 120
240 IF I$ = "N" AND PB = 1 THEN GOSUB 8530
250 IF I$ = "N" THEN 8730
260 IF I$ = "E" AND (A = BM OR NA$ = SY$) THEN 1190
270 IF I$ = "?" THEN F$ = "BRD.MENU": PRINT D$"OPEN"F$C$(17): PRINT D$"READ"F$
: HOME :O$ = SC$: GOSUB 7000: GOSUB 8570: GOTO 120
280 IF I$ = "Q" AND PB = 1 THEN GOSUB 8530
290 IF I$ = "Q" THEN 8720
300 IF I$ = "P" AND LL > 2 THEN O$ = EL$ + "You can only post 3 messages per c
all.": GOSUB 7000: GOTO 120
310 IF I$ < > "P" THEN 350
320 IF NA$ = SY$ THEN 540
330 IF PU = 1 OR (PU = 2 AND AD$ = "NO") THEN O$ = EL$ + "Sorry, you are not a
llowed to post on this board.": GOSUB 7000: GOTO 120
340 GOTO 540
350 IF I$ = "K" AND (NA$ = SY$ OR A = BM) THEN 690
360 IF I$ = "F" THEN 770
370 IF J > 0 AND J < = AM THEN O$ = DL$: GOSUB 7000: GOSUB 1030: GOTO 120
380 IF I$ = "S" THEN 830
390 IF I$ < > "*" THEN 520
400 PRINT D$"OPENBOARDS,L55"C$(3): FOR X = 1 TO B1: PRINT D$"READBOARDS,R"X: I
NPUT I$
410 FOR Y = 1 TO 8: INPUT B(Y): NEXT
420 O$ = EL$ + "Name : " + I$ + " #" + STR$ (X) + EL$ + "Access :
":A$ = "Valid Users Only": IF B(6) = 2 THEN A$ = "All Users"
430 IF B(5) = 4 THEN A$ = "Password needed"
440 O$ = O$ + A$ + EL$ + "Post Access : ": RESTORE : FOR T = 1 TO 6: READ B$(T)
: NEXT :A$ = B$(B(5))
450 O$ = O$ + A$ + EL$ + "Post Under : ": FOR T = 1 TO 3: READ B$(T): NEXT :A$
= B$(B(8))
460 O$ = O$ + A$ + EL$ + "Board Master: ":A$ = "": IF B(7) < 10 THEN A$ = "00"
470 IF B(7) > 9 AND B(7) < 100 THEN A$ = "0"
480 A$ = "[" + A$ + STR$ (BM) + "]"
490 O$ = O$ + "User Number " + A$ + EL$: GOSUB 7000
500 NEXT
510 PRINT D$"CLOSE": GOTO 150
520 IF I$ = "B" THEN 1070
530 GOTO 120
540 O$ = EL$ + "[> Post/Leave Message <]" + DL$ + "[Subject]->": GOSUB 7000: PO
KE 1,128:CR = 1: GOSUB 8330: POKE 1,0:L1$ = I$: IF I$ = "" THEN 120
550 D3$ = NA$
560 IF PC = 2 THEN O$ = EL$ + "Leave message under fake name? Y/N:": GOSUB 600
0: IF I$ = "Y" THEN O$ = EL$ + "Post under what name?->": GOSUB 6000:D3$ = I$
570 IF PC = 1 THEN O$ = EL$ + "Leave message Anonymously? Y/N:": GOSUB 6000: I
F I$ = "Y" THEN D3$ = "Anonymous"
575 IF D3$ < > NA$ THEN D3$ = D3$ + " #?": GOTO 580
576 D3$ = D3$ + " #" + STR$ (A)
580 GOSUB 7010: IF NOT X THEN 120
590 TM = TM + 1
600 B(0) = - 99
610 O$ = DL$ + "|Subject | [" + L1$ + "]" + EL$ + "|Left By | [" + D3$ + "]" +
EL$ + "|Board #" + STR$ (BB) + "|" + EL$: GOSUB 7000:O$ = EL$ + "[Hold..] Writi
ng Message": GOSUB 7000: GOSUB 8380
620 B(0) = 0:LL = LL + 1
630 PRINT D$"OPEN"B$MN",V"V",S"S",D"D: PRINT D$"DELETE"B$MN: PRINT D$"OPEN"B$M
N: PRINT D$"WRITE"B$MN: PRINT "Posted By: "D3$
650 PRINT "Date : "T$
660 PRINT : FOR Z = 1 TO X: PRINT D$(Z): NEXT Z: PRINT D$"CLOSE":AM = AM + 1:T
$(AM) = L1$:N%(AM) = MN:MN = MN + 1:O$ = " Done!": GOSUB 7000:D3$ = ""
665 IF GP$ = "Y" THEN X = LE * 200:GD = GD + X:EX = EX + X:FD = FD + 25:O$ = D
L$ + "Gold, Experience, and Food added!": GOSUB 7000
670 IF AM < AB + 1 THEN PB = 1: GOTO 120
680 O$ = DL$ + "[Hold..] Deleteing Msg. 1" + EL$: GOSUB 7000:J = 1: GOTO 720
690 O$ = EL$ + "Delete Messages" + DL$ + "Message [CR=Quit] #":CR = 1: GOSUB 70
00: GOSUB 930
700 O$ = EL$ + "Msg # [" + STR$ (J) + "]" + EL$ + "Title [" + T$(J) + "]" + DL
$ + "Delete this ?": GOSUB 7000: GOSUB 8350: IF I$ < > "Y" THEN 120
710 TM = TM - 1
720 GOSUB 730: GOTO 120
730 PRINT D$"OPEN"B$N%(J)",V"V",S"S",D"D: PRINT D$"CLOSE": PRINT D$"DELETE"B$N
%(J): IF J > AM THEN 760
740 AM = AM - 1
750 FOR X = J TO AM:T$(X) = T$(X + 1):N%(X) = N%(X + 1): NEXT X
760 PB = 1:O$ = EL$ + "Message Deleted!": GOTO 7000
770 O$ = DL$ + "Forward Sequential Read" + DL$ + "Start at [#,CR]:": GOSUB 7000
:CR = 1: GOSUB 8000
780 IF I$ = "Q" THEN 150
790 J = VAL (I$): IF J < 1 OR J > AM THEN 770
800 O$ = DL$ + EL$: GOSUB 7000
810 GOSUB 1030: GOSUB 960: IF J < AM THEN J = J + 1: GOTO 810
820 GOTO 120
830 O$ = EL$ + "Scan Messages" + DL$ + "Start [CR=Quit] #": GOSUB 7000: GOSUB 9
30
840 O$ = EL$: GOSUB 7000
850 F = 0:Z = J
860 O$ = " ": IF Z(BB) < N%(J) THEN O$ = " % "
865 O$ = EL$ + O$ + "[" + RIGHT$ ("(0" + STR$ (J),2) + "] " + T$(J): GOSUB 70
00
870 IF J = AM AND B$(2) = "SCAN" THEN 910
880 IF J = AM THEN 120
890 IF J < Z + 9 THEN J = J + 1: GOTO 860
900 O$ = DL$ + "More? ": GOSUB 7000: GOSUB 8350: IF I$ = "Y" THEN Z = J + 1:J =
J + 1: GOTO 860
910 IF B$(2) = "SCAN" THEN B$(2) = "":J = G(1):O$ = DL$: GOSUB 7000: GOTO 8810
920 GOTO 120
930 CR = 1: GOSUB 8300: IF I$ = "" THEN POP : GOTO 120
940 IF NOT J OR J > AM THEN O$ = EL$ + "Message Doesn't Exist!": GOSUB 7000:
POP : GOTO 120
950 RETURN
960 IF PEEK (960) = 3 THEN POP : GOTO 120
970 IF PEEK (960) = 2 THEN RETURN
980 GOSUB 8380:O$ = EL$ + "[R/e-read CR/next Q/uit->": GOSUB 7000:CR = 1: GOSU
B 8000
990 IF I$ = "N" OR I$ = "" THEN RETURN
1000 IF I$ = "Q" THEN POP : GOTO 120
1010 IF I$ = "R" THEN GOSUB 1030: GOTO 960
1020 O$ = EL$: GOSUB 7000: GOTO 980
1030 IF LR < N%(J) THEN LR = N%(J)
1040 IF NN < N%(J) THEN NN = N%(J)
1050 IF J > 1 AND N%(J) < N%(J - 1) THEN LR = N%(J)
1060 O$ = DL$ + "Message: " + STR$ (J) + "/" + STR$ (AM) + EL$ + "Subject: "
+ T$(J) + EL$: GOSUB 7000:F$ = B$ + STR$ (N%(J)): GOTO 8550
1070 IF PB = 1 THEN O$ = DL$ + "[Hold..] Saving Data" + EL$: GOSUB 7000: GOSUB
8530
1080 IF I$ = "N" THEN BB = BB + 1:J = BB: GOTO 1120
1090 O$ = EL$ + "[Board to Enter (1-" + STR$ (B1) + ")]->": GOSUB 7000: GOSUB
8300
1100 IF J < 1 OR J > B1 THEN 1090
1110 IF Z(BB) > N%(AM) THEN Z(BB) = N%(AM)
1120 PRINT D$"OPENBOARDS,L55"C$(3): PRINT D$"READBOARDS,R"J: INPUT L1$,V,AB,S,
D,PU,RU,BM,PC,BP$: PRINT D$"CLOSE":O$ = EL$ + "Entering the " + L1$ + " Board":
GOSUB 7000:BB = J
1130 IF PU = 4 THEN O$ = DL$ + "A Guard walks up to and says: " + DL$ + "Ok Bu
d, what's the password?: ": GOSUB 6000: IF I$ < > BP$ THEN O$ = EL$ + "Trying t
o sneak by eh?...Get Lost!" + EL$: GOSUB 7000: GOTO 1170
1140 IF RU = 1 AND AD$ = "NO" THEN 1160
1150 GOTO 100
1160 O$ = EL$ + "Sorry, this board is for Validated users only" + EL$: GOS
UB 7000
1170 O$ = EL$ + "Loading another board..." + EL$:J = J + 1: GOSUB 7000: IF J >
B1 THEN 8720
1180 GOTO 1120
1190 HOME :O$ = SC$: GOSUB 7000
1200 O$ = DL$ + "Welcome Board Master!" + DL$ + "What do you want to change?" +
DL$ + "1. Title: " + L1$ + EL$ + "2. Who can post: ": GOTO 1220
1210 DATA Sysop Only, Val. users only,All Users,Password needed
1220 RESTORE : FOR X = 1 TO 4: READ B$(X): NEXT
1230 O$ = O$ + B$(PU) + EL$ + "3. Who can read: "
1240 FOR X = 1 TO 2: READ B$(X): NEXT :O$ = O$ + B$(RU) + EL$ + "4. Mesg. Post
ed under: ": GOTO 1260
1250 DATA Val. users only,All Users
1260 FOR X = 1 TO 3: READ B$(X): NEXT :O$ = O$ + B$(PC) + EL$: IF PU = 4 THEN
O$ = O$ + "5. Password: " + BP$
1270 GOSUB 7000: GOTO 1290
1280 DATA Anonymous,Any Handle,Actual User Name
1290 O$ = DL$ + "Edit Which(S=Save)->": GOSUB 6000
1300 IF I$ = "S" THEN PRINT D$"OPENBOARDS,L55"C$(3): PRINT D$"WRITEBOARDS,R"B
B: PRINT L1$: PRINT V: PRINT AB: PRINT S: PRINT D: PRINT PU: PRINT RU: PRINT BM:
PRINT PC: PRINT BP$: PRINT D$"CLOSE":O$ = DL$ + "Done!": GOSUB 7000: GOTO 150
1310 Y = VAL (I$): IF Y = 0 OR I$ = "Q" THEN 150
1311 IF Y < > 1 THEN 1320
1312 POKE 1,128:O$ = EL$ + "Enter new Title->": GOSUB 6000:L1$ = I$: IF LEN (
I$) > 25 THEN O$ = EL$ + "Too Long...25 char max." + EL$: GOSUB 7000: GOTO 1311
1315 POKE 1,0: GOTO 1190
1320 RESTORE : FOR X = 1 TO 4: READ B$(X): NEXT
1330 IF Y = 2 THEN O$ = DL$ + "Who can post:" + DL$:Z = 4: GOSUB 1400:PU = X:
GOTO 1190
1340 FOR X = 1 TO 2: READ B$(X): NEXT
1350 IF Y = 3 THEN O$ = "Who can read:" + DL$:Z = 2: GOSUB 1400:RU = X: GOTO 1
190
1360 FOR X = 1 TO 3: READ B$(X): NEXT
1370 IF Y = 4 THEN O$ = "Message posted under:" + DL$:Z = 3: GOSUB 1400:PC = X
: GOTO 1190
1380 IF Y = 5 THEN O$ = EL$ + "Enter new Password: ": GOSUB 6000:BP$ = I$: IF
LEN (I$) > 7 THEN O$ = EL$ + "Too long. 7 Char Max." + EL$: GOSUB 7000: GOTO 1
380
1390 GOTO 1190
1400 FOR X = 1 TO Z:O$ = O$ + STR$ (X) + ". " + B$(X) + EL$: NEXT :O$ = O$ +
EL$ + "Which->": GOSUB 6000:X = VAL (I$): IF X < 1 OR X > Z THEN 1400
1410 RETURN
6000 GOSUB 7000: GOSUB 8000: RETURN
7000 & B / O$: POKE 960,0: RETURN
7010 HOME :O$ = SC$ + EL$ + " [" + STR$ (ML) + "] Lines - [/EX] Ends [/S] S
aves": GOSUB 7000:O$ = EL$ + "[/UP] Redo last line [/LN] Line Number" + DL$: GO
SUB 7000:X = 1
7015 IF CA$ < > "Y" THEN 7030
7020 POKE 36996,76: POKE 36998,142
7030 CR = 1: POKE 1,128: GOSUB 8000:D$(X) = I$: POKE 1,0: IF PEEK (872) = 1 TH
EN POKE 0,VW
7040 IF I$ = "/EX" OR I$ = "/ex" THEN D$(X) = "": GOTO 7120
7050 IF I$ = "/UP" OR I$ = "/up" AND X > 1 THEN O$ = "[Retype the line]" + EL$
: GOSUB 7000:X = X - 1: GOTO 7030
7060 IF I$ = "/S" OR I$ = "/s" THEN D$(X) = "":I$ = "S": GOTO 7160
7070 IF I$ = "/LN" OR I$ = "/ln" THEN O$ = "[Line # " + STR$ (X) + "]" + EL$:
GOSUB 7000:X = X - 1
7080 IF X = ML - 5 THEN O$ = "[5] More lines" + EL$: GOSUB 7000
7090 POKE 38689,0: IF PEEK (36712) = 1 THEN POKE 0,VW
7100 X = X + 1: IF X < = ML THEN 7030
7110 O$ = EL$ + "That's [" + STR$ (ML) + "] lines" + EL$: GOSUB 7000
7120 O$ = EL$ + "[Edit/S/?]->": GOSUB 7000: GOSUB 8370
7130 IF I$ = "?" THEN O$ = DL$ + "S)ave, L)ist, C)ontinue, F)ix, Q)uit" + EL$:
GOSUB 7000: GOTO 7120
7140 IF I$ = "Q" THEN GOSUB 7350:X = 0: POKE 36996,169: POKE 36998,32:O$ = EL
$ + "[Message Aborted!]": GOTO 7000
7150 IF I$ = "L" THEN A$ = "": GOSUB 7290: GOTO 7120
7160 IF I$ = "S" OR I$ = "O" THEN X = X - 1: POKE 36996,169: POKE 36998,32: RE
TURN
7170 IF I$ = "N" THEN GOSUB 7350:O$ = EL$: GOSUB 7000: GOTO 7010
7180 IF I$ = "F" THEN 7210
7190 IF I$ = "C" THEN A$ = "":Z = X - 1:F = Z - 3:F = F * (F > - 1) + 1: GOSU
B 7320:X = X - 1: GOTO 7100
7200 GOTO 7120
7210 O$ = EL$ + "List Lines [Y/N]:": GOSUB 7000: GOSUB 8370
7220 IF I$ = "N" THEN 7250
7230 IF I$ = "Y" THEN A$ = "X": GOSUB 7290: GOTO 7250
7240 GOTO 7210
7250 O$ = DL$ + "Edit Line [CR=Quit] #": GOSUB 7000:CR = 1: GOSUB 8300
7260 IF I$ = "" THEN 7120
7270 IF J < 1 OR J > = X THEN O$ = EL$ + "[Line Doesn't Exist!]" + EL$: GOSUB
7000: GOTO 7120
7280 A$ = "[" + RIGHT$ ("0" + STR$ (J) + "] ",4):O$ = EL$ + A$ + D$(J) + EL$
+ A$: GOSUB 7000:CR = 1: POKE 1,128: GOSUB 8000:D$(J) = I$: POKE 1,0: GOTO 7210
7290 O$ = DL$ + "List from [CR=Lists all] #": GOSUB 7000:CR = 1: GOSUB 8300:F =
1:Z = X - 1: IF I$ = "" THEN 7310
7300 F = J:O$ = " To [CR=To The End] #": GOSUB 7000:CR = 1: GOSUB 8300:Z
= J: IF I$ = "" THEN Z = X - 1
7310 IF F < 1 OR Z > = X THEN O$ = EL$ + "[Line # Doesn't Exist!]" + EL$: GOT
O 7000
7320 O$ = EL$: GOSUB 7000: IF X < 2 THEN RETURN
7330 FOR J = F TO Z: IF A$ > "" THEN A$ = "[" + RIGHT$ ("0" + STR$ (J),2) +
"] "
7340 O$ = A$ + D$(J) + EL$: GOSUB 7000: NEXT J: RETURN
7350 IF X > 1 THEN O$ = EL$ + "Verify? [Y/N]:": GOSUB 7000: GOSUB 8370: IF I$
< > "Y" THEN POP : GOTO 7120
7360 RETURN
8000 CC = 0: IF PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
8539:CF = 9
8010 IF CF = 9 AND PEEK (1) < > 128 THEN CF = 1:CA$ = "Y"
8020 IF CA$ < > "Y" OR LEN (CN$) > 1 THEN 8040
8030 IF CF = 1 THEN CALL 38539
8040 IF PEEK (1) = 128 THEN 8140
8050 IF LEN (CN$) = 0 THEN 8140
8060 FOR T = 1 TO LEN (CN$)
8070 IF MID$ (CN$,T,1) = "," THEN I$ = MID$ (CN$,1,T - 1):CN$ = RIGHT$ (CN$
, LEN (CN$) - T): GOTO 8110
8080 IF MID$ (CN$,T,1) = "#" THEN I$ = MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
0
8090 NEXT
8100 POKE 960,0
8110 IF O$ = "STOP" THEN O$ = "": GOTO 8210
8120 IF LEN (I$) = 0 THEN 8050
8130 O$ = I$ + EL$: GOSUB 7000: GOTO 8290
8140 POKE 960,0: & A / SP$:I$ = MID$ (SP$,1): IF PEEK (961) THEN 8690
8150 CN$ = I$ + "#":O$ = "STOP"
8160 IF LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
8170 POKE 961,0: IF PEEK (960) = 255 THEN CC = CC + 1: IF CC > 1 THEN 8460
8180 IF PEEK (960) = 255 OR I$ = "OFF" THEN 70
8190 IF PEEK (1) = 128 THEN CN$ = "": GOTO 8230
8200 IF LEN (CN$) > 0 THEN 8060
8210 IF LEN (I$) < > 1 AND RIGHT$ (I$,1) = " " THEN I$ = LEFT$ (I$, LEN (I
$) - 1): GOTO 8210
8220 IF LEN (I$) < > 1 AND LEFT$ (I$,1) = " " THEN I$ = RIGHT$ (I$, LEN (I
$) - 1): GOTO 8220
8230 IF LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 7000: GOTO 8250
8240 IF LEN (I$) = 0 THEN 8000
8250 IF CA$ < > "Y" THEN 8290
8260 IF CF = 1 THEN CALL 36798
8270 IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 7000: CALL 36798
:CF = 1
8280 IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 7000: CALL 385
39:CF = 0
8290 CR = 0: RETURN
8300 GOSUB 8000: IF I$ = "" THEN RETURN
8310 J = INT ( VAL (I$)): IF J < 0 THEN J = 0
8320 RETURN
8330 POKE 2,255: GOSUB 8000: POKE 2,0: IF I$ = "" THEN RETURN
8340 RETURN
8350 GOSUB 8000: IF I$ = "" THEN RETURN
8360 RETURN
8370 GOTO 8000
8380 IF CL$ < > "Y" THEN T$ = DA$: RETURN
8390 PR# 4: IN# 4: INPUT "#";T,T,T,T,T,B: INPUT "%";T$
8400 IF TI = 0 THEN TI = T
8410 PR# 0: POKE 56,102: POKE 57,213: CALL 1002
8420 IF TI > T THEN T = TI + (60 - TI) + T
8430 TL = CO - (T - TI)
8440 IF B(0) = - 99 THEN 8460
8450 IF TL < = 0 THEN O$ = EL$ + "You are out of Time! Later.": GOSUB 7000:
POP : GOTO 70
8460 RETURN
8470 O$ = EL$: GOSUB 7000
8480 PRINT D$"OPENS"BB",V"V",S"S",D"D: PRINT D$"READS"BB
8490 & E / ZZ$:AM = VAL (ZZ$):O$ = DL$ + "Active Messages: " + STR$ (AM): GO
SUB 7000
8500 O$ = DL$ + "Loading Titles....": GOSUB 7000: IF ZZ$ = CHR$ (0) THEN 8520
8510 FOR X = 1 TO AM: INPUT N%(X),T$(X): NEXT X
8520 PRINT D$"CLOSE":BL = BB:NN = NB:O$ = "Done!": GOSUB 7000: RETURN
8530 PRINT D$"OPENS"BB",V"V",S"S",D"D: PRINT D$"WRITES"BB: PRINT AM: FOR X = 1
TO AM: PRINT N%(X)","T$(X): NEXT X: PRINT D$"CLOSE"
8540 PB = 0: RETURN
8550 O$ = EL$: GOSUB 7000: IF RT = 2 THEN O$ = SC$ + EL$: GOSUB 7000
8560 POKE 960,0: PRINT D$"OPEN"F$",V"V",S"S",D"D: PRINT D$"READ"F$
8570 IF CF < > 1 THEN 8640
8580 C = 1
8590 & E / ZZ$: IF LEN (ZZ$) > 0 THEN A$ = ZZ$: IF ASC ( LEFT$ (A$,1)) = 0 T
HEN C = - 1: GOTO 8620
8600 C = C + 1:O$ = EL$ + ZZ$: GOSUB 7000
8610 IF C < > 16 THEN 8590
8620 O$ = DL$ + "CR) Continue or Q)uit:":CR = 1: GOSUB 6000: IF I$ = "Q" OR C =
- 1 THEN 8650
8630 GOTO 8580
8640 & C
8650 PRINT D$"CLOSE": IF PEEK (960) = 255 THEN 70
8660 IF PEEK (960) = PEEK (970) THEN POKE 960,3:O$ = EL$: GOTO 7000
8670 IF PEEK (960) = PEEK (971) THEN POKE 960,2
8680 RETURN
8690 A$ = CH$: GOSUB 9210: CALL 35848"CHAT"
8700 RETURN
8710 O$ = DL$ + "Return to Main Dungeon? [Y/N]:": GOSUB 7000: GOSUB 8370: IF I$
< > "Y" THEN 120
8720 O$ = DL$ + "[%] Hold: Heading back to Main.....[%]" + EL$: GOSUB 7000:A$
= MA$: GOSUB 9210: CALL 35848"MAIN"
8730 O$ = DL$ + "Do you want a Command Line? Y/N: ": GOSUB 6000: IF I$ < > "Y"
AND I$ < > "N" THEN 8730
8740 B$(8) = I$
8750 O$ = EL$ + "Enter Starting Board(1-" + STR$ (B1) + ")->": GOSUB 6000:X =
VAL (I$): IF X < 1 OR X > B1 THEN 8750
8760 I$ = "N"
8770 IF BB = X THEN 8790
8780 BB = X - 1: GOTO 1070
8790 FOR X = 1 TO AM: IF Z(BB) = N%(X) THEN J = X: GOTO 8810
8800 NEXT
8810 O$ = DL$: GOSUB 7000: IF J = AM AND BB = B1 THEN O$ = DL$ + "No New Messag
es." + DL$ + "[Quickscan Complete!]": GOSUB 7000: GOTO 120
8820 IF J = AM THEN O$ = "No New Messages On Board " + STR$ (BB) + "." + DL$:
GOSUB 7000:I$ = "N": GOTO 1070
8830 IF B$(1) = "POST1" THEN B$(1) = "": GOTO 9110
8840 O$ = "New Messages on Board " + STR$ (BB) + "-> [" + STR$ (AM - J) + "]"
: GOSUB 7000
8850 CR = 1:O$ = DL$ + "[?/ Menu [CR] Continue]->": GOSUB 6000
8860 IF I$ = "" THEN I$ = "N": GOTO 9000
8870 IF I$ < > "?" THEN 8890
8880 O$ = EL$ + "E)nter Starting Number" + EL$ + "R)eset Command Line" + EL$ +
"S)kip Board" + EL$ + "Q)uit" + EL$ + "V)iew New Titles" + DL$: GOSUB 7000: GOTO
8840
8890 IF I$ = "Q" THEN 120
8900 IF I$ = "S" AND BB = B1 THEN O$ = EL$ + "[Quickscan Complete!]": GOSUB 70
00: GOTO 120
8910 IF I$ = "S" THEN I$ = "N": GOTO 1070
8920 IF I$ = "V" THEN G(1) = J:B$(2) = "SCAN":J = J + 1
8930 IF I$ = "V" THEN 840
8940 IF I$ = "E" THEN 8980
8950 IF I$ < > "R" THEN 8810
8960 IF B$(8) = "Y" THEN B$(8) = "N":O$ = EL$ + "Command Line Off": GOSUB 7000
: GOTO 8810
8970 B$(8) = "Y":O$ = EL$ + "Command Line On": GOSUB 7000: GOTO 8810
8980 IF I$ = "E" THEN O$ = EL$ + "Enter Starting #": GOSUB 6000:X = VAL (I$):
IF X < J + 1 OR X > AM THEN O$ = EL$ + "Invalid Number!":I$ = "E": GOTO 8980
8990 J = X - 1
9000 J = J + 1
9010 IF J > AM AND BB = B1 THEN O$ = DL$ + "[Quickscan Complete!]": GOSUB 7000
: GOTO 120
9020 IF J > AM AND BB < > B1 + 1 THEN I$ = "N": GOTO 1070
9030 GOSUB 8380: GOSUB 1030:Z(BB) = N%(J)
9040 IF B$(8) = "Y" THEN 9110
9050 GOTO 9000
9060 IF I$ = "Q" THEN 120
9070 IF I$ = "" THEN 9000
9080 IF I$ = "R" THEN 9030
9090 IF I$ = "S" AND J = AM THEN J = J + 1: GOTO 9010
9100 J = J + 1:Z(BB) = N%(J)
9110 O$ = DL$ + "Next Title ["
9120 IF J = AM THEN O$ = O$ + "End of Board " + STR$ (BB) + ".]": GOTO 9140
9130 O$ = O$ + T$(J + 1) + "]"
9140 O$ = O$ + DL$
9150 O$ = O$ + "[P/ost Q/uit R/e-Read S/kip [CR]/next]" + DL$ + "Which->"
9160 CR = 1
9170 GOSUB 6000
9171 IF I$ < > "P" THEN 9190
9175 IF (PU = 1 OR (PU = 2 AND AD$ = "NO")) AND SY$ < > NA$ THEN O$ = EL$ + "
Sorry, you are not allowed to post on this board.": GOSUB 7000: GOTO 9110
9180 B$(1) = "POST": GOTO 540
9190 IF I$ < > "R" AND I$ < > "Q" AND I$ < > "S" AND I$ < > "" THEN 9110
9200 GOTO 9060
9210 Y = VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y = VAL ( RIGHT$ (A$,1)): POKE 43
624,Y:Y = VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN PRINT D$"OPEN VC,V"Y
9215 IF TC$ = "Y" THEN POKE 1014,10: POKE 952,215: POKE 953,251
9220 RETURN
]O
]
]
]
]LOAD CASTLE EDITOR
]LIST
5 IF TC$ = "Y" THEN POKE 1014,0: POKE 952,240: POKE 953,253
10 CALL 54915:Y = 0
20 IF A > 0 THEN 40
30 PRINT CHR$ (4)"SAVECASTLE EDITOR,S3": PRINT CHR$ (4)"RUNGA,S6"
40 L = 1
50 IF LE > 1 THEN L = 2
60 IF LE > 5 THEN L = 3
70 IF LE > 10 THEN L = 4
80 IF LE > 17 THEN L = 5
90 IF LE > 25 THEN L = 6
100 IF LE > 45 THEN L = 7
110 IF LE > 65 THEN L = 8
120 IF LE > 85 THEN L = 9
130 IF LE > 95 THEN L = 10
140 ONERR GOTO 170
150 PRINT D$"OPENCASTLES,L39"C$(12): PRINT D$"READCASTLES,R"A: INPUT CS$: PRIN
T D$"CLOSE"
160 GOTO 180
170 CALL - 3288:CS$ = "00000000000000000000000000000000000000"
180 FOR X = 1 TO 38 STEP 2
190 Y = Y + 1
200 D$(Y) = MID$ (CS$,X,2)
210 NEXT
220 GOSUB 8460
230 HOME
240 ONERR GOTO 260
250 GOTO 270
260 CALL - 3288: GOTO 230
270 O$ = SC$ + DL$ + " -=>Castle Editor<=-" + DL$ + "1. Edit Castle"
+ EL$ + "2. Pay Rent/Fees" + EL$ + "3. Castle Description/Help File" + DL$ + "[Y
ou owe $" + STR$ (R) + "][Cmd]->"
280 GOSUB 6000
290 IF I$ = "Q" THEN 8320
300 IF I$ = "3" THEN F$ = "CASTLE.DES":O$ = SC$: GOSUB 7000: HOME : GOSUB 8590
:O$ = EL$ + "[Press Return]":CR = 1: GOSUB 6000
310 IF I$ = "1" THEN 370
320 IF I$ < > "2" THEN 230
330 GOSUB 8460
340 IF GD < R THEN O$ = EL$ + "You don't have enought gold!" + DL$ + "[Press R
eturn]":CR = 1: GOSUB 6000: GOTO 230
350 UU = UU + R
360 GD = GD - R:O$ = EL$ + "Your payment has been registerd.": GOSUB 7000: GOSU
B 8460: GOTO 230
370 HOME :T = 0
380 O$ = SC$ + "Room # / Monster / Trap" + DL$: GOSUB 7000
390 FOR X = 1 TO 19
400 T = T + 1
410 O$ = STR$ (X) + "] "
420 A$ = LEFT$ (D$(T),1)
430 B$ = RIGHT$ (D$(T),1)
440 IF A$ = "0" THEN O$ = O$ + " - ": GOTO 470
450 Y = ASC (A$) - 64
460 O$ = O$ + "Lev. " + STR$ (Y) + " Mon. -"
470 IF B$ = "0" THEN 500
480 Y = ASC (B$) - 64
490 O$ = O$ + " " + S$(Y)
500 O$ = O$ + EL$: GOSUB 7000
510 NEXT
520 O$ = EL$ + "Edit Which(1-19)->": GOSUB 6000
530 IF I$ = "Q" THEN CP$ = "N": GOSUB 8410: GOSUB 8460: GOTO 230
540 B(1) = VAL (I$): IF B(1) < 1 OR B(1) > 19 THEN 520
550 O$ = EL$ + "Monster in the Room? Y/N->": GOSUB 6000: IF I$ = "N" THEN A$ =
"0": GOTO 660
560 HOME :O$ = SC$ + "Edit room #" + STR$ (B(1)) + DL$ + "Which Monster: " +
DL$ + "0] No monster in Room" + EL$: GOSUB 7000
570 O$ = "1-" + STR$ (L) + "] Level Monsters" + EL$: GOSUB 7000
580 O$ = EL$ + "Which(?=Menu)->": GOSUB 6000:X = VAL (I$): IF I$ = "?" THEN 56
0
590 IF I$ = "Q" THEN 370
600 IF X < 0 OR X > L THEN 580
610 IF X = 0 THEN A$ = "0": GOTO 660
620 B(2) = X * X * X * 100:O$ = EL$ + "A Level " + STR$ (X) + " Monster's" + E
L$ + "Rent per call is $" + STR$ (B(2)) + EL$ + "Rent monster? Y/N->": GOSUB 60
00: IF I$ < > "Y" THEN 580
630 A$ = LEFT$ (D$(B(1)),1):B$ = RIGHT$ (D$(B(1)),1)
640 Y = 64 + X
650 A$ = CHR$ (Y)
660 O$ = EL$ + "Spell Trap in the Room? Y/N->": GOSUB 6000: IF I$ = "N" THEN B$
= "0": GOTO 820
670 HOME :O$ = SC$ + "Edit Room #" + STR$ (B(1)) + DL$ + "Which Spell Trap:"
+ DL$ + "0) No Spell" + EL$: GOSUB 7000
680 FOR X = 1 TO 26
690 IF S$(X) = "Death" OR S$(X) = "Negate" THEN 710
700 IF U(X) = 0 THEN 720
710 O$ = STR$ (X) + ") " + S$(X) + EL$: GOSUB 7000
720 NEXT
730 O$ = EL$ + "Which(?=Menu)->": GOSUB 6000
740 IF I$ = "Q" THEN 370
750 IF I$ = "?" THEN 660
760 IF I$ = "0" THEN B$ = "0": GOTO 820
770 X = VAL (I$): IF X < 1 OR X > 26 THEN 730
780 IF U(X) = 0 AND S$(X) < > "Death" AND S$(X) < > "Negate" THEN 730
790 Y = 100 * X * X
800 O$ = EL$ + "A " + S$(X) + " Spell Trap" + EL$ + "Rent per call is $" + STR
$ (Y) + EL$ + "Rent Trap? Y/N->": GOSUB 6000: IF I$ < > "Y" THEN 730
810 Y = 64 + X:B$ = CHR$ (Y)
820 D$(B(1)) = A$ + B$: GOTO 370
6000 GOSUB 7000: GOSUB 8000: RETURN
7000 & B / O$: POKE 960,0: RETURN
8000 CC = 0: IF PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
8539:CF = 9
8010 IF CF = 9 AND PEEK (1) < > 128 THEN CF = 1:CA$ = "Y"
8020 IF CA$ < > "Y" OR LEN (CN$) > 1 THEN 8040
8030 IF CF = 1 THEN CALL 38539
8040 IF PEEK (1) = 128 THEN 8140
8050 IF LEN (CN$) = 0 THEN 8140
8060 FOR T = 1 TO LEN (CN$)
8070 IF MID$ (CN$,T,1) = "," THEN I$ = MID$ (CN$,1,T - 1):CN$ = RIGHT$ (CN$
, LEN (CN$) - T): GOTO 8110
8080 IF MID$ (CN$,T,1) = "#" THEN I$ = MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
0
8090 NEXT
8100 POKE 960,0
8110 IF O$ = "STOP" THEN O$ = "": GOTO 8210
8120 IF LEN (I$) = 0 THEN 8050
8130 O$ = I$ + EL$: GOSUB 7000: GOTO 8290
8140 POKE 960,0: & A / SP$:I$ = MID$ (SP$,1): IF PEEK (961) THEN 8310
8150 CN$ = I$ + "#":O$ = "STOP"
8160 IF LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
8170 POKE 961,0: IF PEEK (960) = 255 THEN CC = CC + 1: FOR T = 1 TO 500: NEXT
: IF CC > 1 OR I$ = "OFF" THEN 8300
8180 IF PEEK (960) = 255 THEN 8140
8190 IF PEEK (1) = 128 THEN CN$ = "": GOTO 8230
8200 IF LEN (CN$) > 0 THEN 8060
8210 IF LEN (I$) < > 1 AND RIGHT$ (I$,1) = " " THEN I$ = LEFT$ (I$, LEN (I
$) - 1): GOTO 8210
8220 IF LEN (I$) < > 1 AND LEFT$ (I$,1) = " " THEN I$ = RIGHT$ (I$, LEN (I
$) - 1): GOTO 8220
8230 IF LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 7000: GOTO 8250
8240 IF LEN (I$) = 0 THEN 8000
8250 IF CA$ < > "Y" THEN 8290
8260 IF CF = 1 THEN CALL 36798
8270 IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 7000: CALL 36798
:CF = 1
8280 IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 7000: CALL 385
39:CF = 0
8290 CR = 0: RETURN
8300 A$ = OF$: GOSUB 8390: CALL 35848"OFF"
8310 A$ = CH$: GOSUB 8390: CALL 35848"CHAT"
8320 A$ = MA$: GOSUB 8390:O$ = EL$ + "[Hold...] Transporting to Main" + EL$: GO
SUB 7000: CALL 35848"MAIN"
8330 IF LEN (O$) < 40 OR LEN (O$) > 79 THEN RETURN
8340 X = 0
8350 IF MID$ (O$,40 - X,1) = " " THEN B$(0) = LEFT$ (O$,39 - X):B$(0) = B$(0
) + EL$ + RIGHT$ (O$, LEN (O$) - (40 - X)): GOTO 8370
8360 X = X + 1: GOTO 8350
8370 O$ = B$(0)
8380 RETURN
8390 Y = VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y = VAL ( RIGHT$ (A$,1)): POKE 43
624,Y:Y = VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN PRINT D$"OPEN VC,V"Y
8395 IF TC$ = "Y" THEN POKE 1014,10: POKE 952,215: POKE 953,251
8400 RETURN
8410 CS$ = ""
8420 FOR X = 1 TO 19
8430 CS$ = CS$ + D$(X)
8440 NEXT
8450 PRINT D$"OPENCASTLES,L39"C$(12): PRINT D$"WRITECASTLES,R"A: PRINT CS$: PR
INT D$"CLOSE": RETURN
8460 R = 0
8470 FOR X = 1 TO 19
8480 A$ = LEFT$ (D$(X),1)
8490 B$ = RIGHT$ (D$(X),1)
8500 IF A$ = "0" THEN 8530
8510 Y = ASC (A$) - 64
8520 R = R + (Y * Y * Y * 100)
8530 IF B$ = "0" THEN 8560
8540 Y = ASC (B$) - 64
8550 R = R + (Y * Y * 100)
8560 NEXT
8570 R = R - UU: IF R < 1 THEN R = 0:CP$ = "Y"
8580 RETURN
8590 POKE 960,0: PRINT D$"OPEN"F$""C$(17): PRINT CHR$ (4)"READ"F$
8600 IF CF < > 1 THEN 8670
8610 C = 1
8620 & E / ZZ$: IF LEN (ZZ$) > 0 THEN A$ = ZZ$: IF ASC ( LEFT$ (A$,1)) = 0 T
HEN C = - 1: GOTO 8650
8630 C = C + 1:O$ = EL$ + ZZ$: GOSUB 7000
8640 IF C < > 16 THEN 8620
8650 O$ = DL$ + "CR) Continue or Q)uit:":CR = 1: GOSUB 6000: IF I$ = "Q" OR C =
- 1 THEN 8680
8660 GOTO 8610
8670 & C
8680 PRINT D$"CLOSE": IF PEEK (960) = 255 THEN 8430
8690 IF PEEK (960) = PEEK (970) THEN POKE 960,3:O$ = EL$: GOTO 7000
8700 IF PEEK (960) = PEEK (971) THEN POKE 960,2
8710 RETURN
]LOAD CASTLE EDITOR
]LIST
5 IF TC$ = "Y" THEN POKE 1014,0: POKE 952,240: POKE 953,253
10 CALL 54915:Y = 0
20 IF A > 0 THEN 40
30 PRINT CHR$ (4)"SAVECASTLE EDITOR,S3": PRINT CHR$ (4)"RUNGA,S6"
40 L = 1
50 IF LE > 1 THEN L = 2
60 IF LE > 5 THEN L = 3
70 IF LE > 10 THEN L = 4
80 IF LE > 17 THEN L = 5
90 IF LE > 25 THEN L = 6
100 IF LE > 45 THEN L = 7
110 IF LE > 65 THEN L = 8
120 IF LE > 85 THEN L = 9
130 IF LE > 95 THEN L = 10
140 ONERR GOTO 170
150 PRINT D$"OPENCASTLES,L39"C$(12): PRINT D$"READCASTLES,R"A: INPUT CS$: PRIN
T D$"CLOSE"
160 GOTO 180
170 CALL - 3288:CS$ = "00000000000000000000000000000000000000"
180 FOR X = 1 TO 38 STEP 2
190 Y = Y + 1
200 D$(Y) = MID$ (CS$,X,2)
210 NEXT
220 GOSUB 8460
230 HOME
240 ONERR GOTO 260
250 GOTO 270
260 CALL - 3288: GOTO 230
270 O$ = SC$ + DL$ + " -=>Castle Editor<=-" + DL$ + "1. Edit Castle"
+ EL$ + "2. Pay Rent/Fees" + EL$ + "3. Castle Description/Help File" + DL$ + "[Y
ou owe $" + STR$ (R) + "][Cmd]->"
280 GOSUB 6000
290 IF I$ = "Q" THEN 8320
300 IF I$ = "3" THEN F$ = "CASTLE.DES":O$ = SC$: GOSUB 7000: HOME : GOSUB 8590
:O$ = EL$ + "[Press Return]":CR = 1: GOSUB 6000
310 IF I$ = "1" THEN 370
320 IF I$ < > "2" THEN 230
330 GOSUB 8460
340 IF GD < R THEN O$ = EL$ + "You don't have enought gold!" + DL$ + "[Press R
eturn]":CR = 1: GOSUB 6000: GOTO 230
350 UU = UU + R
360 GD = GD - R:O$ = EL$ + "Your payment has been registerd.": GOSUB 7000: GOSU
B 8460: GOTO 230
370 HOME :T = 0
380 O$ = SC$ + "Room # / Monster / Trap" + DL$: GOSUB 7000
390 FOR X = 1 TO 19
400 T = T + 1
410 O$ = STR$ (X) + "] "
420 A$ = LEFT$ (D$(T),1)
430 B$ = RIGHT$ (D$(T),1)
440 IF A$ = "0" THEN O$ = O$ + " - ": GOTO 470
450 Y = ASC (A$) - 64
460 O$ = O$ + "Lev. " + STR$ (Y) + " Mon. -"
470 IF B$ = "0" THEN 500
480 Y = ASC (B$) - 64
490 O$ = O$ + " " + S$(Y)
500 O$ = O$ + EL$: GOSUB 7000
510 NEXT
520 O$ = EL$ + "Edit Which(1-19)->": GOSUB 6000
530 IF I$ = "Q" THEN CP$ = "N": GOSUB 8410: GOSUB 8460: GOTO 230
540 B(1) = VAL (I$): IF B(1) < 1 OR B(1) > 19 THEN 520
550 O$ = EL$ + "Monster in the Room? Y/N->": GOSUB 6000: IF I$ = "N" THEN A$ =
"0": GOTO 660
560 HOME :O$ = SC$ + "Edit room #" + STR$ (B(1)) + DL$ + "Which Monster: " +
DL$ + "0] No monster in Room" + EL$: GOSUB 7000
570 O$ = "1-" + STR$ (L) + "] Level Monsters" + EL$: GOSUB 7000
580 O$ = EL$ + "Which(?=Menu)->": GOSUB 6000:X = VAL (I$): IF I$ = "?" THEN 56
0
590 IF I$ = "Q" THEN 370
600 IF X < 0 OR X > L THEN 580
610 IF X = 0 THEN A$ = "0": GOTO 660
620 B(2) = X * X * X * 100:O$ = EL$ + "A Level " + STR$ (X) + " Monster's" + E
L$ + "Rent per call is $" + STR$ (B(2)) + EL$ + "Rent monster? Y/N->": GOSUB 60
00: IF I$ < > "Y" THEN 580
630 A$ = LEFT$ (D$(B(1)),1):B$ = RIGHT$ (D$(B(1)),1)
640 Y = 64 + X
650 A$ = CHR$ (Y)
660 O$ = EL$ + "Spell Trap in the Room? Y/N->": GOSUB 6000: IF I$ = "N" THEN B$
= "0": GOTO 820
670 HOME :O$ = SC$ + "Edit Room #" + STR$ (B(1)) + DL$ + "Which Spell Trap:"
+ DL$ + "0) No Spell" + EL$: GOSUB 7000
680 FOR X = 1 TO 26
690 IF S$(X) = "Death" OR S$(X) = "Negate" THEN 710
700 IF U(X) = 0 THEN 720
710 O$ = STR$ (X) + ") " + S$(X) + EL$: GOSUB 7000
720 NEXT
730 O$ = EL$ + "Which(?=Menu)->": GOSUB 6000
740 IF I$ = "Q" THEN 370
750 IF I$ = "?" THEN 660
760 IF I$ = "0" THEN B$ = "0": GOTO 820
770 X = VAL (I$): IF X < 1 OR X > 26 THEN 730
780 IF U(X) = 0 AND S$(X) < > "Death" AND S$(X) < > "Negate" THEN 730
790 Y = 100 * X * X
800 O$ = EL$ + "A " + S$(X) + " Spell Trap" + EL$ + "Rent per call is $" + STR
$ (Y) + EL$ + "Rent Trap? Y/N->": GOSUB 6000: IF I$ < > "Y" THEN 730
810 Y = 64 + X:B$ = CHR$ (Y)
820 D$(B(1)) = A$ + B$: GOTO 370
6000 GOSUB 7000: GOSUB 8000: RETURN
7000 & B / O$: POKE 960,0: RETURN
8000 CC = 0: IF PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
8539:CF = 9
8010 IF CF = 9 AND PEEK (1) < > 128 THEN CF = 1:CA$ = "Y"
8020 IF CA$ < > "Y" OR LEN (CN$) > 1 THEN 8040
8030 IF CF = 1 THEN CALL 38539
8040 IF PEEK (1) = 128 THEN 8140
8050 IF LEN (CN$) = 0 THEN 8140
8060 FOR T = 1 TO LEN (CN$)
8070 IF MID$ (CN$,T,1) = "," THEN I$ = MID$ (CN$,1,T - 1):CN$ = RIGHT$ (CN$
, LEN (CN$) - T): GOTO 8110
8080 IF MID$ (CN$,T,1) = "#" THEN I$ = MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
0
8090 NEXT
8100 POKE 960,0
8110 IF O$ = "STOP" THEN O$ = "": GOTO 8210
8120 IF LEN (I$) = 0 THEN 8050
8130 O$ = I$ + EL$: GOSUB 7000: GOTO 8290
8140 POKE 960,0: & A / SP$:I$ = MID$ (SP$,1): IF PEEK (961) THEN 8310
8150 CN$ = I$ + "#":O$ = "STOP"
8160 IF LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
8170 POKE 961,0: IF PEEK (960) = 255 THEN CC = CC + 1: FOR T = 1 TO 500: NEXT
: IF CC > 1 OR I$ = "OFF" THEN 8300
8180 IF PEEK (960) = 255 THEN 8140
8190 IF PEEK (1) = 128 THEN CN$ = "": GOTO 8230
8200 IF LEN (CN$) > 0 THEN 8060
8210 IF LEN (I$) < > 1 AND RIGHT$ (I$,1) = " " THEN I$ = LEFT$ (I$, LEN (I
$) - 1): GOTO 8210
8220 IF LEN (I$) < > 1 AND LEFT$ (I$,1) = " " THEN I$ = RIGHT$ (I$, LEN (I
$) - 1): GOTO 8220
8230 IF LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 7000: GOTO 8250
8240 IF LEN (I$) = 0 THEN 8000
8250 IF CA$ < > "Y" THEN 8290
8260 IF CF = 1 THEN CALL 36798
8270 IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 7000: CALL 36798
:CF = 1
8280 IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 7000: CALL 385
39:CF = 0
8290 CR = 0: RETURN
8300 A$ = OF$: GOSUB 8390: CALL 35848"OFF"
8310 A$ = CH$: GOSUB 8390: CALL 35848"CHAT"
8320 A$ = MA$: GOSUB 8390:O$ = EL$ + "[Hold...] Transporting to Main" + EL$: GO
SUB 7000: CALL 35848"MAIN"
8330 IF LEN (O$) < 40 OR LEN (O$) > 79 THEN RETURN
8340 X = 0
8350 IF MID$ (O$,40 - X,1) = " " THEN B$(0) = LEFT$ (O$,39 - X):B$(0) = B$(0
) + EL$ + RIGHT$ (O$, LEN (O$) - (40 - X)): GOTO 8370
8360 X = X + 1: GOTO 8350
8370 O$ = B$(0)
8380 RETURN
8390 Y = VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y = VAL ( RIGHT$ (A$,1)): POKE 43
624,Y:Y = VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN PRINT D$"OPEN VC,V"Y
8395 IF TC$ = "Y" THEN POKE 1014,10: POKE 952,215: POKE 953,251
8400 RETURN
8410 CS$ = ""
8420 FOR X = 1 TO 19
8430 CS$ = CS$ + D$(X)
8440 NEXT
8450 PRINT D$"OPENCASTLES,L39"C$(12): PRINT D$"WRITECASTLES,R"A: PRINT CS$: PR
INT D$"CLOSE": RETURN
8460 R = 0
8470 FOR X = 1 TO 19
8480 A$ = LEFT$ (D$(X),1)
8490 B$ = RIGHT$ (D$(X),1)
8500 IF A$ = "0" THEN 8530
8510 Y = ASC (A$) - 64
8520 R = R + (Y * Y * Y * 100)
8530 IF B$ = "0" THEN 8560
8540 Y = ASC (B$) - 64
8550 R = R + (Y * Y * 100)
8560 NEXT
8570 R = R - UU: IF R < 1 THEN R = 0:CP$ = "Y"
8580 RETURN
8590 POKE 960,0: PRINT D$"OPEN"F$""C$(17): PRINT CHR$ (4)"READ"F$
8600 IF CF < > 1 THEN 8670
8610 C = 1
8620 & E / ZZ$: IF LEN (ZZ$) > 0 THEN A$ = ZZ$: IF ASC ( LEFT$ (A$,1)) = 0 T
HEN C = - 1: GOTO 8650
8630 C = C + 1:O$ = EL$ + ZZ$: GOSUB 7000
8640 IF C < > 16 THEN 8620
8650 O$ = DL$ + "CR) Continue or Q)uit:":CR = 1: GOSUB 6000: IF I$ = "Q" OR C =
- 1 THEN 8680
8660 GOTO 8610
8670 & C
8680 PRINT D$"CLOSE": IF PEEK (960) = 255 THEN 8430
8690 IF PEEK (960) = PEEK (970) THEN POKE 960,3:O$ = EL$: GOTO 7000
8700 IF PEEK (960) = PEEK (971) THEN POKE 960,2
8710 RETURN
]LOAD CHAT
]LIST
5 IF TC$ = "Y" THEN POKE 1014,0: POKE 952,240: POKE 953,253
10 CALL 54915
20 IF A > 0 THEN 40
30 PRINT CHR$ (4)"SAVECHAT,S3": PRINT CHR$ (4)"RUNSTORES,S6"
40 HOME : POKE 1,128
50 ONERR GOTO 760
60 O$ = DL$ + "Audience Granted to " + NA$ + ".": GOSUB 160
70 GOTO 8490
80 A$ = OF$: GOSUB 8830: CALL 35848"OFF"
90 IF CA$ < > "Y" THEN 100
95 POKE 36996,76: POKE 36998,142
100 A$ = DL$ + "-=> " + SY$ + " Has arrived <=-" + DL$: & B / A$: POKE 2,0
110 & A / SP$: IF PEEK (961) THEN POKE 961,0:O$ = EL$ + "Sysop has Left" + E
L$: GOSUB 160: POKE 36996,169: POKE 36998,32: RETURN
120 IF PEEK (960) = 255 THEN 80
130 IF SP$ = "" THEN O$ = EL$: GOSUB 160
140 POKE 38689,0
150 GOTO 110
160 & B / O$: RETURN
170 PRINT : PRINT "F) ile to Read(Text Only)": PRINT "User Stats Editor": PRIN
T "Q) Quit"
180 PRINT : PRINT "System (?=Help):";: GOSUB 8000
190 ONERR GOTO 760
200 IF I$ = "U" THEN 260
210 IF I$ = "F" THEN 710
230 IF I$ = "?" THEN 170
240 IF I$ = "Q" THEN 8510
250 PRINT : PRINT "Invalid Command...": GOTO 180
260 HOME
270 PRINT "[1] Calls Per Day: " + STR$ (CP)
280 PRINT "[2] Calls Today: " + STR$ (CA)
290 PRINT "[3] Total Calls: " + STR$ (CL)
300 PRINT "[4] Adventure Access: " + AD$
310 PRINT "[5] Strength: " + STR$ (ST)
330 PRINT "[7] Agility: " + STR$ (AG)
340 PRINT "[8] Intelligence: " + STR$ (CH)
350 PRINT "[9] Wisdom: " + STR$ (WI)
360 PRINT "[10] Gold: " + STR$ (GD)
370 PRINT "[11] Food: " + STR$ (FD)
380 PRINT "[12] Experience: " + STR$ (EX)
390 PRINT "[13] Maximum Hit Points: " + STR$ (TH)
400 PRINT "[14] Hit Points: " + STR$ (HP)
410 PRINT "[15] Maximum Power: " + STR$ (TP)
420 PRINT "[16] Power: " + STR$ (PO)
430 PRINT "[17] Weapon: " + WP$
440 PRINT "[18] Armor: " + AM$
450 PRINT "Which(?): ";: GOSUB 8000: PRINT
460 IF I$ = "?" THEN 260
470 IF I$ = "Q" THEN 170
480 X = VAL (I$): IF X < 1 OR X > 18 THEN 260
490 IF X = 1 THEN PRINT "Calls Per Day-> ";: GOSUB 8000:CP = VAL (I$): GOTO
260
500 IF X = 2 THEN PRINT "Calls Today->";: GOSUB 8000:CA = VAL (I$): GOTO 260
510 IF X = 3 THEN PRINT "Total Calls->";: GOSUB 8000:CL = VAL (I$): GOTO 260
520 IF X = 4 THEN PRINT "Adventure Access->";: GOSUB 8000:AD$ = I$: GOTO 260
530 IF X = 5 THEN PRINT "Strength->";: GOSUB 8000:ST = VAL (I$): GOTO 260
540 IF X = 6 THEN PRINT "Dexterity->";: GOSUB 8000:DE = VAL (I$): GOTO 260
550 IF X = 7 THEN PRINT "Agility->";: GOSUB 8000:AG = VAL (I$): GOTO 260
560 IF X = 8 THEN PRINT "Intelligence->";: GOSUB 8000:CH = VAL (I$): GOTO 26
0
570 IF X = 9 THEN PRINT "Wisdom->";: GOSUB 8000:WI = VAL (I$): GOTO 260
580 IF X = 10 THEN PRINT "Gold->";: GOSUB 8000:GD = VAL (I$): GOTO 260
590 IF X = 11 THEN PRINT "Food->";: GOSUB 8000:FD = VAL (I$): GOTO 260
600 IF X = 12 THEN PRINT "Experience->";: GOSUB 8000:EX = VAL (I$): GOTO 260
610 IF X = 13 THEN PRINT "Maximum Hit Points->";: GOSUB 8000:TH = VAL (I$):
GOTO 260
620 IF X = 14 THEN PRINT "Hit Points->";: GOSUB 8000:HP = VAL (I$): GOTO 260
630 IF X = 15 THEN PRINT "Maximum Power->";: GOSUB 8000:TP = VAL (I$): GOTO
260
640 IF X = 16 THEN PRINT "Power->";: GOSUB 8000:PO = VAL (I$): GOTO 260
650 IF X = 17 THEN PRINT "Weapon->";: GOTO 670
660 IF X = 18 THEN PRINT "Armor->";: GOTO 690
670 GOSUB 8000:X = VAL (I$): IF X < 1 OR X > WN THEN X = 17: GOTO 650
675 PRINT
680 PRINT D$"OPENWEAPONS,L40"C$(19): PRINT D$"READWEAPONS,R"X: INPUT WP$,HT,HT
: PRINT D$"CLOSE":WE = X: GOTO 260
690 GOSUB 8000:X = VAL (I$): IF X < 1 OR X > AN THEN X = 18: GOTO 660
695 PRINT
700 PRINT D$"OPENARMOR,L40"C$(1): PRINT D$"READARMOR,R"X: INPUT AM$,AP,AP: PRI
NT D$"CLOSE":AR = X: GOTO 260
710 PRINT : PRINT "File To Read->";: GOSUB 8000:F$ = I$
720 PRINT : PRINT "Volume->";: GOSUB 8000:V = VAL (I$)
730 PRINT "Slot->";: GOSUB 8000:S = VAL (I$)
740 PRINT "Drive->";: GOSUB 8000:D = VAL (I$)
750 PRINT : GOSUB 8410: GOTO 170
760 CALL - 3288: GOTO 180
770 PRINT : PRINT "Level->";: GOSUB 8000:X = VAL (I$): IF X < 1 OR X > 49 THE
N 8510
780 LE = X: PRINT
790 POKE 43624,1: POKE 43626,6
800 PRINT D$"OPENLEVELS"C$(7): PRINT D$"READLEVELS": IF LE = 1 THEN 820
810 FOR X = 1 TO LE - 1: INPUT L$(1),A(1): NEXT
820 INPUT L$(1),A(1),L$(2),A(2)
830 PRINT D$"CLOSE"
840 EX = A(1): GOTO 8510
8000 CC = 0: IF PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
8539:CF = 9
8010 IF CF = 9 AND PEEK (1) < > 128 THEN CF = 1:CA$ = "Y"
8020 IF CA$ < > "Y" OR LEN (CN$) > 1 THEN 8040
8030 IF CF = 1 THEN CALL 38539
8040 IF PEEK (1) = 128 THEN 8140
8050 IF LEN (CN$) = 0 THEN 8140
8060 FOR T = 1 TO LEN (CN$)
8070 IF MID$ (CN$,T,1) = "," THEN I$ = MID$ (CN$,1,T - 1):CN$ = RIGHT$ (CN$
, LEN (CN$) - T): GOTO 8110
8080 IF MID$ (CN$,T,1) = "#" THEN I$ = MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
0
8090 NEXT
8100 POKE 960,0
8110 IF O$ = "STOP" THEN O$ = "": GOTO 8210
8120 IF LEN (I$) = 0 THEN 8050
8130 O$ = I$ + EL$: GOSUB 160: GOTO 8290
8140 POKE 960,0: & A / SP$:I$ = MID$ (SP$,1): IF PEEK (961) THEN POKE 961,0
: POP : GOTO 8490
8150 CN$ = I$ + "#":O$ = "STOP"
8160 IF LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
8170 POKE 961,0: IF PEEK (960) = 255 THEN CC = CC + 1: FOR T = 1 TO 500: NEXT
: IF CC > 1 OR I$ = "OFF" THEN 80
8180 IF PEEK (960) = 255 THEN 8140
8190 IF PEEK (1) = 128 THEN CN$ = "": GOTO 8230
8200 IF LEN (CN$) > 0 THEN 8060
8210 IF LEN (I$) < > 1 AND RIGHT$ (I$,1) = " " THEN I$ = LEFT$ (I$, LEN (I
$) - 1): GOTO 8210
8220 IF LEN (I$) < > 1 AND LEFT$ (I$,1) = " " THEN I$ = RIGHT$ (I$, LEN (I
$) - 1): GOTO 8220
8230 IF LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 160: GOTO 8250
8240 IF LEN (I$) = 0 THEN 8000
8250 IF CA$ < > "Y" THEN 8290
8260 IF CF = 1 THEN CALL 36798
8270 IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 160: CALL 36798:
CF = 1
8280 IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 160: CALL 3853
9:CF = 0
8290 CR = 0: RETURN
8300 GOSUB 8000: IF I$ = "" THEN RETURN
8310 IF LEN (I$) > 5 THEN I$ = LEFT$ (I$,5)
8320 J = INT ( VAL (I$))
8330 RETURN
8340 IF CL$ = "N" THEN T$ = DA$: RETURN
8350 PR# 4: IN# 4: INPUT "#";T,T,T,T,T,B: INPUT "%";T$
8360 IF TI = 0 THEN TI = T
8370 PR# 0: POKE 56,102: POKE 57,213: CALL 1002
8380 IF TI > T THEN T = TI + (60 - TI) + T
8390 TL = CO - (T - TI)
8400 RETURN
8410 O$ = EL$: GOSUB 160: IF RT = 2 THEN O$ = DL$: GOSUB 160
8420 POKE 960,0: PRINT D$"OPEN"F$",V"V",S"S",D"D: PRINT CHR$ (4)"READ"F$
8430 & C: IF PEEK (960) = PEEK (971) AND RT < > 3 THEN POKE 960,0: GOTO 84
30
8440 IF PEEK (960) = PEEK (970) AND RT = 5 THEN POKE 960,0: GOTO 8430
8450 PRINT CHR$ (4)"CLOSE": IF PEEK (960) = 255 THEN 80
8460 IF PEEK (960) = PEEK (970) THEN POKE 960,3:O$ = EL$: GOTO 160
8470 IF PEEK (960) = PEEK (971) THEN POKE 960,2
8480 RETURN
8490 QE = PEEK (0):QF = PEEK (1):QG = PEEK (2): POKE 2,0:O$ = DL$ + "% Pleas
e Wait - Sysop Is Busy %" + EL$: GOSUB 160:QC = PEEK (966): POKE 966,0
8500 POKE 1190,171
8510 PRINT : PRINT "Sysop Options"
8520 PRINT
8530 PRINT "1) Change time left [" + STR$ (TL) + "]"
8540 PRINT "2) Change Level #"LE" "L$(1)
8550 PRINT "3) Validate user"
8560 PRINT "4) Chat with user"
8570 PRINT "5) Log off user"
8580 PRINT "6) Enter system level"
8590 PRINT "7) Change Name/Fights"
8600 PRINT "8) Exit sysop options": PRINT
8610 PRINT "Option (?=Menu): ";
8620 POKE - 16368,0: POKE 2,255: POKE 961,0: & A / I$
8630 IF I$ = "?" THEN 8510
8640 I = VAL (I$): IF I < 1 OR I > 8 THEN 8610
8650 ON I GOTO 8670,770,8660,8700,8710,170,8720,8760
8660 CP = 2:AD$ = "Yes": PRINT : PRINT "Done": GOTO 8510
8670 PRINT "Enter time left(max:"CO"): ";: GOSUB 8000:X = VAL (I$): IF X < 1
OR X > CO THEN 8670
8680 IF CL$ = "N" THEN TL = X: GOTO 8510
8690 GOSUB 8340:X = CO - X:TI = T - X: GOSUB 8340: GOTO 8510
8700 POKE 966,QC: POKE 2,0: GOSUB 90: POKE 966,0: GOTO 8510
8710 POKE 966,QC: POKE 2,QG: POKE 1,0:O$ = EL$ + "Like soooo long dude.." + DL
$ + "You just go fried sucker..." + EL$: GOSUB 160: GOTO 80
8720 POKE 2,0: PRINT : PRINT "[1] Name: " + NA$: PRINT "[2] Fights Left: "4 -
FO: PRINT : PRINT "Which-> ";: GOSUB 8300: PRINT
8730 IF J < 0 OR J > 2 THEN 8520
8740 IF J = 1 THEN PRINT "Name->";: GOSUB 8000:NA$ = I$: GOTO 8510
8750 PRINT "Fights Left Today->";: GOSUB 8000:X = VAL (I$):FO = 4 - X: GOTO 8
520
8760 O$ = DL$ + "Which board: " + DL$ + "1) Start" + EL$ + "2) Main" + EL$ + "3
) Boards" + EL$ + "4) Gambling" + EL$ + "5) Dungeon" + DL$ + "Which: ": GOSUB 16
0: GOSUB 8000:K = VAL (I$): IF K < 1 OR K > 5 THEN 8760
8770 O$ = EL$ + "[ User Has Been Granted Control Again ]" + EL$: POKE 966,QC: G
OSUB 160: POKE 2,QG: POKE 1,0
8780 IF K = 1 THEN PRINT : PRINT D$"RUNSTART"C$(14)
8790 IF K = 2 THEN A$ = MA$: GOSUB 8830: CALL 35848"MAIN"
8800 IF K = 3 THEN A$ = BO$: GOSUB 8830: CALL 35848"BRD"
8810 IF K = 4 THEN A$ = GA$: GOSUB 8830: CALL 35848"GA"
8820 IF K = 5 THEN A$ = FT$: GOSUB 8830: CALL 35848"FIGHT"
8830 Y = VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y = VAL ( RIGHT$ (A$,1)): POKE 43
624,Y:Y = VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN PRINT : PRINT D$"OPEN VC,V"Y
8835 IF TC$ = "Y" THEN POKE 1014,10: POKE 952,215: POKE 953,251
8840 RETURN
]LOAD COMPLETE EDITOR
]LIST
10 F$ = ",S6,D1"
20 HOME : PRINT "If you are on a hard drive press Return.If you are not, then
put the disk with the file 'Config' in "F$" and": PRINT "press Return.": GET A$
30 SN = 26: HOME
40 WN = 100:AN = 100
50 ONERR GOTO 120
60 D$ = CHR$ (13) + CHR$ (4): DIM S(50),W$(WN),A$(AN),T$(50),V(50),M(50),D(50
),P(50),R(50),B(50),T(50),PA$(50)
70 DIM C$(20),B$(20)
80 PRINT D$"OPENCONFIG"F$: PRINT D$"READCONFIG": FOR X = 1 TO 20: INPUT I$,V,S
,D:C$(X) = ",V" + STR$ (V) + ",S" + STR$ (S) + ",D" + STR$ (D): NEXT : PRINT
D$"CLOSE"
90 PRINT D$"OPENWEAPONS,L40"C$(19): FOR X = 1 TO WN: PRINT D$"READWEAPONS,R"X:
INPUT W$(X),Y,Y: NEXT : PRINT D$"CLOSE"
100 PRINT D$"OPENARMOR,L40"C$(1): FOR X = 1 TO AN: PRINT D$"READARMOR,R"X: INP
UT A$(X),Y,Y: NEXT : PRINT D$"CLOSE"
110 GOTO 760
120 CALL - 3288: GOTO 760
130 PRINT "[A] "NA$" Pass: "PA$
140 PRINT "[1] Calls Per Day: " + STR$ (CP)
150 PRINT "[2] Calls Today: " + STR$ (CA)
160 PRINT "[3] Total Calls: " + STR$ (CL)
170 PRINT "[4] Adventure Access: " + AD$
180 PRINT
190 PRINT "[5] Strength: " + STR$ (ST)
200 PRINT "[7] Agility: " + STR$ (AG)
210 PRINT "[8] Intelligence: " + STR$ (CH)
220 PRINT "[9] Wisdom: " + STR$ (WI)
230 PRINT "[10] Gold: " + STR$ (GD)
240 PRINT "[11] Gold in The Bank: "BA
250 PRINT "[12] Food: " + STR$ (FD)
260 PRINT
270 PRINT "[13] Level #"LE" "L$(1)
280 PRINT "[14] Maximum Hit Points: " + STR$ (TH)
290 PRINT "[15] Maximum Power: " + STR$ (TP)
300 PRINT "[16] Power: " + STR$ (PO)
310 PRINT "[17] Weapon: " + W$(WE)
320 PRINT "[18] Armor: " + A$(AR)
330 PRINT "[19] Fight: " + FI$
340 PRINT : PRINT "Which(20=Save)-> ";: GOSUB 640: PRINT
350 IF I$ = "Q" THEN 760
360 IF I$ = "A" THEN PRINT "Name->";: GOSUB 640:NA$ = I$: GOTO 130
370 IF I$ = "B" THEN PRINT "Password->";: GOSUB 640:PA$ = I$: GOTO 130
380 X = VAL (I$): IF X < 1 OR X > 20 THEN 130
390 IF X = 1 THEN PRINT "Calls Per Day-> ";: GOSUB 640:CP = VAL (I$): GOTO 1
30
400 IF X = 2 THEN PRINT "Calls Today->";: GOSUB 640:CA = VAL (I$): GOTO 130
410 IF X = 3 THEN PRINT "Total Calls->";: GOSUB 640:CL = VAL (I$): GOTO 130
420 IF X = 4 THEN PRINT "Adventure Access->";: GOSUB 640:AD$ = I$: GOTO 130
430 IF X = 5 THEN PRINT "Strength->";: GOSUB 640:ST = VAL (I$): GOTO 130
440 IF X = 6 THEN PRINT "Dexterity->";: GOSUB 640:DE = VAL (I$): GOTO 130
450 IF X = 7 THEN PRINT "Agility->";: GOSUB 640:AG = VAL (I$): GOTO 130
460 IF X = 8 THEN PRINT "Intelligence->";: GOSUB 640:CH = VAL (I$): GOTO 130
470 IF X = 9 THEN PRINT "Wisdom->";: GOSUB 640:WI = VAL (I$): GOTO 130
480 IF X = 10 THEN PRINT "Gold->";: GOSUB 640:GD = VAL (I$): GOTO 130
490 IF X = 12 THEN PRINT "Food->";: GOSUB 640:FD = VAL (I$): GOTO 130
500 IF X = 13 THEN PRINT "Level->";: GOSUB 640:LE = VAL (I$): GOSUB 1150: GO
TO 130
510 IF X = 14 THEN PRINT "Maximum Hit Points->";: GOSUB 640:TH = VAL (I$): G
OTO 130
520 IF X = 11 THEN PRINT "Gold in the Bank->";: GOSUB 640:BA = VAL (I$): GOT
O 130
530 IF X = 15 THEN PRINT "Maximum Power->";: GOSUB 640:TP = VAL (I$): GOTO 1
30
540 IF X = 16 THEN PRINT "Power->";: GOSUB 640:PO = VAL (I$): GOTO 130
550 IF X = 17 THEN PRINT "Weapon->";: GOTO 600
560 IF X = 18 THEN PRINT "Armor->";: GOTO 620
570 IF X = 20 THEN HOME : GOSUB 720: GOTO 130
580 IF X = 19 THEN PRINT "Fight->";: GOSUB 640:FI$ = I$: GOTO 130
590 GOTO 130
600 GOSUB 640:X = VAL (I$): IF X < 1 OR X > WN THEN X = 17: GOTO 550
610 WE = X: GOTO 130
620 GOSUB 640:X = VAL (I$): IF X < 1 OR X > AN THEN X = 18: GOTO 560
630 AR = X: GOTO 130
640 INPUT "";I$: RETURN
650 PRINT D$"OPENSTATS,L200"C$(15)
660 PRINT D$"READSTATS,R"A
670 INPUT NA$,FI$,LE,AG,WE,AR,EX,GD,ST,TH,HP,PA$,WI,CH,LS,CA,CL,AD$,CP,FD,PO,T
P,BA,PA,DE,DA$
680 FOR X = 1 TO SN: INPUT S(X): NEXT
690 PRINT D$"CLOSE"
700 GOSUB 1150
710 RETURN
720 PRINT D$"OPENSTATS,L200"C$(15): PRINT D$"WRITESTATS,R"A: PRINT NA$: PRINT
FI$: PRINT LE: PRINT AG: PRINT WE: PRINT AR: PRINT EX: PRINT GD: PRINT ST: PRINT
TH: PRINT HP: PRINT PA$: PRINT WI: PRINT CH: PRINT LS: PRINT CAL: PRINT CL: PRI
NT AD$: PRINT CP
730 PRINT FD: PRINT PO: PRINT TP: PRINT BA: PRINT PA: PRINT DE: PRINT DA$
740 FOR X = 1 TO SN: PRINT S(X): NEXT
750 PRINT D$"CLOSE": RETURN
760 HOME : PRINT "Proving Grounds Editor by The Time Lord": PRINT : PRINT "(C)
Mike Heinstein 1985": PRINT : PRINT "[1] Edit User"
770 PRINT "[2] Delete User"
780 PRINT "[3] Validate User"
790 PRINT "[4] Rob all Treasuries"
800 PRINT "[5] Turn All the Fights On"
810 PRINT "[6] Re-Roll the Entire Board"
820 PRINT "[7] Run Board"
830 PRINT "[8] Board Module Editor"
840 PRINT "[9] Change/Edit Voting Topic"
850 PRINT "[10] Search for a User"
860 PRINT "[11] Count/List Validated Users"
870 PRINT "[12] List Users"
880 PRINT "[13] Dos Command"
890 PRINT "[14] Change Date(Only If No Clock)"
900 PRINT "[15] Re-Do Ladder and Rank"
910 PRINT : PRINT "Which-> ";: GOSUB 640
920 PRINT
930 ONERR GOTO 760
940 CF$ = "":CB$ = "":CH$ = "":CO$ = ""
950 IF I$ < > "15" THEN 980
960 HOME : PRINT : PRINT : PRINT "Re-Do Ladder and Rank? If so, it will put
up the board after....Y/N? ->: ";: INPUT "";A$: IF A$ = "Y" THEN PRINT : PRINT
D$"RUNRESET1"C$(4)
970 IF I$ = "N" THEN 760
980 IF I$ = "14" THEN 2860
990 IF I$ = "9" THEN 2320
1000 IF I$ = "13" THEN 2810
1010 IF I$ = "12" THEN CO$ = "Y": GOTO 1220
1020 IF I$ = "11" THEN NU = 0:CH$ = "Y": GOTO 1220
1030 IF I$ = "10" THEN 2690
1040 IF I$ = "1" THEN PRINT "Enter User #->";: GOSUB 1140: HOME :A = VAL (I$
): GOSUB 650: GOTO 130
1050 IF I$ = "2" THEN PRINT "Enter User #->";: GOSUB 1140:A = VAL (I$): GOSU
B 650: PRINT : PRINT "Delete "NA$"? ";: GOSUB 1140: IF I$ = "Y" THEN NA$ = "Empt
y": GOSUB 720: GOTO 760
1060 IF I$ = "3" THEN PRINT "Enter User #->";: GOSUB 1140:A = VAL (I$): GOSU
B 650: PRINT : PRINT "Validate "NA$"? ";: GOSUB 1140: IF I$ = "Y" THEN CP = 2:AD
$ = "Yes": GOSUB 720: GOTO 760
1070 CF$ = "":CB$ = "":RE$ = ""
1080 IF I$ = "4" THEN PRINT "Rob all Treasuries? ";: GOSUB 1140: IF I$ = "Y"
THEN CB$ = "Y": GOTO 1220
1090 IF I$ = "5" THEN PRINT "Turn all the Fights On? ";: GOSUB 1140: IF I$ =
"Y" THEN CF$ = "Y": GOTO 1220
1100 IF I$ = "6" THEN PRINT "Re-Roll the Board? ";: GOSUB 1140: IF I$ = "Y" T
HEN RE$ = "Y": GOTO 1220
1110 IF I$ = "7" THEN PRINT D$"RUNSTART"C$(14)
1120 IF I$ = "8" THEN 1600
1130 GOTO 760
1140 GOTO 640
1150 PRINT D$"OPENLEVELS"C$(7): PRINT D$"READLEVELS": IF LE = 1 THEN INPUT L$
(1),A(1),L$(2),A(2):L$(0) = "":A(0) = 0: GOTO 1190
1160 IF LE = 2 THEN 1180
1170 FOR X = 1 TO (LE - 2): INPUT L$(1),A(1): NEXT
1180 INPUT L$(0),A(0),L$(1),A(1),L$(2),A(2)
1190 PRINT D$"CLOSE"
1200 EX = A(1): GOTO 1210
1210 RETURN
1220 PRINT D$"OPENDATA,D1"C$(5)
1230 PRINT D$"READDATA"
1240 INPUT A,A,DA$,DA$
1250 PRINT D$"CLOSE"
1260 PRINT D$"OPENSTATS,L200"C$(15)
1270 FOR X = 1 TO A
1280 POKE 216,0
1290 PRINT D$"READSTATS,R"X
1300 IF CH$ = "Y" OR CO$ = "Y" THEN 1330
1310 HOME : PRINT X" out of "A
1320 ONERR GOTO 1360
1330 INPUT NA$,FI$,LE,AG,WE,AR,EX,GD,ST,TH,HP,PA$,WI,CH,LS,CA,CL,AD$,CP,FD,PO,
TP,BA,PA,DE,I$
1340 FOR Y = 1 TO SN: INPUT S(Y): NEXT
1350 GOTO 1370
1360 CALL - 3288
1370 IF CH$ = "Y" AND NA$ < > "EMPTY" AND AD$ = "Yes" THEN NU = NU + 1: PRINT
NU"] "NA$" #"X: GOTO 1550
1380 IF CH$ = "Y" THEN 1550
1390 IF CO$ = "Y" THEN PRINT X"] "NA$: GOTO 1550
1400 IF RE$ < > "Y" THEN 1470
1410 ST = 10:AG = 10:WI = 10:CH = 10:DE = 0:WE = 2:AR = 2:EX = 0:GD = 500:LE =
1:FI$ = "On":FD = 100
1420 HP = 20:TH = 20
1430 CA = 0
1440 PO = 20:TP = 20:BA = 100:PA = - 1
1450 FOR Y = 1 TO 26:S(Y) = 0: NEXT
1460 S(3) = 1:S(6) = 1:S(25) = 2:S(20) = 1:S(2) = 2:S(10) = 1
1470 IF NA$ = "EMPTY" THEN 1550
1480 IF CF$ = "Y" AND FI$ = "On" THEN 1550
1490 IF CF$ = "Y" THEN FI$ = "On"
1500 IF CB$ = "Y" AND BA < 1 THEN 1550
1510 IF CB$ = "Y" THEN BA = .999
1520 PRINT D$"WRITESTATS,R"X: PRINT NA$: PRINT FI$: PRINT LE: PRINT AG: PRINT
WE: PRINT AR: PRINT EX: PRINT GD: PRINT ST: PRINT TH: PRINT HP: PRINT PA$: PRINT
WI: PRINT CH: PRINT LS: PRINT CA: PRINT CL: PRINT AD$: PRINT CP
1530 PRINT FD: PRINT PO: PRINT TP: PRINT BA: PRINT PA: PRINT DE: PRINT I$
1540 FOR Y = 1 TO SN: PRINT S(Y): NEXT
1550 NEXT
1560 PRINT D$"CLOSE"
1570 IF CH$ = "Y" THEN PRINT : PRINT NU" Validated Users.": INPUT "";A$
1580 IF CO$ = "Y" THEN PRINT : INPUT "";A$
1590 GOTO 760
1600 PRINT D$"OPENBOARDS,L55"C$(3)
1610 X = 0
1620 ONERR GOTO 1670
1630 X = X + 1
1640 PRINT D$"READBOARDS,R"X
1650 INPUT T$(X),V(X),M(X),S(X),D(X),P(X),R(X),B(X),T(X),PA$(X)
1660 GOTO 1630
1670 CALL - 3288:X = X - 1: PRINT D$"CLOSE":BN = X
1680 AZ = BN
1690 HOME : PRINT "Board Editor"
1700 PRINT : PRINT BN" boards active"
1710 PRINT
1720 FOR X = 1 TO BN: PRINT "["X"] " + T$(X)
1730 NEXT
1740 PRINT
1750 PRINT "[A] Create New Board"
1760 PRINT "[B] Delete Board"
1770 PRINT "[ ] Type number of board to edit"
1780 PRINT
1790 INPUT "Edit Which->";I$
1800 X = VAL (I$)
1810 IF I$ = "A" THEN 2160
1820 IF I$ = "B" THEN 2230
1830 IF I$ = "Q" THEN 760
1840 IF X < 1 OR X > BN THEN 1690
1850 EN = X
1860 HOME
1870 PRINT "Edit Board": PRINT
1880 PRINT "[1] Name: "T$(EN)
1890 PRINT "[2] Maximum Messages: "M(EN)
1900 PRINT "[3] Slot: "S(EN)
1910 PRINT "[4] Drive: "D(EN)
1920 PRINT "[5] Volume: "V(EN)
1930 X = T(EN): GOSUB 3240: PRINT "[6] Message posted under: "O$
1940 X = P(EN): GOSUB 3050: PRINT "[7] Who can post: "O$
1950 X = R(EN): GOSUB 3090: PRINT "[8] Who can read: "O$
1960 PRINT "[9] Board Master is user #"B(EN)
1965 IF P(EN) = 4 THEN PRINT "[10] Password: "PA$(EN)
1970 PRINT "[S] Save"
1980 PRINT : INPUT "Which->";I$:X = VAL (I$)
1990 IF I$ = "Q" THEN 1690
2000 IF I$ = "S" THEN 2040
2010 IF X < 1 OR X > 10 THEN 1860
2020 ON X GOSUB 3190,3200,3210,3230,3220,3280,3140,3160,3180,3300
2030 GOTO 1860
2040 PRINT D$"OPENBOARDS,L55"C$(3): PRINT D$"DELETEBOARDS": PRINT D$"OPENBOARD
S,L55"
2050 FOR X = 1 TO BN
2060 PRINT D$"WRITEBOARDS,R"X
2070 PRINT T$(X): PRINT V(X): PRINT M(X): PRINT S(X): PRINT D(X): PRINT P(X):
PRINT R(X): PRINT B(X): PRINT T(X): PRINT PA$(X)
2080 NEXT
2090 PRINT D$"CLOSE"
2100 Y = 0
2110 FOR X = 1 TO BN: IF M(X) > Y THEN Y = M(X): NEXT
2120 PRINT D$"OPENBDATA"C$(2): PRINT D$"WRITEBDATA": PRINT BN: PRINT Y: PRINT
D$"CLOSE"
2130 PRINT
2140 IF AZ < > BN THEN PRINT D$"OPENQSCAN"C$(10): PRINT D$"DELETEQSCAN"
2150 GOTO 1690
2160 HOME
2170 EN = BN + 1
2180 GOSUB 3190: GOSUB 3220: GOSUB 3210: GOSUB 3230: GOSUB 3200: GOSUB 3280: G
OSUB 3140: GOSUB 3160: GOSUB 3180: IF P(EN) = 4 THEN GOSUB 3300
2190 PRINT : INPUT "Ok? Y/N";A$: IF A$ < > "Y" THEN 1690
2200 BN = BN + 1
2210 GOTO 2040
2220 INPUT "";I$: RETURN
2230 PRINT : PRINT : INPUT "Delete What Board->";I$:X = VAL (I$)
2240 IF X < 1 OR X > BN THEN 1690
2250 PRINT : PRINT "Delete The "T$(X) + " Board";: INPUT I$: IF I$ < > "Y" TH
EN 1690
2260 Y = X
2270 FOR X = (Y + 1) TO BN
2280 T$(X - 1) = T$(X):V(X - 1) = V(X):M(X - 1) = M(X):S(X - 1) = M(X):S(X - 1)
= S(X):D(X - 1) = D(X):P(X - 1) = P(X):R(X - 1) = R(X):B(X - 1) = B(X):T(X - 1)
= T(X)
2290 NEXT
2300 BN = BN - 1
2310 GOTO 2040
2320 HOME : PRINT "Write Voting Topic"
2330 PRINT : PRINT "[A] Write New Topic"
2340 PRINT "[B] Save Topic"
2350 PRINT "[C] List Topic"
2360 PRINT "[D] Edit Topic"
2370 PRINT : INPUT "Which(Q=Quit)->";I$
2380 IF I$ = "Q" THEN 760
2390 IF I$ = "C" THEN 2590
2400 IF I$ = "D" THEN 2640
2410 IF I$ = "A" THEN 2500
2420 IF I$ = "B" THEN PRINT : INPUT "Save Voting Topic?";I$: IF I$ < > "Y" T
HEN 2320
2430 PRINT D$"OPENVOTING"C$(18): PRINT D$"DELETEVOTING": PRINT D$"OPENVOTING"
2440 PRINT D$"WRITEVOTING"
2450 FOR X = 1 TO VN
2460 PRINT V$(X);",0"
2470 NEXT
2480 PRINT D$"CLOSE"
2490 GOTO 2320
2500 PRINT
2510 PRINT "What is the Topic? Do not press Return until you are complete don
e.": PRINT : INPUT "";T$: PRINT D$"OPENVOTING.TOP"C$(17): PRINT D$"DELETEVOTING.
TOP": PRINT D$"OPENVOTING.TOP": PRINT D$"WRITEVOTING.TOP": PRINT T$: PRINT : PRI
NT D$"CLOSE
2520 PRINT : PRINT "Input choices 1-9. type 'Q' on it's own line to stop add
ing choices. I.E. if you only want 4 choices type 'Q' on line 5.": PRINT
2530 FOR X = 1 TO 9
2540 PRINT X"] ";: INPUT "";V$(X)
2550 IF V$(X) = "Q" THEN X = X - 1:VN = X: GOTO 2320
2560 NEXT X
2570 VN = X - 1
2580 GOTO 2320
2590 PRINT
2600 FOR X = 1 TO VN
2610 PRINT X"] "V$(X)
2620 NEXT
2630 PRINT : INPUT "";A$: GOTO 2320
2640 PRINT : INPUT "Input Line To Edit->";I$: IF I$ = "Q" THEN 2320
2650 X = VAL (I$): IF X < 1 OR X > VN THEN 2640
2660 PRINT : PRINT X"] "V$(X): PRINT
2670 PRINT X"] ";: INPUT "";V$(X)
2680 GOTO 2320
2690 PRINT : INPUT "What is the Users Name->";I$
2700 X = 0
2710 ONERR GOTO 2790
2720 PRINT D$"OPENSTATS,L200"C$(15)
2730 X = X + 1
2740 PRINT D$"READSTATS,R"X
2750 HOME : PRINT X
2760 INPUT A$
2770 IF A$ = I$ THEN 2800
2780 GOTO 2730
2790 CALL - 3288: PRINT D$"CLOSE": PRINT "There Is No Such User.": INPUT "";A
$: GOTO 760
2800 PRINT D$"CLOSE": PRINT I$" is user "X: INPUT "";A$: GOTO 760
2810 PRINT : INPUT "Dos(Q=Quit)->";A$
2820 IF A$ = "Q" THEN 760
2830 ONERR GOTO 2850
2840 PRINT D$""A$: PRINT : INPUT "";A$: GOTO 760
2850 CALL - 3288: PRINT : PRINT "Dos Error!": PRINT : INPUT "";A$: GOTO 760
2860 PRINT D$"OPENDATA"C$(5): PRINT D$"READDATA": FOR X = 1 TO 10: INPUT Z$(X)
: NEXT : PRINT D$"CLOSE"
2870 HOME : PRINT : PRINT "Current Date-> "Z$(4): PRINT : PRINT "Change it? Y/
N: ";: INPUT "";A$: IF A$ < > "Y" AND A$ < > "N" THEN 2870
2880 IF A$ = "N" THEN 760
2890 B$(1) = "SUN":B$(2) = "MON":B$(3) = "TUE":B$(4) = "WED":B$(5) = "THU":B$(6
) = "FRI":B$(7) = "SAT"
2900 HOME
2910 PRINT "Input Day:": PRINT : PRINT : FOR X = 1 TO 7: PRINT X"] "B$(X): NEX
T
2920 PRINT : PRINT "-> ";: INPUT "";A$:X = VAL (A$): IF X < 1 OR X > 7 THEN 2
900
2930 C$ = B$(X) + " "
2940 B$(1) = "JAN":B$(2) = "FEB":B$(3) = "MAR":B$(4) = "APR":B$(5) = "MAY":B$(6
) = "JUN":B$(7) = "JUL":B$(8) = "AUG":B$(9) = "SEP":B$(10) = "NOV":B$(11) = "OCT
":B$(12) = "DEC"
2950 HOME : PRINT "Input Month": PRINT : PRINT : FOR X = 1 TO 12: PRINT X"] "B
$(X): NEXT
2960 PRINT : PRINT "-> ";: INPUT "";A$:X = VAL (A$): IF X < 1 OR X > 12 THEN
2950
2970 C$ = C$ + B$(X) + " "
2980 HOME : PRINT "Input Day(1-31)-> ";: INPUT "";A$:X = VAL (A$): IF X < 1 O
R X > 31 THEN 2980
2990 IF X > 9 THEN C$ = C$ + A$: GOTO 3010
3000 C$ = C$ + " " + A$
3010 PRINT : PRINT "Date-> "C$: PRINT : PRINT "Correct? Y/N-> ";: GET A$: IF A
$ < > "Y" AND A$ < > "N" THEN 3010
3020 IF A$ = "N" THEN 2880
3030 Z$(4) = C$: PRINT D$"OPENDATA": PRINT D$"WRITEDATA": FOR X = 1 TO 10: PRIN
T Z$(X): NEXT : PRINT D$"CLOSE"
3040 GOTO 760
3050 IF X = 1 THEN O$ = "Sysop Only"
3060 IF X = 2 THEN O$ = "Validated Users Only"
3070 IF X = 3 THEN O$ = "All Users"
3075 IF X = 4 THEN O$ = "Password Needed"
3080 RETURN
3090 IF X = 1 THEN O$ = "Validated users Only"
3100 IF X = 2 THEN O$ = "All Users"
3110 RETURN
3120 PRINT
3130 PRINT
3140 PRINT "Who can post?": PRINT : PRINT "1) Sysop Only": PRINT "2) Validated
users only": PRINT "3) All Users": PRINT "4) Password needed": PRINT : INPUT "W
hich->";A$:X = VAL (A$): IF X < 1 OR X > 4 THEN 31400
3150 P(EN) = X: RETURN
3160 PRINT "Who can Read Messages?": PRINT : PRINT "1) Validated users Only":
PRINT "2) All Users": PRINT : INPUT "Which->";A$:X = VAL (A$): IF X < 1 OR X >
2 THEN 3160
3170 R(EN) = X: RETURN
3180 PRINT : INPUT "Enter board masters #";I$:B(EN) = VAL (I$): RETURN
3190 PRINT "Name->";: GOSUB 2220:T$(EN) = I$: RETURN
3200 PRINT "Maximum Messages->";: GOSUB 2220:M(EN) = VAL (I$): RETURN
3210 PRINT "Slot->";: GOSUB 2220:S(EN) = VAL (I$): RETURN
3220 PRINT "Volume->";: GOSUB 2220:V(EN) = VAL (I$): RETURN
3230 PRINT "Drive->";: GOSUB 2220:D(EN) = VAL (I$): RETURN
3240 IF X = 1 THEN O$ = "Anonymous"
3250 IF X = 2 THEN O$ = "Any Handle"
3260 IF X = 3 THEN O$ = "User Name"
3270 RETURN
3280 PRINT "Messages posted under what name:": PRINT : PRINT "1) Anonymous": P
RINT "2) Any Handle": PRINT "3) User Name": PRINT : INPUT "Which->";I$:X = VAL
(I$): IF X < 1 OR X > 3 THEN 3280
3290 T(EN) = X: RETURN
3300 PRINT : INPUT "Password->";PA$(EN): IF LEN (PA$(EN)) > 7 THEN PRINT : P
RINT "7 Characters Max": GOTO 3300
3310 RETURN
]LOAD GA
]LIST
5 IF TC$ = "Y" THEN POKE 1014,0: POKE 952,240: POKE 953,253
10 CALL 54915
20 IF A > 0 THEN 40
30 PRINT CHR$ (4)"SAVEGA,S3": PRINT CHR$ (4)"RUNSTORES,S6"
40 AM = 0
50 D = 1
60 J = A
70 ONERR GOTO 90
80 GOTO 120
90 CALL - 3288: GOTO 130
100 O$ = DL$ + "-=>HOLD...Transport Heading to Main." + EL$: GOSUB 7000
110 A$ = MA$:A = J: GOSUB 8390: CALL 35848"MAIN"
120 HOME :O$ = SC$ + DL$ + DL$ + EL$: GOSUB 7000
130 GOSUB 8300:O$ = DL$ + "Welcome to Rebel's Hideout" + DL$ + "What do you wa
nt to play...." + DL$ + "B) lackjack" + EL$ + "R) Roulette" + EL$ + "S) Slots" +
EL$ + "Z) Russian Roulette" + DL$ + "[B/R/S/Z/Q]->": GOSUB 6000
140 IF I$ = "Q" THEN 100
150 FOR X = 1 TO 9:G(X) = 0: NEXT X
160 IF I$ = "Z" THEN 1720
170 IF I$ = "R" THEN 750
180 IF I$ = "S" THEN 210
190 IF I$ = "B" THEN 1180
200 GOTO 130
210 O$ = DL$ + "You saunder over to a group of slot machines and notice, to
your surprise, that you have three choices:"
220 GOSUB 7000
230 O$ = DL$ + "A) 3-wheeled slot" + EL$ + "B) 4-wheeled slot" + EL$ + "C) 5-wh
eeled slot" + DL$ + "[A/B/C/<Q>uit]->": GOSUB 6000
240 X = INT (3 * RND (1)) + 1
250 GOSUB 1670
260 IF I$ = "A" THEN G(0) = 3
270 IF I$ = "B" THEN G(0) = 4
280 IF I$ = "C" THEN G(0) = 5
290 IF G(0) < 3 OR G(0) > 5 THEN 230
300 O$ = EL$ + "You have [" + STR$ (GD) + "] gold pieces." + DL$ + "[Enter Bet
/<Q>uit]->": GOSUB 6000
310 GOSUB 1670
320 I$ = STR$ ( INT ( VAL (I$)))
330 GOSUB 1690: IF BE = 1 THEN BE = 0: GOTO 300
340 GD = GD - VAL (I$)
350 GOSUB 8380
360 O$ = EL$: GOSUB 7000
370 FOR SP = G(0) TO 1 STEP - 1
380 FOR Y = 1 TO 7
390 O$ = ""
400 FOR X = 1 TO SP
410 C = INT (9 * RND (1)) + 1
420 O$ = O$ + STR$ (C)
430 IF X = SP THEN O(SP) = C
440 NEXT X
450 FOR X = 1 TO SP
460 O$ = O$ + CHR$ (8)
470 NEXT X
480 GOSUB 7000
490 NEXT Y
500 O$ = STR$ (O(SP)): GOSUB 7000
510 NEXT SP
520 SP = 0
530 FOR X = 1 TO G(0)
540 FOR Y = 1 TO 9
550 IF O(X) = Y THEN G(Y) = G(Y) + 1
560 NEXT Y
570 NEXT X
580 FOR Y = 1 TO 9: IF G(Y) > = ( INT (G(0) / 2) + 1) THEN O$ = DL$ + "[" +
STR$ (G(Y)) + "] of a kind!" + EL$: GOSUB 7000:SP = Y:Y = 9
590 NEXT
600 IF SP > 0 THEN 630
610 O$ = DL$ + "You lose sucker!" + EL$: GOSUB 7000
620 FOR X = 1 TO 9:G(X) = 0: NEXT : GOTO 300
630 IF G(0) < > 3 THEN 660
640 IF G(SP) = 2 THEN Y = 2.75
650 IF G(SP) = 3 THEN Y = 81
660 IF G(0) < > 4 THEN 690
670 IF G(SP) = 3 THEN Y = 36
680 IF G(SP) = 4 THEN Y = 400
690 IF G(0) < > 5 THEN 730
700 IF G(SP) = 3 THEN Y = 10
710 IF G(SP) = 4 THEN Y = 250
720 IF G(SP) = 5 THEN Y = 4000
730 G(1) = INT ( VAL (I$) * Y)
740 O$ = EL$ + "You win " + STR$ (G(1) - VAL (I$)) + " gold pieces!" + EL$:GD
= GD + G(1): GOSUB 7000: GOTO 620
750 O$ = DL$ + "[<N>umber/<E>ven/<O>dd/<S>equence]" + DL$ + "You have [" + STR
$ (GD) + "] Gold" + DL$ + "[Which/<Q>uit]->": GOSUB 6000
760 IF I$ < > "N" AND I$ < > "E" AND I$ < > "O" AND I$ < > "S" AND I$ < >
"Q" THEN 750
770 GOSUB 1670
780 FOR X = 1 TO 7:G(X) = 0: NEXT
790 Y = 0
800 IF I$ = "E" THEN G(4) = 1
810 IF I$ = "O" THEN G(5) = 1
820 IF I$ < > "N" THEN 870
830 O$ = DL$ + "[Select Number <1-36>:": GOSUB 6000
840 GOSUB 1670
850 IF VAL (I$) < 1 OR VAL (I$) > 36 THEN 830
860 Y = VAL (I$)
870 IF I$ < > "S" THEN 960
880 O$ = DL$ + "[Select Starting #]:": GOSUB 6000
890 GOSUB 1670
900 IF VAL (I$) > 36 OR VAL (I$) < 1 THEN 880
910 G(0) = VAL (I$)
920 O$ = DL$ + "[Select Ending #]:": GOSUB 6000
930 GOSUB 1670
940 IF VAL (I$) > 36 OR VAL (I$) < 1 THEN 920
950 G(1) = VAL (I$)
960 O$ = DL$ + "How much do you want to bet: ": GOSUB 6000
970 GOSUB 1670
980 I$ = STR$ ( INT ( VAL (I$)))
990 GOSUB 1690: IF BE = 1 THEN BE = 0: GOTO 960
1000 G(2) = VAL (I$):GD = GD - VAL (I$)
1010 GOSUB 8380
1020 O$ = DL$ + EL$: GOSUB 7000
1030 O$ = "The ball is rolling...."
1040 O$ = O$ + TU$
1050 GOSUB 7000
1060 G(3) = INT (36 * RND (1)) + 1
1070 O$ = DL$ + EL$: GOSUB 7000
1080 O$ = "The number is................" + STR$ (G(3)) + DL$: GOSUB 7000
1090 IF Y = G(3) THEN G(7) = 36 * G(2)
1100 FOR X = 2 TO 36 STEP 2: IF G(3) = X THEN G(6) = 1
1110 NEXT
1120 IF G(4) = 1 AND G(6) = 1 THEN G(7) = 2 * G(2)
1130 IF G(5) = 1 AND G(6) = 0 THEN G(7) = 2 * G(2)
1140 IF G(0) < = G(3) AND G(1) = > G(3) THEN G(7) = (36 / ((G(1) + 1) - G(0)
)) * G(2)
1150 IF G(7) < 1 THEN O$ = "Ha Ha Ha! You lose sucker!": GOSUB 7000
1160 IF G(7) > 0 THEN O$ = "You win " + STR$ ( INT (G(7) - G(2))) + " pieces
of gold!":GD = GD + INT (G(7)): GOSUB 7000
1170 GD = INT (GD): GOTO 750
1180 MO$ = "":O$ = SC$ + EL$ + "[Blackjack] By: The Chief Surgeon" + DL$ + "I
nitializing...": GOSUB 7000: POKE 36728,32:B$(0) = " ":B$(2) = "A234567890JQK
": FOR F = 1 TO 4
1190 FOR Z = 1 TO 13:MO$ = MO$ + MID$ (B$(2),Z,1) + MID$ (B$(0),F,1): NEXT :
NEXT : GOSUB 1620: GOTO 1210
1200 GOSUB 7000
1210 O$ = EL$: GOSUB 7000: IF GD < 1 THEN O$ = EL$ + "You lost all of your mone
y!": GOSUB 7000: GOTO 130
1220 GD = INT (GD):O$ = EL$ + "You have: " + STR$ (GD) + EL$ + "Your bet: ":
GOSUB 6000:A = VAL (I$): IF A < 0 OR A > GD THEN 1210
1230 GOSUB 8300
1240 A$ = ""
1250 IF I$ = "0" OR I$ = "Q" THEN 130
1260 IF A = 0 THEN 1210
1270 F$ = "":O$ = EL$ + "Dealer- " + "?? ": GOSUB 7000: GOSUB 1580:F$ = ZZ$:A3
= X: GOSUB 1580:O$ = ZZ$ + " Total = ??": GOSUB 7000
1280 F$ = F$ + ZZ$:A3 = A3 + X:A6 = - 1: GOSUB 1580:A4 = X:L1$ = ZZ$:A5 = - 1
: GOSUB 1580:A4 = A4 + X:L1$ = L1$ + ZZ$
1290 O$ = EL$ + "Player- " + L1$ + " Total = " + STR$ (A4): GOSUB 7000:A5 = A5
+ 1: IF A4 < 22 THEN 1330
1300 FOR F = 1 TO LEN (L1$) STEP 3: IF MID$ (L1$,F,1) < > "A" THEN NEXT :O
$ = EL$ + "Player- Busted!":GD = GD - A: GOTO 1200
1310 O$ = EL$ + "Player- Ace counts as one.": GOSUB 7000:A4 = A4 - 10: IF F > 1
THEN L1$ = LEFT$ (L1$,F - 1) + "1" + MID$ (L1$,F + 1): GOTO 1290
1320 L1$ = "1" + MID$ (L1$,F + 1): GOTO 1290
1330 IF A$ = "Y" THEN A$ = "N": GOTO 1440
1340 IF A4 = 21 AND NOT A5 THEN O$ = EL$ + "Player- Blackjack!":GD = GD + 1.5
* A + .5: GOTO 1200
1350 O$ = DL$ + "Player- H)it S)tand": GOSUB 7000: IF NOT A5 THEN O$ = " D)oub
le": GOSUB 7000
1360 O$ = EL$ + "?: ": GOSUB 6000
1370 IF I$ < > "H" THEN 1390
1380 O$ = EL$ + "Player- Hits": GOSUB 7000: GOSUB 1580:L1$ = L1$ + ZZ$:A4 = A4
+ X: GOTO 1290
1390 IF I$ < > "D" OR A5 THEN 1420
1400 O$ = EL$ + "Player- Doubles": GOSUB 7000: IF 2 * A > GD THEN O$ = EL$ + "
but then decides that" + EL$ + " he hasn't got enough gold!": GOSUB 7000:
GOTO 1290
1410 PRINT :A = 2 * A:A$ = "Y":I$ = "H": GOTO 1370
1420 IF I$ < > "S" THEN O$ = EL$ + "Dealer- Can't understand that gibberish!"
: GOSUB 7000: GOTO 1350
1430 O$ = EL$ + "Player- Stands": GOSUB 7000
1440 O$ = DL$ + "Dealer- " + F$ + " Total = " + STR$ (A3): GOSUB 7000:A6 = A6
+ 1: IF A3 < 22 THEN 1490
1450 FOR F = 1 TO LEN (F$) STEP 3: IF MID$ (F$,F,1) < > "A" THEN NEXT :O$
= EL$ + "Dealer- Busted!":GD = GD + A: GOTO 1200
1460 IF F = 1 THEN F$ = "1" + MID$ (F$,2)
1470 IF F < > 1 THEN F$ = LEFT$ (F$,F - 1) + "1" + MID$ (F$,F + 1)
1480 O$ = EL$ + "Dealer- Ace counts as one.":A3 = A3 - 10: GOSUB 7000: GOTO 144
0
1490 IF A3 < 17 THEN O$ = EL$ + "Dealer- Hits": GOSUB 7000: GOSUB 1580:F$ = F$
+ ZZ$:A3 = A3 + X: GOTO 1440
1500 IF A3 < > 17 OR A6 THEN 1530
1510 FOR F = 1 TO LEN (F$) STEP 3: IF MID$ (F$,F,1) = "A" THEN O$ = EL$ + "D
ealer- Hits on soft seventeen (17)": GOSUB 7000: GOSUB 1580:F$ = F$ + ZZ$:A3 = A
3 + X: GOTO 1440
1520 NEXT
1530 IF A3 = 21 AND NOT A6 THEN O$ = EL$ + "Dealer- has Blackjack!": GOSUB 70
00
1540 O$ = DL$ + "Dealer- Total = " + STR$ (A3) + EL$ + "Plater- Total = " + S
TR$ (A4) + EL$: GOSUB 7000: IF A3 = 21 THEN O$ = EL$ + "Sorry, house always wins
with 21!":GD = GD - A: GOTO 1200
1550 IF A4 = A3 THEN O$ = EL$ + "It's a push- oh well...": GOTO 1200
1560 IF A4 > A3 THEN O$ = EL$ + "Player- Wins!":GD = GD + A: GOTO 1200
1570 O$ = EL$ + "Player- Loses...":GD = GD - A: GOTO 1200
1580 IF NOT A7 THEN GOSUB 1620
1590 ZZ$ = LEFT$ (B$,2) + " ": IF LEN (B$) > 2 THEN B$ = RIGHT$ (B$, LEN (B$
) - 2)
1600 A7 = A7 - 1: FOR F = 1 TO 9: IF LEFT$ (ZZ$,1) < > MID$ (B$(2),F,1) THEN
NEXT
1610 X = F + 10 * (F = 1): RETURN
1620 F = FRE (0):O$ = DL$ + "New Deck: Shuffling..." + EL$: GOSUB 7000:B$ = MO
$:MO$ = "": FOR F = 52 TO 2 STEP - 1:Y = INT (F * RND (1)) * 2:MO$ = MO$ + M
ID$ (B$,Y + 1,2)
1630 IF Y AND Y < F * 2 - 2 THEN B$ = LEFT$ (B$,Y) + RIGHT$ (B$,F * 2 - Y -
2): GOTO 1660
1640 IF NOT Y THEN B$ = RIGHT$ (B$,F * 2 - 2): GOTO 1660
1650 IF Y = LEN (B$) - 2 THEN B$ = LEFT$ (B$, LEN (B$) - 2)
1660 NEXT :MO$ = MO$ + B$:B$ = MO$:A7 = 52: RETURN
1670 IF I$ = "Q" OR I$ = "0" THEN POP : GOTO 130
1680 RETURN
1690 IF VAL (I$) < 1 THEN O$ = EL$ + "[Positive Numbers Only!]":BE = 1: GOSUB
7000: RETURN
1700 IF VAL (I$) > GD THEN O$ = EL$ + YO$:BE = 1: GOSUB 7000: RETURN
1710 RETURN
1720 O$ = EL$ + "You walk over to The Russian Roulette Table and pick up the
Gun...": GOSUB 7000
1730 G(0) = 1
1740 G(1) = G(0) * (LE * LE * 35):O$ = DL$ + "1) Pull The Trigger" + DL$ + "[Go
ld in Pot:" + STR$ (G(1)) + "][Q]->": GOSUB 6000
1750 GOSUB 1670: GOSUB 8300: IF I$ < > "1" THEN 1740
1760 O$ = EL$ + "You Pull The Trigger....": GOSUB 7000: FOR X = 1 TO 750: NEXT
1770 G(0) = G(0) + 1
1780 X = INT (2 * RND (1)) + 1
1790 IF X = 2 THEN O$ = "Bang!" + DL$ + "You Are Dead. You lose all your Gold
!": GOSUB 7000:GD = 0: GOTO 8370
1800 GD = GD + G(1)
1810 O$ = "Click!" + DL$ + "Phew!....You win " + STR$ (G(1)) + " Gold!": GOSUB
7000: GOTO 1740
1820 A$ = CH$:A = J: GOSUB 8390: CALL 35848"CHAT"
6000 GOSUB 7000: GOSUB 8000: RETURN
7000 & B / O$: POKE 960,0: RETURN
8000 CC = 0: IF PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
8539:CF = 9
8010 IF CF = 9 AND PEEK (1) < > 128 THEN CF = 1:CA$ = "Y"
8020 IF CA$ < > "Y" OR LEN (CN$) > 1 THEN 8040
8030 IF CF = 1 THEN CALL 38539
8040 IF PEEK (1) = 128 THEN 8140
8050 IF LEN (CN$) = 0 THEN 8140
8060 FOR T = 1 TO LEN (CN$)
8070 IF MID$ (CN$,T,1) = "," THEN I$ = MID$ (CN$,1,T - 1):CN$ = RIGHT$ (CN$
, LEN (CN$) - T): GOTO 8110
8080 IF MID$ (CN$,T,1) = "#" THEN I$ = MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
0
8090 NEXT
8100 POKE 960,0
8110 IF O$ = "STOP" THEN O$ = "": GOTO 8210
8120 IF LEN (I$) = 0 THEN 8050
8130 O$ = I$ + EL$: GOSUB 7000: GOTO 8290
8140 POKE 960,0: & A / SP$:I$ = MID$ (SP$,1): IF PEEK (961) THEN 1820
8150 CN$ = I$ + "#":O$ = "STOP"
8160 IF LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
8170 POKE 961,0: IF PEEK (960) = 255 THEN CC = CC + 1: IF CC > 1 THEN 8440
8180 IF PEEK (960) = 255 OR I$ = "OFF" THEN 8370
8190 IF PEEK (1) = 128 THEN CN$ = "": GOTO 8230
8200 IF LEN (CN$) > 0 THEN 8060
8210 IF LEN (I$) < > 1 AND RIGHT$ (I$,1) = " " THEN I$ = LEFT$ (I$, LEN (I
$) - 1): GOTO 8210
8220 IF LEN (I$) < > 1 AND LEFT$ (I$,1) = " " THEN I$ = RIGHT$ (I$, LEN (I
$) - 1): GOTO 8220
8230 IF LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 7000: GOTO 8250
8240 IF LEN (I$) = 0 THEN 8000
8250 IF CA$ < > "Y" THEN 8290
8260 IF CF = 1 THEN CALL 36798
8270 IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 7000: CALL 36798
:CF = 1
8280 IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 7000: CALL 385
39:CF = 0
8290 CR = 0: RETURN
8300 IF CL$ = "N" THEN T$ = DA$: RETURN
8310 PR# 4: IN# 4: INPUT "#";T,T,T,T,T,B: INPUT "%";T$
8320 PR# 0: POKE 56,102: POKE 57,213: CALL 1002
8330 IF TI > T THEN T = TI + (60 - TI) + T
8340 TL = CO - (T - TI)
8350 IF TL < = 0 THEN O$ = EL$ + "You are out of Time! Later.": GOSUB 7000:
GOTO 8370
8360 RETURN
8370 A$ = OF$:A = J: GOSUB 8390: CALL 35848"OFF"
8380 GOSUB 8300: RETURN
8390 Y = VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y = VAL ( RIGHT$ (A$,1)): POKE 43
624,Y:Y = VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN PRINT D$"OPEN VC,V"Y
8395 IF TC$ = "Y" THEN POKE 1014,10: POKE 952,215: POKE 953,251
8400 RETURN
]LOAD JOUST
]LIST
5 IF TC$ = "Y" THEN POKE 1014,0: POKE 952,240: POKE 953,253
10 CALL 54915
20 ONERR GOTO 8520
30 IF A > 0 THEN 50
40 PRINT CHR$ (4)"SAVEJOUST,S3": PRINT CHR$ (4)"RUNSTART,S6"
50 HOME :O$ = SC$ + "-----------The Proving Downs!-----------" + EL$ + "
A Real Jousting Experience" + DL$: GOSUB 7000
60 O$ = "You lead your steed up to the Gate- keeper of the field and he say
s:": GOSUB 7000
70 IF LJ = 2 THEN 560
80 GOSUB 8300:O$ = DL$ + "'Greetings Knight!" + DL$ + "Enter thy opponent's #(
JL=" + STR$ (2 - LJ) + ")'->": GOSUB 6000
90 GOTO 8470
100 IF I$ = "Q" THEN 560
110 X = VAL (I$): IF X > US OR X < 1 OR (A = X) THEN O$ = EL$ + "Invalid Numbe
r!": GOSUB 7000: GOTO 70
120 A1 = X
130 PRINT D$"OPENSTATS,L200"C$(15): PRINT D$"READSTATS,R"X: INPUT B$(1),B$(2),
T,S1,X,X,B(5),X,S2: PRINT D$"CLOSE": IF B$(1) = "Empty" THEN O$ = EL$ + "Sorry,
that Knight has been deleted.": GOSUB 7000: GOTO 70
140 IF S1 < 0 THEN S1 = S1 - (S1 * 2)
150 IF S < 0 THEN S2 = S2 - (S2 * 2)
160 IF LE > T + FL THEN O$ = EL$ + "You can only Joust a user higher or " + S
TR$ (FL) + " lEvels below you." + EL$: GOSUB 8390: GOSUB 7000: GOTO 70
170 J = A1: ONERR GOTO 190
180 PRINT D$"OPENDOWNS,L17"C$(15): PRINT D$"READDOWNS,R"J: INPUT S3,S4,B(7),B(
8),B(9): PRINT D$"CLOSE": GOTO 200
190 CALL - 3288:S3 = 0:S4 = 0:B(7) = 0:B(8) = 0:B(9) = 0
200 O$ = EL$ + "Character: " + B$(1) + EL$ + " Wins: " + STR$ (S3) + EL$ +
" Losses: " + STR$ (S4): GOSUB 7000
210 B(0) = S1 + S2 + S3 - S4
220 O$ = EL$ + " Skill: " + STR$ (B(0)) + DL$ + "Do you wish to joust this
Knight?": GOSUB 6000
230 IF I$ = "Q" OR I$ = "N" THEN 70
240 IF I$ < > "Y" THEN 200
250 IF B(0) > (ST + AG + JW - JL) * 2 THEN O$ = EL$ + "Sorry, but to Joust a K
night of such stature would surely be suicide!": GOSUB 7000: GOTO 70
260 LJ = LJ + 1:O$ = EL$ + "The first user to strike 3 times wins!" + DL$ + "Th
e trumpets blare..." + DL$ + "You enter the jousting field." + DL$ + B$(1) + " s
pits at you!": GOSUB 7000
270 P = 1:W = 0:L = 0:S7 = AG + ST + JW - JL:S8 = S1 + S2 + S3 - S4
280 IF P > 5 OR W > 2 OR L > 2 THEN 450
290 O$ = DL$ + "[Pass " + STR$ (P) + "][(J)oust (G)iveup][W=" + STR$ (W) + "
L=" + STR$ (L) + "]:": GOSUB 6000
300 IF I$ = "G" THEN O$ = EL$ + "The Crowd throws rocks at you as you leave
the arena!" + EL$: GOSUB 7000: GOTO 70
310 IF I$ < > "J" THEN 290
320 P = P + 1
330 O$ = EL$ + "You spur your horse, the tension mounts!": GOSUB 7000
340 B(3) = S7 / 2:B(3) = INT (B(3) * RND (1)) + S7
350 B(4) = S8 / 2:B(4) = INT (B(4) * RND (1)) + S8
360 IF B(3) = B(4) THEN 340
370 IF B(3) > B(4) THEN X = INT (3 * RND (1)) + 4: GOTO 390
380 X = INT (3 * RND (1)) + 1
390 ON X GOSUB 410,420,430,440,440,440
400 GOTO 280
410 L = L + 1:O$ = EL$ + ")Ooof!(- A blow! You lose this pass!": GOSUB 7000: GO
SUB 570: RETURN
420 L = L + 1:O$ = EL$ + ">Snap!<- Your lance breaks! Pass lost!": GOSUB 7000:
GOSUB 570: RETURN
430 L = L + 1:O$ = EL$ + "]Aargh![- Your horse stumbles! Loss!": GOSUB 7000: GO
SUB 570: RETURN
440 W = W + 1:O$ = EL$ + "*Thud!*- A hit! You win this pass!" + EL$: GOSUB 7000
: GOSUB 620: RETURN
450 IF W < 3 THEN 500
460 O$ = DL$ + "You have won the joust!" + EL$: GOSUB 7000
470 S4 = S4 + 1:O$ = EL$ + "The Queen tosses you her handkercheif!" + EL$: GOSU
B 7000:JW = JW + 1
480 X = LE * LE * 60:O$ = EL$ + "You gain " + STR$ (X) + " Gold Pieces!" + EL$
: GOSUB 7000:GD = GD + X
490 GOTO 520
500 O$ = DL$ + "You have lost the joust!" + EL$: GOSUB 7000
510 S3 = S3 + 1:O$ = EL$ + "The Queen frowns as you leave..." + EL$: GOSUB 7000
:JL = JL + 1
520 IF L = 3 THEN B(7) = B(7) + 1: GOTO 540
530 B(8) = B(8) + 1
540 PRINT D$"OPENDOWNS,L17"C$(15): PRINT D$"WRITEDOWNS,R"J: PRINT S3: PRINT S4
: PRINT B(7): PRINT B(8): PRINT B(9): PRINT D$"CLOSE"
550 GOTO 70
560 A$ = MA$: GOSUB 8450:O$ = EL$ + "[Hold...] Transporting to Main" + EL$: GOS
UB 7000: CALL 35848"MAIN"
570 X = INT ( RND (1) * 10 / 3):O$ = DL$: GOSUB 7000: IF X = 0 THEN X = 1
580 ON X GOTO 590,600,610
590 O$ = "The King relieves himself on you...": GOTO 7000
600 O$ = "The crowd dispells garbage on you...": GOTO 7000
610 O$ = "The crowd boos vigorously...": GOTO 7000
620 X = INT ( RND (1) * 10 / 3)
630 O$ = EL$: GOSUB 7000
640 IF X = 0 THEN X = 1
650 ON X GOTO 660,670,680
660 O$ = "The Queen waves at you!": GOTO 7000
670 O$ = "The crowd roars with approval!": GOTO 7000
680 O$ = "The crowd is doing the WAVE!": GOTO 7000
6000 GOSUB 7000: GOSUB 8000: RETURN
7000 & B / O$: POKE 960,0: RETURN
8000 CC = 0: IF PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
8539:CF = 9
8010 IF CF = 9 AND PEEK (1) < > 128 THEN CF = 1:CA$ = "Y"
8020 IF CA$ < > "Y" OR LEN (CN$) > 1 THEN 8040
8030 IF CF = 1 THEN CALL 38539
8040 IF PEEK (1) = 128 THEN 8140
8050 IF LEN (CN$) = 0 THEN 8140
8060 FOR T = 1 TO LEN (CN$)
8070 IF MID$ (CN$,T,1) = "," THEN I$ = MID$ (CN$,1,T - 1):CN$ = RIGHT$ (CN$
, LEN (CN$) - T): GOTO 8110
8080 IF MID$ (CN$,T,1) = "#" THEN I$ = MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
0
8090 NEXT
8100 POKE 960,0
8110 IF O$ = "STOP" THEN O$ = "": GOTO 8210
8120 IF LEN (I$) = 0 THEN 8050
8130 O$ = I$ + EL$: GOSUB 7000: GOTO 8290
8140 POKE 960,0: & A / SP$:I$ = MID$ (SP$,1): IF PEEK (961) THEN 8380
8150 CN$ = I$ + "#":O$ = "STOP"
8160 IF LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
8170 POKE 961,0: IF PEEK (960) = 255 THEN CC = CC + 1: IF CC > 1 OR I$ = "OFF
" THEN 8370
8180 IF PEEK (960) = 255 OR I$ = "OFF" THEN 8140
8190 IF PEEK (1) = 128 THEN CN$ = "": GOTO 8230
8200 IF LEN (CN$) > 0 THEN 8060
8210 IF LEN (I$) < > 1 AND RIGHT$ (I$,1) = " " THEN I$ = LEFT$ (I$, LEN (I
$) - 1): GOTO 8210
8220 IF LEN (I$) < > 1 AND LEFT$ (I$,1) = " " THEN I$ = RIGHT$ (I$, LEN (I
$) - 1): GOTO 8220
8230 IF LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 7000: GOTO 8250
8240 IF LEN (I$) = 0 THEN 8000
8250 IF CA$ < > "Y" THEN 8290
8260 IF CF = 1 THEN CALL 36798
8270 IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 7000: CALL 36798
:CF = 1
8280 IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 7000: CALL 385
39:CF = 0
8290 CR = 0: RETURN
8300 IF CL$ = "N" THEN T$ = DA$: RETURN
8310 PR# 4: IN# 4: INPUT "#";T,T,T,T,T,B: INPUT "%";T$
8320 PR# 0: POKE 56,102: POKE 57,213: CALL 1002
8330 IF TI > T THEN T = TI + (60 - TI) + T
8340 TL = CO - (T - TI)
8350 IF TL < = 0 THEN O$ = EL$ + "You are out of Time! Later.": GOSUB 7000:
POP : GOTO 8370
8360 RETURN
8370 A$ = OF$: GOSUB 8450: CALL 35848"OFF"
8380 A$ = CH$: GOSUB 8450: CALL 35848"CHAT"
8390 IF LEN (O$) < 40 OR LEN (O$) > 79 THEN RETURN
8400 X = 0
8410 IF MID$ (O$,40 - X,1) = " " THEN B$(0) = LEFT$ (O$,39 - X):B$(0) = B$(0
) + EL$ + RIGHT$ (O$, LEN (O$) - (40 - X)): GOTO 8430
8420 X = X + 1: GOTO 8410
8430 O$ = B$(0)
8440 RETURN
8450 Y = VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y = VAL ( RIGHT$ (A$,1)): POKE 43
624,Y:Y = VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN PRINT D$"OPEN VC,V"Y
8455 IF TC$ = "Y" THEN POKE 1014,10: POKE 952,215: POKE 953,251
8460 RETURN
8470 FOR X = 20 TO JW STEP 20
8480 IF LR < = X AND JW > 19 THEN 8510
8490 NEXT
8500 GOTO 100
8510 CALL 54915:LR = X + 1:O$ = EL$ + "You have " + STR$ (X) + " Wins!" + DL$
+ "All Stats + 5!": GOSUB 7000:ST = ST + 5:AG = AG + 5:WI = WI + 5:CH = CH + 5:
GOTO 80
8520 CALL - 3288: GOTO 70
]LOAD MA
]LIST
5 IF TC$ = "Y" THEN POKE 1014,0: POKE 952,240: POKE 953,253
10 CALL 54915
20 IF A > 0 THEN 40
30 PRINT CHR$ (4)"SAVEMA,S3": PRINT CHR$ (4)"RUNCHAT,S6"
40 ONERR GOTO 70
50 K = 5: IF FE = 1 THEN D1$ = SY$:FE = 0: GOTO 160
60 GOTO 510
70 CALL - 3288: GOTO 510
80 A$ = OF$: GOSUB 8420: CALL 35848"OFF"
90 A$ = CH$: GOSUB 8420: CALL 35848"CHAT"
100 RETURN
110 O$ = EL$ + "Send a Scroll. Press 'M' for Match or enter User #": GOSUB
6000
120 IF I$ = "Q" THEN 520
130 IF I$ = "M" THEN 610
140 X = VAL (I$): IF X < 1 OR X > US THEN 110
150 PRINT D$"OPENSTATS,L200"C$(15): PRINT D$"READSTATS,R"X: INPUT D1$: PRINT D
$"CLOSE":O$ = EL$ + "Send Mail to " + D1$ + "? ": GOSUB 6000: IF I$ < > "Y" OR
D1$ = "Empty" THEN 110
160 GOSUB 7010: IF NOT X THEN 570
170 CR = 0:D3$ = "Letter Has Been Mailed": GOSUB 450: GOTO 510
180 O$ = EL$ + "Read Your Scrolls" + DL$: GOSUB 7000
190 IF MA < > 1 THEN O$ = DL$ + "You Have No Scrolls!": GOSUB 7000: GOTO 510
200 F$ = "M-" + NA$
210 PRINT CHR$ (4)"OPEN"F$C$(20)
220 PRINT CHR$ (4)"READ"F$: & E / ZZ$: IF ZZ$ = CHR$ (0) THEN 440
230 O$ = DL$: GOSUB 7000:C = 1:BB = 1
240 D$(1) = MID$ (ZZ$,1): IF LEFT$ (ZZ$,1) = CHR$ (1) THEN O$ = D$(1) + DL$:
GOSUB 7000: & E / ZZ$:D$(3) = MID$ (ZZ$,2):C = 3:D$(2) = ""
250 D1$ = D$(C):D$(C) = "[Written By]=>" + D$(C):O$ = D$(C) + EL$: GOSUB 7000:C
= C + 1
260 & E / ZZ$:D$(C) = MID$ (ZZ$,1): IF PEEK (960) = PEEK (970) THEN BB = 0
270 IF ZZ$ < > CHR$ (31) THEN C = C + 1: IF BB THEN O$ = EL$ + D$(C - 1): GO
SUB 7000
280 IF C = 16 AND CF = 1 THEN O$ = EL$ + "[Press Return]":CR = 1: GOSUB 6000
290 IF ZZ$ < > CHR$ (31) THEN 260
300 POKE 960,0:O$ = DL$: GOSUB 7000
310 O$ = EL$ + "[A/uto-Reply-D/elete-R/e-read]->": GOSUB 7000: GOSUB 8330:O$ =
EL$: GOSUB 7000
320 IF I$ < > "A" THEN 380
330 O$ = EL$ + "[Hold...] Checking for mailbox" + EL$: GOSUB 7000: PRINT D$"OP
ENSTATS,L200"C$(15)
340 FOR Z = 1 TO US: PRINT D$"READSTATS,R"Z: INPUT O$
350 IF O$ = D1$ THEN PRINT D$"CLOSESTATS": GOTO 420
360 NEXT
370 PRINT D$"CLOSESTATS":O$ = EL$ + "Sorry, that character is no longer on t
his system." + EL$: GOSUB 7000: GOTO 310
380 IF I$ = "Q" AND J = 1 THEN 440
390 IF I$ < > "R" THEN 220
400 O$ = DL$: GOSUB 7000: FOR Z = 1 TO C - 1:O$ = D$(Z) + EL$: GOSUB 7000: IF
PEEK (960) = PEEK (970) THEN Z = C
410 NEXT Z: POKE 960,0:O$ = DL$: GOSUB 7000: GOTO 310
420 GOSUB 7010: IF NOT X THEN 220
430 CR = 0:D3$ = "Mailed to [" + D1$ + "]" + EL$: GOSUB 450: GOTO 220
440 PRINT CHR$ (4)"CLOSE":MA = 2:O$ = EL$: GOTO 7000
450 O$ = EL$ + "Mailing To: " + D1$ + DL$: GOSUB 7000: PRINT CHR$ (4)"OPENM-"D
1$""C$(20): PRINT CHR$ (4)"APPENDM-"D1$: PRINT CHR$ (4)"WRITEM-"D1$
460 IF CR = 1 THEN PRINT CHR$ (1)
470 B(0) = - 99
480 PRINT NA$: GOSUB 8340: PRINT "[Day Mailed]=>"T$" #"J: PRINT : FOR Z = 1 TO
X: PRINT D$(Z): NEXT Z: PRINT CHR$ (31)
490 B(0) = 0
500 PRINT CHR$ (4)"CLOSEM-"D1$:O$ = D3$: GOTO 7000
510 GOTO 520
520 GOSUB 8340:O$ = DL$ + "Dungeon Script Office" + DL$ + "[S/end-R/ead-Q/uit]
->": GOSUB 6000
530 IF I$ = "S" THEN 110
540 IF I$ = "Q" THEN 580
550 IF I$ = "R" THEN 180
560 GOTO 510
570 IF FE = 1 THEN FE = 0: GOTO 510
580 O$ = DL$ + "Return to Main Dungeon? [Y/N]:": GOSUB 6000: IF I$ < > "Y" THE
N 510
590 A$ = MA$: GOSUB 8420: CALL 35848"MAIN"
600 RETURN
610 O$ = EL$ + "Enter Users Full Name->": GOSUB 6000
620 O$ = I$: GOSUB 8440:I$ = B$(0)
630 PRINT D$"OPENSTATS,L200"C$(15)
640 FOR X = 1 TO US
650 PRINT D$"READSTATS,R"X
660 INPUT B$(0): IF B$(0) = I$ THEN O$ = EL$ + B$(0) + " is User #" + STR$ (X
) + EL$:D1$ = B$(0): GOSUB 7000: PRINT D$"CLOSE": GOTO 150
670 NEXT
680 PRINT D$"CLOSE"
690 O$ = EL$ + "There is no such user!" + EL$: GOSUB 7000: GOTO 110
6000 GOSUB 7000: GOSUB 8000: RETURN
7000 & B / O$: POKE 960,0: RETURN
7010 HOME :O$ = SC$ + EL$ + " [" + STR$ (ML) + "] Lines - [/EX] Ends [/S] S
aves": GOSUB 7000:O$ = EL$ + "[/UP] Redo last line [/LN] Line Number" + DL$: GO
SUB 7000:X = 1
7015 IF CA$ < > "Y" THEN 7030
7020 POKE 36996,76: POKE 36998,142
7030 CR = 1: POKE 1,128: GOSUB 8000:D$(X) = I$: POKE 1,0: IF PEEK (872) = 1 TH
EN POKE 0,VW
7040 IF I$ = "/EX" OR I$ = "/ex" THEN D$(X) = "": GOTO 7120
7050 IF I$ = "/UP" OR I$ = "/up" AND X > 1 THEN O$ = "[Retype the line]" + EL$
: GOSUB 7000:X = X - 1: GOTO 7030
7060 IF I$ = "/S" OR I$ = "/s" THEN D$(X) = "":I$ = "S": GOTO 7160
7070 IF I$ = "/LN" OR I$ = "/ln" THEN O$ = "[Line # " + STR$ (X) + "]" + EL$:
GOSUB 7000:X = X - 1
7080 IF X = ML - 5 THEN O$ = "[5] More lines" + EL$: GOSUB 7000
7090 POKE 38689,0: IF PEEK (36712) = 1 THEN POKE 0,VW
7100 X = X + 1: IF X < = ML THEN 7030
7110 O$ = EL$ + "That's [" + STR$ (ML) + "] lines" + EL$: GOSUB 7000
7120 O$ = EL$ + "[Edit/S/?]->": GOSUB 7000: GOSUB 8330
7125 O$ = EL$: GOSUB 7000
7130 IF I$ = "?" THEN O$ = DL$ + "S)ave" + EL$ + "L)ist" + EL$ + "N)ew" + EL$
+ "C)ontinue" + EL$ + "F)ix" + EL$ + "Q)uit" + EL$: GOSUB 7000: GOTO 7120
7140 IF I$ = "Q" THEN GOSUB 7360:X = 0: POKE 36996,169: POKE 36998,32:O$ = DL
$ + "[Message Aborted!]": GOTO 7000
7150 IF I$ = "L" THEN A$ = "": GOSUB 7300: GOTO 7120
7160 IF I$ = "S" OR I$ = "O" THEN X = X - 1: POKE 36996,169: POKE 36998,32: RE
TURN
7170 IF I$ = "N" THEN GOSUB 7360:O$ = EL$: GOSUB 7000: GOTO 7010
7180 IF I$ = "F" THEN 7210
7190 IF I$ = "C" THEN A$ = "":Z = X - 1:F = Z - 3:F = F * (F > - 1) + 1: GOSU
B 7330:X = X - 1: GOTO 7100
7200 GOTO 7120
7210 O$ = EL$ + "List Lines [Y/N]:": GOSUB 7000: GOSUB 8330
7220 IF I$ = "N" THEN 7250
7230 IF I$ = "Y" THEN A$ = "X": GOSUB 7300: GOTO 7250
7240 GOTO 7210
7250 O$ = DL$ + "Edit Line [CR=Quit] #": GOSUB 7000:CR = 1: GOSUB 8300
7260 IF I$ = "" THEN 7120
7270 REM
7280 IF J < 1 OR J > = X THEN O$ = EL$ + "[Line Doesn't Exist!]" + EL$: GOSUB
7000: GOTO 7120
7290 A$ = "[" + RIGHT$ ("0" + STR$ (J) + "] ",4):O$ = EL$ + A$ + D$(J) + EL$
+ A$: GOSUB 7000:CR = 1: POKE 1,128: GOSUB 8000:D$(J) = I$: POKE 1,0: GOTO 7210
7300 O$ = DL$ + "List from [CR=Lists all] #": GOSUB 7000:CR = 1: GOSUB 8300:F =
1:Z = X - 1: IF I$ = "" THEN 7320
7310 F = J:O$ = " To [CR=To The End] #": GOSUB 7000:CR = 1: GOSUB 8300:Z
= J: IF I$ = "" THEN Z = X - 1
7320 IF F < 1 OR Z > = X THEN O$ = EL$ + "[Line # Doesn't Exist!]" + EL$: GOT
O 7000
7330 O$ = EL$: GOSUB 7000: IF X < 2 THEN RETURN
7340 FOR J = F TO Z: IF A$ > "" THEN A$ = "[" + RIGHT$ ("0" + STR$ (J),2) +
"] "
7350 O$ = A$ + D$(J) + EL$: GOSUB 7000: NEXT J: RETURN
7360 IF X > 1 THEN O$ = EL$ + "Verify? [Y/N]:": GOSUB 7000: GOSUB 8330: IF I$
< > "Y" THEN POP : GOTO 7120
7370 RETURN
8000 CC = 0: IF PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
8539:CF = 9
8010 IF CF = 9 AND PEEK (1) < > 128 THEN CF = 1:CA$ = "Y"
8020 IF CA$ < > "Y" OR LEN (CN$) > 1 THEN 8040
8030 IF CF = 1 THEN CALL 38539
8040 IF PEEK (1) = 128 THEN 8140
8050 IF LEN (CN$) = 0 THEN 8140
8060 FOR T = 1 TO LEN (CN$)
8070 IF MID$ (CN$,T,1) = "," THEN I$ = MID$ (CN$,1,T - 1):CN$ = RIGHT$ (CN$
, LEN (CN$) - T): GOTO 8110
8080 IF MID$ (CN$,T,1) = "#" THEN I$ = MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
0
8090 NEXT
8100 POKE 960,0
8110 IF O$ = "STOP" THEN O$ = "": GOTO 8210
8120 IF LEN (I$) = 0 THEN 8050
8130 O$ = I$ + EL$: GOSUB 7000: GOTO 8290
8140 POKE 960,0: & A / SP$:I$ = MID$ (SP$,1): IF PEEK (961) THEN 90
8150 CN$ = I$ + "#":O$ = "STOP"
8160 IF LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
8170 POKE 961,0: IF PEEK (960) = 255 THEN CC = CC + 1: IF CC > 1 OR I$ = "OFF
" THEN 80
8180 IF PEEK (960) = 255 THEN 8140
8190 IF PEEK (1) = 128 THEN CN$ = "": GOTO 8230
8200 IF LEN (CN$) > 0 THEN 8060
8210 IF LEN (I$) < > 1 AND RIGHT$ (I$,1) = " " THEN I$ = LEFT$ (I$, LEN (I
$) - 1): GOTO 8210
8220 IF LEN (I$) < > 1 AND LEFT$ (I$,1) = " " THEN I$ = RIGHT$ (I$, LEN (I
$) - 1): GOTO 8220
8230 IF LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 7000: GOTO 8250
8240 IF LEN (I$) = 0 THEN 8000
8250 IF CA$ < > "Y" THEN 8290
8260 IF CF = 1 THEN CALL 36798
8270 IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 7000: CALL 36798
:CF = 1
8280 IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 7000: CALL 385
39:CF = 0
8290 CR = 0: RETURN
8300 GOSUB 8000: IF I$ = "" THEN RETURN
8310 J = INT ( VAL (I$)): IF J < 0 THEN J = 0
8320 RETURN
8330 GOTO 8000
8340 IF CL$ = "N" THEN T$ = DA$: RETURN
8350 PR# 4: IN# 4: INPUT "#";T,T,T,T,T,B: INPUT "%";T$
8360 PR# 0: POKE 56,102: POKE 57,213: CALL 1002
8370 IF TI > T THEN T = TI + (60 - TI) + T
8380 TL = CO - (T - TI)
8390 IF B(0) = - 99 THEN 8410
8400 IF TL < = 0 THEN O$ = EL$ + "You are out of Time! Later.": GOSUB 7000:
GOTO 80
8410 RETURN
8420 Y = VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y = VAL ( RIGHT$ (A$,1)): POKE 43
624,Y:Y = VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN PRINT D$"OPEN VC,V"Y
8425 IF TC$ = "Y" THEN POKE 1014,10: POKE 952,215: POKE 953,251
8430 RETURN
8440 B$(0) = ""
8450 FOR X = 1 TO LEN (O$)
8460 A$ = MID$ (O$,X,1)
8470 IF X = 1 THEN 8510
8480 T = ASC (A$): IF T < 65 OR T > 90 THEN J = 1: GOTO 8510
8490 IF J = 1 THEN J = 0: GOTO 8510
8500 T = T + 32:A$ = CHR$ (T)
8510 B$(0) = B$(0) + A$
8520 NEXT
8530 RETURN
]LOAD MAIN
]LIST
10 IF TC$ = "Y" THEN POKE 1014,0: POKE 952,240: POKE 953,253
20 IF FO > 4 THEN FO = 4
30 CALL 54915: POKE 1,0: ONERR GOTO 8720
40 IF A > 0 THEN 140
50 PRINT CHR$ (4)"SAVEMAIN,S3": PRINT CHR$ (4)"RUNFIGHT,S6"
60 ST = 10:AG = 10:WI = 10:CH = 10:WE = 2:AR = 2:EX = 0:GD = 500:LE = 1:FI$ = "
On":FD = 100
70 WP$ = "Dagger":AM$ = "Cloth":WP = 3:AP = 1
80 HP = 20:TH = 20:PO = 20:TP = 20:BA = 100:L$(1) = "Low-Life Scum":A(1) = 0:L$
(2) = "Maggot":A(2) = 750
90 FOR T = 1 TO SN:S(T) = 0: NEXT
100 S(3) = 2:S(5) = 2:S(26) = 2:S(19) = 1:S(2) = 2:S(8) = 1:JW = 0:JL = 0:LR =
0
110 PRINT D$"OPENCASTLES,L39"C$(12): PRINT D$"WRITECASTLES,R"A: PRINT "0000000
0000000000000000000000000000000": PRINT D$"CLOSE"
120 IF AD$ = "Yes" AND SF$ = "Y" THEN PRINT D$"OPENSAVE,L48"C$(27): PRINT D$"
WRITESAVE,R"A: PRINT "0": FOR X = 1 TO 11: PRINT "0": NEXT : PRINT D$"CLOSE"
130 RETURN
140 GOSUB 8300:O$ = DL$ + ME$ + DL$ + "[Time:" + STR$ (TL) + "]:[Cmd/?]->": G
OSUB 6000: GOSUB 1010: ONERR GOTO 8720
160 IF I$ = "." THEN 2940
170 IF I$ = "+" THEN O$ = "Castle Editor": GOSUB 8780:A$ = CE$: GOSUB 8750: CA
LL 35848"CASTLE EDITOR"
180 IF I$ = "!" THEN 2910
190 IF CL$ = "N" THEN TL = TL - 1: IF TL < 0 THEN O$ = EL$ + "The Sands of Tim
e have run dry...." + EL$: GOSUB 7000: GOTO 8510
200 IF I$ = "/" THEN 2870
210 IF (I$ = "%" AND LJ = 2) OR (I$ = "D" AND FO > 3) THEN O$ = EL$ + "Ye will
have to wait till next call to use that command!" + EL$: GOSUB 7000:I$ = " "
220 IF (I$ = "J" AND SF$ < > "Y") OR (BD$ < > "Y" AND I$ = "B") THEN O$ = EL
$ + "Sorry sire, but that option is not functioning at this time.": GOSUB 7
000:I$ = " "
230 IF I$ = "%" THEN O$ = "Courtyard": GOSUB 8780:A$ = JO$: GOSUB 8750: CALL 3
5848"JOUST"
240 IF I$ = "A" THEN O$ = "Bazaar": GOSUB 8780:A$ = ST$: GOSUB 8750: CALL 3584
8"STORES"
250 IF AD$ = "NO" AND I$ = "J" THEN O$ = EL$ + "Sorry my lord, but you will ha
ve to be- come a full time member before you can use that function.": GOSUB 700
0:I$ = " "
260 IF I$ < > ":" THEN 290
270 O$ = EL$ + "Reset Joust Wins/Losses? Y/N: ": GOSUB 6000: IF I$ = "Y" THEN J
W = 0:JL = 0:O$ = EL$ + "Done!": GOSUB 7000:LR = 0: GOTO 140
280 GOTO 140
290 IF I$ = "P" THEN 2680
300 IF I$ = "T" THEN 2120
310 IF I$ = "S" THEN O$ = EL$ + T$: GOSUB 7000: GOTO 140
320 IF I$ = "*" THEN F$ = "CNTRL.CHAR": GOSUB 8370: GOTO 140
330 IF I$ = "&" THEN F$ = "FACTS": GOSUB 8370: GOTO 140
340 IF I$ < > "I" THEN 380
350 F$ = "INFO": GOSUB 8370:O$ = EL$ + "Are you interested in buying a copy of
this system? Y/N:": GOSUB 6000: IF I$ < > "Y" THEN 140
360 O$ = EL$ + "Do you have an Apple computer? Y/N:": GOSUB 6000: IF I$ < > "Y
" THEN 140
370 F$ = "BUY.INFO": GOSUB 8370: GOTO 140
380 IF I$ = "^" THEN F$ = "HELP": GOSUB 8370: GOTO 140
390 IF I$ = "C" THEN POKE 1,128:O$ = DL$ + "What is it concerning(40 Char. Ma
x)?" + DL$: GOSUB 6000: VTAB (4): PRINT I$:O$ = EL$ + "If I am around I'll answe
r.": GOSUB 7000: HOME : POKE 1,0: GOTO 140
400 IF I$ = "M" THEN 1560
410 IF I$ = "Z" THEN 1760
420 IF I$ = "$" THEN F$ = "PGL":O$ = SC$: GOSUB 7000: HOME :F$ = "PGL": GOSUB
8380: GOTO 140
430 IF I$ = "#" THEN F$ = "CSTAT":O$ = DL$ + "---------------" + EL$ + "Fight
Outcomes-" + EL$ + "---------------" + DL$: GOSUB 7000: GOSUB 8380: GOTO 140
440 IF I$ = "B" THEN 1700
450 IF I$ = "J" THEN 2700
460 IF I$ = "F" THEN 1710
470 IF I$ < > "@" THEN 530
480 O$ = EL$ + "Current Password->" + PA$ + DL$ + "Change Password? Y/N:": GOSU
B 6000: IF I$ < > "Y" THEN 140
490 POKE 2,255
500 O$ = EL$ + "Enter New Password->": GOSUB 6000: IF LEN (I$) < 1 OR LEN (I$
) > 7 THEN 500
510 POKE 2,0
520 PA$ = I$:O$ = EL$ + "Finis!": GOSUB 7000: GOTO 140
530 IF I$ = "V" THEN 1780
540 IF I$ = "E" THEN 1730
550 IF I$ = "D" THEN O$ = "Battle Field": GOSUB 8780:A$ = FT$: GOSUB 8750: CAL
L 35848"FIGHT"
560 IF I$ = "G" THEN O$ = "Casino": GOSUB 8780:A$ = GA$: GOSUB 8750: CALL 3584
8"GA"
570 IF I$ = "K" THEN 1180
580 IF I$ = "U" THEN POKE 1,128: POKE 2,255: GOTO 950
590 IF I$ = "?" THEN F$ = "MENU": GOSUB 8370: GOTO 140
600 IF I$ = "H" THEN 720
610 IF I$ = "X" THEN F$ = "FEES": GOSUB 8370: GOTO 140
620 IF I$ = "N" THEN F$ = "NEWS": GOSUB 8370: GOTO 140
630 IF I$ = "L" THEN 1390
640 IF I$ = "Y" THEN GOSUB 8520: GOTO 140
650 IF I$ < > "O" THEN 680
660 O$ = EL$ + "My Lord! Leaving so soon?:": GOSUB 6000: IF I$ = "Y" THEN 8510
670 GOTO 140
680 IF I$ < > "R" THEN 710
690 O$ = EL$ + "Re-Roll your character? Y/N:": GOSUB 6000: IF I$ = "Y" THEN GO
SUB 60: GOSUB 8520
700 GOTO 140
710 TL = TL + 1: GOTO 140
720 GOSUB 8740:O$ = "Battle Quickscan" + EL$ + "----------------" + DL$ + "1.
User Fightscan" + EL$ + "2. Castle Fightscan" + EL$ + "3. Joust Fightscan" + DL$
+ "Which? (1-3/Q)->": GOSUB 6000
730 GOSUB 980:B(0) = VAL (I$): IF B(0) < 1 OR B(0) > 3 THEN 720
735 O$ = EL$ + "Scan how many levels above you?" + EL$ + "(1-" + STR$ (LN - LE
) + "/CR=All)->":CR = 1: GOSUB 6000:B(9) = VAL (I$) + LE: IF LE = B(9) THEN B(9
) = LN
740 O$ = EL$ + "Quickscan entire file? Y/N:": GOSUB 6000: GOSUB 980: IF I$ = "Y
" THEN X = 1:I$ = "Z": GOTO 770
750 O$ = EL$ + "Start at User #": GOSUB 6000:X = VAL (I$)
760 GOSUB 980
770 GOSUB 8790: ONERR GOTO 790
780 GOTO 800
790 CALL - 3288: PRINT D$"CLOSE":O$ = DL$ + "-/-> End of List!": GOSUB 7000:
GOTO 140
800 IF X < 1 OR X > US THEN O$ = "Invalid number!": GOSUB 7000: GOTO 720
810 PRINT D$"OPENSTATS,L200"C$(15)
820 FOR FI = X TO (X + 19)
830 PRINT D$"READSTATS,R"FI
840 INPUT B$(1),B$(3),J,B(1)
850 IF B$(1) = "Empty" OR LE > J + FL OR J > B(9) OR A = FI THEN 920
860 IF (B(0) = 1 AND B$(3) = "Dead") OR (B(0) = 2 AND B(1) < 0) THEN 920
870 Y = J - LE
880 IF LE < J THEN O$ = "+" + STR$ (Y): GOTO 900
890 O$ = STR$ (Y)
900 O$ = EL$ + "User #" + STR$ (FI) + " " + B$(1) + " " + O$: GOSUB 7000
910 IF PEEK (960) = PEEK (970) THEN 790
920 NEXT FI
930 PRINT D$"CLOSE": IF I$ < > "Z" THEN O$ = DL$ + "Cont? (Y/N):": GOSUB 6000
: IF I$ < > "Y" THEN 140
940 X = X + 20: GOTO 810
950 O$ = EL$ + "Enter Message. 40 Chars Max." + DL$: GOSUB 6000: IF LEN (I$)
> 40 THEN O$ = "Too long!" + EL$: GOSUB 7000: GOTO 950
960 POKE 1,0: POKE 2,0
970 O$ = EL$ + "The Deed Is Done!":ME$ = I$: GOSUB 7000: GOTO 140
980 IF I$ < > "Q" AND I$ < > "0" THEN RETURN
990 POP : IF B$(2) = "S" THEN POP
1000 GOTO 140
1010 IF EX < A(2) THEN RETURN
1020 IF LE = LN - 1 THEN O$ = EL$ + "You have reached the top level. You w
ill either have to Re-Roll or stay at this level. Your stats will continue t
o rise apropriately." + EL$ + EL$ + "[Press Return]":CR = 1: GOSUB 7000: GOSUB 8
000:LE = LE - 1:EX = A(1)
1030 LE = LE + 1:G(3) = INT (8 * RND (1)) + 3:TP = TP + G(3):PO = TP
1040 O$ = DL$ + "L" + EL$ + "e" + EL$ + "v" + EL$ + "e" + EL$ + "l" + DL$ + ST
R$ (LE) + DL$ + "You are now a " + L$(2) + "!" + DL$ + "Power +" + STR$ (G(3))
+ DL$
1050 G(1) = INT (CH / 5):G(2) = INT ((G(1) * 2) * RND (1)) + (G(1) * 3):O$ =
O$ + "Hit points +" + STR$ (G(2)) + EL$:TH = TH + G(2):HP = TH
1060 X = INT (5 * RND (1)) + 3
1070 O$ = O$ + EL$
1080 Y = INT (5 * RND (1)) + 1
1090 IF Y = 5 THEN ST = ST + X:O$ = O$ + "Strength +"
1100 IF Y = 2 THEN 1080
1110 IF Y = 4 THEN CH = CH + X:O$ = O$ + "Intellegence +"
1120 IF Y = 3 THEN AG = AG + X:O$ = O$ + "Agility +"
1130 IF Y = 1 THEN WI = WI + X:O$ = O$ + "Wisdom +"
1140 O$ = O$ + STR$ (X) + DL$ + "All Stats +1" + EL$: GOSUB 7000
1150 G(0) = (LE * LE * 100) + 500:G(0) = INT (G(0)):O$ = EL$ + "Gold +" + STR
$ (G(0)) + EL$:GD = GD + G(0): GOSUB 7000
1160 WI = WI + 1:ST = ST + 1:AG = AG + 1:CH = CH + 1
1170 PRINT D$"OPENLEVELS"C$(7): PRINT D$"READLEVELS": FOR X = 1 TO (LE - 1): I
NPUT L$(1),A(1): NEXT : FOR X = 1 TO 2: INPUT L$(X),A(X): NEXT : PRINT D$"CLOSE"
: POP : GOTO 140
1180 GOSUB 8740
1190 O$ = DL$ + " -=>Castle Treasury<=-" + DL$ + "Would you be making a
..." + DL$ + "A. Deposit" + EL$ + "B. Withdrawl" + DL$ + "Which->": GOSUB 6000
:BA = INT (BA)
1200 GOSUB 980
1210 IF I$ = "A" THEN 1320
1220 IF I$ < > "B" THEN 1190
1230 IF BA < 0 THEN O$ = EL$ + "You don't have any gold in the treasury!": GOS
UB 7000: GOTO 140
1240 O$ = EL$ + "You have " + STR$ (BA) + " Gold in your Treasury!" + DL$ + "W
ithdrawl entire amount? Y/N:": GOSUB 6000: IF I$ = "Y" THEN GD = GD + BA:BA = 0:
GOTO 1310
1250 O$ = EL$ + "Enter amount of Withdrawl $": GOSUB 6000
1260 GOSUB 980
1270 X = INT ( VAL (I$))
1280 IF X < 0 THEN 1240
1290 IF X > (BA) THEN O$ = EL$ + YO$ + EL$: GOSUB 7000: GOTO 1240
1300 GD = GD + X:BA = BA - X:NU = NU - X
1310 O$ = EL$ + "Your transaction has been processed." + EL$ + "Thank you for y
our cooperation." + EL$: GOSUB 7000: GOTO 140
1320 O$ = EL$ + "You have " + STR$ (GD) + " Gold" + DL$ + "Deposit entire amou
nt? Y/N:": GOSUB 6000: IF I$ = "Y" THEN BA = BA + GD:GD = 0: GOTO 1380
1330 O$ = EL$ + "Enter amount of deposit $": GOSUB 6000: GOSUB 980
1340 X = INT ( VAL (I$))
1350 IF X < 0 THEN 1320
1360 IF X > GD THEN O$ = EL$ + YO$ + EL$: GOSUB 7000: GOTO 1320
1370 GD = GD - X:BA = BA + X
1380 O$ = EL$ + "You now have " + STR$ (BA) + " in your treasury!" + EL$: GOSU
B 7000: GOTO 1310
1390 O$ = EL$ + SC$ + EL$ + "The Ladder" + EL$ + "----------" + DL$: GOSUB 7000
1400 ONERR GOTO 8730
1410 PRINT D$"OPENTOP,L35"C$(16)
1420 O$ = EL$ + "Enter starting rank #": GOSUB 6000:G(3) = VAL (I$): GOSUB 980
1430 IF G(3) < 1 OR G(3) > US THEN O$ = EL$ + "Invalid Number!" + EL$: GOSUB 7
000: GOTO 1420
1440 GOSUB 8790
1450 O$ = EL$ + "Num. User/User num. Level" + DL$ + "A=Alive" + EL$ + "D
=Dead" + DL$: GOSUB 7000
1460 IF G(0) = 1 THEN G(4) = G(4) + 1
1470 FOR X = G(3) TO (G(3) + 15)
1480 PRINT D$"READTOP,R"X
1490 INPUT A$,B$(1),G(2)
1500 O$ = STR$ (X) + ". " + B$(1) + " " + A$: FOR Y = (32 - LEN (O$)) TO 1 S
TEP - 1:O$ = O$ + ".": NEXT :O$ = O$ + STR$ (G(2)) + EL$: GOSUB 7000
1510 IF PEEK (960) = PEEK (970THEN 140
1520 NEXT X
1530 O$ = EL$ + "Cont? (Y/N):": GOSUB 6000: IF I$ < > "Y" THEN PRINT D$"CLOSE
": GOTO 140
1540 G(3) = G(3) + 16
1550 O$ = EL$: GOSUB 7000: GOTO 1470
1560 O$ = SC$ + EL$ + "Member Listing" + EL$ + "--------------": GOSUB 7000
1570 O$ = DL$ + "Enter starting user #": GOSUB 6000
1580 G(1) = VAL (I$)
1590 GOSUB 980
1600 IF G(1) > US OR 1 > G(1) THEN O$ = "Invalid Number!": GOSUB 7000: GOTO 15
70
1610 ONERR GOTO 8730
1620 PRINT D$"OPENSTATS,L200"C$(15)
1630 FOR X = G(1) TO (G(1) + 15)
1640 PRINT D$"READSTATS,R"X
1650 INPUT B$(1)
1660 O$ = EL$ + "[" + STR$ (X) + "] " + B$(1): GOSUB 7000
1670 NEXT
1680 O$ = DL$ + "Cont? (Y/N):": GOSUB 6000: IF I$ < > "Y" THEN PRINT D$"CLOSE
": GOTO 140
1690 G(1) = G(1) + 16: GOTO 1630
1700 O$ = "Scroll City": GOSUB 8780:A$ = BO$: GOSUB 8750: CALL 35848"BRD"
1710 O$ = DL$ + "Leave Feedback to Sysop? (Y/N):": GOSUB 6000: IF I$ < > "Y" T
HEN 140
1720 FE = 1: GOTO 1730
1730 O$ = "Post Office": GOSUB 8780:A$ = ML$: GOSUB 8750: CALL 35848"MA"
1740 A$ = CH$: GOSUB 8750: CALL 35848"CHAT"
1750 RETURN
1760 O$ = DL$ + EL$ + "Log for " + DA$ + DL$ + " Hv=Half Validated Va=Validat
ed" + EL$ + " Ex=Used Two Calls New=New User" + EL$ + "Adv=Used Adventure 202=
Used 202" + DL$
1770 O$ = O$ + "Call Number / User / User Info" + EL$ + "----------------------
--------" + DL$: GOSUB 7000:F$ = "LOG": GOSUB 8380: GOTO 140
1780 GOSUB 8740:O$ = "Voting Booth" + EL$ + "------------" + DL$ + "This Weeks
Topic is: " + DL$
1790 GOSUB 7000
1800 F$ = "VOTING.TOP": GOSUB 8380
1810 IF VO = 1 THEN O$ = "View Results? Y/N: ": GOSUB 6000: IF I$ < > "Y" THE
N 140
1820 IF VO = 1 THEN O$ = EL$: GOSUB 7000
1830 X = 0
1840 PRINT D$"OPENVOTING"C$(18)
1850 PRINT D$"READVOTING"
1860 ONERR GOTO 1900
1870 X = X + 1
1880 INPUT T$(X),B(X)
1890 GOTO 1870
1900 CALL - 3288: PRINT D$"CLOSE":X = X - 1
1910 FOR A1 = 1 TO X:N%(A1) = 0: NEXT :T = 0
1920 FOR A1 = 1 TO X
1930 T = T + B(A1)
1940 NEXT
1950 IF T = 0 THEN 1990
1960 FOR A1 = 1 TO X
1970 N%(A1) = (B(A1) * 100) / T
1980 NEXT
1990 ONERR GOTO 8720
2000 FOR Y = 1 TO X
2010 O$ = STR$ (Y) + ". " + T$(Y)
2020 FOR AM = 20 TO LEN (T$(Y)) STEP - 1:O$ = O$ + ".": NEXT :O$ = O$ + STR
$ (B(Y)) + " " + STR$ (N%(Y)) + "%" + EL$: GOSUB 7000
2030 NEXT
2040 IF VO = 1 THEN 140
2050 O$ = DL$ + "Which(1-" + STR$ (X) + "/Q)->": GOSUB 6000: GOSUB 980
2060 Y = VAL (I$): IF Y < 1 OR Y > X THEN 2050
2070 VO = 1
2080 B(Y) = B(Y) + 1:O$ = EL$ + "HOLD...Your Vote Is Being Registered." + EL$:
GOSUB 7000: PRINT D$"OPENVOTING"C$(18): PRINT D$"WRITEVOTING": FOR Y = 1 TO X: P
RINT T$(Y)","B(Y): NEXT
2090 PRINT D$"CLOSE"
2100 G(3) = LE * 100
2110 O$ = EL$ + "Gold +" + STR$ (G(3)) + DL$ + "Experience +" + STR$ (G(3)) +
EL$:GD = GD + G(3):EX = EX + G(3):O$ = O$ + EL$ + "It Is Done Sire!": GOSUB 700
0: GOTO 140
2120 O$ = DL$ + "Trade Stats" + EL$ + "-----------" + EL$
2130 O$ = O$ + EL$ + "1) Hp/Po" + EL$ + "2) Stats" + DL$ + "Which: ": GOSUB 600
0: GOSUB 980
2140 IF VAL (I$) = 1 THEN 2470
2150 G(5) = AG:G(6) = WI:G(7) = ST:G(8) = CH
2160 AG = G(5):WI = G(6):ST = G(7):CH = G(8)
2170 O$ = EL$ + "What Stat Do You Want To Raise: " + DL$
2180 O$ = O$ + "1) Agility" + EL$ + "2) Wisdom" + EL$ + "3) Strength" + EL$ + "
4) Intellingence " + DL$ + "Which: ": GOSUB 6000: GOSUB 980
2190 G(1) = VAL (I$): IF G(1) < 1 OR G(1) > 4 THEN 2170
2200 O$ = EL$ + "Trade With:" + DL$ + "1) Agility [" + STR$ (AG) + "]" + EL$ +
"2) Wisdom [" + STR$ (WI) + "]" + EL$ + "3) Strength [" + STR$ (ST) + "]" + E
L$ + "4) Intelligence [" + STR$ (CH) + "]" + DL$ + "Which: "
2210 GOSUB 6000: GOSUB 980
2220 G(0) = VAL (I$): IF G(0) < 1 OR G(0) > 4 THEN 2200
2230 G(3) = AG
2240 IF G(0) = 2 THEN G(3) = WI
2250 IF G(0) = 3 THEN G(3) = ST
2260 IF G(0) = 4 THEN G(3) = CH
2270 T = INT ((G(3) - (LE * 1.5)) / 1.5): IF T < 1 THEN T = 0
2280 O$ = EL$ + "1 Point per 1.5 Trade" + DL$ + "Amount to be Raised(Max=" + S
TR$ (T) + ")->": GOSUB 6000: GOSUB 980
2290 I$ = STR$ ( INT ( VAL (I$)))
2300 G(4) = VAL (I$):G(2) = INT (( VAL (I$) * 1.5) + .5)
2310 IF G(4) < 1 THEN 2270
2320 IF G(3) - (LE * 1.5) < G(2) THEN 2270
2330 O$ = EL$ + "Results" + EL$ + "-------" + DL$: GOSUB 7000
2340 IF G(1) = 1 THEN AG = AG + G(4):O$ = "Agility [" + STR$ (AG) + "]"
2350 IF G(1) = 2 THEN WI = WI + G(4):O$ = "Wisdom [" + STR$ (WI) + "]"
2360 IF G(1) = 3 THEN ST = ST + G(4):O$ = "Strength [" + STR$ (ST) + "]"
2370 IF G(1) = 4 THEN CH = CH + G(4):O$ = "Intelligence [" + STR$ (CH) + "]"
2380 O$ = O$ + DL$: GOSUB 7000
2390 IF G(0) = 1 THEN AG = AG - G(2):O$ = "Agility [" + STR$ (AG) + "]"
2400 IF G(0) = 2 THEN WI = WI - G(2):O$ = "Wisdom [" + STR$ (WI) + "]"
2410 IF G(0) = 3 THEN ST = ST - G(2):O$ = "Strength [" + STR$ (ST) + "]"
2420 IF G(0) = 4 THEN CH = CH - G(2):O$ = "Intelligence [" + STR$ (CH) + "]"
2430 O$ = O$ + EL$: GOSUB 7000
2440 O$ = EL$ + "OK? Y/N ": GOSUB 6000
2450 IF I$ < > "Y" THEN O$ = EL$ + "No Changes Made" + EL$: GOSUB 7000: GOTO
2160
2460 O$ = EL$ + "Done!": GOSUB 7000: GOTO 140
2470 G(6) = TH:G(7) = TP
2480 TH = G(6):TP = G(7)
2490 O$ = DL$ + "Raise:" + DL$ + "1) Hit Points" + EL$ + "2) Power" + DL$ + "Wh
ich: ": GOSUB 6000: GOSUB 980
2500 G(0) = INT ( VAL (I$)): IF G(0) < 1 OR G(0) > 2 THEN 2490
2510 O$ = EL$ + "1 Point for 3":G(2) = 1 / 3
2520 IF G(0) = 1 THEN O$ = EL$ + "2 Points for 1":G(2) = 2
2530 G(1) = 2:Y = TP: IF G(0) = 2 THEN G(1) = 1:Y = TH
2540 IF G(1) = 1 THEN Y = INT ((Y - LE * 15) / 3)
2550 IF G(1) = 2 THEN Y = INT (Y - (7 + LE * 3)) * 2
2560 O$ = O$ + " Max = " + STR$ (Y) + EL$: GOSUB 7000
2570 O$ = EL$ + "Enter Amount To Raise: ": GOSUB 6000: GOSUB 980
2580 X = INT ( VAL (I$))
2590 IF X < 1 OR X > Y THEN 2570
2600 G(4) = X / G(2):G(5) = X
2610 IF G(0) = 1 THEN G(4) = G(4) + .99:G(4) = INT (G(4))
2620 IF G(0) = 1 THEN TH = TH + G(5):TP = TP - G(4)
2630 IF G(0) = 2 THEN TP = TP + G(5):TH = TH - G(4)
2640 O$ = EL$ + "Results" + EL$ + "-------" + DL$ + "Maximum Hit Points [" + S
TR$ (TH) + "]" + DL$ + "Maximum Power [" + STR$ (TP) + "]" + DL$ + "Ok? Y/N:":
GOSUB 6000
2650 IF I$ = "N" THEN 2480
2660 HP = TH:PO = TP
2670 O$ = EL$ + "Finis!": GOSUB 7000: GOTO 140
2680 O$ = DL$ + "Equipment & Gold" + EL$ + "----------------" + DL$ + "Weapon:
" + WP$ + EL$ + " Armor: " + AM$ + DL$ + "Gold: " + STR$ (GD) + EL$
2690 O$ = O$ + "Gold in the Treasury: " + STR$ (BA): GOSUB 7000: GOTO 140
2700 B$(1) = "Split Infinity":B$(2) = "Mazes of Death":B$(3) = "Empty":B$(4) =
"Empty":B$(5) = "Empty"
2710 GOSUB 8740:O$ = EL$ + " -=*>Adventurer's Corner<*=-" + DL$: FOR X =
1 TO 5:O$ = O$ + STR$ (X) + ". " + B$(X) + EL$: NEXT :O$ = O$ + EL$ + "Which->
": GOSUB 6000
2720 GOSUB 980
2730 X = VAL (I$): IF X < 1 OR X > 4 OR B$(X) = "Empty" THEN 2710
2735 IF X = 2 AND NA$ < > SY$ THEN O$ = EL$ + "Sorry, that adventure is tempo
rarily outof order.": GOSUB 7000: GOTO 2710
2740 O$ = EL$ + B$(X) + EL$: FOR Y = 1 TO LEN (B$(X)):O$ = O$ + "-": NEXT :O$
= O$ + DL$ + "1. Saved Game" + EL$ + "2. Restart " + B$(X) + EL$ + "3. Prelude"
+ EL$ + "4. Help File"
2750 L = X:O$ = O$ + DL$ + "Which?(1-4/Q)->": GOSUB 6000
2760 GOSUB 980: IF I$ < > "4" AND I$ < > "3" THEN 2790
2770 F$ = "HELP." + B$(L): IF I$ = "3" THEN F$ = "PRELUDE." + B$(L)
2780 GOSUB 8370:O$ = EL$ + "[Press Return]":CR = 1: GOSUB 6000: GOTO 2740
2790 IF I$ < > "2" THEN 2830
2800 IF I$ = "2" THEN O$ = EL$ + "Restart " + B$(Z) + "-> ": GOSUB 6000: IF I$
< > "Y" THEN 2700
2810 IF Z = 2 THEN PRINT D$"OPENMAZE.SAVE,L30"C$(22): PRINT D$"WRITEMAZE.SAVE
,R"A: FOR X = 1 TO 13: PRINT "0": NEXT : PRINT D$"CLOSE": GOTO 2840
2820 GOSUB 120: GOTO 2840
2830 IF I$ < > "1" THEN 2700
2840 O$ = EL$ + "Before you get to the adventure you will be logged off. D
o not hang up, the adventure will start in about 2 minutes." + EL$: GOSUB
7000
2850 IF CA < CP THEN O$ = EL$ + "Do You wish To Add your other call to your
adventure time? If So, you will be given an extra 25 minutes->": GOSUB 6000:
IF I$ = "Y" THEN CO = CO + 25:CA = CA + 1
2860 AU$ = "Y":Z = L: GOTO 8510
2870 IF CA > = CP THEN O$ = EL$ + "You must have at least one call left to
day to use this option.": GOSUB 7000: GOTO 140
2880 O$ = EL$ + "This option will use up another call of yours for today in
exchange for 20 minutes and an extra fight. Add of call? Y/N:": GOSUB 600
0: IF I$ < > "Y" THEN 140
2890 FO = FO - 1:CO = CO + 20:CA = CA + 1:CL = CL + 1:LA = LA - (LA * 2):HP = T
H:PO = TP:TL = TL + 20:LJ = LJ - 1
2900 O$ = EL$ + "Poof!" + DL$ + "Calls left today-> " + STR$ (CP - CA): GOSUB
7000: GOTO 140
2910 IF CL$ = "N" THEN O$ = EL$ + "You get " + STR$ (CO) + " minutes per call
at all times.": GOSUB 7000: GOTO 140
2920 GOSUB 8740:O$ = "Time Slot / Persons / Time Per Call ----------------
-------------------" + DL$: GOSUB 7000: PRINT D$"OPENTIMESLOTS"C$(21): PRINT D$"
READTIMESLOTS"
2930 FOR X = 1 TO 24: INPUT A$,I$,O$:O$ = A$ + " " + I$ + " " + O$ + " Min
utes" + EL$: GOSUB 7000: NEXT : PRINT D$"CLOSE":O$ = EL$ + "If you are a Half Va
lidated user then subtract 5 minutes.": GOSUB 7000: GOTO 130
2940 GOSUB 8740:O$ = "You wander into the Temple of Training, tired a wary, ho
ping to make yourself stronger and wiser. Soon you are spot- ted by a femal p
riestess, who comes over and begins to speak:" + DL$: GOSUB 7000
2950 B(0) = LE * LE * 150:O$ = "Each training session will raise one of your vi
rtue by 4 points. Each session costs " + STR$ (B(0)) + " gold pieces and will
take five minutes off of your remaining time on the system.": GOSUB 8800
2960 GOSUB 7000
2970 O$ = DL$ + "Which of the four virtues do you wish tostudy?" + DL$ + "1. St
rength" + EL$ + "2. Agility" + EL$ + "3. Intelligence" + EL$ + "4. Wisdom" + DL$
: GOSUB 8300:O$ = O$ + "Which?(TL=" + STR$ (TL) + ")->": GOSUB 6000
2980 IF I$ = "Q" OR I$ = "0" THEN O$ = EL$ + "Maybe next time sire...": GOSUB
7000: GOTO 140
2990 X = VAL (I$):Z = X: IF X < 1 OR X > 4 THEN 2970
3000 IF TL < 5 THEN O$ = EL$ + "Sorry sire, but you do not have enought time l
eft.": GOSUB 7000: GOTO 140
3010 IF GD < B(0) THEN O$ = EL$ + "Sorry sire, you funds seem to be on the sho
rt side in funds.": GOSUB 7000: GOTO 140
3020 T = 4
3030 IF X = 1 THEN A$ = "Legendary warrior Garret Jax":ST = ST + T
3040 IF X = 2 THEN A$ = "Elf Dayel, cousin to Eventine":AG = AG + T
3050 IF X = 3 THEN A$ = "Wizard Allanon, the last of the Druids, son of Bremen
":CH = CH + T
3060 IF X = 4 THEN A$ = "Valegirl Brin Oshmond, daughter of Wil Oshmond, posse
sor of the Wishsong of Shannara":WI = WI + T
3070 O$ = "The " + A$ + ", will be your instructor. Learn well my young friend
...."
3080 GOSUB 8800:O$ = EL$ + "A very fine choice sire..." + DL$ + O$ + DL$: GOSU
B 7000:O$ = "Your instructor walks into the room smiling at you and informs
you to begin you trailing." + DL$: GOSUB 7000
3090 GD = GD - B(0): RESTORE : FOR Y = 1 TO Z: FOR T = 1 TO 10: READ B$(T): NEX
T : NEXT :CO = CO - 5: GOTO 3140
3100 DATA Parry,Strike,Jump,Attack,Flee,Kill,Wound,Behead,Dismember,Swing
3110 DATA Jump,Dive,Run,Duck,Jump Back,Sidestep,Spin,Draw Weapon,Backflip,Fl
ip
3120 DATA Read,Study,Memorize,Conjure,Write,Create,Plan,Decieve,Compromise,Fl
ee
3130 DATA Cast,Attack,Buy,Rest,Heal,Incinerate,Protect,Learn,Resurrect,Demode
nia
3140 FOR Y = 1 TO 5:X = INT (10 * RND (1)) + 1:O$ = B$(X) + "....." + DL$: G
OSUB 7000: FOR X = 1 TO 1000: NEXT : NEXT :O$ = EL$ + "You train well young man!
You have earned your raise....Go in Peace.": GOSUB 7000: GOTO 140
3150 FOR X = 1 TO 1000: NEXT
6000 GOSUB 7000: GOSUB 8000: RETURN
7000 POKE 960,0: & B / O$: RETURN
8000 CC = 0: IF PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
8539:CF = 9
8010 IF CF = 9 AND PEEK (1) < > 128 THEN CF = 1:CA$ = "Y"
8020 IF CA$ < > "Y" OR LEN (CN$) > 1 THEN 8040
8030 IF CF = 1 THEN CALL 38539
8040 IF PEEK (1) = 128 THEN 8140
8050 IF LEN (CN$) = 0 THEN 8140
8060 FOR T = 1 TO LEN (CN$)
8070 IF MID$ (CN$,T,1) = "," THEN I$ = MID$ (CN$,1,T - 1):CN$ = RIGHT$ (CN$
, LEN (CN$) - T): GOTO 8110
8080 IF MID$ (CN$,T,1) = "#" THEN I$ = MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
0
8090 NEXT
8100 POKE 960,0
8110 IF O$ = "STOP" THEN O$ = "": GOTO 8210
8120 IF LEN (I$) = 0 THEN 8050
8130 O$ = I$ + EL$: GOSUB 7000: GOTO 8290
8140 POKE 960,0: & A / SP$:I$ = MID$ (SP$,1): IF PEEK (961) THEN 1740
8150 CN$ = I$ + "#":O$ = "STOP"
8160 IF LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
8170 POKE 961,0: IF PEEK (960) = 255 THEN CC = CC + 1: FOR T = 1 TO 500: NEXT
: IF CC > 1 OR I$ = "OFF" THEN 8510
8180 IF PEEK (960) = 255 THEN 8140
8190 IF PEEK (1) = 128 THEN CN$ = "": GOTO 8230
8200 IF LEN (CN$) > 0 THEN 8060
8210 IF LEN (I$) < > 1 AND RIGHT$ (I$,1) = " " THEN I$ = LEFT$ (I$, LEN (I
$) - 1): GOTO 8210
8220 IF LEN (I$) < > 1 AND LEFT$ (I$,1) = " " THEN I$ = RIGHT$ (I$, LEN (I
$) - 1): GOTO 8220
8230 IF LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 7000: GOTO 8250
8240 IF LEN (I$) = 0 THEN 8000
8250 IF CA$ < > "Y" THEN 8290
8260 IF CF = 1 THEN CALL 36798
8270 IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 7000: CALL 36798
:CF = 1
8280 IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 7000: CALL 385
39:CF = 0
8290 CR = 0: RETURN
8300 IF CL$ = "N" THEN T$ = DA$: RETURN
8310 PR# 4: IN# 4: INPUT "#";T,T,T,T,T,B: INPUT "%";T$
8320 PR# 0: POKE 56,102: POKE 57,213: CALL 1002
8330 IF TI > T THEN T = TI + (60 - TI) + T
8340 TL = CO - (T - TI)
8350 IF TL < = 0 THEN O$ = EL$ + "You are out of Time!": GOSUB 7000: POP : GO
TO 8510
8360 RETURN
8370 HOME :O$ = SC$ + DL$ + DL$ + DL$: GOSUB 7000
8380 POKE 960,0: PRINT D$"OPEN"F$""C$(17): PRINT CHR$ (4)"READ"F$
8390 IF CF < > 1 THEN 8460
8400 C = 1
8410 & E / ZZ$: IF LEN (ZZ$) > 0 THEN A$ = ZZ$: IF ASC ( LEFT$ (A$,1)) = 0 T
HEN C = - 1: GOTO 8440
8420 C = C + 1:O$ = EL$ + ZZ$: GOSUB 7000
8430 IF C < > 16 THEN 8410
8440 O$ = DL$ + "CR) Continue or Q)uit:":CR = 1: GOSUB 6000: IF I$ = "Q" OR C =
- 1 THEN 8470
8450 GOTO 8400
8460 & C
8470 PRINT D$"CLOSE": IF PEEK (960) = 255 THEN 8350
8480 IF PEEK (960) = PEEK (970) THEN POKE 960,3:O$ = EL$: GOTO 7000
8490 IF PEEK (960) = PEEK (971) THEN POKE 960,2
8500 RETURN
8510 A$ = OF$: GOSUB 8750: CALL 35848"OFF"
8520 B$(1) = STR$ (ST):B$(3) = STR$ (AG):B$(4) = STR$ (WI):B$(5) = STR$ (CH
):B$(6) = STR$ (EX):B$(7) = STR$ (GD):B$(8) = STR$ (A(2) - EX): FOR X = 1 TO
8:B$(X) = B$(X) + EL$: NEXT
8530 O$ = SC$ + EL$ + "Character Status" + EL$ + "----------------" + DL$ + "Ch
aracter Name: " + NA$ + DL$: GOSUB 7000
8540 O$ = " Calls Today [" + STR$ (CA) + "]" + EL$ + " Calls A Day ["
+ STR$ (CP) + "]" + EL$ + " Total Calls [" + STR$ (CL) + "]" + EL$ + "
Adventure Access? " + AD$ + DL$
8550 O$ = O$ + DL$: GOSUB 7000
8560 O$ = "Strength: " + B$(1) + "Agility: " + B$(3) + "Wisdom: " + B$(4) + "In
teligence: " + B$(5) + EL$: GOSUB 7000
8570 O$ = " Fights Left: " + STR$ (4 - FO) + EL$ + " Jousts Left: " +
STR$ (2 - LJ) + DL$: GOSUB 7000
8580 O$ = "Maximum hit points: " + STR$ (TH) + EL$ + "Hit points: " + STR$ (H
P) + EL$ + "Maximum power: " + STR$ (TP) + EL$ + "Power: " + STR$ (PO) + DL$:
GOSUB 7000
8590 O$ = "Battle class: " + STR$ (WE + AR) + EL$: GOSUB 7000
8600 O$ = "Weapon: " + WP$ + EL$ + "Armor: " + AM$ + EL$ + "Experience: " + B$(
6) + "Level: " + L$(1) + " #" + STR$ (LE) + EL$ + "Food: " + STR$ (FD) + EL$ +
"Gold: " + B$(7) + EL$: GOSUB 7000
8610 O$ = " Joust Wins: " + STR$ (JW) + EL$ + " Joust Losses: " + S
TR$ (JL) + EL$ + " Skill: " + STR$ ( INT (ST + AG + JW - JL)) + DL$:
GOSUB 7000
8620 O$ = "Castle Protection: ": IF CP$ = "Y" THEN O$ = O$ + "Activated"
8630 IF CP$ = "N" THEN O$ = O$ + "Off(Fee not payed)"
8640 O$ = O$ + EL$ + " Gold in Treasury: " + STR$ (BA) + DL$: GOSUB 7000
8650 O$ = "Experience needed to achieve the level" + EL$ + "of " + L$(2) + " is
" + B$(8): GOSUB 7000
8660 O$ = DL$ + "Spells" + EL$ + "------" + DL$
8670 GOSUB 7000
8680 FOR X = 1 TO SN
8690 IF S(X) > 0 THEN O$ = S$(X) + "-" + STR$ (S(X)) + EL$: GOSUB 7000
8700 NEXT X
8710 RETURN
8720 CALL - 3288: GOTO 140
8730 CALL - 3288: PRINT D$"CLOSE": GOTO 140
8740 HOME :O$ = SC$ + DL$ + DL$ + EL$: GOSUB 7000: RETURN
8750 Y = VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y = VAL ( RIGHT$ (A$,1)): POKE 43
624,Y:Y = VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN PRINT D$"OPEN VC,V"Y
8760 IF TC$ = "Y" THEN POKE 1014,10: POKE 952,215: POKE 953,251
8770 RETURN
8780 HOME :O$ = SC$ + "[%] Hold...Destination: " + O$ + " [%]" + EL$: GOSUB 70
00: RETURN
8790 O$ = EL$ + " Press Space Bar to abort listing" + EL$: GOSUB 7000: RETUR
N
8800 IF LEN (O$) < 40 THEN 8900
8810 Y = 40
8820 X = 0
8830 IF MID$ (O$,Y - X,1) = " " THEN B$(0) = LEFT$ (O$,(Y - 1) - X):B$(0) =
B$(0) + EL$ + RIGHT$ (O$, LEN (O$) - (Y - X)): GOTO 8850
8840 X = X + 1: GOTO 8830
8850 O$ = B$(0)
8860 IF (Y + 40) > LEN (O$) THEN 8900
8870 Y = Y + 39
8880 Y = (Y - X) + 1
8890 GOTO 8820
8900 RETURN
]LOAD OFF
]LIST
5 IF TC$ = "Y" THEN POKE 1014,0: POKE 952,240: POKE 953,253
10 FOR X = 1 TO LEN (ME$): IF MID$ (ME$,X,1) = CHR$ (34) THEN ME$ = "": GOT
O 30
20 NEXT
30 IF PEEK (960) = 255 THEN CC = - 10
40 IF MA = 2 THEN PRINT D$"DELETEM-"NA$C$(20)
50 IF AU$ = "Y" THEN 70
60 IF CP$ = "N" THEN ST = ST - (ST * 2)
70 B$ = "Y": CALL 54915: GOSUB 680
80 IF LEN (ME$) < 2 THEN ME$ = "Get Your Full Validation...."
90 IF CL > = IN AND AD$ = "NO" THEN NA$ = "Empty":O$ = EL$ + "Your Half-Valid
ated calls are up. Your character has been deleted." + EL$: GOSUB 500
100 PRINT
110 GD = INT (GD):BA = INT (BA): FOR X = 1 TO 25:S(X) = INT (S(X)): NEXT :FD
= INT (FD): IF S(1) > 0 THEN S(1) = 0
120 ONERR GOTO 670
130 BA = INT (BA):HP = TH:PO = TP:A$(1) = "F"
140 IF BD$ < > "Y" THEN 180
150 MT = 0
160 FOR X = 1 TO B1:MT = MT + Z(X): NEXT
170 PRINT D$"OPENQSCAN,L"(B1 + 1) * 4""C$(10): PRINT D$"WRITEQSCAN,R"A: PRINT
MT: FOR X = 1 TO B1: PRINT Z(X): NEXT : PRINT D$"CLOSE"
180 PRINT D$"OPENDOWNS,L17"C$(15): PRINT D$"WRITEDOWNS,R"A: PRINT JW: PRINT JL
: PRINT "0": PRINT "0": PRINT LR: PRINT D$"CLOSE"
190 PRINT D$"OPENRANK,L4"C$(11): PRINT D$"READRANK,R"A: INPUT G(1): PRINT D$"C
LOSE": PRINT D$"OPENTOP,L35"C$(16): PRINT D$"READTOP,R"G(1): INPUT B$(1),B$(2),B
$(3): PRINT D$"CLOSE"
200 PRINT D$"OPENTOP,L35": PRINT D$"WRITETOP,R"G(1): PRINT "A": PRINT B$(2): P
RINT B$(3): PRINT D$"CLOSE"
210 GOSUB 560
220 PRINT : PRINT D$"OPENDATA"C$(5): PRINT D$"READDATA": INPUT MN,X,I$,I$: PRI
NT D$"CLOSE": IF I$ < > DA$ THEN A$(1) = "CHANGE"
230 IF A$(1) = "CHANGE" AND AU$ = "Y" THEN CA = 0
240 GOSUB 510
250 IF NA$ = SY$ THEN LA = LA - 1: GOTO 370
260 X = LA: IF LA < 0 THEN X = LA - (LA * 2)
270 O$ = "[" + STR$ (X) + "] " + NA$
280 IF CC = - 10 THEN O$ = "*" + O$
290 O$ = O$ + " (#" + STR$ (A) + ",": IF AD$ = "Yes" THEN O$ = O$ + "Va": GOTO
310
300 O$ = O$ + "Hv"
310 IF CL = 1 THEN O$ = O$ + ",New"
320 IF CF = 1 THEN O$ = O$ + ",202"
330 IF AU$ = "Y" THEN O$ = O$ + ",Adv"
340 IF (AU$ = "Y" AND A$(10) = "Y") OR LA < 0 THEN O$ = O$ + ",Ex"
350 O$ = O$ + ")"
360 PRINT : PRINT D$"OPENLOG"C$(17): PRINT D$"APPENDLOG": PRINT D$"WRITELOG":
PRINT O$: PRINT D$"CLOSE"
370 PRINT D$"DELETEDATA"C$(5)
380 IF LA < 0 THEN LA = LA - (LA * 2)
390 IF A$(1) = "CHANGE" THEN MN = LA
400 PRINT D$"OPENDATA"C$(5): PRINT D$"WRITEDATA": PRINT MN: PRINT US: PRINT YR
$: PRINT DA$: PRINT LA: PRINT LA$: PRINT NU: PRINT TM: PRINT ME$: PRINT IN: PRIN
T D$"CLOSE"
410 IF A$(1) = "CHANGE" AND AU$ = "Y" THEN O$ = EL$ + "Sorry, the Ladder has t
o be Re-Done Now.Your call has been given back to you." + EL$: GOSUB 500
420 IF A$(1) = "CHANGE" THEN 440
425 IF Z = 1 AND AU$ = "Y" THEN A$ = AS$: GOSUB 760: CALL 35848"ASTART"
430 IF A$(1) < > "CHANGE" THEN 490
440 ONERR GOTO 460
450 PRINT D$"DELETELOG"C$(17)
460 ONERR GOTO 480
470 PRINT D$"DELETECSTAT"C$(17)
480 PRINT D$"RUNRESET1"C$(4)
490 PRINT D$"RUNSTART"C$(14)
500 & B / O$: RETURN
510 PRINT D$"OPENSTATS,L200"C$(15): PRINT D$"WRITESTATS,R"A: PRINT NA$: PRINT
FI$: PRINT LE: PRINT AG: PRINT WE: PRINT AR: PRINT EX: PRINT GD: PRINT ST: PRINT
TH: PRINT HP: PRINT PA$: PRINT WI: PRINT CH: PRINT LS: PRINT CA: PRINT CL: PRIN
T AD$: PRINT CP
520 PRINT FD: PRINT PO: PRINT TP: PRINT BA: PRINT PA: PRINT DE: PRINT DA$
530 FOR X = 1 TO SN: PRINT S(X): NEXT
540 PRINT D$"CLOSE"
550 RETURN
560 F$ = "OFF1"
570 O$ = EL$: GOSUB 500: IF RT = 2 THEN O$ = DL$ + EL$: GOSUB 500
580 POKE 960,0: PRINT D$"OPEN"F$""C$(17): PRINT D$"READ"F$
590 & C: IF PEEK (960) = PEEK (971) AND RT < > 3 THEN POKE 960,0: GOTO 590
600 PRINT CHR$ (4)"CLOSE": IF PEEK (960) = 255 THEN 650
610 IF PEEK (960) = PEEK (970) THEN POKE 960,3:O$ = EL$: GOTO 500
620 IF PEEK (960) = PEEK (971) THEN POKE 960,2
630 GOSUB 500
640 O$ = DL$ + "There have been " + STR$ (LA) + " adventures!" + DL$ + "Loggin
g off on " + T$ + DL$ + "....Click....." + EL$: GOSUB 500
650 IF AU$ = "Y" OR A$(1) = "CHANGE" THEN RETURN
660 POKE 216,0: & I: RETURN
670 PRINT D$"RUNSTART"C$(14)
680 IF CL$ = "N" THEN T$ = DA$: RETURN
690 PR# 4: IN# 4
700 INPUT "#";B(0),T,B(1),T,T,B(2)
710 INPUT "%";T$
720 PR# 0: POKE 56,102: POKE 57,213: CALL 1002
730 DA$ = LEFT$ (T$,10)
740 IF RIGHT$ (DA$,1) = " " THEN DA$ = LEFT$ (DA$, LEN (DA$) - 1): GOTO 740
750 RETURN
760 Y = VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y = VAL ( RIGHT$ (A$,1)): POKE 436
24,Y:Y = VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN PRINT D$"OPEN VC,V"Y
765 IF TC$ = "Y" THEN POKE 1014,10: POKE 952,215: POKE 953,251
770 RETURN
]LOAD START
]LIST
10 HOME : PRINT "Turn Disk Over and Press Return"
20 GET A$
25 PRINT
30 PRINT CHR$ (4)"RUN START,D1"
]LOAD STORES
]LIS
?SYNTAX ERROR
]LIST
5 IF TC$ = "Y" THEN POKE 1014,0: POKE 952,240: POKE 953,253
10 CALL 54915: ONERR GOTO 8380
20 IF A > 0 THEN 80
30 PRINT CHR$ (4)"SAVESTORES,S3": PRINT CHR$ (4)"RUNJOUST,S6"
40 IF J$ = "1" OR J$ = "2" OR J$ = "3" THEN 70
50 A$ = OF$: GOSUB 8390: CALL 35848"OFF"
60 A$ = MA$: GOSUB 8390:O$ = EL$ + "[Hold..] Transporting to Main.." + EL$: GOS
UB 7000: CALL 35848"MAIN"
70 IF J$ = "1" OR J$ = "2" OR J$ = "3" THEN A$ = AV$: GOSUB 8390: CALL 35848"A
DVENT"
80 IF J$ = "1" THEN 160
90 IF J$ = "2" THEN 830
100 IF J$ = "3" THEN 730
110 GOSUB 8300:O$ = DL$ + "Your choices are..." + DL$ + "A) Ye Old Battle Shop
" + EL$ + "B) Magical Healings" + EL$ + "C) Ronald's Roach Burgers" + DL$ + "Whi
ch? (Q/uit):": GOSUB 6000: CALL 54915
120 IF I$ = "Q" THEN 60
130 IF I$ = "C" THEN 730
140 IF I$ = "B" THEN 830
150 IF I$ < > "A" THEN 80
160 O$ = DL$ + "B)uy or S)ell or Q)uit?:": GOSUB 6000
170 IF I$ = "Q" THEN 70
180 IF I$ < > "B" AND I$ < > "S" THEN 160
190 IF I$ < > "S" THEN 350
200 O$ = EL$ + "W)eapons or A)rmor or Q)uit?:": GOSUB 6000
210 IF I$ = "A" OR I$ = "W" THEN 230
220 GOSUB 1090: GOTO 200
230 B$(1) = WP$:B$(2) = "WEAPONS":X = WE:A$ = C$(19): IF I$ = "A" THEN B$(1) =
AM$:B$(2) = "ARMOR":A$ = C$(1):X = AR
240 PRINT D$"OPEN"B$(2)A$",L40": PRINT D$"READ"B$(2)",R"X: INPUT B$(0),G(2): P
RINT D$"CLOSE"
250 B$(2) = I$
260 G(1) = G(2) / 2
270 G(1) = INT (G(1))
280 O$ = EL$ + "You Have A " + B$(1) + DL$ + "I'll Give Ya " + STR$ (G(1)) + "
For it." + EL$ + "Fair Enough? ": GOSUB 6000
290 IF I$ = "Q" OR I$ = "N" THEN 80
300 IF I$ < > "Y" THEN 280
310 IF I$ = "Y" THEN O$ = EL$ + "Deal!" + EL$: GOSUB 7000
320 GD = GD + G(1)
330 IF B$(2) = "W" THEN WE = 1:WP$ = "Hands":HT = 3: GOTO 80
340 AR = 1:AM$ = "Skin":AP = 1: GOTO 80
350 O$ = EL$ + "W)eapons or A)rmor or S)pells?:": GOSUB 6000
360 IF I$ = "W" OR I$ = "A" OR I$ = "S" THEN 380
370 GOSUB 1090: GOTO 350
380 G(3) = 2:G(4) = SN:B$(2) = "S":A$ = "Spells" + EL$ + "------":B$(1) = "SPEL
LS":F$ = C$(13)
390 IF I$ = "A" THEN G(3) = 2:G(4) = AN - MS:B$(2) = "A":A$ = "Armor" + EL$ +
"-----":B$(1) = "ARMOR":F$ = C$(1)
400 IF I$ = "W" THEN G(3) = 2:G(4) = WN - MS:B$(2) = "W":A$ = "Weapons" + EL$
+ "-------":B$(1) = "WEAPONS":F$ = C$(19)
410 A$ = SC$ + A$ + DL$
420 O$ = EL$ + "View Entire List? Y/N: ": GOSUB 6000:B$ = I$: IF I$ = "Y" THEN
HOME : GOTO 470
430 O$ = EL$ + "Start List at what #": GOSUB 6000
440 GOSUB 1090
450 X = VAL (I$) + 1: IF X > G(4) OR X < G(3) THEN O$ = EL$ + "Invalid Startin
g Number!" + EL$: GOSUB 7000: GOTO 420
460 G(3) = X: HOME
470 O$ = A$: GOSUB 7000:T = 0
480 PRINT D$"OPEN"B$(1)F$",L40"
490 FOR X = G(3) TO G(4)
500 T = T + 1: IF T = 15 THEN O$ = EL$ + "Cont? Y/N:": GOSUB 6000:T = 0:O$ = EL
$: GOSUB 7000: IF I$ = "N" THEN 580
510 PRINT D$"READ"B$(1)",R"X: INPUT A$,PR
520 G(2) = 25: IF X > 10 THEN G(2) = 24
530 O$ = " " + STR$ (X - 1) + ". " + A$
540 FOR Y = G(2) TO LEN (A$) STEP - 1:O$ = O$ + ".": NEXT Y:O$ = O$ + STR$
(PR) + EL$: GOSUB 7000
550 IF B$ = "Y" THEN 570
560 IF GD < PR THEN 580
570 NEXT
580 PRINT D$"CLOSE"
590 O$ = EL$ + "You have " + STR$ (GD) + " gold!" + EL$: GOSUB 7000
600 O$ = EL$ + "Which? (Q/uit):": GOSUB 6000
610 GOSUB 1090
620 X = VAL (I$) + 1:I$ = STR$ (X)
630 G(3) = 2
640 IF G(3) > X OR G(4) < X THEN 600
650 PRINT D$"OPEN"B$(1)F$",L40": PRINT D$"READ"B$(1)",R"X: INPUT A$,PR,G(5): P
RINT D$"CLOSE"
660 IF B$(2) = "S" THEN 1000
670 X = PR
680 IF X > (GD) THEN O$ = EL$ + YO$ + EL$: GOSUB 7000: GOTO 600
690 GD = GD - X
700 X = VAL (I$): IF B$(2) = "W" THEN WE = X:WP$ = A$:HT = G(5): GOTO 720
710 AR = X:AM$ = A$:AP = G(5)
720 O$ = EL$ + "Sold!" + EL$: GOSUB 7000: GOTO 80
730 O$ = EL$ + "Ronald McDonald says:" + DL$ + STR$ (LE * 2) + " Gold for 1 fo
od." + DL$: GOSUB 7000
740 O$ = "You Have " + STR$ (GD) + " Gold" + EL$: GOSUB 7000
750 O$ = EL$ + "How many ya Want(Max=" + STR$ ( INT (GD / (LE * 2))) + "): ":
GOSUB 6000
760 IF I$ = "Q" THEN 70
770 IF VAL (I$) < 0 THEN 750
780 X = (LE * 2) * VAL (I$)
790 IF X > GD THEN O$ = EL$ + YO$ + DL$: GOSUB 7000: GOTO 740
800 FD = FD + VAL (I$)
810 GD = GD - X
820 O$ = EL$ + "Sold!" + EL$: GOSUB 7000: GOTO 80
830 O$ = EL$ + "Witch Hilda says:" + DL$ + "50 Gold per point...": GOSUB 7000
840 O$ = DL$ + "H)it Points or P)ower?:": GOSUB 6000
850 IF I$ = "Q" THEN 70
860 IF I$ < > "H" AND I$ < > "P" THEN 840
870 B$(1) = I$
880 O$ = DL$ + "You have " + STR$ (GD) + " Gold": GOSUB 7000
890 IF B$(1) = "P" THEN O$ = DL$ + "You have " + STR$ (PO) + " Power out of "
+ STR$ (TP):Y = TP - PO: GOTO 910
900 O$ = DL$ + "You have " + STR$ (HP) + " Hit Points out of " + STR$ (TH):Y
= TH - HP
910 GOSUB 7000:O$ = DL$ + "How many you Want? (Max=" + STR$ (Y) + "):": GOSUB
6000:X = VAL (I$): IF X > Y THEN 890
920 IF X < 1 THEN 80
930 IF (50 * X) > GD THEN O$ = EL$ + YO$: GOSUB 7000: GOTO 890
940 GD = GD - (50 * X)
950 IF B$(1) = "P" THEN PO = PO + X: IF PO > TP THEN PO = TP: GOTO 980
960 HP = HP + X
970 IF HP > TH THEN HP = TH
980 O$ = EL$ + "Poof!" + EL$: GOSUB 7000
990 GOTO 80
1000 O$ = EL$ + "How many " + A$ + " spells" + EL$ + "do you want(Max=" + STR$
(9 - S(X)) + "): ": GOSUB 6000
1010 IF I$ = "Q" THEN 80
1020 Y = INT ( VAL (I$))
1030 IF Y < 0 THEN 1000
1040 G(1) = PR * Y
1050 IF G(1) > GD THEN O$ = EL$ + YO$ + EL$: GOSUB 7000: GOTO 1000
1060 IF S(X) + Y > 9 THEN O$ = EL$ + "You can only have 9 of each spell!": GOS
UB 7000: GOTO 1000
1070 GD = GD - G(1):S(X) = S(X) + Y
1080 O$ = EL$ + "The Spells Appear in Your Hands!" + EL$: GOSUB 7000: GOTO 590
1090 IF I$ < > "Q" AND I$ < > "0" THEN RETURN
1100 POP
1110 GOTO 80
1120 A$ = CH$: GOSUB 8390: CALL 35848"CHAT"
6000 GOSUB 7000: GOSUB 8000: RETURN
7000 & B / O$: POKE 960,0: RETURN
8000 CC = 0: IF PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
8539:CF = 9
8010 IF CF = 9 AND PEEK (1) < > 128 THEN CF = 1:CA$ = "Y"
8020 IF CA$ < > "Y" OR LEN (CN$) > 1 THEN 8040
8030 IF CF = 1 THEN CALL 38539
8040 IF PEEK (1) = 128 THEN 8140
8050 IF LEN (CN$) = 0 THEN 8140
8060 FOR T = 1 TO LEN (CN$)
8070 IF MID$ (CN$,T,1) = "," THEN I$ = MID$ (CN$,1,T - 1):CN$ = RIGHT$ (CN$
, LEN (CN$) - T): GOTO 8110
8080 IF MID$ (CN$,T,1) = "#" THEN I$ = MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
0
8090 NEXT
8100 POKE 960,0
8110 IF O$ = "STOP" THEN O$ = "": GOTO 8210
8120 IF LEN (I$) = 0 THEN 8050
8130 O$ = I$ + EL$: GOSUB 7000: GOTO 8290
8140 POKE 960,0: & A / SP$:I$ = MID$ (SP$,1): IF PEEK (961) THEN 1120
8150 CN$ = I$ + "#":O$ = "STOP"
8160 IF LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
8170 POKE 961,0: IF PEEK (960) = 255 THEN CC = CC + 1: IF CC > 1 OR I$ = "OFF
" THEN 40
8180 IF PEEK (960) = 255 THEN 8140
8190 IF PEEK (1) = 128 THEN CN$ = "": GOTO 8230
8200 IF LEN (CN$) > 0 THEN 8060
8210 IF LEN (I$) < > 1 AND RIGHT$ (I$,1) = " " THEN I$ = LEFT$ (I$, LEN (I
$) - 1): GOTO 8210
8220 IF LEN (I$) < > 1 AND LEFT$ (I$,1) = " " THEN I$ = RIGHT$ (I$, LEN (I
$) - 1): GOTO 8220
8230 IF LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 7000: GOTO 8250
8240 IF LEN (I$) = 0 THEN 8000
8250 IF CA$ < > "Y" THEN 8290
8260 IF CF = 1 THEN CALL 36798
8270 IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 7000: CALL 36798
:CF = 1
8280 IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 7000: CALL 385
39:CF = 0
8290 CR = 0: RETURN
8300 IF CL$ = "N" THEN T$ = DA$: RETURN
8310 PR# 4: IN# 4: INPUT "#";T,T,T,T,T,B: INPUT "%";T$
8320 IF TI = 0 THEN TI = T
8330 PR# 0: POKE 56,102: POKE 57,213: CALL 1002
8340 IF TI > T THEN T = TI + (60 - TI) + T
8350 TL = CO - (T - TI)
8360 IF TL < = 0 THEN O$ = EL$ + "You are out of Time! Later.": GOSUB 7000:
GOTO 40
8370 RETURN
8380 CALL - 3288: GOTO 80
8390 Y = VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y = VAL ( RIGHT$ (A$,1)): POKE 43
624,Y:Y = VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN PRINT D$"OPEN VC,V"Y
8395 IF TC$ = "Y" THEN POKE 1014,10: POKE 952,215: POKE 953,251
8400 RETURN
]PR#0
]RUN
?
TUCoPS is optimized to look best in Firefox® on a widescreen monitor (1440x900 or better).
Site design & layout copyright © 1986-2025 AOH
