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 h

⟦a2f982fff⟧ TextFile

    Length: 801 (0x321)
    Types: TextFile
    Names: »head.f«

Derivation

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

TextFile

	subroutine head ( own1, y, num, z6, h1 )

	IMPLICIT INTEGER(A-Z)

	include 'common.h'
C
	integer i

	ptr = 0
	call addidt ( own1, jnkbuf, ptr )
	call addstr ( ' ', jnkbuf, ptr )
	call addint ( y, jnkbuf, ptr )
	call addstr ( ' at ', jnkbuf, ptr )
	call addint ( z6, jnkbuf, ptr )

	do 100, i = ptr + 1, 40
	jnkbuf (i) = ' '
100	continue
	ptr = 39

	call addsts ( mycode ( num ), jnkbuf, ptr )
	if ( own1 .eq. 'A' ) goto 500

	do 200, i = ptr + 1, 60
	jnkbuf (i) = ' '
200	continue
	ptr = 59

	if ( own1 .ne. 'F' ) goto 250
	call addstr ( 'Range: ', jnkbuf, ptr )
	call addint ( range ( y ), jnkbuf, ptr )
	goto 500

250	continue
	call addstr ( 'Hits left: ', jnkbuf, ptr )
	call addint ( h1, jnkbuf, ptr )

500	continue
	jnkbuf ( ptr + 1 ) = '\0'
	call topmsg ( 1, jnkbuf )
	call cflush
	return
	end