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