perm filename TEST1.SAI[GEM,BGB]4 blob sn#088712 filedate 1974-03-01 generic text, type T, neo UTF8
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;