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