0 'Club 100 Library - 415/939-1246 BBS,    937-5039 Newsletter, 932-8856 Voice
1 'ERASER.BA (c)1986 AfterHours Software by Phil Wheeler - All Rights Reserved
2 '
3 'This utility will allow you to delete a "illegally" named file accidentally
4 'SAVEd to the TDD. You must pad a shorter filename with trailing spaces
5 'to make it six characters long PLUS a period and the two-letter extension.
6 '
10 MAXFILES=2:CLEAR500:ONERRORGOTO25
11 OPEN"COM:98N1D"FORINPUTAS1:OPEN"COM:98N1D"FOROUTPUTAS2
12 PRINT#2,"ZZ"CHR$(7)CHR$(0)CHR$(248)CHR$(13);
13 GOSUB24
14 LINEINPUT"Enter File Name ";N$:IFLEN(N$)<9THENBEEP:PRINT"INCLUDE TRAILING SPACES":PRINT" AND/OR EXTENSION!":GOTO14
15 CS$=N$+SPACE$(24-LEN(N$))+"F"+CHR$(0)
16 CS$=CHR$(LEN(CS$))+CS$
17 FORI=1TOLEN(CS$):SM=SM+ASC(MID$(CS$,I,1)):NEXT
18 CK=(SMMOD256)XOR255
19 PRINT#2,"ZZ"CHR$(0)CS$CHR$(CK);
20 R$=INPUT$(31,1):R1$=RIGHT$(R$,4):H=ASC(R1$):R1$=RIGHT$(R$,3):L=ASC(R1$)
21 IFH+L=0THENERROR52
22 PRINT#2,"ZZ"CHR$(5)CHR$(0)CHR$(250);
23 R$=INPUT$(4,1):GOTO26
24 R$=INPUT$(4,1):IFASC(R$)<>18THENERROR17ELSERETURN
25 IFERR=54THENCLOSE1:OPEN"COM:98N1D"FORINPUTAS1:RESUMEELSEPRINT"ERROR #"ERR"IN LINE"ERL
26 CLOSE:MAXFILES=1:END