|
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 - download
Length: 481 (0x1e1)
Types: TextFile
Names: »scrchk.f«
└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
└─⟦this⟧ »EUUGD18/General/Empire/scrchk.f«
FUNCTION SCRCHK(Z6) C C DETERMINES IF Z6 IS IN CURRENT SCREEN SECTOR SHOWING C 0=NO, 1=YES C IMPLICIT INTEGER(A-Z) include 'common.h' C C IF (MODE.EQ.1) GOTO 100 SCRCHK=1 GOTO 400 100 JECT=JECTOR SCRCHK=0 IY=(Z6-1)/100 IX=Z6-IY*100 IF (JECT.GT.4) GOTO 200 comment CHECK X COORD FIRST IF (IX.GT.70) GOTO 400 GOTO 300 200 IF (IX.LT.30) GOTO 400 JECT=JECT-5 300 IF ((IY.LT.(JECT*10)).OR.(IY.GT.(JECT*10+19))) GOTO 400 SCRCHK=1 comment PASSED, IT'S GOOD 400 RETURN END