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