COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TEST"
C00015 ENDMK
C⊗;
BEGIN "TEST"
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
	REQUIRE "GEOMES.HDR[GEM,HE]" SOURCE_FILE;
	INTEGER B1,B2,B3;
	INTEGER I,J,K,L;

	GEONIT;
	B1 ← MKCUBE(2,4,8);GEODPY;
	FOR I←1 STEP 1 UNTIL 100 DO
	⊂ ROTATE(B1,π/10,0,π/20);SHOW1(0,1);⊃;
	GEOMED;
	OUTSTR(↓&"EXIT FROM GEOMED"&↓);INCHRW;

END "TEST";