home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 04 / grdlage / keydemo.bas < prev    next >
Encoding:
BASIC Source File  |  1989-01-18  |  1.1 KB  |  43 lines
  1. '* ------------------------------------------------------- *
  2. '*                    KEYDEMO.BAS                          *
  3. '*   Listing 1: Unterbrechung durch Funktionstasten...     *
  4. '* ------------------------------------------------------- *
  5. KEY( 1) ON : ON KEY( 1) GOSUB ende
  6. KEY(10) ON : ON KEY(10) GOSUB info
  7. CLS : PRINT "Berechnung einer unendlichen Summe"
  8. PRINT "F10 -> Info : F1 -> Ende" : PRINT
  9. DEF FNG(X) = 1/X^2
  10.  
  11. SUM = 0 : X = 1
  12. WHILE 1 = 1
  13.   Y = FNG(X)
  14.   SUM = SUM + Y
  15.   X = X + 1
  16. WEND
  17.  
  18. info:
  19.   PRINT "Zwischenergebnis: sum = "; SUM
  20.   PRINT "Letztes Summenglied: y = "; Y : PRINT
  21. RETURN
  22.  
  23. ende:
  24.   WHILE 1 = 1
  25.     PRINT "Wirklich beenden (j/n) ?";
  26.     Q$ = ""
  27.     WHILE Q$=""
  28.       Q$ = INKEY$
  29.     WEND
  30.     IF Q$ = "j" OR Q$ = "J" THEN RETURN ausgabe
  31.     IF Q$ = "n" OR Q$ = "N" THEN GOTO endloop
  32.   WEND
  33.  
  34. endloop:
  35.   PRINT "Also weiter..." : PRINT
  36. RETURN
  37.  
  38. ausgabe:
  39.   PRINT  : PRINT "Endergebnis:   sum = "; SUM
  40.   PRINT "Letztes Summenglied: y = "; Y
  41.   PRINT "Es wurden "; X; " Summenglieder berechnet" : PRINT
  42. END
  43. '* ------------------------------------------------------- *