home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST0301.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-11-19  |  453 b   |  25 lines
  1. { Start Pascal code example }
  2. Program Temp;
  3.  
  4. Uses 
  5.   Crt;
  6.  
  7. Var
  8.   TextAttr   : Byte;    { Define TextAttr locally }
  9.   MyTextAttr : Byte absolute CRT.TextAttr; { Point to CRT unit:TextAttr }
  10.   Test       : Byte;    { Local garabage variable }
  11.  
  12. {$L TEMP.OBJ}
  13.  
  14. {$F+}
  15. Function MyFunc1 : Word; external;
  16. Function MyFunc2 : Word; external;
  17. {$F-}
  18.  
  19. Begin
  20.   test := MyFunc1;
  21.   WriteLn ( test );
  22.   test := MyFunc2;
  23.   WriteLn ( test );
  24. End.
  25.