-- MEDSTART.MAC, Mike Nelson 25/Oct 1996
--	This is the place to set up all the system variables unique to CCL
--	used during a 2D draughting session This version is for the UNIX AND THE nt version of medusa

let alpha$='abcdefghijklmnopqrstuvwxyz' -- used by some customisation
--	set up pointers to useful directories
if (OS$TYP .eq. 'win_nt') then
--write 'win_nt'
let prod$ = "m:\medusa\ccl_products"
let prog$ = "m:\medusa\ccl_products\med2d\m2d\programs"
let mac$ = "m:\medusa\ccl_products\med2d\m2d\macro"
let sym$2d = 'm2d\symbol\'
let drby$$ = <getenv("USERNAME")>
else
--write 'unix'
let prod$ = "/medusa/ccl_products"
let prog$ = "/medusa/ccl_products/med2d/m2d/programs"
let mac$ = "/medusa/ccl_products/med2d/m2d/macro"
let sym$2d = 'm2d/symbol/'
let drby$$ = <getenv("USER")>
endif
let ready$ ="baCis 1>"  --for when running in bacis1 mode
reprad 0
hitrad .1
sh off