ChipMaster's bwBASIC This also includes history going back to v2.10. *WARN* some binary files might have been corrupted by CRLF.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

4015 lines
130 KiB

  1. /***************************************************************
  2. bwd_fun.c Function Table
  3. for Bywater BASIC Interpreter
  4. Copyright (c) 1993, Ted A. Campbell
  5. Bywater Software
  6. email: tcamp@delphi.com
  7. Copyright and Permissions Information:
  8. All U.S. and international rights are claimed by the author,
  9. Ted A. Campbell.
  10. This software is released under the terms of the GNU General
  11. Public License (GPL), which is distributed with this software
  12. in the file "COPYING". The GPL specifies the terms under
  13. which users may copy and use the software in this distribution.
  14. A separate license is available for commercial distribution,
  15. for information on which you should contact the author.
  16. ***************************************************************/
  17. /*---------------------------------------------------------------*/
  18. /* NOTE: Modifications marked "JBV" were made by Jon B. Volkoff, */
  19. /* 11/1995 (eidetics@cerf.net). */
  20. /* */
  21. /* Those additionally marked with "DD" were at the suggestion of */
  22. /* Dale DePriest (daled@cadence.com). */
  23. /* */
  24. /* Version 3.00 by Howard Wulf, AF5NE */
  25. /* */
  26. /* Version 3.10 by Howard Wulf, AF5NE */
  27. /* */
  28. /* Version 3.20 by Howard Wulf, AF5NE */
  29. /* */
  30. /*---------------------------------------------------------------*/
  31. /* FUNCTION TABLE */
  32. #include "bwbasic.h"
  33. IntrinsicFunctionType IntrinsicFunctionTable[ /* NUM_FUNCTIONS */ ] =
  34. {
  35. {
  36. F_ABS_X_N, /* UniqueID */
  37. "N = ABS( X )", /* Syntax */
  38. "The absolute value of X.", /* Description */
  39. "ABS", /* Name */
  40. DoubleTypeCode, /* ReturnTypeCode */
  41. 1, /* ParameterCount */
  42. P1NUM, /* ParameterTypes */
  43. P1ANY, /* ParameterTests */
  44. B15 | B93 | S70 | C77 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | H80 | G65 | G67 | M80 | D73 | D70 | R86 | D71 | I70 | I73 | T80 | V09 | T79 /* OptionVersionBitmask */
  45. },
  46. {
  47. F_ACOS_X_N, /* UniqueID */
  48. "N = ACOS( X )", /* Syntax */
  49. "The arccosine of X in radians, where 0 <= ACOS(X) <= PI. X shall "
  50. "be in the range -1 <= X <= 1.", /* Description */
  51. "ACOS", /* Name */
  52. DoubleTypeCode, /* ReturnTypeCode */
  53. 1, /* ParameterCount */
  54. P1NUM, /* ParameterTypes */
  55. P1ANY, /* ParameterTests */
  56. B15 | E86 /* OptionVersionBitmask */
  57. },
  58. {
  59. F_ACS_X_N, /* UniqueID */
  60. "N = ACS( X )", /* Syntax */
  61. "The arccosine of X in radians, where 0 <= ACS(X) <= PI. X shall "
  62. "be in the range -1 <= X <= 1.", /* Description */
  63. "ACS", /* Name */
  64. DoubleTypeCode, /* ReturnTypeCode */
  65. 1, /* ParameterCount */
  66. P1NUM, /* ParameterTypes */
  67. P1ANY, /* ParameterTests */
  68. B15 | S70 | HB2 | I70 | I73 /* OptionVersionBitmask */
  69. },
  70. {
  71. F_ACSD_X_N, /* UniqueID */
  72. "N = ACSD( X )", /* Syntax */
  73. "The arccosine of X in degrees, where 0 <= ACSD(X) <= 180. X "
  74. "shall be in the range -1 <= X <= 1.", /* Description */
  75. "ACSD", /* Name */
  76. DoubleTypeCode, /* ReturnTypeCode */
  77. 1, /* ParameterCount */
  78. P1NUM, /* ParameterTypes */
  79. P1ANY, /* ParameterTests */
  80. B15 | HB2 /* OptionVersionBitmask */
  81. },
  82. {
  83. F_ACSG_X_N, /* UniqueID */
  84. "N = ACSG( X )", /* Syntax */
  85. "The arccosine of X in gradians, where 0 <= ACS(X) <= 200. X "
  86. "shall be in the range -1 <= X <= 1.", /* Description */
  87. "ACSG", /* Name */
  88. DoubleTypeCode, /* ReturnTypeCode */
  89. 1, /* ParameterCount */
  90. P1NUM, /* ParameterTypes */
  91. P1ANY, /* ParameterTests */
  92. B15 | HB2 /* OptionVersionBitmask */
  93. },
  94. {
  95. F_ANGLE_X_Y_N, /* UniqueID */
  96. "N = ANGLE( X, Y )", /* Syntax */
  97. "The angle in radians between the positive x-axis and the vector "
  98. "joining the origin to the point with coordinates (X, Y), where "
  99. "-PI < ANGLE(X,Y) <= PI. X and Y must not both be 0. Note that "
  100. "the counterclockwise is positive, e.g., ANGLE(1,1) = 45 degrees.", /* Description */
  101. "ANGLE", /* Name */
  102. DoubleTypeCode, /* ReturnTypeCode */
  103. 2, /* ParameterCount */
  104. P1NUM | P2NUM, /* ParameterTypes */
  105. P1ANY | P2ANY, /* ParameterTests */
  106. B15 | E86 /* OptionVersionBitmask */
  107. },
  108. {
  109. F_ARCCOS_X_N, /* UniqueID */
  110. "N = ARCCOS( X )", /* Syntax */
  111. "The arccosine of X in radians, where 0 <= ARCCOS(X) <= PI. X "
  112. "shall be in the range -1 <= X <= 1.", /* Description */
  113. "ARCCOS", /* Name */
  114. DoubleTypeCode, /* ReturnTypeCode */
  115. 1, /* ParameterCount */
  116. P1NUM, /* ParameterTypes */
  117. P1ANY, /* ParameterTests */
  118. R86 | T79 /* OptionVersionBitmask */
  119. },
  120. {
  121. F_ARCSIN_X_N, /* UniqueID */
  122. "N = ARCSIN( X )", /* Syntax */
  123. "The arcsine of X in radians, where -PI/2 <= ARCSIN(X) <= PI/2; "
  124. "X shall be in the range -1 <= X <= 1.", /* Description */
  125. "ARCSIN", /* Name */
  126. DoubleTypeCode, /* ReturnTypeCode */
  127. 1, /* ParameterCount */
  128. P1NUM, /* ParameterTypes */
  129. P1ANY, /* ParameterTests */
  130. B15 | HB2 | R86 | T79 /* OptionVersionBitmask */
  131. },
  132. {
  133. F_ARCTAN_X_N, /* UniqueID */
  134. "N = ARCTAN( X )", /* Syntax */
  135. "The arctangent of X in radians, i.e. the angle whose tangent "
  136. "is X, where -PI/2 < ARCTAN(X) < PI/2.", /* Description */
  137. "ARCTAN", /* Name */
  138. DoubleTypeCode, /* ReturnTypeCode */
  139. 1, /* ParameterCount */
  140. P1NUM, /* ParameterTypes */
  141. P1ANY, /* ParameterTests */
  142. B15 | HB1 | HB2 | R86 | T79 /* OptionVersionBitmask */
  143. },
  144. {
  145. F_ARGC_N, /* UniqueID */
  146. "N = ARGC", /* Syntax */
  147. "The number of parameters passed to a FUNCTION or SUB. If not "
  148. "in a FUNCTION or SUB, returns -1.", /* Description */
  149. "ARGC", /* Name */
  150. DoubleTypeCode, /* ReturnTypeCode */
  151. 0, /* ParameterCount */
  152. PNONE, /* ParameterTypes */
  153. PNONE, /* ParameterTests */
  154. B15 /* OptionVersionBitmask */
  155. },
  156. {
  157. F_ARGT4_X_S, /* UniqueID */
  158. "S$ = ARGT$( X )", /* Syntax */
  159. "The type of the Xth parameter to a FUNCTION or SUB. If the Xth "
  160. "parameter is a string, then return value is \"$\". If the Xth "
  161. "parameter is a number, then return value is not \"$\". X in [1,ARGC].", /* Description */
  162. "ARGT$", /* Name */
  163. StringTypeCode, /* ReturnTypeCode */
  164. 1, /* ParameterCount */
  165. P1NUM, /* ParameterTypes */
  166. P1INT, /* ParameterTests */
  167. B15 /* OptionVersionBitmask */
  168. },
  169. {
  170. F_ARGV_X_N, /* UniqueID */
  171. "N = ARGV( X )", /* Syntax */
  172. "The numeric value of the Xth parameter to a FUNCTION or SUB. "
  173. " X in [1,ARGC] and ARGT$( X ) <> \"$\".", /* Description */
  174. "ARGV", /* Name */
  175. DoubleTypeCode, /* ReturnTypeCode */
  176. 1, /* ParameterCount */
  177. P1NUM, /* ParameterTypes */
  178. P1INT, /* ParameterTests */
  179. B15 /* OptionVersionBitmask */
  180. },
  181. {
  182. F_ARGV4_X_S, /* UniqueID */
  183. "S$ = ARGV$( X )", /* Syntax */
  184. "The string value of the Xth parameter to a FUNCTION or SUB. "
  185. "X in [1,ARGC] and ARGT$( X ) = \"$\".", /* Description */
  186. "ARGV$", /* Name */
  187. StringTypeCode, /* ReturnTypeCode */
  188. 1, /* ParameterCount */
  189. P1NUM, /* ParameterTypes */
  190. P1INT, /* ParameterTests */
  191. B15 /* OptionVersionBitmask */
  192. },
  193. {
  194. F_ASC_A_N, /* UniqueID */
  195. "N = ASC( A$ )", /* Syntax */
  196. "The numeric code for the first letter in A$. For example, ASC(\"ABC\") "
  197. "returns 65 on ASCII systems.", /* Description */
  198. "ASC", /* Name */
  199. ByteTypeCode, /* ReturnTypeCode */
  200. 1, /* ParameterCount */
  201. P1STR, /* ParameterTypes */
  202. P1BYT, /* ParameterTests */
  203. B15 | B93 | S70 | C77 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | H80 | G65 | G67 | M80 | R86 | I70 | I73 | T80 | V09 | T79 /* OptionVersionBitmask */
  204. },
  205. {
  206. F_ASC_A_X_N, /* UniqueID */
  207. "N = ASC( A$, X )", /* Syntax */
  208. "The numeric code of the Xth character in A$. Same as ASC(MID$(A$,X)).", /* Description */
  209. "ASC", /* Name */
  210. ByteTypeCode, /* ReturnTypeCode */
  211. 2, /* ParameterCount */
  212. P1STR | P2NUM, /* ParameterTypes */
  213. P1BYT | P2POS, /* ParameterTests */
  214. B15 | HB1 | HB2 /* OptionVersionBitmask */
  215. },
  216. {
  217. F_ASCII_A_N, /* UniqueID */
  218. "N = ASCII( A$ )", /* Syntax */
  219. "The numeric code for the first letter in A$. For example, ASCII(\"ABC\") "
  220. "returns 65 on ASCII systems.", /* Description */
  221. "ASCII", /* Name */
  222. DoubleTypeCode, /* ReturnTypeCode */
  223. 1, /* ParameterCount */
  224. P1STR, /* ParameterTypes */
  225. P1BYT, /* ParameterTests */
  226. B15 | HB2 | D71 /* OptionVersionBitmask */
  227. },
  228. {
  229. F_ASIN_X_N, /* UniqueID */
  230. "N = ASIN( X )", /* Syntax */
  231. "The arcsine of X in radians, where -PI/2 <= ASIN(X) <= PI/2; "
  232. "X shall be in the range -1 <= X <= 1.", /* Description */
  233. "ASIN", /* Name */
  234. DoubleTypeCode, /* ReturnTypeCode */
  235. 1, /* ParameterCount */
  236. P1NUM, /* ParameterTypes */
  237. P1ANY, /* ParameterTests */
  238. B15 | E86 /* OptionVersionBitmask */
  239. },
  240. {
  241. F_ASN_X_N, /* UniqueID */
  242. "N = ASN( X )", /* Syntax */
  243. "The arcsine of X in radians, where -PI/2 <= ASN(X) <= PI/2; X "
  244. "shall be in the range -1 <= X <= 1.", /* Description */
  245. "ASN", /* Name */
  246. DoubleTypeCode, /* ReturnTypeCode */
  247. 1, /* ParameterCount */
  248. P1NUM, /* ParameterTypes */
  249. P1ANY, /* ParameterTests */
  250. B15 | S70 | HB1 | HB2 | I70 | I73 /* OptionVersionBitmask */
  251. },
  252. {
  253. F_ASND_X_N, /* UniqueID */
  254. "N = ASND( X )", /* Syntax */
  255. "The arcsine of X in degrees, where -90 <= ASN(X) <= 90; X shall "
  256. "be in the range -1 <= X <= 1.", /* Description */
  257. "ASND", /* Name */
  258. DoubleTypeCode, /* ReturnTypeCode */
  259. 1, /* ParameterCount */
  260. P1NUM, /* ParameterTypes */
  261. P1ANY, /* ParameterTests */
  262. B15 | HB2 /* OptionVersionBitmask */
  263. },
  264. {
  265. F_ASNG_X_N, /* UniqueID */
  266. "N = ASNG( X )", /* Syntax */
  267. "The arcsine of X in gradians, where -100 <= ASNG(X) <= 100; X "
  268. "shall be in the range -1 <= X <= 1.", /* Description */
  269. "ASNG", /* Name */
  270. DoubleTypeCode, /* ReturnTypeCode */
  271. 1, /* ParameterCount */
  272. P1NUM, /* ParameterTypes */
  273. P1ANY, /* ParameterTests */
  274. B15 | HB2 /* OptionVersionBitmask */
  275. },
  276. {
  277. F_ATAN_X_N, /* UniqueID */
  278. "N = ATAN( X )", /* Syntax */
  279. "The arctangent of X in radians, i.e. the angle whose tangent "
  280. "is X, where -PI/2 < ATAN(X) < PI/2.", /* Description */
  281. "ATAN", /* Name */
  282. DoubleTypeCode, /* ReturnTypeCode */
  283. 1, /* ParameterCount */
  284. P1NUM, /* ParameterTypes */
  285. P1ANY, /* ParameterTests */
  286. B15 | HB1 | HB2 /* OptionVersionBitmask */
  287. },
  288. {
  289. F_ATN_X_N, /* UniqueID */
  290. "N = ATN( X )", /* Syntax */
  291. "The arctangent of X in radians, i.e. the angle whose tangent "
  292. "is X, where -PI/2 < ATN(X) < PI/2.", /* Description */
  293. "ATN", /* Name */
  294. DoubleTypeCode, /* ReturnTypeCode */
  295. 1, /* ParameterCount */
  296. P1NUM, /* ParameterTypes */
  297. P1ANY, /* ParameterTests */
  298. B15 | B93 | S70 | C77 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | H80 | G65 | G67 | M80 | D73 | D70 | R86 | D71 | I70 | I73 | T80 | V09 | T79 /* OptionVersionBitmask */
  299. },
  300. {
  301. F_ATND_X_N, /* UniqueID */
  302. "N = ATND( X )", /* Syntax */
  303. "The arctangent of X in degrees, i.e. the angle whose tangent "
  304. "is X, where -90 < ATND(X) < 90.", /* Description */
  305. "ATND", /* Name */
  306. DoubleTypeCode, /* ReturnTypeCode */
  307. 1, /* ParameterCount */
  308. P1NUM, /* ParameterTypes */
  309. P1ANY, /* ParameterTests */
  310. B15 | HB2 /* OptionVersionBitmask */
  311. },
  312. {
  313. F_ATNG_X_N, /* UniqueID */
  314. "N = ATNG( X )", /* Syntax */
  315. "The arctangent of X in gradians, i.e. the angle whose tangent "
  316. "is X, where -100 < ATND(X) < 100.", /* Description */
  317. "ATNG", /* Name */
  318. DoubleTypeCode, /* ReturnTypeCode */
  319. 1, /* ParameterCount */
  320. P1NUM, /* ParameterTypes */
  321. P1ANY, /* ParameterTests */
  322. B15 | HB2 /* OptionVersionBitmask */
  323. },
  324. {
  325. F_BASE_N, /* UniqueID */
  326. "N = BASE", /* Syntax */
  327. "The current OPTION BASE setting.", /* Description */
  328. "BASE", /* Name */
  329. DoubleTypeCode, /* ReturnTypeCode */
  330. 0, /* ParameterCount */
  331. PNONE, /* ParameterTypes */
  332. PNONE, /* ParameterTests */
  333. B15 /* OptionVersionBitmask */
  334. },
  335. {
  336. F_BIN4_X_S, /* UniqueID */
  337. "S$ = BIN$( X )", /* Syntax */
  338. "The the binary (base 2) representation of X.", /* Description */
  339. "BIN$", /* Name */
  340. StringTypeCode, /* ReturnTypeCode */
  341. 1, /* ParameterCount */
  342. P1NUM, /* ParameterTypes */
  343. P1INT, /* ParameterTests */
  344. H14 /* OptionVersionBitmask */
  345. },
  346. {
  347. F_BIN4_X_Y_S, /* UniqueID */
  348. "S$ = BIN$( X, Y )", /* Syntax */
  349. "The the binary (base 2) representation of X. The result will "
  350. "be at least Y digits long. ", /* Description */
  351. "BIN$", /* Name */
  352. StringTypeCode, /* ReturnTypeCode */
  353. 2, /* ParameterCount */
  354. P1NUM | P2NUM, /* ParameterTypes */
  355. P1INT | P2BYT, /* ParameterTests */
  356. H14 /* OptionVersionBitmask */
  357. },
  358. {
  359. F_CATALOG_N, /* UniqueID */
  360. "N = CATALOG", /* Syntax */
  361. "Displays all the file names.", /* Description */
  362. "CATALOG", /* Name */
  363. DoubleTypeCode, /* ReturnTypeCode */
  364. 0, /* ParameterCount */
  365. PNONE, /* ParameterTypes */
  366. PNONE, /* ParameterTests */
  367. D64 | G74 | G65 | G67 | D71 /* OptionVersionBitmask */
  368. },
  369. {
  370. F_CATALOG_A_N, /* UniqueID */
  371. "N = CATALOG( A$ )", /* Syntax */
  372. "Displays all the file names matching A$.", /* Description */
  373. "CATALOG", /* Name */
  374. DoubleTypeCode, /* ReturnTypeCode */
  375. 1, /* ParameterCount */
  376. P1STR, /* ParameterTypes */
  377. P1BYT, /* ParameterTests */
  378. D64 | G74 | G65 | G67 | D71 /* OptionVersionBitmask */
  379. },
  380. {
  381. F_CCUR_X_N, /* UniqueID */
  382. "N = CCUR( X )", /* Syntax */
  383. "The currency (64-bit) integer value of X.", /* Description */
  384. "CCUR", /* Name */
  385. CurrencyTypeCode, /* ReturnTypeCode */
  386. 1, /* ParameterCount */
  387. P1NUM, /* ParameterTypes */
  388. P1CUR, /* ParameterTests */
  389. B15 /* OptionVersionBitmask */
  390. },
  391. {
  392. F_CDBL_X_N, /* UniqueID */
  393. "N = CDBL( X )", /* Syntax */
  394. "The double-precision value of X.", /* Description */
  395. "CDBL", /* Name */
  396. DoubleTypeCode, /* ReturnTypeCode */
  397. 1, /* ParameterCount */
  398. P1NUM, /* ParameterTypes */
  399. P1DBL, /* ParameterTests */
  400. B15 | HB1 | HB2 | M80 | D71 | T80 /* OptionVersionBitmask */
  401. },
  402. {
  403. F_CEIL_X_N, /* UniqueID */
  404. "N = CEIL( X )", /* Syntax */
  405. "The smallest integer not less than X.", /* Description */
  406. "CEIL", /* Name */
  407. DoubleTypeCode, /* ReturnTypeCode */
  408. 1, /* ParameterCount */
  409. P1NUM, /* ParameterTypes */
  410. P1ANY, /* ParameterTests */
  411. B15 | E86 /* OptionVersionBitmask */
  412. },
  413. {
  414. F_CHAR_X_Y_S, /* UniqueID */
  415. "S$ = CHAR( X, Y )", /* Syntax */
  416. "The string Y bytes long consisting of CHR$(X). Same as STRING$(Y,X).", /* Description */
  417. "CHAR", /* Name */
  418. StringTypeCode, /* ReturnTypeCode */
  419. 2, /* ParameterCount */
  420. P1NUM | P2NUM, /* ParameterTypes */
  421. P1BYT | P2LEN, /* ParameterTests */
  422. B15 | HB1 | HB2 /* OptionVersionBitmask */
  423. },
  424. {
  425. F_CHAR4_X_S, /* UniqueID */
  426. "S$ = CHAR$( X )", /* Syntax */
  427. "The one-character string with the character corresponding to "
  428. "the numeric code X. On ASCII systems, CHAR$(65) returns \"A\".", /* Description */
  429. "CHAR$", /* Name */
  430. StringTypeCode, /* ReturnTypeCode */
  431. 1, /* ParameterCount */
  432. P1NUM, /* ParameterTypes */
  433. P1BYT, /* ParameterTests */
  434. B15 | HB1 | HB2 /* OptionVersionBitmask */
  435. },
  436. {
  437. F_CHDIR_A_N, /* UniqueID */
  438. "N = CHDIR( A$ )", /* Syntax */
  439. "Changes to the directory named to A$.", /* Description */
  440. "CHDIR", /* Name */
  441. DoubleTypeCode, /* ReturnTypeCode */
  442. 1, /* ParameterCount */
  443. P1STR, /* ParameterTypes */
  444. P1BYT, /* ParameterTests */
  445. B15 | B93 | H14 | M80 | D71 | T80 /* OptionVersionBitmask */
  446. },
  447. {
  448. F_CHR_X_S, /* UniqueID */
  449. "S$ = CHR( X )", /* Syntax */
  450. "The one-character string with the character corresponding to "
  451. "the numeric code X. On ASCII systems, CHR(65) returns \"A\".", /* Description */
  452. "CHR", /* Name */
  453. StringTypeCode, /* ReturnTypeCode */
  454. 1, /* ParameterCount */
  455. P1NUM, /* ParameterTypes */
  456. P1ANY, /* ParameterTests */
  457. B15 | HB1 | HB2 /* OptionVersionBitmask */
  458. },
  459. {
  460. F_CHR_X_S, /* UniqueID */
  461. "S$ = CHR( X )", /* Syntax */
  462. "The output of PRINT X. A$ = CHR(X) is the opposite of X = NUM(A$).", /* Description */
  463. "CHR", /* Name */
  464. StringTypeCode, /* ReturnTypeCode */
  465. 1, /* ParameterCount */
  466. P1NUM, /* ParameterTypes */
  467. P1ANY, /* ParameterTests */
  468. S70 | I70 | I73 /* OptionVersionBitmask */
  469. },
  470. {
  471. F_CHR4_X_S, /* UniqueID */
  472. "S$ = CHR$( X )", /* Syntax */
  473. "The one-character string with the character corresponding to "
  474. "the numeric code X. On ASCII systems, CHR$(65) returns \"A\".", /* Description */
  475. "CHR$", /* Name */
  476. StringTypeCode, /* ReturnTypeCode */
  477. 1, /* ParameterCount */
  478. P1NUM, /* ParameterTypes */
  479. P1BYT, /* ParameterTests */
  480. B15 | B93 | C77 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | H80 | G65 | G67 | M80 | R86 | D71 | T80 | V09 | T79 /* OptionVersionBitmask */
  481. },
  482. {
  483. F_CIN_X_N, /* UniqueID */
  484. "N = CIN( X )", /* Syntax */
  485. "If file # X is <= 0 then returns -1. If file # X is not opened "
  486. "for reading then returns -1. If file # X is at EOF then returns "
  487. "-1, Otherwise returns the next byte value read from file X.", /* Description */
  488. "CIN", /* Name */
  489. IntegerTypeCode, /* ReturnTypeCode */
  490. 1, /* ParameterCount */
  491. P1NUM, /* ParameterTypes */
  492. P1INT, /* ParameterTests */
  493. H80 /* OptionVersionBitmask */
  494. },
  495. {
  496. F_CINT_X_N, /* UniqueID */
  497. "N = CINT( X )", /* Syntax */
  498. "The short (16-bit) integer value of X.", /* Description */
  499. "CINT", /* Name */
  500. IntegerTypeCode, /* ReturnTypeCode */
  501. 1, /* ParameterCount */
  502. P1NUM, /* ParameterTypes */
  503. P1INT, /* ParameterTests */
  504. B15 | B93 | H14 | HB1 | HB2 | M80 | D71 | T80 /* OptionVersionBitmask */
  505. },
  506. {
  507. F_CLG_X_N, /* UniqueID */
  508. "N = CLG( X )", /* Syntax */
  509. "The common logarithm of X; X shall be greater than zero.", /* Description */
  510. "CLG", /* Name */
  511. DoubleTypeCode, /* ReturnTypeCode */
  512. 1, /* ParameterCount */
  513. P1NUM, /* ParameterTypes */
  514. P1GTZ, /* ParameterTests */
  515. B15 | HB1 | HB2 /* OptionVersionBitmask */
  516. },
  517. {
  518. F_CLK_X_N, /* UniqueID */
  519. "N = CLK( X )", /* Syntax */
  520. "The time elapsed since the previous midnight, expressed in hours; "
  521. "e.g., the value of CLK at 3:15 PM is 15.25. If there is no clock "
  522. "available, then the value of CLK shall be -1. The value of CLK "
  523. "at midnight shall be zero (not 24). The value of X is ignored.", /* Description */
  524. "CLK", /* Name */
  525. DoubleTypeCode, /* ReturnTypeCode */
  526. 1, /* ParameterCount */
  527. P1NUM, /* ParameterTypes */
  528. P1ANY, /* ParameterTests */
  529. G74 | G65 | G67 /* OptionVersionBitmask */
  530. },
  531. {
  532. F_CLK_X_S, /* UniqueID */
  533. "S$ = CLK( X )", /* Syntax */
  534. "The time of day in 24-hour notation according to ISO 3307. For "
  535. "example, the value of CLK at 11:15 AM is \"11:15:00\". If there "
  536. "is no clock available, then the value of CLK shall be \"99:99:99\". "
  537. " The value of TIME$ at midnight is \"00:00:00\". The value of "
  538. "parameter X is ignored.", /* Description */
  539. "CLK", /* Name */
  540. StringTypeCode, /* ReturnTypeCode */
  541. 1, /* ParameterCount */
  542. P1NUM, /* ParameterTypes */
  543. P1ANY, /* ParameterTests */
  544. B15 | HB1 | HB2 /* OptionVersionBitmask */
  545. },
  546. {
  547. F_CLK4_S, /* UniqueID */
  548. "S$ = CLK$", /* Syntax */
  549. "The time of day in 24-hour notation according to ISO 3307. For "
  550. "example, the value of TIME$ at 11:15 AM is \"11:15:00\". If there "
  551. "is no clock available, then the value of TIME$ shall be \"99:99:99\". "
  552. " The value of TIME$ at midnight is \"00:00:00\".", /* Description */
  553. "CLK$", /* Name */
  554. StringTypeCode, /* ReturnTypeCode */
  555. 0, /* ParameterCount */
  556. PNONE, /* ParameterTypes */
  557. PNONE, /* ParameterTests */
  558. B15 | G74 | HB1 | HB2 | G67 /* OptionVersionBitmask */
  559. },
  560. {
  561. F_CLNG_X_N, /* UniqueID */
  562. "N = CLNG( X )", /* Syntax */
  563. "The long (32-bit) integer value of X.", /* Description */
  564. "CLNG", /* Name */
  565. LongTypeCode, /* ReturnTypeCode */
  566. 1, /* ParameterCount */
  567. P1NUM, /* ParameterTypes */
  568. P1LNG, /* ParameterTests */
  569. B15 | M80 | D71 | T80 /* OptionVersionBitmask */
  570. },
  571. {
  572. F_CLOG_X_N, /* UniqueID */
  573. "N = CLOG( X )", /* Syntax */
  574. "The common logarithm of X; X shall be greater than zero.", /* Description */
  575. "CLOG", /* Name */
  576. DoubleTypeCode, /* ReturnTypeCode */
  577. 1, /* ParameterCount */
  578. P1NUM, /* ParameterTypes */
  579. P1GTZ, /* ParameterTests */
  580. B15 | HB1 | HB2 /* OptionVersionBitmask */
  581. },
  582. {
  583. F_CLOSE_N, /* UniqueID */
  584. "N = CLOSE", /* Syntax */
  585. "Close all open files.", /* Description */
  586. "CLOSE", /* Name */
  587. DoubleTypeCode, /* ReturnTypeCode */
  588. 0, /* ParameterCount */
  589. PNONE, /* ParameterTypes */
  590. PNONE, /* ParameterTests */
  591. B15 | B93 | H14 | H80 | M80 | D71 | T80 /* OptionVersionBitmask */
  592. },
  593. {
  594. F_CLOSE_X_N, /* UniqueID */
  595. "N = CLOSE( X )", /* Syntax */
  596. "Close file number X.", /* Description */
  597. "CLOSE", /* Name */
  598. DoubleTypeCode, /* ReturnTypeCode */
  599. 1, /* ParameterCount */
  600. P1NUM, /* ParameterTypes */
  601. P1INT, /* ParameterTests */
  602. B15 | B93 | C77 | H14 | HB2 | H80 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  603. },
  604. {
  605. F_CLS_N, /* UniqueID */
  606. "N = CLS", /* Syntax */
  607. "Clears the screen. Cursor is positioned at row 1, column 1.", /* Description */
  608. "CLS", /* Name */
  609. DoubleTypeCode, /* ReturnTypeCode */
  610. 0, /* ParameterCount */
  611. PNONE, /* ParameterTypes */
  612. PNONE, /* ParameterTests */
  613. B15 | B93 | H14 | HB1 | HB2 | M80 | T80 /* OptionVersionBitmask */
  614. },
  615. {
  616. F_CNTRL_X_Y_N, /* UniqueID */
  617. "N = CNTRL( X, Y )", /* Syntax */
  618. "CNTRL 1,Y sets the number of significant digits to print. CNTRL "
  619. "3,Y sets the width of the print zones.", /* Description */
  620. "CNTRL", /* Name */
  621. DoubleTypeCode, /* ReturnTypeCode */
  622. 2, /* ParameterCount */
  623. P1NUM | P2NUM, /* ParameterTypes */
  624. P1INT | P2INT, /* ParameterTests */
  625. H80 /* OptionVersionBitmask */
  626. },
  627. {
  628. F_CODE_A_N, /* UniqueID */
  629. "N = CODE( A$ )", /* Syntax */
  630. "The numeric code for the first letter in A$. For example, CODE(\"ABC\") "
  631. "returns 65 on ASCII systems.", /* Description */
  632. "CODE", /* Name */
  633. DoubleTypeCode, /* ReturnTypeCode */
  634. 1, /* ParameterCount */
  635. P1STR, /* ParameterTypes */
  636. P1BYT, /* ParameterTests */
  637. B15 | H14 | HB2 /* OptionVersionBitmask */
  638. },
  639. {
  640. F_COLOR_X_Y_N, /* UniqueID */
  641. "N = COLOR( X, Y )", /* Syntax */
  642. "Sets the foreground text color to X, and the background text "
  643. "color to Y.", /* Description */
  644. "COLOR", /* Name */
  645. DoubleTypeCode, /* ReturnTypeCode */
  646. 2, /* ParameterCount */
  647. P1NUM | P2NUM, /* ParameterTypes */
  648. P1BYT | P2BYT, /* ParameterTests */
  649. B15 | H14 | M80 | T80 /* OptionVersionBitmask */
  650. },
  651. {
  652. F_COMMAND4_S, /* UniqueID */
  653. "S$ = COMMAND$", /* Syntax */
  654. "All command line parameters, concatenated with one space between "
  655. "each. Support for parameters varies by operating system, compiler, "
  656. "and so on.", /* Description */
  657. "COMMAND$", /* Name */
  658. StringTypeCode, /* ReturnTypeCode */
  659. 0, /* ParameterCount */
  660. PNONE, /* ParameterTypes */
  661. PNONE, /* ParameterTests */
  662. H14 /* OptionVersionBitmask */
  663. },
  664. {
  665. F_COMMAND4_X_S, /* UniqueID */
  666. "S$ = COMMAND$( X )", /* Syntax */
  667. "The command line parameters. COMMAND$(0) is the BASIC program "
  668. "name. COMMAND$(1) is the first parameter after the BASIC program "
  669. "name, and so on. Support for parameters varies by operating "
  670. "system, compiler, and so on. X in [0..9] ", /* Description */
  671. "COMMAND$", /* Name */
  672. StringTypeCode, /* ReturnTypeCode */
  673. 1, /* ParameterCount */
  674. P1NUM, /* ParameterTypes */
  675. P1BYT, /* ParameterTests */
  676. B15 | C77 | H14 /* OptionVersionBitmask */
  677. },
  678. {
  679. F_COS_X_N, /* UniqueID */
  680. "N = COS( X )", /* Syntax */
  681. "The cosine of X, where X is in radians.", /* Description */
  682. "COS", /* Name */
  683. DoubleTypeCode, /* ReturnTypeCode */
  684. 1, /* ParameterCount */
  685. P1NUM, /* ParameterTypes */
  686. P1ANY, /* ParameterTests */
  687. B15 | B93 | S70 | C77 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | H80 | G65 | G67 | M80 | D73 | D70 | R86 | D71 | I70 | I73 | T80 | V09 | T79 /* OptionVersionBitmask */
  688. },
  689. {
  690. F_COSD_X_N, /* UniqueID */
  691. "N = COSD( X )", /* Syntax */
  692. "The cosine of X, where X is in degrees.", /* Description */
  693. "COSD", /* Name */
  694. DoubleTypeCode, /* ReturnTypeCode */
  695. 1, /* ParameterCount */
  696. P1NUM, /* ParameterTypes */
  697. P1ANY, /* ParameterTests */
  698. B15 | HB2 /* OptionVersionBitmask */
  699. },
  700. {
  701. F_COSG_X_N, /* UniqueID */
  702. "N = COSG( X )", /* Syntax */
  703. "The cosine of X, where X is in gradians.", /* Description */
  704. "COSG", /* Name */
  705. DoubleTypeCode, /* ReturnTypeCode */
  706. 1, /* ParameterCount */
  707. P1NUM, /* ParameterTypes */
  708. P1ANY, /* ParameterTests */
  709. B15 | HB2 /* OptionVersionBitmask */
  710. },
  711. {
  712. F_COSH_X_N, /* UniqueID */
  713. "N = COSH( X )", /* Syntax */
  714. "The hyperbolic cosine of X.", /* Description */
  715. "COSH", /* Name */
  716. DoubleTypeCode, /* ReturnTypeCode */
  717. 1, /* ParameterCount */
  718. P1NUM, /* ParameterTypes */
  719. P1ANY, /* ParameterTests */
  720. B15 | E86 /* OptionVersionBitmask */
  721. },
  722. {
  723. F_COT_X_N, /* UniqueID */
  724. "N = COT( X )", /* Syntax */
  725. "The cotangent of X, where X is in radians.", /* Description */
  726. "COT", /* Name */
  727. DoubleTypeCode, /* ReturnTypeCode */
  728. 1, /* ParameterCount */
  729. P1NUM, /* ParameterTypes */
  730. P1ANY, /* ParameterTests */
  731. B15 | S70 | E86 | G74 | G67 | I70 | I73 /* OptionVersionBitmask */
  732. },
  733. {
  734. F_COUNT_N, /* UniqueID */
  735. "N = COUNT", /* Syntax */
  736. "The current cursor position in the line.", /* Description */
  737. "COUNT", /* Name */
  738. DoubleTypeCode, /* ReturnTypeCode */
  739. 0, /* ParameterCount */
  740. PNONE, /* ParameterTypes */
  741. PNONE, /* ParameterTests */
  742. B15 | HB2 /* OptionVersionBitmask */
  743. },
  744. {
  745. F_CSC_X_N, /* UniqueID */
  746. "N = CSC( X )", /* Syntax */
  747. "The cosecant of X, where X is in radians.", /* Description */
  748. "CSC", /* Name */
  749. DoubleTypeCode, /* ReturnTypeCode */
  750. 1, /* ParameterCount */
  751. P1NUM, /* ParameterTypes */
  752. P1ANY, /* ParameterTests */
  753. B15 | S70 | E86 | I70 | I73 /* OptionVersionBitmask */
  754. },
  755. {
  756. F_CSH_X_N, /* UniqueID */
  757. "N = CSH( X )", /* Syntax */
  758. "The hyperbolic cosine of X.", /* Description */
  759. "CSH", /* Name */
  760. DoubleTypeCode, /* ReturnTypeCode */
  761. 1, /* ParameterCount */
  762. P1NUM, /* ParameterTypes */
  763. P1ANY, /* ParameterTests */
  764. B15 | HB2 /* OptionVersionBitmask */
  765. },
  766. {
  767. F_CSNG_X_N, /* UniqueID */
  768. "N = CSNG( X )", /* Syntax */
  769. "The single-precision value of X.", /* Description */
  770. "CSNG", /* Name */
  771. SingleTypeCode, /* ReturnTypeCode */
  772. 1, /* ParameterCount */
  773. P1NUM, /* ParameterTypes */
  774. P1FLT, /* ParameterTests */
  775. B15 | B93 | HB1 | HB2 | M80 | D71 | T80 /* OptionVersionBitmask */
  776. },
  777. {
  778. F_CUR_X_Y_S, /* UniqueID */
  779. "S$ = CUR( X, Y )", /* Syntax */
  780. "Locates the cursor to row X, column Y.", /* Description */
  781. "CUR", /* Name */
  782. StringTypeCode, /* ReturnTypeCode */
  783. 2, /* ParameterCount */
  784. P1NUM | P2NUM, /* ParameterTypes */
  785. P1BYT | P2BYT, /* ParameterTests */
  786. B15 | HB2 /* OptionVersionBitmask */
  787. },
  788. {
  789. F_CVC_A_N, /* UniqueID */
  790. "N = CVC( A$ )", /* Syntax */
  791. "The currency (64-bit) integer value in A$, which was created "
  792. "by MKC$.", /* Description */
  793. "CVC", /* Name */
  794. CurrencyTypeCode, /* ReturnTypeCode */
  795. 1, /* ParameterCount */
  796. P1STR, /* ParameterTypes */
  797. P1CUR, /* ParameterTests */
  798. B15 /* OptionVersionBitmask */
  799. },
  800. {
  801. F_CVD_A_N, /* UniqueID */
  802. "N = CVD( A$ )", /* Syntax */
  803. "The double-precision value in A$, which was created by MKD$.", /* Description */
  804. "CVD", /* Name */
  805. DoubleTypeCode, /* ReturnTypeCode */
  806. 1, /* ParameterCount */
  807. P1STR, /* ParameterTypes */
  808. P1DBL, /* ParameterTests */
  809. B15 | B93 | H14 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  810. },
  811. {
  812. F_CVI_A_N, /* UniqueID */
  813. "N = CVI( A$ )", /* Syntax */
  814. "The short (16-bit) integer value in A$, which was created by "
  815. "MKI$.", /* Description */
  816. "CVI", /* Name */
  817. IntegerTypeCode, /* ReturnTypeCode */
  818. 1, /* ParameterCount */
  819. P1STR, /* ParameterTypes */
  820. P1INT, /* ParameterTests */
  821. B15 | B93 | H14 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  822. },
  823. {
  824. F_CVL_A_N, /* UniqueID */
  825. "N = CVL( A$ )", /* Syntax */
  826. "The long (32-bit) integer value in A$, which was created by MKL$.", /* Description */
  827. "CVL", /* Name */
  828. LongTypeCode, /* ReturnTypeCode */
  829. 1, /* ParameterCount */
  830. P1STR, /* ParameterTypes */
  831. P1LNG, /* ParameterTests */
  832. B15 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  833. },
  834. {
  835. F_CVS_A_N, /* UniqueID */
  836. "N = CVS( A$ )", /* Syntax */
  837. "The single-precision value in A$, which was created by MKS$.", /* Description */
  838. "CVS", /* Name */
  839. SingleTypeCode, /* ReturnTypeCode */
  840. 1, /* ParameterCount */
  841. P1STR, /* ParameterTypes */
  842. P1FLT, /* ParameterTests */
  843. B15 | B93 | H14 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  844. },
  845. {
  846. F_DAT4_S, /* UniqueID */
  847. "S$ = DAT$", /* Syntax */
  848. "The current date based on the internal clock as a string in the "
  849. "format set by OPTION DATE.", /* Description */
  850. "DAT$", /* Name */
  851. StringTypeCode, /* ReturnTypeCode */
  852. 0, /* ParameterCount */
  853. PNONE, /* ParameterTypes */
  854. PNONE, /* ParameterTests */
  855. G74 | G67 /* OptionVersionBitmask */
  856. },
  857. {
  858. F_DATE_N, /* UniqueID */
  859. "N = DATE", /* Syntax */
  860. "The current date in decimal form YYYDDD, where YYY are the number "
  861. "of years since 1900 and DDD is the ordinal number of the current "
  862. "day of the year; e.g., the value of DATE on May 9, 1977 was 77129. "
  863. " If there is no calendar available, then the value of DATE shall "
  864. "be -1.", /* Description */
  865. "DATE", /* Name */
  866. DoubleTypeCode, /* ReturnTypeCode */
  867. 0, /* ParameterCount */
  868. PNONE, /* ParameterTypes */
  869. PNONE, /* ParameterTests */
  870. B15 | E86 /* OptionVersionBitmask */
  871. },
  872. {
  873. F_DATE4_S, /* UniqueID */
  874. "S$ = DATE$", /* Syntax */
  875. "The current date based on the internal clock as a string in the "
  876. "format set by OPTION DATE.", /* Description */
  877. "DATE$", /* Name */
  878. StringTypeCode, /* ReturnTypeCode */
  879. 0, /* ParameterCount */
  880. PNONE, /* ParameterTypes */
  881. PNONE, /* ParameterTests */
  882. B15 | B93 | E86 | H14 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  883. },
  884. {
  885. F_DATE4_X_S, /* UniqueID */
  886. "S$ = DATE$( X )", /* Syntax */
  887. "The current date based on the internal clock as a string in the "
  888. "format set by OPTION DATE. The value of parameter X is ignored.", /* Description */
  889. "DATE$", /* Name */
  890. StringTypeCode, /* ReturnTypeCode */
  891. 1, /* ParameterCount */
  892. P1NUM, /* ParameterTypes */
  893. P1ANY, /* ParameterTests */
  894. D71 /* OptionVersionBitmask */
  895. },
  896. {
  897. F_DEG_N, /* UniqueID */
  898. "N = DEG", /* Syntax */
  899. "Configures the math functions to accept and return angles in "
  900. "degrees.", /* Description */
  901. "DEG", /* Name */
  902. DoubleTypeCode, /* ReturnTypeCode */
  903. 0, /* ParameterCount */
  904. PNONE, /* ParameterTypes */
  905. PNONE, /* ParameterTests */
  906. B15 | HB1 | HB2 /* OptionVersionBitmask */
  907. },
  908. {
  909. F_DEG_X_N, /* UniqueID */
  910. "N = DEG( X )", /* Syntax */
  911. "When X is zero sets RADIANS. When X is non-zero sets DEGREES.", /* Description */
  912. "DEG", /* Name */
  913. DoubleTypeCode, /* ReturnTypeCode */
  914. 1, /* ParameterCount */
  915. P1NUM, /* ParameterTypes */
  916. P1BYT, /* ParameterTests */
  917. R86 /* OptionVersionBitmask */
  918. },
  919. {
  920. F_DEG_X_N, /* UniqueID */
  921. "N = DEG( X )", /* Syntax */
  922. "The number of degrees in X radians.", /* Description */
  923. "DEG", /* Name */
  924. DoubleTypeCode, /* ReturnTypeCode */
  925. 1, /* ParameterCount */
  926. P1NUM, /* ParameterTypes */
  927. P1ANY, /* ParameterTests */
  928. B15 | S70 | E86 | H14 | HB1 | HB2 | I70 | I73 /* OptionVersionBitmask */
  929. },
  930. {
  931. F_DEGREE_N, /* UniqueID */
  932. "N = DEGREE", /* Syntax */
  933. "Configures the math functions to accept and return angles in "
  934. "degrees.", /* Description */
  935. "DEGREE", /* Name */
  936. DoubleTypeCode, /* ReturnTypeCode */
  937. 0, /* ParameterCount */
  938. PNONE, /* ParameterTypes */
  939. PNONE, /* ParameterTests */
  940. B15 | HB2 /* OptionVersionBitmask */
  941. },
  942. {
  943. F_DEGREE_X_N, /* UniqueID */
  944. "N = DEGREE( X )", /* Syntax */
  945. "The number of degrees in X radians.", /* Description */
  946. "DEGREE", /* Name */
  947. DoubleTypeCode, /* ReturnTypeCode */
  948. 1, /* ParameterCount */
  949. P1NUM, /* ParameterTypes */
  950. P1ANY, /* ParameterTests */
  951. B15 | HB2 /* OptionVersionBitmask */
  952. },
  953. {
  954. F_DET_N, /* UniqueID */
  955. "N = DET", /* Syntax */
  956. "The determinant of the last MAT INV. Zero means error.", /* Description */
  957. "DET", /* Name */
  958. DoubleTypeCode, /* ReturnTypeCode */
  959. 0, /* ParameterCount */
  960. PNONE, /* ParameterTypes */
  961. PNONE, /* ParameterTests */
  962. B15 | S70 | G74 | H14 | HB2 | G67 | D71 | I70 | I73 /* OptionVersionBitmask */
  963. },
  964. {
  965. F_DIGITS_X_N, /* UniqueID */
  966. "N = DIGITS( X )", /* Syntax */
  967. "X is the number of significiant digits to print for numbers (0..17). "
  968. " If X = 0 then disabled. ", /* Description */
  969. "DIGITS", /* Name */
  970. DoubleTypeCode, /* ReturnTypeCode */
  971. 1, /* ParameterCount */
  972. P1NUM, /* ParameterTypes */
  973. P1BYT, /* ParameterTests */
  974. R86 | T79 /* OptionVersionBitmask */
  975. },
  976. {
  977. F_DIGITS_X_Y_N, /* UniqueID */
  978. "N = DIGITS( X, Y )", /* Syntax */
  979. "X is the number of significiant digits to print for numbers (0..17). "
  980. " If X = 0 then disabled. Y is the number of decimal places to "
  981. "round (0..17). If Y = 0 then disabled.", /* Description */
  982. "DIGITS", /* Name */
  983. DoubleTypeCode, /* ReturnTypeCode */
  984. 2, /* ParameterCount */
  985. P1NUM | P2NUM, /* ParameterTypes */
  986. P1BYT | P2BYT, /* ParameterTests */
  987. HB2 | R86 | T79 /* OptionVersionBitmask */
  988. },
  989. {
  990. F_DIM_N, /* UniqueID */
  991. "N = DIM( ... )", /* Syntax */
  992. "DIM( arrayname ). The total number of dimensions of the array.", /* Description */
  993. "DIM", /* Name */
  994. DoubleTypeCode, /* ReturnTypeCode */
  995. 255, /* ParameterCount */
  996. PNONE, /* ParameterTypes */
  997. PNONE, /* ParameterTests */
  998. B15 /* OptionVersionBitmask */
  999. },
  1000. {
  1001. F_DPEEK_X_N, /* UniqueID */
  1002. "N = DPEEK( X )", /* Syntax */
  1003. "The value read from hardware address X. Causes ERROR 73.", /* Description */
  1004. "DPEEK", /* Name */
  1005. DoubleTypeCode, /* ReturnTypeCode */
  1006. 1, /* ParameterCount */
  1007. P1NUM, /* ParameterTypes */
  1008. P1LNG, /* ParameterTests */
  1009. R86 | T79 /* OptionVersionBitmask */
  1010. },
  1011. {
  1012. F_DPOKE_X_Y_N, /* UniqueID */
  1013. "N = DPOKE( X, Y )", /* Syntax */
  1014. "Sends Y to hardware address X. Causes ERROR 73.", /* Description */
  1015. "DPOKE", /* Name */
  1016. DoubleTypeCode, /* ReturnTypeCode */
  1017. 2, /* ParameterCount */
  1018. P1NUM | P2NUM, /* ParameterTypes */
  1019. P1LNG | P2INT, /* ParameterTests */
  1020. R86 | T79 /* OptionVersionBitmask */
  1021. },
  1022. {
  1023. F_EDIT4_A_X_S, /* UniqueID */
  1024. "S$ = EDIT$( A$, X )", /* Syntax */
  1025. "Edits the characters of A$, according to the bits set in X.\n1 "
  1026. "= discard parity bit.\n2 = discard all spaces.\n4 = discard all "
  1027. "carriage returns, line feeds, form feeds, deletes, escapes and "
  1028. "nulls.\n8 = discard leading spaces.\n16 = replace multiple spaces "
  1029. "with one space.\n32 = change lower case to upper case.\n64 = change "
  1030. "[ to ( and change ] to ).\n128 = discard trailing spacess.\n256 "
  1031. "= suppress editing within quotes.\nThe order in which edits occur "
  1032. "is implementation defined.", /* Description */
  1033. "EDIT$", /* Name */
  1034. StringTypeCode, /* ReturnTypeCode */
  1035. 2, /* ParameterCount */
  1036. P1STR | P2NUM, /* ParameterTypes */
  1037. P1ANY | P2INT, /* ParameterTests */
  1038. H14 /* OptionVersionBitmask */
  1039. },
  1040. {
  1041. F_ENVIRON_A_N, /* UniqueID */
  1042. "N = ENVIRON( A$ )", /* Syntax */
  1043. "Sends the environment variable expression contained in A$ to "
  1044. "the host operating system. A$ must contain the \"=\" character.", /* Description */
  1045. "ENVIRON", /* Name */
  1046. DoubleTypeCode, /* ReturnTypeCode */
  1047. 1, /* ParameterCount */
  1048. P1STR, /* ParameterTypes */
  1049. P1BYT, /* ParameterTests */
  1050. B15 | B93 | H14 | M80 | D71 | T80 /* OptionVersionBitmask */
  1051. },
  1052. {
  1053. F_ENVIRON4_A_S, /* UniqueID */
  1054. "S$ = ENVIRON$( A$ )", /* Syntax */
  1055. "The value of the environment variable named A$.", /* Description */
  1056. "ENVIRON$", /* Name */
  1057. StringTypeCode, /* ReturnTypeCode */
  1058. 1, /* ParameterCount */
  1059. P1STR, /* ParameterTypes */
  1060. P1BYT, /* ParameterTests */
  1061. B15 | B93 | H14 | M80 | D71 | T80 /* OptionVersionBitmask */
  1062. },
  1063. {
  1064. F_EOF_X_N, /* UniqueID */
  1065. "N = EOF( X )", /* Syntax */
  1066. "If device number X is at the end-of-file, then -1, otherwise "
  1067. "0.", /* Description */
  1068. "EOF", /* Name */
  1069. DoubleTypeCode, /* ReturnTypeCode */
  1070. 1, /* ParameterCount */
  1071. P1NUM, /* ParameterTypes */
  1072. P1INT, /* ParameterTests */
  1073. B15 | B93 | H14 | H80 | M80 | D71 | T80 /* OptionVersionBitmask */
  1074. },
  1075. {
  1076. F_EPS_X_N, /* UniqueID */
  1077. "N = EPS( X )", /* Syntax */
  1078. "The maximum of (X-X1,X2-X, sigma) where X1 and X2 are the predecessor "
  1079. "and successor of X and signma is the smallest positive value "
  1080. "representable. If X has no predecessor the X1=X and if X has "
  1081. "no successor the X2=X. Note EPS(0) is the smallest positive "
  1082. "number representable by the implementation, and is therefor implementation-defined. "
  1083. " Note also that EPS may produce different results for different "
  1084. "arithmetic options (see OPTION ARITHMETIC).", /* Description */
  1085. "EPS", /* Name */
  1086. DoubleTypeCode, /* ReturnTypeCode */
  1087. 1, /* ParameterCount */
  1088. P1NUM, /* ParameterTypes */
  1089. P1ANY, /* ParameterTests */
  1090. B15 | E86 /* OptionVersionBitmask */
  1091. },
  1092. {
  1093. F_ERL_N, /* UniqueID */
  1094. "N = ERL", /* Syntax */
  1095. "The line number of the most recent error.", /* Description */
  1096. "ERL", /* Name */
  1097. DoubleTypeCode, /* ReturnTypeCode */
  1098. 0, /* ParameterCount */
  1099. PNONE, /* ParameterTypes */
  1100. PNONE, /* ParameterTests */
  1101. B15 | B93 | H14 | HB1 | HB2 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  1102. },
  1103. {
  1104. F_ERR_N, /* UniqueID */
  1105. "N = ERR", /* Syntax */
  1106. "The error number of the most recent error.", /* Description */
  1107. "ERR", /* Name */
  1108. DoubleTypeCode, /* ReturnTypeCode */
  1109. 0, /* ParameterCount */
  1110. PNONE, /* ParameterTypes */
  1111. PNONE, /* ParameterTests */
  1112. B15 | B93 | H14 | HB1 | HB2 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  1113. },
  1114. {
  1115. F_ERR4_S, /* UniqueID */
  1116. "S$ = ERR$", /* Syntax */
  1117. "The last error message.", /* Description */
  1118. "ERR$", /* Name */
  1119. StringTypeCode, /* ReturnTypeCode */
  1120. 0, /* ParameterCount */
  1121. PNONE, /* ParameterTypes */
  1122. PNONE, /* ParameterTests */
  1123. B15 | M80 | D71 | T80 /* OptionVersionBitmask */
  1124. },
  1125. {
  1126. F_ERRL_N, /* UniqueID */
  1127. "N = ERRL", /* Syntax */
  1128. "The line number of the most recent error.", /* Description */
  1129. "ERRL", /* Name */
  1130. DoubleTypeCode, /* ReturnTypeCode */
  1131. 0, /* ParameterCount */
  1132. PNONE, /* ParameterTypes */
  1133. PNONE, /* ParameterTests */
  1134. B15 | HB2 /* OptionVersionBitmask */
  1135. },
  1136. {
  1137. F_ERRN_N, /* UniqueID */
  1138. "N = ERRN", /* Syntax */
  1139. "The error number of the most recent error.", /* Description */
  1140. "ERRN", /* Name */
  1141. DoubleTypeCode, /* ReturnTypeCode */
  1142. 0, /* ParameterCount */
  1143. PNONE, /* ParameterTypes */
  1144. PNONE, /* ParameterTests */
  1145. B15 | HB2 /* OptionVersionBitmask */
  1146. },
  1147. {
  1148. F_ERROR_X_N, /* UniqueID */
  1149. "N = ERROR( X )", /* Syntax */
  1150. "Simulate the error number in X.", /* Description */
  1151. "ERROR", /* Name */
  1152. DoubleTypeCode, /* ReturnTypeCode */
  1153. 1, /* ParameterCount */
  1154. P1NUM, /* ParameterTypes */
  1155. P1BYT, /* ParameterTests */
  1156. B15 | B93 | HB1 | HB2 | M80 | D71 | T80 /* OptionVersionBitmask */
  1157. },
  1158. {
  1159. F_ERROR_X_A_N, /* UniqueID */
  1160. "N = ERROR( X, A$ )", /* Syntax */
  1161. "Simulate the error number in X, with a custom message in A$.", /* Description */
  1162. "ERROR", /* Name */
  1163. DoubleTypeCode, /* ReturnTypeCode */
  1164. 2, /* ParameterCount */
  1165. P1NUM | P2STR, /* ParameterTypes */
  1166. P1BYT | P2ANY, /* ParameterTests */
  1167. B15 | HB1 | HB2 /* OptionVersionBitmask */
  1168. },
  1169. {
  1170. F_ERROR4_S, /* UniqueID */
  1171. "S$ = ERROR$", /* Syntax */
  1172. "The last error message.", /* Description */
  1173. "ERROR$", /* Name */
  1174. StringTypeCode, /* ReturnTypeCode */
  1175. 0, /* ParameterCount */
  1176. PNONE, /* ParameterTypes */
  1177. PNONE, /* ParameterTests */
  1178. B15 | M80 | D71 | T80 /* OptionVersionBitmask */
  1179. },
  1180. {
  1181. F_EXAM_X_N, /* UniqueID */
  1182. "N = EXAM( X )", /* Syntax */
  1183. "The value read from hardware address X. Causes ERROR 73.", /* Description */
  1184. "EXAM", /* Name */
  1185. DoubleTypeCode, /* ReturnTypeCode */
  1186. 1, /* ParameterCount */
  1187. P1NUM, /* ParameterTypes */
  1188. P1LNG, /* ParameterTests */
  1189. HB1 | HB2 /* OptionVersionBitmask */
  1190. },
  1191. {
  1192. F_EXEC_A_N, /* UniqueID */
  1193. "N = EXEC( A$ )", /* Syntax */
  1194. "The exit code resulting from the execution of an operating system "
  1195. "command.", /* Description */
  1196. "EXEC", /* Name */
  1197. DoubleTypeCode, /* ReturnTypeCode */
  1198. 1, /* ParameterCount */
  1199. P1STR, /* ParameterTypes */
  1200. P1BYT, /* ParameterTests */
  1201. R86 | T79 /* OptionVersionBitmask */
  1202. },
  1203. {
  1204. F_EXF_N, /* UniqueID */
  1205. "N = EXF( ... )", /* Syntax */
  1206. "Execute hardware program. Causes ERROR 73.", /* Description */
  1207. "EXF", /* Name */
  1208. DoubleTypeCode, /* ReturnTypeCode */
  1209. 255, /* ParameterCount */
  1210. PNONE, /* ParameterTypes */
  1211. PNONE, /* ParameterTests */
  1212. D70 /* OptionVersionBitmask */
  1213. },
  1214. {
  1215. F_EXP_X_N, /* UniqueID */
  1216. "N = EXP( X )", /* Syntax */
  1217. "The exponential value of X, i.e., the value of the base of natural "
  1218. "logarithms (e = 2.71828) raised to the power of X; if EXP(X) "
  1219. "is less that machine infinitesimal, then its value shall be replaced "
  1220. "with zero.", /* Description */
  1221. "EXP", /* Name */
  1222. DoubleTypeCode, /* ReturnTypeCode */
  1223. 1, /* ParameterCount */
  1224. P1NUM, /* ParameterTypes */
  1225. P1ANY, /* ParameterTests */
  1226. B15 | B93 | S70 | C77 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | H80 | G65 | G67 | M80 | D73 | D70 | R86 | D71 | I70 | I73 | T80 | V09 | T79 /* OptionVersionBitmask */
  1227. },
  1228. {
  1229. F_FALSE_N, /* UniqueID */
  1230. "N = FALSE", /* Syntax */
  1231. "The value of FALSE.", /* Description */
  1232. "FALSE", /* Name */
  1233. IntegerTypeCode, /* ReturnTypeCode */
  1234. 0, /* ParameterCount */
  1235. PNONE, /* ParameterTypes */
  1236. PNONE, /* ParameterTests */
  1237. H14 /* OptionVersionBitmask */
  1238. },
  1239. {
  1240. F_FETCH_X_N, /* UniqueID */
  1241. "N = FETCH( X )", /* Syntax */
  1242. "The value read from hardware address X. Causes ERROR 73.", /* Description */
  1243. "FETCH", /* Name */
  1244. DoubleTypeCode, /* ReturnTypeCode */
  1245. 1, /* ParameterCount */
  1246. P1NUM, /* ParameterTypes */
  1247. P1LNG, /* ParameterTests */
  1248. HB1 | HB2 /* OptionVersionBitmask */
  1249. },
  1250. {
  1251. F_FILEATTR_X_Y_N, /* UniqueID */
  1252. "N = FILEATTR( X, Y )", /* Syntax */
  1253. "For file X, if Y = 1 then returns open mode, otherwise returns "
  1254. "zero.", /* Description */
  1255. "FILEATTR", /* Name */
  1256. DoubleTypeCode, /* ReturnTypeCode */
  1257. 2, /* ParameterCount */
  1258. P1NUM | P2NUM, /* ParameterTypes */
  1259. P1INT | P2INT, /* ParameterTests */
  1260. B15 | M80 | D71 | T80 /* OptionVersionBitmask */
  1261. },
  1262. {
  1263. F_FILES_N, /* UniqueID */
  1264. "N = FILES", /* Syntax */
  1265. "Displays all the file names.", /* Description */
  1266. "FILES", /* Name */
  1267. DoubleTypeCode, /* ReturnTypeCode */
  1268. 0, /* ParameterCount */
  1269. PNONE, /* ParameterTypes */
  1270. PNONE, /* ParameterTests */
  1271. B15 | B93 | M80 | D71 | T80 /* OptionVersionBitmask */
  1272. },
  1273. {
  1274. F_FILES_A_N, /* UniqueID */
  1275. "N = FILES( A$ )", /* Syntax */
  1276. "Displays all the file names matching A$.", /* Description */
  1277. "FILES", /* Name */
  1278. DoubleTypeCode, /* ReturnTypeCode */
  1279. 1, /* ParameterCount */
  1280. P1STR, /* ParameterTypes */
  1281. P1BYT, /* ParameterTests */
  1282. B15 | B93 | M80 | D71 | T80 /* OptionVersionBitmask */
  1283. },
  1284. {
  1285. F_FILL_X_Y_N, /* UniqueID */
  1286. "N = FILL( X, Y )", /* Syntax */
  1287. "Sends Y to hardware address X. Causes ERROR 73.", /* Description */
  1288. "FILL", /* Name */
  1289. DoubleTypeCode, /* ReturnTypeCode */
  1290. 2, /* ParameterCount */
  1291. P1NUM | P2NUM, /* ParameterTypes */
  1292. P1LNG | P2BYT, /* ParameterTests */
  1293. HB1 | HB2 /* OptionVersionBitmask */
  1294. },
  1295. {
  1296. F_FIX_X_N, /* UniqueID */
  1297. "N = FIX( X )", /* Syntax */
  1298. "The truncated integer, part of X. FIX (X) is equivalent to SGN(X)*INT(ABS(X)). "
  1299. "The major difference between FIX and INT is that FIX does not "
  1300. "return the next lower number for negative X.", /* Description */
  1301. "FIX", /* Name */
  1302. DoubleTypeCode, /* ReturnTypeCode */
  1303. 1, /* ParameterCount */
  1304. P1NUM, /* ParameterTypes */
  1305. P1ANY, /* ParameterTests */
  1306. B15 | S70 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | G65 | G67 | M80 | D71 | I70 | I73 | T80 /* OptionVersionBitmask */
  1307. },
  1308. {
  1309. F_FLOAT_X_N, /* UniqueID */
  1310. "N = FLOAT( X )", /* Syntax */
  1311. "The rounded integer valuet of X.", /* Description */
  1312. "FLOAT", /* Name */
  1313. DoubleTypeCode, /* ReturnTypeCode */
  1314. 1, /* ParameterCount */
  1315. P1NUM, /* ParameterTypes */
  1316. P1ANY, /* ParameterTests */
  1317. C77 /* OptionVersionBitmask */
  1318. },
  1319. {
  1320. F_FLOW_N, /* UniqueID */
  1321. "N = FLOW", /* Syntax */
  1322. "Turn tracing ON", /* Description */
  1323. "FLOW", /* Name */
  1324. DoubleTypeCode, /* ReturnTypeCode */
  1325. 0, /* ParameterCount */
  1326. PNONE, /* ParameterTypes */
  1327. PNONE, /* ParameterTests */
  1328. B15 | HB2 /* OptionVersionBitmask */
  1329. },
  1330. {
  1331. F_FP_X_N, /* UniqueID */
  1332. "N = FP( X )", /* Syntax */
  1333. "The fractional part of X, i.e. X - IP(X).", /* Description */
  1334. "FP", /* Name */
  1335. DoubleTypeCode, /* ReturnTypeCode */
  1336. 1, /* ParameterCount */
  1337. P1NUM, /* ParameterTypes */
  1338. P1ANY, /* ParameterTests */
  1339. B15 | E86 | H14 /* OptionVersionBitmask */
  1340. },
  1341. {
  1342. F_FRAC_X_N, /* UniqueID */
  1343. "N = FRAC( X )", /* Syntax */
  1344. "The fractional part of X, i.e. X - IP(X).", /* Description */
  1345. "FRAC", /* Name */
  1346. DoubleTypeCode, /* ReturnTypeCode */
  1347. 1, /* ParameterCount */
  1348. P1NUM, /* ParameterTypes */
  1349. P1ANY, /* ParameterTests */
  1350. B15 | H14 | HB2 /* OptionVersionBitmask */
  1351. },
  1352. {
  1353. F_FRE_N, /* UniqueID */
  1354. "N = FRE", /* Syntax */
  1355. "The number of bytes of available memory. This function is provided "
  1356. "for backward compatibility only and it always returns a fixed "
  1357. "value of 32000.", /* Description */
  1358. "FRE", /* Name */
  1359. DoubleTypeCode, /* ReturnTypeCode */
  1360. 0, /* ParameterCount */
  1361. PNONE, /* ParameterTypes */
  1362. PNONE, /* ParameterTests */
  1363. B15 | C77 | HB1 | HB2 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  1364. },
  1365. {
  1366. F_FRE_A_N, /* UniqueID */
  1367. "N = FRE( A$ )", /* Syntax */
  1368. "The number of bytes of available memory. This function is provided "
  1369. "for backward compatibility only and it always returns a fixed "
  1370. "value of 32000.The value of A$ is ignored.", /* Description */
  1371. "FRE", /* Name */
  1372. DoubleTypeCode, /* ReturnTypeCode */
  1373. 1, /* ParameterCount */
  1374. P1STR, /* ParameterTypes */
  1375. P1ANY, /* ParameterTests */
  1376. B15 | HB1 | HB2 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  1377. },
  1378. {
  1379. F_FRE_X_N, /* UniqueID */
  1380. "N = FRE( X )", /* Syntax */
  1381. "The number of bytes of available memory. This function is provided "
  1382. "for backward compatibility only and it always returns a fixed "
  1383. "value of 32000. The value of X is ignored.", /* Description */
  1384. "FRE", /* Name */
  1385. DoubleTypeCode, /* ReturnTypeCode */
  1386. 1, /* ParameterCount */
  1387. P1NUM, /* ParameterTypes */
  1388. P1ANY, /* ParameterTests */
  1389. B15 | HB1 | HB2 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  1390. },
  1391. {
  1392. F_FREE_N, /* UniqueID */
  1393. "N = FREE", /* Syntax */
  1394. "The number of bytes of available memory. This function is provided "
  1395. "for backward compatibility only and it always returns a fixed "
  1396. "value of 32000.", /* Description */
  1397. "FREE", /* Name */
  1398. DoubleTypeCode, /* ReturnTypeCode */
  1399. 0, /* ParameterCount */
  1400. PNONE, /* ParameterTypes */
  1401. PNONE, /* ParameterTests */
  1402. HB1 | HB2 | H80 /* OptionVersionBitmask */
  1403. },
  1404. {
  1405. F_FREE_X_N, /* UniqueID */
  1406. "N = FREE( X )", /* Syntax */
  1407. "The number of bytes of available memory. This function is provided "
  1408. "for backward compatibility only and it always returns a fixed "
  1409. "value of 32000. The value of X is ignored.", /* Description */
  1410. "FREE", /* Name */
  1411. DoubleTypeCode, /* ReturnTypeCode */
  1412. 1, /* ParameterCount */
  1413. P1NUM, /* ParameterTypes */
  1414. P1ANY, /* ParameterTests */
  1415. HB1 | HB2 /* OptionVersionBitmask */
  1416. },
  1417. {
  1418. F_FREE_A_N, /* UniqueID */
  1419. "N = FREE( A$ )", /* Syntax */
  1420. "The number of bytes of available memory. This function is provided "
  1421. "for backward compatibility only and it always returns a fixed "
  1422. "value of 32000.The value of A$ is ignored.", /* Description */
  1423. "FREE", /* Name */
  1424. DoubleTypeCode, /* ReturnTypeCode */
  1425. 1, /* ParameterCount */
  1426. P1STR, /* ParameterTypes */
  1427. P1ANY, /* ParameterTests */
  1428. HB1 | HB2 /* OptionVersionBitmask */
  1429. },
  1430. {
  1431. F_FREEFILE_N, /* UniqueID */
  1432. "N = FREEFILE", /* Syntax */
  1433. "The next available file number.", /* Description */
  1434. "FREEFILE", /* Name */
  1435. DoubleTypeCode, /* ReturnTypeCode */
  1436. 0, /* ParameterCount */
  1437. PNONE, /* ParameterTypes */
  1438. PNONE, /* ParameterTests */
  1439. B15 | H14 /* OptionVersionBitmask */
  1440. },
  1441. {
  1442. F_GET_X_N, /* UniqueID */
  1443. "N = GET( X )", /* Syntax */
  1444. "For file X, gets the next available record.", /* Description */
  1445. "GET", /* Name */
  1446. DoubleTypeCode, /* ReturnTypeCode */
  1447. 1, /* ParameterCount */
  1448. P1NUM, /* ParameterTypes */
  1449. P1INT, /* ParameterTests */
  1450. B15 | B93 | H14 | M80 | D71 | T80 /* OptionVersionBitmask */
  1451. },
  1452. {
  1453. F_GET_X_N, /* UniqueID */
  1454. "N = GET( X )", /* Syntax */
  1455. "Get character code from input. The value of X is ignored. Similar "
  1456. "to ASC(INKEY$).", /* Description */
  1457. "GET", /* Name */
  1458. IntegerTypeCode, /* ReturnTypeCode */
  1459. 1, /* ParameterCount */
  1460. P1NUM, /* ParameterTypes */
  1461. P1ANY, /* ParameterTests */
  1462. D73 /* OptionVersionBitmask */
  1463. },
  1464. {
  1465. F_GET_X_Y_N, /* UniqueID */
  1466. "N = GET( X, Y )", /* Syntax */
  1467. "For file X, gets record number Y. The first record number is "
  1468. "1.", /* Description */
  1469. "GET", /* Name */
  1470. DoubleTypeCode, /* ReturnTypeCode */
  1471. 2, /* ParameterCount */
  1472. P1NUM | P2NUM, /* ParameterTypes */
  1473. P1INT | P2INT, /* ParameterTests */
  1474. B15 | B93 | H14 | M80 | D71 | T80 /* OptionVersionBitmask */
  1475. },
  1476. {
  1477. F_GRAD_N, /* UniqueID */
  1478. "N = GRAD", /* Syntax */
  1479. "Configures the math functions to accept and return angles in "
  1480. "gradians.", /* Description */
  1481. "GRAD", /* Name */
  1482. DoubleTypeCode, /* ReturnTypeCode */
  1483. 0, /* ParameterCount */
  1484. PNONE, /* ParameterTypes */
  1485. PNONE, /* ParameterTests */
  1486. B15 | HB2 /* OptionVersionBitmask */
  1487. },
  1488. {
  1489. F_GRADIAN_N, /* UniqueID */
  1490. "N = GRADIAN", /* Syntax */
  1491. "Configures the math functions to accept and return angles in "
  1492. "gradians.", /* Description */
  1493. "GRADIAN", /* Name */
  1494. DoubleTypeCode, /* ReturnTypeCode */
  1495. 0, /* ParameterCount */
  1496. PNONE, /* ParameterTypes */
  1497. PNONE, /* ParameterTests */
  1498. B15 | HB2 /* OptionVersionBitmask */
  1499. },
  1500. {
  1501. F_HCS_X_N, /* UniqueID */
  1502. "N = HCS( X )", /* Syntax */
  1503. "The hyperbolic cosine of X.", /* Description */
  1504. "HCS", /* Name */
  1505. DoubleTypeCode, /* ReturnTypeCode */
  1506. 1, /* ParameterCount */
  1507. P1NUM, /* ParameterTypes */
  1508. P1ANY, /* ParameterTests */
  1509. S70 | I70 | I73 /* OptionVersionBitmask */
  1510. },
  1511. {
  1512. F_HEX_A_N, /* UniqueID */
  1513. "N = HEX( A$ )", /* Syntax */
  1514. "The numeric value of the hexadecimal string in A$. For example, "
  1515. "HEX(\"FFFF\") returns 65535.", /* Description */
  1516. "HEX", /* Name */
  1517. ByteTypeCode, /* ReturnTypeCode */
  1518. 1, /* ParameterCount */
  1519. P1STR, /* ParameterTypes */
  1520. P1BYT, /* ParameterTests */
  1521. R86 | T79 /* OptionVersionBitmask */
  1522. },
  1523. {
  1524. F_HEX4_X_S, /* UniqueID */
  1525. "S$ = HEX$( X )", /* Syntax */
  1526. "The the hexadecimal (base 16) representation of X.", /* Description */
  1527. "HEX$", /* Name */
  1528. StringTypeCode, /* ReturnTypeCode */
  1529. 1, /* ParameterCount */
  1530. P1NUM, /* ParameterTypes */
  1531. P1INT, /* ParameterTests */
  1532. B15 | B93 | H14 | M80 | D71 | T80 /* OptionVersionBitmask */
  1533. },
  1534. {
  1535. F_HEX4_X_Y_S, /* UniqueID */
  1536. "S$ = HEX$( X, Y )", /* Syntax */
  1537. "The the hexadecimal (base 16) representation of X. The result "
  1538. "will be at least Y digits long. ", /* Description */
  1539. "HEX$", /* Name */
  1540. StringTypeCode, /* ReturnTypeCode */
  1541. 2, /* ParameterCount */
  1542. P1NUM | P2NUM, /* ParameterTypes */
  1543. P1INT | P2BYT, /* ParameterTests */
  1544. H14 /* OptionVersionBitmask */
  1545. },
  1546. {
  1547. F_HOME_N, /* UniqueID */
  1548. "N = HOME", /* Syntax */
  1549. "Clears the screen. Cursor is positioned at row 1, column 1.", /* Description */
  1550. "HOME", /* Name */
  1551. DoubleTypeCode, /* ReturnTypeCode */
  1552. 0, /* ParameterCount */
  1553. PNONE, /* ParameterTypes */
  1554. PNONE, /* ParameterTests */
  1555. B15 | H14 | HB1 | HB2 /* OptionVersionBitmask */
  1556. },
  1557. {
  1558. F_HSN_X_N, /* UniqueID */
  1559. "N = HSN( X )", /* Syntax */
  1560. "The hyperbolic sine of X.", /* Description */
  1561. "HSN", /* Name */
  1562. DoubleTypeCode, /* ReturnTypeCode */
  1563. 1, /* ParameterCount */
  1564. P1NUM, /* ParameterTypes */
  1565. P1ANY, /* ParameterTests */
  1566. S70 | I70 | I73 /* OptionVersionBitmask */
  1567. },
  1568. {
  1569. F_HTN_X_N, /* UniqueID */
  1570. "N = HTN( X )", /* Syntax */
  1571. "The hyperbolic tangent of X.", /* Description */
  1572. "HTN", /* Name */
  1573. DoubleTypeCode, /* ReturnTypeCode */
  1574. 1, /* ParameterCount */
  1575. P1NUM, /* ParameterTypes */
  1576. P1ANY, /* ParameterTests */
  1577. S70 | I70 | I73 /* OptionVersionBitmask */
  1578. },
  1579. {
  1580. F_INCH4_S, /* UniqueID */
  1581. "S$ = INCH$", /* Syntax */
  1582. "The keypress, if available. If a keypress is not available, then "
  1583. "immediately returns an empty string. If not supported by the "
  1584. "platform, then always returns an empty string, so use INPUT$(1) "
  1585. "instead.", /* Description */
  1586. "INCH$", /* Name */
  1587. StringTypeCode, /* ReturnTypeCode */
  1588. 0, /* ParameterCount */
  1589. PNONE, /* ParameterTypes */
  1590. PNONE, /* ParameterTests */
  1591. R86 | T79 /* OptionVersionBitmask */
  1592. },
  1593. {
  1594. F_INDEX_A_B_N, /* UniqueID */
  1595. "N = INDEX( A$, B$ )", /* Syntax */
  1596. "The position at which B$ occurs in A$, beginning at position "
  1597. "1.", /* Description */
  1598. "INDEX", /* Name */
  1599. DoubleTypeCode, /* ReturnTypeCode */
  1600. 2, /* ParameterCount */
  1601. P1STR | P2STR, /* ParameterTypes */
  1602. P1ANY | P2ANY, /* ParameterTests */
  1603. B15 | HB2 /* OptionVersionBitmask */
  1604. },
  1605. {
  1606. F_INITIALIZE_N, /* UniqueID */
  1607. "N = INITIALIZE", /* Syntax */
  1608. "This function is provided for backward compatibility only and "
  1609. "it always returns a fixed value of 0.", /* Description */
  1610. "INITIALIZE", /* Name */
  1611. DoubleTypeCode, /* ReturnTypeCode */
  1612. 0, /* ParameterCount */
  1613. PNONE, /* ParameterTypes */
  1614. PNONE, /* ParameterTests */
  1615. C77 /* OptionVersionBitmask */
  1616. },
  1617. {
  1618. F_INKEY4_S, /* UniqueID */
  1619. "S$ = INKEY$", /* Syntax */
  1620. "The keypress, if available. If a keypress is not available, then "
  1621. "immediately returns an empty string. If not supported by the "
  1622. "platform, then always returns an empty string, so use INPUT$(1) "
  1623. "instead.", /* Description */
  1624. "INKEY$", /* Name */
  1625. StringTypeCode, /* ReturnTypeCode */
  1626. 0, /* ParameterCount */
  1627. PNONE, /* ParameterTypes */
  1628. PNONE, /* ParameterTests */
  1629. B15 | B93 | H14 | HB1 | HB2 | M80 | D71 | T80 /* OptionVersionBitmask */
  1630. },
  1631. {
  1632. F_INP_X_N, /* UniqueID */
  1633. "N = INP( X )", /* Syntax */
  1634. "The value read from machine port X. Causes ERROR 73.", /* Description */
  1635. "INP", /* Name */
  1636. DoubleTypeCode, /* ReturnTypeCode */
  1637. 1, /* ParameterCount */
  1638. P1NUM, /* ParameterTypes */
  1639. P1BYT, /* ParameterTests */
  1640. B15 | C77 | H14 | HB1 | HB2 | M80 | D71 | T80 /* OptionVersionBitmask */
  1641. },
  1642. {
  1643. F_INPUT4_X_S, /* UniqueID */
  1644. "S$ = INPUT$( X )", /* Syntax */
  1645. "The string of X characters, read from the terminal.", /* Description */
  1646. "INPUT$", /* Name */
  1647. StringTypeCode, /* ReturnTypeCode */
  1648. 1, /* ParameterCount */
  1649. P1NUM, /* ParameterTypes */
  1650. P1LEN, /* ParameterTests */
  1651. B15 | H14 | HB2 | M80 | D71 | T80 /* OptionVersionBitmask */
  1652. },
  1653. {
  1654. F_INPUT4_X_Y_S, /* UniqueID */
  1655. "S$ = INPUT$( X, Y )", /* Syntax */
  1656. "The string of X characters, read from file Y.", /* Description */
  1657. "INPUT$", /* Name */
  1658. StringTypeCode, /* ReturnTypeCode */
  1659. 2, /* ParameterCount */
  1660. P1NUM | P2NUM, /* ParameterTypes */
  1661. P1LEN | P2INT, /* ParameterTests */
  1662. B15 | H14 | M80 | D71 | T80 /* OptionVersionBitmask */
  1663. },
  1664. {
  1665. F_INSTR_A_B_N, /* UniqueID */
  1666. "N = INSTR( A$, B$ )", /* Syntax */
  1667. "The position at which B$ occurs in A$, beginning at position "
  1668. "1.", /* Description */
  1669. "INSTR", /* Name */
  1670. DoubleTypeCode, /* ReturnTypeCode */
  1671. 2, /* ParameterCount */
  1672. P1STR | P2STR, /* ParameterTypes */
  1673. P1ANY | P2ANY, /* ParameterTests */
  1674. B15 | B93 | H14 | HB2 | M80 | D71 | T80 /* OptionVersionBitmask */
  1675. },
  1676. {
  1677. F_INSTR_A_B_X_N, /* UniqueID */
  1678. "N = INSTR( A$, B$, X )", /* Syntax */
  1679. "The position at which B$ occurs in A$, beginning at position "
  1680. "X.", /* Description */
  1681. "INSTR", /* Name */
  1682. DoubleTypeCode, /* ReturnTypeCode */
  1683. 3, /* ParameterCount */
  1684. P1STR | P2STR | P3NUM, /* ParameterTypes */
  1685. P1ANY | P2ANY | P3POS, /* ParameterTests */
  1686. H14 /* OptionVersionBitmask */
  1687. },
  1688. {
  1689. F_INSTR_X_A_B_N, /* UniqueID */
  1690. "N = INSTR( X, A$, B$ )", /* Syntax */
  1691. "The position at which B$ occurs in A$, beginning at position "
  1692. "X.", /* Description */
  1693. "INSTR", /* Name */
  1694. DoubleTypeCode, /* ReturnTypeCode */
  1695. 3, /* ParameterCount */
  1696. P1NUM | P2STR | P3STR, /* ParameterTypes */
  1697. P1POS | P2ANY | P3ANY, /* ParameterTests */
  1698. B15 | B93 | H14 | HB2 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  1699. },
  1700. {
  1701. F_INT_X_N, /* UniqueID */
  1702. "N = INT( X )", /* Syntax */
  1703. "The largest integer not greater than X; e.g. INT(1.3) = 1 and "
  1704. "INT(-1.3) = 2.", /* Description */
  1705. "INT", /* Name */
  1706. DoubleTypeCode, /* ReturnTypeCode */
  1707. 1, /* ParameterCount */
  1708. P1NUM, /* ParameterTypes */
  1709. P1ANY, /* ParameterTests */
  1710. B15 | B93 | S70 | C77 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | H80 | G65 | G67 | M80 | D73 | D70 | R86 | D71 | I70 | I73 | T80 | V09 | T79 /* OptionVersionBitmask */
  1711. },
  1712. {
  1713. F_INT5_X_N, /* UniqueID */
  1714. "N = INT%( X )", /* Syntax */
  1715. "The rounded integer valuet of X.", /* Description */
  1716. "INT%", /* Name */
  1717. LongTypeCode, /* ReturnTypeCode */
  1718. 1, /* ParameterCount */
  1719. P1NUM, /* ParameterTypes */
  1720. P1ANY, /* ParameterTests */
  1721. C77 | H14 /* OptionVersionBitmask */
  1722. },
  1723. {
  1724. F_IP_X_N, /* UniqueID */
  1725. "N = IP( X )", /* Syntax */
  1726. "The integer part of X, i.e., SGN(X)*INT(ABS(X)).", /* Description */
  1727. "IP", /* Name */
  1728. DoubleTypeCode, /* ReturnTypeCode */
  1729. 1, /* ParameterCount */
  1730. P1NUM, /* ParameterTypes */
  1731. P1ANY, /* ParameterTests */
  1732. B15 | E86 | H14 /* OptionVersionBitmask */
  1733. },
  1734. {
  1735. F_KEY_S, /* UniqueID */
  1736. "S$ = KEY", /* Syntax */
  1737. "The keypress, if available. If a keypress is not available, then "
  1738. "immediately returns an empty string. If not supported by the "
  1739. "platform, then always returns an empty string, so use INPUT$(1) "
  1740. "instead.", /* Description */
  1741. "KEY", /* Name */
  1742. StringTypeCode, /* ReturnTypeCode */
  1743. 0, /* ParameterCount */
  1744. PNONE, /* ParameterTypes */
  1745. PNONE, /* ParameterTests */
  1746. B15 | HB2 /* OptionVersionBitmask */
  1747. },
  1748. {
  1749. F_KEY4_S, /* UniqueID */
  1750. "S$ = KEY$", /* Syntax */
  1751. "The keypress, if available. If a keypress is not available, then "
  1752. "immediately returns an empty string. If not supported by the "
  1753. "platform, then always returns an empty string, so use INPUT$(1) "
  1754. "instead.", /* Description */
  1755. "KEY$", /* Name */
  1756. StringTypeCode, /* ReturnTypeCode */
  1757. 0, /* ParameterCount */
  1758. PNONE, /* ParameterTypes */
  1759. PNONE, /* ParameterTests */
  1760. B15 | HB2 /* OptionVersionBitmask */
  1761. },
  1762. {
  1763. F_KILL_A_N, /* UniqueID */
  1764. "N = KILL( A$ )", /* Syntax */
  1765. "Removes the file named in A$.", /* Description */
  1766. "KILL", /* Name */
  1767. DoubleTypeCode, /* ReturnTypeCode */
  1768. 1, /* ParameterCount */
  1769. P1STR, /* ParameterTypes */
  1770. P1BYT, /* ParameterTests */
  1771. B15 | B93 | H14 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  1772. },
  1773. {
  1774. F_LBOUND_N, /* UniqueID */
  1775. "N = LBOUND( ... )", /* Syntax */
  1776. "LBOUND( arrayname [, dimension] ). The lower bound of the array. "
  1777. " The dimension defaults to 1. dimension in [1,DIM(arrayname)]", /* Description */
  1778. "LBOUND", /* Name */
  1779. DoubleTypeCode, /* ReturnTypeCode */
  1780. 255, /* ParameterCount */
  1781. PNONE, /* ParameterTypes */
  1782. PNONE, /* ParameterTests */
  1783. B15 | E86 /* OptionVersionBitmask */
  1784. },
  1785. {
  1786. F_LCASE4_A_S, /* UniqueID */
  1787. "S$ = LCASE$( A$ )", /* Syntax */
  1788. "The string of characters from the value associatedwith A$ by "
  1789. "replacing each upper-case-letter in the string by its lower-case "
  1790. "version.", /* Description */
  1791. "LCASE$", /* Name */
  1792. StringTypeCode, /* ReturnTypeCode */
  1793. 1, /* ParameterCount */
  1794. P1STR, /* ParameterTypes */
  1795. P1ANY, /* ParameterTests */
  1796. B15 | C77 | E86 | H14 | M80 | D71 | T80 /* OptionVersionBitmask */
  1797. },
  1798. {
  1799. F_LEFT_A_X_S, /* UniqueID */
  1800. "S$ = LEFT( A$, X )", /* Syntax */
  1801. "The X left-most characters of A$, beginning from postion 1.", /* Description */
  1802. "LEFT", /* Name */
  1803. StringTypeCode, /* ReturnTypeCode */
  1804. 2, /* ParameterCount */
  1805. P1STR | P2NUM, /* ParameterTypes */
  1806. P1ANY | P2LEN, /* ParameterTests */
  1807. HB1 | HB2 | D71 /* OptionVersionBitmask */
  1808. },
  1809. {
  1810. F_LEFT4_A_X_S, /* UniqueID */
  1811. "S$ = LEFT$( A$, X )", /* Syntax */
  1812. "The X left-most characters of A$, beginning from postion 1.", /* Description */
  1813. "LEFT$", /* Name */
  1814. StringTypeCode, /* ReturnTypeCode */
  1815. 2, /* ParameterCount */
  1816. P1STR | P2NUM, /* ParameterTypes */
  1817. P1ANY | P2LEN, /* ParameterTests */
  1818. B15 | B93 | C77 | E86 | H14 | HB1 | HB2 | H80 | M80 | D71 | T80 | V09 /* OptionVersionBitmask */
  1819. },
  1820. {
  1821. F_LEN_A_N, /* UniqueID */
  1822. "N = LEN( A$ )", /* Syntax */
  1823. "The length of A$.", /* Description */
  1824. "LEN", /* Name */
  1825. DoubleTypeCode, /* ReturnTypeCode */
  1826. 1, /* ParameterCount */
  1827. P1STR, /* ParameterTypes */
  1828. P1ANY, /* ParameterTests */
  1829. B15 | B93 | S70 | C77 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | H80 | G65 | G67 | M80 | R86 | D71 | I70 | I73 | T80 | V09 | T79 /* OptionVersionBitmask */
  1830. },
  1831. {
  1832. F_LGT_X_N, /* UniqueID */
  1833. "N = LGT( X )", /* Syntax */
  1834. "The common logarithm of X; X shall be greater than zero.", /* Description */
  1835. "LGT", /* Name */
  1836. DoubleTypeCode, /* ReturnTypeCode */
  1837. 1, /* ParameterCount */
  1838. P1NUM, /* ParameterTypes */
  1839. P1GTZ, /* ParameterTests */
  1840. S70 | HB1 | HB2 | I70 | I73 /* OptionVersionBitmask */
  1841. },
  1842. {
  1843. F_LIN_X_S, /* UniqueID */
  1844. "S$ = LIN( X )", /* Syntax */
  1845. "The string X bytes long of newline characters.", /* Description */
  1846. "LIN", /* Name */
  1847. StringTypeCode, /* ReturnTypeCode */
  1848. 1, /* ParameterCount */
  1849. P1NUM, /* ParameterTypes */
  1850. P1LEN, /* ParameterTests */
  1851. HB1 | HB2 /* OptionVersionBitmask */
  1852. },
  1853. {
  1854. F_LN_X_N, /* UniqueID */
  1855. "N = LN( X )", /* Syntax */
  1856. "The natural logarithm of X; X shall be greater than zero.", /* Description */
  1857. "LN", /* Name */
  1858. DoubleTypeCode, /* ReturnTypeCode */
  1859. 1, /* ParameterCount */
  1860. P1NUM, /* ParameterTypes */
  1861. P1GTZ, /* ParameterTests */
  1862. HB1 | HB2 /* OptionVersionBitmask */
  1863. },
  1864. {
  1865. F_LNO_X_N, /* UniqueID */
  1866. "N = LNO( X )", /* Syntax */
  1867. "Returns X.", /* Description */
  1868. "LNO", /* Name */
  1869. DoubleTypeCode, /* ReturnTypeCode */
  1870. 1, /* ParameterCount */
  1871. P1NUM, /* ParameterTypes */
  1872. P1ANY, /* ParameterTests */
  1873. H80 /* OptionVersionBitmask */
  1874. },
  1875. {
  1876. F_LOC_X_N, /* UniqueID */
  1877. "N = LOC( X )", /* Syntax */
  1878. "The location of file X; the next record that GET or PUT statements "
  1879. "will use.", /* Description */
  1880. "LOC", /* Name */
  1881. DoubleTypeCode, /* ReturnTypeCode */
  1882. 1, /* ParameterCount */
  1883. P1NUM, /* ParameterTypes */
  1884. P1INT, /* ParameterTests */
  1885. B15 | B93 | E86 | G74 | H14 | G65 | G67 | M80 | D71 | T80 /* OptionVersionBitmask */
  1886. },
  1887. {
  1888. F_LOCATE_X_Y_N, /* UniqueID */
  1889. "N = LOCATE( X, Y )", /* Syntax */
  1890. "Locates the cursor to row X, column Y.", /* Description */
  1891. "LOCATE", /* Name */
  1892. DoubleTypeCode, /* ReturnTypeCode */
  1893. 2, /* ParameterCount */
  1894. P1NUM | P2NUM, /* ParameterTypes */
  1895. P1BYT | P2BYT, /* ParameterTests */
  1896. B15 | B93 | H14 | M80 | D71 | T80 /* OptionVersionBitmask */
  1897. },
  1898. {
  1899. F_LOCK_X_N, /* UniqueID */
  1900. "N = LOCK( X )", /* Syntax */
  1901. "Lock file number X. Causes ERROR 73.", /* Description */
  1902. "LOCK", /* Name */
  1903. DoubleTypeCode, /* ReturnTypeCode */
  1904. 1, /* ParameterCount */
  1905. P1NUM, /* ParameterTypes */
  1906. P1INT, /* ParameterTests */
  1907. H14 /* OptionVersionBitmask */
  1908. },
  1909. {
  1910. F_LOF_X_N, /* UniqueID */
  1911. "N = LOF( X )", /* Syntax */
  1912. "The length of file X.", /* Description */
  1913. "LOF", /* Name */
  1914. DoubleTypeCode, /* ReturnTypeCode */
  1915. 1, /* ParameterCount */
  1916. P1NUM, /* ParameterTypes */
  1917. P1INT, /* ParameterTests */
  1918. B15 | B93 | E86 | G74 | H14 | G65 | G67 | M80 | D71 | T80 /* OptionVersionBitmask */
  1919. },
  1920. {
  1921. F_LOG_X_N, /* UniqueID */
  1922. "N = LOG( X )", /* Syntax */
  1923. "The natural logarithm of X; X shall be greater than zero.", /* Description */
  1924. "LOG", /* Name */
  1925. DoubleTypeCode, /* ReturnTypeCode */
  1926. 1, /* ParameterCount */
  1927. P1NUM, /* ParameterTypes */
  1928. P1GTZ, /* ParameterTests */
  1929. B15 | B93 | S70 | C77 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | H80 | G65 | G67 | M80 | D73 | D70 | R86 | D71 | I70 | I73 | T80 | V09 | T79 /* OptionVersionBitmask */
  1930. },
  1931. {
  1932. F_LOG10_X_N, /* UniqueID */
  1933. "N = LOG10( X )", /* Syntax */
  1934. "The common logarithm of X; X shall be greater than zero.", /* Description */
  1935. "LOG10", /* Name */
  1936. DoubleTypeCode, /* ReturnTypeCode */
  1937. 1, /* ParameterCount */
  1938. P1NUM, /* ParameterTypes */
  1939. P1GTZ, /* ParameterTests */
  1940. B15 | E86 | H14 | HB1 | HB2 | D71 /* OptionVersionBitmask */
  1941. },
  1942. {
  1943. F_LOG2_X_N, /* UniqueID */
  1944. "N = LOG2( X )", /* Syntax */
  1945. "The base 2 logarithm of X; X shall be greater than zero.", /* Description */
  1946. "LOG2", /* Name */
  1947. DoubleTypeCode, /* ReturnTypeCode */
  1948. 1, /* ParameterCount */
  1949. P1NUM, /* ParameterTypes */
  1950. P1GTZ, /* ParameterTests */
  1951. B15 | E86 | H14 /* OptionVersionBitmask */
  1952. },
  1953. {
  1954. F_LOGE_X_N, /* UniqueID */
  1955. "N = LOGE( X )", /* Syntax */
  1956. "The natural logarithm of X; X shall be greater than zero.", /* Description */
  1957. "LOGE", /* Name */
  1958. DoubleTypeCode, /* ReturnTypeCode */
  1959. 1, /* ParameterCount */
  1960. P1NUM, /* ParameterTypes */
  1961. P1GTZ, /* ParameterTests */
  1962. HB1 | HB2 /* OptionVersionBitmask */
  1963. },
  1964. {
  1965. F_LOWER4_A_S, /* UniqueID */
  1966. "S$ = LOWER$( A$ )", /* Syntax */
  1967. "The string of characters from the value associatedwith A$ by "
  1968. "replacing each upper-case-letter in the string by its lower-case "
  1969. "version.", /* Description */
  1970. "LOWER$", /* Name */
  1971. StringTypeCode, /* ReturnTypeCode */
  1972. 1, /* ParameterCount */
  1973. P1STR, /* ParameterTypes */
  1974. P1ANY, /* ParameterTests */
  1975. H14 /* OptionVersionBitmask */
  1976. },
  1977. {
  1978. F_LPOS_N, /* UniqueID */
  1979. "N = LPOS", /* Syntax */
  1980. "The current cursor position in the line for the printer.", /* Description */
  1981. "LPOS", /* Name */
  1982. DoubleTypeCode, /* ReturnTypeCode */
  1983. 0, /* ParameterCount */
  1984. PNONE, /* ParameterTypes */
  1985. PNONE, /* ParameterTests */
  1986. B15 | M80 | D71 | T80 /* OptionVersionBitmask */
  1987. },
  1988. {
  1989. F_LTRIM4_A_S, /* UniqueID */
  1990. "S$ = LTRIM$( A$ )", /* Syntax */
  1991. "The string of characters resulting from the value associated "
  1992. "with A$ by deleting all leading space characters.", /* Description */
  1993. "LTRIM$", /* Name */
  1994. StringTypeCode, /* ReturnTypeCode */
  1995. 1, /* ParameterCount */
  1996. P1STR, /* ParameterTypes */
  1997. P1ANY, /* ParameterTests */
  1998. B15 | E86 | H14 | M80 | D71 | T80 /* OptionVersionBitmask */
  1999. },
  2000. {
  2001. F_LTW_X_N, /* UniqueID */
  2002. "N = LTW( X )", /* Syntax */
  2003. "The base 2 logarithm of X; X shall be greater than zero.", /* Description */
  2004. "LTW", /* Name */
  2005. DoubleTypeCode, /* ReturnTypeCode */
  2006. 1, /* ParameterCount */
  2007. P1NUM, /* ParameterTypes */
  2008. P1GTZ, /* ParameterTests */
  2009. S70 | I70 | I73 /* OptionVersionBitmask */
  2010. },
  2011. {
  2012. F_LWIDTH_X_N, /* UniqueID */
  2013. "N = LWIDTH( X )", /* Syntax */
  2014. "For printer, sets the line width to X. Zero means no wrapping "
  2015. "will occur.", /* Description */
  2016. "LWIDTH", /* Name */
  2017. DoubleTypeCode, /* ReturnTypeCode */
  2018. 1, /* ParameterCount */
  2019. P1NUM, /* ParameterTypes */
  2020. P1BYT, /* ParameterTests */
  2021. B15 | M80 | D71 | T80 /* OptionVersionBitmask */
  2022. },
  2023. {
  2024. F_MATCH_A_B_X_N, /* UniqueID */
  2025. "N = MATCH( A$, B$, X )", /* Syntax */
  2026. "The character position, within the value assocated with A$, of "
  2027. "the first character of the first occurence of the value associated "
  2028. "with B$, starting at the Xth character of A$. If there is not "
  2029. "such occurence, then the value returned is zero.", /* Description */
  2030. "MATCH", /* Name */
  2031. DoubleTypeCode, /* ReturnTypeCode */
  2032. 3, /* ParameterCount */
  2033. P1STR | P2STR | P3NUM, /* ParameterTypes */
  2034. P1ANY | P2ANY | P3POS, /* ParameterTests */
  2035. C77 | H14 | H80 /* OptionVersionBitmask */
  2036. },
  2037. {
  2038. F_MAX_A_B_S, /* UniqueID */
  2039. "S$ = MAX( A$, B$ )", /* Syntax */
  2040. "The larger of the parameters.", /* Description */
  2041. "MAX", /* Name */
  2042. StringTypeCode, /* ReturnTypeCode */
  2043. 2, /* ParameterCount */
  2044. P1STR | P2STR, /* ParameterTypes */
  2045. P1ANY | P2ANY, /* ParameterTests */
  2046. B15 | S70 | HB2 | H80 | I70 | I73 /* OptionVersionBitmask */
  2047. },
  2048. {
  2049. F_MAX_X_Y_N, /* UniqueID */
  2050. "N = MAX( X, Y )", /* Syntax */
  2051. "The larger of the parameters.", /* Description */
  2052. "MAX", /* Name */
  2053. DoubleTypeCode, /* ReturnTypeCode */
  2054. 2, /* ParameterCount */
  2055. P1NUM | P2NUM, /* ParameterTypes */
  2056. P1ANY | P2ANY, /* ParameterTests */
  2057. B15 | S70 | E86 | H14 | HB2 | H80 | I70 | I73 /* OptionVersionBitmask */
  2058. },
  2059. {
  2060. F_MAXBYT_N, /* UniqueID */
  2061. "N = MAXBYT", /* Syntax */
  2062. "The largest finite positive number representable as a BYTE; implementation-defined.", /* Description */
  2063. "MAXBYT", /* Name */
  2064. DoubleTypeCode, /* ReturnTypeCode */
  2065. 0, /* ParameterCount */
  2066. PNONE, /* ParameterTypes */
  2067. PNONE, /* ParameterTests */
  2068. B15 /* OptionVersionBitmask */
  2069. },
  2070. {
  2071. F_MAXCUR_N, /* UniqueID */
  2072. "N = MAXCUR", /* Syntax */
  2073. "The largest finite positive number representable as a CURRENCY; "
  2074. "implementation-defined.", /* Description */
  2075. "MAXCUR", /* Name */
  2076. DoubleTypeCode, /* ReturnTypeCode */
  2077. 0, /* ParameterCount */
  2078. PNONE, /* ParameterTypes */
  2079. PNONE, /* ParameterTests */
  2080. B15 /* OptionVersionBitmask */
  2081. },
  2082. {
  2083. F_MAXDBL_N, /* UniqueID */
  2084. "N = MAXDBL", /* Syntax */
  2085. "The largest finite positive number representable as a DOUBLE; "
  2086. "implementation-defined.", /* Description */
  2087. "MAXDBL", /* Name */
  2088. DoubleTypeCode, /* ReturnTypeCode */
  2089. 0, /* ParameterCount */
  2090. PNONE, /* ParameterTypes */
  2091. PNONE, /* ParameterTests */
  2092. B15 /* OptionVersionBitmask */
  2093. },
  2094. {
  2095. F_MAXDEV_N, /* UniqueID */
  2096. "N = MAXDEV", /* Syntax */
  2097. "The largest finite positive number useable as a FILE NUMBER; "
  2098. "implementation-defined.", /* Description */
  2099. "MAXDEV", /* Name */
  2100. DoubleTypeCode, /* ReturnTypeCode */
  2101. 0, /* ParameterCount */
  2102. PNONE, /* ParameterTypes */
  2103. PNONE, /* ParameterTests */
  2104. B15 /* OptionVersionBitmask */
  2105. },
  2106. {
  2107. F_MAXINT_N, /* UniqueID */
  2108. "N = MAXINT", /* Syntax */
  2109. "The largest finite positive number representable as an INTEGER; "
  2110. "implementation-defined.", /* Description */
  2111. "MAXINT", /* Name */
  2112. DoubleTypeCode, /* ReturnTypeCode */
  2113. 0, /* ParameterCount */
  2114. PNONE, /* ParameterTypes */
  2115. PNONE, /* ParameterTests */
  2116. B15 /* OptionVersionBitmask */
  2117. },
  2118. {
  2119. F_MAXLEN_N, /* UniqueID */
  2120. "N = MAXLEN", /* Syntax */
  2121. "The maximum string length.", /* Description */
  2122. "MAXLEN", /* Name */
  2123. DoubleTypeCode, /* ReturnTypeCode */
  2124. 0, /* ParameterCount */
  2125. PNONE, /* ParameterTypes */
  2126. PNONE, /* ParameterTests */
  2127. B15 | E86 /* OptionVersionBitmask */
  2128. },
  2129. {
  2130. F_MAXLEN_A_N, /* UniqueID */
  2131. "N = MAXLEN( A$ )", /* Syntax */
  2132. "The maximum length associated with the simple-string-variable "
  2133. "A$.", /* Description */
  2134. "MAXLEN", /* Name */
  2135. DoubleTypeCode, /* ReturnTypeCode */
  2136. 1, /* ParameterCount */
  2137. P1STR, /* ParameterTypes */
  2138. P1ANY, /* ParameterTests */
  2139. B15 | E86 /* OptionVersionBitmask */
  2140. },
  2141. {
  2142. F_MAXLNG_N, /* UniqueID */
  2143. "N = MAXLNG", /* Syntax */
  2144. "The largest finite positive number representable as a LONG; implementation-defined.", /* Description */
  2145. "MAXLNG", /* Name */
  2146. DoubleTypeCode, /* ReturnTypeCode */
  2147. 0, /* ParameterCount */
  2148. PNONE, /* ParameterTypes */
  2149. PNONE, /* ParameterTests */
  2150. B15 /* OptionVersionBitmask */
  2151. },
  2152. {
  2153. F_MAXLVL_N, /* UniqueID */
  2154. "N = MAXLVL", /* Syntax */
  2155. "The maximum stack level; implementation-defined.", /* Description */
  2156. "MAXLVL", /* Name */
  2157. DoubleTypeCode, /* ReturnTypeCode */
  2158. 0, /* ParameterCount */
  2159. PNONE, /* ParameterTypes */
  2160. PNONE, /* ParameterTests */
  2161. B15 /* OptionVersionBitmask */
  2162. },
  2163. {
  2164. F_MAXNUM_N, /* UniqueID */
  2165. "N = MAXNUM", /* Syntax */
  2166. "The largest finite positive number representable and manipulable "
  2167. "by the implementation; implementation-defined. MAXNUM may represent "
  2168. "diffent number for different arithmetic options (see OPTION ARITHMETIC).", /* Description */
  2169. "MAXNUM", /* Name */
  2170. DoubleTypeCode, /* ReturnTypeCode */
  2171. 0, /* ParameterCount */
  2172. PNONE, /* ParameterTypes */
  2173. PNONE, /* ParameterTests */
  2174. B15 | E86 /* OptionVersionBitmask */
  2175. },
  2176. {
  2177. F_MAXSNG_N, /* UniqueID */
  2178. "N = MAXSNG", /* Syntax */
  2179. "The largest finite positive number representable as a SINGLE; "
  2180. "implementation-defined.", /* Description */
  2181. "MAXSNG", /* Name */
  2182. DoubleTypeCode, /* ReturnTypeCode */
  2183. 0, /* ParameterCount */
  2184. PNONE, /* ParameterTypes */
  2185. PNONE, /* ParameterTests */
  2186. B15 /* OptionVersionBitmask */
  2187. },
  2188. {
  2189. F_MEM_N, /* UniqueID */
  2190. "N = MEM", /* Syntax */
  2191. "The number of bytes of available memory. This function is provided "
  2192. "for backward compatibility only and it always returns a fixed "
  2193. "value of 32000.", /* Description */
  2194. "MEM", /* Name */
  2195. DoubleTypeCode, /* ReturnTypeCode */
  2196. 0, /* ParameterCount */
  2197. PNONE, /* ParameterTypes */
  2198. PNONE, /* ParameterTests */
  2199. HB1 | HB2 /* OptionVersionBitmask */
  2200. },
  2201. {
  2202. F_MID_A_X_S, /* UniqueID */
  2203. "S$ = MID( A$, X )", /* Syntax */
  2204. "The characters of A$, starting from postion X.", /* Description */
  2205. "MID", /* Name */
  2206. StringTypeCode, /* ReturnTypeCode */
  2207. 2, /* ParameterCount */
  2208. P1STR | P2NUM, /* ParameterTypes */
  2209. P1ANY | P2POS, /* ParameterTests */
  2210. HB1 | HB2 | D71 /* OptionVersionBitmask */
  2211. },
  2212. {
  2213. F_MID_A_X_Y_S, /* UniqueID */
  2214. "S$ = MID( A$, X, Y )", /* Syntax */
  2215. "The Y characters of A$, starting from postion X.", /* Description */
  2216. "MID", /* Name */
  2217. StringTypeCode, /* ReturnTypeCode */
  2218. 3, /* ParameterCount */
  2219. P1STR | P2NUM | P3NUM, /* ParameterTypes */
  2220. P1ANY | P2POS | P3LEN, /* ParameterTests */
  2221. HB1 | HB2 | D71 /* OptionVersionBitmask */
  2222. },
  2223. {
  2224. F_MID4_A_X_S, /* UniqueID */
  2225. "S$ = MID$( A$, X )", /* Syntax */
  2226. "The characters of A$, starting from postion X.", /* Description */
  2227. "MID$", /* Name */
  2228. StringTypeCode, /* ReturnTypeCode */
  2229. 2, /* ParameterCount */
  2230. P1STR | P2NUM, /* ParameterTypes */
  2231. P1ANY | P2POS, /* ParameterTests */
  2232. B15 | B93 | C77 | E86 | H14 | HB1 | HB2 | H80 | M80 | R86 | D71 | T80 | V09 | T79 /* OptionVersionBitmask */
  2233. },
  2234. {
  2235. F_MID4_A_X_Y_S, /* UniqueID */
  2236. "S$ = MID$( A$, X, Y )", /* Syntax */
  2237. "The Y characters of A$, starting from postion X.", /* Description */
  2238. "MID$", /* Name */
  2239. StringTypeCode, /* ReturnTypeCode */
  2240. 3, /* ParameterCount */
  2241. P1STR | P2NUM | P3NUM, /* ParameterTypes */
  2242. P1ANY | P2POS | P3LEN, /* ParameterTests */
  2243. B15 | B93 | C77 | E86 | H14 | HB1 | HB2 | H80 | M80 | R86 | D71 | T80 | V09 | T79 /* OptionVersionBitmask */
  2244. },
  2245. {
  2246. F_MIN_X_Y_N, /* UniqueID */
  2247. "N = MIN( X, Y )", /* Syntax */
  2248. "The smaller of the parameters.", /* Description */
  2249. "MIN", /* Name */
  2250. DoubleTypeCode, /* ReturnTypeCode */
  2251. 2, /* ParameterCount */
  2252. P1NUM | P2NUM, /* ParameterTypes */
  2253. P1ANY | P2ANY, /* ParameterTests */
  2254. B15 | S70 | E86 | H14 | HB2 | H80 | I70 | I73 /* OptionVersionBitmask */
  2255. },
  2256. {
  2257. F_MIN_A_B_S, /* UniqueID */
  2258. "S$ = MIN( A$, B$ )", /* Syntax */
  2259. "The smaller of the parameters.", /* Description */
  2260. "MIN", /* Name */
  2261. StringTypeCode, /* ReturnTypeCode */
  2262. 2, /* ParameterCount */
  2263. P1STR | P2STR, /* ParameterTypes */
  2264. P1ANY | P2ANY, /* ParameterTests */
  2265. B15 | S70 | HB2 | H80 | I70 | I73 /* OptionVersionBitmask */
  2266. },
  2267. {
  2268. F_MINBYT_N, /* UniqueID */
  2269. "N = MINBYT", /* Syntax */
  2270. "The largest finite negative number representable as a BYTE; implementation-defined.", /* Description */
  2271. "MINBYT", /* Name */
  2272. DoubleTypeCode, /* ReturnTypeCode */
  2273. 0, /* ParameterCount */
  2274. PNONE, /* ParameterTypes */
  2275. PNONE, /* ParameterTests */
  2276. B15 /* OptionVersionBitmask */
  2277. },
  2278. {
  2279. F_MINCUR_N, /* UniqueID */
  2280. "N = MINCUR", /* Syntax */
  2281. "The largest finite negative number representable as a CURRENCY; "
  2282. "implementation-defined.", /* Description */
  2283. "MINCUR", /* Name */
  2284. DoubleTypeCode, /* ReturnTypeCode */
  2285. 0, /* ParameterCount */
  2286. PNONE, /* ParameterTypes */
  2287. PNONE, /* ParameterTests */
  2288. B15 /* OptionVersionBitmask */
  2289. },
  2290. {
  2291. F_MINDBL_N, /* UniqueID */
  2292. "N = MINDBL", /* Syntax */
  2293. "The largest finite negative number representable as a DOUBLE; "
  2294. "implementation-defined.", /* Description */
  2295. "MINDBL", /* Name */
  2296. DoubleTypeCode, /* ReturnTypeCode */
  2297. 0, /* ParameterCount */
  2298. PNONE, /* ParameterTypes */
  2299. PNONE, /* ParameterTests */
  2300. B15 /* OptionVersionBitmask */
  2301. },
  2302. {
  2303. F_MINDEV_N, /* UniqueID */
  2304. "N = MINDEV", /* Syntax */
  2305. "The largest finite negative number useable as a FILE NUMBER; "
  2306. "implementation-defined.", /* Description */
  2307. "MINDEV", /* Name */
  2308. DoubleTypeCode, /* ReturnTypeCode */
  2309. 0, /* ParameterCount */
  2310. PNONE, /* ParameterTypes */
  2311. PNONE, /* ParameterTests */
  2312. B15 /* OptionVersionBitmask */
  2313. },
  2314. {
  2315. F_MININT_N, /* UniqueID */
  2316. "N = MININT", /* Syntax */
  2317. "The largest finite negative number representable as an INTEGER; "
  2318. "implementation-defined.", /* Description */
  2319. "MININT", /* Name */
  2320. DoubleTypeCode, /* ReturnTypeCode */
  2321. 0, /* ParameterCount */
  2322. PNONE, /* ParameterTypes */
  2323. PNONE, /* ParameterTests */
  2324. B15 /* OptionVersionBitmask */
  2325. },
  2326. {
  2327. F_MINLNG_N, /* UniqueID */
  2328. "N = MINLNG", /* Syntax */
  2329. "The largest finite negative number representable as a LONG; implementation-defined.", /* Description */
  2330. "MINLNG", /* Name */
  2331. DoubleTypeCode, /* ReturnTypeCode */
  2332. 0, /* ParameterCount */
  2333. PNONE, /* ParameterTypes */
  2334. PNONE, /* ParameterTests */
  2335. B15 /* OptionVersionBitmask */
  2336. },
  2337. {
  2338. F_MINNUM_N, /* UniqueID */
  2339. "N = MINNUM", /* Syntax */
  2340. "The largest finite negative number representable and manipulable "
  2341. "by the implementation; implementation-defined. MINNUM may represent "
  2342. "diffent number for different arithmetic options (see OPTION ARITHMETIC).", /* Description */
  2343. "MINNUM", /* Name */
  2344. DoubleTypeCode, /* ReturnTypeCode */
  2345. 0, /* ParameterCount */
  2346. PNONE, /* ParameterTypes */
  2347. PNONE, /* ParameterTests */
  2348. B15 /* OptionVersionBitmask */
  2349. },
  2350. {
  2351. F_MINSNG_N, /* UniqueID */
  2352. "N = MINSNG", /* Syntax */
  2353. "The largest finite negative number representable as a SINGLE; "
  2354. "implementation-defined.", /* Description */
  2355. "MINSNG", /* Name */
  2356. DoubleTypeCode, /* ReturnTypeCode */
  2357. 0, /* ParameterCount */
  2358. PNONE, /* ParameterTypes */
  2359. PNONE, /* ParameterTests */
  2360. B15 /* OptionVersionBitmask */
  2361. },
  2362. {
  2363. F_MKC4_X_S, /* UniqueID */
  2364. "S$ = MKC$( X )", /* Syntax */
  2365. "The internal representation of the currency (64-bit) integer "
  2366. "X as a string.", /* Description */
  2367. "MKC$", /* Name */
  2368. StringTypeCode, /* ReturnTypeCode */
  2369. 1, /* ParameterCount */
  2370. P1NUM, /* ParameterTypes */
  2371. P1CUR, /* ParameterTests */
  2372. B15 /* OptionVersionBitmask */
  2373. },
  2374. {
  2375. F_MKD4_X_S, /* UniqueID */
  2376. "S$ = MKD$( X )", /* Syntax */
  2377. "The internal representation of X as a string.", /* Description */
  2378. "MKD$", /* Name */
  2379. StringTypeCode, /* ReturnTypeCode */
  2380. 1, /* ParameterCount */
  2381. P1NUM, /* ParameterTypes */
  2382. P1DBL, /* ParameterTests */
  2383. B15 | B93 | H14 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  2384. },
  2385. {
  2386. F_MKDIR_A_N, /* UniqueID */
  2387. "N = MKDIR( A$ )", /* Syntax */
  2388. "Makes the directory named in A$.", /* Description */
  2389. "MKDIR", /* Name */
  2390. DoubleTypeCode, /* ReturnTypeCode */
  2391. 1, /* ParameterCount */
  2392. P1STR, /* ParameterTypes */
  2393. P1BYT, /* ParameterTests */
  2394. B15 | B93 | H14 | M80 | D71 | T80 /* OptionVersionBitmask */
  2395. },
  2396. {
  2397. F_MKI4_X_S, /* UniqueID */
  2398. "S$ = MKI$( X )", /* Syntax */
  2399. "The internal representation of the short (16-bit) integer X as "
  2400. "a string.", /* Description */
  2401. "MKI$", /* Name */
  2402. StringTypeCode, /* ReturnTypeCode */
  2403. 1, /* ParameterCount */
  2404. P1NUM, /* ParameterTypes */
  2405. P1INT, /* ParameterTests */
  2406. B15 | B93 | H14 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  2407. },
  2408. {
  2409. F_MKL4_X_S, /* UniqueID */
  2410. "S$ = MKL$( X )", /* Syntax */
  2411. "The internal representation of the long (32-bit) integer X as "
  2412. "a string.", /* Description */
  2413. "MKL$", /* Name */
  2414. StringTypeCode, /* ReturnTypeCode */
  2415. 1, /* ParameterCount */
  2416. P1NUM, /* ParameterTypes */
  2417. P1LNG, /* ParameterTests */
  2418. B15 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  2419. },
  2420. {
  2421. F_MKS4_X_S, /* UniqueID */
  2422. "S$ = MKS$( X )", /* Syntax */
  2423. "The internal representation of X as a string.", /* Description */
  2424. "MKS$", /* Name */
  2425. StringTypeCode, /* ReturnTypeCode */
  2426. 1, /* ParameterCount */
  2427. P1NUM, /* ParameterTypes */
  2428. P1FLT, /* ParameterTests */
  2429. B15 | B93 | H14 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  2430. },
  2431. {
  2432. F_MOD_X_Y_N, /* UniqueID */
  2433. "N = MOD( X, Y )", /* Syntax */
  2434. "X modulo Y, i.e., X-Y*INT(X/Y). Y shall not equal zero.", /* Description */
  2435. "MOD", /* Name */
  2436. DoubleTypeCode, /* ReturnTypeCode */
  2437. 2, /* ParameterCount */
  2438. P1NUM | P2NUM, /* ParameterTypes */
  2439. P1ANY | P2NEZ, /* ParameterTests */
  2440. E86 /* OptionVersionBitmask */
  2441. },
  2442. {
  2443. F_NAME_A_B_N, /* UniqueID */
  2444. "N = NAME( A$, B$ )", /* Syntax */
  2445. "Rename the file named A$ into B$.", /* Description */
  2446. "NAME", /* Name */
  2447. DoubleTypeCode, /* ReturnTypeCode */
  2448. 2, /* ParameterCount */
  2449. P1STR | P2STR, /* ParameterTypes */
  2450. P1BYT | P2BYT, /* ParameterTests */
  2451. B15 | M80 | D71 | T80 /* OptionVersionBitmask */
  2452. },
  2453. {
  2454. F_NAME_N, /* UniqueID */
  2455. "N = NAME( ... )", /* Syntax */
  2456. "Returns hardware address of variable. Causes ERROR 73.", /* Description */
  2457. "NAME", /* Name */
  2458. DoubleTypeCode, /* ReturnTypeCode */
  2459. 255, /* ParameterCount */
  2460. PNONE, /* ParameterTypes */
  2461. PNONE, /* ParameterTests */
  2462. R86 | T79 /* OptionVersionBitmask */
  2463. },
  2464. {
  2465. F_NOFLOW_N, /* UniqueID */
  2466. "N = NOFLOW", /* Syntax */
  2467. "Turn tracing OFF", /* Description */
  2468. "NOFLOW", /* Name */
  2469. DoubleTypeCode, /* ReturnTypeCode */
  2470. 0, /* ParameterCount */
  2471. PNONE, /* ParameterTypes */
  2472. PNONE, /* ParameterTests */
  2473. B15 | HB2 /* OptionVersionBitmask */
  2474. },
  2475. {
  2476. F_NOTRACE_N, /* UniqueID */
  2477. "N = NOTRACE", /* Syntax */
  2478. "Turn tracing OFF", /* Description */
  2479. "NOTRACE", /* Name */
  2480. DoubleTypeCode, /* ReturnTypeCode */
  2481. 0, /* ParameterCount */
  2482. PNONE, /* ParameterTypes */
  2483. PNONE, /* ParameterTests */
  2484. HB1 | HB2 /* OptionVersionBitmask */
  2485. },
  2486. {
  2487. F_NULL_X_N, /* UniqueID */
  2488. "N = NULL( X )", /* Syntax */
  2489. "Appends X null characters after each line printed by LPRINT or "
  2490. "LLIST.", /* Description */
  2491. "NULL", /* Name */
  2492. DoubleTypeCode, /* ReturnTypeCode */
  2493. 1, /* ParameterCount */
  2494. P1NUM, /* ParameterTypes */
  2495. P1BYT, /* ParameterTests */
  2496. B15 | M80 | D71 | T80 /* OptionVersionBitmask */
  2497. },
  2498. {
  2499. F_NUM_N, /* UniqueID */
  2500. "N = NUM", /* Syntax */
  2501. "The number of values processed by the last MAT INPUT. Zero means "
  2502. "error.", /* Description */
  2503. "NUM", /* Name */
  2504. DoubleTypeCode, /* ReturnTypeCode */
  2505. 0, /* ParameterCount */
  2506. PNONE, /* ParameterTypes */
  2507. PNONE, /* ParameterTests */
  2508. B15 | G74 | HB2 | G67 /* OptionVersionBitmask */
  2509. },
  2510. {
  2511. F_NUM_A_N, /* UniqueID */
  2512. "N = NUM( A$ )", /* Syntax */
  2513. "The value of the numeric-constant associated with A$, if the "
  2514. "string associated with A$ is a numeric-constant. Leading and "
  2515. "trailing spaces in the string are ignored. If the evaluation "
  2516. "of the numeric-constant would result in a value which causes "
  2517. "an underflow, then the value returned shall be zero. For example, "
  2518. "NUM( \" 123.5 \" ) = 123.5, NUM( \"2.E-99\" ) could be zero, and "
  2519. "NUM( \"MCMXVII\" ) causes an exception.", /* Description */
  2520. "NUM", /* Name */
  2521. DoubleTypeCode, /* ReturnTypeCode */
  2522. 1, /* ParameterCount */
  2523. P1STR, /* ParameterTypes */
  2524. P1ANY, /* ParameterTests */
  2525. B15 | S70 | HB2 | I70 | I73 /* OptionVersionBitmask */
  2526. },
  2527. {
  2528. F_NUM4_X_S, /* UniqueID */
  2529. "S$ = NUM$( X )", /* Syntax */
  2530. "The string generated by the print-statement as the numeric-representation "
  2531. "of the value associated with X.", /* Description */
  2532. "NUM$", /* Name */
  2533. StringTypeCode, /* ReturnTypeCode */
  2534. 1, /* ParameterCount */
  2535. P1NUM, /* ParameterTypes */
  2536. P1ANY, /* ParameterTests */
  2537. B15 | S70 | D64 | E78 | E86 | G74 | HB1 | HB2 | G65 | G67 | M80 | D71 | I70 | I73 | T80 /* OptionVersionBitmask */
  2538. },
  2539. {
  2540. F_OCT4_X_S, /* UniqueID */
  2541. "S$ = OCT$( X )", /* Syntax */
  2542. "The the octal (base 8) representation of X.", /* Description */
  2543. "OCT$", /* Name */
  2544. StringTypeCode, /* ReturnTypeCode */
  2545. 1, /* ParameterCount */
  2546. P1NUM, /* ParameterTypes */
  2547. P1INT, /* ParameterTests */
  2548. B15 | B93 | H14 | M80 | D71 | T80 /* OptionVersionBitmask */
  2549. },
  2550. {
  2551. F_OCT4_X_Y_S, /* UniqueID */
  2552. "S$ = OCT$( X, Y )", /* Syntax */
  2553. "The the octal (base 8) representation of X. The result will "
  2554. "be at least Y digits long. ", /* Description */
  2555. "OCT$", /* Name */
  2556. StringTypeCode, /* ReturnTypeCode */
  2557. 2, /* ParameterCount */
  2558. P1NUM | P2NUM, /* ParameterTypes */
  2559. P1INT | P2BYT, /* ParameterTests */
  2560. H14 /* OptionVersionBitmask */
  2561. },
  2562. {
  2563. F_OPEN_A_X_B_N, /* UniqueID */
  2564. "N = OPEN( A$, X, B$ )", /* Syntax */
  2565. "Open file number X. A$ is the mode: \"I\", \"O\", \"A\", \"R\". B$ "
  2566. "is the file name. Default the record length.", /* Description */
  2567. "OPEN", /* Name */
  2568. DoubleTypeCode, /* ReturnTypeCode */
  2569. 3, /* ParameterCount */
  2570. P1STR | P2NUM | P3STR, /* ParameterTypes */
  2571. P1BYT | P2INT | P3BYT, /* ParameterTests */
  2572. B15 | B93 | H14 | H80 | M80 | D71 | T80 /* OptionVersionBitmask */
  2573. },
  2574. {
  2575. F_OPEN_A_X_B_Y_N, /* UniqueID */
  2576. "N = OPEN( A$, X, B$, Y )", /* Syntax */
  2577. "Open file number X. A$ is the mode: \"I\", \"O\", \"A\", \"R\". B$ "
  2578. "is the file name. Y is the record length.", /* Description */
  2579. "OPEN", /* Name */
  2580. DoubleTypeCode, /* ReturnTypeCode */
  2581. 4, /* ParameterCount */
  2582. P1STR | P2NUM | P3STR | P4NUM, /* ParameterTypes */
  2583. P1BYT | P2INT | P3BYT | P4INT, /* ParameterTests */
  2584. B15 | B93 | H14 | H80 | M80 | D71 | T80 /* OptionVersionBitmask */
  2585. },
  2586. {
  2587. F_ORD_A_N, /* UniqueID */
  2588. "N = ORD( A$ )", /* Syntax */
  2589. "The ordinal position of the character named by the string associated "
  2590. "with A$ in the collating sequence of ASCII character set, where "
  2591. "the first member of the character set is in position zero. The "
  2592. "acceptable values for the standard character set are shown in "
  2593. "Table 1.", /* Description */
  2594. "ORD", /* Name */
  2595. DoubleTypeCode, /* ReturnTypeCode */
  2596. 1, /* ParameterCount */
  2597. P1STR, /* ParameterTypes */
  2598. P1BYT, /* ParameterTests */
  2599. B15 | E86 /* OptionVersionBitmask */
  2600. },
  2601. {
  2602. F_OUT_X_Y_N, /* UniqueID */
  2603. "N = OUT( X, Y )", /* Syntax */
  2604. "Sends Y to hardware port X. Causes ERROR 73.", /* Description */
  2605. "OUT", /* Name */
  2606. DoubleTypeCode, /* ReturnTypeCode */
  2607. 2, /* ParameterCount */
  2608. P1NUM | P2NUM, /* ParameterTypes */
  2609. P1INT | P2BYT, /* ParameterTests */
  2610. B15 | C77 | H14 | HB1 | HB2 | H80 | M80 | D71 | T80 /* OptionVersionBitmask */
  2611. },
  2612. {
  2613. F_PAD_X_N, /* UniqueID */
  2614. "N = PAD( X )", /* Syntax */
  2615. "Returns zero.", /* Description */
  2616. "PAD", /* Name */
  2617. DoubleTypeCode, /* ReturnTypeCode */
  2618. 1, /* ParameterCount */
  2619. P1NUM, /* ParameterTypes */
  2620. P1ANY, /* ParameterTests */
  2621. H80 /* OptionVersionBitmask */
  2622. },
  2623. {
  2624. F_PAUSE_X_N, /* UniqueID */
  2625. "N = PAUSE( X )", /* Syntax */
  2626. "The program pauses for X times the value of OPTION SLEEP seconds. "
  2627. " If the result is zero, negative, or more than INT_MAX then PAUSE "
  2628. "does nothing. The resolution is implementation defined.", /* Description */
  2629. "PAUSE", /* Name */
  2630. DoubleTypeCode, /* ReturnTypeCode */
  2631. 1, /* ParameterCount */
  2632. P1NUM, /* ParameterTypes */
  2633. P1ANY, /* ParameterTests */
  2634. B15 | HB2 | H80 /* OptionVersionBitmask */
  2635. },
  2636. {
  2637. F_PDL_X_N, /* UniqueID */
  2638. "N = PDL( X )", /* Syntax */
  2639. "The value read from machine port X. Causes ERROR 73.", /* Description */
  2640. "PDL", /* Name */
  2641. DoubleTypeCode, /* ReturnTypeCode */
  2642. 1, /* ParameterCount */
  2643. P1NUM, /* ParameterTypes */
  2644. P1BYT, /* ParameterTests */
  2645. HB1 | HB2 /* OptionVersionBitmask */
  2646. },
  2647. {
  2648. F_PEEK_X_N, /* UniqueID */
  2649. "N = PEEK( X )", /* Syntax */
  2650. "The value read from hardware address X. Causes ERROR 73.", /* Description */
  2651. "PEEK", /* Name */
  2652. DoubleTypeCode, /* ReturnTypeCode */
  2653. 1, /* ParameterCount */
  2654. P1NUM, /* ParameterTypes */
  2655. P1LNG, /* ParameterTests */
  2656. B15 | C77 | H14 | HB1 | HB2 | H80 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  2657. },
  2658. {
  2659. F_PI_N, /* UniqueID */
  2660. "N = PI", /* Syntax */
  2661. "The constant 3.14159 which is the ratio of the circumference "
  2662. "of a circle to its diameter.", /* Description */
  2663. "PI", /* Name */
  2664. DoubleTypeCode, /* ReturnTypeCode */
  2665. 0, /* ParameterCount */
  2666. PNONE, /* ParameterTypes */
  2667. PNONE, /* ParameterTests */
  2668. B15 | E86 | H14 | HB1 | HB2 | D71 /* OptionVersionBitmask */
  2669. },
  2670. {
  2671. F_PI_X_N, /* UniqueID */
  2672. "N = PI( X )", /* Syntax */
  2673. "The constant 3.14159 which is the ratio of the circumference "
  2674. "of a circle to its diameter, times X.", /* Description */
  2675. "PI", /* Name */
  2676. DoubleTypeCode, /* ReturnTypeCode */
  2677. 1, /* ParameterCount */
  2678. P1NUM, /* ParameterTypes */
  2679. P1ANY, /* ParameterTests */
  2680. B15 | HB2 /* OptionVersionBitmask */
  2681. },
  2682. {
  2683. F_PIN_X_N, /* UniqueID */
  2684. "N = PIN( X )", /* Syntax */
  2685. "The value read from machine port X. Causes ERROR 73.", /* Description */
  2686. "PIN", /* Name */
  2687. DoubleTypeCode, /* ReturnTypeCode */
  2688. 1, /* ParameterCount */
  2689. P1NUM, /* ParameterTypes */
  2690. P1BYT, /* ParameterTests */
  2691. HB1 | HB2 | H80 /* OptionVersionBitmask */
  2692. },
  2693. {
  2694. F_POKE_X_Y_N, /* UniqueID */
  2695. "N = POKE( X, Y )", /* Syntax */
  2696. "Sends Y to hardware address X. Causes ERROR 73.", /* Description */
  2697. "POKE", /* Name */
  2698. DoubleTypeCode, /* ReturnTypeCode */
  2699. 2, /* ParameterCount */
  2700. P1NUM | P2NUM, /* ParameterTypes */
  2701. P1LNG | P2BYT, /* ParameterTests */
  2702. B15 | C77 | H14 | HB1 | HB2 | H80 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  2703. },
  2704. {
  2705. F_POS_N, /* UniqueID */
  2706. "N = POS", /* Syntax */
  2707. "The current cursor position in the line.", /* Description */
  2708. "POS", /* Name */
  2709. DoubleTypeCode, /* ReturnTypeCode */
  2710. 0, /* ParameterCount */
  2711. PNONE, /* ParameterTypes */
  2712. PNONE, /* ParameterTests */
  2713. B15 | B93 | C77 | H14 | H80 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  2714. },
  2715. {
  2716. F_POS_X_N, /* UniqueID */
  2717. "N = POS( X )", /* Syntax */
  2718. "The current cursor position in the line for file X.", /* Description */
  2719. "POS", /* Name */
  2720. DoubleTypeCode, /* ReturnTypeCode */
  2721. 1, /* ParameterCount */
  2722. P1NUM, /* ParameterTypes */
  2723. P1INT, /* ParameterTests */
  2724. B15 | H14 | HB2 | H80 | M80 | R86 | D71 | T80 | T79 /* OptionVersionBitmask */
  2725. },
  2726. {
  2727. F_POS_A_B_N, /* UniqueID */
  2728. "N = POS( A$, B$ )", /* Syntax */
  2729. "The character position, within the value assocated with A$, of "
  2730. "the first character of the first occurence of the value associated "
  2731. "with B$, starting at the first character of A$. If there is "
  2732. "not such occurence, then the value returned is zero.", /* Description */
  2733. "POS", /* Name */
  2734. DoubleTypeCode, /* ReturnTypeCode */
  2735. 2, /* ParameterCount */
  2736. P1STR | P2STR, /* ParameterTypes */
  2737. P1ANY | P2ANY, /* ParameterTests */
  2738. B15 | E86 | H14 | HB2 /* OptionVersionBitmask */
  2739. },
  2740. {
  2741. F_POS_A_B_X_N, /* UniqueID */
  2742. "N = POS( A$, B$, X )", /* Syntax */
  2743. "The character position, within the value assocated with A$, of "
  2744. "the first character of the first occurence of the value associated "
  2745. "with B$, starting at the Xth character of A$. If there is not "
  2746. "such occurence, then the value returned is zero.", /* Description */
  2747. "POS", /* Name */
  2748. DoubleTypeCode, /* ReturnTypeCode */
  2749. 3, /* ParameterCount */
  2750. P1STR | P2STR | P3NUM, /* ParameterTypes */
  2751. P1ANY | P2ANY | P3POS, /* ParameterTests */
  2752. B15 | E86 | H14 | HB2 /* OptionVersionBitmask */
  2753. },
  2754. {
  2755. F_PRECISION_X_N, /* UniqueID */
  2756. "N = PRECISION( X )", /* Syntax */
  2757. "X is the number of decimal places to round (0..17). If X = 0 "
  2758. "then disabled.", /* Description */
  2759. "PRECISION", /* Name */
  2760. DoubleTypeCode, /* ReturnTypeCode */
  2761. 1, /* ParameterCount */
  2762. P1NUM, /* ParameterTypes */
  2763. P1BYT, /* ParameterTests */
  2764. HB2 /* OptionVersionBitmask */
  2765. },
  2766. {
  2767. F_PTR_N, /* UniqueID */
  2768. "N = PTR( ... )", /* Syntax */
  2769. "Returns hardware address of variable. Causes ERROR 73.", /* Description */
  2770. "PTR", /* Name */
  2771. DoubleTypeCode, /* ReturnTypeCode */
  2772. 255, /* ParameterCount */
  2773. PNONE, /* ParameterTypes */
  2774. PNONE, /* ParameterTests */
  2775. R86 | T79 /* OptionVersionBitmask */
  2776. },
  2777. {
  2778. F_PUT_X_N, /* UniqueID */
  2779. "N = PUT( X )", /* Syntax */
  2780. "Send character code to output. Returns the value of X. Similar "
  2781. "to PRINT CHR$(X).", /* Description */
  2782. "PUT", /* Name */
  2783. IntegerTypeCode, /* ReturnTypeCode */
  2784. 1, /* ParameterCount */
  2785. P1NUM, /* ParameterTypes */
  2786. P1BYT, /* ParameterTests */
  2787. D73 /* OptionVersionBitmask */
  2788. },
  2789. {
  2790. F_PUT_X_N, /* UniqueID */
  2791. "N = PUT( X )", /* Syntax */
  2792. "For file X, puts the next available record.", /* Description */
  2793. "PUT", /* Name */
  2794. DoubleTypeCode, /* ReturnTypeCode */
  2795. 1, /* ParameterCount */
  2796. P1NUM, /* ParameterTypes */
  2797. P1INT, /* ParameterTests */
  2798. B15 | B93 | H14 | M80 | D71 | T80 /* OptionVersionBitmask */
  2799. },
  2800. {
  2801. F_PUT_X_Y_N, /* UniqueID */
  2802. "N = PUT( X, Y )", /* Syntax */
  2803. "For file X, puts record number Y. The first record number is "
  2804. "1.", /* Description */
  2805. "PUT", /* Name */
  2806. DoubleTypeCode, /* ReturnTypeCode */
  2807. 2, /* ParameterCount */
  2808. P1NUM | P2NUM, /* ParameterTypes */
  2809. P1INT | P2INT, /* ParameterTests */
  2810. B15 | B93 | H14 | M80 | D71 | T80 /* OptionVersionBitmask */
  2811. },
  2812. {
  2813. F_RAD_N, /* UniqueID */
  2814. "N = RAD", /* Syntax */
  2815. "Configures the math functions to accept and return angles in "
  2816. "radians.", /* Description */
  2817. "RAD", /* Name */
  2818. DoubleTypeCode, /* ReturnTypeCode */
  2819. 0, /* ParameterCount */
  2820. PNONE, /* ParameterTypes */
  2821. PNONE, /* ParameterTests */
  2822. B15 | HB1 | HB2 /* OptionVersionBitmask */
  2823. },
  2824. {
  2825. F_RAD_X_N, /* UniqueID */
  2826. "N = RAD( X )", /* Syntax */
  2827. "The number of radians in X degrees.", /* Description */
  2828. "RAD", /* Name */
  2829. DoubleTypeCode, /* ReturnTypeCode */
  2830. 1, /* ParameterCount */
  2831. P1NUM, /* ParameterTypes */
  2832. P1ANY, /* ParameterTests */
  2833. B15 | S70 | E86 | H14 | HB2 | I70 | I73 /* OptionVersionBitmask */
  2834. },
  2835. {
  2836. F_RADIAN_N, /* UniqueID */
  2837. "N = RADIAN", /* Syntax */
  2838. "Configures the math functions to accept and return angles in "
  2839. "radians.", /* Description */
  2840. "RADIAN", /* Name */
  2841. DoubleTypeCode, /* ReturnTypeCode */
  2842. 0, /* ParameterCount */
  2843. PNONE, /* ParameterTypes */
  2844. PNONE, /* ParameterTests */
  2845. B15 | HB1 | HB2 /* OptionVersionBitmask */
  2846. },
  2847. {
  2848. F_RAN_N, /* UniqueID */
  2849. "N = RAN", /* Syntax */
  2850. "Seeds the pseudo-random number generator with TIME.", /* Description */
  2851. "RAN", /* Name */
  2852. DoubleTypeCode, /* ReturnTypeCode */
  2853. 0, /* ParameterCount */
  2854. PNONE, /* ParameterTypes */
  2855. PNONE, /* ParameterTests */
  2856. HB1 | HB2 /* OptionVersionBitmask */
  2857. },
  2858. {
  2859. F_RAN_X_N, /* UniqueID */
  2860. "N = RAN( X )", /* Syntax */
  2861. "Seeds the pseudo-random number generator with X.", /* Description */
  2862. "RAN", /* Name */
  2863. DoubleTypeCode, /* ReturnTypeCode */
  2864. 1, /* ParameterCount */
  2865. P1NUM, /* ParameterTypes */
  2866. P1ANY, /* ParameterTests */
  2867. HB1 | HB2 /* OptionVersionBitmask */
  2868. },
  2869. {
  2870. F_RANDOM_N, /* UniqueID */
  2871. "N = RANDOM", /* Syntax */
  2872. "Seeds the pseudo-random number generator with TIME.", /* Description */
  2873. "RANDOM", /* Name */
  2874. DoubleTypeCode, /* ReturnTypeCode */
  2875. 0, /* ParameterCount */
  2876. PNONE, /* ParameterTypes */
  2877. PNONE, /* ParameterTests */
  2878. D64 | G74 | HB1 | HB2 | G65 | G67 /* OptionVersionBitmask */
  2879. },
  2880. {
  2881. F_RANDOM_X_N, /* UniqueID */
  2882. "N = RANDOM( X )", /* Syntax */
  2883. "Seeds the pseudo-random number generator with X.", /* Description */
  2884. "RANDOM", /* Name */
  2885. DoubleTypeCode, /* ReturnTypeCode */
  2886. 1, /* ParameterCount */
  2887. P1NUM, /* ParameterTypes */
  2888. P1ANY, /* ParameterTests */
  2889. HB1 | HB2 | D71 /* OptionVersionBitmask */
  2890. },
  2891. {
  2892. F_RANDOMIZE_N, /* UniqueID */
  2893. "N = RANDOMIZE", /* Syntax */
  2894. "Seeds the pseudo-random number generator with TIME.", /* Description */
  2895. "RANDOMIZE", /* Name */
  2896. DoubleTypeCode, /* ReturnTypeCode */
  2897. 0, /* ParameterCount */
  2898. PNONE, /* ParameterTypes */
  2899. PNONE, /* ParameterTests */
  2900. B15 | B93 | S70 | C77 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | H80 | G65 | G67 | M80 | D73 | D70 | D71 | I70 | I73 | T80 | V09 /* OptionVersionBitmask */
  2901. },
  2902. {
  2903. F_RANDOMIZE_X_N, /* UniqueID */
  2904. "N = RANDOMIZE( X )", /* Syntax */
  2905. "Seeds the pseudo-random number generator with X.", /* Description */
  2906. "RANDOMIZE", /* Name */
  2907. DoubleTypeCode, /* ReturnTypeCode */
  2908. 1, /* ParameterCount */
  2909. P1NUM, /* ParameterTypes */
  2910. P1ANY, /* ParameterTests */
  2911. B15 | B93 | S70 | C77 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | H80 | G65 | G67 | M80 | D71 | I70 | I73 | T80 /* OptionVersionBitmask */
  2912. },
  2913. {
  2914. F_REMAINDER_X_Y_N, /* UniqueID */
  2915. "N = REMAINDER( X, Y )", /* Syntax */
  2916. "The remainder function, i.e., X-Y*IP(X/Y). Y shall not equal "
  2917. "zero.", /* Description */
  2918. "REMAINDER", /* Name */
  2919. DoubleTypeCode, /* ReturnTypeCode */
  2920. 2, /* ParameterCount */
  2921. P1NUM | P2NUM, /* ParameterTypes */
  2922. P1ANY | P2NEZ, /* ParameterTests */
  2923. B15 | E86 /* OptionVersionBitmask */
  2924. },
  2925. {
  2926. F_RENAME_A_B_N, /* UniqueID */
  2927. "N = RENAME( A$, B$ )", /* Syntax */
  2928. "Rename file A$ to B$. If successful, the returns -1 else returns "
  2929. "0.", /* Description */
  2930. "RENAME", /* Name */
  2931. DoubleTypeCode, /* ReturnTypeCode */
  2932. 2, /* ParameterCount */
  2933. P1STR | P2STR, /* ParameterTypes */
  2934. P1BYT | P2BYT, /* ParameterTests */
  2935. C77 | R86 | T79 /* OptionVersionBitmask */
  2936. },
  2937. {
  2938. F_REPEAT4_X_A_S, /* UniqueID */
  2939. "S$ = REPEAT$( X, A$ )", /* Syntax */
  2940. "The string consisting of X copies of LEFT$(A$,1); X > 0.", /* Description */
  2941. "REPEAT$", /* Name */
  2942. StringTypeCode, /* ReturnTypeCode */
  2943. 2, /* ParameterCount */
  2944. P1NUM | P2STR, /* ParameterTypes */
  2945. P1LEN | P2BYT, /* ParameterTests */
  2946. B15 | M80 | D71 | T80 /* OptionVersionBitmask */
  2947. },
  2948. {
  2949. F_REPEAT4_X_Y_S, /* UniqueID */
  2950. "S$ = REPEAT$( X, Y )", /* Syntax */
  2951. "The string consisting of X copies of CHR$(Y); X > 0.", /* Description */
  2952. "REPEAT$", /* Name */
  2953. StringTypeCode, /* ReturnTypeCode */
  2954. 2, /* ParameterCount */
  2955. P1NUM | P2NUM, /* ParameterTypes */
  2956. P1LEN | P2BYT, /* ParameterTests */
  2957. B15 | M80 | D71 | T80 /* OptionVersionBitmask */
  2958. },
  2959. {
  2960. F_RESET_N, /* UniqueID */
  2961. "N = RESET", /* Syntax */
  2962. "Close all open files.", /* Description */
  2963. "RESET", /* Name */
  2964. DoubleTypeCode, /* ReturnTypeCode */
  2965. 0, /* ParameterCount */
  2966. PNONE, /* ParameterTypes */
  2967. PNONE, /* ParameterTests */
  2968. B15 | HB1 | HB2 | M80 | D71 | T80 /* OptionVersionBitmask */
  2969. },
  2970. {
  2971. F_RESIDUE_N, /* UniqueID */
  2972. "N = RESIDUE", /* Syntax */
  2973. "The residue of the last Integer Divide operation. The RESIDUE "
  2974. "of -17 / 5 is -2. For X / Y, RESIDUE = CINT( X - Y * CINT( X "
  2975. "/ Y ) ).", /* Description */
  2976. "RESIDUE", /* Name */
  2977. DoubleTypeCode, /* ReturnTypeCode */
  2978. 0, /* ParameterCount */
  2979. PNONE, /* ParameterTypes */
  2980. PNONE, /* ParameterTests */
  2981. R86 /* OptionVersionBitmask */
  2982. },
  2983. {
  2984. F_RIGHT_A_X_S, /* UniqueID */
  2985. "S$ = RIGHT( A$, X )", /* Syntax */
  2986. "The right-most X characters of A$.", /* Description */
  2987. "RIGHT", /* Name */
  2988. StringTypeCode, /* ReturnTypeCode */
  2989. 2, /* ParameterCount */
  2990. P1STR | P2NUM, /* ParameterTypes */
  2991. P1ANY | P2LEN, /* ParameterTests */
  2992. HB1 | HB2 | D71 /* OptionVersionBitmask */
  2993. },
  2994. {
  2995. F_RIGHT4_A_X_S, /* UniqueID */
  2996. "S$ = RIGHT$( A$, X )", /* Syntax */
  2997. "The right-most X characters of A$.", /* Description */
  2998. "RIGHT$", /* Name */
  2999. StringTypeCode, /* ReturnTypeCode */
  3000. 2, /* ParameterCount */
  3001. P1STR | P2NUM, /* ParameterTypes */
  3002. P1ANY | P2LEN, /* ParameterTests */
  3003. B15 | B93 | C77 | E86 | H14 | HB1 | HB2 | H80 | M80 | R86 | D71 | T80 | V09 | T79 /* OptionVersionBitmask */
  3004. },
  3005. {
  3006. F_RMDIR_A_N, /* UniqueID */
  3007. "N = RMDIR( A$ )", /* Syntax */
  3008. "Removes the directory named in A$.", /* Description */
  3009. "RMDIR", /* Name */
  3010. DoubleTypeCode, /* ReturnTypeCode */
  3011. 1, /* ParameterCount */
  3012. P1STR, /* ParameterTypes */
  3013. P1BYT, /* ParameterTests */
  3014. B15 | B93 | M80 | D71 | T80 /* OptionVersionBitmask */
  3015. },
  3016. {
  3017. F_RND_N, /* UniqueID */
  3018. "N = RND", /* Syntax */
  3019. "The next pseudo-random number in an implementation-defined sequence "
  3020. "of pseudo-random numbers uniformly distributed in the range 0 "
  3021. "<= RND < 1.", /* Description */
  3022. "RND", /* Name */
  3023. DoubleTypeCode, /* ReturnTypeCode */
  3024. 0, /* ParameterCount */
  3025. PNONE, /* ParameterTypes */
  3026. PNONE, /* ParameterTests */
  3027. B15 | B93 | S70 | C77 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | H80 | G65 | G67 | M80 | D73 | D70 | R86 | D71 | I70 | I73 | T80 | V09 | T79 /* OptionVersionBitmask */
  3028. },
  3029. {
  3030. F_RND_X_N, /* UniqueID */
  3031. "N = RND( X )", /* Syntax */
  3032. "Returns a pseudorandom number in the range [0,1]. The value "
  3033. "of X is ignored.", /* Description */
  3034. "RND", /* Name */
  3035. DoubleTypeCode, /* ReturnTypeCode */
  3036. 1, /* ParameterCount */
  3037. P1NUM, /* ParameterTypes */
  3038. P1ANY, /* ParameterTests */
  3039. B15 | B93 | S70 | C77 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | H80 | G65 | G67 | M80 | D73 | D70 | R86 | D71 | I70 | I73 | T80 | V09 | T79 /* OptionVersionBitmask */
  3040. },
  3041. {
  3042. F_ROUND_X_Y_N, /* UniqueID */
  3043. "N = ROUND( X, Y )", /* Syntax */
  3044. "The value of X rounded to Y decimal digits to the right of the "
  3045. "decimal point (or -Y digits to the left if Y < 0); i.e., INT(X*10^Y+.5)/10^Y. "
  3046. " Y must be in [-32,32].", /* Description */
  3047. "ROUND", /* Name */
  3048. DoubleTypeCode, /* ReturnTypeCode */
  3049. 2, /* ParameterCount */
  3050. P1NUM | P2NUM, /* ParameterTypes */
  3051. P1ANY | P2INT, /* ParameterTests */
  3052. B15 | E86 /* OptionVersionBitmask */
  3053. },
  3054. {
  3055. F_RTRIM4_A_S, /* UniqueID */
  3056. "S$ = RTRIM$( A$ )", /* Syntax */
  3057. "The string of characters resulting from the value associated "
  3058. "with A$ by deleting all trailing space characters.", /* Description */
  3059. "RTRIM$", /* Name */
  3060. StringTypeCode, /* ReturnTypeCode */
  3061. 1, /* ParameterCount */
  3062. P1STR, /* ParameterTypes */
  3063. P1ANY, /* ParameterTests */
  3064. B15 | E86 | H14 | M80 | D71 | T80 /* OptionVersionBitmask */
  3065. },
  3066. {
  3067. F_SCALE_X_N, /* UniqueID */
  3068. "N = SCALE( X )", /* Syntax */
  3069. "X is the number of decimal places to round (0..17). If X = 0 "
  3070. "then disabled.", /* Description */
  3071. "SCALE", /* Name */
  3072. DoubleTypeCode, /* ReturnTypeCode */
  3073. 1, /* ParameterCount */
  3074. P1NUM, /* ParameterTypes */
  3075. P1BYT, /* ParameterTests */
  3076. R86 | T79 /* OptionVersionBitmask */
  3077. },
  3078. {
  3079. F_SEC_X_N, /* UniqueID */
  3080. "N = SEC( X )", /* Syntax */
  3081. "The secant of X, where X is in radians.", /* Description */
  3082. "SEC", /* Name */
  3083. DoubleTypeCode, /* ReturnTypeCode */
  3084. 1, /* ParameterCount */
  3085. P1NUM, /* ParameterTypes */
  3086. P1ANY, /* ParameterTests */
  3087. B15 | S70 | E86 | I70 | I73 /* OptionVersionBitmask */
  3088. },
  3089. {
  3090. F_SEEK_X_N, /* UniqueID */
  3091. "N = SEEK( X )", /* Syntax */
  3092. "The location of file X; the next record that GET or PUT statements "
  3093. "will use.", /* Description */
  3094. "SEEK", /* Name */
  3095. DoubleTypeCode, /* ReturnTypeCode */
  3096. 1, /* ParameterCount */
  3097. P1NUM, /* ParameterTypes */
  3098. P1INT, /* ParameterTests */
  3099. B15 | E86 | M80 | D71 | T80 /* OptionVersionBitmask */
  3100. },
  3101. {
  3102. F_SEEK_X_Y_N, /* UniqueID */
  3103. "N = SEEK( X, Y )", /* Syntax */
  3104. "For file X, move to record number Y; the first record number "
  3105. "is 1.", /* Description */
  3106. "SEEK", /* Name */
  3107. DoubleTypeCode, /* ReturnTypeCode */
  3108. 2, /* ParameterCount */
  3109. P1NUM | P2NUM, /* ParameterTypes */
  3110. P1INT | P2INT, /* ParameterTests */
  3111. B15 | M80 | D71 | T80 /* OptionVersionBitmask */
  3112. },
  3113. {
  3114. F_SEG_X_N, /* UniqueID */
  3115. "N = SEG( X )", /* Syntax */
  3116. "Returns zero.", /* Description */
  3117. "SEG", /* Name */
  3118. DoubleTypeCode, /* ReturnTypeCode */
  3119. 1, /* ParameterCount */
  3120. P1NUM, /* ParameterTypes */
  3121. P1ANY, /* ParameterTests */
  3122. H80 /* OptionVersionBitmask */
  3123. },
  3124. {
  3125. F_SEG_A_X_Y_S, /* UniqueID */
  3126. "S$ = SEG( A$, X, Y )", /* Syntax */
  3127. "The Y characters of A$, starting from postion X.", /* Description */
  3128. "SEG", /* Name */
  3129. StringTypeCode, /* ReturnTypeCode */
  3130. 3, /* ParameterCount */
  3131. P1STR | P2NUM | P3NUM, /* ParameterTypes */
  3132. P1ANY | P2POS | P3LEN, /* ParameterTests */
  3133. B15 | HB2 /* OptionVersionBitmask */
  3134. },
  3135. {
  3136. F_SEG4_A_X_Y_S, /* UniqueID */
  3137. "S$ = SEG$( A$, X, Y )", /* Syntax */
  3138. "The Y characters of A$, starting from postion X.", /* Description */
  3139. "SEG$", /* Name */
  3140. StringTypeCode, /* ReturnTypeCode */
  3141. 3, /* ParameterCount */
  3142. P1STR | P2NUM | P3NUM, /* ParameterTypes */
  3143. P1ANY | P2POS | P3LEN, /* ParameterTests */
  3144. B15 | H14 | HB2 /* OptionVersionBitmask */
  3145. },
  3146. {
  3147. F_SGN_X_N, /* UniqueID */
  3148. "N = SGN( X )", /* Syntax */
  3149. "The sign of X: -1 if X < 0, 0 if X = 0, and +1 if X > 0.", /* Description */
  3150. "SGN", /* Name */
  3151. DoubleTypeCode, /* ReturnTypeCode */
  3152. 1, /* ParameterCount */
  3153. P1NUM, /* ParameterTypes */
  3154. P1ANY, /* ParameterTests */
  3155. B15 | B93 | S70 | C77 | D64 | E78 | E86 | G74 | H14 | HB2 | H80 | G65 | G67 | M80 | D73 | D70 | R86 | D71 | I70 | I73 | T80 | V09 | T79 /* OptionVersionBitmask */
  3156. },
  3157. {
  3158. F_SHELL_A_N, /* UniqueID */
  3159. "N = SHELL( A$ )", /* Syntax */
  3160. "The exit code resulting from the execution of an operating system "
  3161. "command.", /* Description */
  3162. "SHELL", /* Name */
  3163. DoubleTypeCode, /* ReturnTypeCode */
  3164. 1, /* ParameterCount */
  3165. P1STR, /* ParameterTypes */
  3166. P1BYT, /* ParameterTests */
  3167. B15 | H14 | M80 | D71 | T80 /* OptionVersionBitmask */
  3168. },
  3169. {
  3170. F_SIN_X_N, /* UniqueID */
  3171. "N = SIN( X )", /* Syntax */
  3172. "The sine of X, where X is in radians.", /* Description */
  3173. "SIN", /* Name */
  3174. DoubleTypeCode, /* ReturnTypeCode */
  3175. 1, /* ParameterCount */
  3176. P1NUM, /* ParameterTypes */
  3177. P1ANY, /* ParameterTests */
  3178. B15 | B93 | S70 | C77 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | H80 | G65 | G67 | M80 | D73 | D70 | R86 | D71 | I70 | I73 | T80 | T79 /* OptionVersionBitmask */
  3179. },
  3180. {
  3181. F_SIND_X_N, /* UniqueID */
  3182. "N = SIND( X )", /* Syntax */
  3183. "The sine of X, where X is in degrees.", /* Description */
  3184. "SIND", /* Name */
  3185. DoubleTypeCode, /* ReturnTypeCode */
  3186. 1, /* ParameterCount */
  3187. P1NUM, /* ParameterTypes */
  3188. P1ANY, /* ParameterTests */
  3189. B15 | HB2 /* OptionVersionBitmask */
  3190. },
  3191. {
  3192. F_SING_X_N, /* UniqueID */
  3193. "N = SING( X )", /* Syntax */
  3194. "The sine of X, where X is in gradians.", /* Description */
  3195. "SING", /* Name */
  3196. DoubleTypeCode, /* ReturnTypeCode */
  3197. 1, /* ParameterCount */
  3198. P1NUM, /* ParameterTypes */
  3199. P1ANY, /* ParameterTests */
  3200. B15 | HB2 /* OptionVersionBitmask */
  3201. },
  3202. {
  3203. F_SINH_X_N, /* UniqueID */
  3204. "N = SINH( X )", /* Syntax */
  3205. "The hyperbolic sine of X.", /* Description */
  3206. "SINH", /* Name */
  3207. DoubleTypeCode, /* ReturnTypeCode */
  3208. 1, /* ParameterCount */
  3209. P1NUM, /* ParameterTypes */
  3210. P1ANY, /* ParameterTests */
  3211. B15 | E86 | HB2 /* OptionVersionBitmask */
  3212. },
  3213. {
  3214. F_SIZE_A_N, /* UniqueID */
  3215. "N = SIZE( A$ )", /* Syntax */
  3216. "The total number of 1KB blockes required to contain the file.", /* Description */
  3217. "SIZE", /* Name */
  3218. DoubleTypeCode, /* ReturnTypeCode */
  3219. 1, /* ParameterCount */
  3220. P1STR, /* ParameterTypes */
  3221. P1BYT, /* ParameterTests */
  3222. C77 /* OptionVersionBitmask */
  3223. },
  3224. {
  3225. F_SIZE_N, /* UniqueID */
  3226. "N = SIZE( ... )", /* Syntax */
  3227. "SIZE( arrayname ). The total number of items in the array.", /* Description */
  3228. "SIZE", /* Name */
  3229. DoubleTypeCode, /* ReturnTypeCode */
  3230. 255, /* ParameterCount */
  3231. PNONE, /* ParameterTypes */
  3232. PNONE, /* ParameterTests */
  3233. E86 /* OptionVersionBitmask */
  3234. },
  3235. {
  3236. F_SLEEP_X_N, /* UniqueID */
  3237. "N = SLEEP( X )", /* Syntax */
  3238. "The program pauses for X times the value of OPTION SLEEP seconds. "
  3239. " If the result is zero, negative, or more than INT_MAX then SLEEP "
  3240. "does nothing. The resolution is implementation defined.", /* Description */
  3241. "SLEEP", /* Name */
  3242. DoubleTypeCode, /* ReturnTypeCode */
  3243. 1, /* ParameterCount */
  3244. P1NUM, /* ParameterTypes */
  3245. P1ANY, /* ParameterTests */
  3246. B15 | H14 | HB1 | HB2 | D71 /* OptionVersionBitmask */
  3247. },
  3248. {
  3249. F_SNH_X_N, /* UniqueID */
  3250. "N = SNH( X )", /* Syntax */
  3251. "The hyperbolic sine of X.", /* Description */
  3252. "SNH", /* Name */
  3253. DoubleTypeCode, /* ReturnTypeCode */
  3254. 1, /* ParameterCount */
  3255. P1NUM, /* ParameterTypes */
  3256. P1ANY, /* ParameterTests */
  3257. B15 | HB2 /* OptionVersionBitmask */
  3258. },
  3259. {
  3260. F_SPA_X_S, /* UniqueID */
  3261. "S$ = SPA( X )", /* Syntax */
  3262. "The string of X blank spaces.", /* Description */
  3263. "SPA", /* Name */
  3264. StringTypeCode, /* ReturnTypeCode */
  3265. 1, /* ParameterCount */
  3266. P1NUM, /* ParameterTypes */
  3267. P1LEN, /* ParameterTests */
  3268. HB1 | HB2 /* OptionVersionBitmask */
  3269. },
  3270. {
  3271. F_SPACE_X_S, /* UniqueID */
  3272. "S$ = SPACE( X )", /* Syntax */
  3273. "The string of X blank spaces.", /* Description */
  3274. "SPACE", /* Name */
  3275. StringTypeCode, /* ReturnTypeCode */
  3276. 1, /* ParameterCount */
  3277. P1NUM, /* ParameterTypes */
  3278. P1LEN, /* ParameterTests */
  3279. HB1 | HB2 | D71 /* OptionVersionBitmask */
  3280. },
  3281. {
  3282. F_SPACE4_X_S, /* UniqueID */
  3283. "S$ = SPACE$( X )", /* Syntax */
  3284. "The string of X blank spaces.", /* Description */
  3285. "SPACE$", /* Name */
  3286. StringTypeCode, /* ReturnTypeCode */
  3287. 1, /* ParameterCount */
  3288. P1NUM, /* ParameterTypes */
  3289. P1LEN, /* ParameterTests */
  3290. B15 | B93 | H14 | HB1 | HB2 | M80 | D71 | T80 /* OptionVersionBitmask */
  3291. },
  3292. {
  3293. F_SPC_X_S, /* UniqueID */
  3294. "S$ = SPC( X )", /* Syntax */
  3295. "The string of X spaces. Only for use within the PRINT command.", /* Description */
  3296. "SPC", /* Name */
  3297. StringTypeCode, /* ReturnTypeCode */
  3298. 1, /* ParameterCount */
  3299. P1NUM, /* ParameterTypes */
  3300. P1ANY, /* ParameterTests */
  3301. B15 | B93 | S70 | C77 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | H80 | G65 | G67 | M80 | D73 | D70 | R86 | D71 | I70 | I73 | T80 | V09 | T79 /* OptionVersionBitmask */
  3302. },
  3303. {
  3304. F_SQR_X_N, /* UniqueID */
  3305. "N = SQR( X )", /* Syntax */
  3306. "The non-negative square root of X; X shall be non-negative.", /* Description */
  3307. "SQR", /* Name */
  3308. DoubleTypeCode, /* ReturnTypeCode */
  3309. 1, /* ParameterCount */
  3310. P1NUM, /* ParameterTypes */
  3311. P1GEZ, /* ParameterTests */
  3312. B15 | B93 | S70 | C77 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | H80 | G65 | G67 | M80 | D73 | D70 | R86 | D71 | I70 | I73 | T80 | V09 | T79 /* OptionVersionBitmask */
  3313. },
  3314. {
  3315. F_SQRT_X_N, /* UniqueID */
  3316. "N = SQRT( X )", /* Syntax */
  3317. "The non-negative square root of X; X shall be non-negative.", /* Description */
  3318. "SQRT", /* Name */
  3319. DoubleTypeCode, /* ReturnTypeCode */
  3320. 1, /* ParameterCount */
  3321. P1NUM, /* ParameterTypes */
  3322. P1GEZ, /* ParameterTests */
  3323. HB1 | HB2 /* OptionVersionBitmask */
  3324. },
  3325. {
  3326. F_STR_X_Y_S, /* UniqueID */
  3327. "S$ = STR( X, Y )", /* Syntax */
  3328. "The string X bytes long consisting of CHR$(Y).", /* Description */
  3329. "STR", /* Name */
  3330. StringTypeCode, /* ReturnTypeCode */
  3331. 2, /* ParameterCount */
  3332. P1NUM | P2NUM, /* ParameterTypes */
  3333. P1LEN | P2BYT, /* ParameterTests */
  3334. B15 | HB2 /* OptionVersionBitmask */
  3335. },
  3336. {
  3337. F_STR4_X_S, /* UniqueID */
  3338. "S$ = STR$( X )", /* Syntax */
  3339. "The string generated by the print-statement as the numeric-representation "
  3340. "of the value associated with X.", /* Description */
  3341. "STR$", /* Name */
  3342. StringTypeCode, /* ReturnTypeCode */
  3343. 1, /* ParameterCount */
  3344. P1NUM, /* ParameterTypes */
  3345. P1ANY, /* ParameterTests */
  3346. B15 | B93 | S70 | C77 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | H80 | G65 | G67 | M80 | R86 | D71 | I70 | I73 | T80 | V09 | T79 /* OptionVersionBitmask */
  3347. },
  3348. {
  3349. F_STRING_X_Y_S, /* UniqueID */
  3350. "S$ = STRING( X, Y )", /* Syntax */
  3351. "The string X bytes long consisting of CHR$(Y).", /* Description */
  3352. "STRING", /* Name */
  3353. StringTypeCode, /* ReturnTypeCode */
  3354. 2, /* ParameterCount */
  3355. P1NUM | P2NUM, /* ParameterTypes */
  3356. P1LEN | P2BYT, /* ParameterTests */
  3357. B15 | HB2 /* OptionVersionBitmask */
  3358. },
  3359. {
  3360. F_STRING4_X_A_S, /* UniqueID */
  3361. "S$ = STRING$( X, A$ )", /* Syntax */
  3362. "The string X bytes long consisting of the first character of "
  3363. "A$.", /* Description */
  3364. "STRING$", /* Name */
  3365. StringTypeCode, /* ReturnTypeCode */
  3366. 2, /* ParameterCount */
  3367. P1NUM | P2STR, /* ParameterTypes */
  3368. P1LEN | P2BYT, /* ParameterTests */
  3369. B15 | B93 | E86 | H14 | HB1 | HB2 | M80 | D71 | T80 /* OptionVersionBitmask */
  3370. },
  3371. {
  3372. F_STRING4_X_Y_S, /* UniqueID */
  3373. "S$ = STRING$( X, Y )", /* Syntax */
  3374. "The string X bytes long consisting of CHR$(Y).", /* Description */
  3375. "STRING$", /* Name */
  3376. StringTypeCode, /* ReturnTypeCode */
  3377. 2, /* ParameterCount */
  3378. P1NUM | P2NUM, /* ParameterTypes */
  3379. P1LEN | P2BYT, /* ParameterTests */
  3380. B15 | B93 | E86 | H14 | HB1 | HB2 | M80 | D71 | T80 /* OptionVersionBitmask */
  3381. },
  3382. {
  3383. F_STRIP4_A_S, /* UniqueID */
  3384. "S$ = STRIP$( A$ )", /* Syntax */
  3385. "Return the string with the eighth bit of each character cleared.", /* Description */
  3386. "STRIP$", /* Name */
  3387. StringTypeCode, /* ReturnTypeCode */
  3388. 1, /* ParameterCount */
  3389. P1STR, /* ParameterTypes */
  3390. P1ANY, /* ParameterTests */
  3391. H14 /* OptionVersionBitmask */
  3392. },
  3393. {
  3394. F_STUFF_X_Y_N, /* UniqueID */
  3395. "N = STUFF( X, Y )", /* Syntax */
  3396. "Sends Y to hardware address X. Causes ERROR 73.", /* Description */
  3397. "STUFF", /* Name */
  3398. DoubleTypeCode, /* ReturnTypeCode */
  3399. 2, /* ParameterCount */
  3400. P1NUM | P2NUM, /* ParameterTypes */
  3401. P1LNG | P2BYT, /* ParameterTests */
  3402. HB1 | HB2 /* OptionVersionBitmask */
  3403. },
  3404. {
  3405. F_TAB_X_S, /* UniqueID */
  3406. "S$ = TAB( X )", /* Syntax */
  3407. "The string required to advance to column X. Only for use within "
  3408. "the PRINT command.", /* Description */
  3409. "TAB", /* Name */
  3410. StringTypeCode, /* ReturnTypeCode */
  3411. 1, /* ParameterCount */
  3412. P1NUM, /* ParameterTypes */
  3413. P1ANY, /* ParameterTests */
  3414. B15 | B93 | S70 | C77 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | H80 | G65 | G67 | M80 | D73 | D70 | R86 | D71 | I70 | I73 | T80 | V09 | T79 /* OptionVersionBitmask */
  3415. },
  3416. {
  3417. F_TAN_X_N, /* UniqueID */
  3418. "N = TAN( X )", /* Syntax */
  3419. "The tangent of X, where X is in radians.", /* Description */
  3420. "TAN", /* Name */
  3421. DoubleTypeCode, /* ReturnTypeCode */
  3422. 1, /* ParameterCount */
  3423. P1NUM, /* ParameterTypes */
  3424. P1ANY, /* ParameterTests */
  3425. B15 | B93 | S70 | C77 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | H80 | G65 | G67 | M80 | D73 | D70 | R86 | D71 | I70 | I73 | T80 | V09 | T79 /* OptionVersionBitmask */
  3426. },
  3427. {
  3428. F_TAND_X_N, /* UniqueID */
  3429. "N = TAND( X )", /* Syntax */
  3430. "The tangent of X, where X is in degrees.", /* Description */
  3431. "TAND", /* Name */
  3432. DoubleTypeCode, /* ReturnTypeCode */
  3433. 1, /* ParameterCount */
  3434. P1NUM, /* ParameterTypes */
  3435. P1ANY, /* ParameterTests */
  3436. B15 | HB2 /* OptionVersionBitmask */
  3437. },
  3438. {
  3439. F_TANG_X_N, /* UniqueID */
  3440. "N = TANG( X )", /* Syntax */
  3441. "The tangent of X, where X is in gradians.", /* Description */
  3442. "TANG", /* Name */
  3443. DoubleTypeCode, /* ReturnTypeCode */
  3444. 1, /* ParameterCount */
  3445. P1NUM, /* ParameterTypes */
  3446. P1ANY, /* ParameterTests */
  3447. B15 | HB2 /* OptionVersionBitmask */
  3448. },
  3449. {
  3450. F_TANH_X_N, /* UniqueID */
  3451. "N = TANH( X )", /* Syntax */
  3452. "The hyperbolic tangent of X.", /* Description */
  3453. "TANH", /* Name */
  3454. DoubleTypeCode, /* ReturnTypeCode */
  3455. 1, /* ParameterCount */
  3456. P1NUM, /* ParameterTypes */
  3457. P1ANY, /* ParameterTests */
  3458. B15 | E86 | HB2 /* OptionVersionBitmask */
  3459. },
  3460. {
  3461. F_TI_N, /* UniqueID */
  3462. "N = TI", /* Syntax */
  3463. "The time elapsed since the previous midnight, expressed in seconds; "
  3464. "e.g., the value of TIME at 11:15 AM is 40500. If there is no "
  3465. "clock available, then the value of TIME shall be -1. The value "
  3466. "of TIME at midnight shall be zero (not 86400).", /* Description */
  3467. "TI", /* Name */
  3468. DoubleTypeCode, /* ReturnTypeCode */
  3469. 0, /* ParameterCount */
  3470. PNONE, /* ParameterTypes */
  3471. PNONE, /* ParameterTests */
  3472. HB1 | HB2 /* OptionVersionBitmask */
  3473. },
  3474. {
  3475. F_TI4_S, /* UniqueID */
  3476. "S$ = TI$", /* Syntax */
  3477. "The time of day in 24-hour notation according to ISO 3307. For "
  3478. "example, the value of TIME$ at 11:15 AM is \"11:15:00\". If there "
  3479. "is no clock available, then the value of TIME$ shall be \"99:99:99\". "
  3480. " The value of TIME$ at midnight is \"00:00:00\".", /* Description */
  3481. "TI$", /* Name */
  3482. StringTypeCode, /* ReturnTypeCode */
  3483. 0, /* ParameterCount */
  3484. PNONE, /* ParameterTypes */
  3485. PNONE, /* ParameterTests */
  3486. HB1 | HB2 /* OptionVersionBitmask */
  3487. },
  3488. {
  3489. F_TIM_N, /* UniqueID */
  3490. "N = TIM", /* Syntax */
  3491. "The time elapsed since the previous midnight, expressed in seconds; "
  3492. "e.g., the value of TIME at 11:15 AM is 40500. If there is no "
  3493. "clock available, then the value of TIME shall be -1. The value "
  3494. "of TIME at midnight shall be zero (not 86400).", /* Description */
  3495. "TIM", /* Name */
  3496. DoubleTypeCode, /* ReturnTypeCode */
  3497. 0, /* ParameterCount */
  3498. PNONE, /* ParameterTypes */
  3499. PNONE, /* ParameterTests */
  3500. S70 | G74 | HB1 | HB2 | G67 | I70 | I73 /* OptionVersionBitmask */
  3501. },
  3502. {
  3503. F_TIM_X_N, /* UniqueID */
  3504. "N = TIM( X )", /* Syntax */
  3505. "If X is 0, returns minutes in current hour. If X is 1, returns "
  3506. "hours in current day. If X is 2, returns days in current year. "
  3507. " If X is 3, returns years since 1900. Any other value for X "
  3508. "is an ERROR.", /* Description */
  3509. "TIM", /* Name */
  3510. DoubleTypeCode, /* ReturnTypeCode */
  3511. 1, /* ParameterCount */
  3512. P1NUM, /* ParameterTypes */
  3513. P1BYT, /* ParameterTests */
  3514. G74 | HB1 | HB2 | G65 | G67 /* OptionVersionBitmask */
  3515. },
  3516. {
  3517. F_TIME_N, /* UniqueID */
  3518. "N = TIME", /* Syntax */
  3519. "The time elapsed since the previous midnight, expressed in seconds; "
  3520. "e.g., the value of TIME at 11:15 AM is 40500. If there is no "
  3521. "clock available, then the value of TIME shall be -1. The value "
  3522. "of TIME at midnight shall be zero (not 86400).", /* Description */
  3523. "TIME", /* Name */
  3524. DoubleTypeCode, /* ReturnTypeCode */
  3525. 0, /* ParameterCount */
  3526. PNONE, /* ParameterTypes */
  3527. PNONE, /* ParameterTests */
  3528. B15 | E86 | H14 | HB1 | HB2 | D71 /* OptionVersionBitmask */
  3529. },
  3530. {
  3531. F_TIME_X_N, /* UniqueID */
  3532. "N = TIME( X )", /* Syntax */
  3533. "The time elapsed since the previous midnight, expressed in seconds; "
  3534. "e.g., the value of TIME at 11:15 AM is 40500. If there is no "
  3535. "clock available, then the value of TIME shall be -1. The value "
  3536. "of TIME at midnight shall be zero (not 86400). The value of "
  3537. "the parameter X is ignored.", /* Description */
  3538. "TIME", /* Name */
  3539. DoubleTypeCode, /* ReturnTypeCode */
  3540. 1, /* ParameterCount */
  3541. P1NUM, /* ParameterTypes */
  3542. P1ANY, /* ParameterTests */
  3543. HB1 | HB2 | D71 /* OptionVersionBitmask */
  3544. },
  3545. {
  3546. F_TIME4_S, /* UniqueID */
  3547. "S$ = TIME$", /* Syntax */
  3548. "The time of day in 24-hour notation according to ISO 3307. For "
  3549. "example, the value of TIME$ at 11:15 AM is \"11:15:00\". If there "
  3550. "is no clock available, then the value of TIME$ shall be \"99:99:99\". "
  3551. " The value of TIME$ at midnight is \"00:00:00\".", /* Description */
  3552. "TIME$", /* Name */
  3553. StringTypeCode, /* ReturnTypeCode */
  3554. 0, /* ParameterCount */
  3555. PNONE, /* ParameterTypes */
  3556. PNONE, /* ParameterTests */
  3557. B15 | B93 | E86 | H14 | HB1 | HB2 | M80 | D71 | T80 /* OptionVersionBitmask */
  3558. },
  3559. {
  3560. F_TIME4_X_S, /* UniqueID */
  3561. "S$ = TIME$( X )", /* Syntax */
  3562. "The time of day in 24-hour notation according to ISO 3307. For "
  3563. "example, the value of TIME$ at 11:15 AM is \"11:15:00\". If there "
  3564. "is no clock available, then the value of TIME$ shall be \"99:99:99\". "
  3565. " The value of TIME$ at midnight is \"00:00:00\". The value of "
  3566. "X is ignored.", /* Description */
  3567. "TIME$", /* Name */
  3568. StringTypeCode, /* ReturnTypeCode */
  3569. 1, /* ParameterCount */
  3570. P1NUM, /* ParameterTypes */
  3571. P1ANY, /* ParameterTests */
  3572. B15 | HB2 | D71 /* OptionVersionBitmask */
  3573. },
  3574. {
  3575. F_TIMER_N, /* UniqueID */
  3576. "N = TIMER", /* Syntax */
  3577. "The time in the system clock in seconds elapsed since midnight.", /* Description */
  3578. "TIMER", /* Name */
  3579. DoubleTypeCode, /* ReturnTypeCode */
  3580. 0, /* ParameterCount */
  3581. PNONE, /* ParameterTypes */
  3582. PNONE, /* ParameterTests */
  3583. B15 | B93 | H14 | M80 | D71 | T80 /* OptionVersionBitmask */
  3584. },
  3585. {
  3586. F_TOP_N, /* UniqueID */
  3587. "N = TOP", /* Syntax */
  3588. "The address of the top of available memory. This function is "
  3589. "provided for backward compatibility only and it always returns "
  3590. "a fixed value of 32000.", /* Description */
  3591. "TOP", /* Name */
  3592. DoubleTypeCode, /* ReturnTypeCode */
  3593. 0, /* ParameterCount */
  3594. PNONE, /* ParameterTypes */
  3595. PNONE, /* ParameterTests */
  3596. HB2 /* OptionVersionBitmask */
  3597. },
  3598. {
  3599. F_TRACE_N, /* UniqueID */
  3600. "N = TRACE", /* Syntax */
  3601. "Turn tracing ON", /* Description */
  3602. "TRACE", /* Name */
  3603. DoubleTypeCode, /* ReturnTypeCode */
  3604. 0, /* ParameterCount */
  3605. PNONE, /* ParameterTypes */
  3606. PNONE, /* ParameterTests */
  3607. HB1 | HB2 /* OptionVersionBitmask */
  3608. },
  3609. {
  3610. F_TRACE_X_N, /* UniqueID */
  3611. "N = TRACE( X )", /* Syntax */
  3612. "When X is zero turn tracing off. When X is non-zero turn tracing "
  3613. "ON", /* Description */
  3614. "TRACE", /* Name */
  3615. DoubleTypeCode, /* ReturnTypeCode */
  3616. 1, /* ParameterCount */
  3617. P1NUM, /* ParameterTypes */
  3618. P1BYT, /* ParameterTests */
  3619. R86 /* OptionVersionBitmask */
  3620. },
  3621. {
  3622. F_TRIM4_A_S, /* UniqueID */
  3623. "S$ = TRIM$( A$ )", /* Syntax */
  3624. "The string resulting from removing both leading and trailing "
  3625. "spaces from A$.", /* Description */
  3626. "TRIM$", /* Name */
  3627. StringTypeCode, /* ReturnTypeCode */
  3628. 1, /* ParameterCount */
  3629. P1STR, /* ParameterTypes */
  3630. P1ANY, /* ParameterTests */
  3631. B15 | E86 | M80 | D71 | T80 /* OptionVersionBitmask */
  3632. },
  3633. {
  3634. F_TROFF_N, /* UniqueID */
  3635. "N = TROFF", /* Syntax */
  3636. "Turn tracing OFF", /* Description */
  3637. "TROFF", /* Name */
  3638. DoubleTypeCode, /* ReturnTypeCode */
  3639. 0, /* ParameterCount */
  3640. PNONE, /* ParameterTypes */
  3641. PNONE, /* ParameterTests */
  3642. B15 | B93 | E86 | H14 | HB1 | HB2 | M80 | D71 | T80 | T79 /* OptionVersionBitmask */
  3643. },
  3644. {
  3645. F_TRON_N, /* UniqueID */
  3646. "N = TRON", /* Syntax */
  3647. "Turn tracing ON", /* Description */
  3648. "TRON", /* Name */
  3649. DoubleTypeCode, /* ReturnTypeCode */
  3650. 0, /* ParameterCount */
  3651. PNONE, /* ParameterTypes */
  3652. PNONE, /* ParameterTests */
  3653. B15 | B93 | E86 | H14 | HB1 | HB2 | M80 | D71 | T80 | T79 /* OptionVersionBitmask */
  3654. },
  3655. {
  3656. F_TRUE_N, /* UniqueID */
  3657. "N = TRUE", /* Syntax */
  3658. "The value of TRUE.", /* Description */
  3659. "TRUE", /* Name */
  3660. IntegerTypeCode, /* ReturnTypeCode */
  3661. 0, /* ParameterCount */
  3662. PNONE, /* ParameterTypes */
  3663. PNONE, /* ParameterTests */
  3664. H14 /* OptionVersionBitmask */
  3665. },
  3666. {
  3667. F_TRUNCATE_X_Y_N, /* UniqueID */
  3668. "N = TRUNCATE( X, Y )", /* Syntax */
  3669. "The value of X truncated to Y decimal digits to the right of "
  3670. "the decimal point (or -Y digits to the left if Y < 0); i.e., "
  3671. "IP(X*10^Y)/10^Y. Y in [-32,32].", /* Description */
  3672. "TRUNCATE", /* Name */
  3673. DoubleTypeCode, /* ReturnTypeCode */
  3674. 2, /* ParameterCount */
  3675. P1NUM | P2NUM, /* ParameterTypes */
  3676. P1ANY | P2INT, /* ParameterTests */
  3677. B15 | E86 /* OptionVersionBitmask */
  3678. },
  3679. {
  3680. F_UBOUND_N, /* UniqueID */
  3681. "N = UBOUND( ... )", /* Syntax */
  3682. "UBOUND( arrayname [, dimension] ). The upper bound of the array. "
  3683. " The dimension defaults to 1. dimension in [1,DIM(arrayname)]", /* Description */
  3684. "UBOUND", /* Name */
  3685. DoubleTypeCode, /* ReturnTypeCode */
  3686. 255, /* ParameterCount */
  3687. PNONE, /* ParameterTypes */
  3688. PNONE, /* ParameterTests */
  3689. B15 | E86 /* OptionVersionBitmask */
  3690. },
  3691. {
  3692. F_UCASE4_A_S, /* UniqueID */
  3693. "S$ = UCASE$( A$ )", /* Syntax */
  3694. "The string of characters resulting from the value associated "
  3695. "with A$ by replacing each lower-case-letter in the string by "
  3696. "its upper-case version.", /* Description */
  3697. "UCASE$", /* Name */
  3698. StringTypeCode, /* ReturnTypeCode */
  3699. 1, /* ParameterCount */
  3700. P1STR, /* ParameterTypes */
  3701. P1ANY, /* ParameterTests */
  3702. B15 | C77 | E86 | H14 | M80 | D71 | T80 /* OptionVersionBitmask */
  3703. },
  3704. {
  3705. F_UNLOCK_X_N, /* UniqueID */
  3706. "N = UNLOCK( X )", /* Syntax */
  3707. "Unlock file number X. Causes ERROR 73.", /* Description */
  3708. "UNLOCK", /* Name */
  3709. DoubleTypeCode, /* ReturnTypeCode */
  3710. 1, /* ParameterCount */
  3711. P1NUM, /* ParameterTypes */
  3712. P1INT, /* ParameterTests */
  3713. H14 /* OptionVersionBitmask */
  3714. },
  3715. {
  3716. F_UNSAVE_A_N, /* UniqueID */
  3717. "N = UNSAVE( A$ )", /* Syntax */
  3718. "Removes the file named in A$.", /* Description */
  3719. "UNSAVE", /* Name */
  3720. DoubleTypeCode, /* ReturnTypeCode */
  3721. 1, /* ParameterCount */
  3722. P1STR, /* ParameterTypes */
  3723. P1BYT, /* ParameterTests */
  3724. D64 | G74 | H80 | G65 | G67 | D71 /* OptionVersionBitmask */
  3725. },
  3726. {
  3727. F_UPPER4_A_S, /* UniqueID */
  3728. "S$ = UPPER$( A$ )", /* Syntax */
  3729. "The string of characters resulting from the value associated "
  3730. "with A$ by replacing each lower-case-letter in the string by "
  3731. "its upper-case version.", /* Description */
  3732. "UPPER$", /* Name */
  3733. StringTypeCode, /* ReturnTypeCode */
  3734. 1, /* ParameterCount */
  3735. P1STR, /* ParameterTypes */
  3736. P1ANY, /* ParameterTests */
  3737. H14 /* OptionVersionBitmask */
  3738. },
  3739. {
  3740. F_USR_N, /* UniqueID */
  3741. "N = USR( ... )", /* Syntax */
  3742. "Execute hardware program. Causes ERROR 73.", /* Description */
  3743. "USR", /* Name */
  3744. DoubleTypeCode, /* ReturnTypeCode */
  3745. 255, /* ParameterCount */
  3746. PNONE, /* ParameterTypes */
  3747. PNONE, /* ParameterTests */
  3748. M80 | R86 | T80 | T79 /* OptionVersionBitmask */
  3749. },
  3750. {
  3751. F_USR0_N, /* UniqueID */
  3752. "N = USR0( ... )", /* Syntax */
  3753. "Execute hardware program. Causes ERROR 73.", /* Description */
  3754. "USR0", /* Name */
  3755. DoubleTypeCode, /* ReturnTypeCode */
  3756. 255, /* ParameterCount */
  3757. PNONE, /* ParameterTypes */
  3758. PNONE, /* ParameterTests */
  3759. M80 | R86 | T80 | T79 /* OptionVersionBitmask */
  3760. },
  3761. {
  3762. F_USR1_N, /* UniqueID */
  3763. "N = USR1( ... )", /* Syntax */
  3764. "Execute hardware program. Causes ERROR 73.", /* Description */
  3765. "USR1", /* Name */
  3766. DoubleTypeCode, /* ReturnTypeCode */
  3767. 255, /* ParameterCount */
  3768. PNONE, /* ParameterTypes */
  3769. PNONE, /* ParameterTests */
  3770. M80 | R86 | T80 | T79 /* OptionVersionBitmask */
  3771. },
  3772. {
  3773. F_USR2_N, /* UniqueID */
  3774. "N = USR2( ... )", /* Syntax */
  3775. "Execute hardware program. Causes ERROR 73.", /* Description */
  3776. "USR2", /* Name */
  3777. DoubleTypeCode, /* ReturnTypeCode */
  3778. 255, /* ParameterCount */
  3779. PNONE, /* ParameterTypes */
  3780. PNONE, /* ParameterTests */
  3781. M80 | R86 | T80 | T79 /* OptionVersionBitmask */
  3782. },
  3783. {
  3784. F_USR3_N, /* UniqueID */
  3785. "N = USR3( ... )", /* Syntax */
  3786. "Execute hardware program. Causes ERROR 73.", /* Description */
  3787. "USR3", /* Name */
  3788. DoubleTypeCode, /* ReturnTypeCode */
  3789. 255, /* ParameterCount */
  3790. PNONE, /* ParameterTypes */
  3791. PNONE, /* ParameterTests */
  3792. M80 | R86 | T80 | T79 /* OptionVersionBitmask */
  3793. },
  3794. {
  3795. F_USR4_N, /* UniqueID */
  3796. "N = USR4( ... )", /* Syntax */
  3797. "Execute hardware program. Causes ERROR 73.", /* Description */
  3798. "USR4", /* Name */
  3799. DoubleTypeCode, /* ReturnTypeCode */
  3800. 255, /* ParameterCount */
  3801. PNONE, /* ParameterTypes */
  3802. PNONE, /* ParameterTests */
  3803. M80 | R86 | T80 | T79 /* OptionVersionBitmask */
  3804. },
  3805. {
  3806. F_USR5_N, /* UniqueID */
  3807. "N = USR5( ... )", /* Syntax */
  3808. "Execute hardware program. Causes ERROR 73.", /* Description */
  3809. "USR5", /* Name */
  3810. DoubleTypeCode, /* ReturnTypeCode */
  3811. 255, /* ParameterCount */
  3812. PNONE, /* ParameterTypes */
  3813. PNONE, /* ParameterTests */
  3814. M80 | R86 | T80 | T79 /* OptionVersionBitmask */
  3815. },
  3816. {
  3817. F_USR6_N, /* UniqueID */
  3818. "N = USR6( ... )", /* Syntax */
  3819. "Execute hardware program. Causes ERROR 73.", /* Description */
  3820. "USR6", /* Name */
  3821. DoubleTypeCode, /* ReturnTypeCode */
  3822. 255, /* ParameterCount */
  3823. PNONE, /* ParameterTypes */
  3824. PNONE, /* ParameterTests */
  3825. M80 | R86 | T80 | T79 /* OptionVersionBitmask */
  3826. },
  3827. {
  3828. F_USR7_N, /* UniqueID */
  3829. "N = USR7( ... )", /* Syntax */
  3830. "Execute hardware program. Causes ERROR 73.", /* Description */
  3831. "USR7", /* Name */
  3832. DoubleTypeCode, /* ReturnTypeCode */
  3833. 255, /* ParameterCount */
  3834. PNONE, /* ParameterTypes */
  3835. PNONE, /* ParameterTests */
  3836. M80 | R86 | T80 | T79 /* OptionVersionBitmask */
  3837. },
  3838. {
  3839. F_USR8_N, /* UniqueID */
  3840. "N = USR8( ... )", /* Syntax */
  3841. "Execute hardware program. Causes ERROR 73.", /* Description */
  3842. "USR8", /* Name */
  3843. DoubleTypeCode, /* ReturnTypeCode */
  3844. 255, /* ParameterCount */
  3845. PNONE, /* ParameterTypes */
  3846. PNONE, /* ParameterTests */
  3847. M80 | R86 | T80 | T79 /* OptionVersionBitmask */
  3848. },
  3849. {
  3850. F_USR9_N, /* UniqueID */
  3851. "N = USR9( ... )", /* Syntax */
  3852. "Execute hardware program. Causes ERROR 73.", /* Description */
  3853. "USR9", /* Name */
  3854. DoubleTypeCode, /* ReturnTypeCode */
  3855. 255, /* ParameterCount */
  3856. PNONE, /* ParameterTypes */
  3857. PNONE, /* ParameterTests */
  3858. M80 | R86 | T80 | T79 /* OptionVersionBitmask */
  3859. },
  3860. {
  3861. F_UUF_N, /* UniqueID */
  3862. "N = UUF( ... )", /* Syntax */
  3863. "Execute hardware program. Causes ERROR 73.", /* Description */
  3864. "UUF", /* Name */
  3865. DoubleTypeCode, /* ReturnTypeCode */
  3866. 255, /* ParameterCount */
  3867. PNONE, /* ParameterTypes */
  3868. PNONE, /* ParameterTests */
  3869. D73 /* OptionVersionBitmask */
  3870. },
  3871. {
  3872. F_VAL_A_N, /* UniqueID */
  3873. "N = VAL( A$ )", /* Syntax */
  3874. "The value of the numeric-constant associated with A$, if the "
  3875. "string associated with A$ is a numeric-constant. Leading and "
  3876. "trailing spaces in the string are ignored. If the evaluation "
  3877. "of the numeric-constant would result in a value which causes "
  3878. "an underflow, then the value returned shall be zero. For example, "
  3879. "VAL( \" 123.5 \" ) = 123.5, VAL( \"2.E-99\" ) could be zero, and "
  3880. "VAL( \"MCMXVII\" ) causes an exception.", /* Description */
  3881. "VAL", /* Name */
  3882. DoubleTypeCode, /* ReturnTypeCode */
  3883. 1, /* ParameterCount */
  3884. P1STR, /* ParameterTypes */
  3885. P1BYT, /* ParameterTests */
  3886. B15 | B93 | S70 | C77 | D64 | E78 | E86 | G74 | H14 | HB1 | HB2 | H80 | G65 | G67 | M80 | R86 | D71 | I70 | I73 | T80 | V09 | T79 /* OptionVersionBitmask */
  3887. },
  3888. {
  3889. F_VARPTR_N, /* UniqueID */
  3890. "N = VARPTR( ... )", /* Syntax */
  3891. "Returns hardware address of variable. Causes ERROR 73.", /* Description */
  3892. "VARPTR", /* Name */
  3893. DoubleTypeCode, /* ReturnTypeCode */
  3894. 255, /* ParameterCount */
  3895. PNONE, /* ParameterTypes */
  3896. PNONE, /* ParameterTests */
  3897. M80 /* OptionVersionBitmask */
  3898. },
  3899. {
  3900. F_VTAB_X_N, /* UniqueID */
  3901. "N = VTAB( X )", /* Syntax */
  3902. "Savme as LOCATE X, 1.", /* Description */
  3903. "VTAB", /* Name */
  3904. DoubleTypeCode, /* ReturnTypeCode */
  3905. 1, /* ParameterCount */
  3906. P1NUM, /* ParameterTypes */
  3907. P1BYT, /* ParameterTests */
  3908. HB1 | HB2 /* OptionVersionBitmask */
  3909. },
  3910. {
  3911. F_WAIT_X_N, /* UniqueID */
  3912. "N = WAIT( X )", /* Syntax */
  3913. "The program pauses for X times the value of OPTION SLEEP seconds. "
  3914. " If the result is zero, negative, or more than INT_MAX then WAIT "
  3915. "does nothing. The resolution is implementation defined.", /* Description */
  3916. "WAIT", /* Name */
  3917. DoubleTypeCode, /* ReturnTypeCode */
  3918. 1, /* ParameterCount */
  3919. P1NUM, /* ParameterTypes */
  3920. P1ANY, /* ParameterTests */
  3921. B15 | HB1 | HB2 | D71 /* OptionVersionBitmask */
  3922. },
  3923. {
  3924. F_WAIT_X_Y_N, /* UniqueID */
  3925. "N = WAIT( X, Y )", /* Syntax */
  3926. "Waits for the value of (INP(X) AND Y) to become nonzero. Causes "
  3927. "ERROR 73.", /* Description */
  3928. "WAIT", /* Name */
  3929. DoubleTypeCode, /* ReturnTypeCode */
  3930. 2, /* ParameterCount */
  3931. P1NUM | P2NUM, /* ParameterTypes */
  3932. P1INT | P2BYT, /* ParameterTests */
  3933. B15 | H14 | HB1 | HB2 | M80 | D71 | T80 /* OptionVersionBitmask */
  3934. },
  3935. {
  3936. F_WAIT_X_Y_Z_N, /* UniqueID */
  3937. "N = WAIT( X, Y, Z )", /* Syntax */
  3938. "Waits for the value of ((INP(X) XOR Z) AND Y) to become nonzero. "
  3939. " Causes ERROR 73.", /* Description */
  3940. "WAIT", /* Name */
  3941. DoubleTypeCode, /* ReturnTypeCode */
  3942. 3, /* ParameterCount */
  3943. P1NUM | P2NUM | P3NUM, /* ParameterTypes */
  3944. P1INT | P2BYT | P3BYT, /* ParameterTests */
  3945. B15 | H14 | HB1 | HB2 | M80 | D71 | T80 /* OptionVersionBitmask */
  3946. },
  3947. {
  3948. F_WIDTH_X_N, /* UniqueID */
  3949. "N = WIDTH( X )", /* Syntax */
  3950. "For console, sets the line width to X. Zero means no wrapping "
  3951. "will occur.", /* Description */
  3952. "WIDTH", /* Name */
  3953. DoubleTypeCode, /* ReturnTypeCode */
  3954. 1, /* ParameterCount */
  3955. P1NUM, /* ParameterTypes */
  3956. P1BYT, /* ParameterTests */
  3957. B15 | B93 | H14 | M80 | D71 | T80 /* OptionVersionBitmask */
  3958. },
  3959. {
  3960. F_WIDTH_X_Y_N, /* UniqueID */
  3961. "N = WIDTH( X, Y )", /* Syntax */
  3962. "If X = 0, sets the console width to Y.\nIf X < 0, sets the printer "
  3963. "width to Y.\nIf X is an open file number, sets the file line width "
  3964. "to Y.\nOtherwise sets the console rows to X and the line width "
  3965. "to Y.\nA value of zero for Y means no wrapping will occur.", /* Description */
  3966. "WIDTH", /* Name */
  3967. DoubleTypeCode, /* ReturnTypeCode */
  3968. 2, /* ParameterCount */
  3969. P1NUM | P2NUM, /* ParameterTypes */
  3970. P1INT | P2BYT, /* ParameterTests */
  3971. B15 | B93 | H14 | HB1 | HB2 | M80 | D71 | T80 /* OptionVersionBitmask */
  3972. },
  3973. {
  3974. F_ZONE_X_N, /* UniqueID */
  3975. "N = ZONE( X )", /* Syntax */
  3976. "Sets the width of the print zones.", /* Description */
  3977. "ZONE", /* Name */
  3978. DoubleTypeCode, /* ReturnTypeCode */
  3979. 1, /* ParameterCount */
  3980. P1NUM, /* ParameterTypes */
  3981. P1INT, /* ParameterTests */
  3982. H14 /* OptionVersionBitmask */
  3983. },
  3984. {
  3985. F_ZONE_X_Y_N, /* UniqueID */
  3986. "N = ZONE( X, Y )", /* Syntax */
  3987. "X is ignored. Y sets the width of the print zones.", /* Description */
  3988. "ZONE", /* Name */
  3989. DoubleTypeCode, /* ReturnTypeCode */
  3990. 2, /* ParameterCount */
  3991. P1NUM | P2NUM, /* ParameterTypes */
  3992. P1INT | P2INT, /* ParameterTests */
  3993. H14 /* OptionVersionBitmask */
  3994. },
  3995. };
  3996. const size_t NUM_FUNCTIONS =
  3997. sizeof (IntrinsicFunctionTable) / sizeof (IntrinsicFunctionType);
  3998. /* EOF */