home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 March / 64er_Magazin_87-03_1987_Markt__Technik_de_Side_A.d64 / demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  2.1 KB  |  96 lines
  1. 10 print"[147]demo fuer  arith13"
  2. 20 print"von markus olbrich"
  3. 30 gosub10000
  4. 40 print"[147]";:gosub12000:print"unterschied zwischen":print"print und print&"
  5. 45 print"print 0.6666666666666":gosub13000
  6. 50 print.6666666666666:print
  7. 51 print"es werden zwar intern 14 stellen berech-";
  8. 52 print"net. der alte print befehl zeigt aber"
  9. 53 print"nur 9 davon an."
  10. 60 print"print& 0.6666666666666":gosub13000
  11. 70 print&.6666666666666
  12. 71 print"der print& befehl zeigt bei arith13"
  13. 72 print"ganze 13 stellen an."
  14. 80 gosub10000
  15. 85 gosub1000:clr
  16. 90 print"[147]";:gosub11000
  17. 100 print"print sqr(10)^2-10":gosub13000
  18. 110 printsqr(10)^2-10
  19. 115 print"muesste genau 0 ergeben !!"
  20. 120 gosub12000
  21. 130 print"print sqr(10)^2-10":gosub13000
  22. 140 printsqr(10)^2-10
  23. 145 gosub10000
  24. 150 print"[147]";:gosub11000
  25. 160 print"fori=0to1step0.1:printi:next"
  26. 170 gosub13000:clr
  27. 180 fori=0to1step.1:printi:next
  28. 185 print"die 1 fehlt !!!!"
  29. 187 gosub10000:print"[147]";
  30. 190 gosub12000:clr
  31. 200 print"fori=0to1step0.1:printi:next"
  32. 210 gosub13000:clr
  33. 220 fori=0to1step.1:printi:next
  34. 230 gosub10000:clr
  35. 240 print"[147]logarithmische und"
  36. 245 print"exponentialfunktionen:"
  37. 250 gosub11000:clr
  38. 260 print"print log(2)":gosub13000
  39. 270 printlog(2)
  40. 280 print"print exp(1)":gosub13000
  41. 290 printexp(1)
  42. 300 print"print 3^0.5":gosub13000
  43. 310 print3^.5
  44. 320 print""
  45. 350 gosub12000:clr
  46. 360 print"print& log(2)":gosub13000
  47. 370 print&log(2)
  48. 380 print"print& exp(1)":gosub13000
  49. 390 print&exp(1)
  50. 400 print"print& 3^0.5":gosub13000
  51. 410 print&3^.5
  52. 420 gosub10000:clr
  53. 430 print"[147]trigonometrische funktionen:"
  54. 440 gosub11000:clr
  55. 450 print"print sin(1)":gosub13000
  56. 460 printsin(1)
  57. 470 print"print cos(1)":gosub13000
  58. 480 printcos(1)
  59. 482 print"print tan(1)":gosub13000
  60. 484 printtan(1)
  61. 490 print"print atn(1)":gosub13000
  62. 500 printatn(1);""
  63. 510 gosub12000:clr
  64. 520 print"print& sin(1)":gosub13000
  65. 530 print&sin(1)
  66. 540 print"print& cos(1)":gosub13000
  67. 550 print&cos(1)
  68. 552 print"print& tan(1)":gosub13000
  69. 554 print&tan(1)
  70. 560 print"print& atn(1)":gosub13000
  71. 570 print&atn(1);""
  72. 580 gosub10000
  73. 600 print"[147]ende."
  74. 999 end
  75. 1000 print"[147]";:gosub11000
  76. 1010 print"print 1+0.000000000001"
  77. 1020 gosub13000
  78. 1030 print1+.000000000001
  79. 1031 print"die 0.000000000001 geht verloren !"
  80. 1040 gosub12000
  81. 1050 print"print& 1+0.000000000001"
  82. 1060 gosub13000
  83. 1070 print&1+.000000000001
  84. 1080 goto10000
  85. 10000 print"          (taste druecken)";
  86. 10010 geta$:ifa$=""then10010
  87. 10020 return
  88. 11000 print"[158]cbm basic v2 :":print
  89. 11010 poke1,3*16+7:return
  90. 12000 print"arith13 :":print
  91. 12010 poke1,3*16+5:return
  92. 13000 print"[145]";tab(31);"<return>"
  93. 13010 geta$:ifa$=""then13010
  94. 13020 ifasc(a$)<>13then13010
  95. 13030 return
  96.