00100	BEGIN "FRCTST"
00200	
00300	REQUIRE "<>%%" DELIMITERS;
00400	
00500	COMMENT DEFINE CMPVAR=0;
00600	
00700	REQUIRE " 700" MESSAGE;
00800	FORC CMPVAR ← 1 STEPC 1 UNTILC 5 DOC <
00900	   REQUIRE "900" MESSAGE;
01000	   OUTSTR(CVS(CMPVAR)&'15&'12);
01100	> ENDC
01200	
01300	END "FRCTST";