0 'RESCUE.BA adapted by Bill Templeton, revised by Robert Benson (10/10/91) 1 MAXFILES=2:ONERRORGOTO15:SOUNDON:CLS:PRINT:SCREEN0,0:E$=CHR$(27):CLS :PRINTE$;"p CASSETTE DOCUMENT FILE RESCUE PROGRAM ";E$"q 2 PRINT@49,"(heavy weather option)":PRINT" 1. Depress recorder's pause key as soon as click is heard from your" 3 PRINT" Model 100.":PRINT" 2. Release pause key after moving to part of tape still to be salvaged." 4 OPEN"CAS:"FORINPUTAS#1:OPEN"RESCUE"FORAPPENDAS#2 5 IFINKEY$=""THEN5ELSECLS 6 A$=INPUT$(1,#1):GOSUB7:GOSUB9:GOTO6 7 PRINT#2,A$;:PRINTA$;:IF(POS(0)MOD40)=0ANDASC(A$)<>13THENGOSUB14 8 RETURN 9 IFEOF(1)=0THENRETURN 10 BEEP:BEEP:CLS:PRINT@12,E$"p Rescue over! "E$"q 11 PRINT" Is tape at end of file? If not try again after inspecting and" 12 PRINT" evacuating RESCUE.DO. Do a string search there for blocks`";CHR$(239);"' showing" 13 PRINT" where errors were detected.";:END 14 PRINT@40*(CSRLINMOD7),SPACE$(40);:PRINT@40*(CSRLINMOD7),STRING$(40,255); :PRINT@40*((CSRLIN+5)MOD7),"";:RETURN 15 PRINT#2,CHR$(239);:PRINT:GOSUB14:PRINT"erl =";ERL;" ; err=";ERR:BEEP:GOSUB14:RESUME