|
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 s
Length: 698 (0x2ba)
Types: TextFile
Names: »sensor.f«
└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
└─⟦this⟧ »EUUGD18/General/Empire/sensor.f«
subroutine sensor(z6)
c
c Updates player's map around location z6
c and screen if current sector is displayed
c
IMPLICIT INTEGER(A-Z)
include 'common.h'
C
ibefor = -100
do 100 i = 1, 9
i1 = z6 + arrow ( i )
ab = rmap ( i1 )
if ( ab .eq. pmap ( i1 )) goto 100
pmap ( i1 ) = ab
if ( jector .eq. -1 ) goto 100
if ( isec .eq. -1 ) goto 100
line = kline ( ki, isec )
iy = ( i1 - 1 ) / 100 * 100
ix = i1 - iy
if (( iy .lt. line ) .or. ( iy .gt. line + (lines - 5) * 100 ) .or.
* ( ix .le. ki ) .or. (ix .gt. ki + (cols - 10) )) goto 100
i1 = i1 - line - ki
if ( ibefor + 1 .ne. i1 ) call cursor ( i1 + 300 )
ibefor = i1
call putc ( ab )
100 continue
call cflush
return
end