'ENTAPPLS - first program run after starting system - sets "entry"

public     entry $drive nrtries
'  $codedrv

global     x l $mc

MAIN
  single-step off
  screen clear box 1 1 25 80 0 0 no-border
  repaint off
  entry = "NEW"

' if apinfo(ap_border) = 1
'   window border
' end if

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

  $drive = "Y"                'message "Drive is:"&$drive

  lock system $drive
  $mc="start_"|$drive
  tools macros load $mc

  lock system nrtries

  transfer "STRTAPPC.rf3" in-memory

END MAIN