Memtop= LPEEK($41C)'   nur mit RAMxxx.PRG
 IF Memtop=0 THEN END ' kein RAMxxx?
 Lw= WPEEK(Memtop-102)
 Lw$= CHR$(65+Lw)+":\"
 OPEN "F",1,"A:\*.*",0
 REPEAT
    FIELD 1,30,14 AS F1$
    GET 1,1
    IF EOF(1) THEN EXIT
    F$= LEFT$(F1$, INSTR(F1$, CHR$(0))-1)
    OPEN "F",2,Lw$+F$,0
    Found= NOT EOF(2)
    CLOSE 2
    IF Found THEN
       Writeln( LEFT$(F$+ SPC(13),13)+"exists")
    ELSE
       Writeln("copying "+F$)
       COPY "a:\"+F$ TO Lw$+F$
    ENDIF
 UNTIL End_Of_Universe
 CLOSE 1: END

 DEF PROC Writeln(A$)
    FOR I=1 TO LEN(A$)
       Conout( ASC( MID$(A$,I)))
    NEXT I
    Conout(13):Conout(10)
 RETURN

 DEF PROC Conout(A)
    BIOS (,3,2,A)
 RETURN