home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
tel
/
chibit.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
780b
|
17 lines
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