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

⟦76109a8d3⟧ TextFile

    Length: 349 (0x15d)
    Types: TextFile
    Names: »strlen.f«

Derivation

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

TextFile


ccc strlen - return size of zero character terminated string
	integer function strlen(string)
	character string(80)
c
c synopsis
c
c   status = strlen(string)
c
c	status - size of string
c	string - character array terminated with a zero character
c
	integer i

	i = 0
1000	i = i + 1
	if (string(i) .ne. '\0') goto 1000
	strlen = i - 1
	return
	end