Google
 

Trailing-Edge - PDP-10 Archives - tops10and20_integ_tools_v9_3-aug-86 - 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 - 
"                               TEACHVMS DISPLAY WINDOW                               "
$ write sys$output -
"                             DCL INTERACTION WINDOW                             "
$ write sys$output -
""
$ define/user sys$input sys$command
$ teachvms "s"
$ write sys$output ""
$ exit