%BEGIN !*********************************************************************** !* HAS SIX UNUSUAL TYPE CHECKING FAULTS * !*********************************************************************** %INTEGER I,J,K %STRING(1)S %REALMAPSPEC FRED(%INTEGER X) READ SYMBOL(FRED(1)) READSYMBOL(S) READITEM(I) K=FRED(0) %REALMAP FRED(%INTEGER X) %RESULT==J %END %FOR I=FRED(1),1,10 %CYCLE; %REPEAT %ENDOFPROGRAM