]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$ + "ight ealth 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/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 /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$ + "[umber/ven/dd/equence]" + DL$ + "You have [" + STR $ (GD) + "] Gold" + DL$ + "[Which/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 ?WEAPONS ]RUN ?HELP EXEC HELP The Proving Grounds Help File Main Menu --------- A) Enter the Bazaar. This is where you can buy and sell weapons and armor.You can also buy spells, food, and medical help. B) Board access. Use the message bases. C) hat with the Sysop. D) Dungeon has four sub-categories. C) orridor of Death. This is a 200 room mini-adventure where you can gain a lot of experience and gold. Magical weapons that cannot be bought can also be found in the Corridor of Death. All spells work in the Corridor of Death. D) ungeon. Fight monsters ranging from level 1 to level 10. A total of 200 monsters are available. P) roving Grounds. This is where you can fight any user who is two levels below or any amount higher than you are. R) andom Play. You will get a monster ranging from level 1 to level 10. The monsters gold and experience will be doubled. E) Electronic Mail among users. F) eedback. Leave mail to the Sysop. G) ambling. Play either Roulette, Slots, Blackjack, or Russian Roulette. H) Fight Quickscan. Tells you which users you are able to fight. J) Play the Adventure. 900 Rooms with talking characters, elevators, teleporters, 200 monsters, items, traps, chests, Holy Water, a 200 room maze, plus much much more. K) visit your Treasury. This is where you can keep your gold so that you will not lose it if you are killed in a user battle. Your treasury can be robbed but to do so a user has to get by your castle defences first. More on this later. L) The Ladder. This tells you what users ranks are. The best fighter/user will be listed as number 1 on the rank. The 11'th best users will be the 11'th...etc...Every user has a rank. Your rank is told to you every time you log on. The Ladder is redone every night at 12. M) ember Listing. N) ews/Updates. O) ff. Leave the board. P) Print Gold and Equipment. R) Re-roll character/Make a new Character. S) Show Time and Date. T) Trade Stats. Trade one stat for another. You can also trade hit points for power and visa-versa. V) voting booth. Get 100 time your level gold and experience for voting. X) mailing Address/Fees/Full validation. Y) our stats. Agility: How often and how well you hit your opponent. Wisdom: Used to see how effective your spells are.... Intelligence: Used to see how many hit points you gain when you go up a level.. Strength: How powerful you are and how much damage you do when you hit.. Maximum Hit Points and Maximum Power: These are the maximum amount of hit points and power you can have at your current level. Maximum points never go down. Hit Points: When you have 0 hit points you are dead. Power: Used to cast spells. Every spell reduces your power. Food: Used in the Corridor of Death and the Adventure. If you run out you will begin to starve and lose Hit Points. Z) view the caller log for the day. #) View fight outcomes. View all the fight outcomes between users for that day. ^) View this file. *) View Control Character functions. @) Change Password. &) Brief Important fact file. Every new User should read this! /) Add another call onto your time. %) Joust a user. Joust a different user win gold. +) Castle Editor. Your castle is where you keep you can keep your gold other than your person. Further description is available in the castle editor itself. Special spells -------------- Increase: Increases your Hit Points or Power to twice that of Your Maximum Power or Hit Points. Only temporarily though. Super Increase: Increase both your hit points and power at the same time. Protect: Increase the power of your armor for a certain amount of hits. Keeps about 1/3 of the damage off. You can stack Protect on top of each other for longer use. Super Protect: A longer lasting protect spell. Teleport: Teleports you out of the Corridor of Death at any time. Resurrect: Will Resurrect you if you die in the Corridor of Death or in the Adventure. Negate : This spell will make it so that no spells can be cast in any battle that you many be in. Death: Takes off half of a monsters EXISTING hit points. Well, that's about it. Any questions Leave Feedback. ]RUN ?ADV.SOLVE EXEC ADV.SOLVE Bzzz....... Materialization..... Silence......... Kabloooom!!!!!!!!!!!!!! A brilliant, white mushroom cloud apears in the distance. You have done it. Congratulations Adventurer! You have solved Split Infinity! You have killed the Black Adept and destroyed his evil troll army which was soon to leave its hiding place within Mount Galeiho. It is unfortunate the entire mountain perished in the blast but alas, you can't have everything! You have saved the lives of countless millions. Millions who would have been slain in the great slaughter that would have taken place under the hands of the Black Adept. For your bravery and your ingenuity you are made king of entire northland region. I know you will be a just ruler! Again, Congratulations! Since the adventure is over you will be logged off. Goodbye, and thank you for playing Split Infinity! Your calls are reset for today! ]RUN ?CASTLE.DES EXEC CASTLE.DES -=> Castle Help File <=- Your castle protects any gold you might have stored in it's treasury. The treasury is simply a place to put your gold so that you don't have to keep it on your person. But there is a way a user can get the gold in your treasury: by attacking your castle, getting by your defences, and then beating you in a fair fight(No spells active). Once they complete all of this, they then get any and all gold you have in your treasury. Each castle has 20 rooms, you and your treasury being in the 20'th. The first 19 you can edit, placing either monsters, traps, or both in each room. There is a rent fee though, and this fee is proportional to the amount of protection you have. The more protection, the higher the fee per call. Every time you call you must pay this fee before you log off or your defences will go "on strike". Any user will then be able to walk straight to the treasury(He will still have to kill you although). In each room you can either have one of four set ups: No monster - No Spell Level X Monster - No spell No monster - Spell X Level X monster - Spell X As you get more powerful, you are able to higher more powerful monsters. But the more powerful the monster, the more it costs you. Choose your defences wisely and be sure to pay each time you call. Before you pay, make any changes on your castle you want to. Any time you makes changes, you have to pay the new balance for that call in full, even if you payed for that call before. Be sure to set up your defences wisely and strategically or you will most likely be robbed. The best way to understand the castle system is to play around with it for a call or two. I advise you to do that right now. P.S. you cannot rob any user that is more than two levels below you. ]RUN ?OWNERS HELP EXEC OWNERS HELP Owner Help File If your system have been already setup for your computer then you don't have to follow any of these intsturctions. But it would be wise to read it just so you will know what to do if you want to make modifications to the system in the futu re. A) How to get the board running.... 1. First off get out a text file editor. Any wordprocessor will do. You just need a program with witch you can edit and save text files. 2. Boot up your text file editor. 3. Load the file 'MODULES' off of disk 1. It should look like this: Apple Cat,Y Board Module,N Adventure,Y Sysop,OPUS Clock,Y After Each despeription there is a variable: Either a capital 'Y' or a capital 'N'. If you have that module/option change the variable to a capital 'Y'. If y ou don't change it to a capital 'N'. There is one other variable, the Sysop var iable. Change that variable to your alias. 4. Load the 'DATA' file of disk number 1. It should look like this: 0 0 N THU SEP 12 (Or some other data) 0 OPUS (Or some other name) 500000000 (Or some other large value) 0 call the parking lot (415) 525-2716 (Or some other message) 7 Now, this is importatnt, the second and eighth variables must be zeros. If they arn't change them to zeros. You should only change these variables to zero if you do not as yet have any users. The only variables you should ever change aft er that are the third and last variables. The third variable should be changed to a capital 'Y' if you are running the system off of a hard drive or to a capit al 'N' if you are running it off of regular disk drives. Here is what all the v ariables do: The: 1'rst variable determines how many call you have gotten that day. 2'nd variable is the number of users you have(deleted slots count to). 3'rd variable tells the program if you are running the system off a hard drive. 4'th variable is the last date somebody logged on. 5'th variable tells how many calls the sytem has received. 6'th variable is the last caller. 7'th variable is the amount of gold in the bank. 8'th variable is the total amout of messages posted. 9'th variable is the user posted message. 10'th variable determined how many calls Half-Validated users get before they ar e deleted. You can change this variable to your liking. 5. Load the 'CONFIG' file off of disk 1. It should look somewhat like this: ARMOR,254,6,1 BDATA,254,6,1 BOARDS,254,6,1 CONFIG RESET1 DRIVER DRIVER DATA CHAIN,254,6,1 DATA,254,6,1 DEATH,254,6,2 LEVELS,254,6,1 MODULES,254,6,1 MONSTERS,254,6,1 QSCAN,254,6,2 RANK,254,6,2 EMPTY,254,6,1 SPELLS,254,6,1 START,254,6,1 STATS + DOWNS,254,6,2 TOP,254,6,2 All READ ONLY TEXT FILES,254,6,1 VOTING,254,6,1 WEAPONS,254,6,1 MAIL,254,6,2 ADATA,254,6,2 EMPTY,254,6,2 CHAR,254,6,2 DES,254,6,2 ITEMS,254,6,2 EMPTY,254,6,2 SAVE,254,6,2 SHD,254,6,2 USE,254,6,2 MAIN,254,6,2 BRD,254,6,2 MA,254,6,1 CHAT,254,6,1 FIGHT,254,6,1 OFF,254,6,1 GA,254,6,1 STORES,254,6,1 ASTART,254,6,1 ADVENT,254,6,1 JOUST,254,6,1 This tells the computer where the files with the same names are. The first vari able is the exact name of the file. the second is the volume number, the third is the slot number, and the fourth is the drive number. If you want to switch files to a different location(drive, volume, or whatever) you must change the va lues coresponding to that change in this file. For example, say you moved the ' ARMOR" file to Volume 10, Slot 6, drive 1. You would look for the variables for the file 'ARMOR'. Once you found the 'ARMOR' file in the you would simply chan ge it to 'ARMOR,010,6,1'. Then you could copy armor onto volume 10 and delete i t off of it's original location. Yo can do this for almost all of the files. S ome files have to be on the same drive/volume as others. You will see these in the titles. For EXAMPLE. The files 'Config, RESET1, DRIVER, DRIVER DATA, and C HAIN' all have to be on the same volume/drive. So if you move one you have to m ove the other. When you first get your system, it will be configured for either 2 drives or 3 drives or for a hard drive so modification of this file probably will not be neccarry for the time being. One more thing, you must have all the READ ONLY TEXT FILES at the same location. Thse files include: VOTING.TOP ADV.SOLVE AD.DES CNTRL.CHAR CSTAT FACTS FEES HELP HELP.ADV INFO LOANS LOG MENU. MENU.ADV NEW NEWS OFF1 PILLAGE These MUST ALL BE AT THE SAME LOCATION!!! I.E. SAME VOLUME/DRIVE. P.S when changing volume numbers the value most be three digits. So if you wan t to move a file to volume 1 change the volume value to '001'. The only problems you might have in the beginning are for slot numbers. If you have a hard drive it will be configured for slot 7. Some files will not be on any of your disks. This just means the program will c reate them later. Reserving Space: Reseve: 1 sectors per user for the stat file. I.E. if you have '150' users the stat fil e will be 150 sectors long. 1/10 sectors per user for the 'TOP' file. 1/10 sectors per user for the 'DOWNS' File. 1/5 Sectors per users for the 'DEATH' file. VERIFY THE CONFIGURATION SETUP. 6. Ok, now that you have set up your system it is almost ready to run. Boot up dos and load up the file 'START' from disk 1. Line number 10 is the location a t which the file 'DRIVER' is loacted. Change that, if need be, to the location of the file 'DRIVER' on your system and then save the file on disk 1. 6.5 each new user will take up roughly 2 sectors of disk space so figure this o ut before you add on to many sub-boards. 7. Load up the file 'COMPLETE EDITOR' off of drive 1 and do the same thing you did with line 10 of start. Save 'COMPLETE EDITOR'. This file does not need to be on the system while it is running. It is a sysop's utilities files. Put thi s file on another disk and then delete it off of disk 1. After doing this run 'COMPLETE EDITOR'. IF you are going to run the board module type 14 from the c omplete editors menu. This function will allow yo to set up your sub-boards. W ith each sub-board you can set up volume, drive, slot, an maximum messages on th at board. If you set your mamximum message to 30 on one board you should leave 1 20 sectors free for that sub-board. Everytime you add or get rid of a sub-board the quickscan status for each users will be reset. 8. After setting up your sub-boards you are ready to run the board. Run the 'S TART' program and your system should work. 9. If you don't have the adventure copy these files onto another disk, one that isn't on the system, and then delete them from the text file disk: ADV.SOLVE AD.DES MENU.ADV HELP.ADV 10. If you have your board module up but then decide to take it down delete all files that look like this: B(followed by any number)/(followed by any number) EXAMPLE: B2/22 and all files like this: S(followed by any number) EXAMPLE: S3 also delete the files 'QSCAN, BOARDS, and BDATA'. 11. If you DON'T have a clock you will have to do two things everynight at 12 o r at a specific time. 1) Change the date of the last caller in the 'DATA' file. This is the fort h variable in the 'DATA' file. The format must be like this: SAT SEP 12 or SAT SEP 2 The first three letter word being the day, the second three letter word b eing the month, the number being the day. Run the reset file at least once a day if you don't have a clock.. If yo u don't have a clock you can take the reset file off of it's system disk and put it on another non-system disk. Do not worry about changing the value in the co nfiguration file. Before runing the 'RESET1' file you must first load the file 'RESET1' and then catalog the volume on which the file 'CONFIG' is loacated. Th en simply type run. Do this once a day only if you do not have a clock. If you do have a clock then it will do all of this for you automatically. P.S. any trouble with the clock may result from it not being compactable wi th a thunderclock. The system is meant to run with a thunderclock. Also, the m aximum amount of users the system can hold is 500. Well, that's about it. You can figure the rest out by yourself. If you have an y problem check all the variables in the MODULES, CONFIG, AND DATA file for thei r accuracy. ]RUN ?FACTS EXEC FACTS Important Facts about Playing ----------------------------- 1. Always Sell your old weapon or armor before buying a new one. 2. Wisdom is the strength of spells. In other words, if you have 1 Wisdom and you cast a Demodenia spell it will do 70 damage. If You have 50 Wisdom it will do 350 damage. 3. Intelligence determines how many hit points you get when you go up a level. for instance, if you have 10 intelligence you will gain about 8 hit points. If you have 50 intelligence you will gain about 45 hit points. 4. You get gold for voting, so vote every time. 5. You can raise your hit points or any of your stats by using the T) trade stat option. 6. There are magical weapons and armor in the Corridor of Death. To get though you have to be a very high level because they are in the last 60 rooms. 7. You cannot cast spells against other users in the Proving Grounds. You can in the adventure. 8. The board is 202. When you log on, it asks you if you are using Cat-Fur. Cat-Fur is a Terminal program written for the Apple Cat Modem. If you are using Cat-Fur, You will be at 1200 Baud. The only drawback is that you cannot abort or pause messages. From any Input line type: '202 ON' to turn 202 on. '202 OFF' to turn 202 off. 9. The board has a multiple command macros. Which means you can program a series of commands on one line by separating them with commas. Example: K,A,1000 From the main menu would go to the bank, take the deposit option, and deposit 1000 gold into your account. Try this out! It is very helpful and speeds up your game immensely. 10. Q) Quits from almost everything. H) from the main menu will tell you which users you can fight. Space Bar) Aborts almost all messages. ]RUN ?ITEMS EXEC ITEMS Wheel Of Wisdom Box Of Teleportation Gold Talisman Magic Ring Blue Card Black Card Orb Of Ressurection Bottle Of Holy Water Gold Key Force Field Pass Tram Pass Jeweled Crown Jet Pack Inflatable Raft White Card Old Rotting Head Big Black Dildo Cure Severe Wounds Spell Monalisa Red Ash Gray Card Dick Demolisher Thermonuclear Bomb Witches Sceptre Portable Laser Cannon Black Diamond Red Card Pound Spell Green Card Condom 44 Magnum Elevator Card Magic Potion Increase Spell Yellow Card Cure All Wounds Spell Tan Card Brown Pass Yellow Pass Purple Pass Green Pass Red Pass Tan Pass Blue Pass Book Of Magic Penny Demodenia Spell Death Spell Piece Of Shit Ring Of Power White Diamond Broken Paintbrush A Roll Of Toilet Paper A Disneyland Cup