home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / cipher.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  36 lines

  1. 0 'CIPHER.WHT (V7.3)  Bill Templeton       [75655,1056]  10-Oct-84
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE 
  3. 2 ' Copyright 1984  All rights reserved
  4. 3 '   mods to: CIPHER.MMM/DL7
  5. 4 '     by Marvin Miller [75665,312]
  6. 10 CLS:MAXFILES=2:DEFINTA-Z:E$=CHR$(27):RV$=E$+"p":NO$=E$+"q":ONERRORGOTO68
  7. 12 PRINT@42,"Master Codes xx.xx";:INPUTH,I
  8. 14 PRINT@98,"1 - CODING
  9. 16 PRINT@138,"2 - DECODING ";:INPUTZ
  10. 18 IFZ<>1ANDZ<>2THEN14
  11. 20 PRINT@162,"File to be ";
  12. 22 IFZ=2THENPRINT"de";
  13. 24 INPUT"coded";A$:OPENA$FORINPUTAS1
  14. 26 PRINT@202,"Name of new file";:INPUTB$
  15. 28 IFLEN(B$)>6THENCLS:PRINT@42,"New file name must be";TAB(42);"less than 6 characters":GOTO26
  16. 30 CLS:PRINT@81,RV$;" TRANSLATION UNDERWAY -- Please Wait ";NO$
  17. 32 OPENB$FOROUTPUTAS2
  18. 34 N=5:IFZ=2GOTO48
  19. 36 C$=INPUT$(1,1):C=ASC(C$):IFC=13THENC=38
  20. 38 IFC=10THENC=37
  21. 40 D=C+N:IFD=127THEND=35
  22. 42 IFD>123THEND=D-92
  23. 44 D$=CHR$(D):PRINT@179,D$;:PRINT#2,D$;:N=N+H:IFN=>ITHENN=5
  24. 46 IFEOF(1)THEN62ELSE36
  25. 48 E$=INPUT$(1,1):E=ASC(E$):IFE=35THENE=127
  26. 50 F=E-N:IFF<32THENF=F+92
  27. 52 IFF=37THEN58
  28. 54 IFF=38THENPRINT#2,:GOTO58
  29. 56 F$=CHR$(F):PRINT@179,F$;:PRINT#2,F$;
  30. 58 N=N+H:IFN=>ITHENN=5
  31. 60 IFEOF(1)THEN62ELSE48
  32. 62 PRINT@172,RV$;" File converted ";NO$
  33. 64 FORT=1TO5:BEEP:NEXT
  34. 66 CLOSE:MAXFILES=1:MENU
  35. 68 IFERR=52ORERR=55THENRESUME20ELSEPRINTERR;ERL:END
  36.