home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frostbyte's 1980s DOS Shareware Collection
/
floppyshareware.zip
/
floppyshareware
/
USCX
/
TURBO-06.ZIP
/
PRINTUSG.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1985-02-23
|
640b
|
27 lines
Program Print_using;
{ This program demonstrates the use of the print using procedure.
Written by: Bill Collins
Modified by: Bill Todd }
var
number: real;
mask: string[80];
k: integer;
{$Iprintusg.inc}
begin
ClrScr;
Write('Enter mask: ');
Readln(mask);
For k := 1 to 10 do
begin
number := Sqr(Sqr(k) * Sqr(Random(k)) + random);
If Odd(k) then number := -number;
Writeln(Print_using(mask, number):12);
end;
end.