whereis.label:   print cls$:print :print "W H E R E   I S   ? "
print
print fisp$; : input "";filespec$
print
   on error goto w142:
   open "a:"+filespec$ AS 1
   close 1
   sifi$="a:"+filespec$
   s%=size(sifi$)
   lw$="A" : goto w150:

w142:
   on error goto w144:
   if err="OE" then print "LW A: NO FILE like ";filespec$
   if err="EX" then print "LW A: NO DISC"
   open "b:"+filespec$ AS 1
   close 1
   sifi$="b:"+filespec$
   s%=size(sifi$)
   lw$="B": goto w150:

w144:
   on error goto w146:
   if err="OE" then print "LW B: NO FILE like ";filespec$
   if err="EX" then print "LW B: NO DISC"
   open "m:"+filespec$ AS 1
   close 1
   sifi$="m:"+filespec$
   s%=size(sifi$)
   lw$="M" : goto w150:

w146:
   if err="OE" then print "LW M: NO FILE like ";filespec$
   print
   print ucase$(filespec$);"  wurde nirgends gefunden! " : print
   call weiter.zum.menu:
   goto menu:

w150:
   print ucase$(filespec$);" mit ";s%;" KBYTE befindet sich im LW ";lw$
print
print
call weiter.zum.menu:
goto menu:
50:
   print ucase$(filespec$);" mit ";s%;" KBYTE befindet sich im LW ";lw$
print
print
call w