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 j

⟦e2e5acd44⟧ TextFile

    Length: 716 (0x2cc)
    Types: TextFile
    Names: »jiggle.f«

Derivation

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

TextFile

	FUNCTION JIGGLE(Z6,NUM)
C
C DO RANDOM MOVE FOR PLAYER'S ARMY
C
	IMPLICIT INTEGER(A-Z)

	include 'common.h'
C
C
	DO 100 I=1,9
100	AB9(I)=RMAP(Z6+IARROW(I+1))
comment	**
	IF (AB9(9).NE.'T') GOTO 200
	JIGGLE=0
	MYCODE(NUM)=0
	RETURN
C 
200	DO 300 I1=1,9
300	IF ((AB9(I1).EQ.'*').OR.(AB9(I1).EQ.'X')) GOTO 400
	I1=9
400	DO 500 I2=1,9
500	IF ((AB9(I2).GE.'a').AND.(AB9(I2).LE.'t')) GOTO 600
	I2=9
600	DO 700 I3=1,9
700	IF (AB9(I3).EQ.'T') GOTO 800
	I3=9
800	M1=irand(8)+1
comment	**
	M2=M1+7
	DO 900 I4=M1,M2
	I5=ICORR(I4)
	I=Z6+IARROW(I5+1)
comment	**
900	IF ((ORDER(I).EQ.0).AND.(AB9(I5).EQ.'+')) GOTO 1000
	I4=0
1000	M=I1
	IF (M.EQ.9) M=I3
	IF (M.EQ.9) M=I2
	IF (M.EQ.9) M=I5
	IF (I4.EQ.0) M=9
	JIGGLE=M
	RETURN
	END