diff options
Diffstat (limited to 'PKURZ.FOR')
-rw-r--r-- | PKURZ.FOR | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/PKURZ.FOR b/PKURZ.FOR new file mode 100644 index 0000000..5bec267 --- /dev/null +++ b/PKURZ.FOR @@ -0,0 +1,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 + |