3 $Id: test_read_file.f,v 1.2 2007-10-22 18:53:13 rich Exp $
7 100 CELLS ALLOT CONSTANT BUFFER
10 S" test_read_file.f.out" R/O OPEN-FILE
11 ?DUP IF S" test_read_file.f.out" 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