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

⟦0f361f8e4⟧ TextFile

    Length: 408 (0x198)
    Types: TextFile
    Names: »write.f«

Derivation

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

TextFile

	subroutine write ( beg, lim, num )

	IMPLICIT INTEGER(A-Z)

	include 'common.h'
C

	do 100 j = beg + 1, beg + lim
	k = rlmap ( j )
	write ( 1 ) k
	if ( num .lt. 9 ) write ( 1 ) mycode(j)
	if ( num .gt. 8 ) write ( 1 ) codefu(j-1500),codela(j-1500)
	if ( num .eq. 9 ) write ( 1 ) ar2s(j-1500)
	if ( num .eq. 2 ) write ( 1 ) range(j-500)
	if ( num .eq. 10 ) write ( 1 ) rang(j-2000)
100	continue
	return
	end