00100	BEGIN "TEST8"
00200		INTEGER ROW,COL,IMG;
00300		DEFINE ↓="(13&10)";
00400	
00500		STRING PROCEDURE N(INTEGER X);
00600			RETURN(((X%'200)+'100)&(X LAND '177));
00700	
00800		DEFINE Q="'177";
00900	
01000		OPEN(1,"DSK",0,0,2,0,0,0);
01100		ENTER(1,"XAP8",0);
01200	
01300		IMG ← 0;
01400	FOR COL ← 0 STEP 1 UNTIL 1 DO
01500	FOR ROW ← 0 STEP 1 UNTIL 3 DO
01600	BEGIN
01700		IMG ← IMG + 1;
01800		OUT(1,Q&"I"&N(70+COL*600)&N(20+ROW*420));
01900		OUT(1,Q&"⊗"&'26);
02000		OUT(1,"BABY"&CVS(IMG)&".PLT[998,BGB]"&↓);
02100	END;
02300		RELEASE(1);
02500	END "TEST8";