'ENT_SRVR - entry to server tasks

public     entry $drive nrtries
global     x l

MAIN
  single-step off
  screen clear box 1 1 25 80 0 0 no-border
  repaint off

'   screen print 21 10 15 1 "Enter data drive letter (eg L)"
'   $drive = chr(oldkey(INCHar))

'   lock system $drive

'   lock system nrtries
  transfer "STARTSVR.rf3" in-memory
END MAIN