home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
clipper
/
nannws31.arc
/
EX02_PAS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-08-09
|
909b
|
40 lines
{ Pascal source code - udf procedure }
{ Copyright (c) 1988 Nantucket Corp. }
Module ClipPas;
#include "nandef.inc"
#include "extend.inc"
procedure udf(vars x,y,z : integer);
{ One char parameter is received by far reference. }
{ Far reference is specified with the VARS keyword. }
var
ptr1 : adsdate;
ptr2 : adsdate;
ptr3 : adsdate;
str1 : datestr;
str2 : datestr;
str3 : datestr;
begin
ptr1 := _pards(1);
ptr2 := _pards(2);
ptr3 := _pards(3);
str1 := _pards(1)^;
str2 := _pards(2)^;
str3 := _pards(3)^;
WriteLn('DATE ', _pards(1)^);
WriteLn('DATE ', _pards(2)^);
WriteLn('DATE ', _pards(3)^);
WriteLn('DATE ', _pards(1)^, _pards(2)^, _pards(3)^);
WriteLn('DATE ', ptr1^, ptr2^, ptr3^);
WriteLn('DATE ', str1, str2, str3);
end;
end.