Google
 

Trailing-Edge - PDP-10 Archives - LCG_Integration_Tools_Clearinghouse_T20_v7_30Apr86 - tools/com/blank.com
There are 3 other files named blank.com in the archive. Click here to see a list.
$ save_verify := 'f$verify(command$debug)'
$!
$! BLANK.COM
$! Emulate the TOPS-20 BLANK (SCREEN) command
$! GMU	22-Aug-83 22:05	version 1.02
$!
$! Command syntax is:
$!
$!	$ BLANK
$!
START:
$ if p1 .eqs. "?" then goto blank_help
$ TYPE SYS$INPUT


$ save_verify := 'f$verify(save_verify)'
$ EXIT
$!
$!
$! Here to help the user
$!
$!
BLANK_HELP:
$ write sys$output "$ Blank (screen) ? Confirm with carriage return"
$ inquire/nopunctuation p1 "$ Blank (screen) "
$ goto start