home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 5 / 64er_Magazin_Sonderheft_05_86-05_1986_Markt__Technik_de.d64 / codieren (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  515b  |  32 lines
  1. 10 print"**** kodieren/dekodieren ****
  2. 100 [161] w$:[139] w$[178]"" [167] 100
  3. 110 [139] w$[178][199](133) [167] 270
  4. 120 [153] w$;
  5. 130 a$[178]a$[170]w$
  6. 140 [139] w$[178][199](13) [167] 170
  7. 150 [137] 100
  8. 160 [143]----------------------------
  9. 170 x[178]x[170]1
  10. 180 a[178][198]([202](a$,x,1))
  11. 190 b[178]a[170]x
  12. 200 b$[178][199](b)
  13. 210 c$[178]c$[170]b$
  14. 220 [139] x[179][177][195](a$)[171]1 [167] 170
  15. 230 c$[178]c$[170][199](32)
  16. 240 [153] c$
  17. 250 a$[178]""
  18. 260 x[178]0:[137] 100
  19. 265 [143]-----------------------------
  20. 270 [153]"dekodieren"
  21. 280 [133] e$
  22. 285 [139] e$[178]"ende" [167] [128]
  23. 290 x[178]x[170]1
  24. 300 e[178][198]([202](e$,x,1))
  25. 310 d[178]e[171]x
  26. 320 d$[178]d$[170][199](d)
  27. 330 [139] x[179][177][195](e$) [167] 290
  28. 340 d$[178]d$[170][199](32)
  29. 350 [153] d$
  30. 360 e$[178]""
  31. 370 x[178]0:[137] 280
  32.