DataMuseum.dk

top - metrics - download

    Length: 1427 (0x593)
    Types: TextFile
    Names: »addsts.f«

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

TextFile

ccc addsts - display mycod function in english
	subroutine addsts ( mycod, string, iptr )
c
c synopsis
c
c   call addsts ( mycod, string, iptr )
c
c	mycod - function code
c	string - character array to add strings to
c	iptr - current length of string
c
	IMPLICIT INTEGER(A-Z)

	include 'common.h'
C
c	character string ( 80 )
	character string ( 80 )
	integer iptr

	call addstr ( 'Function: ', string, iptr )
c
c	Awake if  mycod = 0
c
	if ( mycod .ne. 0 ) goto 100
	call addstr ( 'awake', string, iptr )
	return
c
c	Sentry if 0 < mycod < 100
c
100	continue
	if (( mycod .le. 0 ) .or. ( mycod .ge. 100 )) goto 200
	call addstr ( 'sentry', string, iptr )
	return
c
c	Random if mycod = 100
c
200	continue
	if ( mycod .ne. 100 ) goto 300
	call addstr ( 'random', string, iptr )
	return
c
c	Aimed at a location if 100 < mycod < 6101
c
300	continue
	if (( mycod .le. 100 ) .or. ( mycod .ge. 6101 )) goto 400
	call addint ( mycod, string, iptr )
	return
c
c	Set in a direction if 6101 <= mycod <= 6108
c
400	continue
	if (( mycod .lt. 6101 ) .or. ( mycod .gt. 6108 )) goto 500
	iptr = iptr + 1
	do 450 i = 6101, 6108
	if ( i .eq. mycod ) string ( iptr ) = comm ( i - 6100 )
450	continue
	return
c
c	Fill if mycod = 9997
c
500	continue
	if ( mycod .ne. 9997 ) goto 600
	call addstr ( 'fill', string, iptr )
	return
c
c	Not assigned a valid function; goofing off
c
600	continue
	call addstr ( 'taking drugs', string, iptr )
	return
	end