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