home *** CD-ROM | disk | FTP | other *** search
/ PC Action 1997 January / PCA0197.ISO / special / baskurs / kurs0043.bas < prev   
BASIC Source File  |  1996-02-11  |  824b  |  39 lines
  1. 'The Real Adok's Way to QBASIC Library
  2.  
  3. DECLARE SUB CloseProg ()
  4. DECLARE SUB cPrint (Text AS STRING)
  5. DECLARE FUNCTION Formatted$ (Zahl AS INTEGER)
  6. DECLARE FUNCTION nteWurzel# (Zahl AS DOUBLE, n AS DOUBLE)
  7. DECLARE FUNCTION ZufallsZahl% (Min AS INTEGER, Max AS INTEGER)
  8.  
  9. DEFINT A-Z
  10. RANDOMIZE TIMER
  11.  
  12. SUB CloseProg
  13.  SCREEN 0, 0, 0, 0
  14.  WIDTH 80
  15.  COLOR 7, 0, 0
  16.  CLS
  17.  END
  18. END SUB
  19.  
  20. SUB cPrint (Text AS STRING)
  21.  LOCATE , INT((80 - LEN(Text)) / 2)
  22.  PRINT Text;
  23. END SUB
  24.  
  25. FUNCTION Formatted$ (Zahl AS INTEGER)
  26.  Formatted$ = LTRIM$(RTRIM$(STR$(Zahl)))
  27. END FUNCTION
  28.  
  29. DEFDBL A-Z
  30. FUNCTION nteWurzel# (Zahl AS DOUBLE, n AS DOUBLE)
  31.  nteWurzel# = Zahl ^ (1 / n)
  32. END FUNCTION
  33.  
  34. DEFINT A-Z
  35. FUNCTION ZufallsZahl% (Min AS INTEGER, Max AS INTEGER)
  36.  ZufallsZahl% = INT(RND * (1 + Max - Min) + Min)
  37. END FUNCTION
  38.  
  39.