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