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

⟦71d35df36⟧ TextFile

    Length: 244 (0xf4)
    Types: TextFile
    Names: »cursor.f«

Derivation

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

TextFile


ccc cursor - position cursor to map location
	subroutine cursor ( n )
	integer n
c
c synopsis
c
c   call cursor ( n )
c
c	n - map location
c
	integer i, j

	i = n / 100 + 1
	j = mod ( n, 100 ) + 1
	call tpos ( i, j )
	call cflush
	return
	end