1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
SUBROUTINE PKURZ(IVR,IST,IND)
C
C Lenasi,maj 1990
C
C**********************************************************************
C* Postavi kurzor na IVR vrstico in IST stolpec. IND je normalno 0, *
C* 1 je, ce prekoracimo stevilo 25 vrstic in 2, ce je stevilo stolpcev*
C* vecje kot 80. Na tem mestu v glavnem programu napisemo ali ustrezno*
C* delujemo. Po tem se kurzor prestavi na zacetek nove vrstice. *
C* IVR, IST, IND so INTEGER tipa. *
C**********************************************************************
C
C
J=4
IND=0
IF((IVR.LT.10).AND.(IST.LT.10)) J=1
IF((IVR.LT.10).AND.(IST.GE.10)) J=2
IF((IVR.GE.10).AND.(IST.LT.10)) J=3
IF(IVR.GT.25) THEN
IND=1
RETURN
ENDIF
IF(IST.GT.80) THEN
IND=2
RETURN
ENDIF
GO TO (10,20,30,40),J
10 WRITE(*,15)IVR,IST
15 FORMAT(' [',I1,';',I1,'H',$)
RETURN
20 WRITE(*,25)IVR,IST
25 FORMAT(' [',I1,';',I2,'H',$)
RETURN
30 WRITE(*,35)IVR,IST
35 FORMAT(' [',I2,';',I1,'H',$)
RETURN
40 WRITE(*,45)IVR,IST
45 FORMAT(' [',I2,';',I2,'H',$)
RETURN
END
|
