01-15-2004, 05:42 PM
Code:
INPUT "Input File: ", InFile$
INPUT "Output File: ", OutFile$
OPEN InFile$ FOR BINARY AS #1
OPEN OutFile$ FOR BINARY AS #2
DO
B$ = " "
GET #1, , B$
Z$ = CHR$(ASC(B$) XOR &HF0)
PUT #1, , Z$
LOOP UNTIL SEEK(1) = LOF(1)
CLOSE