home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / cpt-ss.ba < prev    next >
Text File  |  2006-10-19  |  603b  |  21 lines
  1. 0 'CPT-SS.ba  Scott T. Schad  1988
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 10 MAXFILES=2
  4. 20 PRINT "Ecrypt/Decrypt?"
  5. 30 Q$=INPUT$(1)
  6. 40 IF INSTR("Ee",Q$) THEN Q$="E":PRINT "Engrypt" ELSE Q$="D":PRINT "Decrypt"
  7. 50 FILES:INPUT"Source file";F1$
  8. 60 OPEN F1$ FOR INPUT AS 1
  9. 70 INPUT "Destination File";F2$
  10. 80 OPEN F2$ FOR OUTPUT AS 2
  11. 85 FOR Z=40TO49
  12. 90 IF EOF(1) THEN 140
  13. 100 A$=INPUT$(1,1)
  14. 110 PRINT A$;
  15. 120 IF Q$="E" THEN PRINT #2,CHR$(ASC(A$)+127);ELSE PRINT#2,CHR$(ASC(A$)-127);
  16. 130 NEXT Z
  17. 135 GOTO85
  18. 140 CLOSE1:CLOSE2
  19. 150 KILL F1$+".DO"
  20. 160 END
  21.