size.label:
print cls$ : print
sizetext:
      print "S I Z E  filespec  / wildcard chars (*.*) erlaubt !" : print
      input "FILESPECIFICATIONS (drive:filename.ext) eingeben : ";filespec$
sizesize:
      i%=size(filespec$)
      if i%<>0 then goto sizeprint:
      open filespec$ AS 1
      close 1
      goto sizeprint:
sizeprint:
      print:print ucase$(filespec$);" = ";i%;" KBYTE":print
sizeendlabel:
call weiter.zum.menu
goto menu:
nt:
sizeprint:
      print:print ucase$(filespec$);"