asciitype:
print cls$ : print
print "A S C I I T Y P E"
print : print "gibt ASCII-Files vollstaendig am Bildschirm aus!)"
print
print fisp$; : input "";filespec$
print
on error goto error.label:
open filespec$ AS 1
typeline=0
REM
if end #1 then set.eof.this:
while not eof%
g%=get(1)
if g%=26 then goto set.eof.this:
if g%= 10 then typeline=typeline+1
print chr$(g%);
if typeline=24 then typeline=0 : call weiter.zum.menu:
wend
print:print "ENDE "
set.eof.this:
eof%=true%
close 1
print : print "=======> ENDE DER DATEI: ";ucase$(filespec$) : print
call weiter.zum.menu:
goto menu:

eof%=true%
close 1
print :