home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 43 / 64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_A.d64 / dezimal-format (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  801 b   |  50 lines
  1. 300 rem****** listing 3/2 ***********
  2. 305 :
  3. 307 :
  4. 310 rem---dezimal-format mit tab---
  5. 315 :
  6. 320 print"0123456789012345678901234567890123456789
  7. 325 [153]
  8. 330 [135] k
  9. 335 [139] k[178]0.0 [167] 400
  10. 340 k$[178][196](k)
  11. 345 [129] j[178]1 [164] 40
  12. 350 v$[178][202](k$,j,1)
  13. 355 [139] v$[179][177]"." [167] [130] j
  14. 360 [153] [163]12[171]j) k
  15. 365 j[178]40
  16. 370 [137] 330
  17. 375 [131] 123.5,-2175.334,0.23,22.4567,0.0
  18. 399 :
  19. 400 [143]---dezimal-format mit strings----
  20. 405 :
  21. 410 [129] i[178]1 [164] 40
  22. 415 z$[178]z$[170]" "
  23. 420 [130]
  24. 425 [153]
  25. 430 [135] k
  26. 435 [139] k[178]0.0 [167] 500
  27. 440 k$[178][196](k)
  28. 445 [129] j[178]1 [164] 40
  29. 450 v$[178][202](k$,j,1)
  30. 455 [139] v$[179][177]"." [167] [130] j
  31. 460 [153] [201](z$[170]k$,12[170]([195](k$)[171]j))
  32. 465 j[178]40
  33. 470 [137] 430
  34. 475 [131] 123.5,-2175.334,0.23,22.4567,0.0
  35. 490 :
  36. 500 [143]----zahlen gleicher laenge-----
  37. 505 :
  38. 510 [129] i[178]1 [164] 8
  39. 515 z$[178]z$[170]" "
  40. 520 [130]
  41. 523 l[178]7
  42. 525 [153]
  43. 530 [135] k
  44. 535 [139] k[178]0.0 [167] [128]
  45. 540 k1$[178][196](k)
  46. 545 k2$[178][202](k1$,1,l)
  47. 560 [153] [163]12) [201](z$[170]k2$,l)
  48. 570 [137] 530
  49. 575 [131] 123.5,-2175.334,0.23,22.4567,0.0
  50.