PROC Main:
F:("\OPO\","BOT1.OPO")
ENDP

PROC F:(pr1z$,pr2z$)
  LOCAL lc5z$(130),lc17z$(20),lc6z%,dmyz1$(12),lc7z%
  LOCAL lc18z%,lc16z&,lc8z&,dmyz2$(2),lc9z%
  LOCAL lc10z%,lc11z%,lc12z%,lc13z%,lc14z%
  LOCAL lc15z%,lc1z%,lc2z%,lc3z%,lc4z%
  lc1z%=2
  lc2z%=2
  lc3z%=2
  lc4z%=2
  lc5z$=pr1z$+pr2z$+CHR$(0)
  lc6z%=CALL(2183,UADD(ADDR(lc5z$),1),ADDR(lc7z%),0,0,0)
  SECSTODATE lc8z&,lc9z%,lc10z%,lc11z%,lc12z%,lc13z%,lc14z%,lc15z%
  dINIT pr2z$
  dTEXT "Date",NUM$(lc11z%,2)+"/"+NUM$(lc10z%,2)+"/"+NUM$(lc9z%,4)
  dTEXT "Time",NUM$(lc12z%,2)+":"+NUM$(lc13z%,2)+":"+NUM$(lc14z%,2)
DIALOG
ENDP