home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB33.ZIP / FAREXAM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-02-10  |  1.1 KB  |  41 lines
  1.  
  2.   {$V-}
  3. PROGRAM farexam;
  4.     {-demonstrate BigTurbo techniques}
  5.     {this file holds code for the extra segment}
  6.  
  7.     {first BigTurbo include file - before everything else}
  8.     {$I far1.inc}
  9.  
  10.     {all your global variables and declarations are in following file}
  11.     {$I exam.glo}
  12.  
  13.     {your procedures follow}
  14.  
  15.   PROCEDURE farproc1;
  16.       {-demonstrate a local call in the extra segment}
  17.     BEGIN
  18.       WriteLn('got to farproc1');
  19.       WriteLn('calling mainproc2 in main code segment');
  20.       MakeLongCall('mainproc2');
  21.       WriteLn('back from mainproc2');
  22.     END;                      {farproc1}
  23.  
  24.   PROCEDURE farproc2;
  25.       {-just demonstrate getting here from main segment}
  26.     BEGIN
  27.       WriteLn('got to farproc2 from main code');
  28.       WriteLn('calling local procedure farproc1 in far code');
  29.       farproc1;
  30.       WriteLn('returned from farproc1');
  31.     END;                      {farproc2}
  32.  
  33.     {second BigTurbo include file - after all your procedures}
  34.     {$I far2.inc}
  35.  
  36.   BEGIN
  37.     {this block should normally be empty}
  38.     {you can use it to directly call procedures in this program during debugging}
  39.   END.
  40.  
  41.