HEADmaster

8 files changed, 51 insertions, 7 deletions

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 '<ENTER>'
+C	PAUSE '<ENTER>'
+	write(*,*)'<ENTER>'
+	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 '<ENTER>'
+C	PAUSE '<ENTER>'
+	write(*,*)'<ENTER>'
+	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 '<ENTER>'
+C	PAUSE '<ENTER>'
+	write(*,*)'<ENTER>'
+	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 <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!','           ',' '
 	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
diff --git a/a.out b/a.out
deleted file mode 100755
index 46dde68..0000000
--- a/a.out
+++ /dev/null
diff --git a/zvezde b/zvezde
new file mode 100755
index 0000000..123a053
--- /dev/null
+++ b/zvezde