* eingabe%=Ž("ram:$.!x.work.namesexec") ' ausgabe%=®("adfs:files.nameslist") I%=0 ( òbackplay(" "," "," ") 2 Õ#ausgabe%,"*quit" < Ù#eingabe% F ô PRINT A$+B$+C$ P Ù#ausgabe% Z *QUIT d Ý òbackplay(A$,B$,C$) n ç ¬(Å#eingabe%) Œ x DATEI$=¾#eingabe% ‚ ô PRINT "<",DATEI$,">" Œ A$=ÀDATEI$,§DATEI$," ")) ‘# X$=ÂDATEI$,©(DATEI$)-©(A$)) – B$=ÀX$,§X$," ")) ) C$=ÂDATEI$,©(DATEI$)-©(A$)-©(B$)) ¥< ô PRINT " A$ <",A$,"> X$ <",X$,"> B$ <",B$,"> C$ <",C$ ª òbackplay(A$,B$,C$) ´ ç ¬(I%=0) Œ ¾ ç (I% ƒ 2)=0 Œ È ô PRINT " A$ <",A$,">" Ò ô PRINT " B$ <",B$,">" Ü ô PRINT " C$ <",C$,">" æ) Õ#ausgabe%,A$+" "+C$+" "+B$ ð Í ú Í I%=I%+1 Í á ÿ