%BEGIN !*********************************************************************** !* TESTS SOME VERY NOTTED CONDITIONS FOR CONSISTENCY. NO OPUT IF OK * !*********************************************************************** %INTEGER I,J,K %ROUTINESPEC A %ROUTINESPEC B %ROUTINESPEC C K=0 %CYCLE I=-1,1,1 %CYCLE J=0,1,3 %IF %NOT %NOT %NOT %NOT I=1 %THEN A %ELSE B %IF %NOT (%NOT I=1) %THEN A %ELSE B %IF I=1 %THEN A %ELSE B C %IF %NOT I=1 %THEN A %ELSE B %UNLESS I=1 %THEN A %ELSE B C %IF I=1 %AND J#2 %THEN A %ELSE B %IF I=1 %AND %NOT J=2 %THEN A %ELSE B C %IF I=1 %OR 1<=J<=2 %THEN A %ELSE B %IF I=1 %OR (1<=J %AND J<=2) %THEN A %ELSE B C %REPEAT %REPEAT %CYCLE I=-1,1,1 %CYCLE J=0,1,3 %IF I=1 %AND %NOT J#1 %THEN A %ELSE B %IF I=1 %AND %NOT(J#1) %THEN A %ELSE B C %IF I=1 %OR %NOT 1<=J<=2 %THEN A %ELSE B %IF I=1 %OR %NOT(1<=J %AND J<=2) %THEN A %ELSE B C %IF I=1 %AND J=2 %THEN A %ELSE B %IF %NOT(%NOT(I=1 %AND J=2)) %THEN A %ELSE B C %REPEAT %REPEAT %ROUTINE A;K=K<<8!'A'; %END %ROUTINE B;K=K<<8!'B'; %END %ROUTINE C %IF K=M'AA' %OR K=M'BB' %OR K=M'AAA' %OR K=M'BBB' %C %THEN K=0 %AND %RETURN %MONITOR %STOP %END %ENDOFPROGRAM