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";