bytes.label:
print cls$
c$=command$
if c$="" then goto bytes.text: else filename$=c$ : goto bytes.work:
bytes.text:
print "B Y T E S . C O M    Version 1.0   1987/07/17"
print "gibt  Filegroesse  in  KBYTES  und  BYTES an!"
print fisp$; : input "";filename$
bytes.work:
filename$=ucase$(filename$)
if filename$=chr$(27) then goto exit:
if filename$=chr$(77) then goto menu:
print "Ich zaehle ";filename$;"! Nicht ungeduldig werden!"
gbytes=0 : abytes=0 : cbytes=0 : ebytes=0 : chbyt=0
sifi%=size(filename$)
open filename$ AS 1
if end #1 then ende.bytes:
while not eof%
g%=get(1) : gbytes=gbytes+1
if g%=26 then abytes=abytes+1
if g%<32 then cbytes=cbytes+1
if g%>31 AND g%<128 OR g%>159 AND g%<=255 then chbyt=chbyt+1
if g%>127 AND g%<160 then ebytes=ebytes+1
wend
ende.bytes:
eof%=true%
close 1
print
print chr$(7);filename$;" : "
print tab(20);"Groesse in kBYTE       : ";:print using "###,###";sifi%
print tab(20);"Records (128er Bloecke): ";:print using "###,###";(gbytes-1)/128
print tab(20);"BYTES < 32 (z.B.:CTRL) : ";:print using "###,###";cbytes
print tab(20);"BYTES = ASC(26)        : ";:print using "###,###";abytes
print tab(20);"BYTES ASC 128-159      : ";:print using "###,###";ebytes
print tab(20);"BYTES 32-127 u. 160-255: ";:print using "###,###";chbyt
print tab(20);"GESAMTBYTES  netto     : ";:print using "###,###";gbytes+1-abytes
print
call weiter.zum.menu:
goto menu:
t
print tab(20);"GESAMTBYTES  netto     : ";:print using "###,###";gbytes+1-abytes
print
call weiter.zu