10 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!            REMOVE.BAS               !!
   !!           REMOVE V01-AA             !!
   !!     A 'TYPIST' SYSTEM PROGRAM       !!
   !!      SAVE COMPILED [1,2]<40>        !!
20 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!        RSTS/11 VERSION BY           !!
   !!          DARRYL JOHNSON             !!
   !!          BENTLEY COLLEGE            !!
   !!           OCTOBER 1973              !!
30 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
100 &:& "REMOVE V01-AA":&:& "  'REMOVE' will remove all 'TAB', '^I', 'ALT"
	:& "and 'ESC' codes from a file for use in the 'TYPIST' SYSTEM."
	:&:& "That is to say the file will print on a terminal"
105 & "exactly as before but internally will contain characters":
	& "acceptable to 'TYPIST'.":&:
	INPUT "Enter your input, output files ";F$,F1$
110 DIM S%(32%),I%(250%),O%(250%):ON ERROR GOTO 200:
	OPEN F$ FOR INPUT AS FILE 1%:OPEN F1$ AS FILE 2%:
	ON ERROR GOTO 9000:S%(I%)=I%*9%-I%+1% FOR I%=1% TO 32%:GOTO 300
200 &:& "An ERROR has been encountered on one of your FILES.":
	&:& "The ERROR is  - ";SYS(CHR$(6%)+CHR$(9%)+CHR$(ERR)):
	CLOSE 1%,2%:GOTO 9999
300 INPUT LINE #1%,F$:CHANGE F$ TO I%:P%,P1%=1%:
	IF I%(I%(0%))=27% THEN I%(0%)=I%(0%)-1%
	ELSE I%(0%)=I%(0%)-2%
310 FOR T%=1% TO I%(0%):IF I%(T%)<>9% THEN C%=I%(T%):GOSUB 1000:
	GOTO 400
320 C%=32%:P1%=P1%+1% UNTIL (P%>=S%(P1%-1%)) AND (P%<S%(P1%))
325 GOSUB 1000 UNTIL P%=S%(P1%)
400 NEXT T%:CHANGE O% TO O$:&#2% O$:O%(0%)=0%:GOTO 300
1000 O%(0%)=P%:O%(P%)=C%:P%=P%+1%:RETURN
9000 IF ERR=11 AND ERL=300 THEN RESUME 9999 ELSE ON ERROR GOTO 0
9999 CLOSE 1%,2%:END