*| >COM
*|        Auto Compact
*|============================
*|   Compacting Please Wait
*|============================
VDU21
SOUND 1,-15,150,3
VDU6:TIME=0:OSCLI("COMPACT"):VDU21
IF TIME>10 THEN *COM
VDU6,10:P."New Map:":VDU21
VDU6:OSCLI("MAP"):P.:OSCLI("FREE")
