home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CASIOCOL.ZIP / KRILE1A.ZIP / SOURCE.ZIP / ENCKRILE.ASI < prev    next >
Text File  |  1997-11-10  |  428b  |  28 lines
  1. rem This routine decrypts our tables in the beginning to useable material
  2. rem For run-time use only. The data in the exe/com is not decrypted!
  3. open"i",1,"info.1"
  4. open"o",2,"info.2"
  5. read_more:
  6. input #1,a$ BYTE
  7. if error>0 then bye:
  8. if a$<>"" then
  9. if a$<>"" then
  10. a=asc(a$)
  11. a=a-127
  12. a$=chr$(a)
  13. endif
  14. endif
  15. if a$="" then
  16. print#2,a$
  17. else
  18. print #2,a$ NONULL
  19. endif
  20. goto read_more:
  21.  
  22. bye:
  23. close 1
  24. close 2
  25. end
  26.  
  27.  
  28.