/* file.tc - tct - 1/29/10

/* displays contents of user-specified file

file char f(0) [
 pl "";ps "file.tc - 1/29/10";pl "";pl ""
 char where(21000),lfs(1);int cnt,ix,lines
 lfs(0)=10 /* ascii code for linefeed
 if ((cnt=readfile(f,where,where+21000,1))>0) [ /* read file into memory
  while ((ix=index(where,cnt,lfs,1))>0) [ /* loop while linefeeds are detected
   pft where,where+ix-1 /* print a line
   where=where+ix /* next search will start at beginning of next line
   cnt=cnt-ix /* decrement the count of characters to search
   if (++lines>19) [sak;pl "";pl "";lines=0] /* force user to hit Enter every 20 lines
   ]
  ]
 ]