home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 05 / t3_tsr / scan.inc < prev    next >
Encoding:
Text File  |  1988-02-24  |  1.4 KB  |  31 lines
  1. (* ------------------------------------------------------ *)
  2. (*                       SCAN.INC                         *)
  3.  
  4. CONST
  5.     Eins            = $0231;    Zwei            = $0332;
  6.     Drei            = $0433;    Vier            = $0534;
  7.     Fuenf           = $0635;    Sechs           = $0736;
  8.     Sieben          = $0837;    Acht            = $0938;
  9.     Neun            = $0A39;    Null            = $0B30;
  10.     Alt_Eins        = $7800;    Alt_Zwei        = $7900;
  11.     Alt_Drei        = $7A00;    Alt_Vier        = $7B00;
  12.     Alt_Fuenf       = $7C00;    Alt_Sechs       = $7D00;
  13.     Alt_Sieben      = $7E00;    Alt_Acht        = $7F00;
  14.     Alt_Neun        = $8000;    Alt_Null        = $8100;
  15.     Klein_d         = $2064;    Klein_i         = $1769;
  16.     Klein_q         = $1071;    Klein_s         = $1F73;
  17.     Klein_z         = $2C7A;    Gross_D         = $2044;
  18.     Gross_I         = $1749;    Gross_Q         = $1051;
  19.     Gross_S         = $1F53;    Gross_Z         = $2C5A;
  20.     Alt_D           = $2000;    Alt_I           = $1700;
  21.     Alt_M           = $3200;    Alt_Q           = $1000;
  22.     Alt_S           = $1F00;    Alt_Z           = $2C00;
  23.     Pfu             = $5000;    Pdn             = $5100;
  24.     Pfl             = $4B00;    Pfr             = $4D00;
  25.     Pfo             = $4800;    Pup             = $4900;
  26.  
  27. (* ------------------------------------------------------ *)
  28. (*                 Ende von SCAN.INC                      *)
  29.  
  30.  
  31.