home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 14 / CDACTUAL.iso / cdactual / demobin / share / program / Basic / STDLIB.ZIP / STDLIB.INC < prev    next >
Encoding:
Text File  |  1990-10-04  |  2.2 KB  |  40 lines
  1. '  Standard Library Include File
  2.  
  3.   'Program Declarations
  4.     DECLARE FUNCTION Get.MDY% (ymddate$)               'Returns Days since 01/01
  5.     DECLARE FUNCTION FileName$ (filespec$)             'Returns File (test.exe)
  6.     DECLARE FUNCTION FreeWind% ()                      'Returns next window #
  7.     DECLARE FUNCTION DriveName$ (filespec$)            'Returns Drive (C:)
  8.     DECLARE FUNCTION Pad$ (Number%, Padby%, Padwith%)  'Returns Left Padded Int String
  9.     DECLARE FUNCTION PadL$ (Number&, Padby%, Padwith%) 'Returns Left Padded Lng Int Str
  10.     DECLARE FUNCTION PadS$ (Number$, Padby%, Padwith%) 'Returns Left Padded String
  11.     DECLARE FUNCTION PathName$ (filespec$)             'Returns Path (C:\QB45\)
  12.     DECLARE FUNCTION Show$ (Show.String$, Show.Len%)   'Returns Right Padded Str
  13.  
  14.     DECLARE SUB BANNER (Row%, L.Side$, Center$, R.Side$, LType%)
  15.     DECLARE SUB BOX.MENU (Row%, Col%, Hdr$, menu%, M$(), H$(), choice%, Allow.Exit%, Prompt%)
  16.     DECLARE SUB BOXSCRN (style%)
  17.     DECLARE SUB CLOSE.WINDOW (wid%)
  18.     DECLARE SUB DISPLAY.MSG (Row%, Col%, items%, msg$(), Hdr$, Get.Item%, selected%, flag%)
  19.     DECLARE SUB F.LINE (keys$())
  20.     DECLARE SUB GETNUMBER (Hdr$, msg$, L%, S$, F%)
  21.     DECLARE SUB GETNUMBER2 (Hdr$, Msg1$, Msg2$, L%, s1$, s2$, F%)
  22.     DECLARE SUB GET.INPUT (Row%, Col%, C.pos%, C.type%, AR.Flag%, C.Flag%, Blank%, I.Color%, Format$, Linp$, M.len%, E.Flag%, kb%)
  23.     DECLARE SUB GET.FORMAT (kb%, kb$, C.pos%, Format$, Pass%)
  24.     DECLARE SUB GETSTRING (x1%, y1%, hgt%, Hdr$, msg$, L%, accept$, Format$, S$, F%)
  25.     DECLARE SUB GETSTRINGS (x1%, y1%, hgt%, Hdr$, msgs$(), msgs%, L%, accept$(), Format$(), S$(), F%)
  26.     DECLARE SUB LITDATE (Indate$, Outdate$)
  27.     DECLARE SUB LOTUSMENU (Row%, Col%, M$(), H$(), M.Item%, choice%)
  28.     DECLARE SUB ONSCREEN (R%, c%, msg$, csr%, attr%)
  29.     DECLARE SUB MAXWID (M.Item%, msg$(), max.wid%)
  30.     DECLARE SUB PCENTER (R%, C1%, C2%, msg$, attr%)
  31.     DECLARE SUB PDEFAULT (Row%, Col1%, Col2%, Msg1$, Msg2$, Length%)
  32.     DECLARE SUB PRINT.CHARSTRING (Row%, Col%, FmtString$, I.Color%)
  33.     DECLARE SUB WEEKDAY (Dte$, Day%, Ddy%, Day$, NDay$, Month$)
  34.   
  35.   'Window Arrays used in STDLIB
  36.     DIM SHARED Free.Window%(32), msg.array%(1000), pop.array%(1000), w.array%(32000)
  37.  
  38.     CALL SYSINIT(4, mono%)        'Initialize Windows/STDLIB Functions
  39.  
  40.