home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / DND29C4.ZIP / SOURCE.ZIP / DNDCNFG.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-01-04  |  91.3 KB  |  3,778 lines
  1.  Rem dndcnfg.bas v2.9c
  2.  Rem $Include: 'dndbbs.inc'
  3.  
  4.  On Error Goto 10002
  5.  Restore Array.Data
  6.  For Temp=1 To 8
  7.     Read Menu1(Temp), Menu2(Temp,1), Menu2(Temp,2)
  8.  Next
  9.  Do
  10.     TempX=1
  11.     Call Display.Main.Screen
  12.     Call Status.Line
  13.     Do
  14.        Strng3=Nul
  15.        Do While Strng3=Nul
  16.           Strng3=Inkey$
  17.        Loop
  18.        Select Case Len(Strng3)
  19.        Case 1
  20.           Select Case Ucase$(Strng3)
  21.           Case "L"
  22.              Temp=1
  23.              Call Main.Menu.Select
  24.              Call Main.Edit
  25.              Exit Do
  26.           Case "P"
  27.              Temp=2
  28.              Call Main.Menu.Select
  29.              Call Main.Edit
  30.              Exit Do
  31.           Case "F"
  32.              Temp=3
  33.              Call Main.Menu.Select
  34.              Call Main.Edit
  35.              Exit Do
  36.           Case "R"
  37.              Temp=4
  38.              Call Main.Menu.Select
  39.              Call Main.Edit
  40.              Exit Do
  41.           Case "C"
  42.              Temp=5
  43.              Call Main.Menu.Select
  44.              Call Main.Edit
  45.              Exit Do
  46.           Case "M"
  47.              Temp=6
  48.              Call Main.Menu.Select
  49.              Call Main.Edit
  50.              Exit Do
  51.           Case "E"
  52.              Temp=7
  53.              Call Main.Menu.Select
  54.              Call Main.Edit
  55.              Exit Do
  56.           Case "Q"
  57.              Temp=8
  58.              Call Main.Menu.Select
  59.              Error 99
  60.           Case Chr$(4)
  61.              Call Load.Defaults
  62.              Call Status.Line
  63.           Case Chr$(9)
  64.              Call Main.Select
  65.           Case Chr$(13)
  66.              Call Main.Edit
  67.              If TempX=8 Then
  68.                 Error 99
  69.              Endif
  70.              Exit Do
  71.           Case Chr$(18)
  72.              Call Load.Config
  73.              Call Status.Line
  74.           Case Chr$(23)
  75.              Call Write.Config
  76.              Call Status.Line
  77.           Case Chr$(27)
  78.              Error 99
  79.           End Select
  80.        Case 2
  81.           Call Main.Select
  82.           If Strng3=Chr$(13) Then
  83.              Call Main.Edit
  84.              If TempX=8 Then
  85.                 Error 99
  86.              Endif
  87.              Exit Do
  88.           Endif
  89.        End Select
  90.     Loop
  91.  Loop
  92. 10001
  93.  Call Clear.Screen
  94.  If Chained Then
  95.     Chain DND.Path$+"dndbbs.exe"
  96.  Endif
  97.  End
  98. 10002
  99.  Resume 10001
  100.  
  101. Sub Display.Main.Screen
  102.  On Local Error Goto 10022
  103.  Locate ,,1
  104.  Strng=Chr$(27)+"[1;33;44m"
  105.  Call Scrn(Strng)
  106.  Strng=Chr$(27)+"[2J"
  107.  Call Scrn(Strng)
  108.  Strng=Chr$(27)+"[2;2H"
  109.  Call Scrn(Strng)
  110.  Strng=Chr$(214)
  111.  Call Scrn(Strng)
  112.  Strng=String$(76,196)
  113.  Call Scrn(Strng)
  114.  Strng=Chr$(183)
  115.  Call Scrn(Strng)
  116.  Strng=Chr$(27)+"[1;36;44m"
  117.  Call Scrn(Strng)
  118.  Strng=Chr$(27)+"[4;20H"
  119.  Call Scrn(Strng)
  120.  Strng2="Dungeons and Dragons Bulletin Board System"
  121.  Call Scrn(Strng2)
  122.  Strng=Chr$(27)+"[6;25H"
  123.  Call Scrn(Strng)
  124.  Strng2="Sysop Configuration Version "+Version$
  125.  Call Scrn(Strng2)
  126.  Strng=Chr$(27)+"[1;33;44m"
  127.  Call Scrn(Strng)
  128.  Temp1=1
  129.  For Temp=3 To 23
  130.     Strng=Chr$(27)+"[1;33;44m"
  131.     Call Scrn(Strng)
  132.     Strng2=Chr$(27)+"["+Mid$(Str$(Temp),2)+";2H"
  133.     Call Scrn(Strng2)
  134.     Strng=Chr$(186)
  135.     Call Scrn(Strng)
  136.     If Temp=Menu2(Temp1,1) Then
  137.        Strng2=Chr$(27)+"["+Mid$(Str$(Menu2(Temp1,1)),2)+";"+_
  138.        Mid$(Str$(Menu2(Temp1,2)),2)+"H"
  139.        Call Scrn(Strng2)
  140.        Strng2="F"+Mid$(Str$(Temp1),2)+" "
  141.        Call Scrn(Strng2)
  142.        If Temp1=1 Then
  143.           Strng=Chr$(27)+"[1;37;41m"
  144.           Call Scrn(Strng)
  145.           Strng2=Left$(Menu1(Temp1),1)
  146.           Call Scrn(Strng2)
  147.           Strng=Chr$(27)+"[1;33;41m"
  148.           Call Scrn(Strng)
  149.           Strng2=Mid$(Menu1(Temp1),2)
  150.           Strng2=Rtrim$(Strng2)
  151.           Call Scrn(Strng2)
  152.        Else
  153.           Strng=Chr$(27)+"[1;37;44m"
  154.           Call Scrn(Strng)
  155.           Strng2=Left$(Menu1(Temp1),1)
  156.           Call Scrn(Strng2)
  157.           Strng=Chr$(27)+"[1;33;44m"
  158.           Call Scrn(Strng)
  159.           Strng2=Mid$(Menu1(Temp1),2)
  160.           Strng2=Rtrim$(Strng2)
  161.           Call Scrn(Strng2)
  162.        Endif
  163.        Strng=Chr$(27)+"[1;33;44m"
  164.        Call Scrn(Strng)
  165.        Strng2=Chr$(27)+"["+Mid$(Str$(Menu2(Temp1+4,1)),2)+";"+_
  166.        Mid$(Str$(Menu2(Temp1+4,2)),2)+"H"
  167.        Call Scrn(Strng2)
  168.        Strng2="F"+Right$(Str$(Temp1+4),1)+" "
  169.        Call Scrn(Strng2)
  170.        Strng=Chr$(27)+"[1;37;44m"
  171.        Call Scrn(Strng)
  172.        Strng2=Left$(Menu1(Temp1+4),1)
  173.        Call Scrn(Strng2)
  174.        Strng=Chr$(27)+"[1;33;44m"
  175.        Call Scrn(Strng)
  176.        Strng2=Mid$(Menu1(Temp1+4),2)
  177.        Strng2=Rtrim$(Strng2)
  178.        Call Scrn(Strng2)
  179.        Temp1=Temp1+1
  180.     Endif
  181.     Strng2=Chr$(27)+"["+Mid$(Str$(Temp),2)+";79H"
  182.     Call Scrn(Strng2)
  183.     Strng=Chr$(186)
  184.     Call Scrn(Strng)
  185.  Next
  186.  Strng=Chr$(27)+"[24;2H"
  187.  Call Scrn(Strng)
  188.  Strng=Chr$(211)
  189.  Call Scrn(Strng)
  190.  Strng=String$(76,196)
  191.  Call Scrn(Strng)
  192.  Strng=Chr$(189)
  193.  Call Scrn(Strng)
  194. 10021
  195.  Exit Sub
  196. 10022
  197.  Resume 10021
  198. End Sub
  199.  
  200. Sub Main.Edit
  201.  On Local Error Goto 10032
  202.  Select Case TempX
  203.  Case 1
  204.     Call Edit.Page.One
  205.  Case 2
  206.     Call Edit.Page.Two
  207.  Case 3
  208.     Call Edit.Page.Three
  209.  Case 4
  210.     Call Edit.Page.Four
  211.  Case 5
  212.     Call Edit.Page.Five
  213.  Case 6
  214.     Call Edit.Page.Six
  215.  Case 7
  216.     Call Edit.Page.Seven
  217.  End Select
  218. 10031
  219.  Exit Sub
  220. 10032
  221.  Resume 10031
  222. End Sub
  223.  
  224. Sub Edit.Page.One
  225.  On Local Error Goto 10042
  226.  Call Display.Page.One
  227.  For Temp=1 To 21
  228.     Call Select.Page.One(Temp)
  229.  Next
  230.  Do
  231.     Call Option.Prompt
  232.     Select Case Temp1
  233.     Case 0
  234.        Exit Sub
  235.     Case 1 To 20
  236.        Call Data.Prompt
  237.        Select Case Temp1
  238.        Case 1
  239.           Config1(1)=Temp!
  240.        Case 2
  241.           Config1(2)=Temp!
  242.        Case 3
  243.           Config1(3)=Temp!
  244.        Case 4
  245.           Config2(1)=Temp!
  246.        Case 5
  247.           Config2(2)=False
  248.           If Yes Then
  249.              Config2(2)=True
  250.           Endif
  251.        Case 6
  252.           Config2(3)=False
  253.           If Yes Then
  254.              Config2(3)=True
  255.           Endif
  256.        Case 7
  257.           Config2(4)=False
  258.           If Yes Then
  259.              Config2(4)=True
  260.           Endif
  261.        Case 8
  262.           Config3(1)=Strng3
  263.        Case 9
  264.           Config3(2)=Strng3
  265.        Case 10
  266.           Config2(5)=False
  267.           If Yes Then
  268.              Config2(5)=True
  269.           Endif
  270.        Case 11
  271.           Config3(3)=Strng3
  272.        Case 12
  273.           Config2(6)=False
  274.           If Yes Then
  275.              Config2(6)=True
  276.           Endif
  277.        Case 13
  278.           Config3(4)=Strng3
  279.        Case 14
  280.           Config2(38)=False
  281.           If Yes Then
  282.              Config2(38)=True
  283.           Endif
  284.        Case 15
  285.           Config3(5)=Strng3
  286.        Case 16
  287.           Config2(7)=False
  288.           If Yes Then
  289.              Config2(7)=True
  290.           Endif
  291.        Case 17
  292.           Config2(8)=Temp!
  293.        Case 18
  294.           Config2(9)=Temp!
  295.        Case 19
  296.           Config1(4)=Temp!
  297.        Case 20
  298.           Config2(32)=Temp!
  299.        End Select
  300.        Call Select.Page.One(Temp1)
  301.     Case 21
  302.        Strng2=Chr$(27)+"[1;37;44m"
  303.        Call Scrn(Strng2)
  304.        Strng2=Chr$(27)+"[2J"
  305.        Call Scrn(Strng2)
  306.        Strng2="Increments for players during level increase."
  307.        Call Scrn(Strng2)
  308.        For Temp=1 To 10
  309.           Strng2=Chr$(27)+"["+Mid$(Str$(Temp*2),2)+";1H"
  310.           Call Scrn(Strng2)
  311.           Strng2=Chr$(27)+"[0;37;44m"
  312.           Call Scrn(Strng2)
  313.           Strng2=Rtrim$(Class.Name(Temp))+"/"+_
  314.           Rtrim$(High.Class.Name(Temp))+"."
  315.           Call Scrn(Strng2)
  316.           For Temp1=1 To 4
  317.              Call Display.Class
  318.           Next
  319.        Next
  320.        Do
  321.           Call Option.Prompt
  322.           Select Case Temp1
  323.           Case 0
  324.              Exit Sub
  325.           Case 1 To 40
  326.              Call Data.Prompt
  327.              Temp=Int((Temp1-1)/4)
  328.              Temp1=Temp1-Temp*4
  329.              Temp=Temp+1
  330.              Training.Room(Temp,Temp1)=Temp!
  331.              Call Display.Class
  332.           End Select
  333.        Loop
  334.     Case 22
  335.        Call Display.Page.One.Two
  336.        For Temp=22 To 37
  337.           Call Select.Page.One(Temp)
  338.        Next
  339.        Do
  340.           Call Option.Prompt
  341.           Select Case Temp1
  342.           Case 0
  343.              Exit Sub
  344.           Case 22 To 37
  345.              Call Data.Prompt
  346.              Select Case Temp1
  347.              Case 22
  348.                 Config2(67)=Temp!
  349.              Case 23
  350.                 Config3(77)=Strng3
  351.              Case 24
  352.                 Config2(51)=False
  353.                 If Yes Then
  354.                    Config2(51)=True
  355.                 Endif
  356.              Case 25
  357.                 Config2(52)=False
  358.                 If Yes Then
  359.                    Config2(52)=True
  360.                 Endif
  361.              Case 26
  362.                 Config2(53)=False
  363.                 If Yes Then
  364.                    Config2(53)=True
  365.                 Endif
  366.              Case 27
  367.                 Config2(54)=False
  368.                 If Yes Then
  369.                    Config2(54)=True
  370.                 Endif
  371.              Case 28
  372.                 Config2(72)=False
  373.                 If Yes Then
  374.                    Config2(72)=True
  375.                 Endif
  376.              Case 29
  377.                 Config2(73)=False
  378.                 If Yes Then
  379.                    Config2(73)=True
  380.                 Endif
  381.              Case 30
  382.                 Config2(84)=False
  383.                 If Yes Then
  384.                    Config2(84)=True
  385.                 Endif
  386.              Case 31
  387.                 Config2(85)=False
  388.                 If Yes Then
  389.                    Config2(85)=True
  390.                 Endif
  391.              Case 32
  392.                 Config2(74)=False
  393.                 If Yes Then
  394.                    Config2(74)=True
  395.                 Endif
  396.              Case 33
  397.                 Config2(75)=False
  398.                 If Yes Then
  399.                    Config2(75)=True
  400.                 Endif
  401.              Case 34
  402.                 Config2(76)=False
  403.                 If Yes Then
  404.                    Config2(76)=True
  405.                 Endif
  406.              Case 35
  407.                 Config2(77)=False
  408.                 If Yes Then
  409.                    Config2(77)=True
  410.                 Endif
  411.              Case 36
  412.                 Config2(78)=False
  413.                 If Yes Then
  414.                    Config2(78)=True
  415.                 Endif
  416.              Case 37
  417.                 Config2(48)=False
  418.                 If Yes Then
  419.                    Config2(48)=True
  420.                 Endif
  421.              End Select
  422.           Case 38
  423.              Strng2=Chr$(27)+"[1;37;44m"
  424.              Call Scrn(Strng2)
  425.              Strng2=Chr$(27)+"[2J"
  426.              Call Scrn(Strng2)
  427.              Strng2="Custom level ten class names."
  428.              Call Scrn(Strng2)
  429.              For Temp=1 To 10
  430.                 Strng2=Chr$(27)+"["+Mid$(Str$(Temp+1),2)+";1H"
  431.                 Call Scrn(Strng2)
  432.                 Strng2=Chr$(27)+"[0;37;44m"
  433.                 Call Scrn(Strng2)
  434.                 Strng2=Mid$(Str$(Temp),2)+": "+_
  435.                 Rtrim$(Class.Name(Temp))+"/"+_
  436.                 Rtrim$(High.Class.Name(Temp))+"."
  437.                 Call Scrn(Strng2)
  438.              Next
  439.              Do
  440.                 Call Option.Prompt
  441.                 Select Case Temp1
  442.                 Case 0
  443.                    Exit Sub
  444.                 Case 1 To 10
  445.                    Call Data.Prompt
  446.                    If Len(Strng3) Then
  447.                       Mid$(Strng3,1,1)=Ucase$(Mid$(Strng3,1,1))
  448.                       High.Class.Name(Temp1)=Strng3
  449.                    Endif
  450.                    Strng2=Chr$(27)+"["+Mid$(Str$(Temp1+1),2)+";1H"
  451.                    Call Scrn(Strng2)
  452.                    Strng2=Chr$(27)+"[0;37;44m"
  453.                    Call Scrn(Strng2)
  454.                    Strng2=Chr$(27)+"[K"
  455.                    Call Scrn(Strng2)
  456.                    Strng2=Mid$(Str$(Temp1),2)+": "+_
  457.                    Rtrim$(Class.Name(Temp1))+"/"+_
  458.                    Rtrim$(High.Class.Name(Temp1))+"."
  459.                    Call Scrn(Strng2)
  460.                 End Select
  461.              Loop
  462.           Case 39
  463.              Exit Do
  464.           End Select
  465.           Call Select.Page.One(Temp1)
  466.        Loop
  467.        Call Display.Page.One
  468.        For Temp=1 To 21
  469.           Call Select.Page.One(Temp)
  470.        Next
  471.     End Select
  472.  Loop
  473. 10041
  474.  Exit Sub
  475. 10042
  476.  Resume 10041
  477. End Sub
  478.  
  479. Sub Edit.Page.Two
  480.  On Local Error Goto 10052
  481.  Call Display.Page.Two
  482.  For Temp=1 To 21
  483.     Call Select.Page.Two(Temp)
  484.  Next
  485.  Do
  486.     Call Option.Prompt
  487.     Select Case Temp1
  488.     Case 0
  489.        Exit Sub
  490.     Case 1 To 21
  491.        Call Data.Prompt
  492.        Select Case Temp1
  493.        Case 1
  494.           Config2(10)=Temp!
  495.        Case 2
  496.           Config2(11)=Temp!
  497.        Case 3
  498.           Config2(12)=Temp!
  499.        Case 4
  500.           Select Case Ucase$(Strng3)
  501.           Case "H"
  502.              Config2(13)=True
  503.           Case "V"
  504.              Config2(13)=False
  505.           End Select
  506.        Case 5
  507.           Config2(14)=False
  508.           If Yes Then
  509.              Config2(14)=True
  510.           Endif
  511.        Case 6
  512.           Config3(6)=Strng3
  513.        Case 7
  514.           Config2(61)=False
  515.           If Yes Then
  516.              Config2(61)=True
  517.           Endif
  518.        Case 8
  519.           Config3(14)=Strng3
  520.        Case 9
  521.           Config2(15)=Temp!
  522.        Case 10
  523.           Config2(16)=False
  524.           If Yes Then
  525.              Config2(16)=True
  526.           Endif
  527.        Case 11
  528.           Config2(17)=False
  529.           If Yes Then
  530.              Config2(17)=True
  531.           Endif
  532.        Case 12
  533.           Config2(18)=False
  534.           If Yes Then
  535.              Config2(18)=True
  536.           Endif
  537.        Case 13
  538.           Config2(19)=False
  539.           If Yes Then
  540.              Config2(19)=True
  541.           Endif
  542.        Case 14
  543.           Config2(20)=False
  544.           If Yes Then
  545.              Config2(20)=True
  546.           Endif
  547.        Case 15
  548.           Config2(21)=Temp!
  549.        Case 16
  550.           Config2(22)=Temp!
  551.        Case 17
  552.           Config2(23)=Temp!
  553.        Case 18
  554.           Config2(82)=Temp!
  555.        Case 19
  556.           Config2(24)=Temp!
  557.        Case 20
  558.           Config1(5)=Temp!/100
  559.        Case 21
  560.           Config3(7)=Strng3
  561.        End Select
  562.        Call Select.Page.Two(Temp1)
  563.     Case 22
  564.        Call Display.Page.Two.Two
  565.        For Temp=22 To 41
  566.           Call Select.Page.Two(Temp)
  567.        Next
  568.        Do
  569.           Call Option.Prompt
  570.           Select Case Temp1
  571.           Case 0
  572.              Exit Sub
  573.           Case 22 To 41
  574.              Call Data.Prompt
  575.              Select Case Temp1
  576.              Case 22
  577.                 Config3(8)=Strng3
  578.              Case 23
  579.                 Config3(9)=Strng3
  580.              Case 24
  581.                 Config3(10)=Strng3
  582.              Case 25
  583.                 Config2(39)=False
  584.                 If Yes Then
  585.                    Config2(39)=True
  586.                 Endif
  587.              Case 26
  588.                 Config2(44)=False
  589.                 If Yes Then
  590.                    Config2(44)=True
  591.                 Endif
  592.              Case 27
  593.                 Config2(58)=False
  594.                 If Yes Then
  595.                    Config2(58)=True
  596.                 Endif
  597.              Case 28
  598.                 Config2(37)=Temp!
  599.              Case 29
  600.                 Config1(9)=Temp!/100
  601.              Case 30
  602.                 Config2(62)=Temp!
  603.              Case 31
  604.                 Config2(43)=Temp!
  605.              Case 32
  606.                 Config1(27)=Temp!/100
  607.              Case 33
  608.                 Config2(42)=Temp!
  609.              Case 34
  610.                 Config1(26)=Temp!/100
  611.              Case 35
  612.                 Config2(41)=Temp!
  613.              Case 36
  614.                 Config1(25)=Temp!/100
  615.              Case 37
  616.                 Config2(40)=Temp!
  617.              Case 38
  618.                 Config1(30)=Temp!
  619.              Case 39
  620.                 Config1(10)=Temp!
  621.              Case 40
  622.                 Config2(50)=False
  623.                 If Yes Then
  624.                    Config2(50)=True
  625.                 Endif
  626.              Case 41
  627.                 Config2(81)=False
  628.                 If Yes Then
  629.                    Config2(81)=True
  630.                 Endif
  631.              End Select
  632.              Call Select.Page.Two(Temp1)
  633.           Case 42
  634.              Exit Do
  635.           End Select
  636.        Loop
  637.        Call Display.Page.Two
  638.        For Temp=1 To 21
  639.           Call Select.Page.Two(Temp)
  640.        Next
  641.     End Select
  642.  Loop
  643. 10051
  644.  Exit Sub
  645. 10052
  646.  Resume 10051
  647. End Sub
  648.  
  649. Sub Edit.Page.Three
  650.  On Local Error Goto 10062
  651.  Call Display.Page.Three
  652.  For Temp=1 To 21
  653.     Call Select.Page.Three(Temp)
  654.  Next
  655.  Do
  656.     Call Option.Prompt
  657.     Select Case Temp1
  658.     Case 0
  659.        Exit Sub
  660.     Case 1 To 21
  661.        Call Data.Prompt
  662.        Strng3=Ucase$(Strng3)
  663.        Select Case Temp1
  664.        Case 1
  665.           Config3(11)=Strng3
  666.           If Strng3<>Nul Then
  667.              If Right$(Strng3,1)<>"\" Then
  668.                 Config3(11)=Config3(11)+"\"
  669.              Endif
  670.           Endif
  671.        Case 2
  672.           Config3(52)=Strng3
  673.           If Strng3<>Nul Then
  674.              If Right$(Strng3,1)<>"\" Then
  675.                 Config3(52)=Config3(52)+"\"
  676.              Endif
  677.           Endif
  678.        Case 3
  679.           Config3(53)=Strng3
  680.           If Strng3<>Nul Then
  681.              If Right$(Strng3,1)<>"\" Then
  682.                 Config3(53)=Config3(53)+"\"
  683.              Endif
  684.           Endif
  685.        Case 4
  686.           Config3(15)=Strng3
  687.        Case 5
  688.           Config3(57)=Strng3
  689.        Case 6
  690.           Config3(62)=Strng3
  691.        Case 7
  692.           Config3(72)=Strng3
  693.        Case 8
  694.           Config3(67)=Strng3
  695.        Case 9
  696.           Config3(70)=Strng3
  697.        Case 10
  698.           Config3(73)=Strng3
  699.        Case 11
  700.           Config3(75)=Strng3
  701.        Case 12
  702.           Config3(56)=Strng3
  703.        Case 13
  704.           Config3(63)=Strng3
  705.        Case 14
  706.           Config3(16)=Strng3
  707.        Case 15
  708.           Config3(17)=Strng3
  709.        Case 16
  710.           Config3(18)=Strng3
  711.        Case 17
  712.           Config3(19)=Strng3
  713.        Case 18
  714.           Config3(20)=Strng3
  715.        Case 19
  716.           Config3(21)=Strng3
  717.        Case 20
  718.           Config3(12)=Strng3
  719.        Case 21
  720.           Config3(49)=Strng3
  721.        End Select
  722.        Call Select.Page.Three(Temp1)
  723.     Case 22
  724.        Call Display.Page.Three.Two
  725.        For Temp=22 To 36
  726.           Call Select.Page.Three(Temp)
  727.        Next
  728.        Do
  729.           Call Option.Prompt
  730.           Select Case Temp1
  731.           Case 0
  732.              Exit Sub
  733.           Case 22 To 36
  734.              Call Data.Prompt
  735.              Strng3=Ucase$(Strng3)
  736.              Select Case Temp1
  737.              Case 22
  738.                 Config3(13)=Strng3
  739.              Case 23
  740.                 Config3(28)=Strng3
  741.              Case 24
  742.                 Config3(50)=Strng3
  743.              Case 25
  744.                 Config3(22)=Strng3
  745.              Case 26
  746.                 Config3(58)=Strng3
  747.              Case 27
  748.                 Config3(60)=Strng3
  749.              Case 28
  750.                 Config3(59)=Strng3
  751.              Case 29
  752.                 Config3(64)=Strng3
  753.              Case 30
  754.                 Config3(65)=Strng3
  755.              Case 31
  756.                 Config3(68)=Strng3
  757.              Case 32
  758.                 Config3(69)=Strng3
  759.              Case 33
  760.                 Config3(76)=Strng3
  761.              Case 34
  762.                 Config3(61)=Strng3
  763.              Case 35
  764.                 Config3(51)=Strng3
  765.                 If Strng3<>Nul Then
  766.                    If Right$(Strng3,1)<>"\" Then
  767.                       Config3(51)=Config3(51)+"\"
  768.                    Endif
  769.                 Endif
  770.              Case 36
  771.                 Config3(54)=Strng3
  772.                 If Strng3<>Nul Then
  773.                    If Right$(Strng3,1)<>"\" Then
  774.                       Config3(54)=Config3(54)+"\"
  775.                    Endif
  776.                 Endif
  777.              End Select
  778.              Call Select.Page.Three(Temp1)
  779.           Case 37
  780.              Exit Do
  781.           End Select
  782.        Loop
  783.        Call Display.Page.Three
  784.        For Temp=1 To 21
  785.           Call Select.Page.Three(Temp)
  786.        Next
  787.     End Select
  788.  Loop
  789. 10061
  790.  Exit Sub
  791. 10062
  792.  Resume 10061
  793. End Sub
  794.  
  795. Sub Edit.Page.Four
  796.  On Local Error Goto 10072
  797.  Call Display.Page.Four
  798.  For Temp=1 To 12
  799.     Call Select.Page.Four(Temp)
  800.  Next
  801.  Do
  802.     Call Option.Prompt
  803.     Select Case Temp1
  804.     Case 0
  805.        Exit Do
  806.     Case 1 To 12
  807.        Call Data.Prompt
  808.        Select Case Temp1
  809.        Case 1
  810.           Config3(24)=Strng3
  811.        Case 2
  812.           Config3(25)=Strng3
  813.        Case 3
  814.           Room.Array(1)=Strng3
  815.        Case 4
  816.           Room.Array(2)=Strng3
  817.        Case 5
  818.           Room.Array(3)=Strng3
  819.        Case 6
  820.           Room.Array(4)=Strng3
  821.        Case 7
  822.           Room.Array(5)=Strng3
  823.        Case 8
  824.           Room.Array(6)=Strng3
  825.        Case 9
  826.           Room.Array(7)=Strng3
  827.        Case 10
  828.           Room.Array(8)=Strng3
  829.        Case 11
  830.           Room.Array(9)=Strng3
  831.        Case 12
  832.           Room.Array(10)=Strng3
  833.        End Select
  834.        Call Select.Page.Four(Temp1)
  835.     End Select
  836.  Loop
  837. 10071
  838.  Exit Sub
  839. 10072
  840.  Resume 10071
  841. End Sub
  842.  
  843. Sub Edit.Page.Five
  844.  On Local Error Goto 10082
  845.  Call Display.Page.Five
  846.  For Temp=1 To 21
  847.     Call Select.Page.Five(Temp)
  848.  Next
  849.  Do
  850.     Call Option.Prompt
  851.     Select Case Temp1
  852.     Case 0
  853.        Exit Sub
  854.     Case 1,3 To 21
  855.        Call Data.Prompt
  856.        Select Case Temp1
  857.        Case 1
  858.           Config3(74)=Strng3
  859.        Case 3
  860.           Config1(11)=Temp!/100
  861.        Case 4
  862.           Config1(12)=Temp!/100
  863.        Case 5
  864.           Config1(13)=Temp!/100
  865.        Case 6
  866.           Config1(14)=Temp!/100
  867.        Case 7
  868.           Config1(15)=Temp!
  869.        Case 8
  870.           Config2(27)=Temp!
  871.        Case 9
  872.           Config2(28)=Temp!
  873.        Case 10
  874.           Config1(16)=Temp!/100
  875.        Case 11
  876.           Config2(29)=Temp!
  877.        Case 12
  878.           Config2(30)=Temp!
  879.        Case 13
  880.           Config1(17)=Temp!/100
  881.        Case 14
  882.           Config1(18)=Temp!/100
  883.        Case 15
  884.           Config1(19)=Temp!/100
  885.        Case 16
  886.           Config2(82)=Temp!
  887.        Case 17
  888.           Config1(20)=Temp!/100
  889.        Case 18
  890.           Config2(33)=Temp!
  891.        Case 19
  892.           Config2(34)=Temp!
  893.        Case 20
  894.           Config1(21)=Temp!/100
  895.        Case 21
  896.           Config2(35)=Temp!
  897.        End Select
  898.        Call Select.Page.Five(Temp1)
  899.     Case 22
  900.        Call Display.Page.Five.Two
  901.        For Temp=22 To 31
  902.           Call Select.Page.Five(Temp)
  903.        Next
  904.        Do
  905.           Call Option.Prompt
  906.           Select Case Temp1
  907.           Case 0
  908.              Exit Sub
  909.           Case 22 To 30
  910.              Call Data.Prompt
  911.              Select Case Temp1
  912.              Case 22
  913.                 Config2(36)=Temp!
  914.              Case 23
  915.                 Config1(22)=Temp!/100
  916.              Case 24
  917.                 Config1(24)=Temp!/100
  918.              Case 25
  919.                 Config2(55)=False
  920.                 If Yes Then
  921.                    Config2(55)=True
  922.                 Endif
  923.              Case 26
  924.                 Config2(59)=Temp!
  925.              Case 27
  926.                 Config2(68)=False
  927.                 If Yes Then
  928.                    Config2(68)=True
  929.                 Endif
  930.              Case 28
  931.                 Config2(69)=Temp!
  932.              Case 29
  933.                 Config2(70)=False
  934.                 If Yes Then
  935.                    Config2(70)=True
  936.                 Endif
  937.              Case 30
  938.                 Config2(71)=False
  939.                 If Yes Then
  940.                    Config2(71)=True
  941.                 Endif
  942.              End Select
  943.              Call Select.Page.Five(Temp1)
  944.           Case 31
  945.              Exit Do
  946.           End Select
  947.        Loop
  948.        Call Display.Page.Five
  949.        For Temp=1 To 21
  950.           Call Select.Page.Five(Temp)
  951.        Next
  952.     End Select
  953.  Loop
  954. 10081
  955.  Exit Sub
  956. 10082
  957.  Resume 10081
  958. End Sub
  959.  
  960. Sub Edit.Page.Six
  961.  On Local Error Goto 10092
  962.  Call Display.Page.Six
  963.  For Temp=1 To 15
  964.     Call Select.Page.Six(Temp)
  965.  Next
  966.  Do
  967.     Call Option.Prompt
  968.     Select Case Temp1
  969.     Case 0
  970.        Exit Sub
  971.     Case 1 To 15
  972.        Call Data.Prompt
  973.        Select Case Temp1
  974.        Case 1
  975.           If Temp!>=1 And Temp!<=8 Then
  976.              Config2(46)=Temp!
  977.           Endif
  978.        Case 2
  979.           Config2(47)=False
  980.           If Yes Then
  981.              Config2(47)=True
  982.           Endif
  983.        Case 3
  984.           Config3(38)=Ucase$(Strng3)
  985.           If Right$(Config3(38),1)<>"\" Then
  986.              Config3(38)=Config3(38)+"\"
  987.           Endif
  988.        Case 4
  989.           Config3(42)=Strng3
  990.        Case 5
  991.           Select Case Temp!
  992.           Case 1
  993.              Config2(57)=1
  994.              Config3(39)="ATM0E0Q0V1X1"
  995.           Case 2
  996.              Config2(57)=2
  997.              Config3(39)="ATM0E0Q0V1X1&C1&D2"
  998.           Case 3
  999.              Config2(57)=3
  1000.              Config3(39)="ATM0E0Q0V1X1&C1&D2S0=1S2=255"
  1001.           Case 4
  1002.              Call Data.Prompt.Two
  1003.              Config2(57)=4
  1004.              Config3(39)=Ucase$(Strng3)
  1005.           Case 5
  1006.              Config2(57)=5
  1007.              Config3(39)="ATZ"
  1008.           End Select
  1009.        Case 6
  1010.           Config3(40)=Strng3
  1011.        Case 7
  1012.           Config3(41)=Strng3
  1013.        Case 8
  1014.           Config2(56)=Temp!
  1015.        Case 9
  1016.           Config2(64)=Temp!/100
  1017.        Case 10
  1018.           Config2(60)=Temp!
  1019.        Case 11
  1020.           Config2(45)=False
  1021.           If Yes Then
  1022.              Config2(45)=True
  1023.           Endif
  1024.        Case 12
  1025.           Config2(79)=False
  1026.           If Yes Then
  1027.              Config2(79)=True
  1028.           Endif
  1029.        Case 13
  1030.           Config2(80)=False
  1031.           If Yes Then
  1032.              Config2(80)=True
  1033.           Endif
  1034.        Case 14
  1035.           Config2(65)=False
  1036.           If Yes Then
  1037.              Config2(65)=True
  1038.           Endif
  1039.        Case 15
  1040.           If Ucase$(Strng3)="S" Then
  1041.              Config2(83)=True
  1042.           Else
  1043.              If Ucase$(Strng3)="C" Then
  1044.                 Config2(83)=False
  1045.              Endif
  1046.           Endif
  1047.        End Select
  1048.        Call Select.Page.Six(Temp1)
  1049.     End Select
  1050.  Loop
  1051. 10091
  1052.  Exit Sub
  1053. 10092
  1054.  Resume 10091
  1055. End Sub
  1056.  
  1057. Sub Edit.Page.Seven
  1058.  On Local Error Goto 10102
  1059.  Call Display.Page.Seven
  1060.  For Temp=1 To 13
  1061.     Call Select.Page.Seven(Temp)
  1062.  Next
  1063.  Do
  1064.     Call Option.Prompt
  1065.     Select Case Temp1
  1066.     Case 0
  1067.        Exit Sub
  1068.     Case 1 To 13
  1069.        Call Data.Prompt
  1070.        Select Case Temp1
  1071.        Case 1
  1072.           Config2(63)=False
  1073.           If Yes Then
  1074.              Config2(63)=True
  1075.           Endif
  1076.        Case 2
  1077.           Config3(29)=Strng3
  1078.        Case 3
  1079.           Config3(30)=Strng3
  1080.        Case 4
  1081.           Config3(31)=Strng3
  1082.        Case 5
  1083.           Config3(32)=Strng3
  1084.        Case 6
  1085.           Config3(33)=Strng3
  1086.        Case 7
  1087.           Config3(34)=Strng3
  1088.        Case 8
  1089.           Config3(35)=Strng3
  1090.        Case 9
  1091.           Config3(36)=Strng3
  1092.        Case 10
  1093.           Config3(37)=Strng3
  1094.        Case 11
  1095.           Config3(43)=Strng3
  1096.        Case 12
  1097.           Config3(44)=Strng3
  1098.        Case 13
  1099.           Config3(45)=Strng3
  1100.        End Select
  1101.        Call Select.Page.Seven(Temp1)
  1102.     Case 14
  1103.        Restore Equate.Data
  1104.        For Temp=1 To 9
  1105.           Read Config3(28+Temp)
  1106.        Next
  1107.        Read Config3(43),Config3(44),Config3(45)
  1108.        Strng2=Chr$(27)+"[1;37;44m"
  1109.        Call Scrn(Strng2)
  1110.        Strng2=Chr$(27)+"[24;1H"
  1111.        Call Scrn(Strng2)
  1112.        Strng2=Chr$(27)+"[K"
  1113.        Call Scrn(Strng2)
  1114.        Strng2="Default equations loaded."
  1115.        Call Scrn(Strng2)
  1116.        For Temp=1 To 13
  1117.           Call Select.Page.Seven(Temp)
  1118.        Next
  1119.     End Select
  1120.  Loop
  1121. 10101
  1122.  Exit Sub
  1123. 10102
  1124.  Resume 10101
  1125. End Sub
  1126.  
  1127. Sub Display.Page.One
  1128.  On Local Error Goto 10112
  1129.  Strng2=Chr$(27)+"[0;1;37;44m"
  1130.  Call Scrn(Strng2)
  1131.  Strng2=Chr$(27)+"[2J"
  1132.  Call Scrn(Strng2)
  1133.  Strng2=Chr$(27)+"[0;37;44m"
  1134.  Call Scrn(Strng2)
  1135.  Strng2=Chr$(27)+"[1;1H1. Level one user time limit(minutes):"
  1136.  Call Scrn(Strng2)
  1137.  Strng2=Chr$(27)+"[2;1H2. Above level one user time limit(minutes):"
  1138.  Call Scrn(Strng2)
  1139.  Strng2=Chr$(27)+"[3;1H3. DM and sysop time limit(minutes):"
  1140.  Call Scrn(Strng2)
  1141.  Strng2=Chr$(27)+"[4;1H4. User call limit:"
  1142.  Call Scrn(Strng2)
  1143.  Strng2=Chr$(27)+"[5;1H5. Users remain invisible after previous call:"
  1144.  Call Scrn(Strng2)
  1145.  Strng2=Chr$(27)+"[6;1H6. Display date/time immediately after carrier:"
  1146.  Call Scrn(Strng2)
  1147.  Strng2=Chr$(27)+"[7;1H7. Display prelog file after date/time(logon):"
  1148.  Call Scrn(Strng2)
  1149.  Strng2=Chr$(27)+"[8;1H8. Prelog file name(8 char.):"
  1150.  Call Scrn(Strng2)
  1151.  Strng2=Chr$(27)+"[9;1H9. New user message to remember password:"
  1152.  Call Scrn(Strng2)
  1153.  Strng2=Chr$(27)+"[10;1H10. Display welcome file:"
  1154.  Call Scrn(Strng2)
  1155.  Strng2=Chr$(27)+"[11;1H11. Welcome file name(8 char.):"
  1156.  Call Scrn(Strng2)
  1157.  Strng2=Chr$(27)+"[12;1H12. Display notice file:"
  1158.  Call Scrn(Strng2)
  1159.  Strng2=Chr$(27)+"[13;1H13. Notice file name(8 char.):"
  1160.  Call Scrn(Strng2)
  1161.  Strng2=Chr$(27)+"[14;1H14. Display mail waiting message after notice file:"
  1162.  Call Scrn(Strng2)
  1163.  Strng2=Chr$(27)+"[15;1H15. Roll new character prompt:"
  1164.  Call Scrn(Strng2)
  1165.  Strng2=Chr$(27)+"[16;1H16. New user logon can create DM:"
  1166.  Call Scrn(Strng2)
  1167.  Strng2=Chr$(27)+"[17;1H17. New user minimum character statistic:"
  1168.  Call Scrn(Strng2)
  1169.  Strng2=Chr$(27)+"[18;1H18. New user maximum character statistic:"
  1170.  Call Scrn(Strng2)
  1171.  Strng2=Chr$(27)+"[19;1H19. New user maximum average character statistic:"
  1172.  Call Scrn(Strng2)
  1173.  Strng2=Chr$(27)+"[20;1H20. Starting player gold:"
  1174.  Call Scrn(Strng2)
  1175.  Strng2=Chr$(27)+"[21;1H21. Players level increase increments."
  1176.  Call Scrn(Strng2)
  1177.  Strng2=Chr$(27)+"[22;1H22. <next page>"
  1178.  Call Scrn(Strng2)
  1179. 10111
  1180.  Exit Sub
  1181. 10112
  1182.  Resume 10111
  1183. End Sub
  1184.  
  1185. Sub Display.Page.One.Two
  1186.  On Local Error Goto 10122
  1187.  Strng2=Chr$(27)+"[0;1;37;44m"
  1188.  Call Scrn(Strng2)
  1189.  Strng2=Chr$(27)+"[2J"
  1190.  Call Scrn(Strng2)
  1191.  Strng2=Chr$(27)+"[0;37;44m"
  1192.  Call Scrn(Strng2)
  1193.  Strng2=Chr$(27)+"[1;1H22. User relogin minimum level(zero=disable):"
  1194.  Call Scrn(Strng2)
  1195.  Strng2=Chr$(27)+"[2;1H23. Use new character prompt:"
  1196.  Call Scrn(Strng2)
  1197.  Strng2=Chr$(27)+"[3;1H24. Automatic random stat roll during login:"
  1198.  Call Scrn(Strng2)
  1199.  Strng2=Chr$(27)+"[4;1H25. Skip raising stats during login:"
  1200.  Call Scrn(Strng2)
  1201.  Strng2=Chr$(27)+"[5;1H26. Compute alignment/proficiency for user during login:"
  1202.  Call Scrn(Strng2)
  1203.  Strng2=Chr$(27)+"[6;1H27. Compute race/class for user during login:"
  1204.  Call Scrn(Strng2)
  1205.  Strng2=Chr$(27)+"[7;1H28. Prompt user for ANSI:"
  1206.  Call Scrn(Strng2)
  1207.  Strng2=Chr$(27)+"[8;1H29. Auto detect ANSI:"
  1208.  Call Scrn(Strng2)
  1209.  Strng2=Chr$(27)+"[9;1H30. Prompt user for AVATAR:"
  1210.  Call Scrn(Strng2)
  1211.  Strng2=Chr$(27)+"[10;1H31. Auto detect AVATAR:"
  1212.  Call Scrn(Strng2)
  1213.  Strng2=Chr$(27)+"[11;1H32. Prompt user to quit adventure on logoff:"
  1214.  Call Scrn(Strng2)
  1215.  Strng2=Chr$(27)+"[12;1H33. Display time left on logoff:"
  1216.  Call Scrn(Strng2)
  1217.  Strng2=Chr$(27)+"[13;1H34. Display top ten on logoff:"
  1218.  Call Scrn(Strng2)
  1219.  Strng2=Chr$(27)+"[14;1H35. Display logoff file on logoff:"
  1220.  Call Scrn(Strng2)
  1221.  Strng2=Chr$(27)+"[15;1H36. Prompt user to end adventure:"
  1222.  Call Scrn(Strng2)
  1223.  Strng2=Chr$(27)+"[16;1H37. Activate level ten class names:"
  1224.  Call Scrn(Strng2)
  1225.  Strng2=Chr$(27)+"[17;1H38. Custom level ten class names."
  1226.  Call Scrn(Strng2)
  1227.  Strng2=Chr$(27)+"[18;1H39. <previous page>"
  1228.  Call Scrn(Strng2)
  1229. 10121
  1230.  Exit Sub
  1231. 10122
  1232.  Resume 10121
  1233. End Sub
  1234.  
  1235. Sub Display.Page.Two
  1236.  On Local Error Goto 10132
  1237.  Strng2=Chr$(27)+"[0;1;37;44m"
  1238.  Call Scrn(Strng2)
  1239.  Strng2=Chr$(27)+"[2J"
  1240.  Call Scrn(Strng2)
  1241.  Strng2=Chr$(27)+"[0;37;44m"
  1242.  Call Scrn(Strng2)
  1243.  Strng2=Chr$(27)+"[1;1H1. Health rate(rounds number before increasing stats):"
  1244.  Call Scrn(Strng2)
  1245.  Strng2=Chr$(27)+"[2;1H2. Encounter rate(rounds number before monster check):"
  1246.  Call Scrn(Strng2)
  1247.  Strng2=Chr$(27)+"[3;1H3. Minimum user level for brief mode:"
  1248.  Call Scrn(Strng2)
  1249.  Strng2=Chr$(27)+"[4;1H4. Visible or hiding beginning game(V/H):"
  1250.  Call Scrn(Strng2)
  1251.  Strng2=Chr$(27)+"[5;1H5. Prompt user to begin adventure:"
  1252.  Call Scrn(Strng2)
  1253.  Strng2=Chr$(27)+"[6;1H6. Begin adventure user prompt:"
  1254.  Call Scrn(Strng2)
  1255.  Strng2=Chr$(27)+"[7;1H7. New codename logon continue/hangup/restart prompt:"
  1256.  Call Scrn(Strng2)
  1257.  Strng2=Chr$(27)+"[8;1H8. Continue/hangup/restart prompt:"
  1258.  Call Scrn(Strng2)
  1259.  Strng2=Chr$(27)+"[9;1H9. Room number for user when non-descrip room found:"
  1260.  Call Scrn(Strng2)
  1261.  Strng2=Chr$(27)+"[10;1H10. Abort program when non-descrip room file found:"
  1262.  Call Scrn(Strng2)
  1263.  Strng2=Chr$(27)+"[11;1H11. Brief mode room number/monster class display:"
  1264.  Call Scrn(Strng2)
  1265.  Strng2=Chr$(27)+"[12;1H12. Display room description exits:"
  1266.  Call Scrn(Strng2)
  1267.  Strng2=Chr$(27)+"[13;1H13. Display room description monsters:"
  1268.  Call Scrn(Strng2)
  1269.  Strng2=Chr$(27)+"[14;1H14. Display room description objects and treasure:"
  1270.  Call Scrn(Strng2)
  1271.  Strng2=Chr$(27)+"[15;1H15. Health rate update fatigue increment:"
  1272.  Call Scrn(Strng2)
  1273.  Strng2=Chr$(27)+"[16;1H16. Health rate update vitality increment:"
  1274.  Call Scrn(Strng2)
  1275.  Strng2=Chr$(27)+"[17;1H17. Health rate update magic points increment:"
  1276.  Call Scrn(Strng2)
  1277.  Strng2=Chr$(27)+"[18;1H18. Health rate update psionic points increment:"
  1278.  Call Scrn(Strng2)
  1279.  Strng2=Chr$(27)+"[19;1H19. Poison player health rate update vitality decrement:"
  1280.  Call Scrn(Strng2)
  1281.  Strng2=Chr$(27)+"[20;1H20. Encounter rate update monster percent:"
  1282.  Call Scrn(Strng2)
  1283.  Strng2=Chr$(27)+"[21;1H21. Verbose action prompt:"
  1284.  Call Scrn(Strng2)
  1285.  Strng2=Chr$(27)+"[22;1H22. <next page>"
  1286.  Call Scrn(Strng2)
  1287. 10131
  1288.  Exit Sub
  1289. 10132
  1290.  Resume 10131
  1291. End Sub
  1292.  
  1293. Sub Display.Page.Two.Two
  1294.  On Local Error Goto 10142
  1295.  Strng2=Chr$(27)+"[0;1;37;44m"
  1296.  Call Scrn(Strng2)
  1297.  Strng2=Chr$(27)+"[2J"
  1298.  Call Scrn(Strng2)
  1299.  Strng2=Chr$(27)+"[0;37;44m"
  1300.  Call Scrn(Strng2)
  1301.  Strng2=Chr$(27)+"[1;1H22. Brief action prompt:"
  1302.  Call Scrn(Strng2)
  1303.  Strng2=Chr$(27)+"[2;1H23. DM command prefix:"
  1304.  Call Scrn(Strng2)
  1305.  Strng2=Chr$(27)+"[3;1H24. Repeat last command character:"
  1306.  Call Scrn(Strng2)
  1307.  Strng2=Chr$(27)+"[4;1H25. User death not resurrected hangup:"
  1308.  Call Scrn(Strng2)
  1309.  Strng2=Chr$(27)+"[5;1H26. Automatic user train:"
  1310.  Call Scrn(Strng2)
  1311.  Strng2=Chr$(27)+"[6;1H27. Treasure remains in room:"
  1312.  Call Scrn(Strng2)
  1313.  Strng2=Chr$(27)+"[7;1H28. Monster regenerate hits beginning level:"
  1314.  Call Scrn(Strng2)
  1315.  Strng2=Chr$(27)+"[8;1H29. Monster hits regenerating percentage:"
  1316.  Call Scrn(Strng2)
  1317.  Strng2=Chr$(27)+"[9;1H30. Maximum monster hits regeneration:"
  1318.  Call Scrn(Strng2)
  1319.  Strng2=Chr$(27)+"[10;1H31. Hand attack multiplier(punch!):"
  1320.  Call Scrn(Strng2)
  1321.  Strng2=Chr$(27)+"[11;1H32. Double damage percentage:"
  1322.  Call Scrn(Strng2)
  1323.  Strng2=Chr$(27)+"[12;1H33. Double damage multiplier:"
  1324.  Call Scrn(Strng2)
  1325.  Strng2=Chr$(27)+"[13;1H34. Triple damage percentage:"
  1326.  Call Scrn(Strng2)
  1327.  Strng2=Chr$(27)+"[14;1H35. Triple damage multiplier:"
  1328.  Call Scrn(Strng2)
  1329.  Strng2=Chr$(27)+"[15;1H36. Deathly damage percentage:"
  1330.  Call Scrn(Strng2)
  1331.  Strng2=Chr$(27)+"[16;1H37. Deathly damage multiplier:"
  1332.  Call Scrn(Strng2)
  1333.  Strng2=Chr$(27)+"[17;1H38. Bank account daily compounded interest rate:"
  1334.  Call Scrn(Strng2)
  1335.  Strng2=Chr$(27)+"[18;1H39. Bank account daily compounded lending rate:"
  1336.  Call Scrn(Strng2)
  1337.  Strng2=Chr$(27)+"[19;1H40. Shops are open to the public:"
  1338.  Call Scrn(Strng2)
  1339.  Strng2=Chr$(27)+"[20;1H41. Remote DM can edit passwords:"
  1340.  Call Scrn(Strng2)
  1341.  Strng2=Chr$(27)+"[21;1H42. <previous page>"
  1342.  Call Scrn(Strng2)
  1343. 10141
  1344.  Exit Sub
  1345. 10142
  1346.  Resume 10141
  1347. End Sub
  1348.  
  1349. Sub Display.Page.Three
  1350.  On Local Error Goto 10152
  1351.  Strng2=Chr$(27)+"[0;1;37;44m"
  1352.  Call Scrn(Strng2)
  1353.  Strng2=Chr$(27)+"[2J"
  1354.  Call Scrn(Strng2)
  1355.  Strng2=Chr$(27)+"[0;37;44m"
  1356.  Call Scrn(Strng2)
  1357.  Strng2=Chr$(27)+"[1;1H1. Data files path name:"
  1358.  Call Scrn(Strng2)
  1359.  Strng2=Chr$(27)+"[2;1H2. Documentation files path name:"
  1360.  Call Scrn(Strng2)
  1361.  Strng2=Chr$(27)+"[3;1H3. Temporary path name(or RAM disk):"
  1362.  Call Scrn(Strng2)
  1363.  Strng2=Chr$(27)+"[4;1H4. Data files extension(form: .ext):"
  1364.  Call Scrn(Strng2)
  1365.  Strng2=Chr$(27)+"[5;1H5. Receptacles file extension(form: .ext):"
  1366.  Call Scrn(Strng2)
  1367.  Strng2=Chr$(27)+"[6;1H6. Documentation files extension(form: .ext):"
  1368.  Call Scrn(Strng2)
  1369.  Strng2=Chr$(27)+"[7;1H7. Dayfile logging name(form: filename.ext):"
  1370.  Call Scrn(Strng2)
  1371.  Strng2=Chr$(27)+"[8;1H8. User daylog file name(form: filename.ext):"
  1372.  Call Scrn(Strng2)
  1373.  Strng2=Chr$(27)+"[9;1H9. Exit to DOS file name(form: 7 letters):"
  1374.  Call Scrn(Strng2)
  1375.  Strng2=Chr$(27)+"[10;1H10. User report logging name(form: 7 letters):"
  1376.  Call Scrn(Strng2)
  1377.  Strng2=Chr$(27)+"[11;1H11. Temporary file name(form: 7 letters):"
  1378.  Call Scrn(Strng2)
  1379.  Strng2=Chr$(27)+"[12;1H12. Help data file name(form: filename):"
  1380.  Call Scrn(Strng2)
  1381.  Strng2=Chr$(27)+"[13;1H13. DM help data file name(form: filename):"
  1382.  Call Scrn(Strng2)
  1383.  Strng2=Chr$(27)+"[14;1H14. Room file name(form: filename):"
  1384.  Call Scrn(Strng2)
  1385.  Strng2=Chr$(27)+"[15;1H15. Object file name(form: filename):"
  1386.  Call Scrn(Strng2)
  1387.  Strng2=Chr$(27)+"[16;1H16. Monster file name(form: filename):"
  1388.  Call Scrn(Strng2)
  1389.  Strng2=Chr$(27)+"[17;1H17. Treasure file name(form: filename):"
  1390.  Call Scrn(Strng2)
  1391.  Strng2=Chr$(27)+"[18;1H18. Spell file name(form: filename):"
  1392.  Call Scrn(Strng2)
  1393.  Strng2=Chr$(27)+"[19;1H19. User file name(form: filename):"
  1394.  Call Scrn(Strng2)
  1395.  Strng2=Chr$(27)+"[20;1H20. Monster class file name(form: filename):"
  1396.  Call Scrn(Strng2)
  1397.  Strng2=Chr$(27)+"[21;1H21. Lastuser file name(form: filename):"
  1398.  Call Scrn(Strng2)
  1399.  Strng2=Chr$(27)+"[22;1H22. <next page>"
  1400.  Call Scrn(Strng2)
  1401. 10151
  1402.  Exit Sub
  1403. 10152
  1404.  Resume 10151
  1405. End Sub
  1406.  
  1407. Sub Display.Page.Three.Two
  1408.  On Local Error Goto 10162
  1409.  Strng2=Chr$(27)+"[0;1;37;44m"
  1410.  Call Scrn(Strng2)
  1411.  Strng2=Chr$(27)+"[2J"
  1412.  Call Scrn(Strng2)
  1413.  Strng2=Chr$(27)+"[0;37;44m"
  1414.  Call Scrn(Strng2)
  1415.  Strng2=Chr$(27)+"[1;1H22. Monster talk file name(form: filename):"
  1416.  Call Scrn(Strng2)
  1417.  Strng2=Chr$(27)+"[2;1H23. Logoff file name(form: filename):"
  1418.  Call Scrn(Strng2)
  1419.  Strng2=Chr$(27)+"[3;1H24. Summary file name(form: filename):"
  1420.  Call Scrn(Strng2)
  1421.  Strng2=Chr$(27)+"[4;1H25. Non player character file name(form: filename):"
  1422.  Call Scrn(Strng2)
  1423.  Strng2=Chr$(27)+"[5;1H26. Public message file name(form: filename):"
  1424.  Call Scrn(Strng2)
  1425.  Strng2=Chr$(27)+"[6;1H27. Private message file name(form: filename):"
  1426.  Call Scrn(Strng2)
  1427.  Strng2=Chr$(27)+"[7;1H28. Message base file name file(form: filename):"
  1428.  Call Scrn(Strng2)
  1429.  Strng2=Chr$(27)+"[8;1H29. Hint documentation file name(form: filename):"
  1430.  Call Scrn(Strng2)
  1431.  Strng2=Chr$(27)+"[9;1H30. Catalog documentation file name(form: filename):"
  1432.  Call Scrn(Strng2)
  1433.  Strng2=Chr$(27)+"[10;1H31. Message work file name(form: filename):"
  1434.  Call Scrn(Strng2)
  1435.  Strng2=Chr$(27)+"[11;1H32. Alternate message work file name (form: filename):"
  1436.  Call Scrn(Strng2)
  1437.  Strng2=Chr$(27)+"[12;1H33. Sysop edit help file name(form: filename):"
  1438.  Call Scrn(Strng2)
  1439.  Strng2=Chr$(27)+"[13;1H34. Logon help file name(form: filename):"
  1440.  Call Scrn(Strng2)
  1441.  Strng2=Chr$(27)+"[14;1H35. Receptacle files path name:"
  1442.  Call Scrn(Strng2)
  1443.  Strng2=Chr$(27)+"[15;1H36. Message files path name:"
  1444.  Call Scrn(Strng2)
  1445.  Strng2=Chr$(27)+"[16;1H37. <previous page>"
  1446.  Call Scrn(Strng2)
  1447. 10161
  1448.  Exit Sub
  1449. 10162
  1450.  Resume 10161
  1451. End Sub
  1452.  
  1453. Sub Display.Page.Four
  1454.  On Local Error Goto 10172
  1455.  Strng2=Chr$(27)+"[0;1;37;44m"
  1456.  Call Scrn(Strng2)
  1457.  Strng2=Chr$(27)+"[2J"
  1458.  Call Scrn(Strng2)
  1459.  Strng2=Chr$(27)+"[1;1H"
  1460.  Call Scrn(Strng2)
  1461.  Strng2=Chr$(27)+"[1;33m"
  1462.  Call Scrn(Strng2)
  1463.  Strng2="Multiple rooms for 3 - 12 can be separated on one line with commas."
  1464.  Call Scrn(Strng2)
  1465.  Strng2=Chr$(27)+"[0;37;44m"
  1466.  Call Scrn(Strng2)
  1467.  Strng2=Chr$(27)+"[2;1H1. Clerical resurrection room number:"
  1468.  Call Scrn(Strng2)
  1469.  Strng2=Chr$(27)+"[3;1H2. Jail room number:"
  1470.  Call Scrn(Strng2)
  1471.  Strng2=Chr$(27)+"[4;1H3. Fighter training area room numbers:"
  1472.  Call Scrn(Strng2)
  1473.  Strng2=Chr$(27)+"[5;1H4. Magic user training area room numbers:"
  1474.  Call Scrn(Strng2)
  1475.  Strng2=Chr$(27)+"[6;1H5. Thieves training area room numbers:"
  1476.  Call Scrn(Strng2)
  1477.  Strng2=Chr$(27)+"[7;1H6. Clerics training area room numbers:"
  1478.  Call Scrn(Strng2)
  1479.  Strng2=Chr$(27)+"[8;1H7. Paladin training area room numbers:"
  1480.  Call Scrn(Strng2)
  1481.  Strng2=Chr$(27)+"[9;1H8. Rangers training area room numbers:"
  1482.  Call Scrn(Strng2)
  1483.  Strng2=Chr$(27)+"[10;1H9. Druid training area room numbers:"
  1484.  Call Scrn(Strng2)
  1485.  Strng2=Chr$(27)+"[11;1H10. Lady training area room numbers:"
  1486.  Call Scrn(Strng2)
  1487.  Strng2=Chr$(27)+"[12;1H11. Assistant DM training area room numbers:"
  1488.  Call Scrn(Strng2)
  1489.  Strng2=Chr$(27)+"[13;1H12. DM training area room numbers:"
  1490.  Call Scrn(Strng2)
  1491. 10171
  1492.  Exit Sub
  1493. 10172
  1494.  Resume 10171
  1495. End Sub
  1496.  
  1497. Sub Display.Page.Five
  1498.  On Local Error Goto 10182
  1499.  Strng2=Chr$(27)+"[0;1;37;44m"
  1500.  Call Scrn(Strng2)
  1501.  Strng2=Chr$(27)+"[2J"
  1502.  Call Scrn(Strng2)
  1503.  Strng2=Chr$(27)+"[0;37;44m"
  1504.  Call Scrn(Strng2)
  1505.  Strng2=Chr$(27)+"[1;1H1. Weapons shoppe treasure list(separate with commas):"
  1506.  Call Scrn(Strng2)
  1507.  Strng2=Chr$(27)+"[3;1H3. Find invisible object percent chance searched for:"
  1508.  Call Scrn(Strng2)
  1509.  Strng2=Chr$(27)+"[4;1H4. Percent chance ammunition explodes:"
  1510.  Call Scrn(Strng2)
  1511.  Strng2=Chr$(27)+"[5;1H5. Percent chance ammunition discharges harmlessly:"
  1512.  Call Scrn(Strng2)
  1513.  Strng2=Chr$(27)+"[6;1H6. Monster hits percentage damage monster flees:"
  1514.  Call Scrn(Strng2)
  1515.  Strng2=Chr$(27)+"[7;1H7. Monster level multiplier gold accepts offer:"
  1516.  Call Scrn(Strng2)
  1517.  Strng2=Chr$(27)+"[8;1H8. Treasure plus monster accepts and leaves:"
  1518.  Call Scrn(Strng2)
  1519.  Strng2=Chr$(27)+"[9;1H9. Minimum fix broken treasure wisdom:"
  1520.  Call Scrn(Strng2)
  1521.  Strng2=Chr$(27)+"[10;1H10. Percent chance fixing treasure fails:"
  1522.  Call Scrn(Strng2)
  1523.  Strng2=Chr$(27)+"[11;1H11. Maximum treasure plus user can fix:"
  1524.  Call Scrn(Strng2)
  1525.  Strng2=Chr$(27)+"[12;1H12. Maximum strikes fixed item restored:"
  1526.  Call Scrn(Strng2)
  1527.  Strng2=Chr$(27)+"[13;1H13. Blacksmith: percent item charged to repair:"
  1528.  Call Scrn(Strng2)
  1529.  Strng2=Chr$(27)+"[14;1H14. Alchemist: percent item charged to repair:"
  1530.  Call Scrn(Strng2)
  1531.  Strng2=Chr$(27)+"[15;1H15. Broker: percent item offered to buy:"
  1532.  Call Scrn(Strng2)
  1533.  Strng2=Chr$(27)+"[16;1H16. Maximum user training statistic:"
  1534.  Call Scrn(Strng2)
  1535.  Strng2=Chr$(27)+"[17;1H17. Maximum appeal fatigue percent:"
  1536.  Call Scrn(Strng2)
  1537.  Strng2=Chr$(27)+"[18;1H18. Minimum smash open portal strength:"
  1538.  Call Scrn(Strng2)
  1539.  Strng2=Chr$(27)+"[19;1H19. Minimum smash open portal intelligence:"
  1540.  Call Scrn(Strng2)
  1541.  Strng2=Chr$(27)+"[20;1H20. Percent chance smash open portal fails:"
  1542.  Call Scrn(Strng2)
  1543.  Strng2=Chr$(27)+"[21;1H21. Thieves minimum picklock strength:"
  1544.  Call Scrn(Strng2)
  1545.  Strng2=Chr$(27)+"[22;1H22. <next page>"
  1546.  Call Scrn(Strng2)
  1547. 10181
  1548.  Exit Sub
  1549. 10182
  1550.  Resume 10181
  1551. End Sub
  1552.  
  1553. Sub Display.Page.Five.Two
  1554.  On Local Error Goto 10192
  1555.  Strng2=Chr$(27)+"[0;1;37;44m"
  1556.  Call Scrn(Strng2)
  1557.  Strng2=Chr$(27)+"[2J"
  1558.  Call Scrn(Strng2)
  1559.  Strng2=Chr$(27)+"[0;37;44m"
  1560.  Call Scrn(Strng2)
  1561.  Strng2=Chr$(27)+"[1;1H22. Thieves minimum picklock intelligence:"
  1562.  Call Scrn(Strng2)
  1563.  Strng2=Chr$(27)+"[2;1H23. Percent chance picklocking portal fails:"
  1564.  Call Scrn(Strng2)
  1565.  Strng2=Chr$(27)+"[3;1H24. Percent chance monster treasure inventory:"
  1566.  Call Scrn(Strng2)
  1567.  Strng2=Chr$(27)+"[4;1H25. Offline user fights:"
  1568.  Call Scrn(Strng2)
  1569.  Strng2=Chr$(27)+"[5;1H26. Minimum user level to identify:"
  1570.  Call Scrn(Strng2)
  1571.  Strng2=Chr$(27)+"[6;1H27. Disable sysop page for chat:"
  1572.  Call Scrn(Strng2)
  1573.  Strng2=Chr$(27)+"[7;1H28. Minimum user level user to page sysop(zero for any):"
  1574.  Call Scrn(Strng2)
  1575.  Strng2=Chr$(27)+"[8;1H29. Delete old daylog on new date:"
  1576.  Call Scrn(Strng2)
  1577.  Strng2=Chr$(27)+"[9;1H30. Delete old dayfile on new date:"
  1578.  Call Scrn(Strng2)
  1579.  Strng2=Chr$(27)+"[10;1H31. <previous page>"
  1580.  Call Scrn(Strng2)
  1581. 10191
  1582.  Exit Sub
  1583. 10192
  1584.  Resume 10191
  1585. End Sub
  1586.  
  1587. Sub Display.Page.Six
  1588.  On Local Error Goto 10202
  1589.  Strng2=Chr$(27)+"[0;1;37;44m"
  1590.  Call Scrn(Strng2)
  1591.  Strng2=Chr$(27)+"[2J"
  1592.  Call Scrn(Strng2)
  1593.  Strng2=Chr$(27)+"[0;37;44m"
  1594.  Call Scrn(Strng2)
  1595.  Strng2=Chr$(27)+"[1;1H1. Communication port number:"
  1596.  Call Scrn(Strng2)
  1597.  Strng2=Chr$(27)+"[2;1H2. DNDBBS is an RBBS Door:"
  1598.  Call Scrn(Strng2)
  1599.  Strng2=Chr$(27)+"[3;1H3. DOOR information file path name:"
  1600.  Call Scrn(Strng2)
  1601.  Strng2=Chr$(27)+"[4;1H4. Modem reset command:"
  1602.  Call Scrn(Strng2)
  1603.  Strng2=Chr$(27)+"[5;1H5. Modem init command(1-5):"
  1604.  Call Scrn(Strng2)
  1605.  Strng2=Chr$(27)+"[6;1H6. Modem answer command:"
  1606.  Call Scrn(Strng2)
  1607.  Strng2=Chr$(27)+"[7;1H7. Modem off hook command:"
  1608.  Call Scrn(Strng2)
  1609.  Strng2=Chr$(27)+"[8;1H8. No input timeout(seconds):"
  1610.  Call Scrn(Strng2)
  1611.  Strng2=Chr$(27)+"[9;1H9. Modem open baud rate:"
  1612.  Call Scrn(Strng2)
  1613.  Strng2=Chr$(27)+"[10;1H10. No carrier after ring timeout(seconds):"
  1614.  Call Scrn(Strng2)
  1615.  Strng2=Chr$(27)+"[11;1H11. 300 baud access:"
  1616.  Call Scrn(Strng2)
  1617.  Strng2=Chr$(27)+"[12;1H12. Enable xon/xoff flow control:"
  1618.  Call Scrn(Strng2)
  1619.  Strng2=Chr$(27)+"[13;1H13. Enable RTS/CTS flow control:"
  1620.  Call Scrn(Strng2)
  1621.  Strng2=Chr$(27)+"[14;1H14. Enable locked baud rate:"
  1622.  Call Scrn(Strng2)
  1623.  Strng2=Chr$(27)+"[15;1H15. Shell/Chain external programs(S/C):"
  1624.  Call Scrn(Strng2)
  1625. 10201
  1626.  Exit Sub
  1627. 10202
  1628.  Resume 10201
  1629. End Sub
  1630.  
  1631. Sub Display.Page.Seven
  1632.  On Local Error Goto 10212
  1633.  Strng2=Chr$(27)+"[0;1;37;44m"
  1634.  Call Scrn(Strng2)
  1635.  Strng2=Chr$(27)+"[2J"
  1636.  Call Scrn(Strng2)
  1637.  Strng2=Chr$(27)+"[0;37;44m"
  1638.  Call Scrn(Strng2)
  1639.  Strng2=Chr$(27)+"[1;1H1. Custom equations:"
  1640.  Call Scrn(Strng2)
  1641.  Strng2=Chr$(27)+"[2;1H2. Monster attack formula:"
  1642.  Call Scrn(Strng2)
  1643.  Strng2=Chr$(27)+"[3;1H3. User attack formula:"
  1644.  Call Scrn(Strng2)
  1645.  Strng2=Chr$(27)+"[4;1H4. Monster attack miss equation:"
  1646.  Call Scrn(Strng2)
  1647.  Strng2=Chr$(27)+"[5;1H5. User attack miss equation:"
  1648.  Call Scrn(Strng2)
  1649.  Strng2=Chr$(27)+"[6;1H6. Player turn undead equation:"
  1650.  Call Scrn(Strng2)
  1651.  Strng2=Chr$(27)+"[7;1H7. Player feint equation:"
  1652.  Call Scrn(Strng2)
  1653.  Strng2=Chr$(27)+"[8;1H8. Player circle equation:"
  1654.  Call Scrn(Strng2)
  1655.  Strng2=Chr$(27)+"[9;1H9. Player fumble equation:"
  1656.  Call Scrn(Strng2)
  1657.  Strng2=Chr$(27)+"[10;1H10. User fights hit points formula:"
  1658.  Call Scrn(Strng2)
  1659.  Strng2=Chr$(27)+"[11;1H11. User psionic attack formula:"
  1660.  Call Scrn(Strng2)
  1661.  Strng2=Chr$(27)+"[12;1H12. Monster psionic attack formula:"
  1662.  Call Scrn(Strng2)
  1663.  Strng2=Chr$(27)+"[13;1H13. Successful constitution roll equation:"
  1664.  Call Scrn(Strng2)
  1665.  Strng2=Chr$(27)+"[14;1H14. Load equation defaults."
  1666.  Call Scrn(Strng2)
  1667. 10211
  1668.  Exit Sub
  1669. 10212
  1670.  Resume 10211
  1671. End Sub
  1672.  
  1673. Sub Select.Page.One(VarX)
  1674.  On Local Error Goto 10222
  1675.  Strng2=Chr$(27)+"[1;37;44m"
  1676.  Call Scrn(Strng2)
  1677.  Select Case VarX
  1678.  Case 1
  1679.     Strng2=Chr$(27)+"[1;39H"
  1680.     Call Scrn(Strng2)
  1681.     Strng2=Chr$(27)+"[K"
  1682.     Call Scrn(Strng2)
  1683.     Strng2=Str$(Config1(1))
  1684.     Call Scrn(Strng2)
  1685.  Case 2
  1686.     Strng2=Chr$(27)+"[2;45H"
  1687.     Call Scrn(Strng2)
  1688.     Strng2=Chr$(27)+"[K"
  1689.     Call Scrn(Strng2)
  1690.     Strng2=Str$(Config1(2))
  1691.     Call Scrn(Strng2)
  1692.  Case 3
  1693.     Strng2=Chr$(27)+"[3;37H"
  1694.     Call Scrn(Strng2)
  1695.     Strng2=Chr$(27)+"[K"
  1696.     Call Scrn(Strng2)
  1697.     Strng2=Str$(Config1(3))
  1698.     Call Scrn(Strng2)
  1699.  Case 4
  1700.     Strng2=Chr$(27)+"[4;20H"
  1701.     Call Scrn(Strng2)
  1702.     Strng2=Chr$(27)+"[K"
  1703.     Call Scrn(Strng2)
  1704.     Strng2=Str$(Config2(1))
  1705.     Call Scrn(Strng2)
  1706.  Case 5
  1707.     Strng2=Chr$(27)+"[5;48H"
  1708.     Call Scrn(Strng2)
  1709.     Strng2=Chr$(27)+"[K"
  1710.     Call Scrn(Strng2)
  1711.     Strng2="No"
  1712.     If Config2(2) Then
  1713.        Strng2="Yes"
  1714.     Endif
  1715.     Call Scrn(Strng2)
  1716.  Case 6
  1717.     Strng2=Chr$(27)+"[6;49H"
  1718.     Call Scrn(Strng2)
  1719.     Strng2=Chr$(27)+"[K"
  1720.     Call Scrn(Strng2)
  1721.     Strng2="No"
  1722.     If Config2(3) Then
  1723.        Strng2="Yes"
  1724.     Endif
  1725.     Call Scrn(Strng2)
  1726.  Case 7
  1727.     Strng2=Chr$(27)+"[7;48H"
  1728.     Call Scrn(Strng2)
  1729.     Strng2=Chr$(27)+"[K"
  1730.     Call Scrn(Strng2)
  1731.     Strng2="No"
  1732.     If Config2(4) Then
  1733.        Strng2="Yes"
  1734.     Endif
  1735.     Call Scrn(Strng2)
  1736.  Case 8
  1737.     Strng2=Chr$(27)+"[8;31H"
  1738.     Call Scrn(Strng2)
  1739.     Strng2=Chr$(27)+"[K"
  1740.     Call Scrn(Strng2)
  1741.     Strng2=Config3(1)
  1742.     Call Scrn(Strng2)
  1743.  Case 9
  1744.     Strng2=Chr$(27)+"[9;43H"
  1745.     Call Scrn(Strng2)
  1746.     Strng2=Chr$(27)+"[K"
  1747.     Call Scrn(Strng2)
  1748.     Strng2=Left$(Config3(2),36)
  1749.     Call Scrn(Strng2)
  1750.  Case 10
  1751.     Strng2=Chr$(27)+"[10;27H"
  1752.     Call Scrn(Strng2)
  1753.     Strng2=Chr$(27)+"[K"
  1754.     Call Scrn(Strng2)
  1755.     Strng2="No"
  1756.     If Config2(5) Then
  1757.        Strng2="Yes"
  1758.     Endif
  1759.     Call Scrn(Strng2)
  1760.  Case 11
  1761.     Strng2=Chr$(27)+"[11;33H"
  1762.     Call Scrn(Strng2)
  1763.     Strng2=Chr$(27)+"[K"
  1764.     Call Scrn(Strng2)
  1765.     Strng2=Config3(3)
  1766.     Call Scrn(Strng2)
  1767.  Case 12
  1768.     Strng2=Chr$(27)+"[12;26H"
  1769.     Call Scrn(Strng2)
  1770.     Strng2=Chr$(27)+"[K"
  1771.     Call Scrn(Strng2)
  1772.     Strng2="No"
  1773.     If Config2(6) Then
  1774.        Strng2="Yes"
  1775.     Endif
  1776.     Call Scrn(Strng2)
  1777.  Case 13
  1778.     Strng2=Chr$(27)+"[13;32H"
  1779.     Call Scrn(Strng2)
  1780.     Strng2=Chr$(27)+"[K"
  1781.     Call Scrn(Strng2)
  1782.     Strng2=Config3(4)
  1783.     Call Scrn(Strng2)
  1784.  Case 14
  1785.     Strng2=Chr$(27)+"[14;53H"
  1786.     Call Scrn(Strng2)
  1787.     Strng2=Chr$(27)+"[K"
  1788.     Call Scrn(Strng2)
  1789.     Strng2="No"
  1790.     If Config2(38) Then
  1791.        Strng2="Yes"
  1792.     Endif
  1793.     Call Scrn(Strng2)
  1794.  Case 15
  1795.     Strng2=Chr$(27)+"[15;32H"
  1796.     Call Scrn(Strng2)
  1797.     Strng2=Chr$(27)+"[K"
  1798.     Call Scrn(Strng2)
  1799.     Strng2=Left$(Config3(5),47)
  1800.     Call Scrn(Strng2)
  1801.  Case 16
  1802.     Strng2=Chr$(27)+"[16;35H"
  1803.     Call Scrn(Strng2)
  1804.     Strng2=Chr$(27)+"[K"
  1805.     Call Scrn(Strng2)
  1806.     Strng2="No"
  1807.     If Config2(7) Then
  1808.        Strng2="Yes"
  1809.     Endif
  1810.     Call Scrn(Strng2)
  1811.  Case 17
  1812.     Strng2=Chr$(27)+"[17;42H"
  1813.     Call Scrn(Strng2)
  1814.     Strng2=Chr$(27)+"[K"
  1815.     Call Scrn(Strng2)
  1816.     Strng2=Str$(Config2(8))
  1817.     Call Scrn(Strng2)
  1818.  Case 18
  1819.     Strng2=Chr$(27)+"[18;42H"
  1820.     Call Scrn(Strng2)
  1821.     Strng2=Chr$(27)+"[K"
  1822.     Call Scrn(Strng2)
  1823.     Strng2=Str$(Config2(9))
  1824.     Call Scrn(Strng2)
  1825.  Case 19
  1826.     Strng2=Chr$(27)+"[19;50H"
  1827.     Call Scrn(Strng2)
  1828.     Strng2=Chr$(27)+"[K"
  1829.     Call Scrn(Strng2)
  1830.     Strng2=Str$(Config1(4))
  1831.     Call Scrn(Strng2)
  1832.  Case 20
  1833.     Strng2=Chr$(27)+"[20;26H"
  1834.     Call Scrn(Strng2)
  1835.     Strng2=Chr$(27)+"[K"
  1836.     Call Scrn(Strng2)
  1837.     Strng2=Str$(Config2(32))
  1838.     Call Scrn(Strng2)
  1839.  Case 22
  1840.     Strng2=Chr$(27)+"[1;46H"
  1841.     Call Scrn(Strng2)
  1842.     Strng2=Chr$(27)+"[K"
  1843.     Call Scrn(Strng2)
  1844.     Strng2=Str$(Config2(67))
  1845.     Call Scrn(Strng2)
  1846.  Case 23
  1847.     Strng2=Chr$(27)+"[2;31H"
  1848.     Call Scrn(Strng2)
  1849.     Strng2=Chr$(27)+"[K"
  1850.     Call Scrn(Strng2)
  1851.     Strng2=Left$(Config3(77),49)
  1852.     Call Scrn(Strng2)
  1853.  Case 24
  1854.     Strng2=Chr$(27)+"[3;46H"
  1855.     Call Scrn(Strng2)
  1856.     Strng2=Chr$(27)+"[K"
  1857.     Call Scrn(Strng2)
  1858.     Strng2="No"
  1859.     If Config2(51) Then
  1860.        Strng2="Yes"
  1861.     Endif
  1862.     Call Scrn(Strng2)
  1863.  Case 25
  1864.     Strng2=Chr$(27)+"[4;38H"
  1865.     Call Scrn(Strng2)
  1866.     Strng2=Chr$(27)+"[K"
  1867.     Call Scrn(Strng2)
  1868.     Strng2="No"
  1869.     If Config2(52) Then
  1870.        Strng2="Yes"
  1871.     Endif
  1872.     Call Scrn(Strng2)
  1873.  Case 26
  1874.     Strng2=Chr$(27)+"[5;58H"
  1875.     Call Scrn(Strng2)
  1876.     Strng2=Chr$(27)+"[K"
  1877.     Call Scrn(Strng2)
  1878.     Strng2="No"
  1879.     If Config2(53) Then
  1880.        Strng2="Yes"
  1881.     Endif
  1882.     Call Scrn(Strng2)
  1883.  Case 27
  1884.     Strng2=Chr$(27)+"[6;47H"
  1885.     Call Scrn(Strng2)
  1886.     Strng2=Chr$(27)+"[K"
  1887.     Call Scrn(Strng2)
  1888.     Strng2="No"
  1889.     If Config2(54) Then
  1890.        Strng2="Yes"
  1891.     Endif
  1892.     Call Scrn(Strng2)
  1893.  Case 28
  1894.     Strng2=Chr$(27)+"[7;27H"
  1895.     Call Scrn(Strng2)
  1896.     Strng2=Chr$(27)+"[K"
  1897.     Call Scrn(Strng2)
  1898.     Strng2="No"
  1899.     If Config2(72) Then
  1900.        Strng2="Yes"
  1901.     Endif
  1902.     Call Scrn(Strng2)
  1903.  Case 29
  1904.     Strng2=Chr$(27)+"[8;23H"
  1905.     Call Scrn(Strng2)
  1906.     Strng2=Chr$(27)+"[K"
  1907.     Call Scrn(Strng2)
  1908.     Strng2="No"
  1909.     If Config2(73) Then
  1910.        Strng2="Yes"
  1911.     Endif
  1912.     Call Scrn(Strng2)
  1913.  Case 30
  1914.     Strng2=Chr$(27)+"[9;29H"
  1915.     Call Scrn(Strng2)
  1916.     Strng2=Chr$(27)+"[K"
  1917.     Call Scrn(Strng2)
  1918.     Strng2="No"
  1919.     If Config2(84) Then
  1920.        Strng2="Yes"
  1921.     Endif
  1922.     Call Scrn(Strng2)
  1923.  Case 31
  1924.     Strng2=Chr$(27)+"[10;25H"
  1925.     Call Scrn(Strng2)
  1926.     Strng2=Chr$(27)+"[K"
  1927.     Call Scrn(Strng2)
  1928.     Strng2="No"
  1929.     If Config2(85) Then
  1930.        Strng2="Yes"
  1931.     Endif
  1932.     Call Scrn(Strng2)
  1933.  Case 32
  1934.     Strng2=Chr$(27)+"[11;46H"
  1935.     Call Scrn(Strng2)
  1936.     Strng2=Chr$(27)+"[K"
  1937.     Call Scrn(Strng2)
  1938.     Strng2="No"
  1939.     If Config2(74) Then
  1940.        Strng2="Yes"
  1941.     Endif
  1942.     Call Scrn(Strng2)
  1943.  Case 33
  1944.     Strng2=Chr$(27)+"[12;34H"
  1945.     Call Scrn(Strng2)
  1946.     Strng2=Chr$(27)+"[K"
  1947.     Call Scrn(Strng2)
  1948.     Strng2="No"
  1949.     If Config2(75) Then
  1950.        Strng2="Yes"
  1951.     Endif
  1952.     Call Scrn(Strng2)
  1953.  Case 34
  1954.     Strng2=Chr$(27)+"[13;32H"
  1955.     Call Scrn(Strng2)
  1956.     Strng2=Chr$(27)+"[K"
  1957.     Call Scrn(Strng2)
  1958.     Strng2="No"
  1959.     If Config2(76) Then
  1960.        Strng2="Yes"
  1961.     Endif
  1962.     Call Scrn(Strng2)
  1963.  Case 35
  1964.     Strng2=Chr$(27)+"[14;36H"
  1965.     Call Scrn(Strng2)
  1966.     Strng2=Chr$(27)+"[K"
  1967.     Call Scrn(Strng2)
  1968.     Strng2="No"
  1969.     If Config2(77) Then
  1970.        Strng2="Yes"
  1971.     Endif
  1972.     Call Scrn(Strng2)
  1973.  Case 36
  1974.     Strng2=Chr$(27)+"[15;35H"
  1975.     Call Scrn(Strng2)
  1976.     Strng2=Chr$(27)+"[K"
  1977.     Call Scrn(Strng2)
  1978.     Strng2="No"
  1979.     If Config2(78) Then
  1980.        Strng2="Yes"
  1981.     Endif
  1982.     Call Scrn(Strng2)
  1983.  Case 37
  1984.     Strng2=Chr$(27)+"[16;37H"
  1985.     Call Scrn(Strng2)
  1986.     Strng2=Chr$(27)+"[K"
  1987.     Call Scrn(Strng2)
  1988.     Strng2="No"
  1989.     If Config2(48) Then
  1990.        Strng2="Yes"
  1991.     Endif
  1992.     Call Scrn(Strng2)
  1993.  End Select
  1994. 10221
  1995.  Exit Sub
  1996. 10222
  1997.  Resume 10221
  1998. End Sub
  1999.  
  2000. Sub Select.Page.Two(VarX)
  2001.  On Local Error Goto 10232
  2002.  Strng2=Chr$(27)+"[1;37;44m"
  2003.  Call Scrn(Strng2)
  2004.  Select Case VarX
  2005.  Case 1
  2006.     Strng2=Chr$(27)+"[1;55H"
  2007.     Call Scrn(Strng2)
  2008.     Strng2=Chr$(27)+"[K"
  2009.     Call Scrn(Strng2)
  2010.     Strng2=Str$(Config2(10))
  2011.     Call Scrn(Strng2)
  2012.  Case 2
  2013.     Strng2=Chr$(27)+"[2;55H"
  2014.     Call Scrn(Strng2)
  2015.     Strng2=Chr$(27)+"[K"
  2016.     Call Scrn(Strng2)
  2017.     Strng2=Str$(Config2(11))
  2018.     Call Scrn(Strng2)
  2019.  Case 3
  2020.     Strng2=Chr$(27)+"[3;38H"
  2021.     Call Scrn(Strng2)
  2022.     Strng2=Chr$(27)+"[K"
  2023.     Call Scrn(Strng2)
  2024.     Strng2=Str$(Config2(12))
  2025.     Call Scrn(Strng2)
  2026.  Case 4
  2027.     Strng2=Chr$(27)+"[4;43H"
  2028.     Call Scrn(Strng2)
  2029.     Strng2=Chr$(27)+"[K"
  2030.     Call Scrn(Strng2)
  2031.     Strng2="Visible"
  2032.     If Config2(13) Then
  2033.        Strng2="Hidden"
  2034.     Endif
  2035.     Call Scrn(Strng2)
  2036.  Case 5
  2037.     Strng2=Chr$(27)+"[5;36H"
  2038.     Call Scrn(Strng2)
  2039.     Strng2=Chr$(27)+"[K"
  2040.     Call Scrn(Strng2)
  2041.     Strng2="No"
  2042.     If Config2(14) Then
  2043.        Strng2="Yes"
  2044.     Endif
  2045.     Call Scrn(Strng2)
  2046.  Case 6
  2047.     Strng2=Chr$(27)+"[6;33H"
  2048.     Call Scrn(Strng2)
  2049.     Strng2=Chr$(27)+"[K"
  2050.     Call Scrn(Strng2)
  2051.     Strng2=Left$(Config3(6),45)
  2052.     Call Scrn(Strng2)
  2053.  Case 7
  2054.     Strng2=Chr$(27)+"[7;55H"
  2055.     Call Scrn(Strng2)
  2056.     Strng2=Chr$(27)+"[K"
  2057.     Call Scrn(Strng2)
  2058.     Strng2="No"
  2059.     If Config2(61) Then
  2060.        Strng2="Yes"
  2061.     Endif
  2062.     Call Scrn(Strng2)
  2063.  Case 8
  2064.     Strng2=Chr$(27)+"[8;36H"
  2065.     Call Scrn(Strng2)
  2066.     Strng2=Chr$(27)+"[K"
  2067.     Call Scrn(Strng2)
  2068.     Strng2=Left$(Config3(14),43)
  2069.     Call Scrn(Strng2)
  2070.  Case 9
  2071.     Strng2=Chr$(27)+"[9;53H"
  2072.     Call Scrn(Strng2)
  2073.     Strng2=Chr$(27)+"[K"
  2074.     Call Scrn(Strng2)
  2075.     Strng2=Str$(Config2(15))
  2076.     Call Scrn(Strng2)
  2077.  Case 10
  2078.     Strng2=Chr$(27)+"[10;53H"
  2079.     Call Scrn(Strng2)
  2080.     Strng2=Chr$(27)+"[K"
  2081.     Call Scrn(Strng2)
  2082.     Strng2="No"
  2083.     If Config2(16) Then
  2084.        Strng2="Yes"
  2085.     Endif
  2086.     Call Scrn(Strng2)
  2087.  Case 11
  2088.     Strng2=Chr$(27)+"[11;51H"
  2089.     Call Scrn(Strng2)
  2090.     Strng2=Chr$(27)+"[K"
  2091.     Call Scrn(Strng2)
  2092.     Strng2="No"
  2093.     If Config2(17) Then
  2094.        Strng2="Yes"
  2095.     Endif
  2096.     Call Scrn(Strng2)
  2097.  Case 12
  2098.     Strng2=Chr$(27)+"[12;37H"
  2099.     Call Scrn(Strng2)
  2100.     Strng2=Chr$(27)+"[K"
  2101.     Call Scrn(Strng2)
  2102.     Strng2="No"
  2103.     If Config2(18) Then
  2104.        Strng2="Yes"
  2105.     Endif
  2106.     Call Scrn(Strng2)
  2107.  Case 13
  2108.     Strng2=Chr$(27)+"[13;40H"
  2109.     Call Scrn(Strng2)
  2110.     Strng2=Chr$(27)+"[K"
  2111.     Call Scrn(Strng2)
  2112.     Strng2="No"
  2113.     If Config2(19) Then
  2114.        Strng2="Yes"
  2115.     Endif
  2116.     Call Scrn(Strng2)
  2117.  Case 14
  2118.     Strng2=Chr$(27)+"[14;52H"
  2119.     Call Scrn(Strng2)
  2120.     Strng2=Chr$(27)+"[K"
  2121.     Call Scrn(Strng2)
  2122.     Strng2="No"
  2123.     If Config2(20) Then
  2124.        Strng2="Yes"
  2125.     Endif
  2126.     Call Scrn(Strng2)
  2127.  Case 15
  2128.     Strng2=Chr$(27)+"[15;42H"
  2129.     Call Scrn(Strng2)
  2130.     Strng2=Chr$(27)+"[K"
  2131.     Call Scrn(Strng2)
  2132.     Strng2=Str$(Config2(21))
  2133.     Call Scrn(Strng2)
  2134.  Case 16
  2135.     Strng2=Chr$(27)+"[16;43H"
  2136.     Call Scrn(Strng2)
  2137.     Strng2=Chr$(27)+"[K"
  2138.     Call Scrn(Strng2)
  2139.     Strng2=Str$(Config2(22))
  2140.     Call Scrn(Strng2)
  2141.  Case 17
  2142.     Strng2=Chr$(27)+"[17;47H"
  2143.     Call Scrn(Strng2)
  2144.     Strng2=Chr$(27)+"[K"
  2145.     Call Scrn(Strng2)
  2146.     Strng2=Str$(Config2(23))
  2147.     Call Scrn(Strng2)
  2148.  Case 18
  2149.     Strng2=Chr$(27)+"[18;49H"
  2150.     Call Scrn(Strng2)
  2151.     Strng2=Chr$(27)+"[K"
  2152.     Call Scrn(Strng2)
  2153.     Strng2=Str$(Config2(82))
  2154.     Call Scrn(Strng2)
  2155.  Case 19
  2156.     Strng2=Chr$(27)+"[19;57H"
  2157.     Call Scrn(Strng2)
  2158.     Strng2=Chr$(27)+"[K"
  2159.     Call Scrn(Strng2)
  2160.     Strng2=Str$(Config2(24))
  2161.     Call Scrn(Strng2)
  2162.  Case 20
  2163.     Strng2=Chr$(27)+"[20;43H"
  2164.     Call Scrn(Strng2)
  2165.     Strng2=Chr$(27)+"[K"
  2166.     Call Scrn(Strng2)
  2167.     Strng2=Str$(Config1(5)*100)
  2168.     Call Scrn(Strng2)
  2169.  Case 21
  2170.     Strng2=Chr$(27)+"[21;28H"
  2171.     Call Scrn(Strng2)
  2172.     Strng2=Chr$(27)+"[K"
  2173.     Call Scrn(Strng2)
  2174.     Strng2=Config3(7)
  2175.     Call Scrn(Strng2)
  2176.  Case 22
  2177.     Strng2=Chr$(27)+"[1;26H"
  2178.     Call Scrn(Strng2)
  2179.     Strng2=Chr$(27)+"[K"
  2180.     Call Scrn(Strng2)
  2181.     Strng2=Config3(8)
  2182.     Call Scrn(Strng2)
  2183.  Case 23
  2184.     Strng2=Chr$(27)+"[2;24H"
  2185.     Call Scrn(Strng2)
  2186.     Strng2=Chr$(27)+"[K"
  2187.     Call Scrn(Strng2)
  2188.     Strng2=Config3(9)
  2189.     Call Scrn(Strng2)
  2190.  Case 24
  2191.     Strng2=Chr$(27)+"[3;36H"
  2192.     Call Scrn(Strng2)
  2193.     Strng2=Chr$(27)+"[K"
  2194.     Call Scrn(Strng2)
  2195.     Strng2=Config3(10)
  2196.     Call Scrn(Strng2)
  2197.  Case 25
  2198.     Strng2=Chr$(27)+"[4;40H"
  2199.     Call Scrn(Strng2)
  2200.     Strng2=Chr$(27)+"[K"
  2201.     Call Scrn(Strng2)
  2202.     Strng2="No"
  2203.     If Config2(39) Then
  2204.        Strng2="Yes"
  2205.     Endif
  2206.     Call Scrn(Strng2)
  2207.  Case 26
  2208.     Strng2=Chr$(27)+"[5;27H"
  2209.     Call Scrn(Strng2)
  2210.     Strng2=Chr$(27)+"[K"
  2211.     Call Scrn(Strng2)
  2212.     Strng2="No"
  2213.     If Config2(44) Then
  2214.        Strng2="Yes"
  2215.     Endif
  2216.     Call Scrn(Strng2)
  2217.  Case 27
  2218.     Strng2=Chr$(27)+"[6;31H"
  2219.     Call Scrn(Strng2)
  2220.     Strng2=Chr$(27)+"[K"
  2221.     Call Scrn(Strng2)
  2222.     Strng2="No"
  2223.     If Config2(58) Then
  2224.        Strng2="Yes"
  2225.     Endif
  2226.     Call Scrn(Strng2)
  2227.  Case 28
  2228.     Strng2=Chr$(27)+"[7;45H"
  2229.     Call Scrn(Strng2)
  2230.     Strng2=Chr$(27)+"[K"
  2231.     Call Scrn(Strng2)
  2232.     Strng2=Str$(Config2(37))
  2233.     Call Scrn(Strng2)
  2234.  Case 29
  2235.     Strng2=Chr$(27)+"[8;42H"
  2236.     Call Scrn(Strng2)
  2237.     Strng2=Chr$(27)+"[K"
  2238.     Call Scrn(Strng2)
  2239.     Strng2=Str$(Config1(9)*100)
  2240.     Call Scrn(Strng2)
  2241.  Case 30
  2242.     Strng2=Chr$(27)+"[9;39H"
  2243.     Call Scrn(Strng2)
  2244.     Strng2=Chr$(27)+"[K"
  2245.     Call Scrn(Strng2)
  2246.     Strng2=Str$(Config2(62))
  2247.     Call Scrn(Strng2)
  2248.  Case 31
  2249.     Strng2=Chr$(27)+"[10;37H"
  2250.     Call Scrn(Strng2)
  2251.     Strng2=Chr$(27)+"[K"
  2252.     Call Scrn(Strng2)
  2253.     Strng2=Str$(Config2(43))
  2254.     Call Scrn(Strng2)
  2255.  Case 32
  2256.     Strng2=Chr$(27)+"[11;30H"
  2257.     Call Scrn(Strng2)
  2258.     Strng2=Chr$(27)+"[K"
  2259.     Call Scrn(Strng2)
  2260.     Strng2=Str$(Config1(27)*100)
  2261.     Call Scrn(Strng2)
  2262.  Case 33
  2263.     Strng2=Chr$(27)+"[12;30H"
  2264.     Call Scrn(Strng2)
  2265.     Strng2=Chr$(27)+"[K"
  2266.     Call Scrn(Strng2)
  2267.     Strng2=Str$(Config2(42))
  2268.     Call Scrn(Strng2)
  2269.  Case 34
  2270.     Strng2=Chr$(27)+"[13;30H"
  2271.     Call Scrn(Strng2)
  2272.     Strng2=Chr$(27)+"[K"
  2273.     Call Scrn(Strng2)
  2274.     Strng2=Str$(Config1(26)*100)
  2275.     Call Scrn(Strng2)
  2276.  Case 35
  2277.     Strng2=Chr$(27)+"[14;30H"
  2278.     Call Scrn(Strng2)
  2279.     Strng2=Chr$(27)+"[K"
  2280.     Call Scrn(Strng2)
  2281.     Strng2=Str$(Config2(41))
  2282.     Call Scrn(Strng2)
  2283.  Case 36
  2284.     Strng2=Chr$(27)+"[15;31H"
  2285.     Call Scrn(Strng2)
  2286.     Strng2=Chr$(27)+"[K"
  2287.     Call Scrn(Strng2)
  2288.     Strng2=Str$(Config1(25)*100)
  2289.     Call Scrn(Strng2)
  2290.  Case 37
  2291.     Strng2=Chr$(27)+"[16;31H"
  2292.     Call Scrn(Strng2)
  2293.     Strng2=Chr$(27)+"[K"
  2294.     Call Scrn(Strng2)
  2295.     Strng2=Str$(Config2(40))
  2296.     Call Scrn(Strng2)
  2297.  Case 38
  2298.     Strng2=Chr$(27)+"[17;49H"
  2299.     Call Scrn(Strng2)
  2300.     Strng2=Chr$(27)+"[K"
  2301.     Call Scrn(Strng2)
  2302.     Strng2=Str$(Config1(30))
  2303.     Call Scrn(Strng2)
  2304.  Case 39
  2305.     Strng2=Chr$(27)+"[18;48H"
  2306.     Call Scrn(Strng2)
  2307.     Strng2=Chr$(27)+"[K"
  2308.     Call Scrn(Strng2)
  2309.     Strng2=Str$(Config1(10))
  2310.     Call Scrn(Strng2)
  2311.  Case 40
  2312.     Strng2=Chr$(27)+"[19;35H"
  2313.     Call Scrn(Strng2)
  2314.     Strng2=Chr$(27)+"[K"
  2315.     Call Scrn(Strng2)
  2316.     Strng2="No"
  2317.     If Config2(50) Then
  2318.        Strng2="Yes"
  2319.     Endif
  2320.     Call Scrn(Strng2)
  2321.  Case 41
  2322.     Strng2=Chr$(27)+"[20;35H"
  2323.     Call Scrn(Strng2)
  2324.     Strng2=Chr$(27)+"[K"
  2325.     Call Scrn(Strng2)
  2326.     Strng2="No"
  2327.     If Config2(81) Then
  2328.        Strng2="Yes"
  2329.     Endif
  2330.     Call Scrn(Strng2)
  2331.  End Select
  2332. 10231
  2333.  Exit Sub
  2334. 10232
  2335.  Resume 10231
  2336. End Sub
  2337.  
  2338. Sub Select.Page.Three(VarX)
  2339.  On Local Error Goto 10242
  2340.  Strng2=Chr$(27)+"[1;37;44m"
  2341.  Call Scrn(Strng2)
  2342.  Select Case VarX
  2343.  Case 1
  2344.     Strng2=Chr$(27)+"[1;26H"
  2345.     Call Scrn(Strng2)
  2346.     Strng2=Chr$(27)+"[K"
  2347.     Call Scrn(Strng2)
  2348.     Strng2=Config3(11)
  2349.     Call Scrn(Strng2)
  2350.  Case 2
  2351.     Strng2=Chr$(27)+"[2;35H"
  2352.     Call Scrn(Strng2)
  2353.     Strng2=Chr$(27)+"[K"
  2354.     Call Scrn(Strng2)
  2355.     Strng2=Config3(52)
  2356.     Call Scrn(Strng2)
  2357.  Case 3
  2358.     Strng2=Chr$(27)+"[3;38H"
  2359.     Call Scrn(Strng2)
  2360.     Strng2=Chr$(27)+"[K"
  2361.     Call Scrn(Strng2)
  2362.     Strng2=Config3(53)
  2363.     Call Scrn(Strng2)
  2364.  Case 4
  2365.     Strng2=Chr$(27)+"[4;38H"
  2366.     Call Scrn(Strng2)
  2367.     Strng2=Chr$(27)+"[K"
  2368.     Call Scrn(Strng2)
  2369.     Strng2=Config3(15)
  2370.     Call Scrn(Strng2)
  2371.  Case 5
  2372.     Strng2=Chr$(27)+"[5;44H"
  2373.     Call Scrn(Strng2)
  2374.     Strng2=Chr$(27)+"[K"
  2375.     Call Scrn(Strng2)
  2376.     Strng2=Config3(57)
  2377.     Call Scrn(Strng2)
  2378.  Case 6
  2379.     Strng2=Chr$(27)+"[6;47H"
  2380.     Call Scrn(Strng2)
  2381.     Strng2=Chr$(27)+"[K"
  2382.     Call Scrn(Strng2)
  2383.     Strng2=Config3(62)
  2384.     Call Scrn(Strng2)
  2385.  Case 7
  2386.     Strng2=Chr$(27)+"[7;46H"
  2387.     Call Scrn(Strng2)
  2388.     Strng2=Chr$(27)+"[K"
  2389.     Call Scrn(Strng2)
  2390.     Strng2=Config3(72)
  2391.     Call Scrn(Strng2)
  2392.  Case 8
  2393.     Strng2=Chr$(27)+"[8;47H"
  2394.     Call Scrn(Strng2)
  2395.     Strng2=Chr$(27)+"[K"
  2396.     Call Scrn(Strng2)
  2397.     Strng2=Config3(67)
  2398.     Call Scrn(Strng2)
  2399.  Case 9
  2400.     Strng2=Chr$(27)+"[9;44H"
  2401.     Call Scrn(Strng2)
  2402.     Strng2=Chr$(27)+"[K"
  2403.     Call Scrn(Strng2)
  2404.     Strng2=Config3(70)
  2405.     Call Scrn(Strng2)
  2406.  Case 10
  2407.     Strng2=Chr$(27)+"[10;48H"
  2408.     Call Scrn(Strng2)
  2409.     Strng2=Chr$(27)+"[K"
  2410.     Call Scrn(Strng2)
  2411.     Strng2=Config3(73)
  2412.     Call Scrn(Strng2)
  2413.  Case 11
  2414.     Strng2=Chr$(27)+"[11;43H"
  2415.     Call Scrn(Strng2)
  2416.     Strng2=Chr$(27)+"[K"
  2417.     Call Scrn(Strng2)
  2418.     Strng2=Config3(75)
  2419.     Call Scrn(Strng2)
  2420.  Case 12
  2421.     Strng2=Chr$(27)+"[12;42H"
  2422.     Call Scrn(Strng2)
  2423.     Strng2=Chr$(27)+"[K"
  2424.     Call Scrn(Strng2)
  2425.     Strng2=Config3(56)
  2426.     Call Scrn(Strng2)
  2427.  Case 13
  2428.     Strng2=Chr$(27)+"[13;45H"
  2429.     Call Scrn(Strng2)
  2430.     Strng2=Chr$(27)+"[K"
  2431.     Call Scrn(Strng2)
  2432.     Strng2=Config3(63)
  2433.     Call Scrn(Strng2)
  2434.  Case 14
  2435.     Strng2=Chr$(27)+"[14;37H"
  2436.     Call Scrn(Strng2)
  2437.     Strng2=Chr$(27)+"[K"
  2438.     Call Scrn(Strng2)
  2439.     Strng2=Config3(16)
  2440.     Call Scrn(Strng2)
  2441.  Case 15
  2442.     Strng2=Chr$(27)+"[15;39H"
  2443.     Call Scrn(Strng2)
  2444.     Strng2=Chr$(27)+"[K"
  2445.     Call Scrn(Strng2)
  2446.     Strng2=Config3(17)
  2447.     Call Scrn(Strng2)
  2448.  Case 16
  2449.     Strng2=Chr$(27)+"[16;40H"
  2450.     Call Scrn(Strng2)
  2451.     Strng2=Chr$(27)+"[K"
  2452.     Call Scrn(Strng2)
  2453.     Strng2=Config3(18)
  2454.     Call Scrn(Strng2)
  2455.  Case 17
  2456.     Strng2=Chr$(27)+"[17;41H"
  2457.     Call Scrn(Strng2)
  2458.     Strng2=Chr$(27)+"[K"
  2459.     Call Scrn(Strng2)
  2460.     Strng2=Config3(19)
  2461.     Call Scrn(Strng2)
  2462.  Case 18
  2463.     Strng2=Chr$(27)+"[18;38H"
  2464.     Call Scrn(Strng2)
  2465.     Strng2=Chr$(27)+"[K"
  2466.     Call Scrn(Strng2)
  2467.     Strng2=Config3(20)
  2468.     Call Scrn(Strng2)
  2469.  Case 19
  2470.     Strng2=Chr$(27)+"[19;37H"
  2471.     Call Scrn(Strng2)
  2472.     Strng2=Chr$(27)+"[K"
  2473.     Call Scrn(Strng2)
  2474.     Strng2=Config3(21)
  2475.     Call Scrn(Strng2)
  2476.  Case 20
  2477.     Strng2=Chr$(27)+"[20;46H"
  2478.     Call Scrn(Strng2)
  2479.     Strng2=Chr$(27)+"[K"
  2480.     Call Scrn(Strng2)
  2481.     Strng2=Config3(12)
  2482.     Call Scrn(Strng2)
  2483.  Case 21
  2484.     Strng2=Chr$(27)+"[21;41H"
  2485.     Call Scrn(Strng2)
  2486.     Strng2=Chr$(27)+"[K"
  2487.     Call Scrn(Strng2)
  2488.     Strng2=Config3(49)
  2489.     Call Scrn(Strng2)
  2490.  Case 22
  2491.     Strng2=Chr$(27)+"[1;45H"
  2492.     Call Scrn(Strng2)
  2493.     Strng2=Chr$(27)+"[K"
  2494.     Call Scrn(Strng2)
  2495.     Strng2=Config3(13)
  2496.     Call Scrn(Strng2)
  2497.  Case 23
  2498.     Strng2=Chr$(27)+"[2;39H"
  2499.     Call Scrn(Strng2)
  2500.     Strng2=Chr$(27)+"[K"
  2501.     Call Scrn(Strng2)
  2502.     Strng2=Config3(28)
  2503.     Call Scrn(Strng2)
  2504.  Case 24
  2505.     Strng2=Chr$(27)+"[3;40H"
  2506.     Call Scrn(Strng2)
  2507.     Strng2=Chr$(27)+"[K"
  2508.     Call Scrn(Strng2)
  2509.     Strng2=Config3(50)
  2510.     Call Scrn(Strng2)
  2511.  Case 25
  2512.     Strng2=Chr$(27)+"[4;53H"
  2513.     Call Scrn(Strng2)
  2514.     Strng2=Chr$(27)+"[K"
  2515.     Call Scrn(Strng2)
  2516.     Strng2=Config3(22)
  2517.     Call Scrn(Strng2)
  2518.  Case 26
  2519.     Strng2=Chr$(27)+"[5;47H"
  2520.     Call Scrn(Strng2)
  2521.     Strng2=Chr$(27)+"[K"
  2522.     Call Scrn(Strng2)
  2523.     Strng2=Config3(58)
  2524.     Call Scrn(Strng2)
  2525.  Case 27
  2526.     Strng2=Chr$(27)+"[6;48H"
  2527.     Call Scrn(Strng2)
  2528.     Strng2=Chr$(27)+"[K"
  2529.     Call Scrn(Strng2)
  2530.     Strng2=Config3(60)
  2531.     Call Scrn(Strng2)
  2532.  Case 28
  2533.     Strng2=Chr$(27)+"[7;50H"
  2534.     Call Scrn(Strng2)
  2535.     Strng2=Chr$(27)+"[K"
  2536.     Call Scrn(Strng2)
  2537.     Strng2=Config3(59)
  2538.     Call Scrn(Strng2)
  2539.  Case 29
  2540.     Strng2=Chr$(27)+"[8;51H"
  2541.     Call Scrn(Strng2)
  2542.     Strng2=Chr$(27)+"[K"
  2543.     Call Scrn(Strng2)
  2544.     Strng2=Config3(64)
  2545.     Call Scrn(Strng2)
  2546.  Case 30
  2547.     Strng2=Chr$(27)+"[9;54H"
  2548.     Call Scrn(Strng2)
  2549.     Strng2=Chr$(27)+"[K"
  2550.     Call Scrn(Strng2)
  2551.     Strng2=Config3(65)
  2552.     Call Scrn(Strng2)
  2553.  Case 31
  2554.     Strng2=Chr$(27)+"[10;45H"
  2555.     Call Scrn(Strng2)
  2556.     Strng2=Chr$(27)+"[K"
  2557.     Call Scrn(Strng2)
  2558.     Strng2=Config3(68)
  2559.     Call Scrn(Strng2)
  2560.  Case 32
  2561.     Strng2=Chr$(27)+"[11;56H"
  2562.     Call Scrn(Strng2)
  2563.     Strng2=Chr$(27)+"[K"
  2564.     Call Scrn(Strng2)
  2565.     Strng2=Config3(69)
  2566.     Call Scrn(Strng2)
  2567.  Case 33
  2568.     Strng2=Chr$(27)+"[12;48H"
  2569.     Call Scrn(Strng2)
  2570.     Strng2=Chr$(27)+"[K"
  2571.     Call Scrn(Strng2)
  2572.     Strng2=Config3(76)
  2573.     Call Scrn(Strng2)
  2574.  Case 34
  2575.     Strng2=Chr$(27)+"[13;43H"
  2576.     Call Scrn(Strng2)
  2577.     Strng2=Chr$(27)+"[K"
  2578.     Call Scrn(Strng2)
  2579.     Strng2=Config3(61)
  2580.     Call Scrn(Strng2)
  2581.  Case 35
  2582.     Strng2=Chr$(27)+"[14;33H"
  2583.     Call Scrn(Strng2)
  2584.     Strng2=Chr$(27)+"[K"
  2585.     Call Scrn(Strng2)
  2586.     Strng2=Config3(51)
  2587.     Call Scrn(Strng2)
  2588.  Case 36
  2589.     Strng2=Chr$(27)+"[15;30H"
  2590.     Call Scrn(Strng2)
  2591.     Strng2=Chr$(27)+"[K"
  2592.     Call Scrn(Strng2)
  2593.     Strng2=Config3(54)
  2594.     Call Scrn(Strng2)
  2595.  End Select
  2596. 10241
  2597.  Exit Sub
  2598. 10242
  2599.  Resume 10241
  2600. End Sub
  2601.  
  2602. Sub Select.Page.Four(VarX)
  2603.  On Local Error Goto 10252
  2604.  Strng2=Chr$(27)+"[1;37;44m"
  2605.  Call Scrn(Strng2)
  2606.  Select Case VarX
  2607.  Case 1
  2608.     Strng2=Chr$(27)+"[2;39H"
  2609.     Call Scrn(Strng2)
  2610.     Strng2=Chr$(27)+"[K"
  2611.     Call Scrn(Strng2)
  2612.     Strng2=Left$(Config3(24),30)
  2613.     Call Scrn(Strng2)
  2614.  Case 2
  2615.     Strng2=Chr$(27)+"[3;22H"
  2616.     Call Scrn(Strng2)
  2617.     Strng2=Chr$(27)+"[K"
  2618.     Call Scrn(Strng2)
  2619.     Strng2=Left$(Config3(25),57)
  2620.     Call Scrn(Strng2)
  2621.  Case 3
  2622.     Strng2=Chr$(27)+"[4;40H"
  2623.     Call Scrn(Strng2)
  2624.     Strng2=Chr$(27)+"[K"
  2625.     Call Scrn(Strng2)
  2626.     Strng2=Left$(Room.Array(1),25)
  2627.     Call Scrn(Strng2)
  2628.  Case 4
  2629.     Strng2=Chr$(27)+"[5;43H"
  2630.     Call Scrn(Strng2)
  2631.     Strng2=Chr$(27)+"[K"
  2632.     Call Scrn(Strng2)
  2633.     Strng2=Left$(Room.Array(2),25)
  2634.     Call Scrn(Strng2)
  2635.  Case 5
  2636.     Strng2=Chr$(27)+"[6;40H"
  2637.     Call Scrn(Strng2)
  2638.     Strng2=Chr$(27)+"[K"
  2639.     Call Scrn(Strng2)
  2640.     Strng2=Left$(Room.Array(3),25)
  2641.     Call Scrn(Strng2)
  2642.  Case 6
  2643.     Strng2=Chr$(27)+"[7;40H"
  2644.     Call Scrn(Strng2)
  2645.     Strng2=Chr$(27)+"[K"
  2646.     Call Scrn(Strng2)
  2647.     Strng2=Left$(Room.Array(4),25)
  2648.     Call Scrn(Strng2)
  2649.  Case 7
  2650.     Strng2=Chr$(27)+"[8;40H"
  2651.     Call Scrn(Strng2)
  2652.     Strng2=Chr$(27)+"[K"
  2653.     Call Scrn(Strng2)
  2654.     Strng2=Left$(Room.Array(5),25)
  2655.     Call Scrn(Strng2)
  2656.  Case 8
  2657.     Strng2=Chr$(27)+"[9;40H"
  2658.     Call Scrn(Strng2)
  2659.     Strng2=Chr$(27)+"[K"
  2660.     Call Scrn(Strng2)
  2661.     Strng2=Left$(Room.Array(6),25)
  2662.     Call Scrn(Strng2)
  2663.  Case 9
  2664.     Strng2=Chr$(27)+"[10;38H"
  2665.     Call Scrn(Strng2)
  2666.     Strng2=Chr$(27)+"[K"
  2667.     Call Scrn(Strng2)
  2668.     Strng2=Left$(Room.Array(7),25)
  2669.     Call Scrn(Strng2)
  2670.  Case 10
  2671.     Strng2=Chr$(27)+"[11;38H"
  2672.     Call Scrn(Strng2)
  2673.     Strng2=Chr$(27)+"[K"
  2674.     Call Scrn(Strng2)
  2675.     Strng2=Left$(Room.Array(8),25)
  2676.     Call Scrn(Strng2)
  2677.  Case 11
  2678.     Strng2=Chr$(27)+"[12;46H"
  2679.     Call Scrn(Strng2)
  2680.     Strng2=Chr$(27)+"[K"
  2681.     Call Scrn(Strng2)
  2682.     Strng2=Left$(Room.Array(9),25)
  2683.     Call Scrn(Strng2)
  2684.  Case 12
  2685.     Strng2=Chr$(27)+"[13;36H"
  2686.     Call Scrn(Strng2)
  2687.     Strng2=Chr$(27)+"[K"
  2688.     Call Scrn(Strng2)
  2689.     Strng2=Left$(Room.Array(10),25)
  2690.     Call Scrn(Strng2)
  2691.  End Select
  2692. 10251
  2693.  Exit Sub
  2694. 10252
  2695.  Resume 10251
  2696. End Sub
  2697.  
  2698. Sub Select.Page.Five(VarX)
  2699.  On Local Error Goto 10262
  2700.  Strng2=Chr$(27)+"[1;37;44m"
  2701.  Call Scrn(Strng2)
  2702.  Select Case VarX
  2703.  Case 1
  2704.     Strng2=Chr$(27)+"[2;1H"
  2705.     Call Scrn(Strng2)
  2706.     Strng2=Chr$(27)+"[K"
  2707.     Call Scrn(Strng2)
  2708.     Strng2=Config3(74)
  2709.     Call Scrn(Strng2)
  2710.  Case 3
  2711.     Strng2=Chr$(27)+"[3;54H"
  2712.     Call Scrn(Strng2)
  2713.     Strng2=Chr$(27)+"[K"
  2714.     Call Scrn(Strng2)
  2715.     Strng2=Str$(Config1(11)*100)
  2716.     Call Scrn(Strng2)
  2717.  Case 4
  2718.     Strng2=Chr$(27)+"[4;39H"
  2719.     Call Scrn(Strng2)
  2720.     Strng2=Chr$(27)+"[K"
  2721.     Call Scrn(Strng2)
  2722.     Strng2=Str$(Config1(12)*100)
  2723.     Call Scrn(Strng2)
  2724.  Case 5
  2725.     Strng2=Chr$(27)+"[5;52H"
  2726.     Call Scrn(Strng2)
  2727.     Strng2=Chr$(27)+"[K"
  2728.     Call Scrn(Strng2)
  2729.     Strng2=Str$(Config1(13)*100)
  2730.     Call Scrn(Strng2)
  2731.  Case 6
  2732.     Strng2=Chr$(27)+"[6;49H"
  2733.     Call Scrn(Strng2)
  2734.     Strng2=Chr$(27)+"[K"
  2735.     Call Scrn(Strng2)
  2736.     Strng2=Str$(Config1(14)*100)
  2737.     Call Scrn(Strng2)
  2738.  Case 7
  2739.     Strng2=Chr$(27)+"[7;48H"
  2740.     Call Scrn(Strng2)
  2741.     Strng2=Chr$(27)+"[K"
  2742.     Call Scrn(Strng2)
  2743.     Strng2=Str$(Config1(15))
  2744.     Call Scrn(Strng2)
  2745.  Case 8
  2746.     Strng2=Chr$(27)+"[8;45H"
  2747.     Call Scrn(Strng2)
  2748.     Strng2=Chr$(27)+"[K"
  2749.     Call Scrn(Strng2)
  2750.     Strng2=Str$(Config2(27))
  2751.     Call Scrn(Strng2)
  2752.  Case 9
  2753.     Strng2=Chr$(27)+"[9;39H"
  2754.     Call Scrn(Strng2)
  2755.     Strng2=Chr$(27)+"[K"
  2756.     Call Scrn(Strng2)
  2757.     Strng2=Str$(Config2(28))
  2758.     Call Scrn(Strng2)
  2759.  Case 10
  2760.     Strng2=Chr$(27)+"[10;42H"
  2761.     Call Scrn(Strng2)
  2762.     Strng2=Chr$(27)+"[K"
  2763.     Call Scrn(Strng2)
  2764.     Strng2=Str$(Config1(16)*100)
  2765.     Call Scrn(Strng2)
  2766.  Case 11
  2767.     Strng2=Chr$(27)+"[11;40H"
  2768.     Call Scrn(Strng2)
  2769.     Strng2=Chr$(27)+"[K"
  2770.     Call Scrn(Strng2)
  2771.     Strng2=Str$(Config2(29))
  2772.     Call Scrn(Strng2)
  2773.  Case 12
  2774.     Strng2=Chr$(27)+"[12;41H"
  2775.     Call Scrn(Strng2)
  2776.     Strng2=Chr$(27)+"[K"
  2777.     Call Scrn(Strng2)
  2778.     Strng2=Str$(Config2(30))
  2779.     Call Scrn(Strng2)
  2780.  Case 13
  2781.     Strng2=Chr$(27)+"[13;48H"
  2782.     Call Scrn(Strng2)
  2783.     Strng2=Chr$(27)+"[K"
  2784.     Call Scrn(Strng2)
  2785.     Strng2=Str$(Config1(17)*100)
  2786.     Call Scrn(Strng2)
  2787.  Case 14
  2788.     Strng2=Chr$(27)+"[14;47H"
  2789.     Call Scrn(Strng2)
  2790.     Strng2=Chr$(27)+"[K"
  2791.     Call Scrn(Strng2)
  2792.     Strng2=Str$(Config1(18)*100)
  2793.     Call Scrn(Strng2)
  2794.  Case 15
  2795.     Strng2=Chr$(27)+"[15;41H"
  2796.     Call Scrn(Strng2)
  2797.     Strng2=Chr$(27)+"[K"
  2798.     Call Scrn(Strng2)
  2799.     Strng2=Str$(Config1(19)*100)
  2800.     Call Scrn(Strng2)
  2801.  Case 16
  2802.     Strng2=Chr$(27)+"[16;37H"
  2803.     Call Scrn(Strng2)
  2804.     Strng2=Chr$(27)+"[K"
  2805.     Call Scrn(Strng2)
  2806.     Strng2=Str$(Config2(31))
  2807.     Call Scrn(Strng2)
  2808.  Case 17
  2809.     Strng2=Chr$(27)+"[17;36H"
  2810.     Call Scrn(Strng2)
  2811.     Strng2=Chr$(27)+"[K"
  2812.     Call Scrn(Strng2)
  2813.     Strng2=Str$(Config1(20)*100)
  2814.     Call Scrn(Strng2)
  2815.  Case 18
  2816.     Strng2=Chr$(27)+"[18;40H"
  2817.     Call Scrn(Strng2)
  2818.     Strng2=Chr$(27)+"[K"
  2819.     Call Scrn(Strng2)
  2820.     Strng2=Str$(Config2(33))
  2821.     Call Scrn(Strng2)
  2822.  Case 19
  2823.     Strng2=Chr$(27)+"[19;44H"
  2824.     Call Scrn(Strng2)
  2825.     Strng2=Chr$(27)+"[K"
  2826.     Call Scrn(Strng2)
  2827.     Strng2=Str$(Config2(34))
  2828.     Call Scrn(Strng2)
  2829.  Case 20
  2830.     Strng2=Chr$(27)+"[20;44H"
  2831.     Call Scrn(Strng2)
  2832.     Strng2=Chr$(27)+"[K"
  2833.     Call Scrn(Strng2)
  2834.     Strng2=Str$(Config1(21)*100)
  2835.     Call Scrn(Strng2)
  2836.  Case 21
  2837.     Strng2=Chr$(27)+"[21;39H"
  2838.     Call Scrn(Strng2)
  2839.     Strng2=Chr$(27)+"[K"
  2840.     Call Scrn(Strng2)
  2841.     Strng2=Str$(Config2(35))
  2842.     Call Scrn(Strng2)
  2843.  Case 22
  2844.     Strng2=Chr$(27)+"[1;43H"
  2845.     Call Scrn(Strng2)
  2846.     Strng2=Chr$(27)+"[K"
  2847.     Call Scrn(Strng2)
  2848.     Strng2=Str$(Config2(36))
  2849.     Call Scrn(Strng2)
  2850.  Case 23
  2851.     Strng2=Chr$(27)+"[2;45H"
  2852.     Call Scrn(Strng2)
  2853.     Strng2=Chr$(27)+"[K"
  2854.     Call Scrn(Strng2)
  2855.     Strng2=Str$(Config1(22)*100)
  2856.     Call Scrn(Strng2)
  2857.  Case 24
  2858.     Strng2=Chr$(27)+"[3;47H"
  2859.     Call Scrn(Strng2)
  2860.     Strng2=Chr$(27)+"[K"
  2861.     Call Scrn(Strng2)
  2862.     Strng2=Str$(Config1(24)*100)
  2863.     Call Scrn(Strng2)
  2864.  Case 25
  2865.     Strng2=Chr$(27)+"[4;26H"
  2866.     Call Scrn(Strng2)
  2867.     Strng2=Chr$(27)+"[K"
  2868.     Call Scrn(Strng2)
  2869.     Strng2="No"
  2870.     If Config2(55) Then
  2871.        Strng2="Yes"
  2872.     Endif
  2873.     Call Scrn(Strng2)
  2874.  Case 26
  2875.     Strng2=Chr$(27)+"[5;36H"
  2876.     Call Scrn(Strng2)
  2877.     Strng2=Chr$(27)+"[K"
  2878.     Call Scrn(Strng2)
  2879.     Strng2=Str$(Config2(59))
  2880.     Call Scrn(Strng2)
  2881.  Case 27
  2882.     Strng2=Chr$(27)+"[6;34H"
  2883.     Call Scrn(Strng2)
  2884.     Strng2=Chr$(27)+"[K"
  2885.     Call Scrn(Strng2)
  2886.     Strng2="No"
  2887.     If Config2(68) Then
  2888.        Strng2="Yes"
  2889.     Endif
  2890.     Call Scrn(Strng2)
  2891.  Case 28
  2892.     Strng2=Chr$(27)+"[7;57H"
  2893.     Call Scrn(Strng2)
  2894.     Strng2=Chr$(27)+"[K"
  2895.     Call Scrn(Strng2)
  2896.     Strng2=Str$(Config2(69))
  2897.     Call Scrn(Strng2)
  2898.  Case 29
  2899.     Strng2=Chr$(27)+"[8;36H"
  2900.     Call Scrn(Strng2)
  2901.     Strng2=Chr$(27)+"[K"
  2902.     Call Scrn(Strng2)
  2903.     Strng2="No"
  2904.     If Config2(70) Then
  2905.        Strng2="Yes"
  2906.     Endif
  2907.     Call Scrn(Strng2)
  2908.  Case 30
  2909.     Strng2=Chr$(27)+"[9;37H"
  2910.     Call Scrn(Strng2)
  2911.     Strng2=Chr$(27)+"[K"
  2912.     Call Scrn(Strng2)
  2913.     Strng2="No"
  2914.     If Config2(71) Then
  2915.        Strng2="Yes"
  2916.     Endif
  2917.     Call Scrn(Strng2)
  2918.  End Select
  2919. 10261
  2920.  Exit Sub
  2921. 10262
  2922.  Resume 10261
  2923. End Sub
  2924.  
  2925. Sub Select.Page.Six(VarX)
  2926.  On Local Error Goto 10272
  2927.  Strng2=Chr$(27)+"[1;37;44m"
  2928.  Call Scrn(Strng2)
  2929.  Select Case VarX
  2930.  Case 1
  2931.     Strng2=Chr$(27)+"[1;31H"
  2932.     Call Scrn(Strng2)
  2933.     Strng2=Chr$(27)+"[K"
  2934.     Call Scrn(Strng2)
  2935.     Strng2="COM"+Mid$(Str$(Config2(46)),2)+":"
  2936.     Call Scrn(Strng2)
  2937.  Case 2
  2938.     Strng2=Chr$(27)+"[2;28H"
  2939.     Call Scrn(Strng2)
  2940.     Strng2=Chr$(27)+"[K"
  2941.     Call Scrn(Strng2)
  2942.     Strng2="No"
  2943.     If Config2(47) Then
  2944.        Strng2="Yes"
  2945.     Endif
  2946.     Call Scrn(Strng2)
  2947.  Case 3
  2948.     Strng2=Chr$(27)+"[3;37H"
  2949.     Call Scrn(Strng2)
  2950.     Strng2=Chr$(27)+"[K"
  2951.     Call Scrn(Strng2)
  2952.     Strng2=Config3(38)
  2953.     Call Scrn(Strng2)
  2954.  Case 4
  2955.     Strng2=Chr$(27)+"[4;25H"
  2956.     Call Scrn(Strng2)
  2957.     Strng2=Chr$(27)+"[K"
  2958.     Call Scrn(Strng2)
  2959.     Strng2=Config3(42)
  2960.     Call Scrn(Strng2)
  2961.  Case 5
  2962.     Strng2=Chr$(27)+"[5;29H"
  2963.     Call Scrn(Strng2)
  2964.     Strng2=Chr$(27)+"[K"
  2965.     Call Scrn(Strng2)
  2966.     Strng2=Config3(39)
  2967.     Call Scrn(Strng2)
  2968.  Case 6
  2969.     Strng2=Chr$(27)+"[6;26H"
  2970.     Call Scrn(Strng2)
  2971.     Strng2=Chr$(27)+"[K"
  2972.     Call Scrn(Strng2)
  2973.     Strng2=Config3(40)
  2974.     Call Scrn(Strng2)
  2975.  Case 7
  2976.     Strng2=Chr$(27)+"[7;28H"
  2977.     Call Scrn(Strng2)
  2978.     Strng2=Chr$(27)+"[K"
  2979.     Call Scrn(Strng2)
  2980.     Strng2=Config3(41)
  2981.     Call Scrn(Strng2)
  2982.  Case 8
  2983.     Strng2=Chr$(27)+"[8;30H"
  2984.     Call Scrn(Strng2)
  2985.     Strng2=Chr$(27)+"[K"
  2986.     Call Scrn(Strng2)
  2987.     Strng2=Str$(Config2(56))
  2988.     Call Scrn(Strng2)
  2989.  Case 9
  2990.     Strng2=Chr$(27)+"[9;25H"
  2991.     Call Scrn(Strng2)
  2992.     Strng2=Chr$(27)+"[K"
  2993.     Call Scrn(Strng2)
  2994.     Strng2=Str$(Config2(64))+"00"
  2995.     Call Scrn(Strng2)
  2996.  Case 10
  2997.     Strng2=Chr$(27)+"[10;44H"
  2998.     Call Scrn(Strng2)
  2999.     Strng2=Chr$(27)+"[K"
  3000.     Call Scrn(Strng2)
  3001.     Strng2=Str$(Config2(60))
  3002.     Call Scrn(Strng2)
  3003.  Case 11
  3004.     Strng2=Chr$(27)+"[11;22H"
  3005.     Call Scrn(Strng2)
  3006.     Strng2=Chr$(27)+"[K"
  3007.     Call Scrn(Strng2)
  3008.     Strng2="No"
  3009.     If Config2(45) Then
  3010.        Strng2="Yes"
  3011.     Endif
  3012.     Call Scrn(Strng2)
  3013.  Case 12
  3014.     Strng2=Chr$(27)+"[12;35H"
  3015.     Call Scrn(Strng2)
  3016.     Strng2=Chr$(27)+"[K"
  3017.     Call Scrn(Strng2)
  3018.     Strng2="No"
  3019.     If Config2(79) Then
  3020.        Strng2="Yes"
  3021.     Endif
  3022.     Call Scrn(Strng2)
  3023.  Case 13
  3024.     Strng2=Chr$(27)+"[13;34H"
  3025.     Call Scrn(Strng2)
  3026.     Strng2=Chr$(27)+"[K"
  3027.     Call Scrn(Strng2)
  3028.     Strng2="No"
  3029.     If Config2(80) Then
  3030.        Strng2="Yes"
  3031.     Endif
  3032.     Call Scrn(Strng2)
  3033.  Case 14
  3034.     Strng2=Chr$(27)+"[14;30H"
  3035.     Call Scrn(Strng2)
  3036.     Strng2=Chr$(27)+"[K"
  3037.     Call Scrn(Strng2)
  3038.     Strng2="No"
  3039.     If Config2(65) Then
  3040.        Strng2="Yes"
  3041.     Endif
  3042.     Call Scrn(Strng2)
  3043.  Case 15
  3044.     Strng2=Chr$(27)+"[15;41H"
  3045.     Call Scrn(Strng2)
  3046.     Strng2=Chr$(27)+"[K"
  3047.     Call Scrn(Strng2)
  3048.     Strng2="Chain
  3049.     If Config2(83) Then
  3050.        Strng2="Shell"
  3051.     Endif
  3052.     Call Scrn(Strng2)
  3053.  End Select
  3054. 10271
  3055.  Exit Sub
  3056. 10272
  3057.  Resume 10271
  3058. End Sub
  3059.  
  3060. Sub Select.Page.Seven(VarX)
  3061.  On Local Error Goto 10282
  3062.  Strng2=Chr$(27)+"[1;37;44m"
  3063.  Call Scrn(Strng2)
  3064.  Select Case VarX
  3065.  Case 1
  3066.     Strng2=Chr$(27)+"[1;22H"
  3067.     Call Scrn(Strng2)
  3068.     Strng2=Chr$(27)+"[K"
  3069.     Call Scrn(Strng2)
  3070.     Strng2="No"
  3071.     If Config2(63) Then
  3072.        Strng2="Yes"
  3073.     Endif
  3074.     Call Scrn(Strng2)
  3075.  Case 2
  3076.     Strng2=Chr$(27)+"[2;28H"
  3077.     Call Scrn(Strng2)
  3078.     Strng2=Chr$(27)+"[K"
  3079.     Call Scrn(Strng2)
  3080.     Strng2=Config3(29)
  3081.     Call Scrn(Strng2)
  3082.  Case 3
  3083.     Strng2=Chr$(27)+"[3;25H"
  3084.     Call Scrn(Strng2)
  3085.     Strng2=Chr$(27)+"[K"
  3086.     Call Scrn(Strng2)
  3087.     Strng2=Config3(30)
  3088.     Call Scrn(Strng2)
  3089.  Case 4
  3090.     Strng2=Chr$(27)+"[4;34H"
  3091.     Call Scrn(Strng2)
  3092.     Strng2=Chr$(27)+"[K"
  3093.     Call Scrn(Strng2)
  3094.     Strng2=Config3(31)
  3095.     Call Scrn(Strng2)
  3096.  Case 5
  3097.     Strng2=Chr$(27)+"[5;31H"
  3098.     Call Scrn(Strng2)
  3099.     Strng2=Chr$(27)+"[K"
  3100.     Call Scrn(Strng2)
  3101.     Strng2=Config3(32)
  3102.     Call Scrn(Strng2)
  3103.  Case 6
  3104.     Strng2=Chr$(27)+"[6;33H"
  3105.     Call Scrn(Strng2)
  3106.     Strng2=Chr$(27)+"[K"
  3107.     Call Scrn(Strng2)
  3108.     Strng2=Config3(33)
  3109.     Call Scrn(Strng2)
  3110.  Case 7
  3111.     Strng2=Chr$(27)+"[7;27H"
  3112.     Call Scrn(Strng2)
  3113.     Strng2=Chr$(27)+"[K"
  3114.     Call Scrn(Strng2)
  3115.     Strng2=Config3(34)
  3116.     Call Scrn(Strng2)
  3117.  Case 8
  3118.     Strng2=Chr$(27)+"[8;28H"
  3119.     Call Scrn(Strng2)
  3120.     Strng2=Chr$(27)+"[K"
  3121.     Call Scrn(Strng2)
  3122.     Strng2=Config3(35)
  3123.     Call Scrn(Strng2)
  3124.  Case 9
  3125.     Strng2=Chr$(27)+"[9;28H"
  3126.     Call Scrn(Strng2)
  3127.     Strng2=Chr$(27)+"[K"
  3128.     Call Scrn(Strng2)
  3129.     Strng2=Config3(36)
  3130.     Call Scrn(Strng2)
  3131.  Case 10
  3132.     Strng2=Chr$(27)+"[10;37H"
  3133.     Call Scrn(Strng2)
  3134.     Strng2=Chr$(27)+"[K"
  3135.     Call Scrn(Strng2)
  3136.     Strng2=Config3(37)
  3137.     Call Scrn(Strng2)
  3138.  Case 11
  3139.     Strng2=Chr$(27)+"[11;34H"
  3140.     Call Scrn(Strng2)
  3141.     Strng2=Chr$(27)+"[K"
  3142.     Call Scrn(Strng2)
  3143.     Strng2=Config3(43)
  3144.     Call Scrn(Strng2)
  3145.  Case 12
  3146.     Strng2=Chr$(27)+"[12;37H"
  3147.     Call Scrn(Strng2)
  3148.     Strng2=Chr$(27)+"[K"
  3149.     Call Scrn(Strng2)
  3150.     Strng2=Config3(44)
  3151.     Call Scrn(Strng2)
  3152.  Case 13
  3153.     Strng2=Chr$(27)+"[13;44H"
  3154.     Call Scrn(Strng2)
  3155.     Strng2=Chr$(27)+"[K"
  3156.     Call Scrn(Strng2)
  3157.     Strng2=Config3(45)
  3158.     Call Scrn(Strng2)
  3159.  End Select
  3160. 10281
  3161.  Exit Sub
  3162. 10282
  3163.  Resume 10281
  3164. End Sub
  3165.  
  3166. Sub Main.Select
  3167.  On Local Error Goto 10292
  3168.  Temp=False
  3169.  Select Case Len(Strng3)
  3170.  Case 1
  3171.     TempQ=Asc(Strng3)
  3172.  Case 2
  3173.     TempQ=Asc(Right$(Strng3,1))
  3174.  End Select
  3175.  Select Case TempQ
  3176.  Case 59 To 68
  3177.     Temp=TempQ-58
  3178.     Strng3=Chr$(13)
  3179.  Case 72
  3180.     If TempX>1 Then
  3181.        Temp=TempX-1
  3182.     Endif
  3183.  Case 80
  3184.     If TempX<8 Then
  3185.        Temp=TempX+1
  3186.     Endif
  3187.  Case 15, 75
  3188.     If TempX>4 Then
  3189.        Temp=TempX-4
  3190.     Endif
  3191.  Case 9, 77
  3192.     If TempX<5 Then
  3193.        Temp=TempX+4
  3194.     Endif
  3195.  Case 71
  3196.     If TempX<>1 Then
  3197.        Temp=1
  3198.     Endif
  3199.  Case 79
  3200.     If TempX<>8 Then
  3201.        Temp=8
  3202.     Endif
  3203.  Case 73
  3204.     If TempX<5 And TempX<>1 Then
  3205.        Temp=1
  3206.     Endif
  3207.     If TempX>4 And TempX<>5 Then
  3208.        Temp=5
  3209.     Endif
  3210.  Case 81
  3211.     If TempX<5 And TempX<>4 Then
  3212.        Temp=4
  3213.     Endif
  3214.     If TempX>4 And TempX<>8 Then
  3215.        Temp=8
  3216.     Endif
  3217.  End Select
  3218.  If Temp Then
  3219.     Call Main.Menu.Select
  3220.  Endif
  3221. 10291
  3222.  Exit Sub
  3223. 10292
  3224.  Resume 10291
  3225. End Sub
  3226.  
  3227. Sub Main.Menu.Select
  3228.  On Local Error Goto 10302
  3229.  Strng2=Chr$(27)+"["+Mid$(Str$(Menu2(TempX,1)),2)+";"+_
  3230.  Mid$(Str$(Menu2(TempX,2)+3),2)+"H"
  3231.  Call Scrn(Strng2)
  3232.  Strng=Chr$(27)+"[1;37;44m"
  3233.  Call Scrn(Strng)
  3234.  Strng2=Left$(Menu1(TempX),1)
  3235.  Call Scrn(Strng2)
  3236.  Strng=Chr$(27)+"[1;33;44m"
  3237.  Call Scrn(Strng)
  3238.  Strng2=Mid$(Menu1(TempX),2)
  3239.  Strng2=Rtrim$(Strng2)
  3240.  Call Scrn(Strng2)
  3241.  TempX=Temp
  3242.  Strng2=Chr$(27)+"["+Mid$(Str$(Menu2(TempX,1)),2)+";"+_
  3243.  Mid$(Str$(Menu2(TempX,2)+3),2)+"H"
  3244.  Call Scrn(Strng2)
  3245.  Strng=Chr$(27)+"[1;37;41m"
  3246.  Call Scrn(Strng)
  3247.  Strng2=Left$(Menu1(TempX),1)
  3248.  Call Scrn(Strng2)
  3249.  Strng=Chr$(27)+"[1;33;41m"
  3250.  Call Scrn(Strng)
  3251.  Strng2=Mid$(Menu1(TempX),2)
  3252.  Strng2=Rtrim$(Strng2)
  3253.  Call Scrn(Strng2)
  3254. 10301
  3255.  Exit Sub
  3256. 10302
  3257.  Resume 10301
  3258. End Sub
  3259.  
  3260. Sub Read.Config
  3261.  On Local Error Goto 10312
  3262.  Data.Error=False
  3263.  DND.Path$=Environ$("DNDBBS")
  3264.  If DND.Path$<>Nul Then
  3265.     If Right$(DND.Path$,1)<>"\" Then
  3266.        DND.Path$=DND.Path$+"\"
  3267.     Endif
  3268.  Endif
  3269.  TempA$=DND.Path$+FileName$
  3270.  Redim Command.Set1(1 To 83, 1 To 5) As String*12,_
  3271.        Command.Set2(1 To 83, 1 To 5) As String*12,_
  3272.        Sysop.Commands1(1 To 9) As String*10,_
  3273.        Sysop.Commands2(1 To 9) As String*10
  3274.  Close 1
  3275.  Open TempA$ For Input Shared As #1
  3276.  For Temp=1 To 10
  3277.     For Temp1=1 To 4
  3278.        Input #1,Training.Room(Temp,Temp1)
  3279.     Next
  3280.  Next
  3281.  For Temp=1 To 10
  3282.     Line Input #1,Room.Array(Temp)
  3283.  Next
  3284.  For Temp=1 To 30
  3285.     Input #1,Config1(Temp)
  3286.  Next
  3287.  For Temp=1 To 85
  3288.     Input #1,Config2(Temp)
  3289.  Next
  3290.  For Temp=1 To 77
  3291.     Line Input #1,Config3(Temp)
  3292.  Next
  3293.  For Temp=1 To 10
  3294.     Line Input #1,High.Class.Name(Temp)
  3295.  Next
  3296.  For Temp2=1 To 8
  3297.     Line Input #1,Race(Temp2)
  3298.  Next
  3299.  For Temp2=1 To 10
  3300.     Line Input #1,Class.Name(Temp2)
  3301.  Next
  3302.  For Temp2=1 To 7
  3303.     Line Input #1,Stat(Temp2)
  3304.  Next
  3305.  For Temp2=1 To 11
  3306.     Line Input #1,Direction(Temp2)
  3307.  Next
  3308.  For Temp2=1 To 10
  3309.     Line Input #1,Numeral(Temp2)
  3310.  Next
  3311.  For Temp2=1 To 4
  3312.     Line Input #1,Weapon.Type.Name(Temp2)
  3313.  Next
  3314.  For Temp2=1 To 3
  3315.     Line Input #1,Alignment.Name1(Temp2)
  3316.  Next
  3317.  For Temp2=1 To 3
  3318.     Line Input #1,Alignment.Name2(Temp2)
  3319.  Next
  3320.  For Temp2=1 To 70
  3321.     Line Input #1,Strip.Data(Temp2)
  3322.  Next
  3323.  For Temp2=1 To 83
  3324.     For Temp3=1 To 5
  3325.        Line Input #1,Command.Set1(Temp2, Temp3)
  3326.     Next
  3327.  Next
  3328.  For Temp2=1 To 83
  3329.     For Temp3=1 To 5
  3330.        Line Input #1,Command.Set2(Temp2, Temp3)
  3331.     Next
  3332.  Next
  3333.  For Temp2=1 To 9
  3334.     Line Input #1,Sysop.Commands1(Temp2)
  3335.  Next
  3336.  For Temp2=1 To 9
  3337.     Line Input #1,Sysop.Commands2(Temp2)
  3338.  Next
  3339.  For Temp2=1 To 10
  3340.     Line Input #1,Temp$
  3341.     Input #1,Temp3
  3342.     Input #1,Temp4
  3343.  Next
  3344.  Call Get.Environment
  3345.  If Not Eof(1) Then
  3346.     Error 99
  3347.  Endif
  3348. 10311
  3349.  Exit Sub
  3350. 10312
  3351.  Data.Error=True
  3352.  Resume 10311
  3353. End Sub
  3354.  
  3355. Sub Load.Defaults
  3356.  On Local Error Goto 10322
  3357.  FileName$="default.cfg"
  3358.  Call Read.Config
  3359.  Strng3=" Default configuration loaded."
  3360.  If Data.Error Then
  3361.     Strng3=" Error reading file "+FileName$+" from disk."
  3362.  Endif
  3363.  Strng3=Strng3+" Press "+Enter$+" to continue."
  3364.  Call Status.Message
  3365. 10321
  3366.  Exit Sub
  3367. 10322
  3368.  Resume 10321
  3369. End Sub
  3370.  
  3371. Sub Get.Environment
  3372.  On Local Error Goto 10332
  3373.  Strng2=Environ$("DNDDAT")
  3374.  Strng2=Ucase$(Strng2)
  3375.  If Strng2<>Nul Then
  3376.     Config3(11)=Strng2
  3377.     If Right$(Config3(11),1)<>"\" Then
  3378.        Config3(11)=Config3(11)+"\"
  3379.     Endif
  3380.  Endif
  3381.  Strng2=Environ$("DNDDOC")
  3382.  Strng2=Ucase$(Strng2)
  3383.  If Strng2<>Nul Then
  3384.     Config3(52)=Strng2
  3385.     If Right$(Config3(52),1)<>"\" Then
  3386.        Config3(52)=Config3(52)+"\"
  3387.     Endif
  3388.  Endif
  3389.  Strng2=Environ$("DNDTEMP")
  3390.  Strng2=Ucase$(Strng2)
  3391.  If Strng2<>Nul Then
  3392.     Config3(53)=Strng2
  3393.     If Right$(Config3(53),1)<>"\" Then
  3394.        Config3(53)=Config3(53)+"\"
  3395.     Endif
  3396.  Endif
  3397.  Strng2=Environ$("DNDDOOR")
  3398.  Strng2=Ucase$(Strng2)
  3399.  If Strng2<>Nul Then
  3400.     Config3(38)=Strng2
  3401.     If Right$(Config3(38),1)<>"\" Then
  3402.        Config3(38)=Config3(38)+"\"
  3403.     Endif
  3404.  Endif
  3405. 10331
  3406.  Exit Sub
  3407. 10332
  3408.  Resume 10331
  3409. End Sub
  3410.  
  3411. Sub Load.Config
  3412.  On Local Error Goto 10342
  3413.  Strng3=Nul
  3414.  Call Status.Message
  3415.  Strng2="Enter node number(0 To 9, A To Z, or press "+Enter$+" for BBS node)"
  3416.  Call Scrn(Strng2)
  3417.  Strng3=Input$(1)
  3418.  Select Case Ucase$(Strng3)
  3419.  Case Chr$(13)
  3420.     Strng3=Nul
  3421.  Case "0" To "9", "A" To "Z"
  3422.     Strng3=Ucase$(Strng3)
  3423.  Case Else
  3424.     Strng3=" Error in node number, node must be: "+_
  3425.     "0 To 9, A To Z, or "+Enter$+" for none."
  3426.     Call Status.Message
  3427.     Exit Sub
  3428.  End Select
  3429.  FileName$="dndbbs"+Strng3+".cfg"
  3430.  Call Read.Config
  3431.  Strng3=" File "+FileName$+" read from disk."
  3432.  If Data.Error Then
  3433.     Strng3=" Error reading file "+FileName$+" from disk."
  3434.  Endif
  3435.  Strng3=Strng3+" Press "+Enter$+" to continue."
  3436.  Call Status.Message
  3437. 10341
  3438.  Exit Sub
  3439. 10342
  3440.  Resume 10341
  3441. End Sub
  3442.  
  3443. Sub Write.Config
  3444.  On Local Error Goto 10352
  3445.  Strng3=Nul
  3446.  Call Status.Message
  3447.  Strng2="Enter node number(0 To 9, A To Z, or press "+Enter$+" for BBS node)"
  3448.  Call Scrn(Strng2)
  3449.  Strng3=Input$(1)
  3450.  Select Case Ucase$(Strng3)
  3451.  Case Chr$(13)
  3452.     Strng3=Nul
  3453.  Case "0" To "9", "A" To "Z"
  3454.     Strng3=Ucase$(Strng3)
  3455.  Case Else
  3456.     Strng3=" Error in node number, node must be: "+_
  3457.     "0 To 9, A To Z, or "+Enter$+" for none."
  3458.     Call Status.Message
  3459.     Exit Sub
  3460.  End Select
  3461.  FileName$="dndbbs"+Strng3+".cfg"
  3462.  TempA$=DND.Path$+FileName$
  3463.  Close 1
  3464.  Open TempA$ For Output Shared As #1
  3465.  For Temp=1 To 10
  3466.     For Temp1=1 To 4
  3467.        Print #1,Training.Room(Temp,Temp1)
  3468.     Next
  3469.  Next
  3470.  For Temp=1 To 10
  3471.     Print #1,Room.Array(Temp)
  3472.  Next
  3473.  For Temp=1 To 30
  3474.     Print #1,Config1(Temp)
  3475.  Next
  3476.  For Temp=1 To 85
  3477.     Print #1,Config2(Temp)
  3478.  Next
  3479.  For Temp=1 To 77
  3480.     Print #1,Config3(Temp)
  3481.  Next
  3482.  For Temp=1 To 10
  3483.     Print #1,High.Class.Name(Temp)
  3484.  Next
  3485.  For Temp2=1 To 8
  3486.     Print #1,Race(Temp2)
  3487.  Next
  3488.  For Temp2=1 To 10
  3489.     Print #1,Class.Name(Temp2)
  3490.  Next
  3491.  For Temp2=1 To 7
  3492.     Print #1,Stat(Temp2)
  3493.  Next
  3494.  For Temp2=1 To 11
  3495.     Print #1,Direction(Temp2)
  3496.  Next
  3497.  For Temp2=1 To 10
  3498.     Print #1,Numeral(Temp2)
  3499.  Next
  3500.  For Temp2=1 To 4
  3501.     Print #1,Weapon.Type.Name(Temp2)
  3502.  Next
  3503.  For Temp2=1 To 3
  3504.     Print #1,Alignment.Name1(Temp2)
  3505.  Next
  3506.  For Temp2=1 To 3
  3507.     Print #1,Alignment.Name2(Temp2)
  3508.  Next
  3509.  For Temp2=1 To 70
  3510.     Print #1,Strip.Data(Temp2)
  3511.  Next
  3512.  For Temp1=1 To 83
  3513.     For Temp2=1 To 5
  3514.        Print #1,Rtrim$(Command.Set1(Temp1,Temp2))
  3515.     Next
  3516.  Next
  3517.  For Temp1=1 To 83
  3518.     For Temp2=1 To 5
  3519.        Print #1,Rtrim$(Command.Set2(Temp1,Temp2))
  3520.     Next
  3521.  Next
  3522.  For Temp1=1 To 9
  3523.     Print #1,Rtrim$(Sysop.Commands1(Temp1))
  3524.  Next
  3525.  For Temp1=1 To 9
  3526.     Print #1,Rtrim$(Sysop.Commands2(Temp1))
  3527.  Next
  3528.  Restore Config.Array.Data
  3529.  For Temp1=1 To 10
  3530.     Read Temp$, Temp2, Temp3
  3531.     Print #1,Temp$
  3532.     Print #1,Temp2
  3533.     Print #1,Temp3
  3534.  Next
  3535.  Strng3=" File "+FileName$+" written to disk. Press "+Enter$+" to continue."
  3536. 10351
  3537.  Call Status.Message
  3538.  Exit Sub
  3539. 10352
  3540.  Strng3=" Error writing file "+FileName$
  3541.  Strng3=Strng3+" to disk. Press "+Enter$+" to continue."
  3542.  Resume 10351
  3543. End Sub
  3544.  
  3545. Sub Clear.Screen
  3546.  On Local Error Goto 10362
  3547.  Strng=Chr$(27)+"[0m"
  3548.  Call Scrn(Strng)
  3549.  Strng=Chr$(27)+"[2J"
  3550.  Call Scrn(Strng)
  3551.  Strng=Chr$(27)+"[24;1H"
  3552.  Call Scrn(Strng)
  3553.  Locate 24,1,1
  3554. 10361
  3555.  Exit Sub
  3556. 10362
  3557.  Resume 10361
  3558. End Sub
  3559.  
  3560. Sub Status.Message
  3561.  On Local Error Goto 10372
  3562.  Strng=Chr$(27)+"[1;37;44m"
  3563.  Call Scrn(Strng)
  3564.  Strng=Chr$(27)+"[22;4H"
  3565.  Call Scrn(Strng)
  3566.  Strng=Space$(74)
  3567.  Call Scrn(Strng)
  3568.  Strng=Chr$(27)+"[23;4H"
  3569.  Call Scrn(Strng)
  3570.  Strng=Space$(74)
  3571.  Call Scrn(Strng)
  3572.  Strng=Chr$(27)+"[23;4H"
  3573.  Call Scrn(Strng)
  3574.  If Len(Strng3) Then
  3575.     Call Scrn(Strng3)
  3576.     Strng3=Input$(1)
  3577.  Endif
  3578. 10371
  3579.  Exit Sub
  3580. 10372
  3581.  Resume 10371
  3582. End Sub
  3583.  
  3584. Sub Data.Prompt
  3585.  On Local Error Goto 10382
  3586.  Call Clear.Prompt
  3587.  Line Input "Enter option data: ",Strng3
  3588.  Temp!=Val(Strng3)
  3589.  Yes=(Ucase$(Left$(Strng3,1))="Y")
  3590. 10381
  3591.  Exit Sub
  3592. 10382
  3593.  Resume 10381
  3594. End Sub
  3595.  
  3596. Sub Data.Prompt.Two
  3597.  On Local Error Goto 10392
  3598.  Call Clear.Prompt
  3599.  Line Input "Enter second option data: ",Strng3
  3600. 10391
  3601.  Exit Sub
  3602. 10392
  3603.  Resume 10391
  3604. End Sub
  3605.  
  3606. Sub Clear.Prompt
  3607.  On Local Error Goto 10402
  3608.  Strng2=Chr$(27)+"[1;37m"
  3609.  Call Scrn(Strng2)
  3610.  Strng2=Chr$(27)+"[24;1H"
  3611.  Call Scrn(Strng2)
  3612.  Strng2=Chr$(27)+"[K"
  3613.  Call Scrn(Strng2)
  3614.  Strng2=Chr$(27)+"[23;1H"
  3615.  Call Scrn(Strng2)
  3616.  Strng2=Chr$(27)+"[K"
  3617.  Call Scrn(Strng2)
  3618.  Locate 23,1,1
  3619. 10401
  3620.  Exit Sub
  3621. 10402
  3622.  Resume 10401
  3623. End Sub
  3624.  
  3625. Sub Status.Line
  3626.  On Local Error Goto 10412
  3627.  Strng2=Chr$(27)+"[1;37;44m"
  3628.  Call Scrn(Strng2)
  3629.  Strng2=Chr$(27)+"[22;4H"
  3630.  Call Scrn(Strng2)
  3631.  Strng2=" Highlight menu choice with cursor keypad, "
  3632.  Strng2=Strng2+"press "+Enter$+" to select option. "
  3633.  Call Scrn(Strng2)
  3634.  Strng2=Chr$(27)+"[23;4H"
  3635.  Call Scrn(Strng2)
  3636.  Strng2=" Control-D  load default, Control-W  write config, "
  3637.  Strng2=Strng2+"Control-R  read config. "
  3638.  Call Scrn(Strng2)
  3639. 10411
  3640.  Exit Sub
  3641. 10412
  3642.  Resume 10411
  3643. End Sub
  3644.  
  3645. Sub Option.Prompt
  3646.  On Local Error Goto 10422
  3647.  Strng2=Chr$(27)+"[1;37m"
  3648.  Call Scrn(Strng2)
  3649.  Strng2=Chr$(27)+"[24;1H"
  3650.  Call Scrn(Strng2)
  3651.  Strng2=Chr$(27)+"[K"
  3652.  Call Scrn(Strng2)
  3653.  Strng2="Press "+Enter$+" to return to main menu."
  3654.  Call Scrn(Strng2)
  3655.  Strng2=Chr$(27)+"[23;1H
  3656.  Call Scrn(Strng2)
  3657.  Strng2=Chr$(27)+"[K"
  3658.  Call Scrn(Strng2)
  3659.  Locate 23,1,1
  3660.  Line Input "Enter Option Number: ",Strng3
  3661.  Temp1=Val(Strng3)
  3662. 10421
  3663.  Exit Sub
  3664. 10422
  3665.  Resume 10421
  3666. End Sub
  3667.  
  3668. Sub Display.Class
  3669.  On Local Error Goto 10452
  3670.  Select Case Temp1
  3671.  Case 1
  3672.     Strng2=Chr$(27)+"[0;37;44m"
  3673.     Call Scrn(Strng2)
  3674.     Strng2=Chr$(27)+"["+Mid$(Str$(Temp*2+1),2)+";1H"
  3675.     Call Scrn(Strng2)
  3676.     Strng2=Mid$(Str$((Temp-1)*4+1),2)+"."+_
  3677.     Space$(4-Len(Str$((Temp-1)*4+1)))+"Fatigue"
  3678.     Call Scrn(Strng2)
  3679.     Strng2=Chr$(27)+"[1;37;44m"
  3680.     Call Scrn(Strng2)
  3681.     Strng2=Str$(Training.Room(Temp,1))
  3682.     Strng2=Strng2+Space$(7-Len(Strng2))
  3683.     Call Scrn(Strng2)
  3684.  Case 2
  3685.     Strng2=Chr$(27)+"[0;37;44m"
  3686.     Call Scrn(Strng2)
  3687.     Strng2=Chr$(27)+"["+Mid$(Str$(Temp*2+1),2)+";19H"
  3688.     Call Scrn(Strng2)
  3689.     Strng2=Mid$(Str$((Temp-1)*4+2),2)+"."+_
  3690.     Space$(4-Len(Str$((Temp-1)*4+2)))+"Vitality"
  3691.     Call Scrn(Strng2)
  3692.     Strng2=Chr$(27)+"[1;37;44m"
  3693.     Call Scrn(Strng2)
  3694.     Strng2=Str$(Training.Room(Temp,2))
  3695.     Strng2=Strng2+Space$(7-Len(Strng2))
  3696.     Call Scrn(Strng2)
  3697.  Case 3
  3698.     Strng2=Chr$(27)+"[0;37;44m"
  3699.     Call Scrn(Strng2)
  3700.     Strng2=Chr$(27)+"["+Mid$(Str$(Temp*2+1),2)+";38H"
  3701.     Call Scrn(Strng2)
  3702.     Strng2=Mid$(Str$((Temp-1)*4+3),2)+"."+_
  3703.     Space$(4-Len(Str$((Temp-1)*4+3)))+"Magic"
  3704.     Call Scrn(Strng2)
  3705.     Strng2=Chr$(27)+"[1;37;44m"
  3706.     Call Scrn(Strng2)
  3707.     Strng2=Str$(Training.Room(Temp,3))
  3708.     Strng2=Strng2+Space$(7-Len(Strng2))
  3709.     Call Scrn(Strng2)
  3710.  Case 4
  3711.     Strng2=Chr$(27)+"[0;37;44m"
  3712.     Call Scrn(Strng2)
  3713.     Strng2=Chr$(27)+"["+Mid$(Str$(Temp*2+1),2)+";54H"
  3714.     Call Scrn(Strng2)
  3715.     Strng2=Mid$(Str$((Temp-1)*4+4),2)+"."+_
  3716.     Space$(4-Len(Str$((Temp-1)*4+4)))+"Psionic"
  3717.     Call Scrn(Strng2)
  3718.     Strng2=Chr$(27)+"[1;37;44m"
  3719.     Call Scrn(Strng2)
  3720.     Strng2=Str$(Training.Room(Temp,4))
  3721.     Strng2=Strng2+Space$(7-Len(Strng2))
  3722.     Call Scrn(Strng2)
  3723.  End Select
  3724. 10451
  3725.  Exit Sub
  3726. 10452
  3727.  Resume 10451
  3728. End Sub
  3729.  
  3730. Sub Scrn(Var$)
  3731.  On Local Error Goto 10462
  3732.  Var$=Var$+"$"
  3733.  InregsX.AX=&H0900
  3734.  InregsX.DS=Sseg(Var$)
  3735.  InregsX.DX=Sadd(Var$)
  3736.  Call InterruptX(&H21,InregsX,OutregsX)
  3737. 10461
  3738.  Exit Sub
  3739. 10462
  3740.  Resume 10461
  3741. End Sub
  3742.  
  3743. Array.Data:
  3744.  Data "Logon Variables",10,15
  3745.  Data "Processing Variables",12,15
  3746.  Data "File Variables",14,15
  3747.  Data "Rooms Variables",16,15
  3748.  Data "Command Variables",10,50
  3749.  Data "Modem Variables",12,50
  3750.  Data "Equation Variables",14,50
  3751.  Data "Quit Configure",16,50
  3752.  
  3753. Equate.Data:
  3754.  Data "(RND*(MHP/10)-(SH+AR)/2)*XX"
  3755.  Data "(RND*STR+LVL/2)*(XX+(WP1+WP2+WP3+WP4)/100)+WE"
  3756.  Data "DEX/2>RND*10+MLVL/10"
  3757.  Data "RND*10+MLVL/10>DEX/2"
  3758.  Data "RND*LVL+2>MLVL"
  3759.  Data "DEX>RND*5+MLVL/2"
  3760.  Data "RND*5+LVL>MLVL"
  3761.  Data "RND*15>STR"
  3762.  Data "(FT+VT+MG)*LF+ST"
  3763.  Data "(RND*INT+WIS)*(PSIA+XX)"
  3764.  Data "(RND*(MHP/10)-PSID)*MPSI"
  3765.  Data "(RND*10+10)+CON/2>20"
  3766.  
  3767. Config.Array.Data:
  3768.  Data "Terminate Program",10,15
  3769.  Data "Login Sysop",12,15
  3770.  Data "Edit Utility",14,15
  3771.  Data "Reconfigure System",16,15
  3772.  Data "Screen Editor",18,15
  3773.  Data "Command Shell",10,50
  3774.  Data "DOS Command",12,50
  3775.  Data "Auto Answer",14,50
  3776.  Data "Originate Carrier",16,50
  3777.  Data "Modem Recycle",18,50
  3778.