home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 March / 1994-03b.d64 / ssfilecoder.pp (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  31 lines
  1. 100 rem speedscript file encoder
  2. 105 x=51000
  3. 110 readx$:print".";:ifx$=""then130
  4. 115 fori=1tolen(x$)step2:z$=mid$(x$,i,1):y=asc(z$)-48+7*(z$>"@")
  5. 120 z$=mid$(x$,i+1,1):y=16*y+asc(z$)-48+7*(z$>"@")
  6. 125 pokex,y:x=x+1:next:goto110
  7. 130 print"[147]l[207]"chr$(34)"speedscript*"chr$(34)",8,1"
  8. 135 print"sys51000:poke2481,197:run";
  9. 140 fori=631to640:pokei,13:next:poke198,10:end
  10. 145 data a9c78d3303a94d8d3203a9c78d3103a9898d3003
  11. 150 data 60a5028ddbc8a5038ddcc8200cc8d0034cedf5a5
  12. 155 data c18de1c8a5c28de2c8a6aea4af20cbc720edf508
  13. 160 data aee3c8ace4c820cbc7addbc88502addcc8850328
  14. 165 data 6048c900f004684ca5f4a5028ddbc8a5038ddcc8
  15. 170 data a5c38de1c8a5c48de2c8200cc8f0e36820a5f4b0
  16. 175 data 1908488a48984820cbc7addbc88502addcc88503
  17. 180 data 68a868aa6828608ee3c88ce4c8a000a200ade1c8
  18. 185 data 8502ade2c88503aedac8e8cad003aedac838a502
  19. 190 data ede3c8a503ede4c8b015b1025de5c8910218a901
  20. 195 data 650285029002e6031890d860a278bdb7059d07c9
  21. 200 data bd61c89db705cad0f1a9008ddac8a5c6f0fc7820
  22. 205 data b4e5c90df025c914d00fcedac830e6aedac8a920
  23. 210 data 9df105d0e1eedac8aedac89de5c8a9189df005e0
  24. 215 data 1590cfa278bd07c99db705cad0f7addac8607040
  25. 220 data 4040404040404040404040404040404040404040
  26. 225 data 40404040404040404040404040404040406e5d05
  27. 230 data 0e1405122010011313170f1204203e2020202020
  28. 235 data 202020202020202020202020202020203c5d6d40
  29. 240 data 4040404040404040404040404040404040404040
  30. 245 data 40404040404040404040404040404040407d00,
  31.