home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TURBOGEN.ZIP / GLOBTYPE.GEN < prev    next >
Encoding:
Text File  |  1987-10-21  |  3.1 KB  |  78 lines
  1.                         (* Global Declarations *)
  2. CONST
  3.                    (* 8086/8088 hardware flags *)
  4.    carry_flag     = 1;
  5.    parity_flag    = 4;
  6.    aux_carry_flag = 16;
  7.    zero_flag      = 64;
  8.    sign_flag      = 128;
  9.  
  10.                    (* Getstring input utility consts *)
  11.    caps           = TRUE;
  12.    no_caps        = FALSE;
  13.    numeric        = TRUE;
  14.    non_numeric    = FALSE;
  15.    yes_real       = TRUE;
  16.    not_real       = False;
  17.  
  18. TYPE
  19.    anystr   = STRING[255](* Matches any string for parameter passing *);
  20.    str80    = String[80] (* use for screen handling and some input   *);
  21.    shortstr = STRING[30] (* Short string *);
  22.    keystr   = STRING[65] (* Function key string *);
  23.    filestr  = STRING[65] (* File name string *);
  24.    regpack  = RECORD     (* 8086/8088 registers                      *)
  25.                  CASE INTEGER OF
  26.                     1: ( Ax, Bx, Cx, Dx, Bp, Si, Di, Ds, Es, Flags : INTEGER );
  27.                     2: ( Al, Ah, Bl, Bh, Cl, Ch, Dl, Dh            : BYTE    );
  28.                  END; {case/record}
  29.  
  30. (*-----------------------------------------------------------------*)
  31. (*                   Global Color Variables                        *)
  32. (*-----------------------------------------------------------------*)
  33.  
  34. Var
  35.    foreground_color    : Integer (* Color for ordinary text *);
  36.    background_color    : Integer (* Usual background color  *);
  37.    menu_text_color     : Integer (* Color for menu text     *);
  38.    menu_frame_color    : Integer (* Color for menu frame    *);
  39.    active,inactive     : Integer (* Getstring data field colors *);
  40.    charflag            : char;
  41.    write_screen_memory : boolean;
  42.    menu_i              : integer;
  43.    Text_Mode           : Integer;
  44.  
  45. (*-----------------------------------------------------------------*)
  46. (*                   GetString    Variables                        *)
  47. (*-----------------------------------------------------------------*)
  48.  
  49. r                :  Real;
  50. str1             :  String[255];
  51. error,i          :  Integer;
  52. curr_field       :  integer;
  53.  
  54. (*----------------------------------------------------------------------*)
  55. (*               ASCII character set definitions                        *)
  56. (*----------------------------------------------------------------------*)
  57.  
  58. CONST
  59.  
  60.    NUL  = 0          (* NULL Character  *);
  61.    ETX  = 3          (* ETX = ^C        *);
  62.    ENQ  = 5          (* ENQ Character   *);
  63.    BELL = 7          (* BELL Character  *);
  64.    BS   = 8          (* Backspace Char  *);
  65.    HT   = 9          (* Horizontal Tab  *);
  66.    LF   = 10         (* Line Feed       *);
  67.    VT   = 11         (* Vertical Tab    *);
  68.    FF   = 12         (* Form Feed       *);
  69.    CR   = 13         (* Carriage Return *);
  70.    SO   = 14         (* Start grahics   *);
  71.    SI   = 15         (* End graphics    *);
  72.    XON  = 17         (* XON  Character  *);
  73.    XOFF = 19         (* XOFF Character  *);
  74.    SUB  = 26         (* EOF Character   *);
  75.    ESC  = 27         (* Escape          *);
  76.    SP   = 32         (* Space           *);
  77.    DEL  = 127        (* DEL  Character  *);
  78.