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 a

⟦0ceeccf09⟧ TextFile

    Length: 874 (0x36a)
    Types: TextFile
    Names: »addidt.f«

Derivation

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

TextFile

ccc addidt - identify peice and add to string
ccc addpei - add peice to string
	subroutine addidt ( own, string, iptr )
	character own, string ( 80 )
	integer iptr
c
c synopsis
c
c   call addidt ( own, string, iptr )
c

	if ((own.ge.'a').and.(own.le.'t'))
     *	call addstr ( 'Enemy ', string, iptr )
	if ((own.le.'T').and.(own.ge.'A'))
     *	call addstr ( 'Your ', string, iptr )
c	call addpei ( own, string, iptr )

	entry addpei ( own, string, iptr )

	i = 99
c
comment	In case it doesn't exist
	if ((own.eq.'A').or.(own.eq.'a')) i = 2
	if ((own.eq.'F').or.(own.eq.'f')) i = 3
	if ((own.eq.'D').or.(own.eq.'d')) i = 4
	if ((own.eq.'S').or.(own.eq.'s')) i = 5
	if ((own.eq.'T').or.(own.eq.'t')) i = 6
	if ((own.eq.'R').or.(own.eq.'r')) i = 7
	if ((own.eq.'C').or.(own.eq.'c')) i = 8
	if ((own.eq.'B').or.(own.eq.'b')) i = 9
	call addfoo ( i, string, iptr )
	return
	end