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.

bwd_cmd.c 70 KiB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839
  1. /***************************************************************
  2. bwd_cmd.c Command 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. /*---------------------------------------------------------------*/
  29. /* COMMAND TABLE */
  30. #include "bwbasic.h"
  31. CommandType bwb_cmdtable[ NUM_COMMANDS ] =
  32. {
  33. {
  34. C_QUEST, /* UniqueID */
  35. "? expressions...", /* Syntax */
  36. "This is just a shortcut for PRINT.", /* Description */
  37. "?", /* Name */
  38. B15 | D71 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  39. },
  40. {
  41. C_APPEND, /* UniqueID */
  42. "APPEND filename$ | APPEND # filenumber", /* Syntax */
  43. "APPEND filename$ Merges the BASIC program in file-name into t"
  44. "he current BASIC program; lines in filename$ replace any matc"
  45. "hing lines in the current program. APPEND # positions filenu"
  46. "mber at EOF and sets the file to writing; filenumber <= 0 is "
  47. "ignored.", /* Description */
  48. "APPEND", /* Name */
  49. B15 | D64 | G65 | G67 | HB2 /* OptionVersionBitmask */
  50. },
  51. {
  52. C_AS, /* UniqueID */
  53. "AS string-variable$ [, ...]", /* Syntax */
  54. "AS by itself is a Syntax Error. Use FIELD ... AS instead.", /* Description */
  55. "AS", /* Name */
  56. B15 | D71 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  57. },
  58. {
  59. C_AUTO, /* UniqueID */
  60. "AUTO [start [, increment]]", /* Syntax */
  61. "Automatic line numbering for manual program entry. If the li"
  62. "ne already exists, then an asterisk is displayed and pressing"
  63. " ENTER leaves the line as-is. If the line does not exist, th"
  64. "en an asterisk is not displayed and pressing ENTER terminates"
  65. " AUTO mode. Regardless of the line's existance, entering the"
  66. " command MAN will terminate AUTO mode. AUTO mode is also ter"
  67. "minated by any ERROR or by pressing control-C.", /* Description */
  68. "AUTO", /* Name */
  69. B15 | D71 | HB1 | HB2 | T80 | M80 | M85 | M88 /* OptionVersionBitmask */
  70. },
  71. {
  72. C_BACKSPACE, /* UniqueID */
  73. "BACKSPACE # X", /* Syntax */
  74. "Points the file to the previous item.", /* Description */
  75. "BACKSPACE", /* Name */
  76. D64 | G65 | G67 /* OptionVersionBitmask */
  77. },
  78. {
  79. C_BREAK, /* UniqueID */
  80. "BREAK line [, ...]]", /* Syntax */
  81. "Diagnostic command to stop execution at the specified line(s)"
  82. ". BREAK only applies to user-numbered lines. For multi-stat"
  83. "ement lines, BREAK only applies to the first statement. BREA"
  84. "K effectively inserts a hidden STOP command immediately after"
  85. " the line number. Once a BREAK occurrs on a specified line, "
  86. "it is automatically removed. To remove all existing BREAKs, "
  87. "execute BREAK without any line numbers.", /* Description */
  88. "BREAK", /* Name */
  89. B15 | HB1 | HB2 /* OptionVersionBitmask */
  90. },
  91. {
  92. C_BYE, /* UniqueID */
  93. "BYE", /* Syntax */
  94. "Exits to the operating system.", /* Description */
  95. "BYE", /* Name */
  96. B15 | D64 | G65 | G67 | D71 | HB2 /* OptionVersionBitmask */
  97. },
  98. {
  99. C_CALL, /* UniqueID */
  100. "CALL subroutine-name( [parameter [, ...] ] )", /* Syntax */
  101. "Calls a subroutine that was defined by SUB and END SUB.", /* Description */
  102. "CALL", /* Name */
  103. B15 | M88 | VBX /* OptionVersionBitmask */
  104. },
  105. {
  106. C_CASE, /* UniqueID */
  107. "CASE constant [TO constant] | CASE IF partial-expression | CA"
  108. "SE IS partial-expression", /* Syntax */
  109. "Introduces an element of a SELECT CASE statement. Multiple t"
  110. "ests must be seperated a comma. For example: CASE 1, 2 TO 3"
  111. ", IS > 4, IF < 5", /* Description */
  112. "CASE", /* Name */
  113. B15 | E86 | M88 | VBX /* OptionVersionBitmask */
  114. },
  115. {
  116. C_CASE_ELSE, /* UniqueID */
  117. "CASE ELSE", /* Syntax */
  118. "Introduces a default SELECT CASE element.", /* Description */
  119. "CASE ELSE", /* Name */
  120. B15 | E86 | M88 | VBX /* OptionVersionBitmask */
  121. },
  122. {
  123. C_CHAIN, /* UniqueID */
  124. "CHAIN filename$ [, linenumber]", /* Syntax */
  125. "Load and execute another BASIC program, without clearing comm"
  126. "on variables. For System/370, the syntax is CHAIN filename$,"
  127. "parameter$.", /* Description */
  128. "CHAIN", /* Name */
  129. B15 | G65 | G67 | I70 | D71 | I73 | C77 | HB1 | HB2 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  130. },
  131. {
  132. C_CHANGE, /* UniqueID */
  133. "CHANGE A$ TO X | CHANGE X TO A$", /* Syntax */
  134. "Changes a string to a numeric array or a numeric array to a s"
  135. "tring.", /* Description */
  136. "CHANGE", /* Name */
  137. B15 | D64 | G65 | G67 | D71 /* OptionVersionBitmask */
  138. },
  139. {
  140. C_CLEAR, /* UniqueID */
  141. "CLEAR", /* Syntax */
  142. "Sets all numeric variables to 0, and all string variables to "
  143. "empty strings.", /* Description */
  144. "CLEAR", /* Name */
  145. B15 | D71 | HB1 | HB2 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  146. },
  147. {
  148. C_CLOAD, /* UniqueID */
  149. "CLOAD [file-name$]", /* Syntax */
  150. "Loads an ASCII BASIC program into memory.", /* Description */
  151. "CLOAD", /* Name */
  152. B15 | D71 | HB1 | HB2 | T80 | M80 | M85 /* OptionVersionBitmask */
  153. },
  154. {
  155. C_CLOAD8, /* UniqueID */
  156. "CLOAD* ArrayName", /* Syntax */
  157. "Loads a numeric array from a file saved using CSAVE*.", /* Description */
  158. "CLOAD*", /* Name */
  159. B15 | D71 | HB1 | HB2 | T80 | M80 | M85 /* OptionVersionBitmask */
  160. },
  161. {
  162. C_CLOSE, /* UniqueID */
  163. "CLOSE filename$ [, ...]", /* Syntax */
  164. "Closes an input or output file.", /* Description */
  165. "CLOSE", /* Name */
  166. I70 | D71 | I73 | C77 /* OptionVersionBitmask */
  167. },
  168. {
  169. C_CLR, /* UniqueID */
  170. "CLR", /* Syntax */
  171. "Sets all numeric variables to 0, and all string variables to "
  172. "empty strings.", /* Description */
  173. "CLR", /* Name */
  174. HB1 | HB2 /* OptionVersionBitmask */
  175. },
  176. {
  177. C_CMDS, /* UniqueID */
  178. "CMDS", /* Syntax */
  179. "Prints a list of all implemented BASIC commands.", /* Description */
  180. "CMDS", /* Name */
  181. B15 /* OptionVersionBitmask */
  182. },
  183. {
  184. C_COMMON, /* UniqueID */
  185. "COMMON variable [, ...]", /* Syntax */
  186. "Designates variables to be passed to a CHAINed program.", /* Description */
  187. "COMMON", /* Name */
  188. B15 | D71 | C77 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  189. },
  190. {
  191. C_CONSOLE, /* UniqueID */
  192. "CONSOLE [WIDTH width]", /* Syntax */
  193. "Directs the output of PRINT commands to the console (stdout),"
  194. " and optionally changes the console width.", /* Description */
  195. "CONSOLE", /* Name */
  196. C77 /* OptionVersionBitmask */
  197. },
  198. {
  199. C_CONT, /* UniqueID */
  200. "CONT", /* Syntax */
  201. "Continue a BASIC program after a STOP has been executed. Pro"
  202. "gram resumes at the line after the STOP.", /* Description */
  203. "CONT", /* Name */
  204. B15 | D71 | HB1 | HB2 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  205. },
  206. {
  207. C_CREATE, /* UniqueID */
  208. "CREATE filename$ [ RECL reclen ] AS filenum [ BUFF number ] ["
  209. " RECS size ]", /* Syntax */
  210. "Creates the file and opens it. If the file already exists, t"
  211. "hen it is ereased. If the file cannot be created, then an er"
  212. "ror occurs.", /* Description */
  213. "CREATE", /* Name */
  214. C77 /* OptionVersionBitmask */
  215. },
  216. {
  217. C_CSAVE, /* UniqueID */
  218. "CSAVE [file-name$]", /* Syntax */
  219. "Saves the current program into the file file-name$ in ASCII f"
  220. "ormat.", /* Description */
  221. "CSAVE", /* Name */
  222. B15 | D71 | HB1 | HB2 | T80 | M80 | M85 /* OptionVersionBitmask */
  223. },
  224. {
  225. C_CSAVE8, /* UniqueID */
  226. "CSAVE* ArrayName", /* Syntax */
  227. "Saves a numeric array into a file for later loading by CLOAD*"
  228. ".", /* Description */
  229. "CSAVE*", /* Name */
  230. B15 | D71 | HB1 | HB2 | T80 | M80 | M85 /* OptionVersionBitmask */
  231. },
  232. {
  233. C_DATA, /* UniqueID */
  234. "DATA constant [, ...]", /* Syntax */
  235. "Stores numeric and string constants to be accessed by READ.", /* Description */
  236. "DATA", /* Name */
  237. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  238. },
  239. {
  240. C_DEF, /* UniqueID */
  241. "DEF FNname[(arg...)] [= expression]", /* Syntax */
  242. "Defines a user-written function. Single line DEF functions u"
  243. "se '= expression'. Multiple line DEF functions do not use '="
  244. " expression' and must end with FNEND.", /* Description */
  245. "DEF", /* Name */
  246. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  247. },
  248. {
  249. C_DEF_SUB, /* UniqueID */
  250. "DEF SUB", /* Syntax */
  251. "An internal command that allows the BASIC program to execute "
  252. "any function as though it were a command. You do not directl"
  253. "y call this command. If your program has a line beginning w"
  254. "ith a functio name, then DEF SUB is used to execute the funct"
  255. "ion and ignore the result.", /* Description */
  256. "DEF SUB", /* Name */
  257. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  258. },
  259. {
  260. C_DEFBYT, /* UniqueID */
  261. "DEFBYT letter[-letter] [, ...]", /* Syntax */
  262. "Declares variables with single-letter names as numeric variab"
  263. "les. TODO: enforce the range of [MINBYT,MAXBYT].", /* Description */
  264. "DEFBYT", /* Name */
  265. B15 | D71 | HB1 | HB2 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  266. },
  267. {
  268. C_DEFCUR, /* UniqueID */
  269. "DEFCUR letter[-letter] [, ...]", /* Syntax */
  270. "Declares variables with single-letter names as numeric variab"
  271. "les. TODO: enforce the range of [MINCUR,MAXCUR].", /* Description */
  272. "DEFCUR", /* Name */
  273. B15 | D71 | HB1 | HB2 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  274. },
  275. {
  276. C_DEFDBL, /* UniqueID */
  277. "DEFDBL letter[-letter] [, ...]", /* Syntax */
  278. "Declares variables with single-letter names as numeric variab"
  279. "les. TODO: enforce the range of [MINDBL,MAXDBL].", /* Description */
  280. "DEFDBL", /* Name */
  281. B15 | D71 | HB1 | HB2 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  282. },
  283. {
  284. C_DEFINT, /* UniqueID */
  285. "DEFINT letter[-letter] [, ...]", /* Syntax */
  286. "Declares variables with single-letter names as numeric variab"
  287. "les. TODO: enforce the range of [MININT,MAXINT].", /* Description */
  288. "DEFINT", /* Name */
  289. B15 | D71 | HB1 | HB2 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  290. },
  291. {
  292. C_DEFLNG, /* UniqueID */
  293. "DEFLNG letter[-letter] [, ...]", /* Syntax */
  294. "Declares variables with single-letter names as numeric variab"
  295. "les. TODO: enforce the range of [MINLNG,MAXLNG].", /* Description */
  296. "DEFLNG", /* Name */
  297. B15 | D71 | HB1 | HB2 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  298. },
  299. {
  300. C_DEFSNG, /* UniqueID */
  301. "DEFSNG letter[-letter] [, ...]", /* Syntax */
  302. "Declares variables with single-letter names as numeric variab"
  303. "les. TODO: enforce the range of [MINSNG,MAXSNG].", /* Description */
  304. "DEFSNG", /* Name */
  305. B15 | D71 | HB1 | HB2 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  306. },
  307. {
  308. C_DEFSTR, /* UniqueID */
  309. "DEFSTR letter[-letter] [, ...]", /* Syntax */
  310. "Declares variables with single-letter names as string variabl"
  311. "es. TODO: enforce the range of [MINLEN,MAXLEN].", /* Description */
  312. "DEFSTR", /* Name */
  313. B15 | D71 | HB1 | HB2 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  314. },
  315. {
  316. C_DELETE, /* UniqueID */
  317. "DELETE line [- line]", /* Syntax */
  318. "Deletes program lines indicated by the argument(s). All prog"
  319. "ram lines have a number, which is visible with the LIST comma"
  320. "nd. If line numbers are not provided, they are assigned begi"
  321. "nning with 1. Deleting a non-existing line does not cause an"
  322. " error. For CBASIC-II, the syntax is DELETE filenumber.", /* Description */
  323. "DELETE", /* Name */
  324. B15 | D71 | C77 | HB1 | HB2 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  325. },
  326. {
  327. C_DELIMIT, /* UniqueID */
  328. "DELIMIT # X, A$", /* Syntax */
  329. "Sets the delimiter for READ # and WRITE #.", /* Description */
  330. "DELIMIT", /* Name */
  331. G65 | G67 /* OptionVersionBitmask */
  332. },
  333. {
  334. C_DIM, /* UniqueID */
  335. "DIM [ # filenum , ] variable( elements [, ...]) [, ...]", /* Syntax */
  336. "Specifies the dimensions of an array variables.", /* Description */
  337. "DIM", /* Name */
  338. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  339. },
  340. {
  341. C_DO, /* UniqueID */
  342. "DO [UNTIL|WHILE expression]", /* Syntax */
  343. "Top of a DO - LOOP structure. DO: If the loop is not termina"
  344. "ted by EXIT DO or LOOP UNTIL or LOOP WHILE, then it will loop"
  345. " forever. DO UNTIL: exits when non-zero. DO WHILE: exits wh"
  346. "en zero.", /* Description */
  347. "DO", /* Name */
  348. B15 | E86 | M88 | VBX /* OptionVersionBitmask */
  349. },
  350. {
  351. C_DSP, /* UniqueID */
  352. "DSP variable [, ...]]", /* Syntax */
  353. "Diagnostic command to display the value every time the variab"
  354. "le is assigned. To remove all existing DSPs, execute DSP wit"
  355. "hout any variables.", /* Description */
  356. "DSP", /* Name */
  357. B15 | HB1 | HB2 /* OptionVersionBitmask */
  358. },
  359. {
  360. C_EDIT, /* UniqueID */
  361. "EDIT", /* Syntax */
  362. "implementation defined.", /* Description */
  363. "EDIT", /* Name */
  364. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  365. },
  366. {
  367. C_ELSE, /* UniqueID */
  368. "ELSE", /* Syntax */
  369. "Introduces a default condition in a multi-line IF statement.", /* Description */
  370. "ELSE", /* Name */
  371. B15 | D71 | C77 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  372. },
  373. {
  374. C_ELSEIF, /* UniqueID */
  375. "ELSEIF", /* Syntax */
  376. "Introduces a secondary condition in a multi-line IF statement"
  377. ".", /* Description */
  378. "ELSEIF", /* Name */
  379. B15 | D71 | C77 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  380. },
  381. {
  382. C_END, /* UniqueID */
  383. "END", /* Syntax */
  384. "Terminates program execution. If the BASIC program was execut"
  385. "ed from the operating system level, then control returns to t"
  386. "he operating system, oterwise control reuturns to the BASIC p"
  387. "rompt.", /* Description */
  388. "END", /* Name */
  389. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  390. },
  391. {
  392. C_END_FUNCTION, /* UniqueID */
  393. "END FUNCTION", /* Syntax */
  394. "Specifies the last line of a multi-line FUNCTION definition.", /* Description */
  395. "END FUNCTION", /* Name */
  396. B15 | E86 | M88 | VBX /* OptionVersionBitmask */
  397. },
  398. {
  399. C_END_IF, /* UniqueID */
  400. "END IF", /* Syntax */
  401. "Specifies the last line of a multi-line IF definition.", /* Description */
  402. "END IF", /* Name */
  403. B15 | D71 | C77 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  404. },
  405. {
  406. C_END_SELECT, /* UniqueID */
  407. "END SELECT", /* Syntax */
  408. "Specifies the last line of a multi-line SELECT CASE definitio"
  409. "n.", /* Description */
  410. "END SELECT", /* Name */
  411. B15 | E86 | M88 | VBX /* OptionVersionBitmask */
  412. },
  413. {
  414. C_END_SUB, /* UniqueID */
  415. "END SUB", /* Syntax */
  416. "Specifies the last line of a multi-line SUB definition.", /* Description */
  417. "END SUB", /* Name */
  418. B15 | E86 | M88 | VBX /* OptionVersionBitmask */
  419. },
  420. {
  421. C_ERASE, /* UniqueID */
  422. "ERASE variable [, ...]", /* Syntax */
  423. "Eliminates arrayed variables from a program.", /* Description */
  424. "ERASE", /* Name */
  425. B15 | D71 | HB1 | HB2 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  426. },
  427. {
  428. C_EXCHANGE, /* UniqueID */
  429. "EXCHANGE variable, variable", /* Syntax */
  430. "Swaps the values of two variables. Both variables must be of "
  431. "the same type.", /* Description */
  432. "EXCHANGE", /* Name */
  433. B15 | HB2 /* OptionVersionBitmask */
  434. },
  435. {
  436. C_EXIT, /* UniqueID */
  437. "EXIT", /* Syntax */
  438. "EXIT by itself is a Syntax Error. Use EXIT DO, EXIT FOR, EXI"
  439. "T FUNCTION, EXIT SUB, EXIT UNTIL, or EXIT WHILE instead.", /* Description */
  440. "EXIT", /* Name */
  441. B15 | E86 | M88 | VBX /* OptionVersionBitmask */
  442. },
  443. {
  444. C_EXIT_DO, /* UniqueID */
  445. "EXIT DO", /* Syntax */
  446. "Immediately exits the inner-most DO-LOOP strucure.", /* Description */
  447. "EXIT DO", /* Name */
  448. B15 | E86 | M88 | VBX /* OptionVersionBitmask */
  449. },
  450. {
  451. C_EXIT_FOR, /* UniqueID */
  452. "EXIT FOR", /* Syntax */
  453. "Immediately exits the inner-most FOR-NEXT strucure.", /* Description */
  454. "EXIT FOR", /* Name */
  455. B15 | E86 | M88 | VBX /* OptionVersionBitmask */
  456. },
  457. {
  458. C_EXIT_FUNCTION, /* UniqueID */
  459. "EXIT FUNCTION", /* Syntax */
  460. "Immediately exits the inner-most multi-line FUNCTION strucure"
  461. ".", /* Description */
  462. "EXIT FUNCTION", /* Name */
  463. B15 | E86 | M88 | VBX /* OptionVersionBitmask */
  464. },
  465. {
  466. C_EXIT_SUB, /* UniqueID */
  467. "EXIT SUB", /* Syntax */
  468. "Immediately exits the inner-most multi-line SUB strucure.", /* Description */
  469. "EXIT SUB", /* Name */
  470. B15 | E86 | M88 | VBX /* OptionVersionBitmask */
  471. },
  472. {
  473. C_EXIT_UNTIL, /* UniqueID */
  474. "EXIT UNTIL", /* Syntax */
  475. "Immediately exits the inner-most UNTIL-UEND strucure.", /* Description */
  476. "EXIT UNTIL", /* Name */
  477. B15 | E86 /* OptionVersionBitmask */
  478. },
  479. {
  480. C_EXIT_WHILE, /* UniqueID */
  481. "EXIT WHILE", /* Syntax */
  482. "Immediately exits the inner-most WHILE-END strucure.", /* Description */
  483. "EXIT WHILE", /* Name */
  484. B15 | E86 /* OptionVersionBitmask */
  485. },
  486. {
  487. C_FEND, /* UniqueID */
  488. "FEND", /* Syntax */
  489. "Specifies the last line of a multi-line DEF function.", /* Description */
  490. "FEND", /* Name */
  491. C77 /* OptionVersionBitmask */
  492. },
  493. {
  494. C_FIELD, /* UniqueID */
  495. "FIELD [#] device-number, number AS string-variable$ [, ...]", /* Syntax */
  496. "Assigns 'number' bytes in the buffer of random file 'device-n"
  497. "umber' to the variable 'string-variable$'. GET will automati"
  498. "cally update the variable, and PUT will automatically use the"
  499. " variable.", /* Description */
  500. "FIELD", /* Name */
  501. B15 | D71 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  502. },
  503. {
  504. C_FILE, /* UniqueID */
  505. "FILE # X, A$", /* Syntax */
  506. "If A$ is '*' then closes file # X. If A$ is not '*' then ope"
  507. "ns the file named A$ in READ mode. For CBASIC-II, the syntax"
  508. "is FILE filename$ [( reclen )].", /* Description */
  509. "FILE", /* Name */
  510. D64 | G65 | G67 | C77 /* OptionVersionBitmask */
  511. },
  512. {
  513. C_FILES, /* UniqueID */
  514. "FILES A$[, ...]", /* Syntax */
  515. "If A$ is not '*' opens the file named A$ in READ mode. The f"
  516. "irst filename of the first FILES command is assocated with fi"
  517. "le number 1. Note that multiple FILES commands accumulate.", /* Description */
  518. "FILES", /* Name */
  519. D64 | G65 | G67 /* OptionVersionBitmask */
  520. },
  521. {
  522. C_FNCS, /* UniqueID */
  523. "FNCS", /* Syntax */
  524. "Prints a list of all pre-defined BASIC functions.", /* Description */
  525. "FNCS", /* Name */
  526. B15 /* OptionVersionBitmask */
  527. },
  528. {
  529. C_FNEND, /* UniqueID */
  530. "FNEND", /* Syntax */
  531. "Specifies the last line of a multi-line DEF function.", /* Description */
  532. "FNEND", /* Name */
  533. B15 | G67 | I70 | D71 | I73 | HB1 | HB2 | T80 /* OptionVersionBitmask */
  534. },
  535. {
  536. C_FOR, /* UniqueID */
  537. "FOR variable = start TO finish [STEP increment]", /* Syntax */
  538. "Top of a FOR - NEXT structure. The loop will continue a fixe"
  539. "d number of times, which is determined by the values of start"
  540. ", finish, and increment.", /* Description */
  541. "FOR", /* Name */
  542. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  543. },
  544. {
  545. C_FUNCTION, /* UniqueID */
  546. "FUNCTION [ ( parameter [, ... ] ) ]", /* Syntax */
  547. "Top line of a multi-line FUNCTION definition. The variable n"
  548. "ames specified are local to the FUNCTION definition, and are "
  549. "initialized BYVAL when the function is invoked by another rou"
  550. "tine.", /* Description */
  551. "FUNCTION", /* Name */
  552. B15 | E86 | M88 | VBX /* OptionVersionBitmask */
  553. },
  554. {
  555. C_GET, /* UniqueID */
  556. "GET filename$ , scalar [, ...]", /* Syntax */
  557. "Gets one (or more) values from a file.", /* Description */
  558. "GET", /* Name */
  559. I70 | D71 | I73 /* OptionVersionBitmask */
  560. },
  561. {
  562. C_GO, /* UniqueID */
  563. "GO", /* Syntax */
  564. "GO by itself is a syntax error. Use GOTO or GOSUB instead.", /* Description */
  565. "GO", /* Name */
  566. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  567. },
  568. {
  569. C_GO_SUB, /* UniqueID */
  570. "GO SUB line", /* Syntax */
  571. "Initiates a subroutine call to the line specified. The subro"
  572. "utine must end with RETURN. The 'line' may be a number or a "
  573. "label.", /* Description */
  574. "GO SUB", /* Name */
  575. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  576. },
  577. {
  578. C_GO_TO, /* UniqueID */
  579. "GO TO line", /* Syntax */
  580. "Branches program execution to the specified line. The 'line'"
  581. " may be a number or a label.", /* Description */
  582. "GO TO", /* Name */
  583. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  584. },
  585. {
  586. C_GOODBYE, /* UniqueID */
  587. "GOODBYE", /* Syntax */
  588. "Exits to the operating system.", /* Description */
  589. "GOODBYE", /* Name */
  590. B15 | D64 | G65 | G67 | D71 | HB2 /* OptionVersionBitmask */
  591. },
  592. {
  593. C_GOSUB, /* UniqueID */
  594. "GOSUB line", /* Syntax */
  595. "Initiates a subroutine call to the line specified. The subro"
  596. "utine must end with RETURN. The 'line' may be a number or a "
  597. "label.", /* Description */
  598. "GOSUB", /* Name */
  599. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  600. },
  601. {
  602. C_GOTO, /* UniqueID */
  603. "GOTO line", /* Syntax */
  604. "Branches program execution to the specified line. The 'line'"
  605. " may be a number or a label.", /* Description */
  606. "GOTO", /* Name */
  607. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  608. },
  609. {
  610. C_HELP, /* UniqueID */
  611. "HELP name", /* Syntax */
  612. "Provides help on the specified 'name' which is a command name"
  613. " or function name.", /* Description */
  614. "HELP", /* Name */
  615. B15 /* OptionVersionBitmask */
  616. },
  617. {
  618. C_IF, /* UniqueID */
  619. "IF expression THEN line1 [ELSE line2]", /* Syntax */
  620. "Single line standard IF command. If the value of expression "
  621. "is non-zero, then branh to line1. If the value of expression"
  622. " is zero and ELSE is provided, then branch to line2. Otherwi"
  623. "se continue to the next line. LABELS are not allowed.", /* Description */
  624. "IF", /* Name */
  625. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  626. },
  627. {
  628. C_IF_END, /* UniqueID */
  629. "IF END # filenum THEN line1 [ELSE line2]", /* Syntax */
  630. "Single line standard IF command. If the file is at EOF , the"
  631. "n branch to line1. If the file is not at EOF and ELSE is pro"
  632. "vided, then branch to line2. Otherwise continue to the next "
  633. "line. LABELS are not allowed.", /* Description */
  634. "IF END", /* Name */
  635. D64 | G65 | G67 | C77 /* OptionVersionBitmask */
  636. },
  637. {
  638. C_IF_MORE, /* UniqueID */
  639. "IF MORE # filenum THEN line1 [ELSE line2]", /* Syntax */
  640. "Single line standard IF command. If the file is not at EOF ,"
  641. " then branch to line1. If the file is at EOF and ELSE is pro"
  642. "vided, then branch to line2. Otherwise continue to the next "
  643. "line. LABELS are not allowed.", /* Description */
  644. "IF MORE", /* Name */
  645. D64 | G65 | G67 /* OptionVersionBitmask */
  646. },
  647. {
  648. C_IF_THEN, /* UniqueID */
  649. "IF expression THEN", /* Syntax */
  650. "Top of a multi-line IF - END IF structure. If the value of e"
  651. "xpression is non-zero, then the program lines upto the next E"
  652. "LSE or ELSE IF command are executed, otherwise the program br"
  653. "anches to the next ELSE or ELSE IF command.", /* Description */
  654. "IF THEN", /* Name */
  655. B15 | D71 | C77 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  656. },
  657. {
  658. C_IMAGE, /* UniqueID */
  659. "IMAGE \"format string\" ", /* Syntax */
  660. "Provides format string for PRINT USING line-number.", /* Description */
  661. "IMAGE", /* Name */
  662. I70 | I73 | HB1 | HB2 /* OptionVersionBitmask */
  663. },
  664. {
  665. C_INPUT, /* UniqueID */
  666. "INPUT [# device-number]|[;][\"prompt string\";] variable [, ..."
  667. "]s", /* Syntax */
  668. "Reads input from the terminal or the file specified by device"
  669. "-number.", /* Description */
  670. "INPUT", /* Name */
  671. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  672. },
  673. {
  674. C_LET, /* UniqueID */
  675. "[LET] variable = expression", /* Syntax */
  676. "Assigns the value of expression to variable. The 'LET' keywo"
  677. "rd is optional.", /* Description */
  678. "LET", /* Name */
  679. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  680. },
  681. {
  682. C_LINE, /* UniqueID */
  683. "LINE INPUT [[#] device-number,][\"prompt string\";] string-vari"
  684. "able$", /* Syntax */
  685. "Reads entire line from the keyboard or a file into string-var"
  686. "iable$.", /* Description */
  687. "LINE", /* Name */
  688. B15 | D71 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  689. },
  690. {
  691. C_LIST, /* UniqueID */
  692. "LIST line1 [- line2]", /* Syntax */
  693. "Lists BASIC program lines from 'line1' to 'line2' to stdout.", /* Description */
  694. "LIST", /* Name */
  695. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  696. },
  697. {
  698. C_LLIST, /* UniqueID */
  699. "LLIST line1 [- line2]", /* Syntax */
  700. "Lists BASIC program lines from 'line1' to 'line2' to the defa"
  701. "ult printer on stderr.", /* Description */
  702. "LLIST", /* Name */
  703. B15 | D71 | C77 | HB2 | T80 | M80 | M85 | M88 /* OptionVersionBitmask */
  704. },
  705. {
  706. C_LOAD, /* UniqueID */
  707. "LOAD [file-name$]", /* Syntax */
  708. "Loads an ASCII BASIC program into memory.", /* Description */
  709. "LOAD", /* Name */
  710. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  711. },
  712. {
  713. C_LOOP, /* UniqueID */
  714. "LOOP [UNTIL|WHILE expression]", /* Syntax */
  715. "Bottom of a DO - LOOP structure. LOOP: IF the loop is not t"
  716. "erminated by EXIT DO or DO UNTIL or DO WHILE, then it will lo"
  717. "op forever. LOOP UNTIL: exits when expression is nonz-zero."
  718. " LOOP WHILE: exits when expression is zero.", /* Description */
  719. "LOOP", /* Name */
  720. B15 | E86 | M88 | VBX /* OptionVersionBitmask */
  721. },
  722. {
  723. C_LPRINT, /* UniqueID */
  724. "LPRINT [USING format-string$;] expressions...", /* Syntax */
  725. "Send output to the default printer(stderr).", /* Description */
  726. "LPRINT", /* Name */
  727. B15 | I70 | D71 | I73 | E78 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  728. },
  729. {
  730. C_LPRINTER, /* UniqueID */
  731. "LPRINTER [WIDTH width]", /* Syntax */
  732. "Directs the output of PRINT commands to the printer (stderr),"
  733. " and optionally changes the printer width.", /* Description */
  734. "LPRINTER", /* Name */
  735. C77 /* OptionVersionBitmask */
  736. },
  737. {
  738. C_LSET, /* UniqueID */
  739. "LSET string-variable$ = expression", /* Syntax */
  740. "Left-aligns the value of expression into string-variable$. I"
  741. "f the length of the value is too short, then it is padded on "
  742. "the right with spaces. If the length of the value is too lon"
  743. "g, then it is truncated on the right. This is only for use w"
  744. "ith variables assigned to a random access buffer with FIELD c"
  745. "ommand.", /* Description */
  746. "LSET", /* Name */
  747. B15 | D71 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  748. },
  749. {
  750. C_MAINTAINER, /* UniqueID */
  751. "MAINTAINER", /* Syntax */
  752. "This command is reserved for use by the Bywater BASIC maintai"
  753. "ner and does whatever the maintainer wants it to do. It is n"
  754. "ot for the BASIC programmer.", /* Description */
  755. "MAINTAINER", /* Name */
  756. B15 /* OptionVersionBitmask */
  757. },
  758. {
  759. C_MARGIN, /* UniqueID */
  760. "MARGIN # filenumber, width", /* Syntax */
  761. "Sets the file margin for writing; filenumber <= 0 is ignored."
  762. "", /* Description */
  763. "MARGIN", /* Name */
  764. B15 | D64 | G65 | G67 | HB2 /* OptionVersionBitmask */
  765. },
  766. {
  767. C_MAT, /* UniqueID */
  768. "MAT arrayname = expression", /* Syntax */
  769. "Matrix operations: MAT A = CON, MAT A = IDN, MAT A = ZER, MA"
  770. "T A = INV B, MAT A = TRN B, MAT A = (k) * B, MAT A = B, MAT A"
  771. " = B + C, MAT A = B - C, MAT A = B * C. ", /* Description */
  772. "MAT", /* Name */
  773. D64 | G65 | G67 | I70 | D71 | I73 | HB1 | HB2 /* OptionVersionBitmask */
  774. },
  775. {
  776. C_MAT_GET, /* UniqueID */
  777. "MAT GET filename$, arrayname", /* Syntax */
  778. "Matrix get.", /* Description */
  779. "MAT GET", /* Name */
  780. G65 | G67 | I70 | I73 /* OptionVersionBitmask */
  781. },
  782. {
  783. C_MAT_INPUT, /* UniqueID */
  784. "MAT INPUT arrayname", /* Syntax */
  785. "Matrix input.", /* Description */
  786. "MAT INPUT", /* Name */
  787. D64 | G65 | G67 | I70 | D71 | I73 | HB1 | HB2 /* OptionVersionBitmask */
  788. },
  789. {
  790. C_MAT_PRINT, /* UniqueID */
  791. "MAT PRINT arrayname", /* Syntax */
  792. "Matrix print.", /* Description */
  793. "MAT PRINT", /* Name */
  794. D64 | G65 | G67 | I70 | D71 | I73 | HB1 | HB2 /* OptionVersionBitmask */
  795. },
  796. {
  797. C_MAT_PUT, /* UniqueID */
  798. "MAT PUT filename$, arrayname", /* Syntax */
  799. "Matrix put.", /* Description */
  800. "MAT PUT", /* Name */
  801. G65 | G67 | I70 | I73 /* OptionVersionBitmask */
  802. },
  803. {
  804. C_MAT_READ, /* UniqueID */
  805. "MAT READ arrayname", /* Syntax */
  806. "Matrix read.", /* Description */
  807. "MAT READ", /* Name */
  808. D64 | G65 | G67 | I70 | D71 | I73 | HB1 | HB2 /* OptionVersionBitmask */
  809. },
  810. {
  811. C_MAT_WRITE, /* UniqueID */
  812. "MAT WRITE arrayname", /* Syntax */
  813. "Matrix write.", /* Description */
  814. "MAT WRITE", /* Name */
  815. D64 | G65 | G67 | HB1 | HB2 /* OptionVersionBitmask */
  816. },
  817. {
  818. C_MERGE, /* UniqueID */
  819. "MERGE file-name", /* Syntax */
  820. "Merges the BASIC program in file-name into the current BASIC "
  821. "program. Lines in file-name replace any matching lines in th"
  822. "e current program.", /* Description */
  823. "MERGE", /* Name */
  824. B15 | D71 | C77 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  825. },
  826. {
  827. C_MID4, /* UniqueID */
  828. "MID$( variable$, start [, count ] ) = expression", /* Syntax */
  829. "Replaces a subtring of variable$ with expression.", /* Description */
  830. "MID$", /* Name */
  831. B15 | D71 | C77 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  832. },
  833. {
  834. C_NAME, /* UniqueID */
  835. "NAME old_file_name AS new_file_name", /* Syntax */
  836. "Changes the name of an existing file.", /* Description */
  837. "NAME", /* Name */
  838. B15 | D71 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  839. },
  840. {
  841. C_NEW, /* UniqueID */
  842. "NEW", /* Syntax */
  843. "Deletes the program in memory and clears all variables.", /* Description */
  844. "NEW", /* Name */
  845. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  846. },
  847. {
  848. C_NEXT, /* UniqueID */
  849. "NEXT [variable]", /* Syntax */
  850. "The bottom line of a FOR - NEXT structure.", /* Description */
  851. "NEXT", /* Name */
  852. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  853. },
  854. {
  855. C_OF, /* UniqueID */
  856. "OF line, ...", /* Syntax */
  857. "OF by itself is a Syntax Error. Use GOTO ... OF instead.", /* Description */
  858. "OF", /* Name */
  859. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  860. },
  861. {
  862. C_OLD, /* UniqueID */
  863. "OLD [file-name$]", /* Syntax */
  864. "Loads an ASCII BASIC program into memory.", /* Description */
  865. "OLD", /* Name */
  866. D64 | G65 | G67 | D71 /* OptionVersionBitmask */
  867. },
  868. {
  869. C_ON, /* UniqueID */
  870. "ON expression GOTO | GOSUB line [, ...]", /* Syntax */
  871. "Branches (GOTO) or calls (GOSUB) based on the rounded value o"
  872. "f variable.", /* Description */
  873. "ON", /* Name */
  874. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  875. },
  876. {
  877. C_ON_ERROR, /* UniqueID */
  878. "ON ERROR ...", /* Syntax */
  879. "ON ERROR by itself is a syntax error. Use ON ERROR GOSUB or"
  880. " ON ERROR GOTO instead.", /* Description */
  881. "ON ERROR", /* Name */
  882. B15 | D71 | HB1 | HB2 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  883. },
  884. {
  885. C_ON_ERROR_GOSUB, /* UniqueID */
  886. "ON ERROR GOSUB errline", /* Syntax */
  887. "When a trappable error occurs, execute 'GOSUB errline'. The "
  888. "error handler must terminate with a RETURN command. If the l"
  889. "ine number is 0 (zerp), then use the default error handler. "
  890. "Valid when OPTION ERROR GOSUB.", /* Description */
  891. "ON ERROR GOSUB", /* Name */
  892. B15 /* OptionVersionBitmask */
  893. },
  894. {
  895. C_ON_ERROR_GOTO, /* UniqueID */
  896. "ON ERROR GOTO errline", /* Syntax */
  897. "When a trappable error occurs, execute 'GOTO errline'. The e"
  898. "rror handler must terminate with a RESUME command. If the li"
  899. "ne number is 0 (zerp), then use the default error handler. V"
  900. "alid when OPTION ERROR GOTO.", /* Description */
  901. "ON ERROR GOTO", /* Name */
  902. B15 | D71 | HB1 | HB2 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  903. },
  904. {
  905. C_ON_ERROR_RESUME, /* UniqueID */
  906. "ON ERROR RESUME ...", /* Syntax */
  907. "ON ERROR RESUME by itself is a syntax error. Use ON ERROR RE"
  908. "SUME NEXT instead.", /* Description */
  909. "ON ERROR RESUME", /* Name */
  910. B15 | D71 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  911. },
  912. {
  913. C_ON_ERROR_RESUME_NEXT, /* UniqueID */
  914. "ON ERROR RESUME NEXT", /* Syntax */
  915. "When a trappable error occurs, execution continues with the n"
  916. "ext line. Valid when OPTION ERROR GOTO.", /* Description */
  917. "ON ERROR RESUME NEXT", /* Name */
  918. B15 | D71 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  919. },
  920. {
  921. C_ON_ERROR_RETURN, /* UniqueID */
  922. "ON ERROR RETURN ...", /* Syntax */
  923. "ON ERROR RETURN by itself is a syntax error. Use ON ERROR RE"
  924. "TURN NEXT instead.", /* Description */
  925. "ON ERROR RETURN", /* Name */
  926. B15 /* OptionVersionBitmask */
  927. },
  928. {
  929. C_ON_ERROR_RETURN_NEXT, /* UniqueID */
  930. "ON ERROR RETURN NEXT", /* Syntax */
  931. "When a trappable error occurs, execution continues with the n"
  932. "ext line. Valid when OPTION ERROR GOSUB.", /* Description */
  933. "ON ERROR RETURN NEXT", /* Name */
  934. B15 /* OptionVersionBitmask */
  935. },
  936. {
  937. C_ON_TIMER, /* UniqueID */
  938. "ON TIMER count GOSUB line", /* Syntax */
  939. "Specifies a line (or label) to gosub when count seconds have "
  940. "elaspsed after TIMER ON is executed. The interrupt routine s"
  941. "hould end with a RETURN command. Timer events only occur in "
  942. "running BASIC programs. The resolution of the clock is imple"
  943. "mentation defined.", /* Description */
  944. "ON TIMER", /* Name */
  945. B15 | M88 /* OptionVersionBitmask */
  946. },
  947. {
  948. C_OPEN, /* UniqueID */
  949. "OPEN file-name [FOR INPUT|OUTPUT|APPEND|BINARY|RANDOM] AS [#]"
  950. "device-number [LEN = record-length]", /* Syntax */
  951. "Opens a file for use. INPUT, OUTPUT, and APPEND are for text"
  952. " files. BINARY is for binary files. RANDOM is for structure"
  953. "d binary files and requires LEN. Files opened for RANDOM use"
  954. " GET and PUT. For CBASIC-II, this opens an existing file and"
  955. " the syntax is OPEN filename$ [ RECL reclen ] AS filenum [ BU"
  956. "FF number ] [ RECS size ].", /* Description */
  957. "OPEN", /* Name */
  958. B15 | I70 | D71 | I73 | C77 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  959. },
  960. {
  961. C_OPTION, /* UniqueID */
  962. "OPTION ...", /* Syntax */
  963. "OPTION by itself is a syntax error. Use one of the many OPTI"
  964. "ON commands instead.", /* Description */
  965. "OPTION", /* Name */
  966. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  967. },
  968. {
  969. C_OPTION_ANGLE, /* UniqueID */
  970. "OPTION ANGLE ...", /* Syntax */
  971. "OPTION ANGLE by itself is a syntax error. Use OPTION ANGLE D"
  972. "EGREES, OPTION ANGLE GRADIANS, or OPTION ANGLE RADIANS instea"
  973. "d.", /* Description */
  974. "OPTION ANGLE", /* Name */
  975. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  976. },
  977. {
  978. C_OPTION_ANGLE_DEGREES, /* UniqueID */
  979. "OPTION ANGLE DEGREES", /* Syntax */
  980. "Configures these math functions to accept and return angles i"
  981. "n degrees: ACOS, ACS, ANGLE, ARCSIN, ASIN, ASN, ARCTAN, ATN,"
  982. " ATAN, COS, COT, CSC, SEC, SIN and TAN.", /* Description */
  983. "OPTION ANGLE DEGREES", /* Name */
  984. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  985. },
  986. {
  987. C_OPTION_ANGLE_GRADIANS, /* UniqueID */
  988. "OPTION ANGLE GRADIANS", /* Syntax */
  989. "Configures these math functions to accept and return angles i"
  990. "n gradians: ACOS, ANGLE, ASIN, ASN, ATN, ATAN, COS, COT, CSC"
  991. ", SEC, SIN and TAN.", /* Description */
  992. "OPTION ANGLE GRADIANS", /* Name */
  993. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  994. },
  995. {
  996. C_OPTION_ANGLE_RADIANS, /* UniqueID */
  997. "OPTION ANGLE RADIANS", /* Syntax */
  998. "Configures these math functions to accept and return angles i"
  999. "n radians: ACOS, ANGLE, ASIN, ASN, ATN, ATAN, COS, COT, CSC,"
  1000. " SEC, SIN and TAN.", /* Description */
  1001. "OPTION ANGLE RADIANS", /* Name */
  1002. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1003. },
  1004. {
  1005. C_OPTION_ARITHMETIC, /* UniqueID */
  1006. "OPTION ARITHMETIC", /* Syntax */
  1007. "OPTION ARITHMETIC by itself is a syntax error.Use OPTION ARIT"
  1008. "HMETIC DECIMAL, OPTION ARITHMETIC FIXED, or OPTION ARITHMETIC"
  1009. " NATIVE instead.", /* Description */
  1010. "OPTION ARITHMETIC", /* Name */
  1011. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1012. },
  1013. {
  1014. C_OPTION_ARITHMETIC_DECIMAL, /* UniqueID */
  1015. "OPTION ARITHMETIC DECIMAL", /* Syntax */
  1016. "Currently has no effect.", /* Description */
  1017. "OPTION ARITHMETIC DECIMAL", /* Name */
  1018. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1019. },
  1020. {
  1021. C_OPTION_ARITHMETIC_FIXED, /* UniqueID */
  1022. "OPTION ARITHMETIC FIXED", /* Syntax */
  1023. "Currently has no effect.", /* Description */
  1024. "OPTION ARITHMETIC FIXED", /* Name */
  1025. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1026. },
  1027. {
  1028. C_OPTION_ARITHMETIC_NATIVE, /* UniqueID */
  1029. "OPTION ARITHMETIC NATIVE", /* Syntax */
  1030. "Currently has no effect.", /* Description */
  1031. "OPTION ARITHMETIC NATIVE", /* Name */
  1032. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1033. },
  1034. {
  1035. C_OPTION_BASE, /* UniqueID */
  1036. "OPTION BASE X", /* Syntax */
  1037. "Sets the lowest array subscript to X.", /* Description */
  1038. "OPTION BASE", /* Name */
  1039. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1040. },
  1041. {
  1042. C_OPTION_BUGS, /* UniqueID */
  1043. "OPTION BUGS", /* Syntax */
  1044. "OPTION BUGS by itself is a syntax error. Use OPTION BUGS OFF"
  1045. " or OPTION BUGS ON instead.", /* Description */
  1046. "OPTION BUGS", /* Name */
  1047. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1048. },
  1049. {
  1050. C_OPTION_BUGS_OFF, /* UniqueID */
  1051. "OPTION BUGS OFF", /* Syntax */
  1052. "Disables bugs commonly found in BASIC-80 derivatives and clon"
  1053. "es.", /* Description */
  1054. "OPTION BUGS OFF", /* Name */
  1055. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1056. },
  1057. {
  1058. C_OPTION_BUGS_ON, /* UniqueID */
  1059. "OPTION BUGS ON", /* Syntax */
  1060. "Enables bugs commonly found in BASIC-80 derivatives and clone"
  1061. "s.", /* Description */
  1062. "OPTION BUGS ON", /* Name */
  1063. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1064. },
  1065. {
  1066. C_OPTION_COMMENT, /* UniqueID */
  1067. "OPTION COMMENT char", /* Syntax */
  1068. "Sets the comment character.", /* Description */
  1069. "OPTION COMMENT", /* Name */
  1070. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1071. },
  1072. {
  1073. C_OPTION_COMPARE, /* UniqueID */
  1074. "OPTION COMPARE", /* Syntax */
  1075. "OPTION COMPARE by itself is a syntax error. Use OPTION COMPA"
  1076. "RE BINARY, OPTION COMPARE DATABASE, or OPTION COMPARE TEXT in"
  1077. "stead.", /* Description */
  1078. "OPTION COMPARE", /* Name */
  1079. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1080. },
  1081. {
  1082. C_OPTION_COMPARE_BINARY, /* UniqueID */
  1083. "OPTION COMPARE BINARY", /* Syntax */
  1084. "Causes string comparisons to be case-sensitive.", /* Description */
  1085. "OPTION COMPARE BINARY", /* Name */
  1086. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1087. },
  1088. {
  1089. C_OPTION_COMPARE_DATABASE, /* UniqueID */
  1090. "OPTION COMPARE DATABASE", /* Syntax */
  1091. "Causes string comparisons to be case-insensitive.", /* Description */
  1092. "OPTION COMPARE DATABASE", /* Name */
  1093. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1094. },
  1095. {
  1096. C_OPTION_COMPARE_TEXT, /* UniqueID */
  1097. "OPTION COMPARE TEXT", /* Syntax */
  1098. "Causes string comparisons to be case-insensitive.", /* Description */
  1099. "OPTION COMPARE TEXT", /* Name */
  1100. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1101. },
  1102. {
  1103. C_OPTION_COVERAGE, /* UniqueID */
  1104. "OPTION COVERAGE", /* Syntax */
  1105. "OPTION COVERAGE by itself is a syntax error.Use OPTION COVERA"
  1106. "GE OFF or OPTION COVERAGE ON instead.", /* Description */
  1107. "OPTION COVERAGE", /* Name */
  1108. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1109. },
  1110. {
  1111. C_OPTION_COVERAGE_OFF, /* UniqueID */
  1112. "OPTION COVERAGE OFF", /* Syntax */
  1113. "Disables BASIC code coverage recording, displayed using the L"
  1114. "IST command.", /* Description */
  1115. "OPTION COVERAGE OFF", /* Name */
  1116. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1117. },
  1118. {
  1119. C_OPTION_COVERAGE_ON, /* UniqueID */
  1120. "OPTION COVERAGE ON", /* Syntax */
  1121. "Enables BASIC code coverage recording, displayed using the LI"
  1122. "ST command.", /* Description */
  1123. "OPTION COVERAGE ON", /* Name */
  1124. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1125. },
  1126. {
  1127. C_OPTION_DATE, /* UniqueID */
  1128. "OPTION DATE format$", /* Syntax */
  1129. "Sets the date format string used by C strftime() for DATE$.", /* Description */
  1130. "OPTION DATE", /* Name */
  1131. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1132. },
  1133. {
  1134. C_OPTION_DISABLE, /* UniqueID */
  1135. "OPTION DISABLE", /* Syntax */
  1136. "OPTION DISABLE by itself is a syntax error. Use OPTION DISAB"
  1137. "LE COMMAND, OPTION DISABLE FUNCTION, or OPTION DISABLE OPERAT"
  1138. "OR instead", /* Description */
  1139. "OPTION DISABLE", /* Name */
  1140. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1141. },
  1142. {
  1143. C_OPTION_DISABLE_COMMAND, /* UniqueID */
  1144. "OPTION DISABLE COMMAND name", /* Syntax */
  1145. "Disables the specified BASIC command.", /* Description */
  1146. "OPTION DISABLE COMMAND", /* Name */
  1147. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1148. },
  1149. {
  1150. C_OPTION_DISABLE_FUNCTION, /* UniqueID */
  1151. "OPTION DISABLE FUNCTION name", /* Syntax */
  1152. "Disables the specified BASIC function.", /* Description */
  1153. "OPTION DISABLE FUNCTION", /* Name */
  1154. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1155. },
  1156. {
  1157. C_OPTION_DISABLE_OPERATOR, /* UniqueID */
  1158. "OPTION DISABLE OPERATOR name", /* Syntax */
  1159. "Disables the specified BASIC operator.", /* Description */
  1160. "OPTION DISABLE OPERATOR", /* Name */
  1161. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1162. },
  1163. {
  1164. C_OPTION_ENABLE, /* UniqueID */
  1165. "OPTION ENABLE", /* Syntax */
  1166. "OPTION ENABLE by itself is a syntax error. Use OPTION ENABLE"
  1167. " COMMAND, OPTION ENABLE FUNCTION, or OPTION ENABLE OPERATOR i"
  1168. "nstead.", /* Description */
  1169. "OPTION ENABLE", /* Name */
  1170. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1171. },
  1172. {
  1173. C_OPTION_ENABLE_COMMAND, /* UniqueID */
  1174. "OPTION ENABLE COMMAND name", /* Syntax */
  1175. "Enables the specified BASIC command.", /* Description */
  1176. "OPTION ENABLE COMMAND", /* Name */
  1177. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1178. },
  1179. {
  1180. C_OPTION_ENABLE_FUNCTION, /* UniqueID */
  1181. "OPTION ENABLE FUNCTION name", /* Syntax */
  1182. "Enables the specified BASIC function.", /* Description */
  1183. "OPTION ENABLE FUNCTION", /* Name */
  1184. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1185. },
  1186. {
  1187. C_OPTION_ENABLE_OPERATOR, /* UniqueID */
  1188. "OPTION ENABLE OPERATOR name", /* Syntax */
  1189. "Enables the specified BASIC operator.", /* Description */
  1190. "OPTION ENABLE OPERATOR", /* Name */
  1191. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1192. },
  1193. {
  1194. C_OPTION_ERROR, /* UniqueID */
  1195. "OPTION ERROR", /* Syntax */
  1196. "OPTION ERROR by itself is a syntax error. Use OPTION ERROR G"
  1197. "OSUB or OPTION ERROR GOTO instead.", /* Description */
  1198. "OPTION ERROR", /* Name */
  1199. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1200. },
  1201. {
  1202. C_OPTION_ERROR_GOSUB, /* UniqueID */
  1203. "OPTION ERROR GOSUB", /* Syntax */
  1204. "When an error occurs, GOSUB to the error handler. The error "
  1205. "handler exits with RETURN.", /* Description */
  1206. "OPTION ERROR GOSUB", /* Name */
  1207. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1208. },
  1209. {
  1210. C_OPTION_ERROR_GOTO, /* UniqueID */
  1211. "OPTION ERROR GOTO", /* Syntax */
  1212. "When an error occurs, GOTO to the error handler. The error h"
  1213. "andler exits with RESUME.", /* Description */
  1214. "OPTION ERROR GOTO", /* Name */
  1215. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1216. },
  1217. {
  1218. C_OPTION_EXPLICIT, /* UniqueID */
  1219. "OPTION EXPLICIT", /* Syntax */
  1220. "All variables must be declared using DIM.", /* Description */
  1221. "OPTION EXPLICIT", /* Name */
  1222. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1223. },
  1224. {
  1225. C_OPTION_IMAGE, /* UniqueID */
  1226. "OPTION IMAGE char$", /* Syntax */
  1227. "Sets the shortcut IMAGE character.", /* Description */
  1228. "OPTION IMAGE", /* Name */
  1229. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1230. },
  1231. {
  1232. C_OPTION_IMPLICIT, /* UniqueID */
  1233. "OPTION IMPLICIT", /* Syntax */
  1234. "Variables need not be declared using DIM, provided arrays hav"
  1235. "e no more that 10 elements. This is the opposite of OPTION E"
  1236. "XPLICIT, and is the default for all versions of BASIC.", /* Description */
  1237. "OPTION IMPLICIT", /* Name */
  1238. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1239. },
  1240. {
  1241. C_OPTION_INDENT, /* UniqueID */
  1242. "OPTION INDENT number", /* Syntax */
  1243. "Sets indention level for LIST. Zero means no indention. Def"
  1244. "ault is 2.", /* Description */
  1245. "OPTION INDENT", /* Name */
  1246. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1247. },
  1248. {
  1249. C_OPTION_LABELS, /* UniqueID */
  1250. "OPTION LABELS", /* Syntax */
  1251. "OPTION LABELS by itself is a syntax error. Use OPTION LABELS"
  1252. " OFF or OPTION LABELS ON instead.", /* Description */
  1253. "OPTION LABELS", /* Name */
  1254. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1255. },
  1256. {
  1257. C_OPTION_LABELS_OFF, /* UniqueID */
  1258. "OPTION LABELS OFF", /* Syntax */
  1259. "Disables text labels.", /* Description */
  1260. "OPTION LABELS OFF", /* Name */
  1261. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1262. },
  1263. {
  1264. C_OPTION_LABELS_ON, /* UniqueID */
  1265. "OPTION LABELS ON", /* Syntax */
  1266. "Enables text labels.", /* Description */
  1267. "OPTION LABELS ON", /* Name */
  1268. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1269. },
  1270. {
  1271. C_OPTION_PRINT, /* UniqueID */
  1272. "OPTION PRINT char$", /* Syntax */
  1273. "Sets the shortcut PRINT character.", /* Description */
  1274. "OPTION PRINT", /* Name */
  1275. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1276. },
  1277. {
  1278. C_OPTION_ROUND, /* UniqueID */
  1279. "OPTION ROUND", /* Syntax */
  1280. "OPTION ROUND by itself is a syntax error. Use OPTION ROUND B"
  1281. "ANK, OPTION ROUND MATH, or OPTION ROUND TRUNCATE instead.", /* Description */
  1282. "OPTION ROUND", /* Name */
  1283. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1284. },
  1285. {
  1286. C_OPTION_ROUND_BANK, /* UniqueID */
  1287. "OPTION ROUND BANK", /* Syntax */
  1288. "Round using the Banker's rule.", /* Description */
  1289. "OPTION ROUND BANK", /* Name */
  1290. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1291. },
  1292. {
  1293. C_OPTION_ROUND_MATH, /* UniqueID */
  1294. "OPTION ROUND MATH", /* Syntax */
  1295. "Round using mathematical rules.", /* Description */
  1296. "OPTION ROUND MATH", /* Name */
  1297. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1298. },
  1299. {
  1300. C_OPTION_ROUND_TRUNCATE, /* UniqueID */
  1301. "OPTION ROUND TRUNCATE", /* Syntax */
  1302. "Round using truncation.", /* Description */
  1303. "OPTION ROUND TRUNCATE", /* Name */
  1304. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1305. },
  1306. {
  1307. C_OPTION_SLEEP, /* UniqueID */
  1308. "OPTION SLEEP number", /* Syntax */
  1309. "Sets multiplier for SLEEP and WAIT. Zero means no waiting. "
  1310. "Default is 1.", /* Description */
  1311. "OPTION SLEEP", /* Name */
  1312. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1313. },
  1314. {
  1315. C_OPTION_STATEMENT, /* UniqueID */
  1316. "OPTION STATEMENT char$", /* Syntax */
  1317. "Sets the statement seperator character.", /* Description */
  1318. "OPTION STATEMENT", /* Name */
  1319. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1320. },
  1321. {
  1322. C_OPTION_STDERR, /* UniqueID */
  1323. "OPTION STDERR filename$", /* Syntax */
  1324. "Sets the file used for STDERR, which is used by LPRINT comman"
  1325. "ds.", /* Description */
  1326. "OPTION STDERR", /* Name */
  1327. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1328. },
  1329. {
  1330. C_OPTION_STDIN, /* UniqueID */
  1331. "OPTION STDIN filename$", /* Syntax */
  1332. "Sets the file used for STDIN, which is used by INPUT commands"
  1333. ".", /* Description */
  1334. "OPTION STDIN", /* Name */
  1335. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1336. },
  1337. {
  1338. C_OPTION_STDOUT, /* UniqueID */
  1339. "OPTION STDOUT filename$", /* Syntax */
  1340. "Sets the file used for STDOUT, which is used by PRINT command"
  1341. "s.", /* Description */
  1342. "OPTION STDOUT", /* Name */
  1343. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1344. },
  1345. {
  1346. C_OPTION_STRICT, /* UniqueID */
  1347. "OPTION STRICT", /* Syntax */
  1348. "OPTION STRICT by itself is a syntax error. Use OPTION STRICT"
  1349. " OFF or OPTION STRICT ON instead.", /* Description */
  1350. "OPTION STRICT", /* Name */
  1351. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1352. },
  1353. {
  1354. C_OPTION_STRICT_OFF, /* UniqueID */
  1355. "OPTION STRICT OFF", /* Syntax */
  1356. "Disables checking for implicit array creation without using t"
  1357. "he DIM command.", /* Description */
  1358. "OPTION STRICT OFF", /* Name */
  1359. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1360. },
  1361. {
  1362. C_OPTION_STRICT_ON, /* UniqueID */
  1363. "OPTION STRICT ON", /* Syntax */
  1364. "Enables checking for implicit array creation without using th"
  1365. "e DIM command.", /* Description */
  1366. "OPTION STRICT ON", /* Name */
  1367. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1368. },
  1369. {
  1370. C_OPTION_TERMINAL, /* UniqueID */
  1371. "OPTION TERMINAL", /* Syntax */
  1372. "OPTION TERMINAL by itself is a syntax error. Use OPTION TERM"
  1373. "INAL ADM, OPTION TERMINAL ANSI, or OPTION TERMINAL NONE inste"
  1374. "ad.", /* Description */
  1375. "OPTION TERMINAL", /* Name */
  1376. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1377. },
  1378. {
  1379. C_OPTION_TERMINAL_ADM, /* UniqueID */
  1380. "OPTION TERMINAL ADM", /* Syntax */
  1381. "Enables ADM-3A terminal control codes for CLS, COLOR, and LOC"
  1382. "ATE.", /* Description */
  1383. "OPTION TERMINAL ADM", /* Name */
  1384. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1385. },
  1386. {
  1387. C_OPTION_TERMINAL_ANSI, /* UniqueID */
  1388. "OPTION TERMINAL ANSI", /* Syntax */
  1389. "Enables ANSI terminal control codes for CLS, COLOR, and LOCAT"
  1390. "E.", /* Description */
  1391. "OPTION TERMINAL ANSI", /* Name */
  1392. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1393. },
  1394. {
  1395. C_OPTION_TERMINAL_NONE, /* UniqueID */
  1396. "OPTION TERMINAL NONE", /* Syntax */
  1397. "Disables terminal control codes for CLS, COLOR, and LOCATE.", /* Description */
  1398. "OPTION TERMINAL NONE", /* Name */
  1399. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1400. },
  1401. {
  1402. C_OPTION_TIME, /* UniqueID */
  1403. "OPTION TIME format$", /* Syntax */
  1404. "Sets the time format string used by C strftime() for TIME$.", /* Description */
  1405. "OPTION TIME", /* Name */
  1406. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1407. },
  1408. {
  1409. C_OPTION_TRACE, /* UniqueID */
  1410. "OPTION TRACE", /* Syntax */
  1411. "OPTION TRACE by itself is a syntax error. Use OPTION TRACE O"
  1412. "FF or OPTION TRACE ON instead.", /* Description */
  1413. "OPTION TRACE", /* Name */
  1414. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1415. },
  1416. {
  1417. C_OPTION_TRACE_OFF, /* UniqueID */
  1418. "OPTION TRACE OFF", /* Syntax */
  1419. "Disables displaying a stack trace when an ERROR occurs.", /* Description */
  1420. "OPTION TRACE OFF", /* Name */
  1421. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1422. },
  1423. {
  1424. C_OPTION_TRACE_ON, /* UniqueID */
  1425. "OPTION TRACE ON", /* Syntax */
  1426. "Enables displaying a stack trace when an ERROR occurs.", /* Description */
  1427. "OPTION TRACE ON", /* Name */
  1428. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1429. },
  1430. {
  1431. C_OPTION_USING, /* UniqueID */
  1432. "OPTION USING string$", /* Syntax */
  1433. "Specifies the magic characters for the PRINT USING command. "
  1434. "A common value for string$ is '#,.+-^$*_!&%'. Please examine"
  1435. " the source code for bwb_OPTION_USING for details regarding t"
  1436. "he meaning of each character position.", /* Description */
  1437. "OPTION USING", /* Name */
  1438. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1439. },
  1440. {
  1441. C_OPTION_VERSION, /* UniqueID */
  1442. "OPTION VERSION [version]", /* Syntax */
  1443. "Selects a combination of OPTION settings and enables certain "
  1444. "commands and functions. If no version is specified, displays"
  1445. " a list of the available versions.", /* Description */
  1446. "OPTION VERSION", /* Name */
  1447. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1448. },
  1449. {
  1450. C_PAUSE, /* UniqueID */
  1451. "PAUSE [comment]", /* Syntax */
  1452. "Pauses processing until the ENTER key is presseed.", /* Description */
  1453. "PAUSE", /* Name */
  1454. I70 | I73 /* OptionVersionBitmask */
  1455. },
  1456. {
  1457. C_POP, /* UniqueID */
  1458. "POP", /* Syntax */
  1459. "Pops one GOSUB from the return stack.", /* Description */
  1460. "POP", /* Name */
  1461. B15 | HB2 /* OptionVersionBitmask */
  1462. },
  1463. {
  1464. C_PRINT, /* UniqueID */
  1465. "PRINT [# device-number,][USING format$;] expressions ...", /* Syntax */
  1466. "Sends output to a file. #0 is the console(stdout). #-1 goes"
  1467. " to the printer(stderr).", /* Description */
  1468. "PRINT", /* Name */
  1469. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1470. },
  1471. {
  1472. C_PUT, /* UniqueID */
  1473. "PUT filename$ , value [, ...]", /* Syntax */
  1474. "Puts one (or more) values into a file.", /* Description */
  1475. "PUT", /* Name */
  1476. I70 | D71 | I73 /* OptionVersionBitmask */
  1477. },
  1478. {
  1479. C_QUIT, /* UniqueID */
  1480. "QUIT", /* Syntax */
  1481. "Exits to the operating system.", /* Description */
  1482. "QUIT", /* Name */
  1483. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | E86 /* OptionVersionBitmask */
  1484. },
  1485. {
  1486. C_READ, /* UniqueID */
  1487. "READ variable [, ...]", /* Syntax */
  1488. "Reads values from DATA statements.", /* Description */
  1489. "READ", /* Name */
  1490. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1491. },
  1492. {
  1493. C_RECALL, /* UniqueID */
  1494. "RECALL ArrayName", /* Syntax */
  1495. "Loads a numeric array from a file saved using STORE.", /* Description */
  1496. "RECALL", /* Name */
  1497. B15 | HB2 /* OptionVersionBitmask */
  1498. },
  1499. {
  1500. C_REM, /* UniqueID */
  1501. "REM ...", /* Syntax */
  1502. "Remark.", /* Description */
  1503. "REM", /* Name */
  1504. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1505. },
  1506. {
  1507. C_RENAME, /* UniqueID */
  1508. "RENAME [file-name$]", /* Syntax */
  1509. "Changes the file name which will be used by SAVE. Does not s"
  1510. "ave the file.", /* Description */
  1511. "RENAME", /* Name */
  1512. D64 | G65 | G67 | D71 /* OptionVersionBitmask */
  1513. },
  1514. {
  1515. C_RENUM, /* UniqueID */
  1516. "RENUM", /* Syntax */
  1517. "Implementation defined.", /* Description */
  1518. "RENUM", /* Name */
  1519. B15 | D71 | HB1 | HB2 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  1520. },
  1521. {
  1522. C_RENUMBER, /* UniqueID */
  1523. "RENUMBER", /* Syntax */
  1524. "Implementation defined.", /* Description */
  1525. "RENUMBER", /* Name */
  1526. HB1 | HB2 /* OptionVersionBitmask */
  1527. },
  1528. {
  1529. C_RESET, /* UniqueID */
  1530. "RESET filename$ [, ...]", /* Syntax */
  1531. "Positions an input or output file to the bcginning.", /* Description */
  1532. "RESET", /* Name */
  1533. I70 | I73 /* OptionVersionBitmask */
  1534. },
  1535. {
  1536. C_RESTORE, /* UniqueID */
  1537. "RESTORE [line]", /* Syntax */
  1538. "Resets the line used for the next READ statement. 'line' may"
  1539. " be either a number or a label.", /* Description */
  1540. "RESTORE", /* Name */
  1541. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1542. },
  1543. {
  1544. C_RESUME, /* UniqueID */
  1545. "RESUME [ 0 | line | NEXT ]", /* Syntax */
  1546. "Used in an error handler to specify the next line to execute."
  1547. " RESUME and RESUME 0 branch to ERL. RESUME NEXT branches to"
  1548. " the line after ERL. RESUME line branches to the specified l"
  1549. "ine. 'line' may be either a number or a label.", /* Description */
  1550. "RESUME", /* Name */
  1551. B15 | D71 | HB1 | HB2 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  1552. },
  1553. {
  1554. C_RETURN, /* UniqueID */
  1555. "RETURN", /* Syntax */
  1556. "Concludes a subroutine called by GOSUB.", /* Description */
  1557. "RETURN", /* Name */
  1558. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1559. },
  1560. {
  1561. C_RSET, /* UniqueID */
  1562. "RSET string-variable$ = expression", /* Syntax */
  1563. "Right-aligns the value of expression into string-variable$. "
  1564. "If the length of the value is too short, then it is padded on"
  1565. " the left with spaces. If the length of the value is too lon"
  1566. "g, then it is truncated on the right. This is only for use w"
  1567. "ith variables assigned to a random access buffer with FIELD c"
  1568. "ommand.", /* Description */
  1569. "RSET", /* Name */
  1570. B15 | D71 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  1571. },
  1572. {
  1573. C_RUN, /* UniqueID */
  1574. "RUN [line | file-name$]", /* Syntax */
  1575. "RUN executes the program in memory from the start. RUN line "
  1576. "exexecutes the program in memory beginning at 'line'. RUN fi"
  1577. "le-name$ loads a new BAASIC program and executes the program "
  1578. "from the start.", /* Description */
  1579. "RUN", /* Name */
  1580. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1581. },
  1582. {
  1583. C_SAVE, /* UniqueID */
  1584. "SAVE [file-name$]", /* Syntax */
  1585. "Saves the current program into the file file-name$ in ASCII f"
  1586. "ormat.", /* Description */
  1587. "SAVE", /* Name */
  1588. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1589. },
  1590. {
  1591. C_SCRATCH, /* UniqueID */
  1592. "SCRATCH # X", /* Syntax */
  1593. "Sets the file mode to writing.", /* Description */
  1594. "SCRATCH", /* Name */
  1595. G65 | G67 | HB2 /* OptionVersionBitmask */
  1596. },
  1597. {
  1598. C_SELECT, /* UniqueID */
  1599. "SELECT", /* Syntax */
  1600. "SELECT by itself is a syntax error. Use SELECT CASE instead."
  1601. "", /* Description */
  1602. "SELECT", /* Name */
  1603. B15 | E86 | M88 | VBX /* OptionVersionBitmask */
  1604. },
  1605. {
  1606. C_SELECT_CASE, /* UniqueID */
  1607. "SELECT CASE expression", /* Syntax */
  1608. "Introduces a multi-line conditional selection statement.", /* Description */
  1609. "SELECT CASE", /* Name */
  1610. B15 | E86 | M88 | VBX /* OptionVersionBitmask */
  1611. },
  1612. {
  1613. C_STEP, /* UniqueID */
  1614. "STEP", /* Syntax */
  1615. "STEP by itself is a syntax error. Use FOR ... STEP instead.", /* Description */
  1616. "STEP", /* Name */
  1617. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1618. },
  1619. {
  1620. C_STOP, /* UniqueID */
  1621. "STOP", /* Syntax */
  1622. "Interrupts program execution and displays the line number of "
  1623. "the STOP command. For use when debugging BASIC programs. Wh"
  1624. "ether STOP issues a SIGINT signal is implementation defined.", /* Description */
  1625. "STOP", /* Name */
  1626. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1627. },
  1628. {
  1629. C_STORE, /* UniqueID */
  1630. "STORE ArrayName", /* Syntax */
  1631. "Saves a numeric array into a file for later loading by RECALL"
  1632. ".", /* Description */
  1633. "STORE", /* Name */
  1634. B15 | HB2 /* OptionVersionBitmask */
  1635. },
  1636. {
  1637. C_SUB, /* UniqueID */
  1638. "SUB name [ ( parameter [,...] ) ]", /* Syntax */
  1639. "Top line of a multi-line SUB definition. The variable names "
  1640. "specified are local to the SUB definition, and are initialize"
  1641. "d BYVAL when the subroutine is invoked by another routine.", /* Description */
  1642. "SUB", /* Name */
  1643. B15 | E86 | M88 | VBX /* OptionVersionBitmask */
  1644. },
  1645. {
  1646. C_SUBEND, /* UniqueID */
  1647. "SUBEND", /* Syntax */
  1648. "Specifies the last line of a multi-line SUB definition. Same"
  1649. " as END SUB.", /* Description */
  1650. "SUBEND", /* Name */
  1651. B15 | HB2 /* OptionVersionBitmask */
  1652. },
  1653. {
  1654. C_SWAP, /* UniqueID */
  1655. "SWAP variable, variable", /* Syntax */
  1656. "Swaps the values of two variables. Both variables must be of "
  1657. "the same type.", /* Description */
  1658. "SWAP", /* Name */
  1659. B15 | D71 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  1660. },
  1661. {
  1662. C_SYSTEM, /* UniqueID */
  1663. "SYSTEM", /* Syntax */
  1664. "Exits to the operating system.", /* Description */
  1665. "SYSTEM", /* Name */
  1666. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1667. },
  1668. {
  1669. C_TEXT, /* UniqueID */
  1670. "TEXT letter[-letter] [, ...]", /* Syntax */
  1671. "Declares variables with single-letter names as string variabl"
  1672. "es. Same as DEFSTR. TODO: enforce the range of [MINLEN,MAXL"
  1673. "EN].", /* Description */
  1674. "TEXT", /* Name */
  1675. HB1 | HB2 /* OptionVersionBitmask */
  1676. },
  1677. {
  1678. C_THEN, /* UniqueID */
  1679. "THEN line1", /* Syntax */
  1680. "THEN by itself is a syntax error. Use IF ... THEN line1 inst"
  1681. "ead.", /* Description */
  1682. "THEN", /* Name */
  1683. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1684. },
  1685. {
  1686. C_TIMER, /* UniqueID */
  1687. "TIMER", /* Syntax */
  1688. "TIMER by itself is a syntax error. Use TIMER OFF, TIMER ON, "
  1689. "or TIMER STOP instead.", /* Description */
  1690. "TIMER", /* Name */
  1691. B15 | M88 /* OptionVersionBitmask */
  1692. },
  1693. {
  1694. C_TIMER_OFF, /* UniqueID */
  1695. "TIMER OFF", /* Syntax */
  1696. "TIMER OFF terminates the timer interrupt.", /* Description */
  1697. "TIMER OFF", /* Name */
  1698. B15 | M88 /* OptionVersionBitmask */
  1699. },
  1700. {
  1701. C_TIMER_ON, /* UniqueID */
  1702. "TIMER ON", /* Syntax */
  1703. "TIMER ON enables the timer interrupt. When the specified sec"
  1704. "onds have elapsed, TIMER STOP is internaly executed before th"
  1705. "e interrupt is taken. TIMER ON should be executed just befor"
  1706. "e the RETURN command if you want the interrupt to occur again"
  1707. ".", /* Description */
  1708. "TIMER ON", /* Name */
  1709. B15 | M88 /* OptionVersionBitmask */
  1710. },
  1711. {
  1712. C_TIMER_STOP, /* UniqueID */
  1713. "TIMER STOP", /* Syntax */
  1714. "TIMER STOP disables the interrupt, but the count continues.", /* Description */
  1715. "TIMER STOP", /* Name */
  1716. B15 | M88 /* OptionVersionBitmask */
  1717. },
  1718. {
  1719. C_TLOAD, /* UniqueID */
  1720. "TLOAD [file-name$]", /* Syntax */
  1721. "Loads an ASCII BASIC program into memory.", /* Description */
  1722. "TLOAD", /* Name */
  1723. B15 | HB2 /* OptionVersionBitmask */
  1724. },
  1725. {
  1726. C_TO, /* UniqueID */
  1727. "TO", /* Syntax */
  1728. "TO by itself is a syntax error. Use FOR ... TO instead.", /* Description */
  1729. "TO", /* Name */
  1730. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1731. },
  1732. {
  1733. C_TRACE, /* UniqueID */
  1734. "TRACE ON | OFF", /* Syntax */
  1735. "TRACE enables tracing.", /* Description */
  1736. "TRACE", /* Name */
  1737. G67 | HB1 | HB2 /* OptionVersionBitmask */
  1738. },
  1739. {
  1740. C_TRACE_OFF, /* UniqueID */
  1741. "TRACE OFF", /* Syntax */
  1742. "Disables tracing.", /* Description */
  1743. "TRACE OFF", /* Name */
  1744. G67 | HB1 | HB2 /* OptionVersionBitmask */
  1745. },
  1746. {
  1747. C_TRACE_ON, /* UniqueID */
  1748. "TRACE ON", /* Syntax */
  1749. "TRACE ON enables tracing.", /* Description */
  1750. "TRACE ON", /* Name */
  1751. G67 | HB1 | HB2 /* OptionVersionBitmask */
  1752. },
  1753. {
  1754. C_TSAVE, /* UniqueID */
  1755. "TSAVE [file-name$]", /* Syntax */
  1756. "Saves the current program into the file file-name$ in ASCII f"
  1757. "ormat.", /* Description */
  1758. "TSAVE", /* Name */
  1759. B15 | HB2 /* OptionVersionBitmask */
  1760. },
  1761. {
  1762. C_UEND, /* UniqueID */
  1763. "UEND", /* Syntax */
  1764. "Bottom of a UNTIL - UEND structure.", /* Description */
  1765. "UEND", /* Name */
  1766. B15 | HB2 /* OptionVersionBitmask */
  1767. },
  1768. {
  1769. C_UNTIL, /* UniqueID */
  1770. "UNTIL expression", /* Syntax */
  1771. "Top of a UNTIL - UEND structure. If the expression is zero, "
  1772. "then the loop is terminated.", /* Description */
  1773. "UNTIL", /* Name */
  1774. B15 | HB2 /* OptionVersionBitmask */
  1775. },
  1776. {
  1777. C_USE, /* UniqueID */
  1778. "USE parameter$", /* Syntax */
  1779. "Receives the value from the calling CHAINing program.", /* Description */
  1780. "USE", /* Name */
  1781. I70 | I73 /* OptionVersionBitmask */
  1782. },
  1783. {
  1784. C_USER_LBL, /* UniqueID */
  1785. "USER LBL", /* Syntax */
  1786. "An internal command that allows the BASIC program to find a u"
  1787. "ser label. You do not directly call this command. If your p"
  1788. "rogram has a line with a label, then USER LBL is used to mark"
  1789. " the line.", /* Description */
  1790. "USER LBL", /* Name */
  1791. B15 | D64 | G65 | G67 | I70 | D71 | I73 | C77 | E78 | HB1 | HB2 | T80 | M80 | M85 | E86 | M88 | VBX /* OptionVersionBitmask */
  1792. },
  1793. {
  1794. C_VARS, /* UniqueID */
  1795. "VARS", /* Syntax */
  1796. "Prints a list of all global variables.", /* Description */
  1797. "VARS", /* Name */
  1798. B15 /* OptionVersionBitmask */
  1799. },
  1800. {
  1801. C_WEND, /* UniqueID */
  1802. "WEND", /* Syntax */
  1803. "Bottom of a WHILE - WEND structure.", /* Description */
  1804. "WEND", /* Name */
  1805. B15 | D71 | C77 | HB1 | HB2 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  1806. },
  1807. {
  1808. C_WHILE, /* UniqueID */
  1809. "WHILE", /* Syntax */
  1810. "Top of a WHILE - WEND structure. If the expression is non-ze"
  1811. "ro, then the loop is terminated.", /* Description */
  1812. "WHILE", /* Name */
  1813. B15 | D71 | C77 | HB1 | HB2 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  1814. },
  1815. {
  1816. C_WRITE, /* UniqueID */
  1817. "WRITE [# device-number,] element [, .... ]", /* Syntax */
  1818. "Outputs variables to the screen or to a file.", /* Description */
  1819. "WRITE", /* Name */
  1820. B15 | G65 | G67 | D71 | T80 | M80 | M85 | M88 | VBX /* OptionVersionBitmask */
  1821. },
  1822. };
  1823. /* EOF */