On Mon, 16 Nov 2015 21:37:05 +0100, "AK" <n...@n...com> wrote:
> LOGICAL EDU
> ...
> IF (IAGE.LT.ITRSHLD.AND.EDU) GO TO 100
> CALL AMNESIA
> 100

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)



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