00100	BEGIN "TEST6"
00200		INTEGER ROW,COL,IMG;
00300		DEFINE ↓="(13&10)";
00400	
00500		OPEN(1,"DSK",0,0,2,0,0,0);
00600		ENTER(1,"XAP6",0);
00700	
00800		IMG ← 0;
00900		OUT(1,"~X0.67;Y0.57"&↓);
01000	
01100	FOR ROW ← 0 STEP 1 UNTIL 2 DO
01200	FOR COL ← 0 STEP 1 UNTIL 1 DO
01300	BEGIN
01400		IMG ← IMG + 1;
01500		OUT(1,"I"&CVS(150+ROW*600)&","&CVS(130+COL*750)&";");
01600		OUT(1,"⊗L"&CVS(IMG)&".PLT[00,BGB];"&↓);
01700	END;
01800	
01900		RELEASE(1);
02000	
02100	END "TEST6";