BEGIN "TEST1" REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE; REQUIRE "GEOMED.HDR" SOURCE_FILE; INTEGER B1; MKUNIV; B1 ← INB3D("KNOT"); GEODPY;INCHRW; B1 ← INB3D("JACK[DAT,BGB]"); GEODPY;INCHRW; B1 ← INB3D("DODECA[DAT,BGB"); GEODPY;INCHRW; WHILE TRUE DO BEGIN ROTATE(B1,π/40,π/30,π/20);GEODPY; END; END;