Trailing-Edge
-
PDP-10 Archives
-
integ_tools_tops20_v7_30-apr-86_dumper
-
tools/teachvms/start.com
There are 3 other files named start.com in the archive. Click here to see a list.
$ set term/nowrap
$ curdir = "''f$log("SYS$DISK")'''f$dir()'"
$ dummy := 'teachvms'
$ if "''dummy'" .eqs. "" then teachvms == "$''curdir'teachvms"
$symbolok:
$ write sys$output -
"[H[J[7m TEACHVMS DISPLAY WINDOW "
$ write sys$output -
"[10;1H DCL INTERACTION WINDOW [0m"
$ write sys$output -
"[2;9r[2;1H"
$ define/user sys$input sys$command
$ teachvms "s"
$ write sys$output "[11;24r[10;1H"
$ exit