'The Real Adok's Way to QBASIC Library

DECLARE SUB CloseProg ()
DECLARE SUB cPrint (Text AS STRING)
DECLARE FUNCTION Formatted$ (Zahl AS INTEGER)
DECLARE FUNCTION nteWurzel# (Zahl AS DOUBLE, n AS DOUBLE)
DECLARE FUNCTION ZufallsZahl% (Min AS INTEGER, Max AS INTEGER)

DEFINT A-Z
RANDOMIZE TIMER

SUB CloseProg
 SCREEN 0, 0, 0, 0
 WIDTH 80
 COLOR 7, 0, 0
 CLS
 END
END SUB

SUB cPrint (Text AS STRING)
 LOCATE , INT((80 - LEN(Text)) / 2)
 PRINT Text;
END SUB

FUNCTION Formatted$ (Zahl AS INTEGER)
 Formatted$ = LTRIM$(RTRIM$(STR$(Zahl)))
END FUNCTION

DEFDBL A-Z
FUNCTION nteWurzel# (Zahl AS DOUBLE, n AS DOUBLE)
 nteWurzel# = Zahl ^ (1 / n)
END FUNCTION

DEFINT A-Z
FUNCTION ZufallsZahl% (Min AS INTEGER, Max AS INTEGER)
 ZufallsZahl% = INT(RND * (1 + Max - Min) + Min)
END FUNCTION