       10 // DIR$, DIR, MKDIR, CHDIR, RMDIR test program
       20 //
       30 org$:=DIR$
       40 IF SYS$(host)="Linux" OR SYS$(host)="MacOS" THEN CHDIR "/tmp"
       50 PRINT "Directory of ";DIR$
       60 DIR 
       70 MKDIR "a"
       80 CHDIR "a"
       90 PRINT "Directory of ";DIR$
      100 DIR 
      110 CHDIR ".."
      120 RMDIR "a"
      130 CHDIR org$
      140 PRINT "Ok"
