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

⟦d4c143bab⟧ TextFile

    Length: 429 (0x1ad)
    Types: TextFile
    Names: »round.f«

Derivation

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

TextFile


ccc round - display the round number
	subroutine round ( date )

	implicit integer(A-Z)
	integer date

	include 'common.h'

	character jbuf ( 10 )
	integer i
	integer tmpx

	do 100 i = 1, 3
	jnkbuf ( i ) = ' '
100	continue

	i = 0
	call addint ( date, jbuf, i )
comment	date in jbuf

	tmpx = cols - 2
	call bufpos ( 20, tmpx, jbuf(1), 1 )
	call bufpos ( 21, tmpx, jbuf(2), 1 )
	call bufpos ( 22, tmpx, jbuf(3), 1 )
	return
	end