set c0 find |; SYSL? if empty jump keine exp p e-unihtm exp w0 z=1 first :lo var s var (b" L" e" ") ins $lc var s var (b" L") ins $ln wri z '. ' exp wX wri $ln exp w0 wri "
" n next z+1 if yes jump lo end :keine wri "_!_POP Keine gefunden" n