Getting Started with the Pascal tutorial, source
Submitted By:
WEBMASTER
Rating:
(Not rated) (
Rate It)
(* Chapter 10 - Program 7 *)
program Printout_Example;
uses Printer; (* This is needed for TURBO Pascal 4.0 only *)
var Index : byte;
begin
Writeln(Output,'Printer program example');
Writeln(Output,'Turn on your printer and install paper in it.');
Writeln(Lst,'This is to demonstrate printing in Pascal');
Writeln(Lst);
for Index := 1 to 15 do begin
Write(Lst,'The index value is ');
Write(Lst,Index:3);
Writeln(Lst,' at this point');
end;
end.
