32000 DIM Z$(29),CHBASE(256)¢32010 PROC ZS¢32020 POKE 106,PEEK(106)-4:GRAPHICS 0:RESTORE 32070¢32030 FOR I=1 TO 29:READ D:Z$(I)=CHR$(D):NEXT I¢32040 REM IN DER NAECHSTEN ZEILE DEN FILENAMEN EINTRAGEN¢32050 CLOSE #1:OPEN #1,4,0,"D:*.*:Z=USR(ADR(Z$)):CLOSE #1"¢32060 POKE 756,PEEK(106):END ¢32070 DATA 104,162,16,169,7,157,66,3,165,106¢32080 DATA 157,69,3,169,0,157,68,3,157,72,3¢32090 DATA 169,4,157,73,3,76,86,228¢
