0 'READUM.CHP  by Bill Templeton - 4/85
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 '  Recover files from Chipmunk disk
3 '  drive when you encounter disk
4 '  errors, especially 'RF' error 65
5 '  (Record not found) and 'CC' error
6 '  67 (Cyclical redundancy check).
7 '  The recovered file (MUNK.DO) will
8 '  show where the error(s) occurred,
9 '  contain all but the bad sectors.
10 MAXFILES=2:DEFSTRE,N,R:E=CHR$(27):R=E+"p":N=E+"q":Q=1:ONERRORGOTO20
11 CLS:PRINT@10,R" READ CHIPMUNK FILES "N:PRINT@81,"Filename (no extn's) ";:INPUTF$:F$="0:"+F$+".DO
12 PRINT@161,"Output to:  1-LCD  2-RAM  3-LPT ";:Q$=INPUT$(1):Q=VAL(Q$)
13 OPENF$FORINPUTAS1:ONQGOSUB14,15,16
14 OPEN"lcd:"FOROUTPUTAS2:PRINT@251,R" Output to display "N:CLS:GOTO17
15 OPEN"munk"FOROUTPUTAS2:PRINT@251,R" Output to MUNK.DO "N:GOTO17
16 OPEN"lpt:"FOROUTPUTAS2:PRINT@251,R" Output to printer "N
17 IFEOF(1)THEN19
18 A$=INPUT$(1,1):PRINT#2,A$;:GOTO17
19 PRINT#2,:PRINT#2,"<END>":MAXFILES=1:MENU
20 IFERR=52THENPRINT@252,R" File not found..."N:FORT=1TO500:NEXT:CLS:LFILES:FORX=1TO1000:NEXT:RESUME11
21 IFERR=55THENPRINT@252,R"  Bad filename... "N:FORT=1TO500:NEXT:CLS:LFILES:FORX=1TO1000:NEXT:RESUME11
22 IFERR>59THENPRINT@250,R" Chipmunk error "ERR" "N:PRINT#2,:PRINT#2,"<<<Error>>>":RESUME17
23 IFERRTHENPRINT@252,R"  Error"ERR"in"ERL"  ":END