home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / chibit.ba < prev    next >
Text File  |  2006-10-19  |  780b  |  17 lines
  1. 0 'CHIBIT.BA - BY W. HUBBARD
  2. 10 MAXFILES=2:CLS:FILES:LINEINPUT".DO file to convert: ";FI$:IFRIGHT$(FI$,3)<>".DO"ANDRIGHT$(FI$,3)<>".do"THENFI$=FI$+".DO
  3. 11 OPENFI$FORINPUTAS1:OPEN"CHIB$$.do"FOROUTPUTAS2:CLS:PRINTFI$:PRINT@123,"F1 - Code":PRINT"   F2 - Decode":PRINT"   F8 - Menu":ONKEYGOSUB14,19,,,,,,13
  4. 12 KEYON:GOTO12
  5. 13 CLOSE:MENU
  6. 14 KEYOFF:CLS:PRINT"working...
  7. 15 IFEOF(1)THENPRINT"Done."CHR$(7);:CLOSE:KILLFI$:NAME"chib$$.do"ASFI$:MENU
  8. 16 A$=INPUT$(1,1):IFA$="^"THENA$="^^
  9. 17 IFASC(A$)>127THENA$="^"+RIGHT$(STR$(ASC(A$)),3)
  10. 18 PRINT#2,A$;:PRINTA$;:GOTO15
  11. 19 KEYOFF:CLS:PRINT"working...
  12. 20 IFEOF(1)THEN15
  13. 21 A$=INPUT$(1,1):IFA$="^"THENGOSUB23
  14. 22 PRINT#2,A$;:PRINTA$;:GOTO20
  15. 23 A$=INPUT$(1,1):IFA$="^"THENRETURN
  16. 24 A$=A$+INPUT$(2,1):A$=STRING$(1,VAL(A$)):RETURN
  17.