home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / PROGRAM / BASIC / POWBASIC / LIBRARY3 / APLIB.ZIP / APL-QREF.BAS < prev    next >
BASIC Source File  |  1990-11-23  |  5KB  |  103 lines
  1.  
  2.              QUICK REFERENCE FOR HB'S ALL-PURPOSE LIBRARY:
  3.  
  4.   note: I have a .BAS extension on my filename so I'll come up on the pick
  5.    list and you can pop me up quickly. Don't try to compile me !!
  6.  
  7.                 >>>>>>>>>>>>> in SETUP-H.BAS  <<<<<<<<<<<<<
  8. DEFINT A-Z
  9.  DEFINE's: %False,  %True; Register names;  %Background = 16  %Center = 0
  10.  PRINTERS:  %Star10X = 1:  %StarNX1000 = 2:  %IBMX24 = 3:  %LQ2500 = 4
  11.  
  12.                             ((( COLORS )))
  13.    %Blk = 0:     %Blu = 1:    %Grn = 2:    %Cyn = 3:    %Red = 4:     %Vlt = 5
  14.    %Brn = 6:     %Gry = 7:    %DGry = 8:   %LBlu = 9:   %LGrn = 10:   %LCyn = 11
  15.    %LRed = 12:   %Pnk = 13:   %Ylo = 14:   %Wht = 15:   %Flash = 256
  16.  
  17.                >>>>>>>>>>>>> in INIT-U.BAS  <<<<<<<<<<<<<
  18. SUB Initialize (PrinterType)
  19. InitPrt$ GraphicsChrSetOn$ GraphicsChrSetOff$ BoldPrtOn$ BoldPrtOff$
  20. ItalicPrtOn$ ItalicPrtOff$ RegPrt$ FastPrt$ WidePrt$ BigPrtOn$ BigPrtOff$
  21. LQPrt$ DraftPrt$ MicroPrtOn$ MicroPrtOff$ ElitePrt$ PicaPrt$ NeedDCon VideoSeg& = &HB800: CursorTop = 6: CursorBottom = 7
  22.  
  23.                >>>>>>>>>>>>> in FENTRY-U.BAS  <<<<<<<<<<<<<
  24.  %ReadRodent = 3                      %RightButton = 2
  25.  %LeftButton = 1                      %MaxDecPlaces = 4
  26. SUB ENTERSTRING (Wkg$,FLength,Opt$)
  27. SUB ENTERNUMBER  (Wkg#, Masq$, Opt$)   SUB ENTERSSN  (A$, Opt$)
  28. SUB ENTERDATE  (A$, Opt$)              SUB FASTPHONE  (A$, Opt$)
  29. SUB RotaDate  (D$,Opt$)                SUB PressAKey
  30. SUB ENTERTIME  (A$, Opt$)              FUNCTION GetYesOrNo
  31.                                        SUB ENTERYESNO  (Yes)
  32.  
  33.            >>>>>>>>>>>>> in BOXES-U.BAS  <<<<<<<<<<<<<
  34. SUB BOXMESSAGE(CornerLin, CornerCol, Margin)
  35. SUB BOXMESSAGE2 (CornerLin, CornerCol, Margin, I$(1), Items%, Maxx)
  36. SUB POPWINDOW
  37. SUB PWSetUp (Fld$,Z)
  38. SUB QBOX (L, C, Lines%, Message$, AnsFldLength)
  39.  
  40.                              >>>>>>>>>>>>> in MENUS-U.BAS  <<<<<<<<<<<<<
  41. SUB TOPMENU (Lines% ,Choice, TLine$)
  42. SUB POPMENU (TopKey$,MenuRight,MenuDown,Choice,MLine$,MCode$)
  43. SUB SUPERMENU (MenuData$ (), MenuRight, MenuDown, Choice, Title$, Ky%)
  44.  
  45.  
  46. '   ====
  47. ' Notes:               *** HOW TO USE SUPERMENU ***
  48. '                         ===================
  49. '
  50. '        MENU SETUP: THE MenuData$ ARRAY:
  51. '           Each choice on your menu is represented by one string element in
  52. '           this array. The decription of each choice -- for example, "LOAD",
  53. '           will start with the third character of this string. If you are
  54. '           specifying the hot-key for each choice put it into the first
  55. '           character -- set MenuData$ (1) as something like "L LOAD". To let
  56. '           the software number or letter the items in order for you, set
  57. '           MenuData$ as just "  LOAD". (If there are <11 items, numbers
  58. '           are used rather than letters.) After the last menu item, you
  59. '           must set the next array element as "END".
  60. '        PASSING HELP LINES TO MENU: Set MenuHelpLine$() to contain lines (up
  61. '           to 80 chr long) to appear at screen bottom whenever the
  62. '           corresponding menu choice is highlighted.
  63. '        POSITION OF MENU ONSCREEN ETC.: MenuRight moves it right or left -- 0
  64. '           is top center. MenuDown moves it -- you guessed it! Errors will be
  65. '           trapped. Vertical centering is gotten by setting MenuDown = 25.
  66. '           Usually set Choice = 1.  Title$ is title of menu.
  67.  
  68. ' *** AFTER MENU ROUTINE: Choice will hold the choice #. Title$ reset to "".
  69. '           MKeyPressed$ if the actual key used (if mouse was used it
  70. '           simulates the CR key, i.e. CHR$(13)) -- or if [ESC] or a legal
  71. '           function key was pressed it contains "ESC", "PgDn", "PgUp", "F1",
  72. '           or "F2".
  73.  
  74.               >>>>>>>>>>>>> in FIGDAT-U.BAS  <<<<<<<<<<<<<
  75.  
  76.  FUNCTION FigDate&(A$)
  77.  FUNCTION WriteDate$ (W&)
  78.  FUNCTION WkDay$(W&)
  79.  FUNCTION YearsSince (D0$)
  80.  FUNCTION FlipDate$ (WrittenDate$)
  81.  FUNCTION UnflipDate$ (FlippedDate$)
  82.  
  83.                    >>>>>>>>>>>>> in MISC-U.BAS  <<<<<<<<<<<<<
  84.  
  85. SUB SCREENPUSH
  86. SUB SCREENPOP
  87. SUB RestoreDOSScreen
  88. SUB PRINTLINE (L$)
  89. SUB FileFunctions (MenuRight, MenuDown, Choice$)
  90. FUNCTION IsBlank (W$)
  91. FUNCTION GetAttr
  92. FUNCTION IsRodent           ' finds if you have a rodent and also resets it
  93. SUB Mouse(MV1, MV2, MV3, MV4)
  94. FUNCTION GetCurrentDrive$
  95. FUNCTION GetCurrentDir$
  96. FUNCTION GetFreeSpace! (Drv$)
  97. FUNCTION ReadParamFor (A$)        ' this reads parameters from the command tail
  98. SUB ClearLine
  99. SUB DirFirst (F$, FileSize&, DateCode&, TimeCode&)
  100. SUB DirNext (F$, FileSize&, DateCode&, TimeCode&)
  101. FUNCTION DecodeDate$ (DateCode&)
  102. FUNCTION DecodeTime$ (TimeCode&)
  103.