home *** CD-ROM | disk | FTP | other *** search
/ The Hacker's Encyclopedia 1998 / hackers_encyclopedia.iso / etc / misc / allprove.txt < prev    next >
Encoding:
Text File  |  2003-06-11  |  209.3 KB  |  5,138 lines
  1.      
  2. ]CATALOG
  3.  
  4. C1982 DSR C#254
  5.  
  6.  T 005 ADV.SOLVE                     
  7.  T 017 ARMOR                         
  8.  T 002 BDATA                         
  9.  T 002 BOARDS                        
  10.  T 004 BRD.MENU                      
  11.  T 004 BUY.INFO                      
  12.  T 009 CASTLE.DES                    
  13.  T 002 CASTLES                       
  14.  B 003 CHAIN                         
  15.  T 003 CNTRL.CHAR                    
  16.  T 004 CONFIG                        
  17.  T 002 DATA                          
  18.  T 001 DOWNS                         
  19.  B 014 DRIVER                        
  20.  B 002 DRIVER DATA                   
  21.  T 010 FACTS                         
  22.  T 006 FEES                          
  23.  A 002 HELLO                         
  24.  T 018 HELP                          
  25.  T 024 HELP.Split Infinity           
  26.  T 008 INFO                          
  27.  T 012 LEVELS                        
  28.  T 006 MENU                          
  29.  T 003 MENU.ADV                      
  30.  T 002 MODULES                       
  31.  T 008 NEW                           
  32.  T 001 NEWS                          
  33.  T 004 OFF1                          
  34.  T 034 OWNERS HELP                   
  35.  T 007 PGL                           
  36.  T 006 PRELUDE.Split Infinity        
  37.  T 002 QSCAN                         
  38.  T 002 RANK                          
  39.  A 030 RESET1                        
  40.  T 003 SETVALUES                     
  41.  T 006 SPELLS                        
  42.  A 041 START                         
  43.  T 003 STATS                         
  44.  T 004 TIMESLOTS                     
  45.  T 002 VOTING                        
  46.  T 002 VOTING.TOP                    
  47.  T 017 WEAPONS                       
  48.  
  49. ]         PR#0
  50. ]CATALOG
  51.  
  52. C1982 DSR C#254
  53.  
  54.  A 048 BRD                           
  55.  A 019 CASTLE EDITOR                 
  56.  A 024 CHAT                          
  57.  A 043 COMPLETE EDITOR               
  58.  A 070 FIGHT                         
  59.  A 031 GA                            
  60.  A 021 JOUST                         
  61.  A 024 MA                            
  62.  A 074 MAIN                          
  63.  A 013 OFF                           
  64.  A 002 START                         
  65.  A 022 STORES                        
  66.  T 001 VC                            
  67.  
  68. ]PR#0
  69. ]CATALOG
  70.  
  71. C1982 DSR C#254
  72.  
  73.  A 083 ADVENT                        
  74.  A 006 ASTART                        
  75.  T 031 CHAR                          
  76.  T 141 DES                           
  77.  T 004 ITEMS                         
  78.  T 049 MONSTERS                      
  79.  T 122 SHD                           
  80.  T 049 USE                           
  81.  
  82. ]PR#0
  83. ]LIST
  84.  
  85.  5  IF TC$ = "Y" THEN  POKE 1014,0: POKE 952,240: POKE 953,253
  86.  10  GOSUB 50
  87.  20  CALL 54915
  88.  30  ONERR  GOTO 8700
  89.  40  GOTO 8710
  90.  50 B$(3) = "strike":B$(4) = "hit":B$(5) = "slam":B$(6) = "rag":B$(7) = "smite":
  91. B$(8) = "slash"
  92.  60  RETURN 
  93.  70  GOSUB 8300:O$ = DL$ + "[T/" +  STR$ (TL) + "][?=Menu]->": GOSUB 6000:C$ = "
  94. P"
  95.  80  CALL 54915
  96.  90  IF EN > 0 THEN EN = EN + 1
  97.  100  IF EN = 4 THEN O$ = EL$ + "Kaboom!  Well, you killed the Black     Adept a
  98. nd destroyed his army but you    died in the process.  So you haven't    really 
  99. won.  Sorry!" + EL$:R = 30: GOSUB 7000: GOTO 8390
  100.  110 PR = R
  101.  120  IF I$ <  > "B" THEN 200
  102.  130  IF I$ = "B" AND MO$ <  > "C" THEN O$ = EL$ + "There is Nobody here to Brib
  103. e!": GOSUB 7000: GOTO 70
  104.  140 O$ = EL$ + "Enter Amount of Bribe $": GOSUB 6000
  105.  150 X =  VAL (I$)
  106.  160  IF X < 0 OR X > GD THEN O$ = EL$ + YO$ + EL$: GOSUB 7000: GOTO 140
  107.  170 GD = GD - X:BR = BR - X
  108.  180  IF BR > 0 THEN O$ = EL$ + "Gee thanx.  Maybe now I can buy a piece of gum.
  109.   I want more!": GOSUB 7000: GOTO 70
  110.  190  GOTO 9370
  111.  200  IF I$ = "Z" THEN 3500
  112.  210  IF I$ = "P" THEN  POKE 1,128:O$ = DL$ + "What is it concerning(40 Char. Ma
  113. x)?" + DL$: GOSUB 6000: VTAB (4): PRINT I$:O$ = EL$ + "If I am around I'll answe
  114. r.": GOSUB 7000: HOME : POKE 1,0: GOTO 70
  115.  220  IF I$ <  > "T" THEN 260
  116.  230  IF MO$ <  > "C" THEN O$ = EL$ + "There Is Nobody Here!": GOSUB 7000: GOTO 
  117. 70
  118.  240  IF BR > 0 THEN O$ = EL$ + "Give me " +  STR$ (BR) + " Gold and I'll talk."
  119. : GOSUB 8540: GOSUB 7000: GOTO 70
  120.  250  GOTO 9370
  121.  260  IF I$ <  > "J" THEN 290
  122.  270  IF SH = 0 THEN O$ = EL$ + "There isn't any shop here!": GOSUB 7000: GOTO 7
  123. 0
  124.  280 J$ =  STR$ (SH):A$ = ST$: GOSUB 9570: CALL 35848"STORES"
  125.  290  IF I$ = "U" THEN 3130
  126.  300  IF I$ = "V" THEN 3680
  127.  310  IF I$ = "G" THEN 2960
  128.  320  IF I$ = "?" THEN F$ = "MENU.ADV": GOSUB 2880: GOTO 70
  129.  330  IF I$ = "D" THEN 3070
  130.  340  IF I$ <  > "O" THEN 370
  131.  350 O$ = EL$ + "Leave the Adventure?->": GOSUB 6000: IF I$ <  > "Y" THEN 70
  132.  360  GOTO 8390
  133.  370  IF I$ = "L" THEN 8710
  134.  380  IF CH$ = "" AND I$ = "K" THEN O$ = EL$ + "There isn't a Chest Here!": GOSU
  135. B 7000: GOTO 70
  136.  390  IF I$ = "K" THEN 2780
  137.  400  IF I$ = "N" OR I$ = "S" OR I$ = "E" OR I$ = "W" THEN 9180
  138.  410  IF I$ <  > "I" THEN 470
  139.  420 O$ = "":Y = 0
  140.  430  FOR X = 1 TO 10
  141.  440  IF I$(X) <  > "Blank" THEN O$ = O$ + EL$ + I$(X):Y = Y + 1
  142.  450  NEXT 
  143.  460 O$ = O$ + DL$ + "You have " +  STR$ (10 - Y) + " Spaces Free.": GOSUB 7000:
  144.  GOTO 70
  145.  470  IF I$ = "Y" THEN  GOSUB 2200
  146.  480  IF I$ = "C" THEN 1620
  147.  490  IF I$ = "H" THEN  GOSUB 8650: GOTO 70
  148.  500  IF I$ <  > "F" THEN EN = EN - 1: GOTO 70
  149.  510  IF BR$ = "On" THEN BR$ = "Off": GOTO 530
  150.  520 BR$ = "On"
  151.  530 O$ = EL$ + "Brief is now " + BR$: GOSUB 7000
  152.  540  GOTO 70
  153.  550 Y = 0
  154.  560  GOSUB 50
  155.  570 O$ = EL$ + "You hear footsteps from a nearby room.  They are coming in your
  156.  direction....." + EL$: GOSUB 7000
  157.  580 X =  INT (US *  RND (1)) + 1
  158.  590  PRINT D$"OPENSTATS,L200"C$(15)
  159.  600  PRINT D$"READSTATS,R"X
  160.  610  INPUT B$(1),B$(2),A1,A2,A3,A4,A5,A6,A7,A8,A9
  161.  620  IF A2 < 0 THEN A2 = A2 - (A2 * 2)
  162.  630  IF A7 < 0 THEN A7 = A7 - (A7 * 2)
  163.  640 S1 =  - 1:S2 =  - 1
  164.  650  PRINT D$"CLOSE"
  165.  660  IF Y = 15 THEN O$ = EL$ + "Jeez...Must have been your imagination.": GOSUB
  166.  7000: GOTO 70
  167.  670  IF B$(2) <  > "On" OR B$(1) = "EMPTY" OR B$(1) = "Empty" OR A = X THEN Y =
  168.  Y + 1: GOTO 580
  169.  680  GOSUB 9610
  170.  690 O$ = EL$ + B$(1) + " walks into the room and draws his weapon!"
  171.  700  GOSUB 8540: GOSUB 7000
  172.  710 O$ = DL$: GOSUB 7000
  173.  720  IF AG > A2 THEN O$ = "You get first attack!": GOSUB 7000: GOTO 1090
  174.  730 O$ = "He gets first Attack!": GOSUB 7000
  175.  740 O$ = DL$: GOSUB 7000:X =  INT (3 *  RND (1)) + 1: IF X = 2 THEN 1870
  176.  750  IF A2 > 50 THEN 890
  177.  760 G(1) = A3 + A2
  178.  770 G(2) =  INT ((WE + AG) *  RND (1)) + 1
  179.  780 AM =  INT ((A7 + A2 + (2 * MP)) *  RND (1)) + 1: IF AR > AM THEN O$ = "Your
  180.  " + AM$ + " Absorbes the Damage!": GOSUB 8540: GOSUB 7000: GOTO 1090
  181.  790  IF G(2) < G(1) THEN 890
  182.  800 X =  INT (5 *  RND (1)) + 1
  183.  810  IF X = 1 THEN O$ = B$(1) + " swings at you with his " + MW$ + " and misses
  184. !"
  185.  820  IF X = 2 THEN O$ = "You duck skillfully under his blow!"
  186.  830  IF X = 3 THEN O$ = "He swings at you but you jump nimbly aside!"
  187.  840  IF X = 4 THEN O$ = B$(1) + "s " + MW$ + " flies over your head just missin
  188. g you!"
  189.  850  IF X = 5 THEN O$ = "His weapon misses you by a mile!"
  190.  860  GOSUB 8540
  191.  870  GOSUB 7000
  192.  880  GOTO 1090
  193.  890 G(3) = (A7 / 25) + 1:G(3) = (G(3) * MP)
  194.  900 G(8) = 0
  195.  910 G(5) = G(3) * (AP * (1 / 100))
  196.  920 G(3) = G(3) - G(5)
  197.  930 G(4) = G(3) / 4:G(3) = G(3) - (G(4) *  RND (1)) + G(4)
  198.  940 G(3) =  INT (G(3))
  199.  950 X =  INT (5 *  RND (1)) + 3
  200.  960  IF G(6) > 0 THEN G(6) = G(6) - 1:G(3) =  INT (G(3) - (G(3) / 3))
  201.  970  IF G(8) = 0 THEN 990
  202.  980  IF MO$ = "Y" THEN O$ = B$(1) + " casts a " + S$(G(8)) + " spell which " + 
  203. B$(X) + "s you doing " +  STR$ (G(3)) + " damage.": GOSUB 8540: GOSUB 7000: GOTO
  204.  1020
  205.  990 O$ = B$(1) + " " + B$(X) + "s you with his " + MW$ + " doing " +  STR$ (G(3
  206. )) + " damage."
  207.  1000  GOSUB 8540
  208.  1010  GOSUB 7000
  209.  1020 HP = HP - G(3): IF HP > 0 THEN 1090
  210.  1030 O$ = DL$ + B$(1) + " has killed you!" + DL$ + "He gets all your gold!" + E
  211. L$
  212.  1040  GOSUB 7000
  213.  1050  IF S1 < 0 THEN O$ = EL$ + "Your Lucky!  You don't get logged off   if you
  214.  are killed by another user.": GOSUB 7000:HP = TH:PO = TP: GOTO 70
  215.  1060 GD = 0: IF B$ = "Y" AND B$(1) = "A Black Adept" THEN O$ = EL$ + "You have 
  216. been Resurrected!" + EL$ + EL$ + "You feel your body shit positions..." + EL$ + 
  217. EL$ + "[Press Return]":CR = 1: GOSUB 7000: GOSUB 8000:B$ = "N":HP = TH:PO = TP:R
  218.  = 30:B$(1) = "": GOTO 10
  219.  1070  IF B$ = "Y" THEN O$ = EL$ + "You have been Resurrected!": GOSUB 7000:FI$ 
  220. = "On":B$ = "N":HP = TH:PO = TP: GOTO 70
  221.  1080 R = 30: GOTO 8390
  222.  1090 O$ = DL$ + "F)ight C)ast R)un H)ealth S)tats->": GOSUB 6000:C$ = "W"
  223.  1100  IF I$ = "R" THEN O$ = EL$ + "You throw down all your gold to divert  the 
  224. creature and take off!" + DL$:GD = 0: GOSUB 7000:R = PN: GOTO 8710
  225.  1110  IF I$ = "S" THEN  GOSUB 2200
  226.  1120  IF I$ = "H" THEN  GOSUB 8650: GOTO 1090
  227.  1130  IF I$ = "F" THEN O$ = EL$: GOSUB 7000: GOTO 1160
  228.  1140  IF I$ = "C" THEN 1620
  229.  1150  GOTO 1090
  230.  1160  IF AG > 50 THEN 1300
  231.  1170 G(1) = WE + AG
  232.  1180 G(2) =  INT ((A3 + A2) *  RND (1)) + 1
  233.  1190 AM =  INT ((ST + AG + (2 * HT)) *  RND (1)) + 1: IF A4 > AM THEN O$ = "His
  234.  " + MH$ + " Absorbes the Damage!": GOSUB 8540: GOSUB 7000: GOTO 740
  235.  1200  IF G(1) > G(2) THEN 1300
  236.  1210 X =  INT (5 *  RND (1)) + 1
  237.  1220  IF X = 1 THEN O$ = "You swing at him with your " + WP$ + " but he jumps n
  238. imbly aside."
  239.  1230  IF X = 2 THEN O$ = "He ducks skillfully under your blow!"
  240.  1240  IF X = 3 THEN O$ = "You lunge at him but he ducks under your blow!"
  241.  1250  IF X = 4 THEN O$ = "Your " + WP$ + " misses him by a mile!"
  242.  1260  IF X = 5 THEN O$ = "Your " + WP$ + " flies over his head!"
  243.  1270  GOSUB 8540
  244.  1280  GOSUB 7000
  245.  1290  GOTO 740
  246.  1300 G(3) = (ST / 25) + 1:G(3) = (G(3) * HT)
  247.  1310 G(5) = G(3) * (MH * (1 / 100))
  248.  1320 G(3) = G(3) - G(5)
  249.  1330 G(4) = G(3) / 4:G(3) = G(3) - (G(4) *  RND (1)) + G(4)
  250.  1340 G(3) =  INT (G(3))
  251.  1350 X =  INT (6 *  RND (1)) + 3
  252.  1360  IF I$ = "C" THEN O$ = "Your " + S$(Y) + " spell " + B$(X) + "s the monste
  253. r doing " +  STR$ (G(3)) + " damage!": GOSUB 8540: GOSUB 7000: GOTO 1400
  254.  1370 O$ = "You " + B$(X) + " him with your " + WP$ + " doing " +  STR$ (G(3)) +
  255.  " damage!"
  256.  1380  GOSUB 8540
  257.  1390  GOSUB 7000
  258.  1400 A9 = A9 - G(3): IF A9 > 0 THEN 740
  259.  1410 O$ = DL$ + "You've killed " + B$(1) + "!" + EL$
  260.  1420 O$ = O$ + EL$ + "You gain " +  STR$ (A6) + " gold and " +  STR$ (A5) + " e
  261. xp!" + EL$: GOSUB 7000
  262.  1430 GD = GD + A6:EX = EX + A5:A9 = A8:A6 = 0:B$(2) = "Dead"
  263.  1440 O$ = EL$: GOSUB 7000
  264.  1450  IF D5 < 1 THEN 1470
  265.  1460 MF$ = MF$ +  STR$ (1000 - R)
  266.  1470  GOTO 70
  267.  1480 X = (X * 20) + 1
  268.  1490 X =  INT (20 *  RND (1)) + X
  269.  1500  GOSUB 50
  270.  1510  IF D5 =  - 11 AND I$ = "GUARD" THEN  RETURN 
  271.  1520  PRINT D$"OPENMONSTERS,L60"C$(9)
  272.  1530  PRINT D$"READMONSTERS,R"X
  273.  1540  INPUT B$(1),A7,A2,A8,A3,A4,A6,S1,S2,A9
  274.  1550  PRINT D$"CLOSE"
  275.  1560 A5 = (((A9 / TH) * 8) / 100) * EX:A5 =  INT (A5) + 100
  276.  1570 NE$ = "N"
  277.  1580  GOSUB 9610
  278.  1590  IF I$ = "Black Adept" THEN B$(1) = I$:A9 = A9 * 3
  279.  1600  IF I$ = "GUARD" THEN B$(1) = "Guard"
  280.  1610 O$ = EL$ + "A vicious " + B$(1) + " attacks you!": GOSUB 8540: GOSUB 7000:
  281. B$(1) = "A " + B$(1): GOTO 710
  282.  1620  IF NE$ = "Y" THEN O$ = EL$ + "Sorry, Negate has been activated.  All  spe
  283. lls are impotent.": GOSUB 7000: GOTO 1090
  284.  1630 O$ = EL$ + "Cast(?): ": GOSUB 6000
  285.  1640  IF I$ <  > "?" THEN O$ = I$: GOSUB 9620: GOTO 1690
  286.  1650 O$ = EL$ + "Name / Quantity / Power Required" + EL$ + "-------------------
  287. -------------" + DL$: GOSUB 7000
  288.  1660  FOR X = 1 TO SN: IF S(X) > 0 THEN O$ = S$(X) + "-" +  STR$ (S(X)) + " (" 
  289. +  STR$ (X * 2) + ")" + EL$: GOSUB 7000
  290.  1670  NEXT 
  291.  1680  GOTO 1620
  292.  1690  FOR X = 1 TO SN: IF S$(X) = B$(0) THEN 1720
  293.  1700  NEXT 
  294.  1710 O$ = EL$ + "There is no such spell!": GOSUB 7000: GOTO 8680
  295.  1720  IF S(X) = 0 THEN O$ = EL$ + "You don't have that spell!": GOSUB 7000: GOT
  296. O 8680
  297.  1730  IF B$(1) = "A Black Adept" THEN O$ = EL$ + "Your spells don't seem to wor
  298. k on the   Black Adept!" + EL$: GOSUB 7000: GOTO 1090
  299.  1740  IF C$ = "P" AND U(X) <  > 0 THEN O$ = EL$ + "Not a Peace Time spell!": GO
  300. SUB 7000: GOTO 70
  301.  1750  IF C$ = "P" THEN 1970
  302.  1760  IF S$(X) = "Death" OR S$(X) = "Teleport" OR S$(X) = "Negate" THEN 1780
  303.  1770  IF U(X) < 1 THEN O$ = EL$ + "Not a Battle spell!": GOSUB 7000: GOTO 1090
  304.  1780  IF PO < (X * 2) THEN O$ = EL$ + "You don't have enough power!": GOSUB 700
  305. 0: GOTO 1090
  306.  1790 PO = PO - (X * 2)
  307.  1800 S(X) = S(X) - 1
  308.  1810 O$ = EL$ + "Alakazam!" + DL$: GOSUB 7000:I$ = "C"
  309.  1820  IF S$(X) = "Teleport" THEN R = PN: GOTO 8710
  310.  1830 Y = X
  311.  1840  IF S$(X) = "Death" THEN G(3) = A9 / 2: GOTO 1340
  312.  1850  IF S$(X) = "Negate" THEN NE$ = "Y":O$ = "Negate has been activated.  All 
  313. magical spells are impotent for the duration of this battle.": GOSUB 7000: GOTO 
  314. 760
  315.  1860 G(3) = (WI / 25) + 1:G(3) = (G(3) * U(X)): GOTO 1310
  316.  1870  IF S1 < 2 OR S2 < 2 OR NE$ = "Y" THEN 760
  317.  1880 G(8) = 0
  318.  1890  IF S1 < 2 THEN G(8) = S2
  319.  1900  IF S2 < 2 THEN G(8) = S1
  320.  1910  IF G(8) <  > 0 THEN 1950
  321.  1920 X =  INT (2 *  RND (1)) + 1
  322.  1930  IF X = 1 THEN G(8) = S1
  323.  1940  IF X = 2 THEN G(8) = S2
  324.  1950  IF S$(G(8)) = "Death" THEN G(3) = HP / 2: GOTO 940
  325.  1960 G(3) = (A8 / 25) + 1:G(3) = (G(3) * U(G(8))): GOTO 910
  326.  1970  IF PO < (X * 2) THEN O$ = EL$ + "You don't have enough power!": GOSUB 700
  327. 0: GOTO 70
  328.  1980  IF B$ = "Y" AND S$(X) = "Resurrect" THEN O$ = EL$ + "Resurrect has alread
  329. y been Activated." + EL$: GOSUB 7000: GOTO 70
  330.  1990 PO = PO - (X * 2):S(X) = S(X) - 1
  331.  2000 O$ = EL$ + "Alakazam!!!" + EL$: GOSUB 7000
  332.  2010  IF S$(X) = "Inviso" THEN G(0) = G(0) + 15:O$ = EL$ + "Inviso has been Act
  333. ivated" + DL$ + "Estimated lasting time [" +  STR$ (G(0)) + "] Moves": GOSUB 700
  334. 0: GOTO 70
  335.  2020  IF S$(X) <  > "Protect" AND S$(X) <  > "Super Protect" THEN 2060
  336.  2030  IF S$(X) = "Protect" THEN G(6) = G(6) + 10:O$ = "Protect "
  337.  2040  IF S$(X) = "Super Protect" THEN G(6) = G(6) + 20:O$ = "Super Protect "
  338.  2050 O$ = EL$ + O$ + "has been Activated" + DL$ + "Estimated Lasting Time [" + 
  339.  STR$ (G(6)) + "] Hits": GOSUB 7000: GOTO 70
  340.  2060  IF S$(X) = "Resurrect" THEN B$ = "Y":O$ = EL$ + "Resurrect has been Activ
  341. ated." + EL$: GOSUB 7000: GOTO 70
  342.  2070  IF S$(X) = "Super Increase" THEN HP = TH * 2:PO = TP * 2:O$ = EL$ + "Hit 
  343. Points = " +  STR$ (HP) + "!" + DL$ + "Power = " +  STR$ (PO) + "!" + EL$: GOSUB
  344.  7000: GOTO 70
  345.  2080  IF S$(X) <  > "Increase" THEN 2130
  346.  2090 O$ = EL$ + "[H/it points-P/ower]->": GOSUB 6000: IF I$ <  > "H" AND I$ <  
  347. > "P" THEN 2090
  348.  2100  IF I$ = "H" THEN HP = TH * 2:O$ = EL$ + "Hit points = " +  STR$ (HP)
  349.  2110  IF I$ = "P" THEN PO = TP * 2:O$ = EL$ + "Power = " +  STR$ (PO)
  350.  2120 O$ = O$ + "!": GOSUB 7000: GOTO 70
  351.  2130  IF S$(X) = "Cure Light Wounds" THEN G(3) =  INT (10 *  RND (1)) + 1:G(4) 
  352. =  INT (10 *  RND (1)) + 1
  353.  2140  IF S$(X) = "Cure Severe Wounds" THEN G(3) =  INT (20 *  RND (1)) + 10:G(4
  354. ) =  INT (20 *  RND (1)) + 10
  355.  2150  IF S$(X) = "Cure All Wounds" THEN HP = TH:PO = TP:O$ = EL$ + "All hit poi
  356. nts and power restored!": GOSUB 7000: GOTO 70
  357.  2160 O$ = EL$ + "Hit points +" +  STR$ (G(3)) + DL$ + "Power +" +  STR$ (G(4)):
  358. HP = HP + G(3):PO = PO + G(4): IF HP > TH THEN HP = TH
  359.  2170  IF PO > TP THEN PO = TP
  360.  2180  GOSUB 7000
  361.  2190  GOTO 70
  362.  2200 O$ = EL$ + "Strength: " +  STR$ (ST) + EL$ + "Wisdom: " +  STR$ (WI) + EL$
  363.  + "Agility: " +  STR$ (AG) + EL$ + "Intelligence: " +  STR$ (CH) + EL$ + EL$ + 
  364. "Gold: " +  STR$ (GD) + EL$ + "Exp: " +  STR$ (EX) + EL$ + EL$ + "Weapon: " + WP
  365. $ + EL$ + "Armor: " + AM$ + EL$
  366.  2210 O$ = O$ + EL$ + "Protection Left: " +  STR$ (G(6)) + " Hits"
  367.  2220 O$ = O$ + EL$ + "Inviso Left: " +  STR$ (G(0)) + " Moves"
  368.  2230 O$ = O$ + EL$ + "Ressurect: ": IF B$ = "Y" THEN O$ = O$ + "On": GOTO 2250
  369.  2240 O$ = O$ + "Off"
  370.  2250 O$ = O$ + EL$: GOSUB 7000
  371.  2260  RETURN 
  372.  2270 B$(0) = "There is a Force Field to the "
  373.  2280  IF D1 < 0 THEN O$ = EL$ + B$(0) + "North." + EL$: GOSUB 7000
  374.  2290  IF D2 < 0 THEN O$ = EL$ + B$(0) + "South." + EL$: GOSUB 7000
  375.  2300  IF D3 < 0 THEN O$ = EL$ + B$(0) + "West." + EL$: GOSUB 7000
  376.  2310  IF D4 < 0 THEN O$ = EL$ + B$(0) + "East." + EL$: GOSUB 7000
  377.  2320  IF  LEN (OB$) = 0 THEN 2370
  378.  2330  FOR X = 1 TO 10
  379.  2340  IF I$(X) = OB$ OR OB$ = WP$ OR OB$ = AM$ THEN O$ = "": GOTO 2370
  380.  2350  NEXT 
  381.  2360 O$ = EL$ + "There is a " + OB$ + " lying on the ground." + EL$: GOSUB 8540
  382. : GOSUB 7000
  383.  2370  IF I$ = "L" AND CH$ = "Y" THEN O$ = EL$ + "There is a Chest in the Room."
  384.  + EL$: GOSUB 7000
  385.  2380  IF MO$ = "C" AND I$ = "L" THEN O$ = EL$ + "There is a " + TR$ + " in the 
  386. Room." + EL$: GOSUB 8540: GOSUB 7000
  387.  2390  IF I$ = "L" THEN 70
  388.  2400  IF D5 =  - 8 AND B$ = "Y" THEN B$(1) = "A Black Adept": GOTO 1060
  389.  2410  IF D5 =  - 8 THEN O$ = EL$ + "You Are Dead!" + EL$: GOSUB 7000: GOTO 1080
  390.  
  391.  2420  IF D5 < 1 OR D5 > 199 THEN 2480
  392.  2430  IF  LEN (MF$) < 3 THEN 2470
  393.  2440  FOR X = 1 TO  LEN (MF$) STEP 3
  394.  2450  IF  VAL ( MID$ (MF$,X,3)) = 1000 - R THEN X = 11:I$ = "": GOTO 2630
  395.  2460  NEXT 
  396.  2470  IF D5 > 0 THEN MO$ = "Y":X = D5: GOTO 1500
  397.  2480 CH$ = "":X =  INT (35 *  RND (1)) + 1
  398.  2490  IF D5 =  - 1 THEN X = 11
  399.  2500  IF D5 <  >  - 2 THEN 2560
  400.  2510  IF  LEN (TF$) < 3 THEN 2550
  401.  2520  FOR X = 1 TO  LEN (TF$) STEP 3
  402.  2530  IF  VAL ( MID$ (TF$,X,3)) = 1000 - R THEN X = 11:I$ = "": GOTO 2560
  403.  2540  NEXT 
  404.  2550 X = 22
  405.  2560  IF D5 =  - 3 OR D5 =  - 7 THEN X = 29
  406.  2570  IF D5 =  - 4 THEN X = 35
  407.  2580  IF D5 =  - 5 THEN X = 1
  408.  2590  IF D5 =  - 14 THEN X = L - 1:I$ = "Black Adept": GOSUB 1480:D5 = X: GOTO 
  409. 2430
  410.  2600  IF D5 =  - 11 THEN X = L - 1:I$ = "GUARD": GOSUB 1480:D5 = X: GOTO 2430
  411.  2610  IF D5 > 199 THEN MO$ = "Y": GOTO 9370
  412.  2620  IF ((X > 0 AND X < 11) OR (X > 30 AND X < 36)) AND D5 <  >  - 5 AND D5 < 
  413.  >  - 4 AND G(0) > 0 THEN X = 11
  414.  2630  IF X > 0 AND X < 11 THEN X = L - 1:MO$ = "Y": GOTO 1480
  415.  2640  IF X > 10 AND X < 21 THEN 70
  416.  2650 B(0) = X
  417.  2660 X = L * L * 10
  418.  2670 Y = X / 2
  419.  2680 K =  INT (Y *  RND (1)) + (X - (X / 2))
  420.  2690 T =  INT (LE * L + 1)
  421.  2700  IF B(1) =  - 99 THEN B(1) = 0: RETURN 
  422.  2710  IF B(0) > 20 AND B(0) < 26 THEN CH$ = "Y":O$ = EL$ + "There is a Chest In
  423.  the Room.": GOSUB 7000: GOTO 70
  424.  2720  IF B(0) > 30 AND B(0) < 36 THEN MO$ = "": GOTO 550
  425.  2730 O$ = EL$ + "You walk into a Trap!": GOSUB 7000
  426.  2740  IF D5 =  - 7 THEN 2770
  427.  2750 B(0) =  INT (100 *  RND (1)) + 1
  428.  2760  IF AG > B(0) THEN O$ = DL$ + "You quickly jump aside!": GOSUB 7000: GOTO 
  429. 70
  430.  2770 B(0) = 2: GOTO 2840
  431.  2780 B(0) =  INT (3 *  RND (1)) + 1
  432.  2790 O$ = EL$ + "You open the Chest!":CH$ = "": GOSUB 7000
  433.  2800 B(1) =  - 99: GOSUB 2660
  434.  2810 O$ = DL$ + "You find "
  435.  2820  IF D5 =  - 2 THEN B(0) = 1:TF$ = TF$ +  STR$ (1000 - R)
  436.  2830  IF B(0) = 1 THEN K = K * L * L * 5:O$ = O$ + "Treasure!" + DL$ + "Gold + 
  437. " +  STR$ (K):GD = GD + K: GOSUB 7000: GOTO 70
  438.  2840  IF B(0) = 2 THEN O$ = DL$ + "There is an Explosion!" + DL$ + "Hit Points 
  439. -" +  STR$ (T):HP = HP - T: GOSUB 7000: IF HP < 1 THEN HP = 0:MO$ = "Y": IF HP =
  440.  0 THEN O$ = DL$ + "You are Dead!": GOSUB 7000: GOTO 1070
  441.  2850  IF B(0) = 2 THEN X =  INT (5 *  RND (1)) + 1: IF X = 3 OR D5 =  - 7 THEN 
  442. O$ = DL$ + "You Are Poisoned!":PO$ = "Y": GOSUB 7000
  443.  2860  IF B(0) = 2 THEN 70
  444.  2870 O$ = O$ + "Ash!" + DL$ + "Hit Points + " +  STR$ (T):HP = HP + T: GOSUB 70
  445. 00: GOTO 70
  446.  2880  PRINT D$"OPEN"F$C$(17)
  447.  2890  PRINT D$"READ"F$
  448.  2900  & C: IF  PEEK (960) =  PEEK (971) AND RT <  > 3 THEN  POKE 960,0: GOTO 29
  449. 00
  450.  2910  IF  PEEK (960) =  PEEK (970) AND RT = 5 THEN  POKE 960,0: GOTO 2900
  451.  2920  PRINT  CHR$ (4)"CLOSE": IF  PEEK (960) = 255 THEN 60
  452.  2930  IF  PEEK (960) =  PEEK (970) THEN  POKE 960,3:O$ = EL$: GOTO 7000
  453.  2940  IF  PEEK (960) =  PEEK (971) THEN  POKE 960,2
  454.  2950  RETURN 
  455.  2960  IF  LEN (OB$) = 0 THEN O$ = EL$ + "There is Nothing to Get!": GOSUB 7000:
  456.  GOTO 70
  457.  2970  IF  LEN (OB$) < 7 THEN 3010
  458.  2980  FOR X = 1 TO SN
  459.  2990  IF S$(X) =  LEFT$ (OB$, LEN (OB$) - 6) THEN 3050
  460.  3000  NEXT 
  461.  3010  FOR X = 1 TO 10: IF I$(X) = "Blank" THEN 3040
  462.  3020  NEXT 
  463.  3030 O$ = EL$ + "You can't Carry any more!": GOSUB 7000: GOTO 70
  464.  3040 O$ = EL$ + "You Get the " + OB$ + ".": GOSUB 8540: GOSUB 7000:I$(X) = OB$:
  465. OB$ = "":AB$ = "": GOTO 70
  466.  3050  IF S(X) > 8 THEN O$ = EL$ + "You can't have more than 9 of any       Spel
  467. l!": GOSUB 7000: GOTO 70
  468.  3060 S(X) = S(X) + 1:O$ = EL$ + "You pick up the " + OB$ + " and quickly learn 
  469. it.":OB$ = "": GOSUB 8540: GOSUB 7000:FS$ = FS$ +  STR$ (1000 - R): GOTO 70
  470.  3070 O$ = EL$ + "What?:": GOSUB 6000:O$ = I$: GOSUB 9620:I$ = B$(0)
  471.  3080  FOR X = 1 TO 10
  472.  3090  IF I$(X) = I$ THEN 3120
  473.  3100  NEXT 
  474.  3110 O$ = EL$ + "You don't have that item!": GOSUB 7000: GOTO 70
  475.  3120 O$ = EL$ + "As you drop the " + I$(X) + " it dissapears!":I$(X) = "Blank":
  476.  GOSUB 8540: GOSUB 7000: GOTO 70
  477.  3130 O$ = EL$ + "Use What?->": GOSUB 6000:O$ = I$: GOSUB 9620:I$ = B$(0)
  478.  3140  FOR X = 1 TO 10
  479.  3150  IF I$(X) = I$ THEN 3180
  480.  3160  NEXT 
  481.  3170 O$ = EL$ + "You Don't have that Item!": GOSUB 7000: GOTO 70
  482.  3180  IF I$ = "Bottle Of Holy Water" THEN O$ = EL$ + "You open the bottle and d
  483. rink deeply.   You feel faint, and briefly pass out.   When you awake, the bottl
  484. e is gone.":HP = TH * 3:PO = TP * 3: GOSUB 7000:I$(X) = "Blank": GOTO 70
  485.  3190  IF R = 85 AND I$ = "Thermonuclear Bomb" THEN EN = 1
  486.  3200  IF I$ = "Magic Potion" THEN O$ = EL$ + "You open the bottle and drink dep
  487. ly. A  Brief warmth comes over your body.  The bottle then dissapears.":PO$ = "N
  488. ":I$(X) = "Blank": GOSUB 7000: GOTO 70
  489.  3210  IF I$ <  > "Box Of Teleportation" THEN 3280
  490.  3220 O$ = EL$ + "A) Set Coordinates" + EL$ + "B) Teleport" + DL$ + "Which(Q=Qui
  491. t)->": GOSUB 6000: IF I$ = "Q" THEN 70
  492.  3230  IF I$ <  > "A" AND I$ <  > "B" THEN 3220
  493.  3240  IF I$ = "B" AND TC = 0 THEN O$ = EL$ + "You have not set the coordinates 
  494. for    a location yet!": GOSUB 7000: GOTO 70
  495.  3250  IF EN > 0 AND I$ = "B" THEN O$ = EL$ + "Bleep....Oh NO!  Something is aff
  496. ecting the Box!  It won't work!": GOSUB 7000: GOTO 70
  497.  3260  IF I$ = "B" THEN R = TC:O$ = EL$ + "Poof!" + EL$: GOSUB 7000: GOTO 8710
  498.  3270  IF I$ = "A" THEN TC = R:O$ = EL$ + "You set the Coordinates for this room
  499. .": GOSUB 7000: GOTO 70
  500.  3280  IF I$ <  > BO$ THEN O$ = EL$ + "Nothing Happens.": GOSUB 7000: GOTO 70
  501.  3290  PRINT D$"OPENUSE,L110"C$(29)
  502.  3300  PRINT D$"READUSE,R"R
  503.  3310  INPUT D6,D7,D8,D9,RR,AB$,B$(0),O$,A$(0)
  504.  3320  PRINT D$"CLOSE"
  505.  3330 O$ = EL$ + O$ + EL$ + A$(0) + EL$: GOSUB 7000
  506.  3340  IF B$(0) <  > "N" THEN 3370
  507.  3350  FOR X = 1 TO 10: IF I$(X) = I$ THEN I$(X) = "Blank"
  508.  3360  NEXT 
  509.  3370  IF  LEN (AB$) = 0 THEN 3430
  510.  3380  IF  RIGHT$ (AB$,5) = "Spell" AND  LEN (FS$) > 0 THEN MO$ = "SC": GOSUB 89
  511. 90:MO$ = "C": IF  LEN (AB$) = 0 THEN 3430
  512.  3390  FOR X = 1 TO 10
  513.  3400  IF I$(X) = AB$ THEN 3440
  514.  3410  NEXT 
  515.  3420 O$ = EL$ + "A " + AB$ + " Appears at your feet.": GOSUB 8540: GOSUB 7000:O
  516. B$ = AB$
  517.  3430 B$(1) = "A Exit Opens up to the "
  518.  3440  IF D6 <  > 0 THEN D1 = D6:O$ = EL$ + B$(1) + "North." + EL$: GOSUB 7000
  519.  3450  IF D7 <  > 0 THEN D2 = D7:O$ = EL$ + B$(1) + "South." + EL$: GOSUB 7000
  520.  3460  IF D8 <  > 0 THEN D3 = D8:O$ = EL$ + B$(1) + "West." + EL$: GOSUB 7000
  521.  3470  IF D9 <  > 0 THEN D4 = D9:O$ = EL$ + B$(1) + "East." + EL$: GOSUB 7000
  522.  3480  IF RR = R THEN 70
  523.  3490 R = RR:O$ = EL$: GOSUB 7000: GOTO 8710
  524.  3500 O$ = EL$ + "Equip with what Item?->": GOSUB 6000:O$ = I$: GOSUB 9620:I$ = 
  525. B$(0)
  526.  3510  FOR X = 1 TO 10
  527.  3520  IF I$ = I$(X) THEN 3550
  528.  3530  NEXT 
  529.  3540 O$ = EL$ + "You don't have that Item!": GOSUB 7000: GOTO 70
  530.  3550 Y = X
  531.  3560  PRINT D$"OPENWEAPONS,L40"C$(19)
  532.  3570  FOR X = 1 TO WN
  533.  3580  PRINT D$"READWEAPONS,R"X: INPUT B$(0),T,T: IF B$(0) = I$(Y) THEN I$(Y) = 
  534. WP$:WE = X:HT = T: PRINT D$"CLOSE": GOTO 3670
  535.  3590  NEXT X
  536.  3600  PRINT D$"CLOSE"
  537.  3610  PRINT D$"OPENARMOR,L40"C$(1)
  538.  3620  FOR X = 1 TO AN
  539.  3630  PRINT D$"READARMOR,R"X: INPUT B$(0),T,T: IF B$(0) = I$(Y) THEN I$(Y) = AM
  540. $:AR = X:AP = T: PRINT D$"CLOSE": GOTO 3670
  541.  3640  NEXT 
  542.  3650  PRINT D$"CLOSE"
  543.  3660 O$ = EL$ + "That's not a Weapon or an Armor!": GOSUB 7000: GOTO 70
  544.  3670 O$ = EL$ + "Equipment transfer complete.": GOSUB 7000: GOTO 70
  545.  3680 O$ = EL$ + "Say What?->": GOSUB 6000:O$ = I$: GOSUB 9620:I$ = B$(0)
  546.  3690  IF  RIGHT$ (N$,3) <  > "Inn" THEN 3810
  547.  3700 X =  VAL (I$): IF X < 1 OR X > 5 THEN O$ = EL$ + "Sorry, you can't stay lo
  548. nger than 5     hours.": GOSUB 7000: GOTO 70
  549.  3710  IF X > TL THEN O$ = EL$ + "You don't have that much time left!": GOSUB 70
  550. 00: GOTO 70
  551.  3720 O$ = EL$ + "The Manager nods and takes you to your  room.  You quickly fal
  552. l asleep." + DL$: GOSUB 7000
  553.  3730  FOR Y = 1 TO X:O$ = "zzzzz....": GOSUB 7000: FOR T = 1 TO 500: NEXT T: NE
  554. XT Y
  555.  3740  FOR Y = 1 TO X
  556.  3750 HP = HP + (TH / 5):PO = PO + (TP / 5)
  557.  3760  NEXT 
  558.  3770 TI = TI - X: IF HP > TH THEN HP = TH
  559.  3780  IF PO > TP THEN PO = TP
  560.  3790 HP =  INT (HP):PO =  INT (PO)
  561.  3800 O$ = DL$ + "You wake up refreshed and ready to take on the world!": GOSUB 
  562. 7000: GOTO 70
  563.  3810  IF  LEN (BO$) = 0 OR  LEFT$ (BO$,1) <  > "#" THEN O$ = EL$ + "Nothing Hap
  564. pens.": GOSUB 7000: GOTO 70
  565.  3820 I$ = "#" + I$
  566.  3830  GOTO 3280
  567.  6000  GOSUB 7000: GOSUB 8000: RETURN 
  568.  7000  & B / O$: RETURN 
  569.  8000 CC = 0: IF  PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
  570. 8539:CF = 9
  571.  8010  IF CF = 9 AND  PEEK (1) <  > 128 THEN CF = 1:CA$ = "Y"
  572.  8020  IF CA$ <  > "Y" OR  LEN (CN$) > 1 THEN 8040
  573.  8030  IF CF = 1 THEN  CALL 38539
  574.  8040  IF  PEEK (1) = 128 THEN 8140
  575.  8050  IF  LEN (CN$) = 0 THEN 8140
  576.  8060  FOR T = 1 TO  LEN (CN$)
  577.  8070  IF  MID$ (CN$,T,1) = "," THEN I$ =  MID$ (CN$,1,T - 1):CN$ =  RIGHT$ (CN$
  578. , LEN (CN$) - T): GOTO 8110
  579.  8080  IF  MID$ (CN$,T,1) = "#" THEN I$ =  MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
  580. 0
  581.  8090  NEXT 
  582.  8100  POKE 960,0
  583.  8110  IF O$ = "STOP" THEN O$ = "": GOTO 8210
  584.  8120  IF  LEN (I$) = 0 THEN 8050
  585.  8130 O$ = I$ + EL$: GOSUB 7000: GOTO 8290
  586.  8140  POKE 960,0: & A / SP$:I$ =  MID$ (SP$,1): IF  PEEK (961) THEN 1560
  587.  8150 CN$ = I$ + "#":O$ = "STOP"
  588.  8160  IF  LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
  589.  8170  POKE 961,0: IF  PEEK (960) = 255 THEN CC = CC + 1: IF CC > 1 OR I$ = "OFF
  590. " THEN 8390
  591.  8180  IF  PEEK (960) = 255 THEN 8140
  592.  8190  IF  PEEK (1) = 128 THEN CN$ = "": GOTO 8230
  593.  8200  IF  LEN (CN$) > 0 THEN 8060
  594.  8210  IF  LEN (I$) <  > 1 AND  RIGHT$ (I$,1) = " " THEN I$ =  LEFT$ (I$, LEN (I
  595. $) - 1): GOTO 8210
  596.  8220  IF  LEN (I$) <  > 1 AND  LEFT$ (I$,1) = " " THEN I$ =  RIGHT$ (I$, LEN (I
  597. $) - 1): GOTO 8220
  598.  8230  IF  LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 7000: GOTO 8250
  599.  8240  IF  LEN (I$) = 0 THEN 8000
  600.  8250  IF CA$ <  > "Y" THEN 8290
  601.  8260  IF CF = 1 THEN  CALL 36798
  602.  8270  IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 7000: CALL 36798
  603. :CF = 1
  604.  8280  IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 7000: CALL 385
  605. 39:CF = 0
  606.  8290 CR = 0: RETURN 
  607.  8300  IF CL$ = "N" THEN T$ = DA$: RETURN 
  608.  8310  PR# 4: IN# 4: INPUT "#";T,T,T,T,T,B: INPUT "%";T$
  609.  8320  IF TI = 0 THEN TI = T
  610.  8330  PR# 0: POKE 56,102: POKE 57,213: CALL 1002
  611.  8340  IF TI > T THEN T = TI + (60 - TI) + T
  612.  8350 TL = CO - (T - TI)
  613.  8360  IF EN > 0 THEN 8380
  614.  8370  IF TL <  = 0 THEN O$ = EL$ + "You are out of Time!": GOSUB 7000: GOTO 839
  615. 0
  616.  8380  RETURN 
  617.  8390 O$ = DL$ + "Later Dude!": GOSUB 7000: PRINT D$"OPENITEMS"C$(25): PRINT D$"
  618. READITEMS"
  619.  8400  FOR X = 1 TO IN
  620.  8410  INPUT I$
  621.  8420  FOR Y = 1 TO 10
  622.  8430  IF I$(Y) = I$ THEN B(Y) = X
  623.  8440  NEXT 
  624.  8450  NEXT : PRINT D$"CLOSE"
  625.  8460  FOR X = 1 TO 10: IF I$(X) = "Blank" THEN B(X) = 0
  626.  8470  NEXT 
  627.  8480  IF CP$ = "N" THEN ST = ST - (ST * 2)
  628.  8490  PRINT D$"OPENSAVE,L48"C$(27): PRINT D$"WRITESAVE,R"A: PRINT R: FOR X = 1 
  629. TO 10: PRINT B(X): NEXT : PRINT TC: PRINT D$"CLOSE":HP = TH:PO = TP: GOSUB 8500:
  630.  PRINT D$"RUNSTART"C$(14)
  631.  8500  PRINT D$"OPENSTATS,L200"C$(15): PRINT D$"WRITESTATS,R"A: PRINT NA$: PRINT
  632.  FI$: PRINT LE: PRINT AG: PRINT WE: PRINT AR: PRINT EX: PRINT GD: PRINT ST: PRIN
  633. T TH: PRINT HP: PRINT PA$: PRINT WI: PRINT CH: PRINT LS: PRINT CA: PRINT CL: PRI
  634. NT AD$: PRINT CP
  635.  8510  PRINT FD: PRINT PO: PRINT TP: PRINT BA: PRINT PA: PRINT DE: PRINT DA$
  636.  8520  FOR X = 1 TO SN: PRINT S(X): NEXT 
  637.  8530  PRINT D$"CLOSE": RETURN 
  638.  8540  IF  LEN (O$) < 40 THEN 8640
  639.  8550 Y = 40
  640.  8560 X = 0
  641.  8570  IF  MID$ (O$,Y - X,1) = " " THEN B$(0) =  LEFT$ (O$,(Y - 1) - X):B$(0) = 
  642. B$(0) + EL$ +  RIGHT$ (O$, LEN (O$) - (Y - X)): GOTO 8590
  643.  8580 X = X + 1: GOTO 8570
  644.  8590 O$ = B$(0)
  645.  8600  IF (Y + 40) >  LEN (O$) THEN 8640
  646.  8610 Y = Y + 39
  647.  8620 Y = (Y - X) + 1
  648.  8630  GOTO 8560
  649.  8640  RETURN 
  650.  8650 O$ = EL$ + "Hit Points " +  STR$ (HP) + " out of " +  STR$ (TH) + "." + EL
  651. $ + "Power " +  STR$ (PO) + " out of " +  STR$ (TP) + "." + EL$ + "Food: " +  ST
  652. R$ (FD) + EL$ + "Poisoned: ": IF PO$ = "Y" THEN O$ = O$ + "Yes": GOTO 8670
  653.  8660 O$ = O$ + "No"
  654.  8670  GOSUB 7000: RETURN 
  655.  8680  IF C$ = "P" THEN 70
  656.  8690  GOTO 1090
  657.  8700  CALL  - 3288: PRINT "ERROR ON LINE ";: PRINT  PEEK (219) * 256 +  PEEK (2
  658. 18): GOTO 70
  659.  8710 PN = PR: IF I$ = "L" THEN 8730
  660.  8720 D6 = 0:D7 = 0:D8 = 0:D9 = 0:SH = 0:CH$ = "":MO$ = "":AB$ = "":OB$ = "":BR 
  661. = 0:F1 = 0:DR$ = "":GI$ = "":TR$ = ""
  662.  8730  IF R > 299 THEN 9510
  663.  8740  IF R <  > 299 THEN 8770
  664.  8750  IF CF = 1 THEN  CALL 38539
  665.  8760 F$ = "ADV.SOLVE": GOSUB 2880: GOTO 9720
  666.  8770  PRINT D$"OPENDES,L410"C$(24)
  667.  8780  PRINT D$"READDES,R"R
  668.  8790  INPUT N$,D1,D2,D3,D4,D5,OB$,BO$,O$
  669.  8800 SH = 0
  670.  8810  IF N$ = "Adventurers Shop" THEN SH = 1
  671.  8820  IF N$ = "Hospital" THEN SH = 2
  672.  8830  IF N$ = "McDonalds" THEN SH = 3
  673.  8840  IF I$ = "L" AND D6 = 0 AND D7 = 0 AND D8 = 0 AND D9 = 0 THEN 8900
  674.  8850  IF I$ <  > "L" THEN 8910
  675.  8860  IF D6 <  > D1 AND D6 <  > 0 THEN D1 = D6
  676.  8870  IF D7 <  > D2 AND D7 <  > 0 THEN D2 = D7
  677.  8880  IF D8 <  > D3 AND D8 <  > 0 THEN D3 = D8
  678.  8890  IF D9 <  > D4 AND D9 <  > 0 THEN D4 = D9
  679.  8900  IF  LEN (AB$) > 0 AND OB$ <  > AB$ THEN OB$ = AB$
  680.  8910 O$ = EL$ + "[" + N$ + "]" + "   " + "Exits: "
  681.  8920  IF D1 <  > 0 THEN O$ = O$ + "N "
  682.  8930  IF D2 <  > 0 THEN O$ = O$ + "S "
  683.  8940  IF D3 <  > 0 THEN O$ = O$ + "W "
  684.  8950  IF D4 <  > 0 THEN O$ = O$ + "E "
  685.  8960 O$ = O$ + EL$: GOSUB 7000
  686.  8970  IF  LEN (OB$) > 5 AND  RIGHT$ (OB$,5) = "Spell" AND  LEN (FS$) > 0 THEN 8
  687. 990
  688.  8980  GOTO 9030
  689.  8990  FOR X = 1 TO  LEN (FS$) STEP 3
  690.  9000  IF  VAL ( MID$ (FS$,X,3)) = 1000 - R THEN OB$ = "":GI$ = "":AB$ = ""
  691.  9010  NEXT 
  692.  9020  IF MO$ = "SC" THEN  RETURN 
  693.  9030  IF R < 310 OR R > 390 THEN 9060
  694.  9040  IF D5 =  - 1 THEN O$ = EL$ + "You step into the square and it turns   Whi
  695. te.  You are safe.": GOSUB 7000
  696.  9050  IF D5 =  - 6 THEN O$ = EL$ + "You step into the square and it turns   Red
  697. .  You are instantly incinerated.": GOSUB 7000: GOTO 1070
  698.  9060  IF D5 =  - 6 OR D5 =  - 12 OR D5 =  - 13 OR D5 =  - 9 THEN 9090
  699.  9070  IF  RIGHT$ (N$,3) = "Inn" THEN O$ = EL$ + "This is a small, quaint little
  700.  inn      furnished and payed for by the local    government.  There is no charg
  701. e to      stay." + EL$: GOSUB 7000
  702.  9080  GOTO 9150
  703.  9090 O$ = EL$: GOSUB 7000
  704.  9100  IF D5 =  - 6 THEN O$ = "You are inside the Red Adepts Castle.":D5 =  - 1
  705.  9110  IF D5 =  - 9 THEN O$ = "You are inside the White Adepts Castle.":D5 =  - 
  706. 1
  707.  9120  IF D5 =  - 12 THEN O$ = "You are inside the Forest of the Elves.":D5 = 0
  708.  9130  IF D5 =  - 13 THEN O$ = "You are inside the Black Adepts Castle.":D5 =  -
  709.  1
  710.  9140 O$ = O$ + EL$: GOSUB 7000
  711.  9150  IF BR$ = "On" AND I$ <  > "L" THEN  PRINT D$"CLOSE": GOTO 2270
  712.  9160  IF R > 299 THEN 2270
  713.  9170  GOSUB 2900: GOTO 2270
  714.  9180  IF (I$ = "N" AND D1 = 0) OR (I$ = "S" AND D2 = 0) OR (I$ = "W" AND D3 = 0
  715. ) OR (I$ = "E" AND D4 = 0) THEN O$ = EL$ + "You Can't Go That Way.": GOSUB 7000:
  716.  GOTO 70
  717.  9190  IF I$ = "N" THEN R = D1
  718.  9200  IF I$ = "S" THEN R = D2
  719.  9210  IF I$ = "W" THEN R = D3
  720.  9220  IF I$ = "E" THEN R = D4
  721.  9230  IF R > 0 THEN 9310
  722.  9240  FOR X = 1 TO 10: IF I$(X) = "Force Field Pass" THEN 9300
  723.  9250  NEXT 
  724.  9260 O$ = EL$ + "Bzzzzzzzz.  Your body Riddles with      electricity as you pas
  725. s through the     field.  You need a Force Field Pass to  go through unscathed."
  726. : GOSUB 7000
  727.  9270 X =  INT (TH / 3):X =  INT (X *  RND (1)) + X
  728.  9280 O$ = DL$ + "You lose " +  STR$ (X) + " Hit Points.":HP = HP - X: GOSUB 700
  729. 0
  730.  9290 O$ = EL$: GOSUB 7000
  731.  9300 R = R - (2 * R)
  732.  9310  IF PO$ = "Y" THEN O$ = EL$ + "You're Poisoned!" + DL$ + "Hit Points -":T 
  733. =  INT (((LE * L) / 2) + 1):O$ = O$ +  STR$ (T) + EL$: GOSUB 7000:HP = HP - T
  734.  9320  IF G(0) > 0 THEN G(0) = G(0) - 1
  735.  9330 FD = FD - 3: IF FD < 1 THEN FD = 0:O$ = EL$ + "You're starving!" + DL$ + "
  736. Hit Points -":T =  INT (((LE * L) / 2) + 1):O$ = O$ +  STR$ (T) + EL$: GOSUB 700
  737. 0:HP = HP - T
  738.  9340  IF FD > 0 AND FD < 10 THEN O$ = EL$ + "Warning!  You are low on food!" + 
  739. EL$: GOSUB 7000
  740.  9350  IF HP < 1 THEN O$ = DL$ + "You are Dead!" + EL$: GOSUB 7000:R = 1: GOTO 1
  741. 070
  742.  9360  GOTO 8710
  743.  9370  PRINT D$"OPENCHAR,L200"C$(23)
  744.  9380  PRINT D$"READCHAR,R"D5
  745.  9390  INPUT TR$,BR,GI$,I$
  746.  9400  IF MO$ <  > "C" THEN MO$ = "C": PRINT D$"CLOSE": GOTO 9420
  747.  9410  IF MO$ = "C" THEN O$ = EL$ + "The " + TR$ + " Speaks:" + EL$: GOSUB 7000:
  748.  GOSUB 2900: GOTO 9440
  749.  9420 O$ = EL$ + "You see a " + TR$ + ".": GOSUB 8540: GOSUB 7000
  750.  9430  GOTO 70
  751.  9440  IF  LEN (GI$) = 0 THEN 70
  752.  9450  FOR X = 1 TO 10
  753.  9460  IF I$(X) = GI$ THEN 70
  754.  9470  NEXT 
  755.  9480  IF  RIGHT$ (GI$,5) = "Spell" AND  LEN (FS$) > 0 THEN MO$ = "SC": GOSUB 89
  756. 90:MO$ = "C": IF  LEN (GI$) = 0 THEN 70
  757.  9490 O$ = EL$ + "The " + TR$ + " drops a " + GI$ + " at your Feet.": GOSUB 8540
  758. : GOSUB 7000:OB$ = GI$:AB$ = GI$
  759.  9500  GOTO 70
  760.  9510  PRINT D$"OPENSHD,L55"C$(28)
  761.  9520  PRINT D$"READSHD,R"R
  762.  9530  INPUT N$,D1,D2,D3,D4,D5,OB$
  763.  9540  PRINT D$"CLOSE"
  764.  9550  IF  LEFT$ (OB$,1) = "*" THEN BO$ =  RIGHT$ (OB$, LEN (OB$) - 1):OB$ = ""
  765.  9560  GOTO 8800
  766.  9570 Y =  VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y =  VAL ( RIGHT$ (A$,1)): POKE 43
  767. 624,Y:Y =  VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN  PRINT D$"OPEN VC,V"Y
  768.  9575  IF TC$ = "Y" THEN  POKE 1014,10: POKE 952,215: POKE 953,251
  769.  9580  RETURN 
  770.  9590  PRINT D$"OPENWEAPONS,L40"C$(19): PRINT D$"READWEAPONS,R"T: INPUT B$(0),B(
  771. 3),B(4):T = B(3) / 4: PRINT D$"CLOSE": RETURN 
  772.  9600  PRINT D$"OPENARMOR,L40"C$(1): PRINT D$"READARMOR,R"T: INPUT B$(0),B(3),B(
  773. 4): PRINT D$"CLOSE": RETURN 
  774.  9610 T = A3: GOSUB 9590:B(2) = T:MP = B(4):MW$ = B$(0):T = A4: GOSUB 9600:MH = 
  775. B(4):MH$ = B$(0): RETURN 
  776.  9620 B$(0) = "":J = 0
  777.  9630  FOR X = 1 TO  LEN (O$)
  778.  9640 A$ =  MID$ (O$,X,1)
  779.  9650  IF X = 1 THEN T =  ASC (A$): IF T > 64 AND T < 91 THEN 9690
  780.  9660 T =  ASC (A$): IF T < 65 OR T > 90 THEN J = 1: GOTO 9690
  781.  9670  IF J = 1 THEN J = 0: GOTO 9690
  782.  9680 T = T + 32:A$ =  CHR$ (T)
  783.  9690 B$(0) = B$(0) + A$
  784.  9700  NEXT 
  785.  9710  RETURN 
  786.  9720 X = WE + 1: IF X > WN THEN X = WN
  787.  9730 Y = AR + 1: IF Y > AN THEN Y = WN
  788.  9740 WE = X:AR = X
  789.  9760 T = WE: GOSUB 9590:O$ = EL$ + "You get a " + B$(0) + "!":T = AR: GOSUB 960
  790. 0:O$ = O$ + DL$ + "You get a " + B$(0) + "!" + EL$: GOSUB 7000:CA = 0: FOR X = 1
  791.  TO 10:I$(X) = "Blank": NEXT :R = 0: GOTO 8390
  792.  
  793. ]LOAD ASTART
  794. ]LIST
  795.  
  796.  5  IF TC$ = "Y" THEN  POKE 1014,0: POKE 952,240: POKE 953,253
  797.  10  ONERR  GOTO 140
  798.  20  IF BD$ <  > "Y" THEN 40
  799.  30  FOR X = 1 TO MM:T$(X) = "":N%(X) = 0: NEXT 
  800.  40  FOR X = 1 TO ML:D$(X) = "": NEXT 
  801.  50 ME$ = ""
  802.  60 O$ = SC$: HOME : GOSUB 500
  803.  70 O$ = EL$ + "             ->Split Infinity<-" + DL$ + " Written, Conceived, a
  804. nd Programmed by" + DL$ + "               The Time Lord" + EL$: GOSUB 500
  805.  80  PRINT D$"OPENITEMS"C$(25)
  806.  90  PRINT D$"READITEMS"
  807.  100 X = 0
  808.  110 X = X + 1
  809.  120  INPUT A$
  810.  130  GOTO 110
  811.  140  CALL  - 3288
  812.  150 IN = X - 1
  813.  160 CO = CO + 5
  814.  200  ONERR  GOTO 250
  815.  210 R = 0
  816.  220  FOR X = 1 TO 10:B(X) = 0: NEXT 
  817.  230  PRINT D$"OPENSAVE,L48"C$(27): PRINT D$"READSAVE,R"A: INPUT R: FOR X = 1 TO
  818.  10: INPUT B(X): NEXT : INPUT TC: PRINT D$"CLOSE"
  819.  240  GOTO 260
  820.  250  CALL  - 3288
  821.  260  PRINT D$"OPENITEMS"C$(25): PRINT D$"READITEMS"
  822.  270  FOR X = 1 TO IN
  823.  280  INPUT I$
  824.  290  FOR Y = 1 TO 10
  825.  300  IF B(Y) = X THEN I$(Y) = I$
  826.  310  NEXT 
  827.  320  NEXT 
  828.  330  PRINT D$"CLOSE"
  829.  340  FOR X = 1 TO 10
  830.  350  IF  LEN (I$(X)) = 0 THEN I$(X) = "Blank"
  831.  360  NEXT 
  832.  370 L = 1
  833.  390  IF LE > 3 THEN L = 2
  834.  400  IF LE > 7 THEN L = 3
  835.  410  IF LE > 12 THEN L = 4
  836.  420  IF LE > 19 THEN L = 5
  837.  430  IF LE > 29 THEN L = 6
  838.  440  IF LE > 55 THEN L = 7
  839.  441  IF LE > 75 THEN L = 8
  840.  442  IF LE > 95 THEN L = 9
  841.  443  IF LE > 115 THEN L = 10
  842.  460  IF R = 0 THEN R = 30
  843.  470 PR = R
  844.  480 G(0) = 0:G(6) = 0
  845.  490 A$ = AV$: GOSUB 510: CALL 35848"ADVENT"
  846.  500  & B / O$: RETURN 
  847.  510 Y =  VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y =  VAL ( RIGHT$ (A$,1)): POKE 436
  848. 24,Y:Y =  VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN  PRINT D$"OPEN VC,V"Y
  849.  515  IF TC$ = "Y" THEN  POKE 1014,10: POKE 952,215: POKE 953,251
  850.  520  RETURN 
  851.  
  852. ]PR#0
  853. ]LOAD FIGHT
  854. ]LIST
  855.  
  856.  5  IF TC$ = "Y" THEN  POKE 1014,0: POKE 952,240: POKE 953,253
  857.  10 AC$ = "": CALL 54915:QA = 0:AM = 0:G(6) = 0:K = 0:B$ = "N": IF A > 0 THEN 30
  858.  
  859.  20  PRINT  CHR$ (4)"SAVEFIGHT,S3": PRINT  CHR$ (4)"RUNCASTLE EDITOR,S6"
  860.  30 T = WE: GOSUB 40:B(1) = T:HT = B(4): GOTO 220
  861.  40  PRINT D$"OPENWEAPONS,L40"C$(19): PRINT D$"READWEAPONS,R"T: INPUT B$(0),B(3)
  862. ,B(4):T =  INT (B(3) / 4): IF T > 1000000 THEN T = 1000000
  863.  50  PRINT D$"CLOSE": RETURN 
  864.  60  PRINT D$"OPENARMOR,L40"C$(1): PRINT D$"READARMOR,R"T: INPUT B$(0),B(3),B(4)
  865. : PRINT D$"CLOSE": RETURN 
  866.  90  CALL  - 3288: GOTO 230
  867.  100  IF FO >  = 4 THEN 130
  868.  110 O$ = EL$ + "Return To Main Dungeon? Y/N ": GOSUB 6000
  869.  120  IF I$ <  > "Y" THEN 230
  870.  130 O$ = DL$ + "-=> HOLD...Transport Heading to Main." + EL$: GOSUB 7000
  871.  140 A$ = MA$: GOSUB 8850: CALL 35848"MAIN"
  872.  150  PRINT D$"OPENSTATS,L200"C$(15)
  873.  160  PRINT D$"READSTATS,R"A
  874.  170  INPUT NA$,FI$,LE,AG,WE,AR,EX,GD,ST,TH,HP,PA$,WI,CH,LS,CA,CL,AD$,CP,FD,PO,T
  875. P,BA,PA,DE,I$
  876.  180  FOR X = 1 TO SN: INPUT S(X): NEXT 
  877.  190  PRINT D$"CLOSE"
  878.  200  IF I$ = "Q" THEN  POP : GOTO 230
  879.  210  RETURN 
  880.  220  HOME :O$ = SC$ + DL$ + DL$ + EL$: GOSUB 7000
  881.  230  GOSUB 8300:O$ = DL$ + "Your choices are..." + DL$ + "A) ttack a Users Cast
  882. le" + EL$ + "C) orridor Of Death" + EL$ + "D) ungeon" + EL$ + "P) roving Grounds
  883. " + DL$
  884.  240 O$ = O$ + "Which(FL=" +  STR$ (4 - FO) + "): ": GOSUB 6000
  885.  245  ONERR  GOTO 90
  886.  250  IF I$ = "A" THEN 9170
  887.  260 AC$ = "N":FI = 0:B$(2) = "": IF I$ = "C" THEN 2490
  888.  300  IF I$ = "Q" THEN 100
  889.  310  IF I$ <  > "D" AND I$ <  > "P" THEN 230
  890.  320 MO$ = "N": IF I$ = "D" THEN MO$ = "Y": GOTO 680
  891.  340 O$ = EL$ + "Enter user number of person you wish    to fight(1-" +  STR$ (U
  892. S) + "/Q): #": GOSUB 6000
  893.  350 X =  VAL (I$)
  894.  360  GOSUB 8300
  895.  370  IF A = X THEN 340
  896.  380  GOSUB 200
  897.  390  ONERR  GOTO 500
  898.  400  PRINT D$"OPENSTATS,L200"C$(15)
  899.  410  PRINT D$"READSTATS,R"X
  900.  420  INPUT B$(1),B$(2),A1,A2,A3,A4,A5,A6,A7,A0,A9,A$,A8
  901.  430 S1 = 0:S2 = 0
  902.  440  PRINT D$"CLOSE"
  903.  450  IF A2 < 0 THEN A2 = A2 - (A2 * 2):Y =  - 99
  904.  460  IF A7 < 0 THEN  GOSUB 9380:A7 = A7 - (A7 * 2)
  905.  470  IF AC$ = "Y" THEN  GOSUB 8870: RETURN 
  906.  480 Y = 0
  907.  490  GOTO 510
  908.  500  CALL  - 3288: PRINT D$"CLOSE":O$ = EL$ + "There is no such user!" + EL$: G
  909. OSUB 7000: GOTO 340
  910.  510  IF LE > A1 + FL THEN O$ = EL$ + "You can only fight a User higher or " +  
  911. STR$ (FL) + " levels below you." + EL$: GOSUB 8420: GOSUB 7000: GOTO 340
  912.  520  ONERR  GOTO 550
  913.  530  IF B$(2) = "Dead" THEN  PRINT D$"OPEN DEATH,L50"C$(6): PRINT D$"READ DEATH
  914. ,R"X: INPUT I$: PRINT D$"CLOSE":O$ = EL$ + "Sorry, " + B$(1) + " has already bee
  915. n" + " killed by " + I$ + "." + EL$: GOSUB 8420: GOSUB 7000: GOTO 340
  916.  540  GOTO 560
  917.  550  CALL  - 3288:O$ = EL$ + "Sorry, " + B$(1) + " is Dead." + EL$: GOSUB 8420:
  918.  GOSUB 7000: GOTO 340
  919.  560  IF B$(1) = "Empty" THEN O$ = EL$ + "Sorry, that Character has been deleted
  920. ." + EL$: GOSUB 7000: GOTO 340
  921.  570  GOSUB 8870
  922.  580 B$(3) =  STR$ (A3 - WE): IF A3 > WE THEN B$(3) = "+" + B$(3)
  923.  590 B$(4) =  STR$ (A4 - AR): IF A4 > AR THEN B$(4) = "+" + B$(4)
  924.  600 B$(3) = "  (" + B$(3) + ")":B$(4) = "  (" + B$(4) + ")"
  925.  610 O$ = EL$ + "Character: " + B$(1) + DL$ + "Weapon: " + MW$ + B$(3) + EL$ + "
  926.  Armor: " + MH$ + B$(4) + DL$ + "Hit Points: " +  STR$ (A9)
  927.  620  GOSUB 7000
  928.  630 O$ = DL$ + "Do you wish to fight " + B$(1) + "?" + EL$ + "Y/N: ": GOSUB 600
  929. 0
  930.  640  GOSUB 200
  931.  650  IF I$ <  > "Y" THEN 340
  932.  660 FO = FO + 1
  933.  670 FI = X
  934.  680 B$(3) = "strike":B$(4) = "hit":B$(5) = "slam":B$(6) = "rag":B$(7) = "smite"
  935. :B$(8) = "pound"
  936.  690  IF MO$ = "R" THEN  RETURN 
  937.  700  IF MO$ = "Y" THEN  GOTO 1940
  938.  710 O$ = DL$: GOSUB 7000
  939.  720  IF AG > A2 THEN O$ = "You get first attack!" + DL$: GOSUB 7000: GOTO 1210
  940.  730 O$ = "He gets first attack!": GOSUB 7000
  941.  740 O$ = DL$: GOSUB 7000
  942.  750  IF MO$ = "Y" THEN X =  INT (3 *  RND (1)) + 1: IF X = 2 THEN 2390
  943.  760  IF A2 > 50 THEN 900
  944.  770 G(1) = A3 + A2
  945.  780 G(2) =  INT ((WE + AG) *  RND (1)) + 1
  946.  790 AM =  INT ((A7 + A2 + (2 * MP)) *  RND (1)) + 1: IF AR > AM THEN O$ = "Your
  947.  " + AM$ + " Absorbes the Damage!": GOSUB 8420: GOSUB 7000: GOTO 1210
  948.  800  IF G(2) < G(1) THEN 900
  949.  810 X =  INT (5 *  RND (1)) + 1
  950.  820  IF X = 1 THEN O$ = B$(1) + " swings at you with his " + MW$ + " and misses
  951. !"
  952.  830  IF X = 2 THEN O$ = "You duck skillfully under his blow!"
  953.  840  IF X = 3 THEN O$ = "He swings at you but you jump nimbly aside!"
  954.  850  IF X = 4 THEN O$ = B$(1) + "s " + MW$ + " flies over your head just missin
  955. g you!"
  956.  860  IF X = 5 THEN O$ = "His weapon misses you by a mile!"
  957.  870  GOSUB 8420
  958.  880  GOSUB 7000
  959.  890  GOTO 1210
  960.  900 G(3) = (A7 / 25) + 1
  961.  910 G(3) = G(3) * MP:G(8) = 0
  962.  920 G(5) = G(3) * (AP * (1 / 100))
  963.  930 G(3) = G(3) - G(5)
  964.  940 G(4) = G(3) / 4:G(3) = G(3) - (G(4) *  RND (1)) + G(4)
  965.  950 G(3) =  INT (G(3))
  966.  960 X =  INT (5 *  RND (1)) + 3
  967.  970  IF G(6) > 0 THEN G(6) = G(6) - 1:G(3) =  INT (G(3) - (G(3) / 3))
  968.  980  IF Y =  - 99 THEN Y = 0: RETURN 
  969.  990  IF G(8) = 0 THEN 1010
  970.  1000  IF MO$ = "Y" THEN O$ = B$(1) + " casts a " + S$(G(8)) + " spell which " +
  971.  B$(X) + "s you doing " +  STR$ (G(3)) + " damage.": GOSUB 8420: GOSUB 7000: GOT
  972. O 1040
  973.  1010 O$ = B$(1) + " " + B$(X) + "s you with his " + MW$ + " doing " +  STR$ (G(
  974. 3)) + " damage."
  975.  1020  GOSUB 8420
  976.  1030  GOSUB 7000
  977.  1040 HP = HP - G(3): IF HP > 0 THEN 1210
  978.  1050 O$ = DL$ + B$(1) + " has killed you!" + DL$ + "He gets all your gold!" + E
  979. L$
  980.  1060  IF MO$ = "Y" THEN 1110
  981.  1070 AM = 0:QA = 0
  982.  1080  IF WE > A3 THEN G(0) = A3:A3 = WE:WE = G(0):O$ = O$ + DL$ + "You Swap Wea
  983. pons With Him!":AM = 1
  984.  1090  IF AR > A4 THEN G(0) = A4:A4 = AR:AR = G(0):O$ = O$ + DL$ + "You Swap Arm
  985. or With Him!":QA = 1
  986.  1100  GOSUB 7000:O$ = "": GOSUB 8530
  987.  1110 A6 = A6 + GD:GD = 0:A5 = A5 + EX:HP = TH:PO = TP: GOSUB 7000
  988.  1120  IF B$ <  > "Y" THEN 1190
  989.  1140 O$ = EL$ + "You have been Resurected!" + DL$ + "Continue on Quest? Y/N ": 
  990. GOSUB 6000: IF I$ <  > "Y" AND I$ <  > "N" THEN 1140
  991.  1160 B$ = "N"
  992.  1170  IF I$ = "Y" THEN 2870
  993.  1180  GOTO 130
  994.  1190  IF MO$ = "Y" OR MO$ = "NV" THEN 8370
  995.  1200 X =  - 99: GOTO 1770
  996.  1210  IF MO$ <  > "Y" THEN 1300
  997.  1220  IF FI > 0 THEN O$ = DL$ + "F)ight, C)ast, H)ealth, S)tats: ": GOSUB 6000:
  998.  IF I$ = "C" THEN 2130
  999.  1230  IF I$ = "S" THEN  GOSUB 3210: GOTO 1220
  1000.  1240  IF FI > 0 AND I$ = "H" THEN  GOSUB 8660: GOTO 1210
  1001.  1250  IF FI > 0 AND I$ <  > "F" THEN 1210
  1002.  1260  IF FI > 0 THEN 1350
  1003.  1270 O$ = DL$ + "F)ight, H)ealth, R)un, C)ast: ": GOSUB 6000: IF I$ = "C" THEN 
  1004. 2130
  1005.  1280  IF I$ = "H" THEN  GOSUB 8660: GOTO 1270
  1006.  1290  GOTO 1330
  1007.  1300 O$ = DL$ + "<F>ight <H>ealth <R>un: ": GOSUB 6000
  1008.  1310  IF I$ = "H" THEN  GOSUB 8660: GOTO 1300
  1009.  1320  IF I$ <  > "F" AND I$ <  > "R" AND I$ <  > "Q" THEN 1300
  1010.  1330  IF I$ = "R" OR I$ = "Q" THEN 100
  1011.  1340  IF I$ <  > "F" THEN 1270
  1012.  1350 O$ = EL$: GOSUB 7000
  1013.  1360  IF AG > 50 THEN 1500
  1014.  1370 G(1) = WE + AG
  1015.  1380 G(2) =  INT ((A3 + A2) *  RND (1)) + 1
  1016.  1390 AM =  INT ((ST + AG + (2 * HT)) *  RND (1)) + 1: IF A4 > AM THEN O$ = "His
  1017.  " + MH$ + " Absorbes the Damage!": GOSUB 8420: GOSUB 7000: GOTO 740
  1018.  1400  IF G(1) > G(2) THEN 1500
  1019.  1410 X =  INT (5 *  RND (1)) + 1
  1020.  1420  IF X = 1 THEN O$ = "You swing at him with your " + WP$ + " but he jumps n
  1021. imbly aside."
  1022.  1430  IF X = 2 THEN O$ = "He ducks skillfully under your blow!"
  1023.  1440  IF X = 3 THEN O$ = "You lunge at him but he ducks under your blow!"
  1024.  1450  IF X = 4 THEN O$ = "Your " + WP$ + " misses him by a mile!"
  1025.  1460  IF X = 5 THEN O$ = "Your " + WP$ + " flies over his head!"
  1026.  1470  GOSUB 8420
  1027.  1480  GOSUB 7000
  1028.  1490  GOTO 740
  1029.  1500 G(3) = (ST / 25) + 1:G(3) = (G(3) * HT)
  1030.  1510 G(5) = G(3) * (MH * (1 / 100))
  1031.  1520 G(3) = G(3) - G(5)
  1032.  1530 G(4) = G(3) / 4:G(3) = G(3) - (G(4) *  RND (1)) + G(4)
  1033.  1540 G(3) =  INT (G(3))
  1034.  1550 X =  INT (6 *  RND (1)) + 3
  1035.  1560  IF I$ = "C" THEN O$ = "Your " + S$(Y) + " spell " + B$(X) + "s the monste
  1036. r doing " +  STR$ (G(3)) + " damage!": GOSUB 8420: GOSUB 7000: GOTO 1600
  1037.  1570 O$ = "You " + B$(X) + " him with your " + WP$ + " doing " +  STR$ (G(3)) +
  1038.  " damage!"
  1039.  1580  GOSUB 8420
  1040.  1590  GOSUB 7000
  1041.  1600 A9 = A9 - G(3): IF A9 > 0 THEN 740
  1042.  1610 O$ = DL$ + "You've killed " + B$(1) + "!" + EL$
  1043.  1620 O$ = O$ + EL$ + "You gain " +  STR$ (A6) + " gold and " +  STR$ (A5) + " e
  1044. xp!" + EL$: GOSUB 7000
  1045.  1630 QA = 0:AM = 0
  1046.  1640  IF MO$ = "Y" THEN 1680
  1047.  1650  IF WE < A3 THEN O$ = EL$ + "You also get his " + MW$ + "!":G(0) = WE:WE =
  1048.  A3:A3 = G(0):AM = 1: GOSUB 7000:WP$ = MW$:HT = MP: GOTO 1670
  1049.  1660 O$ = EL$ + "You also get " +  STR$ (B(2)) + " gold for his " + MW$ + "!":G
  1050. D = GD + B(2): GOSUB 8420: GOSUB 7000
  1051.  1670  IF A4 > AR THEN G(0) = AR:AR = A4:A4 = G(0):O$ = DL$ + "You get his " + M
  1052. H$ + "!":QA = 1: GOSUB 7000:AM$ = MH$:AP = MH
  1053.  1680 GD = GD + A6:EX = EX + A5:A9 = A0:A6 = 0:B$(2) = "Dead"
  1054.  1690 O$ = EL$: GOSUB 7000
  1055.  1700  IF MO$ = "Y" THEN 1750
  1056.  1710  IF AC$ = "Y" THEN 1750
  1057.  1720  POKE 2,255
  1058.  1730 O$ = EL$ + "Leave Message to " + B$(1) + "?" + EL$ + "Y/N: ": GOSUB 6000: 
  1059. POKE 1,128:B$(4) = "No Comment.": IF I$ = "Y" THEN O$ = EL$ + "40 Char. Max" + D
  1060. L$: GOSUB 6000:B$(4) = I$
  1061.  1740  POKE 2,0: POKE 1,0
  1062.  1750  IF FI > 0 AND MO$ = "Y" THEN 2870
  1063.  1760  IF MO$ = "Y" THEN 100
  1064.  1770  GOSUB 8380:B$(8) = NA$:G(1) = A:A = FI: GOSUB 150:AR = A4:WE = A3:EX = A5
  1065. :GD = A6:HP = A0:FI$ = B$(2):B$(0) = DA$:DA$ = I$: IF AC$ <  > "Y" THEN 1790
  1066.  1780  IF X <  >  - 99 THEN NC =  INT (BA / 2):BA = NC - BA:AG = AG - (AG * 2):F
  1067. I$ = NC$
  1068.  1790  GOSUB 8380:DA$ = B$(0)
  1069.  1800  IF AC$ = "Y" THEN 1820
  1070.  1810 O$ = DL$: GOSUB 7000: IF B$(2) = "Dead" THEN  GOSUB 1870
  1071.  1820 A = G(1): GOSUB 150
  1072.  1830  GOSUB 8670
  1073.  1840  IF B$(2) <  > "Dead" THEN  GOTO 8370
  1074.  1850  IF AC$ = "Y" THEN 9370
  1075.  1860  GOTO 100
  1076.  1870  PRINT D$"OPENDEATH,L50"C$(6)
  1077.  1880  PRINT D$"WRITEDEATH,R"A
  1078.  1890  PRINT G(1): PRINT QA""AM: PRINT B$(4)
  1079.  1900  PRINT D$"CLOSE"
  1080.  1910  PRINT D$"OPENRANK,L4"C$(11): PRINT D$"READRANK,R"A: INPUT X: PRINT D$"CLO
  1081. SE": PRINT D$"OPENTOP,L35"C$(16): PRINT D$"READTOP,R"X: INPUT D$(1),D$(2),D$(3):
  1082.  PRINT D$"CLOSE"
  1083.  1920  PRINT D$"OPENTOP,L35": PRINT D$"WRITETOP,R"X: PRINT "D": PRINT D$(2): PRI
  1084. NT D$(3): PRINT D$"CLOSE"
  1085.  1930  RETURN 
  1086.  1940  HOME :O$ = SC$: GOSUB 7000:O$ = DL$ + DL$ + "What level do you wish to en
  1087. ter:" + DL$ + "1) Easy" + EL$ + "2) Medium" + EL$ + "3) Hard" + EL$ + "4) Extrem
  1088. ely hard" + EL$ + "5) Crazy" + EL$ + "6) Suicidal" + EL$
  1089.  1950 O$ = O$ + "7) Instaneaneous Death" + EL$ + "8) Half-Way to Hell" + EL$ + "
  1090. 9) The Dead Zone" + EL$ + "10) The Land of the Immortals" + DL$
  1091.  1960 O$ = O$ + "Which(Q quits): ": GOSUB 6000
  1092.  1970  GOSUB 200
  1093.  1980 X =  VAL (I$)
  1094.  1990  IF X < 1 OR X > (CN / 20) THEN 1940
  1095.  2000 FO = FO + 1
  1096.  2010 X = X - 1
  1097.  2020 X = (X * 20) + 1
  1098.  2030 X =  INT (20 *  RND (1)) + X
  1099.  2040  PRINT D$"OPENMONSTERS,L60"C$(9)
  1100.  2050  PRINT D$"READMONSTERS,R"X
  1101.  2060  INPUT B$(1),A7,A2,A8,A3,A4,A6,S1,S2,A9
  1102.  2070  PRINT D$"CLOSE"
  1103.  2080 A5 = (((A9 / TH) * 8) / 100) * EX:A5 =  INT (A5) + 100: IF NE$ = "T" THEN 
  1104. NE$ = "Y": GOTO 2100
  1105.  2090 NE$ = "N"
  1106.  2100  GOSUB 8870
  1107.  2110  IF MO$ = "R" THEN A6 = A6 * 2:A5 = A5 * 2:MO$ = "Y"
  1108.  2120 O$ = DL$ + "A vicious " + B$(1) + " attacks you!": GOSUB 8420: GOSUB 7000:
  1109. B$(1) = "A " + B$(1): GOTO 710
  1110.  2130  IF NE$ = "Y" THEN O$ = EL$ + "Sorry, Negate has been activated.  All  spe
  1111. lls are impotent.": GOSUB 7000: GOTO 1210
  1112.  2140 O$ = EL$ + "Cast(?): ": GOSUB 6000
  1113.  2150  IF I$ <  > "?" THEN O$ = I$: GOSUB 8880: GOTO 2200
  1114.  2160 O$ = EL$ + "Name / Quantity / Power Required" + EL$ + "-------------------
  1115. -------------" + DL$: GOSUB 7000
  1116.  2170  FOR X = 1 TO SN: IF S(X) > 0 THEN O$ = S$(X) + "-" +  STR$ (S(X)) + " (" 
  1117. +  STR$ (X * 2) + ")" + EL$: GOSUB 7000
  1118.  2180  NEXT 
  1119.  2190  GOTO 2130
  1120.  2200  FOR X = 1 TO SN: IF S$(X) = B$(0) THEN 2240
  1121.  2210  NEXT 
  1122.  2220  IF B$(2) = "CO" THEN O$ = EL$ + "There is no such spell!": GOSUB 7000: GO
  1123. TO 2880
  1124.  2230 O$ = EL$ + "There is no such spell!": GOSUB 7000: GOTO 1210
  1125.  2240  IF S(X) = 0 AND B$(2) = "CO" THEN O$ = EL$ + "You don't have that spell!"
  1126. : GOSUB 7000: GOTO 2880
  1127.  2250  IF S(X) = 0 THEN O$ = EL$ + "You don't have that spell!": GOSUB 7000: GOT
  1128. O 1210
  1129.  2260  IF B$(2) = "CO" AND (U(X) > 0 OR S$(X) = "Negate") THEN O$ + EL$ + "Sorry
  1130. , that is a battle spell.": GOSUB 7000: GOTO 2860
  1131.  2270  IF S$(X) = "Inviso" AND B$(2) = "CO" THEN O$ = EL$ + "Sorry, that is an A
  1132. dventure spell.": GOSUB 7000: GOTO 2860
  1133.  2280  IF B$(2) = "CO" THEN 2980
  1134.  2290  IF S$(X) = "Death" OR S$(X) = "Negate" THEN 2310
  1135.  2300  IF U(X) < 1 THEN O$ = EL$ + "Not a Battle spell!": GOSUB 7000: GOTO 1210
  1136.  2310  IF PO < (X * 2) THEN O$ = EL$ + "You don't have enough power!": GOSUB 700
  1137. 0: GOTO 1210
  1138.  2320 PO = PO - (X * 2)
  1139.  2330 S(X) = S(X) - 1
  1140.  2340 O$ = EL$ + "Zap!" + DL$: GOSUB 7000:I$ = "C"
  1141.  2350 Y = X
  1142.  2360  IF S$(X) = "Death" THEN G(3) = A9 / 2: GOTO 1540
  1143.  2370  IF S$(X) = "Negate" THEN NE$ = "Y":O$ = "Negate has been activated.  All 
  1144. magical spells are impotent for the duration of this battle.": GOSUB 7000: GOTO 
  1145. 740
  1146.  2380 G(3) = (WI / 25) + 1:G(3) = (G(3) * U(X)): GOTO 1510
  1147.  2390  IF (S1 < 2 AND S2 < 2) OR NE$ = "Y" THEN 770
  1148.  2400 G(8) = 0
  1149.  2410  IF S1 < 2 THEN G(8) = S2
  1150.  2420  IF S2 < 2 THEN G(8) = S1
  1151.  2430  IF G(8) <  > 0 THEN 2470
  1152.  2440 X =  INT (2 *  RND (1)) + 1
  1153.  2450  IF X = 1 THEN G(8) = S1
  1154.  2460  IF X = 2 THEN G(8) = S2
  1155.  2470  IF S$(G(8)) = "Death" THEN G(3) = HP / 2: GOTO 950
  1156.  2480 G(3) = (A8 / 25) + 1:G(3) = (G(3) * U(G(8))): GOTO 920
  1157.  2490 O$ = EL$ + "Once you enter the corridor there will  be few chances to leav
  1158. e.  Play? Y/N->": GOSUB 6000: IF I$ <  > "Y" THEN 230
  1159.  2500 G(3) = LE * LE * 60:O$ = EL$ + "Gold +" +  STR$ (G(3)) + EL$: GOSUB 7000:G
  1160. D = GD + G(3)
  1161.  2510  FOR X = WN - MS + 1 TO WN: IF X > WE THEN 2530
  1162.  2520  NEXT 
  1163.  2530 X = (102 - X):X = X * 20:X = X - 1:G(3) = CN + 20 - X:G(2) = 1
  1164.  2540 O$ = EL$ + "You can start anywhere from room " +  STR$ (G(2)) + " to room 
  1165. " +  STR$ (G(3)) + ".": GOSUB 8420: GOSUB 7000
  1166.  2550  ONERR  GOTO 2570
  1167.  2560  GOTO 2580
  1168.  2570  CALL  - 3288
  1169.  2580 O$ = DL$ + "Enter Starting Room #": GOSUB 6000
  1170.  2590 X =  VAL (I$): IF X < G(2) OR X > G(3) THEN 2580
  1171.  2600  IF G(3) + 20 > CN THEN 2620
  1172.  2610 O$ = EL$ + "The closest magical weapon and armor    lie in room #" +  STR$
  1173.  (G(3) + 20) + "." + EL$: GOSUB 7000
  1174.  2620 FI = X - 1:FO = FI
  1175.  2630 MO$ = "R": GOSUB 680:MO$ = "Y"
  1176.  2640 FI = FI + 1
  1177.  2650  ONERR  GOTO 2670
  1178.  2660 I$ = "": GOTO 2680
  1179.  2670  CALL  - 3288: GOTO 2880
  1180.  2680  FOR X = 21 TO CN + 1 STEP 20: IF FI = X THEN 2710
  1181.  2690  NEXT 
  1182.  2700  GOTO 2820
  1183.  2710 O$ = EL$ + "As you continue on your perilous quest  you notice a door to t
  1184. he west.  This    may be your only chance to leave." + EL$ + "Quit? Y/N: ": GOSU
  1185. B 6000
  1186.  2720  IF I$ <  > "Y" AND I$ <  > "N" THEN 2710
  1187.  2730  IF I$ = "Y" THEN 130
  1188.  2740 T = MS:Y = T - 1
  1189.  2750  FOR X = CN - (Y * 20) TO CN STEP 20
  1190.  2760 T = T - 1: IF X = FI - 1 THEN X = T: GOTO 2790
  1191.  2770  NEXT 
  1192.  2780  GOTO 2820
  1193.  2790  IF WE < WN - X THEN WE = WN - X:T = WE: GOSUB 40:O$ = EL$ + "You Get a " 
  1194. + B$(0) + EL$:WP$ = B$(0):HT = B(4): GOSUB 7000
  1195.  2800  IF AR < AN - X THEN AR = AN - X:T = AR: GOSUB 60:O$ = EL$ + "You Get a " 
  1196. + B$(0) + EL$:AM$ = B$(0):AP = B(4): GOSUB 7000
  1197.  2810  IF FI = CN + 1 THEN 130
  1198.  2820  IF AC$ = "Y" THEN O$ = DL$ + "[" + B$(1) + "'s Castle]" + DL$ + "Room " +
  1199.   STR$ (FI) + DL$: GOSUB 7000:B$(2) = "C": IF T > 0 THEN X = T: GOTO 2040
  1200.  2830  IF AC$ = "Y" THEN 2880
  1201.  2840 O$ = DL$ + "[Corridor of Death]" + DL$ + "Room " +  STR$ (FI) + DL$: GOSUB
  1202.  7000
  1203.  2850 B$(2) = "C"
  1204.  2860  IF FI <  > FO THEN X = FI:FO = FI: GOTO 2040
  1205.  2870 B$(2) = "CO"
  1206.  2880  GOSUB 8300:O$ = DL$ + "[Tm:" +  STR$ (TL) + "/C)ast H)ealth M)ove S)tats]
  1207. ->": GOSUB 6000: CALL 54915
  1208.  2890  IF I$ = "S" THEN  GOSUB 3210
  1209.  2900  IF I$ = "M" THEN FD = FD - 3: IF FD < 1 THEN FD = 0:O$ = EL$ + "You're st
  1210. arving!" + DL$ + "Hit points -" +  STR$ (LE) + EL$: GOSUB 7000:HP = HP - LE
  1211.  2910  IF FD > 0 AND FD < 10 THEN O$ = EL$ + "Warning!  You are low on food!" + 
  1212. EL$: GOSUB 7000
  1213.  2920  IF HP < 1 THEN O$ = EL$ + "You died of starvation!" + DL$ + "Monsters com
  1214. e by and rob you of all     your gold!" + EL$: GOSUB 7000:GD = 0: GOTO 8370
  1215.  2930  IF I$ = "H" THEN  GOSUB 8660
  1216.  2940  IF I$ = "C" THEN 2130
  1217.  2950  IF I$ = "M" AND AC$ = "Y" THEN FI = FI + 1: GOTO 8980
  1218.  2960  IF I$ = "M" THEN 2640
  1219.  2970  GOTO 2880
  1220.  2980  IF PO < (X * 2) THEN O$ = EL$ + "You don't have enough power!": GOSUB 700
  1221. 0: GOTO 2880
  1222.  2985  IF AC$ = "Y" AND S$(X) = "Resurrect" THEN O$ = EL$ + "Sorry, you cannot c
  1223. ast that spell insidea castle.": GOSUB 7000: GOTO 2880
  1224.  2990  IF S$(X) = "Resurrect" AND B$ = "Y" THEN O$ = EL$ + "Resurrect has alread
  1225. y been Activated!" + EL$: GOSUB 7000: GOTO 2880
  1226.  3000 PO = PO - (X * 2):S(X) = S(X) - 1
  1227.  3010 O$ = EL$ + "Alakazam!!!" + EL$: GOSUB 7000
  1228.  3020  IF S$(X) = "Teleport" THEN O$ = EL$ + "Zap!  You are teleported to safety
  1229. !" + EL$: GOSUB 7000:FO = 4: GOTO 130
  1230.  3030  IF S$(X) <  > "Protect" AND S$(X) <  > "Super Protect" THEN 3070
  1231.  3040  IF S$(X) = "Protect" THEN G(6) = G(6) + 10:O$ = "Protect "
  1232.  3050  IF S$(X) = "Super Protect" THEN G(6) = G(6) + 20:O$ = "Super Protect "
  1233.  3060 O$ = EL$ + O$ + "has been Activated" + DL$ + "Estimated Lasting Time [" + 
  1234.  STR$ (G(6)) + "] Hits": GOSUB 7000: GOTO 2880
  1235.  3070  IF S$(X) = "Resurrect" THEN B$ = "Y":O$ = EL$ + "Resurrect has been Activ
  1236. ated." + EL$: GOSUB 7000: GOTO 2880
  1237.  3080  IF S$(X) = "Super Increase" THEN HP = TH * 2:PO = TP * 2:O$ = EL$ + "Hit 
  1238. Points = " +  STR$ (HP) + "!" + DL$ + "Power = " +  STR$ (PO) + "!" + EL$: GOSUB
  1239.  7000: GOTO 2880
  1240.  3090  IF S$(X) <  > "Increase" THEN 3140
  1241.  3100 O$ = EL$ + "[H/it points-P/ower]->": GOSUB 6000: IF I$ <  > "H" AND I$ <  
  1242. > "P" THEN 3100
  1243.  3110  IF I$ = "H" THEN HP = TH * 2:O$ = EL$ + "Hit points = " +  STR$ (HP)
  1244.  3120  IF I$ = "P" THEN PO = TP * 2:O$ = EL$ + "Power = " +  STR$ (PO)
  1245.  3130 O$ = O$ + "!": GOSUB 7000: GOTO 2880
  1246.  3140  IF S$(X) = "Cure Light Wounds" THEN G(3) =  INT (10 *  RND (1)) + 1:G(4) 
  1247. =  INT (10 *  RND (1)) + 1
  1248.  3150  IF S$(X) = "Cure Severe Wounds" THEN G(3) =  INT (20 *  RND (1)) + 10:G(4
  1249. ) =  INT (20 *  RND (1)) + 10
  1250.  3160  IF S$(X) = "Cure All Wounds" THEN HP = TH:PO = TP:O$ = EL$ + "All Hit Poi
  1251. nts and Power restored!": GOSUB 7000: GOTO 2880
  1252.  3170 O$ = EL$ + "Hit points +" +  STR$ (G(3)) + DL$ + "Power +" +  STR$ (G(4)):
  1253. HP = HP + G(3):PO = PO + G(4): IF HP > TH THEN HP = TH
  1254.  3180  IF PO > TP THEN PO = TP
  1255.  3190  GOSUB 7000
  1256.  3200  GOTO 2880
  1257.  3210 O$ = EL$ + "Strength: " +  STR$ (ST) + EL$ + "Wisdom: " +  STR$ (WI) + EL$
  1258.  + "Agility: " +  STR$ (AG) + EL$ + "Intelligence: " +  STR$ (CH) + EL$ + EL$ + 
  1259. "Gold: " +  STR$ (GD) + EL$ + "Exp: " +  STR$ (EX) + EL$ + EL$ + "Weapons: " + W
  1260. P$ + EL$ + "Armor: " + AM$ + EL$
  1261.  3220 O$ = O$ + EL$ + "Protection Left: " +  STR$ (G(6)) + " Hits"
  1262.  3230 O$ = O$ + EL$ + "Resurrect: "
  1263.  3240 I$ = "Off"
  1264.  3250  IF B$ = "Y" THEN I$ = "On"
  1265.  3260 O$ = O$ + I$
  1266.  3270  GOSUB 7000
  1267.  3280  RETURN 
  1268.  3290 A$ = CH$: GOSUB 8850: CALL 35848"CHAT"
  1269.  6000  GOSUB 7000: GOSUB 8000: RETURN 
  1270.  7000  & B / O$: POKE 960,0: RETURN 
  1271.  8000 CC = 0: IF  PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
  1272. 8539:CF = 9
  1273.  8010  IF CF = 9 AND  PEEK (1) <  > 128 THEN CF = 1:CA$ = "Y"
  1274.  8020  IF CA$ <  > "Y" OR  LEN (CN$) > 1 THEN 8040
  1275.  8030  IF CF = 1 THEN  CALL 38539
  1276.  8040  IF  PEEK (1) = 128 THEN 8140
  1277.  8050  IF  LEN (CN$) = 0 THEN 8140
  1278.  8060  FOR T = 1 TO  LEN (CN$)
  1279.  8070  IF  MID$ (CN$,T,1) = "," THEN I$ =  MID$ (CN$,1,T - 1):CN$ =  RIGHT$ (CN$
  1280. , LEN (CN$) - T): GOTO 8110
  1281.  8080  IF  MID$ (CN$,T,1) = "#" THEN I$ =  MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
  1282. 0
  1283.  8090  NEXT 
  1284.  8100  POKE 960,0
  1285.  8110  IF O$ = "STOP" THEN O$ = "": GOTO 8210
  1286.  8120  IF  LEN (I$) = 0 THEN 8050
  1287.  8130 O$ = I$ + EL$: GOSUB 7000: GOTO 8290
  1288.  8140  POKE 960,0: & A / SP$:I$ =  MID$ (SP$,1): IF  PEEK (961) THEN 3290
  1289.  8150 CN$ = I$ + "#":O$ = "STOP"
  1290.  8160  IF  LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
  1291.  8170  POKE 961,0: IF  PEEK (960) = 255 THEN CC = CC + 1: FOR T = 1 TO 500: NEXT
  1292.  : IF CC > 1 OR I$ = "OFF" THEN 8370
  1293.  8180  IF  PEEK (960) = 255 THEN 8140
  1294.  8190  IF  PEEK (1) = 128 THEN CN$ = "": GOTO 8230
  1295.  8200  IF  LEN (CN$) > 0 THEN 8060
  1296.  8210  IF  LEN (I$) <  > 1 AND  RIGHT$ (I$,1) = " " THEN I$ =  LEFT$ (I$, LEN (I
  1297. $) - 1): GOTO 8210
  1298.  8220  IF  LEN (I$) <  > 1 AND  LEFT$ (I$,1) = " " THEN I$ =  RIGHT$ (I$, LEN (I
  1299. $) - 1): GOTO 8220
  1300.  8230  IF  LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 7000: GOTO 8250
  1301.  8240  IF  LEN (I$) = 0 THEN 8000
  1302.  8250  IF CA$ <  > "Y" THEN 8290
  1303.  8260  IF CF = 1 THEN  CALL 36798
  1304.  8270  IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 7000: CALL 36798
  1305. :CF = 1
  1306.  8280  IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 7000: CALL 385
  1307. 39:CF = 0
  1308.  8290 CR = 0: RETURN 
  1309.  8300  IF CL$ = "N" THEN T$ = DA$: RETURN 
  1310.  8310  PR# 4: IN# 4: INPUT "#";T,T,T,T,T,B: INPUT "%";T$
  1311.  8320  PR# 0: POKE 56,102: POKE 57,213: CALL 1002
  1312.  8330  IF TI > T THEN T = TI + (60 - TI) + T
  1313.  8340 TL = CO - (T - TI)
  1314.  8350  IF TL <  = 0 THEN O$ = EL$ + "You are out of Time!  Later.": GOSUB 7000: 
  1315. GOTO 8370
  1316.  8360  RETURN 
  1317.  8370 A$ = OF$: GOSUB 8850: CALL 35848"OFF"
  1318.  8380  PRINT D$"OPENSTATS,L200"C$(15): PRINT D$"WRITESTATS,R"A: PRINT NA$: PRINT
  1319.  FI$: PRINT LE: PRINT AG: PRINT WE: PRINT AR: PRINT EX: PRINT GD: PRINT ST: PRIN
  1320. T TH: PRINT HP: PRINT PA$: PRINT WI: PRINT CH: PRINT LS: PRINT CA: PRINT CL: PRI
  1321. NT AD$: PRINT CP
  1322.  8390  PRINT FD: PRINT PO: PRINT TP: PRINT BA: PRINT PA: PRINT DE: PRINT DA$
  1323.  8400  FOR X = 1 TO SN: PRINT S(X): NEXT 
  1324.  8410  PRINT D$"CLOSE": RETURN 
  1325.  8420  IF  LEN (O$) < 40 THEN 8520
  1326.  8430 Y = 40
  1327.  8440 X = 0
  1328.  8450  IF  MID$ (O$,Y - X,1) = " " THEN B$(0) =  LEFT$ (O$,(Y - 1) - X):B$(0) = 
  1329. B$(0) + EL$ +  RIGHT$ (O$, LEN (O$) - (Y - X)): GOTO 8470
  1330.  8460 X = X + 1: GOTO 8450
  1331.  8470 O$ = B$(0)
  1332.  8480  IF (Y + 40) >  LEN (O$) THEN 8520
  1333.  8490 Y = Y + 39
  1334.  8500 Y = (Y - X) + 1
  1335.  8510  GOTO 8440
  1336.  8520  RETURN 
  1337.  8530  PRINT : PRINT D$"OPEND-"B$(1)C$(20)
  1338.  8540  PRINT D$"APPENDD-"B$(1)
  1339.  8550  PRINT D$"WRITED-"B$(1)
  1340.  8560  PRINT "You Killed " + NA$ + " On " + DA$
  1341.  8570  PRINT 
  1342.  8580  PRINT "You got " +  STR$ (GD) + " Gold."
  1343.  8590  PRINT "You got " +  STR$ (EX) + " Experience."
  1344.  8600  IF AM = 1 THEN  PRINT "You also got his " + WP$
  1345.  8610  IF AM <  > 1 THEN  PRINT "You also got " +  STR$ (B(1)) + " gold for his 
  1346. weapon.":GD = GD + B(1)
  1347.  8620  IF QA = 1 THEN  PRINT "You also got his " + AM$:QA = 0
  1348.  8630  PRINT 
  1349.  8640  PRINT 
  1350.  8650  PRINT D$"CLOSE": RETURN 
  1351.  8660 O$ = EL$ + "Hit Points: " +  STR$ (HP) + " out of " +  STR$ (TH) + EL$ + "
  1352.      Power: " +  STR$ (PO) + " out of " +  STR$ (TP) + EL$ + "      Food: " +  S
  1353. TR$ (FD): GOSUB 7000: RETURN 
  1354.  8670  PRINT D$"OPENCSTAT"C$(17)
  1355.  8680  PRINT D$"APPENDCSTAT"
  1356.  8690  PRINT D$"WRITECSTAT"
  1357.  8700 B$(3) = "[" + NA$ + "]  VS  [" + B$(1) + "]"
  1358.  8710 X = (40 -  LEN (B$(3))) / 2
  1359.  8720 O$ = ""
  1360.  8730  FOR Y = 1 TO X:O$ = O$ + " ": NEXT :O$ = O$ + B$(3)
  1361.  8740  PRINT O$
  1362.  8750  PRINT 
  1363.  8760  IF B$(2) <  > "Dead" THEN B$(3) = "[" + B$(1) + "]": GOTO 8780
  1364.  8770 B$(3) = "*<-" + NA$ + "->*"
  1365.  8780 X = (40 -  LEN (B$(3))) / 2
  1366.  8790 O$ = ""
  1367.  8800  FOR Y = 1 TO X:O$ = O$ + " ": NEXT :O$ = O$ + B$(3)
  1368.  8810  PRINT O$
  1369.  8820  PRINT : PRINT 
  1370.  8830  PRINT D$"CLOSE"
  1371.  8840  RETURN 
  1372.  8850 Y =  VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y =  VAL ( RIGHT$ (A$,1)): POKE 43
  1373. 624,Y:Y =  VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN  PRINT D$"OPEN VC,V"Y
  1374.  8855  IF TC$ = "Y" THEN  POKE 1014,10: POKE 952,215: POKE 953,251
  1375.  8860  RETURN 
  1376.  8870 T = A3: GOSUB 40:B(2) = T:MP = B(4):MW$ = B$(0):T = A4: GOSUB 60:MH = B(4)
  1377. :MH$ = B$(0): RETURN 
  1378.  8880 B$(0) = "":J = 0
  1379.  8890  FOR X = 1 TO  LEN (O$)
  1380.  8900 A$ =  MID$ (O$,X,1)
  1381.  8910  IF X = 1 THEN 8950
  1382.  8920 T =  ASC (A$): IF T < 65 OR T > 90 THEN J = 1: GOTO 8950
  1383.  8930  IF J = 1 THEN J = 0: GOTO 8950
  1384.  8940 T = T + 32:A$ =  CHR$ (T)
  1385.  8950 B$(0) = B$(0) + A$
  1386.  8960  NEXT 
  1387.  8970  RETURN 
  1388.  8980  IF FI <  > 20 THEN 9030
  1389.  8990 O$ = EL$ + "You enter the treasure room of this     treacherous castle, es
  1390. tatic that your   quest is nearly complete.  But wait...  It appears you are not
  1391.  alone in the     room!  It seems that the owner of this"
  1392.  9000 O$ = O$ + EL$ + "Castle is present.  He speaks:  ": GOSUB 7000:O$ = DL$ + 
  1393. "'How dare you disturb my castle!  You   Shall Die a Cruel death Scum!!!" + EL$:
  1394.  GOSUB 7000
  1395.  9010 G(6) = 0: IF HP > TH THEN HP = TH
  1396.  9020 B$(2) = "":MO$ = "N":X = NC: GOSUB 390:X = NC:B$(2) = "On": GOTO 660
  1397.  9030 A$ =  LEFT$ (D$(FI),1)
  1398.  9040 B$ =  RIGHT$ (D$(FI),1)
  1399.  9050 T = 0
  1400.  9060 O$ = DL$ + "[" + C$ + "'s Castle]" + DL$ + "Room " +  STR$ (FI) + DL$: GOS
  1401. UB 7000:B$(2) = "C"
  1402.  9070  IF A$ = "0" THEN 9100
  1403.  9080 X =  ASC (A$) - 65:X = X * 20:T =  INT (20 *  RND (1)) + X
  1404.  9090 Y = 0
  1405.  9100  IF B$ = "0" THEN 9150
  1406.  9110 G(8) =  ASC (B$) - 64:Y =  - 99: GOSUB 2470
  1407.  9120 O$ = EL$ + "You walk into a trap!" + DL$: GOSUB 7000:O$ = "A " + S$(G(8)) 
  1408. + " Spell hit's you doing " +  STR$ (G(3)) + " damage." + EL$: GOSUB 8420: GOSUB
  1409.  7000:HP = HP - G(3)
  1410.  9130  IF HP < 1 THEN O$ = EL$ + "You are Dead!" + EL$: GOTO 1110
  1411.  9140  IF G(3) = 0 AND T > 0 THEN NE$ = "T"
  1412.  9150  IF T > 0 THEN X = T:O$ = DL$ + "There is a monster in the room.....": GOS
  1413. UB 7000: GOTO 2040
  1414.  9160 O$ = EL$ + "Phew!  The room appears to be empty...": GOSUB 7000: GOTO 2870
  1415.  
  1416.  9170 O$ = EL$ + "Enter Castle # to Attack(1-" +  STR$ (US) + ")->": GOSUB 6000
  1417.  9180  IF I$ = "Q" THEN 220
  1418.  9190 X =  VAL (I$): IF X < 1 OR X > US THEN 9170
  1419.  9200  IF A = X THEN 9170
  1420.  9210 AC$ = "Y":NC = X
  1421.  9220  ONERR  GOTO 9250
  1422.  9230  PRINT D$"OPENCASTLES,L39"C$(12): PRINT D$"READCASTLES,R"X: INPUT CS$: PRI
  1423. NT D$"CLOSE"
  1424.  9240  GOTO 9260
  1425.  9250  CALL  - 3288: GOSUB 9380
  1426.  9260  GOSUB 400
  1427.  9270  IF Y =  - 99 THEN Y = 0:O$ = DL$ + "Sorry, that persons Castle has alread
  1428. y  been robbed." + EL$: GOSUB 7000: GOTO 9170
  1429.  9280  IF LE > A1 + FL THEN O$ = EL$ + "You can only attack a User that is " +  
  1430. STR$ (FL) + " levels below you or higher." + EL$: GOSUB 8420: GOSUB 7000: GOTO 9
  1431. 170
  1432.  9290  IF B$(1) = "Empty" THEN O$ = EL$ + "Sorry, that user has been deleted." +
  1433.  EL$: GOTO 9170
  1434.  9300 O$ = EL$ + "Attack " + B$(1) + "'s Castle Y/N->": GOSUB 8420: GOSUB 6000: 
  1435. IF I$ <  > "Y" THEN 9170
  1436.  9310 Y = 0
  1437.  9320  FOR X = 1 TO 38 STEP 2
  1438.  9330 Y = Y + 1:D$(Y) =  MID$ (CS$,X,2)
  1439.  9340  NEXT 
  1440.  9350 MO$ = "R": GOSUB 680:MO$ = "Y":C$ = B$(1):NC$ = B$(2)
  1441.  9360 FI = 1:B$(2) = "C": GOTO 8980
  1442.  9370 O$ = EL$ + "You get half of " + C$ + "'s Treasure which amounts to $" +  S
  1443. TR$ (NC) + " Gold Pieces!" + EL$: GOSUB 8420: GOSUB 7000:GD = GD + NC:FO = 4: GO
  1444. TO 130
  1445.  9380 CS$ = "00000000000000000000000000000000000000": RETURN 
  1446.  
  1447. ]LOAD BRD
  1448. ]LIST
  1449.  
  1450.  10  IF TC$ = "Y" THEN  POKE 1014,0: POKE 952,240: POKE 953,253
  1451.  20  CALL 54915
  1452.  30  IF A > 0 THEN 50
  1453.  40  PRINT  CHR$ (4)"SAVEBRD,S3": PRINT  CHR$ (4)"RUNMA,S6"
  1454.  50 B$(1) = "": ONERR  GOTO 140
  1455.  60 J = 1:BB = 1: GOTO 1120
  1456.  70  IF PB = 1 THEN  GOSUB 8530
  1457.  80 A$ = OF$: GOSUB 9210: CALL 35848"OFF"
  1458.  90 B$ = "B" +  STR$ (BB) + "/": GOSUB 8470: RETURN 
  1459.  100  GOSUB 90:J = 0:MN = N%(AM) + 1
  1460.  110  IF I$ = "N" THEN 8790
  1461.  120  IF B$(1) = "POST" THEN B$(1) = "POST1": GOTO 8790
  1462.  130  GOTO 150
  1463.  140  CALL  - 3288: CALL 54915: GOTO 120
  1464.  150  GOSUB 8380:O$ = DL$ + "[" +  STR$ (TL) + "][Last:" +  STR$ (J) + "/" +  ST
  1465. R$ (AM) + "][?=Menu]->": GOSUB 7000:CR = 1: GOSUB 8300: CALL 54915
  1466.  160  ONERR  GOTO 140
  1467.  170 B$(1) = ""
  1468.  180  IF J < 1 OR J > AM THEN 210
  1469.  190  IF Z(BB) < N%(J) THEN Z(BB) = N%(J)
  1470.  200  IF Z(BB) > N%(AM) THEN Z(BB) = N%(AM)
  1471.  210  IF I$ = "" THEN J = J + 1
  1472.  220  IF J > AM THEN O$ = EL$ + "No More Messages": GOSUB 7000:J = J - 1: GOTO 1
  1473. 20
  1474.  230  IF I$ = "" THEN  GOSUB 1030: GOTO 120
  1475.  240  IF I$ = "N" AND PB = 1 THEN  GOSUB 8530
  1476.  250  IF I$ = "N" THEN 8730
  1477.  260  IF I$ = "E" AND (A = BM OR NA$ = SY$) THEN 1190
  1478.  270  IF I$ = "?" THEN F$ = "BRD.MENU": PRINT D$"OPEN"F$C$(17): PRINT D$"READ"F$
  1479. : HOME :O$ = SC$: GOSUB 7000: GOSUB 8570: GOTO 120
  1480.  280  IF I$ = "Q" AND PB = 1 THEN  GOSUB 8530
  1481.  290  IF I$ = "Q" THEN 8720
  1482.  300  IF I$ = "P" AND LL > 2 THEN O$ = EL$ + "You can only post 3 messages per c
  1483. all.": GOSUB 7000: GOTO 120
  1484.  310  IF I$ <  > "P" THEN 350
  1485.  320  IF NA$ = SY$ THEN 540
  1486.  330  IF PU = 1 OR (PU = 2 AND AD$ = "NO") THEN O$ = EL$ + "Sorry, you are not a
  1487. llowed to post on   this board.": GOSUB 7000: GOTO 120
  1488.  340  GOTO 540
  1489.  350  IF I$ = "K" AND (NA$ = SY$ OR A = BM) THEN 690
  1490.  360  IF I$ = "F" THEN 770
  1491.  370  IF J > 0 AND J <  = AM THEN O$ = DL$: GOSUB 7000: GOSUB 1030: GOTO 120
  1492.  380  IF I$ = "S" THEN 830
  1493.  390  IF I$ <  > "*" THEN 520
  1494.  400  PRINT D$"OPENBOARDS,L55"C$(3): FOR X = 1 TO B1: PRINT D$"READBOARDS,R"X: I
  1495. NPUT I$
  1496.  410  FOR Y = 1 TO 8: INPUT B(Y): NEXT 
  1497.  420 O$ = EL$ + "Name        : " + I$ + " #" +  STR$ (X) + EL$ + "Access      : 
  1498. ":A$ = "Valid Users Only": IF B(6) = 2 THEN A$ = "All Users"
  1499.  430  IF B(5) = 4 THEN A$ = "Password needed"
  1500.  440 O$ = O$ + A$ + EL$ + "Post Access : ": RESTORE : FOR T = 1 TO 6: READ B$(T)
  1501. : NEXT :A$ = B$(B(5))
  1502.  450 O$ = O$ + A$ + EL$ + "Post Under  : ": FOR T = 1 TO 3: READ B$(T): NEXT :A$
  1503.  = B$(B(8))
  1504.  460 O$ = O$ + A$ + EL$ + "Board Master: ":A$ = "": IF B(7) < 10 THEN A$ = "00"
  1505.  470  IF B(7) > 9 AND B(7) < 100 THEN A$ = "0"
  1506.  480 A$ = "[" + A$ +  STR$ (BM) + "]"
  1507.  490 O$ = O$ + "User Number " + A$ + EL$: GOSUB 7000
  1508.  500  NEXT 
  1509.  510  PRINT D$"CLOSE": GOTO 150
  1510.  520  IF I$ = "B" THEN 1070
  1511.  530  GOTO 120
  1512.  540 O$ = EL$ + "[> Post/Leave Message <]" + DL$ + "[Subject]->": GOSUB 7000: PO
  1513. KE 1,128:CR = 1: GOSUB 8330: POKE 1,0:L1$ = I$: IF I$ = "" THEN 120
  1514.  550 D3$ = NA$
  1515.  560  IF PC = 2 THEN O$ = EL$ + "Leave message under fake name? Y/N:": GOSUB 600
  1516. 0: IF I$ = "Y" THEN O$ = EL$ + "Post under what name?->": GOSUB 6000:D3$ = I$
  1517.  570  IF PC = 1 THEN O$ = EL$ + "Leave message Anonymously? Y/N:": GOSUB 6000: I
  1518. F I$ = "Y" THEN D3$ = "Anonymous"
  1519.  575  IF D3$ <  > NA$ THEN D3$ = D3$ + " #?": GOTO 580
  1520.  576 D3$ = D3$ + " #" +  STR$ (A)
  1521.  580  GOSUB 7010: IF  NOT X THEN 120
  1522.  590 TM = TM + 1
  1523.  600 B(0) =  - 99
  1524.  610 O$ = DL$ + "|Subject | [" + L1$ + "]" + EL$ + "|Left By | [" + D3$ + "]" + 
  1525. EL$ + "|Board #" +  STR$ (BB) + "|" + EL$: GOSUB 7000:O$ = EL$ + "[Hold..] Writi
  1526. ng Message": GOSUB 7000: GOSUB 8380
  1527.  620 B(0) = 0:LL = LL + 1
  1528.  630  PRINT D$"OPEN"B$MN",V"V",S"S",D"D: PRINT D$"DELETE"B$MN: PRINT D$"OPEN"B$M
  1529. N: PRINT D$"WRITE"B$MN: PRINT "Posted By: "D3$
  1530.  650  PRINT "Date     : "T$
  1531.  660  PRINT : FOR Z = 1 TO X: PRINT D$(Z): NEXT Z: PRINT D$"CLOSE":AM = AM + 1:T
  1532. $(AM) = L1$:N%(AM) = MN:MN = MN + 1:O$ = " Done!": GOSUB 7000:D3$ = ""
  1533.  665  IF GP$ = "Y" THEN X = LE * 200:GD = GD + X:EX = EX + X:FD = FD + 25:O$ = D
  1534. L$ + "Gold, Experience, and Food added!": GOSUB 7000
  1535.  670  IF AM < AB + 1 THEN PB = 1: GOTO 120
  1536.  680 O$ = DL$ + "[Hold..] Deleteing Msg. 1" + EL$: GOSUB 7000:J = 1: GOTO 720
  1537.  690 O$ = EL$ + "Delete Messages" + DL$ + "Message [CR=Quit] #":CR = 1: GOSUB 70
  1538. 00: GOSUB 930
  1539.  700 O$ = EL$ + "Msg # [" +  STR$ (J) + "]" + EL$ + "Title [" + T$(J) + "]" + DL
  1540. $ + "Delete this ?": GOSUB 7000: GOSUB 8350: IF I$ <  > "Y" THEN 120
  1541.  710 TM = TM - 1
  1542.  720  GOSUB 730: GOTO 120
  1543.  730  PRINT D$"OPEN"B$N%(J)",V"V",S"S",D"D: PRINT D$"CLOSE": PRINT D$"DELETE"B$N
  1544. %(J): IF J > AM THEN 760
  1545.  740 AM = AM - 1
  1546.  750  FOR X = J TO AM:T$(X) = T$(X + 1):N%(X) = N%(X + 1): NEXT X
  1547.  760 PB = 1:O$ = EL$ + "Message Deleted!": GOTO 7000
  1548.  770 O$ = DL$ + "Forward Sequential Read" + DL$ + "Start at [#,CR]:": GOSUB 7000
  1549. :CR = 1: GOSUB 8000
  1550.  780  IF I$ = "Q" THEN 150
  1551.  790 J =  VAL (I$): IF J < 1 OR J > AM THEN 770
  1552.  800 O$ = DL$ + EL$: GOSUB 7000
  1553.  810  GOSUB 1030: GOSUB 960: IF J < AM THEN J = J + 1: GOTO 810
  1554.  820  GOTO 120
  1555.  830 O$ = EL$ + "Scan Messages" + DL$ + "Start [CR=Quit] #": GOSUB 7000: GOSUB 9
  1556. 30
  1557.  840 O$ = EL$: GOSUB 7000
  1558.  850 F = 0:Z = J
  1559.  860 O$ = "    ": IF Z(BB) < N%(J) THEN O$ = "  % "
  1560.  865 O$ = EL$ + O$ + "[" +  RIGHT$ ("(0" +  STR$ (J),2) + "] " + T$(J): GOSUB 70
  1561. 00
  1562.  870  IF J = AM AND B$(2) = "SCAN" THEN 910
  1563.  880  IF J = AM THEN 120
  1564.  890  IF J < Z + 9 THEN J = J + 1: GOTO 860
  1565.  900 O$ = DL$ + "More? ": GOSUB 7000: GOSUB 8350: IF I$ = "Y" THEN Z = J + 1:J =
  1566.  J + 1: GOTO 860
  1567.  910  IF B$(2) = "SCAN" THEN B$(2) = "":J = G(1):O$ = DL$: GOSUB 7000: GOTO 8810
  1568.  
  1569.  920  GOTO 120
  1570.  930 CR = 1: GOSUB 8300: IF I$ = "" THEN  POP : GOTO 120
  1571.  940  IF  NOT J OR J > AM THEN O$ = EL$ + "Message Doesn't Exist!": GOSUB 7000: 
  1572. POP : GOTO 120
  1573.  950  RETURN 
  1574.  960  IF  PEEK (960) = 3 THEN  POP : GOTO 120
  1575.  970  IF  PEEK (960) = 2 THEN  RETURN 
  1576.  980  GOSUB 8380:O$ = EL$ + "[R/e-read CR/next Q/uit->": GOSUB 7000:CR = 1: GOSU
  1577. B 8000
  1578.  990  IF I$ = "N" OR I$ = "" THEN  RETURN 
  1579.  1000  IF I$ = "Q" THEN  POP : GOTO 120
  1580.  1010  IF I$ = "R" THEN  GOSUB 1030: GOTO 960
  1581.  1020 O$ = EL$: GOSUB 7000: GOTO 980
  1582.  1030  IF LR < N%(J) THEN LR = N%(J)
  1583.  1040  IF NN < N%(J) THEN NN = N%(J)
  1584.  1050  IF J > 1 AND N%(J) < N%(J - 1) THEN LR = N%(J)
  1585.  1060 O$ = DL$ + "Message: " +  STR$ (J) + "/" +  STR$ (AM) + EL$ + "Subject: " 
  1586. + T$(J) + EL$: GOSUB 7000:F$ = B$ +  STR$ (N%(J)): GOTO 8550
  1587.  1070  IF PB = 1 THEN O$ = DL$ + "[Hold..] Saving Data" + EL$: GOSUB 7000: GOSUB
  1588.  8530
  1589.  1080  IF I$ = "N" THEN BB = BB + 1:J = BB: GOTO 1120
  1590.  1090 O$ = EL$ + "[Board to Enter (1-" +  STR$ (B1) + ")]->": GOSUB 7000: GOSUB 
  1591. 8300
  1592.  1100  IF J < 1 OR J > B1 THEN 1090
  1593.  1110  IF Z(BB) > N%(AM) THEN Z(BB) = N%(AM)
  1594.  1120  PRINT D$"OPENBOARDS,L55"C$(3): PRINT D$"READBOARDS,R"J: INPUT L1$,V,AB,S,
  1595. D,PU,RU,BM,PC,BP$: PRINT D$"CLOSE":O$ = EL$ + "Entering the " + L1$ + " Board": 
  1596. GOSUB 7000:BB = J
  1597.  1130  IF PU = 4 THEN O$ = DL$ + "A Guard walks up to and says: " + DL$ + "Ok Bu
  1598. d, what's the password?: ": GOSUB 6000: IF I$ <  > BP$ THEN O$ = EL$ + "Trying t
  1599. o sneak by eh?...Get Lost!" + EL$: GOSUB 7000: GOTO 1170
  1600.  1140  IF RU = 1 AND AD$ = "NO" THEN 1160
  1601.  1150  GOTO 100
  1602.  1160 O$ = EL$ + "Sorry, this board is for Validated      users only" + EL$: GOS
  1603. UB 7000
  1604.  1170 O$ = EL$ + "Loading another board..." + EL$:J = J + 1: GOSUB 7000: IF J > 
  1605. B1 THEN 8720
  1606.  1180  GOTO 1120
  1607.  1190  HOME :O$ = SC$: GOSUB 7000
  1608.  1200 O$ = DL$ + "Welcome Board Master!" + DL$ + "What do you want to change?" +
  1609.  DL$ + "1. Title: " + L1$ + EL$ + "2. Who can post: ": GOTO 1220
  1610.  1210  DATA  Sysop Only, Val. users only,All Users,Password needed
  1611.  1220  RESTORE : FOR X = 1 TO 4: READ B$(X): NEXT 
  1612.  1230 O$ = O$ + B$(PU) + EL$ + "3. Who can read: "
  1613.  1240  FOR X = 1 TO 2: READ B$(X): NEXT :O$ = O$ + B$(RU) + EL$ + "4. Mesg. Post
  1614. ed under: ": GOTO 1260
  1615.  1250  DATA  Val. users only,All Users
  1616.  1260  FOR X = 1 TO 3: READ B$(X): NEXT :O$ = O$ + B$(PC) + EL$: IF PU = 4 THEN 
  1617. O$ = O$ + "5. Password: " + BP$
  1618.  1270  GOSUB 7000: GOTO 1290
  1619.  1280  DATA  Anonymous,Any Handle,Actual User Name
  1620.  1290 O$ = DL$ + "Edit Which(S=Save)->": GOSUB 6000
  1621.  1300  IF I$ = "S" THEN  PRINT D$"OPENBOARDS,L55"C$(3): PRINT D$"WRITEBOARDS,R"B
  1622. B: PRINT L1$: PRINT V: PRINT AB: PRINT S: PRINT D: PRINT PU: PRINT RU: PRINT BM:
  1623.  PRINT PC: PRINT BP$: PRINT D$"CLOSE":O$ = DL$ + "Done!": GOSUB 7000: GOTO 150
  1624.  1310 Y =  VAL (I$): IF Y = 0 OR I$ = "Q" THEN 150
  1625.  1311  IF Y <  > 1 THEN 1320
  1626.  1312  POKE 1,128:O$ = EL$ + "Enter new Title->": GOSUB 6000:L1$ = I$: IF  LEN (
  1627. I$) > 25 THEN O$ = EL$ + "Too Long...25 char max." + EL$: GOSUB 7000: GOTO 1311
  1628.  1315  POKE 1,0: GOTO 1190
  1629.  1320  RESTORE : FOR X = 1 TO 4: READ B$(X): NEXT 
  1630.  1330  IF Y = 2 THEN O$ = DL$ + "Who can post:" + DL$:Z = 4: GOSUB 1400:PU = X: 
  1631. GOTO 1190
  1632.  1340  FOR X = 1 TO 2: READ B$(X): NEXT 
  1633.  1350  IF Y = 3 THEN O$ = "Who can read:" + DL$:Z = 2: GOSUB 1400:RU = X: GOTO 1
  1634. 190
  1635.  1360  FOR X = 1 TO 3: READ B$(X): NEXT 
  1636.  1370  IF Y = 4 THEN O$ = "Message posted under:" + DL$:Z = 3: GOSUB 1400:PC = X
  1637. : GOTO 1190
  1638.  1380  IF Y = 5 THEN O$ = EL$ + "Enter new Password: ": GOSUB 6000:BP$ = I$: IF 
  1639.  LEN (I$) > 7 THEN O$ = EL$ + "Too long.  7 Char Max." + EL$: GOSUB 7000: GOTO 1
  1640. 380
  1641.  1390  GOTO 1190
  1642.  1400  FOR X = 1 TO Z:O$ = O$ +  STR$ (X) + ". " + B$(X) + EL$: NEXT :O$ = O$ + 
  1643. EL$ + "Which->": GOSUB 6000:X =  VAL (I$): IF X < 1 OR X > Z THEN 1400
  1644.  1410  RETURN 
  1645.  6000  GOSUB 7000: GOSUB 8000: RETURN 
  1646.  7000  & B / O$: POKE 960,0: RETURN 
  1647.  7010  HOME :O$ = SC$ + EL$ + "  [" +  STR$ (ML) + "] Lines - [/EX] Ends  [/S] S
  1648. aves": GOSUB 7000:O$ = EL$ + "[/UP] Redo last line  [/LN] Line Number" + DL$: GO
  1649. SUB 7000:X = 1
  1650.  7015  IF CA$ <  > "Y" THEN 7030
  1651.  7020  POKE 36996,76: POKE 36998,142
  1652.  7030 CR = 1: POKE 1,128: GOSUB 8000:D$(X) = I$: POKE 1,0: IF  PEEK (872) = 1 TH
  1653. EN  POKE 0,VW
  1654.  7040  IF I$ = "/EX" OR I$ = "/ex" THEN D$(X) = "": GOTO 7120
  1655.  7050  IF I$ = "/UP" OR I$ = "/up" AND X > 1 THEN O$ = "[Retype the line]" + EL$
  1656. : GOSUB 7000:X = X - 1: GOTO 7030
  1657.  7060  IF I$ = "/S" OR I$ = "/s" THEN D$(X) = "":I$ = "S": GOTO 7160
  1658.  7070  IF I$ = "/LN" OR I$ = "/ln" THEN O$ = "[Line # " +  STR$ (X) + "]" + EL$:
  1659.  GOSUB 7000:X = X - 1
  1660.  7080  IF X = ML - 5 THEN O$ = "[5] More lines" + EL$: GOSUB 7000
  1661.  7090  POKE 38689,0: IF  PEEK (36712) = 1 THEN  POKE 0,VW
  1662.  7100 X = X + 1: IF X <  = ML THEN 7030
  1663.  7110 O$ = EL$ + "That's [" +  STR$ (ML) + "] lines" + EL$: GOSUB 7000
  1664.  7120 O$ = EL$ + "[Edit/S/?]->": GOSUB 7000: GOSUB 8370
  1665.  7130  IF I$ = "?" THEN O$ = DL$ + "S)ave, L)ist, C)ontinue, F)ix, Q)uit" + EL$:
  1666.  GOSUB 7000: GOTO 7120
  1667.  7140  IF I$ = "Q" THEN  GOSUB 7350:X = 0: POKE 36996,169: POKE 36998,32:O$ = EL
  1668. $ + "[Message Aborted!]": GOTO 7000
  1669.  7150  IF I$ = "L" THEN A$ = "": GOSUB 7290: GOTO 7120
  1670.  7160  IF I$ = "S" OR I$ = "O" THEN X = X - 1: POKE 36996,169: POKE 36998,32: RE
  1671. TURN 
  1672.  7170  IF I$ = "N" THEN  GOSUB 7350:O$ = EL$: GOSUB 7000: GOTO 7010
  1673.  7180  IF I$ = "F" THEN 7210
  1674.  7190  IF I$ = "C" THEN A$ = "":Z = X - 1:F = Z - 3:F = F * (F >  - 1) + 1: GOSU
  1675. B 7320:X = X - 1: GOTO 7100
  1676.  7200  GOTO 7120
  1677.  7210 O$ = EL$ + "List Lines [Y/N]:": GOSUB 7000: GOSUB 8370
  1678.  7220  IF I$ = "N" THEN 7250
  1679.  7230  IF I$ = "Y" THEN A$ = "X": GOSUB 7290: GOTO 7250
  1680.  7240  GOTO 7210
  1681.  7250 O$ = DL$ + "Edit Line [CR=Quit] #": GOSUB 7000:CR = 1: GOSUB 8300
  1682.  7260  IF I$ = "" THEN 7120
  1683.  7270  IF J < 1 OR J >  = X THEN O$ = EL$ + "[Line Doesn't Exist!]" + EL$: GOSUB
  1684.  7000: GOTO 7120
  1685.  7280 A$ = "[" +  RIGHT$ ("0" +  STR$ (J) + "] ",4):O$ = EL$ + A$ + D$(J) + EL$ 
  1686. + A$: GOSUB 7000:CR = 1: POKE 1,128: GOSUB 8000:D$(J) = I$: POKE 1,0: GOTO 7210
  1687.  7290 O$ = DL$ + "List from [CR=Lists all] #": GOSUB 7000:CR = 1: GOSUB 8300:F =
  1688.  1:Z = X - 1: IF I$ = "" THEN 7310
  1689.  7300 F = J:O$ = "       To [CR=To The End] #": GOSUB 7000:CR = 1: GOSUB 8300:Z 
  1690. = J: IF I$ = "" THEN Z = X - 1
  1691.  7310  IF F < 1 OR Z >  = X THEN O$ = EL$ + "[Line # Doesn't Exist!]" + EL$: GOT
  1692. O 7000
  1693.  7320 O$ = EL$: GOSUB 7000: IF X < 2 THEN  RETURN 
  1694.  7330  FOR J = F TO Z: IF A$ > "" THEN A$ = "[" +  RIGHT$ ("0" +  STR$ (J),2) + 
  1695. "] "
  1696.  7340 O$ = A$ + D$(J) + EL$: GOSUB 7000: NEXT J: RETURN 
  1697.  7350  IF X > 1 THEN O$ = EL$ + "Verify? [Y/N]:": GOSUB 7000: GOSUB 8370: IF I$ 
  1698. <  > "Y" THEN  POP : GOTO 7120
  1699.  7360  RETURN 
  1700.  8000 CC = 0: IF  PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
  1701. 8539:CF = 9
  1702.  8010  IF CF = 9 AND  PEEK (1) <  > 128 THEN CF = 1:CA$ = "Y"
  1703.  8020  IF CA$ <  > "Y" OR  LEN (CN$) > 1 THEN 8040
  1704.  8030  IF CF = 1 THEN  CALL 38539
  1705.  8040  IF  PEEK (1) = 128 THEN 8140
  1706.  8050  IF  LEN (CN$) = 0 THEN 8140
  1707.  8060  FOR T = 1 TO  LEN (CN$)
  1708.  8070  IF  MID$ (CN$,T,1) = "," THEN I$ =  MID$ (CN$,1,T - 1):CN$ =  RIGHT$ (CN$
  1709. , LEN (CN$) - T): GOTO 8110
  1710.  8080  IF  MID$ (CN$,T,1) = "#" THEN I$ =  MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
  1711. 0
  1712.  8090  NEXT 
  1713.  8100  POKE 960,0
  1714.  8110  IF O$ = "STOP" THEN O$ = "": GOTO 8210
  1715.  8120  IF  LEN (I$) = 0 THEN 8050
  1716.  8130 O$ = I$ + EL$: GOSUB 7000: GOTO 8290
  1717.  8140  POKE 960,0: & A / SP$:I$ =  MID$ (SP$,1): IF  PEEK (961) THEN 8690
  1718.  8150 CN$ = I$ + "#":O$ = "STOP"
  1719.  8160  IF  LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
  1720.  8170  POKE 961,0: IF  PEEK (960) = 255 THEN CC = CC + 1: IF CC > 1 THEN 8460
  1721.  8180  IF  PEEK (960) = 255 OR I$ = "OFF" THEN 70
  1722.  8190  IF  PEEK (1) = 128 THEN CN$ = "": GOTO 8230
  1723.  8200  IF  LEN (CN$) > 0 THEN 8060
  1724.  8210  IF  LEN (I$) <  > 1 AND  RIGHT$ (I$,1) = " " THEN I$ =  LEFT$ (I$, LEN (I
  1725. $) - 1): GOTO 8210
  1726.  8220  IF  LEN (I$) <  > 1 AND  LEFT$ (I$,1) = " " THEN I$ =  RIGHT$ (I$, LEN (I
  1727. $) - 1): GOTO 8220
  1728.  8230  IF  LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 7000: GOTO 8250
  1729.  8240  IF  LEN (I$) = 0 THEN 8000
  1730.  8250  IF CA$ <  > "Y" THEN 8290
  1731.  8260  IF CF = 1 THEN  CALL 36798
  1732.  8270  IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 7000: CALL 36798
  1733. :CF = 1
  1734.  8280  IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 7000: CALL 385
  1735. 39:CF = 0
  1736.  8290 CR = 0: RETURN 
  1737.  8300  GOSUB 8000: IF I$ = "" THEN  RETURN 
  1738.  8310 J =  INT ( VAL (I$)): IF J < 0 THEN J = 0
  1739.  8320  RETURN 
  1740.  8330  POKE 2,255: GOSUB 8000: POKE 2,0: IF I$ = "" THEN  RETURN 
  1741.  8340  RETURN 
  1742.  8350  GOSUB 8000: IF I$ = "" THEN  RETURN 
  1743.  8360  RETURN 
  1744.  8370  GOTO 8000
  1745.  8380  IF CL$ <  > "Y" THEN T$ = DA$: RETURN 
  1746.  8390  PR# 4: IN# 4: INPUT "#";T,T,T,T,T,B: INPUT "%";T$
  1747.  8400  IF TI = 0 THEN TI = T
  1748.  8410  PR# 0: POKE 56,102: POKE 57,213: CALL 1002
  1749.  8420  IF TI > T THEN T = TI + (60 - TI) + T
  1750.  8430 TL = CO - (T - TI)
  1751.  8440  IF B(0) =  - 99 THEN 8460
  1752.  8450  IF TL <  = 0 THEN O$ = EL$ + "You are out of Time!  Later.": GOSUB 7000: 
  1753. POP : GOTO 70
  1754.  8460  RETURN 
  1755.  8470 O$ = EL$: GOSUB 7000
  1756.  8480  PRINT D$"OPENS"BB",V"V",S"S",D"D: PRINT D$"READS"BB
  1757.  8490  & E / ZZ$:AM =  VAL (ZZ$):O$ = DL$ + "Active Messages: " +  STR$ (AM): GO
  1758. SUB 7000
  1759.  8500 O$ = DL$ + "Loading Titles....": GOSUB 7000: IF ZZ$ =  CHR$ (0) THEN 8520
  1760.  8510  FOR X = 1 TO AM: INPUT N%(X),T$(X): NEXT X
  1761.  8520  PRINT D$"CLOSE":BL = BB:NN = NB:O$ = "Done!": GOSUB 7000: RETURN 
  1762.  8530  PRINT D$"OPENS"BB",V"V",S"S",D"D: PRINT D$"WRITES"BB: PRINT AM: FOR X = 1
  1763.  TO AM: PRINT N%(X)","T$(X): NEXT X: PRINT D$"CLOSE"
  1764.  8540 PB = 0: RETURN 
  1765.  8550 O$ = EL$: GOSUB 7000: IF RT = 2 THEN O$ = SC$ + EL$: GOSUB 7000
  1766.  8560  POKE 960,0: PRINT D$"OPEN"F$",V"V",S"S",D"D: PRINT D$"READ"F$
  1767.  8570  IF CF <  > 1 THEN 8640
  1768.  8580 C = 1
  1769.  8590  & E / ZZ$: IF  LEN (ZZ$) > 0 THEN A$ = ZZ$: IF  ASC ( LEFT$ (A$,1)) = 0 T
  1770. HEN C =  - 1: GOTO 8620
  1771.  8600 C = C + 1:O$ = EL$ + ZZ$: GOSUB 7000
  1772.  8610  IF C <  > 16 THEN 8590
  1773.  8620 O$ = DL$ + "CR) Continue or Q)uit:":CR = 1: GOSUB 6000: IF I$ = "Q" OR C =
  1774.   - 1 THEN 8650
  1775.  8630  GOTO 8580
  1776.  8640  & C
  1777.  8650  PRINT D$"CLOSE": IF  PEEK (960) = 255 THEN 70
  1778.  8660  IF  PEEK (960) =  PEEK (970) THEN  POKE 960,3:O$ = EL$: GOTO 7000
  1779.  8670  IF  PEEK (960) =  PEEK (971) THEN  POKE 960,2
  1780.  8680  RETURN 
  1781.  8690 A$ = CH$: GOSUB 9210: CALL 35848"CHAT"
  1782.  8700  RETURN 
  1783.  8710 O$ = DL$ + "Return to Main Dungeon? [Y/N]:": GOSUB 7000: GOSUB 8370: IF I$
  1784.  <  > "Y" THEN 120
  1785.  8720 O$ = DL$ + "[%] Hold:  Heading back to Main.....[%]" + EL$: GOSUB 7000:A$ 
  1786. = MA$: GOSUB 9210: CALL 35848"MAIN"
  1787.  8730 O$ = DL$ + "Do you want a Command Line? Y/N: ": GOSUB 6000: IF I$ <  > "Y"
  1788.  AND I$ <  > "N" THEN 8730
  1789.  8740 B$(8) = I$
  1790.  8750 O$ = EL$ + "Enter Starting Board(1-" +  STR$ (B1) + ")->": GOSUB 6000:X = 
  1791.  VAL (I$): IF X < 1 OR X > B1 THEN 8750
  1792.  8760 I$ = "N"
  1793.  8770  IF BB = X THEN 8790
  1794.  8780 BB = X - 1: GOTO 1070
  1795.  8790  FOR X = 1 TO AM: IF Z(BB) = N%(X) THEN J = X: GOTO 8810
  1796.  8800  NEXT 
  1797.  8810 O$ = DL$: GOSUB 7000: IF J = AM AND BB = B1 THEN O$ = DL$ + "No New Messag
  1798. es." + DL$ + "[Quickscan Complete!]": GOSUB 7000: GOTO 120
  1799.  8820  IF J = AM THEN O$ = "No New Messages On Board " +  STR$ (BB) + "." + DL$:
  1800.  GOSUB 7000:I$ = "N": GOTO 1070
  1801.  8830  IF B$(1) = "POST1" THEN B$(1) = "": GOTO 9110
  1802.  8840 O$ = "New Messages on Board " +  STR$ (BB) + "-> [" +  STR$ (AM - J) + "]"
  1803. : GOSUB 7000
  1804.  8850 CR = 1:O$ = DL$ + "[?/ Menu  [CR] Continue]->": GOSUB 6000
  1805.  8860  IF I$ = "" THEN I$ = "N": GOTO 9000
  1806.  8870  IF I$ <  > "?" THEN 8890
  1807.  8880 O$ = EL$ + "E)nter Starting Number" + EL$ + "R)eset Command Line" + EL$ + 
  1808. "S)kip Board" + EL$ + "Q)uit" + EL$ + "V)iew New Titles" + DL$: GOSUB 7000: GOTO
  1809.  8840
  1810.  8890  IF I$ = "Q" THEN 120
  1811.  8900  IF I$ = "S" AND BB = B1 THEN O$ = EL$ + "[Quickscan Complete!]": GOSUB 70
  1812. 00: GOTO 120
  1813.  8910  IF I$ = "S" THEN I$ = "N": GOTO 1070
  1814.  8920  IF I$ = "V" THEN G(1) = J:B$(2) = "SCAN":J = J + 1
  1815.  8930  IF I$ = "V" THEN 840
  1816.  8940  IF I$ = "E" THEN 8980
  1817.  8950  IF I$ <  > "R" THEN 8810
  1818.  8960  IF B$(8) = "Y" THEN B$(8) = "N":O$ = EL$ + "Command Line Off": GOSUB 7000
  1819. : GOTO 8810
  1820.  8970 B$(8) = "Y":O$ = EL$ + "Command Line On": GOSUB 7000: GOTO 8810
  1821.  8980  IF I$ = "E" THEN O$ = EL$ + "Enter Starting #": GOSUB 6000:X =  VAL (I$):
  1822.  IF X < J + 1 OR X > AM THEN O$ = EL$ + "Invalid Number!":I$ = "E": GOTO 8980
  1823.  8990 J = X - 1
  1824.  9000 J = J + 1
  1825.  9010  IF J > AM AND BB = B1 THEN O$ = DL$ + "[Quickscan Complete!]": GOSUB 7000
  1826. : GOTO 120
  1827.  9020  IF J > AM AND BB <  > B1 + 1 THEN I$ = "N": GOTO 1070
  1828.  9030  GOSUB 8380: GOSUB 1030:Z(BB) = N%(J)
  1829.  9040  IF B$(8) = "Y" THEN 9110
  1830.  9050  GOTO 9000
  1831.  9060  IF I$ = "Q" THEN 120
  1832.  9070  IF I$ = "" THEN 9000
  1833.  9080  IF I$ = "R" THEN 9030
  1834.  9090  IF I$ = "S" AND J = AM THEN J = J + 1: GOTO 9010
  1835.  9100 J = J + 1:Z(BB) = N%(J)
  1836.  9110 O$ = DL$ + "Next Title ["
  1837.  9120  IF J = AM THEN O$ = O$ + "End of Board " +  STR$ (BB) + ".]": GOTO 9140
  1838.  9130 O$ = O$ + T$(J + 1) + "]"
  1839.  9140 O$ = O$ + DL$
  1840.  9150 O$ = O$ + "[P/ost Q/uit R/e-Read S/kip [CR]/next]" + DL$ + "Which->"
  1841.  9160 CR = 1
  1842.  9170  GOSUB 6000
  1843.  9171  IF I$ <  > "P" THEN 9190
  1844.  9175  IF (PU = 1 OR (PU = 2 AND AD$ = "NO")) AND SY$ <  > NA$ THEN O$ = EL$ + "
  1845. Sorry, you are not allowed to post on   this board.": GOSUB 7000: GOTO 9110
  1846.  9180 B$(1) = "POST": GOTO 540
  1847.  9190  IF I$ <  > "R" AND I$ <  > "Q" AND I$ <  > "S" AND I$ <  > "" THEN 9110
  1848.  9200  GOTO 9060
  1849.  9210 Y =  VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y =  VAL ( RIGHT$ (A$,1)): POKE 43
  1850. 624,Y:Y =  VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN  PRINT D$"OPEN VC,V"Y
  1851.  9215  IF TC$ = "Y" THEN  POKE 1014,10: POKE 952,215: POKE 953,251
  1852.  9220  RETURN 
  1853.  
  1854. ]O
  1855. ]
  1856. ]
  1857. ]
  1858. ]LOAD CASTLE EDITOR
  1859. ]LIST
  1860.  
  1861.  5  IF TC$ = "Y" THEN  POKE 1014,0: POKE 952,240: POKE 953,253
  1862.  10  CALL 54915:Y = 0
  1863.  20  IF A > 0 THEN 40
  1864.  30  PRINT  CHR$ (4)"SAVECASTLE EDITOR,S3": PRINT  CHR$ (4)"RUNGA,S6"
  1865.  40 L = 1
  1866.  50  IF LE > 1 THEN L = 2
  1867.  60  IF LE > 5 THEN L = 3
  1868.  70  IF LE > 10 THEN L = 4
  1869.  80  IF LE > 17 THEN L = 5
  1870.  90  IF LE > 25 THEN L = 6
  1871.  100  IF LE > 45 THEN L = 7
  1872.  110  IF LE > 65 THEN L = 8
  1873.  120  IF LE > 85 THEN L = 9
  1874.  130  IF LE > 95 THEN L = 10
  1875.  140  ONERR  GOTO 170
  1876.  150  PRINT D$"OPENCASTLES,L39"C$(12): PRINT D$"READCASTLES,R"A: INPUT CS$: PRIN
  1877. T D$"CLOSE"
  1878.  160  GOTO 180
  1879.  170  CALL  - 3288:CS$ = "00000000000000000000000000000000000000"
  1880.  180  FOR X = 1 TO 38 STEP 2
  1881.  190 Y = Y + 1
  1882.  200 D$(Y) =  MID$ (CS$,X,2)
  1883.  210  NEXT 
  1884.  220  GOSUB 8460
  1885.  230  HOME 
  1886.  240  ONERR  GOTO 260
  1887.  250  GOTO 270
  1888.  260  CALL  - 3288: GOTO 230
  1889.  270 O$ = SC$ + DL$ + "           -=>Castle Editor<=-" + DL$ + "1. Edit Castle" 
  1890. + EL$ + "2. Pay Rent/Fees" + EL$ + "3. Castle Description/Help File" + DL$ + "[Y
  1891. ou owe $" +  STR$ (R) + "][Cmd]->"
  1892.  280  GOSUB 6000
  1893.  290  IF I$ = "Q" THEN 8320
  1894.  300  IF I$ = "3" THEN F$ = "CASTLE.DES":O$ = SC$: GOSUB 7000: HOME : GOSUB 8590
  1895. :O$ = EL$ + "[Press Return]":CR = 1: GOSUB 6000
  1896.  310  IF I$ = "1" THEN 370
  1897.  320  IF I$ <  > "2" THEN 230
  1898.  330  GOSUB 8460
  1899.  340  IF GD < R THEN O$ = EL$ + "You don't have enought gold!" + DL$ + "[Press R
  1900. eturn]":CR = 1: GOSUB 6000: GOTO 230
  1901.  350 UU = UU + R
  1902.  360 GD = GD - R:O$ = EL$ + "Your payment has been registerd.": GOSUB 7000: GOSU
  1903. B 8460: GOTO 230
  1904.  370  HOME :T = 0
  1905.  380 O$ = SC$ + "Room # / Monster / Trap" + DL$: GOSUB 7000
  1906.  390  FOR X = 1 TO 19
  1907.  400 T = T + 1
  1908.  410 O$ =  STR$ (X) + "] "
  1909.  420 A$ =  LEFT$ (D$(T),1)
  1910.  430 B$ =  RIGHT$ (D$(T),1)
  1911.  440  IF A$ = "0" THEN O$ = O$ + " - ": GOTO 470
  1912.  450 Y =  ASC (A$) - 64
  1913.  460 O$ = O$ + "Lev. " +  STR$ (Y) + " Mon. -"
  1914.  470  IF B$ = "0" THEN 500
  1915.  480 Y =  ASC (B$) - 64
  1916.  490 O$ = O$ + " " + S$(Y)
  1917.  500 O$ = O$ + EL$: GOSUB 7000
  1918.  510  NEXT 
  1919.  520 O$ = EL$ + "Edit Which(1-19)->": GOSUB 6000
  1920.  530  IF I$ = "Q" THEN CP$ = "N": GOSUB 8410: GOSUB 8460: GOTO 230
  1921.  540 B(1) =  VAL (I$): IF B(1) < 1 OR B(1) > 19 THEN 520
  1922.  550 O$ = EL$ + "Monster in the Room? Y/N->": GOSUB 6000: IF I$ = "N" THEN A$ = 
  1923. "0": GOTO 660
  1924.  560  HOME :O$ = SC$ + "Edit room #" +  STR$ (B(1)) + DL$ + "Which Monster: " + 
  1925. DL$ + "0] No monster in Room" + EL$: GOSUB 7000
  1926.  570 O$ = "1-" +  STR$ (L) + "] Level Monsters" + EL$: GOSUB 7000
  1927.  580 O$ = EL$ + "Which(?=Menu)->": GOSUB 6000:X =  VAL (I$): IF I$ = "?" THEN 56
  1928. 0
  1929.  590  IF I$ = "Q" THEN 370
  1930.  600  IF X < 0 OR X > L THEN 580
  1931.  610  IF X = 0 THEN A$ = "0": GOTO 660
  1932.  620 B(2) = X * X * X * 100:O$ = EL$ + "A Level " +  STR$ (X) + " Monster's" + E
  1933. L$ + "Rent per call is $" +  STR$ (B(2)) + EL$ + "Rent monster? Y/N->": GOSUB 60
  1934. 00: IF I$ <  > "Y" THEN 580
  1935.  630 A$ =  LEFT$ (D$(B(1)),1):B$ =  RIGHT$ (D$(B(1)),1)
  1936.  640 Y = 64 + X
  1937.  650 A$ =  CHR$ (Y)
  1938.  660 O$ = EL$ + "Spell Trap in the Room? Y/N->": GOSUB 6000: IF I$ = "N" THEN B$
  1939.  = "0": GOTO 820
  1940.  670  HOME :O$ = SC$ + "Edit Room #" +  STR$ (B(1)) + DL$ + "Which Spell Trap:" 
  1941. + DL$ + "0) No Spell" + EL$: GOSUB 7000
  1942.  680  FOR X = 1 TO 26
  1943.  690  IF S$(X) = "Death" OR S$(X) = "Negate" THEN 710
  1944.  700  IF U(X) = 0 THEN 720
  1945.  710 O$ =  STR$ (X) + ") " + S$(X) + EL$: GOSUB 7000
  1946.  720  NEXT 
  1947.  730 O$ = EL$ + "Which(?=Menu)->": GOSUB 6000
  1948.  740  IF I$ = "Q" THEN 370
  1949.  750  IF I$ = "?" THEN 660
  1950.  760  IF I$ = "0" THEN B$ = "0": GOTO 820
  1951.  770 X =  VAL (I$): IF X < 1 OR X > 26 THEN 730
  1952.  780  IF U(X) = 0 AND S$(X) <  > "Death" AND S$(X) <  > "Negate" THEN 730
  1953.  790 Y = 100 * X * X
  1954.  800 O$ = EL$ + "A " + S$(X) + " Spell Trap" + EL$ + "Rent per call is $" +  STR
  1955. $ (Y) + EL$ + "Rent Trap? Y/N->": GOSUB 6000: IF I$ <  > "Y" THEN 730
  1956.  810 Y = 64 + X:B$ =  CHR$ (Y)
  1957.  820 D$(B(1)) = A$ + B$: GOTO 370
  1958.  6000  GOSUB 7000: GOSUB 8000: RETURN 
  1959.  7000  & B / O$: POKE 960,0: RETURN 
  1960.  8000 CC = 0: IF  PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
  1961. 8539:CF = 9
  1962.  8010  IF CF = 9 AND  PEEK (1) <  > 128 THEN CF = 1:CA$ = "Y"
  1963.  8020  IF CA$ <  > "Y" OR  LEN (CN$) > 1 THEN 8040
  1964.  8030  IF CF = 1 THEN  CALL 38539
  1965.  8040  IF  PEEK (1) = 128 THEN 8140
  1966.  8050  IF  LEN (CN$) = 0 THEN 8140
  1967.  8060  FOR T = 1 TO  LEN (CN$)
  1968.  8070  IF  MID$ (CN$,T,1) = "," THEN I$ =  MID$ (CN$,1,T - 1):CN$ =  RIGHT$ (CN$
  1969. , LEN (CN$) - T): GOTO 8110
  1970.  8080  IF  MID$ (CN$,T,1) = "#" THEN I$ =  MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
  1971. 0
  1972.  8090  NEXT 
  1973.  8100  POKE 960,0
  1974.  8110  IF O$ = "STOP" THEN O$ = "": GOTO 8210
  1975.  8120  IF  LEN (I$) = 0 THEN 8050
  1976.  8130 O$ = I$ + EL$: GOSUB 7000: GOTO 8290
  1977.  8140  POKE 960,0: & A / SP$:I$ =  MID$ (SP$,1): IF  PEEK (961) THEN 8310
  1978.  8150 CN$ = I$ + "#":O$ = "STOP"
  1979.  8160  IF  LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
  1980.  8170  POKE 961,0: IF  PEEK (960) = 255 THEN CC = CC + 1: FOR T = 1 TO 500: NEXT
  1981.  : IF CC > 1 OR I$ = "OFF" THEN 8300
  1982.  8180  IF  PEEK (960) = 255 THEN 8140
  1983.  8190  IF  PEEK (1) = 128 THEN CN$ = "": GOTO 8230
  1984.  8200  IF  LEN (CN$) > 0 THEN 8060
  1985.  8210  IF  LEN (I$) <  > 1 AND  RIGHT$ (I$,1) = " " THEN I$ =  LEFT$ (I$, LEN (I
  1986. $) - 1): GOTO 8210
  1987.  8220  IF  LEN (I$) <  > 1 AND  LEFT$ (I$,1) = " " THEN I$ =  RIGHT$ (I$, LEN (I
  1988. $) - 1): GOTO 8220
  1989.  8230  IF  LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 7000: GOTO 8250
  1990.  8240  IF  LEN (I$) = 0 THEN 8000
  1991.  8250  IF CA$ <  > "Y" THEN 8290
  1992.  8260  IF CF = 1 THEN  CALL 36798
  1993.  8270  IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 7000: CALL 36798
  1994. :CF = 1
  1995.  8280  IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 7000: CALL 385
  1996. 39:CF = 0
  1997.  8290 CR = 0: RETURN 
  1998.  8300 A$ = OF$: GOSUB 8390: CALL 35848"OFF"
  1999.  8310 A$ = CH$: GOSUB 8390: CALL 35848"CHAT"
  2000.  8320 A$ = MA$: GOSUB 8390:O$ = EL$ + "[Hold...] Transporting to Main" + EL$: GO
  2001. SUB 7000: CALL 35848"MAIN"
  2002.  8330  IF  LEN (O$) < 40 OR  LEN (O$) > 79 THEN  RETURN 
  2003.  8340 X = 0
  2004.  8350  IF  MID$ (O$,40 - X,1) = " " THEN B$(0) =  LEFT$ (O$,39 - X):B$(0) = B$(0
  2005. ) + EL$ +  RIGHT$ (O$, LEN (O$) - (40 - X)): GOTO 8370
  2006.  8360 X = X + 1: GOTO 8350
  2007.  8370 O$ = B$(0)
  2008.  8380  RETURN 
  2009.  8390 Y =  VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y =  VAL ( RIGHT$ (A$,1)): POKE 43
  2010. 624,Y:Y =  VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN  PRINT D$"OPEN VC,V"Y
  2011.  8395  IF TC$ = "Y" THEN  POKE 1014,10: POKE 952,215: POKE 953,251
  2012.  8400  RETURN 
  2013.  8410 CS$ = ""
  2014.  8420  FOR X = 1 TO 19
  2015.  8430 CS$ = CS$ + D$(X)
  2016.  8440  NEXT 
  2017.  8450  PRINT D$"OPENCASTLES,L39"C$(12): PRINT D$"WRITECASTLES,R"A: PRINT CS$: PR
  2018. INT D$"CLOSE": RETURN 
  2019.  8460 R = 0
  2020.  8470  FOR X = 1 TO 19
  2021.  8480 A$ =  LEFT$ (D$(X),1)
  2022.  8490 B$ =  RIGHT$ (D$(X),1)
  2023.  8500  IF A$ = "0" THEN 8530
  2024.  8510 Y =  ASC (A$) - 64
  2025.  8520 R = R + (Y * Y * Y * 100)
  2026.  8530  IF B$ = "0" THEN 8560
  2027.  8540 Y =  ASC (B$) - 64
  2028.  8550 R = R + (Y * Y * 100)
  2029.  8560  NEXT 
  2030.  8570 R = R - UU: IF R < 1 THEN R = 0:CP$ = "Y"
  2031.  8580  RETURN 
  2032.  8590  POKE 960,0: PRINT D$"OPEN"F$""C$(17): PRINT  CHR$ (4)"READ"F$
  2033.  8600  IF CF <  > 1 THEN 8670
  2034.  8610 C = 1
  2035.  8620  & E / ZZ$: IF  LEN (ZZ$) > 0 THEN A$ = ZZ$: IF  ASC ( LEFT$ (A$,1)) = 0 T
  2036. HEN C =  - 1: GOTO 8650
  2037.  8630 C = C + 1:O$ = EL$ + ZZ$: GOSUB 7000
  2038.  8640  IF C <  > 16 THEN 8620
  2039.  8650 O$ = DL$ + "CR) Continue or Q)uit:":CR = 1: GOSUB 6000: IF I$ = "Q" OR C =
  2040.   - 1 THEN 8680
  2041.  8660  GOTO 8610
  2042.  8670  & C
  2043.  8680  PRINT D$"CLOSE": IF  PEEK (960) = 255 THEN 8430
  2044.  8690  IF  PEEK (960) =  PEEK (970) THEN  POKE 960,3:O$ = EL$: GOTO 7000
  2045.  8700  IF  PEEK (960) =  PEEK (971) THEN  POKE 960,2
  2046.  8710  RETURN 
  2047.  
  2048. ]LOAD CASTLE EDITOR
  2049. ]LIST
  2050.  
  2051.  5  IF TC$ = "Y" THEN  POKE 1014,0: POKE 952,240: POKE 953,253
  2052.  10  CALL 54915:Y = 0
  2053.  20  IF A > 0 THEN 40
  2054.  30  PRINT  CHR$ (4)"SAVECASTLE EDITOR,S3": PRINT  CHR$ (4)"RUNGA,S6"
  2055.  40 L = 1
  2056.  50  IF LE > 1 THEN L = 2
  2057.  60  IF LE > 5 THEN L = 3
  2058.  70  IF LE > 10 THEN L = 4
  2059.  80  IF LE > 17 THEN L = 5
  2060.  90  IF LE > 25 THEN L = 6
  2061.  100  IF LE > 45 THEN L = 7
  2062.  110  IF LE > 65 THEN L = 8
  2063.  120  IF LE > 85 THEN L = 9
  2064.  130  IF LE > 95 THEN L = 10
  2065.  140  ONERR  GOTO 170
  2066.  150  PRINT D$"OPENCASTLES,L39"C$(12): PRINT D$"READCASTLES,R"A: INPUT CS$: PRIN
  2067. T D$"CLOSE"
  2068.  160  GOTO 180
  2069.  170  CALL  - 3288:CS$ = "00000000000000000000000000000000000000"
  2070.  180  FOR X = 1 TO 38 STEP 2
  2071.  190 Y = Y + 1
  2072.  200 D$(Y) =  MID$ (CS$,X,2)
  2073.  210  NEXT 
  2074.  220  GOSUB 8460
  2075.  230  HOME 
  2076.  240  ONERR  GOTO 260
  2077.  250  GOTO 270
  2078.  260  CALL  - 3288: GOTO 230
  2079.  270 O$ = SC$ + DL$ + "           -=>Castle Editor<=-" + DL$ + "1. Edit Castle" 
  2080. + EL$ + "2. Pay Rent/Fees" + EL$ + "3. Castle Description/Help File" + DL$ + "[Y
  2081. ou owe $" +  STR$ (R) + "][Cmd]->"
  2082.  280  GOSUB 6000
  2083.  290  IF I$ = "Q" THEN 8320
  2084.  300  IF I$ = "3" THEN F$ = "CASTLE.DES":O$ = SC$: GOSUB 7000: HOME : GOSUB 8590
  2085. :O$ = EL$ + "[Press Return]":CR = 1: GOSUB 6000
  2086.  310  IF I$ = "1" THEN 370
  2087.  320  IF I$ <  > "2" THEN 230
  2088.  330  GOSUB 8460
  2089.  340  IF GD < R THEN O$ = EL$ + "You don't have enought gold!" + DL$ + "[Press R
  2090. eturn]":CR = 1: GOSUB 6000: GOTO 230
  2091.  350 UU = UU + R
  2092.  360 GD = GD - R:O$ = EL$ + "Your payment has been registerd.": GOSUB 7000: GOSU
  2093. B 8460: GOTO 230
  2094.  370  HOME :T = 0
  2095.  380 O$ = SC$ + "Room # / Monster / Trap" + DL$: GOSUB 7000
  2096.  390  FOR X = 1 TO 19
  2097.  400 T = T + 1
  2098.  410 O$ =  STR$ (X) + "] "
  2099.  420 A$ =  LEFT$ (D$(T),1)
  2100.  430 B$ =  RIGHT$ (D$(T),1)
  2101.  440  IF A$ = "0" THEN O$ = O$ + " - ": GOTO 470
  2102.  450 Y =  ASC (A$) - 64
  2103.  460 O$ = O$ + "Lev. " +  STR$ (Y) + " Mon. -"
  2104.  470  IF B$ = "0" THEN 500
  2105.  480 Y =  ASC (B$) - 64
  2106.  490 O$ = O$ + " " + S$(Y)
  2107.  500 O$ = O$ + EL$: GOSUB 7000
  2108.  510  NEXT 
  2109.  520 O$ = EL$ + "Edit Which(1-19)->": GOSUB 6000
  2110.  530  IF I$ = "Q" THEN CP$ = "N": GOSUB 8410: GOSUB 8460: GOTO 230
  2111.  540 B(1) =  VAL (I$): IF B(1) < 1 OR B(1) > 19 THEN 520
  2112.  550 O$ = EL$ + "Monster in the Room? Y/N->": GOSUB 6000: IF I$ = "N" THEN A$ = 
  2113. "0": GOTO 660
  2114.  560  HOME :O$ = SC$ + "Edit room #" +  STR$ (B(1)) + DL$ + "Which Monster: " + 
  2115. DL$ + "0] No monster in Room" + EL$: GOSUB 7000
  2116.  570 O$ = "1-" +  STR$ (L) + "] Level Monsters" + EL$: GOSUB 7000
  2117.  580 O$ = EL$ + "Which(?=Menu)->": GOSUB 6000:X =  VAL (I$): IF I$ = "?" THEN 56
  2118. 0
  2119.  590  IF I$ = "Q" THEN 370
  2120.  600  IF X < 0 OR X > L THEN 580
  2121.  610  IF X = 0 THEN A$ = "0": GOTO 660
  2122.  620 B(2) = X * X * X * 100:O$ = EL$ + "A Level " +  STR$ (X) + " Monster's" + E
  2123. L$ + "Rent per call is $" +  STR$ (B(2)) + EL$ + "Rent monster? Y/N->": GOSUB 60
  2124. 00: IF I$ <  > "Y" THEN 580
  2125.  630 A$ =  LEFT$ (D$(B(1)),1):B$ =  RIGHT$ (D$(B(1)),1)
  2126.  640 Y = 64 + X
  2127.  650 A$ =  CHR$ (Y)
  2128.  660 O$ = EL$ + "Spell Trap in the Room? Y/N->": GOSUB 6000: IF I$ = "N" THEN B$
  2129.  = "0": GOTO 820
  2130.  670  HOME :O$ = SC$ + "Edit Room #" +  STR$ (B(1)) + DL$ + "Which Spell Trap:" 
  2131. + DL$ + "0) No Spell" + EL$: GOSUB 7000
  2132.  680  FOR X = 1 TO 26
  2133.  690  IF S$(X) = "Death" OR S$(X) = "Negate" THEN 710
  2134.  700  IF U(X) = 0 THEN 720
  2135.  710 O$ =  STR$ (X) + ") " + S$(X) + EL$: GOSUB 7000
  2136.  720  NEXT 
  2137.  730 O$ = EL$ + "Which(?=Menu)->": GOSUB 6000
  2138.  740  IF I$ = "Q" THEN 370
  2139.  750  IF I$ = "?" THEN 660
  2140.  760  IF I$ = "0" THEN B$ = "0": GOTO 820
  2141.  770 X =  VAL (I$): IF X < 1 OR X > 26 THEN 730
  2142.  780  IF U(X) = 0 AND S$(X) <  > "Death" AND S$(X) <  > "Negate" THEN 730
  2143.  790 Y = 100 * X * X
  2144.  800 O$ = EL$ + "A " + S$(X) + " Spell Trap" + EL$ + "Rent per call is $" +  STR
  2145. $ (Y) + EL$ + "Rent Trap? Y/N->": GOSUB 6000: IF I$ <  > "Y" THEN 730
  2146.  810 Y = 64 + X:B$ =  CHR$ (Y)
  2147.  820 D$(B(1)) = A$ + B$: GOTO 370
  2148.  6000  GOSUB 7000: GOSUB 8000: RETURN 
  2149.  7000  & B / O$: POKE 960,0: RETURN 
  2150.  8000 CC = 0: IF  PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
  2151. 8539:CF = 9
  2152.  8010  IF CF = 9 AND  PEEK (1) <  > 128 THEN CF = 1:CA$ = "Y"
  2153.  8020  IF CA$ <  > "Y" OR  LEN (CN$) > 1 THEN 8040
  2154.  8030  IF CF = 1 THEN  CALL 38539
  2155.  8040  IF  PEEK (1) = 128 THEN 8140
  2156.  8050  IF  LEN (CN$) = 0 THEN 8140
  2157.  8060  FOR T = 1 TO  LEN (CN$)
  2158.  8070  IF  MID$ (CN$,T,1) = "," THEN I$ =  MID$ (CN$,1,T - 1):CN$ =  RIGHT$ (CN$
  2159. , LEN (CN$) - T): GOTO 8110
  2160.  8080  IF  MID$ (CN$,T,1) = "#" THEN I$ =  MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
  2161. 0
  2162.  8090  NEXT 
  2163.  8100  POKE 960,0
  2164.  8110  IF O$ = "STOP" THEN O$ = "": GOTO 8210
  2165.  8120  IF  LEN (I$) = 0 THEN 8050
  2166.  8130 O$ = I$ + EL$: GOSUB 7000: GOTO 8290
  2167.  8140  POKE 960,0: & A / SP$:I$ =  MID$ (SP$,1): IF  PEEK (961) THEN 8310
  2168.  8150 CN$ = I$ + "#":O$ = "STOP"
  2169.  8160  IF  LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
  2170.  8170  POKE 961,0: IF  PEEK (960) = 255 THEN CC = CC + 1: FOR T = 1 TO 500: NEXT
  2171.  : IF CC > 1 OR I$ = "OFF" THEN 8300
  2172.  8180  IF  PEEK (960) = 255 THEN 8140
  2173.  8190  IF  PEEK (1) = 128 THEN CN$ = "": GOTO 8230
  2174.  8200  IF  LEN (CN$) > 0 THEN 8060
  2175.  8210  IF  LEN (I$) <  > 1 AND  RIGHT$ (I$,1) = " " THEN I$ =  LEFT$ (I$, LEN (I
  2176. $) - 1): GOTO 8210
  2177.  8220  IF  LEN (I$) <  > 1 AND  LEFT$ (I$,1) = " " THEN I$ =  RIGHT$ (I$, LEN (I
  2178. $) - 1): GOTO 8220
  2179.  8230  IF  LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 7000: GOTO 8250
  2180.  8240  IF  LEN (I$) = 0 THEN 8000
  2181.  8250  IF CA$ <  > "Y" THEN 8290
  2182.  8260  IF CF = 1 THEN  CALL 36798
  2183.  8270  IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 7000: CALL 36798
  2184. :CF = 1
  2185.  8280  IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 7000: CALL 385
  2186. 39:CF = 0
  2187.  8290 CR = 0: RETURN 
  2188.  8300 A$ = OF$: GOSUB 8390: CALL 35848"OFF"
  2189.  8310 A$ = CH$: GOSUB 8390: CALL 35848"CHAT"
  2190.  8320 A$ = MA$: GOSUB 8390:O$ = EL$ + "[Hold...] Transporting to Main" + EL$: GO
  2191. SUB 7000: CALL 35848"MAIN"
  2192.  8330  IF  LEN (O$) < 40 OR  LEN (O$) > 79 THEN  RETURN 
  2193.  8340 X = 0
  2194.  8350  IF  MID$ (O$,40 - X,1) = " " THEN B$(0) =  LEFT$ (O$,39 - X):B$(0) = B$(0
  2195. ) + EL$ +  RIGHT$ (O$, LEN (O$) - (40 - X)): GOTO 8370
  2196.  8360 X = X + 1: GOTO 8350
  2197.  8370 O$ = B$(0)
  2198.  8380  RETURN 
  2199.  8390 Y =  VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y =  VAL ( RIGHT$ (A$,1)): POKE 43
  2200. 624,Y:Y =  VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN  PRINT D$"OPEN VC,V"Y
  2201.  8395  IF TC$ = "Y" THEN  POKE 1014,10: POKE 952,215: POKE 953,251
  2202.  8400  RETURN 
  2203.  8410 CS$ = ""
  2204.  8420  FOR X = 1 TO 19
  2205.  8430 CS$ = CS$ + D$(X)
  2206.  8440  NEXT 
  2207.  8450  PRINT D$"OPENCASTLES,L39"C$(12): PRINT D$"WRITECASTLES,R"A: PRINT CS$: PR
  2208. INT D$"CLOSE": RETURN 
  2209.  8460 R = 0
  2210.  8470  FOR X = 1 TO 19
  2211.  8480 A$ =  LEFT$ (D$(X),1)
  2212.  8490 B$ =  RIGHT$ (D$(X),1)
  2213.  8500  IF A$ = "0" THEN 8530
  2214.  8510 Y =  ASC (A$) - 64
  2215.  8520 R = R + (Y * Y * Y * 100)
  2216.  8530  IF B$ = "0" THEN 8560
  2217.  8540 Y =  ASC (B$) - 64
  2218.  8550 R = R + (Y * Y * 100)
  2219.  8560  NEXT 
  2220.  8570 R = R - UU: IF R < 1 THEN R = 0:CP$ = "Y"
  2221.  8580  RETURN 
  2222.  8590  POKE 960,0: PRINT D$"OPEN"F$""C$(17): PRINT  CHR$ (4)"READ"F$
  2223.  8600  IF CF <  > 1 THEN 8670
  2224.  8610 C = 1
  2225.  8620  & E / ZZ$: IF  LEN (ZZ$) > 0 THEN A$ = ZZ$: IF  ASC ( LEFT$ (A$,1)) = 0 T
  2226. HEN C =  - 1: GOTO 8650
  2227.  8630 C = C + 1:O$ = EL$ + ZZ$: GOSUB 7000
  2228.  8640  IF C <  > 16 THEN 8620
  2229.  8650 O$ = DL$ + "CR) Continue or Q)uit:":CR = 1: GOSUB 6000: IF I$ = "Q" OR C =
  2230.   - 1 THEN 8680
  2231.  8660  GOTO 8610
  2232.  8670  & C
  2233.  8680  PRINT D$"CLOSE": IF  PEEK (960) = 255 THEN 8430
  2234.  8690  IF  PEEK (960) =  PEEK (970) THEN  POKE 960,3:O$ = EL$: GOTO 7000
  2235.  8700  IF  PEEK (960) =  PEEK (971) THEN  POKE 960,2
  2236.  8710  RETURN 
  2237.  
  2238. ]LOAD CHAT
  2239. ]LIST
  2240.  
  2241.  5  IF TC$ = "Y" THEN  POKE 1014,0: POKE 952,240: POKE 953,253
  2242.  10  CALL 54915
  2243.  20  IF A > 0 THEN 40
  2244.  30  PRINT  CHR$ (4)"SAVECHAT,S3": PRINT  CHR$ (4)"RUNSTORES,S6"
  2245.  40  HOME : POKE 1,128
  2246.  50  ONERR  GOTO 760
  2247.  60 O$ = DL$ + "Audience Granted to " + NA$ + ".": GOSUB 160
  2248.  70  GOTO 8490
  2249.  80 A$ = OF$: GOSUB 8830: CALL 35848"OFF"
  2250.  90  IF CA$ <  > "Y" THEN 100
  2251.  95  POKE 36996,76: POKE 36998,142
  2252.  100 A$ = DL$ + "-=> " + SY$ + " Has arrived <=-" + DL$: & B / A$: POKE 2,0
  2253.  110  & A / SP$: IF  PEEK (961) THEN  POKE 961,0:O$ = EL$ + "Sysop has Left" + E
  2254. L$: GOSUB 160: POKE 36996,169: POKE 36998,32: RETURN 
  2255.  120  IF  PEEK (960) = 255 THEN 80
  2256.  130  IF SP$ = "" THEN O$ = EL$: GOSUB 160
  2257.  140  POKE 38689,0
  2258.  150  GOTO 110
  2259.  160  & B / O$: RETURN 
  2260.  170  PRINT : PRINT "F) ile to Read(Text Only)": PRINT "User Stats Editor": PRIN
  2261. T "Q) Quit"
  2262.  180  PRINT : PRINT "System (?=Help):";: GOSUB 8000
  2263.  190  ONERR  GOTO 760
  2264.  200  IF I$ = "U" THEN 260
  2265.  210  IF I$ = "F" THEN 710
  2266.  230  IF I$ = "?" THEN 170
  2267.  240  IF I$ = "Q" THEN 8510
  2268.  250  PRINT : PRINT "Invalid Command...": GOTO 180
  2269.  260  HOME 
  2270.  270  PRINT "[1] Calls Per Day: " +  STR$ (CP)
  2271.  280  PRINT "[2] Calls Today: " +  STR$ (CA)
  2272.  290  PRINT "[3] Total Calls: " +  STR$ (CL)
  2273.  300  PRINT "[4] Adventure Access: " + AD$
  2274.  310  PRINT "[5] Strength: " +  STR$ (ST)
  2275.  330  PRINT "[7] Agility: " +  STR$ (AG)
  2276.  340  PRINT "[8] Intelligence: " +  STR$ (CH)
  2277.  350  PRINT "[9] Wisdom: " +  STR$ (WI)
  2278.  360  PRINT "[10] Gold: " +  STR$ (GD)
  2279.  370  PRINT "[11] Food: " +  STR$ (FD)
  2280.  380  PRINT "[12] Experience: " +  STR$ (EX)
  2281.  390  PRINT "[13] Maximum Hit Points: " +  STR$ (TH)
  2282.  400  PRINT "[14] Hit Points: " +  STR$ (HP)
  2283.  410  PRINT "[15] Maximum Power: " +  STR$ (TP)
  2284.  420  PRINT "[16] Power: " +  STR$ (PO)
  2285.  430  PRINT "[17] Weapon: " + WP$
  2286.  440  PRINT "[18] Armor: " + AM$
  2287.  450  PRINT "Which(?): ";: GOSUB 8000: PRINT 
  2288.  460  IF I$ = "?" THEN 260
  2289.  470  IF I$ = "Q" THEN 170
  2290.  480 X =  VAL (I$): IF X < 1 OR X > 18 THEN 260
  2291.  490  IF X = 1 THEN  PRINT "Calls Per Day-> ";: GOSUB 8000:CP =  VAL (I$): GOTO 
  2292. 260
  2293.  500  IF X = 2 THEN  PRINT "Calls Today->";: GOSUB 8000:CA =  VAL (I$): GOTO 260
  2294.  
  2295.  510  IF X = 3 THEN  PRINT "Total Calls->";: GOSUB 8000:CL =  VAL (I$): GOTO 260
  2296.  
  2297.  520  IF X = 4 THEN  PRINT "Adventure Access->";: GOSUB 8000:AD$ = I$: GOTO 260
  2298.  530  IF X = 5 THEN  PRINT "Strength->";: GOSUB 8000:ST =  VAL (I$): GOTO 260
  2299.  540  IF X = 6 THEN  PRINT "Dexterity->";: GOSUB 8000:DE =  VAL (I$): GOTO 260
  2300.  550  IF X = 7 THEN  PRINT "Agility->";: GOSUB 8000:AG =  VAL (I$): GOTO 260
  2301.  560  IF X = 8 THEN  PRINT "Intelligence->";: GOSUB 8000:CH =  VAL (I$): GOTO 26
  2302. 0
  2303.  570  IF X = 9 THEN  PRINT "Wisdom->";: GOSUB 8000:WI =  VAL (I$): GOTO 260
  2304.  580  IF X = 10 THEN  PRINT "Gold->";: GOSUB 8000:GD =  VAL (I$): GOTO 260
  2305.  590  IF X = 11 THEN  PRINT "Food->";: GOSUB 8000:FD =  VAL (I$): GOTO 260
  2306.  600  IF X = 12 THEN  PRINT "Experience->";: GOSUB 8000:EX =  VAL (I$): GOTO 260
  2307.  
  2308.  610  IF X = 13 THEN  PRINT "Maximum Hit Points->";: GOSUB 8000:TH =  VAL (I$): 
  2309. GOTO 260
  2310.  620  IF X = 14 THEN  PRINT "Hit Points->";: GOSUB 8000:HP =  VAL (I$): GOTO 260
  2311.  
  2312.  630  IF X = 15 THEN  PRINT "Maximum Power->";: GOSUB 8000:TP =  VAL (I$): GOTO 
  2313. 260
  2314.  640  IF X = 16 THEN  PRINT "Power->";: GOSUB 8000:PO =  VAL (I$): GOTO 260
  2315.  650  IF X = 17 THEN  PRINT "Weapon->";: GOTO 670
  2316.  660  IF X = 18 THEN  PRINT "Armor->";: GOTO 690
  2317.  670  GOSUB 8000:X =  VAL (I$): IF X < 1 OR X > WN THEN X = 17: GOTO 650
  2318.  675  PRINT 
  2319.  680  PRINT D$"OPENWEAPONS,L40"C$(19): PRINT D$"READWEAPONS,R"X: INPUT WP$,HT,HT
  2320. : PRINT D$"CLOSE":WE = X: GOTO 260
  2321.  690  GOSUB 8000:X =  VAL (I$): IF X < 1 OR X > AN THEN X = 18: GOTO 660
  2322.  695  PRINT 
  2323.  700  PRINT D$"OPENARMOR,L40"C$(1): PRINT D$"READARMOR,R"X: INPUT AM$,AP,AP: PRI
  2324. NT D$"CLOSE":AR = X: GOTO 260
  2325.  710  PRINT : PRINT "File To Read->";: GOSUB 8000:F$ = I$
  2326.  720  PRINT : PRINT "Volume->";: GOSUB 8000:V =  VAL (I$)
  2327.  730  PRINT "Slot->";: GOSUB 8000:S =  VAL (I$)
  2328.  740  PRINT "Drive->";: GOSUB 8000:D =  VAL (I$)
  2329.  750  PRINT : GOSUB 8410: GOTO 170
  2330.  760  CALL  - 3288: GOTO 180
  2331.  770  PRINT : PRINT "Level->";: GOSUB 8000:X =  VAL (I$): IF X < 1 OR X > 49 THE
  2332. N 8510
  2333.  780 LE = X: PRINT 
  2334.  790  POKE 43624,1: POKE 43626,6
  2335.  800  PRINT D$"OPENLEVELS"C$(7): PRINT D$"READLEVELS": IF LE = 1 THEN 820
  2336.  810  FOR X = 1 TO LE - 1: INPUT L$(1),A(1): NEXT 
  2337.  820  INPUT L$(1),A(1),L$(2),A(2)
  2338.  830  PRINT D$"CLOSE"
  2339.  840 EX = A(1): GOTO 8510
  2340.  8000 CC = 0: IF  PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
  2341. 8539:CF = 9
  2342.  8010  IF CF = 9 AND  PEEK (1) <  > 128 THEN CF = 1:CA$ = "Y"
  2343.  8020  IF CA$ <  > "Y" OR  LEN (CN$) > 1 THEN 8040
  2344.  8030  IF CF = 1 THEN  CALL 38539
  2345.  8040  IF  PEEK (1) = 128 THEN 8140
  2346.  8050  IF  LEN (CN$) = 0 THEN 8140
  2347.  8060  FOR T = 1 TO  LEN (CN$)
  2348.  8070  IF  MID$ (CN$,T,1) = "," THEN I$ =  MID$ (CN$,1,T - 1):CN$ =  RIGHT$ (CN$
  2349. , LEN (CN$) - T): GOTO 8110
  2350.  8080  IF  MID$ (CN$,T,1) = "#" THEN I$ =  MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
  2351. 0
  2352.  8090  NEXT 
  2353.  8100  POKE 960,0
  2354.  8110  IF O$ = "STOP" THEN O$ = "": GOTO 8210
  2355.  8120  IF  LEN (I$) = 0 THEN 8050
  2356.  8130 O$ = I$ + EL$: GOSUB 160: GOTO 8290
  2357.  8140  POKE 960,0: & A / SP$:I$ =  MID$ (SP$,1): IF  PEEK (961) THEN  POKE 961,0
  2358. : POP : GOTO 8490
  2359.  8150 CN$ = I$ + "#":O$ = "STOP"
  2360.  8160  IF  LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
  2361.  8170  POKE 961,0: IF  PEEK (960) = 255 THEN CC = CC + 1: FOR T = 1 TO 500: NEXT
  2362.  : IF CC > 1 OR I$ = "OFF" THEN 80
  2363.  8180  IF  PEEK (960) = 255 THEN 8140
  2364.  8190  IF  PEEK (1) = 128 THEN CN$ = "": GOTO 8230
  2365.  8200  IF  LEN (CN$) > 0 THEN 8060
  2366.  8210  IF  LEN (I$) <  > 1 AND  RIGHT$ (I$,1) = " " THEN I$ =  LEFT$ (I$, LEN (I
  2367. $) - 1): GOTO 8210
  2368.  8220  IF  LEN (I$) <  > 1 AND  LEFT$ (I$,1) = " " THEN I$ =  RIGHT$ (I$, LEN (I
  2369. $) - 1): GOTO 8220
  2370.  8230  IF  LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 160: GOTO 8250
  2371.  8240  IF  LEN (I$) = 0 THEN 8000
  2372.  8250  IF CA$ <  > "Y" THEN 8290
  2373.  8260  IF CF = 1 THEN  CALL 36798
  2374.  8270  IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 160: CALL 36798:
  2375. CF = 1
  2376.  8280  IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 160: CALL 3853
  2377. 9:CF = 0
  2378.  8290 CR = 0: RETURN 
  2379.  8300  GOSUB 8000: IF I$ = "" THEN  RETURN 
  2380.  8310  IF  LEN (I$) > 5 THEN I$ =  LEFT$ (I$,5)
  2381.  8320 J =  INT ( VAL (I$))
  2382.  8330  RETURN 
  2383.  8340  IF CL$ = "N" THEN T$ = DA$: RETURN 
  2384.  8350  PR# 4: IN# 4: INPUT "#";T,T,T,T,T,B: INPUT "%";T$
  2385.  8360  IF TI = 0 THEN TI = T
  2386.  8370  PR# 0: POKE 56,102: POKE 57,213: CALL 1002
  2387.  8380  IF TI > T THEN T = TI + (60 - TI) + T
  2388.  8390 TL = CO - (T - TI)
  2389.  8400  RETURN 
  2390.  8410 O$ = EL$: GOSUB 160: IF RT = 2 THEN O$ = DL$: GOSUB 160
  2391.  8420  POKE 960,0: PRINT D$"OPEN"F$",V"V",S"S",D"D: PRINT  CHR$ (4)"READ"F$
  2392.  8430  & C: IF  PEEK (960) =  PEEK (971) AND RT <  > 3 THEN  POKE 960,0: GOTO 84
  2393. 30
  2394.  8440  IF  PEEK (960) =  PEEK (970) AND RT = 5 THEN  POKE 960,0: GOTO 8430
  2395.  8450  PRINT  CHR$ (4)"CLOSE": IF  PEEK (960) = 255 THEN 80
  2396.  8460  IF  PEEK (960) =  PEEK (970) THEN  POKE 960,3:O$ = EL$: GOTO 160
  2397.  8470  IF  PEEK (960) =  PEEK (971) THEN  POKE 960,2
  2398.  8480  RETURN 
  2399.  8490 QE =  PEEK (0):QF =  PEEK (1):QG =  PEEK (2): POKE 2,0:O$ = DL$ + "% Pleas
  2400. e Wait - Sysop Is Busy %" + EL$: GOSUB 160:QC =  PEEK (966): POKE 966,0
  2401.  8500  POKE 1190,171
  2402.  8510  PRINT : PRINT "Sysop Options"
  2403.  8520  PRINT 
  2404.  8530  PRINT "1) Change time left [" +  STR$ (TL) + "]"
  2405.  8540  PRINT "2) Change Level #"LE" "L$(1)
  2406.  8550  PRINT "3) Validate user"
  2407.  8560  PRINT "4) Chat with user"
  2408.  8570  PRINT "5) Log off user"
  2409.  8580  PRINT "6) Enter system level"
  2410.  8590  PRINT "7) Change Name/Fights"
  2411.  8600  PRINT "8) Exit sysop options": PRINT 
  2412.  8610  PRINT "Option (?=Menu): ";
  2413.  8620  POKE  - 16368,0: POKE 2,255: POKE 961,0: & A / I$
  2414.  8630  IF I$ = "?" THEN 8510
  2415.  8640 I =  VAL (I$): IF I < 1 OR I > 8 THEN 8610
  2416.  8650  ON I GOTO 8670,770,8660,8700,8710,170,8720,8760
  2417.  8660 CP = 2:AD$ = "Yes": PRINT : PRINT "Done": GOTO 8510
  2418.  8670  PRINT "Enter time left(max:"CO"): ";: GOSUB 8000:X =  VAL (I$): IF X < 1 
  2419. OR X > CO THEN 8670
  2420.  8680  IF CL$ = "N" THEN TL = X: GOTO 8510
  2421.  8690  GOSUB 8340:X = CO - X:TI = T - X: GOSUB 8340: GOTO 8510
  2422.  8700  POKE 966,QC: POKE 2,0: GOSUB 90: POKE 966,0: GOTO 8510
  2423.  8710  POKE 966,QC: POKE 2,QG: POKE 1,0:O$ = EL$ + "Like soooo long dude.." + DL
  2424. $ + "You just go fried sucker..." + EL$: GOSUB 160: GOTO 80
  2425.  8720  POKE 2,0: PRINT : PRINT "[1] Name: " + NA$: PRINT "[2] Fights Left: "4 - 
  2426. FO: PRINT : PRINT "Which-> ";: GOSUB 8300: PRINT 
  2427.  8730  IF J < 0 OR J > 2 THEN 8520
  2428.  8740  IF J = 1 THEN  PRINT "Name->";: GOSUB 8000:NA$ = I$: GOTO 8510
  2429.  8750  PRINT "Fights Left Today->";: GOSUB 8000:X =  VAL (I$):FO = 4 - X: GOTO 8
  2430. 520
  2431.  8760 O$ = DL$ + "Which board: " + DL$ + "1) Start" + EL$ + "2) Main" + EL$ + "3
  2432. ) Boards" + EL$ + "4) Gambling" + EL$ + "5) Dungeon" + DL$ + "Which: ": GOSUB 16
  2433. 0: GOSUB 8000:K =  VAL (I$): IF K < 1 OR K > 5 THEN 8760
  2434.  8770 O$ = EL$ + "[ User Has Been Granted Control Again ]" + EL$: POKE 966,QC: G
  2435. OSUB 160: POKE 2,QG: POKE 1,0
  2436.  8780  IF K = 1 THEN  PRINT : PRINT D$"RUNSTART"C$(14)
  2437.  8790  IF K = 2 THEN A$ = MA$: GOSUB 8830: CALL 35848"MAIN"
  2438.  8800  IF K = 3 THEN A$ = BO$: GOSUB 8830: CALL 35848"BRD"
  2439.  8810  IF K = 4 THEN A$ = GA$: GOSUB 8830: CALL 35848"GA"
  2440.  8820  IF K = 5 THEN A$ = FT$: GOSUB 8830: CALL 35848"FIGHT"
  2441.  8830 Y =  VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y =  VAL ( RIGHT$ (A$,1)): POKE 43
  2442. 624,Y:Y =  VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN  PRINT : PRINT D$"OPEN VC,V"Y
  2443.  8835  IF TC$ = "Y" THEN  POKE 1014,10: POKE 952,215: POKE 953,251
  2444.  8840  RETURN 
  2445.  
  2446. ]LOAD COMPLETE EDITOR
  2447. ]LIST
  2448.  
  2449.  10 F$ = ",S6,D1"
  2450.  20  HOME : PRINT "If you are on a hard drive press Return.If you are not, then 
  2451. put the disk with  the file 'Config' in "F$" and": PRINT "press Return.": GET A$
  2452.  
  2453.  30 SN = 26: HOME 
  2454.  40 WN = 100:AN = 100
  2455.  50  ONERR  GOTO 120
  2456.  60 D$ =  CHR$ (13) +  CHR$ (4): DIM S(50),W$(WN),A$(AN),T$(50),V(50),M(50),D(50
  2457. ),P(50),R(50),B(50),T(50),PA$(50)
  2458.  70  DIM C$(20),B$(20)
  2459.  80  PRINT D$"OPENCONFIG"F$: PRINT D$"READCONFIG": FOR X = 1 TO 20: INPUT I$,V,S
  2460. ,D:C$(X) = ",V" +  STR$ (V) + ",S" +  STR$ (S) + ",D" +  STR$ (D): NEXT : PRINT 
  2461. D$"CLOSE"
  2462.  90  PRINT D$"OPENWEAPONS,L40"C$(19): FOR X = 1 TO WN: PRINT D$"READWEAPONS,R"X:
  2463.  INPUT W$(X),Y,Y: NEXT : PRINT D$"CLOSE"
  2464.  100  PRINT D$"OPENARMOR,L40"C$(1): FOR X = 1 TO AN: PRINT D$"READARMOR,R"X: INP
  2465. UT A$(X),Y,Y: NEXT : PRINT D$"CLOSE"
  2466.  110  GOTO 760
  2467.  120  CALL  - 3288: GOTO 760
  2468.  130  PRINT "[A] "NA$"  Pass: "PA$
  2469.  140  PRINT "[1] Calls Per Day: " +  STR$ (CP)
  2470.  150  PRINT "[2] Calls Today: " +  STR$ (CA)
  2471.  160  PRINT "[3] Total Calls: " +  STR$ (CL)
  2472.  170  PRINT "[4] Adventure Access: " + AD$
  2473.  180  PRINT 
  2474.  190  PRINT "[5] Strength: " +  STR$ (ST)
  2475.  200  PRINT "[7] Agility: " +  STR$ (AG)
  2476.  210  PRINT "[8] Intelligence: " +  STR$ (CH)
  2477.  220  PRINT "[9] Wisdom: " +  STR$ (WI)
  2478.  230  PRINT "[10] Gold: " +  STR$ (GD)
  2479.  240  PRINT "[11] Gold in The Bank: "BA
  2480.  250  PRINT "[12] Food: " +  STR$ (FD)
  2481.  260  PRINT 
  2482.  270  PRINT "[13] Level #"LE" "L$(1)
  2483.  280  PRINT "[14] Maximum Hit Points: " +  STR$ (TH)
  2484.  290  PRINT "[15] Maximum Power: " +  STR$ (TP)
  2485.  300  PRINT "[16] Power: " +  STR$ (PO)
  2486.  310  PRINT "[17] Weapon: " + W$(WE)
  2487.  320  PRINT "[18] Armor: " + A$(AR)
  2488.  330  PRINT "[19] Fight: " + FI$
  2489.  340  PRINT : PRINT "Which(20=Save)-> ";: GOSUB 640: PRINT 
  2490.  350  IF I$ = "Q" THEN 760
  2491.  360  IF I$ = "A" THEN  PRINT "Name->";: GOSUB 640:NA$ = I$: GOTO 130
  2492.  370  IF I$ = "B" THEN  PRINT "Password->";: GOSUB 640:PA$ = I$: GOTO 130
  2493.  380 X =  VAL (I$): IF X < 1 OR X > 20 THEN 130
  2494.  390  IF X = 1 THEN  PRINT "Calls Per Day-> ";: GOSUB 640:CP =  VAL (I$): GOTO 1
  2495. 30
  2496.  400  IF X = 2 THEN  PRINT "Calls Today->";: GOSUB 640:CA =  VAL (I$): GOTO 130
  2497.  410  IF X = 3 THEN  PRINT "Total Calls->";: GOSUB 640:CL =  VAL (I$): GOTO 130
  2498.  420  IF X = 4 THEN  PRINT "Adventure Access->";: GOSUB 640:AD$ = I$: GOTO 130
  2499.  430  IF X = 5 THEN  PRINT "Strength->";: GOSUB 640:ST =  VAL (I$): GOTO 130
  2500.  440  IF X = 6 THEN  PRINT "Dexterity->";: GOSUB 640:DE =  VAL (I$): GOTO 130
  2501.  450  IF X = 7 THEN  PRINT "Agility->";: GOSUB 640:AG =  VAL (I$): GOTO 130
  2502.  460  IF X = 8 THEN  PRINT "Intelligence->";: GOSUB 640:CH =  VAL (I$): GOTO 130
  2503.  
  2504.  470  IF X = 9 THEN  PRINT "Wisdom->";: GOSUB 640:WI =  VAL (I$): GOTO 130
  2505.  480  IF X = 10 THEN  PRINT "Gold->";: GOSUB 640:GD =  VAL (I$): GOTO 130
  2506.  490  IF X = 12 THEN  PRINT "Food->";: GOSUB 640:FD =  VAL (I$): GOTO 130
  2507.  500  IF X = 13 THEN  PRINT "Level->";: GOSUB 640:LE =  VAL (I$): GOSUB 1150: GO
  2508. TO 130
  2509.  510  IF X = 14 THEN  PRINT "Maximum Hit Points->";: GOSUB 640:TH =  VAL (I$): G
  2510. OTO 130
  2511.  520  IF X = 11 THEN  PRINT "Gold in the Bank->";: GOSUB 640:BA =  VAL (I$): GOT
  2512. O 130
  2513.  530  IF X = 15 THEN  PRINT "Maximum Power->";: GOSUB 640:TP =  VAL (I$): GOTO 1
  2514. 30
  2515.  540  IF X = 16 THEN  PRINT "Power->";: GOSUB 640:PO =  VAL (I$): GOTO 130
  2516.  550  IF X = 17 THEN  PRINT "Weapon->";: GOTO 600
  2517.  560  IF X = 18 THEN  PRINT "Armor->";: GOTO 620
  2518.  570  IF X = 20 THEN  HOME : GOSUB 720: GOTO 130
  2519.  580  IF X = 19 THEN  PRINT "Fight->";: GOSUB 640:FI$ = I$: GOTO 130
  2520.  590  GOTO 130
  2521.  600  GOSUB 640:X =  VAL (I$): IF X < 1 OR X > WN THEN X = 17: GOTO 550
  2522.  610 WE = X: GOTO 130
  2523.  620  GOSUB 640:X =  VAL (I$): IF X < 1 OR X > AN THEN X = 18: GOTO 560
  2524.  630 AR = X: GOTO 130
  2525.  640  INPUT "";I$: RETURN 
  2526.  650  PRINT D$"OPENSTATS,L200"C$(15)
  2527.  660  PRINT D$"READSTATS,R"A
  2528.  670  INPUT NA$,FI$,LE,AG,WE,AR,EX,GD,ST,TH,HP,PA$,WI,CH,LS,CA,CL,AD$,CP,FD,PO,T
  2529. P,BA,PA,DE,DA$
  2530.  680  FOR X = 1 TO SN: INPUT S(X): NEXT 
  2531.  690  PRINT D$"CLOSE"
  2532.  700  GOSUB 1150
  2533.  710  RETURN 
  2534.  720  PRINT D$"OPENSTATS,L200"C$(15): PRINT D$"WRITESTATS,R"A: PRINT NA$: PRINT 
  2535. FI$: PRINT LE: PRINT AG: PRINT WE: PRINT AR: PRINT EX: PRINT GD: PRINT ST: PRINT
  2536.  TH: PRINT HP: PRINT PA$: PRINT WI: PRINT CH: PRINT LS: PRINT CAL: PRINT CL: PRI
  2537. NT AD$: PRINT CP
  2538.  730  PRINT FD: PRINT PO: PRINT TP: PRINT BA: PRINT PA: PRINT DE: PRINT DA$
  2539.  740  FOR X = 1 TO SN: PRINT S(X): NEXT 
  2540.  750  PRINT D$"CLOSE": RETURN 
  2541.  760  HOME : PRINT "Proving Grounds Editor by The Time Lord": PRINT : PRINT "(C)
  2542.  Mike Heinstein 1985": PRINT : PRINT "[1] Edit User"
  2543.  770  PRINT "[2] Delete User"
  2544.  780  PRINT "[3] Validate User"
  2545.  790  PRINT "[4] Rob all Treasuries"
  2546.  800  PRINT "[5] Turn All the Fights On"
  2547.  810  PRINT "[6] Re-Roll the Entire Board"
  2548.  820  PRINT "[7] Run Board"
  2549.  830  PRINT "[8] Board Module Editor"
  2550.  840  PRINT "[9] Change/Edit Voting Topic"
  2551.  850  PRINT "[10] Search for a User"
  2552.  860  PRINT "[11] Count/List Validated Users"
  2553.  870  PRINT "[12] List Users"
  2554.  880  PRINT "[13] Dos Command"
  2555.  890  PRINT "[14] Change Date(Only If No Clock)"
  2556.  900  PRINT "[15] Re-Do Ladder and Rank"
  2557.  910  PRINT : PRINT "Which-> ";: GOSUB 640
  2558.  920  PRINT 
  2559.  930  ONERR  GOTO 760
  2560.  940 CF$ = "":CB$ = "":CH$ = "":CO$ = ""
  2561.  950  IF I$ <  > "15" THEN 980
  2562.  960  HOME : PRINT : PRINT : PRINT "Re-Do Ladder and Rank?  If so, it will  put 
  2563. up the board after....Y/N? ->: ";: INPUT "";A$: IF A$ = "Y" THEN  PRINT : PRINT 
  2564. D$"RUNRESET1"C$(4)
  2565.  970  IF I$ = "N" THEN 760
  2566.  980  IF I$ = "14" THEN 2860
  2567.  990  IF I$ = "9" THEN 2320
  2568.  1000  IF I$ = "13" THEN 2810
  2569.  1010  IF I$ = "12" THEN CO$ = "Y": GOTO 1220
  2570.  1020  IF I$ = "11" THEN NU = 0:CH$ = "Y": GOTO 1220
  2571.  1030  IF I$ = "10" THEN 2690
  2572.  1040  IF I$ = "1" THEN  PRINT "Enter User #->";: GOSUB 1140: HOME :A =  VAL (I$
  2573. ): GOSUB 650: GOTO 130
  2574.  1050  IF I$ = "2" THEN  PRINT "Enter User #->";: GOSUB 1140:A =  VAL (I$): GOSU
  2575. B 650: PRINT : PRINT "Delete "NA$"? ";: GOSUB 1140: IF I$ = "Y" THEN NA$ = "Empt
  2576. y": GOSUB 720: GOTO 760
  2577.  1060  IF I$ = "3" THEN  PRINT "Enter User #->";: GOSUB 1140:A =  VAL (I$): GOSU
  2578. B 650: PRINT : PRINT "Validate "NA$"? ";: GOSUB 1140: IF I$ = "Y" THEN CP = 2:AD
  2579. $ = "Yes": GOSUB 720: GOTO 760
  2580.  1070 CF$ = "":CB$ = "":RE$ = ""
  2581.  1080  IF I$ = "4" THEN  PRINT "Rob all Treasuries? ";: GOSUB 1140: IF I$ = "Y" 
  2582. THEN CB$ = "Y": GOTO 1220
  2583.  1090  IF I$ = "5" THEN  PRINT "Turn all the Fights On? ";: GOSUB 1140: IF I$ = 
  2584. "Y" THEN CF$ = "Y": GOTO 1220
  2585.  1100  IF I$ = "6" THEN  PRINT "Re-Roll the Board? ";: GOSUB 1140: IF I$ = "Y" T
  2586. HEN RE$ = "Y": GOTO 1220
  2587.  1110  IF I$ = "7" THEN  PRINT D$"RUNSTART"C$(14)
  2588.  1120  IF I$ = "8" THEN 1600
  2589.  1130  GOTO 760
  2590.  1140  GOTO 640
  2591.  1150  PRINT D$"OPENLEVELS"C$(7): PRINT D$"READLEVELS": IF LE = 1 THEN  INPUT L$
  2592. (1),A(1),L$(2),A(2):L$(0) = "":A(0) = 0: GOTO 1190
  2593.  1160  IF LE = 2 THEN 1180
  2594.  1170  FOR X = 1 TO (LE - 2): INPUT L$(1),A(1): NEXT 
  2595.  1180  INPUT L$(0),A(0),L$(1),A(1),L$(2),A(2)
  2596.  1190  PRINT D$"CLOSE"
  2597.  1200 EX = A(1): GOTO 1210
  2598.  1210  RETURN 
  2599.  1220  PRINT D$"OPENDATA,D1"C$(5)
  2600.  1230  PRINT D$"READDATA"
  2601.  1240  INPUT A,A,DA$,DA$
  2602.  1250  PRINT D$"CLOSE"
  2603.  1260  PRINT D$"OPENSTATS,L200"C$(15)
  2604.  1270  FOR X = 1 TO A
  2605.  1280  POKE 216,0
  2606.  1290  PRINT D$"READSTATS,R"X
  2607.  1300  IF CH$ = "Y" OR CO$ = "Y" THEN 1330
  2608.  1310  HOME : PRINT X" out of "A
  2609.  1320  ONERR  GOTO 1360
  2610.  1330  INPUT NA$,FI$,LE,AG,WE,AR,EX,GD,ST,TH,HP,PA$,WI,CH,LS,CA,CL,AD$,CP,FD,PO,
  2611. TP,BA,PA,DE,I$
  2612.  1340  FOR Y = 1 TO SN: INPUT S(Y): NEXT 
  2613.  1350  GOTO 1370
  2614.  1360  CALL  - 3288
  2615.  1370  IF CH$ = "Y" AND NA$ <  > "EMPTY" AND AD$ = "Yes" THEN NU = NU + 1: PRINT
  2616.  NU"] "NA$" #"X: GOTO 1550
  2617.  1380  IF CH$ = "Y" THEN 1550
  2618.  1390  IF CO$ = "Y" THEN  PRINT X"] "NA$: GOTO 1550
  2619.  1400  IF RE$ <  > "Y" THEN 1470
  2620.  1410 ST = 10:AG = 10:WI = 10:CH = 10:DE = 0:WE = 2:AR = 2:EX = 0:GD = 500:LE = 
  2621. 1:FI$ = "On":FD = 100
  2622.  1420 HP = 20:TH = 20
  2623.  1430 CA = 0
  2624.  1440 PO = 20:TP = 20:BA = 100:PA =  - 1
  2625.  1450  FOR Y = 1 TO 26:S(Y) = 0: NEXT 
  2626.  1460 S(3) = 1:S(6) = 1:S(25) = 2:S(20) = 1:S(2) = 2:S(10) = 1
  2627.  1470  IF NA$ = "EMPTY" THEN 1550
  2628.  1480  IF CF$ = "Y" AND FI$ = "On" THEN 1550
  2629.  1490  IF CF$ = "Y" THEN FI$ = "On"
  2630.  1500  IF CB$ = "Y" AND BA < 1 THEN 1550
  2631.  1510  IF CB$ = "Y" THEN BA = .999
  2632.  1520  PRINT D$"WRITESTATS,R"X: PRINT NA$: PRINT FI$: PRINT LE: PRINT AG: PRINT 
  2633. WE: PRINT AR: PRINT EX: PRINT GD: PRINT ST: PRINT TH: PRINT HP: PRINT PA$: PRINT
  2634.  WI: PRINT CH: PRINT LS: PRINT CA: PRINT CL: PRINT AD$: PRINT CP
  2635.  1530  PRINT FD: PRINT PO: PRINT TP: PRINT BA: PRINT PA: PRINT DE: PRINT I$
  2636.  1540  FOR Y = 1 TO SN: PRINT S(Y): NEXT 
  2637.  1550  NEXT 
  2638.  1560  PRINT D$"CLOSE"
  2639.  1570  IF CH$ = "Y" THEN  PRINT : PRINT NU" Validated Users.": INPUT "";A$
  2640.  1580  IF CO$ = "Y" THEN  PRINT : INPUT "";A$
  2641.  1590  GOTO 760
  2642.  1600  PRINT D$"OPENBOARDS,L55"C$(3)
  2643.  1610 X = 0
  2644.  1620  ONERR  GOTO 1670
  2645.  1630 X = X + 1
  2646.  1640  PRINT D$"READBOARDS,R"X
  2647.  1650  INPUT T$(X),V(X),M(X),S(X),D(X),P(X),R(X),B(X),T(X),PA$(X)
  2648.  1660  GOTO 1630
  2649.  1670  CALL  - 3288:X = X - 1: PRINT D$"CLOSE":BN = X
  2650.  1680 AZ = BN
  2651.  1690  HOME : PRINT "Board Editor"
  2652.  1700  PRINT : PRINT BN" boards active"
  2653.  1710  PRINT 
  2654.  1720  FOR X = 1 TO BN: PRINT "["X"] " + T$(X)
  2655.  1730  NEXT 
  2656.  1740  PRINT 
  2657.  1750  PRINT "[A] Create New Board"
  2658.  1760  PRINT "[B] Delete Board"
  2659.  1770  PRINT "[ ] Type number of board to edit"
  2660.  1780  PRINT 
  2661.  1790  INPUT "Edit Which->";I$
  2662.  1800 X =  VAL (I$)
  2663.  1810  IF I$ = "A" THEN 2160
  2664.  1820  IF I$ = "B" THEN 2230
  2665.  1830  IF I$ = "Q" THEN 760
  2666.  1840  IF X < 1 OR X > BN THEN 1690
  2667.  1850 EN = X
  2668.  1860  HOME 
  2669.  1870  PRINT "Edit Board": PRINT 
  2670.  1880  PRINT "[1] Name: "T$(EN)
  2671.  1890  PRINT "[2] Maximum Messages: "M(EN)
  2672.  1900  PRINT "[3] Slot: "S(EN)
  2673.  1910  PRINT "[4] Drive: "D(EN)
  2674.  1920  PRINT "[5] Volume: "V(EN)
  2675.  1930 X = T(EN): GOSUB 3240: PRINT "[6] Message posted under: "O$
  2676.  1940 X = P(EN): GOSUB 3050: PRINT "[7] Who can post: "O$
  2677.  1950 X = R(EN): GOSUB 3090: PRINT "[8] Who can read: "O$
  2678.  1960  PRINT "[9] Board Master is user #"B(EN)
  2679.  1965  IF P(EN) = 4 THEN  PRINT "[10] Password: "PA$(EN)
  2680.  1970  PRINT "[S] Save"
  2681.  1980  PRINT : INPUT "Which->";I$:X =  VAL (I$)
  2682.  1990  IF I$ = "Q" THEN 1690
  2683.  2000  IF I$ = "S" THEN 2040
  2684.  2010  IF X < 1 OR X > 10 THEN 1860
  2685.  2020  ON X GOSUB 3190,3200,3210,3230,3220,3280,3140,3160,3180,3300
  2686.  2030  GOTO 1860
  2687.  2040  PRINT D$"OPENBOARDS,L55"C$(3): PRINT D$"DELETEBOARDS": PRINT D$"OPENBOARD
  2688. S,L55"
  2689.  2050  FOR X = 1 TO BN
  2690.  2060  PRINT D$"WRITEBOARDS,R"X
  2691.  2070  PRINT T$(X): PRINT V(X): PRINT M(X): PRINT S(X): PRINT D(X): PRINT P(X): 
  2692. PRINT R(X): PRINT B(X): PRINT T(X): PRINT PA$(X)
  2693.  2080  NEXT 
  2694.  2090  PRINT D$"CLOSE"
  2695.  2100 Y = 0
  2696.  2110  FOR X = 1 TO BN: IF M(X) > Y THEN Y = M(X): NEXT 
  2697.  2120  PRINT D$"OPENBDATA"C$(2): PRINT D$"WRITEBDATA": PRINT BN: PRINT Y: PRINT 
  2698. D$"CLOSE"
  2699.  2130  PRINT 
  2700.  2140  IF AZ <  > BN THEN  PRINT D$"OPENQSCAN"C$(10): PRINT D$"DELETEQSCAN"
  2701.  2150  GOTO 1690
  2702.  2160  HOME 
  2703.  2170 EN = BN + 1
  2704.  2180  GOSUB 3190: GOSUB 3220: GOSUB 3210: GOSUB 3230: GOSUB 3200: GOSUB 3280: G
  2705. OSUB 3140: GOSUB 3160: GOSUB 3180: IF P(EN) = 4 THEN  GOSUB 3300
  2706.  2190  PRINT : INPUT "Ok? Y/N";A$: IF A$ <  > "Y" THEN 1690
  2707.  2200 BN = BN + 1
  2708.  2210  GOTO 2040
  2709.  2220  INPUT "";I$: RETURN 
  2710.  2230  PRINT : PRINT : INPUT "Delete What Board->";I$:X =  VAL (I$)
  2711.  2240  IF X < 1 OR X > BN THEN 1690
  2712.  2250  PRINT : PRINT "Delete The "T$(X) + " Board";: INPUT I$: IF I$ <  > "Y" TH
  2713. EN 1690
  2714.  2260 Y = X
  2715.  2270  FOR X = (Y + 1) TO BN
  2716.  2280 T$(X - 1) = T$(X):V(X - 1) = V(X):M(X - 1) = M(X):S(X - 1) = M(X):S(X - 1)
  2717.  = 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)
  2718.  = T(X)
  2719.  2290  NEXT 
  2720.  2300 BN = BN - 1
  2721.  2310  GOTO 2040
  2722.  2320  HOME : PRINT "Write Voting Topic"
  2723.  2330  PRINT : PRINT "[A] Write New Topic"
  2724.  2340  PRINT "[B] Save Topic"
  2725.  2350  PRINT "[C] List Topic"
  2726.  2360  PRINT "[D] Edit Topic"
  2727.  2370  PRINT : INPUT "Which(Q=Quit)->";I$
  2728.  2380  IF I$ = "Q" THEN 760
  2729.  2390  IF I$ = "C" THEN 2590
  2730.  2400  IF I$ = "D" THEN 2640
  2731.  2410  IF I$ = "A" THEN 2500
  2732.  2420  IF I$ = "B" THEN  PRINT : INPUT "Save Voting Topic?";I$: IF I$ <  > "Y" T
  2733. HEN 2320
  2734.  2430  PRINT D$"OPENVOTING"C$(18): PRINT D$"DELETEVOTING": PRINT D$"OPENVOTING"
  2735.  2440  PRINT D$"WRITEVOTING"
  2736.  2450  FOR X = 1 TO VN
  2737.  2460  PRINT V$(X);",0"
  2738.  2470  NEXT 
  2739.  2480  PRINT D$"CLOSE"
  2740.  2490  GOTO 2320
  2741.  2500  PRINT 
  2742.  2510  PRINT "What is the Topic?  Do not press Return until you are complete don
  2743. e.": PRINT : INPUT "";T$: PRINT D$"OPENVOTING.TOP"C$(17): PRINT D$"DELETEVOTING.
  2744. TOP": PRINT D$"OPENVOTING.TOP": PRINT D$"WRITEVOTING.TOP": PRINT T$: PRINT : PRI
  2745. NT D$"CLOSE
  2746.  2520  PRINT : PRINT "Input choices 1-9.  type 'Q' on it's own line  to stop add
  2747. ing choices.  I.E. if you only want 4 choices type 'Q' on     line 5.": PRINT 
  2748.  2530  FOR X = 1 TO 9
  2749.  2540  PRINT X"] ";: INPUT "";V$(X)
  2750.  2550  IF V$(X) = "Q" THEN X = X - 1:VN = X: GOTO 2320
  2751.  2560  NEXT X
  2752.  2570 VN = X - 1
  2753.  2580  GOTO 2320
  2754.  2590  PRINT 
  2755.  2600  FOR X = 1 TO VN
  2756.  2610  PRINT X"] "V$(X)
  2757.  2620  NEXT 
  2758.  2630  PRINT : INPUT "";A$: GOTO 2320
  2759.  2640  PRINT : INPUT "Input Line To Edit->";I$: IF I$ = "Q" THEN 2320
  2760.  2650 X =  VAL (I$): IF X < 1 OR X > VN THEN 2640
  2761.  2660  PRINT : PRINT X"] "V$(X): PRINT 
  2762.  2670  PRINT X"] ";: INPUT "";V$(X)
  2763.  2680  GOTO 2320
  2764.  2690  PRINT : INPUT "What is the Users Name->";I$
  2765.  2700 X = 0
  2766.  2710  ONERR  GOTO 2790
  2767.  2720  PRINT D$"OPENSTATS,L200"C$(15)
  2768.  2730 X = X + 1
  2769.  2740  PRINT D$"READSTATS,R"X
  2770.  2750  HOME : PRINT X
  2771.  2760  INPUT A$
  2772.  2770  IF A$ = I$ THEN 2800
  2773.  2780  GOTO 2730
  2774.  2790  CALL  - 3288: PRINT D$"CLOSE": PRINT "There Is No Such User.": INPUT "";A
  2775. $: GOTO 760
  2776.  2800  PRINT D$"CLOSE": PRINT I$" is user "X: INPUT "";A$: GOTO 760
  2777.  2810  PRINT : INPUT "Dos(Q=Quit)->";A$
  2778.  2820  IF A$ = "Q" THEN 760
  2779.  2830  ONERR  GOTO 2850
  2780.  2840  PRINT D$""A$: PRINT : INPUT "";A$: GOTO 760
  2781.  2850  CALL  - 3288: PRINT : PRINT "Dos Error!": PRINT : INPUT "";A$: GOTO 760
  2782.  2860  PRINT D$"OPENDATA"C$(5): PRINT D$"READDATA": FOR X = 1 TO 10: INPUT Z$(X)
  2783. : NEXT : PRINT D$"CLOSE"
  2784.  2870  HOME : PRINT : PRINT "Current Date-> "Z$(4): PRINT : PRINT "Change it? Y/
  2785. N: ";: INPUT "";A$: IF A$ <  > "Y" AND A$ <  > "N" THEN 2870
  2786.  2880  IF A$ = "N" THEN 760
  2787.  2890 B$(1) = "SUN":B$(2) = "MON":B$(3) = "TUE":B$(4) = "WED":B$(5) = "THU":B$(6
  2788. ) = "FRI":B$(7) = "SAT"
  2789.  2900  HOME 
  2790.  2910  PRINT "Input Day:": PRINT : PRINT : FOR X = 1 TO 7: PRINT X"] "B$(X): NEX
  2791. T 
  2792.  2920  PRINT : PRINT "-> ";: INPUT "";A$:X =  VAL (A$): IF X < 1 OR X > 7 THEN 2
  2793. 900
  2794.  2930 C$ = B$(X) + " "
  2795.  2940 B$(1) = "JAN":B$(2) = "FEB":B$(3) = "MAR":B$(4) = "APR":B$(5) = "MAY":B$(6
  2796. ) = "JUN":B$(7) = "JUL":B$(8) = "AUG":B$(9) = "SEP":B$(10) = "NOV":B$(11) = "OCT
  2797. ":B$(12) = "DEC"
  2798.  2950  HOME : PRINT "Input Month": PRINT : PRINT : FOR X = 1 TO 12: PRINT X"] "B
  2799. $(X): NEXT 
  2800.  2960  PRINT : PRINT "-> ";: INPUT "";A$:X =  VAL (A$): IF X < 1 OR X > 12 THEN 
  2801. 2950
  2802.  2970 C$ = C$ + B$(X) + " "
  2803.  2980  HOME : PRINT "Input Day(1-31)-> ";: INPUT "";A$:X =  VAL (A$): IF X < 1 O
  2804. R X > 31 THEN 2980
  2805.  2990  IF X > 9 THEN C$ = C$ + A$: GOTO 3010
  2806.  3000 C$ = C$ + " " + A$
  2807.  3010  PRINT : PRINT "Date-> "C$: PRINT : PRINT "Correct? Y/N-> ";: GET A$: IF A
  2808. $ <  > "Y" AND A$ <  > "N" THEN 3010
  2809.  3020  IF A$ = "N" THEN 2880
  2810.  3030 Z$(4) = C$: PRINT D$"OPENDATA": PRINT D$"WRITEDATA": FOR X = 1 TO 10: PRIN
  2811. T Z$(X): NEXT : PRINT D$"CLOSE"
  2812.  3040  GOTO 760
  2813.  3050  IF X = 1 THEN O$ = "Sysop Only"
  2814.  3060  IF X = 2 THEN O$ = "Validated Users Only"
  2815.  3070  IF X = 3 THEN O$ = "All Users"
  2816.  3075  IF X = 4 THEN O$ = "Password Needed"
  2817.  3080  RETURN 
  2818.  3090  IF X = 1 THEN O$ = "Validated users Only"
  2819.  3100  IF X = 2 THEN O$ = "All Users"
  2820.  3110  RETURN 
  2821.  3120  PRINT 
  2822.  3130  PRINT 
  2823.  3140  PRINT "Who can post?": PRINT : PRINT "1) Sysop Only": PRINT "2) Validated
  2824.  users only": PRINT "3) All Users": PRINT "4) Password needed": PRINT : INPUT "W
  2825. hich->";A$:X =  VAL (A$): IF X < 1 OR X > 4 THEN 31400
  2826.  3150 P(EN) = X: RETURN 
  2827.  3160  PRINT "Who can Read Messages?": PRINT : PRINT "1) Validated users Only": 
  2828. PRINT "2) All Users": PRINT : INPUT "Which->";A$:X =  VAL (A$): IF X < 1 OR X > 
  2829. 2 THEN 3160
  2830.  3170 R(EN) = X: RETURN 
  2831.  3180  PRINT : INPUT "Enter board masters #";I$:B(EN) =  VAL (I$): RETURN 
  2832.  3190  PRINT "Name->";: GOSUB 2220:T$(EN) = I$: RETURN 
  2833.  3200  PRINT "Maximum Messages->";: GOSUB 2220:M(EN) =  VAL (I$): RETURN 
  2834.  3210  PRINT "Slot->";: GOSUB 2220:S(EN) =  VAL (I$): RETURN 
  2835.  3220  PRINT "Volume->";: GOSUB 2220:V(EN) =  VAL (I$): RETURN 
  2836.  3230  PRINT "Drive->";: GOSUB 2220:D(EN) =  VAL (I$): RETURN 
  2837.  3240  IF X = 1 THEN O$ = "Anonymous"
  2838.  3250  IF X = 2 THEN O$ = "Any Handle"
  2839.  3260  IF X = 3 THEN O$ = "User Name"
  2840.  3270  RETURN 
  2841.  3280  PRINT "Messages posted under what name:": PRINT : PRINT "1) Anonymous": P
  2842. RINT "2) Any Handle": PRINT "3) User Name": PRINT : INPUT "Which->";I$:X =  VAL 
  2843. (I$): IF X < 1 OR X > 3 THEN 3280
  2844.  3290 T(EN) = X: RETURN 
  2845.  3300  PRINT : INPUT "Password->";PA$(EN): IF  LEN (PA$(EN)) > 7 THEN  PRINT : P
  2846. RINT "7 Characters Max": GOTO 3300
  2847.  3310  RETURN 
  2848.  
  2849. ]LOAD GA
  2850. ]LIST
  2851.  
  2852.  5  IF TC$ = "Y" THEN  POKE 1014,0: POKE 952,240: POKE 953,253
  2853.  10  CALL 54915
  2854.  20  IF A > 0 THEN 40
  2855.  30  PRINT  CHR$ (4)"SAVEGA,S3": PRINT  CHR$ (4)"RUNSTORES,S6"
  2856.  40 AM = 0
  2857.  50 D = 1
  2858.  60 J = A
  2859.  70  ONERR  GOTO 90
  2860.  80  GOTO 120
  2861.  90  CALL  - 3288: GOTO 130
  2862.  100 O$ = DL$ + "-=>HOLD...Transport Heading to Main." + EL$: GOSUB 7000
  2863.  110 A$ = MA$:A = J: GOSUB 8390: CALL 35848"MAIN"
  2864.  120  HOME :O$ = SC$ + DL$ + DL$ + EL$: GOSUB 7000
  2865.  130  GOSUB 8300:O$ = DL$ + "Welcome to Rebel's Hideout" + DL$ + "What do you wa
  2866. nt to play...." + DL$ + "B) lackjack" + EL$ + "R) Roulette" + EL$ + "S) Slots" +
  2867.  EL$ + "Z) Russian Roulette" + DL$ + "[B/R/S/Z/Q]->": GOSUB 6000
  2868.  140  IF I$ = "Q" THEN 100
  2869.  150  FOR X = 1 TO 9:G(X) = 0: NEXT X
  2870.  160  IF I$ = "Z" THEN 1720
  2871.  170  IF I$ = "R" THEN 750
  2872.  180  IF I$ = "S" THEN 210
  2873.  190  IF I$ = "B" THEN 1180
  2874.  200  GOTO 130
  2875.  210 O$ = DL$ + "You saunder over to a group of slot     machines and notice, to
  2876.  your surprise,  that you have three choices:"
  2877.  220  GOSUB 7000
  2878.  230 O$ = DL$ + "A) 3-wheeled slot" + EL$ + "B) 4-wheeled slot" + EL$ + "C) 5-wh
  2879. eeled slot" + DL$ + "[A/B/C/<Q>uit]->": GOSUB 6000
  2880.  240 X =  INT (3 *  RND (1)) + 1
  2881.  250  GOSUB 1670
  2882.  260  IF I$ = "A" THEN G(0) = 3
  2883.  270  IF I$ = "B" THEN G(0) = 4
  2884.  280  IF I$ = "C" THEN G(0) = 5
  2885.  290  IF G(0) < 3 OR G(0) > 5 THEN 230
  2886.  300 O$ = EL$ + "You have [" +  STR$ (GD) + "] gold pieces." + DL$ + "[Enter Bet
  2887. /<Q>uit]->": GOSUB 6000
  2888.  310  GOSUB 1670
  2889.  320 I$ =  STR$ ( INT ( VAL (I$)))
  2890.  330  GOSUB 1690: IF BE = 1 THEN BE = 0: GOTO 300
  2891.  340 GD = GD -  VAL (I$)
  2892.  350  GOSUB 8380
  2893.  360 O$ = EL$: GOSUB 7000
  2894.  370  FOR SP = G(0) TO 1 STEP  - 1
  2895.  380  FOR Y = 1 TO 7
  2896.  390 O$ = ""
  2897.  400  FOR X = 1 TO SP
  2898.  410 C =  INT (9 *  RND (1)) + 1
  2899.  420 O$ = O$ +  STR$ (C)
  2900.  430  IF X = SP THEN O(SP) = C
  2901.  440  NEXT X
  2902.  450  FOR X = 1 TO SP
  2903.  460 O$ = O$ +  CHR$ (8)
  2904.  470  NEXT X
  2905.  480  GOSUB 7000
  2906.  490  NEXT Y
  2907.  500 O$ =  STR$ (O(SP)): GOSUB 7000
  2908.  510  NEXT SP
  2909.  520 SP = 0
  2910.  530  FOR X = 1 TO G(0)
  2911.  540  FOR Y = 1 TO 9
  2912.  550  IF O(X) = Y THEN G(Y) = G(Y) + 1
  2913.  560  NEXT Y
  2914.  570  NEXT X
  2915.  580  FOR Y = 1 TO 9: IF G(Y) >  = ( INT (G(0) / 2) + 1) THEN O$ = DL$ + "[" +  
  2916. STR$ (G(Y)) + "] of a kind!" + EL$: GOSUB 7000:SP = Y:Y = 9
  2917.  590  NEXT 
  2918.  600  IF SP > 0 THEN 630
  2919.  610 O$ = DL$ + "You lose sucker!" + EL$: GOSUB 7000
  2920.  620  FOR X = 1 TO 9:G(X) = 0: NEXT : GOTO 300
  2921.  630  IF G(0) <  > 3 THEN 660
  2922.  640  IF G(SP) = 2 THEN Y = 2.75
  2923.  650  IF G(SP) = 3 THEN Y = 81
  2924.  660  IF G(0) <  > 4 THEN 690
  2925.  670  IF G(SP) = 3 THEN Y = 36
  2926.  680  IF G(SP) = 4 THEN Y = 400
  2927.  690  IF G(0) <  > 5 THEN 730
  2928.  700  IF G(SP) = 3 THEN Y = 10
  2929.  710  IF G(SP) = 4 THEN Y = 250
  2930.  720  IF G(SP) = 5 THEN Y = 4000
  2931.  730 G(1) =  INT ( VAL (I$) * Y)
  2932.  740 O$ = EL$ + "You win " +  STR$ (G(1) -  VAL (I$)) + " gold pieces!" + EL$:GD
  2933.  = GD + G(1): GOSUB 7000: GOTO 620
  2934.  750 O$ = DL$ + "[<N>umber/<E>ven/<O>dd/<S>equence]" + DL$ + "You have [" +  STR
  2935. $ (GD) + "] Gold" + DL$ + "[Which/<Q>uit]->": GOSUB 6000
  2936.  760  IF I$ <  > "N" AND I$ <  > "E" AND I$ <  > "O" AND I$ <  > "S" AND I$ <  >
  2937.  "Q" THEN 750
  2938.  770  GOSUB 1670
  2939.  780  FOR X = 1 TO 7:G(X) = 0: NEXT 
  2940.  790 Y = 0
  2941.  800  IF I$ = "E" THEN G(4) = 1
  2942.  810  IF I$ = "O" THEN G(5) = 1
  2943.  820  IF I$ <  > "N" THEN 870
  2944.  830 O$ = DL$ + "[Select Number <1-36>:": GOSUB 6000
  2945.  840  GOSUB 1670
  2946.  850  IF  VAL (I$) < 1 OR  VAL (I$) > 36 THEN 830
  2947.  860 Y =  VAL (I$)
  2948.  870  IF I$ <  > "S" THEN 960
  2949.  880 O$ = DL$ + "[Select Starting #]:": GOSUB 6000
  2950.  890  GOSUB 1670
  2951.  900  IF  VAL (I$) > 36 OR  VAL (I$) < 1 THEN 880
  2952.  910 G(0) =  VAL (I$)
  2953.  920 O$ = DL$ + "[Select  Ending  #]:": GOSUB 6000
  2954.  930  GOSUB 1670
  2955.  940  IF  VAL (I$) > 36 OR  VAL (I$) < 1 THEN 920
  2956.  950 G(1) =  VAL (I$)
  2957.  960 O$ = DL$ + "How much do you want to bet: ": GOSUB 6000
  2958.  970  GOSUB 1670
  2959.  980 I$ =  STR$ ( INT ( VAL (I$)))
  2960.  990  GOSUB 1690: IF BE = 1 THEN BE = 0: GOTO 960
  2961.  1000 G(2) =  VAL (I$):GD = GD -  VAL (I$)
  2962.  1010  GOSUB 8380
  2963.  1020 O$ = DL$ + EL$: GOSUB 7000
  2964.  1030 O$ = "The ball is rolling...."
  2965.  1040 O$ = O$ + TU$
  2966.  1050  GOSUB 7000
  2967.  1060 G(3) =  INT (36 *  RND (1)) + 1
  2968.  1070 O$ = DL$ + EL$: GOSUB 7000
  2969.  1080 O$ = "The number is................" +  STR$ (G(3)) + DL$: GOSUB 7000
  2970.  1090  IF Y = G(3) THEN G(7) = 36 * G(2)
  2971.  1100  FOR X = 2 TO 36 STEP 2: IF G(3) = X THEN G(6) = 1
  2972.  1110  NEXT 
  2973.  1120  IF G(4) = 1 AND G(6) = 1 THEN G(7) = 2 * G(2)
  2974.  1130  IF G(5) = 1 AND G(6) = 0 THEN G(7) = 2 * G(2)
  2975.  1140  IF G(0) <  = G(3) AND G(1) =  > G(3) THEN G(7) = (36 / ((G(1) + 1) - G(0)
  2976. )) * G(2)
  2977.  1150  IF G(7) < 1 THEN O$ = "Ha Ha Ha!  You lose sucker!": GOSUB 7000
  2978.  1160  IF G(7) > 0 THEN O$ = "You win " +  STR$ ( INT (G(7) - G(2))) + " pieces 
  2979. of gold!":GD = GD +  INT (G(7)): GOSUB 7000
  2980.  1170 GD =  INT (GD): GOTO 750
  2981.  1180 MO$ = "":O$ = SC$ + EL$ + "[Blackjack]   By: The Chief Surgeon" + DL$ + "I
  2982. nitializing...": GOSUB 7000: POKE 36728,32:B$(0) = "    ":B$(2) = "A234567890JQK
  2983. ": FOR F = 1 TO 4
  2984.  1190  FOR Z = 1 TO 13:MO$ = MO$ +  MID$ (B$(2),Z,1) +  MID$ (B$(0),F,1): NEXT :
  2985.  NEXT : GOSUB 1620: GOTO 1210
  2986.  1200  GOSUB 7000
  2987.  1210 O$ = EL$: GOSUB 7000: IF GD < 1 THEN O$ = EL$ + "You lost all of your mone
  2988. y!": GOSUB 7000: GOTO 130
  2989.  1220 GD =  INT (GD):O$ = EL$ + "You have: " +  STR$ (GD) + EL$ + "Your bet: ": 
  2990. GOSUB 6000:A =  VAL (I$): IF A < 0 OR A > GD THEN 1210
  2991.  1230  GOSUB 8300
  2992.  1240 A$ = ""
  2993.  1250  IF I$ = "0" OR I$ = "Q" THEN 130
  2994.  1260  IF A = 0 THEN 1210
  2995.  1270 F$ = "":O$ = EL$ + "Dealer- " + "?? ": GOSUB 7000: GOSUB 1580:F$ = ZZ$:A3 
  2996. = X: GOSUB 1580:O$ = ZZ$ + " Total = ??": GOSUB 7000
  2997.  1280 F$ = F$ + ZZ$:A3 = A3 + X:A6 =  - 1: GOSUB 1580:A4 = X:L1$ = ZZ$:A5 =  - 1
  2998. : GOSUB 1580:A4 = A4 + X:L1$ = L1$ + ZZ$
  2999.  1290 O$ = EL$ + "Player- " + L1$ + " Total = " +  STR$ (A4): GOSUB 7000:A5 = A5
  3000.  + 1: IF A4 < 22 THEN 1330
  3001.  1300  FOR F = 1 TO  LEN (L1$) STEP 3: IF  MID$ (L1$,F,1) <  > "A" THEN  NEXT :O
  3002. $ = EL$ + "Player- Busted!":GD = GD - A: GOTO 1200
  3003.  1310 O$ = EL$ + "Player- Ace counts as one.": GOSUB 7000:A4 = A4 - 10: IF F > 1
  3004.  THEN L1$ =  LEFT$ (L1$,F - 1) + "1" +  MID$ (L1$,F + 1): GOTO 1290
  3005.  1320 L1$ = "1" +  MID$ (L1$,F + 1): GOTO 1290
  3006.  1330  IF A$ = "Y" THEN A$ = "N": GOTO 1440
  3007.  1340  IF A4 = 21 AND  NOT A5 THEN O$ = EL$ + "Player- Blackjack!":GD = GD + 1.5
  3008.  * A + .5: GOTO 1200
  3009.  1350 O$ = DL$ + "Player- H)it S)tand": GOSUB 7000: IF  NOT A5 THEN O$ = " D)oub
  3010. le": GOSUB 7000
  3011.  1360 O$ = EL$ + "?: ": GOSUB 6000
  3012.  1370  IF I$ <  > "H" THEN 1390
  3013.  1380 O$ = EL$ + "Player- Hits": GOSUB 7000: GOSUB 1580:L1$ = L1$ + ZZ$:A4 = A4 
  3014. + X: GOTO 1290
  3015.  1390  IF I$ <  > "D" OR A5 THEN 1420
  3016.  1400 O$ = EL$ + "Player- Doubles": GOSUB 7000: IF 2 * A > GD THEN O$ = EL$ + " 
  3017. but then decides that" + EL$ + "        he hasn't got enough gold!": GOSUB 7000:
  3018.  GOTO 1290
  3019.  1410  PRINT :A = 2 * A:A$ = "Y":I$ = "H": GOTO 1370
  3020.  1420  IF I$ <  > "S" THEN O$ = EL$ + "Dealer- Can't understand that gibberish!"
  3021. : GOSUB 7000: GOTO 1350
  3022.  1430 O$ = EL$ + "Player- Stands": GOSUB 7000
  3023.  1440 O$ = DL$ + "Dealer- " + F$ + " Total = " +  STR$ (A3): GOSUB 7000:A6 = A6 
  3024. + 1: IF A3 < 22 THEN 1490
  3025.  1450  FOR F = 1 TO  LEN (F$) STEP 3: IF  MID$ (F$,F,1) <  > "A" THEN  NEXT :O$ 
  3026. = EL$ + "Dealer- Busted!":GD = GD + A: GOTO 1200
  3027.  1460  IF F = 1 THEN F$ = "1" +  MID$ (F$,2)
  3028.  1470  IF F <  > 1 THEN F$ =  LEFT$ (F$,F - 1) + "1" +  MID$ (F$,F + 1)
  3029.  1480 O$ = EL$ + "Dealer- Ace counts as one.":A3 = A3 - 10: GOSUB 7000: GOTO 144
  3030. 0
  3031.  1490  IF A3 < 17 THEN O$ = EL$ + "Dealer- Hits": GOSUB 7000: GOSUB 1580:F$ = F$
  3032.  + ZZ$:A3 = A3 + X: GOTO 1440
  3033.  1500  IF A3 <  > 17 OR A6 THEN 1530
  3034.  1510  FOR F = 1 TO  LEN (F$) STEP 3: IF  MID$ (F$,F,1) = "A" THEN O$ = EL$ + "D
  3035. ealer- Hits on soft seventeen (17)": GOSUB 7000: GOSUB 1580:F$ = F$ + ZZ$:A3 = A
  3036. 3 + X: GOTO 1440
  3037.  1520  NEXT 
  3038.  1530  IF A3 = 21 AND  NOT A6 THEN O$ = EL$ + "Dealer- has Blackjack!": GOSUB 70
  3039. 00
  3040.  1540 O$ = DL$ + "Dealer- Total = " +  STR$ (A3) + EL$ + "Plater- Total = " +  S
  3041. TR$ (A4) + EL$: GOSUB 7000: IF A3 = 21 THEN O$ = EL$ + "Sorry, house always wins
  3042.  with 21!":GD = GD - A: GOTO 1200
  3043.  1550  IF A4 = A3 THEN O$ = EL$ + "It's a push- oh well...": GOTO 1200
  3044.  1560  IF A4 > A3 THEN O$ = EL$ + "Player- Wins!":GD = GD + A: GOTO 1200
  3045.  1570 O$ = EL$ + "Player- Loses...":GD = GD - A: GOTO 1200
  3046.  1580  IF  NOT A7 THEN  GOSUB 1620
  3047.  1590 ZZ$ =  LEFT$ (B$,2) + " ": IF  LEN (B$) > 2 THEN B$ =  RIGHT$ (B$, LEN (B$
  3048. ) - 2)
  3049.  1600 A7 = A7 - 1: FOR F = 1 TO 9: IF  LEFT$ (ZZ$,1) <  >  MID$ (B$(2),F,1) THEN
  3050.   NEXT 
  3051.  1610 X = F + 10 * (F = 1): RETURN 
  3052.  1620 F =  FRE (0):O$ = DL$ + "New Deck: Shuffling..." + EL$: GOSUB 7000:B$ = MO
  3053. $:MO$ = "": FOR F = 52 TO 2 STEP  - 1:Y =  INT (F *  RND (1)) * 2:MO$ = MO$ +  M
  3054. ID$ (B$,Y + 1,2)
  3055.  1630  IF Y AND Y < F * 2 - 2 THEN B$ =  LEFT$ (B$,Y) +  RIGHT$ (B$,F * 2 - Y - 
  3056. 2): GOTO 1660
  3057.  1640  IF  NOT Y THEN B$ =  RIGHT$ (B$,F * 2 - 2): GOTO 1660
  3058.  1650  IF Y =  LEN (B$) - 2 THEN B$ =  LEFT$ (B$, LEN (B$) - 2)
  3059.  1660  NEXT :MO$ = MO$ + B$:B$ = MO$:A7 = 52: RETURN 
  3060.  1670  IF I$ = "Q" OR I$ = "0" THEN  POP : GOTO 130
  3061.  1680  RETURN 
  3062.  1690  IF  VAL (I$) < 1 THEN O$ = EL$ + "[Positive Numbers Only!]":BE = 1: GOSUB
  3063.  7000: RETURN 
  3064.  1700  IF  VAL (I$) > GD THEN O$ = EL$ + YO$:BE = 1: GOSUB 7000: RETURN 
  3065.  1710  RETURN 
  3066.  1720 O$ = EL$ + "You walk over to The Russian Roulette   Table and pick up the 
  3067. Gun...": GOSUB 7000
  3068.  1730 G(0) = 1
  3069.  1740 G(1) = G(0) * (LE * LE * 35):O$ = DL$ + "1) Pull The Trigger" + DL$ + "[Go
  3070. ld in Pot:" +  STR$ (G(1)) + "][Q]->": GOSUB 6000
  3071.  1750  GOSUB 1670: GOSUB 8300: IF I$ <  > "1" THEN 1740
  3072.  1760 O$ = EL$ + "You Pull The Trigger....": GOSUB 7000: FOR X = 1 TO 750: NEXT 
  3073.  
  3074.  1770 G(0) = G(0) + 1
  3075.  1780 X =  INT (2 *  RND (1)) + 1
  3076.  1790  IF X = 2 THEN O$ = "Bang!" + DL$ + "You Are Dead.  You lose all your Gold
  3077. !": GOSUB 7000:GD = 0: GOTO 8370
  3078.  1800 GD = GD + G(1)
  3079.  1810 O$ = "Click!" + DL$ + "Phew!....You win " +  STR$ (G(1)) + " Gold!": GOSUB
  3080.  7000: GOTO 1740
  3081.  1820 A$ = CH$:A = J: GOSUB 8390: CALL 35848"CHAT"
  3082.  6000  GOSUB 7000: GOSUB 8000: RETURN 
  3083.  7000  & B / O$: POKE 960,0: RETURN 
  3084.  8000 CC = 0: IF  PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
  3085. 8539:CF = 9
  3086.  8010  IF CF = 9 AND  PEEK (1) <  > 128 THEN CF = 1:CA$ = "Y"
  3087.  8020  IF CA$ <  > "Y" OR  LEN (CN$) > 1 THEN 8040
  3088.  8030  IF CF = 1 THEN  CALL 38539
  3089.  8040  IF  PEEK (1) = 128 THEN 8140
  3090.  8050  IF  LEN (CN$) = 0 THEN 8140
  3091.  8060  FOR T = 1 TO  LEN (CN$)
  3092.  8070  IF  MID$ (CN$,T,1) = "," THEN I$ =  MID$ (CN$,1,T - 1):CN$ =  RIGHT$ (CN$
  3093. , LEN (CN$) - T): GOTO 8110
  3094.  8080  IF  MID$ (CN$,T,1) = "#" THEN I$ =  MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
  3095. 0
  3096.  8090  NEXT 
  3097.  8100  POKE 960,0
  3098.  8110  IF O$ = "STOP" THEN O$ = "": GOTO 8210
  3099.  8120  IF  LEN (I$) = 0 THEN 8050
  3100.  8130 O$ = I$ + EL$: GOSUB 7000: GOTO 8290
  3101.  8140  POKE 960,0: & A / SP$:I$ =  MID$ (SP$,1): IF  PEEK (961) THEN 1820
  3102.  8150 CN$ = I$ + "#":O$ = "STOP"
  3103.  8160  IF  LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
  3104.  8170  POKE 961,0: IF  PEEK (960) = 255 THEN CC = CC + 1: IF CC > 1 THEN 8440
  3105.  8180  IF  PEEK (960) = 255 OR I$ = "OFF" THEN 8370
  3106.  8190  IF  PEEK (1) = 128 THEN CN$ = "": GOTO 8230
  3107.  8200  IF  LEN (CN$) > 0 THEN 8060
  3108.  8210  IF  LEN (I$) <  > 1 AND  RIGHT$ (I$,1) = " " THEN I$ =  LEFT$ (I$, LEN (I
  3109. $) - 1): GOTO 8210
  3110.  8220  IF  LEN (I$) <  > 1 AND  LEFT$ (I$,1) = " " THEN I$ =  RIGHT$ (I$, LEN (I
  3111. $) - 1): GOTO 8220
  3112.  8230  IF  LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 7000: GOTO 8250
  3113.  8240  IF  LEN (I$) = 0 THEN 8000
  3114.  8250  IF CA$ <  > "Y" THEN 8290
  3115.  8260  IF CF = 1 THEN  CALL 36798
  3116.  8270  IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 7000: CALL 36798
  3117. :CF = 1
  3118.  8280  IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 7000: CALL 385
  3119. 39:CF = 0
  3120.  8290 CR = 0: RETURN 
  3121.  8300  IF CL$ = "N" THEN T$ = DA$: RETURN 
  3122.  8310  PR# 4: IN# 4: INPUT "#";T,T,T,T,T,B: INPUT "%";T$
  3123.  8320  PR# 0: POKE 56,102: POKE 57,213: CALL 1002
  3124.  8330  IF TI > T THEN T = TI + (60 - TI) + T
  3125.  8340 TL = CO - (T - TI)
  3126.  8350  IF TL <  = 0 THEN O$ = EL$ + "You are out of Time!  Later.": GOSUB 7000: 
  3127. GOTO 8370
  3128.  8360  RETURN 
  3129.  8370 A$ = OF$:A = J: GOSUB 8390: CALL 35848"OFF"
  3130.  8380  GOSUB 8300: RETURN 
  3131.  8390 Y =  VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y =  VAL ( RIGHT$ (A$,1)): POKE 43
  3132. 624,Y:Y =  VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN  PRINT D$"OPEN VC,V"Y
  3133.  8395  IF TC$ = "Y" THEN  POKE 1014,10: POKE 952,215: POKE 953,251
  3134.  8400  RETURN 
  3135.  
  3136. ]LOAD JOUST
  3137. ]LIST
  3138.  
  3139.  5  IF TC$ = "Y" THEN  POKE 1014,0: POKE 952,240: POKE 953,253
  3140.  10  CALL 54915
  3141.  20  ONERR  GOTO 8520
  3142.  30  IF A > 0 THEN 50
  3143.  40  PRINT  CHR$ (4)"SAVEJOUST,S3": PRINT  CHR$ (4)"RUNSTART,S6"
  3144.  50  HOME :O$ = SC$ + "-----------The Proving Downs!-----------" + EL$ + "      
  3145.  A Real Jousting Experience" + DL$: GOSUB 7000
  3146.  60 O$ = "You lead your steed up to the Gate-     keeper of the field and he say
  3147. s:": GOSUB 7000
  3148.  70  IF LJ = 2 THEN 560
  3149.  80  GOSUB 8300:O$ = DL$ + "'Greetings Knight!" + DL$ + "Enter thy opponent's #(
  3150. JL=" +  STR$ (2 - LJ) + ")'->": GOSUB 6000
  3151.  90  GOTO 8470
  3152.  100  IF I$ = "Q" THEN 560
  3153.  110 X =  VAL (I$): IF X > US OR X < 1 OR (A = X) THEN O$ = EL$ + "Invalid Numbe
  3154. r!": GOSUB 7000: GOTO 70
  3155.  120 A1 = X
  3156.  130  PRINT D$"OPENSTATS,L200"C$(15): PRINT D$"READSTATS,R"X: INPUT B$(1),B$(2),
  3157. T,S1,X,X,B(5),X,S2: PRINT D$"CLOSE": IF B$(1) = "Empty" THEN O$ = EL$ + "Sorry, 
  3158. that Knight has been deleted.": GOSUB 7000: GOTO 70
  3159.  140  IF S1 < 0 THEN S1 = S1 - (S1 * 2)
  3160.  150  IF S < 0 THEN S2 = S2 - (S2 * 2)
  3161.  160  IF LE > T + FL THEN O$ = EL$ + "You can only Joust a user higher or " +  S
  3162. TR$ (FL) + " lEvels below you." + EL$: GOSUB 8390: GOSUB 7000: GOTO 70
  3163.  170 J = A1: ONERR  GOTO 190
  3164.  180  PRINT D$"OPENDOWNS,L17"C$(15): PRINT D$"READDOWNS,R"J: INPUT S3,S4,B(7),B(
  3165. 8),B(9): PRINT D$"CLOSE": GOTO 200
  3166.  190  CALL  - 3288:S3 = 0:S4 = 0:B(7) = 0:B(8) = 0:B(9) = 0
  3167.  200 O$ = EL$ + "Character: " + B$(1) + EL$ + "     Wins: " +  STR$ (S3) + EL$ +
  3168.  "   Losses: " +  STR$ (S4): GOSUB 7000
  3169.  210 B(0) = S1 + S2 + S3 - S4
  3170.  220 O$ = EL$ + "    Skill: " +  STR$ (B(0)) + DL$ + "Do you wish to joust this 
  3171. Knight?": GOSUB 6000
  3172.  230  IF I$ = "Q" OR I$ = "N" THEN 70
  3173.  240  IF I$ <  > "Y" THEN 200
  3174.  250  IF B(0) > (ST + AG + JW - JL) * 2 THEN O$ = EL$ + "Sorry, but to Joust a K
  3175. night of such    stature would surely be suicide!": GOSUB 7000: GOTO 70
  3176.  260 LJ = LJ + 1:O$ = EL$ + "The first user to strike 3 times wins!" + DL$ + "Th
  3177. e trumpets blare..." + DL$ + "You enter the jousting field." + DL$ + B$(1) + " s
  3178. pits at you!": GOSUB 7000
  3179.  270 P = 1:W = 0:L = 0:S7 = AG + ST + JW - JL:S8 = S1 + S2 + S3 - S4
  3180.  280  IF P > 5 OR W > 2 OR L > 2 THEN 450
  3181.  290 O$ = DL$ + "[Pass " +  STR$ (P) + "][(J)oust (G)iveup][W=" +  STR$ (W) + " 
  3182. L=" +  STR$ (L) + "]:": GOSUB 6000
  3183.  300  IF I$ = "G" THEN O$ = EL$ + "The Crowd throws rocks at you as you    leave
  3184.  the arena!" + EL$: GOSUB 7000: GOTO 70
  3185.  310  IF I$ <  > "J" THEN 290
  3186.  320 P = P + 1
  3187.  330 O$ = EL$ + "You spur your horse, the tension mounts!": GOSUB 7000
  3188.  340 B(3) = S7 / 2:B(3) =  INT (B(3) *  RND (1)) + S7
  3189.  350 B(4) = S8 / 2:B(4) =  INT (B(4) *  RND (1)) + S8
  3190.  360  IF B(3) = B(4) THEN 340
  3191.  370  IF B(3) > B(4) THEN X =  INT (3 *  RND (1)) + 4: GOTO 390
  3192.  380 X =  INT (3 *  RND (1)) + 1
  3193.  390  ON X GOSUB 410,420,430,440,440,440
  3194.  400  GOTO 280
  3195.  410 L = L + 1:O$ = EL$ + ")Ooof!(- A blow! You lose this pass!": GOSUB 7000: GO
  3196. SUB 570: RETURN 
  3197.  420 L = L + 1:O$ = EL$ + ">Snap!<- Your lance breaks!  Pass lost!": GOSUB 7000:
  3198.  GOSUB 570: RETURN 
  3199.  430 L = L + 1:O$ = EL$ + "]Aargh![- Your horse stumbles! Loss!": GOSUB 7000: GO
  3200. SUB 570: RETURN 
  3201.  440 W = W + 1:O$ = EL$ + "*Thud!*- A hit! You win this pass!" + EL$: GOSUB 7000
  3202. : GOSUB 620: RETURN 
  3203.  450  IF W < 3 THEN 500
  3204.  460 O$ = DL$ + "You have won the joust!" + EL$: GOSUB 7000
  3205.  470 S4 = S4 + 1:O$ = EL$ + "The Queen tosses you her handkercheif!" + EL$: GOSU
  3206. B 7000:JW = JW + 1
  3207.  480 X = LE * LE * 60:O$ = EL$ + "You gain " +  STR$ (X) + " Gold Pieces!" + EL$
  3208. : GOSUB 7000:GD = GD + X
  3209.  490  GOTO 520
  3210.  500 O$ = DL$ + "You have lost the joust!" + EL$: GOSUB 7000
  3211.  510 S3 = S3 + 1:O$ = EL$ + "The Queen frowns as you leave..." + EL$: GOSUB 7000
  3212. :JL = JL + 1
  3213.  520  IF L = 3 THEN B(7) = B(7) + 1: GOTO 540
  3214.  530 B(8) = B(8) + 1
  3215.  540  PRINT D$"OPENDOWNS,L17"C$(15): PRINT D$"WRITEDOWNS,R"J: PRINT S3: PRINT S4
  3216. : PRINT B(7): PRINT B(8): PRINT B(9): PRINT D$"CLOSE"
  3217.  550  GOTO 70
  3218.  560 A$ = MA$: GOSUB 8450:O$ = EL$ + "[Hold...] Transporting to Main" + EL$: GOS
  3219. UB 7000: CALL 35848"MAIN"
  3220.  570 X =  INT ( RND (1) * 10 / 3):O$ = DL$: GOSUB 7000: IF X = 0 THEN X = 1
  3221.  580  ON X GOTO 590,600,610
  3222.  590 O$ = "The King relieves himself on you...": GOTO 7000
  3223.  600 O$ = "The crowd dispells garbage on you...": GOTO 7000
  3224.  610 O$ = "The crowd boos vigorously...": GOTO 7000
  3225.  620 X =  INT ( RND (1) * 10 / 3)
  3226.  630 O$ = EL$: GOSUB 7000
  3227.  640  IF X = 0 THEN X = 1
  3228.  650  ON X GOTO 660,670,680
  3229.  660 O$ = "The Queen waves at you!": GOTO 7000
  3230.  670 O$ = "The crowd roars with approval!": GOTO 7000
  3231.  680 O$ = "The crowd is doing the WAVE!": GOTO 7000
  3232.  6000  GOSUB 7000: GOSUB 8000: RETURN 
  3233.  7000  & B / O$: POKE 960,0: RETURN 
  3234.  8000 CC = 0: IF  PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
  3235. 8539:CF = 9
  3236.  8010  IF CF = 9 AND  PEEK (1) <  > 128 THEN CF = 1:CA$ = "Y"
  3237.  8020  IF CA$ <  > "Y" OR  LEN (CN$) > 1 THEN 8040
  3238.  8030  IF CF = 1 THEN  CALL 38539
  3239.  8040  IF  PEEK (1) = 128 THEN 8140
  3240.  8050  IF  LEN (CN$) = 0 THEN 8140
  3241.  8060  FOR T = 1 TO  LEN (CN$)
  3242.  8070  IF  MID$ (CN$,T,1) = "," THEN I$ =  MID$ (CN$,1,T - 1):CN$ =  RIGHT$ (CN$
  3243. , LEN (CN$) - T): GOTO 8110
  3244.  8080  IF  MID$ (CN$,T,1) = "#" THEN I$ =  MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
  3245. 0
  3246.  8090  NEXT 
  3247.  8100  POKE 960,0
  3248.  8110  IF O$ = "STOP" THEN O$ = "": GOTO 8210
  3249.  8120  IF  LEN (I$) = 0 THEN 8050
  3250.  8130 O$ = I$ + EL$: GOSUB 7000: GOTO 8290
  3251.  8140  POKE 960,0: & A / SP$:I$ =  MID$ (SP$,1): IF  PEEK (961) THEN 8380
  3252.  8150 CN$ = I$ + "#":O$ = "STOP"
  3253.  8160  IF  LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
  3254.  8170  POKE 961,0: IF  PEEK (960) = 255 THEN CC = CC + 1: IF CC > 1 OR I$ = "OFF
  3255. " THEN 8370
  3256.  8180  IF  PEEK (960) = 255 OR I$ = "OFF" THEN 8140
  3257.  8190  IF  PEEK (1) = 128 THEN CN$ = "": GOTO 8230
  3258.  8200  IF  LEN (CN$) > 0 THEN 8060
  3259.  8210  IF  LEN (I$) <  > 1 AND  RIGHT$ (I$,1) = " " THEN I$ =  LEFT$ (I$, LEN (I
  3260. $) - 1): GOTO 8210
  3261.  8220  IF  LEN (I$) <  > 1 AND  LEFT$ (I$,1) = " " THEN I$ =  RIGHT$ (I$, LEN (I
  3262. $) - 1): GOTO 8220
  3263.  8230  IF  LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 7000: GOTO 8250
  3264.  8240  IF  LEN (I$) = 0 THEN 8000
  3265.  8250  IF CA$ <  > "Y" THEN 8290
  3266.  8260  IF CF = 1 THEN  CALL 36798
  3267.  8270  IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 7000: CALL 36798
  3268. :CF = 1
  3269.  8280  IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 7000: CALL 385
  3270. 39:CF = 0
  3271.  8290 CR = 0: RETURN 
  3272.  8300  IF CL$ = "N" THEN T$ = DA$: RETURN 
  3273.  8310  PR# 4: IN# 4: INPUT "#";T,T,T,T,T,B: INPUT "%";T$
  3274.  8320  PR# 0: POKE 56,102: POKE 57,213: CALL 1002
  3275.  8330  IF TI > T THEN T = TI + (60 - TI) + T
  3276.  8340 TL = CO - (T - TI)
  3277.  8350  IF TL <  = 0 THEN O$ = EL$ + "You are out of Time!  Later.": GOSUB 7000: 
  3278. POP : GOTO 8370
  3279.  8360  RETURN 
  3280.  8370 A$ = OF$: GOSUB 8450: CALL 35848"OFF"
  3281.  8380 A$ = CH$: GOSUB 8450: CALL 35848"CHAT"
  3282.  8390  IF  LEN (O$) < 40 OR  LEN (O$) > 79 THEN  RETURN 
  3283.  8400 X = 0
  3284.  8410  IF  MID$ (O$,40 - X,1) = " " THEN B$(0) =  LEFT$ (O$,39 - X):B$(0) = B$(0
  3285. ) + EL$ +  RIGHT$ (O$, LEN (O$) - (40 - X)): GOTO 8430
  3286.  8420 X = X + 1: GOTO 8410
  3287.  8430 O$ = B$(0)
  3288.  8440  RETURN 
  3289.  8450 Y =  VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y =  VAL ( RIGHT$ (A$,1)): POKE 43
  3290. 624,Y:Y =  VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN  PRINT D$"OPEN VC,V"Y
  3291.  8455  IF TC$ = "Y" THEN  POKE 1014,10: POKE 952,215: POKE 953,251
  3292.  8460  RETURN 
  3293.  8470  FOR X = 20 TO JW STEP 20
  3294.  8480  IF LR <  = X AND JW > 19 THEN 8510
  3295.  8490  NEXT 
  3296.  8500  GOTO 100
  3297.  8510  CALL 54915:LR = X + 1:O$ = EL$ + "You have " +  STR$ (X) + " Wins!" + DL$
  3298.  + "All Stats + 5!": GOSUB 7000:ST = ST + 5:AG = AG + 5:WI = WI + 5:CH = CH + 5:
  3299.  GOTO 80
  3300.  8520  CALL  - 3288: GOTO 70
  3301.  
  3302. ]LOAD MA
  3303. ]LIST
  3304.  
  3305.  5  IF TC$ = "Y" THEN  POKE 1014,0: POKE 952,240: POKE 953,253
  3306.  10  CALL 54915
  3307.  20  IF A > 0 THEN 40
  3308.  30  PRINT  CHR$ (4)"SAVEMA,S3": PRINT  CHR$ (4)"RUNCHAT,S6"
  3309.  40  ONERR  GOTO 70
  3310.  50 K = 5: IF FE = 1 THEN D1$ = SY$:FE = 0: GOTO 160
  3311.  60  GOTO 510
  3312.  70  CALL  - 3288: GOTO 510
  3313.  80 A$ = OF$: GOSUB 8420: CALL 35848"OFF"
  3314.  90 A$ = CH$: GOSUB 8420: CALL 35848"CHAT"
  3315.  100  RETURN 
  3316.  110 O$ = EL$ + "Send a Scroll.  Press 'M' for Match     or enter User #": GOSUB
  3317.  6000
  3318.  120  IF I$ = "Q" THEN 520
  3319.  130  IF I$ = "M" THEN 610
  3320.  140 X =  VAL (I$): IF X < 1 OR X > US THEN 110
  3321.  150  PRINT D$"OPENSTATS,L200"C$(15): PRINT D$"READSTATS,R"X: INPUT D1$: PRINT D
  3322. $"CLOSE":O$ = EL$ + "Send Mail to " + D1$ + "? ": GOSUB 6000: IF I$ <  > "Y" OR 
  3323. D1$ = "Empty" THEN 110
  3324.  160  GOSUB 7010: IF  NOT X THEN 570
  3325.  170 CR = 0:D3$ = "Letter Has Been Mailed": GOSUB 450: GOTO 510
  3326.  180 O$ = EL$ + "Read Your Scrolls" + DL$: GOSUB 7000
  3327.  190  IF MA <  > 1 THEN O$ = DL$ + "You Have No Scrolls!": GOSUB 7000: GOTO 510
  3328.  200 F$ = "M-" + NA$
  3329.  210  PRINT  CHR$ (4)"OPEN"F$C$(20)
  3330.  220  PRINT  CHR$ (4)"READ"F$: & E / ZZ$: IF ZZ$ =  CHR$ (0) THEN 440
  3331.  230 O$ = DL$: GOSUB 7000:C = 1:BB = 1
  3332.  240 D$(1) =  MID$ (ZZ$,1): IF  LEFT$ (ZZ$,1) =  CHR$ (1) THEN O$ = D$(1) + DL$:
  3333.  GOSUB 7000: & E / ZZ$:D$(3) =  MID$ (ZZ$,2):C = 3:D$(2) = ""
  3334.  250 D1$ = D$(C):D$(C) = "[Written By]=>" + D$(C):O$ = D$(C) + EL$: GOSUB 7000:C
  3335.  = C + 1
  3336.  260  & E / ZZ$:D$(C) =  MID$ (ZZ$,1): IF  PEEK (960) =  PEEK (970) THEN BB = 0
  3337.  270  IF ZZ$ <  >  CHR$ (31) THEN C = C + 1: IF BB THEN O$ = EL$ + D$(C - 1): GO
  3338. SUB 7000
  3339.  280  IF C = 16 AND CF = 1 THEN O$ = EL$ + "[Press Return]":CR = 1: GOSUB 6000
  3340.  290  IF ZZ$ <  >  CHR$ (31) THEN 260
  3341.  300  POKE 960,0:O$ = DL$: GOSUB 7000
  3342.  310 O$ = EL$ + "[A/uto-Reply-D/elete-R/e-read]->": GOSUB 7000: GOSUB 8330:O$ = 
  3343. EL$: GOSUB 7000
  3344.  320  IF I$ <  > "A" THEN 380
  3345.  330 O$ = EL$ + "[Hold...]  Checking for mailbox" + EL$: GOSUB 7000: PRINT D$"OP
  3346. ENSTATS,L200"C$(15)
  3347.  340  FOR Z = 1 TO US: PRINT D$"READSTATS,R"Z: INPUT O$
  3348.  350  IF O$ = D1$ THEN  PRINT D$"CLOSESTATS": GOTO 420
  3349.  360  NEXT 
  3350.  370  PRINT D$"CLOSESTATS":O$ = EL$ + "Sorry, that character is no longer on   t
  3351. his system." + EL$: GOSUB 7000: GOTO 310
  3352.  380  IF I$ = "Q" AND J = 1 THEN 440
  3353.  390  IF I$ <  > "R" THEN 220
  3354.  400 O$ = DL$: GOSUB 7000: FOR Z = 1 TO C - 1:O$ = D$(Z) + EL$: GOSUB 7000: IF  
  3355. PEEK (960) =  PEEK (970) THEN Z = C
  3356.  410  NEXT Z: POKE 960,0:O$ = DL$: GOSUB 7000: GOTO 310
  3357.  420  GOSUB 7010: IF  NOT X THEN 220
  3358.  430 CR = 0:D3$ = "Mailed to [" + D1$ + "]" + EL$: GOSUB 450: GOTO 220
  3359.  440  PRINT  CHR$ (4)"CLOSE":MA = 2:O$ = EL$: GOTO 7000
  3360.  450 O$ = EL$ + "Mailing To: " + D1$ + DL$: GOSUB 7000: PRINT  CHR$ (4)"OPENM-"D
  3361. 1$""C$(20): PRINT  CHR$ (4)"APPENDM-"D1$: PRINT  CHR$ (4)"WRITEM-"D1$
  3362.  460  IF CR = 1 THEN  PRINT  CHR$ (1)
  3363.  470 B(0) =  - 99
  3364.  480  PRINT NA$: GOSUB 8340: PRINT "[Day Mailed]=>"T$" #"J: PRINT : FOR Z = 1 TO
  3365.  X: PRINT D$(Z): NEXT Z: PRINT  CHR$ (31)
  3366.  490 B(0) = 0
  3367.  500  PRINT  CHR$ (4)"CLOSEM-"D1$:O$ = D3$: GOTO 7000
  3368.  510  GOTO 520
  3369.  520  GOSUB 8340:O$ = DL$ + "Dungeon Script Office" + DL$ + "[S/end-R/ead-Q/uit]
  3370. ->": GOSUB 6000
  3371.  530  IF I$ = "S" THEN 110
  3372.  540  IF I$ = "Q" THEN 580
  3373.  550  IF I$ = "R" THEN 180
  3374.  560  GOTO 510
  3375.  570  IF FE = 1 THEN FE = 0: GOTO 510
  3376.  580 O$ = DL$ + "Return to Main Dungeon? [Y/N]:": GOSUB 6000: IF I$ <  > "Y" THE
  3377. N 510
  3378.  590 A$ = MA$: GOSUB 8420: CALL 35848"MAIN"
  3379.  600  RETURN 
  3380.  610 O$ = EL$ + "Enter Users Full Name->": GOSUB 6000
  3381.  620 O$ = I$: GOSUB 8440:I$ = B$(0)
  3382.  630  PRINT D$"OPENSTATS,L200"C$(15)
  3383.  640  FOR X = 1 TO US
  3384.  650  PRINT D$"READSTATS,R"X
  3385.  660  INPUT B$(0): IF B$(0) = I$ THEN O$ = EL$ + B$(0) + " is User #" +  STR$ (X
  3386. ) + EL$:D1$ = B$(0): GOSUB 7000: PRINT D$"CLOSE": GOTO 150
  3387.  670  NEXT 
  3388.  680  PRINT D$"CLOSE"
  3389.  690 O$ = EL$ + "There is no such user!" + EL$: GOSUB 7000: GOTO 110
  3390.  6000  GOSUB 7000: GOSUB 8000: RETURN 
  3391.  7000  & B / O$: POKE 960,0: RETURN 
  3392.  7010  HOME :O$ = SC$ + EL$ + "  [" +  STR$ (ML) + "] Lines - [/EX] Ends  [/S] S
  3393. aves": GOSUB 7000:O$ = EL$ + "[/UP] Redo last line  [/LN] Line Number" + DL$: GO
  3394. SUB 7000:X = 1
  3395.  7015  IF CA$ <  > "Y" THEN 7030
  3396.  7020  POKE 36996,76: POKE 36998,142
  3397.  7030 CR = 1: POKE 1,128: GOSUB 8000:D$(X) = I$: POKE 1,0: IF  PEEK (872) = 1 TH
  3398. EN  POKE 0,VW
  3399.  7040  IF I$ = "/EX" OR I$ = "/ex" THEN D$(X) = "": GOTO 7120
  3400.  7050  IF I$ = "/UP" OR I$ = "/up" AND X > 1 THEN O$ = "[Retype the line]" + EL$
  3401. : GOSUB 7000:X = X - 1: GOTO 7030
  3402.  7060  IF I$ = "/S" OR I$ = "/s" THEN D$(X) = "":I$ = "S": GOTO 7160
  3403.  7070  IF I$ = "/LN" OR I$ = "/ln" THEN O$ = "[Line # " +  STR$ (X) + "]" + EL$:
  3404.  GOSUB 7000:X = X - 1
  3405.  7080  IF X = ML - 5 THEN O$ = "[5] More lines" + EL$: GOSUB 7000
  3406.  7090  POKE 38689,0: IF  PEEK (36712) = 1 THEN  POKE 0,VW
  3407.  7100 X = X + 1: IF X <  = ML THEN 7030
  3408.  7110 O$ = EL$ + "That's [" +  STR$ (ML) + "] lines" + EL$: GOSUB 7000
  3409.  7120 O$ = EL$ + "[Edit/S/?]->": GOSUB 7000: GOSUB 8330
  3410.  7125 O$ = EL$: GOSUB 7000
  3411.  7130  IF I$ = "?" THEN O$ = DL$ + "S)ave" + EL$ + "L)ist" + EL$ + "N)ew" + EL$ 
  3412. + "C)ontinue" + EL$ + "F)ix" + EL$ + "Q)uit" + EL$: GOSUB 7000: GOTO 7120
  3413.  7140  IF I$ = "Q" THEN  GOSUB 7360:X = 0: POKE 36996,169: POKE 36998,32:O$ = DL
  3414. $ + "[Message Aborted!]": GOTO 7000
  3415.  7150  IF I$ = "L" THEN A$ = "": GOSUB 7300: GOTO 7120
  3416.  7160  IF I$ = "S" OR I$ = "O" THEN X = X - 1: POKE 36996,169: POKE 36998,32: RE
  3417. TURN 
  3418.  7170  IF I$ = "N" THEN  GOSUB 7360:O$ = EL$: GOSUB 7000: GOTO 7010
  3419.  7180  IF I$ = "F" THEN 7210
  3420.  7190  IF I$ = "C" THEN A$ = "":Z = X - 1:F = Z - 3:F = F * (F >  - 1) + 1: GOSU
  3421. B 7330:X = X - 1: GOTO 7100
  3422.  7200  GOTO 7120
  3423.  7210 O$ = EL$ + "List Lines [Y/N]:": GOSUB 7000: GOSUB 8330
  3424.  7220  IF I$ = "N" THEN 7250
  3425.  7230  IF I$ = "Y" THEN A$ = "X": GOSUB 7300: GOTO 7250
  3426.  7240  GOTO 7210
  3427.  7250 O$ = DL$ + "Edit Line [CR=Quit] #": GOSUB 7000:CR = 1: GOSUB 8300
  3428.  7260  IF I$ = "" THEN 7120
  3429.  7270  REM 
  3430.  7280  IF J < 1 OR J >  = X THEN O$ = EL$ + "[Line Doesn't Exist!]" + EL$: GOSUB
  3431.  7000: GOTO 7120
  3432.  7290 A$ = "[" +  RIGHT$ ("0" +  STR$ (J) + "] ",4):O$ = EL$ + A$ + D$(J) + EL$ 
  3433. + A$: GOSUB 7000:CR = 1: POKE 1,128: GOSUB 8000:D$(J) = I$: POKE 1,0: GOTO 7210
  3434.  7300 O$ = DL$ + "List from [CR=Lists all] #": GOSUB 7000:CR = 1: GOSUB 8300:F =
  3435.  1:Z = X - 1: IF I$ = "" THEN 7320
  3436.  7310 F = J:O$ = "       To [CR=To The End] #": GOSUB 7000:CR = 1: GOSUB 8300:Z 
  3437. = J: IF I$ = "" THEN Z = X - 1
  3438.  7320  IF F < 1 OR Z >  = X THEN O$ = EL$ + "[Line # Doesn't Exist!]" + EL$: GOT
  3439. O 7000
  3440.  7330 O$ = EL$: GOSUB 7000: IF X < 2 THEN  RETURN 
  3441.  7340  FOR J = F TO Z: IF A$ > "" THEN A$ = "[" +  RIGHT$ ("0" +  STR$ (J),2) + 
  3442. "] "
  3443.  7350 O$ = A$ + D$(J) + EL$: GOSUB 7000: NEXT J: RETURN 
  3444.  7360  IF X > 1 THEN O$ = EL$ + "Verify? [Y/N]:": GOSUB 7000: GOSUB 8330: IF I$ 
  3445. <  > "Y" THEN  POP : GOTO 7120
  3446.  7370  RETURN 
  3447.  8000 CC = 0: IF  PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
  3448. 8539:CF = 9
  3449.  8010  IF CF = 9 AND  PEEK (1) <  > 128 THEN CF = 1:CA$ = "Y"
  3450.  8020  IF CA$ <  > "Y" OR  LEN (CN$) > 1 THEN 8040
  3451.  8030  IF CF = 1 THEN  CALL 38539
  3452.  8040  IF  PEEK (1) = 128 THEN 8140
  3453.  8050  IF  LEN (CN$) = 0 THEN 8140
  3454.  8060  FOR T = 1 TO  LEN (CN$)
  3455.  8070  IF  MID$ (CN$,T,1) = "," THEN I$ =  MID$ (CN$,1,T - 1):CN$ =  RIGHT$ (CN$
  3456. , LEN (CN$) - T): GOTO 8110
  3457.  8080  IF  MID$ (CN$,T,1) = "#" THEN I$ =  MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
  3458. 0
  3459.  8090  NEXT 
  3460.  8100  POKE 960,0
  3461.  8110  IF O$ = "STOP" THEN O$ = "": GOTO 8210
  3462.  8120  IF  LEN (I$) = 0 THEN 8050
  3463.  8130 O$ = I$ + EL$: GOSUB 7000: GOTO 8290
  3464.  8140  POKE 960,0: & A / SP$:I$ =  MID$ (SP$,1): IF  PEEK (961) THEN 90
  3465.  8150 CN$ = I$ + "#":O$ = "STOP"
  3466.  8160  IF  LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
  3467.  8170  POKE 961,0: IF  PEEK (960) = 255 THEN CC = CC + 1: IF CC > 1 OR I$ = "OFF
  3468. " THEN 80
  3469.  8180  IF  PEEK (960) = 255 THEN 8140
  3470.  8190  IF  PEEK (1) = 128 THEN CN$ = "": GOTO 8230
  3471.  8200  IF  LEN (CN$) > 0 THEN 8060
  3472.  8210  IF  LEN (I$) <  > 1 AND  RIGHT$ (I$,1) = " " THEN I$ =  LEFT$ (I$, LEN (I
  3473. $) - 1): GOTO 8210
  3474.  8220  IF  LEN (I$) <  > 1 AND  LEFT$ (I$,1) = " " THEN I$ =  RIGHT$ (I$, LEN (I
  3475. $) - 1): GOTO 8220
  3476.  8230  IF  LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 7000: GOTO 8250
  3477.  8240  IF  LEN (I$) = 0 THEN 8000
  3478.  8250  IF CA$ <  > "Y" THEN 8290
  3479.  8260  IF CF = 1 THEN  CALL 36798
  3480.  8270  IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 7000: CALL 36798
  3481. :CF = 1
  3482.  8280  IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 7000: CALL 385
  3483. 39:CF = 0
  3484.  8290 CR = 0: RETURN 
  3485.  8300  GOSUB 8000: IF I$ = "" THEN  RETURN 
  3486.  8310 J =  INT ( VAL (I$)): IF J < 0 THEN J = 0
  3487.  8320  RETURN 
  3488.  8330  GOTO 8000
  3489.  8340  IF CL$ = "N" THEN T$ = DA$: RETURN 
  3490.  8350  PR# 4: IN# 4: INPUT "#";T,T,T,T,T,B: INPUT "%";T$
  3491.  8360  PR# 0: POKE 56,102: POKE 57,213: CALL 1002
  3492.  8370  IF TI > T THEN T = TI + (60 - TI) + T
  3493.  8380 TL = CO - (T - TI)
  3494.  8390  IF B(0) =  - 99 THEN 8410
  3495.  8400  IF TL <  = 0 THEN O$ = EL$ + "You are out of Time!  Later.": GOSUB 7000: 
  3496. GOTO 80
  3497.  8410  RETURN 
  3498.  8420 Y =  VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y =  VAL ( RIGHT$ (A$,1)): POKE 43
  3499. 624,Y:Y =  VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN  PRINT D$"OPEN VC,V"Y
  3500.  8425  IF TC$ = "Y" THEN  POKE 1014,10: POKE 952,215: POKE 953,251
  3501.  8430  RETURN 
  3502.  8440 B$(0) = ""
  3503.  8450  FOR X = 1 TO  LEN (O$)
  3504.  8460 A$ =  MID$ (O$,X,1)
  3505.  8470  IF X = 1 THEN 8510
  3506.  8480 T =  ASC (A$): IF T < 65 OR T > 90 THEN J = 1: GOTO 8510
  3507.  8490  IF J = 1 THEN J = 0: GOTO 8510
  3508.  8500 T = T + 32:A$ =  CHR$ (T)
  3509.  8510 B$(0) = B$(0) + A$
  3510.  8520  NEXT 
  3511.  8530  RETURN 
  3512.  
  3513. ]LOAD MAIN
  3514. ]LIST
  3515.  
  3516.  10  IF TC$ = "Y" THEN  POKE 1014,0: POKE 952,240: POKE 953,253
  3517.  20  IF FO > 4 THEN FO = 4
  3518.  30  CALL 54915: POKE 1,0: ONERR  GOTO 8720
  3519.  40  IF A > 0 THEN 140
  3520.  50  PRINT  CHR$ (4)"SAVEMAIN,S3": PRINT  CHR$ (4)"RUNFIGHT,S6"
  3521.  60 ST = 10:AG = 10:WI = 10:CH = 10:WE = 2:AR = 2:EX = 0:GD = 500:LE = 1:FI$ = "
  3522. On":FD = 100
  3523.  70 WP$ = "Dagger":AM$ = "Cloth":WP = 3:AP = 1
  3524.  80 HP = 20:TH = 20:PO = 20:TP = 20:BA = 100:L$(1) = "Low-Life Scum":A(1) = 0:L$
  3525. (2) = "Maggot":A(2) = 750
  3526.  90  FOR T = 1 TO SN:S(T) = 0: NEXT 
  3527.  100 S(3) = 2:S(5) = 2:S(26) = 2:S(19) = 1:S(2) = 2:S(8) = 1:JW = 0:JL = 0:LR = 
  3528. 0
  3529.  110  PRINT D$"OPENCASTLES,L39"C$(12): PRINT D$"WRITECASTLES,R"A: PRINT "0000000
  3530. 0000000000000000000000000000000": PRINT D$"CLOSE"
  3531.  120  IF AD$ = "Yes" AND SF$ = "Y" THEN  PRINT D$"OPENSAVE,L48"C$(27): PRINT D$"
  3532. WRITESAVE,R"A: PRINT "0": FOR X = 1 TO 11: PRINT "0": NEXT : PRINT D$"CLOSE"
  3533.  130  RETURN 
  3534.  140  GOSUB 8300:O$ = DL$ + ME$ + DL$ + "[Time:" +  STR$ (TL) + "]:[Cmd/?]->": G
  3535. OSUB 6000: GOSUB 1010: ONERR  GOTO 8720
  3536.  160  IF I$ = "." THEN 2940
  3537.  170  IF I$ = "+" THEN O$ = "Castle Editor": GOSUB 8780:A$ = CE$: GOSUB 8750: CA
  3538. LL 35848"CASTLE EDITOR"
  3539.  180  IF I$ = "!" THEN 2910
  3540.  190  IF CL$ = "N" THEN TL = TL - 1: IF TL < 0 THEN O$ = EL$ + "The Sands of Tim
  3541. e have run dry...." + EL$: GOSUB 7000: GOTO 8510
  3542.  200  IF I$ = "/" THEN 2870
  3543.  210  IF (I$ = "%" AND LJ = 2) OR (I$ = "D" AND FO > 3) THEN O$ = EL$ + "Ye will
  3544.  have to wait till next call to  use that command!" + EL$: GOSUB 7000:I$ = " "
  3545.  220  IF (I$ = "J" AND SF$ <  > "Y") OR (BD$ <  > "Y" AND I$ = "B") THEN O$ = EL
  3546. $ + "Sorry sire, but that option is not      functioning at this time.": GOSUB 7
  3547. 000:I$ = " "
  3548.  230  IF I$ = "%" THEN O$ = "Courtyard": GOSUB 8780:A$ = JO$: GOSUB 8750: CALL 3
  3549. 5848"JOUST"
  3550.  240  IF I$ = "A" THEN O$ = "Bazaar": GOSUB 8780:A$ = ST$: GOSUB 8750: CALL 3584
  3551. 8"STORES"
  3552.  250  IF AD$ = "NO" AND I$ = "J" THEN O$ = EL$ + "Sorry my lord, but you will ha
  3553. ve to be- come a full time member before you can  use that function.": GOSUB 700
  3554. 0:I$ = " "
  3555.  260  IF I$ <  > ":" THEN 290
  3556.  270 O$ = EL$ + "Reset Joust Wins/Losses? Y/N: ": GOSUB 6000: IF I$ = "Y" THEN J
  3557. W = 0:JL = 0:O$ = EL$ + "Done!": GOSUB 7000:LR = 0: GOTO 140
  3558.  280  GOTO 140
  3559.  290  IF I$ = "P" THEN 2680
  3560.  300  IF I$ = "T" THEN 2120
  3561.  310  IF I$ = "S" THEN O$ = EL$ + T$: GOSUB 7000: GOTO 140
  3562.  320  IF I$ = "*" THEN F$ = "CNTRL.CHAR": GOSUB 8370: GOTO 140
  3563.  330  IF I$ = "&" THEN F$ = "FACTS": GOSUB 8370: GOTO 140
  3564.  340  IF I$ <  > "I" THEN 380
  3565.  350 F$ = "INFO": GOSUB 8370:O$ = EL$ + "Are you interested in buying a copy of 
  3566.  this system? Y/N:": GOSUB 6000: IF I$ <  > "Y" THEN 140
  3567.  360 O$ = EL$ + "Do you have an Apple computer? Y/N:": GOSUB 6000: IF I$ <  > "Y
  3568. " THEN 140
  3569.  370 F$ = "BUY.INFO": GOSUB 8370: GOTO 140
  3570.  380  IF I$ = "^" THEN F$ = "HELP": GOSUB 8370: GOTO 140
  3571.  390  IF I$ = "C" THEN  POKE 1,128:O$ = DL$ + "What is it concerning(40 Char. Ma
  3572. x)?" + DL$: GOSUB 6000: VTAB (4): PRINT I$:O$ = EL$ + "If I am around I'll answe
  3573. r.": GOSUB 7000: HOME : POKE 1,0: GOTO 140
  3574.  400  IF I$ = "M" THEN 1560
  3575.  410  IF I$ = "Z" THEN 1760
  3576.  420  IF I$ = "$" THEN F$ = "PGL":O$ = SC$: GOSUB 7000: HOME :F$ = "PGL": GOSUB 
  3577. 8380: GOTO 140
  3578.  430  IF I$ = "#" THEN F$ = "CSTAT":O$ = DL$ + "---------------" + EL$ + "Fight 
  3579. Outcomes-" + EL$ + "---------------" + DL$: GOSUB 7000: GOSUB 8380: GOTO 140
  3580.  440  IF I$ = "B" THEN 1700
  3581.  450  IF I$ = "J" THEN 2700
  3582.  460  IF I$ = "F" THEN 1710
  3583.  470  IF I$ <  > "@" THEN 530
  3584.  480 O$ = EL$ + "Current Password->" + PA$ + DL$ + "Change Password? Y/N:": GOSU
  3585. B 6000: IF I$ <  > "Y" THEN 140
  3586.  490  POKE 2,255
  3587.  500 O$ = EL$ + "Enter New Password->": GOSUB 6000: IF  LEN (I$) < 1 OR  LEN (I$
  3588. ) > 7 THEN 500
  3589.  510  POKE 2,0
  3590.  520 PA$ = I$:O$ = EL$ + "Finis!": GOSUB 7000: GOTO 140
  3591.  530  IF I$ = "V" THEN 1780
  3592.  540  IF I$ = "E" THEN 1730
  3593.  550  IF I$ = "D" THEN O$ = "Battle Field": GOSUB 8780:A$ = FT$: GOSUB 8750: CAL
  3594. L 35848"FIGHT"
  3595.  560  IF I$ = "G" THEN O$ = "Casino": GOSUB 8780:A$ = GA$: GOSUB 8750: CALL 3584
  3596. 8"GA"
  3597.  570  IF I$ = "K" THEN 1180
  3598.  580  IF I$ = "U" THEN  POKE 1,128: POKE 2,255: GOTO 950
  3599.  590  IF I$ = "?" THEN F$ = "MENU": GOSUB 8370: GOTO 140
  3600.  600  IF I$ = "H" THEN 720
  3601.  610  IF I$ = "X" THEN F$ = "FEES": GOSUB 8370: GOTO 140
  3602.  620  IF I$ = "N" THEN F$ = "NEWS": GOSUB 8370: GOTO 140
  3603.  630  IF I$ = "L" THEN 1390
  3604.  640  IF I$ = "Y" THEN  GOSUB 8520: GOTO 140
  3605.  650  IF I$ <  > "O" THEN 680
  3606.  660 O$ = EL$ + "My Lord!  Leaving so soon?:": GOSUB 6000: IF I$ = "Y" THEN 8510
  3607.  
  3608.  670  GOTO 140
  3609.  680  IF I$ <  > "R" THEN 710
  3610.  690 O$ = EL$ + "Re-Roll your character? Y/N:": GOSUB 6000: IF I$ = "Y" THEN  GO
  3611. SUB 60: GOSUB 8520
  3612.  700  GOTO 140
  3613.  710 TL = TL + 1: GOTO 140
  3614.  720  GOSUB 8740:O$ = "Battle Quickscan" + EL$ + "----------------" + DL$ + "1. 
  3615. User Fightscan" + EL$ + "2. Castle Fightscan" + EL$ + "3. Joust Fightscan" + DL$
  3616.  + "Which? (1-3/Q)->": GOSUB 6000
  3617.  730  GOSUB 980:B(0) =  VAL (I$): IF B(0) < 1 OR B(0) > 3 THEN 720
  3618.  735 O$ = EL$ + "Scan how many levels above you?" + EL$ + "(1-" +  STR$ (LN - LE
  3619. ) + "/CR=All)->":CR = 1: GOSUB 6000:B(9) =  VAL (I$) + LE: IF LE = B(9) THEN B(9
  3620. ) = LN
  3621.  740 O$ = EL$ + "Quickscan entire file? Y/N:": GOSUB 6000: GOSUB 980: IF I$ = "Y
  3622. " THEN X = 1:I$ = "Z": GOTO 770
  3623.  750 O$ = EL$ + "Start at User #": GOSUB 6000:X =  VAL (I$)
  3624.  760  GOSUB 980
  3625.  770  GOSUB 8790: ONERR  GOTO 790
  3626.  780  GOTO 800
  3627.  790  CALL  - 3288: PRINT D$"CLOSE":O$ = DL$ + "-/-> End of List!": GOSUB 7000: 
  3628. GOTO 140
  3629.  800  IF X < 1 OR X > US THEN O$ = "Invalid number!": GOSUB 7000: GOTO 720
  3630.  810  PRINT D$"OPENSTATS,L200"C$(15)
  3631.  820  FOR FI = X TO (X + 19)
  3632.  830  PRINT D$"READSTATS,R"FI
  3633.  840  INPUT B$(1),B$(3),J,B(1)
  3634.  850  IF B$(1) = "Empty" OR LE > J + FL OR J > B(9) OR A = FI THEN 920
  3635.  860  IF (B(0) = 1 AND B$(3) = "Dead") OR (B(0) = 2 AND B(1) < 0) THEN 920
  3636.  870 Y = J - LE
  3637.  880  IF LE < J THEN O$ = "+" +  STR$ (Y): GOTO 900
  3638.  890 O$ =  STR$ (Y)
  3639.  900 O$ = EL$ + "User #" +  STR$ (FI) + " " + B$(1) + " " + O$: GOSUB 7000
  3640.  910  IF  PEEK (960) =  PEEK (970) THEN 790
  3641.  920  NEXT FI
  3642.  930  PRINT D$"CLOSE": IF I$ <  > "Z" THEN O$ = DL$ + "Cont? (Y/N):": GOSUB 6000
  3643. : IF I$ <  > "Y" THEN 140
  3644.  940 X = X + 20: GOTO 810
  3645.  950 O$ = EL$ + "Enter Message.  40 Chars Max." + DL$: GOSUB 6000: IF  LEN (I$) 
  3646. > 40 THEN O$ = "Too long!" + EL$: GOSUB 7000: GOTO 950
  3647.  960  POKE 1,0: POKE 2,0
  3648.  970 O$ = EL$ + "The Deed Is Done!":ME$ = I$: GOSUB 7000: GOTO 140
  3649.  980  IF I$ <  > "Q" AND I$ <  > "0" THEN  RETURN 
  3650.  990  POP : IF B$(2) = "S" THEN  POP 
  3651.  1000  GOTO 140
  3652.  1010  IF EX < A(2) THEN  RETURN 
  3653.  1020  IF LE = LN - 1 THEN O$ = EL$ + "You have reached the top level.  You    w
  3654. ill either have to Re-Roll or stay at  this level.  Your stats will continue   t
  3655. o rise apropriately." + EL$ + EL$ + "[Press Return]":CR = 1: GOSUB 7000: GOSUB 8
  3656. 000:LE = LE - 1:EX = A(1)
  3657.  1030 LE = LE + 1:G(3) =  INT (8 *  RND (1)) + 3:TP = TP + G(3):PO = TP
  3658.  1040 O$ = DL$ + "L" + EL$ + "e" + EL$ + "v" + EL$ + "e" + EL$ + "l" + DL$ +  ST
  3659. R$ (LE) + DL$ + "You are now a " + L$(2) + "!" + DL$ + "Power +" +  STR$ (G(3)) 
  3660. + DL$
  3661.  1050 G(1) =  INT (CH / 5):G(2) =  INT ((G(1) * 2) *  RND (1)) + (G(1) * 3):O$ =
  3662.  O$ + "Hit points +" +  STR$ (G(2)) + EL$:TH = TH + G(2):HP = TH
  3663.  1060 X =  INT (5 *  RND (1)) + 3
  3664.  1070 O$ = O$ + EL$
  3665.  1080 Y =  INT (5 *  RND (1)) + 1
  3666.  1090  IF Y = 5 THEN ST = ST + X:O$ = O$ + "Strength +"
  3667.  1100  IF Y = 2 THEN 1080
  3668.  1110  IF Y = 4 THEN CH = CH + X:O$ = O$ + "Intellegence +"
  3669.  1120  IF Y = 3 THEN AG = AG + X:O$ = O$ + "Agility +"
  3670.  1130  IF Y = 1 THEN WI = WI + X:O$ = O$ + "Wisdom +"
  3671.  1140 O$ = O$ +  STR$ (X) + DL$ + "All Stats +1" + EL$: GOSUB 7000
  3672.  1150 G(0) = (LE * LE * 100) + 500:G(0) =  INT (G(0)):O$ = EL$ + "Gold +" +  STR
  3673. $ (G(0)) + EL$:GD = GD + G(0): GOSUB 7000
  3674.  1160 WI = WI + 1:ST = ST + 1:AG = AG + 1:CH = CH + 1
  3675.  1170  PRINT D$"OPENLEVELS"C$(7): PRINT D$"READLEVELS": FOR X = 1 TO (LE - 1): I
  3676. NPUT L$(1),A(1): NEXT : FOR X = 1 TO 2: INPUT L$(X),A(X): NEXT : PRINT D$"CLOSE"
  3677. : POP : GOTO 140
  3678.  1180  GOSUB 8740
  3679.  1190 O$ = DL$ + "         -=>Castle Treasury<=-" + DL$ + "Would you be making a
  3680. ..." + DL$ + "A.  Deposit" + EL$ + "B.  Withdrawl" + DL$ + "Which->": GOSUB 6000
  3681. :BA =  INT (BA)
  3682.  1200  GOSUB 980
  3683.  1210  IF I$ = "A" THEN 1320
  3684.  1220  IF I$ <  > "B" THEN 1190
  3685.  1230  IF BA < 0 THEN O$ = EL$ + "You don't have any gold in the treasury!": GOS
  3686. UB 7000: GOTO 140
  3687.  1240 O$ = EL$ + "You have " +  STR$ (BA) + " Gold in your Treasury!" + DL$ + "W
  3688. ithdrawl entire amount? Y/N:": GOSUB 6000: IF I$ = "Y" THEN GD = GD + BA:BA = 0:
  3689.  GOTO 1310
  3690.  1250 O$ = EL$ + "Enter amount of Withdrawl $": GOSUB 6000
  3691.  1260  GOSUB 980
  3692.  1270 X =  INT ( VAL (I$))
  3693.  1280  IF X < 0 THEN 1240
  3694.  1290  IF X > (BA) THEN O$ = EL$ + YO$ + EL$: GOSUB 7000: GOTO 1240
  3695.  1300 GD = GD + X:BA = BA - X:NU = NU - X
  3696.  1310 O$ = EL$ + "Your transaction has been processed." + EL$ + "Thank you for y
  3697. our cooperation." + EL$: GOSUB 7000: GOTO 140
  3698.  1320 O$ = EL$ + "You have " +  STR$ (GD) + " Gold" + DL$ + "Deposit entire amou
  3699. nt? Y/N:": GOSUB 6000: IF I$ = "Y" THEN BA = BA + GD:GD = 0: GOTO 1380
  3700.  1330 O$ = EL$ + "Enter amount of deposit $": GOSUB 6000: GOSUB 980
  3701.  1340 X =  INT ( VAL (I$))
  3702.  1350  IF X < 0 THEN 1320
  3703.  1360  IF X > GD THEN O$ = EL$ + YO$ + EL$: GOSUB 7000: GOTO 1320
  3704.  1370 GD = GD - X:BA = BA + X
  3705.  1380 O$ = EL$ + "You now have " +  STR$ (BA) + " in your treasury!" + EL$: GOSU
  3706. B 7000: GOTO 1310
  3707.  1390 O$ = EL$ + SC$ + EL$ + "The Ladder" + EL$ + "----------" + DL$: GOSUB 7000
  3708.  
  3709.  1400  ONERR  GOTO 8730
  3710.  1410  PRINT D$"OPENTOP,L35"C$(16)
  3711.  1420 O$ = EL$ + "Enter starting rank #": GOSUB 6000:G(3) =  VAL (I$): GOSUB 980
  3712.  
  3713.  1430  IF G(3) < 1 OR G(3) > US THEN O$ = EL$ + "Invalid Number!" + EL$: GOSUB 7
  3714. 000: GOTO 1420
  3715.  1440  GOSUB 8790
  3716.  1450 O$ = EL$ + "Num.  User/User num.       Level" + DL$ + "A=Alive" + EL$ + "D
  3717. =Dead" + DL$: GOSUB 7000
  3718.  1460  IF G(0) = 1 THEN G(4) = G(4) + 1
  3719.  1470  FOR X = G(3) TO (G(3) + 15)
  3720.  1480  PRINT D$"READTOP,R"X
  3721.  1490  INPUT A$,B$(1),G(2)
  3722.  1500 O$ =  STR$ (X) + ".  " + B$(1) + " " + A$: FOR Y = (32 -  LEN (O$)) TO 1 S
  3723. TEP  - 1:O$ = O$ + ".": NEXT :O$ = O$ +  STR$ (G(2)) + EL$: GOSUB 7000
  3724.  1510  IF  PEEK (960) =  PEEK (970THEN 140
  3725.  1520  NEXT X
  3726.  1530 O$ = EL$ + "Cont? (Y/N):": GOSUB 6000: IF I$ <  > "Y" THEN  PRINT D$"CLOSE
  3727. ": GOTO 140
  3728.  1540 G(3) = G(3) + 16
  3729.  1550 O$ = EL$: GOSUB 7000: GOTO 1470
  3730.  1560 O$ = SC$ + EL$ + "Member Listing" + EL$ + "--------------": GOSUB 7000
  3731.  1570 O$ = DL$ + "Enter starting user #": GOSUB 6000
  3732.  1580 G(1) =  VAL (I$)
  3733.  1590  GOSUB 980
  3734.  1600  IF G(1) > US OR 1 > G(1) THEN O$ = "Invalid Number!": GOSUB 7000: GOTO 15
  3735. 70
  3736.  1610  ONERR  GOTO 8730
  3737.  1620  PRINT D$"OPENSTATS,L200"C$(15)
  3738.  1630  FOR X = G(1) TO (G(1) + 15)
  3739.  1640  PRINT D$"READSTATS,R"X
  3740.  1650  INPUT B$(1)
  3741.  1660 O$ = EL$ + "[" +  STR$ (X) + "]  " + B$(1): GOSUB 7000
  3742.  1670  NEXT 
  3743.  1680 O$ = DL$ + "Cont? (Y/N):": GOSUB 6000: IF I$ <  > "Y" THEN  PRINT D$"CLOSE
  3744. ": GOTO 140
  3745.  1690 G(1) = G(1) + 16: GOTO 1630
  3746.  1700 O$ = "Scroll City": GOSUB 8780:A$ = BO$: GOSUB 8750: CALL 35848"BRD"
  3747.  1710 O$ = DL$ + "Leave Feedback to Sysop? (Y/N):": GOSUB 6000: IF I$ <  > "Y" T
  3748. HEN 140
  3749.  1720 FE = 1: GOTO 1730
  3750.  1730 O$ = "Post Office": GOSUB 8780:A$ = ML$: GOSUB 8750: CALL 35848"MA"
  3751.  1740 A$ = CH$: GOSUB 8750: CALL 35848"CHAT"
  3752.  1750  RETURN 
  3753.  1760 O$ = DL$ + EL$ + "Log for " + DA$ + DL$ + " Hv=Half Validated   Va=Validat
  3754. ed" + EL$ + " Ex=Used Two Calls  New=New User" + EL$ + "Adv=Used Adventure  202=
  3755. Used 202" + DL$
  3756.  1770 O$ = O$ + "Call Number / User / User Info" + EL$ + "----------------------
  3757. --------" + DL$: GOSUB 7000:F$ = "LOG": GOSUB 8380: GOTO 140
  3758.  1780  GOSUB 8740:O$ = "Voting Booth" + EL$ + "------------" + DL$ + "This Weeks
  3759.  Topic is: " + DL$
  3760.  1790  GOSUB 7000
  3761.  1800 F$ = "VOTING.TOP": GOSUB 8380
  3762.  1810  IF VO = 1 THEN O$ = "View Results? Y/N: ": GOSUB 6000: IF I$ <  > "Y" THE
  3763. N 140
  3764.  1820  IF VO = 1 THEN O$ = EL$: GOSUB 7000
  3765.  1830 X = 0
  3766.  1840  PRINT D$"OPENVOTING"C$(18)
  3767.  1850  PRINT D$"READVOTING"
  3768.  1860  ONERR  GOTO 1900
  3769.  1870 X = X + 1
  3770.  1880  INPUT T$(X),B(X)
  3771.  1890  GOTO 1870
  3772.  1900  CALL  - 3288: PRINT D$"CLOSE":X = X - 1
  3773.  1910  FOR A1 = 1 TO X:N%(A1) = 0: NEXT :T = 0
  3774.  1920  FOR A1 = 1 TO X
  3775.  1930 T = T + B(A1)
  3776.  1940  NEXT 
  3777.  1950  IF T = 0 THEN 1990
  3778.  1960  FOR A1 = 1 TO X
  3779.  1970 N%(A1) = (B(A1) * 100) / T
  3780.  1980  NEXT 
  3781.  1990  ONERR  GOTO 8720
  3782.  2000  FOR Y = 1 TO X
  3783.  2010 O$ =  STR$ (Y) + ". " + T$(Y)
  3784.  2020  FOR AM = 20 TO  LEN (T$(Y)) STEP  - 1:O$ = O$ + ".": NEXT :O$ = O$ +  STR
  3785. $ (B(Y)) + "  " +  STR$ (N%(Y)) + "%" + EL$: GOSUB 7000
  3786.  2030  NEXT 
  3787.  2040  IF VO = 1 THEN 140
  3788.  2050 O$ = DL$ + "Which(1-" +  STR$ (X) + "/Q)->": GOSUB 6000: GOSUB 980
  3789.  2060 Y =  VAL (I$): IF Y < 1 OR Y > X THEN 2050
  3790.  2070 VO = 1
  3791.  2080 B(Y) = B(Y) + 1:O$ = EL$ + "HOLD...Your Vote Is Being Registered." + EL$: 
  3792. GOSUB 7000: PRINT D$"OPENVOTING"C$(18): PRINT D$"WRITEVOTING": FOR Y = 1 TO X: P
  3793. RINT T$(Y)","B(Y): NEXT 
  3794.  2090  PRINT D$"CLOSE"
  3795.  2100 G(3) = LE * 100
  3796.  2110 O$ = EL$ + "Gold +" +  STR$ (G(3)) + DL$ + "Experience +" +  STR$ (G(3)) +
  3797.  EL$:GD = GD + G(3):EX = EX + G(3):O$ = O$ + EL$ + "It Is Done Sire!": GOSUB 700
  3798. 0: GOTO 140
  3799.  2120 O$ = DL$ + "Trade Stats" + EL$ + "-----------" + EL$
  3800.  2130 O$ = O$ + EL$ + "1) Hp/Po" + EL$ + "2) Stats" + DL$ + "Which: ": GOSUB 600
  3801. 0: GOSUB 980
  3802.  2140  IF  VAL (I$) = 1 THEN 2470
  3803.  2150 G(5) = AG:G(6) = WI:G(7) = ST:G(8) = CH
  3804.  2160 AG = G(5):WI = G(6):ST = G(7):CH = G(8)
  3805.  2170 O$ = EL$ + "What Stat Do You Want To Raise: " + DL$
  3806.  2180 O$ = O$ + "1) Agility" + EL$ + "2) Wisdom" + EL$ + "3) Strength" + EL$ + "
  3807. 4) Intellingence " + DL$ + "Which: ": GOSUB 6000: GOSUB 980
  3808.  2190 G(1) =  VAL (I$): IF G(1) < 1 OR G(1) > 4 THEN 2170
  3809.  2200 O$ = EL$ + "Trade With:" + DL$ + "1) Agility [" +  STR$ (AG) + "]" + EL$ +
  3810.  "2) Wisdom [" +  STR$ (WI) + "]" + EL$ + "3) Strength [" +  STR$ (ST) + "]" + E
  3811. L$ + "4) Intelligence [" +  STR$ (CH) + "]" + DL$ + "Which: "
  3812.  2210  GOSUB 6000: GOSUB 980
  3813.  2220 G(0) =  VAL (I$): IF G(0) < 1 OR G(0) > 4 THEN 2200
  3814.  2230 G(3) = AG
  3815.  2240  IF G(0) = 2 THEN G(3) = WI
  3816.  2250  IF G(0) = 3 THEN G(3) = ST
  3817.  2260  IF G(0) = 4 THEN G(3) = CH
  3818.  2270 T =  INT ((G(3) - (LE * 1.5)) / 1.5): IF T < 1 THEN T = 0
  3819.  2280 O$ = EL$ + "1 Point per 1.5 Trade" + DL$ + "Amount to be Raised(Max=" +  S
  3820. TR$ (T) + ")->": GOSUB 6000: GOSUB 980
  3821.  2290 I$ =  STR$ ( INT ( VAL (I$)))
  3822.  2300 G(4) =  VAL (I$):G(2) =  INT (( VAL (I$) * 1.5) + .5)
  3823.  2310  IF G(4) < 1 THEN 2270
  3824.  2320  IF G(3) - (LE * 1.5) < G(2) THEN 2270
  3825.  2330 O$ = EL$ + "Results" + EL$ + "-------" + DL$: GOSUB 7000
  3826.  2340  IF G(1) = 1 THEN AG = AG + G(4):O$ = "Agility [" +  STR$ (AG) + "]"
  3827.  2350  IF G(1) = 2 THEN WI = WI + G(4):O$ = "Wisdom [" +  STR$ (WI) + "]"
  3828.  2360  IF G(1) = 3 THEN ST = ST + G(4):O$ = "Strength [" +  STR$ (ST) + "]"
  3829.  2370  IF G(1) = 4 THEN CH = CH + G(4):O$ = "Intelligence [" +  STR$ (CH) + "]"
  3830.  2380 O$ = O$ + DL$: GOSUB 7000
  3831.  2390  IF G(0) = 1 THEN AG = AG - G(2):O$ = "Agility [" +  STR$ (AG) + "]"
  3832.  2400  IF G(0) = 2 THEN WI = WI - G(2):O$ = "Wisdom [" +  STR$ (WI) + "]"
  3833.  2410  IF G(0) = 3 THEN ST = ST - G(2):O$ = "Strength [" +  STR$ (ST) + "]"
  3834.  2420  IF G(0) = 4 THEN CH = CH - G(2):O$ = "Intelligence [" +  STR$ (CH) + "]"
  3835.  2430 O$ = O$ + EL$: GOSUB 7000
  3836.  2440 O$ = EL$ + "OK? Y/N ": GOSUB 6000
  3837.  2450  IF I$ <  > "Y" THEN O$ = EL$ + "No Changes Made" + EL$: GOSUB 7000: GOTO 
  3838. 2160
  3839.  2460 O$ = EL$ + "Done!": GOSUB 7000: GOTO 140
  3840.  2470 G(6) = TH:G(7) = TP
  3841.  2480 TH = G(6):TP = G(7)
  3842.  2490 O$ = DL$ + "Raise:" + DL$ + "1) Hit Points" + EL$ + "2) Power" + DL$ + "Wh
  3843. ich: ": GOSUB 6000: GOSUB 980
  3844.  2500 G(0) =  INT ( VAL (I$)): IF G(0) < 1 OR G(0) > 2 THEN 2490
  3845.  2510 O$ = EL$ + "1 Point for 3":G(2) = 1 / 3
  3846.  2520  IF G(0) = 1 THEN O$ = EL$ + "2 Points for 1":G(2) = 2
  3847.  2530 G(1) = 2:Y = TP: IF G(0) = 2 THEN G(1) = 1:Y = TH
  3848.  2540  IF G(1) = 1 THEN Y =  INT ((Y - LE * 15) / 3)
  3849.  2550  IF G(1) = 2 THEN Y =  INT (Y - (7 + LE * 3)) * 2
  3850.  2560 O$ = O$ + " Max = " +  STR$ (Y) + EL$: GOSUB 7000
  3851.  2570 O$ = EL$ + "Enter Amount To Raise: ": GOSUB 6000: GOSUB 980
  3852.  2580 X =  INT ( VAL (I$))
  3853.  2590  IF X < 1 OR X > Y THEN 2570
  3854.  2600 G(4) = X / G(2):G(5) = X
  3855.  2610  IF G(0) = 1 THEN G(4) = G(4) + .99:G(4) =  INT (G(4))
  3856.  2620  IF G(0) = 1 THEN TH = TH + G(5):TP = TP - G(4)
  3857.  2630  IF G(0) = 2 THEN TP = TP + G(5):TH = TH - G(4)
  3858.  2640 O$ = EL$ + "Results" + EL$ + "-------" + DL$ + "Maximum Hit Points [" +  S
  3859. TR$ (TH) + "]" + DL$ + "Maximum Power [" +  STR$ (TP) + "]" + DL$ + "Ok? Y/N:": 
  3860. GOSUB 6000
  3861.  2650  IF I$ = "N" THEN 2480
  3862.  2660 HP = TH:PO = TP
  3863.  2670 O$ = EL$ + "Finis!": GOSUB 7000: GOTO 140
  3864.  2680 O$ = DL$ + "Equipment & Gold" + EL$ + "----------------" + DL$ + "Weapon: 
  3865. " + WP$ + EL$ + " Armor: " + AM$ + DL$ + "Gold: " +  STR$ (GD) + EL$
  3866.  2690 O$ = O$ + "Gold in the Treasury: " +  STR$ (BA): GOSUB 7000: GOTO 140
  3867.  2700 B$(1) = "Split Infinity":B$(2) = "Mazes of Death":B$(3) = "Empty":B$(4) = 
  3868. "Empty":B$(5) = "Empty"
  3869.  2710  GOSUB 8740:O$ = EL$ + "      -=*>Adventurer's Corner<*=-" + DL$: FOR X = 
  3870. 1 TO 5:O$ = O$ +  STR$ (X) + ". " + B$(X) + EL$: NEXT :O$ = O$ + EL$ + "Which-> 
  3871. ": GOSUB 6000
  3872.  2720  GOSUB 980
  3873.  2730 X =  VAL (I$): IF X < 1 OR X > 4 OR B$(X) = "Empty" THEN 2710
  3874.  2735  IF X = 2 AND NA$ <  > SY$ THEN O$ = EL$ + "Sorry, that adventure is tempo
  3875. rarily outof order.": GOSUB 7000: GOTO 2710
  3876.  2740 O$ = EL$ + B$(X) + EL$: FOR Y = 1 TO  LEN (B$(X)):O$ = O$ + "-": NEXT :O$ 
  3877. = O$ + DL$ + "1. Saved Game" + EL$ + "2. Restart " + B$(X) + EL$ + "3. Prelude" 
  3878. + EL$ + "4. Help File"
  3879.  2750 L = X:O$ = O$ + DL$ + "Which?(1-4/Q)->": GOSUB 6000
  3880.  2760  GOSUB 980: IF I$ <  > "4" AND I$ <  > "3" THEN 2790
  3881.  2770 F$ = "HELP." + B$(L): IF I$ = "3" THEN F$ = "PRELUDE." + B$(L)
  3882.  2780  GOSUB 8370:O$ = EL$ + "[Press Return]":CR = 1: GOSUB 6000: GOTO 2740
  3883.  2790  IF I$ <  > "2" THEN 2830
  3884.  2800  IF I$ = "2" THEN O$ = EL$ + "Restart " + B$(Z) + "-> ": GOSUB 6000: IF I$
  3885.  <  > "Y" THEN 2700
  3886.  2810  IF Z = 2 THEN  PRINT D$"OPENMAZE.SAVE,L30"C$(22): PRINT D$"WRITEMAZE.SAVE
  3887. ,R"A: FOR X = 1 TO 13: PRINT "0": NEXT : PRINT D$"CLOSE": GOTO 2840
  3888.  2820  GOSUB 120: GOTO 2840
  3889.  2830  IF I$ <  > "1" THEN 2700
  3890.  2840 O$ = EL$ + "Before you get to the adventure you     will be logged off.  D
  3891. o not hang up,    the adventure will start in about 2     minutes." + EL$: GOSUB
  3892.  7000
  3893.  2850  IF CA < CP THEN O$ = EL$ + "Do You wish To Add your other call to   your 
  3894. adventure time?  If So, you will   be given an extra 25 minutes->": GOSUB 6000: 
  3895. IF I$ = "Y" THEN CO = CO + 25:CA = CA + 1
  3896.  2860 AU$ = "Y":Z = L: GOTO 8510
  3897.  2870  IF CA >  = CP THEN O$ = EL$ + "You must have at least one call left    to
  3898. day to use this option.": GOSUB 7000: GOTO 140
  3899.  2880 O$ = EL$ + "This option will use up another call    of yours for today in 
  3900. exchange for 20   minutes and an extra fight.  Add of     call? Y/N:": GOSUB 600
  3901. 0: IF I$ <  > "Y" THEN 140
  3902.  2890 FO = FO - 1:CO = CO + 20:CA = CA + 1:CL = CL + 1:LA = LA - (LA * 2):HP = T
  3903. H:PO = TP:TL = TL + 20:LJ = LJ - 1
  3904.  2900 O$ = EL$ + "Poof!" + DL$ + "Calls left today-> " +  STR$ (CP - CA): GOSUB 
  3905. 7000: GOTO 140
  3906.  2910  IF CL$ = "N" THEN O$ = EL$ + "You get " +  STR$ (CO) + " minutes per call
  3907.    at all times.": GOSUB 7000: GOTO 140
  3908.  2920  GOSUB 8740:O$ = "Time Slot / Persons / Time Per Call     ----------------
  3909. -------------------" + DL$: GOSUB 7000: PRINT D$"OPENTIMESLOTS"C$(21): PRINT D$"
  3910. READTIMESLOTS"
  3911.  2930  FOR X = 1 TO 24: INPUT A$,I$,O$:O$ = A$ + "   " + I$ + "   " + O$ + " Min
  3912. utes" + EL$: GOSUB 7000: NEXT : PRINT D$"CLOSE":O$ = EL$ + "If you are a Half Va
  3913. lidated user then   subtract 5 minutes.": GOSUB 7000: GOTO 130
  3914.  2940  GOSUB 8740:O$ = "You wander into the Temple of Training, tired a wary, ho
  3915. ping to make yourself   stronger and wiser.  Soon you are spot- ted by a femal p
  3916. riestess, who comes     over and begins to speak:" + DL$: GOSUB 7000
  3917.  2950 B(0) = LE * LE * 150:O$ = "Each training session will raise one of your vi
  3918. rtue by 4 points.  Each session costs " +  STR$ (B(0)) + " gold pieces and will 
  3919. take five minutes off of your remaining time on the system.": GOSUB 8800
  3920.  2960  GOSUB 7000
  3921.  2970 O$ = DL$ + "Which of the four virtues do you wish tostudy?" + DL$ + "1. St
  3922. rength" + EL$ + "2. Agility" + EL$ + "3. Intelligence" + EL$ + "4. Wisdom" + DL$
  3923. : GOSUB 8300:O$ = O$ + "Which?(TL=" +  STR$ (TL) + ")->": GOSUB 6000
  3924.  2980  IF I$ = "Q" OR I$ = "0" THEN O$ = EL$ + "Maybe next time sire...": GOSUB 
  3925. 7000: GOTO 140
  3926.  2990 X =  VAL (I$):Z = X: IF X < 1 OR X > 4 THEN 2970
  3927.  3000  IF TL < 5 THEN O$ = EL$ + "Sorry sire, but you do not have enought time l
  3928. eft.": GOSUB 7000: GOTO 140
  3929.  3010  IF GD < B(0) THEN O$ = EL$ + "Sorry sire, you funds seem to be on the sho
  3930. rt side in funds.": GOSUB 7000: GOTO 140
  3931.  3020 T = 4
  3932.  3030  IF X = 1 THEN A$ = "Legendary warrior Garret Jax":ST = ST + T
  3933.  3040  IF X = 2 THEN A$ = "Elf Dayel, cousin to Eventine":AG = AG + T
  3934.  3050  IF X = 3 THEN A$ = "Wizard Allanon, the last of the Druids, son of Bremen
  3935. ":CH = CH + T
  3936.  3060  IF X = 4 THEN A$ = "Valegirl Brin Oshmond, daughter of Wil Oshmond, posse
  3937. sor of the Wishsong of Shannara":WI = WI + T
  3938.  3070 O$ = "The " + A$ + ", will be your instructor.  Learn well my young friend
  3939. ...."
  3940.  3080  GOSUB 8800:O$ = EL$ + "A very fine choice sire..." + DL$ + O$ + DL$: GOSU
  3941. B 7000:O$ = "Your instructor walks into the room     smiling at you and informs 
  3942. you to begin you trailing." + DL$: GOSUB 7000
  3943.  3090 GD = GD - B(0): RESTORE : FOR Y = 1 TO Z: FOR T = 1 TO 10: READ B$(T): NEX
  3944. T : NEXT :CO = CO - 5: GOTO 3140
  3945.  3100  DATA  Parry,Strike,Jump,Attack,Flee,Kill,Wound,Behead,Dismember,Swing
  3946.  3110  DATA   Jump,Dive,Run,Duck,Jump Back,Sidestep,Spin,Draw Weapon,Backflip,Fl
  3947. ip
  3948.  3120  DATA  Read,Study,Memorize,Conjure,Write,Create,Plan,Decieve,Compromise,Fl
  3949. ee
  3950.  3130  DATA  Cast,Attack,Buy,Rest,Heal,Incinerate,Protect,Learn,Resurrect,Demode
  3951. nia
  3952.  3140  FOR Y = 1 TO 5:X =  INT (10 *  RND (1)) + 1:O$ = B$(X) + "....." + DL$: G
  3953. OSUB 7000: FOR X = 1 TO 1000: NEXT : NEXT :O$ = EL$ + "You train well young man!
  3954.   You have     earned your raise....Go in Peace.": GOSUB 7000: GOTO 140
  3955.  3150  FOR X = 1 TO 1000: NEXT 
  3956.  6000  GOSUB 7000: GOSUB 8000: RETURN 
  3957.  7000  POKE 960,0: & B / O$: RETURN 
  3958.  8000 CC = 0: IF  PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
  3959. 8539:CF = 9
  3960.  8010  IF CF = 9 AND  PEEK (1) <  > 128 THEN CF = 1:CA$ = "Y"
  3961.  8020  IF CA$ <  > "Y" OR  LEN (CN$) > 1 THEN 8040
  3962.  8030  IF CF = 1 THEN  CALL 38539
  3963.  8040  IF  PEEK (1) = 128 THEN 8140
  3964.  8050  IF  LEN (CN$) = 0 THEN 8140
  3965.  8060  FOR T = 1 TO  LEN (CN$)
  3966.  8070  IF  MID$ (CN$,T,1) = "," THEN I$ =  MID$ (CN$,1,T - 1):CN$ =  RIGHT$ (CN$
  3967. , LEN (CN$) - T): GOTO 8110
  3968.  8080  IF  MID$ (CN$,T,1) = "#" THEN I$ =  MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
  3969. 0
  3970.  8090  NEXT 
  3971.  8100  POKE 960,0
  3972.  8110  IF O$ = "STOP" THEN O$ = "": GOTO 8210
  3973.  8120  IF  LEN (I$) = 0 THEN 8050
  3974.  8130 O$ = I$ + EL$: GOSUB 7000: GOTO 8290
  3975.  8140  POKE 960,0: & A / SP$:I$ =  MID$ (SP$,1): IF  PEEK (961) THEN 1740
  3976.  8150 CN$ = I$ + "#":O$ = "STOP"
  3977.  8160  IF  LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
  3978.  8170  POKE 961,0: IF  PEEK (960) = 255 THEN CC = CC + 1: FOR T = 1 TO 500: NEXT
  3979.  : IF CC > 1 OR I$ = "OFF" THEN 8510
  3980.  8180  IF  PEEK (960) = 255 THEN 8140
  3981.  8190  IF  PEEK (1) = 128 THEN CN$ = "": GOTO 8230
  3982.  8200  IF  LEN (CN$) > 0 THEN 8060
  3983.  8210  IF  LEN (I$) <  > 1 AND  RIGHT$ (I$,1) = " " THEN I$ =  LEFT$ (I$, LEN (I
  3984. $) - 1): GOTO 8210
  3985.  8220  IF  LEN (I$) <  > 1 AND  LEFT$ (I$,1) = " " THEN I$ =  RIGHT$ (I$, LEN (I
  3986. $) - 1): GOTO 8220
  3987.  8230  IF  LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 7000: GOTO 8250
  3988.  8240  IF  LEN (I$) = 0 THEN 8000
  3989.  8250  IF CA$ <  > "Y" THEN 8290
  3990.  8260  IF CF = 1 THEN  CALL 36798
  3991.  8270  IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 7000: CALL 36798
  3992. :CF = 1
  3993.  8280  IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 7000: CALL 385
  3994. 39:CF = 0
  3995.  8290 CR = 0: RETURN 
  3996.  8300  IF CL$ = "N" THEN T$ = DA$: RETURN 
  3997.  8310  PR# 4: IN# 4: INPUT "#";T,T,T,T,T,B: INPUT "%";T$
  3998.  8320  PR# 0: POKE 56,102: POKE 57,213: CALL 1002
  3999.  8330  IF TI > T THEN T = TI + (60 - TI) + T
  4000.  8340 TL = CO - (T - TI)
  4001.  8350  IF TL <  = 0 THEN O$ = EL$ + "You are out of Time!": GOSUB 7000: POP : GO
  4002. TO 8510
  4003.  8360  RETURN 
  4004.  8370  HOME :O$ = SC$ + DL$ + DL$ + DL$: GOSUB 7000
  4005.  8380  POKE 960,0: PRINT D$"OPEN"F$""C$(17): PRINT  CHR$ (4)"READ"F$
  4006.  8390  IF CF <  > 1 THEN 8460
  4007.  8400 C = 1
  4008.  8410  & E / ZZ$: IF  LEN (ZZ$) > 0 THEN A$ = ZZ$: IF  ASC ( LEFT$ (A$,1)) = 0 T
  4009. HEN C =  - 1: GOTO 8440
  4010.  8420 C = C + 1:O$ = EL$ + ZZ$: GOSUB 7000
  4011.  8430  IF C <  > 16 THEN 8410
  4012.  8440 O$ = DL$ + "CR) Continue or Q)uit:":CR = 1: GOSUB 6000: IF I$ = "Q" OR C =
  4013.   - 1 THEN 8470
  4014.  8450  GOTO 8400
  4015.  8460  & C
  4016.  8470  PRINT D$"CLOSE": IF  PEEK (960) = 255 THEN 8350
  4017.  8480  IF  PEEK (960) =  PEEK (970) THEN  POKE 960,3:O$ = EL$: GOTO 7000
  4018.  8490  IF  PEEK (960) =  PEEK (971) THEN  POKE 960,2
  4019.  8500  RETURN 
  4020.  8510 A$ = OF$: GOSUB 8750: CALL 35848"OFF"
  4021.  8520 B$(1) =  STR$ (ST):B$(3) =  STR$ (AG):B$(4) =  STR$ (WI):B$(5) =  STR$ (CH
  4022. ):B$(6) =  STR$ (EX):B$(7) =  STR$ (GD):B$(8) =  STR$ (A(2) - EX): FOR X = 1 TO 
  4023. 8:B$(X) = B$(X) + EL$: NEXT 
  4024.  8530 O$ = SC$ + EL$ + "Character Status" + EL$ + "----------------" + DL$ + "Ch
  4025. aracter Name: " + NA$ + DL$: GOSUB 7000
  4026.  8540 O$ = "     Calls Today [" +  STR$ (CA) + "]" + EL$ + "     Calls A Day [" 
  4027. +  STR$ (CP) + "]" + EL$ + "     Total Calls [" +  STR$ (CL) + "]" + EL$ + "    
  4028.  Adventure Access? " + AD$ + DL$
  4029.  8550 O$ = O$ + DL$: GOSUB 7000
  4030.  8560 O$ = "Strength: " + B$(1) + "Agility: " + B$(3) + "Wisdom: " + B$(4) + "In
  4031. teligence: " + B$(5) + EL$: GOSUB 7000
  4032.  8570 O$ = "     Fights Left: " +  STR$ (4 - FO) + EL$ + "     Jousts Left: " + 
  4033.  STR$ (2 - LJ) + DL$: GOSUB 7000
  4034.  8580 O$ = "Maximum hit points: " +  STR$ (TH) + EL$ + "Hit points: " +  STR$ (H
  4035. P) + EL$ + "Maximum power: " +  STR$ (TP) + EL$ + "Power: " +  STR$ (PO) + DL$: 
  4036. GOSUB 7000
  4037.  8590 O$ = "Battle class: " +  STR$ (WE + AR) + EL$: GOSUB 7000
  4038.  8600 O$ = "Weapon: " + WP$ + EL$ + "Armor: " + AM$ + EL$ + "Experience: " + B$(
  4039. 6) + "Level: " + L$(1) + " #" +  STR$ (LE) + EL$ + "Food: " +  STR$ (FD) + EL$ +
  4040.  "Gold: " + B$(7) + EL$: GOSUB 7000
  4041.  8610 O$ = "       Joust Wins: " +  STR$ (JW) + EL$ + "     Joust Losses: " +  S
  4042. TR$ (JL) + EL$ + "            Skill: " +  STR$ ( INT (ST + AG + JW - JL)) + DL$:
  4043.  GOSUB 7000
  4044.  8620 O$ = "Castle Protection: ": IF CP$ = "Y" THEN O$ = O$ + "Activated"
  4045.  8630  IF CP$ = "N" THEN O$ = O$ + "Off(Fee not payed)"
  4046.  8640 O$ = O$ + EL$ + " Gold in Treasury: " +  STR$ (BA) + DL$: GOSUB 7000
  4047.  8650 O$ = "Experience needed to achieve the level" + EL$ + "of " + L$(2) + " is
  4048.  " + B$(8): GOSUB 7000
  4049.  8660 O$ = DL$ + "Spells" + EL$ + "------" + DL$
  4050.  8670  GOSUB 7000
  4051.  8680  FOR X = 1 TO SN
  4052.  8690  IF S(X) > 0 THEN O$ = S$(X) + "-" +  STR$ (S(X)) + EL$: GOSUB 7000
  4053.  8700  NEXT X
  4054.  8710  RETURN 
  4055.  8720  CALL  - 3288: GOTO 140
  4056.  8730  CALL  - 3288: PRINT D$"CLOSE": GOTO 140
  4057.  8740  HOME :O$ = SC$ + DL$ + DL$ + EL$: GOSUB 7000: RETURN 
  4058.  8750 Y =  VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y =  VAL ( RIGHT$ (A$,1)): POKE 43
  4059. 624,Y:Y =  VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN  PRINT D$"OPEN VC,V"Y
  4060.  8760  IF TC$ = "Y" THEN  POKE 1014,10: POKE 952,215: POKE 953,251
  4061.  8770  RETURN 
  4062.  8780  HOME :O$ = SC$ + "[%] Hold...Destination: " + O$ + " [%]" + EL$: GOSUB 70
  4063. 00: RETURN 
  4064.  8790 O$ = EL$ + "    Press Space Bar to abort listing" + EL$: GOSUB 7000: RETUR
  4065. N 
  4066.  8800  IF  LEN (O$) < 40 THEN 8900
  4067.  8810 Y = 40
  4068.  8820 X = 0
  4069.  8830  IF  MID$ (O$,Y - X,1) = " " THEN B$(0) =  LEFT$ (O$,(Y - 1) - X):B$(0) = 
  4070. B$(0) + EL$ +  RIGHT$ (O$, LEN (O$) - (Y - X)): GOTO 8850
  4071.  8840 X = X + 1: GOTO 8830
  4072.  8850 O$ = B$(0)
  4073.  8860  IF (Y + 40) >  LEN (O$) THEN 8900
  4074.  8870 Y = Y + 39
  4075.  8880 Y = (Y - X) + 1
  4076.  8890  GOTO 8820
  4077.  8900  RETURN 
  4078.  
  4079. ]LOAD OFF
  4080. ]LIST
  4081.  
  4082.  5  IF TC$ = "Y" THEN  POKE 1014,0: POKE 952,240: POKE 953,253
  4083.  10  FOR X = 1 TO  LEN (ME$): IF  MID$ (ME$,X,1) =  CHR$ (34) THEN ME$ = "": GOT
  4084. O 30
  4085.  20  NEXT 
  4086.  30  IF  PEEK (960) = 255 THEN CC =  - 10
  4087.  40  IF MA = 2 THEN  PRINT D$"DELETEM-"NA$C$(20)
  4088.  50  IF AU$ = "Y" THEN 70
  4089.  60  IF CP$ = "N" THEN ST = ST - (ST * 2)
  4090.  70 B$ = "Y": CALL 54915: GOSUB 680
  4091.  80  IF  LEN (ME$) < 2 THEN ME$ = "Get Your Full Validation...."
  4092.  90  IF CL >  = IN AND AD$ = "NO" THEN NA$ = "Empty":O$ = EL$ + "Your Half-Valid
  4093. ated calls are up.  Your character has been deleted." + EL$: GOSUB 500
  4094.  100  PRINT 
  4095.  110 GD =  INT (GD):BA =  INT (BA): FOR X = 1 TO 25:S(X) =  INT (S(X)): NEXT :FD
  4096.  =  INT (FD): IF S(1) > 0 THEN S(1) = 0
  4097.  120  ONERR  GOTO 670
  4098.  130 BA =  INT (BA):HP = TH:PO = TP:A$(1) = "F"
  4099.  140  IF BD$ <  > "Y" THEN 180
  4100.  150 MT = 0
  4101.  160  FOR X = 1 TO B1:MT = MT + Z(X): NEXT 
  4102.  170  PRINT D$"OPENQSCAN,L"(B1 + 1) * 4""C$(10): PRINT D$"WRITEQSCAN,R"A: PRINT 
  4103. MT: FOR X = 1 TO B1: PRINT Z(X): NEXT : PRINT D$"CLOSE"
  4104.  180  PRINT D$"OPENDOWNS,L17"C$(15): PRINT D$"WRITEDOWNS,R"A: PRINT JW: PRINT JL
  4105. : PRINT "0": PRINT "0": PRINT LR: PRINT D$"CLOSE"
  4106.  190  PRINT D$"OPENRANK,L4"C$(11): PRINT D$"READRANK,R"A: INPUT G(1): PRINT D$"C
  4107. LOSE": PRINT D$"OPENTOP,L35"C$(16): PRINT D$"READTOP,R"G(1): INPUT B$(1),B$(2),B
  4108. $(3): PRINT D$"CLOSE"
  4109.  200  PRINT D$"OPENTOP,L35": PRINT D$"WRITETOP,R"G(1): PRINT "A": PRINT B$(2): P
  4110. RINT B$(3): PRINT D$"CLOSE"
  4111.  210  GOSUB 560
  4112.  220  PRINT : PRINT D$"OPENDATA"C$(5): PRINT D$"READDATA": INPUT MN,X,I$,I$: PRI
  4113. NT D$"CLOSE": IF I$ <  > DA$ THEN A$(1) = "CHANGE"
  4114.  230  IF A$(1) = "CHANGE" AND AU$ = "Y" THEN CA = 0
  4115.  240  GOSUB 510
  4116.  250  IF NA$ = SY$ THEN LA = LA - 1: GOTO 370
  4117.  260 X = LA: IF LA < 0 THEN X = LA - (LA * 2)
  4118.  270 O$ = "[" +  STR$ (X) + "]  " + NA$
  4119.  280  IF CC =  - 10 THEN O$ = "*" + O$
  4120.  290 O$ = O$ + " (#" +  STR$ (A) + ",": IF AD$ = "Yes" THEN O$ = O$ + "Va": GOTO
  4121.  310
  4122.  300 O$ = O$ + "Hv"
  4123.  310  IF CL = 1 THEN O$ = O$ + ",New"
  4124.  320  IF CF = 1 THEN O$ = O$ + ",202"
  4125.  330  IF AU$ = "Y" THEN O$ = O$ + ",Adv"
  4126.  340  IF (AU$ = "Y" AND A$(10) = "Y") OR LA < 0 THEN O$ = O$ + ",Ex"
  4127.  350 O$ = O$ + ")"
  4128.  360  PRINT : PRINT D$"OPENLOG"C$(17): PRINT D$"APPENDLOG": PRINT D$"WRITELOG": 
  4129. PRINT O$: PRINT D$"CLOSE"
  4130.  370  PRINT D$"DELETEDATA"C$(5)
  4131.  380  IF LA < 0 THEN LA = LA - (LA * 2)
  4132.  390  IF A$(1) = "CHANGE" THEN MN = LA
  4133.  400  PRINT D$"OPENDATA"C$(5): PRINT D$"WRITEDATA": PRINT MN: PRINT US: PRINT YR
  4134. $: PRINT DA$: PRINT LA: PRINT LA$: PRINT NU: PRINT TM: PRINT ME$: PRINT IN: PRIN
  4135. T D$"CLOSE"
  4136.  410  IF A$(1) = "CHANGE" AND AU$ = "Y" THEN O$ = EL$ + "Sorry, the Ladder has t
  4137. o be Re-Done Now.Your call has been given back to you." + EL$: GOSUB 500
  4138.  420  IF A$(1) = "CHANGE" THEN 440
  4139.  425  IF Z = 1 AND AU$ = "Y" THEN A$ = AS$: GOSUB 760: CALL 35848"ASTART"
  4140.  430  IF A$(1) <  > "CHANGE" THEN 490
  4141.  440  ONERR  GOTO 460
  4142.  450  PRINT D$"DELETELOG"C$(17)
  4143.  460  ONERR  GOTO 480
  4144.  470  PRINT D$"DELETECSTAT"C$(17)
  4145.  480  PRINT D$"RUNRESET1"C$(4)
  4146.  490  PRINT D$"RUNSTART"C$(14)
  4147.  500  & B / O$: RETURN 
  4148.  510  PRINT D$"OPENSTATS,L200"C$(15): PRINT D$"WRITESTATS,R"A: PRINT NA$: PRINT 
  4149. FI$: PRINT LE: PRINT AG: PRINT WE: PRINT AR: PRINT EX: PRINT GD: PRINT ST: PRINT
  4150.  TH: PRINT HP: PRINT PA$: PRINT WI: PRINT CH: PRINT LS: PRINT CA: PRINT CL: PRIN
  4151. T AD$: PRINT CP
  4152.  520  PRINT FD: PRINT PO: PRINT TP: PRINT BA: PRINT PA: PRINT DE: PRINT DA$
  4153.  530  FOR X = 1 TO SN: PRINT S(X): NEXT 
  4154.  540  PRINT D$"CLOSE"
  4155.  550  RETURN 
  4156.  560 F$ = "OFF1"
  4157.  570 O$ = EL$: GOSUB 500: IF RT = 2 THEN O$ = DL$ + EL$: GOSUB 500
  4158.  580  POKE 960,0: PRINT D$"OPEN"F$""C$(17): PRINT D$"READ"F$
  4159.  590  & C: IF  PEEK (960) =  PEEK (971) AND RT <  > 3 THEN  POKE 960,0: GOTO 590
  4160.  
  4161.  600  PRINT  CHR$ (4)"CLOSE": IF  PEEK (960) = 255 THEN 650
  4162.  610  IF  PEEK (960) =  PEEK (970) THEN  POKE 960,3:O$ = EL$: GOTO 500
  4163.  620  IF  PEEK (960) =  PEEK (971) THEN  POKE 960,2
  4164.  630  GOSUB 500
  4165.  640 O$ = DL$ + "There have been " +  STR$ (LA) + " adventures!" + DL$ + "Loggin
  4166. g off on " + T$ + DL$ + "....Click....." + EL$: GOSUB 500
  4167.  650  IF AU$ = "Y" OR A$(1) = "CHANGE" THEN  RETURN 
  4168.  660  POKE 216,0: & I: RETURN 
  4169.  670  PRINT D$"RUNSTART"C$(14)
  4170.  680  IF CL$ = "N" THEN T$ = DA$: RETURN 
  4171.  690  PR# 4: IN# 4
  4172.  700  INPUT "#";B(0),T,B(1),T,T,B(2)
  4173.  710  INPUT "%";T$
  4174.  720  PR# 0: POKE 56,102: POKE 57,213: CALL 1002
  4175.  730 DA$ =  LEFT$ (T$,10)
  4176.  740  IF  RIGHT$ (DA$,1) = " " THEN DA$ =  LEFT$ (DA$, LEN (DA$) - 1): GOTO 740
  4177.  750  RETURN 
  4178.  760 Y =  VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y =  VAL ( RIGHT$ (A$,1)): POKE 436
  4179. 24,Y:Y =  VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN  PRINT D$"OPEN VC,V"Y
  4180.  765  IF TC$ = "Y" THEN  POKE 1014,10: POKE 952,215: POKE 953,251
  4181.  770  RETURN 
  4182.  
  4183. ]LOAD START
  4184. ]LIST
  4185.  
  4186.  10  HOME : PRINT "Turn Disk Over and Press Return"
  4187.  20  GET A$
  4188.  25  PRINT 
  4189.  30  PRINT  CHR$ (4)"RUN START,D1"
  4190.  
  4191. ]LOAD STORES
  4192. ]LIS
  4193.  
  4194. ?SYNTAX ERROR
  4195. ]LIST
  4196.  
  4197.  5  IF TC$ = "Y" THEN  POKE 1014,0: POKE 952,240: POKE 953,253
  4198.  10  CALL 54915: ONERR  GOTO 8380
  4199.  20  IF A > 0 THEN 80
  4200.  30  PRINT  CHR$ (4)"SAVESTORES,S3": PRINT  CHR$ (4)"RUNJOUST,S6"
  4201.  40  IF J$ = "1" OR J$ = "2" OR J$ = "3" THEN 70
  4202.  50 A$ = OF$: GOSUB 8390: CALL 35848"OFF"
  4203.  60 A$ = MA$: GOSUB 8390:O$ = EL$ + "[Hold..] Transporting to Main.." + EL$: GOS
  4204. UB 7000: CALL 35848"MAIN"
  4205.  70  IF J$ = "1" OR J$ = "2" OR J$ = "3" THEN A$ = AV$: GOSUB 8390: CALL 35848"A
  4206. DVENT"
  4207.  80  IF J$ = "1" THEN 160
  4208.  90  IF J$ = "2" THEN 830
  4209.  100  IF J$ = "3" THEN 730
  4210.  110  GOSUB 8300:O$ = DL$ + "Your choices are..." + DL$ + "A) Ye Old Battle Shop
  4211. " + EL$ + "B) Magical Healings" + EL$ + "C) Ronald's Roach Burgers" + DL$ + "Whi
  4212. ch? (Q/uit):": GOSUB 6000: CALL 54915
  4213.  120  IF I$ = "Q" THEN 60
  4214.  130  IF I$ = "C" THEN 730
  4215.  140  IF I$ = "B" THEN 830
  4216.  150  IF I$ <  > "A" THEN 80
  4217.  160 O$ = DL$ + "B)uy or S)ell or Q)uit?:": GOSUB 6000
  4218.  170  IF I$ = "Q" THEN 70
  4219.  180  IF I$ <  > "B" AND I$ <  > "S" THEN 160
  4220.  190  IF I$ <  > "S" THEN 350
  4221.  200 O$ = EL$ + "W)eapons or A)rmor or Q)uit?:": GOSUB 6000
  4222.  210  IF I$ = "A" OR I$ = "W" THEN 230
  4223.  220  GOSUB 1090: GOTO 200
  4224.  230 B$(1) = WP$:B$(2) = "WEAPONS":X = WE:A$ = C$(19): IF I$ = "A" THEN B$(1) = 
  4225. AM$:B$(2) = "ARMOR":A$ = C$(1):X = AR
  4226.  240  PRINT D$"OPEN"B$(2)A$",L40": PRINT D$"READ"B$(2)",R"X: INPUT B$(0),G(2): P
  4227. RINT D$"CLOSE"
  4228.  250 B$(2) = I$
  4229.  260 G(1) = G(2) / 2
  4230.  270 G(1) =  INT (G(1))
  4231.  280 O$ = EL$ + "You Have A " + B$(1) + DL$ + "I'll Give Ya " +  STR$ (G(1)) + "
  4232.  For it." + EL$ + "Fair Enough? ": GOSUB 6000
  4233.  290  IF I$ = "Q" OR I$ = "N" THEN 80
  4234.  300  IF I$ <  > "Y" THEN 280
  4235.  310  IF I$ = "Y" THEN O$ = EL$ + "Deal!" + EL$: GOSUB 7000
  4236.  320 GD = GD + G(1)
  4237.  330  IF B$(2) = "W" THEN WE = 1:WP$ = "Hands":HT = 3: GOTO 80
  4238.  340 AR = 1:AM$ = "Skin":AP = 1: GOTO 80
  4239.  350 O$ = EL$ + "W)eapons or A)rmor or S)pells?:": GOSUB 6000
  4240.  360  IF I$ = "W" OR I$ = "A" OR I$ = "S" THEN 380
  4241.  370  GOSUB 1090: GOTO 350
  4242.  380 G(3) = 2:G(4) = SN:B$(2) = "S":A$ = "Spells" + EL$ + "------":B$(1) = "SPEL
  4243. LS":F$ = C$(13)
  4244.  390  IF I$ = "A" THEN G(3) = 2:G(4) = AN - MS:B$(2) = "A":A$ = "Armor" + EL$ + 
  4245. "-----":B$(1) = "ARMOR":F$ = C$(1)
  4246.  400  IF I$ = "W" THEN G(3) = 2:G(4) = WN - MS:B$(2) = "W":A$ = "Weapons" + EL$ 
  4247. + "-------":B$(1) = "WEAPONS":F$ = C$(19)
  4248.  410 A$ = SC$ + A$ + DL$
  4249.  420 O$ = EL$ + "View Entire List? Y/N: ": GOSUB 6000:B$ = I$: IF I$ = "Y" THEN 
  4250.  HOME : GOTO 470
  4251.  430 O$ = EL$ + "Start List at what #": GOSUB 6000
  4252.  440  GOSUB 1090
  4253.  450 X =  VAL (I$) + 1: IF X > G(4) OR X < G(3) THEN O$ = EL$ + "Invalid Startin
  4254. g Number!" + EL$: GOSUB 7000: GOTO 420
  4255.  460 G(3) = X: HOME 
  4256.  470 O$ = A$: GOSUB 7000:T = 0
  4257.  480  PRINT D$"OPEN"B$(1)F$",L40"
  4258.  490  FOR X = G(3) TO G(4)
  4259.  500 T = T + 1: IF T = 15 THEN O$ = EL$ + "Cont? Y/N:": GOSUB 6000:T = 0:O$ = EL
  4260. $: GOSUB 7000: IF I$ = "N" THEN 580
  4261.  510  PRINT D$"READ"B$(1)",R"X: INPUT A$,PR
  4262.  520 G(2) = 25: IF X > 10 THEN G(2) = 24
  4263.  530 O$ = "  " +  STR$ (X - 1) + ". " + A$
  4264.  540  FOR Y = G(2) TO  LEN (A$) STEP  - 1:O$ = O$ + ".": NEXT Y:O$ = O$ +  STR$ 
  4265. (PR) + EL$: GOSUB 7000
  4266.  550  IF B$ = "Y" THEN 570
  4267.  560  IF GD < PR THEN 580
  4268.  570  NEXT 
  4269.  580  PRINT D$"CLOSE"
  4270.  590 O$ = EL$ + "You have " +  STR$ (GD) + " gold!" + EL$: GOSUB 7000
  4271.  600 O$ = EL$ + "Which? (Q/uit):": GOSUB 6000
  4272.  610  GOSUB 1090
  4273.  620 X =  VAL (I$) + 1:I$ =  STR$ (X)
  4274.  630 G(3) = 2
  4275.  640  IF G(3) > X OR G(4) < X THEN 600
  4276.  650  PRINT D$"OPEN"B$(1)F$",L40": PRINT D$"READ"B$(1)",R"X: INPUT A$,PR,G(5): P
  4277. RINT D$"CLOSE"
  4278.  660  IF B$(2) = "S" THEN 1000
  4279.  670 X = PR
  4280.  680  IF X > (GD) THEN O$ = EL$ + YO$ + EL$: GOSUB 7000: GOTO 600
  4281.  690 GD = GD - X
  4282.  700 X =  VAL (I$): IF B$(2) = "W" THEN WE = X:WP$ = A$:HT = G(5): GOTO 720
  4283.  710 AR = X:AM$ = A$:AP = G(5)
  4284.  720 O$ = EL$ + "Sold!" + EL$: GOSUB 7000: GOTO 80
  4285.  730 O$ = EL$ + "Ronald McDonald says:" + DL$ +  STR$ (LE * 2) + " Gold for 1 fo
  4286. od." + DL$: GOSUB 7000
  4287.  740 O$ = "You Have " +  STR$ (GD) + " Gold" + EL$: GOSUB 7000
  4288.  750 O$ = EL$ + "How many ya Want(Max=" +  STR$ ( INT (GD / (LE * 2))) + "): ": 
  4289. GOSUB 6000
  4290.  760  IF I$ = "Q" THEN 70
  4291.  770  IF  VAL (I$) < 0 THEN 750
  4292.  780 X = (LE * 2) *  VAL (I$)
  4293.  790  IF X > GD THEN O$ = EL$ + YO$ + DL$: GOSUB 7000: GOTO 740
  4294.  800 FD = FD +  VAL (I$)
  4295.  810 GD = GD - X
  4296.  820 O$ = EL$ + "Sold!" + EL$: GOSUB 7000: GOTO 80
  4297.  830 O$ = EL$ + "Witch Hilda says:" + DL$ + "50 Gold per point...": GOSUB 7000
  4298.  840 O$ = DL$ + "H)it Points or P)ower?:": GOSUB 6000
  4299.  850  IF I$ = "Q" THEN 70
  4300.  860  IF I$ <  > "H" AND I$ <  > "P" THEN 840
  4301.  870 B$(1) = I$
  4302.  880 O$ = DL$ + "You have " +  STR$ (GD) + " Gold": GOSUB 7000
  4303.  890  IF B$(1) = "P" THEN O$ = DL$ + "You have " +  STR$ (PO) + " Power out of "
  4304.  +  STR$ (TP):Y = TP - PO: GOTO 910
  4305.  900 O$ = DL$ + "You have " +  STR$ (HP) + " Hit Points out of " +  STR$ (TH):Y 
  4306. = TH - HP
  4307.  910  GOSUB 7000:O$ = DL$ + "How many you Want? (Max=" +  STR$ (Y) + "):": GOSUB
  4308.  6000:X =  VAL (I$): IF X > Y THEN 890
  4309.  920  IF X < 1 THEN 80
  4310.  930  IF (50 * X) > GD THEN O$ = EL$ + YO$: GOSUB 7000: GOTO 890
  4311.  940 GD = GD - (50 * X)
  4312.  950  IF B$(1) = "P" THEN PO = PO + X: IF PO > TP THEN PO = TP: GOTO 980
  4313.  960 HP = HP + X
  4314.  970  IF HP > TH THEN HP = TH
  4315.  980 O$ = EL$ + "Poof!" + EL$: GOSUB 7000
  4316.  990  GOTO 80
  4317.  1000 O$ = EL$ + "How many " + A$ + " spells" + EL$ + "do you want(Max=" +  STR$
  4318.  (9 - S(X)) + "): ": GOSUB 6000
  4319.  1010  IF I$ = "Q" THEN 80
  4320.  1020 Y =  INT ( VAL (I$))
  4321.  1030  IF Y < 0 THEN 1000
  4322.  1040 G(1) = PR * Y
  4323.  1050  IF G(1) > GD THEN O$ = EL$ + YO$ + EL$: GOSUB 7000: GOTO 1000
  4324.  1060  IF S(X) + Y > 9 THEN O$ = EL$ + "You can only have 9 of each spell!": GOS
  4325. UB 7000: GOTO 1000
  4326.  1070 GD = GD - G(1):S(X) = S(X) + Y
  4327.  1080 O$ = EL$ + "The Spells Appear in Your Hands!" + EL$: GOSUB 7000: GOTO 590
  4328.  1090  IF I$ <  > "Q" AND I$ <  > "0" THEN  RETURN 
  4329.  1100  POP 
  4330.  1110  GOTO 80
  4331.  1120 A$ = CH$: GOSUB 8390: CALL 35848"CHAT"
  4332.  6000  GOSUB 7000: GOSUB 8000: RETURN 
  4333.  7000  & B / O$: POKE 960,0: RETURN 
  4334.  8000 CC = 0: IF  PEEK (1) = 128 AND CF = 1 AND CA$ = "Y" THEN CA$ = "N": CALL 3
  4335. 8539:CF = 9
  4336.  8010  IF CF = 9 AND  PEEK (1) <  > 128 THEN CF = 1:CA$ = "Y"
  4337.  8020  IF CA$ <  > "Y" OR  LEN (CN$) > 1 THEN 8040
  4338.  8030  IF CF = 1 THEN  CALL 38539
  4339.  8040  IF  PEEK (1) = 128 THEN 8140
  4340.  8050  IF  LEN (CN$) = 0 THEN 8140
  4341.  8060  FOR T = 1 TO  LEN (CN$)
  4342.  8070  IF  MID$ (CN$,T,1) = "," THEN I$ =  MID$ (CN$,1,T - 1):CN$ =  RIGHT$ (CN$
  4343. , LEN (CN$) - T): GOTO 8110
  4344.  8080  IF  MID$ (CN$,T,1) = "#" THEN I$ =  MID$ (CN$,1,T - 1):CN$ = "": GOTO 811
  4345. 0
  4346.  8090  NEXT 
  4347.  8100  POKE 960,0
  4348.  8110  IF O$ = "STOP" THEN O$ = "": GOTO 8210
  4349.  8120  IF  LEN (I$) = 0 THEN 8050
  4350.  8130 O$ = I$ + EL$: GOSUB 7000: GOTO 8290
  4351.  8140  POKE 960,0: & A / SP$:I$ =  MID$ (SP$,1): IF  PEEK (961) THEN 1120
  4352.  8150 CN$ = I$ + "#":O$ = "STOP"
  4353.  8160  IF  LEFT$ (I$,1) = "#" THEN I$ = "#":CN$ = ""
  4354.  8170  POKE 961,0: IF  PEEK (960) = 255 THEN CC = CC + 1: IF CC > 1 OR I$ = "OFF
  4355. " THEN 40
  4356.  8180  IF  PEEK (960) = 255 THEN 8140
  4357.  8190  IF  PEEK (1) = 128 THEN CN$ = "": GOTO 8230
  4358.  8200  IF  LEN (CN$) > 0 THEN 8060
  4359.  8210  IF  LEN (I$) <  > 1 AND  RIGHT$ (I$,1) = " " THEN I$ =  LEFT$ (I$, LEN (I
  4360. $) - 1): GOTO 8210
  4361.  8220  IF  LEN (I$) <  > 1 AND  LEFT$ (I$,1) = " " THEN I$ =  RIGHT$ (I$, LEN (I
  4362. $) - 1): GOTO 8220
  4363.  8230  IF  LEN (I$) = 0 AND CR = 1 THEN O$ = EL$: GOSUB 7000: GOTO 8250
  4364.  8240  IF  LEN (I$) = 0 THEN 8000
  4365.  8250  IF CA$ <  > "Y" THEN 8290
  4366.  8260  IF CF = 1 THEN  CALL 36798
  4367.  8270  IF I$ = "202 ON" THEN O$ = EL$ + "202 is now On.": GOSUB 7000: CALL 36798
  4368. :CF = 1
  4369.  8280  IF I$ = "202 OFF" THEN O$ = EL$ + "202 is now Off.": GOSUB 7000: CALL 385
  4370. 39:CF = 0
  4371.  8290 CR = 0: RETURN 
  4372.  8300  IF CL$ = "N" THEN T$ = DA$: RETURN 
  4373.  8310  PR# 4: IN# 4: INPUT "#";T,T,T,T,T,B: INPUT "%";T$
  4374.  8320  IF TI = 0 THEN TI = T
  4375.  8330  PR# 0: POKE 56,102: POKE 57,213: CALL 1002
  4376.  8340  IF TI > T THEN T = TI + (60 - TI) + T
  4377.  8350 TL = CO - (T - TI)
  4378.  8360  IF TL <  = 0 THEN O$ = EL$ + "You are out of Time!  Later.": GOSUB 7000: 
  4379. GOTO 40
  4380.  8370  RETURN 
  4381.  8380  CALL  - 3288: GOTO 80
  4382.  8390 Y =  VAL ( MID$ (A$,4,1)): POKE 43626,Y:Y =  VAL ( RIGHT$ (A$,1)): POKE 43
  4383. 624,Y:Y =  VAL ( LEFT$ (A$,3)): IF YR$ = "Y" THEN  PRINT D$"OPEN VC,V"Y
  4384.  8395  IF TC$ = "Y" THEN  POKE 1014,10: POKE 952,215: POKE 953,251
  4385.  8400  RETURN 
  4386.  
  4387. ]PR#0
  4388. ]RUN
  4389. ?WEAPONS
  4390.      
  4391. ]RUN
  4392. ?HELP
  4393.  
  4394. EXEC HELP
  4395.     The Proving Grounds Help File
  4396.  
  4397. Main Menu
  4398. ---------
  4399.  
  4400. A) Enter the Bazaar.  This is where 
  4401. you can buy and sell weapons and 
  4402. armor.You can also buy spells, food, 
  4403. and medical help.
  4404.  
  4405. B)  Board access.  Use the message
  4406.     bases.
  4407.  
  4408. C) hat with the Sysop.
  4409.  
  4410. D) Dungeon has four sub-categories.
  4411.  
  4412.      C) orridor of Death.  This is a 
  4413. 200 room mini-adventure where you can 
  4414. gain a lot of experience and gold.  
  4415. Magical weapons that cannot be bought 
  4416. can also be found in the Corridor of 
  4417. Death.  All spells work in the
  4418. Corridor of Death.
  4419.  
  4420.      D) ungeon.  Fight monsters ranging
  4421. from level 1 to level 10. A total of 200
  4422. monsters are available.
  4423.  
  4424.      P) roving Grounds.  This is where 
  4425. you can fight any user who is two
  4426. levels below or any amount higher than
  4427. you are.
  4428.  
  4429.      R) andom Play.  You will get a 
  4430. monster ranging from level 1 to level 
  4431. 10.  The monsters gold and experience 
  4432. will be doubled.
  4433.  
  4434. E) Electronic Mail among users.
  4435.  
  4436. F) eedback.  Leave mail to the Sysop.
  4437.  
  4438. G) ambling.  Play either Roulette, 
  4439. Slots, Blackjack, or Russian Roulette. 
  4440.  
  4441. H) Fight Quickscan.  Tells you which 
  4442. users you are able to fight.
  4443.  
  4444. J) Play the Adventure.  900 Rooms with
  4445. talking characters, elevators,
  4446. teleporters, 200 monsters, items,
  4447. traps, chests, Holy Water, a 200 room
  4448. maze, plus much much more.
  4449.  
  4450. K) visit your Treasury.  This is where
  4451. you can keep your gold so that you will
  4452. not lose it if you are killed in a user
  4453. battle.  Your treasury can be robbed
  4454. but to do so a user has to get by your
  4455. castle defences first.  More on this
  4456. later.
  4457.    
  4458. L) The Ladder.  This tells you what 
  4459. users ranks are.  The best fighter/user
  4460. will be listed as number 1 on the 
  4461. rank.  The 11'th best users will be the
  4462. 11'th...etc...Every user has a rank.  
  4463. Your rank is told to you every time you
  4464. log on.  The Ladder is redone every 
  4465. night at 12.
  4466.  
  4467. M) ember Listing.
  4468.  
  4469. N) ews/Updates.
  4470.  
  4471. O) ff.  Leave the board.
  4472.  
  4473. P) Print Gold and Equipment.
  4474.  
  4475. R) Re-roll character/Make a new
  4476. Character.
  4477.  
  4478. S) Show Time and Date.
  4479.  
  4480. T) Trade Stats.  Trade one stat for 
  4481. another.  You can also trade hit
  4482. points for power and visa-versa.
  4483.  
  4484. V) voting booth.  Get 100 time your
  4485. level gold and experience for voting.
  4486.  
  4487. X) mailing Address/Fees/Full 
  4488. validation.  
  4489.  
  4490. Y) our stats.
  4491.  
  4492.      Agility:  How often and how well 
  4493. you hit your opponent.
  4494.  
  4495.      Wisdom:  Used to see how effective
  4496. your spells are....
  4497.  
  4498.      Intelligence:  Used to see how 
  4499. many hit points you gain when you go up
  4500. a level..
  4501.  
  4502.      Strength:  How powerful you are 
  4503. and how much damage you do when you 
  4504. hit..
  4505.  
  4506.      Maximum Hit Points and Maximum
  4507. Power:  These are the maximum amount of
  4508. hit points and power you can have at
  4509. your current level.  Maximum points
  4510. never go down.
  4511.  
  4512.      Hit Points:  When you have 0 hit 
  4513. points you are dead. 
  4514.  
  4515.      Power:  Used to cast spells.  
  4516. Every spell reduces your power.
  4517.  
  4518.      Food:  Used in the Corridor of 
  4519. Death and the Adventure.  If you run
  4520. out you will begin to starve and lose
  4521. Hit Points.
  4522.  
  4523. Z) view the caller log for the day.
  4524.  
  4525. #) View fight outcomes.  View all the 
  4526. fight outcomes between users for that
  4527. day.
  4528.  
  4529. ^) View this file.
  4530.  
  4531. *) View Control Character functions.
  4532.  
  4533. @) Change Password.
  4534.  
  4535. &) Brief Important fact file. Every new
  4536. User should read this!
  4537.  
  4538. /)  Add another call onto your time.
  4539.  
  4540. %)  Joust a user.  Joust a different user
  4541. win gold.
  4542.  
  4543. +)  Castle Editor.  Your castle is
  4544. where you keep you can keep your gold
  4545. other than your person.  Further
  4546. description is available in the castle
  4547. editor itself.
  4548.  
  4549. Special spells
  4550. --------------
  4551.  
  4552. Increase:  Increases your Hit Points
  4553. or Power to twice that of Your Maximum
  4554. Power or Hit Points.  Only temporarily
  4555. though.
  4556.  
  4557. Super Increase:  Increase both your
  4558. hit points and power at the same time.
  4559.  
  4560. Protect: Increase the power of your 
  4561. armor for a certain amount of hits. 
  4562. Keeps about 1/3 of the damage off.  You
  4563. can stack Protect on top of each other 
  4564. for longer use.
  4565.  
  4566. Super Protect:  A longer lasting
  4567. protect spell.
  4568.  
  4569. Teleport:  Teleports you out of the 
  4570. Corridor of Death at any time.
  4571.  
  4572. Resurrect:  Will Resurrect you if you 
  4573. die in the Corridor of Death or in the 
  4574. Adventure.
  4575.  
  4576. Negate   :  This spell will make it so
  4577. that no spells can be cast in any
  4578. battle that you many be in.
  4579.  
  4580. Death:  Takes off half of a monsters
  4581. EXISTING hit points.
  4582.  
  4583. Well, that's about it.  Any questions 
  4584. Leave Feedback.
  4585.      
  4586. ]RUN
  4587. ?ADV.SOLVE
  4588.  
  4589. EXEC ADV.SOLVE
  4590. Bzzz.......
  4591.  
  4592.  
  4593.  
  4594.  
  4595.  
  4596.  
  4597.  
  4598.  
  4599.  
  4600.  
  4601.  
  4602.  
  4603. Materialization.....
  4604.  
  4605.  
  4606.  
  4607.  
  4608.  
  4609.  
  4610.  
  4611.  
  4612.  
  4613.  
  4614.  
  4615.  
  4616. Silence.........
  4617.  
  4618.  
  4619.  
  4620.  
  4621.  
  4622.  
  4623.  
  4624.  
  4625.  
  4626.  
  4627.  
  4628.  
  4629.  
  4630.  
  4631.  
  4632.  
  4633.  
  4634. Kabloooom!!!!!!!!!!!!!!
  4635.  
  4636.  
  4637.  
  4638.  
  4639.  
  4640.  
  4641.  
  4642.  
  4643.  
  4644. A brilliant, white mushroom cloud
  4645. apears in the distance.  You have done
  4646. it.
  4647.  
  4648.  
  4649.  
  4650.  
  4651.  
  4652.  
  4653.  
  4654.  
  4655.  
  4656.  
  4657.  
  4658.  
  4659.  
  4660.  
  4661.  
  4662.      Congratulations Adventurer!  You
  4663. have solved Split Infinity! You have
  4664. killed the Black Adept and destroyed
  4665. his evil troll army which was soon to
  4666. leave its hiding place within Mount
  4667. Galeiho.  It is unfortunate the entire
  4668. mountain perished in the blast but
  4669. alas, you can't have everything!  You
  4670. have saved the lives of countless 
  4671. millions.  Millions who would have
  4672. been slain in the great slaughter that
  4673. would have taken place under the hands
  4674. of the Black Adept.  For your bravery
  4675. and your ingenuity you are made king of
  4676. entire northland region.  I know you
  4677. will be a just ruler!
  4678.  
  4679. Again, Congratulations!  Since the
  4680. adventure is over you will be logged
  4681. off.  Goodbye, and thank you for
  4682. playing Split Infinity!
  4683.  
  4684. Your calls are reset for today!
  4685.  
  4686.      
  4687. ]RUN
  4688. ?CASTLE.DES
  4689.  
  4690. EXEC CASTLE.DES
  4691.        -=> Castle Help File <=-
  4692.  
  4693.  
  4694.      Your castle protects any gold you 
  4695. might have stored in it's treasury. 
  4696. The treasury is simply a place to put 
  4697. your gold so that you don't have to 
  4698. keep it on your person.  But there is a
  4699. way a user can get the gold in your 
  4700. treasury:  by attacking your castle, 
  4701. getting by your defences, and then 
  4702. beating you in a fair fight(No spells 
  4703. active).  Once they complete all of 
  4704. this, they then get any and all gold 
  4705. you have in your treasury.  Each castle
  4706. has 20 rooms, you and your treasury 
  4707. being in the 20'th.  The first 19 you 
  4708. can edit, placing either monsters, 
  4709. traps, or both in each room.  There is a rent fee though, and this fee is 
  4710. proportional to the amount of 
  4711. protection you have.  The more 
  4712. protection, the higher the fee per 
  4713. call.  Every time you call you must pay
  4714. this fee before you log off or your 
  4715. defences will go "on strike".   Any 
  4716. user will then be able to walk straight
  4717. to the treasury(He will still have to 
  4718. kill you although).
  4719.      In each room you can either have one of four set ups:
  4720.  
  4721. No monster - No Spell
  4722. Level X Monster - No spell
  4723. No monster - Spell X
  4724. Level X monster - Spell X
  4725.  
  4726. As you get more powerful, you are able 
  4727. to higher more powerful monsters.  But 
  4728. the more powerful the monster, the more
  4729. it costs you.  Choose your defences 
  4730. wisely and be sure to pay each time you call.  Before you pay, make any changes
  4731. on your castle you want to.  Any time 
  4732. you makes changes, you have to pay the 
  4733. new balance for that call in full, even
  4734. if you payed for that call before.  Be 
  4735. sure to set up your defences wisely and
  4736. strategically or you will most likely 
  4737. be robbed.  The best way to understand 
  4738. the castle system is to play around 
  4739. with it for a call or two.  I advise 
  4740. you to do that right now.
  4741.  
  4742.  
  4743. P.S.  you cannot rob any user that is
  4744. more than two levels below you.
  4745.  
  4746.  
  4747.      
  4748. ]RUN
  4749. ?OWNERS HELP
  4750.  
  4751. EXEC OWNERS HELP
  4752. Owner Help File
  4753.  
  4754. If your system have been already setup for your computer then you don't have to 
  4755. follow any of these intsturctions.  But it would be wise to read it just so you 
  4756. will know what to do if you want to make modifications to the system in the futu
  4757. re.
  4758.  
  4759.    A) How to get the board running....
  4760.  
  4761. 1.  First off get out a text file editor.  Any wordprocessor will do.  You just 
  4762. need a program with witch you can edit and save text files.
  4763.  
  4764. 2.  Boot up your text file editor.
  4765.  
  4766. 3.  Load the file 'MODULES' off of disk 1.  It should look like this:
  4767.  
  4768. Apple Cat,Y
  4769. Board Module,N
  4770. Adventure,Y
  4771. Sysop,OPUS
  4772. Clock,Y
  4773.  
  4774. After Each despeription there is a variable:  Either a capital 'Y' or a capital 
  4775. 'N'.  If you have that module/option change the variable to a capital 'Y'.  If y
  4776. ou don't change it to a capital 'N'.  There is one other variable, the Sysop var
  4777. iable. Change that variable to your alias.
  4778.  
  4779. 4.  Load the 'DATA' file of disk number 1.  It should look like this:
  4780.  
  4781. 0
  4782. 0
  4783. N
  4784. THU SEP 12 (Or some other data)
  4785. 0
  4786. OPUS (Or some other name)
  4787. 500000000 (Or some other large value)
  4788. 0
  4789. call the parking lot (415) 525-2716 (Or some other message)
  4790. 7
  4791.  
  4792. Now, this is importatnt, the second and eighth variables must be zeros.  If they
  4793.  arn't change them to zeros.  You should only change these variables to zero if 
  4794. you do not as yet have any users.  The only variables you should ever change aft
  4795. er that are the third and last variables.  The third variable should be changed 
  4796. to a capital 'Y' if you are running the system off of a hard drive or to a capit
  4797. al 'N' if you are running it off of regular disk drives.  Here is what all the v
  4798. ariables do:
  4799.  
  4800. The:
  4801.  
  4802. 1'rst variable determines how many call you have gotten that day.
  4803.  
  4804. 2'nd variable is the number of users you have(deleted slots count to).
  4805.  
  4806. 3'rd variable tells the program if you are running the system off a hard drive.
  4807.  
  4808. 4'th variable is the last date somebody logged on.
  4809.  
  4810. 5'th variable tells how many calls the sytem has received.
  4811.  
  4812. 6'th variable is the last caller.
  4813.  
  4814. 7'th variable is the amount of gold in the bank.
  4815.  
  4816. 8'th variable is the total amout of messages posted.
  4817.  
  4818. 9'th variable is the user posted message.
  4819.  
  4820. 10'th variable determined how many calls Half-Validated users get before they ar
  4821. e deleted.  You can change this variable to your liking.
  4822.  
  4823. 5.  Load the 'CONFIG' file off of disk 1.  It should look somewhat like this:
  4824. ARMOR,254,6,1
  4825. BDATA,254,6,1
  4826. BOARDS,254,6,1
  4827. CONFIG RESET1 DRIVER DRIVER DATA CHAIN,254,6,1
  4828. DATA,254,6,1
  4829. DEATH,254,6,2
  4830. LEVELS,254,6,1
  4831. MODULES,254,6,1
  4832. MONSTERS,254,6,1
  4833. QSCAN,254,6,2
  4834. RANK,254,6,2
  4835. EMPTY,254,6,1
  4836. SPELLS,254,6,1
  4837. START,254,6,1
  4838. STATS + DOWNS,254,6,2
  4839. TOP,254,6,2
  4840. All READ ONLY TEXT FILES,254,6,1
  4841. VOTING,254,6,1
  4842. WEAPONS,254,6,1
  4843. MAIL,254,6,2
  4844. ADATA,254,6,2
  4845. EMPTY,254,6,2
  4846. CHAR,254,6,2
  4847. DES,254,6,2
  4848. ITEMS,254,6,2
  4849. EMPTY,254,6,2
  4850. SAVE,254,6,2
  4851. SHD,254,6,2
  4852. USE,254,6,2
  4853. MAIN,254,6,2
  4854. BRD,254,6,2
  4855. MA,254,6,1
  4856. CHAT,254,6,1
  4857. FIGHT,254,6,1
  4858. OFF,254,6,1
  4859. GA,254,6,1
  4860. STORES,254,6,1
  4861. ASTART,254,6,1
  4862. ADVENT,254,6,1
  4863. JOUST,254,6,1
  4864.  
  4865. This tells the computer where the files with the same names are.  The first vari
  4866. able is the exact name of the file.  the second is the volume number, the third 
  4867. is the slot number, and the fourth is the drive number.   If you want to switch 
  4868. files to a different location(drive, volume, or whatever) you must change the va
  4869. lues coresponding to that change in this file.  For example, say you moved the '
  4870. ARMOR" file to Volume 10, Slot 6, drive 1.  You would look for the variables for
  4871.  the file 'ARMOR'.  Once you found the 'ARMOR' file in the you would simply chan
  4872. ge it to 'ARMOR,010,6,1'.  Then you could copy armor onto volume 10 and delete i
  4873. t off of it's original location.  Yo can do this for almost all of the files.  S
  4874. ome files have to be on the same drive/volume as others.  You will see these in 
  4875. the titles.  For EXAMPLE.  The files 'Config, RESET1, DRIVER, DRIVER DATA, and C
  4876. HAIN' all have to be on the same volume/drive.  So if you move one you have to m
  4877. ove the other.  When you first get your system, it will be configured for either
  4878.  2 drives or 3 drives or for a hard drive so modification of this file probably 
  4879. will not be neccarry for the time being.
  4880.  
  4881. One more thing, you must have all the READ ONLY TEXT FILES at the same location.
  4882.   Thse files include:
  4883.  
  4884. VOTING.TOP
  4885. ADV.SOLVE 
  4886. AD.DES
  4887. CNTRL.CHAR
  4888. CSTAT
  4889. FACTS
  4890. FEES
  4891. HELP
  4892. HELP.ADV
  4893. INFO
  4894. LOANS
  4895. LOG
  4896. MENU.
  4897. MENU.ADV
  4898. NEW
  4899. NEWS
  4900. OFF1
  4901. PILLAGE
  4902.  
  4903. These MUST ALL BE AT THE SAME LOCATION!!!  I.E. SAME VOLUME/DRIVE.
  4904.  
  4905. P.S  when changing volume numbers the value most be three digits.  So if you wan
  4906. t to move a file to volume 1 change the volume value to '001'.
  4907.  
  4908. The only problems you might have in the beginning are for slot numbers.  If you 
  4909. have a hard drive it will be configured for slot 7.
  4910.  
  4911. Some files will not be on any of your disks.  This just means the program will c
  4912. reate them later.
  4913.  
  4914. Reserving Space:
  4915.  
  4916. Reseve:
  4917.  
  4918. 1 sectors per user for the stat file.  I.E. if you have '150' users the stat fil
  4919. e will be 150 sectors long.
  4920.  
  4921. 1/10 sectors per user for the 'TOP' file.
  4922.  
  4923. 1/10 sectors per user for the 'DOWNS' File.
  4924.  
  4925. 1/5 Sectors per users for the 'DEATH' file.
  4926.  
  4927. VERIFY THE CONFIGURATION SETUP.
  4928.  
  4929. 6.  Ok, now that you have set up your system it is almost ready to run.  Boot up
  4930.  dos and load up the file 'START' from disk 1.  Line number 10 is the location a
  4931. t which the file 'DRIVER' is loacted.  Change that, if need be, to the location 
  4932. of the file 'DRIVER' on your system and then save the file on disk 1.
  4933.  
  4934. 6.5  each new user will take up roughly 2 sectors of disk space so figure this o
  4935. ut before you add on to many sub-boards.
  4936.  
  4937. 7.  Load up the file 'COMPLETE EDITOR' off of drive 1 and do the same thing you 
  4938. did with line 10 of start.  Save 'COMPLETE EDITOR'.  This file does not need to 
  4939. be on the system while it is running.  It is a sysop's utilities files.  Put thi
  4940. s file on another disk and then delete it off of disk 1.   After doing this run 
  4941. 'COMPLETE EDITOR'.   IF you are going to run the board module type 14 from the c
  4942. omplete editors menu.  This function will allow yo to set up your sub-boards.  W
  4943. ith each sub-board you can set up volume, drive, slot, an maximum messages on th
  4944. at board. If you set your mamximum message to 30 on one board you should leave 1
  4945. 20 sectors free for that sub-board.  Everytime you add or get rid of a sub-board
  4946.  the quickscan status for each users will be reset.
  4947.  
  4948. 8.  After setting up your sub-boards you are ready to run the board.  Run the 'S
  4949. TART' program and your system should work.
  4950.  
  4951. 9.  If you don't have the adventure copy these files onto another disk, one that
  4952.  isn't on the system, and then delete them from the text file disk:  
  4953.  
  4954. ADV.SOLVE
  4955. AD.DES
  4956. MENU.ADV
  4957. HELP.ADV
  4958.  
  4959. 10.  If you have your board module up but then decide to take it down delete all
  4960.  files that look like this:
  4961.  
  4962. B(followed by any number)/(followed by any number)
  4963.  
  4964. EXAMPLE:  B2/22
  4965.  
  4966. and all files like this:
  4967.  
  4968. S(followed by any number)
  4969.  
  4970. EXAMPLE:  S3
  4971.  
  4972. also delete the files 'QSCAN, BOARDS, and BDATA'.
  4973.  
  4974. 11.  If you DON'T have a clock you will have to do two things everynight at 12 o
  4975. r at a specific time.
  4976.  
  4977.     1)  Change the date of the last caller in the 'DATA' file.  This is the fort
  4978. h variable in the 'DATA' file.   The format must be like this:
  4979.  
  4980.           SAT SEP 12  or SAT SEP  2
  4981.  
  4982.        The first three letter word being the day, the second three letter word b
  4983. eing the month, the number being the day.
  4984.  
  4985.        Run the reset file at least once a day if you don't have a clock..  If yo
  4986. u don't have a clock you can take the reset file off of it's system disk and put
  4987.  it on another non-system disk.  Do not worry about changing the value in the co
  4988. nfiguration file.  Before runing the 'RESET1' file you must first load the file 
  4989. 'RESET1' and then catalog the volume on which the file 'CONFIG' is loacated.  Th
  4990. en simply type run.  Do this once a day only if you do not have a clock.  If you
  4991.  do have a clock then it will do all of this for you automatically.
  4992.  
  4993.     P.S.  any trouble with the clock may result from it not being compactable wi
  4994. th a thunderclock.  The system is meant to run with a thunderclock.  Also, the m
  4995. aximum amount of users the system can hold is 500.
  4996.  
  4997. Well, that's about it.  You can figure the rest out by yourself.  If you have an
  4998. y problem check all the variables in the MODULES, CONFIG, AND DATA file for thei
  4999. r accuracy.
  5000.      
  5001. ]RUN
  5002. ?FACTS
  5003.  
  5004. EXEC FACTS
  5005.      Important Facts about Playing
  5006.      -----------------------------
  5007.  
  5008. 1.  Always Sell your old weapon or
  5009.     armor before buying a new one.
  5010.  
  5011. 2.  Wisdom is the strength of spells.
  5012.     In other words, if you have 1
  5013.     Wisdom and you cast a Demodenia
  5014.     spell it will do 70 damage.  If
  5015.     You have 50 Wisdom it will do 350
  5016.     damage.
  5017.  
  5018. 3.  Intelligence determines how many
  5019.     hit points you get when you go up
  5020.     a level.  for instance, if you have
  5021.     10 intelligence you will gain
  5022.     about 8 hit points.  If you have
  5023.     50 intelligence you will gain
  5024.     about 45 hit points.
  5025.  
  5026. 4.  You get gold for voting, so vote
  5027.     every time.
  5028.  
  5029. 5.  You can raise your hit points or any
  5030.     of your stats by using the T) trade
  5031.     stat option.
  5032.  
  5033. 6.  There are magical weapons and armor
  5034.     in the Corridor of Death.  To get
  5035.     though you have to be a very high
  5036.     level because they are in the last
  5037.     60 rooms.
  5038.  
  5039. 7.  You cannot cast spells against
  5040.     other users in the Proving Grounds.
  5041.     You can in the adventure.
  5042.  
  5043. 8.  The board is 202.  When you log on,
  5044.     it asks you if you are using
  5045.     Cat-Fur.  Cat-Fur is a Terminal
  5046.     program written for the Apple Cat
  5047.     Modem.  If you are using Cat-Fur,
  5048.     You will be at 1200 Baud.  The
  5049.     only drawback is that you cannot
  5050.     abort or pause messages.
  5051.     
  5052.     From any Input line type:
  5053.  
  5054.     '202 ON' to turn 202 on.
  5055.  
  5056.     '202 OFF' to turn 202 off.
  5057.  
  5058. 9. The board has a multiple command
  5059.     macros.  Which means you can
  5060.     program a series of commands on
  5061.     one line by separating them with
  5062.     commas.
  5063.  
  5064.     Example:  K,A,1000
  5065.  
  5066.     From the main menu would go to the
  5067.     bank, take the deposit option, and
  5068.     deposit 1000 gold into your
  5069.     account.  Try this out!  It is very
  5070.     helpful and speeds up your game
  5071.     immensely.
  5072.  
  5073. 10. Q) Quits from almost everything.
  5074.     
  5075.     H) from the main menu will tell you
  5076.        which users you can fight.
  5077.     
  5078.     Space Bar) Aborts almost all
  5079.                messages. 
  5080. ]RUN
  5081. ?ITEMS
  5082.  
  5083. EXEC ITEMS
  5084. Wheel Of Wisdom
  5085. Box Of Teleportation
  5086. Gold Talisman
  5087. Magic Ring
  5088. Blue Card
  5089. Black Card
  5090. Orb Of Ressurection
  5091. Bottle Of Holy Water
  5092. Gold Key
  5093. Force Field Pass
  5094. Tram Pass
  5095. Jeweled Crown
  5096. Jet Pack
  5097. Inflatable Raft
  5098. White Card
  5099. Old Rotting Head
  5100. Big Black Dildo
  5101. Cure Severe Wounds Spell
  5102. Monalisa
  5103. Red Ash
  5104. Gray Card
  5105. Dick Demolisher
  5106. Thermonuclear Bomb
  5107. Witches Sceptre
  5108. Portable Laser Cannon
  5109. Black Diamond
  5110. Red Card
  5111. Pound Spell
  5112. Green Card
  5113. Condom
  5114. 44 Magnum
  5115. Elevator Card
  5116. Magic Potion
  5117. Increase Spell
  5118. Yellow Card
  5119. Cure All Wounds Spell
  5120. Tan Card
  5121. Brown Pass
  5122. Yellow Pass
  5123. Purple Pass
  5124. Green Pass
  5125. Red Pass
  5126. Tan Pass
  5127. Blue Pass
  5128. Book Of Magic
  5129. Penny
  5130. Demodenia Spell
  5131. Death Spell
  5132. Piece Of Shit
  5133. Ring Of Power
  5134. White Diamond
  5135. Broken Paintbrush
  5136. A Roll Of Toilet Paper
  5137. A Disneyland Cup
  5138.