edit_routine:
 if edit<1 then
 do
    say "create tempf - please wait"
    do forever
      "execio 1 diskr ptflist"
      if rc>0 then leave
      parse pull line
      queue line
      "execio 1 diskw ptftemp"
    end
    "execio 0 diskw ptftemp(finis"
    "execio 0 diskw ptflist(finis"
 end
 address ispexec "edit dataid("ptftemp") panel(ptfeditp)"
 edit=1
return