! PROGRAM P45 ! ! IMPLICIT NONE INTEGER :: M,N ! PRINT *, 'This is Program >> P45 - Spacing for a printer' ! ! Carriage Control character ! is the FIRST one in the FORMAT ! Not all compilers respect these when running from a screen PRINT 200 200 FORMAT('1EXAMPLES') ! On top of a new page/screen N = 14 M = -27 PRINT 15, N, M 15 FORMAT(' ',2I5) ! Blank for single spacing PRINT 16, N, M 16 FORMAT('0', 2I5) ! Zero for double spacing STOP END PROGRAM P45OUTPUT:
+--------------------------------------------------+ | 32-bit Power for Lahey Computer Systems | | Phar Lap's 386|DOS-Extender(tm) Version 7.0 | | Copyright (C) 1986-94 Phar Lap Software, Inc. | | Available Memory = 14880 Kb | +--------------------------------------------------+ This is Program >> P45 - Spacing for a printer EXAMPLES 14 -27 14 -27
PROGRAM p45 ( input, output ); VAR n, m : INTEGER; BEGIN writeln ( ^l ); writeln ( 'examples' ); n := 14; m := -27; writeln ( n:5, m:5 ); writeln; writeln ( n:5, m:5 ) END.
Last modified: 21/07/97