d c/elt APLINO.I
È c.
,c. file definitions
c.
ô	parameter N$INO = 10	!*! lenght of files, i.e. number
Xc.
¼	parameter INO$WR = 1	!*! write
 	parameter INO$AP = 2	!*! apl mode
„	parameter INO$BN = 4	!*! binary mode
è	parameter INO$CH = 8	!*! character mode
Lc.
°	common /aplino/ inx_ino
â	1		, max_ino
û	1		, mod_ino
	1		, nam_ino
c.
x	integer mod_ino(0:N$INO)		!**! mod of file
Ü	byte nam_ino(N$CHR,0:N$INO)		!**! file name
@c.
¤c........