$! --- University of Sussex POPLOG file -----------------------------------
$! File:            $usepop/master/C.vms/com/t.com
$! Purpose:         print file to screen
$! Author:          Unknown, ???
$! Documentation:
$! Related Files:

$if 'f$locate(".",p1).ge.'f$length(p1) then goto nodot
$type 'p1'
$exit
$nodot:
$type 'p1'.
