0 'CHRXLT.BA --Phil Wheeler - 9/27/86 Club 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 1 CLS:MAXFILES=2:CLEAR256:DEFINTI-Z:DEFSTRA-H:E=CHR$(27):GOTO5 2 H=INPUT$(1,1):FORI=1TON:IFH=A(I)THENH=B(I):GOTO3ELSENEXT 3 PRINT#2,H;:IFEOF(1)THENCLOSE:GOTO4:ELSE2 4 BEEP:MAXFILES=1:MENU 5 PRINT@50,E"pCharacter Translator"E"q";:READN:DIMA(N),B(N),R(N),S(N):FORI=1TON:READR(I):A(I)=CHR$(R(I)):NEXT:FORI=1TON:READS(I):B(I)=CHR$(S(I)):NEXT:PRINT@90,N"Code Sets Read";: PRINT@168,E"pPress Any Key to Continue"E"q"; 6 A=INKEY$:IFA=""THEN6 7 CLS:FILES:PRINTE"pFile to Convert "E"q";:INPUTF:PRINTE"pOutput File "E"q";:INPUTG:OPENFFORINPUTAS1:OPENGFOROUTPUTAS2:CLS:PRINT@130,"Working...":GOTO2:DATA 18:DATA 1, 2, 3, 4, 5, 6, 7, 8, 9, 65, 66, 67, 68, 69, 70, 71, 72, 73 8 DATA 65, 66, 67, 68, 69, 70, 71, 72, 73, 1, 2, 3, 4, 5, 6, 7, 8, 9