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

external  fentrybox() messbox() vloadif() messboxwait()

public     entry $drive ptstr $screen ver count base #startdate #enddate dpath

global     x $tendernr $loconr loadlibs() EnterAttach()


MAIN
  single-step off
  single-step on
  file unload all
'  loadlibs()
  screen clear box 1 1 25 80 0 0 no-border
  repaint off
  error off
  EnterAttach()
message "FINISHED"
END MAIN


FUNCTION EnterAttach()
  vloadif("attach.vws")
while true
  x=precords
  data goto record record-number x
'message "Last engine entered is"&[Loco]
'enter tender nr
  x=messboxwait(" Last loco entered was"&[Loco],0,1,0)
message "x) is:"&str(x)
  if x = -1
    return (-1)
  end if
  while true
    x = fentrybox(" Enter Tender Number ",4,"*4#",$tendernr)
    $tendernr = ptstr
    exit while
  end while

'enter loco nr
  while true
    x = fentrybox(" Enter Loco Number ",4,"*4#",$loconr)
    if x = -1
      continue while
    end if
    $loconr = ptstr
    exit while
  end while

'enter start date
  while true			
    x = fentrybox(" Enter Start date ",10,"##\/##\/####",#enddate)
    if x = 0
      #startdate = ptstr
      exit while
    end if
  end while
'message #startdate

'enter end date
  while true			
    x = fentrybox(" Enter End date ",10,"##\/##\/####",#startdate)
    if x = 0
      #enddate = ptstr
      exit while
    end if
  end while
'message #enddate

'  order change key "[Job_Nr]"
'inchar
  data enter lock
    [Tender]=$tendernr
    [Loco]  =$loconr
    [Start] =#startdate
    [End]   =#enddate 	
  write-record
end while
END FUNCTION'  EnterAttach()

FUNCTION loadlibs()
' load other libraries
'  load lpath|"bpopdb.psl" in-memory
'  load lpath|"bpoptabl.psl" in-memory
'  screen clear box 1 1 sch scw 0 0 no-border
'  load lpath|"datelib.rf3" in-memory
'  load lpath|"indexlib.rf3" in-memory
'  load lpath|"envlib.rf3" in-memory
'  load lpath|"strlib.rf3" in-memory
  load "dfilelib.rf3" in-memory
'  load lpath|"filelib.rf3" in-memory
  load "uintlib.rf3" in-memory
'  load lpath|"doslib.rf3" in-memory
''  load lpath|"wraptext.rf3" in-memory'
'  load lpath|"soundlib.rf3" in-memory
'  load lpath|"proj_lib.rf3" in-memory
END FUNCTION