COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	BEGIN "TEST32"
 00003 ENDMK
⊗;
BEGIN "TEST32"
	INTEGER ROW,COL,IMG;
	DEFINE ↓="(13&10)";

	OPEN(1,"DSK",0,0,2,0,0,0);
	ENTER(1,"XAP32",0);

	IMG ← 0;
	OUT(1,"~X0.3;Y0.25"&↓);
FOR COL ← 0 STEP 1 UNTIL 3 DO
FOR ROW ← 0 STEP 1 UNTIL 7 DO
BEGIN
	OUT(1,"I"&CVS(100+ROW*240)&","&CVS(200+COL*325)&";");
	OUT(1,"⊗Q"&CVS(IMG)&".PLT;"&↓);
	IMG ← IMG + 1;
END;

	RELEASE(1);

END "TEST32";