home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 35 / 64er_Magazin_Sonderheft_35_19xx_Markt__Technik_de.d64 / arith.reihe (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  539b  |  14 lines
  1. 5 if a=0thena=1:load "add.obj",8,1
  2. 10 rem aufruf summe arithm. reihe
  3. 20 poke 5120,0:poke 5121,0:rem ergebnisspeichher auf null
  4. 30 print chr$(147) chr$(17) chr$(17)
  5. 40 input "anzahl der glieder n=";n
  6. 50 if n < 1 or n > 255 then print chr$(17) "1<n<=255":goto 40
  7. 60 poke 4864,n: rem einspeichern von n
  8. 70 poke 4880,1:poke 4881,0:poke 4896,1:poke 4897,0:rem eisp. von a und d
  9. 80 sys 4608: rem aufruf unseres maschinenprogrammes (muss im speicher stehen)
  10. 90 m=peek(5121):l = peek(5120):rem auslesen des ergebnisses
  11. 100 e=256*m + l:print chr$(17) chr$(17)
  12. 110 print "die summe der ersten " n " ganzen zahlen ist: ";e
  13. 120 end
  14.