home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 05 / heimwerk / tbsimul.bas < prev   
Encoding:
BASIC Source File  |  1991-02-22  |  1.7 KB  |  78 lines
  1. '* ------------------------------------------------------- *
  2. '*                       TBSIMUL.BAS                       *
  3. '* Quick Basic Bibliothek zur Simulation von Turbo-Basic-  *
  4. '*               Funktionen und Prozeduren                 *
  5. '*              (c) 1991 Kay Glahn & TOOLBOX               *
  6. '* ------------------------------------------------------- *
  7. DECLARE FUNCTION INSTAT! ()
  8. DECLARE FUNCTION CEIL! (X!)
  9. DECLARE FUNCTION BIN$ (Zahl!)
  10. DECLARE FUNCTION UNBIN! (B$)
  11. DECLARE FUNCTION EXP2! (X!)
  12. DECLARE FUNCTION EXP10! (X!)
  13. DECLARE FUNCTION LOG10! (X!)
  14. DECLARE FUNCTION LOG2! (X!)
  15. DECLARE SUB INCR (Wert1!, Wert2!)
  16. DECLARE SUB DECR (Wert1!, Wert2!)
  17.  
  18. FUNCTION BIN$ (Zahl)
  19.   Z = Zahl
  20.   DO
  21.     Z = Z / 2
  22.     IF Z = INT(Z) THEN
  23.       B$ = B$ + "0"
  24.     ELSE
  25.       B$ = B$ + "1"
  26.     END IF
  27.     Z = INT(Z)
  28.   LOOP UNTIL Z < 1
  29.   BIN$ = B$
  30. END FUNCTION
  31.  
  32. FUNCTION CEIL (X)
  33.   CEIL = INT(X * -1) * -1
  34. END FUNCTION
  35.  
  36. SUB DECR (Wert1, Wert2)
  37.   Wert1 = Wert1 - Wert2
  38. END SUB
  39.  
  40. FUNCTION EXP10 (X)
  41.   EXP10 = 10 ^ X
  42. END FUNCTION
  43.  
  44. FUNCTION EXP2 (X)
  45.   EXP2 = 2 ^ X
  46. END FUNCTION
  47.  
  48. SUB INCR (Wert1, Wert2)
  49.   Wert1 = Wert1 + Wert2
  50. END SUB
  51.  
  52. FUNCTION INSTAT
  53.   DEF SEG = &H40
  54.   IF PEEK(&H1A) = PEEK(&H1C) THEN
  55.     INSTAT = 0
  56.   ELSE
  57.     INSTAT = -1
  58.   END IF
  59. END FUNCTION
  60.  
  61. FUNCTION LOG10 (X)
  62.   LOG10 = LOG(X) / LOG(10)
  63. END FUNCTION
  64.  
  65. FUNCTION LOG2 (X)
  66.   LOG2 = LOG(X) / LOG(2)
  67. END FUNCTION
  68.  
  69. FUNCTION UNBIN (B$)
  70.   FOR i = 0 TO LEN(B$)
  71.     Zahl = Zahl + 2 ^ i * VAL(MID$(B$, i + 1, 1))
  72.   NEXT
  73.   UNBIN = Zahl
  74. END FUNCTION
  75.  
  76. '* ------------------------------------------------------- *
  77. '*                  Ende von TBSIMUL.BAS                   *
  78.