string/mp(5000,40),vg(5000,20),f_str(40)
number/ende

f_str = 'c:\temp\test.exp'


l10: text/'Directory-EXP-Liste',f_str,resp,deflt

jump/hlt2:,hlt2:,,,,,,resp

l20: choose/'Sort-Richtung',$
	'Aufsteigend',$
	'Absteigend',$
	deflt,1,$
	wie

jump/hlt2:,hlt2:,,,,,,wie

fetch/txt,8,f_str,iferr,l10:
reseq/8,start,1,incr,1 

ende = getl(8)

  reset/8


next:


do/loop1:,ik,1,ende,1
        if/ik == ende,jump/nochmal:

   read/8,linno,ik,mp(1)
   read/8,linno,ik+1,mp(2)
 

 
delim/'='
   read/8,linno,ik,vg(1)
   read/8,linno,ik+1,vg(2)
delim/','

vg(1) = repstr(vg(1),'p','',1)
vg(2) = repstr(vg(2),'p','',1)

wert1 = valf(vg(1))
wert2 = valf(vg(2))

ifthen/wie == 5
        if/wert1 < wert2,jump/loop1:
elseif/wie ==6
        if/wert1 > wert2,jump/loop1:
endif
        
$$ zeilen tauschen
   write/8,linno,ik,mp(2)
   write/8,linno,ik+1,mp(1)

loop1:
nochmal:  weiter=weiter+1
        if/weiter < (ende-1),jump/next:
$$
weiter=0

 fprint/8
 
  choose/'Ergebnis Ok','File Speichern','Abbruch',deflt,1,resp
 jump/hlt:,hlt:,,,,,,,,,,,,,,resp
 
 if/ resp == 5, file/txt,8
 
 hlt:
 fterm/txt,8
 hlt2:
 
halt