DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T i

⟦a3504fb63⟧ TextFile

    Length: 746 (0x2ea)
    Types: TextFile
    Names: »ittype.f«

Derivation

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Empire/ittype.f«

TextFile


ccc ittype - return terminal type
	subroutine ittype(term)
	integer term
c
c synopsis
c
c   call ittype(term)
c
c	term - integer containing terminal type
c
c
c	Common terminal
c
	integer	ttbufsiz
	parameter (ttbufsiz = 750)
comment	size of buffer in characters

	common /ioempire/ TTVT52, TTVT100,
     $	TTANN, TTHP, TTADM, TTHZ15,
     $	inchan, outchan, ttnbuf, tttype, ttflag, ttbuf

	integer TTVT52, TTVT100
	integer TTANN, TTHP, TTADM, TTHZ15
	integer inchan
comment	input channel
	integer outchan
comment	output channel
	integer ttnbuf
comment	number of characters to output
	integer tttype
comment	terminal type
	logical ttflag
comment	flag for non-buffered i/o
	character ttbuf(ttbufsiz)
comment	the buffer

	term = tttype
	return
	end