home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library3 / aplib-h.bas < prev    next >
BASIC Source File  |  1990-10-10  |  2KB  |  63 lines
  1.  
  2. DEFINT A-Z
  3.  
  4. '                                              compiler instructions ...
  5.  %False =  0
  6.  %True  =  NOT %False '                       basic truths of the universe ...
  7.  %Yes = %True
  8.  %No = %False
  9.  
  10.   %FLAGS = 0:  %AX = 1:  %BX = 2:  %CX = 3:  %DX = 4
  11.      %SI = 5:  %DI = 6:  %BP = 7:  %DS = 8:  %ES = 9
  12.  
  13.  %Background = 16
  14.  %Center = 0
  15.  
  16. 'Printer Codes
  17.         %Star10X = 1:  %StarNX1000 = 2:  %IBMX24 = 3:  %LQ2500 = 4
  18.  
  19.  
  20. 'Color #s
  21.   %Blk = 0:     %Blu = 1:    %Grn = 2:    %Cyn = 3:    %Red = 4:     %Vlt = 5
  22.   %Brn = 6:     %Gry = 7:    %DGry = 8:   %LBlu = 9:   %LGrn = 10:   %LCyn = 11
  23.   %LRed = 12:   %Pnk = 13:   %Ylo = 14:   %Wht = 15:   %Flash = 256
  24.  
  25.  %LeftButton = 1
  26.  %RightButton = 2
  27.  %UDVal = 3 '                  controls mouse sensitivity in POPMENU
  28.  %MouseIcon = 15 '              ... a little sun or bug character
  29.  %MaxMenuWidth = 40
  30.  
  31.  DIM DYNAMIC FieldName$(20),FieldMask$(20),FL(20),FC(20)
  32.  DIM DYNAMIC ScreenStack$ ( 1 : %ScrnStackSize )
  33.  
  34.  ScrnStackSize = %ScrnStackSize
  35.  
  36.  DIM DYNAMIC MenuData$ (24) ' max menu length = 23; need one more for the "END"
  37.  DIM DYNAMIC MenuHelpLine$ (23)
  38.  DIM DYNAMIC MCode$ (23)
  39.  
  40.  
  41. '  MENU RETURN CODES (KEY PRESSED.)
  42.       %CR = 0:    %Esc = &H20:          %F1 = &H100:           %F2 = &H200
  43.             %PgUp = &H400:              %PgDn = &H600
  44.             %RArrow = &H800:            %LArrow = &HA00
  45.  
  46.   %Okay               =   0
  47.   %FileNotFound       = 1000   'You tried to open a non-existant file
  48.   %FileAlreadyCreated = 1001   'You tried to create an already-created file.
  49.   %InvalidCall        = 1002   'You used a command that doesn't exist.
  50.   %FileNotDBLOW       = 1003   'The file exists, but is not an DBLOW file.
  51.   %TooManyFiles       = 1004   'You have opened more than MaxFiles files.
  52.   %KeyNotFound        = 1005   'You have referenced a non-existant key.
  53.   %EndOfFile          = 1006   '
  54.   %FileNotOpen        = 1007
  55.   %KeyAlreadyExists   = 1008
  56.   %TooManyKeys        = 1009
  57.   %FileNotDBHIGH      = 1010
  58.   %FileAllowsDups     = 1011   'You tried to open a Duplicate-key file in
  59.                                'non-Duplicate mode
  60.   %BadParameter       = 1012   'Parameter out of range
  61.  
  62.  
  63.