00100	BEGIN "MAIN"
00200	INTEGER I,J,K;
00300	I←3;
00350	K←I-((I DIV 2)*2);
00375	K←TRUE;
00400	IF K THEN OUTSTR("TRUE") ELSE OUTSTR("FALSE");
00500	END "MAIN";