home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library4 / setup-h.bas < prev    next >
Encoding:
BASIC Source File  |  1990-09-16  |  1.4 KB  |  45 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.