home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 Janurary / 64er_Magazin_89-01_1989_Markt__Technik_de_Side_C.d64 / rechenprogramm (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  1.4 KB  |  70 lines
  1. 10 rem ** rechenprogramm **
  2. 20 rem ** von n. heusler **
  3. 30 rem ** am 20. 9. 1988 **
  4. 40 :
  5. 50 print"[147]rechenprogramm                          [163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  6. 60 [153]" (1) addition":[153]" (2) subtraktion":[153]" (3) multipliktion
  7. 70 print" (4) division":print" (5) potenz":print" (6) wurzel
  8. 80 [153]" (7) ende":[153]"bitte waehlen sie die operation !
  9. 90 poke198,0
  10. 100 geta$:a=val(a$):ifa<1ora>7then100
  11. 110 onval(a$)goto1000,2000,3000,4000,5000,6000,7000
  12. 199 :
  13. 200 rem ** daten holen **
  14. 210 print"gut. bitte geben sie die werte ein:
  15. 220 [133]"erste zahl:  ";a
  16. 230 [133]"zweite zahl: ";b
  17. 240 [142]
  18. 299 :
  19. 300 [143] ** ergebnis **
  20. 310 [153]"das ergebnis der ";t$;" ist"c"cmd.
  21. 320 return
  22. 399 :
  23. 400 rem ** weiter **
  24. 410 print"noch eine rechnung ? [j/n]
  25. 420 [151]198,0
  26. 430 [161]a$:[139]a$[178]"j"[167][138]
  27. 440 [139]a$[179][177]"n"[167]430
  28. 450 [137]7000
  29. 999 :
  30. 1000 [143] ** plus **
  31. 1010 [141]200
  32. 1020 t$[178]"addition":c[178]a[170]b
  33. 1030 [141]300
  34. 1040 [137]400
  35. 1999 :
  36. 2000 [143] ** minus **
  37. 2010 [141]200
  38. 2020 t$[178]"subtraktion":c[178]a[171]b
  39. 2030 [141]300
  40. 2040 [137]400
  41. 2999 :
  42. 3000 [143] ** mal **
  43. 3010 [141]200
  44. 3020 t$[178]"multiplikation":c[178]a[172]b
  45. 3030 [141]300
  46. 3040 [137]400
  47. 3999 :
  48. 4000 [143] ** durch **
  49. 4010 [141]200
  50. 4020 [139]b[178]0[167][153]:[153]"teilung durch null nicht erlaubt !":[137]4050
  51. 4030 t$[178]"division":c[178]a[173]b
  52. 4040 [141]300
  53. 4050 [137]400
  54. 4999 :
  55. 5000 [143] ** hoch **
  56. 5010 [141]200
  57. 5020 t$[178]"potenzierung":c[178]a[174]b
  58. 5030 [141]300
  59. 5040 [137]400
  60. 5999 :
  61. 6000 [143] ** wurzel **
  62. 6010 [153]"gut. bitte geben sie den wert ein:
  63. 6020 input"wurzel aus ";a
  64. 6030 ifa<0thenprint"wurzel aus negativen zahlen nicht er-   laubt !":goto6050
  65. 6040 print"der wert der wurzel ist"sqr(a)"[157].
  66. 6050 [137]400
  67. 6999 :
  68. 7000 [143] ** ende **
  69. 7002 [153]"pfuoncmd"[199](34)[199](20)[199](34)"a gott - auf wiederseh'n !":[128]
  70.