%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