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

  1. 0 'CHRXLT.BA --Phil Wheeler - 9/27/86      Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 CLS:MAXFILES=2:CLEAR256:DEFINTI-Z:DEFSTRA-H:E=CHR$(27):GOTO5
  3. 2 H=INPUT$(1,1):FORI=1TON:IFH=A(I)THENH=B(I):GOTO3ELSENEXT
  4. 3 PRINT#2,H;:IFEOF(1)THENCLOSE:GOTO4:ELSE2
  5. 4 BEEP:MAXFILES=1:MENU
  6. 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";
  7. 6 A=INKEY$:IFA=""THEN6
  8. 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
  9. 8 DATA  65, 66, 67, 68, 69, 70, 71, 72, 73,  1,  2,  3,  4,  5,  6,  7,  8,  9
  10.