diff options
author | sijanec <sijanecantonluka@gmail.com> | 2020-06-11 15:15:47 +0200 |
---|---|---|
committer | sijanec <sijanecantonluka@gmail.com> | 2020-06-11 15:15:47 +0200 |
commit | 5b18c8d8f8d84c1e87a86c4dc4cf0984170c9aa8 (patch) | |
tree | 9c17d4138a5036edd6edf0fb252623c779d7dbfc /ZVEZDE.FOR | |
parent | dodani podprogrami (diff) | |
download | ZVEZDE-5b18c8d8f8d84c1e87a86c4dc4cf0984170c9aa8.tar ZVEZDE-5b18c8d8f8d84c1e87a86c4dc4cf0984170c9aa8.tar.gz ZVEZDE-5b18c8d8f8d84c1e87a86c4dc4cf0984170c9aa8.tar.bz2 ZVEZDE-5b18c8d8f8d84c1e87a86c4dc4cf0984170c9aa8.tar.lz ZVEZDE-5b18c8d8f8d84c1e87a86c4dc4cf0984170c9aa8.tar.xz ZVEZDE-5b18c8d8f8d84c1e87a86c4dc4cf0984170c9aa8.tar.zst ZVEZDE-5b18c8d8f8d84c1e87a86c4dc4cf0984170c9aa8.zip |
Diffstat (limited to 'ZVEZDE.FOR')
-rw-r--r-- | ZVEZDE.FOR | 15 |
1 files changed, 11 insertions, 4 deletions
@@ -25,7 +25,8 @@ 50 FORMAT(1X,'Za nadaljevanje pritisni <ENTER>'//) WRITE(*,51) 51 FORMAT(1X,'(c) Lenasi 1990') - PAUSE ' ' +C PAUSE ' ' + read(*,*) 54 WRITE(*,10) WRITE(*,31) 31 FORMAT(1X,'N I V O J I Z N A N J A '///) @@ -39,7 +40,9 @@ WRITE(*,*)'Popravi![u',' ',' [10A' GO TO 33 ENDIF - PAUSE '<ENTER>' +C PAUSE '<ENTER>' + WRITE(*,*)'<ENTER>' + read(*,*) WRITE(*,10) 55 WRITE(*,60) 60 FORMAT(1X,'Stevilo'/1x,'vrstic =',$) @@ -111,7 +114,9 @@ C PAUSE '<ENTER> ' WRITE(*,120)IVRSTA,IPALIC 120 FORMAT(1X,'Moja poteza'/1x,'Iz vrste =',I3/ * 1x,'vzamem zvezd =',I3//1x,'Na sliki je'/1x,'staro stanje') - PAUSE '<ENTER>' +C PAUSE '<ENTER>' + write(*,*)'<ENTER>' + read(*,*) CALL BRI CALL BIC(CH,IVRSTA,IPALIC) IZV(IVRSTA)=IZV(IVRSTA)-IPALIC @@ -148,7 +153,9 @@ C PAUSE '<ENTER>' ENDIF WRITE(*,180) 180 FORMAT(//1X,'Na sliki je'/1x,'staro stanje') - PAUSE '<ENTER> ' +C PAUSE '<ENTER> ' + write(*,*)'<ENTER>' + read(*,*) CALL BRI CALL BIC(CH,IVRSTA,IPALIC) IZV(IVRSTA)=IZV(IVRSTA)-IPALIC |