AT&T 6300 Programmer's Manual page 117

Disk File Handling
PRINT NS
PRINT CVS[AS)
The following program accesses the "FILE"
that was created in the previous example. When
the two-digit code is entered at the terminal, the
information associated with that code is read
from the file and displayed.
10 OPEN uR",#1,uFILE",32
20 FIELD #1, 20 AS NS, 4 AS AS, 8 AS PS
30 INPUT u2-DIGIT CODE";CODE%
40 GET #1, CODE%
50 PRINT NS
60 PRINT USING uSS###.##";CVS(AS)
70 PRINT PS:PRINT
80 GOTO 30
4-33