0 'CPT-SS.ba  Scott T. Schad  1988
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
10 MAXFILES=2
20 PRINT "Ecrypt/Decrypt?"
30 Q$=INPUT$(1)
40 IF INSTR("Ee",Q$) THEN Q$="E":PRINT "Engrypt" ELSE Q$="D":PRINT "Decrypt"
50 FILES:INPUT"Source file";F1$
60 OPEN F1$ FOR INPUT AS 1
70 INPUT "Destination File";F2$
80 OPEN F2$ FOR OUTPUT AS 2
85 FOR Z=40TO49
90 IF EOF(1) THEN 140
100 A$=INPUT$(1,1)
110 PRINT A$;
120 IF Q$="E" THEN PRINT #2,CHR$(ASC(A$)+127);ELSE PRINT#2,CHR$(ASC(A$)-127);
130 NEXT Z
135 GOTO85
140 CLOSE1:CLOSE2
150 KILL F1$+".DO"
160 END