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

⟦373444a76⟧ TextFile

    Length: 404 (0x194)
    Types: TextFile
    Names: »strpos.f«

Derivation

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

TextFile


ccc strpos - position cursor and output string
	subroutine strpos(irow, icol, string)
	integer irow, icol
	character string(80)
c
c synopsis
c
c   call strpos(irow, icol, string)
c
c	irow - line to position cursor
c	icol - column to position cursor
c	string - a character array with a zero character terminator
c
	integer strlen

	call tpos(irow, icol)
	call bufout(string, strlen(string))
	return
	end