home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sampler / 02 / parser / input3.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-09-06  |  435 b   |  34 lines
  1. {INPUT3.PAS}
  2. program this_program
  3. (file_one,file_2);
  4.  
  5. {
  6. Description:  Dummy Pascal program to test the Pascal parser
  7.  
  8. Author:       Karl Gerhard
  9. Date:         9/8/87
  10. Application:  IBM PC and compatibles
  11. }
  12.  
  13. var x34:integer;
  14.  
  15. procedure zip;
  16.  
  17. var
  18.   N,G : integer;
  19. Begin
  20.   N := 1;
  21.   G :=2;
  22.   repeat N := 3;
  23.     repeat N := 4; until N - 3 = 5;
  24.   until N + 5 >= 6;
  25.   N := 7;
  26. End;
  27.  
  28.  
  29. BEGIN
  30.  x34 := 34;
  31. END.
  32.  
  33. 
  34.