'ENTAPPLD - first program run after starting system - sets "entry"
'           can select drive to use

public     entry $drive nrtries
'  $codedrv

global     x l $mc t $file dl tl

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

' if apinfo(ap_border) = 1
'   window border
' end if
'   x=1
  x=0
  if x=0
    screen print 21 10 15 1 "Enter data drive letter (eg L)"
    $drive = upper(chr(oldkey(INCHar)))
'     end if
  else
    $drive = "I"                '
  end if
message "Drive is:"&$drive

  lock system $drive
  $mc="START_"|$drive
' message "$mc) is:"&str($mc)
  tools macros load $mc

  lock system nrtries

  transfer "STARTAPP.rf3" in-memory

END MAIN
' tools directory new-directory "C:\jbi_prog"