FileIn$ = COMMAND$
IF FileIn$ = "" THEN INPUT "ASCII-File zum konvertieren:", FileIn$
IF FileIn$ = "" THEN END 1
pp% = INSTR(FileIn$, "."): IF pp% = 0 THEN FileIn$ = FileIn$ + ".ANS"
pp% = INSTR(FileIn$, "."): FileOut$ = LEFT$(FileIn$, pp%) + "ASC"
CLS : SHELL "type " + FileIn$

OPEN FileOut$ FOR OUTPUT AS #1
FOR y% = 1 TO 25
   tmp$ = ""
   FOR x% = 1 TO 80
       a$ = CHR$(SCREEN(y%, x%, 0))
       tmp$ = tmp$ + a$
   NEXT x%
   tmp$ = RTRIM$(tmp$)
   PRINT #1, tmp$
NEXT y%

PRINT : PRINT
PRINT "ANS-ASC Konverter. (C) 1992 Bernd Hohmann"
PRINT "ANSI-Datei " + FileIn$ + " wurde nach " + FileOut$ + " konvertiert."
PRINT
END 0