dim shift,f$,s$
dim fn$
sel = popupmenu(item$)
shift = @@Shift
if sel = 0 then
exit proc
else
if shift = 0 then
call @@openFile (files$[sel])
@redraw = 0
@MoveFileTop
@FindStringBottom "(0"
@MoveFileTop
@redraw = 1
if @@SearchFound = 0 then
d$ = date0$
d$ = mid$(d$, 3, 2) + "." + mid$(d$, 6, 2) + "." + right$(d$, 2)
@MoveFileTop
@FindStringBottom "'"
if @@SearchFound = -1 then
@MoveEndLine
@Insert "'" + "(" + d$ + ")"
MoveWindow(@hwnd, 280, 130, 582, 480, TRUE)
@FileSave
else
@MoveEndLine
@Insert "(" + d$ + ")"
MoveWindow(@hwnd, 280, 130, 582, 480, TRUE)
@FileSave
end if
else
MoveWindow(@hwnd, 280, 130, 582, 480, TRUE)
end if
elseif shift = 2 then
fn = freefile()
open files$[sel] for output as #fn
close #fn
end if
end if
end proc