00100	BEGIN
00200	INTEGER I,J,K;
00300	REQUIRE 10 POLLING_INTERVAL;
00400	I←I+I+I+I+I+I+I+I+I;
00500	I←I+I+I+I+I+I+I+I+I;
00600	I←I+I+I+I+I+I+I+I+I;
00700	FOR I ← 1,2,3 DO J←J+I;
00800	FOR J←1,2,2 DO 
00900		BEGIN
01000		LABEL L;
01100		IF J>K THEN CONTINUE;
01200		I←I+I+I+I+I+I+I;
01300		I←I+I+I+I+I+I+I;
01400		I←I+I+I+I+I+I+I;
01500		I←I+I+I+I+I+I+I;
01600		REQUIRE 1000 POLLING_INTERVAL;
01700		I←I+I+I+I+I+I+I+I;
01800		I←I+I+I+I+I+I+I+I;
01900		L: J←J+J+J+J+J+J+J+J;
02000		J←J+J+J+J+J+J+J+J;
02100		END;
02200	FOR I← 1 STEP 1 UNTIL 1000 DO
02300		IF J>0 THEN CONTINUE ELSE J←0;
02400	REQUIRE 0 POLLING_INTERVAL;
02500	I←I+I+I+I+I;
02600	POLL;
02700	FOR I←1 STEP 1 UNTIL 10 DO J←1;
02800	END