home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / NANNWS31.ARC / EX02_PAS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-09  |  909 b   |  40 lines
  1. { Pascal source code - udf procedure }
  2. { Copyright (c) 1988 Nantucket Corp. }
  3. Module ClipPas;
  4.  
  5. #include "nandef.inc"
  6. #include "extend.inc"
  7.  
  8.    procedure udf(vars x,y,z : integer);
  9.    { One char parameter is received by far reference.  }
  10.    { Far reference is specified with the VARS keyword. }
  11.  
  12.    var
  13.       ptr1 : adsdate;
  14.       ptr2 : adsdate;
  15.       ptr3 : adsdate;
  16.       str1 : datestr;
  17.       str2 : datestr;
  18.       str3 : datestr;
  19.  
  20.    begin
  21.       ptr1 := _pards(1);
  22.       ptr2 := _pards(2);
  23.       ptr3 := _pards(3);
  24.  
  25.       str1 := _pards(1)^;
  26.       str2 := _pards(2)^;
  27.       str3 := _pards(3)^;
  28.  
  29.       WriteLn('DATE ', _pards(1)^);
  30.       WriteLn('DATE ', _pards(2)^);
  31.       WriteLn('DATE ', _pards(3)^);
  32.  
  33.       WriteLn('DATE ', _pards(1)^, _pards(2)^, _pards(3)^);
  34.  
  35.       WriteLn('DATE ', ptr1^, ptr2^, ptr3^);
  36.  
  37.       WriteLn('DATE ', str1, str2, str3);
  38.   end;
  39. end.
  40.