home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / visionix / test / txproc.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1993-12-29  |  502 b   |  53 lines
  1. Uses VxProcu, VCrtu, VGenu;
  2.  
  3.  
  4. Procedure One; Far;
  5. BEGIN
  6.  
  7.   writeln( 'One' );
  8.  
  9. END;
  10.  
  11. Procedure Two; Far;
  12. BEGIN
  13.  
  14.   writeln( 'Two' );
  15.  
  16. END;
  17.  
  18. Procedure Three; Far;
  19. BEGIN
  20.  
  21.   writeln( 'Three' );
  22.  
  23. END;
  24.  
  25. Procedure Four; Far;
  26. BEGIN
  27.  
  28.   writeln( 'Four' );
  29.  
  30. END;
  31.  
  32.  
  33. Var
  34.  
  35.   Err : INTEGER;
  36.  
  37. BEGIN
  38.  
  39.   ClrScr;
  40.  
  41.   WriteLn('*GO*');
  42.  
  43.   VProcPush( @One );
  44.   VProcPush( @Two );
  45.   VProcPush( @Three );
  46.   VProcPush( @Four );
  47.  
  48.   VProcPop( @One );
  49.  
  50.   WriteLn('*STOP*');
  51.  
  52. END.
  53.