3 $Id: test_read_file.f,v 1.1 2007-10-07 11:07:15 rich Exp $
7 100 CELLS ALLOT CONSTANT BUFFER
10 S" /etc/fstab" R/O OPEN-FILE
11 ?DUP IF S" /etc/fstab" PERROR QUIT THEN
16 BUFFER 100 CELLS FD READ-FILE
17 ?DUP IF S" READ-FILE" PERROR QUIT THEN
23 ?DUP IF S" CLOSE-FILE" PERROR QUIT THEN