From 5b18c8d8f8d84c1e87a86c4dc4cf0984170c9aa8 Mon Sep 17 00:00:00 2001 From: sijanec Date: Thu, 11 Jun 2020 15:15:47 +0200 Subject: dodani popravki za 2020 in Makefile --- KRI.FOR | 4 +++- Makefile | 13 +++++++++++++ POH.FOR | 4 +++- README.md | 18 ++++++++++++++++++ ZMA.FOR | 4 +++- ZVEZDE.FOR | 15 +++++++++++---- a.out | Bin 25172 -> 0 bytes zvezde | Bin 0 -> 25120 bytes 8 files changed, 51 insertions(+), 7 deletions(-) create mode 100644 Makefile create mode 100644 README.md delete mode 100755 a.out create mode 100755 zvezde diff --git a/KRI.FOR b/KRI.FOR index 319d329..18c4e61 100644 --- a/KRI.FOR +++ b/KRI.FOR @@ -2,7 +2,9 @@ WRITE(*,10) 10 FORMAT(1X,'To ni nobena zmaga! S tako majhnim stevilom'/, * 1x,'zvezdic se ne igra.') - PAUSE '' +C PAUSE '' + write(*,*)'' + read(*,*) RETURN END diff --git a/Makefile b/Makefile new file mode 100644 index 0000000..98a4e31 --- /dev/null +++ b/Makefile @@ -0,0 +1,13 @@ +default: + # *** ZVEZDE namestitvena Makefile datoteka *** + # (C) prof. Konrad Lenasi 1990 + # Koraki namestitve: + # make pripravi Namesti gfortran (potrebuje apt in sudo) + # make namesti Zgradi program zvezde kot poganljivo datoteko + # Noben korak ni bil izbran, končujem make ... + +pripravi: + sudo apt install gfortran -y + +namesti: + gfortran *.FOR -o zvezde diff --git a/POH.FOR b/POH.FOR index 22347e9..fb45806 100644 --- a/POH.FOR +++ b/POH.FOR @@ -4,7 +4,9 @@ * 1x,'eno mojo zmago eno svojo, obvladas igro in za tebe'/, * 1x,'ni vec zanimiva. Seveda pri primernem stevilu'/,1x, * 'vrstic in zvezdic ter nivoju 4.') - PAUSE '' +C PAUSE '' + write(*,*)'' + read(*,*) RETURN END diff --git a/README.md b/README.md new file mode 100644 index 0000000..8d80274 --- /dev/null +++ b/README.md @@ -0,0 +1,18 @@ +# ZVEZDE + +Zvezde (originalno ime "pobiranje vžigalic") je računalniška igrica, ki jo je spisal moj dedek, prof. Konrad Lenasi leta 1990 v fortran 77 programskem +jeziku. + +Do _commita_ `b3eca77` je izvorna koda povsem njegova, z naslednjim _commitom_ pa sem jo malce popravil, da se jo lahko _compila_ na novejših +fortran različicah. + +# inštalacija + +Repozitoriju je priložen zgrajen program za 32-bitne i386 procesorje na Linux 4 jedru. Kodo lahko zgradite tudi sami, potrebujete zgolj program `gfortran`. + +Na Debian/Ubuntu Linux sistemih _compiler_ pridobite iz uradnih deb repozitorijev (slovenci lahko tudi iz Arnesa) z ukazom `sudo apt install gfortran`. + +Program (zvezde zaganljivo binarno datoteko) zgradite z ukazom `gfortran *.FOR`. + +Za lažjo inštalacijo je priložena tudi `Makefile` datoteka, če imate `make` (`sudo apt install make`), lahko program izdelate z ukazom `make` (in sledite +navodilom). diff --git a/ZMA.FOR b/ZMA.FOR index e6ead50..0381300 100644 --- a/ZMA.FOR +++ b/ZMA.FOR @@ -41,7 +41,9 @@ C * subroutine dodal jaz da bi popravil gettime * 101 FORMAT(1X,'Izgubljas, toda tu in tam bos tudi dobil, ce'/ * 1x,'bos vadil.') 200 CONTINUE - PAUSE '' +C PAUSE '' + write(*,*)'' + read(*,*) RETURN END diff --git a/ZVEZDE.FOR b/ZVEZDE.FOR index ce9e579..8664984 100644 --- a/ZVEZDE.FOR +++ b/ZVEZDE.FOR @@ -25,7 +25,8 @@ 50 FORMAT(1X,'Za nadaljevanje pritisni '//) 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!',' ',' ' GO TO 33 ENDIF - PAUSE '' +C PAUSE '' + WRITE(*,*)'' + read(*,*) WRITE(*,10) 55 WRITE(*,60) 60 FORMAT(1X,'Stevilo'/1x,'vrstic =',$) @@ -111,7 +114,9 @@ C PAUSE ' ' 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 '' +C PAUSE '' + write(*,*)'' + read(*,*) CALL BRI CALL BIC(CH,IVRSTA,IPALIC) IZV(IVRSTA)=IZV(IVRSTA)-IPALIC @@ -148,7 +153,9 @@ C PAUSE '' ENDIF WRITE(*,180) 180 FORMAT(//1X,'Na sliki je'/1x,'staro stanje') - PAUSE ' ' +C PAUSE ' ' + write(*,*)'' + read(*,*) CALL BRI CALL BIC(CH,IVRSTA,IPALIC) IZV(IVRSTA)=IZV(IVRSTA)-IPALIC diff --git a/a.out b/a.out deleted file mode 100755 index 46dde68..0000000 Binary files a/a.out and /dev/null differ diff --git a/zvezde b/zvezde new file mode 100755 index 0000000..123a053 Binary files /dev/null and b/zvezde differ -- cgit v1.2.3