home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / lib / qb.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  3.0 KB  |  162 lines
  1. '***********************************************************************
  2. '    QB.RLZ                              
  3. '
  4. '    QuickBASIC Compatibility Library
  5. '
  6. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  7. '    All rights reserved.
  8. '
  9. '***********************************************************************
  10.  
  11. IF QVar(%%QB, _Defined) THEN
  12.     EXIT MACRO
  13. END IF
  14. %%QB = 1
  15.  
  16. RUN "StdError"
  17. RUN "StdSys"
  18. RUN "StdStrng"
  19.  
  20. PROC CHAIN(filename)
  21.     ECType(filename, _Alpha + _Scalar, 1)
  22.     RUN filename
  23. END PROC
  24.  
  25. PROC CHDIR(path)
  26.     ECType(path, _Alpha + _Scalar, 1)
  27.     SetDir(path)
  28. END PROC
  29.  
  30. FUNC CINT(n)
  31.     ECType(n, _Real + _Scalar, 1)
  32.     RETURN Round(n)
  33. END FUNC
  34.  
  35. FUNC CLNG(n)
  36.     ECType(n, _Real + _Scalar, 1)
  37.     RETURN Round(n)
  38. END FUNC
  39.  
  40. FUNC DATE$
  41.     RETURN Sprint("D(D1/M1/Y1)", QDate)
  42. END FUNC
  43.  
  44. PROC ERASE(var)
  45.     ECType(var, _Array, 1)
  46.     IF QVar(var, _Real) THEN
  47.         var[StartValid(var):EndValid(var)] = 0
  48.     ELSEIF QVar(var, _Alpha) THEN
  49.         var[StartValid(var):EndValid(var)] = ""
  50.     ELSE
  51.         var[StartValid(var):EndValid(var)] = StrToDate("")
  52.     END IF
  53. END PROC
  54.  
  55. FUNC FIX(n)
  56.     ECType(n, _Real + _Scalar, 1)
  57.     RETURN Sgn(n) * Floor(Abs(n))
  58. END FUNC
  59.  
  60. FUNC FREEFILE
  61.     RETURN FileQUnique
  62. END FUNC
  63.  
  64. FUNC INT(n)
  65.     ECType(n, _Real + _Scalar, 1)
  66.     RETURN Floor(n)
  67. END FUNC
  68.  
  69. PROC KILL(filename)
  70.     ECType(filename, _Alpha + _Scalar, 1)
  71.     IF Not(FileQ(filename, _Exists)) THEN
  72.         STOP USING "File does not exist.", 1
  73.     END IF
  74.     FileDelete(filename)
  75. END PROC
  76.  
  77. FUNC LBOUND(var)
  78.     ECType(var, _Array, 1)
  79.     RETURN StartValid(var)
  80. END FUNC
  81.  
  82. PROC MKDIR(dirname)
  83.     ECType(dirname, _Alpha + _Scalar, 1)
  84.     SHELL "MKDIR " + dirname, _DOS
  85. END PROC
  86.  
  87. PROC NAME(oldname, newname)
  88.     ECType(oldname, _Alpha + _Scalar, 1)
  89.     ECType(newname, _Alpha + _Scalar, 2)
  90.     SHELL "RENAME " + oldname + " " + newname, _DOS
  91. END PROC
  92.  
  93. PROC RMDIR(dirname)
  94.     ECType(dirname, _Alpha + _Scalar, 1)
  95.     SHELL "RMDIR " + dirname, _DOS
  96. END PROC
  97.  
  98. PROC SLEEP(n)
  99.     ECType(n, _Real + _Scalar, 1)
  100.     IDLE n
  101. END PROC
  102.  
  103. FUNC SPACE$(n)
  104.     ECType(n, _Real + _Scalar, 1)
  105.     RETURN String$(n, 32)
  106. END FUNC
  107.  
  108. FUNC SPC(n)
  109.     ECType(n, _Real + _Scalar, 1)
  110.     RETURN String$(n, 32)
  111. END FUNC
  112.  
  113. FUNC STR$(n)
  114.     ECType(n, _Real + _Scalar, 1)
  115.     RETURN Sprint(n)
  116. END FUNC
  117.  
  118. PROC SWAP(var1, var2)
  119.     ECType(var1, _Array + _Scalar, 1)
  120.     ECType(var2, _Array + _Scalar, 2)
  121.  
  122.     LOCAL t
  123.     t = var1
  124.     var1 = var2
  125.     var2 = t
  126. END PROC
  127.  
  128. FUNC TIME$
  129.     RETURN Sprint("D(h1:m1:s1)", QDate)
  130. END FUNC
  131.  
  132. FUNC TIMER
  133.     RETURN DateToNum(QDate, _TimeNum)
  134. END FUNC
  135.  
  136. FUNC UBOUND(var)
  137.     ECType(var, _Array, 1)
  138.     RETURN EndValid(var)
  139. END FUNC
  140.  
  141. FUNC VAL(s)
  142.     ECType(s, _Alpha + _Scalar, 1)
  143.     RETURN StrToNum(s)
  144. END FUNC
  145.  
  146. PROC WRITE(..)
  147.     LOCAL i
  148.     FOR i = 1 to QNOptParams
  149.         ECType(QOptParam(i), _Scalar, i)
  150.         IF i > 1 THEN
  151.             PRINT ",";
  152.         END IF
  153.         IF QVar(QOptParam(i), _Real) THEN
  154.             PRINT QOptParam(i);
  155.         ELSEIF QVar(QOptParam(i), _Alpha) THEN
  156.             PRINT Chr$(34) + QOptParam(i) + Chr$(34);
  157.         ELSE
  158.             PRINT USING "D(M1/D1/Y1)"; QOptParam(i);
  159.         END IF
  160.     NEXT i
  161.     PRINT
  162. END PROC