workbench/s/PCD

   1 .key NEWDIR
   2
   3 .bra {
   4 .ket }
   5
   6 ; Changes directory and remembers the previous one
   7
   8 IF "{NEWDIR}" EQ ""
   9   Assign ofrom{$$}: ""
  10   CD from{$$}:
  11   Assign from{$$}: ofrom{$$}:
  12   Assign ofrom{$$}:
  13 Else
  14   Assign from{$$}: ""
  15   CD {NEWDIR}
  16 EndIF