d $! DO	PAGE {number}
È $!		Does {number} of page ejects to line up 'paper'.
,$! Also issues a bell before doing the page.
$!
ô$! ..note.. Number defaults to 1.
X$! ..note.. no page ejects for number .le. 0
¼$!
 $! -end.of.info-
„$
è$ IF( P1.EQS." " ) THEN P1 = 1
L$ WRITE SYS$OUTPUT " " !! BELL
°$ IF( P1.LE.0 ) THEN EXIT
$
x$AGAIN:
Ü$ WRITE SYS$OUTPUT "
@$
¤$ P1 = P1-1
$ IF( P1.GT.0 ) THEN GOTO AGAIN