%external %string(12) %function %spec  EXPAND (%string(127) file)

%external %string(6) %function  BASE NAME (%string(127) file)
   %string(3) grot
   file = expand (file);                   ! If fails, %signal 9, 3, bad file
   %if file -> file . ("(") . grot %start; ! Normal file
      charno(file, 2) = length(file) - 2;  ! Cut out disc number + '.'
      %result = string(addr(file)+2)
   %finish
   %result = file;                         ! Device or ".N"
%end

%end %of %file