home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 April / 1993-04.d64 / crypto (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  476b  |  17 lines
  1. 50 poke53280,6:poke53281,6:print"[147]"
  2. 100 data 162,0,189,63,32,240,249,232,41,63
  3. 110 data 141,1,33,142,0,33,32,228,255,174,0,33,168
  4. 120 data 240,244,201,65,144,26,201,91,176,22
  5. 130 data 24,109   :rem 56,237
  6. 140 data 1,33,201,91,144,2,233,26,201,65,176,2,105,26
  7. 150 data 32,210,255,76,2,32,32,210,255,201,13,208,207,96
  8. 160 data 67,79,77,80,85,84,69,0
  9. 170 rem encryption key spells 'compute'
  10. 200 for j=8192 to 8262
  11. 210 read x:t=t+x
  12. 220 poke j,x
  13. 230 next j
  14. 240 if t<>7730 then stop :rem 7890
  15. 300 print "enter line of text:"
  16. 310 sys 8192
  17.