|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T t
Length: 1035 (0x40b)
Types: TextFile
Names: »test4.f«
└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
└─⟦this⟧ »EUUGD18/General/Empire/test4.f«
subroutine test4(z6,flag,dir,move1,movnum,beg,end,ag2,flag2)
c
c Test subroutine for path, displays current path progress
c
IMPLICIT INTEGER(A-Z)
include 'common.h'
C
INTEGER AG2(100)
character getchx,ix
C
CALL CURSOR(Z6-IADJST)
IF (FLAG.NE.1001) E=GETCHX()
comment WAIT FOR CHAR IF TRACE MODE
IX='G'
comment DISPLAY CURRENT MOVE ON MAP
IF (FLAG2.EQ.1) PRINT 999,IX
IX='H'
IF (FLAG2.EQ.2) PRINT 999,IX
IF (FLAG.EQ.1001) RETURN
C PROCESS THIS CHAR
IF (E.EQ.' ') RETURN
comment SPACE, CONTINUE
IF (E.EQ.'G') GOTO 100
comment G, DISPLAY G2 ARRAY
CALL tpos(1,1)
comment IF NOT SPACE OR "G", SHOW PATH VARIABLES
PRINT 998,Z6,MOVE1,MOVNUM
999 FORMAT('+',A1$)
998 FORMAT(' Z6:',I4,' MOVE1:',I1,' MOVNUM:',I3)
CALL tpos(2,1)
PRINT 997,BEG,END,IADJST,DIR,FLAG
997 FORMAT(' BEG:'I4' END:'I4' IADJST:'I4' TDIR:'I2' FLAG:'I4)
IF (FLAG2 .EQ. 1) PRINT 996
996 FORMAT(' FLAG2: MOVE ')
IF (FLAG2 .EQ. 2) PRINT 995
995 FORMAT(' FLAG2: SHORE')
RETURN
100 CALL tpos(1,1)
PRINT 994,AG2
994 FORMAT(1X,16I5)
RETURN
END