diff options
| author | Anton Šijanec <sijanecantonluka@gmail.com> | 2020-03-30 15:24:15 +0200 |
|---|---|---|
| committer | Anton Šijanec <sijanecantonluka@gmail.com> | 2020-03-30 15:24:15 +0200 |
| commit | 37fc0b25d852dba0ce7a329678c5c30a028be00f (patch) | |
| tree | 80e58fb4000efc4fcf3f7afccbda0f4a6a48f93b /PKURZ.FOR | |
| download | ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.tar ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.tar.gz ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.tar.bz2 ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.tar.lz ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.tar.xz ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.tar.zst ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.zip | |
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 + |