home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD62195302000.psc / D:\1Interp\ModLngHelp.bas < prev   
Encoding:
BASIC Source File  |  2000-05-30  |  18.3 KB  |  363 lines
  1. Attribute VB_Name = "ModLngHelp"
  2. Dim Demo() As String
  3. Dim DName() As String
  4. Dim Limit As Integer
  5. Dim Examples(3) As String
  6. Public OpenSave As Integer
  7.  
  8. Public Function ShowHelpMe(lInt As Integer) As String
  9. Dim lReturn As String
  10.     lReturn = ""
  11.     If lInt > -1 And lInt < Limit Then
  12.         lReturn = Demo(lInt)
  13.     End If
  14.     ShowHelpMe = lReturn
  15. End Function
  16.  
  17. Public Function InitHelp() As Integer
  18.     Limit = 21
  19.     ReDim Demo(Limit)
  20.     ReDim DName(Limit)
  21.     
  22.     Demo(1) = "ASSIGNMENTS" + _
  23.         vbCrLf + "Allows a variable to take on a value" + vbCrLf + _
  24.         vbCrLf + "Structure" + _
  25.         vbCrLf + "    x = A" + _
  26.         vbCrLf + "    x = A <OP> B <OP> C ..." + vbCrLf + _
  27.         vbCrLf + "Examples:" + _
  28.         vbCrLf + "    x = 5                      'Assigns to x the value 5" + _
  29.         vbCrLf + "    x = " + Chr(34) + "This is a Litteral String" + Chr(34) + " 'Assigns to x the Litteral String" + _
  30.         vbCrLf + "    x = y                      'Assigns to x the value of y" + vbCrLf + _
  31.         vbCrLf + "In structure 1, A can be either a Numeric or String Litteral," + _
  32.         vbCrLf + "or a Numeric or String Varriable" + _
  33.         vbCrLf + "In structure 2, A,B,and C can be either Literral Numeric Values," + _
  34.         vbCrLf + "or Numeric Varriables" + _
  35.         vbCrLf + "<OP> must be from the following set: {+,-,*,/,^}"
  36.     Demo(2) = "IF THEN : END IF" + _
  37.         vbCrLf + "Conditional structure that allows comparrisons" + vbCrLf + _
  38.         vbCrLf + "Structure:" + _
  39.         vbCrLf + "IF A <OP> B THEN" + _
  40.         vbCrLf + "      <Your Code>" + _
  41.         vbCrLf + "END IF" + vbCrLf + _
  42.         vbCrLf + "Examples:" + _
  43.         vbCrLf + "If x = 5 Then       'Only do the code if x is holding the value 5" + _
  44.         vbCrLf + "      Print " + Chr(34) + "You Typed in the number 5" + Chr(34) + _
  45.         vbCrLf + "END IF              'End the conditional code" + vbCrLf + _
  46.         vbCrLf + "If x <> MyName Then" + _
  47.         vbCrLf + "      Print " + Chr(34) + "You are not allowed access" + Chr(34) + _
  48.         vbCrLf + "      NoPass = True" + _
  49.         vbCrLf + "END IF" + vbCrLf + _
  50.         vbCrLf + "In the Strucure, A must be either a Numeric or String Varriable," + _
  51.         vbCrLf + "while B can be either a Numeric or String Varriable, or a Numeric" + _
  52.         vbCrLf + "or String Litteral." + _
  53.         vbCrLf + "<OP> must be from the following set: {=,<,<=,=<,=>,>=,<>}"
  54.     Demo(3) = "DO WHILE : LOOP         DO UNTIL : LOOP " + _
  55.         vbCrLf + "Recursive structure that allows reptition of a task, while, or until" + _
  56.         vbCrLf + "a condition is met" + vbCrLf + _
  57.         vbCrLf + "Structure:" + _
  58.         vbCrLf + "DO WHILE A = B          DO UNTIL A = B" + _
  59.         vbCrLf + "      <Your Code>                   <Your Code>" + _
  60.         vbCrLf + "LOOP                             LOOP" + vbCrLf + _
  61.         vbCrLf + "Examples:" + _
  62.         vbCrLf + "DO WHILE x = " + Chr(34) + "N" + Chr(34) + _
  63.         vbCrLf + "      Print " + Chr(34) + "Would you like to quit" + Chr(34) + " ;" + _
  64.         vbCrLf + "      Input x" + _
  65.         vbCrLf + "Loop" + vbCrLf + _
  66.         vbCrLf + "y = 5" + _
  67.         vbCrLf + "DO Until x = y      'Repeate the code until x and y have the same value" + _
  68.         vbCrLf + "      t = t + x * 4" + _
  69.         vbCrLf + "      print t" + _
  70.         vbCrLf + "Loop                     'End the loop" + vbCrLf + _
  71.         vbCrLf + "In the structure, A is a Numeric or String Varriable," + _
  72.         vbCrLf + "while B can be either a Numeric or String Variable or Litteral" + _
  73.         vbCrLf + "This structure can be used to control Program Termination"
  74.     Demo(4) = "FOR TO : NEXT" + _
  75.         vbCrLf + "Recursive structure that allows a specified number of repetitions " + _
  76.         vbCrLf + "of a task" + vbCrLf + _
  77.         vbCrLf + "Structure:" + _
  78.         vbCrLf + "FOR A = B TO C" + _
  79.         vbCrLf + "   <Your Code>" + _
  80.         vbCrLf + "NEXT" + vbCrLf + _
  81.         vbCrLf + "Examples:" + _
  82.         vbCrLf + "For i = 1 To 25       'Repete the code 25 times" + _
  83.         vbCrLf + "   x= x+ 1" + _
  84.         vbCrLf + "   Print x" + _
  85.         vbCrLf + "Next                        'End the loop" + vbCrLf + _
  86.         vbCrLf + "For i = x To y" + _
  87.         vbCrLf + "   z = z +(y + x^2)" + _
  88.         vbCrLf + "Next" + vbCrLf + _
  89.         vbCrLf + "In the structure, A (the index) is a Numeric Varriable," + _
  90.         vbCrLf + "while B can be either a Numeric Variable or Numeric Litteral" + _
  91.         vbCrLf + "This is a standard structure used to iterate through an Index"
  92.     Demo(5) = "INPUT" + _
  93.         vbCrLf + "This basic function allows the User to interact with your program" + vbCrLf + _
  94.         vbCrLf + "Structure:" + _
  95.         vbCrLf + "INPUT A         INPUT $A" + vbCrLf + _
  96.         vbCrLf + "Exapmles:" + _
  97.         vbCrLf + "Do Until x = " + Chr(34) + "quit" + Chr(34) + _
  98.         vbCrLf + "   Print " + Chr(34) + "Do you want to exit the program" + Chr(34) + " ;" + _
  99.         vbCrLf + "   Input $x       'x holds the string entered by the User" + _
  100.         vbCrLf + "Loop" + vbCrLf + _
  101.         vbCrLf + "Input x           'x holds the value enterd by the User" + _
  102.         vbCrLf + "t = x*5/2" + _
  103.         vbCrLf + "Print t" + vbCrLf + _
  104.         vbCrLf + "There are two types of Input, Integer and String." + _
  105.         vbCrLf + "To get a String Value from the User, prface the variable with" + _
  106.         vbCrLf + "the Dollar Symbol ($) as in Example 1." + _
  107.         vbCrLf + "To get an Integer Value from the User, do not preface the Variable."
  108.     Demo(6) = "INKEY" + _
  109.         vbCrLf + "This function returns a User Keystroke to a Variable" + vbCrLf + _
  110.         vbCrLf + "Structure:" + _
  111.         vbCrLf + "A = INKEY" + vbCrLf + _
  112.         vbCrLf + "Exapmle:" + _
  113.         vbCrLf + "x = Inkey     ' x will hold the character of the Users keystoke" + _
  114.         vbCrLf + "Print " + Chr(34) + "You just typed in " + Chr(34) + " ;" + _
  115.         vbCrLf + "Print x" + vbCrLf + _
  116.         vbCrLf + "In the Structure, A will be a String Variable if it is new." + _
  117.         vbCrLf + "To Make A an Integer, write the assignment A = 0 before using Inkey"
  118.     Demo(7) = "RANDOM" + _
  119.         vbCrLf + "Used to generate a random number" + vbCrLf + _
  120.         vbCrLf + "Structure:" + _
  121.         vbCrLf + "A = RANDOM" + _
  122.         vbCrLf + "A = RANDOM B" + _
  123.         vbCrLf + "A = RANDOM B C" + vbCrLf + _
  124.         vbCrLf + "Examples:" + _
  125.         vbCrLf + "x = Random            'Generates a Number between 0 and 100" + _
  126.         vbCrLf + "x = Random 5         'Gererates a Number between 0 and 5" + _
  127.         vbCrLf + "x = Random 3 36    'Generates a Number between 3 and 36" + _
  128.         vbCrLf + "x = Random x y      'Generates a Number between x and y" + _
  129.         vbCrLf + "NOTE: You cannot have a Comment on the same line as Structures 1 and 2"
  130.     Demo(8) = "CONCAT" + _
  131.         vbCrLf + "Used to add Strings together" + vbCrLf + _
  132.         vbCrLf + "Structure:" + _
  133.         vbCrLf + "A = CONCAT B + C" + vbCrLf + _
  134.         vbCrLf + "Example:" + _
  135.         vbCrLf + "y = " + Chr(34) + "That" + Chr(34) + _
  136.         vbCrLf + "x = CONCAT " + Chr(34) + "This And" + Chr(34) + " + y" + vbCrLf + _
  137.         vbCrLf + "In the structuer, A is a String Variable, B and C are either" + _
  138.         vbCrLf + "String Literrals, or String Variables"
  139.     Demo(9) = "PRINT" + _
  140.         vbCrLf + "This function is used to let your program communcaite with" + _
  141.         vbCrLf + "the User" + vbCrLf + _
  142.         vbCrLf + "Structure:" + _
  143.         vbCrLf + "PRINT A" + _
  144.         vbCrLf + "PRINT A ;" + vbCrLf + _
  145.         vbCrLf + "Examples:" + _
  146.         vbCrLf + "Print " + Chr(34) + "Hello" + Chr(34) + _
  147.         vbCrLf + "Print 5" + _
  148.         vbCrLf + "Print x" + _
  149.         vbCrLf + "Print x ;" + vbCrLf + _
  150.         vbCrLf + "Use the Semicolon (;) to Append the next Print to the same Line"
  151.     Demo(10) = "CLS" + vbCrLf + _
  152.         vbCrLf + "Structure:" + _
  153.         vbCrLf + "CLS" + vbCrLf + _
  154.         vbCrLf + "Example:" + _
  155.         vbCrLf + "Print " + Chr(34) + "Input 1 to Clear the screen" + Chr(34) + _
  156.         vbCrLf + "Input a" + _
  157.         vbCrLf + "If a = 1 Then" + _
  158.         vbCrLf + "      Cls            ' Clears the Program Window" + _
  159.         vbCrLf + "End If" + vbCrLf + _
  160.         vbCrLf + "Use this function to Clear the Program Window"
  161.     Demo(11) = "SPACE" + _
  162.         vbCrLf + "This function Prints a series of spaces" + vbCrLf + _
  163.         vbCrLf + "Structure:" + _
  164.         vbCrLf + "SPACE (A)" + vbCrLf + _
  165.         vbCrLf + "Examples:" + _
  166.         vbCrLf + "Space (20)     'Prints 20 spaces" + _
  167.         vbCrLf + "Space (x)      'Prints x Number of spaces" + vbCrLf + _
  168.         vbCrLf + "Use this function to format your programs output"
  169.     Demo(12) = "DIR" + _
  170.         vbCrLf + "Returns a Listing of a Directories (Folder) contents to the Program Window" + vbCrLf + _
  171.         vbCrLf + "Structure:" + _
  172.         vbCrLf + "DIR A" + _
  173.         vbCrLf + "DIR" + vbCrLf + _
  174.         vbCrLf + "Examples:" + _
  175.         vbCrLf + "Dir " + Chr(34) + "c:\MyDir" + Chr(34) + "       'Lists the contents of the Directory MyDir" + _
  176.         vbCrLf + "Dir  d                     'd is a Variable that holds the Directories path" + _
  177.         vbCrLf + "Dir                         'Lists the contents of the Current Directory" + vbCrLf + _
  178.         vbCrLf + "Use Dir to get a listing of a directories contents"
  179.     Demo(13) = "PATH" + _
  180.         vbCrLf + "Returns the Current Directory to the Program Window" + vbCrLf + _
  181.         vbCrLf + "Structure:" + _
  182.         vbCrLf + "PATH" + vbCrLf + _
  183.         vbCrLf + "Example:" + _
  184.         vbCrLf + "Path        'Example Result = c:\MyDir" + vbCrLf + _
  185.         vbCrLf + "Use this function to verify the Current Directory"
  186.     Demo(14) = "CHANGEDIR" + _
  187.         vbCrLf + "Changes the Current Directory" + vbCrLf + _
  188.         vbCrLf + "Structure:" + _
  189.         vbCrLf + "CHANGDIR A" + vbCrLf + _
  190.         vbCrLf + "Example:" + _
  191.         vbCrLf + "ChangeDir " + Chr(34) + "c:\ADir" + Chr(34) + vbCrLf + _
  192.         vbCrLf + "Use this function to changr the Current Directory"
  193.     Demo(15) = "DISPLAYFILE" + _
  194.         vbCrLf + "Returns a files contents to the Program Window" + vbCrLf + _
  195.         vbCrLf + "Structure:" + _
  196.         vbCrLf + "DISPLAYFILE A" + vbCrLf + _
  197.         vbCrLf + "Examples:" + _
  198.         vbCrLf + "DisplayFile " + Chr(34) + "C:\MyText.txt" + _
  199.         vbCrLf + "DisplayFile x" + vbCrLf + _
  200.         vbCrLf + "In the structure, A can be either a String Litteral, or a String Vairable" + _
  201.         vbCrLf + "Note: There is a 15KB Limit on the File Size"
  202.     Demo(16) = "SENDKEYS" + _
  203.         vbCrLf + "Sends A String To The Shelled Application" + vbCrLf + _
  204.         vbCrLf + "Structure:" + _
  205.         vbCrLf + "SENDKEYS A" + vbCrLf + _
  206.         vbCrLf + "Examples:" + _
  207.         vbCrLf + "SHELL " + Chr(34) + "C:/Windows/Calc.EXE" + Chr(34) + _
  208.         vbCrLf + "SENDKEYS " + Chr(34) + "5 {+} 5 {=}" + Chr(34) + vbCrLf + _
  209.         vbCrLf + "In the structure, A can be either a String Litteral, or a String Vairable" + _
  210.         vbCrLf + "Note: In this version onle ONE String/Variable can be sent per SENDKEYS COMMAND"
  211.     Demo(17) = "SHELL" + _
  212.         vbCrLf + "Starts Another Application" + vbCrLf + _
  213.         vbCrLf + "Structure:" + _
  214.         vbCrLf + "SHELL A" + vbCrLf + _
  215.         vbCrLf + "Examples:" + _
  216.         vbCrLf + "SHELL " + Chr(34) + "C:/Windows/Calc.EXE" + Chr(34) + _
  217.         vbCrLf + "SENDKEYS " + Chr(34) + "5 {+} 5 {=}" + Chr(34) + vbCrLf + _
  218.         vbCrLf + "In the structure, A can be either a String Litteral, or a String Vairable" + _
  219.         vbCrLf + "Note: In this version onle ONE String/Variable can be sent per SHELL COMMAND"
  220.     Demo(18) = "Quick Intro" + _
  221.         vbCrLf + "Below is short guide line to get you started" + vbCrLf + _
  222.         vbCrLf + "To start a program you have saved on the DeskTop, Just Drag and Drop the program" + _
  223.         vbCrLf + "onto the BSSOK BASIC Shortcut (See Windows Help for setting up ShortCuts)" + vbCrLf + _
  224.         vbCrLf + "You can use the Code Window to write programs, or any other Text Editor" + _
  225.         vbCrLf + "as long as you save the File as Text (a .txt extension)" + vbCrLf + _
  226.         vbCrLf + "Use the Help Files for more Information"
  227.     Demo(19) = "Known Bugs" + _
  228.         vbCrLf + "At this time there are no BUGS known that can adversly affect your system" + vbCrLf + _
  229.         vbCrLf + "Arithmetic:" + _
  230.         vbCrLf + "The arithmetic routine will not work with imbedded parenthesies in this version" + _
  231.         vbCrLf + "Full Mathematical Stements will be allowed in the next version" + vbCrLf + _
  232.         vbCrLf + "Only Two Data Types:" + _
  233.         vbCrLf + "There are only Integer and String Data Types in this version." + vbCrLf + _
  234.         vbCrLf + "TAB:" + _
  235.         vbCrLf + "There is a problem with iterpreting TAB characters in this version" + _
  236.         vbCrLf + "The work around is to use the SPACE Key instead of the TAB Key" + _
  237.         vbCrLf + "when writing code" + vbCrLf + _
  238.         vbCrLf + "If you find any BUGs using this program, please send an email to" + _
  239.         vbCrLf + "bugs@bssok.bizhosting.com" + _
  240.         vbCrLf + "include a discription of the problem along with as much detail as" + _
  241.         vbCrLf + "possible on when it occurs"
  242.     Demo(20) = "ABOUT MY DESKTOPBASICS" + _
  243.         vbCrLf + "This is an APLHA Version of BASIC using The Language Creation Core" + vbCrLf + _
  244.         vbCrLf + "MY DESKTOPBASICS is a small, functional BASIC Interpreter intended for the DeskTop. " + _
  245.         vbCrLf + "This ALPHA Version has only  two types: Strings and Integers." + _
  246.         vbCrLf + "As it develops, MY DESKTOPBASICS will incorporate more Types and Keywords." + _
  247.         vbCrLf + "After the Core is completed. There are plans for a small integrated compiler. " + _
  248.         vbCrLf + "If you have any comments or suggestions, please send an email to " + _
  249.         vbCrLf + "basic@bssok.bizhosting.com" + vbCrLf + _
  250.         vbCrLf + "If you want to be put on an upgrade list for future versions as they" + _
  251.         vbCrLf + "become available, send an email to " + _
  252.         vbCrLf + "addme@bssok.bizhosting.com" + vbCrLf + _
  253.         vbCrLf + "We thank you for using MY DESKTOPBASICS" + vbCrLf + _
  254.         vbCrLf + "'MY DESKTOPBASICS' Copyright 1999 BSSOK" + _
  255.         vbCrLf + "'The Language Creation Core' Copyright 1999 Robert Spoons"
  256.     
  257.         
  258.     DName(0) = "KeyWords"
  259.     DName(1) = "Assignment"
  260.     DName(2) = "IF...THEN...END"
  261.     DName(3) = "DO Loops"
  262.     DName(4) = "FOR Loops"
  263.     DName(5) = "INPUT"
  264.     DName(6) = "INKEY"
  265.     DName(7) = "RANDOM"
  266.     DName(8) = "CONACT"
  267.     DName(9) = "PRINT"
  268.     DName(10) = "CLS"
  269.     DName(11) = "SPACE"
  270.     DName(12) = "DIR"
  271.     DName(13) = "PATH"
  272.     DName(14) = "CHANGEDIR"
  273.     DName(15) = "DISPLAYFILE"
  274.     DName(16) = "SENDKEYS"
  275.     DName(17) = "SHELL"
  276.     DName(18) = "Quick Intro"
  277.     DName(19) = "Known Bugs"
  278.     DName(20) = "ABOUT BSSOKBASIC"
  279.     InitHelp = Limit
  280.     
  281.     Examples(0) = "DO UNTIL X = " + Chr(34) + "Q" + Chr(34) + _
  282.     vbCrLf + "CLS" + _
  283.     vbCrLf + "GAMES=GAMES+1" + _
  284.     vbCrLf + "PRINT " + Chr(34) + "I AM THINKING OF A NUMBER BTEWEEN 1 AND 2" + Chr(34) + _
  285.     vbCrLf + "PRINT " + Chr(34) + "TRY GUESSING WHAT IT IS" + Chr(34) + _
  286.     vbCrLf + "PRINT " + Chr(34) + "YOUR GUESS " + Chr(34) + " ;" + _
  287.     vbCrLf + "RESPONSE = " + Chr(34) + "WRONG" + Chr(34) + _
  288.     vbCrLf + "R = RANDOM 1 2" + _
  289.     vbCrLf + "INPUT Guess" + _
  290.     vbCrLf + "IF Guess = R THEN" + _
  291.     vbCrLf + "         SCORE = SCORE + 2" + _
  292.     vbCrLf + "         CORRECT = CORRECT + 1" + _
  293.     vbCrLf + "         RESPONSE = " + Chr(34) + "CORRECT" + Chr(34) + _
  294.     vbCrLf + "END IF" + _
  295.     vbCrLf + "PRINT " + Chr(34) + "MY NUMBER WAS    " + Chr(34) + " ;" + _
  296.     vbCrLf + "PRINT R" + _
  297.     vbCrLf + "PRINT " + Chr(34) + "YOUR GUESS WAS    " + Chr(34) + " ;" + _
  298.     vbCrLf + "PRINT RESPONSE" + _
  299.     vbCrLf + "SCORE = SCORE - 1" + _
  300.     vbCrLf + "PRINT " + Chr(34) + "YOUR SCORE IS NOW    " + Chr(34) + " ;" + _
  301.     vbCrLf + "PRINT SCORE" + _
  302.     vbCrLf + "PRINT " + Chr(34) + " " + Chr(34) + _
  303.     vbCrLf + "PRINT " + Chr(34) + "DO YOU WANT TO SEE YOUR SCORE? (Y/N): " + Chr(34) + " ;" + _
  304.     vbCrLf + "ANSWER = INKEY" + _
  305.     vbCrLf + "IF ANSWER = " + Chr(34) + "Y" + Chr(34) + " THEN" + vbCrLf
  306.     Examples(1) = "            CLS" + _
  307.     vbCrLf + "SPACE (10)" + _
  308.     vbCrLf + "            DATE" + _
  309.     vbCrLf + "SPACE (10)" + _
  310.     vbCrLf + "             TIME" + _
  311.     vbCrLf + "            PRINT " + Chr(34) + "YOU HAVE PLAYED " + Chr(34) + " ;" + _
  312.     vbCrLf + "            PRINT GAMES ;" + _
  313.     vbCrLf + "            PRINT " + Chr(34) + " GAMES" + _
  314.     vbCrLf + "            PRINT " + Chr(34) + "YOU HAVE WON " + Chr(34) + " ;" + _
  315.     vbCrLf + "            PRINT CORRECT ;" + _
  316.     vbCrLf + "            PRINT " + Chr(34) + "OF THEM." + Chr(34) + _
  317.     vbCrLf + "            PRINT " + Chr(34) + "YOUR CURRENT SCORE IS " + Chr(34) + " ;" + _
  318.     vbCrLf + "            PRINT SCORE" + _
  319.     vbCrLf + "            PRINT " + Chr(34) + " " + Chr(34) + _
  320.     vbCrLf + "            PRINT " + Chr(34) + "(Hit any key to continue)" + Chr(34) + _
  321.     vbCrLf + "            DUMMY = INKEY" + _
  322.     vbCrLf + "END IF" + _
  323.     vbCrLf + "PRINT " + Chr(34) + " " + Chr(34) + _
  324.     vbCrLf + "PRINT " + Chr(34) + "Any Key Except 'Q' Continues The Game" + Chr(34) + " ;" + _
  325.     vbCrLf + "X = INKEY" + _
  326.     vbCrLf + "CLS" + _
  327.     vbCrLf + "LOOP" + _
  328.     vbCrLf + "DATE" + _
  329.     vbCrLf + "TIME" + _
  330.     vbCrLf + "PRINT " + Chr(34) + "AFTER PLAING " + Chr(34) + " ;" + vbCrLf
  331.     Examples(2) = "PRINT GAMES ;" + _
  332.     vbCrLf + "PRINT " + Chr(34) + "GAMES" + Chr(34) + _
  333.     vbCrLf + "PRINT " + Chr(34) + "YOUR SCORE IS " + Chr(34) + " ;" + _
  334.     vbCrLf + "PRINT SCORE" + _
  335.     vbCrLf + "PRINT " + Chr(34) + " " + Chr(34) + _
  336.     vbCrLf + "PRINT " + Chr(34) + "PLAY AGAIN SOON" + _
  337.     vbCrLf + "PRINT " + Chr(34) + " " + Chr(34) + _
  338.     vbCrLf + "FOR i = 1 TO 100" + _
  339.     vbCrLf + "NEXT" + _
  340.     vbCrLf + "PRINT " + Chr(34) + "ANY KEY TERMINATES THE PROGRAM" + _
  341.     vbCrLf + "X = INKEY"
  342.     
  343. End Function
  344.  
  345. Public Function HelpName(lInt As Integer) As String
  346. Dim lReturn As String
  347.  
  348.     lReturn = ""
  349.     
  350.     If lInt > -1 And lInt < Limit Then
  351.         lReturn = DName(lInt)
  352.     End If
  353.     
  354.     HelpName = lReturn
  355.     
  356. End Function
  357.  
  358. Public Function Example(lInt As Integer) As String
  359.  
  360.     Example = Examples(lInt)
  361.     
  362. End Function
  363.