Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.atnf.csiro.au/computing/software/gipsy/sub/mtreadc.dc2 Дата изменения: Wed Mar 14 11:56:13 2001 Дата индексирования: Fri Jan 16 18:18:12 2009 Кодировка:

Function: MTREADC

Purpose: Reads data from a specified tape device.

Category: TAPES

File: mtiodev.c

Author: K.G. Begeman

Use: INTEGER MTREADC( MTID, Input INTEGER
DATA ) Output CHARACTER*(*)

MTREADC Returns:
>0 : Size of record just read in bytes. This
may be larger than LEN(DATA). The DATA array
is filled with MIN(MTREAD,LEN(DATA)) bytes.
-1 : System error.
-4 : Tape device not open.
-9 : Call error.
MTID Tape device id returned by MTOPEN.
DATA Character variable. The number of bytes MTREADC
tries to read is equal to LEN(DATA).

Warning: Code is System dependant!

Updates: Jul 20, 1989, KGB, Document created.