begin ; !Who am I
!JHB added the current filestore 19/1/87

include  "inc:fs.imp"
include  "inc:fsutil.imp"

onevent  3,9 start 
  printstring("Not logged on"); newline; stop 
finish 

string (127)u,d,f

f = current fs(0)
u = current user
d = current directory
u = "ANON" if  u = ""
printstring(f."::")
printstring(u)
printstring(" using ".d) if  u#d
newline
endofprogram