home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 December / 64er_Magazin_91-12_1991_Markt__Technik_de_Side_A.d64 / &-konverter (.txt) next >
Encoding:
Commodore BASIC  |  1991-01-01  |  862 b   |  38 lines
  1. 0 rem &-konverter    64'er 1991 markt & technik verlag
  2. 1 rem nikolaus heusler, zwengauerweg 18, 8 muenchen 71      arr 2.91
  3. 5 dima%(999)
  4. 10 print"[147]konverter file -> &file   nh 02.91
  5. 20 [133]"filename ";n$
  6. 30 [159]2,8,2,n$[170]",p,r
  7. 40 get#2,a$,b$:ifstthenprint"file nicht zu laden!":end
  8. 50 p=asc(a$+chr$(0))+asc(b$+chr$(0))*256
  9. 60 print"file-startadresse:"p
  10. 70 input"ladeadresse   1280[157][157][157][157][157][157]";d
  11. 80 open3,8,3,"&"+n$+",u,w
  12. 90 [161]#2,a$
  13. 100 c[178]c[170]1:a%(c)[178][198](a$[170][199](0))
  14. 110 [139]st[178]0[137]90
  15. 120 [153]"filelaenge:"c"bytes
  16. 130 a=1
  17. 140 ifc<1then280
  18. 190 dh=int(d/256):dl=d-dh*256
  19. 200 ck=dh+dl:gosub300
  20. 210 print#3,chr$(dl)chr$(dh);
  21. 220 ifc<256then400
  22. 230 print#3,chr$(255);:ck=ck+255:gosub300
  23. 240 fori=atoa+254
  24. 250 ck=ck+a%(i):gosub300
  25. 260 print#3,chr$(a%(i));
  26. 270 next:print#3,chr$(ck);
  27. 275 c=c-255:d=d+255:a=a+255:goto140
  28. 280 close3:close2:print"fertig
  29. 290 [128]
  30. 300 [139]ck[177]255[167]ck[178]ck[171]255:[137]300
  31. 310 [142]
  32. 400 [152]3,[199](c);:ck[178]ck[170]c:[141]300
  33. 410 [129]i[178]a[164]a[170]c[171]1
  34. 420 ck[178]ck[170]a%(i):[141]300
  35. 430 [152]3,[199](a%(i));
  36. 440 [130]
  37. 450 [152]3,[199](ck);:[137]280
  38.