diff options
-rw-r--r-- | KRI.FOR | 4 | ||||
-rw-r--r-- | Makefile | 13 | ||||
-rw-r--r-- | POH.FOR | 4 | ||||
-rw-r--r-- | README.md | 18 | ||||
-rw-r--r-- | ZMA.FOR | 4 | ||||
-rw-r--r-- | ZVEZDE.FOR | 15 | ||||
-rwxr-xr-x | a.out | bin | 25172 -> 0 bytes | |||
-rwxr-xr-x | zvezde | bin | 0 -> 25120 bytes |
8 files changed, 51 insertions, 7 deletions
@@ -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 @@ -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). @@ -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 @@ -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 Binary files differBinary files differ |