home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d5xx
/
d594
/
analyrimsrc.lha
/
AnalyRimSrc
/
AnaRimSrcDoc.Zoo
/
files.blk
< prev
next >
Wrap
Text File
|
1991-09-30
|
1KB
|
32 lines
C
C *** / F I L E S / ***
C
C IDENTFIERS FOR INPUT AND OUTPUT FILES
C
COMMON /FILES/ NINT,NOUT,NOUTR,ECHO,CONNI,CONNO,BATCH
INTEGER NINT
INTEGER NOUT
INTEGER NOUTR
LOGICAL ECHO,CONNI,CONNO,BATCH
Character*208 c128wk,c128rd
c c128wk etc MUST be larger than 132 chars since some places assume 132
c places in the arrays...
c 208 is the max since argstr is loaded from the array. 208 is an integral
c multiple of 8 bytes however.
integer*4 nc128,mc128
C c128wk used for AnalytiCalc work as a place to write text to prior to
C passing to the write routines.
C c128rd is a buffer for text to be read from
common /accmd/c128wk,c128rd,nc128,mc128
C
C VARIABLE DEFINITIONS:
C NINT----INPUT FILE IDENTIFIER
C NOUT----OUTPUT FILE IDENTIFIER
C NOUTR---OUTPUT FILE IDENTIFIER FOR REPORTS
C ECHO----ECHO FLAG FOR INPUT COMMANDS
C CONNI---.TRUE. IFF INPUT IS INPUT AND NOT BATCH
C CONNO---.TRUE. IFF OUTPUT IS OUTPUT AND NOT BATCH
C BATCH---.TRUE. IFF BATCH MODE
C