home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FORM.ZIP / _FORM.DOC next >
Encoding:
Text File  |  1987-11-18  |  1.6 KB  |  39 lines
  1. PROGRAM Form_Test;
  2.   {  This test program uses the Turbo Pascal Unit "_FORM" which partially
  3.   replaces the FORM function in Turbo Pascall 3.0 with BCD.  The calling
  4.   procedure is shown below in examples.  Please feel free to improve and
  5.   upload improvements.  -  Paul Mayer [70040,645] }
  6.  
  7.   USES CRT, _FORM;
  8. VAR
  9.   I : Word;
  10.  
  11. BEGIN
  12.   ClrScr;
  13.   WriteLn('A few examples of using the "Form(''<mask>'',<variable or number>)" function.');
  14.   WriteLn('Written by Paul Mayer for compatibility with Turbo Pascal 3.0 with BCD as the');
  15.   WriteLn('"Form" function is not included in the new Turbo Pascal version 4.0. ');
  16.   WriteLn;
  17.   WriteLn('Numbers and comma delimiter using WriteLn(Form(''###,###.##'', 67235.98))');
  18.   WriteLn(Form('###,###.##', 67235.98));
  19.   WriteLn;
  20.   WriteLn('Too long for pattern display using WriteLn(Form(''###,###.##'', 6723543.98))');
  21.   WriteLn(Form('###,###.##', 6723543.98));
  22.   WriteLn;
  23.   WriteLn('Small Numbers using WriteLn(Form(''###.##'', 3.98))');
  24.   WriteLn(Form('###.##', 3.98));
  25.   WriteLn;
  26.   WriteLn('Format past the decimal point using WriteLn(Form(''#.###'', 1.985))');
  27.   WriteLn(Form('#.###', 1.985));
  28.   WriteLn;
  29.   WriteLn('Leading zeros & no decimal using WriteLn(Form(''@###'', 1.985)) (Watch roundoff)');
  30.   WriteLn(Form('@###', 1.985));
  31.   WriteLn;
  32.   WriteLn('A dollar format & star fill using WriteLn(Form(''$*#,###.##'', 28.76))');
  33.   WriteLn(Form('$*#,###.##', 28.76));
  34.   WriteLn;
  35.   WriteLn('Text & numbers using WriteLn(Form(''Payroll Total: $#,###,###.##'', 4567235.98))');
  36.   WriteLn(Form('Payroll Total: $#,###,###.##', 4567235.98));
  37.   ReadLn;
  38. END.
  39.