DataMuseum.dk

top - metrics - download

    Length: 1262 (0x4ee)
    Types: TextFile
    Names: »ltr.f«

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

TextFile

	subroutine ltr(z6,iturn)
c
c	Does short range scan around location z6
c
	IMPLICIT INTEGER(A-Z)

	include 'common.h'
C

	if (mode.ne.1) goto 100
	call sensor(z6)
	return
100	if (iturn.ne.1) goto 700
	do 200 i7=1,8
	i8=z6+iarrow(i7+1)
comment	**
200	if ( rmap ( i8 ) .eq. pmap ( i8 )) goto 700
	call cr
	call strout ( 'Before sensor probe' )
	l6=z6
	if (l6.lt.101) l6=l6+100
	if (l6.gt.5900) l6=l6-100
	if (l6/100*100.eq.l6) l6=l6-1
	if (l6/100*100+1.eq.l6) l6=l6+1
	do 600 i=-101,99,100
	do 400 i9=0,2
400	d2(i9+1)=int(omap(l6+i+i9))
comment	**
	do 500 i9=0,2
500	g2(i9+1)=int(pmap(l6+i+i9))
comment	**
600	continue
	call putc ( char(g2 ( 1 )))
	call putc ( char(g2 ( 2 )))
	call putc ( char(g2 ( 3 )))
	call putc ( char(d2 ( 1 )))
	call putc ( char(d2 ( 2 )))
	call putc ( char(d2 ( 3 )))
	call sensor(z6)
	call cr
	call strout ( 'After sensor probe' )
700	continue
	l6=z6
	if (l6.lt.301) l6=l6+300-(l6-1)/100*100
	if (l6.gt.5700) l6=l6-(l6-1)/100*100+5600
	if ((l6-1)/100*100+97.lt.l6) l6=97+(l6-1)/100*100
	if ((l6-1)/100*100+4.gt.l6) l6=l6/100*100+4

	do 900 i=-303,297,100
	do 800 i9=0,6
	g2(i9+1)=int(pmap(l6+i+i9))
comment	**
	jnkbuf ( i9 + 1 ) = char(g2( i9 + 1 ))
800	continue
	call bufout ( jnkbuf, 7 )
	call cr
900	continue
1000	continue
	return
	end