10 DEFFNS="Resc"
   20 MODE7
   30 PRINT"This program will rescue the"'"menu from 8BS-60 if the ID"'"stamper corrupted it."'"Insert 8BS-60 and"'"press a key to continue."
   40 *FX21
   50 REPEATUNTILGET
   60 *MOUNT 0
   70 PRINT "Please wait!"
   80 F%=OPENIN"!BOOT"
   90 G%=OPENOUT"NEW"
  100 FORL%=1 TO &2104
  110 BPUT#G%,BGET#F%
  120 NEXT
  130 CLOSE#F%
  140 CLOSE#G%
  150 *DELETE !BOOT
  160 *RENAME NEW !Boot