0 'CHIBIT.BA - BY W. HUBBARD 10 MAXFILES=2:CLS:FILES:LINEINPUT".DO file to convert: ";FI$:IFRIGHT$(FI$,3)<>".DO"ANDRIGHT$(FI$,3)<>".do"THENFI$=FI$+".DO 11 OPENFI$FORINPUTAS1:OPEN"CHIB$$.do"FOROUTPUTAS2:CLS:PRINTFI$:PRINT@123,"F1 - Code":PRINT" F2 - Decode":PRINT" F8 - Menu":ONKEYGOSUB14,19,,,,,,13 12 KEYON:GOTO12 13 CLOSE:MENU 14 KEYOFF:CLS:PRINT"working... 15 IFEOF(1)THENPRINT"Done."CHR$(7);:CLOSE:KILLFI$:NAME"chib$$.do"ASFI$:MENU 16 A$=INPUT$(1,1):IFA$="^"THENA$="^^ 17 IFASC(A$)>127THENA$="^"+RIGHT$(STR$(ASC(A$)),3) 18 PRINT#2,A$;:PRINTA$;:GOTO15 19 KEYOFF:CLS:PRINT"working... 20 IFEOF(1)THEN15 21 A$=INPUT$(1,1):IFA$="^"THENGOSUB23 22 PRINT#2,A$;:PRINTA$;:GOTO20 23 A$=INPUT$(1,1):IFA$="^"THENRETURN 24 A$=A$+INPUT$(2,1):A$=STRING$(1,VAL(A$)):RETURN