!Parameter aus Text-File
!gelesen wird die Datei: para_dat.txt

finish  $/clear
*abbr,para_ein,/input,para_ein,txt


/prep7

*dim,par_dat,array,20,6

/input,para_dat,txt


*do,i,1,6
/title,aktuelle Parameter:   %par_dat(i,1)%    %par_dat(i,2)%
rectng,0,par_dat(i,1),0,par_dat(i,2)
aplot
/wait,1
adele,all,,,1
*enddo