home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh19.d64 / codieren (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.