Trailing-Edge
-
PDP-10 Archives
-
tops20tools_v6_9-jan-86_dumper
-
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
[2J
[H
$ 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