REM BJones 4/19/97 
REM 

REM OK, here is a CADL file I wrote Change the entire units of a drawing. 
REM This Changes the Entire Drawing Not Just the Dimensions 
REM Set UNITS = 0 Inch, 1 MM, 2 feet, 3 CM, 4 Yards, 5 Meter 

CLEAR 
GETMENU "Select Unit to Convert Drawing to:", "Inch", "Millimeter", "Feet", "Centimeter", "Yards", "Meters", , , , 0, 1 
IF (@key==6) 
GOTO Meter 
IF (@key==5) 
GOTO Yard 
IF (@key==4) 
GOTO Cmeter 
IF (@key==3) 
GOTO Feet 
IF (@key==2) 
GOTO Mmeter 
IF (@key==1) 
GOTO Inch 
IF (@error==1) 
GOTO error 

:Meter 
SET UNIT,5 
PROMPT "Units Now Meters" 
GOTO end 

:Yard 
SET UNIT,4 
PROMPT "Units Now Yards" 
GOTO end 

:Cmeter 
SET UNIT,3 
PROMPT "Units Now Centimeters" 
GOTO end 

:Feet 
SET UNIT,2 
PROMPT "Units Now Feet" 
GOTO end 

:Mmeter 
SET UNIT,1 
PROMPT "Units Now Millimeters" 
GOTO end 

:Inch 
SET UNIT,0 
PROMPT "Units Now Inches" 
GOTO end 

:error 
PROMPT "Error During the Conversion. No Conversion Done." 
GOTO end 

:end 
WAIT 2 
Auto -1 
Redraw -1 
EXIT