'ENTAPPLC - 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"


  $drive = "C"                'message "Using SW2K_NEW"

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

  lock system nrtries

  transfer "STRTAPPC.rf3" in-memory

END MAIN