'Copyright 2000 The American Cryptogram Association (ACA)
'3613 Piedmont Drive, Plano TX 75075-6234
'All rights reserved.

'Decryption program for CC-1 in Computer
'Column for March/April, 2000.
CiphKey = 500
Read CiphVal
Do While Ciphval <> -1
   Print  Chr$(CiphKey XOR CiphVal);
   Read Ciphval
Loop
data 445,402,468,397,411,385,468,387,405
data 410,384,468,384,411,468,406,385,413
data 408,400,468,405,468,391,412,413,388
data 472,468,400,411,410,467,384,468,400
data 390,385,409,468,385,388,468,388,401
data 411,388,408,401,468,384,411,403,401
data 384,412,401,390,468,384,411,468,407
data 411,408,408,401,407,384,468,387,411
data 411,400,468,405,410,400,468,400,411
data 410,467,384,468,405,391,391,413,403
data 410,468,384,412,401,409,468,384,405
data 391,415,391,468,405,410,400,468,387
data 411,390,415,472,468,406,385,384,468
data 390,405,384,412,401,390,468,384,401
data 405,407,412,468,384,412,401,409,468
data 384,411,468,408,411,410,403,468,402
data 411,390,468,384,412,401,468,401,410
data 400,408,401,391,391,468,413,409,409
data 401,410,391,413,384,397,468,411,402
data 468,384,412,401,468,391,401,405,474
data 468,437,410,384,411,413,410,401,468
data 400,401,468,423,405,413,410,384,468
data 433,396,385,388,401,390,397, -1