Użytkownik "slawek" <f...@f...com> napisał:

> COMMON/DATA/IAGE,ITRSHLD,IFLAG
> IF(IAGE-ITRSHLD) 30,10,10
> C IFLAG=1 EDUCATED
> C IFLAG=0 UNEDUCATED
> C IFLAG=2 OTHER
> 10 GO TO (20) IFLAG+1
> GO TO 30
> 20 CALL AMNESIA
> 30 FORMAT(1H0,1X,I2)

No braaawo :() Goto wyliczane !. (i znow łza.. eh...)
Nastepny "cycuś" po implicit declaration :)
PS: Ze o FORMATcie nie wspomne (fakt ze F77 nieco tu poprawil)
PS1: No i jeszcze te kolumienki 72-76.. (dobrze pamietam?)

AK


---
Ta wiadomość została sprawdzona na obecność wirusów przez oprogramowanie antywirusowe
Avast.
https://www.avast.com/antivirus