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