home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / pcmag / vol8n19.arc / FIRSLAST.PAS < prev    next >
Pascal/Delphi Source File  |  1989-10-02  |  1KB  |  45 lines
  1. FIRSTLAST.PAS
  2.  
  3.  
  4.  
  5. {$R+}
  6. PROGRAM FirstLast;
  7. TYPE
  8.   value = (excellent, good, fair, poor, terrible);
  9.   years = 1953..1989;
  10.   biggy = 100000..200000;
  11. VAR
  12.   valuevar : value;
  13.   yearsvar : years;
  14.   biggyvar : biggy;
  15.   firsone, Lastone : LongInt;
  16.  
  17.   FUNCTION last:LongInt;
  18.   INLINE(
  19.     $26/$8B/$55/$06/    {MOV    DX,ES:[DI+06]}
  20.     $26/$8B/$45/$04);   {MOV    AX,ES:[DI+04]}
  21.  
  22.   FUNCTION First:LongInt;
  23.   INLINE(
  24.     $26/$8B/$55/$02/    {MOV    DX,ES:[DI+02]}
  25.     $26/$8B/$45/$00);   {MOV    AX,ES:[DI+00]}
  26.  
  27. BEGIN
  28.   valuevar := excellent;
  29.   yearsvar := 1980;
  30.   biggyvar := 150000;
  31.   valuevar := valuevar; lastone := last;
  32.   valuevar := valuevar; firsone := first;
  33.   WriteLn('Limits of VALUE type are ',firsone,' to ',lastone);
  34.   yearsvar := yearsvar; lastone := last;
  35.   yearsvar := yearsvar; firsone := first;
  36.   WriteLn('Limits of YEARS type are ',firsone,' to ',lastone);
  37.   biggyvar := biggyvar; lastone := last;
  38.   biggyvar := biggyvar; firsone := first;
  39.   WriteLn('Limits of BIGGY type are ',firsone,' to ',lastone);
  40. END.
  41.  
  42.  
  43.  
  44.  
  45.