$ veld_1 = P1
$
$ open/read popupfile POPUP_10.HTML
$ open/write popupfileout POPUP.HTML
$popupleesloop:
$ read/end_of_file=eindepopup popupfile popupregel
$parsestring:
$ zoekwaarde1 = F$LOCATE("|",popupregel)
$ IF zoekwaarde1 .EQS. F$LENGTH(popupregel)
$ THEN
$   write popupfileout popupregel
$   goto popupleesloop
$ ENDIF
$ zoekwaarde2 = F$LOCATE("|",F$EXTRACT(zoekwaarde1+1,999,popupregel))
$ parsewaarde = F$EXTRACT(zoekwaarde1+1,zoekwaarde2,popupregel)
$ popupregel = f$extract(0,zoekwaarde1,popupregel) + veld_'parsewaarde + f$extract(zoekwaarde1+zoekwaarde2+2,999,popupregel)
$ goto parsestring
$eindepopup:
$ close\/nolog popupfile
$ close\/nolog popupfileout
$ exit