%include "inc:util.imp"
%begin
!Utility to print out all the custom files

%routine dump(%string (255) file)
   %string (255) s
   %on 3, 9 %start; ->eof2; %finish
   openinput(2, file); selectinput(2)
   newline
   printline("***** File Custom:".file." *****")
   %cycle
      readline(s); printline(s)
   %repeat
   eof2:selectinput(1)
%end


%string (255) s,stn
%on 3,9 %start; ->eof1; %finish
set terminal mode(8)
openinput(1,"custom:directory"); selectinput(1)
%cycle
   readline(s)
   %if s->stn.(".COM") %start
!!      dteno=0
!!      %if length(stn)=2 %start
!!        a=charno(stn,1); a=a-'0'; a=a-7 %if a>9
!!        b=charno(stn,2); b=b-'0'; b=b-7 %if b>9
!!        %if 0<=a<=15 %and 0<=b<=15 %then dteno=a<<4+b
!!      %finish
      dump(s)
   %finish
%repeat
eof1:
%endofprogram