erase
use b:adressen index adressen
go top
store "j" to weiter
do while (weiter) <> "n"
  ? trim(vorname1) +" "+ name1
  ? trim(vorname2) +" "+ name2
  ? trim(prstrasse) +" "+ nr
  ? trim(plz) +" "+ Ort
  ? prtelefon
  ? co
  ? trim(dlstrasse) +" "+ dlnr
  ? trim(dlplz) +" "+ dlort
endif
  ? dltelefon1 + dltelefon2
  ?
  ?
  ? "Sollen weitere Anschriften aufgelistet werden?"
  wait to weiter
  erase
  skip
enddo return










                                 Busch       