free.label:   print cls$:print :print "F R E E "
   print "FREE geht von den Speicherwerten des PCW 8512 aus ! " : print
   on error goto f142:
   anod=0: sa$="a:*.*" : sa%=size(sa$)
f142: if ERRX=4 then sa%=0 :anod=1
   on error goto f144:
   bnod=0:sb$="b:*.*" : sb%=size(sb$)
f144: if ERRX=4 then sb%=0 :bnod=1
   on error goto f146:
   sm$="m:*.*" : sm%=size(sm$)
f146: if ERRX=4 then sm%=0
   print
   kdil$="Keine Diskette im Laufwerk "
   if anod=1 then print kdil$;"A" else \
         print "KBYTE belegt im LW A: ";:print using "###";sa%;: \
         print tab(45);"KBYTE frei im LW A: ";:print using "###";173-sa%
   if bnod=1 then print kdil$;"B" else \
         print "KBYTE belegt im LW B: ";:print using "###";sb%;: \
         print tab(45);"KBYTE frei in LW B: ";:print using "###";706-sb%
         print "KBYTE belegt im LW M: ";:print using "###";sm%;
         print tab(45);"KBYTE frei in LW M: ";:print using "###";364-sm%
   print:print
call weiter.zum.menu:
goto menu: