home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / encode.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  35 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 ' ENCODE.MMM - Marvin M. Miller, 75665,312 -  27-Jun-84
  3. 2 '
  4. 110 MAXFILES=2
  5. 120 INPUT" Master Codes xx,xx";H,I
  6. 130 CLS:PRINT" Will you be..."
  7. 140 PRINT"               1 - CODING"
  8. 150 INPUT"               2 - DECODING  ";Z
  9. 170 IFZ<>1ANDZ<>2THEN130
  10. 180 PRINT" File to be ";
  11. 190 IFZ=2THENPRINT"de";
  12. 200 INPUT"coded";A$
  13. 210 INPUT" Name of new file";B$
  14. 220 IFLEN(B$)>6THENCLS:PRINT"New file name must be less then 6 characters":GOTO210
  15. 240 PRINT"TRANSLATION UNDERWAY -- Please wait"
  16. 250 OPENA$FORINPUTAS1
  17. 260 OPENB$FOROUTPUTAS2
  18. 265 N=5:IFZ=2GOTO310
  19. 270 C$=INPUT$(1,1):D$=CHR$(ASC(C$)+N)
  20. 280 IFD$=CHR$(127)THEND$=CHR$(33):GOTO285
  21. 283 IFD$=CHR$(224)THEND$=CHR$(36)
  22. 285 PRINT#2,D$;:N=N+H:IFN=>ITHENN=5
  23. 300 IFEOF(1)THEN320
  24. 305 GOTO270
  25. 310 E$=INPUT$(1,1):IFE$=CHR$(33)THENE$=CHR$(127):GOTO313
  26. 312 IFE$=CHR$(36)THENE$=CHR$(224)
  27. 313 F$=CHR$(ASC(E$)-N):PRINT#2,F$;:N=N+H:IFN=>ITHENN=5
  28. 315 IFEOF(1)THEN320
  29. 316 GOTO310
  30. 320 PRINT" File converted"
  31. 330 FORT=1TO10:BEEP:NEXT
  32. 360 PRINT" To kill old file "A$",
  33. 370 PRINT" Type  Kill"CHR$(34)A$".DO"CHR$(34)" AND <ENTER>
  34. 380 CLOSE:END
  35.