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 p

⟦39a7f6ab5⟧ TextFile

    Length: 615 (0x267)
    Types: TextFile
    Names: »poschk.f«

Derivation

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

TextFile

	FUNCTION POSCHK(Z6,OWN)
C
C DETERMINES IF Z6 IS IN CURRENT UPDATE SECTOR SHOWING
C	0=NO, 1=YES
C
	IMPLICIT INTEGER(A-Z)

	include 'common.h'
C
	INTEGER LOWSCRS(5),HIGHSCRS(5)
	DATA LOWSCRS/1,14,24,34,44/
	DATA HIGHSCRS/15,25,35,45,58/
C
	IF (MODE.EQ.1) GOTO 100
	POSCHK=1
	GOTO 400
100	JECT=JECTOR
	POSCHK=0
	IY=(Z6-1)/100
	IX=Z6-IY*100
	ADJUST=1
	IF (OWN.EQ.'F') ADJUST=0
	IF (JECT.GT.4) GOTO 200
	IF (IX.GT.(64+ADJUST)) GOTO 400
	GOTO 300
200	IF (IX.LT.(36-ADJUST)) GOTO 400
	JECT=JECT-5
300	IF ((IY.LT.(LOWSCRS(JECT+1)-ADJUST)).OR.
     1   (IY.GT.(HIGHSCRS(JECT+1)+ADJUST))) GOTO 400
	POSCHK=1
400	RETURN
	END