home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PASSRC.ZIP / PRINTOUT.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-04  |  1KB  |  50 lines
  1.                                 (* Chapter 10 - Program 6 *)
  2. program Printout_Example;
  3.  
  4. uses Printer;
  5.  
  6. var Index : byte;
  7.  
  8. begin
  9.    Writeln(Output,'Printer program example');
  10.    Writeln(Output,'Turn on your printer and install paper in it.');
  11.    Writeln(Lst,'This is to demonstrate printing in Pascal');
  12.    Writeln(Lst);
  13.    for Index := 1 to 15 do begin
  14.       Write(Lst,'The index value is ');
  15.       Write(Lst,Index:3);
  16.       Writeln(Lst,' at this point');
  17.    end;
  18. end.
  19.  
  20.  
  21.  
  22.  
  23. { Result of execution
  24.  
  25. Printer example program
  26. Turn on your printer and install paper in it
  27.  
  28.  
  29. (The following is output to the printer)
  30.  
  31. This is to demonstrate printing in Pascal
  32.  
  33. The index value is   1 at this point
  34. The index value is   2 at this point
  35. The index value is   3 at this point
  36. The index value is   4 at this point
  37. The index value is   5 at this point
  38. The index value is   6 at this point
  39. The index value is   7 at this point
  40. The index value is   8 at this point
  41. The index value is   9 at this point
  42. The index value is  10 at this point
  43. The index value is  11 at this point
  44. The index value is  12 at this point
  45. The index value is  13 at this point
  46. The index value is  14 at this point
  47. The index value is  15 at this point
  48.  
  49. }
  50.