home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 05 / heimwerk / tbsidemo.bas < prev    next >
Encoding:
BASIC Source File  |  1991-02-22  |  1.3 KB  |  41 lines
  1. '* ------------------------------------------------------- *
  2. '*                       TBSIDEMO.BAS                      *
  3. '*        Demoprogramm zur Bibliothek TBSIMUL.BAS          *
  4. '*              (c) 1991 Kay Glahn & TOOLBOX               *
  5. '* ------------------------------------------------------- *
  6. CLS
  7. PRINT "Die Funktionen BIN$ und UNBIN :"
  8. PRINT "Geben Sie eine Dezimalzahl ein : ";
  9. INPUT "", Zahl
  10. BinZahl$ = BIN$(Zahl)
  11. PRINT "Die Dezimalzahl"; UNBIN(BinZahl$);
  12. PRINT "lautet in Binärschreibweise ";
  13. PRINT BinZahl$; " !"
  14. WHILE INKEY$ = "": WEND
  15. CLS
  16. PRINT "Mathematische Funktionen:"
  17. PRINT "Geben Sie eine Zahl (1 bis 38) ein : ";
  18. INPUT "", Zahl
  19. PRINT "LOG2()  von "; Zahl; " ist "; LOG2(Zahl); "."
  20. PRINT "LOG10() von "; Zahl; " ist "; LOG10(Zahl); "."
  21. PRINT "EXP2()  von "; Zahl; " ist "; EXP2(Zahl); "."
  22. PRINT "EXP10() von "; Zahl; " ist "; EXP10(Zahl); "."
  23. PRINT "CEIL()  von "; Zahl; " ist "; CEIL(Zahl); "."
  24. WHILE INKEY$ = "": WEND
  25. CLS
  26. PRINT "Verwendung von INSTAT, INCR und DECR :"
  27. A = 10000
  28. B = 0
  29. WHILE NOT INSTAT
  30.   LOCATE 2, 1
  31.   PRINT A; " : "; B
  32.   DECR A, 1
  33.   INCR B, 1
  34. WEND
  35. PRINT "Sie haben die Taste "; CHR$(34); INKEY$;
  36. PRINT CHR$(34); " gedrückt !"
  37. WHILE INKEY$ = "": WEND
  38. END
  39. '* ------------------------------------------------------- *
  40. '*                  Ende von TBSIDEMO.BAS                  *
  41.