sys:c/setpatch QUIET
sys:c/assign c: sys:c
assign devs: sys:devs/
assign libs: sys:libs
assign libs: sys:classes ADD
assign keymaps: devs:keymaps

assign >nil: rad: EXISTS
IF WARN
  mount DEVICE rad: FROM devs:rad
ELSE
  delete rad:t ALL >NIL:
  delete rad:env ALL >NIL:
ENDIF

makedir rad:t
makedir rad:env
makedir rad:env/sys

assign t: rad:t
assign env: rad:env



c:copy >NIL: ENVARC: ENV: ALL NOREQ

IF EXISTS DEVS:Monitors
  IF EXISTS DEVS:Monitors/VGAOnly
    DEVS:Monitors/VGAOnly
  EndIF

  C:List >NIL: DEVS:Monitors/~(#?.info|VGAOnly) TO T:M LFORMAT "DEVS:Monitors/%s"
  e T:M
  C:Delete >NIL: T:M
EndIF

iprefs

assign work: work/
IF EXISTS s:user-startup
  e s:user-startup
EndIF

stack 300000


rtpatch >NIL:

echo "Radium for UAE."
echo ""
echo "Type e 1, e 2, e 3 or e 4"
echo ""
echo "e 1 - Radium 800x600"
echo "e 2 - Radium 1024x768"
echo "e 3 - Radium 1152x864"
echo "e 4 - Radium 1280x1024"
echo "e 5 - Load workbench"
echo ""
