BlankPage: Difference between revisions

From QB64 Phoenix Edition Wiki
Jump to navigation Jump to search
No edit summary
Tag: Reverted
No edit summary
 
(42 intermediate revisions by the same user not shown)
Line 68: Line 68:
</gallery>
</gallery>
<!-- additional availability notes go below here -->
<!-- additional availability notes go below here -->
* The capability to load from ''memory'' was introduced in '''QB64-PE''' ''v3.5.0''.
* The capability to load from ''memory'' was introduced in '''QB64-PE v3.5.0'''.




Line 81: Line 81:
{{CodeEnd}}
{{CodeEnd}}
{{Small|This template allows for a short author credit.}}
{{Small|This template allows for a short author credit.}}
{{PreStart}}
'''Note:''' To avoid the annoying task of manually inserting the templates
in your code examples, since v3.7.0 you may simply write your example
in the IDE and later use the menu "File > Export As > Wiki example" to
export a completely prepared code block, which you can paste "as is"
into the Wiki page.


Oh, and by the way, this ''preformatted text block'' is also new. Generally
it's the same as a ''fixed text block'' shown above, but it uses horizontal
scrollers instead of stretching the text box and it has a more plain
appearance. If you want avoid the horizontal scroller, then restrict
yourself to a line length of max. 72 characters.
{{PreEnd}}


: The output block is available for the SCREEN 0 background colors 0-7
: The output block is available for the SCREEN 0 background colors 0-7
Line 91: Line 103:


{{PageSeeAlso}}
{{PageSeeAlso}}
* [https://qb64phoenix.com/forum/showthread.php?tid=1066 Featured in our "Keyword of the Day" series]
* [[Keyword Reference - Alphabetical]]
* [[Keyword Reference - Alphabetical]]
* [[Keyword Reference - By usage]]
* [[Keyword Reference - By usage]]
Line 96: Line 109:


{{PageNavigation}}
{{PageNavigation}}
{{CodeStart}}
{{Text|'All variables will be of type LONG unless explicitly defined|#31C4C4}}
{{Text|DEFLNG|#F0F0F0}} A-Z
{{Text|'All arrays will be dynamically allocated so they can be REDIM-ed|#31C4C4}}
{{Text|'|#31C4C4}}{{Text|$DYNAMIC|#55FF55}}
{{Text|'We need console access to support command-line compilation via the -x command line compile option|#31C4C4}}
{{Text|$CONSOLE|#55FF55}}
{{Text|'Initially the "SCREEN" will be hidden, if the -x option is used it will never be created|#31C4C4}}
{{Text|$SCREENHIDE|#55FF55}}
{{Text|$EXEICON:|#55FF55}}{{Text|'./qb64pe.ico'|#31C4C4}}
{{Text|$VERSIONINFO:|#55FF55}}CompanyName=QB64 Phoenix Edition
{{Text|$VERSIONINFO:|#55FF55}}FileDescription=QB64 IDE and Compiler
{{Text|$VERSIONINFO:|#55FF55}}InternalName=qb64pe.bas
{{Text|$VERSIONINFO:|#55FF55}}LegalCopyright=MIT
{{Text|$VERSIONINFO:|#55FF55}}LegalTrademarks=
{{Text|$VERSIONINFO:|#55FF55}}OriginalFilename=qb64pe.exe
{{Text|$VERSIONINFO:|#55FF55}}ProductName=QB64-PE
{{Text|$VERSIONINFO:|#55FF55}}Comments=QB64 is a modern extended BASIC programming language that retains QB4.5/QBasic compatibility and compiles native binaries for Windows, Linux and macOS.
{{Text|'|#31C4C4}}{{Text|$INCLUDE:|#55FF55}}{{Text|'global\version.bas'|#31C4C4}}
{{Text|'|#31C4C4}}{{Text|$INCLUDE:|#55FF55}}{{Text|'global\settings.bas'|#31C4C4}}
{{Text|'|#31C4C4}}{{Text|$INCLUDE:|#55FF55}}{{Text|'global\constants.bas'|#31C4C4}}
{{Text|'|#31C4C4}}{{Text|$INCLUDE:|#55FF55}}{{Text|'subs_functions\extensions\opengl\opengl_global.bas'|#31C4C4}}
{{Text|'|#31C4C4}}{{Text|$INCLUDE:|#55FF55}}{{Text|'utilities\ini-manager\ini.bi'|#31C4C4}}
{{Text|'|#31C4C4}}{{Text|$INCLUDE:|#55FF55}}{{Text|'utilities\s-buffer\simplebuffer.bi'|#31C4C4}}
{{Text|DEFLNG|#F0F0F0}} A-Z
{{Text|'-------- Optional IDE Component (1/2) --------|#31C4C4}}
{{Text|'|#31C4C4}}{{Text|$INCLUDE:|#55FF55}}{{Text|'ide\ide_global.bas'|#31C4C4}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} OName({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} {{Text|'Operation Name|#31C4C4}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} PL({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}} {{Text|'Priority Level|#31C4C4}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} PP_TypeMod({{Text|0|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}, PP_ConvertedMod({{Text|0|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} {{Text|'Prepass Name Conversion variables.|#31C4C4}}
Set_OrderOfOperations
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} NoExeSaved {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} vWatchOn, vWatchRecompileAttempts, vWatchDesiredState, vWatchErrorCall$
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} vWatchNewVariable$, vWatchVariableExclusions$
vWatchErrorCall$ = {{Text|"if (stop_program) {*__LONG_VWATCH_LINENUMBER=0; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);};if(new_error){bkp_new_error=new_error;new_error=0;*__LONG_VWATCH_LINENUMBER=-1; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);new_error=bkp_new_error;};"|#FFB100}}
vWatchVariableExclusions$ = {{Text|"@__LONG_VWATCH_LINENUMBER@__LONG_VWATCH_SUBLEVEL@__LONG_VWATCH_GOTO@"|#FFB100}} + _
              {{Text|"@__STRING_VWATCH_SUBNAME@__STRING_VWATCH_CALLSTACK@__ARRAY_BYTE_VWATCH_BREAKPOINTS"|#FFB100}} + _
              {{Text|"@__ARRAY_BYTE_VWATCH_SKIPLINES@__STRING_VWATCH_INTERNALSUBNAME@__ARRAY_STRING_VWATCH_STACK@"|#FFB100}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} nativeDataTypes$
nativeDataTypes$ = {{Text|"@_OFFSET@OFFSET@_UNSIGNED _OFFSET@UNSIGNED OFFSET@_BIT@BIT@_UNSIGNED _BIT@UNSIGNED BIT@_BYTE@_UNSIGNED _BYTE@BYTE@UNSIGNED BYTE@INTEGER@_UNSIGNED INTEGER@UNSIGNED INTEGER@LONG@_UNSIGNED LONG@UNSIGNED LONG@_INTEGER64@INTEGER64@_UNSIGNED _INTEGER64@UNSIGNED INTEGER64@SINGLE@DOUBLE@_FLOAT@FLOAT@STRING@"|#FFB100}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} qb64prefix_set_recompileAttempts, qb64prefix_set_desiredState
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} opex_recompileAttempts, opex_desiredState
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} opexarray_recompileAttempts, opexarray_desiredState
{{Text|REDIM|#F0F0F0}} EveryCaseSet({{Text|100|#F580B1}}), SelectCaseCounter {{Text|AS|#F0F0F0}} {{Text|_UNSIGNED|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} SelectCaseHasCaseBlock({{Text|100|#F580B1}})
{{Text|DIM|#F0F0F0}} ExecLevel({{Text|255|#F580B1}}), ExecCounter {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} UserDefine({{Text|1|#F580B1}}, {{Text|100|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} {{Text|'0 element is the name, 1 element is the string value|#31C4C4}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} InValidLine({{Text|10000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}
{{Text|DIM|#F0F0F0}} DefineElse({{Text|255|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} UserDefineCount {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}, UserDefineList$
UserDefineList$ = {{Text|"@DEFINED@UNDEFINED@WINDOWS@WIN@LINUX@MAC@MACOSX@32BIT@64BIT@VERSION@"|#FFB100}}
UserDefine({{Text|0|#F580B1}}, {{Text|0|#F580B1}}) = {{Text|"WINDOWS"|#FFB100}}: UserDefine({{Text|0|#F580B1}}, {{Text|1|#F580B1}}) = {{Text|"WIN"|#FFB100}}
UserDefine({{Text|0|#F580B1}}, {{Text|2|#F580B1}}) = {{Text|"LINUX"|#FFB100}}
UserDefine({{Text|0|#F580B1}}, {{Text|3|#F580B1}}) = {{Text|"MAC"|#FFB100}}: UserDefine({{Text|0|#F580B1}}, {{Text|4|#F580B1}}) = {{Text|"MACOSX"|#FFB100}}
UserDefine({{Text|0|#F580B1}}, {{Text|5|#F580B1}}) = {{Text|"32BIT"|#FFB100}}: UserDefine({{Text|0|#F580B1}}, {{Text|6|#F580B1}}) = {{Text|"64BIT"|#FFB100}}
UserDefine({{Text|0|#F580B1}}, {{Text|7|#F580B1}}) = {{Text|"VERSION"|#FFB100}}
{{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}({{Text|_OS$|#F0F0F0}}, {{Text|"WIN"|#FFB100}}) {{Text|THEN|#F0F0F0}} UserDefine({{Text|1|#F580B1}}, {{Text|0|#F580B1}}) = {{Text|"-1"|#FFB100}}: UserDefine({{Text|1|#F580B1}}, {{Text|1|#F580B1}}) = {{Text|"-1"|#FFB100}} {{Text|ELSE|#F0F0F0}} UserDefine({{Text|1|#F580B1}}, {{Text|0|#F580B1}}) = {{Text|"0"|#FFB100}}: UserDefine({{Text|1|#F580B1}}, {{Text|1|#F580B1}}) = {{Text|"0"|#FFB100}}
{{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}({{Text|_OS$|#F0F0F0}}, {{Text|"LINUX"|#FFB100}}) {{Text|THEN|#F0F0F0}} UserDefine({{Text|1|#F580B1}}, {{Text|2|#F580B1}}) = {{Text|"-1"|#FFB100}} {{Text|ELSE|#F0F0F0}} UserDefine({{Text|1|#F580B1}}, {{Text|2|#F580B1}}) = {{Text|"0"|#FFB100}}
{{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}({{Text|_OS$|#F0F0F0}}, {{Text|"MAC"|#FFB100}}) {{Text|THEN|#F0F0F0}} UserDefine({{Text|1|#F580B1}}, {{Text|3|#F580B1}}) = {{Text|"-1"|#FFB100}}: UserDefine({{Text|1|#F580B1}}, {{Text|4|#F580B1}}) = {{Text|"-1"|#FFB100}} {{Text|ELSE|#F0F0F0}} UserDefine({{Text|1|#F580B1}}, {{Text|3|#F580B1}}) = {{Text|"0"|#FFB100}}: UserDefine({{Text|1|#F580B1}}, {{Text|4|#F580B1}}) = {{Text|"0"|#FFB100}}
{{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}({{Text|_OS$|#F0F0F0}}, {{Text|"32BIT"|#FFB100}}) {{Text|THEN|#F0F0F0}} UserDefine({{Text|1|#F580B1}}, {{Text|5|#F580B1}}) = {{Text|"-1"|#FFB100}}: UserDefine({{Text|1|#F580B1}}, {{Text|6|#F580B1}}) = {{Text|"0"|#FFB100}} {{Text|ELSE|#F0F0F0}} UserDefine({{Text|1|#F580B1}}, {{Text|5|#F580B1}}) = {{Text|"0"|#FFB100}}: UserDefine({{Text|1|#F580B1}}, {{Text|6|#F580B1}}) = {{Text|"-1"|#FFB100}}
UserDefine({{Text|1|#F580B1}}, {{Text|7|#F580B1}}) = Version$
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} QB64_uptime!
QB64_uptime! = {{Text|TIMER|#F0F0F0}}
NoInternalFolder:
{{Text|IF|#F0F0F0}} {{Text|_DIREXISTS|#F0F0F0}}({{Text|"internal"|#FFB100}}) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
    {{Text|_SCREENSHOW|#F0F0F0}}
    {{Text|PRINT|#F0F0F0}} {{Text|"QB64-PE cannot locate the 'internal' folder"|#FFB100}}
    {{Text|PRINT|#F0F0F0}}
    {{Text|PRINT|#F0F0F0}} {{Text|"Check that QB64-PE has been extracted properly."|#FFB100}}
    {{Text|PRINT|#F0F0F0}} {{Text|"For MacOSX, launch 'qb64pe_start.command' or enter './qb64pe' in Terminal."|#FFB100}}
    {{Text|PRINT|#F0F0F0}} {{Text|"For Linux, in the console enter './qb64pe'."|#FFB100}}
    {{Text|DO|#F0F0F0}}
        {{Text|_LIMIT|#F0F0F0}} {{Text|1|#F580B1}}
    {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} {{Text|INKEY$|#F0F0F0}} <> {{Text|""|#FFB100}}
    {{Text|SYSTEM|#F0F0F0}} {{Text|1|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} Include_GDB_Debugging_Info {{Text|'set using "options.bin"|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} DEPENDENCY_LAST
{{Text|CONST|#F0F0F0}} DEPENDENCY_LOADFONT = {{Text|1|#F580B1}}: DEPENDENCY_LAST = DEPENDENCY_LAST + {{Text|1|#F580B1}}
{{Text|CONST|#F0F0F0}} DEPENDENCY_AUDIO_CONVERSION = {{Text|2|#F580B1}}: DEPENDENCY_LAST = DEPENDENCY_LAST + {{Text|1|#F580B1}}
{{Text|CONST|#F0F0F0}} DEPENDENCY_AUDIO_DECODE = {{Text|3|#F580B1}}: DEPENDENCY_LAST = DEPENDENCY_LAST + {{Text|1|#F580B1}}
{{Text|CONST|#F0F0F0}} DEPENDENCY_AUDIO_OUT = {{Text|4|#F580B1}}: DEPENDENCY_LAST = DEPENDENCY_LAST + {{Text|1|#F580B1}}
{{Text|CONST|#F0F0F0}} DEPENDENCY_GL = {{Text|5|#F580B1}}: DEPENDENCY_LAST = DEPENDENCY_LAST + {{Text|1|#F580B1}}
{{Text|CONST|#F0F0F0}} DEPENDENCY_IMAGE_CODEC = {{Text|6|#F580B1}}: DEPENDENCY_LAST = DEPENDENCY_LAST + {{Text|1|#F580B1}}
{{Text|CONST|#F0F0F0}} DEPENDENCY_CONSOLE_ONLY = {{Text|7|#F580B1}}: DEPENDENCY_LAST = DEPENDENCY_LAST + {{Text|1|#F580B1}} {{Text|'=2 if via -g switch, =1 if via metacommand $CONSOLE:ONLY|#31C4C4}}
{{Text|CONST|#F0F0F0}} DEPENDENCY_SOCKETS = {{Text|8|#F580B1}}: DEPENDENCY_LAST = DEPENDENCY_LAST + {{Text|1|#F580B1}}
{{Text|CONST|#F0F0F0}} DEPENDENCY_PRINTER = {{Text|9|#F580B1}}: DEPENDENCY_LAST = DEPENDENCY_LAST + {{Text|1|#F580B1}}
{{Text|CONST|#F0F0F0}} DEPENDENCY_ICON = {{Text|10|#F580B1}}: DEPENDENCY_LAST = DEPENDENCY_LAST + {{Text|1|#F580B1}}
{{Text|CONST|#F0F0F0}} DEPENDENCY_SCREENIMAGE = {{Text|11|#F580B1}}: DEPENDENCY_LAST = DEPENDENCY_LAST + {{Text|1|#F580B1}}
{{Text|CONST|#F0F0F0}} DEPENDENCY_DEVICEINPUT = {{Text|12|#F580B1}}: DEPENDENCY_LAST = DEPENDENCY_LAST + {{Text|1|#F580B1}} {{Text|'removes support for gamepad input if not present|#31C4C4}}
{{Text|CONST|#F0F0F0}} DEPENDENCY_ZLIB = {{Text|13|#F580B1}}: DEPENDENCY_LAST = DEPENDENCY_LAST + {{Text|1|#F580B1}} {{Text|'ZLIB library linkage, if desired, for compression/decompression.|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} DEPENDENCY({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} DEPENDENCY_LAST)
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} UseGL {{Text|'declared SUB _GL (no params)|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} OS_BITS {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, WindowTitle {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
OS_BITS = {{Text|64|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}({{Text|_OS$|#F0F0F0}}, {{Text|"[32BIT]"|#FFB100}}) {{Text|THEN|#F0F0F0}} OS_BITS = {{Text|32|#F580B1}}
{{Text|IF|#F0F0F0}} OS_BITS = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} WindowTitle = {{Text|"QB64 Phoenix Edition (x32)"|#FFB100}} {{Text|ELSE|#F0F0F0}} WindowTitle = {{Text|"QB64 Phoenix Edition (x64)"|#FFB100}}
{{Text|_TITLE|#F0F0F0}} WindowTitle
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ConsoleMode, No_C_Compile_Mode, NoIDEMode
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ShowWarnings {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}, QuietMode {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}, CMDLineFile {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} MonochromeLoggingMode {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}
{{Text|TYPE|#F0F0F0}} usedVarList
    {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}} id, linenumber, includeLevel, includedLine, scope, localIndex
    {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}} arrayElementSize
    {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}} used, watch, isarray, displayFormat {{Text|'displayFormat: 0=DEC;1=HEX;2=BIN;3=OCT|#31C4C4}}
    {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} name, cname, varType, includedFile, subfunc
    {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} watchRange, indexes, elements, elementTypes {{Text|'for Arrays and UDTs|#31C4C4}}
    {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} elementOffset, storage
{{Text|END|#F0F0F0}} {{Text|TYPE|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} backupUsedVariableList({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} usedVarList
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} typeDefinitions$, backupTypeDefinitions$
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} totalVariablesCreated {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, totalMainVariablesCreated {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} bypassNextVariable {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} totalWarnings {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, warningListItems {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, lastWarningHeader {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} duplicateConstWarning {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}, warningsissued {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} emptySCWarning {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}, maxLineNumber {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ExeIconSet {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, qb64prefix$, qb64prefix_set
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} VersionInfoSet {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}
{{Text|'Variables to handle $VERSIONINFO metacommand:|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} viFileVersionNum$, viProductVersionNum$, viCompanyName$
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} viFileDescription$, viFileVersion$, viInternalName$
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} viLegalCopyright$, viLegalTrademarks$, viOriginalFilename$
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} viProductName$, viProductVersion$, viComments$, viWeb$
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} NoChecks
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}}{{Text|_Console|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}}{{Text|_ScreenHide|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} Asserts
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} OptMax {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
OptMax = {{Text|256|#F580B1}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} Opt({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} OptMax, {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|10|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|256|#F580B1}}
{{Text|'  (1,1)="READ"|#31C4C4}}
{{Text|'  (1,2)="WRITE"|#31C4C4}}
{{Text|'  (1,3)="READ WRITE"|#31C4C4}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} OptWords({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} OptMax, {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|10|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}} {{Text|'The number of words of each opt () element|#31C4C4}}
{{Text|'  (1,1)=1 '"READ"|#31C4C4}}
{{Text|'  (1,2)=1 '"WRITE"|#31C4C4}}
{{Text|'  (1,3)=2 '"READ WRITE"|#31C4C4}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} T({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} OptMax) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}} {{Text|'The type of the entry|#31C4C4}}
{{Text|'  t is 0 for ? opts|#31C4C4}}
{{Text|'  ---------- 0 means ? , 1+ means a symbol or {}block ----------|#31C4C4}}
{{Text|'  t is 1 for symbol opts|#31C4C4}}
{{Text|'  t is the number of rhs opt () index enteries for {READ¦WRITE¦READ WRITE} like opts|#31C4C4}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} Lev({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} OptMax) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}} {{Text|'The indwelling level of each opt () element (the lowest is 0)|#31C4C4}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} EntryLev({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} OptMax) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}} {{Text|'The level required from which this opt () can be validly be entered/checked-for|#31C4C4}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} DitchLev({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} OptMax) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}} {{Text|'The lowest level recorded between the previous Opt and this Opt|#31C4C4}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} DontPass({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} OptMax) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}} {{Text|'Set to 1 or 0, with 1 meaning don't pass|#31C4C4}}
{{Text|'Determines whether the opt () entry needs to actually be passed to the C++ sub/function|#31C4C4}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} TempList({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} OptMax) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} PassRule({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} OptMax) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|'0 means no pass rule|#31C4C4}}
{{Text|'negative values refer to an opt () element|#31C4C4}}
{{Text|'positive values refer to a flag value|#31C4C4}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} LevelEntered(OptMax) {{Text|'up to 64 levels supported|#31C4C4}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} separgs(OptMax + {{Text|1|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} separgslayout(OptMax + {{Text|1|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} separgs2(OptMax + {{Text|1|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} separgslayout2(OptMax + {{Text|1|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} E
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ResolveStaticFunctions
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ResolveStaticFunction_File({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|100|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ResolveStaticFunction_Name({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|100|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ResolveStaticFunction_Method({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|100|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} Error_Happened {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} Error_Message {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} os {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
os$ = {{Text|"WIN"|#FFB100}}
{{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}({{Text|_OS$|#F0F0F0}}, {{Text|"[LINUX]"|#FFB100}}) {{Text|THEN|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} MacOSX {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}({{Text|_OS$|#F0F0F0}}, {{Text|"[MACOSX]"|#FFB100}}) {{Text|THEN|#F0F0F0}} MacOSX = {{Text|1|#F580B1}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} inline_DATA
{{Text|IF|#F0F0F0}} MacOSX {{Text|THEN|#F0F0F0}} inline_DATA = {{Text|1|#F580B1}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} BATCHFILE_EXTENSION {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
BATCHFILE_EXTENSION = {{Text|".bat"|#FFB100}}
{{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}} BATCHFILE_EXTENSION = {{Text|".sh"|#FFB100}}
{{Text|IF|#F0F0F0}} MacOSX {{Text|THEN|#F0F0F0}} BATCHFILE_EXTENSION = {{Text|".command"|#FFB100}}
{{Text|DIM|#F0F0F0}} inlinedatastr({{Text|255|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|FOR|#F0F0F0}} i = {{Text|0|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|255|#F580B1}}
    inlinedatastr(i) = str2$(i) + {{Text|","|#FFB100}}
{{Text|NEXT|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} extension {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} path.exe$, path.source$, lastBinaryGenerated$
extension$ = {{Text|".exe"|#FFB100}}
{{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}} extension$ = {{Text|""|#FFB100}} {{Text|'no extension under Linux|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} pathsep {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|1|#F580B1}}
pathsep$ = {{Text|"\"|#FFB100}}
{{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}} pathsep$ = {{Text|"/"|#FFB100}}
{{Text|'note: QB64 handles OS specific path separators automatically except under SHELL calls|#31C4C4}}
{{Text|ON|#F0F0F0}} {{Text|ERROR|#F0F0F0}} {{Text|GOTO|#F0F0F0}} qberror_test
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} tmpdir {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}, tmpdir2 {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|IF|#F0F0F0}} os$ = {{Text|"WIN"|#FFB100}} {{Text|THEN|#F0F0F0}} tmpdir$ = {{Text|".\internal\temp\"|#FFB100}}: tmpdir2$ = {{Text|"..\\temp\\"|#FFB100}}
{{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}} tmpdir$ = {{Text|"./internal/temp/"|#FFB100}}: tmpdir2$ = {{Text|"../temp/"|#FFB100}}
{{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} {{Text|_DIREXISTS|#F0F0F0}}(tmpdir$) {{Text|THEN|#F0F0F0}} {{Text|MKDIR|#F0F0F0}} tmpdir$
{{Text|DECLARE|#F0F0F0}} {{Text|LIBRARY|#F0F0F0}}
    {{Text|FUNCTION|#F0F0F0}} getpid& ()
{{Text|END|#F0F0F0}} {{Text|DECLARE|#F0F0F0}}
thisinstancepid = getpid&
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} tempfolderindex
{{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}({{Text|_OS$|#F0F0F0}}, {{Text|"LINUX"|#FFB100}}) {{Text|THEN|#F0F0F0}}
    fh = {{Text|FREEFILE|#F0F0F0}}
    {{Text|OPEN|#F0F0F0}} {{Text|".\internal\temp\tempfoldersearch.bin"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|RANDOM|#F0F0F0}} {{Text|AS|#F0F0F0}} #fh {{Text|LEN|#F0F0F0}} = {{Text|LEN|#F0F0F0}}(tempfolderindex)
    tempfolderrecords = {{Text|LOF|#F0F0F0}}(fh) / {{Text|LEN|#F0F0F0}}(tempfolderindex)
    i = {{Text|1|#F580B1}}
    {{Text|IF|#F0F0F0}} tempfolderrecords = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|'first run ever?|#31C4C4}}
        {{Text|PUT|#F0F0F0}} #fh, {{Text|1|#F580B1}}, thisinstancepid
    {{Text|ELSE|#F0F0F0}}
        {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} tempfolderrecords
            {{Text|'check if any of the temp folders is being used = pid still active|#31C4C4}}
            {{Text|GET|#F0F0F0}} #fh, i, tempfoldersearch
            {{Text|SHELL|#F0F0F0}} {{Text|_HIDE|#F0F0F0}} {{Text|"ps -p "|#FFB100}} + {{Text|STR$|#F0F0F0}}(tempfoldersearch) + {{Text|" > /dev/null 2>&1; echo $? > internal/temp/checkpid.bin"|#FFB100}}
            fh2 = {{Text|FREEFILE|#F0F0F0}}
            {{Text|OPEN|#F0F0F0}} {{Text|"internal/temp/checkpid.bin"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|BINARY|#F0F0F0}} {{Text|AS|#F0F0F0}} #fh2
            {{Text|LINE|#F0F0F0}} {{Text|INPUT|#F0F0F0}} #fh2, checkpid$
            {{Text|CLOSE|#F0F0F0}} #fh2
            {{Text|IF|#F0F0F0}} {{Text|VAL|#F0F0F0}}(checkpid$) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|'This temp folder was locked by an instance that's no longer active, so|#31C4C4}}
                {{Text|'this will be our temp folder|#31C4C4}}
                {{Text|PUT|#F0F0F0}} #fh, i, thisinstancepid
                {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|NEXT|#F0F0F0}}
        {{Text|IF|#F0F0F0}} i > tempfolderrecords {{Text|THEN|#F0F0F0}}
            {{Text|'All indexes were busy. Let's initiate a new one:|#31C4C4}}
            {{Text|PUT|#F0F0F0}} #fh, i, thisinstancepid
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|CLOSE|#F0F0F0}} #fh
    {{Text|IF|#F0F0F0}} i > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        tmpdir$ = {{Text|"./internal/temp"|#FFB100}} + str2$(i) + {{Text|"/"|#FFB100}}: tmpdir2$ = {{Text|"../temp"|#FFB100}} + str2$(i) + {{Text|"/"|#FFB100}}
        {{Text|IF|#F0F0F0}} {{Text|_DIREXISTS|#F0F0F0}}(tmpdir$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|MKDIR|#F0F0F0}} tmpdir$
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"temp.bin"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|LOCK|#F0F0F0}} {{Text|WRITE|#F0F0F0}} {{Text|AS|#F0F0F0}} #26
{{Text|ELSE|#F0F0F0}}
    {{Text|ON|#F0F0F0}} {{Text|ERROR|#F0F0F0}} {{Text|GOTO|#F0F0F0}} qberror_test
    E = {{Text|0|#F580B1}}
    i = {{Text|1|#F580B1}}
    {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"temp.bin"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|LOCK|#F0F0F0}} {{Text|WRITE|#F0F0F0}} {{Text|AS|#F0F0F0}} #26
    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} E
        i = i + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} i = {{Text|1000|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} {{Text|"Unable to locate the 'internal' folder"|#FFB100}}: {{Text|END|#F0F0F0}} {{Text|1|#F580B1}}
        {{Text|MKDIR|#F0F0F0}} {{Text|".\internal\temp"|#FFB100}} + str2$(i)
        {{Text|IF|#F0F0F0}} os$ = {{Text|"WIN"|#FFB100}} {{Text|THEN|#F0F0F0}} tmpdir$ = {{Text|".\internal\temp"|#FFB100}} + str2$(i) + {{Text|"\"|#FFB100}}: tmpdir2$ = {{Text|"..\\temp"|#FFB100}} + str2$(i) + {{Text|"\\"|#FFB100}}
        {{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}} tmpdir$ = {{Text|"./internal/temp"|#FFB100}} + str2$(i) + {{Text|"/"|#FFB100}}: tmpdir2$ = {{Text|"../temp"|#FFB100}} + str2$(i) + {{Text|"/"|#FFB100}}
        E = {{Text|0|#F580B1}}
        {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"temp.bin"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|LOCK|#F0F0F0}} {{Text|WRITE|#F0F0F0}} {{Text|AS|#F0F0F0}} #26
    {{Text|LOOP|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|'temp folder established|#31C4C4}}
tempfolderindex = i
{{Text|IF|#F0F0F0}} i > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
    {{Text|'create modified version of qbx.cpp|#31C4C4}}
    {{Text|OPEN|#F0F0F0}} {{Text|".\internal\c\qbx"|#FFB100}} + str2$(i) + {{Text|".cpp"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|AS|#F0F0F0}} #2
    {{Text|OPEN|#F0F0F0}} {{Text|".\internal\c\qbx.cpp"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|BINARY|#F0F0F0}} {{Text|AS|#F0F0F0}} #1
    {{Text|DO|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} {{Text|EOF|#F0F0F0}}({{Text|1|#F580B1}})
        {{Text|LINE|#F0F0F0}} {{Text|INPUT|#F0F0F0}} #1, a$
        x = {{Text|INSTR|#F0F0F0}}(a$, {{Text|"..\\temp\\"|#FFB100}}): {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}} a$ = {{Text|LEFT$|#F0F0F0}}(a$, x - {{Text|1|#F580B1}}) + {{Text|"..\\temp"|#FFB100}} + str2$(i) + {{Text|"\\"|#FFB100}} + {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - (x + {{Text|9|#F580B1}}))
        x = {{Text|INSTR|#F0F0F0}}(a$, {{Text|"../temp/"|#FFB100}}): {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}} a$ = {{Text|LEFT$|#F0F0F0}}(a$, x - {{Text|1|#F580B1}}) + {{Text|"../temp"|#FFB100}} + str2$(i) + {{Text|"/"|#FFB100}} + {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - (x + {{Text|7|#F580B1}}))
        {{Text|PRINT|#F0F0F0}} #2, a$
    {{Text|LOOP|#F0F0F0}}
    {{Text|CLOSE|#F0F0F0}} #1, #2
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"debug.txt"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|AS|#F0F0F0}} #9
{{Text|ON|#F0F0F0}} {{Text|ERROR|#F0F0F0}} {{Text|GOTO|#F0F0F0}} qberror
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} tempfolderindexstr {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} {{Text|'appended to "Untitled"|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} tempfolderindexstr2 {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|IF|#F0F0F0}} tempfolderindex <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} tempfolderindexstr$ = {{Text|"("|#FFB100}} + str2$(tempfolderindex) + {{Text|")"|#FFB100}}: tempfolderindexstr2$ = str2$(tempfolderindex)
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} idedebuginfo
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} seperateargs_error
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} seperateargs_error_message {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} compfailed
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} reginternalsubfunc
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} reginternalvariable
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} symboltype_size
symboltype_size = {{Text|0|#F580B1}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} use_global_byte_elements
use_global_byte_elements = {{Text|0|#F580B1}}
{{Text|'compiler-side IDE data & definitions|#31C4C4}}
{{Text|'SHARED variables "passed" to/from the compiler & IDE|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} idecommand {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} {{Text|'a 1 byte message-type code, followed by optional string data|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} idereturn {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} {{Text|'used to pass formatted-lines and return information back to the IDE|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ideerror {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} idecompiled {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} idemode {{Text|'1 if using the IDE to compile|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ideerrorline {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}} {{Text|'set by qb64-error(...) to the line number it would have reported, this number|#31C4C4}}
{{Text|'is later passed to the ide in message #8|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} idemessage {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} {{Text|'set by qb64-error(...) to the error message to be reported, this|#31C4C4}}
{{Text|'is later passed to the ide in message #8|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} optionexplicit {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} optionexplicitarray {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} optionexplicit_cmd {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ideStartAtLine {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, errorLineInInclude {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} warningInInclude {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, warningInIncludeLine {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} outputfile_cmd$
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} compilelog$
{{Text|'|#31C4C4}}{{Text|$INCLUDE:|#55FF55}}{{Text|'global\IDEsettings.bas'|#31C4C4}}
{{Text|DIM|#F0F0F0}} OutputIsRelativeToStartDir {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
CMDLineFile = ParseCMDLineArgs$
{{Text|IF|#F0F0F0}} CMDLineFile <> {{Text|""|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|_STARTDIR$|#F0F0F0}} + {{Text|"/"|#FFB100}} + CMDLineFile) {{Text|THEN|#F0F0F0}}
    CMDLineFile = {{Text|_STARTDIR$|#F0F0F0}} + {{Text|"/"|#FFB100}} + CMDLineFile
    OutputIsRelativeToStartDir = {{Text|-1|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} ConsoleMode {{Text|THEN|#F0F0F0}}
    {{Text|_DEST|#F0F0F0}} {{Text|_CONSOLE|#F0F0F0}}
{{Text|ELSE|#F0F0F0}}
    {{Text|_CONSOLE|#F0F0F0}} {{Text|OFF|#F0F0F0}}
    {{Text|_SCREENSHOW|#F0F0F0}}
    {{Text|_ICON|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|'the function ?=ide(?) should always be passed 0, it returns a message code number, any further information|#31C4C4}}
{{Text|'is passed back in idereturn|#31C4C4}}
{{Text|'message code numbers:|#31C4C4}}
{{Text|'0  no ide present  (auto defined array ide() return 0)|#31C4C4}}
{{Text|'1  launch ide & with passed filename (compiler->ide)|#31C4C4}}
{{Text|'2  begin new compilation with returned line of code (compiler<-ide)|#31C4C4}}
{{Text|'  [2][line of code]|#31C4C4}}
{{Text|'3  request next line (compiler->ide)|#31C4C4}}
{{Text|'  [3]|#31C4C4}}
{{Text|'4  next line of code returned (compiler<-ide)|#31C4C4}}
{{Text|'  [4][line of code]|#31C4C4}}
{{Text|'5  no more lines of code exist (compiler<-ide)|#31C4C4}}
{{Text|'  [5]|#31C4C4}}
{{Text|'6  code is OK/ready (compiler->ide)|#31C4C4}}
{{Text|'  [6]|#31C4C4}}
{{Text|'7  repass the code from the beginning (compiler->ide)|#31C4C4}}
{{Text|'  [7]|#31C4C4}}
{{Text|'8  an error has occurred with 'this' message on 'this' line(compiler->ide)|#31C4C4}}
{{Text|'  [8][error message][line as LONG]|#31C4C4}}
{{Text|'9  C++ compile (if necessary) and run with 'this' name (compiler<-ide)|#31C4C4}}
{{Text|'  [9][name(no path, no .bas)]|#31C4C4}}
{{Text|'10 The line requires more time to process|#31C4C4}}
{{Text|'      Pass-back 'line of code' using method [4] when ready|#31C4C4}}
{{Text|'  [10][line of code]|#31C4C4}}
{{Text|'11 ".EXE file created" message|#31C4C4}}
{{Text|'12    The name of the exe I'll create is '...' (compiler->ide)|#31C4C4}}
{{Text|'  [12][exe name without .exe]|#31C4C4}}
{{Text|'255    A qb error happened in the IDE (compiler->ide)|#31C4C4}}
{{Text|'  note: detected by the fact that ideerror was not set to 0|#31C4C4}}
{{Text|'  [255]|#31C4C4}}
{{Text|'hash table data|#31C4C4}}
{{Text|TYPE|#F0F0F0}} HashListItem
    Flags {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    Reference {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    NextItem {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    PrevItem {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    LastItem {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}} {{Text|'note: this value is only valid on the first item in the list|#31C4C4}}
    {{Text|'note: name is stored in a seperate array of strings|#31C4C4}}
{{Text|END|#F0F0F0}} {{Text|TYPE|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} HashFind_NextListItem {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} HashFind_Reverse {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} HashFind_SearchFlags {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} HashFind_Name {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} HashRemove_LastFound {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} HashListSize {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} HashListNext {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} HashListFreeSize {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} HashListFreeLast {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|'hash lookup tables|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} hash1char({{Text|255|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} hash2char({{Text|65535|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|FOR|#F0F0F0}} x = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|26|#F580B1}}
    hash1char({{Text|64|#F580B1}} + x) = x
    hash1char({{Text|96|#F580B1}} + x) = x
{{Text|NEXT|#F0F0F0}}
hash1char({{Text|95|#F580B1}}) = {{Text|27|#F580B1}} {{Text|'_|#31C4C4}}
hash1char({{Text|48|#F580B1}}) = {{Text|28|#F580B1}} {{Text|'0|#31C4C4}}
hash1char({{Text|49|#F580B1}}) = {{Text|29|#F580B1}} {{Text|'1|#31C4C4}}
hash1char({{Text|50|#F580B1}}) = {{Text|30|#F580B1}} {{Text|'2|#31C4C4}}
hash1char({{Text|51|#F580B1}}) = {{Text|31|#F580B1}} {{Text|'3|#31C4C4}}
hash1char({{Text|52|#F580B1}}) = {{Text|23|#F580B1}} {{Text|'4 'note: x, y, z and beginning alphabet letters avoided because of common usage (eg. a2, y3)|#31C4C4}}
hash1char({{Text|53|#F580B1}}) = {{Text|22|#F580B1}} {{Text|'5|#31C4C4}}
hash1char({{Text|54|#F580B1}}) = {{Text|20|#F580B1}} {{Text|'6|#31C4C4}}
hash1char({{Text|55|#F580B1}}) = {{Text|19|#F580B1}} {{Text|'7|#31C4C4}}
hash1char({{Text|56|#F580B1}}) = {{Text|18|#F580B1}} {{Text|'8|#31C4C4}}
hash1char({{Text|57|#F580B1}}) = {{Text|17|#F580B1}} {{Text|'9|#31C4C4}}
{{Text|FOR|#F0F0F0}} c1 = {{Text|0|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|255|#F580B1}}
    {{Text|FOR|#F0F0F0}} c2 = {{Text|0|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|255|#F580B1}}
        hash2char(c1 + c2 * {{Text|256|#F580B1}}) = hash1char(c1) + hash1char(c2) * {{Text|32|#F580B1}}
    {{Text|NEXT|#F0F0F0}}
{{Text|NEXT|#F0F0F0}}
{{Text|'init|#31C4C4}}
HashListSize = {{Text|65536|#F580B1}}
HashListNext = {{Text|1|#F580B1}}
HashListFreeSize = {{Text|1024|#F580B1}}
HashListFreeLast = {{Text|0|#F580B1}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} HashList({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} HashListSize) {{Text|AS|#F0F0F0}} HashListItem
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} HashListName({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} HashListSize) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|256|#F580B1}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} HashListFree({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} HashListFreeSize) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} HashTable({{Text|16777215|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}} {{Text|'64MB lookup table with indexes to the hashlist|#31C4C4}}
{{Text|CONST|#F0F0F0}} HASHFLAG_LABEL = {{Text|2|#F580B1}}
{{Text|CONST|#F0F0F0}} HASHFLAG_TYPE = {{Text|4|#F580B1}}
{{Text|CONST|#F0F0F0}} HASHFLAG_RESERVED = {{Text|8|#F580B1}}
{{Text|CONST|#F0F0F0}} HASHFLAG_OPERATOR = {{Text|16|#F580B1}}
{{Text|CONST|#F0F0F0}} HASHFLAG_CUSTOMSYNTAX = {{Text|32|#F580B1}}
{{Text|CONST|#F0F0F0}} HASHFLAG_SUB = {{Text|64|#F580B1}}
{{Text|CONST|#F0F0F0}} HASHFLAG_FUNCTION = {{Text|128|#F580B1}}
{{Text|CONST|#F0F0F0}} HASHFLAG_UDT = {{Text|256|#F580B1}}
{{Text|CONST|#F0F0F0}} HASHFLAG_UDTELEMENT = {{Text|512|#F580B1}}
{{Text|CONST|#F0F0F0}} HASHFLAG_CONSTANT = {{Text|1024|#F580B1}}
{{Text|CONST|#F0F0F0}} HASHFLAG_VARIABLE = {{Text|2048|#F580B1}}
{{Text|CONST|#F0F0F0}} HASHFLAG_ARRAY = {{Text|4096|#F580B1}}
{{Text|CONST|#F0F0F0}} HASHFLAG_XELEMENTNAME = {{Text|8192|#F580B1}}
{{Text|CONST|#F0F0F0}} HASHFLAG_XTYPENAME = {{Text|16384|#F580B1}}
{{Text|TYPE|#F0F0F0}} Label_Type
    State {{Text|AS|#F0F0F0}} {{Text|_UNSIGNED|#F0F0F0}} {{Text|_BYTE|#F0F0F0}} {{Text|'0=label referenced, 1=label created|#31C4C4}}
    cn {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|256|#F580B1}}
    Scope {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    Data_Offset {{Text|AS|#F0F0F0}} _INTEGER64 {{Text|'offset within data|#31C4C4}}
    Data_Referenced {{Text|AS|#F0F0F0}} {{Text|_UNSIGNED|#F0F0F0}} {{Text|_BYTE|#F0F0F0}} {{Text|'set to 1 if data is referenced (data_offset will be used to create the data offset variable)|#31C4C4}}
    Error_Line {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}} {{Text|'the line number to reference on errors|#31C4C4}}
    Scope_Restriction {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}} {{Text|'cannot exist inside this scope (post checked)|#31C4C4}}
    SourceLineNumber {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|TYPE|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} nLabels, Labels_Ubound
Labels_Ubound = {{Text|100|#F580B1}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} Labels({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} Labels_Ubound) {{Text|AS|#F0F0F0}} Label_Type
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} Empty_Label {{Text|AS|#F0F0F0}} Label_Type
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} PossibleSubNameLabels {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} {{Text|'format: name+sp+name+sp+name <-ucase$'d|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} SubNameLabels {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} {{Text|'format: name+sp+name+sp+name <-ucase$'d|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} CreatingLabel {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} AllowLocalName {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} DataOffset
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} prepass
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} autoarray
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ontimerid, onkeyid, onstrigid
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} revertmaymusthave({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|10000|#F580B1}})
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} revertmaymusthaven
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} linecontinuation
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} dim2typepassback {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} {{Text|'passes back correct case sensitive version of type|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} inclevel
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} incname({{Text|100|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} {{Text|'must be full path as given|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} inclinenumber({{Text|100|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} incerror {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} fix046 {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
fix046$ = {{Text|"__"|#FFB100}} + {{Text|"ASCII"|#FFB100}} + {{Text|"_"|#FFB100}} + {{Text|"CHR"|#FFB100}} + {{Text|"_"|#FFB100}} + {{Text|"046"|#FFB100}} + {{Text|"__"|#FFB100}} {{Text|'broken up to avoid detection for layout reversion|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} layout {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} {{Text|'passed to IDE|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} layoutok {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}} {{Text|'tracks status of entire line|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} layoutcomment {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} tlayout {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} {{Text|'temporary layout string set by supporting functions|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} layoutdone {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}} {{Text|'tracks status of single command|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} fooindwel
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} alphanumeric({{Text|255|#F580B1}})
{{Text|FOR|#F0F0F0}} i = {{Text|48|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|57|#F580B1}}
    alphanumeric(i) = {{Text|-1|#F580B1}}
{{Text|NEXT|#F0F0F0}}
{{Text|FOR|#F0F0F0}} i = {{Text|65|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|90|#F580B1}}
    alphanumeric(i) = {{Text|-1|#F580B1}}
{{Text|NEXT|#F0F0F0}}
{{Text|FOR|#F0F0F0}} i = {{Text|97|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|122|#F580B1}}
    alphanumeric(i) = {{Text|-1|#F580B1}}
{{Text|NEXT|#F0F0F0}}
{{Text|'_ is treated as an alphabet letter|#31C4C4}}
alphanumeric({{Text|95|#F580B1}}) = {{Text|-1|#F580B1}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} isalpha({{Text|255|#F580B1}})
{{Text|FOR|#F0F0F0}} i = {{Text|65|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|90|#F580B1}}
    isalpha(i) = {{Text|-1|#F580B1}}
{{Text|NEXT|#F0F0F0}}
{{Text|FOR|#F0F0F0}} i = {{Text|97|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|122|#F580B1}}
    isalpha(i) = {{Text|-1|#F580B1}}
{{Text|NEXT|#F0F0F0}}
{{Text|'_ is treated as an alphabet letter|#31C4C4}}
isalpha({{Text|95|#F580B1}}) = {{Text|-1|#F580B1}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} isnumeric({{Text|255|#F580B1}})
{{Text|FOR|#F0F0F0}} i = {{Text|48|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|57|#F580B1}}
    isnumeric(i) = {{Text|-1|#F580B1}}
{{Text|NEXT|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} lfsinglechar({{Text|255|#F580B1}})
lfsinglechar({{Text|40|#F580B1}}) = {{Text|1|#F580B1}} {{Text|'(|#31C4C4}}
lfsinglechar({{Text|41|#F580B1}}) = {{Text|1|#F580B1}} {{Text|')|#31C4C4}}
lfsinglechar({{Text|42|#F580B1}}) = {{Text|1|#F580B1}} {{Text|'*|#31C4C4}}
lfsinglechar({{Text|43|#F580B1}}) = {{Text|1|#F580B1}} {{Text|'+|#31C4C4}}
lfsinglechar({{Text|45|#F580B1}}) = {{Text|1|#F580B1}} {{Text|'-|#31C4C4}}
lfsinglechar({{Text|47|#F580B1}}) = {{Text|1|#F580B1}} {{Text|'/|#31C4C4}}
lfsinglechar({{Text|60|#F580B1}}) = {{Text|1|#F580B1}} {{Text|'<|#31C4C4}}
lfsinglechar({{Text|61|#F580B1}}) = {{Text|1|#F580B1}} {{Text|'=|#31C4C4}}
lfsinglechar({{Text|62|#F580B1}}) = {{Text|1|#F580B1}} {{Text|'>|#31C4C4}}
lfsinglechar({{Text|92|#F580B1}}) = {{Text|1|#F580B1}} {{Text|'\|#31C4C4}}
lfsinglechar({{Text|94|#F580B1}}) = {{Text|1|#F580B1}} {{Text|'^|#31C4C4}}
lfsinglechar({{Text|44|#F580B1}}) = {{Text|1|#F580B1}} {{Text|',|#31C4C4}}
lfsinglechar({{Text|46|#F580B1}}) = {{Text|1|#F580B1}} {{Text|'.|#31C4C4}}
lfsinglechar({{Text|58|#F580B1}}) = {{Text|1|#F580B1}} {{Text|':|#31C4C4}}
lfsinglechar({{Text|59|#F580B1}}) = {{Text|1|#F580B1}} {{Text|';|#31C4C4}}
lfsinglechar({{Text|35|#F580B1}}) = {{Text|1|#F580B1}} {{Text|'# (file no only)|#31C4C4}}
lfsinglechar({{Text|36|#F580B1}}) = {{Text|1|#F580B1}} {{Text|'$ (metacommand only)|#31C4C4}}
lfsinglechar({{Text|63|#F580B1}}) = {{Text|1|#F580B1}} {{Text|'? (print macro)|#31C4C4}}
lfsinglechar({{Text|95|#F580B1}}) = {{Text|1|#F580B1}} {{Text|'_|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} nextrunlineindex {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} lineinput3buffer {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} lineinput3index {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} dimstatic {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} staticarraylist {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} staticarraylistn {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} commonarraylist {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} commonarraylistn {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|'CONST support|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} constmax {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
constmax = {{Text|100|#F580B1}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} constlast {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
constlast = {{Text|-1|#F580B1}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} constname(constmax) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} constcname(constmax) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} constnamesymbol(constmax) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} {{Text|'optional name symbol|#31C4C4}}
{{Text|' `1 and `no-number must be handled correctly|#31C4C4}}
{{Text|'DIM SHARED constlastshared AS LONG 'so any defined inside a sub/function after this index can be "forgotten" when sub/function exits|#31C4C4}}
{{Text|'constlastshared = -1|#31C4C4}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} consttype(constmax) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}} {{Text|'variable type number|#31C4C4}}
{{Text|'consttype determines storage|#31C4C4}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} constinteger(constmax) {{Text|AS|#F0F0F0}} _INTEGER64
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} constuinteger(constmax) {{Text|AS|#F0F0F0}} {{Text|_UNSIGNED|#F0F0F0}} _INTEGER64
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} constfloat(constmax) {{Text|AS|#F0F0F0}} {{Text|_FLOAT|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} conststring(constmax) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} constsubfunc(constmax) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} constdefined(constmax) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|'UDT|#31C4C4}}
{{Text|'names|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} lasttype {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} lasttypeelement {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|TYPE|#F0F0F0}} idstruct
    n {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|256|#F580B1}} {{Text|'name|#31C4C4}}
    cn {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|256|#F580B1}} {{Text|'case sensitive version of n|#31C4C4}}
    arraytype {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}} {{Text|'similar to t|#31C4C4}}
    arrayelements {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
    staticarray {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}} {{Text|'set for arrays declared in the main module with static elements|#31C4C4}}
    mayhave {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|8|#F580B1}} {{Text|'mayhave and musthave are exclusive of each other|#31C4C4}}
    musthave {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|8|#F580B1}}
    t {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}} {{Text|'type|#31C4C4}}
    tsize {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    subfunc {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}} {{Text|'if function=1, sub=2 (max 100 arguments)|#31C4C4}}
    Dependency {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
    internal_subfunc {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
    callname {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|256|#F580B1}}
    ccall {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
    overloaded {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}
    args {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
    minargs {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
    arg {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|400|#F580B1}} {{Text|'similar to t|#31C4C4}}
    argsize {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|400|#F580B1}} {{Text|'similar to tsize (used for fixed length strings)|#31C4C4}}
    specialformat {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|256|#F580B1}}
    secondargmustbe {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|256|#F580B1}}
    secondargcantbe {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|256|#F580B1}}
    ret {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}} {{Text|'the value it returns if it is a function (again like t)|#31C4C4}}
    insubfunc {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|256|#F580B1}}
    insubfuncn {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    share {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
    nele {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|100|#F580B1}}
    nelereq {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|100|#F580B1}}
    linkid {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    linkarg {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
    staticscope {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
    {{Text|'For variables which are arguments passed to a sub/function|#31C4C4}}
    sfid {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}} {{Text|'id number of variable's parent sub/function|#31C4C4}}
    sfarg {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}} {{Text|'argument/parameter # within call (1=first)|#31C4C4}}
    hr_syntax {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|TYPE|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} id {{Text|AS|#F0F0F0}} idstruct
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} idn {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ids_max {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
ids_max = {{Text|1024|#F580B1}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ids({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} ids_max) {{Text|AS|#F0F0F0}} idstruct
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} cmemlist({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} ids_max + {{Text|1|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}} {{Text|'variables that must be in cmem|#31C4C4}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} sfcmemargs({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} ids_max + {{Text|1|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|100|#F580B1}} {{Text|'s/f arg that must be in cmem|#31C4C4}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} arrayelementslist({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} ids_max + {{Text|1|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}} {{Text|'arrayelementslist (like cmemlist) helps to resolve the number of elements in arrays with an unknown number of elements. Note: arrays with an unknown number of elements have .arrayelements=-1|#31C4C4}}
{{Text|'create blank id template for idclear to copy (stops strings being set to chr$(0))|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} cleariddata {{Text|AS|#F0F0F0}} idstruct
cleariddata.cn = {{Text|""|#FFB100}}
cleariddata.n = {{Text|""|#FFB100}}
cleariddata.mayhave = {{Text|""|#FFB100}}
cleariddata.musthave = {{Text|""|#FFB100}}
cleariddata.callname = {{Text|""|#FFB100}}
cleariddata.arg = {{Text|""|#FFB100}}
cleariddata.argsize = {{Text|""|#FFB100}}
cleariddata.specialformat = {{Text|""|#FFB100}}
cleariddata.secondargmustbe = {{Text|""|#FFB100}}
cleariddata.secondargcantbe = {{Text|""|#FFB100}}
cleariddata.insubfunc = {{Text|""|#FFB100}}
cleariddata.nele = {{Text|""|#FFB100}}
cleariddata.nelereq = {{Text|""|#FFB100}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ISSTRING {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ISFLOAT {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ISUNSIGNED {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ISPOINTER {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ISFIXEDLENGTH {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ISINCONVENTIONALMEMORY {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ISOFFSETINBITS {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ISARRAY {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ISREFERENCE {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ISUDT {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ISOFFSET {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} STRINGTYPE {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} BITTYPE {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} UBITTYPE {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} BYTETYPE {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} UBYTETYPE {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} INTEGERTYPE {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} UINTEGERTYPE {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} LONGTYPE {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ULONGTYPE {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} INTEGER64TYPE {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} UINTEGER64TYPE {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} SINGLETYPE {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} DOUBLETYPE {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} FLOATTYPE {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} OFFSETTYPE {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} UOFFSETTYPE {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} UDTTYPE {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} gosubid {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} redimoption {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} dimoption {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} arraydesc {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} qberrorhappened {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} qberrorcode {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} qberrorline {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|'COMMON SHARED defineaz() AS STRING|#31C4C4}}
{{Text|'COMMON SHARED defineextaz() AS STRING|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} sourcefile {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} {{Text|'the full path and filename|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} file {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} {{Text|'name of the file (without .bas or path)|#31C4C4}}
{{Text|'COMMON SHARED separgs() AS STRING|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} constequation {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} DynamicMode {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} findidsecondarg {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} findanotherid {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} findidinternal {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} currentid {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}} {{Text|'is the index of the last ID accessed|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} linenumber {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, reallinenumber {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, totallinenumber {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, definingtypeerror {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} wholeline {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} firstLineNumberLabelvWatch {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, lastLineNumberLabelvWatch {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} vWatchUsedLabels {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}, vWatchUsedSkipLabels {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} linefragment {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|'COMMON SHARED bitmask() AS _INTEGER64|#31C4C4}}
{{Text|'COMMON SHARED bitmaskinv() AS _INTEGER64|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} arrayprocessinghappened {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} stringprocessinghappened {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} cleanupstringprocessingcall {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} inputfunctioncalled {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} recompile {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}} {{Text|'forces recompilation|#31C4C4}}
{{Text|'COMMON SHARED cmemlist() AS INTEGER|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} optionbase {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} addmetastatic {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} addmetadynamic {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} addmetainclude {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} closedmain {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} module {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} subfunc {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} subfuncn {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} closedsubfunc {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} subfuncid {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} defdatahandle {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} dimsfarray {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} dimshared {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|'Allows passing of known elements to recompilation|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} sflistn {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|'COMMON SHARED sfidlist() AS LONG|#31C4C4}}
{{Text|'COMMON SHARED sfarglist() AS INTEGER|#31C4C4}}
{{Text|'COMMON SHARED sfelelist() AS INTEGER|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} glinkid {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} glinkarg {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} typname2typsize {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} uniquenumbern {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|'CLEAR , , 16384|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} bitmask({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|64|#F580B1}}) {{Text|AS|#F0F0F0}} _INTEGER64
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} bitmaskinv({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|64|#F580B1}}) {{Text|AS|#F0F0F0}} _INTEGER64
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} defineextaz({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|27|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} defineaz({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|27|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} {{Text|'27 is an underscore|#31C4C4}}
ISSTRING = {{Text|1073741824|#F580B1}}
ISFLOAT = {{Text|536870912|#F580B1}}
ISUNSIGNED = {{Text|268435456|#F580B1}}
ISPOINTER = {{Text|134217728|#F580B1}}
ISFIXEDLENGTH = {{Text|67108864|#F580B1}} {{Text|'only set for strings with pointer flag|#31C4C4}}
ISINCONVENTIONALMEMORY = {{Text|33554432|#F580B1}}
ISOFFSETINBITS = {{Text|16777216|#F580B1}}
ISARRAY = {{Text|8388608|#F580B1}}
ISREFERENCE = {{Text|4194304|#F580B1}}
ISUDT = {{Text|2097152|#F580B1}}
ISOFFSET = {{Text|1048576|#F580B1}}
STRINGTYPE = ISSTRING + ISPOINTER
BITTYPE = {{Text|1&|#F580B1}} + ISPOINTER + ISOFFSETINBITS
UBITTYPE = {{Text|1&|#F580B1}} + ISPOINTER + ISUNSIGNED + ISOFFSETINBITS {{Text|'QB64 will also support BIT*n, eg. DIM bitarray[10] AS _UNSIGNED _BIT*10|#31C4C4}}
BYTETYPE = {{Text|8&|#F580B1}} + ISPOINTER
UBYTETYPE = {{Text|8&|#F580B1}} + ISPOINTER + ISUNSIGNED
INTEGERTYPE = {{Text|16&|#F580B1}} + ISPOINTER
UINTEGERTYPE = {{Text|16&|#F580B1}} + ISPOINTER + ISUNSIGNED
LONGTYPE = {{Text|32&|#F580B1}} + ISPOINTER
ULONGTYPE = {{Text|32&|#F580B1}} + ISPOINTER + ISUNSIGNED
INTEGER64TYPE = {{Text|64&|#F580B1}} + ISPOINTER
UINTEGER64TYPE = {{Text|64&|#F580B1}} + ISPOINTER + ISUNSIGNED
SINGLETYPE = {{Text|32&|#F580B1}} + ISFLOAT + ISPOINTER
DOUBLETYPE = {{Text|64&|#F580B1}} + ISFLOAT + ISPOINTER
FLOATTYPE = {{Text|256&|#F580B1}} + ISFLOAT + ISPOINTER {{Text|'8-32 bytes|#31C4C4}}
OFFSETTYPE = {{Text|64&|#F580B1}} + ISOFFSET + ISPOINTER: {{Text|IF|#F0F0F0}} OS_BITS = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} OFFSETTYPE = {{Text|32&|#F580B1}} + ISOFFSET + ISPOINTER
UOFFSETTYPE = {{Text|64&|#F580B1}} + ISOFFSET + ISUNSIGNED + ISPOINTER: {{Text|IF|#F0F0F0}} OS_BITS = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} UOFFSETTYPE = {{Text|32&|#F580B1}} + ISOFFSET + ISUNSIGNED + ISPOINTER
UDTTYPE = ISUDT + ISPOINTER
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} statementn {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} everycasenewcase {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} controllevel {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}} {{Text|'0=not in a control block|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} controltype({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|'1=IF (awaiting END IF)|#31C4C4}}
{{Text|'2=FOR (awaiting NEXT)|#31C4C4}}
{{Text|'3=DO (awaiting LOOP [UNTIL¦WHILE param])|#31C4C4}}
{{Text|'4=DO WHILE/UNTIL (awaiting LOOP)|#31C4C4}}
{{Text|'5=WHILE (awaiting WEND)|#31C4C4}}
{{Text|'6=$IF (precompiler)|#31C4C4}}
{{Text|'10=SELECT CASE qbs (awaiting END SELECT/CASE)|#31C4C4}}
{{Text|'11=SELECT CASE int64 (awaiting END SELECT/CASE)|#31C4C4}}
{{Text|'12=SELECT CASE uint64 (awaiting END SELECT/CASE)|#31C4C4}}
{{Text|'13=SELECT CASE LONG double (awaiting END SELECT/CASE/CASE ELSE)|#31C4C4}}
{{Text|'14=SELECT CASE float ...|#31C4C4}}
{{Text|'15=SELECT CASE double|#31C4C4}}
{{Text|'16=SELECT CASE int32|#31C4C4}}
{{Text|'17=SELECT CASE uint32|#31C4C4}}
{{Text|'18=CASE (awaiting END SELECT/CASE/CASE ELSE)|#31C4C4}}
{{Text|'19=CASE ELSE (awaiting END SELECT)|#31C4C4}}
{{Text|'32=SUB/FUNCTION (awaiting END SUB/FUNCTION)|#31C4C4}}
{{Text|DIM|#F0F0F0}} controlid({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} controlvalue({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} controlstate({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} controlref({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}} {{Text|'the line number the control was created on|#31C4C4}}
{{Text|'|#31C4C4}}
{{Text|' Collection of flags indicating which unstable features should be used during compilation|#31C4C4}}
{{Text|'|#31C4C4}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} unstableFlags({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|2|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}
{{Text|DIM|#F0F0F0}} UNSTABLE_MIDI {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} UNSTABLE_HTTP {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
UNSTABLE_MIDI = {{Text|1|#F580B1}}
UNSTABLE_HTTP = {{Text|2|#F580B1}}
{{Text|ON|#F0F0F0}} {{Text|ERROR|#F0F0F0}} {{Text|GOTO|#F0F0F0}} qberror
i2&& = {{Text|1|#F580B1}}
{{Text|FOR|#F0F0F0}} i&& = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|64|#F580B1}}
    bitmask(i&&) = i2&&
    bitmaskinv(i&&) = {{Text|NOT|#F0F0F0}} i2&&
    i2&& = i2&& + {{Text|2|#F580B1}} ^ i&&
{{Text|NEXT|#F0F0F0}}
{{Text|DIM|#F0F0F0}} id2 {{Text|AS|#F0F0F0}} idstruct
cleanupstringprocessingcall$ = {{Text|"qbs_cleanup(qbs_tmp_base,"|#FFB100}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} sfidlist({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} sfarglist({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} sfelelist({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|'----------------ripgl.bas--------------------------------------------------------------------------------|#31C4C4}}
gl_scan_header
{{Text|'----------------ripgl.bas--------------------------------------------------------------------------------|#31C4C4}}
{{Text|'-----------------------QB64 COMPILER ONCE ONLY SETUP CODE ENDS HERE---------------------------------------|#31C4C4}}
{{Text|IF|#F0F0F0}} NoIDEMode {{Text|THEN|#F0F0F0}} IDE_AutoPosition = {{Text|0|#F580B1}}: {{Text|GOTO|#F0F0F0}} noide
{{Text|DIM|#F0F0F0}} FileDropEnabled {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}
{{Text|IF|#F0F0F0}} FileDropEnabled = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} FileDropEnabled = {{Text|-1|#F580B1}}: {{Text|_ACCEPTFILEDROP|#F0F0F0}}
{{Text|IF|#F0F0F0}} IDE_AutoPosition {{Text|AND|#F0F0F0}} {{Text|NOT|#F0F0F0}} IDE_BypassAutoPosition {{Text|THEN|#F0F0F0}} {{Text|_SCREENMOVE|#F0F0F0}} IDE_LeftPosition, IDE_TopPosition
idemode = {{Text|1|#F580B1}}
sendc$ = {{Text|""|#FFB100}} {{Text|'no initial message|#31C4C4}}
{{Text|IF|#F0F0F0}} CMDLineFile <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} sendc$ = {{Text|CHR$|#F0F0F0}}({{Text|1|#F580B1}}) + CMDLineFile
sendcommand:
idecommand$ = sendc$
C = ide({{Text|0|#F580B1}})
ideerror = {{Text|0|#F580B1}}
{{Text|IF|#F0F0F0}} C = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} idemode = {{Text|0|#F580B1}}: {{Text|GOTO|#F0F0F0}} noide
c$ = idereturn$
{{Text|IF|#F0F0F0}} C = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'begin|#31C4C4}}
    ideerrorline = {{Text|0|#F580B1}} {{Text|'addresses invalid prepass error line numbers being reported|#31C4C4}}
    idepass = {{Text|1|#F580B1}}
    {{Text|GOTO|#F0F0F0}} fullrecompile
    ideret1:
    wholeline$ = c$
    {{Text|GOTO|#F0F0F0}} ideprepass
    ideret2:
    {{Text|IF|#F0F0F0}} lastLineReturn {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} lastLineReturn
    sendc$ = {{Text|CHR$|#F0F0F0}}({{Text|3|#F580B1}}) {{Text|'request next line|#31C4C4}}
    {{Text|GOTO|#F0F0F0}} sendcommand
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} C = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'next line|#31C4C4}}
    {{Text|IF|#F0F0F0}} idepass = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        wholeline$ = c$
        {{Text|GOTO|#F0F0F0}} ideprepass
        {{Text|'(returns to ideret2: above)|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'assume idepass>1|#31C4C4}}
    a3$ = c$
    continuelinefrom = {{Text|0|#F580B1}}
    {{Text|GOTO|#F0F0F0}} ide4
    ideret4:
    {{Text|IF|#F0F0F0}} lastLineReturn {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} lastLineReturn
    sendc$ = {{Text|CHR$|#F0F0F0}}({{Text|3|#F580B1}}) {{Text|'request next line|#31C4C4}}
    {{Text|GOTO|#F0F0F0}} sendcommand
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} C = {{Text|5|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'end of program reached|#31C4C4}}
    lastLine = {{Text|1|#F580B1}}
    lastLineReturn = {{Text|1|#F580B1}}
    {{Text|IF|#F0F0F0}} idepass = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        wholeline$ = {{Text|""|#FFB100}}
        {{Text|GOTO|#F0F0F0}} ideprepass
        {{Text|'(returns to ideret2: above, then to lastLinePrepassReturn below)|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'idepass>1|#31C4C4}}
    a3$ = {{Text|""|#FFB100}}
    continuelinefrom = {{Text|0|#F580B1}}
    {{Text|GOTO|#F0F0F0}} ide4 {{Text|'returns to ideret4, then to lastLinePrepassReturn below|#31C4C4}}
    lastLineReturn:
    lastLineReturn = {{Text|0|#F580B1}}
    lastLine = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} idepass = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|'prepass complete|#31C4C4}}
        idepass = {{Text|2|#F580B1}}
        {{Text|GOTO|#F0F0F0}} ide3
        ideret3:
        sendc$ = {{Text|CHR$|#F0F0F0}}({{Text|7|#F580B1}}) {{Text|'repass request|#31C4C4}}
        firstLine = {{Text|1|#F580B1}}
        {{Text|GOTO|#F0F0F0}} sendcommand
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'assume idepass=2|#31C4C4}}
    {{Text|'finalize program|#31C4C4}}
    {{Text|GOTO|#F0F0F0}} ide5
    ideret5: {{Text|'note: won't return here if a recompile was required!|#31C4C4}}
    sendc$ = {{Text|CHR$|#F0F0F0}}({{Text|6|#F580B1}}) {{Text|'ready|#31C4C4}}
    idecompiled = {{Text|0|#F580B1}}
    {{Text|GOTO|#F0F0F0}} sendcommand
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} C = {{Text|9|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'run|#31C4C4}}
    {{Text|IF|#F0F0F0}} idecompiled = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'exe needs to be compiled|#31C4C4}}
        file$ = c$
        {{Text|'locate accessible file and truncate|#31C4C4}}
        f$ = file$
        path.exe$ = {{Text|""|#FFB100}}
        {{Text|IF|#F0F0F0}} SaveExeWithSource {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(ideprogname) {{Text|THEN|#F0F0F0}} path.exe$ = idepath$ + pathsep$
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        i = {{Text|1|#F580B1}}
        nextexeindex:
        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(path.exe$ + file$ + extension$) {{Text|THEN|#F0F0F0}}
            E = {{Text|0|#F580B1}}
            {{Text|ON|#F0F0F0}} {{Text|ERROR|#F0F0F0}} {{Text|GOTO|#F0F0F0}} qberror_test
            {{Text|KILL|#F0F0F0}} path.exe$ + file$ + extension$
            {{Text|ON|#F0F0F0}} {{Text|ERROR|#F0F0F0}} {{Text|GOTO|#F0F0F0}} qberror
            {{Text|IF|#F0F0F0}} E = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                i = i + {{Text|1|#F580B1}}
                file$ = f$ + {{Text|"("|#FFB100}} + str2$(i) + {{Text|")"|#FFB100}}
                {{Text|GOTO|#F0F0F0}} nextexeindex
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'inform IDE of name change if necessary (IDE will respond with message 9 and corrected name)|#31C4C4}}
        {{Text|IF|#F0F0F0}} i <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            sendc$ = {{Text|CHR$|#F0F0F0}}({{Text|12|#F580B1}}) + file$
            {{Text|GOTO|#F0F0F0}} sendcommand
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        ideerrorline = {{Text|0|#F580B1}} {{Text|'addresses C++ comp. error's line number|#31C4C4}}
        {{Text|GOTO|#F0F0F0}} ide6
        ideret6:
        idecompiled = {{Text|1|#F580B1}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} iderunmode = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
        sendc$ = {{Text|CHR$|#F0F0F0}}({{Text|11|#F580B1}}) {{Text|'.EXE file created|#31C4C4}}
        {{Text|GOTO|#F0F0F0}} sendcommand
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'execute program|#31C4C4}}
    {{Text|IF|#F0F0F0}} iderunmode = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} NoExeSaved {{Text|THEN|#F0F0F0}}
            {{Text|'This is the section which deals with if the user selected to run the program without|#31C4C4}}
            {{Text|'saving an EXE file to the disk.|#31C4C4}}
            {{Text|'We start off by first running the EXE, and then we delete it from the drive.|#31C4C4}}
            {{Text|'making it a temporary file when all is said and done.|#31C4C4}}
            {{Text|IF|#F0F0F0}} os$ = {{Text|"WIN"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|SHELL|#F0F0F0}} QuotedFilename$({{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + lastBinaryGenerated$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})) + ModifyCOMMAND$ {{Text|'run the newly created program|#31C4C4}}
                {{Text|SHELL|#F0F0F0}} {{Text|_HIDE|#F0F0F0}} {{Text|_DONTWAIT|#F0F0F0}} {{Text|"del "|#FFB100}} + QuotedFilename$({{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + lastBinaryGenerated$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})) {{Text|'kill it|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} path.exe$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} path.exe$ = {{Text|"./"|#FFB100}}
            {{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(lastBinaryGenerated$, {{Text|LEN|#F0F0F0}}(path.exe$)) = path.exe$ {{Text|THEN|#F0F0F0}}
                    {{Text|SHELL|#F0F0F0}} QuotedFilename$(lastBinaryGenerated$) + ModifyCOMMAND$
                    {{Text|KILL|#F0F0F0}} lastBinaryGenerated$
                {{Text|ELSE|#F0F0F0}}
                    {{Text|SHELL|#F0F0F0}} QuotedFilename$(path.exe$ + lastBinaryGenerated$) + ModifyCOMMAND$
                    {{Text|KILL|#F0F0F0}} path.exe$ + lastBinaryGenerated$
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} path.exe$ = {{Text|"./"|#FFB100}} {{Text|THEN|#F0F0F0}} path.exe$ = {{Text|""|#FFB100}}
            NoExeSaved = {{Text|0|#F580B1}} {{Text|'reset the flag for a temp EXE|#31C4C4}}
            sendc$ = {{Text|CHR$|#F0F0F0}}({{Text|6|#F580B1}}) {{Text|'ready|#31C4C4}}
            {{Text|GOTO|#F0F0F0}} sendcommand
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} os$ = {{Text|"WIN"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|SHELL|#F0F0F0}} {{Text|_DONTWAIT|#F0F0F0}} QuotedFilename$({{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + lastBinaryGenerated$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})) + ModifyCOMMAND$
        {{Text|IF|#F0F0F0}} path.exe$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} path.exe$ = {{Text|"./"|#FFB100}}
        {{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(lastBinaryGenerated$, {{Text|LEN|#F0F0F0}}(path.exe$)) = path.exe$ {{Text|THEN|#F0F0F0}}
                {{Text|SHELL|#F0F0F0}} {{Text|_DONTWAIT|#F0F0F0}} QuotedFilename$(lastBinaryGenerated$) + ModifyCOMMAND$
            {{Text|ELSE|#F0F0F0}}
                {{Text|SHELL|#F0F0F0}} {{Text|_DONTWAIT|#F0F0F0}} QuotedFilename$(path.exe$ + lastBinaryGenerated$) + ModifyCOMMAND$
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} path.exe$ = {{Text|"./"|#FFB100}} {{Text|THEN|#F0F0F0}} path.exe$ = {{Text|""|#FFB100}}
    {{Text|ELSE|#F0F0F0}}
        {{Text|IF|#F0F0F0}} os$ = {{Text|"WIN"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|SHELL|#F0F0F0}} QuotedFilename$({{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + lastBinaryGenerated$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})) + ModifyCOMMAND$
        {{Text|IF|#F0F0F0}} path.exe$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} path.exe$ = {{Text|"./"|#FFB100}}
        {{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(lastBinaryGenerated$, {{Text|LEN|#F0F0F0}}(path.exe$)) = path.exe$ {{Text|THEN|#F0F0F0}}
                {{Text|SHELL|#F0F0F0}} QuotedFilename$(lastBinaryGenerated$) + ModifyCOMMAND$
            {{Text|ELSE|#F0F0F0}}
                {{Text|SHELL|#F0F0F0}} QuotedFilename$(path.exe$ + lastBinaryGenerated$) + ModifyCOMMAND$
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} path.exe$ = {{Text|"./"|#FFB100}} {{Text|THEN|#F0F0F0}} path.exe$ = {{Text|""|#FFB100}}
        {{Text|DO|#F0F0F0}}: {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} {{Text|INKEY$|#F0F0F0}} = {{Text|""|#FFB100}}
        {{Text|DO|#F0F0F0}}: {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} {{Text|_KEYHIT|#F0F0F0}} = {{Text|0|#F580B1}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} idemode {{Text|THEN|#F0F0F0}}
        {{Text|'Darken fg/bg colors|#31C4C4}}
        dummy = DarkenFGBG({{Text|0|#F580B1}})
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} vWatchOn {{Text|THEN|#F0F0F0}}
        sendc$ = {{Text|CHR$|#F0F0F0}}({{Text|254|#F580B1}}) {{Text|'launch debug interface|#31C4C4}}
    {{Text|ELSE|#F0F0F0}}
        sendc$ = {{Text|CHR$|#F0F0F0}}({{Text|6|#F580B1}}) {{Text|'ready|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|GOTO|#F0F0F0}} sendcommand
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|PRINT|#F0F0F0}} {{Text|"Invalid IDE message"|#FFB100}}: {{Text|END|#F0F0F0}}
ideerror:
{{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(idemessage$, sp$) {{Text|THEN|#F0F0F0}}
    {{Text|'Something went wrong here, so let's give a generic error message to the user.|#31C4C4}}
    {{Text|'(No error message should contain sp$ - that is, CHR$(13), when not in Debug mode)|#31C4C4}}
    terrmsg$ = {{Text|_ERRORMESSAGE$|#F0F0F0}}
    {{Text|IF|#F0F0F0}} terrmsg$ = {{Text|"No error"|#FFB100}} {{Text|THEN|#F0F0F0}} terrmsg$ = {{Text|"Internal error"|#FFB100}}
    idemessage$ = {{Text|"Compiler error (check for syntax errors) ("|#FFB100}} + terrmsg$ + {{Text|":"|#FFB100}}
    {{Text|IF|#F0F0F0}} {{Text|ERR|#F0F0F0}} {{Text|THEN|#F0F0F0}} idemessage$ = idemessage$ + str2$({{Text|ERR|#F0F0F0}}) + {{Text|"-"|#FFB100}}
    {{Text|IF|#F0F0F0}} {{Text|_ERRORLINE|#F0F0F0}} {{Text|THEN|#F0F0F0}} idemessage$ = idemessage$ + str2$({{Text|_ERRORLINE|#F0F0F0}})
    {{Text|IF|#F0F0F0}} {{Text|_INCLERRORLINE|#F0F0F0}} {{Text|THEN|#F0F0F0}} idemessage$ = idemessage$ + {{Text|"-"|#FFB100}} + {{Text|_INCLERRORFILE$|#F0F0F0}} + {{Text|"-"|#FFB100}} + str2$({{Text|_INCLERRORLINE|#F0F0F0}})
    idemessage$ = idemessage$ + {{Text|")"|#FFB100}}
    {{Text|IF|#F0F0F0}} inclevel > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} idemessage$ = idemessage$ + incerror$
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
sendc$ = {{Text|CHR$|#F0F0F0}}({{Text|8|#F580B1}}) + idemessage$ + {{Text|MKL$|#F0F0F0}}(ideerrorline)
{{Text|GOTO|#F0F0F0}} sendcommand
noide:
{{Text|IF|#F0F0F0}} (qb64versionprinted = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} ConsoleMode = {{Text|0|#F580B1}}) {{Text|AND|#F0F0F0}} {{Text|NOT|#F0F0F0}} QuietMode {{Text|THEN|#F0F0F0}}
    qb64versionprinted = {{Text|-1|#F580B1}}
    {{Text|PRINT|#F0F0F0}} {{Text|"QB64-PE Compiler V"|#FFB100}} + Version$
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} CMDLineFile = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
    {{Text|LINE|#F0F0F0}} {{Text|INPUT|#F0F0F0}} ; {{Text|"COMPILE (.bas)>"|#FFB100}}, f$
{{Text|ELSE|#F0F0F0}}
    f$ = CMDLineFile
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
f$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(f$))
{{Text|IF|#F0F0F0}} FileHasExtension(f$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} f$ = f$ + {{Text|".bas"|#FFB100}}
sourcefile$ = f$
CMDLineFile = sourcefile$
{{Text|'derive name from sourcefile|#31C4C4}}
f$ = RemoveFileExtension$(f$)
path.exe$ = {{Text|""|#FFB100}}
currentdir$ = {{Text|_CWD$|#F0F0F0}}
path.source$ = getfilepath$(sourcefile$)
{{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(path.source$) {{Text|THEN|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|_DIREXISTS|#F0F0F0}}(path.source$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|PRINT|#F0F0F0}}
        {{Text|PRINT|#F0F0F0}} {{Text|"Cannot locate source file: "|#FFB100}} + sourcefile$
        {{Text|IF|#F0F0F0}} ConsoleMode {{Text|THEN|#F0F0F0}} {{Text|SYSTEM|#F0F0F0}} {{Text|1|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|1|#F580B1}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|CHDIR|#F0F0F0}} path.source$
    path.source$ = {{Text|_CWD$|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(path.source$, {{Text|1|#F580B1}}) <> pathsep$ {{Text|THEN|#F0F0F0}} path.source$ = path.source$ + pathsep$
    {{Text|CHDIR|#F0F0F0}} currentdir$
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} SaveExeWithSource {{Text|THEN|#F0F0F0}} path.exe$ = path.source$
{{Text|FOR|#F0F0F0}} x = {{Text|LEN|#F0F0F0}}(f$) {{Text|TO|#F0F0F0}} {{Text|1|#F580B1}} {{Text|STEP|#F0F0F0}} {{Text|-1|#F580B1}}
    a$ = {{Text|MID$|#F0F0F0}}(f$, x, {{Text|1|#F580B1}})
    {{Text|IF|#F0F0F0}} a$ = {{Text|"/"|#FFB100}} {{Text|OR|#F0F0F0}} a$ = {{Text|"\"|#FFB100}} {{Text|THEN|#F0F0F0}}
        f$ = {{Text|RIGHT$|#F0F0F0}}(f$, {{Text|LEN|#F0F0F0}}(f$) - x)
        {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|NEXT|#F0F0F0}}
file$ = f$
{{Text|'if cmemlist(currentid+1)<>0 before calling regid the variable|#31C4C4}}
{{Text|'MUST be defined in cmem!|#31C4C4}}
fullrecompile:
{{Text|IF|#F0F0F0}} idemode = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|NOT|#F0F0F0}} QuietMode {{Text|THEN|#F0F0F0}}
    {{Text|PRINT|#F0F0F0}}
    {{Text|PRINT|#F0F0F0}} {{Text|"Beginning C++ output from QB64 code... "|#FFB100}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
BU_DEPENDENCY_CONSOLE_ONLY = DEPENDENCY(DEPENDENCY_CONSOLE_ONLY)
{{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|UBOUND|#F0F0F0}}(DEPENDENCY): DEPENDENCY(i) = {{Text|0|#F580B1}}: {{Text|NEXT|#F0F0F0}}
DEPENDENCY(DEPENDENCY_CONSOLE_ONLY) = BU_DEPENDENCY_CONSOLE_ONLY {{Text|AND|#F0F0F0}} {{Text|2|#F580B1}} {{Text|'Restore -g switch if used|#31C4C4}}
Error_Happened = {{Text|0|#F580B1}}
{{Text|FOR|#F0F0F0}} closeall = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|255|#F580B1}}: {{Text|CLOSE|#F0F0F0}} closeall: {{Text|NEXT|#F0F0F0}}
{{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"temp.bin"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|LOCK|#F0F0F0}} {{Text|WRITE|#F0F0F0}} {{Text|AS|#F0F0F0}} #26 {{Text|'relock|#31C4C4}}
bh = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"dyninfo.txt"|#FFB100}})
{{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|CLOSE|#F0F0F0}} #9: {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"debug.txt"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|AS|#F0F0F0}} #9
{{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} ids_max + {{Text|1|#F580B1}}
    arrayelementslist(i) = {{Text|0|#F580B1}}
    cmemlist(i) = {{Text|0|#F580B1}}
    sfcmemargs(i) = {{Text|""|#FFB100}}
{{Text|NEXT|#F0F0F0}}
{{Text|'erase cmemlist|#31C4C4}}
{{Text|'erase sfcmemargs|#31C4C4}}
lastunresolved = {{Text|-1|#F580B1}} {{Text|'first pass|#31C4C4}}
sflistn = {{Text|-1|#F580B1}} {{Text|'no entries|#31C4C4}}
SubNameLabels = sp {{Text|'QB64 will perform a repass to resolve sub names used as labels|#31C4C4}}
vWatchDesiredState = {{Text|0|#F580B1}}
vWatchRecompileAttempts = {{Text|0|#F580B1}}
qb64prefix_set_desiredState = {{Text|0|#F580B1}}
qb64prefix_set_recompileAttempts = {{Text|0|#F580B1}}
opex_desiredState = {{Text|0|#F580B1}}
opex_recompileAttempts = {{Text|0|#F580B1}}
opexarray_desiredState = {{Text|0|#F580B1}}
opexarray_recompileAttempts = {{Text|0|#F580B1}}
recompile:
vWatchOn = vWatchDesiredState
vWatchVariable {{Text|""|#FFB100}}, {{Text|-1|#F580B1}} {{Text|'reset internal variables list|#31C4C4}}
qb64prefix_set = qb64prefix_set_desiredState
qb64prefix$ = {{Text|"_"|#FFB100}}
optionexplicit = opex_desiredState
{{Text|IF|#F0F0F0}} optionexplicit_cmd = {{Text|-1|#F580B1}} {{Text|AND|#F0F0F0}} NoIDEMode = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} optionexplicit = {{Text|-1|#F580B1}}
optionexplicitarray = opexarray_desiredState
lastLineReturn = {{Text|0|#F580B1}}
lastLine = {{Text|0|#F580B1}}
firstLine = {{Text|1|#F580B1}}
{{Text|_Resize|#F0F0F0}} = {{Text|0|#F580B1}}
Resize_Scale = {{Text|0|#F580B1}}
UseGL = {{Text|0|#F580B1}}
Error_Happened = {{Text|0|#F580B1}}
HashClear {{Text|'clear the hash table|#31C4C4}}
{{Text|'add reserved words to hashtable|#31C4C4}}
f = HASHFLAG_TYPE + HASHFLAG_RESERVED
HashAdd {{Text|"_UNSIGNED"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"_BIT"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"_BYTE"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"INTEGER"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"LONG"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"_INTEGER64"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"_OFFSET"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"SINGLE"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"DOUBLE"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"_FLOAT"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"STRING"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"ANY"|#FFB100}}, f, {{Text|0|#F580B1}}
f = HASHFLAG_OPERATOR + HASHFLAG_RESERVED
HashAdd {{Text|"NOT"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"IMP"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"EQV"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"AND"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"OR"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"XOR"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"MOD"|#FFB100}}, f, {{Text|0|#F580B1}}
f = HASHFLAG_RESERVED + HASHFLAG_CUSTOMSYNTAX
HashAdd {{Text|"LIST"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"BASE"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"_EXPLICIT"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"AS"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"IS"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"OFF"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"ON"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"STOP"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"TO"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"USING"|#FFB100}}, f, {{Text|0|#F580B1}}
{{Text|'PUT(graphics) statement:|#31C4C4}}
HashAdd {{Text|"PRESET"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"PSET"|#FFB100}}, f, {{Text|0|#F580B1}}
{{Text|'OPEN statement:|#31C4C4}}
HashAdd {{Text|"FOR"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"OUTPUT"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"RANDOM"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"BINARY"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"APPEND"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"SHARED"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"ACCESS"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"LOCK"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"READ"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"WRITE"|#FFB100}}, f, {{Text|0|#F580B1}}
{{Text|'LINE statement:|#31C4C4}}
HashAdd {{Text|"STEP"|#FFB100}}, f, {{Text|0|#F580B1}}
{{Text|'WIDTH statement:|#31C4C4}}
HashAdd {{Text|"LPRINT"|#FFB100}}, f, {{Text|0|#F580B1}}
{{Text|'VIEW statement:|#31C4C4}}
HashAdd {{Text|"PRINT"|#FFB100}}, f, {{Text|0|#F580B1}}
f = HASHFLAG_RESERVED + HASHFLAG_XELEMENTNAME + HASHFLAG_XTYPENAME
{{Text|'A|#31C4C4}}
{{Text|'B|#31C4C4}}
{{Text|'C|#31C4C4}}
HashAdd {{Text|"COMMON"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"CALL"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"CASE"|#FFB100}}, f - HASHFLAG_XELEMENTNAME, {{Text|0|#F580B1}}
HashAdd {{Text|"COM"|#FFB100}}, f, {{Text|0|#F580B1}} {{Text|'(ON...)|#31C4C4}}
HashAdd {{Text|"CONST"|#FFB100}}, f, {{Text|0|#F580B1}}
{{Text|'D|#31C4C4}}
HashAdd {{Text|"DATA"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"DECLARE"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"DEF"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"DEFDBL"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"DEFINT"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"DEFLNG"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"DEFSNG"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"DEFSTR"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"DIM"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"DO"|#FFB100}}, f - HASHFLAG_XELEMENTNAME, {{Text|0|#F580B1}}
{{Text|'E|#31C4C4}}
HashAdd {{Text|"ERROR"|#FFB100}}, f - HASHFLAG_XELEMENTNAME, {{Text|0|#F580B1}} {{Text|'(ON ...)|#31C4C4}}
HashAdd {{Text|"ELSE"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"ELSEIF"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"ENDIF"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"EXIT"|#FFB100}}, f - HASHFLAG_XELEMENTNAME, {{Text|0|#F580B1}}
{{Text|'F|#31C4C4}}
HashAdd {{Text|"FIELD"|#FFB100}}, f - HASHFLAG_XELEMENTNAME, {{Text|0|#F580B1}}
HashAdd {{Text|"FUNCTION"|#FFB100}}, f, {{Text|0|#F580B1}}
{{Text|'G|#31C4C4}}
HashAdd {{Text|"GOSUB"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"GOTO"|#FFB100}}, f, {{Text|0|#F580B1}}
{{Text|'H|#31C4C4}}
{{Text|'I|#31C4C4}}
HashAdd {{Text|"INPUT"|#FFB100}}, f - HASHFLAG_XELEMENTNAME - HASHFLAG_XTYPENAME, {{Text|0|#F580B1}} {{Text|'(INPUT$ function exists, so conflicts if allowed as custom syntax)|#31C4C4}}
HashAdd {{Text|"IF"|#FFB100}}, f, {{Text|0|#F580B1}}
{{Text|'K|#31C4C4}}
HashAdd {{Text|"KEY"|#FFB100}}, f - HASHFLAG_XELEMENTNAME - HASHFLAG_XTYPENAME, {{Text|0|#F580B1}} {{Text|'(ON...)|#31C4C4}}
{{Text|'L|#31C4C4}}
HashAdd {{Text|"LET"|#FFB100}}, f - HASHFLAG_XELEMENTNAME, {{Text|0|#F580B1}}
HashAdd {{Text|"LOOP"|#FFB100}}, f - HASHFLAG_XELEMENTNAME, {{Text|0|#F580B1}}
HashAdd {{Text|"LEN"|#FFB100}}, f - HASHFLAG_XELEMENTNAME, {{Text|0|#F580B1}} {{Text|'(LEN function exists, so conflicts if allowed as custom syntax)|#31C4C4}}
{{Text|'M|#31C4C4}}
{{Text|'N|#31C4C4}}
HashAdd {{Text|"NEXT"|#FFB100}}, f - HASHFLAG_XELEMENTNAME, {{Text|0|#F580B1}}
{{Text|'O|#31C4C4}}
{{Text|'P|#31C4C4}}
HashAdd {{Text|"PLAY"|#FFB100}}, f - HASHFLAG_XELEMENTNAME - HASHFLAG_XTYPENAME, {{Text|0|#F580B1}} {{Text|'(ON...)|#31C4C4}}
HashAdd {{Text|"PEN"|#FFB100}}, f - HASHFLAG_XELEMENTNAME - HASHFLAG_XTYPENAME, {{Text|0|#F580B1}} {{Text|'(ON...)|#31C4C4}}
{{Text|'Q|#31C4C4}}
{{Text|'R|#31C4C4}}
HashAdd {{Text|"REDIM"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"REM"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"RESTORE"|#FFB100}}, f - HASHFLAG_XELEMENTNAME, {{Text|0|#F580B1}}
HashAdd {{Text|"RESUME"|#FFB100}}, f - HASHFLAG_XELEMENTNAME, {{Text|0|#F580B1}}
HashAdd {{Text|"RETURN"|#FFB100}}, f - HASHFLAG_XELEMENTNAME, {{Text|0|#F580B1}}
HashAdd {{Text|"RUN"|#FFB100}}, f - HASHFLAG_XELEMENTNAME, {{Text|0|#F580B1}}
{{Text|'S|#31C4C4}}
HashAdd {{Text|"STATIC"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"STRIG"|#FFB100}}, f, {{Text|0|#F580B1}} {{Text|'(ON...)|#31C4C4}}
HashAdd {{Text|"SEG"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"SELECT"|#FFB100}}, f - HASHFLAG_XELEMENTNAME - HASHFLAG_XTYPENAME, {{Text|0|#F580B1}}
HashAdd {{Text|"SUB"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"SCREEN"|#FFB100}}, f - HASHFLAG_XELEMENTNAME - HASHFLAG_XTYPENAME, {{Text|0|#F580B1}}
{{Text|'T|#31C4C4}}
HashAdd {{Text|"THEN"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"TIMER"|#FFB100}}, f - HASHFLAG_XELEMENTNAME - HASHFLAG_XTYPENAME, {{Text|0|#F580B1}} {{Text|'(ON...)|#31C4C4}}
HashAdd {{Text|"TYPE"|#FFB100}}, f - HASHFLAG_XELEMENTNAME, {{Text|0|#F580B1}}
{{Text|'U|#31C4C4}}
HashAdd {{Text|"UNTIL"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"UEVENT"|#FFB100}}, f, {{Text|0|#F580B1}}
{{Text|'V|#31C4C4}}
{{Text|'W|#31C4C4}}
HashAdd {{Text|"WEND"|#FFB100}}, f, {{Text|0|#F580B1}}
HashAdd {{Text|"WHILE"|#FFB100}}, f, {{Text|0|#F580B1}}
{{Text|'X|#31C4C4}}
{{Text|'Y|#31C4C4}}
{{Text|'Z|#31C4C4}}
{{Text|'clear/init variables|#31C4C4}}
{{Text|_Console|#F0F0F0}} = {{Text|0|#F580B1}}
{{Text|_ScreenHide|#F0F0F0}} = {{Text|0|#F580B1}}
Asserts = {{Text|0|#F580B1}}
ResolveStaticFunctions = {{Text|0|#F580B1}}
dynamiclibrary = {{Text|0|#F580B1}}
dimsfarray = {{Text|0|#F580B1}}
dimstatic = {{Text|0|#F580B1}}
AllowLocalName = {{Text|0|#F580B1}}
PossibleSubNameLabels = sp {{Text|'QB64 will perform a repass to resolve sub names used as labels|#31C4C4}}
use_global_byte_elements = {{Text|0|#F580B1}}
dimshared = {{Text|0|#F580B1}}: dimmethod = {{Text|0|#F580B1}}: dimoption = {{Text|0|#F580B1}}: redimoption = {{Text|0|#F580B1}}: commonoption = {{Text|0|#F580B1}}
mylib$ = {{Text|""|#FFB100}}: mylibopt$ = {{Text|""|#FFB100}}
declaringlibrary = {{Text|0|#F580B1}}
nLabels = {{Text|0|#F580B1}}
dynscope = {{Text|0|#F580B1}}
elsefollowup = {{Text|0|#F580B1}}
ontimerid = {{Text|0|#F580B1}}: onkeyid = {{Text|0|#F580B1}}: onstrigid = {{Text|0|#F580B1}}
commonarraylist = {{Text|""|#FFB100}}: commonarraylistn = {{Text|0|#F580B1}}
staticarraylist = {{Text|""|#FFB100}}: staticarraylistn = {{Text|0|#F580B1}}
fooindwel = {{Text|0|#F580B1}}
layout = {{Text|""|#FFB100}}
layoutok = {{Text|0|#F580B1}}
NoChecks = {{Text|0|#F580B1}}
inclevel = {{Text|0|#F580B1}}
errorLineInInclude = {{Text|0|#F580B1}}
addmetainclude$ = {{Text|""|#FFB100}}
nextrunlineindex = {{Text|1|#F580B1}}
lasttype = {{Text|0|#F580B1}}
lasttypeelement = {{Text|0|#F580B1}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} udtxname({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|256|#F580B1}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} udtxcname({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|256|#F580B1}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} udtxsize({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} udtxbytealign({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}} {{Text|'first element MUST be on a byte alignment & size is a multiple of 8|#31C4C4}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} udtxnext({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} udtxvariable({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}} {{Text|'true if the udt contains variable length elements|#31C4C4}}
{{Text|'elements|#31C4C4}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} udtename({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|256|#F580B1}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} udtecname({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|256|#F580B1}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} udtebytealign({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} udtesize({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} udtetype({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} udtetypesize({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} udtearrayelements({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} udtenext({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
definingtype = {{Text|0|#F580B1}}
definingtypeerror = {{Text|0|#F580B1}}
constlast = {{Text|-1|#F580B1}}
{{Text|'constlastshared = -1|#31C4C4}}
closedmain = {{Text|0|#F580B1}}
addmetastatic = {{Text|0|#F580B1}}
addmetadynamic = {{Text|0|#F580B1}}
DynamicMode = {{Text|0|#F580B1}}
optionbase = {{Text|0|#F580B1}}
ExeIconSet = {{Text|0|#F580B1}}
VersionInfoSet = {{Text|0|#F580B1}}
viFileVersionNum$ = {{Text|""|#FFB100}}: viProductVersionNum$ = {{Text|""|#FFB100}}: viCompanyName$ = {{Text|""|#FFB100}}
viFileDescription$ = {{Text|""|#FFB100}}: viFileVersion$ = {{Text|""|#FFB100}}: viInternalName$ = {{Text|""|#FFB100}}
viLegalCopyright$ = {{Text|""|#FFB100}}: viLegalTrademarks$ = {{Text|""|#FFB100}}: viOriginalFilename$ = {{Text|""|#FFB100}}
viProductName$ = {{Text|""|#FFB100}}: viProductVersion$ = {{Text|""|#FFB100}}: viComments$ = {{Text|""|#FFB100}}: viWeb$ = {{Text|""|#FFB100}}
DataOffset = {{Text|0|#F580B1}}
statementn = {{Text|0|#F580B1}}
everycasenewcase = {{Text|0|#F580B1}}
qberrorhappened = {{Text|0|#F580B1}}: qberrorcode = {{Text|0|#F580B1}}: qberrorline = {{Text|0|#F580B1}}
{{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|27|#F580B1}}: defineaz(i) = {{Text|"SINGLE"|#FFB100}}: defineextaz(i) = {{Text|"!"|#FFB100}}: {{Text|NEXT|#F0F0F0}}
controllevel = {{Text|0|#F580B1}}
findidsecondarg$ = {{Text|""|#FFB100}}: findanotherid = {{Text|0|#F580B1}}: findidinternal = {{Text|0|#F580B1}}: currentid = {{Text|0|#F580B1}}
linenumber = {{Text|0|#F580B1}}
wholeline$ = {{Text|""|#FFB100}}
linefragment$ = {{Text|""|#FFB100}}
idn = {{Text|0|#F580B1}}
arrayprocessinghappened = {{Text|0|#F580B1}}
stringprocessinghappened = {{Text|0|#F580B1}}
inputfunctioncalled = {{Text|0|#F580B1}}
subfuncn = {{Text|0|#F580B1}}
closedsubfunc = {{Text|0|#F580B1}}
subfunc = {{Text|""|#FFB100}}
SelectCaseCounter = {{Text|0|#F580B1}}
ExecCounter = {{Text|0|#F580B1}}
UserDefineCount = {{Text|7|#F580B1}}
totalVariablesCreated = {{Text|0|#F580B1}}
typeDefinitions$ = {{Text|""|#FFB100}}
totalMainVariablesCreated = {{Text|0|#F580B1}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} usedVariableList({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} usedVarList
totalWarnings = {{Text|0|#F580B1}}
duplicateConstWarning = {{Text|0|#F580B1}}
emptySCWarning = {{Text|0|#F580B1}}
warningListItems = {{Text|0|#F580B1}}
lastWarningHeader = {{Text|""|#FFB100}}
vWatchUsedLabels = {{Text|SPACE$|#F0F0F0}}({{Text|1000|#F580B1}})
vWatchUsedSkipLabels = {{Text|SPACE$|#F0F0F0}}({{Text|1000|#F580B1}})
firstLineNumberLabelvWatch = {{Text|0|#F580B1}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} warning$({{Text|1000|#F580B1}})
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} warningLines({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} warningIncLines({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|REDIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} warningIncFiles({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
maxLineNumber = {{Text|0|#F580B1}}
uniquenumbern = {{Text|0|#F580B1}}
{{Text|''create a type for storing memory blocks|#31C4C4}}
{{Text|''UDT|#31C4C4}}
{{Text|''names|#31C4C4}}
{{Text|'DIM SHARED lasttype AS LONG|#31C4C4}}
{{Text|'DIM SHARED udtxname(1000) AS STRING * 256|#31C4C4}}
{{Text|'DIM SHARED udtxcname(1000) AS STRING * 256|#31C4C4}}
{{Text|'DIM SHARED udtxsize(1000) AS LONG|#31C4C4}}
{{Text|'DIM SHARED udtxbytealign(1000) AS INTEGER 'first element MUST be on a byte alignment & size is a multiple of 8|#31C4C4}}
{{Text|'DIM SHARED udtxnext(1000) AS LONG|#31C4C4}}
{{Text|''elements|#31C4C4}}
{{Text|'DIM SHARED lasttypeelement AS LONG|#31C4C4}}
{{Text|'DIM SHARED udtename(1000) AS STRING * 256|#31C4C4}}
{{Text|'DIM SHARED udtecname(1000) AS STRING * 256|#31C4C4}}
{{Text|'DIM SHARED udtebytealign(1000) AS INTEGER|#31C4C4}}
{{Text|'DIM SHARED udtesize(1000) AS LONG|#31C4C4}}
{{Text|'DIM SHARED udtetype(1000) AS LONG|#31C4C4}}
{{Text|'DIM SHARED udtetypesize(1000) AS LONG|#31C4C4}}
{{Text|'DIM SHARED udtearrayelements(1000) AS LONG|#31C4C4}}
{{Text|'DIM SHARED udtenext(1000) AS LONG|#31C4C4}}
{{Text|'import _MEM type|#31C4C4}}
ptrsz = OS_BITS \ {{Text|8|#F580B1}}
lasttype = lasttype + {{Text|1|#F580B1}}: i = lasttype
udtxname(i) = {{Text|"_MEM"|#FFB100}}
udtxcname(i) = {{Text|"_MEM"|#FFB100}}
udtxsize(i) = ((ptrsz) * {{Text|5|#F580B1}} + ({{Text|4|#F580B1}}) * {{Text|2|#F580B1}} + ({{Text|8|#F580B1}}) * {{Text|1|#F580B1}}) * {{Text|8|#F580B1}}
udtxbytealign(i) = {{Text|1|#F580B1}}
lasttypeelement = lasttypeelement + {{Text|1|#F580B1}}: i2 = lasttypeelement
udtename(i2) = {{Text|"OFFSET"|#FFB100}}
udtecname(i2) = {{Text|"OFFSET"|#FFB100}}
udtebytealign(i2) = {{Text|1|#F580B1}}
udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * {{Text|8|#F580B1}}
udtetypesize(i2) = {{Text|0|#F580B1}} {{Text|'tsize|#31C4C4}}
udtxnext(i) = i2
i3 = i2
lasttypeelement = lasttypeelement + {{Text|1|#F580B1}}: i2 = lasttypeelement
udtename(i2) = {{Text|"SIZE"|#FFB100}}
udtecname(i2) = {{Text|"SIZE"|#FFB100}}
udtebytealign(i2) = {{Text|1|#F580B1}}
udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * {{Text|8|#F580B1}}
udtetypesize(i2) = {{Text|0|#F580B1}} {{Text|'tsize|#31C4C4}}
udtenext(i3) = i2
i3 = i2
lasttypeelement = lasttypeelement + {{Text|1|#F580B1}}: i2 = lasttypeelement
udtename(i2) = {{Text|"$_LOCK_ID"|#FFB100}}
udtecname(i2) = {{Text|"$_LOCK_ID"|#FFB100}}
udtebytealign(i2) = {{Text|1|#F580B1}}
udtetype(i2) = INTEGER64TYPE: udtesize(i2) = {{Text|64|#F580B1}}
udtetypesize(i2) = {{Text|0|#F580B1}} {{Text|'tsize|#31C4C4}}
udtenext(i3) = i2
i3 = i2
lasttypeelement = lasttypeelement + {{Text|1|#F580B1}}: i2 = lasttypeelement
udtename(i2) = {{Text|"$_LOCK_OFFSET"|#FFB100}}
udtecname(i2) = {{Text|"$_LOCK_OFFSET"|#FFB100}}
udtebytealign(i2) = {{Text|1|#F580B1}}
udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * {{Text|8|#F580B1}}
udtetypesize(i2) = {{Text|0|#F580B1}} {{Text|'tsize|#31C4C4}}
udtenext(i3) = i2
i3 = i2
lasttypeelement = lasttypeelement + {{Text|1|#F580B1}}: i2 = lasttypeelement
udtename(i2) = {{Text|"TYPE"|#FFB100}}
udtecname(i2) = {{Text|"TYPE"|#FFB100}}
udtebytealign(i2) = {{Text|1|#F580B1}}
udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * {{Text|8|#F580B1}}
udtetypesize(i2) = {{Text|0|#F580B1}} {{Text|'tsize|#31C4C4}}
udtenext(i3) = i2
i3 = i2
lasttypeelement = lasttypeelement + {{Text|1|#F580B1}}: i2 = lasttypeelement
udtename(i2) = {{Text|"ELEMENTSIZE"|#FFB100}}
udtecname(i2) = {{Text|"ELEMENTSIZE"|#FFB100}}
udtebytealign(i2) = {{Text|1|#F580B1}}
udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * {{Text|8|#F580B1}}
udtetypesize(i2) = {{Text|0|#F580B1}} {{Text|'tsize|#31C4C4}}
udtenext(i3) = i2
udtenext(i2) = {{Text|0|#F580B1}}
i3 = i2
lasttypeelement = lasttypeelement + {{Text|1|#F580B1}}: i2 = lasttypeelement
udtename(i2) = {{Text|"IMAGE"|#FFB100}}
udtecname(i2) = {{Text|"IMAGE"|#FFB100}}
udtebytealign(i2) = {{Text|1|#F580B1}}
udtetype(i2) = LONGTYPE: udtesize(i2) = {{Text|32|#F580B1}}
udtetypesize(i2) = {{Text|0|#F580B1}} {{Text|'tsize|#31C4C4}}
udtenext(i3) = i2
udtenext(i2) = {{Text|0|#F580B1}}
i3 = i2
lasttypeelement = lasttypeelement + {{Text|1|#F580B1}}: i2 = lasttypeelement
udtename(i2) = {{Text|"SOUND"|#FFB100}}
udtecname(i2) = {{Text|"SOUND"|#FFB100}}
udtebytealign(i2) = {{Text|1|#F580B1}}
udtetype(i2) = LONGTYPE: udtesize(i2) = {{Text|32|#F580B1}}
udtetypesize(i2) = {{Text|0|#F580B1}} {{Text|'tsize|#31C4C4}}
udtenext(i3) = i2
udtenext(i2) = {{Text|0|#F580B1}}
{{Text|' Reset all unstable flags|#31C4C4}}
{{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|UBOUND|#F0F0F0}}(unstableFlags): unstableFlags(i) = {{Text|0|#F580B1}}: {{Text|NEXT|#F0F0F0}}
{{Text|' Indicates if a MIDI sound font was selected|#31C4C4}}
{{Text|'|#31C4C4}}
{{Text|' Captures both the line number and line contents for error reporting later-on|#31C4C4}}
{{Text|' in the compilation process|#31C4C4}}
MidiSoundFontSet = {{Text|0|#F580B1}}
MidiSoundFontLine$ = {{Text|""|#FFB100}}
{{Text|' If MidiSoundFont$ is blank, then the default is used|#31C4C4}}
MidiSoundFont$ = {{Text|""|#FFB100}}
{{Text|'begin compilation|#31C4C4}}
{{Text|FOR|#F0F0F0}} closeall = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|255|#F580B1}}: {{Text|CLOSE|#F0F0F0}} closeall: {{Text|NEXT|#F0F0F0}}
{{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"temp.bin"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|LOCK|#F0F0F0}} {{Text|WRITE|#F0F0F0}} {{Text|AS|#F0F0F0}} #26 {{Text|'relock|#31C4C4}}
bh = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"icon.rc"|#FFB100}})
{{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|CLOSE|#F0F0F0}} #9: {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"debug.txt"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|APPEND|#F0F0F0}} {{Text|AS|#F0F0F0}} #9
{{Text|IF|#F0F0F0}} idemode = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
    qberrorhappened = {{Text|-1|#F580B1}}
    {{Text|OPEN|#F0F0F0}} sourcefile$ {{Text|FOR|#F0F0F0}} {{Text|INPUT|#F0F0F0}} {{Text|AS|#F0F0F0}} #1
    qberrorhappened1:
    {{Text|IF|#F0F0F0}} qberrorhappened = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|PRINT|#F0F0F0}}
        {{Text|PRINT|#F0F0F0}} {{Text|"Cannot locate source file: "|#FFB100}} + sourcefile$
        {{Text|IF|#F0F0F0}} ConsoleMode {{Text|THEN|#F0F0F0}} {{Text|SYSTEM|#F0F0F0}} {{Text|1|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|1|#F580B1}}
    {{Text|ELSE|#F0F0F0}}
        {{Text|CLOSE|#F0F0F0}} #1
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    qberrorhappened = {{Text|0|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
reginternal
{{Text|IF|#F0F0F0}} qb64prefix_set {{Text|THEN|#F0F0F0}}
    qb64prefix$ = {{Text|""|#FFB100}}
    {{Text|'re-add internal keywords without the "_" prefix|#31C4C4}}
    reginternal
    f = HASHFLAG_TYPE + HASHFLAG_RESERVED
    HashAdd {{Text|"UNSIGNED"|#FFB100}}, f, {{Text|0|#F580B1}}
    HashAdd {{Text|"BIT"|#FFB100}}, f, {{Text|0|#F580B1}}
    HashAdd {{Text|"BYTE"|#FFB100}}, f, {{Text|0|#F580B1}}
    HashAdd {{Text|"INTEGER64"|#FFB100}}, f, {{Text|0|#F580B1}}
    HashAdd {{Text|"OFFSET"|#FFB100}}, f, {{Text|0|#F580B1}}
    HashAdd {{Text|"FLOAT"|#FFB100}}, f, {{Text|0|#F580B1}}
    f = HASHFLAG_RESERVED + HASHFLAG_CUSTOMSYNTAX
    HashAdd {{Text|"EXPLICIT"|#FFB100}}, f, {{Text|0|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} GlobTxtBuf: GlobTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"global.txt"|#FFB100}})
defdatahandle = GlobTxtBuf
{{Text|IF|#F0F0F0}} iderecompile {{Text|THEN|#F0F0F0}}
    iderecompile = {{Text|0|#F580B1}}
    idepass = {{Text|1|#F580B1}} {{Text|'prepass must be done again|#31C4C4}}
    sendc$ = {{Text|CHR$|#F0F0F0}}({{Text|7|#F580B1}}) {{Text|'repass request|#31C4C4}}
    {{Text|GOTO|#F0F0F0}} sendcommand
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} idemode {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} ideret1
lineinput3load sourcefile$
{{Text|DO|#F0F0F0}}
    {{Text|'### STEVE EDIT FOR CONST EXPANSION 10/11/2013|#31C4C4}}
    wholeline$ = lineinput3$
    {{Text|IF|#F0F0F0}} wholeline$ = {{Text|CHR$|#F0F0F0}}({{Text|13|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
    ideprepass:
    prepassLastLine:
    {{Text|IF|#F0F0F0}} lastLine <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} firstLine <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        lineBackup$ = wholeline$ {{Text|'backup the real line (will be blank when lastline is set)|#31C4C4}}
        forceIncludeFromRoot$ = {{Text|""|#FFB100}}
        {{Text|IF|#F0F0F0}} vWatchOn {{Text|THEN|#F0F0F0}}
            addingvWatch = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} firstLine <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} forceIncludeFromRoot$ = {{Text|"internal\support\vwatch\vwatch.bi"|#FFB100}}
            {{Text|IF|#F0F0F0}} lastLine <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} forceIncludeFromRoot$ = {{Text|"internal\support\vwatch\vwatch.bm"|#FFB100}}
        {{Text|ELSE|#F0F0F0}}
            {{Text|'IF firstLine <> 0 THEN forceIncludeFromRoot$ = "internal\support\vwatch\vwatch_stub.bi"|#31C4C4}}
            {{Text|IF|#F0F0F0}} lastLine <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} forceIncludeFromRoot$ = {{Text|"internal\support\vwatch\vwatch_stub.bm"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        firstLine = {{Text|0|#F580B1}}: lastLine = {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(forceIncludeFromRoot$) {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} forceInclude_prepass
        forceIncludeCompleted_prepass:
        addingvWatch = {{Text|0|#F580B1}}
        wholeline$ = lineBackup$
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    wholestv$ = wholeline$ {{Text|'### STEVE EDIT FOR CONST EXPANSION 10/11/2013|#31C4C4}}
    prepass = {{Text|1|#F580B1}}
    layout = {{Text|""|#FFB100}}
    layoutok = {{Text|0|#F580B1}}
    linenumber = linenumber + {{Text|1|#F580B1}}
    reallinenumber = reallinenumber + {{Text|1|#F580B1}}
    {{Text|DO|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} linenumber < {{Text|UBOUND|#F0F0F0}}(InValidLine) {{Text|'color information flag for each line|#31C4C4}}
        {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} InValidLine({{Text|UBOUND|#F0F0F0}}(InValidLine) + {{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}
    {{Text|LOOP|#F0F0F0}}
    InValidLine(linenumber) = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(wholeline$) {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}({{Text|_TRIM$|#F0F0F0}}(wholeline$)) = {{Text|"$NOPREFIX"|#FFB100}} {{Text|THEN|#F0F0F0}}
            qb64prefix_set_desiredState = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} qb64prefix_set_recompileAttempts = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    qb64prefix_set_recompileAttempts = qb64prefix_set_recompileAttempts + {{Text|1|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} do_recompile
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        wholeline$ = lineformat(wholeline$)
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
        temp$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}({{Text|UCASE$|#F0F0F0}}(wholestv$)))
        {{Text|IF|#F0F0F0}} temp$ = {{Text|"$COLOR:0"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} qb64prefix_set {{Text|THEN|#F0F0F0}}
                addmetainclude$ = getfilepath$({{Text|COMMAND$|#F0F0F0}}({{Text|0|#F580B1}})) + {{Text|"internal"|#FFB100}} + pathsep$ + {{Text|"support"|#FFB100}} + pathsep$ + {{Text|"color"|#FFB100}} + pathsep$ + {{Text|"color0_noprefix.bi"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                addmetainclude$ = getfilepath$({{Text|COMMAND$|#F0F0F0}}({{Text|0|#F580B1}})) + {{Text|"internal"|#FFB100}} + pathsep$ + {{Text|"support"|#FFB100}} + pathsep$ + {{Text|"color"|#FFB100}} + pathsep$ + {{Text|"color0.bi"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} finishedlinepp
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} temp$ = {{Text|"$COLOR:32"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} qb64prefix_set {{Text|THEN|#F0F0F0}}
                addmetainclude$ = getfilepath$({{Text|COMMAND$|#F0F0F0}}({{Text|0|#F580B1}})) + {{Text|"internal"|#FFB100}} + pathsep$ + {{Text|"support"|#FFB100}} + pathsep$ + {{Text|"color"|#FFB100}} + pathsep$ + {{Text|"color32_noprefix.bi"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                addmetainclude$ = getfilepath$({{Text|COMMAND$|#F0F0F0}}({{Text|0|#F580B1}})) + {{Text|"internal"|#FFB100}} + pathsep$ + {{Text|"support"|#FFB100}} + pathsep$ + {{Text|"color"|#FFB100}} + pathsep$ + {{Text|"color32.bi"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} finishedlinepp
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} temp$ = {{Text|"$DEBUG"|#FFB100}} {{Text|THEN|#F0F0F0}}
            vWatchDesiredState = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} vWatchOn = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} vWatchRecompileAttempts = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|'this is the first time a conflict has occurred, so react immediately with a full recompilation using the desired state|#31C4C4}}
                    vWatchRecompileAttempts = vWatchRecompileAttempts + {{Text|1|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} do_recompile
                {{Text|ELSE|#F0F0F0}}
                    {{Text|'continue compilation to retrieve the final state requested and act on that as required|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(temp$, {{Text|4|#F580B1}}) = {{Text|"$IF "|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(temp$, {{Text|5|#F580B1}}) <> {{Text|" THEN"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"$IF without THEN"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            temp$ = {{Text|LTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(temp$, {{Text|4|#F580B1}})) {{Text|'strip off the $IF and extra spaces|#31C4C4}}
            temp$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(temp$, {{Text|LEN|#F0F0F0}}(temp$) - {{Text|4|#F580B1}})) {{Text|'and strip off the THEN and extra spaces|#31C4C4}}
            temp = {{Text|INSTR|#F0F0F0}}(temp$, {{Text|"="|#FFB100}})
            ExecCounter = ExecCounter + {{Text|1|#F580B1}}
            ExecLevel(ExecCounter) = {{Text|-1|#F580B1}} {{Text|'default to a skip value|#31C4C4}}
            DefineElse(ExecCounter) = {{Text|1|#F580B1}} {{Text|'1 says we have an $IF statement at this level|#31C4C4}}
            result = EvalPreIF(temp$, a$)
            {{Text|IF|#F0F0F0}} a$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} result <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                ExecLevel(ExecCounter) = ExecLevel(ExecCounter - {{Text|1|#F580B1}}) {{Text|'So we inherit the execlevel from above|#31C4C4}}
                {{Text|IF|#F0F0F0}} ExecLevel(ExecCounter) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} DefineElse(ExecCounter) = DefineElse(ExecCounter) {{Text|OR|#F0F0F0}} {{Text|4|#F580B1}} {{Text|'Else if used and conditon found|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} finishedlinepp {{Text|'and then we're finished -- and at this point we didn't make a match so we exit with a DONT READ type flag on our code.|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} temp$ = {{Text|"$ELSE"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} DefineElse(ExecCounter) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"$ELSE without $IF"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} DefineElse(ExecCounter) {{Text|AND|#F0F0F0}} {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"$IF block already has $ELSE statement in it"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            DefineElse(ExecCounter) = DefineElse(ExecCounter) {{Text|OR|#F0F0F0}} {{Text|2|#F580B1}} {{Text|'set the flag to declare an $ELSE already in this block|#31C4C4}}
            {{Text|IF|#F0F0F0}} DefineElse(ExecCounter) {{Text|AND|#F0F0F0}} {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'If we executed code in a previous IF or ELSE IF statement, we can't do it here|#31C4C4}}
                ExecLevel(ExecCounter) = {{Text|-1|#F580B1}} {{Text|'So we inherit the execlevel from above|#31C4C4}}
            {{Text|ELSE|#F0F0F0}}
                ExecLevel(ExecCounter) = ExecLevel(ExecCounter - {{Text|1|#F580B1}}) {{Text|'If we were processing code before, code after this segment is going to be SKIPPED|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} finishedlinepp
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(temp$, {{Text|5|#F580B1}}) = {{Text|"$ELSE"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|'looking for $ELSE IF|#31C4C4}}
            temp$ = {{Text|LTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(temp$, {{Text|6|#F580B1}}))
            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(temp$, {{Text|3|#F580B1}}) = {{Text|"IF "|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} DefineElse(ExecCounter) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"$ELSE IF without $IF"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} DefineElse(ExecCounter) {{Text|AND|#F0F0F0}} {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"$ELSE IF cannot follow $ELSE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(temp$, {{Text|5|#F580B1}}) <> {{Text|" THEN"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"$ELSE IF without THEN"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} DefineElse(ExecCounter) {{Text|AND|#F0F0F0}} {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'If we executed code in a previous IF or ELSE IF statement, we can't do it here|#31C4C4}}
                    ExecLevel(ExecCounter) = {{Text|-1|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} finishedlinepp
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                temp$ = {{Text|LTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(temp$, {{Text|3|#F580B1}})) {{Text|'strip off the IF and extra spaces|#31C4C4}}
                temp$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(temp$, {{Text|LEN|#F0F0F0}}(temp$) - {{Text|4|#F580B1}})) {{Text|'and strip off the THEN and extra spaces|#31C4C4}}
                result = EvalPreIF(temp$, a$)
                {{Text|IF|#F0F0F0}} a$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} result <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    ExecLevel(ExecCounter) = ExecLevel(ExecCounter - {{Text|1|#F580B1}}) {{Text|'So we inherit the execlevel from above|#31C4C4}}
                    {{Text|IF|#F0F0F0}} ExecLevel(ExecCounter) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} DefineElse(ExecCounter) = DefineElse(ExecCounter) {{Text|OR|#F0F0F0}} {{Text|4|#F580B1}} {{Text|'Else if used and conditon found|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|GOTO|#F0F0F0}} finishedlinepp {{Text|'and then we're finished -- and at this point we didn't make a match so we exit with a DONT READ type flag on our code.|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} temp$ = {{Text|"$END IF"|#FFB100}} {{Text|OR|#F0F0F0}} temp$ = {{Text|"$ENDIF"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} DefineElse(ExecCounter) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"$END IF without $IF"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            DefineElse(ExecCounter) = {{Text|0|#F580B1}} {{Text|'We no longer have an $IF block at this level|#31C4C4}}
            ExecCounter = ExecCounter - {{Text|1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} finishedlinepp
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} ExecLevel(ExecCounter) {{Text|THEN|#F0F0F0}}
            {{Text|DO|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} linenumber < {{Text|UBOUND|#F0F0F0}}(InValidLine)
                {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} InValidLine({{Text|UBOUND|#F0F0F0}}(InValidLine) + {{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}
            {{Text|LOOP|#F0F0F0}}
            InValidLine(linenumber) = {{Text|-1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} finishedlinepp {{Text|'we don't check for anything inside lines that we've marked for skipping|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(temp$, {{Text|7|#F580B1}}) = {{Text|"$ERROR "|#FFB100}} {{Text|THEN|#F0F0F0}}
            temp$ = {{Text|LTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(temp$, {{Text|7|#F580B1}}))
            a$ = {{Text|"Compilation check failed: "|#FFB100}} + temp$
            {{Text|GOTO|#F0F0F0}} errmes
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(temp$, {{Text|5|#F580B1}}) = {{Text|"$LET "|#FFB100}} {{Text|THEN|#F0F0F0}}
            temp$ = {{Text|LTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(temp$, {{Text|5|#F580B1}})) {{Text|'simply shorten our string to parse|#31C4C4}}
            {{Text|'For starters, let's make certain that we have 3 elements to deal with|#31C4C4}}
            temp = {{Text|INSTR|#F0F0F0}}(temp$, {{Text|"="|#FFB100}}) {{Text|'without an = in there, we can't get a value from the left and right side|#31C4C4}}
            {{Text|IF|#F0F0F0}} temp = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid Syntax.  $LET <flag> = <value>"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            l$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(temp$, temp - {{Text|1|#F580B1}})): r$ = {{Text|LTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(temp$, temp + {{Text|1|#F580B1}}))
            {{Text|'then validate to make certain the left side looks proper|#31C4C4}}
            {{Text|IF|#F0F0F0}} validname(l$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid flag name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(r$, {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) {{Text|THEN|#F0F0F0}} r$ = {{Text|LTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(r$, {{Text|2|#F580B1}}))
            {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(r$, {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) {{Text|THEN|#F0F0F0}} r$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(r$, {{Text|LEN|#F0F0F0}}(r$) - {{Text|1|#F580B1}}))
            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(r$, {{Text|1|#F580B1}}) = {{Text|"-"|#FFB100}} {{Text|THEN|#F0F0F0}}
                r1$ = {{Text|"-"|#FFB100}}
                r$ = {{Text|LTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(r$, {{Text|2|#F580B1}}))
            {{Text|ELSE|#F0F0F0}}
                r1$ = {{Text|""|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'then validate to make certain the left side looks proper|#31C4C4}}
            {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(r$)
                a = {{Text|ASC|#F0F0F0}}(r$, i)
                {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} a
                    {{Text|CASE|#F0F0F0}} {{Text|32|#F580B1}}
                    {{Text|CASE|#F0F0F0}} {{Text|46|#F580B1}} {{Text|'periods are fine.|#31C4C4}}
                        r1$ = r1$ + {{Text|"."|#FFB100}}
                    {{Text|CASE|#F0F0F0}} {{Text|IS|#F0F0F0}} < {{Text|48|#F580B1}}, {{Text|IS|#F0F0F0}} > {{Text|90|#F580B1}}
                        a$ = {{Text|"Invalid value"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}
                        r1$ = r1$ + {{Text|CHR$|#F0F0F0}}(a)
                {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            r$ = r1$
            {{Text|'First look to see if we have an existing setting like this and if so, update it|#31C4C4}}
            {{Text|FOR|#F0F0F0}} i = {{Text|8|#F580B1}} {{Text|TO|#F0F0F0}} UserDefineCount {{Text|'UserDefineCount 1-7 are reserved for automatic OS/BIT detection & version|#31C4C4}}
                {{Text|IF|#F0F0F0}} UserDefine({{Text|0|#F580B1}}, i) = l$ {{Text|THEN|#F0F0F0}} UserDefine({{Text|1|#F580B1}}, i) = r$: {{Text|GOTO|#F0F0F0}} finishedlinepp
            {{Text|NEXT|#F0F0F0}}
            {{Text|'Otherwise create a new setting and set the initial value for it|#31C4C4}}
            UserDefineCount = UserDefineCount + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} UserDefineCount > {{Text|UBOUND|#F0F0F0}}(UserDefine, {{Text|2|#F580B1}}) {{Text|THEN|#F0F0F0}}
                {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} UserDefine({{Text|1|#F580B1}}, {{Text|UBOUND|#F0F0F0}}(UserDefine, {{Text|2|#F580B1}}) + {{Text|10|#F580B1}}) {{Text|'Add another 10 elements to the array so it'll expand as the user adds to it|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            UserDefine({{Text|0|#F580B1}}, UserDefineCount) = l$
            UserDefine({{Text|1|#F580B1}}, UserDefineCount) = r$
            {{Text|GOTO|#F0F0F0}} finishedlinepp
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|' We check for Unstable flags during the preprocessing step because it|#31C4C4}}
        {{Text|' impacts what valid commands there are in all the other steps|#31C4C4}}
        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(temp$, {{Text|10|#F580B1}}) = {{Text|"$UNSTABLE:"|#FFB100}} {{Text|THEN|#F0F0F0}}
            token$ = {{Text|UCASE$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(temp$, {{Text|11|#F580B1}}))))
            {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} token$
                {{Text|CASE|#F0F0F0}} {{Text|"MIDI"|#FFB100}}
                    {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} UseMiniaudioBackend {{Text|THEN|#F0F0F0}}
                        a$ = {{Text|"Midi is not supported with the old OpenAL audio backend."|#FFB100}}
                        {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    unstableFlags(UNSTABLE_MIDI) = {{Text|-1|#F580B1}}
                {{Text|CASE|#F0F0F0}} {{Text|"HTTP"|#FFB100}}
                    unstableFlags(UNSTABLE_HTTP) = {{Text|-1|#F580B1}}
                    regUnstableHttp
                {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}
                    a$ = {{Text|"Unrecognized unstable flag "|#FFB100}} + AddQuotes$(token$)
                    {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        cwholeline$ = wholeline$
        wholeline$ = eleucase$(wholeline$) {{Text|'********REMOVE THIS LINE LATER********|#31C4C4}}
        addmetadynamic = {{Text|0|#F580B1}}: addmetastatic = {{Text|0|#F580B1}}
        wholelinen = numelements(wholeline$)
        {{Text|IF|#F0F0F0}} wholelinen {{Text|THEN|#F0F0F0}}
            wholelinei = {{Text|1|#F580B1}}
            {{Text|'skip line number?|#31C4C4}}
            e$ = getelement$(wholeline$, {{Text|1|#F580B1}})
            {{Text|IF|#F0F0F0}} ({{Text|ASC|#F0F0F0}}(e$) >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|ASC|#F0F0F0}}(e$) <= {{Text|59|#F580B1}}) {{Text|OR|#F0F0F0}} {{Text|ASC|#F0F0F0}}(e$) = {{Text|46|#F580B1}} {{Text|THEN|#F0F0F0}} wholelinei = {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} ppskpl
            {{Text|'skip 'POSSIBLE' line label?|#31C4C4}}
            {{Text|IF|#F0F0F0}} wholelinen >= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                x2 = {{Text|INSTR|#F0F0F0}}(wholeline$, sp + {{Text|":"|#FFB100}} + sp): x3 = x2 + {{Text|2|#F580B1}}
                {{Text|IF|#F0F0F0}} x2 = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(wholeline$, {{Text|2|#F580B1}}) = sp + {{Text|":"|#FFB100}} {{Text|THEN|#F0F0F0}} x2 = {{Text|LEN|#F0F0F0}}(wholeline$) - {{Text|1|#F580B1}}: x3 = x2 + {{Text|1|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} x2 {{Text|THEN|#F0F0F0}}
                    e$ = {{Text|LEFT$|#F0F0F0}}(wholeline$, x2 - {{Text|1|#F580B1}})
                    {{Text|IF|#F0F0F0}} validlabel(e$) {{Text|THEN|#F0F0F0}}
                        wholeline$ = {{Text|RIGHT$|#F0F0F0}}(wholeline$, {{Text|LEN|#F0F0F0}}(wholeline$) - x3)
                        cwholeline$ = {{Text|RIGHT$|#F0F0F0}}(cwholeline$, {{Text|LEN|#F0F0F0}}(wholeline$) - x3)
                        wholelinen = numelements(wholeline$)
                        {{Text|GOTO|#F0F0F0}} ppskpl
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'valid|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'includes ":"|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'wholelinen>=2|#31C4C4}}
            ppskpl:
            {{Text|IF|#F0F0F0}} wholelinei <= wholelinen {{Text|THEN|#F0F0F0}}
                {{Text|'----------------------------------------|#31C4C4}}
                a$ = {{Text|""|#FFB100}}
                ca$ = {{Text|""|#FFB100}}
                ppblda:
                e$ = getelement$(wholeline$, wholelinei)
                ce$ = getelement$(cwholeline$, wholelinei)
                {{Text|IF|#F0F0F0}} e$ = {{Text|":"|#FFB100}} {{Text|OR|#F0F0F0}} e$ = {{Text|"ELSE"|#FFB100}} {{Text|OR|#F0F0F0}} e$ = {{Text|"THEN"|#FFB100}} {{Text|OR|#F0F0F0}} e$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(a$) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"PP["|#FFB100}} + a$ + {{Text|"]"|#FFB100}}
                        n = numelements(a$)
                        firstelement$ = getelement(a$, {{Text|1|#F580B1}})
                        secondelement$ = getelement(a$, {{Text|2|#F580B1}})
                        thirdelement$ = getelement(a$, {{Text|3|#F580B1}})
                        {{Text|'========================================|#31C4C4}}
                        {{Text|IF|#F0F0F0}} n = {{Text|2|#F580B1}} {{Text|AND|#F0F0F0}} firstelement$ = {{Text|"END"|#FFB100}} {{Text|AND|#F0F0F0}} (secondelement$ = {{Text|"SUB"|#FFB100}} {{Text|OR|#F0F0F0}} secondelement$ = {{Text|"FUNCTION"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                            closedsubfunc = {{Text|-1|#F580B1}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|'declare library|#31C4C4}}
                        {{Text|IF|#F0F0F0}} declaringlibrary {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"END"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} n <> {{Text|2|#F580B1}} {{Text|OR|#F0F0F0}} secondelement$ <> {{Text|"DECLARE"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected END DECLARE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                declaringlibrary = {{Text|0|#F580B1}}
                                {{Text|GOTO|#F0F0F0}} finishedlinepp
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'end declare|#31C4C4}}
                            declaringlibrary = {{Text|2|#F580B1}}
                            {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"SUB"|#FFB100}} {{Text|OR|#F0F0F0}} firstelement$ = {{Text|"FUNCTION"|#FFB100}} {{Text|THEN|#F0F0F0}} subfuncn = subfuncn - {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} declaresubfunc
                            a$ = {{Text|"Expected SUB/FUNCTION definition or END DECLARE (#2)"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|'UDT TYPE definition|#31C4C4}}
                        {{Text|IF|#F0F0F0}} definingtype {{Text|THEN|#F0F0F0}}
                            i = definingtype
                            {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"END"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} n <> {{Text|2|#F580B1}} {{Text|OR|#F0F0F0}} secondelement$ <> {{Text|"TYPE"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected END TYPE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|IF|#F0F0F0}} udtxnext(i) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"No elements defined in TYPE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    definingtype = {{Text|0|#F580B1}}
                                    {{Text|'create global buffer for SWAP space|#31C4C4}}
                                    siz$ = str2$(udtxsize(i) \ {{Text|8|#F580B1}})
                                    WriteBufLine GlobTxtBuf, {{Text|"char *g_tmp_udt_"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(udtxname(i)) + {{Text|"=(char*)malloc("|#FFB100}} + siz$ + {{Text|");"|#FFB100}}
                                    {{Text|'print "END TYPE";udtxsize(i);udtxbytealign(i)|#31C4C4}}
                                    {{Text|GOTO|#F0F0F0}} finishedlinepp
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} n < {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected element-name AS type, AS type element-list, or END TYPE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            n$ = firstelement$
                            {{Text|IF|#F0F0F0}} n$ <> {{Text|"AS"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                {{Text|'traditional variable-name AS type syntax, single-element|#31C4C4}}
                                lasttypeelement = lasttypeelement + {{Text|1|#F580B1}}
                                i2 = lasttypeelement
                                {{Text|WHILE|#F0F0F0}} i2 > {{Text|UBOUND|#F0F0F0}}(udtenext): increaseUDTArrays: {{Text|WEND|#F0F0F0}}
                                udtenext(i2) = {{Text|0|#F580B1}}
                                ii = {{Text|2|#F580B1}}
                                udtearrayelements(i2) = {{Text|0|#F580B1}}
                                {{Text|IF|#F0F0F0}} ii >= n {{Text|OR|#F0F0F0}} getelement$(a$, ii) <> {{Text|"AS"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected element-name AS type, AS type element-list, or END TYPE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                t$ = getelements$(a$, ii + {{Text|1|#F580B1}}, n)
                                {{Text|IF|#F0F0F0}} t$ = {{Text|RTRIM$|#F0F0F0}}(udtxname(definingtype)) {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid self-reference"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                typ = typname2typ(t$)
                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|IF|#F0F0F0}} typ = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Undefined type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                typsize = typname2typsize
                                {{Text|IF|#F0F0F0}} validname(n$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                udtename(i2) = n$
                                udtecname(i2) = getelement$(ca$, {{Text|1|#F580B1}})
                                NormalTypeBlock:
                                typeDefinitions$ = typeDefinitions$ + {{Text|MKL$|#F0F0F0}}(i2) + {{Text|MKL$|#F0F0F0}}({{Text|LEN|#F0F0F0}}(n$)) + n$
                                udtetype(i2) = typ
                                udtetypesize(i2) = typsize
                                hashname$ = n$
                                {{Text|'check for name conflicts (any similar reserved or element from current UDT)|#31C4C4}}
                                hashchkflags = HASHFLAG_RESERVED + HASHFLAG_UDTELEMENT
                                hashres = HashFind(hashname$, hashchkflags, hashresflags, hashresref)
                                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} hashres
                                    {{Text|IF|#F0F0F0}} hashresflags {{Text|AND|#F0F0F0}} HASHFLAG_UDTELEMENT {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} hashresref = i {{Text|THEN|#F0F0F0}} a$ = {{Text|"Name already in use ("|#FFB100}} + hashname$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} hashresflags {{Text|AND|#F0F0F0}} HASHFLAG_RESERVED {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} hashresflags {{Text|AND|#F0F0F0}} (HASHFLAG_TYPE + HASHFLAG_CUSTOMSYNTAX + HASHFLAG_OPERATOR + HASHFLAG_XELEMENTNAME) {{Text|THEN|#F0F0F0}} a$ = {{Text|"Name already in use ("|#FFB100}} + hashname$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} hashres <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} hashres = HashFindCont(hashresflags, hashresref) {{Text|ELSE|#F0F0F0}} hashres = {{Text|0|#F580B1}}
                                {{Text|LOOP|#F0F0F0}}
                                {{Text|'add to hash table|#31C4C4}}
                                HashAdd hashname$, HASHFLAG_UDTELEMENT, i
                                {{Text|'Calculate element's size|#31C4C4}}
                                {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                                    u = typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                                    udtesize(i2) = udtxsize(u)
                                    {{Text|IF|#F0F0F0}} udtxbytealign(u) {{Text|THEN|#F0F0F0}} udtxbytealign(i) = {{Text|1|#F580B1}}: udtebytealign(i2) = {{Text|1|#F580B1}}
                                    {{Text|IF|#F0F0F0}} udtxvariable(u) {{Text|THEN|#F0F0F0}} udtxvariable(i) = {{Text|-1|#F580B1}}
                                {{Text|ELSE|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                            udtesize(i2) = OFFSETTYPE {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                                            udtxvariable(i) = {{Text|-1|#F580B1}}
                                        {{Text|ELSE|#F0F0F0}}
                                            udtesize(i2) = typsize * {{Text|8|#F580B1}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        udtxbytealign(i) = {{Text|1|#F580B1}}: udtebytealign(i2) = {{Text|1|#F580B1}}
                                    {{Text|ELSE|#F0F0F0}}
                                        udtesize(i2) = typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                                        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISOFFSETINBITS) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} udtxbytealign(i) = {{Text|1|#F580B1}}: udtebytealign(i2) = {{Text|1|#F580B1}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'Increase block size|#31C4C4}}
                                {{Text|IF|#F0F0F0}} udtebytealign(i2) {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} udtxsize(i) {{Text|MOD|#F0F0F0}} {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        udtxsize(i) = udtxsize(i) + ({{Text|8|#F580B1}} - (udtxsize(i) {{Text|MOD|#F0F0F0}} {{Text|8|#F580B1}}))
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                udtxsize(i) = udtxsize(i) + udtesize(i2)
                                {{Text|'Link element to previous element|#31C4C4}}
                                {{Text|IF|#F0F0F0}} udtxnext(i) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    udtxnext(i) = i2
                                {{Text|ELSE|#F0F0F0}}
                                    udtenext(i2 - {{Text|1|#F580B1}}) = i2
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'print "+"+rtrim$(udtename(i2));udtetype(i2);udtesize(i2);udtebytealign(i2);udtxsize(i)|#31C4C4}}
                                {{Text|IF|#F0F0F0}} newAsTypeBlockSyntax {{Text|THEN|#F0F0F0}} {{Text|RETURN|#F0F0F0}}
                                {{Text|GOTO|#F0F0F0}} finishedlinepp
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|'new AS type variable-list syntax, multiple elements|#31C4C4}}
                                ii = {{Text|2|#F580B1}}
                                {{Text|IF|#F0F0F0}} ii >= n {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected element-name AS type, AS type element-list, or END TYPE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                previousElement$ = {{Text|""|#FFB100}}
                                t$ = {{Text|""|#FFB100}}
                                lastElement$ = {{Text|""|#FFB100}}
                                buildTypeName:
                                lastElement$ = getelement$(a$, ii)
                                {{Text|IF|#F0F0F0}} lastElement$ <> {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} lastElement$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                                    n$ = lastElement$
                                    cn$ = getelement$(ca$, ii)
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(previousElement$) {{Text|THEN|#F0F0F0}} t$ = t$ + previousElement$ + {{Text|" "|#FFB100}}
                                    previousElement$ = n$
                                    lastElement$ = {{Text|""|#FFB100}}
                                    ii = ii + {{Text|1|#F580B1}}
                                    {{Text|GOTO|#F0F0F0}} buildTypeName
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                t$ = {{Text|RTRIM$|#F0F0F0}}(t$)
                                {{Text|IF|#F0F0F0}} t$ = {{Text|RTRIM$|#F0F0F0}}(udtxname(definingtype)) {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid self-reference"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                typ = typname2typ(t$)
                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|IF|#F0F0F0}} typ = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Undefined type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                typsize = typname2typsize
                                previousElement$ = lastElement$
                                nexttypeelement:
                                lasttypeelement = lasttypeelement + {{Text|1|#F580B1}}
                                i2 = lasttypeelement
                                {{Text|WHILE|#F0F0F0}} i2 > {{Text|UBOUND|#F0F0F0}}(udtenext): increaseUDTArrays: {{Text|WEND|#F0F0F0}}
                                udtenext(i2) = {{Text|0|#F580B1}}
                                udtearrayelements(i2) = {{Text|0|#F580B1}}
                                udtename(i2) = n$
                                udtecname(i2) = cn$
                                {{Text|IF|#F0F0F0}} validname(n$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                newAsTypeBlockSyntax = {{Text|-1|#F580B1}}
                                {{Text|GOSUB|#F0F0F0}} NormalTypeBlock
                                newAsTypeBlockSyntax = {{Text|0|#F580B1}}
                                getNextElement:
                                ii = ii + {{Text|1|#F580B1}}
                                lastElement$ = getelement$(a$, ii)
                                {{Text|IF|#F0F0F0}} lastElement$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} finishedlinepp
                                {{Text|IF|#F0F0F0}} ii = n {{Text|AND|#F0F0F0}} lastElement$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected element-name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|IF|#F0F0F0}} lastElement$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} previousElement$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected element-name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    previousElement$ = lastElement$
                                    {{Text|GOTO|#F0F0F0}} getNextElement
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                n$ = lastElement$
                                {{Text|IF|#F0F0F0}} previousElement$ <> {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ,"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                previousElement$ = lastElement$
                                cn$ = getelement$(ca$, ii)
                                {{Text|GOTO|#F0F0F0}} nexttypeelement
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'definingtype|#31C4C4}}
                        {{Text|IF|#F0F0F0}} definingtype {{Text|AND|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected END TYPE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"TYPE"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} n <> {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected TYPE typename"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                lasttype = lasttype + {{Text|1|#F580B1}}
                                typeDefinitions$ = typeDefinitions$ + {{Text|MKL$|#F0F0F0}}({{Text|-1|#F580B1}}) + {{Text|MKL$|#F0F0F0}}(lasttype)
                                definingtype = lasttype
                                i = definingtype
                                {{Text|WHILE|#F0F0F0}} i > {{Text|UBOUND|#F0F0F0}}(udtenext): increaseUDTArrays: {{Text|WEND|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} validname(secondelement$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                typeDefinitions$ = typeDefinitions$ + {{Text|MKL$|#F0F0F0}}({{Text|LEN|#F0F0F0}}(secondelement$)) + secondelement$
                                udtxname(i) = secondelement$
                                udtxcname(i) = getelement(ca$, {{Text|2|#F580B1}})
                                udtxnext(i) = {{Text|0|#F580B1}}
                                udtxsize(i) = {{Text|0|#F580B1}}
                                udtxvariable(i) = {{Text|0|#F580B1}}
                                hashname$ = secondelement$
                                hashflags = HASHFLAG_UDT
                                {{Text|'check for name conflicts (any similar reserved/sub/function/UDT name)|#31C4C4}}
                                hashchkflags = HASHFLAG_RESERVED + HASHFLAG_SUB + HASHFLAG_FUNCTION + HASHFLAG_UDT
                                hashres = HashFind(hashname$, hashchkflags, hashresflags, hashresref)
                                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} hashres
                                    allow = {{Text|0|#F580B1}}
                                    {{Text|IF|#F0F0F0}} hashresflags {{Text|AND|#F0F0F0}} (HASHFLAG_SUB + HASHFLAG_FUNCTION) {{Text|THEN|#F0F0F0}}
                                        allow = {{Text|1|#F580B1}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} hashresflags {{Text|AND|#F0F0F0}} HASHFLAG_RESERVED {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} (hashresflags {{Text|AND|#F0F0F0}} (HASHFLAG_TYPE + HASHFLAG_OPERATOR + HASHFLAG_CUSTOMSYNTAX + HASHFLAG_XTYPENAME)) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} allow = {{Text|1|#F580B1}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} allow = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Name already in use ("|#FFB100}} + hashname$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|IF|#F0F0F0}} hashres <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} hashres = HashFindCont(hashresflags, hashresref) {{Text|ELSE|#F0F0F0}} hashres = {{Text|0|#F580B1}}
                                {{Text|LOOP|#F0F0F0}}
                                {{Text|'add to hash table|#31C4C4}}
                                HashAdd hashname$, hashflags, i
                                {{Text|GOTO|#F0F0F0}} finishedlinepp
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} firstelement$ = {{Text|"CONST"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            {{Text|'l$ = "CONST"|#31C4C4}}
                            {{Text|'DEF... do not change type, the expression is stored in a suitable type|#31C4C4}}
                            {{Text|'based on its value if type isn't forced/specified|#31C4C4}}
                            {{Text|IF|#F0F0F0}} subfuncn > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} closedsubfunc <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Statement cannot be placed between SUB/FUNCTIONs"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|'convert periods to _046_|#31C4C4}}
                            i2 = {{Text|INSTR|#F0F0F0}}(a$, sp + {{Text|"."|#FFB100}} + sp)
                            {{Text|IF|#F0F0F0}} i2 {{Text|THEN|#F0F0F0}}
                                {{Text|DO|#F0F0F0}}
                                    a$ = {{Text|LEFT$|#F0F0F0}}(a$, i2 - {{Text|1|#F580B1}}) + fix046$ + {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - i2 - {{Text|2|#F580B1}})
                                    ca$ = {{Text|LEFT$|#F0F0F0}}(ca$, i2 - {{Text|1|#F580B1}}) + fix046$ + {{Text|RIGHT$|#F0F0F0}}(ca$, {{Text|LEN|#F0F0F0}}(ca$) - i2 - {{Text|2|#F580B1}})
                                    i2 = {{Text|INSTR|#F0F0F0}}(a$, sp + {{Text|"."|#FFB100}} + sp)
                                {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} i2 = {{Text|0|#F580B1}}
                                n = numelements(a$)
                                firstelement$ = getelement(a$, {{Text|1|#F580B1}}): secondelement$ = getelement(a$, {{Text|2|#F580B1}}): thirdelement$ = getelement(a$, {{Text|3|#F580B1}})
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} n < {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected CONST name = value/expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            i = {{Text|2|#F580B1}}
                            constdefpendingpp:
                            pending = {{Text|0|#F580B1}}
                            n$ = getelement$(ca$, i): i = i + {{Text|1|#F580B1}}
                            typeoverride = {{Text|0|#F580B1}}
                            s$ = removesymbol$(n$)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|IF|#F0F0F0}} s$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                                typeoverride = typname2typ(s$)
                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|IF|#F0F0F0}} typeoverride {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid constant type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|IF|#F0F0F0}} typeoverride = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid constant type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} getelement$(a$, i) <> {{Text|"="|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ="|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            i = i + {{Text|1|#F580B1}}
                            {{Text|'get expression|#31C4C4}}
                            e$ = {{Text|""|#FFB100}}
                            readable_e$ = {{Text|""|#FFB100}}
                            B = {{Text|0|#F580B1}}
                            {{Text|FOR|#F0F0F0}} i2 = i {{Text|TO|#F0F0F0}} n
                                e2$ = getelement$(ca$, i2)
                                {{Text|IF|#F0F0F0}} e2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                                {{Text|IF|#F0F0F0}} e2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                                {{Text|IF|#F0F0F0}} e2$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    pending = {{Text|1|#F580B1}}
                                    i = i2 + {{Text|1|#F580B1}}
                                    {{Text|IF|#F0F0F0}} i > n - {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected CONST ... , name = value/expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = e2$ {{Text|ELSE|#F0F0F0}} e$ = e$ + sp + e2$
                                e3$ = e2$
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e2$) > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(e2$, {{Text|1|#F580B1}}) = {{Text|34|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        removeComma = {{Text|_INSTRREV|#F0F0F0}}(e2$, {{Text|","|#FFB100}})
                                        e3$ = {{Text|LEFT$|#F0F0F0}}(e2$, removeComma - {{Text|1|#F580B1}})
                                    {{Text|ELSE|#F0F0F0}}
                                        removeComma = {{Text|INSTR|#F0F0F0}}(e2$, {{Text|","|#FFB100}})
                                        e3$ = {{Text|MID$|#F0F0F0}}(e2$, removeComma + {{Text|1|#F580B1}})
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(readable_e$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    readable_e$ = e3$
                                {{Text|ELSE|#F0F0F0}}
                                    readable_e$ = readable_e$ + {{Text|" "|#FFB100}} + e3$
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|NEXT|#F0F0F0}}
                            {{Text|'intercept current expression and pass it through Evaluate_Expression$|#31C4C4}}
                            {{Text|'(unless it is a literal string)|#31C4C4}}
                            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(readable_e$, {{Text|1|#F580B1}}) <> {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) {{Text|THEN|#F0F0F0}}
                                temp1$ = {{Text|_TRIM$|#F0F0F0}}(Evaluate_Expression$(readable_e$))
                                {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(temp1$, {{Text|5|#F580B1}}) <> {{Text|"ERROR"|#FFB100}} {{Text|AND|#F0F0F0}} e$ <> temp1$ {{Text|THEN|#F0F0F0}}
                                    e$ = lineformat(temp1$) {{Text|'retrieve parseable format|#31C4C4}}
                                {{Text|ELSE|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} temp1$ = {{Text|"ERROR - Division By Zero"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = temp1$: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(temp1$, {{Text|"Improper operations"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        a$ = {{Text|"Invalid CONST expression.14"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|'Proceed as usual|#31C4C4}}
                            e$ = fixoperationorder(e$)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            e$ = evaluateconst(e$, t)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}} {{Text|'string type|#31C4C4}}
                                {{Text|IF|#F0F0F0}} typeoverride {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} (typeoverride {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Type mismatch"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|ELSE|#F0F0F0}} {{Text|'not a string type|#31C4C4}}
                                {{Text|IF|#F0F0F0}} typeoverride {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} typeoverride {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}} a$ = {{Text|"Type mismatch"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
                                    constval## = {{Text|_CV|#F0F0F0}}({{Text|_FLOAT|#F0F0F0}}, e$)
                                    constval&& = constval##
                                    constval~&& = constval&&
                                {{Text|ELSE|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|AND|#F0F0F0}} (t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        constval~&& = {{Text|_CV|#F0F0F0}}({{Text|_UNSIGNED|#F0F0F0}} _INTEGER64, e$)
                                        constval&& = constval~&&
                                        constval## = constval&&
                                    {{Text|ELSE|#F0F0F0}}
                                        constval&& = {{Text|_CV|#F0F0F0}}(_INTEGER64, e$)
                                        constval## = constval&&
                                        constval~&& = constval&&
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'override type?|#31C4C4}}
                                {{Text|IF|#F0F0F0}} typeoverride {{Text|THEN|#F0F0F0}}
                                    {{Text|'range check required here (noted in todo)|#31C4C4}}
                                    t = typeoverride
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'not a string type|#31C4C4}}
                            constlast = constlast + {{Text|1|#F580B1}}
                            {{Text|IF|#F0F0F0}} constlast > constmax {{Text|THEN|#F0F0F0}}
                                constmax = constmax * {{Text|2|#F580B1}}
                                {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} constname(constmax) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
                                {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} constcname(constmax) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
                                {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} constnamesymbol(constmax) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} {{Text|'optional name symbol|#31C4C4}}
                                {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} consttype(constmax) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}} {{Text|'variable type number|#31C4C4}}
                                {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} constinteger(constmax) {{Text|AS|#F0F0F0}} _INTEGER64
                                {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} constuinteger(constmax) {{Text|AS|#F0F0F0}} {{Text|_UNSIGNED|#F0F0F0}} _INTEGER64
                                {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} constfloat(constmax) {{Text|AS|#F0F0F0}} {{Text|_FLOAT|#F0F0F0}}
                                {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} conststring(constmax) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
                                {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} constsubfunc(constmax) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
                                {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} constdefined(constmax) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            i2 = constlast
                            constsubfunc(i2) = subfuncn
                            {{Text|'IF subfunc = "" THEN constlastshared = i2|#31C4C4}}
                            {{Text|IF|#F0F0F0}} validname(n$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            constname(i2) = {{Text|UCASE$|#F0F0F0}}(n$)
                            hashname$ = n$
                            {{Text|'check for name conflicts (any similar: reserved, sub, function, constant)|#31C4C4}}
                            allow = {{Text|0|#F580B1}}
                            const_recheck:
                            hashchkflags = HASHFLAG_RESERVED + HASHFLAG_SUB + HASHFLAG_FUNCTION + HASHFLAG_CONSTANT
                            hashres = HashFind(hashname$, hashchkflags, hashresflags, hashresref)
                            {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} hashres
                                {{Text|IF|#F0F0F0}} hashresflags {{Text|AND|#F0F0F0}} HASHFLAG_CONSTANT {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} constsubfunc(hashresref) = subfuncn {{Text|THEN|#F0F0F0}}
                                        {{Text|'If merely redefining a CONST with same value|#31C4C4}}
                                        {{Text|'just issue a warning instead of an error|#31C4C4}}
                                        issueWarning = {{Text|0|#F580B1}}
                                        {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} conststring(hashresref) = e$ {{Text|THEN|#F0F0F0}} issueWarning = {{Text|-1|#F580B1}}: thisconstval$ = e$
                                        {{Text|ELSE|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
                                                {{Text|IF|#F0F0F0}} constfloat(hashresref) = constval## {{Text|THEN|#F0F0F0}} issueWarning = {{Text|-1|#F580B1}}: thisconstval$ = {{Text|STR$|#F0F0F0}}(constval##)
                                            {{Text|ELSE|#F0F0F0}}
                                                {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}}
                                                    {{Text|IF|#F0F0F0}} constuinteger(hashresref) = constval~&& {{Text|THEN|#F0F0F0}} issueWarning = {{Text|-1|#F580B1}}: thisconstval$ = {{Text|STR$|#F0F0F0}}(constval~&&)
                                                {{Text|ELSE|#F0F0F0}}
                                                    {{Text|IF|#F0F0F0}} constinteger(hashresref) = constval&& {{Text|THEN|#F0F0F0}} issueWarning = {{Text|-1|#F580B1}}: thisconstval$ = {{Text|STR$|#F0F0F0}}(constval&&)
                                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} issueWarning {{Text|THEN|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} IgnoreWarnings {{Text|THEN|#F0F0F0}}
                                                addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), {{Text|"duplicate constant definition"|#FFB100}}, n$ + {{Text|" ="|#FFB100}} + thisconstval$
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                            {{Text|GOTO|#F0F0F0}} constAddDone
                                        {{Text|ELSE|#F0F0F0}}
                                            a$ = {{Text|"Name already in use ("|#FFB100}} + hashname$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} hashresflags {{Text|AND|#F0F0F0}} HASHFLAG_RESERVED {{Text|THEN|#F0F0F0}}
                                    a$ = {{Text|"Name already in use ("|#FFB100}} + hashname$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} hashresflags {{Text|AND|#F0F0F0}} (HASHFLAG_SUB + HASHFLAG_FUNCTION) {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} ids(hashresref).internal_subfunc = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(ids(hashresref).musthave) <> {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Name already in use ("|#FFB100}} + hashname$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}} a$ = {{Text|"Name already in use ("|#FFB100}} + hashname$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} hashres <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} hashres = HashFindCont(hashresflags, hashresref) {{Text|ELSE|#F0F0F0}} hashres = {{Text|0|#F580B1}}
                            {{Text|LOOP|#F0F0F0}}
                            {{Text|'add to hash table|#31C4C4}}
                            HashAdd hashname$, HASHFLAG_CONSTANT, i2
                            constdefined(i2) = {{Text|1|#F580B1}}
                            constcname(i2) = n$
                            constnamesymbol(i2) = typevalue2symbol$(t)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            consttype(i2) = t
                            {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                                conststring(i2) = e$
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
                                    constfloat(i2) = constval##
                                {{Text|ELSE|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}}
                                        constuinteger(i2) = constval~&&
                                    {{Text|ELSE|#F0F0F0}}
                                        constinteger(i2) = constval&&
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            constAddDone:
                            {{Text|IF|#F0F0F0}} pending {{Text|THEN|#F0F0F0}}
                                {{Text|'l$ = l$ + sp2 + ","|#31C4C4}}
                                {{Text|GOTO|#F0F0F0}} constdefpendingpp
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|'layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$|#31C4C4}}
                            {{Text|GOTO|#F0F0F0}} finishedlinepp
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|'DEFINE|#31C4C4}}
                        d = {{Text|0|#F580B1}}
                        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"DEFINT"|#FFB100}} {{Text|THEN|#F0F0F0}} d = {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"DEFLNG"|#FFB100}} {{Text|THEN|#F0F0F0}} d = {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"DEFSNG"|#FFB100}} {{Text|THEN|#F0F0F0}} d = {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"DEFDBL"|#FFB100}} {{Text|THEN|#F0F0F0}} d = {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"DEFSTR"|#FFB100}} {{Text|THEN|#F0F0F0}} d = {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"_DEFINE"|#FFB100}} {{Text|OR|#F0F0F0}} (firstelement$ = {{Text|"DEFINE"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} d = {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} d {{Text|THEN|#F0F0F0}}
                            predefining = {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} predefine
                            predefined: predefining = {{Text|0|#F580B1}}
                            {{Text|GOTO|#F0F0F0}} finishedlinepp
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|'declare library|#31C4C4}}
                        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"DECLARE"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"LIBRARY"|#FFB100}} {{Text|OR|#F0F0F0}} secondelement$ = {{Text|"DYNAMIC"|#FFB100}} {{Text|OR|#F0F0F0}} secondelement$ = {{Text|"CUSTOMTYPE"|#FFB100}} {{Text|OR|#F0F0F0}} secondelement$ = {{Text|"STATIC"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                declaringlibrary = {{Text|1|#F580B1}}
                                indirectlibrary = {{Text|0|#F580B1}}
                                {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"CUSTOMTYPE"|#FFB100}} {{Text|OR|#F0F0F0}} secondelement$ = {{Text|"DYNAMIC"|#FFB100}} {{Text|THEN|#F0F0F0}} indirectlibrary = {{Text|1|#F580B1}}
                                {{Text|GOTO|#F0F0F0}} finishedlinepp
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|'SUB/FUNCTION|#31C4C4}}
                        dynamiclibrary = {{Text|0|#F580B1}}
                        declaresubfunc:
                        firstelement$ = getelement$(a$, {{Text|1|#F580B1}})
                        sf = {{Text|0|#F580B1}}
                        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"FUNCTION"|#FFB100}} {{Text|THEN|#F0F0F0}} sf = {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"SUB"|#FFB100}} {{Text|THEN|#F0F0F0}} sf = {{Text|2|#F580B1}}
                        {{Text|IF|#F0F0F0}} sf {{Text|THEN|#F0F0F0}}
                            subfuncn = subfuncn + {{Text|1|#F580B1}}
                            closedsubfunc = {{Text|0|#F580B1}}
                            {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected name after SUB/FUNCTION"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|'convert periods to _046_|#31C4C4}}
                            i2 = {{Text|INSTR|#F0F0F0}}(a$, sp + {{Text|"."|#FFB100}} + sp)
                            {{Text|IF|#F0F0F0}} i2 {{Text|THEN|#F0F0F0}}
                                {{Text|DO|#F0F0F0}}
                                    a$ = {{Text|LEFT$|#F0F0F0}}(a$, i2 - {{Text|1|#F580B1}}) + fix046$ + {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - i2 - {{Text|2|#F580B1}})
                                    ca$ = {{Text|LEFT$|#F0F0F0}}(ca$, i2 - {{Text|1|#F580B1}}) + fix046$ + {{Text|RIGHT$|#F0F0F0}}(ca$, {{Text|LEN|#F0F0F0}}(ca$) - i2 - {{Text|2|#F580B1}})
                                    i2 = {{Text|INSTR|#F0F0F0}}(a$, sp + {{Text|"."|#FFB100}} + sp)
                                {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} i2 = {{Text|0|#F580B1}}
                                n = numelements(a$)
                                firstelement$ = getelement(a$, {{Text|1|#F580B1}}): secondelement$ = getelement(a$, {{Text|2|#F580B1}}): thirdelement$ = getelement(a$, {{Text|3|#F580B1}})
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            n$ = getelement$(ca$, {{Text|2|#F580B1}})
                            symbol$ = removesymbol$(n$)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|IF|#F0F0F0}} sf = {{Text|2|#F580B1}} {{Text|AND|#F0F0F0}} symbol$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Type symbols after a SUB name are invalid"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|'remove STATIC (which is ignored)|#31C4C4}}
                            e$ = getelement$(a$, n): {{Text|IF|#F0F0F0}} e$ = {{Text|"STATIC"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|LEFT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - {{Text|7|#F580B1}}): ca$ = {{Text|LEFT$|#F0F0F0}}(ca$, {{Text|LEN|#F0F0F0}}(ca$) - {{Text|7|#F580B1}}): n = n - {{Text|1|#F580B1}}
                            {{Text|'check for ALIAS|#31C4C4}}
                            aliasname$ = n$ {{Text|'use given name by default|#31C4C4}}
                            {{Text|IF|#F0F0F0}} n > {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                                e$ = getelement$(a$, {{Text|3|#F580B1}})
                                {{Text|IF|#F0F0F0}} e$ = {{Text|"ALIAS"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} declaringlibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"ALIAS can only be used with DECLARE LIBRARY"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|IF|#F0F0F0}} n = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ALIAS name-in-library"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    e$ = getelement$(ca$, {{Text|4|#F580B1}})
                                    {{Text|'strip string content (optional)|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(e$, {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) {{Text|THEN|#F0F0F0}}
                                        e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|1|#F580B1}})
                                        x = {{Text|INSTR|#F0F0F0}}(e$, {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})): {{Text|IF|#F0F0F0}} x = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}): {{Text|GOTO|#F0F0F0}} errmes
                                        e$ = {{Text|LEFT$|#F0F0F0}}(e$, x - {{Text|1|#F580B1}})
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|'strip fix046$ (created by unquoted periods)|#31C4C4}}
                                    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(e$, fix046$)
                                        x = {{Text|INSTR|#F0F0F0}}(e$, fix046$): e$ = {{Text|LEFT$|#F0F0F0}}(e$, x - {{Text|1|#F580B1}}) + {{Text|"."|#FFB100}} + {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - x + {{Text|1|#F580B1}} - {{Text|LEN|#F0F0F0}}(fix046$))
                                    {{Text|LOOP|#F0F0F0}}
                                    {{Text|'validate alias name|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ALIAS name-in-library"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|FOR|#F0F0F0}} x = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$)
                                        a = {{Text|ASC|#F0F0F0}}(e$, x)
                                        {{Text|IF|#F0F0F0}} alphanumeric(a) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} a <> ASC_FULLSTOP {{Text|AND|#F0F0F0}} a <> ASC_COLON {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ALIAS name-in-library"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|NEXT|#F0F0F0}}
                                    aliasname$ = e$
                                    {{Text|'remove ALIAS section from line|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} n <= {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = getelements(a$, {{Text|1|#F580B1}}, {{Text|2|#F580B1}})
                                    {{Text|IF|#F0F0F0}} n >= {{Text|5|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = getelements(a$, {{Text|1|#F580B1}}, {{Text|2|#F580B1}}) + sp + getelements(a$, {{Text|5|#F580B1}}, n)
                                    {{Text|IF|#F0F0F0}} n <= {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} ca$ = getelements(ca$, {{Text|1|#F580B1}}, {{Text|2|#F580B1}})
                                    {{Text|IF|#F0F0F0}} n >= {{Text|5|#F580B1}} {{Text|THEN|#F0F0F0}} ca$ = getelements(ca$, {{Text|1|#F580B1}}, {{Text|2|#F580B1}}) + sp + getelements(ca$, {{Text|5|#F580B1}}, n)
                                    n = n - {{Text|2|#F580B1}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} declaringlibrary {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} indirectlibrary {{Text|THEN|#F0F0F0}}
                                    aliasname$ = n$ {{Text|'override the alias name|#31C4C4}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            params = {{Text|0|#F580B1}}
                            params$ = {{Text|""|#FFB100}}
                            paramsize$ = {{Text|""|#FFB100}}
                            nele$ = {{Text|""|#FFB100}}
                            nelereq$ = {{Text|""|#FFB100}}
                            {{Text|IF|#F0F0F0}} n > {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                                e$ = getelement$(a$, {{Text|3|#F580B1}})
                                {{Text|IF|#F0F0F0}} e$ <> {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ("|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                e$ = getelement$(a$, n)
                                {{Text|IF|#F0F0F0}} e$ <> {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected )"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|IF|#F0F0F0}} n < {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ( ... )"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|IF|#F0F0F0}} n = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} nosfparams
                                B = {{Text|0|#F580B1}}
                                a2$ = {{Text|""|#FFB100}}
                                {{Text|FOR|#F0F0F0}} i = {{Text|4|#F580B1}} {{Text|TO|#F0F0F0}} n - {{Text|1|#F580B1}}
                                    e$ = getelement$(a$, i)
                                    {{Text|IF|#F0F0F0}} e$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                                    {{Text|IF|#F0F0F0}} e$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                                    {{Text|IF|#F0F0F0}} e$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} i = n - {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected , ... )"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                        getlastparam:
                                        {{Text|IF|#F0F0F0}} a2$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ... ,"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                        a2$ = {{Text|LEFT$|#F0F0F0}}(a2$, {{Text|LEN|#F0F0F0}}(a2$) - {{Text|1|#F580B1}})
                                        {{Text|'possible format: [BYVAL]a[%][(1)][AS][type]|#31C4C4}}
                                        n2 = numelements(a2$)
                                        array = {{Text|0|#F580B1}}
                                        t2$ = {{Text|""|#FFB100}}
                                        i2 = {{Text|1|#F580B1}}
                                        e$ = getelement$(a2$, i2): i2 = i2 + {{Text|1|#F580B1}}
                                        byvalue = {{Text|0|#F580B1}}
                                        {{Text|IF|#F0F0F0}} e$ = {{Text|"BYVAL"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} declaringlibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"BYVAL can currently only be used with DECLARE LIBRARY"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                            e$ = getelement$(a2$, i2): i2 = i2 + {{Text|1|#F580B1}}: byvalue = {{Text|1|#F580B1}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        n2$ = e$
                                        symbol2$ = removesymbol$(n2$)
                                        {{Text|IF|#F0F0F0}} validname(n2$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                        m = {{Text|0|#F580B1}}
                                        {{Text|FOR|#F0F0F0}} i2 = i2 {{Text|TO|#F0F0F0}} n2
                                            e$ = getelement$(a2$, i2)
                                            {{Text|IF|#F0F0F0}} e$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}}
                                                {{Text|IF|#F0F0F0}} m <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Syntax error - too many opening brackets"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                                m = {{Text|1|#F580B1}}
                                                array = {{Text|1|#F580B1}}
                                                {{Text|GOTO|#F0F0F0}} gotaa
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} e$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                                {{Text|IF|#F0F0F0}} m <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Syntax error - closing bracket without opening bracket"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                                m = {{Text|2|#F580B1}}
                                                {{Text|GOTO|#F0F0F0}} gotaa
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} e$ = {{Text|"AS"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                                {{Text|IF|#F0F0F0}} m <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} m <> {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Syntax error - check your brackets"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                                m = {{Text|3|#F580B1}}
                                                {{Text|GOTO|#F0F0F0}} gotaa
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} m = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} gotaa {{Text|'ignore contents of bracket|#31C4C4}}
                                            {{Text|IF|#F0F0F0}} m <> {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Syntax error - check your brackets"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                            {{Text|IF|#F0F0F0}} t2$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} t2$ = e$ {{Text|ELSE|#F0F0F0}} t2$ = t2$ + {{Text|" "|#FFB100}} + e$
                                            gotaa:
                                        {{Text|NEXT|#F0F0F0}} i2
                                        params = params + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} params > {{Text|100|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"SUB/FUNCTION exceeds 100 parameter limit"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                        argnelereq = {{Text|0|#F580B1}}
                                        {{Text|IF|#F0F0F0}} symbol2$ <> {{Text|""|#FFB100}} {{Text|AND|#F0F0F0}} t2$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Syntax error - check parameter types"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                        {{Text|IF|#F0F0F0}} t2$ = {{Text|""|#FFB100}} {{Text|AND|#F0F0F0}} e$ = {{Text|"AS"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected AS type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                        {{Text|IF|#F0F0F0}} t2$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} t2$ = symbol2$
                                        {{Text|IF|#F0F0F0}} t2$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(n2$, {{Text|1|#F580B1}}) = {{Text|"_"|#FFB100}} {{Text|THEN|#F0F0F0}} v = {{Text|27|#F580B1}} {{Text|ELSE|#F0F0F0}} v = {{Text|ASC|#F0F0F0}}({{Text|UCASE$|#F0F0F0}}(n2$)) - {{Text|64|#F580B1}}
                                            t2$ = defineaz(v)
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        paramsize = {{Text|0|#F580B1}}
                                        {{Text|IF|#F0F0F0}} array = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                            t = typname2typ(t2$)
                                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                            {{Text|IF|#F0F0F0}} t = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Illegal SUB/FUNCTION parameter"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) {{Text|THEN|#F0F0F0}} paramsize = typname2typsize
                                            t = t + ISARRAY
                                            {{Text|'check for recompilation override|#31C4C4}}
                                            {{Text|FOR|#F0F0F0}} i10 = {{Text|0|#F580B1}} {{Text|TO|#F0F0F0}} sflistn
                                                {{Text|IF|#F0F0F0}} sfidlist(i10) = idn + {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                                    {{Text|IF|#F0F0F0}} sfarglist(i10) = params {{Text|THEN|#F0F0F0}}
                                                        argnelereq = sfelelist(i10)
                                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                            {{Text|NEXT|#F0F0F0}}
                                        {{Text|ELSE|#F0F0F0}}
                                            t = typname2typ(t2$)
                                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                            {{Text|IF|#F0F0F0}} t = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Illegal SUB/FUNCTION parameter"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) {{Text|THEN|#F0F0F0}} paramsize = typname2typsize
                                            {{Text|IF|#F0F0F0}} byvalue {{Text|THEN|#F0F0F0}}
                                                {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISPOINTER {{Text|THEN|#F0F0F0}} t = t - ISPOINTER
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        nelereq$ = nelereq$ + {{Text|CHR$|#F0F0F0}}(argnelereq)
                                        {{Text|'consider changing 0 in following line too!|#31C4C4}}
                                        nele$ = nele$ + {{Text|CHR$|#F0F0F0}}({{Text|0|#F580B1}})
                                        paramsize$ = paramsize$ + {{Text|MKL$|#F0F0F0}}(paramsize)
                                        params$ = params$ + {{Text|MKL$|#F0F0F0}}(t)
                                        a2$ = {{Text|""|#FFB100}}
                                    {{Text|ELSE|#F0F0F0}}
                                        a2$ = a2$ + e$ + sp
                                        {{Text|IF|#F0F0F0}} i = n - {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} getlastparam
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|NEXT|#F0F0F0}} i
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'n>2|#31C4C4}}
                            nosfparams:
                            {{Text|IF|#F0F0F0}} sf = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|'function|#31C4C4}}
                                clearid
                                id.n = n$
                                id.subfunc = {{Text|1|#F580B1}}
                                id.callname = {{Text|"FUNC_"|#FFB100}} + {{Text|UCASE$|#F0F0F0}}(n$)
                                {{Text|IF|#F0F0F0}} declaringlibrary {{Text|THEN|#F0F0F0}}
                                    id.ccall = {{Text|1|#F580B1}}
                                    {{Text|IF|#F0F0F0}} indirectlibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} id.callname = aliasname$
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                id.args = params
                                id.arg = params$
                                id.argsize = paramsize$
                                id.nele = nele$
                                id.nelereq = nelereq$
                                {{Text|IF|#F0F0F0}} symbol$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                                    id.ret = typname2typ(symbol$)
                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|ELSE|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(n$, {{Text|1|#F580B1}}) = {{Text|"_"|#FFB100}} {{Text|THEN|#F0F0F0}} v = {{Text|27|#F580B1}} {{Text|ELSE|#F0F0F0}} v = {{Text|ASC|#F0F0F0}}({{Text|UCASE$|#F0F0F0}}(n$)) - {{Text|64|#F580B1}}
                                    symbol$ = defineaz(v)
                                    id.ret = typname2typ(symbol$)
                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} id.ret = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid FUNCTION return type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|IF|#F0F0F0}} declaringlibrary {{Text|THEN|#F0F0F0}}
                                    ctype$ = typ2ctyp$(id.ret, {{Text|""|#FFB100}})
                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|IF|#F0F0F0}} ctype$ = {{Text|"qbs"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"char*"|#FFB100}}
                                    id.callname = {{Text|"(  "|#FFB100}} + ctype$ + {{Text|"  )"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(id.callname)
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                s$ = {{Text|LEFT$|#F0F0F0}}(symbol$, {{Text|1|#F580B1}})
                                {{Text|IF|#F0F0F0}} s$ <> {{Text|"~"|#FFB100}} {{Text|AND|#F0F0F0}} s$ <> {{Text|"`"|#FFB100}} {{Text|AND|#F0F0F0}} s$ <> {{Text|"%"|#FFB100}} {{Text|AND|#F0F0F0}} s$ <> {{Text|"&"|#FFB100}} {{Text|AND|#F0F0F0}} s$ <> {{Text|"!"|#FFB100}} {{Text|AND|#F0F0F0}} s$ <> {{Text|"#"|#FFB100}} {{Text|AND|#F0F0F0}} s$ <> {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                    symbol$ = type2symbol$(symbol$)
                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                id.mayhave = symbol$
                                {{Text|IF|#F0F0F0}} id.ret {{Text|AND|#F0F0F0}} ISPOINTER {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} (id.ret {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} id.ret = id.ret - ISPOINTER
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                regid
                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|'sub|#31C4C4}}
                                clearid
                                id.n = n$
                                id.subfunc = {{Text|2|#F580B1}}
                                id.callname = {{Text|"SUB_"|#FFB100}} + {{Text|UCASE$|#F0F0F0}}(n$)
                                {{Text|IF|#F0F0F0}} declaringlibrary {{Text|THEN|#F0F0F0}}
                                    id.ccall = {{Text|1|#F580B1}}
                                    {{Text|IF|#F0F0F0}} indirectlibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} id.callname = aliasname$
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                id.args = params
                                id.arg = params$
                                id.argsize = paramsize$
                                id.nele = nele$
                                id.nelereq = nelereq$
                                {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(n$) = {{Text|"_GL"|#FFB100}} {{Text|AND|#F0F0F0}} params = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} UseGL = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} reginternalsubfunc = {{Text|1|#F580B1}}: UseGL = {{Text|1|#F580B1}}: id.n = {{Text|"_GL"|#FFB100}}: DEPENDENCY(DEPENDENCY_GL) = {{Text|1|#F580B1}}
                                regid
                                reginternalsubfunc = {{Text|0|#F580B1}}
                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|'========================================|#31C4C4}}
                        finishedlinepp:
                        firstLine = {{Text|0|#F580B1}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    a$ = {{Text|""|#FFB100}}
                    ca$ = {{Text|""|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} a$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = e$: ca$ = ce$ {{Text|ELSE|#F0F0F0}} a$ = a$ + sp + e$: ca$ = ca$ + sp + ce$
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} wholelinei <= wholelinen {{Text|THEN|#F0F0F0}} wholelinei = wholelinei + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} ppblda
                {{Text|'----------------------------------------|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'wholelinei<=wholelinen|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'wholelinen|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'len(wholeline$)|#31C4C4}}
    {{Text|'Include Manager #1|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(addmetainclude$) {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"Pre-pass:INCLUDE$-ing file:'"|#FFB100}} + addmetainclude$ + {{Text|"':On line"|#FFB100}}; linenumber
        a$ = addmetainclude$: addmetainclude$ = {{Text|""|#FFB100}} {{Text|'read/clear message|#31C4C4}}
        {{Text|IF|#F0F0F0}} inclevel = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            includingFromRoot = {{Text|0|#F580B1}}
            forceIncludingFile = {{Text|0|#F580B1}}
            forceInclude_prepass:
            {{Text|IF|#F0F0F0}} forceIncludeFromRoot$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                a$ = forceIncludeFromRoot$
                forceIncludeFromRoot$ = {{Text|""|#FFB100}}
                forceIncludingFile = {{Text|1|#F580B1}}
                includingFromRoot = {{Text|1|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} inclevel = {{Text|100|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Too many indwelling INCLUDE files"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
        {{Text|'1. Verify file exists (location is either (a)relative to source file or (b)absolute)|#31C4C4}}
        fh = {{Text|99|#F580B1}} + inclevel + {{Text|1|#F580B1}}
        firstTryMethod = {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} includingFromRoot <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} inclevel = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} firstTryMethod = {{Text|2|#F580B1}}
        {{Text|FOR|#F0F0F0}} try = firstTryMethod {{Text|TO|#F0F0F0}} {{Text|2|#F580B1}} {{Text|'if including file from root, do not attempt including from relative location|#31C4C4}}
            {{Text|IF|#F0F0F0}} try = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} inclevel = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} idemode {{Text|THEN|#F0F0F0}} p$ = idepath$ + pathsep$ {{Text|ELSE|#F0F0F0}} p$ = getfilepath$(sourcefile$)
                {{Text|ELSE|#F0F0F0}}
                    p$ = getfilepath$(incname(inclevel))
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                f$ = p$ + a$
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} f$ = a$
            {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(f$) {{Text|THEN|#F0F0F0}}
                qberrorhappened = {{Text|-3|#F580B1}}
                {{Text|'We're using the faster LINE INPUT, which requires a BINARY open.|#31C4C4}}
                {{Text|OPEN|#F0F0F0}} f$ {{Text|FOR|#F0F0F0}} {{Text|BINARY|#F0F0F0}} {{Text|AS|#F0F0F0}} #fh
                {{Text|'And another line below edited|#31C4C4}}
                qberrorhappened3:
                {{Text|IF|#F0F0F0}} qberrorhappened = {{Text|-3|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            qberrorhappened = {{Text|0|#F580B1}}
        {{Text|NEXT|#F0F0F0}}
        {{Text|IF|#F0F0F0}} qberrorhappened <> {{Text|-3|#F580B1}} {{Text|THEN|#F0F0F0}} qberrorhappened = {{Text|0|#F580B1}}: a$ = {{Text|"File "|#FFB100}} + a$ + {{Text|" not found"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
        inclevel = inclevel + {{Text|1|#F580B1}}: incname$(inclevel) = f$: inclinenumber(inclevel) = {{Text|0|#F580B1}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'fall through to next section...|#31C4C4}}
    {{Text|'--------------------|#31C4C4}}
    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} inclevel
        fh = {{Text|99|#F580B1}} + inclevel
        {{Text|'2. Feed next line|#31C4C4}}
        {{Text|IF|#F0F0F0}} {{Text|EOF|#F0F0F0}}(fh) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|LINE|#F0F0F0}} {{Text|INPUT|#F0F0F0}} #fh, x$
            wholeline$ = x$
            inclinenumber(inclevel) = inclinenumber(inclevel) + {{Text|1|#F580B1}}
            {{Text|'create extended error string 'incerror$'|#31C4C4}}
            errorLineInInclude = inclinenumber(inclevel)
            e$ = {{Text|" in line "|#FFB100}} + str2(inclinenumber(inclevel)) + {{Text|" of "|#FFB100}} + incname$(inclevel) + {{Text|" included"|#FFB100}}
            {{Text|IF|#F0F0F0}} inclevel > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                e$ = e$ + {{Text|" (through "|#FFB100}}
                {{Text|FOR|#F0F0F0}} x = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} inclevel - {{Text|1|#F580B1}} {{Text|STEP|#F0F0F0}} {{Text|1|#F580B1}}
                    e$ = e$ + incname$(x)
                    {{Text|IF|#F0F0F0}} x < inclevel - {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'a sep is req|#31C4C4}}
                        {{Text|IF|#F0F0F0}} x = inclevel - {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                            e$ = e$ + {{Text|" then "|#FFB100}}
                        {{Text|ELSE|#F0F0F0}}
                            e$ = e$ + {{Text|", "|#FFB100}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|NEXT|#F0F0F0}}
                e$ = e$ + {{Text|")"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            incerror$ = e$
            linenumber = linenumber - {{Text|1|#F580B1}} {{Text|'lower official linenumber to counter later increment|#31C4C4}}
            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"Pre-pass:Feeding INCLUDE$ line:["|#FFB100}} + wholeline$ + {{Text|"]"|#FFB100}}
            {{Text|IF|#F0F0F0}} idemode {{Text|THEN|#F0F0F0}} sendc$ = {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}}) + wholeline$: {{Text|GOTO|#F0F0F0}} sendcommand {{Text|'passback|#31C4C4}}
            {{Text|GOTO|#F0F0F0}} ideprepass
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'3. Close & return control|#31C4C4}}
        {{Text|CLOSE|#F0F0F0}} #fh
        inclevel = inclevel - {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} forceIncludingFile = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} inclevel = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            forceIncludingFile = {{Text|0|#F580B1}}
            {{Text|GOTO|#F0F0F0}} forceIncludeCompleted_prepass
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|LOOP|#F0F0F0}}
    {{Text|'(end manager)|#31C4C4}}
    {{Text|IF|#F0F0F0}} idemode {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} ideret2
{{Text|LOOP|#F0F0F0}}
{{Text|'add final line|#31C4C4}}
{{Text|IF|#F0F0F0}} lastLineReturn = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
    lastLineReturn = {{Text|1|#F580B1}}
    lastLine = {{Text|1|#F580B1}}
    wholeline$ = {{Text|""|#FFB100}}
    {{Text|GOTO|#F0F0F0}} prepassLastLine
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} definingtype {{Text|THEN|#F0F0F0}} definingtype = {{Text|0|#F580B1}} {{Text|'ignore this error so that auto-formatting can be performed and catch it again later|#31C4C4}}
{{Text|IF|#F0F0F0}} declaringlibrary {{Text|THEN|#F0F0F0}} declaringlibrary = {{Text|0|#F580B1}} {{Text|'ignore this error so that auto-formatting can be performed and catch it again later|#31C4C4}}
totallinenumber = reallinenumber
{{Text|'IF idemode = 0 AND NOT QuietMode THEN PRINT "first pass finished.": PRINT "Translating code... "|#31C4C4}}
{{Text|'prepass finished|#31C4C4}}
lineinput3index = {{Text|1|#F580B1}} {{Text|'reset input line|#31C4C4}}
{{Text|'ide specific|#31C4C4}}
ide3:
addmetainclude$ = {{Text|""|#FFB100}} {{Text|'reset stray meta-includes|#31C4C4}}
{{Text|'reset altered variables|#31C4C4}}
DataOffset = {{Text|0|#F580B1}}
inclevel = {{Text|0|#F580B1}}
subfuncn = {{Text|0|#F580B1}}
lastLineReturn = {{Text|0|#F580B1}}
lastLine = {{Text|0|#F580B1}}
firstLine = {{Text|1|#F580B1}}
UserDefineCount = {{Text|7|#F580B1}}
{{Text|FOR|#F0F0F0}} i = {{Text|0|#F580B1}} {{Text|TO|#F0F0F0}} constlast: constdefined(i) = {{Text|0|#F580B1}}: {{Text|NEXT|#F0F0F0}} {{Text|'undefine constants|#31C4C4}}
{{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|27|#F580B1}}: defineaz(i) = {{Text|"SINGLE"|#FFB100}}: defineextaz(i) = {{Text|"!"|#FFB100}}: {{Text|NEXT|#F0F0F0}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} DataBinBuf: DataBinBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"data.bin"|#FFB100}})
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} MainTxtBuf: MainTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"main.txt"|#FFB100}})
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} DataTxtBuf: DataTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"maindata.txt"|#FFB100}})
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} RegTxtBuf: RegTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"regsf.txt"|#FFB100}})
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} FreeTxtBuf: FreeTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"mainfree.txt"|#FFB100}})
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} RunTxtBuf: RunTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"runline.txt"|#FFB100}})
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ErrTxtBuf: ErrTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"mainerr.txt"|#FFB100}})
{{Text|'i. check the value of error_line|#31C4C4}}
{{Text|'ii. jump to the appropriate label|#31C4C4}}
errorlabels = {{Text|0|#F580B1}}
WriteBufLine ErrTxtBuf, {{Text|"if (error_occurred){ error_occurred=0;"|#FFB100}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} ChainTxtBuf: ChainTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"chain.txt"|#FFB100}})
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} InpChainTxtBuf: InpChainTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"inpchain.txt"|#FFB100}})
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} TimeTxtBuf: TimeTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"ontimer.txt"|#FFB100}})
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} TimejTxtBuf: TimejTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"ontimerj.txt"|#FFB100}})
{{Text|'*****#26 used for locking qb64pe|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} KeyTxtBuf: KeyTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"onkey.txt"|#FFB100}})
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} KeyjTxtBuf: KeyjTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"onkeyj.txt"|#FFB100}})
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} StrigTxtBuf: StrigTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"onstrig.txt"|#FFB100}})
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} StrigjTxtBuf: StrigjTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"onstrigj.txt"|#FFB100}})
gosubid = {{Text|1|#F580B1}}
{{Text|'to be included whenever return without a label is called|#31C4C4}}
{{Text|'return [label] in QBASIC was not possible in a sub/function, but QB64 will support this|#31C4C4}}
{{Text|'special codes will represent special return conditions:|#31C4C4}}
{{Text|'0=return from main to calling sub/function/proc by return [NULL];|#31C4C4}}
{{Text|'1... a global number representing a return point after a gosub|#31C4C4}}
{{Text|'note: RETURN [label] should fail if a "return [NULL];" type return is required|#31C4C4}}
{{Text|DIM|#F0F0F0}} {{Text|SHARED|#F0F0F0}} RetTxtBuf: RetTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"ret0.txt"|#FFB100}})
WriteBufLine RetTxtBuf, {{Text|"if (next_return_point){"|#FFB100}}
WriteBufLine RetTxtBuf, {{Text|"next_return_point--;"|#FFB100}}
WriteBufLine RetTxtBuf, {{Text|"switch(return_point[next_return_point]){"|#FFB100}}
WriteBufLine RetTxtBuf, {{Text|"case 0:"|#FFB100}}
WriteBufLine RetTxtBuf, {{Text|"return;"|#FFB100}}
WriteBufLine RetTxtBuf, {{Text|"break;"|#FFB100}}
continueline = {{Text|0|#F580B1}}
endifs = {{Text|0|#F580B1}}
lineelseused = {{Text|0|#F580B1}}
continuelinefrom = {{Text|0|#F580B1}}
linenumber = {{Text|0|#F580B1}}
reallinenumber = {{Text|0|#F580B1}}
declaringlibrary = {{Text|0|#F580B1}}
WriteBufLine MainTxtBuf, {{Text|"S_0:;"|#FFB100}} {{Text|'note: REQUIRED by run statement|#31C4C4}}
{{Text|IF|#F0F0F0}} UseGL {{Text|THEN|#F0F0F0}} gl_include_content
{{Text|'ide specific|#31C4C4}}
{{Text|IF|#F0F0F0}} idemode {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} ideret3
{{Text|DO|#F0F0F0}}
    ide4:
    includeline:
    mainpassLastLine:
    {{Text|IF|#F0F0F0}} lastLine <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} firstLine <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        lineBackup$ = a3$ {{Text|'backup the real first line (will be blank when lastline is set)|#31C4C4}}
        forceIncludeFromRoot$ = {{Text|""|#FFB100}}
        {{Text|IF|#F0F0F0}} vWatchOn {{Text|THEN|#F0F0F0}}
            addingvWatch = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} firstLine <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} forceIncludeFromRoot$ = {{Text|"internal\support\vwatch\vwatch.bi"|#FFB100}}
            {{Text|IF|#F0F0F0}} lastLine <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} forceIncludeFromRoot$ = {{Text|"internal\support\vwatch\vwatch.bm"|#FFB100}}
        {{Text|ELSE|#F0F0F0}}
            {{Text|'IF firstLine <> 0 THEN forceIncludeFromRoot$ = "internal\support\vwatch\vwatch_stub.bi"|#31C4C4}}
            {{Text|IF|#F0F0F0}} lastLine <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} forceIncludeFromRoot$ = {{Text|"internal\support\vwatch\vwatch_stub.bm"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        firstLine = {{Text|0|#F580B1}}: lastLine = {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(forceIncludeFromRoot$) {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} forceInclude
        forceIncludeCompleted:
        addingvWatch = {{Text|0|#F580B1}}
        a3$ = lineBackup$
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    prepass = {{Text|0|#F580B1}}
    stringprocessinghappened = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} continuelinefrom {{Text|THEN|#F0F0F0}}
        start = continuelinefrom
        continuelinefrom = {{Text|0|#F580B1}}
        {{Text|GOTO|#F0F0F0}} contline
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'begin a new line|#31C4C4}}
    impliedendif = {{Text|0|#F580B1}}
    THENGOTO = {{Text|0|#F580B1}}
    continueline = {{Text|0|#F580B1}}
    endifs = {{Text|0|#F580B1}}
    lineelseused = {{Text|0|#F580B1}}
    newif = {{Text|0|#F580B1}}
    {{Text|'apply metacommands from previous line|#31C4C4}}
    {{Text|IF|#F0F0F0}} addmetadynamic = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} addmetadynamic = {{Text|0|#F580B1}}: DynamicMode = {{Text|1|#F580B1}}
    {{Text|IF|#F0F0F0}} addmetastatic = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} addmetastatic = {{Text|0|#F580B1}}: DynamicMode = {{Text|0|#F580B1}}
    {{Text|'a3$ is passed in idemode and when using $include|#31C4C4}}
    {{Text|IF|#F0F0F0}} idemode = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} inclevel = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a3$ = lineinput3$
    {{Text|IF|#F0F0F0}} a3$ = {{Text|CHR$|#F0F0F0}}({{Text|13|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
    linenumber = linenumber + {{Text|1|#F580B1}}
    reallinenumber = reallinenumber + {{Text|1|#F580B1}}
    {{Text|IF|#F0F0F0}} InValidLine(linenumber) {{Text|THEN|#F0F0F0}}
        layoutok = {{Text|1|#F580B1}}
        layout$ = {{Text|SPACE$|#F0F0F0}}(controllevel + {{Text|1|#F580B1}}) + {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(a3$))
        {{Text|IF|#F0F0F0}} idemode {{Text|GOTO|#F0F0F0}} ideret4 {{Text|ELSE|#F0F0F0}} {{Text|GOTO|#F0F0F0}} skipide4
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    layout = {{Text|""|#FFB100}}
    layoutok = {{Text|1|#F580B1}}
    {{Text|IF|#F0F0F0}} idemode = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|NOT|#F0F0F0}} QuietMode {{Text|THEN|#F0F0F0}}
        {{Text|'IF LEN(a3$) THEN|#31C4C4}}
        {{Text|'    dotlinecount = dotlinecount + 1: IF dotlinecount >= 100 THEN dotlinecount = 0: PRINT ".";|#31C4C4}}
        {{Text|'END IF|#31C4C4}}
        maxprogresswidth = {{Text|50|#F580B1}} {{Text|'arbitrary|#31C4C4}}
        percentage = {{Text|INT|#F0F0F0}}(reallinenumber / totallinenumber * {{Text|100|#F580B1}})
        percentagechars = {{Text|INT|#F0F0F0}}(maxprogresswidth * reallinenumber / totallinenumber)
        {{Text|IF|#F0F0F0}} percentage <> prevpercentage {{Text|AND|#F0F0F0}} percentagechars <> prevpercentagechars {{Text|THEN|#F0F0F0}}
            prevpercentage = percentage
            prevpercentagechars = percentagechars
            {{Text|IF|#F0F0F0}} ConsoleMode {{Text|THEN|#F0F0F0}}
                {{Text|PRINT|#F0F0F0}} {{Text|"["|#FFB100}} + {{Text|STRING$|#F0F0F0}}(percentagechars, {{Text|"."|#FFB100}}) + {{Text|SPACE$|#F0F0F0}}(maxprogresswidth - percentagechars) + {{Text|"]"|#FFB100}} + {{Text|STR$|#F0F0F0}}(percentage) + {{Text|"%"|#FFB100}};
                {{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|PRINT|#F0F0F0}} {{Text|CHR$|#F0F0F0}}({{Text|27|#F580B1}}) + {{Text|"[A"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|PRINT|#F0F0F0}} {{Text|CHR$|#F0F0F0}}({{Text|13|#F580B1}});
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|LOCATE|#F0F0F0}} , {{Text|1|#F580B1}}
                {{Text|PRINT|#F0F0F0}} {{Text|STRING$|#F0F0F0}}(percentagechars, {{Text|219|#F580B1}}) + {{Text|STRING$|#F0F0F0}}(maxprogresswidth - percentagechars, {{Text|176|#F580B1}}) + {{Text|STR$|#F0F0F0}}(percentage) + {{Text|"%"|#FFB100}};
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    a3$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(a3$))
    wholeline = a3$
    layoutoriginal$ = a3$
    layoutcomment$ = {{Text|""|#FFB100}} {{Text|'clear any previous layout comment|#31C4C4}}
    lhscontrollevel = controllevel
    linefragment = {{Text|"[INFORMATION UNAVAILABLE]"|#FFB100}}
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(a3$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} finishednonexec
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"########"|#FFB100}} + a3$ + {{Text|"########"|#FFB100}}
    layoutdone = {{Text|1|#F580B1}} {{Text|'validates layout of any following goto finishednonexec/finishedline|#31C4C4}}
    {{Text|'We've already figured out in the prepass which lines are invalidated by the precompiler|#31C4C4}}
    {{Text|'No need to go over those lines again.|#31C4C4}}
    {{Text|'IF InValidLine(linenumber) THEN goto skipide4 'layoutdone = 0: GOTO finishednonexec|#31C4C4}}
    a3u$ = {{Text|UCASE$|#F0F0F0}}(a3$)
    {{Text|'QB64 Metacommands|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(a3$) = {{Text|36|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'$|#31C4C4}}
        {{Text|'precompiler commands should always be executed FIRST.|#31C4C4}}
        {{Text|IF|#F0F0F0}} a3u$ = {{Text|"$END IF"|#FFB100}} {{Text|OR|#F0F0F0}} a3u$ = {{Text|"$ENDIF"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} DefineElse(ExecCounter) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"$END IF without $IF"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            DefineElse(ExecCounter) = {{Text|0|#F580B1}} {{Text|'We no longer have an $IF block at this level|#31C4C4}}
            ExecCounter = ExecCounter - {{Text|1|#F580B1}}
            layout$ = SCase$({{Text|"$End If"|#FFB100}})
            controltype(controllevel) = {{Text|0|#F580B1}}
            controllevel = controllevel - {{Text|1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(a3u$, {{Text|4|#F580B1}}) = {{Text|"$IF "|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|'prevents code from being placed before 'CASE condition' in a SELECT CASE block|#31C4C4}}
            {{Text|IF|#F0F0F0}} SelectCaseCounter > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} SelectCaseHasCaseBlock(SelectCaseCounter) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                a$ = {{Text|"Expected CASE expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            temp$ = {{Text|LTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(a3u$, {{Text|4|#F580B1}})) {{Text|'strip off the $IF and extra spaces|#31C4C4}}
            temp$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(temp$, {{Text|LEN|#F0F0F0}}(temp$) - {{Text|4|#F580B1}})) {{Text|'and strip off the THEN and extra spaces|#31C4C4}}
            temp = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} temp = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} tempOp$ = {{Text|"<="|#FFB100}}: temp = {{Text|INSTR|#F0F0F0}}(temp$, tempOp$)
            {{Text|IF|#F0F0F0}} temp = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} tempOp$ = {{Text|"=<"|#FFB100}}: temp = {{Text|INSTR|#F0F0F0}}(temp$, tempOp$): tempOp$ = {{Text|"<="|#FFB100}}
            {{Text|IF|#F0F0F0}} temp = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} tempOp$ = {{Text|">="|#FFB100}}: temp = {{Text|INSTR|#F0F0F0}}(temp$, tempOp$)
            {{Text|IF|#F0F0F0}} temp = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} tempOp$ = {{Text|"=>"|#FFB100}}: temp = {{Text|INSTR|#F0F0F0}}(temp$, tempOp$): tempOp$ = {{Text|">="|#FFB100}}
            {{Text|IF|#F0F0F0}} temp = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} tempOp$ = {{Text|"<>"|#FFB100}}: temp = {{Text|INSTR|#F0F0F0}}(temp$, tempOp$)
            {{Text|IF|#F0F0F0}} temp = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} tempOp$ = {{Text|"><"|#FFB100}}: temp = {{Text|INSTR|#F0F0F0}}(temp$, tempOp$): tempOp$ = {{Text|"<>"|#FFB100}}
            {{Text|IF|#F0F0F0}} temp = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} tempOp$ = {{Text|"="|#FFB100}}: temp = {{Text|INSTR|#F0F0F0}}(temp$, tempOp$)
            {{Text|IF|#F0F0F0}} temp = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} tempOp$ = {{Text|">"|#FFB100}}: temp = {{Text|INSTR|#F0F0F0}}(temp$, tempOp$)
            {{Text|IF|#F0F0F0}} temp = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} tempOp$ = {{Text|"<"|#FFB100}}: temp = {{Text|INSTR|#F0F0F0}}(temp$, tempOp$)
            ExecCounter = ExecCounter + {{Text|1|#F580B1}}
            ExecLevel(ExecCounter) = {{Text|-1|#F580B1}} {{Text|'default to a skip value|#31C4C4}}
            DefineElse(ExecCounter) = {{Text|1|#F580B1}} {{Text|'1 says we have an $IF statement at this level|#31C4C4}}
            result = EvalPreIF(temp$, a$)
            {{Text|IF|#F0F0F0}} a$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} result <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                ExecLevel(ExecCounter) = ExecLevel(ExecCounter - {{Text|1|#F580B1}}) {{Text|'So we inherit the execlevel from above|#31C4C4}}
                {{Text|IF|#F0F0F0}} ExecLevel(ExecCounter) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} DefineElse(ExecCounter) = DefineElse(ExecCounter) {{Text|OR|#F0F0F0}} {{Text|4|#F580B1}} {{Text|'Else if used and conditon found|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            controllevel = controllevel + {{Text|1|#F580B1}}
            controltype(controllevel) = {{Text|6|#F580B1}}
            {{Text|IF|#F0F0F0}} temp = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} layout$ = SCase$({{Text|"$If "|#FFB100}}) + temp$ + SCase$({{Text|" Then"|#FFB100}}): {{Text|GOTO|#F0F0F0}} finishednonexec {{Text|'no = sign in the $IF statement, so we're going to assume the user is doing something like $IF flag|#31C4C4}}
            l$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(temp$, temp - {{Text|1|#F580B1}})): r$ = {{Text|LTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(temp$, temp + {{Text|LEN|#F0F0F0}}(tempOp$)))
            layout$ = SCase$({{Text|"$If "|#FFB100}}) + l$ + {{Text|" "|#FFB100}} + tempOp$ + {{Text|" "|#FFB100}} + r$ + SCase$({{Text|" Then"|#FFB100}})
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3u$ = {{Text|"$ELSE"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} DefineElse(ExecCounter) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"$ELSE without $IF"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} DefineElse(ExecCounter) {{Text|AND|#F0F0F0}} {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"$IF block already has $ELSE statement in it"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            DefineElse(ExecCounter) = DefineElse(ExecCounter) {{Text|OR|#F0F0F0}} {{Text|2|#F580B1}} {{Text|'set the flag to declare an $ELSE already in this block|#31C4C4}}
            {{Text|IF|#F0F0F0}} DefineElse(ExecCounter) {{Text|AND|#F0F0F0}} {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'If we executed code in a previous IF or ELSE IF statement, we can't do it here|#31C4C4}}
                ExecLevel(ExecCounter) = {{Text|-1|#F580B1}} {{Text|'So we inherit the execlevel from above|#31C4C4}}
            {{Text|ELSE|#F0F0F0}}
                ExecLevel(ExecCounter) = ExecLevel(ExecCounter - {{Text|1|#F580B1}}) {{Text|'If we were processing code before, code after this segment is going to be SKIPPED|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            layout$ = SCase$({{Text|"$Else"|#FFB100}})
            lhscontrollevel = lhscontrollevel - {{Text|1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(a3u$, {{Text|5|#F580B1}}) = {{Text|"$ELSE"|#FFB100}} {{Text|THEN|#F0F0F0}}
            temp$ = {{Text|LTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(a3u$, {{Text|6|#F580B1}}))
            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(temp$, {{Text|3|#F580B1}}) = {{Text|"IF "|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} DefineElse(ExecCounter) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"$ELSE IF without $IF"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} DefineElse(ExecCounter) {{Text|AND|#F0F0F0}} {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"$ELSE IF cannot follow $ELSE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(temp$, {{Text|5|#F580B1}}) <> {{Text|" THEN"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"$ELSE IF without THEN"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                temp$ = {{Text|LTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(temp$, {{Text|3|#F580B1}})) {{Text|'strip off the IF and extra spaces|#31C4C4}}
                temp$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(temp$, {{Text|LEN|#F0F0F0}}(temp$) - {{Text|4|#F580B1}})) {{Text|'and strip off the THEN and extra spaces|#31C4C4}}
                {{Text|IF|#F0F0F0}} DefineElse(ExecCounter) {{Text|AND|#F0F0F0}} {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'If we executed code in a previous IF or ELSE IF statement, we can't do it here|#31C4C4}}
                    ExecLevel(ExecCounter) = {{Text|-1|#F580B1}}
                {{Text|ELSE|#F0F0F0}}
                    result = EvalPreIF(temp$, a$)
                    {{Text|IF|#F0F0F0}} a$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} result <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        ExecLevel(ExecCounter) = ExecLevel(ExecCounter - {{Text|1|#F580B1}}) {{Text|'So we inherit the execlevel from above|#31C4C4}}
                        {{Text|IF|#F0F0F0}} ExecLevel(ExecCounter) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} DefineElse(ExecCounter) = DefineElse(ExecCounter) {{Text|OR|#F0F0F0}} {{Text|4|#F580B1}} {{Text|'Else if used and conditon found|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                lhscontrollevel = lhscontrollevel - {{Text|1|#F580B1}}
                temp = {{Text|INSTR|#F0F0F0}}(temp$, {{Text|"="|#FFB100}})
                {{Text|IF|#F0F0F0}} temp = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} layout$ = SCase$({{Text|"$ElseIf "|#FFB100}}) + temp$ + SCase$({{Text|" Then"|#FFB100}}): {{Text|GOTO|#F0F0F0}} finishednonexec {{Text|'no = sign in the $IF statement, so we're going to assume the user is doing something like $IF flag|#31C4C4}}
                l$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(temp$, temp - {{Text|1|#F580B1}})): r$ = {{Text|LTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(temp$, temp + {{Text|1|#F580B1}}))
                layout$ = SCase$({{Text|"$ElseIf "|#FFB100}}) + l$ + {{Text|" = "|#FFB100}} + r$ + SCase$({{Text|" Then"|#FFB100}})
                {{Text|GOTO|#F0F0F0}} finishednonexec
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} ExecLevel(ExecCounter) {{Text|THEN|#F0F0F0}} {{Text|'don't check for any more metacommands except the one's which worth with the precompiler|#31C4C4}}
            layoutdone = {{Text|0|#F580B1}}
            {{Text|GOTO|#F0F0F0}} finishednonexec {{Text|'we don't check for anything inside lines that we've marked for skipping|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(a3u$, {{Text|5|#F580B1}}) = {{Text|"$LET "|#FFB100}} {{Text|THEN|#F0F0F0}}
            temp$ = a3u$
            temp$ = {{Text|LTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(temp$, {{Text|5|#F580B1}})) {{Text|'simply shorten our string to parse|#31C4C4}}
            {{Text|'For starters, let's make certain that we have 3 elements to deal with|#31C4C4}}
            temp = {{Text|INSTR|#F0F0F0}}(temp$, {{Text|"="|#FFB100}}) {{Text|'without an = in there, we can't get a value from the left and right side|#31C4C4}}
            l$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(temp$, temp - {{Text|1|#F580B1}})): r$ = {{Text|LTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(temp$, temp + {{Text|1|#F580B1}}))
            layout$ = SCase$({{Text|"$Let "|#FFB100}}) + l$ + {{Text|" = "|#FFB100}} + r$
            {{Text|'First look to see if we have an existing setting like this and if so, update it|#31C4C4}}
            {{Text|FOR|#F0F0F0}} i = {{Text|7|#F580B1}} {{Text|TO|#F0F0F0}} UserDefineCount {{Text|'UserDefineCount 1-7 are reserved for automatic OS/BIT detection & version|#31C4C4}}
                {{Text|IF|#F0F0F0}} UserDefine({{Text|0|#F580B1}}, i) = l$ {{Text|THEN|#F0F0F0}} UserDefine({{Text|1|#F580B1}}, i) = r$: {{Text|GOTO|#F0F0F0}} finishednonexec
            {{Text|NEXT|#F0F0F0}}
            {{Text|'Otherwise create a new setting and set the initial value for it|#31C4C4}}
            UserDefineCount = UserDefineCount + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} UserDefineCount > {{Text|UBOUND|#F0F0F0}}(UserDefine, {{Text|2|#F580B1}}) {{Text|THEN|#F0F0F0}}
                {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} UserDefine({{Text|1|#F580B1}}, {{Text|UBOUND|#F0F0F0}}(UserDefine, {{Text|2|#F580B1}}) + {{Text|10|#F580B1}}) {{Text|'Add another 10 elements to the array so it'll expand as the user adds to it|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            UserDefine({{Text|0|#F580B1}}, UserDefineCount) = l$
            UserDefine({{Text|1|#F580B1}}, UserDefineCount) = r$
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3u$ = {{Text|"$COLOR:0"|#FFB100}} {{Text|THEN|#F0F0F0}}
            layout$ = SCase$({{Text|"$Color:0"|#FFB100}})
            {{Text|IF|#F0F0F0}} qb64prefix_set {{Text|THEN|#F0F0F0}}
                addmetainclude$ = getfilepath$({{Text|COMMAND$|#F0F0F0}}({{Text|0|#F580B1}})) + {{Text|"internal"|#FFB100}} + pathsep$ + {{Text|"support"|#FFB100}} + pathsep$ + {{Text|"color"|#FFB100}} + pathsep$ + {{Text|"color0_noprefix.bi"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                addmetainclude$ = getfilepath$({{Text|COMMAND$|#F0F0F0}}({{Text|0|#F580B1}})) + {{Text|"internal"|#FFB100}} + pathsep$ + {{Text|"support"|#FFB100}} + pathsep$ + {{Text|"color"|#FFB100}} + pathsep$ + {{Text|"color0.bi"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            layoutdone = {{Text|1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3u$ = {{Text|"$COLOR:32"|#FFB100}} {{Text|THEN|#F0F0F0}}
            layout$ = SCase$({{Text|"$Color:32"|#FFB100}})
            {{Text|IF|#F0F0F0}} qb64prefix_set {{Text|THEN|#F0F0F0}}
                addmetainclude$ = getfilepath$({{Text|COMMAND$|#F0F0F0}}({{Text|0|#F580B1}})) + {{Text|"internal"|#FFB100}} + pathsep$ + {{Text|"support"|#FFB100}} + pathsep$ + {{Text|"color"|#FFB100}} + pathsep$ + {{Text|"color32_noprefix.bi"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                addmetainclude$ = getfilepath$({{Text|COMMAND$|#F0F0F0}}({{Text|0|#F580B1}})) + {{Text|"internal"|#FFB100}} + pathsep$ + {{Text|"support"|#FFB100}} + pathsep$ + {{Text|"color"|#FFB100}} + pathsep$ + {{Text|"color32.bi"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            layoutdone = {{Text|1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3u$ = {{Text|"$NOPREFIX"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|'already set in prepass|#31C4C4}}
            layout$ = SCase$({{Text|"$NoPrefix"|#FFB100}})
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3u$ = {{Text|"$VIRTUALKEYBOARD:ON"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|'Deprecated; does nothing.|#31C4C4}}
            layout$ = SCase$({{Text|"$VirtualKeyboard:On"|#FFB100}})
            addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), {{Text|"Deprecated feature"|#FFB100}}, {{Text|"$VirtualKeyboard"|#FFB100}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3u$ = {{Text|"$VIRTUALKEYBOARD:OFF"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|'Deprecated; does nothing.|#31C4C4}}
            layout$ = SCase$({{Text|"$VirtualKeyboard:Off"|#FFB100}})
            addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), {{Text|"Deprecated feature"|#FFB100}}, {{Text|"$VirtualKeyboard"|#FFB100}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3u$ = {{Text|"$DEBUG"|#FFB100}} {{Text|THEN|#F0F0F0}}
            layout$ = SCase$({{Text|"$Debug"|#FFB100}})
            {{Text|IF|#F0F0F0}} NoIDEMode {{Text|THEN|#F0F0F0}}
                addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), {{Text|"$Debug"|#FFB100}}, {{Text|"$Debug features only work from the IDE"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3u$ = {{Text|"$CHECKING:OFF"|#FFB100}} {{Text|THEN|#F0F0F0}}
            layout$ = SCase$({{Text|"$Checking:Off"|#FFB100}})
            NoChecks = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} vWatchOn <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} NoIDEMode = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} inclevel = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), {{Text|"$Debug"|#FFB100}}, {{Text|"$Debug features won't work in $Checking:Off blocks"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3u$ = {{Text|"$CHECKING:ON"|#FFB100}} {{Text|THEN|#F0F0F0}}
            layout$ = SCase$({{Text|"$Checking:On"|#FFB100}})
            NoChecks = {{Text|0|#F580B1}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3u$ = {{Text|"$CONSOLE"|#FFB100}} {{Text|THEN|#F0F0F0}}
            layout$ = SCase$({{Text|"$Console"|#FFB100}})
          {{Text|_Console|#F0F0F0}} = {{Text|1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3u$ = {{Text|"$CONSOLE:ONLY"|#FFB100}} {{Text|THEN|#F0F0F0}}
            layout$ = SCase$({{Text|"$Console:Only"|#FFB100}})
            DEPENDENCY(DEPENDENCY_CONSOLE_ONLY) = DEPENDENCY(DEPENDENCY_CONSOLE_ONLY) {{Text|OR|#F0F0F0}} {{Text|1|#F580B1}}
          {{Text|_Console|#F0F0F0}} = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} prepass = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"do{"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"sub__dest(func__console());"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"sub__source(func__console());"|#FFB100}}
                {{Text|GOTO|#F0F0F0}} finishedline2
            {{Text|ELSE|#F0F0F0}}
                {{Text|GOTO|#F0F0F0}} finishednonexec
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3u$ = {{Text|"$ASSERTS"|#FFB100}} {{Text|THEN|#F0F0F0}}
            layout$ = SCase$({{Text|"$Asserts"|#FFB100}})
            Asserts = {{Text|1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3u$ = {{Text|"$ASSERTS:CONSOLE"|#FFB100}} {{Text|THEN|#F0F0F0}}
            layout$ = SCase$({{Text|"$Asserts:Console"|#FFB100}})
            Asserts = {{Text|1|#F580B1}}
          {{Text|_Console|#F0F0F0}} = {{Text|1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3u$ = {{Text|"$SCREENHIDE"|#FFB100}} {{Text|THEN|#F0F0F0}}
            layout$ = SCase$({{Text|"$ScreenHide"|#FFB100}})
          {{Text|_ScreenHide|#F0F0F0}} = {{Text|1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3u$ = {{Text|"$SCREENSHOW"|#FFB100}} {{Text|THEN|#F0F0F0}}
            layout$ = SCase$({{Text|"$ScreenShow"|#FFB100}})
          {{Text|_ScreenHide|#F0F0F0}} = {{Text|0|#F580B1}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3u$ = {{Text|"$RESIZE:OFF"|#FFB100}} {{Text|THEN|#F0F0F0}}
            layout$ = SCase$({{Text|"$Resize:Off"|#FFB100}})
          {{Text|_Resize|#F0F0F0}} = {{Text|0|#F580B1}}: Resize_Scale = {{Text|0|#F580B1}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3u$ = {{Text|"$RESIZE:ON"|#FFB100}} {{Text|THEN|#F0F0F0}}
            layout$ = SCase$({{Text|"$Resize:On"|#FFB100}})
          {{Text|_Resize|#F0F0F0}} = {{Text|1|#F580B1}}: Resize_Scale = {{Text|0|#F580B1}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3u$ = {{Text|"$RESIZE:STRETCH"|#FFB100}} {{Text|THEN|#F0F0F0}}
            layout$ = SCase$({{Text|"$Resize:Stretch"|#FFB100}})
          {{Text|_Resize|#F0F0F0}} = {{Text|1|#F580B1}}: Resize_Scale = {{Text|1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3u$ = {{Text|"$RESIZE:SMOOTH"|#FFB100}} {{Text|THEN|#F0F0F0}}
            layout$ = SCase$({{Text|"$Resize:Smooth"|#FFB100}})
          {{Text|_Resize|#F0F0F0}} = {{Text|1|#F580B1}}: Resize_Scale = {{Text|2|#F580B1}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(a3u$, {{Text|12|#F580B1}}) = {{Text|"$VERSIONINFO"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|'Embed version info into the final binary (Windows only)|#31C4C4}}
            FirstDelimiter = {{Text|INSTR|#F0F0F0}}(a3u$, {{Text|":"|#FFB100}})
            SecondDelimiter = {{Text|INSTR|#F0F0F0}}(FirstDelimiter + {{Text|1|#F580B1}}, a3u$, {{Text|"="|#FFB100}})
            {{Text|IF|#F0F0F0}} FirstDelimiter = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} SecondDelimiter = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} SecondDelimiter = FirstDelimiter + {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                a$ = {{Text|"Expected $VERSIONINFO:key=value"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            VersionInfoKey$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(a3u$, FirstDelimiter + {{Text|1|#F580B1}}, SecondDelimiter - FirstDelimiter - {{Text|1|#F580B1}})))
            VersionInfoValue$ = StrReplace$({{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(a3$, SecondDelimiter + {{Text|1|#F580B1}}))), {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}), {{Text|"'"|#FFB100}})
            {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} VersionInfoKey$
                {{Text|CASE|#F0F0F0}} {{Text|"FILEVERSION#"|#FFB100}}
                    {{Text|GOSUB|#F0F0F0}} ValidateVersion
                    viFileVersionNum$ = VersionInfoValue$
                    {{Text|IF|#F0F0F0}} viFileVersion$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} viFileVersion$ = viFileVersionNum$
                    layout$ = SCase$({{Text|"$VersionInfo:FILEVERSION#="|#FFB100}}) + VersionInfoValue$
                {{Text|CASE|#F0F0F0}} {{Text|"PRODUCTVERSION#"|#FFB100}}
                    {{Text|GOSUB|#F0F0F0}} ValidateVersion
                    viProductVersionNum$ = VersionInfoValue$
                    {{Text|IF|#F0F0F0}} viProductVersion$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} viProductVersion$ = viProductVersionNum$
                    layout$ = SCase$({{Text|"$VersionInfo:PRODUCTVERSION#="|#FFB100}}) + VersionInfoValue$
                {{Text|CASE|#F0F0F0}} {{Text|"COMPANYNAME"|#FFB100}}
                    viCompanyName$ = VersionInfoValue$
                    layout$ = SCase$({{Text|"$VersionInfo:"|#FFB100}}) + {{Text|"CompanyName="|#FFB100}} + VersionInfoValue$
                {{Text|CASE|#F0F0F0}} {{Text|"FILEDESCRIPTION"|#FFB100}}
                    viFileDescription$ = VersionInfoValue$
                    layout$ = SCase$({{Text|"$VersionInfo:"|#FFB100}}) + {{Text|"FileDescription="|#FFB100}} + VersionInfoValue$
                {{Text|CASE|#F0F0F0}} {{Text|"FILEVERSION"|#FFB100}}
                    viFileVersion$ = VersionInfoValue$
                    layout$ = SCase$({{Text|"$VersionInfo:"|#FFB100}}) + {{Text|"FileVersion="|#FFB100}} + VersionInfoValue$
                {{Text|CASE|#F0F0F0}} {{Text|"INTERNALNAME"|#FFB100}}
                    viInternalName$ = VersionInfoValue$
                    layout$ = SCase$({{Text|"$VersionInfo:"|#FFB100}}) + {{Text|"InternalName="|#FFB100}} + VersionInfoValue$
                {{Text|CASE|#F0F0F0}} {{Text|"LEGALCOPYRIGHT"|#FFB100}}
                    viLegalCopyright$ = VersionInfoValue$
                    layout$ = SCase$({{Text|"$VersionInfo:"|#FFB100}}) + {{Text|"LegalCopyright="|#FFB100}} + VersionInfoValue$
                {{Text|CASE|#F0F0F0}} {{Text|"LEGALTRADEMARKS"|#FFB100}}
                    viLegalTrademarks$ = VersionInfoValue$
                    layout$ = SCase$({{Text|"$VersionInfo:"|#FFB100}}) + {{Text|"LegalTrademarks="|#FFB100}} + VersionInfoValue$
                {{Text|CASE|#F0F0F0}} {{Text|"ORIGINALFILENAME"|#FFB100}}
                    viOriginalFilename$ = VersionInfoValue$
                    layout$ = SCase$({{Text|"$VersionInfo:"|#FFB100}}) + {{Text|"OriginalFilename="|#FFB100}} + VersionInfoValue$
                {{Text|CASE|#F0F0F0}} {{Text|"PRODUCTNAME"|#FFB100}}
                    viProductName$ = VersionInfoValue$
                    layout$ = SCase$({{Text|"$VersionInfo:"|#FFB100}}) + {{Text|"ProductName="|#FFB100}} + VersionInfoValue$
                {{Text|CASE|#F0F0F0}} {{Text|"PRODUCTVERSION"|#FFB100}}
                    viProductVersion$ = VersionInfoValue$
                    layout$ = SCase$({{Text|"$VersionInfo:"|#FFB100}}) + {{Text|"ProductVersion="|#FFB100}} + VersionInfoValue$
                {{Text|CASE|#F0F0F0}} {{Text|"COMMENTS"|#FFB100}}
                    viComments$ = VersionInfoValue$
                    layout$ = SCase$({{Text|"$VersionInfo:"|#FFB100}}) + {{Text|"Comments="|#FFB100}} + VersionInfoValue$
                {{Text|CASE|#F0F0F0}} {{Text|"WEB"|#FFB100}}
                    viWeb$ = VersionInfoValue$
                    layout$ = SCase$({{Text|"$VersionInfo:"|#FFB100}}) + {{Text|"Web="|#FFB100}} + VersionInfoValue$
                {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}
                    a$ = {{Text|"Invalid key. (Use FILEVERSION#, PRODUCTVERSION#, CompanyName, FileDescription, FileVersion, InternalName, LegalCopyright, LegalTrademarks, OriginalFilename, ProductName, ProductVersion, Comments or Web)"|#FFB100}}
                    {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
            VersionInfoSet = {{Text|-1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
            ValidateVersion:
            {{Text|'Check if only numbers and commas (4 comma-separated values)|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(VersionInfoValue$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected $VERSIONINFO:"|#FFB100}} + VersionInfoKey$ + {{Text|"=#,#,#,# (4 comma-separated numeric values: major, minor, revision and build)"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            viCommas = {{Text|0|#F580B1}}
            {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(VersionInfoValue$)
                {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(VersionInfoValue$, i) = {{Text|44|#F580B1}} {{Text|THEN|#F0F0F0}} viCommas = viCommas + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}({{Text|"0123456789,"|#FFB100}}, {{Text|MID$|#F0F0F0}}(VersionInfoValue$, i, {{Text|1|#F580B1}})) = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (i = {{Text|LEN|#F0F0F0}}(VersionInfoValue$) {{Text|AND|#F0F0F0}} viCommas <> {{Text|3|#F580B1}}) {{Text|OR|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(VersionInfoValue$, {{Text|1|#F580B1}}) = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}}
                    a$ = {{Text|"Expected $VERSIONINFO:"|#FFB100}} + VersionInfoKey$ + {{Text|"=#,#,#,# (4 comma-separated numeric values: major, minor, revision and build)"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            {{Text|RETURN|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(a3u$, {{Text|8|#F580B1}}) = {{Text|"$EXEICON"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|'Basic syntax check. Multi-platform.|#31C4C4}}
            {{Text|IF|#F0F0F0}} ExeIconSet {{Text|THEN|#F0F0F0}} a$ = {{Text|"$EXEICON already defined"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            FirstDelimiter = {{Text|INSTR|#F0F0F0}}(a3u$, {{Text|"'"|#FFB100}})
            {{Text|IF|#F0F0F0}} FirstDelimiter = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                a$ = {{Text|"Expected $EXEICON:'filename'"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|ELSE|#F0F0F0}}
                SecondDelimiter = {{Text|INSTR|#F0F0F0}}(FirstDelimiter + {{Text|1|#F580B1}}, a3u$, {{Text|"'"|#FFB100}})
                {{Text|IF|#F0F0F0}} SecondDelimiter = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected $EXEICON:'filename'"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            ExeIconFile$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(a3$, FirstDelimiter + {{Text|1|#F580B1}}, SecondDelimiter - FirstDelimiter - {{Text|1|#F580B1}})))
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(ExeIconFile$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected $EXEICON:'filename'"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            layout$ = SCase$({{Text|"$ExeIcon:'"|#FFB100}}) + ExeIconFile$ + {{Text|"'"|#FFB100}} + {{Text|MID$|#F0F0F0}}(a3$, SecondDelimiter + {{Text|1|#F580B1}})
            IconPath$ = {{Text|""|#FFB100}}
            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(ExeIconFile$, {{Text|2|#F580B1}}) = {{Text|"./"|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(ExeIconFile$, {{Text|2|#F580B1}}) = {{Text|".\"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|'Relative to source file's folder|#31C4C4}}
                {{Text|IF|#F0F0F0}} NoIDEMode {{Text|THEN|#F0F0F0}}
                    IconPath$ = path.source$
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(IconPath$) > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(IconPath$, {{Text|1|#F580B1}}) <> pathsep$ {{Text|THEN|#F0F0F0}} IconPath$ = IconPath$ + pathsep$
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(ideprogname) {{Text|THEN|#F0F0F0}} IconPath$ = idepath$ + pathsep$
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                ExeIconFile$ = IconPath$ + {{Text|MID$|#F0F0F0}}(ExeIconFile$, {{Text|3|#F580B1}})
            {{Text|ELSEIF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(ExeIconFile$, {{Text|"/"|#FFB100}}) {{Text|OR|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(ExeIconFile$, {{Text|"\"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                {{Text|FOR|#F0F0F0}} i = {{Text|LEN|#F0F0F0}}(ExeIconFile$) {{Text|TO|#F0F0F0}} {{Text|1|#F580B1}} {{Text|STEP|#F0F0F0}} {{Text|-1|#F580B1}}
                    {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(ExeIconFile$, i, {{Text|1|#F580B1}}) = {{Text|"/"|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|MID$|#F0F0F0}}(ExeIconFile$, i, {{Text|1|#F580B1}}) = {{Text|"\"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        IconPath$ = {{Text|LEFT$|#F0F0F0}}(ExeIconFile$, i)
                        ExeIconFileOnly$ = {{Text|MID$|#F0F0F0}}(ExeIconFile$, i + {{Text|1|#F580B1}})
                        {{Text|IF|#F0F0F0}} {{Text|_DIREXISTS|#F0F0F0}}(IconPath$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"File '"|#FFB100}} + ExeIconFileOnly$ + {{Text|"' not found"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        currentdir$ = {{Text|_CWD$|#F0F0F0}}
                        {{Text|CHDIR|#F0F0F0}} IconPath$
                        IconPath$ = {{Text|_CWD$|#F0F0F0}}
                        {{Text|CHDIR|#F0F0F0}} currentdir$
                        ExeIconFile$ = IconPath$ + pathsep$ + ExeIconFileOnly$
                        {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|NEXT|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(ExeIconFile$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"File '"|#FFB100}} + ExeIconFile$ + {{Text|"' not found"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            ExeIconSet = linenumber
            SetDependency DEPENDENCY_ICON
            {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"do{"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"sub__icon(NULL,NULL,0);"|#FFB100}}
            {{Text|GOTO|#F0F0F0}} finishedline2
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(a3u$, {{Text|10|#F580B1}}) = {{Text|"$UNSTABLE:"|#FFB100}} {{Text|THEN|#F0F0F0}}
            layout$ = SCase({{Text|"$Unstable:"|#FFB100}})
            token$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(a3u$, {{Text|11|#F580B1}})))
            {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} token$
                {{Text|CASE|#F0F0F0}} {{Text|"MIDI"|#FFB100}}
                    layout$ = layout$ + SCase$({{Text|"Midi"|#FFB100}})
                {{Text|CASE|#F0F0F0}} {{Text|"HTTP"|#FFB100}}
                    layout$ = layout$ + SCase$({{Text|"Http"|#FFB100}})
            {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} unstableFlags(UNSTABLE_MIDI) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(a3u$, {{Text|15|#F580B1}}) = {{Text|"$MIDISOUNDFONT:"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} MidiSoundFontSet {{Text|THEN|#F0F0F0}}
                    a$ = {{Text|"$MIDISOUNDFONT already defined"|#FFB100}}
                    {{Text|GOTO|#F0F0F0}} errmes
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                layout$ = SCase$({{Text|"$MidiSoundFont:"|#FFB100}})
                MidiSoundFont$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(a3$, {{Text|16|#F580B1}})))
                {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(MidiSoundFont$, {{Text|1|#F580B1}}, {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) {{Text|THEN|#F0F0F0}}
                    {{Text|' We have a quoted filename, verify it is valid|#31C4C4}}
                    {{Text|' We don't touch the filename in the formatting|#31C4C4}}
                    layout$ = layout$ + MidiSoundFont$
                    {{Text|' Strip the leading quote|#31C4C4}}
                    MidiSoundFont$ = {{Text|MID$|#F0F0F0}}(MidiSoundFont$, {{Text|2|#F580B1}})
                    {{Text|' Verify that there is a quote character at the end|#31C4C4}}
                    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(MidiSoundFont$, {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|" character at the end of the file name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|' Verify there are no extra characters after end quote|#31C4C4}}
                    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(MidiSoundFont$, {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})) <> {{Text|LEN|#F0F0F0}}(MidiSoundFont$) {{Text|THEN|#F0F0F0}} a$ = {{Text|"Unexpected characters after the quoted file name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    MidiSoundFont$ = {{Text|MID$|#F0F0F0}}(MidiSoundFont$, {{Text|1|#F580B1}}, {{Text|LEN|#F0F0F0}}(MidiSoundFont$) - {{Text|1|#F580B1}})
                    {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(MidiSoundFont$) {{Text|THEN|#F0F0F0}}
                        a$ = {{Text|"Soundfont file "|#FFB100}} + AddQuotes$(MidiSoundFont$) + {{Text|" could not be found!"|#FFB100}}
                        {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|' Constant values, only one for now|#31C4C4}}
                    {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(MidiSoundFont$)
                        {{Text|CASE|#F0F0F0}} {{Text|"DEFAULT"|#FFB100}}
                            layout$ = layout$ + SCase$({{Text|"Default"|#FFB100}})
                            {{Text|' Clear MidiSoundFont$ to indicate the default should be used|#31C4C4}}
                            MidiSoundFont$ = {{Text|""|#FFB100}}
                        {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}
                            a$ = {{Text|"Unrecognized Soundfont option "|#FFB100}} + AddQuotes$(MidiSoundFont$)
                            {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                MidiSoundFontSet = linenumber
                MidiSoundFontLine$ = layout$
                {{Text|GOTO|#F0F0F0}} finishednonexec
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'QB64 Metacommands|#31C4C4}}
    {{Text|IF|#F0F0F0}} ExecLevel(ExecCounter) {{Text|THEN|#F0F0F0}}
        layoutdone = {{Text|0|#F580B1}}
        {{Text|GOTO|#F0F0F0}} finishednonexec {{Text|'we don't check for anything inside lines that we've marked for skipping|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    linedataoffset = DataOffset
    entireline$ = lineformat(a3$): {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(entireline$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} finishednonexec
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
    u$ = {{Text|UCASE$|#F0F0F0}}(entireline$)
    newif = {{Text|0|#F580B1}}
    {{Text|'Convert "CASE ELSE" to "CASE C-EL" to avoid confusing compiler|#31C4C4}}
    {{Text|'note: CASE does not have to begin on a new line|#31C4C4}}
    s = {{Text|1|#F580B1}}
    i = {{Text|INSTR|#F0F0F0}}(s, u$, {{Text|"CASE"|#FFB100}} + sp + {{Text|"ELSE"|#FFB100}})
    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} i
        skip = {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} i <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(u$, i - {{Text|1|#F580B1}}, {{Text|1|#F580B1}}) <> sp {{Text|THEN|#F0F0F0}} skip = {{Text|1|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} i <> {{Text|LEN|#F0F0F0}}(u$) - {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(u$, i + {{Text|9|#F580B1}}, {{Text|1|#F580B1}}) <> sp {{Text|THEN|#F0F0F0}} skip = {{Text|1|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} skip = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|MID$|#F0F0F0}}(entireline$, i) = {{Text|"CASE"|#FFB100}} + sp + {{Text|"C-EL"|#FFB100}}
            u$ = {{Text|UCASE$|#F0F0F0}}(entireline$)
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        s = i + {{Text|9|#F580B1}}
        i = {{Text|INSTR|#F0F0F0}}(s, u$, {{Text|"CASE"|#FFB100}} + sp + {{Text|"ELSE"|#FFB100}})
    {{Text|LOOP|#F0F0F0}}
    n = numelements(entireline$)
    {{Text|'line number?|#31C4C4}}
    a = {{Text|ASC|#F0F0F0}}(entireline$)
    {{Text|IF|#F0F0F0}} (a >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} a <= {{Text|57|#F580B1}}) {{Text|OR|#F0F0F0}} a = {{Text|46|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'numeric|#31C4C4}}
        label$ = getelement(entireline$, {{Text|1|#F580B1}})
        {{Text|IF|#F0F0F0}} validlabel(label$) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} closedmain <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} subfunc = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Labels cannot be placed between SUB/FUNCTIONs"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            v = HashFind(label$, HASHFLAG_LABEL, ignore, r)
            addlabchk100:
            {{Text|IF|#F0F0F0}} v {{Text|THEN|#F0F0F0}}
                s = Labels(r).Scope
                {{Text|IF|#F0F0F0}} s = subfuncn {{Text|OR|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'same scope?|#31C4C4}}
                    {{Text|IF|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} Labels(r).Scope = subfuncn {{Text|'acquire scope|#31C4C4}}
                    {{Text|IF|#F0F0F0}} Labels(r).State = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Duplicate label ("|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(Labels(r).cn) + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|'aquire state 0 types|#31C4C4}}
                    tlayout$ = {{Text|RTRIM$|#F0F0F0}}(Labels(r).cn)
                    {{Text|GOTO|#F0F0F0}} addlabaq100
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'same scope|#31C4C4}}
                {{Text|IF|#F0F0F0}} v = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} v = HashFindCont(ignore, r): {{Text|GOTO|#F0F0F0}} addlabchk100
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'does not exist|#31C4C4}}
            nLabels = nLabels + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} nLabels > Labels_Ubound {{Text|THEN|#F0F0F0}} Labels_Ubound = Labels_Ubound * {{Text|2|#F580B1}}: {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} Labels({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} Labels_Ubound) {{Text|AS|#F0F0F0}} Label_Type
            Labels(nLabels) = Empty_Label
            HashAdd label$, HASHFLAG_LABEL, nLabels
            r = nLabels
            Labels(r).cn = tlayout$
            Labels(r).Scope = subfuncn
            addlabaq100:
            Labels(r).State = {{Text|1|#F580B1}}
            Labels(r).Data_Offset = linedataoffset
            layout$ = tlayout$
            WriteBufLine MainTxtBuf, {{Text|"LABEL_"|#FFB100}} + label$ + {{Text|":;"|#FFB100}}
            {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(label$, {{Text|"p"|#FFB100}}) {{Text|THEN|#F0F0F0}} {{Text|MID$|#F0F0F0}}(label$, {{Text|INSTR|#F0F0F0}}(label$, {{Text|"p"|#FFB100}}), {{Text|1|#F580B1}}) = {{Text|"."|#FFB100}}
            {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(label$, {{Text|1|#F580B1}}) = {{Text|"d"|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(label$, {{Text|1|#F580B1}}) = {{Text|"s"|#FFB100}} {{Text|THEN|#F0F0F0}} label$ = {{Text|LEFT$|#F0F0F0}}(label$, {{Text|LEN|#F0F0F0}}(label$) - {{Text|1|#F580B1}})
            WriteBufLine MainTxtBuf, {{Text|"last_line="|#FFB100}} + label$ + {{Text|";"|#FFB100}}
            inclinenump$ = {{Text|""|#FFB100}}
            {{Text|IF|#F0F0F0}} inclinenumber(inclevel) {{Text|THEN|#F0F0F0}}
                inclinenump$ = {{Text|","|#FFB100}} + str2$(inclinenumber(inclevel))
                thisincname$ = getfilepath$(incname$(inclevel))
                thisincname$ = {{Text|MID$|#F0F0F0}}(incname$(inclevel), {{Text|LEN|#F0F0F0}}(thisincname$) + {{Text|1|#F580B1}})
                inclinenump$ = inclinenump$ + {{Text|","|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + thisincname$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} vWatchOn {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} temp$ = vWatchErrorCall$ {{Text|ELSE|#F0F0F0}} temp$ = {{Text|""|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"if(qbevent){"|#FFB100}} + temp$ + {{Text|"evnt("|#FFB100}} + str2$(linenumber) + inclinenump$ + {{Text|");r=0;}"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} finishednonexec
            entireline$ = getelements(entireline$, {{Text|2|#F580B1}}, n): u$ = {{Text|UCASE$|#F0F0F0}}(entireline$): n = n - {{Text|1|#F580B1}}
            {{Text|'note: fall through, numeric labels can be followed by alphanumeric label|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'validlabel|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'numeric|#31C4C4}}
    {{Text|'it wasn't a line number|#31C4C4}}
    {{Text|'label?|#31C4C4}}
    {{Text|'note: ignores possibility that this could be a single command SUB/FUNCTION (as in QBASIC?)|#31C4C4}}
    {{Text|IF|#F0F0F0}} n >= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
        x2 = {{Text|INSTR|#F0F0F0}}(entireline$, sp + {{Text|":"|#FFB100}})
        {{Text|IF|#F0F0F0}} x2 {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} x2 = {{Text|LEN|#F0F0F0}}(entireline$) - {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} x3 = x2 + {{Text|1|#F580B1}} {{Text|ELSE|#F0F0F0}} x3 = x2 + {{Text|2|#F580B1}}
            a$ = {{Text|LEFT$|#F0F0F0}}(entireline$, x2 - {{Text|1|#F580B1}})
            CreatingLabel = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} validlabel(a$) {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} validname(a$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} closedmain <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} subfunc = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Labels cannot be placed between SUB/FUNCTIONs"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                v = HashFind(a$, HASHFLAG_LABEL, ignore, r)
                addlabchk:
                {{Text|IF|#F0F0F0}} v {{Text|THEN|#F0F0F0}}
                    s = Labels(r).Scope
                    {{Text|IF|#F0F0F0}} s = subfuncn {{Text|OR|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'same scope?|#31C4C4}}
                        {{Text|IF|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} Labels(r).Scope = subfuncn {{Text|'acquire scope|#31C4C4}}
                        {{Text|IF|#F0F0F0}} Labels(r).State = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Duplicate label ("|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(Labels(r).cn) + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|'aquire state 0 types|#31C4C4}}
                        tlayout$ = {{Text|RTRIM$|#F0F0F0}}(Labels(r).cn)
                        {{Text|GOTO|#F0F0F0}} addlabaq
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'same scope|#31C4C4}}
                    {{Text|IF|#F0F0F0}} v = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} v = HashFindCont(ignore, r): {{Text|GOTO|#F0F0F0}} addlabchk
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'does not exist|#31C4C4}}
                nLabels = nLabels + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} nLabels > Labels_Ubound {{Text|THEN|#F0F0F0}} Labels_Ubound = Labels_Ubound * {{Text|2|#F580B1}}: {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} Labels({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} Labels_Ubound) {{Text|AS|#F0F0F0}} Label_Type
                Labels(nLabels) = Empty_Label
                HashAdd a$, HASHFLAG_LABEL, nLabels
                r = nLabels
                Labels(r).cn = tlayout$
                Labels(r).Scope = subfuncn
                addlabaq:
                Labels(r).State = {{Text|1|#F580B1}}
                Labels(r).Data_Offset = linedataoffset
                Labels(r).SourceLineNumber = linenumber
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + tlayout$ + {{Text|":"|#FFB100}} {{Text|ELSE|#F0F0F0}} layout$ = tlayout$ + {{Text|":"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"LABEL_"|#FFB100}} + a$ + {{Text|":;"|#FFB100}}
                inclinenump$ = {{Text|""|#FFB100}}
                {{Text|IF|#F0F0F0}} inclinenumber(inclevel) {{Text|THEN|#F0F0F0}}
                    inclinenump$ = {{Text|","|#FFB100}} + str2$(inclinenumber(inclevel))
                    thisincname$ = getfilepath$(incname$(inclevel))
                    thisincname$ = {{Text|MID$|#F0F0F0}}(incname$(inclevel), {{Text|LEN|#F0F0F0}}(thisincname$) + {{Text|1|#F580B1}})
                    inclinenump$ = inclinenump$ + {{Text|","|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + thisincname$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} vWatchOn {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} temp$ = vWatchErrorCall$ {{Text|ELSE|#F0F0F0}} temp$ = {{Text|""|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"if(qbevent){"|#FFB100}} + temp$ + {{Text|"evnt("|#FFB100}} + str2$(linenumber) + inclinenump$ + {{Text|");r=0;}"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                entireline$ = {{Text|RIGHT$|#F0F0F0}}(entireline$, {{Text|LEN|#F0F0F0}}(entireline$) - x3): u$ = {{Text|UCASE$|#F0F0F0}}(entireline$)
                n = numelements(entireline$): {{Text|IF|#F0F0F0}} n = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} finishednonexec
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'valid|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'includes sp+":"|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'n>=2|#31C4C4}}
    {{Text|'remove leading ":"|#31C4C4}}
    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|ASC|#F0F0F0}}(u$) = {{Text|58|#F580B1}} {{Text|'":"|#31C4C4}}
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp2 + {{Text|":"|#FFB100}} {{Text|ELSE|#F0F0F0}} layout$ = {{Text|":"|#FFB100}}
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(u$) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} finishednonexec
        entireline$ = getelements(entireline$, {{Text|2|#F580B1}}, n): u$ = {{Text|UCASE$|#F0F0F0}}(entireline$): n = n - {{Text|1|#F580B1}}
    {{Text|LOOP|#F0F0F0}}
    {{Text|'ELSE at the beginning of a line|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(u$) = {{Text|69|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"E"|#31C4C4}}
        e1$ = getelement(u$, {{Text|1|#F580B1}})
        {{Text|IF|#F0F0F0}} e1$ = {{Text|"ELSE"|#FFB100}} {{Text|THEN|#F0F0F0}}
            a$ = {{Text|"ELSE"|#FFB100}}
            {{Text|IF|#F0F0F0}} n > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} continuelinefrom = {{Text|2|#F580B1}}
            {{Text|GOTO|#F0F0F0}} gotcommand
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} e1$ = {{Text|"ELSEIF"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} n < {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ... THEN"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} getelement(u$, n) = {{Text|"THEN"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = entireline$: {{Text|GOTO|#F0F0F0}} gotcommand
            {{Text|FOR|#F0F0F0}} i = {{Text|3|#F580B1}} {{Text|TO|#F0F0F0}} n - {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} getelement(u$, i) = {{Text|"THEN"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    a$ = getelements(entireline$, {{Text|1|#F580B1}}, i)
                    continuelinefrom = i + {{Text|1|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} gotcommand
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            a$ = {{Text|"Expected THEN"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'"E"|#31C4C4}}
    start = {{Text|1|#F580B1}}
    {{Text|GOTO|#F0F0F0}} skipcontinit
    contline:
    n = numelements(entireline$)
    u$ = {{Text|UCASE$|#F0F0F0}}(entireline$)
    skipcontinit:
    {{Text|'jargon:|#31C4C4}}
    {{Text|'lineelseused - counts how many line ELSEs can POSSIBLY follow|#31C4C4}}
    {{Text|'endifs - how many C++ endifs "}" need to be added at the end of the line|#31C4C4}}
    {{Text|'lineelseused - counts the number of indwelling ELSE statements on a line|#31C4C4}}
    {{Text|'impliedendif - stops autoformat from adding "END IF"|#31C4C4}}
    a$ = {{Text|""|#FFB100}}
    {{Text|FOR|#F0F0F0}} i = start {{Text|TO|#F0F0F0}} n
        e$ = getelement(u$, i)
        {{Text|IF|#F0F0F0}} e$ = {{Text|":"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} i = start {{Text|THEN|#F0F0F0}}
                layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp2 + {{Text|":"|#FFB100}} {{Text|ELSE|#F0F0F0}} layout$ = {{Text|":"|#FFB100}}
                {{Text|IF|#F0F0F0}} i <> n {{Text|THEN|#F0F0F0}} continuelinefrom = i + {{Text|1|#F580B1}}
                {{Text|GOTO|#F0F0F0}} finishednonexec
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} i <> n {{Text|THEN|#F0F0F0}} continuelinefrom = i
            {{Text|GOTO|#F0F0F0}} gotcommand
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'begin scanning an 'IF' statement|#31C4C4}}
        {{Text|IF|#F0F0F0}} e$ = {{Text|"IF"|#FFB100}} {{Text|AND|#F0F0F0}} a$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} newif = {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} e$ = {{Text|"THEN"|#FFB100}} {{Text|OR|#F0F0F0}} (e$ = {{Text|"GOTO"|#FFB100}} {{Text|AND|#F0F0F0}} newif = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} newif = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"THEN without IF"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            newif = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} lineelseused > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} lineelseused = lineelseused - {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} e$ = {{Text|"GOTO"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected IF expression GOTO label"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                i = i - {{Text|1|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            a$ = a$ + sp + e$ {{Text|'+"THEN"/"GOTO"|#31C4C4}}
            {{Text|IF|#F0F0F0}} i <> n {{Text|THEN|#F0F0F0}} continuelinefrom = i + {{Text|1|#F580B1}}: endifs = endifs + {{Text|1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} gotcommand
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} e$ = {{Text|"ELSE"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} start = i {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} lineelseused >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|'note: more than one else used (in a row) on this line, so close first if with an 'END IF' first|#31C4C4}}
                    {{Text|'note: parses 'END IF' then (after continuelinefrom) parses 'ELSE'|#31C4C4}}
                    {{Text|'consider the following: (square brackets make reading easier)|#31C4C4}}
                    {{Text|'eg. if a=1 then [if b=2 then c=2 else d=2] else e=3|#31C4C4}}
                    impliedendif = {{Text|1|#F580B1}}: a$ = {{Text|"END"|#FFB100}} + sp + {{Text|"IF"|#FFB100}}
                    endifs = endifs - {{Text|1|#F580B1}}
                    continuelinefrom = i
                    lineelseused = lineelseused - {{Text|1|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} gotcommand
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'follow up previously encountered 'ELSE' by applying 'ELSE'|#31C4C4}}
                a$ = {{Text|"ELSE"|#FFB100}}: continuelinefrom = i + {{Text|1|#F580B1}}
                lineelseused = lineelseused + {{Text|1|#F580B1}}
                {{Text|GOTO|#F0F0F0}} gotcommand
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'start=i|#31C4C4}}
            {{Text|'apply everything up to (but not including) 'ELSE'|#31C4C4}}
            continuelinefrom = i
            {{Text|GOTO|#F0F0F0}} gotcommand
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'"ELSE"|#31C4C4}}
        e$ = getelement(entireline$, i): {{Text|IF|#F0F0F0}} a$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = e$ {{Text|ELSE|#F0F0F0}} a$ = a$ + sp + e$
    {{Text|NEXT|#F0F0F0}}
    {{Text|'we're reached the end of the line|#31C4C4}}
    {{Text|IF|#F0F0F0}} endifs > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        endifs = endifs - {{Text|1|#F580B1}}
        impliedendif = {{Text|1|#F580B1}}: entireline$ = entireline$ + sp + {{Text|":"|#FFB100}} + sp + {{Text|"END"|#FFB100}} + sp + {{Text|"IF"|#FFB100}}: n = n + {{Text|3|#F580B1}}
        i = i + {{Text|1|#F580B1}} {{Text|'skip the ":" (i is now equal to n+2)|#31C4C4}}
        continuelinefrom = i
        {{Text|GOTO|#F0F0F0}} gotcommand
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    gotcommand:
    dynscope = {{Text|0|#F580B1}}
    ca$ = a$
    a$ = eleucase$(ca$) {{Text|'***REVISE THIS SECTION LATER***|#31C4C4}}
    layoutdone = {{Text|0|#F580B1}}
    linefragment = a$
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, a$
    n = numelements(a$)
    {{Text|IF|#F0F0F0}} n = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} finishednonexec
    {{Text|'convert non-UDT dimensioned periods to _046_|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(ca$, sp + {{Text|"."|#FFB100}} + sp) {{Text|THEN|#F0F0F0}}
        a3$ = getelement(ca$, {{Text|1|#F580B1}})
        except = {{Text|0|#F580B1}}
        aa$ = a3$ + sp {{Text|'rebuilt a$ (always has a trailing spacer)|#31C4C4}}
        lastfuse = {{Text|-1|#F580B1}}
        {{Text|FOR|#F0F0F0}} x = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n
            a2$ = getelement(ca$, x)
            {{Text|IF|#F0F0F0}} except = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} except = {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} udtperiod {{Text|'skip element name|#31C4C4}}
            {{Text|IF|#F0F0F0}} a2$ = {{Text|"."|#FFB100}} {{Text|AND|#F0F0F0}} x <> n {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} except = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} except = {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} udtperiod {{Text|'sub-element of UDT|#31C4C4}}
                {{Text|IF|#F0F0F0}} a3$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|'assume it was something like typevar(???).x and treat as a UDT|#31C4C4}}
                    except = {{Text|1|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} udtperiod
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'find an ID of that type|#31C4C4}}
                try = findid({{Text|UCASE$|#F0F0F0}}(a3$))
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                    {{Text|IF|#F0F0F0}} ((id.t {{Text|AND|#F0F0F0}} ISUDT) <> {{Text|0|#F580B1}}) {{Text|OR|#F0F0F0}} ((id.arraytype {{Text|AND|#F0F0F0}} ISUDT) <> {{Text|0|#F580B1}}) {{Text|THEN|#F0F0F0}}
                        except = {{Text|1|#F580B1}}
                        {{Text|GOTO|#F0F0F0}} udtperiod
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid({{Text|UCASE$|#F0F0F0}}(a3$)) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|LOOP|#F0F0F0}}
                {{Text|'not a udt; fuse lhs & rhs with _046_|#31C4C4}}
                {{Text|IF|#F0F0F0}} isalpha({{Text|ASC|#F0F0F0}}(a3$)) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} lastfuse <> x - {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid '.'"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                aa$ = {{Text|LEFT$|#F0F0F0}}(aa$, {{Text|LEN|#F0F0F0}}(aa$) - {{Text|1|#F580B1}}) + fix046$
                lastfuse = x
                {{Text|GOTO|#F0F0F0}} periodfused
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'"."|#31C4C4}}
            except = {{Text|0|#F580B1}}
            udtperiod:
            aa$ = aa$ + a2$ + sp
            periodfused:
            a3$ = a2$
        {{Text|NEXT|#F0F0F0}}
        a$ = {{Text|LEFT$|#F0F0F0}}(aa$, {{Text|LEN|#F0F0F0}}(aa$) - {{Text|1|#F580B1}})
        ca$ = a$
        a$ = eleucase$(ca$)
        n = numelements(a$)
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    arrayprocessinghappened = {{Text|0|#F580B1}}
    firstelement$ = getelement(a$, {{Text|1|#F580B1}})
    secondelement$ = getelement(a$, {{Text|2|#F580B1}})
    thirdelement$ = getelement(a$, {{Text|3|#F580B1}})
    {{Text|'non-executable section|#31C4C4}}
    {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"'"|#FFB100}} {{Text|THEN|#F0F0F0}} layoutdone = {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} finishednonexec {{Text|'nop|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n <= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"DATA"|#FFB100}} {{Text|THEN|#F0F0F0}}
            l$ = SCase$({{Text|"Data"|#FFB100}})
            {{Text|IF|#F0F0F0}} n = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                e$ = {{Text|SPACE$|#F0F0F0}}(({{Text|LEN|#F0F0F0}}(secondelement$) - {{Text|1|#F580B1}}) \ {{Text|2|#F580B1}})
                {{Text|FOR|#F0F0F0}} x = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$)
                    v1 = {{Text|ASC|#F0F0F0}}(secondelement$, x * {{Text|2|#F580B1}})
                    v2 = {{Text|ASC|#F0F0F0}}(secondelement$, x * {{Text|2|#F580B1}} + {{Text|1|#F580B1}})
                    {{Text|IF|#F0F0F0}} v1 < {{Text|65|#F580B1}} {{Text|THEN|#F0F0F0}} v1 = v1 - {{Text|48|#F580B1}} {{Text|ELSE|#F0F0F0}} v1 = v1 - {{Text|55|#F580B1}}
                    {{Text|IF|#F0F0F0}} v2 < {{Text|65|#F580B1}} {{Text|THEN|#F0F0F0}} v2 = v2 - {{Text|48|#F580B1}} {{Text|ELSE|#F0F0F0}} v2 = v2 - {{Text|55|#F580B1}}
                    {{Text|ASC|#F0F0F0}}(e$, x) = v1 + v2 * {{Text|16|#F580B1}}
                {{Text|NEXT|#F0F0F0}}
                l$ = l$ + sp + e$
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'n=2|#31C4C4}}
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'declare library|#31C4C4}}
    {{Text|IF|#F0F0F0}} declaringlibrary {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"END"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} n <> {{Text|2|#F580B1}} {{Text|OR|#F0F0F0}} secondelement$ <> {{Text|"DECLARE"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected END DECLARE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            declaringlibrary = {{Text|0|#F580B1}}
            l$ = SCase$({{Text|"End"|#FFB100}} + sp + {{Text|"Declare"|#FFB100}})
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'end declare|#31C4C4}}
        declaringlibrary = {{Text|2|#F580B1}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"SUB"|#FFB100}} {{Text|OR|#F0F0F0}} firstelement$ = {{Text|"FUNCTION"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} declaresubfunc2
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        a$ = {{Text|"Expected SUB/FUNCTION definition or END DECLARE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'declaringlibrary|#31C4C4}}
    {{Text|'check TYPE declarations (created on prepass)|#31C4C4}}
    {{Text|IF|#F0F0F0}} definingtype {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"END"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} n <> {{Text|2|#F580B1}} {{Text|OR|#F0F0F0}} secondelement$ <> {{Text|"TYPE"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected END TYPE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            definingtype = {{Text|0|#F580B1}}
            l$ = SCase$({{Text|"End"|#FFB100}} + sp + {{Text|"Type"|#FFB100}})
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'IF n < 3 THEN definingtypeerror = linenumber: a$ = "Expected element-name AS type or AS type element-list": GOTO errmes|#31C4C4}}
        {{Text|IF|#F0F0F0}} n < {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected element-name AS type or AS type element-list"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
        definingtype = {{Text|2|#F580B1}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"AS"|#FFB100}} {{Text|THEN|#F0F0F0}}
            l$ = SCase$({{Text|"As"|#FFB100}})
            t$ = {{Text|""|#FFB100}}
            wordsInTypeName = {{Text|0|#F580B1}}
            {{Text|DO|#F0F0F0}}
                nextElement$ = getelement$(a$, {{Text|2|#F580B1}} + wordsInTypeName)
                {{Text|IF|#F0F0F0}} nextElement$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|'element-list|#31C4C4}}
                    wordsInTypeName = wordsInTypeName - {{Text|2|#F580B1}}
                    {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                wordsInTypeName = wordsInTypeName + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} wordsInTypeName = n - {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|'single element in line|#31C4C4}}
                    wordsInTypeName = wordsInTypeName - {{Text|1|#F580B1}}
                    {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|LOOP|#F0F0F0}}
            t$ = getelements$(a$, {{Text|2|#F580B1}}, {{Text|2|#F580B1}} + wordsInTypeName)
            typ = typname2typ(t$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} typ = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Undefined type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(t$)) = {{Text|"MEM"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(udtxcname(typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}})) = {{Text|"_MEM"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    t$ = {{Text|MID$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(udtxcname(typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}})), {{Text|2|#F580B1}})
                {{Text|ELSE|#F0F0F0}}
                    t$ = {{Text|RTRIM$|#F0F0F0}}(udtxcname(typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}))
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                l$ = l$ + sp + t$
            {{Text|ELSE|#F0F0F0}}
                l$ = l$ + sp + SCase2$(t$)
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'Now add each variable:|#31C4C4}}
            {{Text|FOR|#F0F0F0}} i = {{Text|3|#F580B1}} + wordsInTypeName {{Text|TO|#F0F0F0}} n
                thisElement$ = getelement$(ca$, i)
                {{Text|IF|#F0F0F0}} thisElement$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}}
                    l$ = l$ + thisElement$
                {{Text|ELSE|#F0F0F0}}
                    l$ = l$ + sp + thisElement$
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
        {{Text|ELSE|#F0F0F0}}
            l$ = getelement(ca$, {{Text|1|#F580B1}}) + sp + SCase$({{Text|"As"|#FFB100}})
            t$ = getelements$(a$, {{Text|3|#F580B1}}, n)
            typ = typname2typ(t$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} typ = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Undefined type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(t$)) = {{Text|"MEM"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(udtxcname(typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}})) = {{Text|"_MEM"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    t$ = {{Text|MID$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(udtxcname(typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}})), {{Text|2|#F580B1}})
                {{Text|ELSE|#F0F0F0}}
                    t$ = {{Text|RTRIM$|#F0F0F0}}(udtxcname(typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}))
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                l$ = l$ + sp + t$
            {{Text|ELSE|#F0F0F0}}
                l$ = l$ + sp + SCase2$(t$)
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|GOTO|#F0F0F0}} finishednonexec
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'defining type|#31C4C4}}
    {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"TYPE"|#FFB100}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} n <> {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected TYPE type-name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
        l$ = SCase$({{Text|"Type"|#FFB100}}) + sp + getelement(ca$, {{Text|2|#F580B1}})
        layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
        definingtype = {{Text|1|#F580B1}}
        definingtypeerror = linenumber
        {{Text|GOTO|#F0F0F0}} finishednonexec
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'skip DECLARE SUB/FUNCTION|#31C4C4}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"DECLARE"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"LIBRARY"|#FFB100}} {{Text|OR|#F0F0F0}} secondelement$ = {{Text|"DYNAMIC"|#FFB100}} {{Text|OR|#F0F0F0}} secondelement$ = {{Text|"CUSTOMTYPE"|#FFB100}} {{Text|OR|#F0F0F0}} secondelement$ = {{Text|"STATIC"|#FFB100}} {{Text|THEN|#F0F0F0}}
                declaringlibrary = {{Text|1|#F580B1}}
                dynamiclibrary = {{Text|0|#F580B1}}
                customtypelibrary = {{Text|0|#F580B1}}
                indirectlibrary = {{Text|0|#F580B1}}
                staticlinkedlibrary = {{Text|0|#F580B1}}
                x = {{Text|3|#F580B1}}
                l$ = SCase$({{Text|"Declare"|#FFB100}} + sp + {{Text|"Library"|#FFB100}})
                {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"DYNAMIC"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    e$ = getelement$(a$, {{Text|3|#F580B1}}): {{Text|IF|#F0F0F0}} e$ <> {{Text|"LIBRARY"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected DYNAMIC LIBRARY "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"..."|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}): {{Text|GOTO|#F0F0F0}} errmes
                    dynamiclibrary = {{Text|1|#F580B1}}
                    x = {{Text|4|#F580B1}}
                    l$ = SCase$({{Text|"Declare"|#FFB100}} + sp + {{Text|"Dynamic"|#FFB100}} + sp + {{Text|"Library"|#FFB100}})
                    {{Text|IF|#F0F0F0}} n = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected DECLARE DYNAMIC LIBRARY "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"..."|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}): {{Text|GOTO|#F0F0F0}} errmes
                    indirectlibrary = {{Text|1|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"CUSTOMTYPE"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    e$ = getelement$(a$, {{Text|3|#F580B1}}): {{Text|IF|#F0F0F0}} e$ <> {{Text|"LIBRARY"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected CUSTOMTYPE LIBRARY"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    customtypelibrary = {{Text|1|#F580B1}}
                    x = {{Text|4|#F580B1}}
                    l$ = SCase$({{Text|"Declare"|#FFB100}} + sp + {{Text|"CustomType"|#FFB100}} + sp + {{Text|"Library"|#FFB100}})
                    indirectlibrary = {{Text|1|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"STATIC"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    e$ = getelement$(a$, {{Text|3|#F580B1}}): {{Text|IF|#F0F0F0}} e$ <> {{Text|"LIBRARY"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected STATIC LIBRARY"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    x = {{Text|4|#F580B1}}
                    l$ = SCase$({{Text|"Declare"|#FFB100}} + sp + {{Text|"Static"|#FFB100}} + sp + {{Text|"Library"|#FFB100}})
                    staticlinkedlibrary = {{Text|1|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                sfdeclare = {{Text|0|#F580B1}}: sfheader = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} n >= x {{Text|THEN|#F0F0F0}}
                    sfdeclare = {{Text|1|#F580B1}}
                    addlibrary:
                    libname$ = {{Text|""|#FFB100}}
                    headername$ = {{Text|""|#FFB100}}
                    {{Text|'assume library name in double quotes follows|#31C4C4}}
                    {{Text|'assume library is in main qb64pe folder|#31C4C4}}
                    x$ = getelement$(ca$, x)
                    {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(x$) <> {{Text|34|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected LIBRARY "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"..."|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}): {{Text|GOTO|#F0F0F0}} errmes
                    x$ = {{Text|RIGHT$|#F0F0F0}}(x$, {{Text|LEN|#F0F0F0}}(x$) - {{Text|1|#F580B1}})
                    z = {{Text|INSTR|#F0F0F0}}(x$, {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}))
                    {{Text|IF|#F0F0F0}} z = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected LIBRARY "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"..."|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}): {{Text|GOTO|#F0F0F0}} errmes
                    x$ = {{Text|LEFT$|#F0F0F0}}(x$, z - {{Text|1|#F580B1}})
                    {{Text|IF|#F0F0F0}} dynamiclibrary <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LEN|#F0F0F0}}(x$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected DECLARE DYNAMIC LIBRARY "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"..."|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}): {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} customtypelibrary <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LEN|#F0F0F0}}(x$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected DECLARE CUSTOMTYPE LIBRARY "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"..."|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}): {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|'convert '\\' to '\'|#31C4C4}}
                    {{Text|WHILE|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(x$, {{Text|"\\"|#FFB100}})
                        z = {{Text|INSTR|#F0F0F0}}(x$, {{Text|"\\"|#FFB100}})
                        x$ = {{Text|LEFT$|#F0F0F0}}(x$, z - {{Text|1|#F580B1}}) + {{Text|RIGHT$|#F0F0F0}}(x$, {{Text|LEN|#F0F0F0}}(x$) - z)
                    {{Text|WEND|#F0F0F0}}
                    autoformat_x$ = x$ {{Text|'used for autolayout purposes|#31C4C4}}
                    {{Text|'Remove version number from library name|#31C4C4}}
                    {{Text|'Eg. libname:1.0 becomes libname <-> 1.0 which later becomes libname.so.1.0|#31C4C4}}
                    v$ = {{Text|""|#FFB100}}
                    striplibver:
                    {{Text|FOR|#F0F0F0}} z = {{Text|LEN|#F0F0F0}}(x$) {{Text|TO|#F0F0F0}} {{Text|1|#F580B1}} {{Text|STEP|#F0F0F0}} {{Text|-1|#F580B1}}
                        a = {{Text|ASC|#F0F0F0}}(x$, z)
                        {{Text|IF|#F0F0F0}} a = ASC_BACKSLASH {{Text|OR|#F0F0F0}} a = ASC_FORWARDSLASH {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} a = ASC_FULLSTOP {{Text|OR|#F0F0F0}} a = ASC_COLON {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} isuinteger({{Text|RIGHT$|#F0F0F0}}(x$, {{Text|LEN|#F0F0F0}}(x$) - z)) {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(v$) {{Text|THEN|#F0F0F0}} v$ = {{Text|RIGHT$|#F0F0F0}}(x$, {{Text|LEN|#F0F0F0}}(x$) - z) + {{Text|"."|#FFB100}} + v$ {{Text|ELSE|#F0F0F0}} v$ = {{Text|RIGHT$|#F0F0F0}}(x$, {{Text|LEN|#F0F0F0}}(x$) - z)
                                x$ = {{Text|LEFT$|#F0F0F0}}(x$, z - {{Text|1|#F580B1}})
                                {{Text|IF|#F0F0F0}} a = ASC_COLON {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                                {{Text|GOTO|#F0F0F0}} striplibver
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|NEXT|#F0F0F0}}
                    libver$ = v$
                    {{Text|IF|#F0F0F0}} os$ = {{Text|"WIN"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        {{Text|'convert forward-slashes to back-slashes|#31C4C4}}
                        {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(x$, {{Text|"/"|#FFB100}})
                            z = {{Text|INSTR|#F0F0F0}}(x$, {{Text|"/"|#FFB100}})
                            x$ = {{Text|LEFT$|#F0F0F0}}(x$, z - {{Text|1|#F580B1}}) + {{Text|"\"|#FFB100}} + {{Text|RIGHT$|#F0F0F0}}(x$, {{Text|LEN|#F0F0F0}}(x$) - z)
                        {{Text|LOOP|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        {{Text|'convert any back-slashes to forward-slashes|#31C4C4}}
                        {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(x$, {{Text|"\"|#FFB100}})
                            z = {{Text|INSTR|#F0F0F0}}(x$, {{Text|"\"|#FFB100}})
                            x$ = {{Text|LEFT$|#F0F0F0}}(x$, z - {{Text|1|#F580B1}}) + {{Text|"/"|#FFB100}} + {{Text|RIGHT$|#F0F0F0}}(x$, {{Text|LEN|#F0F0F0}}(x$) - z)
                        {{Text|LOOP|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'Separate path from name|#31C4C4}}
                    libpath$ = {{Text|""|#FFB100}}
                    {{Text|FOR|#F0F0F0}} z = {{Text|LEN|#F0F0F0}}(x$) {{Text|TO|#F0F0F0}} {{Text|1|#F580B1}} {{Text|STEP|#F0F0F0}} {{Text|-1|#F580B1}}
                        a = {{Text|ASC|#F0F0F0}}(x$, z)
                        {{Text|IF|#F0F0F0}} a = {{Text|47|#F580B1}} {{Text|OR|#F0F0F0}} a = {{Text|92|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'\ or /|#31C4C4}}
                            libpath$ = {{Text|LEFT$|#F0F0F0}}(x$, z)
                            x$ = {{Text|RIGHT$|#F0F0F0}}(x$, {{Text|LEN|#F0F0F0}}(x$) - z)
                            {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|NEXT|#F0F0F0}}
                    {{Text|'Accept ./ and .\ as a reference to the source file|#31C4C4}}
                    {{Text|'folder, replacing it with the actual full path, if available|#31C4C4}}
                    {{Text|IF|#F0F0F0}} libpath$ = {{Text|"./"|#FFB100}} {{Text|OR|#F0F0F0}} libpath$ = {{Text|".\"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        libpath$ = {{Text|""|#FFB100}}
                        {{Text|IF|#F0F0F0}} NoIDEMode {{Text|THEN|#F0F0F0}}
                            libpath$ = path.source$
                            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libpath$) > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(libpath$, {{Text|1|#F580B1}}) <> pathsep$ {{Text|THEN|#F0F0F0}} libpath$ = libpath$ + pathsep$
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(ideprogname) {{Text|THEN|#F0F0F0}} libpath$ = idepath$ + pathsep$
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'Create a path which can be used for inline code (uses \\ instead of \)|#31C4C4}}
                    libpath_inline$ = {{Text|""|#FFB100}}
                    {{Text|FOR|#F0F0F0}} z = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libpath$)
                        a = {{Text|ASC|#F0F0F0}}(libpath$, z)
                        libpath_inline$ = libpath_inline$ + {{Text|CHR$|#F0F0F0}}(a)
                        {{Text|IF|#F0F0F0}} a = {{Text|92|#F580B1}} {{Text|THEN|#F0F0F0}} libpath_inline$ = libpath_inline$ + {{Text|"\"|#FFB100}}
                    {{Text|NEXT|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(x$) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} dynamiclibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|'Static library|#31C4C4}}
                            {{Text|IF|#F0F0F0}} os$ = {{Text|"WIN"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                {{Text|'check for .lib|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(libpath$ + x$ + {{Text|".lib"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = libpath$ + x$ + {{Text|".lib"|#FFB100}}
                                        inlinelibname$ = libpath_inline$ + x$ + {{Text|".lib"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .a|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(libpath$ + x$ + {{Text|".a"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = libpath$ + x$ + {{Text|".a"|#FFB100}}
                                        inlinelibname$ = libpath_inline$ + x$ + {{Text|".a"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .o|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(libpath$ + x$ + {{Text|".o"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = libpath$ + x$ + {{Text|".o"|#FFB100}}
                                        inlinelibname$ = libpath_inline$ + x$ + {{Text|".o"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .lib|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(x$ + {{Text|".lib"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = x$ + {{Text|".lib"|#FFB100}}
                                        inlinelibname$ = x$ + {{Text|".lib"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .a|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(x$ + {{Text|".a"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = x$ + {{Text|".a"|#FFB100}}
                                        inlinelibname$ = x$ + {{Text|".a"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .o|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(x$ + {{Text|".o"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = x$ + {{Text|".o"|#FFB100}}
                                        inlinelibname$ = x$ + {{Text|".o"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'Windows|#31C4C4}}
                            {{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} staticlinkedlibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} MacOSX {{Text|THEN|#F0F0F0}} {{Text|'dylib support|#31C4C4}}
                                        {{Text|'check for .dylib (direct)|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                                libname$ = libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}
                                                inlinelibname$ = libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}
                                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libpath$) {{Text|THEN|#F0F0F0}} mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath "|#FFB100}} + libpath$ + {{Text|" "|#FFB100}} {{Text|ELSE|#F0F0F0}} mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath ./ "|#FFB100}}
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                                libname$ = libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}
                                                inlinelibname$ = libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}
                                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libpath$) {{Text|THEN|#F0F0F0}} mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath "|#FFB100}} + libpath$ + {{Text|" "|#FFB100}} {{Text|ELSE|#F0F0F0}} mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath ./ "|#FFB100}}
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|'check for .so (direct)|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$) {{Text|THEN|#F0F0F0}}
                                            libname$ = libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                            inlinelibname$ = libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libpath$) {{Text|THEN|#F0F0F0}} mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath "|#FFB100}} + libpath$ + {{Text|" "|#FFB100}} {{Text|ELSE|#F0F0F0}} mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath ./ "|#FFB100}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                            libname$ = libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                            inlinelibname$ = libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libpath$) {{Text|THEN|#F0F0F0}} mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath "|#FFB100}} + libpath$ + {{Text|" "|#FFB100}} {{Text|ELSE|#F0F0F0}} mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath ./ "|#FFB100}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .a (direct)|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".a"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".a"|#FFB100}}
                                        inlinelibname$ = libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".a"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .o (direct)|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".o"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".o"|#FFB100}}
                                        inlinelibname$ = libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".o"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} staticlinkedlibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|'check for .so (usr/lib64)|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib64/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$) {{Text|THEN|#F0F0F0}}
                                            libname$ = {{Text|"/usr/lib64/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                            inlinelibname$ = {{Text|"/usr/lib64/"|#FFB100}} + libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libpath$) {{Text|THEN|#F0F0F0}} mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath /usr/lib64/"|#FFB100}} + libpath$ + {{Text|" "|#FFB100}} {{Text|ELSE|#F0F0F0}} mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath /usr/lib64/ "|#FFB100}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib64/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                            libname$ = {{Text|"/usr/lib64/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                            inlinelibname$ = {{Text|"/usr/lib64/"|#FFB100}} + libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libpath$) {{Text|THEN|#F0F0F0}} mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath /usr/lib64/"|#FFB100}} + libpath$ + {{Text|" "|#FFB100}} {{Text|ELSE|#F0F0F0}} mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath /usr/lib64/ "|#FFB100}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .a (usr/lib64)|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib64/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".a"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = {{Text|"/usr/lib64/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".a"|#FFB100}}
                                        inlinelibname$ = {{Text|"/usr/lib64/"|#FFB100}} + libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".a"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} staticlinkedlibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} MacOSX {{Text|THEN|#F0F0F0}} {{Text|'dylib support|#31C4C4}}
                                        {{Text|'check for .dylib (usr/lib)|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                                libname$ = {{Text|"/usr/lib/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}
                                                inlinelibname$ = {{Text|"/usr/lib/"|#FFB100}} + libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}
                                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libpath$) {{Text|THEN|#F0F0F0}} mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath /usr/lib/"|#FFB100}} + libpath$ + {{Text|" "|#FFB100}} {{Text|ELSE|#F0F0F0}} mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath /usr/lib/ "|#FFB100}}
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                                libname$ = {{Text|"/usr/lib/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}
                                                inlinelibname$ = {{Text|"/usr/lib/"|#FFB100}} + libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}
                                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libpath$) {{Text|THEN|#F0F0F0}} mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath /usr/lib/"|#FFB100}} + libpath$ + {{Text|" "|#FFB100}} {{Text|ELSE|#F0F0F0}} mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath /usr/lib/ "|#FFB100}}
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|'check for .so (usr/lib)|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$) {{Text|THEN|#F0F0F0}}
                                            libname$ = {{Text|"/usr/lib/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                            inlinelibname$ = {{Text|"/usr/lib/"|#FFB100}} + libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libpath$) {{Text|THEN|#F0F0F0}} mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath /usr/lib/"|#FFB100}} + libpath$ + {{Text|" "|#FFB100}} {{Text|ELSE|#F0F0F0}} mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath /usr/lib/ "|#FFB100}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                            libname$ = {{Text|"/usr/lib/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                            inlinelibname$ = {{Text|"/usr/lib/"|#FFB100}} + libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libpath$) {{Text|THEN|#F0F0F0}} mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath /usr/lib/"|#FFB100}} + libpath$ + {{Text|" "|#FFB100}} {{Text|ELSE|#F0F0F0}} mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath /usr/lib/ "|#FFB100}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .a (usr/lib)|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".a"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = {{Text|"/usr/lib/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".a"|#FFB100}}
                                        inlinelibname$ = {{Text|"/usr/lib/"|#FFB100}} + libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".a"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'--------------------------(without path)------------------------------|#31C4C4}}
                                {{Text|IF|#F0F0F0}} staticlinkedlibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} MacOSX {{Text|THEN|#F0F0F0}} {{Text|'dylib support|#31C4C4}}
                                        {{Text|'check for .dylib (direct)|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                                libname$ = {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}
                                                inlinelibname$ = {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}
                                                mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath ./ "|#FFB100}}
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                                libname$ = {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}
                                                inlinelibname$ = {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}
                                                mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath ./ "|#FFB100}}
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|'check for .so (direct)|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$) {{Text|THEN|#F0F0F0}}
                                            libname$ = {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                            inlinelibname$ = {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                            mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath ./ "|#FFB100}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                            libname$ = {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                            inlinelibname$ = {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                            mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath ./ "|#FFB100}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .a (direct)|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"lib"|#FFB100}} + x$ + {{Text|".a"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = {{Text|"lib"|#FFB100}} + x$ + {{Text|".a"|#FFB100}}
                                        inlinelibname$ = {{Text|"lib"|#FFB100}} + x$ + {{Text|".a"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .o (direct)|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"lib"|#FFB100}} + x$ + {{Text|".o"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = {{Text|"lib"|#FFB100}} + x$ + {{Text|".o"|#FFB100}}
                                        inlinelibname$ = {{Text|"lib"|#FFB100}} + x$ + {{Text|".o"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} staticlinkedlibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|'check for .so (usr/lib64)|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib64/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$) {{Text|THEN|#F0F0F0}}
                                            libname$ = {{Text|"/usr/lib64/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                            inlinelibname$ = {{Text|"/usr/lib64/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                            mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath /usr/lib64/ "|#FFB100}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib64/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                            libname$ = {{Text|"/usr/lib64/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                            inlinelibname$ = {{Text|"/usr/lib64/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                            mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath /usr/lib64/ "|#FFB100}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .a (usr/lib64)|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib64/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".a"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = {{Text|"/usr/lib64/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".a"|#FFB100}}
                                        inlinelibname$ = {{Text|"/usr/lib64/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".a"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} staticlinkedlibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} MacOSX {{Text|THEN|#F0F0F0}} {{Text|'dylib support|#31C4C4}}
                                        {{Text|'check for .dylib (usr/lib)|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                                libname$ = {{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}
                                                inlinelibname$ = {{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                                libname$ = {{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}
                                                inlinelibname$ = {{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}
                                                mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath /usr/lib/ "|#FFB100}}
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|'check for .so (usr/lib)|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$) {{Text|THEN|#F0F0F0}}
                                            libname$ = {{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                            inlinelibname$ = {{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                            libname$ = {{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                            inlinelibname$ = {{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                            mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath /usr/lib/ "|#FFB100}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .a (usr/lib)|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".a"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = {{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".a"|#FFB100}}
                                        inlinelibname$ = {{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".a"|#FFB100}}
                                        mylibopt$ = mylibopt$ + {{Text|" -Wl,-rpath /usr/lib/ "|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'Linux|#31C4C4}}
                            {{Text|'check for header|#31C4C4}}
                            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(headername$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} os$ = {{Text|"WIN"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(libpath$ + x$ + {{Text|".h"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        headername$ = libpath_inline$ + x$ + {{Text|".h"|#FFB100}}
                                        {{Text|IF|#F0F0F0}} customtypelibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} sfdeclare = {{Text|0|#F580B1}}
                                        sfheader = {{Text|1|#F580B1}}
                                        {{Text|GOTO|#F0F0F0}} GotHeader
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(libpath$ + x$ + {{Text|".hpp"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        headername$ = libpath_inline$ + x$ + {{Text|".hpp"|#FFB100}}
                                        {{Text|IF|#F0F0F0}} customtypelibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} sfdeclare = {{Text|0|#F580B1}}
                                        sfheader = {{Text|1|#F580B1}}
                                        {{Text|GOTO|#F0F0F0}} GotHeader
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|'--------------------------(without path)------------------------------|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(x$ + {{Text|".h"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        headername$ = x$ + {{Text|".h"|#FFB100}}
                                        {{Text|IF|#F0F0F0}} customtypelibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} sfdeclare = {{Text|0|#F580B1}}
                                        sfheader = {{Text|1|#F580B1}}
                                        {{Text|GOTO|#F0F0F0}} GotHeader
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(x$ + {{Text|".hpp"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        headername$ = x$ + {{Text|".hpp"|#FFB100}}
                                        {{Text|IF|#F0F0F0}} customtypelibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} sfdeclare = {{Text|0|#F580B1}}
                                        sfheader = {{Text|1|#F580B1}}
                                        {{Text|GOTO|#F0F0F0}} GotHeader
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'Windows|#31C4C4}}
                                {{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(libpath$ + x$ + {{Text|".h"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        headername$ = libpath_inline$ + x$ + {{Text|".h"|#FFB100}}
                                        {{Text|IF|#F0F0F0}} customtypelibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} sfdeclare = {{Text|0|#F580B1}}
                                        sfheader = {{Text|1|#F580B1}}
                                        {{Text|GOTO|#F0F0F0}} GotHeader
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(libpath$ + x$ + {{Text|".hpp"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        headername$ = libpath_inline$ + x$ + {{Text|".hpp"|#FFB100}}
                                        {{Text|IF|#F0F0F0}} customtypelibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} sfdeclare = {{Text|0|#F580B1}}
                                        sfheader = {{Text|1|#F580B1}}
                                        {{Text|GOTO|#F0F0F0}} GotHeader
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/include/"|#FFB100}} + libpath$ + x$ + {{Text|".h"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        headername$ = {{Text|"/usr/include/"|#FFB100}} + libpath_inline$ + x$ + {{Text|".h"|#FFB100}}
                                        {{Text|IF|#F0F0F0}} customtypelibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} sfdeclare = {{Text|0|#F580B1}}
                                        sfheader = {{Text|1|#F580B1}}
                                        {{Text|GOTO|#F0F0F0}} GotHeader
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/include/"|#FFB100}} + libpath$ + x$ + {{Text|".hpp"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        headername$ = {{Text|"/usr/include/"|#FFB100}} + libpath_inline$ + x$ + {{Text|".hpp"|#FFB100}}
                                        {{Text|IF|#F0F0F0}} customtypelibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} sfdeclare = {{Text|0|#F580B1}}
                                        sfheader = {{Text|1|#F580B1}}
                                        {{Text|GOTO|#F0F0F0}} GotHeader
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|'--------------------------(without path)------------------------------|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(x$ + {{Text|".h"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        headername$ = x$ + {{Text|".h"|#FFB100}}
                                        {{Text|IF|#F0F0F0}} customtypelibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} sfdeclare = {{Text|0|#F580B1}}
                                        sfheader = {{Text|1|#F580B1}}
                                        {{Text|GOTO|#F0F0F0}} GotHeader
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(x$ + {{Text|".hpp"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        headername$ = x$ + {{Text|".hpp"|#FFB100}}
                                        {{Text|IF|#F0F0F0}} customtypelibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} sfdeclare = {{Text|0|#F580B1}}
                                        sfheader = {{Text|1|#F580B1}}
                                        {{Text|GOTO|#F0F0F0}} GotHeader
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/include/"|#FFB100}} + x$ + {{Text|".h"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        headername$ = {{Text|"/usr/include/"|#FFB100}} + x$ + {{Text|".h"|#FFB100}}
                                        {{Text|IF|#F0F0F0}} customtypelibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} sfdeclare = {{Text|0|#F580B1}}
                                        sfheader = {{Text|1|#F580B1}}
                                        {{Text|GOTO|#F0F0F0}} GotHeader
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/include/"|#FFB100}} + x$ + {{Text|".hpp"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        headername$ = {{Text|"/usr/include/"|#FFB100}} + x$ + {{Text|".hpp"|#FFB100}}
                                        {{Text|IF|#F0F0F0}} customtypelibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} sfdeclare = {{Text|0|#F580B1}}
                                        sfheader = {{Text|1|#F580B1}}
                                        {{Text|GOTO|#F0F0F0}} GotHeader
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'Linux|#31C4C4}}
                                GotHeader:
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|'dynamic library|#31C4C4}}
                            {{Text|IF|#F0F0F0}} os$ = {{Text|"WIN"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                {{Text|'check for .dll (direct)|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(libpath$ + x$ + {{Text|".dll"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = libpath$ + x$ + {{Text|".dll"|#FFB100}}
                                        inlinelibname$ = libpath_inline$ + x$ + {{Text|".dll"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .dll (system32)|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|ENVIRON$|#F0F0F0}}({{Text|"SYSTEMROOT"|#FFB100}}) + {{Text|"\System32\"|#FFB100}} + libpath$ + x$ + {{Text|".dll"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = libpath$ + x$ + {{Text|".dll"|#FFB100}}
                                        inlinelibname$ = libpath_inline$ + x$ + {{Text|".dll"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'--------------------------(without path)------------------------------|#31C4C4}}
                                {{Text|'check for .dll (direct)|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(x$ + {{Text|".dll"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = x$ + {{Text|".dll"|#FFB100}}
                                        inlinelibname$ = x$ + {{Text|".dll"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .dll (system32)|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|ENVIRON$|#F0F0F0}}({{Text|"SYSTEMROOT"|#FFB100}}) + {{Text|"\System32\"|#FFB100}} + x$ + {{Text|".dll"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = x$ + {{Text|".dll"|#FFB100}}
                                        inlinelibname$ = x$ + {{Text|".dll"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'Windows|#31C4C4}}
                            {{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                {{Text|'Note: STATIC libraries (.a/.o) cannot be loaded as dynamic objects|#31C4C4}}
                                {{Text|IF|#F0F0F0}} MacOSX {{Text|THEN|#F0F0F0}} {{Text|'dylib support|#31C4C4}}
                                    {{Text|'check for .dylib (direct)|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                            libname$ = libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}
                                            inlinelibname$ = libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}
                                            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(libpath$, {{Text|1|#F580B1}}) <> {{Text|"/"|#FFB100}} {{Text|THEN|#F0F0F0}} libname$ = {{Text|"./"|#FFB100}} + libname$: inlinelibname$ = {{Text|"./"|#FFB100}} + inlinelibname$
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                            libname$ = libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}
                                            inlinelibname$ = libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}
                                            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(libpath$, {{Text|1|#F580B1}}) <> {{Text|"/"|#FFB100}} {{Text|THEN|#F0F0F0}} libname$ = {{Text|"./"|#FFB100}} + libname$: inlinelibname$ = {{Text|"./"|#FFB100}} + inlinelibname$
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .so (direct)|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$) {{Text|THEN|#F0F0F0}}
                                        libname$ = libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                        inlinelibname$ = libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(libpath$, {{Text|1|#F580B1}}) <> {{Text|"/"|#FFB100}} {{Text|THEN|#F0F0F0}} libname$ = {{Text|"./"|#FFB100}} + libname$: inlinelibname$ = {{Text|"./"|#FFB100}} + inlinelibname$
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                        inlinelibname$ = libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(libpath$, {{Text|1|#F580B1}}) <> {{Text|"/"|#FFB100}} {{Text|THEN|#F0F0F0}} libname$ = {{Text|"./"|#FFB100}} + libname$: inlinelibname$ = {{Text|"./"|#FFB100}} + inlinelibname$
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .so (usr/lib64)|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib64/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$) {{Text|THEN|#F0F0F0}}
                                        libname$ = {{Text|"/usr/lib64/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                        inlinelibname$ = {{Text|"/usr/lib64/"|#FFB100}} + libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib64/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = {{Text|"/usr/lib64/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                        inlinelibname$ = {{Text|"/usr/lib64/"|#FFB100}} + libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} MacOSX {{Text|THEN|#F0F0F0}} {{Text|'dylib support|#31C4C4}}
                                    {{Text|'check for .dylib (usr/lib)|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                            libname$ = {{Text|"/usr/lib/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}
                                            inlinelibname$ = {{Text|"/usr/lib/"|#FFB100}} + libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                            libname$ = {{Text|"/usr/lib/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}
                                            inlinelibname$ = {{Text|"/usr/lib/"|#FFB100}} + libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .so (usr/lib)|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$) {{Text|THEN|#F0F0F0}}
                                        libname$ = {{Text|"/usr/lib/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                        inlinelibname$ = {{Text|"/usr/lib/"|#FFB100}} + libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = {{Text|"/usr/lib/"|#FFB100}} + libpath$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                        inlinelibname$ = {{Text|"/usr/lib/"|#FFB100}} + libpath_inline$ + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'--------------------------(without path)------------------------------|#31C4C4}}
                                {{Text|IF|#F0F0F0}} MacOSX {{Text|THEN|#F0F0F0}} {{Text|'dylib support|#31C4C4}}
                                    {{Text|'check for .dylib (direct)|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                            libname$ = {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}
                                            inlinelibname$ = {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}
                                            libname$ = {{Text|"./"|#FFB100}} + libname$: inlinelibname$ = {{Text|"./"|#FFB100}} + inlinelibname$
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                            libname$ = {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}
                                            inlinelibname$ = {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}
                                            libname$ = {{Text|"./"|#FFB100}} + libname$: inlinelibname$ = {{Text|"./"|#FFB100}} + inlinelibname$
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .so (direct)|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$) {{Text|THEN|#F0F0F0}}
                                        libname$ = {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                        inlinelibname$ = {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                        libname$ = {{Text|"./"|#FFB100}} + libname$: inlinelibname$ = {{Text|"./"|#FFB100}} + inlinelibname$
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                        inlinelibname$ = {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                        libname$ = {{Text|"./"|#FFB100}} + libname$: inlinelibname$ = {{Text|"./"|#FFB100}} + inlinelibname$
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .so (usr/lib64)|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib64/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$) {{Text|THEN|#F0F0F0}}
                                        libname$ = {{Text|"/usr/lib64/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                        inlinelibname$ = {{Text|"/usr/lib64/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib64/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = {{Text|"/usr/lib64/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                        inlinelibname$ = {{Text|"/usr/lib64/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} MacOSX {{Text|THEN|#F0F0F0}} {{Text|'dylib support|#31C4C4}}
                                    {{Text|'check for .dylib (usr/lib)|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                            libname$ = {{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}
                                            inlinelibname$ = {{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|"."|#FFB100}} + libver$ + {{Text|".dylib"|#FFB100}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                            libname$ = {{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}
                                            inlinelibname$ = {{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".dylib"|#FFB100}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'check for .so (usr/lib)|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$) {{Text|THEN|#F0F0F0}}
                                        libname$ = {{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                        inlinelibname$ = {{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so."|#FFB100}} + libver$
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}({{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                        libname$ = {{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                        inlinelibname$ = {{Text|"/usr/lib/"|#FFB100}} + {{Text|"lib"|#FFB100}} + x$ + {{Text|".so"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'Linux|#31C4C4}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'Dynamic|#31C4C4}}
                        {{Text|'library found?|#31C4C4}}
                        {{Text|IF|#F0F0F0}} dynamiclibrary <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"DYNAMIC LIBRARY not found"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LEN|#F0F0F0}}(headername$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"LIBRARY not found"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|'***actual method should cull redundant header and library entries***|#31C4C4}}
                        {{Text|IF|#F0F0F0}} dynamiclibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|'static|#31C4C4}}
                            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(libname$) {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} os$ = {{Text|"WIN"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(libname$, {{Text|2|#F580B1}}, {{Text|1|#F580B1}}) = {{Text|":"|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(libname$, {{Text|1|#F580B1}}) = {{Text|"\"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                        mylib$ = mylib$ + {{Text|" "|#FFB100}} + libname$ + {{Text|" "|#FFB100}}
                                    {{Text|ELSE|#F0F0F0}}
                                        mylib$ = mylib$ + {{Text|" ..\..\"|#FFB100}} + libname$ + {{Text|" "|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(libname$, {{Text|1|#F580B1}}) = {{Text|"/"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                        mylib$ = mylib$ + {{Text|" "|#FFB100}} + libname$ + {{Text|" "|#FFB100}}
                                    {{Text|ELSE|#F0F0F0}}
                                        mylib$ = mylib$ + {{Text|" ../../"|#FFB100}} + libname$ + {{Text|" "|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|'dynamic|#31C4C4}}
                            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(headername$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'no header|#31C4C4}}
                                {{Text|IF|#F0F0F0}} subfuncn {{Text|THEN|#F0F0F0}}
                                    f = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"maindata.txt"|#FFB100}})
                                {{Text|ELSE|#F0F0F0}}
                                    f = DataTxtBuf
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'make name a C-appropriate variable name|#31C4C4}}
                                {{Text|'by converting everything except numbers and|#31C4C4}}
                                {{Text|'letters to underscores|#31C4C4}}
                                x2$ = x$
                                {{Text|FOR|#F0F0F0}} x2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(x2$)
                                    {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(x2$, x2) < {{Text|48|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|ASC|#F0F0F0}}(x2$, x2) = {{Text|95|#F580B1}}
                                    {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(x2$, x2) > {{Text|57|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|ASC|#F0F0F0}}(x2$, x2) < {{Text|65|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|ASC|#F0F0F0}}(x2$, x2) = {{Text|95|#F580B1}}
                                    {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(x2$, x2) > {{Text|90|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|ASC|#F0F0F0}}(x2$, x2) < {{Text|97|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|ASC|#F0F0F0}}(x2$, x2) = {{Text|95|#F580B1}}
                                    {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(x2$, x2) > {{Text|122|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|ASC|#F0F0F0}}(x2$, x2) = {{Text|95|#F580B1}}
                                {{Text|NEXT|#F0F0F0}}
                                DLLname$ = x2$
                                {{Text|IF|#F0F0F0}} sfdeclare {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} os$ = {{Text|"WIN"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                        WriteBufLine RegTxtBuf, {{Text|"HINSTANCE DLL_"|#FFB100}} + x2$ + {{Text|"=NULL;"|#FFB100}}
                                        WriteBufLine f, {{Text|"if (!DLL_"|#FFB100}} + x2$ + {{Text|"){"|#FFB100}}
                                        WriteBufLine f, {{Text|"DLL_"|#FFB100}} + x2$ + {{Text|"=LoadLibrary("|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + inlinelibname$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|");"|#FFB100}}
                                        WriteBufLine f, {{Text|"if (!DLL_"|#FFB100}} + x2$ + {{Text|") error(259);"|#FFB100}}
                                        WriteBufLine f, {{Text|"}"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                        WriteBufLine RegTxtBuf, {{Text|"void *DLL_"|#FFB100}} + x2$ + {{Text|"=NULL;"|#FFB100}}
                                        WriteBufLine f, {{Text|"if (!DLL_"|#FFB100}} + x2$ + {{Text|"){"|#FFB100}}
                                        WriteBufLine f, {{Text|"DLL_"|#FFB100}} + x2$ + {{Text|"=dlopen("|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + inlinelibname$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|",RTLD_LAZY);"|#FFB100}}
                                        WriteBufLine f, {{Text|"if (!DLL_"|#FFB100}} + x2$ + {{Text|") error(259);"|#FFB100}}
                                        WriteBufLine f, {{Text|"}"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'no header|#31C4C4}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'dynamiclibrary|#31C4C4}}
                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(headername$) {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (os$ = {{Text|"WIN"|#FFB100}} {{Text|AND|#F0F0F0}} ({{Text|MID$|#F0F0F0}}(headername$, {{Text|2|#F580B1}}, {{Text|1|#F580B1}}) = {{Text|":"|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(headername$, {{Text|1|#F580B1}}) = {{Text|"\"|#FFB100}})) _
                            {{Text|OR|#F0F0F0}} (os$ = {{Text|"LNX"|#FFB100}} {{Text|AND|#F0F0F0}} ({{Text|LEFT$|#F0F0F0}}(headername$, {{Text|1|#F580B1}}) = {{Text|"/"|#FFB100}})) {{Text|THEN|#F0F0F0}}
                                WriteBufLine RegTxtBuf, {{Text|"#include "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + headername$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
                            {{Text|ELSE|#F0F0F0}}
                                WriteBufLine RegTxtBuf, {{Text|"#include "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"../../"|#FFB100}} + headername$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    l$ = l$ + sp + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + autoformat_x$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
                    {{Text|IF|#F0F0F0}} n > x {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} dynamiclibrary {{Text|THEN|#F0F0F0}} a$ = {{Text|"Cannot specify multiple DYNAMIC LIBRARY names in a single DECLARE statement"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        x = x + {{Text|1|#F580B1}}: x2$ = getelement$(a$, x): {{Text|IF|#F0F0F0}} x2$ <> {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ,"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        l$ = l$ + sp2 + {{Text|","|#FFB100}}
                        x = x + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} x > n {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected , ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|GOTO|#F0F0F0}} addlibrary
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'n>=x|#31C4C4}}
                layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                {{Text|GOTO|#F0F0F0}} finishednonexec
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} finishednonexec {{Text|'note: no layout required|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'begin SUB/FUNCTION|#31C4C4}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        dynamiclibrary = {{Text|0|#F580B1}}
        declaresubfunc2:
        sf = {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"FUNCTION"|#FFB100}} {{Text|THEN|#F0F0F0}} sf = {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"SUB"|#FFB100}} {{Text|THEN|#F0F0F0}} sf = {{Text|2|#F580B1}}
        {{Text|IF|#F0F0F0}} sf {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} declaringlibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(subfunc) {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected END SUB/FUNCTION before "|#FFB100}} + firstelement$: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected name after SUB/FUNCTION"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            e$ = getelement$(ca$, {{Text|2|#F580B1}})
            symbol$ = removesymbol$(e$) {{Text|'$,%,etc.|#31C4C4}}
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} sf = {{Text|2|#F580B1}} {{Text|AND|#F0F0F0}} symbol$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Type symbols after a SUB name are invalid"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            try = findid(e$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                {{Text|IF|#F0F0F0}} id.subfunc = sf {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} createsf
                {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(e$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|LOOP|#F0F0F0}}
            a$ = {{Text|"Unregistered SUB/FUNCTION encountered"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            createsf:
            {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(e$) = {{Text|"_GL"|#FFB100}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"_GL"|#FFB100}}
            {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"SUB"|#FFB100}} {{Text|THEN|#F0F0F0}}
                l$ = SCase$({{Text|"Sub"|#FFB100}}) + sp + e$ + symbol$
            {{Text|ELSE|#F0F0F0}}
                l$ = SCase$({{Text|"Function"|#FFB100}}) + sp + e$ + symbol$
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            id2 = id
            targetid = currentid
            {{Text|'check for ALIAS|#31C4C4}}
            aliasname$ = {{Text|RTRIM$|#F0F0F0}}(id.cn)
            {{Text|IF|#F0F0F0}} n > {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                ee$ = getelement$(a$, {{Text|3|#F580B1}})
                {{Text|IF|#F0F0F0}} ee$ = {{Text|"ALIAS"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} declaringlibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"ALIAS can only be used with DECLARE LIBRARY"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} n = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ALIAS name-in-library"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    ee$ = getelement$(ca$, {{Text|4|#F580B1}})
                    {{Text|'strip string content (optional)|#31C4C4}}
                    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(ee$, {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) {{Text|THEN|#F0F0F0}}
                        ee$ = {{Text|RIGHT$|#F0F0F0}}(ee$, {{Text|LEN|#F0F0F0}}(ee$) - {{Text|1|#F580B1}})
                        x = {{Text|INSTR|#F0F0F0}}(ee$, {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})): {{Text|IF|#F0F0F0}} x = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}): {{Text|GOTO|#F0F0F0}} errmes
                        ee$ = {{Text|LEFT$|#F0F0F0}}(ee$, x - {{Text|1|#F580B1}})
                        l$ = l$ + sp + SCase$({{Text|"Alias"|#FFB100}}) + sp + CHR_QUOTE + ee$ + CHR_QUOTE
                    {{Text|ELSE|#F0F0F0}}
                        l$ = l$ + sp + SCase$({{Text|"Alias"|#FFB100}}) + sp + ee$
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'strip fix046$ (created by unquoted periods)|#31C4C4}}
                    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(ee$, fix046$)
                        x = {{Text|INSTR|#F0F0F0}}(ee$, fix046$): ee$ = {{Text|LEFT$|#F0F0F0}}(ee$, x - {{Text|1|#F580B1}}) + {{Text|"."|#FFB100}} + {{Text|RIGHT$|#F0F0F0}}(ee$, {{Text|LEN|#F0F0F0}}(ee$) - x + {{Text|1|#F580B1}} - {{Text|LEN|#F0F0F0}}(fix046$))
                    {{Text|LOOP|#F0F0F0}}
                    aliasname$ = ee$
                    {{Text|'remove ALIAS section from line|#31C4C4}}
                    {{Text|IF|#F0F0F0}} n <= {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = getelements(a$, {{Text|1|#F580B1}}, {{Text|2|#F580B1}})
                    {{Text|IF|#F0F0F0}} n >= {{Text|5|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = getelements(a$, {{Text|1|#F580B1}}, {{Text|2|#F580B1}}) + sp + getelements(a$, {{Text|5|#F580B1}}, n)
                    {{Text|IF|#F0F0F0}} n <= {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} ca$ = getelements(ca$, {{Text|1|#F580B1}}, {{Text|2|#F580B1}})
                    {{Text|IF|#F0F0F0}} n >= {{Text|5|#F580B1}} {{Text|THEN|#F0F0F0}} ca$ = getelements(ca$, {{Text|1|#F580B1}}, {{Text|2|#F580B1}}) + sp + getelements(ca$, {{Text|5|#F580B1}}, n)
                    n = n - {{Text|2|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} declaringlibrary {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} declibjmp1
            {{Text|IF|#F0F0F0}} closedmain = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} closemain
            {{Text|'check for open controls (copy #2)|#31C4C4}}
            {{Text|IF|#F0F0F0}} controllevel <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} controltype(controllevel) <> {{Text|6|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'It's OK for subs to be inside $IF blocks|#31C4C4}}
                a$ = {{Text|"Unidentified open control block"|#FFB100}}
                {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} controltype(controllevel)
                    {{Text|CASE|#F0F0F0}} {{Text|1|#F580B1}}: a$ = {{Text|"IF without END IF"|#FFB100}}
                    {{Text|CASE|#F0F0F0}} {{Text|2|#F580B1}}: a$ = {{Text|"FOR without NEXT"|#FFB100}}
                    {{Text|CASE|#F0F0F0}} {{Text|3|#F580B1}}, {{Text|4|#F580B1}}: a$ = {{Text|"DO without LOOP"|#FFB100}}
                    {{Text|CASE|#F0F0F0}} {{Text|5|#F580B1}}: a$ = {{Text|"WHILE without WEND"|#FFB100}}
                    {{Text|CASE|#F0F0F0}} {{Text|10|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|19|#F580B1}}: a$ = {{Text|"SELECT CASE without END SELECT"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
                linenumber = controlref(controllevel)
                {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} ideindentsubs {{Text|THEN|#F0F0F0}}
                controllevel = controllevel + {{Text|1|#F580B1}}
                controltype(controllevel) = {{Text|32|#F580B1}}
                controlref(controllevel) = linenumber
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            subfunc = {{Text|RTRIM$|#F0F0F0}}(id.callname) {{Text|'SUB_..."|#31C4C4}}
            {{Text|IF|#F0F0F0}} id.subfunc = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} subfuncoriginalname$ = {{Text|"FUNCTION "|#FFB100}} {{Text|ELSE|#F0F0F0}} subfuncoriginalname$ = {{Text|"SUB "|#FFB100}}
            subfuncoriginalname$ = subfuncoriginalname$ + {{Text|RTRIM$|#F0F0F0}}(id.cn)
            subfuncn = subfuncn + {{Text|1|#F580B1}}
            closedsubfunc = {{Text|0|#F580B1}}
            subfuncid = targetid
            subfuncret$ = {{Text|""|#FFB100}}
            DataTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"data"|#FFB100}} + str2$(subfuncn) + {{Text|".txt"|#FFB100}})
            FreeTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"free"|#FFB100}} + str2$(subfuncn) + {{Text|".txt"|#FFB100}})
            RetTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"ret"|#FFB100}} + str2$(subfuncn) + {{Text|".txt"|#FFB100}})
            defdatahandle = DataTxtBuf
            WriteBufLine RetTxtBuf, {{Text|"if (next_return_point){"|#FFB100}}
            WriteBufLine RetTxtBuf, {{Text|"next_return_point--;"|#FFB100}}
            WriteBufLine RetTxtBuf, {{Text|"switch(return_point[next_return_point]){"|#FFB100}}
            WriteBufLine RetTxtBuf, {{Text|"case 0:"|#FFB100}}
            WriteBufLine RetTxtBuf, {{Text|"error(3);"|#FFB100}} {{Text|'return without gosub!|#31C4C4}}
            WriteBufLine RetTxtBuf, {{Text|"break;"|#FFB100}}
            declibjmp1:
            {{Text|IF|#F0F0F0}} declaringlibrary {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} sfdeclare = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} indirectlibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    RegTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"regsf_ignore.txt"|#FFB100}})
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} sfdeclare = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} customtypelibrary = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} dynamiclibrary = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} indirectlibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    WriteBufLine RegTxtBuf, {{Text|"#include "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"externtype"|#FFB100}} + str2(ResolveStaticFunctions + {{Text|1|#F580B1}}) + {{Text|".txt"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
                    fh = {{Text|FREEFILE|#F0F0F0}}: {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"externtype"|#FFB100}} + str2(ResolveStaticFunctions + {{Text|1|#F580B1}}) + {{Text|".txt"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|AS|#F0F0F0}} #fh: {{Text|CLOSE|#F0F0F0}} #fh
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} sf = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                rettyp = id.ret
                t$ = typ2ctyp$(id.ret, {{Text|""|#FFB100}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} t$ = {{Text|"qbs"|#FFB100}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"qbs*"|#FFB100}}
                {{Text|IF|#F0F0F0}} declaringlibrary {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} rettyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                        t$ = {{Text|"char*"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} declaringlibrary <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} dynamiclibrary <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} os$ = {{Text|"WIN"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        WriteBufRawData RegTxtBuf, {{Text|"typedef "|#FFB100}} + t$ + {{Text|" (CALLBACK* DLLCALL_"|#FFB100}} + removecast$({{Text|RTRIM$|#F0F0F0}}(id.callname)) + {{Text|")("|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        WriteBufRawData RegTxtBuf, {{Text|"typedef "|#FFB100}} + t$ + {{Text|" (*DLLCALL_"|#FFB100}} + removecast$({{Text|RTRIM$|#F0F0F0}}(id.callname)) + {{Text|")("|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|ELSEIF|#F0F0F0}} declaringlibrary <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} customtypelibrary <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    WriteBufRawData RegTxtBuf, {{Text|"typedef "|#FFB100}} + t$ + {{Text|" CUSTOMCALL_"|#FFB100}} + removecast$({{Text|RTRIM$|#F0F0F0}}(id.callname)) + {{Text|"("|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    WriteBufRawData RegTxtBuf, t$ + {{Text|" "|#FFB100}} + removecast$({{Text|RTRIM$|#F0F0F0}}(id.callname)) + {{Text|"("|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} declaringlibrary {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} declibjmp2
                WriteBufRawData MainTxtBuf, t$ + {{Text|" "|#FFB100}} + removecast$({{Text|RTRIM$|#F0F0F0}}(id.callname)) + {{Text|"("|#FFB100}}
                {{Text|'create variable to return result|#31C4C4}}
                {{Text|'if type wasn't specified, define it|#31C4C4}}
                {{Text|IF|#F0F0F0}} symbol$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                    a = {{Text|ASC|#F0F0F0}}({{Text|UCASE$|#F0F0F0}}(e$)): {{Text|IF|#F0F0F0}} a = {{Text|95|#F580B1}} {{Text|THEN|#F0F0F0}} a = {{Text|91|#F580B1}}
                    a = a - {{Text|64|#F580B1}} {{Text|'so A=1, Z=27 and _=28|#31C4C4}}
                    symbol$ = defineextaz(a)
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                reginternalvariable = {{Text|1|#F580B1}}
                ignore = dim2(e$, symbol$, {{Text|0|#F580B1}}, {{Text|""|#FFB100}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                reginternalvariable = {{Text|0|#F580B1}}
                {{Text|'the following line stops the return variable from being free'd before being returned|#31C4C4}}
                FreeTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"free"|#FFB100}} + str2$(subfuncn) + {{Text|".txt"|#FFB100}})
                {{Text|'create return|#31C4C4}}
                {{Text|IF|#F0F0F0}} (rettyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
                    r$ = refer$(str2$(currentid), id.t, {{Text|1|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    subfuncret$ = subfuncret$ + {{Text|"qbs_maketmp("|#FFB100}} + r$ + {{Text|");"|#FFB100}}
                    subfuncret$ = subfuncret$ + {{Text|"return "|#FFB100}} + r$ + {{Text|";"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    r$ = refer$(str2$(currentid), id.t, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    subfuncret$ = {{Text|"return "|#FFB100}} + r$ + {{Text|";"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} declaringlibrary <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} dynamiclibrary <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} os$ = {{Text|"WIN"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        WriteBufRawData RegTxtBuf, {{Text|"typedef void (CALLBACK* DLLCALL_"|#FFB100}} + removecast$({{Text|RTRIM$|#F0F0F0}}(id.callname)) + {{Text|")("|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        WriteBufRawData RegTxtBuf, {{Text|"typedef void (*DLLCALL_"|#FFB100}} + removecast$({{Text|RTRIM$|#F0F0F0}}(id.callname)) + {{Text|")("|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|ELSEIF|#F0F0F0}} declaringlibrary <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} customtypelibrary <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    WriteBufRawData RegTxtBuf, {{Text|"typedef void CUSTOMCALL_"|#FFB100}} + removecast$({{Text|RTRIM$|#F0F0F0}}(id.callname)) + {{Text|"("|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    WriteBufRawData RegTxtBuf, {{Text|"void "|#FFB100}} + removecast$({{Text|RTRIM$|#F0F0F0}}(id.callname)) + {{Text|"("|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} declaringlibrary {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} declibjmp2
                WriteBufRawData MainTxtBuf, {{Text|"void "|#FFB100}} + removecast$({{Text|RTRIM$|#F0F0F0}}(id.callname)) + {{Text|"("|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            declibjmp2:
            addstatic2layout = {{Text|0|#F580B1}}
            staticsf = {{Text|0|#F580B1}}
            e$ = getelement$(a$, n)
            {{Text|IF|#F0F0F0}} e$ = {{Text|"STATIC"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} declaringlibrary {{Text|THEN|#F0F0F0}} a$ = {{Text|"STATIC cannot be used in a library declaration"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                addstatic2layout = {{Text|1|#F580B1}}
                staticsf = {{Text|2|#F580B1}}
                a$ = {{Text|LEFT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - {{Text|7|#F580B1}}): n = n - {{Text|1|#F580B1}} {{Text|'remove STATIC|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'check items to pass|#31C4C4}}
            params = {{Text|0|#F580B1}}
            AllowLocalName = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} n > {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                e$ = getelement$(a$, {{Text|3|#F580B1}})
                {{Text|IF|#F0F0F0}} e$ <> {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ("|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                e$ = getelement$(a$, n)
                {{Text|IF|#F0F0F0}} e$ <> {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected )"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                l$ = l$ + sp + {{Text|"("|#FFB100}}
                {{Text|IF|#F0F0F0}} n = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} nosfparams2
                {{Text|IF|#F0F0F0}} n < {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ( ... )"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                B = {{Text|0|#F580B1}}
                a2$ = {{Text|""|#FFB100}}
                {{Text|FOR|#F0F0F0}} i = {{Text|4|#F580B1}} {{Text|TO|#F0F0F0}} n - {{Text|1|#F580B1}}
                    e$ = getelement$(ca$, i)
                    {{Text|IF|#F0F0F0}} e$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} e$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} e$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} i = n - {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected , ... )"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        getlastparam2:
                        {{Text|IF|#F0F0F0}} a2$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ... ,"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        a2$ = {{Text|LEFT$|#F0F0F0}}(a2$, {{Text|LEN|#F0F0F0}}(a2$) - {{Text|1|#F580B1}})
                        {{Text|'possible format: [BYVAL]a[%][(1)][AS][type]|#31C4C4}}
                        params = params + {{Text|1|#F580B1}}
                        glinkid = targetid
                        glinkarg = params
                        {{Text|IF|#F0F0F0}} params > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                            WriteBufRawData RegTxtBuf, {{Text|","|#FFB100}}
                            {{Text|IF|#F0F0F0}} declaringlibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                WriteBufRawData MainTxtBuf, {{Text|","|#FFB100}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        n2 = numelements(a2$)
                        array = {{Text|0|#F580B1}}
                        t2$ = {{Text|""|#FFB100}}
                        e$ = getelement$(a2$, {{Text|1|#F580B1}})
                        byvalue = {{Text|0|#F580B1}}
                        {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(e$) = {{Text|"BYVAL"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} declaringlibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"BYVAL can only be used with DECLARE LIBRARY"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            byvalue = {{Text|1|#F580B1}}: a2$ = {{Text|RIGHT$|#F0F0F0}}(a2$, {{Text|LEN|#F0F0F0}}(a2$) - {{Text|6|#F580B1}})
                            {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(l$, {{Text|1|#F580B1}}) = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp2 + SCase$({{Text|"ByVal"|#FFB100}}) {{Text|ELSE|#F0F0F0}} l$ = l$ + sp + SCase$({{Text|"Byval"|#FFB100}})
                            n2 = numelements(a2$): e$ = getelement$(a2$, {{Text|1|#F580B1}})
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(l$, {{Text|1|#F580B1}}) = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp2 + e$ {{Text|ELSE|#F0F0F0}} l$ = l$ + sp + e$
                        n2$ = e$
                        dimmethod = {{Text|0|#F580B1}}
                        symbol2$ = removesymbol$(n2$)
                        {{Text|IF|#F0F0F0}} validname(n2$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|IF|#F0F0F0}} symbol2$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} dimmethod = {{Text|1|#F580B1}}
                        m = {{Text|0|#F580B1}}
                        {{Text|FOR|#F0F0F0}} i2 = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n2
                            e$ = getelement$(a2$, i2)
                            {{Text|IF|#F0F0F0}} e$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} m <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Syntax error - too many opening brackets"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                m = {{Text|1|#F580B1}}
                                array = {{Text|1|#F580B1}}
                                l$ = l$ + sp2 + {{Text|"("|#FFB100}}
                                {{Text|GOTO|#F0F0F0}} gotaa2
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} e$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} m <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Syntax error - closing bracket without opening bracket"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                m = {{Text|2|#F580B1}}
                                l$ = l$ + sp2 + {{Text|")"|#FFB100}}
                                {{Text|GOTO|#F0F0F0}} gotaa2
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(e$) = {{Text|"AS"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} m <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} m <> {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Syntax error - check your brackets"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                m = {{Text|3|#F580B1}}
                                l$ = l$ + sp + SCase$({{Text|"As"|#FFB100}})
                                {{Text|GOTO|#F0F0F0}} gotaa2
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} m = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp + e$: {{Text|GOTO|#F0F0F0}} gotaa2 {{Text|'ignore contents of option bracket telling how many dimensions (add to layout as is)|#31C4C4}}
                            {{Text|IF|#F0F0F0}} m <> {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Syntax error - check your brackets"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|IF|#F0F0F0}} t2$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} t2$ = e$ {{Text|ELSE|#F0F0F0}} t2$ = t2$ + {{Text|" "|#FFB100}} + e$
                            gotaa2:
                        {{Text|NEXT|#F0F0F0}} i2
                        {{Text|IF|#F0F0F0}} m = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Syntax error - check your brackets"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|IF|#F0F0F0}} symbol2$ <> {{Text|""|#FFB100}} {{Text|AND|#F0F0F0}} t2$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Syntax error - check parameter types"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(t2$) {{Text|THEN|#F0F0F0}} {{Text|'add type-name after AS|#31C4C4}}
                            t2$ = {{Text|UCASE$|#F0F0F0}}(t2$)
                            t3$ = t2$
                            typ = typname2typ(t3$)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|IF|#F0F0F0}} typ = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Undefined type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(udtxcname(typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}})) = {{Text|"_MEM"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(t3$) = {{Text|"MEM"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    t3$ = {{Text|MID$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(udtxcname(typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}})), {{Text|2|#F580B1}})
                                {{Text|ELSE|#F0F0F0}}
                                    t3$ = {{Text|RTRIM$|#F0F0F0}}(udtxcname(typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}))
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                l$ = l$ + sp + t3$
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|FOR|#F0F0F0}} t3i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(t3$)
                                    {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(t3$, t3i) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|ASC|#F0F0F0}}(t3$, t3i) = {{Text|ASC|#F0F0F0}}(sp)
                                {{Text|NEXT|#F0F0F0}}
                                t3$ = SCase2$(t3$)
                                l$ = l$ + sp + t3$
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} t2$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} t2$ = symbol2$
                        {{Text|IF|#F0F0F0}} t2$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(n2$, {{Text|1|#F580B1}}) = {{Text|"_"|#FFB100}} {{Text|THEN|#F0F0F0}} v = {{Text|27|#F580B1}} {{Text|ELSE|#F0F0F0}} v = {{Text|ASC|#F0F0F0}}({{Text|UCASE$|#F0F0F0}}(n2$)) - {{Text|64|#F580B1}}
                            t2$ = defineaz(v)
                            dimmethod = {{Text|1|#F580B1}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} array = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} declaringlibrary {{Text|THEN|#F0F0F0}} a$ = {{Text|"Arrays cannot be passed to a library"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            dimsfarray = {{Text|1|#F580B1}}
                            {{Text|'note: id2.nele is currently 0|#31C4C4}}
                            nelereq = {{Text|ASC|#F0F0F0}}({{Text|MID$|#F0F0F0}}(id2.nelereq, params, {{Text|1|#F580B1}}))
                            {{Text|IF|#F0F0F0}} nelereq {{Text|THEN|#F0F0F0}}
                                nele = nelereq
                                {{Text|MID$|#F0F0F0}}(id2.nele, params, {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}(nele)
                                ids(targetid) = id2
                                ignore = dim2(n2$, t2$, dimmethod, str2$(nele))
                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|ELSE|#F0F0F0}}
                                nele = {{Text|1|#F580B1}}
                                {{Text|MID$|#F0F0F0}}(id2.nele, params, {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}(nele)
                                ids(targetid) = id2
                                ignore = dim2(n2$, t2$, dimmethod, {{Text|"?"|#FFB100}})
                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            dimsfarray = {{Text|0|#F580B1}}
                            r$ = refer$(str2$(currentid), id.t, {{Text|1|#F580B1}})
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            WriteBufRawData RegTxtBuf, {{Text|"ptrszint*"|#FFB100}} + r$
                            WriteBufRawData MainTxtBuf, {{Text|"ptrszint*"|#FFB100}} + r$
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} declaringlibrary {{Text|THEN|#F0F0F0}}
                                {{Text|'is it a udt?|#31C4C4}}
                                {{Text|FOR|#F0F0F0}} xx = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} lasttype
                                    {{Text|IF|#F0F0F0}} t2$ = {{Text|RTRIM$|#F0F0F0}}(udtxname(xx)) {{Text|THEN|#F0F0F0}}
                                        WriteBufLine RegTxtBuf, {{Text|"void*"|#FFB100}}
                                        {{Text|GOTO|#F0F0F0}} decudt
                                    {{Text|ELSEIF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(udtxname(xx)) = {{Text|"_MEM"|#FFB100}} {{Text|AND|#F0F0F0}} t2$ = {{Text|"MEM"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        WriteBufLine RegTxtBuf, {{Text|"void*"|#FFB100}}
                                        {{Text|GOTO|#F0F0F0}} decudt
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|NEXT|#F0F0F0}}
                                t$ = typ2ctyp$({{Text|0|#F580B1}}, t2$)
                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|IF|#F0F0F0}} t$ = {{Text|"qbs"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                    t$ = {{Text|"char*"|#FFB100}}
                                    {{Text|IF|#F0F0F0}} byvalue = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"STRINGs cannot be passed using BYVAL"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    byvalue = {{Text|1|#F580B1}} {{Text|'use t$ as is|#31C4C4}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} byvalue {{Text|THEN|#F0F0F0}} WriteBufRawData RegTxtBuf, t$ {{Text|ELSE|#F0F0F0}} WriteBufRawData RegTxtBuf, t$ + {{Text|"*"|#FFB100}}
                                decudt:
                                {{Text|GOTO|#F0F0F0}} declibjmp3
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            dimsfarray = {{Text|1|#F580B1}}
                            ignore = dim2(n2$, t2$, dimmethod, {{Text|""|#FFB100}})
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            dimsfarray = {{Text|0|#F580B1}}
                            t$ = {{Text|""|#FFB100}}
                            typ = id.t {{Text|'the typ of the ID created by dim2|#31C4C4}}
                            t$ = typ2ctyp$(typ, {{Text|""|#FFB100}})
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|IF|#F0F0F0}} t$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Cannot find C type to return array data"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|'searchpoint|#31C4C4}}
                            {{Text|'get the name of the variable|#31C4C4}}
                            r$ = refer$(str2$(currentid), id.t, {{Text|1|#F580B1}})
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            WriteBufRawData RegTxtBuf, t$ + {{Text|"*"|#FFB100}} + r$
                            WriteBufRawData MainTxtBuf, t$ + {{Text|"*"|#FFB100}} + r$
                            {{Text|IF|#F0F0F0}} t$ = {{Text|"qbs"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                u$ = str2$(uniquenumber)
                                WriteBufLine DataTxtBuf, {{Text|"qbs*oldstr"|#FFB100}} + u$ + {{Text|"=NULL;"|#FFB100}}
                                WriteBufLine DataTxtBuf, {{Text|"if("|#FFB100}} + r$ + {{Text|"->tmp¦¦"|#FFB100}} + r$ + {{Text|"->fixed¦¦"|#FFB100}} + r$ + {{Text|"->readonly){"|#FFB100}}
                                WriteBufLine DataTxtBuf, {{Text|"oldstr"|#FFB100}} + u$ + {{Text|"="|#FFB100}} + r$ + {{Text|";"|#FFB100}}
                                WriteBufLine DataTxtBuf, {{Text|"if (oldstr"|#FFB100}} + u$ + {{Text|"->cmem_descriptor){"|#FFB100}}
                                WriteBufLine DataTxtBuf, r$ + {{Text|"=qbs_new_cmem(oldstr"|#FFB100}} + u$ + {{Text|"->len,0);"|#FFB100}}
                                WriteBufLine DataTxtBuf, {{Text|"}else{"|#FFB100}}
                                WriteBufLine DataTxtBuf, r$ + {{Text|"=qbs_new(oldstr"|#FFB100}} + u$ + {{Text|"->len,0);"|#FFB100}}
                                WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
                                WriteBufLine DataTxtBuf, {{Text|"memcpy("|#FFB100}} + r$ + {{Text|"->chr,oldstr"|#FFB100}} + u$ + {{Text|"->chr,oldstr"|#FFB100}} + u$ + {{Text|"->len);"|#FFB100}}
                                WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
                                WriteBufLine FreeTxtBuf, {{Text|"if(oldstr"|#FFB100}} + u$ + {{Text|"){"|#FFB100}}
                                WriteBufLine FreeTxtBuf, {{Text|"if(oldstr"|#FFB100}} + u$ + {{Text|"->fixed)qbs_set(oldstr"|#FFB100}} + u$ + {{Text|","|#FFB100}} + r$ + {{Text|");"|#FFB100}}
                                WriteBufLine FreeTxtBuf, {{Text|"qbs_free("|#FFB100}} + r$ + {{Text|");"|#FFB100}}
                                WriteBufLine FreeTxtBuf, {{Text|"}"|#FFB100}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        declibjmp3:
                        {{Text|IF|#F0F0F0}} i <> n - {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp2 + {{Text|","|#FFB100}}
                        a2$ = {{Text|""|#FFB100}}
                    {{Text|ELSE|#F0F0F0}}
                        a2$ = a2$ + e$ + sp
                        {{Text|IF|#F0F0F0}} i = n - {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} getlastparam2
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|NEXT|#F0F0F0}} i
                nosfparams2:
                l$ = l$ + sp2 + {{Text|")"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'n>2|#31C4C4}}
            AllowLocalName = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} addstatic2layout {{Text|THEN|#F0F0F0}} l$ = l$ + sp + SCase$({{Text|"Static"|#FFB100}})
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            WriteBufLine RegTxtBuf, {{Text|");"|#FFB100}}
            {{Text|IF|#F0F0F0}} declaringlibrary {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} declibjmp4
            WriteBufLine MainTxtBuf, {{Text|"){"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"qbs *tqbs;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"ptrszint tmp_long;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"int32 tmp_fileno;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"uint32 qbs_tmp_base=qbs_tmp_list_nexti;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"uint8 *tmp_mem_static_pointer=mem_static_pointer;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"uint32 tmp_cmem_sp=cmem_sp;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"#include "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"data"|#FFB100}} + str2$(subfuncn) + {{Text|".txt"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
            {{Text|'create new _MEM lock for this scope|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"mem_lock *sf_mem_lock;"|#FFB100}} {{Text|'MUST not be static for recursion reasons|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"new_mem_lock();"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"sf_mem_lock=mem_lock_tmp;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"sf_mem_lock->type=3;"|#FFB100}}
            {{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_SUBLEVEL=*__LONG_VWATCH_SUBLEVEL+ 1 ;"|#FFB100}}
                {{Text|IF|#F0F0F0}} subfunc <> {{Text|"SUB_VWATCH"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    inclinenump$ = {{Text|""|#FFB100}}
                    {{Text|IF|#F0F0F0}} inclinenumber(inclevel) {{Text|THEN|#F0F0F0}}
                        thisincname$ = getfilepath$(incname$(inclevel))
                        thisincname$ = {{Text|MID$|#F0F0F0}}(incname$(inclevel), {{Text|LEN|#F0F0F0}}(thisincname$) + {{Text|1|#F580B1}})
                        inclinenump$ = {{Text|"("|#FFB100}} + thisincname$ + {{Text|","|#FFB100}} + {{Text|STR$|#F0F0F0}}(inclinenumber(inclevel)) + {{Text|") "|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"qbs_set(__STRING_VWATCH_SUBNAME,qbs_new_txt_len("|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + inclinenump$ + subfuncoriginalname$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|","|#FFB100}} + str2$({{Text|LEN|#F0F0F0}}(inclinenump$ + subfuncoriginalname$)) + {{Text|"));"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"qbs_cleanup(qbs_tmp_base,0);"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"qbs_set(__STRING_VWATCH_INTERNALSUBNAME,qbs_new_txt_len("|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + subfunc + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|","|#FFB100}} + str2$({{Text|LEN|#F0F0F0}}(subfunc)) + {{Text|"));"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"qbs_cleanup(qbs_tmp_base,0);"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER=-2; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            WriteBufLine MainTxtBuf, {{Text|"if (new_error) goto exit_subfunc;"|#FFB100}}
            {{Text|'statementn = statementn + 1|#31C4C4}}
            {{Text|'if nochecks=0 then WriteBufLine MainTxtBuf, "S_" + str2$(statementn) + ":;"|#31C4C4}}
            dimstatic = staticsf
            declibjmp4:
            {{Text|IF|#F0F0F0}} declaringlibrary {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} customtypelibrary {{Text|THEN|#F0F0F0}}
                    callname$ = removecast$({{Text|RTRIM$|#F0F0F0}}(id2.callname))
                    WriteBufLine RegTxtBuf, {{Text|"CUSTOMCALL_"|#FFB100}} + callname$ + {{Text|" *"|#FFB100}} + callname$ + {{Text|"=NULL;"|#FFB100}}
                    {{Text|IF|#F0F0F0}} subfuncn {{Text|THEN|#F0F0F0}}
                        f = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"maindata.txt"|#FFB100}})
                    {{Text|ELSE|#F0F0F0}}
                        f = DataTxtBuf
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    WriteBufLine f, callname$ + {{Text|"=(CUSTOMCALL_"|#FFB100}} + callname$ + {{Text|"*)&"|#FFB100}} + aliasname$ + {{Text|";"|#FFB100}}
                    {{Text|'if no header exists to make the external function available, the function definition must be found|#31C4C4}}
                    {{Text|IF|#F0F0F0}} sfheader = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} sfdeclare <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        ResolveStaticFunctions = ResolveStaticFunctions + {{Text|1|#F580B1}}
                        {{Text|'expand array if necessary|#31C4C4}}
                        {{Text|IF|#F0F0F0}} ResolveStaticFunctions > {{Text|UBOUND|#F0F0F0}}(ResolveStaticFunction_Name) {{Text|THEN|#F0F0F0}}
                            {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} ResolveStaticFunction_Name({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} ResolveStaticFunctions + {{Text|100|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
                            {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} ResolveStaticFunction_File({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} ResolveStaticFunctions + {{Text|100|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
                            {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} ResolveStaticFunction_Method({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} ResolveStaticFunctions + {{Text|100|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        ResolveStaticFunction_File(ResolveStaticFunctions) = libname$
                        ResolveStaticFunction_Name(ResolveStaticFunctions) = aliasname$
                        ResolveStaticFunction_Method(ResolveStaticFunctions) = {{Text|1|#F580B1}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'sfheader=0|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} dynamiclibrary {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} sfdeclare {{Text|THEN|#F0F0F0}}
                        WriteBufLine RegTxtBuf, {{Text|"DLLCALL_"|#FFB100}} + removecast$({{Text|RTRIM$|#F0F0F0}}(id2.callname)) + {{Text|" "|#FFB100}} + removecast$({{Text|RTRIM$|#F0F0F0}}(id2.callname)) + {{Text|"=NULL;"|#FFB100}}
                        {{Text|IF|#F0F0F0}} subfuncn {{Text|THEN|#F0F0F0}}
                            f = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"maindata.txt"|#FFB100}})
                        {{Text|ELSE|#F0F0F0}}
                            f = DataTxtBuf
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        WriteBufLine f, {{Text|"if (!"|#FFB100}} + removecast$({{Text|RTRIM$|#F0F0F0}}(id2.callname)) + {{Text|"){"|#FFB100}}
                        {{Text|IF|#F0F0F0}} os$ = {{Text|"WIN"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            WriteBufLine f, removecast$({{Text|RTRIM$|#F0F0F0}}(id2.callname)) + {{Text|"=(DLLCALL_"|#FFB100}} + removecast$({{Text|RTRIM$|#F0F0F0}}(id2.callname)) + {{Text|")GetProcAddress(DLL_"|#FFB100}} + DLLname$ + {{Text|","|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + aliasname$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|");"|#FFB100}}
                            WriteBufLine f, {{Text|"if (!"|#FFB100}} + removecast$({{Text|RTRIM$|#F0F0F0}}(id2.callname)) + {{Text|") error(260);"|#FFB100}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            WriteBufLine f, removecast$({{Text|RTRIM$|#F0F0F0}}(id2.callname)) + {{Text|"=(DLLCALL_"|#FFB100}} + removecast$({{Text|RTRIM$|#F0F0F0}}(id2.callname)) + {{Text|")dlsym(DLL_"|#FFB100}} + DLLname$ + {{Text|","|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + aliasname$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|");"|#FFB100}}
                            WriteBufLine f, {{Text|"if (dlerror()) error(260);"|#FFB100}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        WriteBufLine f, {{Text|"}"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'sfdeclare|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'dynamic|#31C4C4}}
                {{Text|IF|#F0F0F0}} sfdeclare = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} customtypelibrary = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} dynamiclibrary = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} indirectlibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    ResolveStaticFunctions = ResolveStaticFunctions + {{Text|1|#F580B1}}
                    {{Text|'expand array if necessary|#31C4C4}}
                    {{Text|IF|#F0F0F0}} ResolveStaticFunctions > {{Text|UBOUND|#F0F0F0}}(ResolveStaticFunction_Name) {{Text|THEN|#F0F0F0}}
                        {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} ResolveStaticFunction_Name({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} ResolveStaticFunctions + {{Text|100|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
                        {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} ResolveStaticFunction_File({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} ResolveStaticFunctions + {{Text|100|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
                        {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} ResolveStaticFunction_Method({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} ResolveStaticFunctions + {{Text|100|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    ResolveStaticFunction_File(ResolveStaticFunctions) = libname$
                    ResolveStaticFunction_Name(ResolveStaticFunctions) = aliasname$
                    ResolveStaticFunction_Method(ResolveStaticFunctions) = {{Text|2|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} sfdeclare = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} indirectlibrary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    RegTxtBuf = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"regsf.txt"|#FFB100}})
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'declaring library|#31C4C4}}
            {{Text|GOTO|#F0F0F0}} finishednonexec
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'END SUB/FUNCTION|#31C4C4}}
    {{Text|IF|#F0F0F0}} n = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"END"|#FFB100}} {{Text|THEN|#F0F0F0}}
            sf = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"FUNCTION"|#FFB100}} {{Text|THEN|#F0F0F0}} sf = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"SUB"|#FFB100}} {{Text|THEN|#F0F0F0}} sf = {{Text|2|#F580B1}}
            {{Text|IF|#F0F0F0}} sf {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(subfunc) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"END "|#FFB100}} + secondelement$ + {{Text|" without "|#FFB100}} + secondelement$: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|'check for open controls (copy #3)|#31C4C4}}
                {{Text|IF|#F0F0F0}} controllevel <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} controltype(controllevel) <> {{Text|6|#F580B1}} {{Text|AND|#F0F0F0}} controltype(controllevel) <> {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'It's OK for subs to be inside $IF blocks|#31C4C4}}
                    a$ = {{Text|"Unidentified open control block"|#FFB100}}
                    {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} controltype(controllevel)
                        {{Text|CASE|#F0F0F0}} {{Text|1|#F580B1}}: a$ = {{Text|"IF without END IF"|#FFB100}}
                        {{Text|CASE|#F0F0F0}} {{Text|2|#F580B1}}: a$ = {{Text|"FOR without NEXT"|#FFB100}}
                        {{Text|CASE|#F0F0F0}} {{Text|3|#F580B1}}, {{Text|4|#F580B1}}: a$ = {{Text|"DO without LOOP"|#FFB100}}
                        {{Text|CASE|#F0F0F0}} {{Text|5|#F580B1}}: a$ = {{Text|"WHILE without WEND"|#FFB100}}
                        {{Text|CASE|#F0F0F0}} {{Text|10|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|19|#F580B1}}: a$ = {{Text|"SELECT CASE without END SELECT"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
                    linenumber = controlref(controllevel)
                    {{Text|GOTO|#F0F0F0}} errmes
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} controltype(controllevel) = {{Text|32|#F580B1}} {{Text|AND|#F0F0F0}} ideindentsubs {{Text|THEN|#F0F0F0}}
                    controltype(controllevel) = {{Text|0|#F580B1}}
                    controllevel = controllevel - {{Text|1|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(subfunc, {{Text|4|#F580B1}}) = {{Text|"SUB_"|#FFB100}} {{Text|THEN|#F0F0F0}} secondelement$ = SCase$({{Text|"Sub"|#FFB100}}) {{Text|ELSE|#F0F0F0}} secondelement$ = SCase$({{Text|"Function"|#FFB100}})
                l$ = SCase$({{Text|"End"|#FFB100}}) + sp + secondelement$
                layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                {{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    vWatchVariable {{Text|""|#FFB100}}, {{Text|1|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                staticarraylist = {{Text|""|#FFB100}}: staticarraylistn = {{Text|0|#F580B1}} {{Text|'remove previously listed arrays|#31C4C4}}
                dimstatic = {{Text|0|#F580B1}}
                WriteBufLine MainTxtBuf, {{Text|"exit_subfunc:;"|#FFB100}}
                {{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        vWatchAddLabel linenumber, {{Text|0|#F580B1}}
                        WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= "|#FFB100}} + str2$(linenumber) + {{Text|"; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"|#FFB100}}
                        vWatchAddLabel {{Text|0|#F580B1}}, {{Text|-1|#F580B1}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_SUBLEVEL=*__LONG_VWATCH_SUBLEVEL- 1 ;"|#FFB100}}
                    {{Text|IF|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} firstLineNumberLabelvWatch > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        WriteBufLine MainTxtBuf, {{Text|"goto VWATCH_SKIPSETNEXTLINE;"|#FFB100}}
                        WriteBufLine MainTxtBuf, {{Text|"VWATCH_SETNEXTLINE:;"|#FFB100}}
                        WriteBufLine MainTxtBuf, {{Text|"switch (*__LONG_VWATCH_GOTO) {"|#FFB100}}
                        {{Text|FOR|#F0F0F0}} i = firstLineNumberLabelvWatch {{Text|TO|#F0F0F0}} lastLineNumberLabelvWatch
                            {{Text|WHILE|#F0F0F0}} i > {{Text|LEN|#F0F0F0}}(vWatchUsedLabels)
                                vWatchUsedLabels = vWatchUsedLabels + {{Text|SPACE$|#F0F0F0}}({{Text|1000|#F580B1}})
                                vWatchUsedSkipLabels = vWatchUsedSkipLabels + {{Text|SPACE$|#F0F0F0}}({{Text|1000|#F580B1}})
                            {{Text|WEND|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(vWatchUsedLabels, i) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                WriteBufLine MainTxtBuf, {{Text|"    case "|#FFB100}} + str2$(i) + {{Text|":"|#FFB100}}
                                WriteBufLine MainTxtBuf, {{Text|"        goto VWATCH_LABEL_"|#FFB100}} + str2$(i) + {{Text|";"|#FFB100}}
                                WriteBufLine MainTxtBuf, {{Text|"        break;"|#FFB100}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|NEXT|#F0F0F0}}
                        WriteBufLine MainTxtBuf, {{Text|"    default:"|#FFB100}}
                        WriteBufLine MainTxtBuf, {{Text|"        *__LONG_VWATCH_GOTO=*__LONG_VWATCH_LINENUMBER;"|#FFB100}}
                        WriteBufLine MainTxtBuf, {{Text|"        goto VWATCH_SETNEXTLINE;"|#FFB100}}
                        WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
                        WriteBufLine MainTxtBuf, {{Text|"VWATCH_SKIPLINE:;"|#FFB100}}
                        WriteBufLine MainTxtBuf, {{Text|"switch (*__LONG_VWATCH_GOTO) {"|#FFB100}}
                        {{Text|FOR|#F0F0F0}} i = firstLineNumberLabelvWatch {{Text|TO|#F0F0F0}} lastLineNumberLabelvWatch
                            {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(vWatchUsedSkipLabels, i) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                WriteBufLine MainTxtBuf, {{Text|"    case -"|#FFB100}} + str2$(i) + {{Text|":"|#FFB100}}
                                WriteBufLine MainTxtBuf, {{Text|"        goto VWATCH_SKIPLABEL_"|#FFB100}} + str2$(i) + {{Text|";"|#FFB100}}
                                WriteBufLine MainTxtBuf, {{Text|"        break;"|#FFB100}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|NEXT|#F0F0F0}}
                        WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
                        WriteBufLine MainTxtBuf, {{Text|"VWATCH_SKIPSETNEXTLINE:;"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    firstLineNumberLabelvWatch = {{Text|0|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'release _MEM lock for this scope|#31C4C4}}
                WriteBufLine MainTxtBuf, {{Text|"free_mem_lock(sf_mem_lock);"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"#include "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"free"|#FFB100}} + str2$(subfuncn) + {{Text|".txt"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
                WriteBufLine MainTxtBuf, {{Text|"if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"cmem_sp=tmp_cmem_sp;"|#FFB100}}
                {{Text|IF|#F0F0F0}} subfuncret$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, subfuncret$
                WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}} {{Text|'skeleton sub|#31C4C4}}
                {{Text|'ret???.txt|#31C4C4}}
                WriteBufLine RetTxtBuf, {{Text|"}"|#FFB100}} {{Text|'end case|#31C4C4}}
                WriteBufLine RetTxtBuf, {{Text|"}"|#FFB100}}
                WriteBufLine RetTxtBuf, {{Text|"error(3);"|#FFB100}} {{Text|'no valid return possible|#31C4C4}}
                subfunc = {{Text|""|#FFB100}}
                closedsubfunc = {{Text|-1|#F580B1}}
                {{Text|'unshare temp. shared variables|#31C4C4}}
                {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} idn
                    {{Text|IF|#F0F0F0}} ids(i).share {{Text|AND|#F0F0F0}} {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} ids(i).share = ids(i).share - {{Text|2|#F580B1}}
                {{Text|NEXT|#F0F0F0}}
                {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} revertmaymusthaven
                    x = revertmaymusthave(i)
                    {{Text|SWAP|#F0F0F0}} ids(x).musthave, ids(x).mayhave
                {{Text|NEXT|#F0F0F0}}
                revertmaymusthaven = {{Text|0|#F580B1}}
                {{Text|'undeclare constants in sub/function's scope|#31C4C4}}
                {{Text|'constlast = constlastshared|#31C4C4}}
                {{Text|GOTO|#F0F0F0}} finishednonexec
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} firstelement$ = {{Text|"CONST"|#FFB100}} {{Text|THEN|#F0F0F0}}
        l$ = SCase$({{Text|"Const"|#FFB100}})
        {{Text|'DEF... do not change type, the expression is stored in a suitable type|#31C4C4}}
        {{Text|'based on its value if type isn't forced/specified|#31C4C4}}
        {{Text|IF|#F0F0F0}} n < {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected CONST name = value/expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
        i = {{Text|2|#F580B1}}
        constdefpending:
        pending = {{Text|0|#F580B1}}
        n$ = getelement$(ca$, i): i = i + {{Text|1|#F580B1}}
        l$ = l$ + sp + n$ + sp + {{Text|"="|#FFB100}}
        typeoverride = {{Text|0|#F580B1}}
        s$ = removesymbol$(n$)
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
        {{Text|IF|#F0F0F0}} s$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
            typeoverride = typname2typ(s$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} typeoverride {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid constant type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} typeoverride = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid constant type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} getelement$(a$, i) <> {{Text|"="|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ="|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
        i = i + {{Text|1|#F580B1}}
        {{Text|'get expression|#31C4C4}}
        e$ = {{Text|""|#FFB100}}
        B = {{Text|0|#F580B1}}
        {{Text|FOR|#F0F0F0}} i2 = i {{Text|TO|#F0F0F0}} n
            e2$ = getelement$(ca$, i2)
            {{Text|IF|#F0F0F0}} e2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} e2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} e2$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                pending = {{Text|1|#F580B1}}
                i = i2 + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} i > n - {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected CONST ... , name = value/expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = e2$ {{Text|ELSE|#F0F0F0}} e$ = e$ + sp + e2$
        {{Text|NEXT|#F0F0F0}}
        e$ = fixoperationorder(e$)
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
        l$ = l$ + sp + tlayout$
        {{Text|'Note: Actual CONST definition handled in prepass|#31C4C4}}
        {{Text|'Set CONST as defined|#31C4C4}}
        hashname$ = n$
        hashchkflags = HASHFLAG_CONSTANT
        hashres = HashFind(hashname$, hashchkflags, hashresflags, hashresref)
        {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} hashres
            {{Text|IF|#F0F0F0}} constsubfunc(hashresref) = subfuncn {{Text|THEN|#F0F0F0}} constdefined(hashresref) = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
            {{Text|IF|#F0F0F0}} hashres <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} hashres = HashFindCont(hashresflags, hashresref) {{Text|ELSE|#F0F0F0}} hashres = {{Text|0|#F580B1}}
        {{Text|LOOP|#F0F0F0}}
        {{Text|IF|#F0F0F0}} pending {{Text|THEN|#F0F0F0}} l$ = l$ + sp2 + {{Text|","|#FFB100}}: {{Text|GOTO|#F0F0F0}} constdefpending
        layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
        {{Text|GOTO|#F0F0F0}} finishednonexec
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    predefine:
    {{Text|IF|#F0F0F0}} n >= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
        asreq = {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"DEFINT"|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = SCase$({{Text|"DefInt"|#FFB100}}): a$ = a$ + sp + {{Text|"AS"|#FFB100}} + sp + {{Text|"INTEGER"|#FFB100}}: n = n + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} definetype
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"DEFLNG"|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = SCase$({{Text|"DefLng"|#FFB100}}): a$ = a$ + sp + {{Text|"AS"|#FFB100}} + sp + {{Text|"LONG"|#FFB100}}: n = n + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} definetype
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"DEFSNG"|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = SCase$({{Text|"DefSng"|#FFB100}}): a$ = a$ + sp + {{Text|"AS"|#FFB100}} + sp + {{Text|"SINGLE"|#FFB100}}: n = n + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} definetype
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"DEFDBL"|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = SCase$({{Text|"DefDbl"|#FFB100}}): a$ = a$ + sp + {{Text|"AS"|#FFB100}} + sp + {{Text|"DOUBLE"|#FFB100}}: n = n + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} definetype
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"DEFSTR"|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = SCase$({{Text|"DefStr"|#FFB100}}): a$ = a$ + sp + {{Text|"AS"|#FFB100}} + sp + {{Text|"STRING"|#FFB100}}: n = n + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} definetype
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"_DEFINE"|#FFB100}} {{Text|OR|#F0F0F0}} (firstelement$ = {{Text|"DEFINE"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
            asreq = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"_DEFINE"|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = SCase$({{Text|"_Define"|#FFB100}}) {{Text|ELSE|#F0F0F0}} l$ = SCase$({{Text|"Define"|#FFB100}})
            definetype:
            {{Text|'get type from rhs|#31C4C4}}
            typ$ = {{Text|""|#FFB100}}
            typ2$ = {{Text|""|#FFB100}}
            t$ = {{Text|""|#FFB100}}
            {{Text|FOR|#F0F0F0}} i = n {{Text|TO|#F0F0F0}} {{Text|2|#F580B1}} {{Text|STEP|#F0F0F0}} {{Text|-1|#F580B1}}
                t$ = getelement$(a$, i)
                {{Text|IF|#F0F0F0}} t$ = {{Text|"AS"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                typ$ = t$ + {{Text|" "|#FFB100}} + typ$
                typ2$ = t$ + sp + typ2$
            {{Text|NEXT|#F0F0F0}}
            typ$ = {{Text|RTRIM$|#F0F0F0}}(typ$)
            {{Text|IF|#F0F0F0}} t$ <> {{Text|"AS"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = qb64prefix$ + {{Text|"DEFINE: Expected ... AS ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} i = n {{Text|OR|#F0F0F0}} i = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = qb64prefix$ + {{Text|"DEFINE: Expected ... AS ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            n = i - {{Text|1|#F580B1}}
            {{Text|'the data is from element 2 to element n|#31C4C4}}
            i = {{Text|2|#F580B1}} - {{Text|1|#F580B1}}
            definenext:
            {{Text|'expects an alphabet letter or underscore|#31C4C4}}
            i = i + {{Text|1|#F580B1}}: e$ = getelement$(a$, i): E = {{Text|ASC|#F0F0F0}}({{Text|UCASE$|#F0F0F0}}(e$))
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = qb64prefix$ + {{Text|"DEFINE: Expected an alphabet letter or the underscore character (_)"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} E <> {{Text|95|#F580B1}} {{Text|AND|#F0F0F0}} (E > {{Text|90|#F580B1}} {{Text|OR|#F0F0F0}} E < {{Text|65|#F580B1}}) {{Text|THEN|#F0F0F0}} a$ = qb64prefix$ + {{Text|"DEFINE: Expected an alphabet letter or the underscore character (_)"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} E = {{Text|95|#F580B1}} {{Text|THEN|#F0F0F0}} E = {{Text|27|#F580B1}} {{Text|ELSE|#F0F0F0}} E = E - {{Text|64|#F580B1}}
            defineaz(E) = typ$
            defineextaz(E) = type2symbol(typ$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            firste = E
            l$ = l$ + sp + e$
            {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} predefining = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} predefined
                {{Text|IF|#F0F0F0}} asreq {{Text|THEN|#F0F0F0}} l$ = l$ + sp + SCase$({{Text|"As"|#FFB100}}) + sp + typ2$
                layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                {{Text|GOTO|#F0F0F0}} finishednonexec
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'expects "-" or ","|#31C4C4}}
            i = i + {{Text|1|#F580B1}}: e$ = getelement$(a$, i)
            {{Text|IF|#F0F0F0}} e$ <> {{Text|"-"|#FFB100}} {{Text|AND|#F0F0F0}} e$ <> {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = qb64prefix$ + {{Text|"DEFINE: Expected - or ,"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} e$ = {{Text|"-"|#FFB100}} {{Text|THEN|#F0F0F0}}
                l$ = l$ + sp2 + {{Text|"-"|#FFB100}}
                {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}} a$ = qb64prefix$ + {{Text|"DEFINE: Syntax incomplete"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|'expects an alphabet letter or underscore|#31C4C4}}
                i = i + {{Text|1|#F580B1}}: e$ = getelement$(a$, i): E = {{Text|ASC|#F0F0F0}}({{Text|UCASE$|#F0F0F0}}(e$))
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = qb64prefix$ + {{Text|"DEFINE: Expected an alphabet letter or the underscore character (_)"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} E <> {{Text|95|#F580B1}} {{Text|AND|#F0F0F0}} (E > {{Text|90|#F580B1}} {{Text|OR|#F0F0F0}} E < {{Text|65|#F580B1}}) {{Text|THEN|#F0F0F0}} a$ = qb64prefix$ + {{Text|"DEFINE: Expected an alphabet letter or the underscore character (_)"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} E = {{Text|95|#F580B1}} {{Text|THEN|#F0F0F0}} E = {{Text|27|#F580B1}} {{Text|ELSE|#F0F0F0}} E = E - {{Text|64|#F580B1}}
                {{Text|IF|#F0F0F0}} firste > E {{Text|THEN|#F0F0F0}} {{Text|SWAP|#F0F0F0}} E, firste
                {{Text|FOR|#F0F0F0}} e2 = firste {{Text|TO|#F0F0F0}} E
                    defineaz(e2) = typ$
                    defineextaz(e2) = type2symbol(typ$)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|NEXT|#F0F0F0}}
                l$ = l$ + sp2 + e$
                {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} predefining = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} predefined
                    {{Text|IF|#F0F0F0}} asreq {{Text|THEN|#F0F0F0}} l$ = l$ + sp + SCase$({{Text|"As"|#FFB100}}) + sp + typ2$
                    layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                    {{Text|GOTO|#F0F0F0}} finishednonexec
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'expects ","|#31C4C4}}
                i = i + {{Text|1|#F580B1}}: e$ = getelement$(a$, i)
                {{Text|IF|#F0F0F0}} e$ <> {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = qb64prefix$ + {{Text|"DEFINE: Expected ,"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            l$ = l$ + sp2 + {{Text|","|#FFB100}}
            {{Text|GOTO|#F0F0F0}} definenext
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'_DEFINE|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'2|#31C4C4}}
    {{Text|IF|#F0F0F0}} predefining = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} predefined
    {{Text|IF|#F0F0F0}} closedmain <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} subfunc = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Statement cannot be placed between SUB/FUNCTIONs"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
    {{Text|'executable section:|#31C4C4}}
    statementn = statementn + {{Text|1|#F580B1}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"NEXT"|#FFB100}} {{Text|THEN|#F0F0F0}}
            l$ = SCase$({{Text|"Next"|#FFB100}})
            {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} simplenext
            v$ = {{Text|""|#FFB100}}
            {{Text|FOR|#F0F0F0}} i = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n
                a2$ = getelement(ca$, i)
                {{Text|IF|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}}
                    lastnextele:
                    e$ = fixoperationorder(v$)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(l$) = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp + tlayout$ {{Text|ELSE|#F0F0F0}} l$ = l$ + sp2 + {{Text|","|#FFB100}} + sp + tlayout$
                    e$ = evaluate(e$, typ)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}}
                        getid {{Text|VAL|#F0F0F0}}(e$)
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|IF|#F0F0F0}} (id.t {{Text|AND|#F0F0F0}} ISPOINTER) {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (id.t {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} (id.t {{Text|AND|#F0F0F0}} ISOFFSETINBITS) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} (id.t {{Text|AND|#F0F0F0}} ISARRAY) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|GOTO|#F0F0F0}} fornextfoundvar2
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    a$ = {{Text|"Unsupported variable after NEXT"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    fornextfoundvar2:
                    simplenext:
                    {{Text|IF|#F0F0F0}} controltype(controllevel) <> {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"NEXT without FOR"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} n <> {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} controlvalue(controllevel) <> currentid {{Text|THEN|#F0F0F0}} a$ = {{Text|"Incorrect variable after NEXT"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    WriteBufLine MainTxtBuf, {{Text|"fornext_continue_"|#FFB100}} + str2$(controlid(controllevel)) + {{Text|":;"|#FFB100}}
                    {{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        vWatchAddLabel linenumber, {{Text|0|#F580B1}}
                        WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= "|#FFB100}} + str2$(linenumber) + {{Text|"; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"fornext_exit_"|#FFB100}} + str2$(controlid(controllevel)) + {{Text|":;"|#FFB100}}
                    controllevel = controllevel - {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                    v$ = {{Text|""|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(v$) {{Text|THEN|#F0F0F0}} v$ = v$ + sp + a2$ {{Text|ELSE|#F0F0F0}} v$ = a2$
                    {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} lastnextele
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            {{Text|GOTO|#F0F0F0}} finishednonexec {{Text|'***no error causing code, event checking done by FOR***|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"WHILE"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"S_"|#FFB100}} + str2$(statementn) + {{Text|":;"|#FFB100}}: dynscope = {{Text|1|#F580B1}}
            {{Text|'prevents code from being placed before 'CASE condition' in a SELECT CASE block|#31C4C4}}
            {{Text|IF|#F0F0F0}} SelectCaseCounter > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} SelectCaseHasCaseBlock(SelectCaseCounter) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                a$ = {{Text|"Expected CASE expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            controllevel = controllevel + {{Text|1|#F580B1}}
            controlref(controllevel) = linenumber
            controltype(controllevel) = {{Text|5|#F580B1}}
            controlid(controllevel) = uniquenumber
            {{Text|IF|#F0F0F0}} n >= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                e$ = fixoperationorder(getelements$(ca$, {{Text|2|#F580B1}}, n))
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                l$ = SCase$({{Text|"While"|#FFB100}}) + sp + tlayout$
                layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                e$ = evaluate(e$, typ)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer$(e$, typ, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} stringprocessinghappened {{Text|THEN|#F0F0F0}} e$ = cleanupstringprocessingcall$ + e$ + {{Text|")"|#FFB100}}
                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} a$ = {{Text|"WHILE ERROR! Cannot accept a STRING type."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    vWatchAddLabel linenumber, {{Text|0|#F580B1}}
                    WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= "|#FFB100}} + str2$(linenumber) + {{Text|"; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"while(("|#FFB100}} + e$ + {{Text|")¦¦new_error){"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                a$ = {{Text|"WHILE ERROR! Expected expression after WHILE."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"WEND"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} controltype(controllevel) <> {{Text|5|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"WEND without WHILE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            WriteBufLine MainTxtBuf, {{Text|"ww_continue_"|#FFB100}} + str2$(controlid(controllevel)) + {{Text|":;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"ww_exit_"|#FFB100}} + str2$(controlid(controllevel)) + {{Text|":;"|#FFB100}}
            controllevel = controllevel - {{Text|1|#F580B1}}
            l$ = SCase$({{Text|"Wend"|#FFB100}})
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            {{Text|GOTO|#F0F0F0}} finishednonexec {{Text|'***no error causing code, event checking done by WHILE***|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"DO"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"S_"|#FFB100}} + str2$(statementn) + {{Text|":;"|#FFB100}}: dynscope = {{Text|1|#F580B1}}
            {{Text|'prevents code from being placed before 'CASE condition' in a SELECT CASE block|#31C4C4}}
            {{Text|IF|#F0F0F0}} SelectCaseCounter > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} SelectCaseHasCaseBlock(SelectCaseCounter) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                a$ = {{Text|"Expected CASE expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            controllevel = controllevel + {{Text|1|#F580B1}}
            controlref(controllevel) = linenumber
            l$ = SCase$({{Text|"Do"|#FFB100}})
            {{Text|IF|#F0F0F0}} n >= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                whileuntil = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"WHILE"|#FFB100}} {{Text|THEN|#F0F0F0}} whileuntil = {{Text|1|#F580B1}}: l$ = l$ + sp + SCase$({{Text|"While"|#FFB100}})
                {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"UNTIL"|#FFB100}} {{Text|THEN|#F0F0F0}} whileuntil = {{Text|2|#F580B1}}: l$ = l$ + sp + SCase$({{Text|"Until"|#FFB100}})
                {{Text|IF|#F0F0F0}} whileuntil = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"DO ERROR! Expected WHILE or UNTIL after DO."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} whileuntil > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} n = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Condition expected after WHILE/UNTIL"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                e$ = fixoperationorder(getelements$(ca$, {{Text|3|#F580B1}}, n))
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                l$ = l$ + sp + tlayout$
                e$ = evaluate(e$, typ)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer$(e$, typ, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} stringprocessinghappened {{Text|THEN|#F0F0F0}} e$ = cleanupstringprocessingcall$ + e$ + {{Text|")"|#FFB100}}
                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} a$ = {{Text|"DO ERROR! Cannot accept a STRING type."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} whileuntil = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"while(("|#FFB100}} + e$ + {{Text|")¦¦new_error){"|#FFB100}} {{Text|ELSE|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"while((!("|#FFB100}} + e$ + {{Text|"))¦¦new_error){"|#FFB100}}
                {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    vWatchAddLabel linenumber, {{Text|0|#F580B1}}
                    WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= "|#FFB100}} + str2$(linenumber) + {{Text|"; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                controltype(controllevel) = {{Text|4|#F580B1}}
            {{Text|ELSE|#F0F0F0}}
                controltype(controllevel) = {{Text|3|#F580B1}}
                {{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    vWatchAddLabel linenumber, {{Text|0|#F580B1}}
                    WriteBufLine MainTxtBuf, {{Text|"do{*__LONG_VWATCH_LINENUMBER= "|#FFB100}} + str2$(linenumber) + {{Text|"; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"do{"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            controlid(controllevel) = uniquenumber
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"LOOP"|#FFB100}} {{Text|THEN|#F0F0F0}}
            l$ = SCase$({{Text|"Loop"|#FFB100}})
            {{Text|IF|#F0F0F0}} controltype(controllevel) <> {{Text|3|#F580B1}} {{Text|AND|#F0F0F0}} controltype(controllevel) <> {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"PROGRAM FLOW ERROR!"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} n >= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"S_"|#FFB100}} + str2$(statementn) + {{Text|":;"|#FFB100}}: dynscope = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} controltype(controllevel) = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"PROGRAM FLOW ERROR!"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                whileuntil = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"WHILE"|#FFB100}} {{Text|THEN|#F0F0F0}} whileuntil = {{Text|1|#F580B1}}: l$ = l$ + sp + SCase$({{Text|"While"|#FFB100}})
                {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"UNTIL"|#FFB100}} {{Text|THEN|#F0F0F0}} whileuntil = {{Text|2|#F580B1}}: l$ = l$ + sp + SCase$({{Text|"Until"|#FFB100}})
                {{Text|IF|#F0F0F0}} whileuntil = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"LOOP ERROR! Expected WHILE or UNTIL after LOOP."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} whileuntil > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} n = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Condition expected after WHILE/UNTIL"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                e$ = fixoperationorder(getelements$(ca$, {{Text|3|#F580B1}}, n))
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                l$ = l$ + sp + tlayout$
                e$ = evaluate(e$, typ)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer$(e$, typ, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} stringprocessinghappened {{Text|THEN|#F0F0F0}} e$ = cleanupstringprocessingcall$ + e$ + {{Text|")"|#FFB100}}
                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} a$ = {{Text|"LOOP ERROR! Cannot accept a STRING type."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                WriteBufLine MainTxtBuf, {{Text|"dl_continue_"|#FFB100}} + str2$(controlid(controllevel)) + {{Text|":;"|#FFB100}}
                {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    vWatchAddLabel linenumber, {{Text|0|#F580B1}}
                    WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= "|#FFB100}} + str2$(linenumber) + {{Text|"; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} whileuntil = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"}while(("|#FFB100}} + e$ + {{Text|")&&(!new_error));"|#FFB100}} {{Text|ELSE|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"}while((!("|#FFB100}} + e$ + {{Text|"))&&(!new_error));"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"dl_continue_"|#FFB100}} + str2$(controlid(controllevel)) + {{Text|":;"|#FFB100}}
                {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    vWatchAddLabel linenumber, {{Text|0|#F580B1}}
                    WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= "|#FFB100}} + str2$(linenumber) + {{Text|"; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} controltype(controllevel) = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"}while(1);"|#FFB100}} {{Text|'infinite loop!|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            WriteBufLine MainTxtBuf, {{Text|"dl_exit_"|#FFB100}} + str2$(controlid(controllevel)) + {{Text|":;"|#FFB100}}
            controllevel = controllevel - {{Text|1|#F580B1}}
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} finishednonexec {{Text|'***no error causing code, event checking done by DO***|#31C4C4}}
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"FOR"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"S_"|#FFB100}} + str2$(statementn) + {{Text|":;"|#FFB100}}: dynscope = {{Text|1|#F580B1}}
            l$ = SCase$({{Text|"For"|#FFB100}})
            {{Text|'prevents code from being placed before 'CASE condition' in a SELECT CASE block|#31C4C4}}
            {{Text|IF|#F0F0F0}} SelectCaseCounter > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} SelectCaseHasCaseBlock(SelectCaseCounter) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                a$ = {{Text|"Expected CASE expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            controllevel = controllevel + {{Text|1|#F580B1}}
            controlref(controllevel) = linenumber
            controltype(controllevel) = {{Text|2|#F580B1}}
            controlid(controllevel) = uniquenumber
            v$ = {{Text|""|#FFB100}}
            startvalue$ = {{Text|""|#FFB100}}
            p3$ = {{Text|"1"|#FFB100}}: stepused = {{Text|0|#F580B1}}
            p2$ = {{Text|""|#FFB100}}
            mode = {{Text|0|#F580B1}}
            E = {{Text|0|#F580B1}}
            {{Text|FOR|#F0F0F0}} i = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n
                e$ = getelement$(a$, i)
                {{Text|IF|#F0F0F0}} e$ = {{Text|"="|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} mode <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} E = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                    mode = {{Text|1|#F580B1}}
                    v$ = getelements$(ca$, {{Text|2|#F580B1}}, i - {{Text|1|#F580B1}})
                    equpos = i
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} e$ = {{Text|"TO"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} mode <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} E = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                    mode = {{Text|2|#F580B1}}
                    startvalue$ = getelements$(ca$, equpos + {{Text|1|#F580B1}}, i - {{Text|1|#F580B1}})
                    topos = i
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} e$ = {{Text|"STEP"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} mode <> {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} E = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                    mode = {{Text|3|#F580B1}}
                    stepused = {{Text|1|#F580B1}}
                    p2$ = getelements$(ca$, topos + {{Text|1|#F580B1}}, i - {{Text|1|#F580B1}})
                    p3$ = getelements$(ca$, i + {{Text|1|#F580B1}}, n)
                    {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            {{Text|IF|#F0F0F0}} mode < {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} E = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} p2$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} p2$ = getelements$(ca$, topos + {{Text|1|#F580B1}}, n)
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(v$) = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} {{Text|LEN|#F0F0F0}}(startvalue$) = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} {{Text|LEN|#F0F0F0}}(p2$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} E = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} E <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} mode < {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected FOR name = start TO end"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} E {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected FOR name = start TO end STEP increment"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            e$ = fixoperationorder(v$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l$ = l$ + sp + tlayout$
            e$ = evaluate(e$, typ)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}}
                getid {{Text|VAL|#F0F0F0}}(e$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} (id.t {{Text|AND|#F0F0F0}} ISPOINTER) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (id.t {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (id.t {{Text|AND|#F0F0F0}} ISOFFSETINBITS) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (id.t {{Text|AND|#F0F0F0}} ISARRAY) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|GOTO|#F0F0F0}} fornextfoundvar
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            a$ = {{Text|"Unsupported variable used in FOR statement"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            fornextfoundvar:
            controlvalue(controllevel) = currentid
            v$ = e$
            {{Text|'find C++ datatype to match variable|#31C4C4}}
            {{Text|'markup to cater for greater range/accuracy|#31C4C4}}
            ctype$ = {{Text|""|#FFB100}}
            ctyp = typ - ISPOINTER
            bits = typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
            {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} bits = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"double"|#FFB100}}: ctyp = {{Text|64&|#F580B1}} + ISFLOAT
                {{Text|IF|#F0F0F0}} bits = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"long double"|#FFB100}}: ctyp = {{Text|256&|#F580B1}} + ISFLOAT
                {{Text|IF|#F0F0F0}} bits = {{Text|256|#F580B1}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"long double"|#FFB100}}: ctyp = {{Text|256&|#F580B1}} + ISFLOAT
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} bits = {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"int16"|#FFB100}}: ctyp = {{Text|16&|#F580B1}}
                {{Text|IF|#F0F0F0}} bits = {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"int32"|#FFB100}}: ctyp = {{Text|32&|#F580B1}}
                {{Text|IF|#F0F0F0}} bits = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"int64"|#FFB100}}: ctyp = {{Text|64&|#F580B1}}
                {{Text|IF|#F0F0F0}} bits = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"int64"|#FFB100}}: ctyp = {{Text|64&|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} ctype$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Unsupported variable used in FOR statement"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            u$ = str2(uniquenumber)
            {{Text|IF|#F0F0F0}} subfunc = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                WriteBufLine DataTxtBuf, {{Text|"static "|#FFB100}} + ctype$ + {{Text|" fornext_value"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
                WriteBufLine DataTxtBuf, {{Text|"static "|#FFB100}} + ctype$ + {{Text|" fornext_finalvalue"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
                WriteBufLine DataTxtBuf, {{Text|"static "|#FFB100}} + ctype$ + {{Text|" fornext_step"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
                WriteBufLine DataTxtBuf, {{Text|"static uint8 fornext_step_negative"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                WriteBufLine DataTxtBuf, ctype$ + {{Text|" fornext_value"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
                WriteBufLine DataTxtBuf, ctype$ + {{Text|" fornext_finalvalue"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
                WriteBufLine DataTxtBuf, ctype$ + {{Text|" fornext_step"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
                WriteBufLine DataTxtBuf, {{Text|"uint8 fornext_step_negative"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'calculate start|#31C4C4}}
            e$ = fixoperationorder$(startvalue$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l$ = l$ + sp + {{Text|"="|#FFB100}} + sp + tlayout$
            e$ = evaluatetotyp$(e$, ctyp)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            WriteBufLine MainTxtBuf, {{Text|"fornext_value"|#FFB100}} + u$ + {{Text|"="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
            {{Text|'final|#31C4C4}}
            e$ = fixoperationorder$(p2$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l$ = l$ + sp + SCase$({{Text|"To"|#FFB100}}) + sp + tlayout$
            e$ = evaluatetotyp(e$, ctyp)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            WriteBufLine MainTxtBuf, {{Text|"fornext_finalvalue"|#FFB100}} + u$ + {{Text|"="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
            {{Text|'step|#31C4C4}}
            e$ = fixoperationorder$(p3$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} stepused = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp + SCase$({{Text|"Step"|#FFB100}}) + sp + tlayout$
            e$ = evaluatetotyp(e$, ctyp)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                vWatchAddLabel linenumber, {{Text|0|#F580B1}}
                WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= "|#FFB100}} + str2$(linenumber) + {{Text|"; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            WriteBufLine MainTxtBuf, {{Text|"fornext_step"|#FFB100}} + u$ + {{Text|"="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"if (fornext_step"|#FFB100}} + u$ + {{Text|"<0) fornext_step_negative"|#FFB100}} + u$ + {{Text|"=1; else fornext_step_negative"|#FFB100}} + u$ + {{Text|"=0;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"if (new_error) goto fornext_error"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"goto fornext_entrylabel"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"while(1){"|#FFB100}}
            typbak = typ
            WriteBufLine MainTxtBuf, {{Text|"fornext_value"|#FFB100}} + u$ + {{Text|"=fornext_step"|#FFB100}} + u$ + {{Text|"+("|#FFB100}} + refer$(v$, typ, {{Text|0|#F580B1}}) + {{Text|");"|#FFB100}}
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            typ = typbak
            WriteBufLine MainTxtBuf, {{Text|"fornext_entrylabel"|#FFB100}} + u$ + {{Text|":"|#FFB100}}
            setrefer v$, typ, {{Text|"fornext_value"|#FFB100}} + u$, {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            WriteBufLine MainTxtBuf, {{Text|"if (fornext_step_negative"|#FFB100}} + u$ + {{Text|"){"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"if (fornext_value"|#FFB100}} + u$ + {{Text|"<fornext_finalvalue"|#FFB100}} + u$ + {{Text|") break;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"}else{"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"if (fornext_value"|#FFB100}} + u$ + {{Text|">fornext_finalvalue"|#FFB100}} + u$ + {{Text|") break;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"fornext_error"|#FFB100}} + u$ + {{Text|":;"|#FFB100}}
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"ELSE"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|'Routine to add error checking for ELSE so we'll no longer be able to do things like the following:|#31C4C4}}
            {{Text|'IF x = 1 THEN|#31C4C4}}
            {{Text|'    SELECT CASE s|#31C4C4}}
            {{Text|'        CASE 1|#31C4C4}}
            {{Text|'    END SELECT ELSE y = 2|#31C4C4}}
            {{Text|'END IF|#31C4C4}}
            {{Text|'Notice the ELSE with the SELECT CASE?  Before this patch, commands like those were considered valid QB64 code.|#31C4C4}}
            temp$ = {{Text|UCASE$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(wholeline)))
            {{Text|'IF NoIDEMode THEN|#31C4C4}}
            {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(temp$, {{Text|CHR$|#F0F0F0}}({{Text|9|#F580B1}}))
                {{Text|ASC|#F0F0F0}}(temp$, {{Text|INSTR|#F0F0F0}}(temp$, {{Text|CHR$|#F0F0F0}}({{Text|9|#F580B1}}))) = {{Text|32|#F580B1}}
            {{Text|LOOP|#F0F0F0}}
            {{Text|'END IF|#31C4C4}}
            goodelse = {{Text|0|#F580B1}} {{Text|'a check to see if it's a good else|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(temp$, {{Text|2|#F580B1}}) = {{Text|"IF"|#FFB100}} {{Text|THEN|#F0F0F0}} goodelse = {{Text|-1|#F580B1}}: {{Text|GOTO|#F0F0F0}} skipelsecheck {{Text|'If we have an IF, the else is probably good|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(temp$, {{Text|4|#F580B1}}) = {{Text|"ELSE"|#FFB100}} {{Text|THEN|#F0F0F0}} goodelse = {{Text|-1|#F580B1}}: {{Text|GOTO|#F0F0F0}} skipelsecheck {{Text|'If it's an else by itself,then we'll call it good too at this point and let the rest of the syntax checking check for us|#31C4C4}}
            {{Text|DO|#F0F0F0}}
                spacelocation = {{Text|INSTR|#F0F0F0}}(temp$, {{Text|" "|#FFB100}})
                {{Text|IF|#F0F0F0}} spacelocation {{Text|THEN|#F0F0F0}} temp$ = {{Text|LEFT$|#F0F0F0}}(temp$, spacelocation - {{Text|1|#F580B1}}) + {{Text|MID$|#F0F0F0}}(temp$, spacelocation + {{Text|1|#F580B1}})
            {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} spacelocation = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(temp$, {{Text|":ELSE"|#FFB100}}) {{Text|OR|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(temp$, {{Text|":IF"|#FFB100}}) {{Text|THEN|#F0F0F0}} goodelse = {{Text|-1|#F580B1}}: {{Text|GOTO|#F0F0F0}} skipelsecheck {{Text|'I personally don't like the idea of a :ELSE statement, but this checks for that and validates it as well.  YUCK!  (I suppose this might be useful if there's a label where the ELSE is, like thisline: ELSE|#31C4C4}}
            count = {{Text|0|#F580B1}}
            {{Text|DO|#F0F0F0}}
                count = count + {{Text|1|#F580B1}}
                {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} {{Text|MID$|#F0F0F0}}(temp$, count, {{Text|1|#F580B1}})
                    {{Text|CASE|#F0F0F0}} {{Text|IS|#F0F0F0}} = {{Text|"1"|#FFB100}}, {{Text|"2"|#FFB100}}, {{Text|"3"|#FFB100}}, {{Text|"4"|#FFB100}}, {{Text|"5"|#FFB100}}, {{Text|"6"|#FFB100}}, {{Text|"7"|#FFB100}}, {{Text|"8"|#FFB100}}, {{Text|"9"|#FFB100}}, {{Text|"0"|#FFB100}}, {{Text|":"|#FFB100}}
                    {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}: {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
            {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} count >= {{Text|LEN|#F0F0F0}}(temp$)
            {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(temp$, count, {{Text|4|#F580B1}}) = {{Text|"ELSE"|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|MID$|#F0F0F0}}(temp$, count, {{Text|2|#F580B1}}) = {{Text|"IF"|#FFB100}} {{Text|THEN|#F0F0F0}} goodelse = {{Text|-1|#F580B1}} {{Text|'We only had numbers before our else|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} goodelse {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid Syntax for ELSE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            skipelsecheck:
            {{Text|'End of ELSE Error checking|#31C4C4}}
            {{Text|FOR|#F0F0F0}} i = controllevel {{Text|TO|#F0F0F0}} {{Text|1|#F580B1}} {{Text|STEP|#F0F0F0}} {{Text|-1|#F580B1}}
                t = controltype(i)
                {{Text|IF|#F0F0F0}} t = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} controlstate(controllevel) = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"IF-THEN already contains an ELSE statement"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    WriteBufLine MainTxtBuf, {{Text|"}else{"|#FFB100}}
                    controlstate(controllevel) = {{Text|2|#F580B1}}
                    {{Text|IF|#F0F0F0}} lineelseused = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} lhscontrollevel = lhscontrollevel - {{Text|1|#F580B1}}
                    l$ = SCase$({{Text|"Else"|#FFB100}})
                    layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                    {{Text|GOTO|#F0F0F0}} finishednonexec {{Text|'***no error causing code, event checking done by IF***|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            a$ = {{Text|"ELSE without IF"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n >= {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"ELSEIF"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"S_"|#FFB100}} + str2$(statementn) + {{Text|":;"|#FFB100}}: dynscope = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    vWatchAddLabel linenumber, {{Text|0|#F580B1}}
                    WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= "|#FFB100}} + str2$(linenumber) + {{Text|"; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|FOR|#F0F0F0}} i = controllevel {{Text|TO|#F0F0F0}} {{Text|1|#F580B1}} {{Text|STEP|#F0F0F0}} {{Text|-1|#F580B1}}
                t = controltype(i)
                {{Text|IF|#F0F0F0}} t = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} controlstate(controllevel) = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"ELSEIF invalid after ELSE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    controlstate(controllevel) = {{Text|1|#F580B1}}
                    controlvalue(controllevel) = controlvalue(controllevel) + {{Text|1|#F580B1}}
                    e$ = getelement$(a$, n)
                    {{Text|IF|#F0F0F0}} e$ <> {{Text|"THEN"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ELSEIF expression THEN"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    WriteBufLine MainTxtBuf, {{Text|"}else{"|#FFB100}}
                    e$ = fixoperationorder$(getelements$(ca$, {{Text|2|#F580B1}}, n - {{Text|1|#F580B1}}))
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    l$ = SCase$({{Text|"ElseIf"|#FFB100}}) + sp + tlayout$ + sp + SCase$({{Text|"Then"|#FFB100}})
                    layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                    e$ = evaluate(e$, typ)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer$(e$, typ, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                        a$ = {{Text|"Expected ELSEIF LEN(stringexpression) THEN"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} stringprocessinghappened {{Text|THEN|#F0F0F0}}
                        WriteBufLine MainTxtBuf, {{Text|"if ("|#FFB100}} + cleanupstringprocessingcall$ + e$ + {{Text|")){"|#FFB100}}
                    {{Text|ELSE|#F0F0F0}}
                        WriteBufLine MainTxtBuf, {{Text|"if ("|#FFB100}} + e$ + {{Text|"){"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    lhscontrollevel = lhscontrollevel - {{Text|1|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} finishedline
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            a$ = {{Text|"ELSEIF without IF"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n >= {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"IF"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"S_"|#FFB100}} + str2$(statementn) + {{Text|":;"|#FFB100}}: dynscope = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    vWatchAddLabel linenumber, {{Text|0|#F580B1}}
                    WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= "|#FFB100}} + str2$(linenumber) + {{Text|"; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'prevents code from being placed before 'CASE condition' in a SELECT CASE block|#31C4C4}}
            {{Text|IF|#F0F0F0}} SelectCaseCounter > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} SelectCaseHasCaseBlock(SelectCaseCounter) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                a$ = {{Text|"Expected CASE expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            e$ = getelement(a$, n)
            iftype = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} e$ = {{Text|"THEN"|#FFB100}} {{Text|THEN|#F0F0F0}} iftype = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} e$ = {{Text|"GOTO"|#FFB100}} {{Text|THEN|#F0F0F0}} iftype = {{Text|2|#F580B1}}
            {{Text|IF|#F0F0F0}} iftype = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected IF expression THEN/GOTO"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            controllevel = controllevel + {{Text|1|#F580B1}}
            controlref(controllevel) = linenumber
            controltype(controllevel) = {{Text|1|#F580B1}}
            controlvalue(controllevel) = {{Text|0|#F580B1}} {{Text|'number of extra closing } required at END IF|#31C4C4}}
            controlstate(controllevel) = {{Text|0|#F580B1}}
            e$ = fixoperationorder$(getelements(ca$, {{Text|2|#F580B1}}, n - {{Text|1|#F580B1}}))
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l$ = SCase$({{Text|"If"|#FFB100}}) + sp + tlayout$
            e$ = evaluate(e$, typ)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer$(e$, typ, {{Text|0|#F580B1}})
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                a$ = {{Text|"Expected IF LEN(stringexpression) THEN"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} stringprocessinghappened {{Text|THEN|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"if (("|#FFB100}} + cleanupstringprocessingcall$ + e$ + {{Text|"))¦¦new_error){"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"if (("|#FFB100}} + e$ + {{Text|")¦¦new_error){"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} iftype = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp + SCase$({{Text|"Then"|#FFB100}}) {{Text|'note: 'GOTO' will be added when iftype=2|#31C4C4}}
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} layout$ = l$ {{Text|ELSE|#F0F0F0}} layout$ = layout$ + sp + l$
            {{Text|IF|#F0F0F0}} iftype = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'IF ... GOTO|#31C4C4}}
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            THENGOTO = {{Text|1|#F580B1}} {{Text|'possible: IF a=1 THEN 10|#31C4C4}}
            {{Text|GOTO|#F0F0F0}} finishedline2
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'ENDIF|#31C4C4}}
    {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} getelement(a$, {{Text|1|#F580B1}}) = {{Text|"ENDIF"|#FFB100}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} controltype(controllevel) <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"END IF without IF"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
        layoutdone = {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} impliedendif = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            l$ = SCase$({{Text|"End If"|#FFB100}})
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} layout$ = l$ {{Text|ELSE|#F0F0F0}} layout$ = layout$ + sp + l$
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
        {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} controlvalue(controllevel)
            WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
        {{Text|NEXT|#F0F0F0}}
        controllevel = controllevel - {{Text|1|#F580B1}}
        {{Text|GOTO|#F0F0F0}} finishednonexec {{Text|'***no error causing code, event checking done by IF***|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'END IF|#31C4C4}}
    {{Text|IF|#F0F0F0}} n = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} getelement(a$, {{Text|1|#F580B1}}) = {{Text|"END"|#FFB100}} {{Text|AND|#F0F0F0}} getelement(a$, {{Text|2|#F580B1}}) = {{Text|"IF"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} controltype(controllevel) <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"END IF without IF"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            layoutdone = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} impliedendif = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                l$ = SCase$({{Text|"End"|#FFB100}} + sp + {{Text|"If"|#FFB100}})
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} layout$ = l$ {{Text|ELSE|#F0F0F0}} layout$ = layout$ + sp + l$
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                vWatchAddLabel linenumber, {{Text|0|#F580B1}}
                WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= "|#FFB100}} + str2$(linenumber) + {{Text|"; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
            {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} controlvalue(controllevel)
                WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
            {{Text|NEXT|#F0F0F0}}
            controllevel = controllevel - {{Text|1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} finishednonexec {{Text|'***no error causing code, event checking done by IF***|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'SELECT CASE|#31C4C4}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"SELECT"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"S_"|#FFB100}} + str2$(statementn) + {{Text|":;"|#FFB100}}: dynscope = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    vWatchAddLabel linenumber, {{Text|0|#F580B1}}
                    WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= "|#FFB100}} + str2$(linenumber) + {{Text|"; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'prevents code from being placed before 'CASE condition' in a SELECT CASE block|#31C4C4}}
            {{Text|IF|#F0F0F0}} SelectCaseCounter > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} SelectCaseHasCaseBlock(SelectCaseCounter) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                a$ = {{Text|"Expected CASE expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            SelectCaseCounter = SelectCaseCounter + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} {{Text|UBOUND|#F0F0F0}}(EveryCaseSet) <= SelectCaseCounter {{Text|THEN|#F0F0F0}} {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} EveryCaseSet(SelectCaseCounter)
            {{Text|IF|#F0F0F0}} {{Text|UBOUND|#F0F0F0}}(SelectCaseHasCaseBlock) <= SelectCaseCounter {{Text|THEN|#F0F0F0}} {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} SelectCaseHasCaseBlock(SelectCaseCounter)
            SelectCaseHasCaseBlock(SelectCaseCounter) = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"EVERYCASE"|#FFB100}} {{Text|THEN|#F0F0F0}}
                EveryCaseSet(SelectCaseCounter) = {{Text|-1|#F580B1}}
                {{Text|IF|#F0F0F0}} n = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected SELECT CASE expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                e$ = fixoperationorder(getelements$(ca$, {{Text|3|#F580B1}}, n))
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                l$ = SCase$({{Text|"Select EveryCase "|#FFB100}}) + tlayout$
            {{Text|ELSE|#F0F0F0}}
                EveryCaseSet(SelectCaseCounter) = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|OR|#F0F0F0}} secondelement$ <> {{Text|"CASE"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected CASE or EVERYCASE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} n = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected SELECT CASE expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                e$ = fixoperationorder(getelements$(ca$, {{Text|3|#F580B1}}, n))
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                l$ = SCase$({{Text|"Select Case "|#FFB100}}) + tlayout$
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            e$ = evaluate(e$, typ)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            u = uniquenumber
            controllevel = controllevel + {{Text|1|#F580B1}}
            controlvalue(controllevel) = {{Text|0|#F580B1}} {{Text|'id|#31C4C4}}
            t$ = {{Text|""|#FFB100}}
            {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
                t = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISARRAY) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    controlvalue(controllevel) = {{Text|VAL|#F0F0F0}}(e$)
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, typ, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    WriteBufLine DataTxtBuf, {{Text|"static qbs *sc_"|#FFB100}} + str2$(u) + {{Text|"=qbs_new(0,0);"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"qbs_set(sc_"|#FFB100}} + str2$(u) + {{Text|","|#FFB100}} + e$ + {{Text|");"|#FFB100}}
                    {{Text|IF|#F0F0F0}} stringprocessinghappened {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, cleanupstringprocessingcall$ + {{Text|"0);"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) > {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} t = {{Text|3|#F580B1}}: t$ = {{Text|"long double"|#FFB100}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} t = {{Text|4|#F580B1}}: t$ = {{Text|"float"|#FFB100}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} t = {{Text|5|#F580B1}}: t$ = {{Text|"double"|#FFB100}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISARRAY) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        controlvalue(controllevel) = {{Text|VAL|#F0F0F0}}(e$)
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, typ, {{Text|0|#F580B1}})
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                        WriteBufLine DataTxtBuf, {{Text|"static "|#FFB100}} + t$ + {{Text|" sc_"|#FFB100}} + str2$(u) + {{Text|";"|#FFB100}}
                        WriteBufLine MainTxtBuf, {{Text|"sc_"|#FFB100}} + str2$(u) + {{Text|"="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
                        {{Text|IF|#F0F0F0}} stringprocessinghappened {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, cleanupstringprocessingcall$ + {{Text|"0);"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|'non-float|#31C4C4}}
                    t = {{Text|1|#F580B1}}: t$ = {{Text|"int64"|#FFB100}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) <= {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} t = {{Text|7|#F580B1}}: t$ = {{Text|"uint32"|#FFB100}}
                        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) > {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} t = {{Text|2|#F580B1}}: t$ = {{Text|"uint64"|#FFB100}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) <= {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} t = {{Text|6|#F580B1}}: t$ = {{Text|"int32"|#FFB100}}
                        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) > {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} t = {{Text|1|#F580B1}}: t$ = {{Text|"int64"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISARRAY) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        controlvalue(controllevel) = {{Text|VAL|#F0F0F0}}(e$)
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, typ, {{Text|0|#F580B1}})
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                        WriteBufLine DataTxtBuf, {{Text|"static "|#FFB100}} + t$ + {{Text|" sc_"|#FFB100}} + str2$(u) + {{Text|";"|#FFB100}}
                        WriteBufLine MainTxtBuf, {{Text|"sc_"|#FFB100}} + str2$(u) + {{Text|"="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
                        {{Text|IF|#F0F0F0}} stringprocessinghappened {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, cleanupstringprocessingcall$ + {{Text|"0);"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            controlref(controllevel) = linenumber
            controltype(controllevel) = {{Text|10|#F580B1}} + t
            controlid(controllevel) = u
            {{Text|IF|#F0F0F0}} EveryCaseSet(SelectCaseCounter) {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"int32 sc_"|#FFB100}} + str2$(controlid(controllevel)) + {{Text|"_var;"|#FFB100}}
            {{Text|IF|#F0F0F0}} EveryCaseSet(SelectCaseCounter) {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"sc_"|#FFB100}} + str2$(controlid(controllevel)) + {{Text|"_var=0;"|#FFB100}}
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'END SELECT|#31C4C4}}
    {{Text|IF|#F0F0F0}} n = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"END"|#FFB100}} {{Text|AND|#F0F0F0}} secondelement$ = {{Text|"SELECT"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|'complete current case if necessary|#31C4C4}}
            {{Text|'18=CASE (awaiting END SELECT/CASE/CASE ELSE)|#31C4C4}}
            {{Text|'19=CASE ELSE (awaiting END SELECT)|#31C4C4}}
            {{Text|IF|#F0F0F0}} controltype(controllevel) = {{Text|18|#F580B1}} {{Text|THEN|#F0F0F0}}
                everycasenewcase = everycasenewcase + {{Text|1|#F580B1}}
                WriteBufLine MainTxtBuf, {{Text|"sc_ec_"|#FFB100}} + str2$(everycasenewcase) + {{Text|"_end:;"|#FFB100}}
                controllevel = controllevel - {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} EveryCaseSet(SelectCaseCounter) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"goto sc_"|#FFB100}} + str2$(controlid(controllevel)) + {{Text|"_end;"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} controltype(controllevel) = {{Text|19|#F580B1}} {{Text|THEN|#F0F0F0}}
                controllevel = controllevel - {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} EveryCaseSet(SelectCaseCounter) {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"} /* End of SELECT EVERYCASE ELSE */"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            WriteBufLine MainTxtBuf, {{Text|"sc_"|#FFB100}} + str2$(controlid(controllevel)) + {{Text|"_end:;"|#FFB100}}
            {{Text|IF|#F0F0F0}} controltype(controllevel) < {{Text|10|#F580B1}} {{Text|OR|#F0F0F0}} controltype(controllevel) > {{Text|17|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"END SELECT without SELECT CASE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                vWatchAddLabel linenumber, {{Text|0|#F580B1}}
                WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= "|#FFB100}} + str2$(linenumber) + {{Text|"; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} SelectCaseCounter > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} SelectCaseHasCaseBlock(SelectCaseCounter) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|'warn user of empty SELECT CASE block|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} IgnoreWarnings {{Text|THEN|#F0F0F0}}
                    addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), {{Text|"empty SELECT CASE block"|#FFB100}}, {{Text|""|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            controllevel = controllevel - {{Text|1|#F580B1}}
            SelectCaseCounter = SelectCaseCounter - {{Text|1|#F580B1}}
            l$ = SCase$({{Text|"End"|#FFB100}} + sp + {{Text|"Select"|#FFB100}})
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            {{Text|GOTO|#F0F0F0}} finishednonexec {{Text|'***no error causing code, event checking done by SELECT CASE***|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'prevents code from being placed before 'CASE condition' in a SELECT CASE block|#31C4C4}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} firstelement$ <> {{Text|"CASE"|#FFB100}} {{Text|AND|#F0F0F0}} SelectCaseCounter > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} SelectCaseHasCaseBlock(SelectCaseCounter) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        a$ = {{Text|"Expected CASE expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'CASE|#31C4C4}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"CASE"|#FFB100}} {{Text|THEN|#F0F0F0}}
            l$ = SCase$({{Text|"Case"|#FFB100}})
            {{Text|'complete current case if necessary|#31C4C4}}
            {{Text|'18=CASE (awaiting END SELECT/CASE/CASE ELSE)|#31C4C4}}
            {{Text|'19=CASE ELSE (awaiting END SELECT)|#31C4C4}}
            {{Text|IF|#F0F0F0}} controltype(controllevel) = {{Text|19|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected END SELECT"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} controltype(controllevel) = {{Text|18|#F580B1}} {{Text|THEN|#F0F0F0}}
                lhscontrollevel = lhscontrollevel - {{Text|1|#F580B1}}
                controllevel = controllevel - {{Text|1|#F580B1}}
                everycasenewcase = everycasenewcase + {{Text|1|#F580B1}}
                WriteBufLine MainTxtBuf, {{Text|"sc_ec_"|#FFB100}} + str2$(everycasenewcase) + {{Text|"_end:;"|#FFB100}}
                {{Text|IF|#F0F0F0}} EveryCaseSet(SelectCaseCounter) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"goto sc_"|#FFB100}} + str2$(controlid(controllevel)) + {{Text|"_end;"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"sc_"|#FFB100}} + str2$(controlid(controllevel)) + {{Text|"_var=-1;"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
                {{Text|'following line fixes problem related to RESUME after error|#31C4C4}}
                {{Text|'statementn = statementn + 1|#31C4C4}}
                {{Text|'if nochecks=0 then WriteBufLine MainTxtBuf, "S_" + str2$(statementn) + ":;"|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} controltype(controllevel) <> {{Text|6|#F580B1}} {{Text|AND|#F0F0F0}} (controltype(controllevel) < {{Text|10|#F580B1}} {{Text|OR|#F0F0F0}} controltype(controllevel) > {{Text|17|#F580B1}}) {{Text|THEN|#F0F0F0}} a$ = {{Text|"CASE without SELECT CASE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected CASE expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            SelectCaseHasCaseBlock(SelectCaseCounter) = {{Text|-1|#F580B1}}
            {{Text|'upgrade:|#31C4C4}}
            {{Text|'#1: variables can be referred to directly by storing an id in 'controlref'|#31C4C4}}
            {{Text|'    (but not if part of an array etc.)|#31C4C4}}
            {{Text|'DIM controlvalue(1000) AS LONG|#31C4C4}}
            {{Text|'#2: more types will be available|#31C4C4}}
            {{Text|'    +SINGLE|#31C4C4}}
            {{Text|'    +DOUBLE|#31C4C4}}
            {{Text|'    -LONG DOUBLE|#31C4C4}}
            {{Text|'    +INT32|#31C4C4}}
            {{Text|'    +UINT32|#31C4C4}}
            {{Text|'14=SELECT CASE float ...|#31C4C4}}
            {{Text|'15=SELECT CASE double|#31C4C4}}
            {{Text|'16=SELECT CASE int32|#31C4C4}}
            {{Text|'17=SELECT CASE uint32|#31C4C4}}
            {{Text|'10=SELECT CASE qbs (awaiting END SELECT/CASE)|#31C4C4}}
            {{Text|'11=SELECT CASE int64 (awaiting END SELECT/CASE)|#31C4C4}}
            {{Text|'12=SELECT CASE uint64 (awaiting END SELECT/CASE)|#31C4C4}}
            {{Text|'13=SELECT CASE LONG double (awaiting END SELECT/CASE/CASE ELSE)|#31C4C4}}
            {{Text|'14=SELECT CASE float ...|#31C4C4}}
            {{Text|'15=SELECT CASE double|#31C4C4}}
            {{Text|'16=SELECT CASE int32|#31C4C4}}
            {{Text|'17=SELECT CASE uint32|#31C4C4}}
            {{Text|'    bits = targettyp AND 511|#31C4C4}}
            {{Text|'                                IF bits <= 16 THEN e$ = "qbr_float_to_long(" + e$ + ")"|#31C4C4}}
            {{Text|'                                IF bits > 16 AND bits < 32 THEN e$ = "qbr_double_to_long(" + e$ + ")"|#31C4C4}}
            {{Text|'                                IF bits >= 32 THEN e$ = "qbr(" + e$ + ")"|#31C4C4}}
            t = controltype(controllevel) - {{Text|10|#F580B1}}
            {{Text|'get required type cast, and float options|#31C4C4}}
            flt = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} t = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} tc$ = {{Text|""|#FFB100}}
            {{Text|IF|#F0F0F0}} t = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} tc$ = {{Text|""|#FFB100}}
            {{Text|IF|#F0F0F0}} t = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} tc$ = {{Text|""|#FFB100}}
            {{Text|IF|#F0F0F0}} t = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} tc$ = {{Text|""|#FFB100}}: flt = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} t = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} tc$ = {{Text|"(float)"|#FFB100}}: flt = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} t = {{Text|5|#F580B1}} {{Text|THEN|#F0F0F0}} tc$ = {{Text|"(double)"|#FFB100}}: flt = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} t = {{Text|6|#F580B1}} {{Text|THEN|#F0F0F0}} tc$ = {{Text|""|#FFB100}}
            {{Text|IF|#F0F0F0}} t = {{Text|7|#F580B1}} {{Text|THEN|#F0F0F0}} tc$ = {{Text|""|#FFB100}}
            n$ = {{Text|"sc_"|#FFB100}} + str2$(controlid(controllevel))
            cv = controlvalue(controllevel)
            {{Text|IF|#F0F0F0}} cv {{Text|THEN|#F0F0F0}}
                n$ = refer$(str2$(cv), {{Text|0|#F580B1}}, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'CASE ELSE|#31C4C4}}
            {{Text|IF|#F0F0F0}} n = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} getelement$(a$, {{Text|2|#F580B1}}) = {{Text|"C-EL"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} EveryCaseSet(SelectCaseCounter) {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"if (sc_"|#FFB100}} + str2$(controlid(controllevel)) + {{Text|"_var==0) {"|#FFB100}}
                    controllevel = controllevel + {{Text|1|#F580B1}}: controltype(controllevel) = {{Text|19|#F580B1}}
                    controlref(controllevel) = controlref(controllevel - {{Text|1|#F580B1}})
                    l$ = l$ + sp + SCase$({{Text|"Else"|#FFB100}})
                    layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                    {{Text|GOTO|#F0F0F0}} finishednonexec {{Text|'***no error causing code, event checking done by SELECT CASE***|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"S_"|#FFB100}} + str2$(statementn) + {{Text|":;"|#FFB100}}: dynscope = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    vWatchAddLabel linenumber, {{Text|0|#F580B1}}
                    WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= "|#FFB100}} + str2$(linenumber) + {{Text|"; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            f12$ = {{Text|""|#FFB100}}
            nexp = {{Text|0|#F580B1}}
            B = {{Text|0|#F580B1}}
            e$ = {{Text|""|#FFB100}}
            {{Text|FOR|#F0F0F0}} i = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n
                e2$ = getelement$(ca$, i)
                {{Text|IF|#F0F0F0}} e2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} e2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}} e$ = e$ + sp + e2$
                {{Text|IF|#F0F0F0}} i = n {{Text|OR|#F0F0F0}} (e2$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}}) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} nexp <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp2 + {{Text|","|#FFB100}}: f12$ = f12$ + {{Text|"¦¦"|#FFB100}}
                    {{Text|IF|#F0F0F0}} e$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|1|#F580B1}})
                    {{Text|'TYPE 1? ... TO ...|#31C4C4}}
                    n2 = numelements(e$)
                    b2 = {{Text|0|#F580B1}}
                    el$ = {{Text|""|#FFB100}}: er$ = {{Text|""|#FFB100}}
                    usedto = {{Text|0|#F580B1}}
                    {{Text|FOR|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n2
                        e3$ = getelement$(e$, i2)
                        {{Text|IF|#F0F0F0}} e3$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b2 = b2 + {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} e3$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b2 = b2 - {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} b2 = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(e3$) = {{Text|"TO"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            usedto = {{Text|1|#F580B1}}
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} usedto = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} el$ = el$ + sp + e3$ {{Text|ELSE|#F0F0F0}} er$ = er$ + sp + e3$
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|NEXT|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} usedto = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} el$ = {{Text|""|#FFB100}} {{Text|OR|#F0F0F0}} er$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected expression TO expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        el$ = {{Text|RIGHT$|#F0F0F0}}(el$, {{Text|LEN|#F0F0F0}}(el$) - {{Text|1|#F580B1}}): er$ = {{Text|RIGHT$|#F0F0F0}}(er$, {{Text|LEN|#F0F0F0}}(er$) - {{Text|1|#F580B1}})
                        {{Text|'evaluate each side|#31C4C4}}
                        {{Text|FOR|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|2|#F580B1}}
                            {{Text|IF|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = el$ {{Text|ELSE|#F0F0F0}} e$ = er$
                            e$ = fixoperationorder(e$)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|IF|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp + tlayout$ {{Text|ELSE|#F0F0F0}} l$ = l$ + sp + SCase$({{Text|"To"|#FFB100}}) + sp + tlayout$
                            e$ = evaluate(e$, typ)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, typ, {{Text|0|#F580B1}})
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|IF|#F0F0F0}} t = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected string expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|IF|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} f12$ = f12$ + {{Text|"(qbs_greaterorequal("|#FFB100}} + n$ + {{Text|","|#FFB100}} + e$ + {{Text|")&&qbs_lessorequal("|#FFB100}} + n$ + {{Text|","|#FFB100}}
                                {{Text|IF|#F0F0F0}} i2 = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} f12$ = f12$ + e$ + {{Text|"))"|#FFB100}}
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected numeric expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|'round to integer?|#31C4C4}}
                                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} t = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"qbr("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                                    {{Text|IF|#F0F0F0}} t = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"qbr_longdouble_to_uint64("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                                    {{Text|IF|#F0F0F0}} t = {{Text|6|#F580B1}} {{Text|OR|#F0F0F0}} t = {{Text|7|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"qbr_double_to_long("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|'cast result?|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(tc$) {{Text|THEN|#F0F0F0}} e$ = tc$ + {{Text|"("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                                {{Text|IF|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} f12$ = f12$ + {{Text|"(("|#FFB100}} + n$ + {{Text|">=("|#FFB100}} + e$ + {{Text|"))&&("|#FFB100}} + n$ + {{Text|"<=("|#FFB100}}
                                {{Text|IF|#F0F0F0}} i2 = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} f12$ = f12$ + e$ + {{Text|")))"|#FFB100}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|NEXT|#F0F0F0}}
                        {{Text|GOTO|#F0F0F0}} addedexp
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'10=SELECT CASE qbs (awaiting END SELECT/CASE)|#31C4C4}}
                    {{Text|'11=SELECT CASE int64 (awaiting END SELECT/CASE)|#31C4C4}}
                    {{Text|'12=SELECT CASE uint64 (awaiting END SELECT/CASE)|#31C4C4}}
                    {{Text|'13=SELECT CASE LONG double (awaiting END SELECT/CASE/CASE ELSE)|#31C4C4}}
                    {{Text|'14=SELECT CASE float ...|#31C4C4}}
                    {{Text|'15=SELECT CASE double|#31C4C4}}
                    {{Text|'16=SELECT CASE int32|#31C4C4}}
                    {{Text|'17=SELECT CASE uint32|#31C4C4}}
                    {{Text|'    bits = targettyp AND 511|#31C4C4}}
                    {{Text|'                                IF bits <= 16 THEN e$ = "qbr_float_to_long(" + e$ + ")"|#31C4C4}}
                    {{Text|'                                IF bits > 16 AND bits < 32 THEN e$ = "qbr_double_to_long(" + e$ + ")"|#31C4C4}}
                    {{Text|'                                IF bits >= 32 THEN e$ = "qbr(" + e$ + ")"|#31C4C4}}
                    o$ = {{Text|"=="|#FFB100}} {{Text|'used by type 3|#31C4C4}}
                    {{Text|'TYPE 2?|#31C4C4}}
                    x$ = getelement$(e$, {{Text|1|#F580B1}})
                    {{Text|IF|#F0F0F0}} isoperator(x$) {{Text|THEN|#F0F0F0}} {{Text|'non-standard usage correction|#31C4C4}}
                        {{Text|IF|#F0F0F0}} x$ = {{Text|"="|#FFB100}} {{Text|OR|#F0F0F0}} x$ = {{Text|"<>"|#FFB100}} {{Text|OR|#F0F0F0}} x$ = {{Text|">"|#FFB100}} {{Text|OR|#F0F0F0}} x$ = {{Text|"<"|#FFB100}} {{Text|OR|#F0F0F0}} x$ = {{Text|">="|#FFB100}} {{Text|OR|#F0F0F0}} x$ = {{Text|"<="|#FFB100}} {{Text|THEN|#F0F0F0}}
                            e$ = {{Text|"IS"|#FFB100}} + sp + e$
                            x$ = {{Text|"IS"|#FFB100}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(x$) = {{Text|"IS"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        n2 = numelements(e$)
                        {{Text|IF|#F0F0F0}} n2 < {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected IS =,<>,>,<,>=,<= expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        o$ = getelement$(e$, {{Text|2|#F580B1}})
                        o2$ = o$
                        o = {{Text|0|#F580B1}}
                        {{Text|IF|#F0F0F0}} o$ = {{Text|"="|#FFB100}} {{Text|THEN|#F0F0F0}} o$ = {{Text|"=="|#FFB100}}: o = {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} o$ = {{Text|"<>"|#FFB100}} {{Text|THEN|#F0F0F0}} o$ = {{Text|"!="|#FFB100}}: o = {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} o$ = {{Text|">"|#FFB100}} {{Text|THEN|#F0F0F0}} o = {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} o$ = {{Text|"<"|#FFB100}} {{Text|THEN|#F0F0F0}} o = {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} o$ = {{Text|">="|#FFB100}} {{Text|THEN|#F0F0F0}} o = {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} o$ = {{Text|"<="|#FFB100}} {{Text|THEN|#F0F0F0}} o = {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} o <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected IS =,<>,>,<,>=,<= expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        l$ = l$ + sp + SCase$({{Text|"Is"|#FFB100}}) + sp + o2$
                        e$ = getelements$(e$, {{Text|3|#F580B1}}, n2)
                        {{Text|'fall through to type 3 using modified e$ & o$|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'TYPE 3? simple expression|#31C4C4}}
                    e$ = fixoperationorder(e$)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    l$ = l$ + sp + tlayout$
                    e$ = evaluate(e$, typ)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, typ, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} t = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|'string comparison|#31C4C4}}
                        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected string expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|IF|#F0F0F0}} o$ = {{Text|"=="|#FFB100}} {{Text|THEN|#F0F0F0}} o$ = {{Text|"qbs_equal"|#FFB100}}
                        {{Text|IF|#F0F0F0}} o$ = {{Text|"!="|#FFB100}} {{Text|THEN|#F0F0F0}} o$ = {{Text|"qbs_notequal"|#FFB100}}
                        {{Text|IF|#F0F0F0}} o$ = {{Text|">"|#FFB100}} {{Text|THEN|#F0F0F0}} o$ = {{Text|"qbs_greaterthan"|#FFB100}}
                        {{Text|IF|#F0F0F0}} o$ = {{Text|"<"|#FFB100}} {{Text|THEN|#F0F0F0}} o$ = {{Text|"qbs_lessthan"|#FFB100}}
                        {{Text|IF|#F0F0F0}} o$ = {{Text|">="|#FFB100}} {{Text|THEN|#F0F0F0}} o$ = {{Text|"qbs_greaterorequal"|#FFB100}}
                        {{Text|IF|#F0F0F0}} o$ = {{Text|"<="|#FFB100}} {{Text|THEN|#F0F0F0}} o$ = {{Text|"qbs_lessorequal"|#FFB100}}
                        f12$ = f12$ + o$ + {{Text|"("|#FFB100}} + n$ + {{Text|","|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|'numeric|#31C4C4}}
                        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected numeric expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|'round to integer?|#31C4C4}}
                        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} t = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"qbr("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                            {{Text|IF|#F0F0F0}} t = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"qbr_longdouble_to_uint64("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                            {{Text|IF|#F0F0F0}} t = {{Text|6|#F580B1}} {{Text|OR|#F0F0F0}} t = {{Text|7|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"qbr_double_to_long("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|'cast result?|#31C4C4}}
                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(tc$) {{Text|THEN|#F0F0F0}} e$ = tc$ + {{Text|"("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                        f12$ = f12$ + {{Text|"("|#FFB100}} + n$ + o$ + {{Text|"("|#FFB100}} + e$ + {{Text|"))"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    addedexp:
                    e$ = {{Text|""|#FFB100}}
                    nexp = nexp + {{Text|1|#F580B1}}
                {{Text|ELSE|#F0F0F0}}
                    e$ = e$ + sp + e2$
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            {{Text|IF|#F0F0F0}} stringprocessinghappened {{Text|THEN|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"if (("|#FFB100}} + cleanupstringprocessingcall$ + f12$ + {{Text|"))¦¦new_error){"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"if (("|#FFB100}} + f12$ + {{Text|")¦¦new_error){"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            controllevel = controllevel + {{Text|1|#F580B1}}
            controlref(controllevel) = controlref(controllevel - {{Text|1|#F580B1}})
            controltype(controllevel) = {{Text|18|#F580B1}}
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'static scope commands:|#31C4C4}}
    {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            vWatchAddLabel linenumber, {{Text|0|#F580B1}}
            WriteBufLine MainTxtBuf, {{Text|"do{*__LONG_VWATCH_LINENUMBER= "|#FFB100}} + str2$(linenumber) + {{Text|"; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"|#FFB100}}
        {{Text|ELSE|#F0F0F0}}
            WriteBufLine MainTxtBuf, {{Text|"do{"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'WriteBufLine MainTxtBuf, "S_" + str2$(statementn) + ":;"|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"PALETTE"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"USING"|#FFB100}} {{Text|THEN|#F0F0F0}}
                l$ = SCase$({{Text|"Palette"|#FFB100}} + sp + {{Text|"Using"|#FFB100}} + sp)
                {{Text|IF|#F0F0F0}} n < {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected PALETTE USING array-name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|'check array|#31C4C4}}
                e$ = getelement$(ca$, {{Text|3|#F580B1}})
                {{Text|IF|#F0F0F0}} FindArray(e$) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    z = {{Text|1|#F580B1}}
                    t = id.arraytype
                    {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) <> {{Text|16|#F580B1}} {{Text|AND|#F0F0F0}} (t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) <> {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} z = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}} z = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISOFFSETINBITS {{Text|THEN|#F0F0F0}} z = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}} z = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}} z = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}} z = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} z = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Array must be of type INTEGER or LONG"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    bits = t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} pu_gotarray
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                a$ = {{Text|"Expected PALETTE USING array-name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                pu_gotarray:
                {{Text|'add () if index not specified|#31C4C4}}
                {{Text|IF|#F0F0F0}} n = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
                    e$ = e$ + sp + {{Text|"("|#FFB100}} + sp + {{Text|")"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} n = {{Text|4|#F580B1}} {{Text|OR|#F0F0F0}} getelement$(a$, {{Text|4|#F580B1}}) <> {{Text|"("|#FFB100}} {{Text|OR|#F0F0F0}} getelement$(a$, n) <> {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected PALETTE USING array-name(...)"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    e$ = e$ + sp + getelements$(ca$, {{Text|4|#F580B1}}, n)
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                e$ = fixoperationorder$(e$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                l$ = l$ + tlayout$
                e$ = evaluatetotyp(e$, {{Text|-2|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                WriteBufLine MainTxtBuf, {{Text|"sub_paletteusing("|#FFB100}} + e$ + {{Text|","|#FFB100}} + str2(bits) + {{Text|");"|#FFB100}}
                layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'using|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'palette|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'n>1|#31C4C4}}
    {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"KEY"|#FFB100}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected KEY ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
        l$ = SCase$({{Text|"KEY"|#FFB100}}) + sp
        {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"OFF"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} n > {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected KEY OFF only"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            l$ = l$ + SCase$({{Text|"Off"|#FFB100}}): layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            WriteBufLine MainTxtBuf, {{Text|"key_off();"|#FFB100}}
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"ON"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} n > {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected KEY ON only"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            l$ = l$ + SCase$({{Text|"On"|#FFB100}}): layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            WriteBufLine MainTxtBuf, {{Text|"key_on();"|#FFB100}}
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"LIST"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} n > {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected KEY LIST only"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            l$ = l$ + SCase$({{Text|"List"|#FFB100}}): layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            WriteBufLine MainTxtBuf, {{Text|"key_list();"|#FFB100}}
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'search for comma to indicate assignment|#31C4C4}}
        B = {{Text|0|#F580B1}}: e$ = {{Text|""|#FFB100}}
        {{Text|FOR|#F0F0F0}} i = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n
            e2$ = getelement(ca$, i)
            {{Text|IF|#F0F0F0}} e2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} e2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} e2$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} key_assignment
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) {{Text|THEN|#F0F0F0}} e$ = e$ + sp + e2$ {{Text|ELSE|#F0F0F0}} e$ = e2$
        {{Text|NEXT|#F0F0F0}}
        {{Text|'assume KEY(x) ON/OFF/STOP and handle as a sub|#31C4C4}}
        {{Text|GOTO|#F0F0F0}} key_fallthrough
        key_assignment:
        {{Text|'KEY x, "string"|#31C4C4}}
        {{Text|'index|#31C4C4}}
        e$ = fixoperationorder(e$)
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
        l$ = l$ + tlayout$ + sp2 + {{Text|","|#FFB100}} + sp
        e$ = evaluatetotyp(e$, {{Text|32&|#F580B1}})
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
        WriteBufRawData MainTxtBuf, {{Text|"key_assign("|#FFB100}} + e$ + {{Text|","|#FFB100}}
        {{Text|'string|#31C4C4}}
        e$ = getelements$(ca$, i, n)
        e$ = fixoperationorder(e$)
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
        l$ = l$ + tlayout$
        e$ = evaluatetotyp(e$, ISSTRING)
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
        WriteBufLine MainTxtBuf, e$ + {{Text|");"|#FFB100}}
        layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
        {{Text|GOTO|#F0F0F0}} finishedline
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'KEY|#31C4C4}}
    key_fallthrough:
    {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"FIELD"|#FFB100}} {{Text|THEN|#F0F0F0}}
        {{Text|'get filenumber|#31C4C4}}
        B = {{Text|0|#F580B1}}: e$ = {{Text|""|#FFB100}}
        {{Text|FOR|#F0F0F0}} i = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n
            e2$ = getelement(ca$, i)
            {{Text|IF|#F0F0F0}} e2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} e2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} e2$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} fieldgotfn
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) {{Text|THEN|#F0F0F0}} e$ = e$ + sp + e2$ {{Text|ELSE|#F0F0F0}} e$ = e2$
        {{Text|NEXT|#F0F0F0}}
        {{Text|GOTO|#F0F0F0}} fielderror
        fieldgotfn:
        {{Text|IF|#F0F0F0}} e$ = {{Text|"#"|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} fielderror
        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(e$, {{Text|2|#F580B1}}) = {{Text|"#"|#FFB100}} + sp {{Text|THEN|#F0F0F0}} e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|2|#F580B1}}): l$ = SCase$({{Text|"Field"|#FFB100}}) + sp + {{Text|"#"|#FFB100}} + sp2 {{Text|ELSE|#F0F0F0}} l$ = SCase$({{Text|"Field"|#FFB100}}) + sp
        e$ = fixoperationorder(e$)
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
        l$ = l$ + tlayout$ + sp2 + {{Text|","|#FFB100}} + sp
        e$ = evaluatetotyp(e$, {{Text|32&|#F580B1}})
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
        WriteBufLine MainTxtBuf, {{Text|"field_new("|#FFB100}} + e$ + {{Text|");"|#FFB100}}
        fieldnext:
        {{Text|'get fieldwidth|#31C4C4}}
        {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} fielderror
        B = {{Text|0|#F580B1}}: e$ = {{Text|""|#FFB100}}
        {{Text|FOR|#F0F0F0}} i = i {{Text|TO|#F0F0F0}} n
            e2$ = getelement(ca$, i)
            {{Text|IF|#F0F0F0}} e2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} e2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(e2$) = {{Text|"AS"|#FFB100}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} fieldgotfw
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) {{Text|THEN|#F0F0F0}} e$ = e$ + sp + e2$ {{Text|ELSE|#F0F0F0}} e$ = e2$
        {{Text|NEXT|#F0F0F0}}
        {{Text|GOTO|#F0F0F0}} fielderror
        fieldgotfw:
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} fielderror
        e$ = fixoperationorder(e$)
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
        l$ = l$ + tlayout$ + sp + SCase$({{Text|"As"|#FFB100}}) + sp
        sizee$ = evaluatetotyp(e$, {{Text|32&|#F580B1}})
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
        {{Text|'get variable name|#31C4C4}}
        {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} fielderror
        B = {{Text|0|#F580B1}}: e$ = {{Text|""|#FFB100}}
        {{Text|FOR|#F0F0F0}} i = i {{Text|TO|#F0F0F0}} n
            e2$ = getelement(ca$, i)
            {{Text|IF|#F0F0F0}} e2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} e2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} (i = n {{Text|OR|#F0F0F0}} e2$ = {{Text|","|#FFB100}}) {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} e2$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} i = i - {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) {{Text|THEN|#F0F0F0}} e$ = e$ + sp + e2$ {{Text|ELSE|#F0F0F0}} e$ = e2$
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|GOTO|#F0F0F0}} fieldgotfname
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) {{Text|THEN|#F0F0F0}} e$ = e$ + sp + e2$ {{Text|ELSE|#F0F0F0}} e$ = e2$
        {{Text|NEXT|#F0F0F0}}
        {{Text|GOTO|#F0F0F0}} fielderror
        fieldgotfname:
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} fielderror
        {{Text|'evaluate it to check it is a STRING|#31C4C4}}
        e$ = fixoperationorder(e$)
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
        l$ = l$ + tlayout$
        e$ = evaluate(e$, typ)
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} fielderror
        {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}} a$ = {{Text|"Fixed length strings cannot be used in a FIELD statement"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} fielderror
        e$ = refer(e$, typ, {{Text|0|#F580B1}})
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
        WriteBufLine MainTxtBuf, {{Text|"field_add("|#FFB100}} + e$ + {{Text|","|#FFB100}} + sizee$ + {{Text|");"|#FFB100}}
        {{Text|IF|#F0F0F0}} i < n {{Text|THEN|#F0F0F0}}
            i = i + {{Text|1|#F580B1}}
            e$ = getelement(a$, i)
            {{Text|IF|#F0F0F0}} e$ <> {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ,"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            l$ = l$ + sp2 + {{Text|","|#FFB100}} + sp
            i = i + {{Text|1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} fieldnext
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
        {{Text|GOTO|#F0F0F0}} finishedline
        fielderror: a$ = {{Text|"Expected FIELD #filenumber, characters AS variable$, ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'1=IF (awaiting END IF)|#31C4C4}}
    {{Text|'2=FOR (awaiting NEXT)|#31C4C4}}
    {{Text|'3=DO (awaiting LOOP [UNTIL¦WHILE param])|#31C4C4}}
    {{Text|'4=DO WHILE/UNTIL (awaiting LOOP)|#31C4C4}}
    {{Text|'5=WHILE (awaiting WEND)|#31C4C4}}
    {{Text|IF|#F0F0F0}} n = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"EXIT"|#FFB100}} {{Text|THEN|#F0F0F0}}
            l$ = SCase$({{Text|"Exit"|#FFB100}}) + sp
            {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"DO"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|'scan backwards until previous control level reached|#31C4C4}}
                l$ = l$ + SCase$({{Text|"Do"|#FFB100}})
                {{Text|FOR|#F0F0F0}} i = controllevel {{Text|TO|#F0F0F0}} {{Text|1|#F580B1}} {{Text|STEP|#F0F0F0}} {{Text|-1|#F580B1}}
                    t = controltype(i)
                    {{Text|IF|#F0F0F0}} t = {{Text|3|#F580B1}} {{Text|OR|#F0F0F0}} t = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}}
                        WriteBufLine MainTxtBuf, {{Text|"goto dl_exit_"|#FFB100}} + str2$(controlid(i)) + {{Text|";"|#FFB100}}
                        layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                        {{Text|GOTO|#F0F0F0}} finishedline
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|NEXT|#F0F0F0}}
                a$ = {{Text|"EXIT DO without DO"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"FOR"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|'scan backwards until previous control level reached|#31C4C4}}
                l$ = l$ + SCase$({{Text|"For"|#FFB100}})
                {{Text|FOR|#F0F0F0}} i = controllevel {{Text|TO|#F0F0F0}} {{Text|1|#F580B1}} {{Text|STEP|#F0F0F0}} {{Text|-1|#F580B1}}
                    t = controltype(i)
                    {{Text|IF|#F0F0F0}} t = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                        WriteBufLine MainTxtBuf, {{Text|"goto fornext_exit_"|#FFB100}} + str2$(controlid(i)) + {{Text|";"|#FFB100}}
                        layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                        {{Text|GOTO|#F0F0F0}} finishedline
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|NEXT|#F0F0F0}}
                a$ = {{Text|"EXIT FOR without FOR"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"WHILE"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|'scan backwards until previous control level reached|#31C4C4}}
                l$ = l$ + SCase$({{Text|"While"|#FFB100}})
                {{Text|FOR|#F0F0F0}} i = controllevel {{Text|TO|#F0F0F0}} {{Text|1|#F580B1}} {{Text|STEP|#F0F0F0}} {{Text|-1|#F580B1}}
                    t = controltype(i)
                    {{Text|IF|#F0F0F0}} t = {{Text|5|#F580B1}} {{Text|THEN|#F0F0F0}}
                        WriteBufLine MainTxtBuf, {{Text|"goto ww_exit_"|#FFB100}} + str2$(controlid(i)) + {{Text|";"|#FFB100}}
                        layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                        {{Text|GOTO|#F0F0F0}} finishedline
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|NEXT|#F0F0F0}}
                a$ = {{Text|"EXIT WHILE without WHILE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"SELECT"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|'scan backwards until previous control level reached|#31C4C4}}
                l$ = l$ + SCase$({{Text|"Select"|#FFB100}})
                {{Text|FOR|#F0F0F0}} i = controllevel {{Text|TO|#F0F0F0}} {{Text|1|#F580B1}} {{Text|STEP|#F0F0F0}} {{Text|-1|#F580B1}}
                    t = controltype(i)
                    {{Text|IF|#F0F0F0}} t = {{Text|18|#F580B1}} {{Text|OR|#F0F0F0}} t = {{Text|19|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'CASE/CASE ELSE|#31C4C4}}
                        WriteBufLine MainTxtBuf, {{Text|"goto sc_"|#FFB100}} + str2$(controlid(i - {{Text|1|#F580B1}})) + {{Text|"_end;"|#FFB100}}
                        layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                        {{Text|GOTO|#F0F0F0}} finishedline
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|NEXT|#F0F0F0}}
                a$ = {{Text|"EXIT SELECT without SELECT"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"CASE"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|'scan backwards until previous control level reached|#31C4C4}}
                l$ = l$ + SCase$({{Text|"Case"|#FFB100}})
                {{Text|FOR|#F0F0F0}} i = controllevel {{Text|TO|#F0F0F0}} {{Text|1|#F580B1}} {{Text|STEP|#F0F0F0}} {{Text|-1|#F580B1}}
                    t = controltype(i)
                    {{Text|IF|#F0F0F0}} t = {{Text|18|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'CASE|#31C4C4}}
                        WriteBufLine MainTxtBuf, {{Text|"goto sc_ec_"|#FFB100}} + str2$(everycasenewcase + {{Text|1|#F580B1}}) + {{Text|"_end;"|#FFB100}}
                        layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                        {{Text|GOTO|#F0F0F0}} finishedline
                    {{Text|ELSEIF|#F0F0F0}} t = {{Text|19|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'CASE ELSE|#31C4C4}}
                        WriteBufLine MainTxtBuf, {{Text|"goto sc_"|#FFB100}} + str2$(controlid(i - {{Text|1|#F580B1}})) + {{Text|"_end;"|#FFB100}}
                        layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                        {{Text|GOTO|#F0F0F0}} finishedline
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|NEXT|#F0F0F0}}
                a$ = {{Text|"EXIT CASE without CASE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n >= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"ON"|#FFB100}} {{Text|AND|#F0F0F0}} secondelement$ = {{Text|"STRIG"|#FFB100}} {{Text|THEN|#F0F0F0}}
            DEPENDENCY(DEPENDENCY_DEVICEINPUT) = {{Text|1|#F580B1}}
            i = {{Text|3|#F580B1}}
            {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ("|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            a2$ = getelement$(ca$, i): i = i + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} a2$ <> {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ("|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            l$ = SCase$({{Text|"On"|#FFB100}} + sp + {{Text|"Strig"|#FFB100}} + sp2 + {{Text|"("|#FFB100}})
            {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            B = {{Text|0|#F580B1}}
            x = {{Text|0|#F580B1}}
            e2$ = {{Text|""|#FFB100}}
            e3$ = {{Text|""|#FFB100}}
            {{Text|FOR|#F0F0F0}} i = i {{Text|TO|#F0F0F0}} n
                e$ = getelement$(ca$, i)
                a = {{Text|ASC|#F0F0F0}}(e$)
                {{Text|IF|#F0F0F0}} a = {{Text|40|#F580B1}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} a = {{Text|41|#F580B1}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} B = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} onstriggotarg
                {{Text|IF|#F0F0F0}} a = {{Text|44|#F580B1}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    x = x + {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} x > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected )"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} e2$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ... ,"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    e3$ = e2$
                    e2$ = {{Text|""|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e2$) {{Text|THEN|#F0F0F0}} e2$ = e2$ + sp + e$ {{Text|ELSE|#F0F0F0}} e2$ = e$
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            a$ = {{Text|"Expected )"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            onstriggotarg:
            {{Text|IF|#F0F0F0}} e2$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ... )"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            WriteBufRawData MainTxtBuf, {{Text|"onstrig_setup("|#FFB100}}
            {{Text|'sort scanned results|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e3$) {{Text|THEN|#F0F0F0}}
                optI$ = e3$
                optController$ = e2$
                optPassed$ = {{Text|"1"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                optI$ = e2$
                optController$ = {{Text|"0"|#FFB100}}
                optPassed$ = {{Text|"0"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'i|#31C4C4}}
            e$ = fixoperationorder$(optI$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l$ = l$ + sp2 + tlayout$
            e$ = evaluatetotyp(e$, {{Text|32&|#F580B1}}): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            WriteBufRawData MainTxtBuf, e$ + {{Text|","|#FFB100}}
            {{Text|'controller , passed|#31C4C4}}
            {{Text|IF|#F0F0F0}} optPassed$ = {{Text|"1"|#FFB100}} {{Text|THEN|#F0F0F0}}
                e$ = fixoperationorder$(optController$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                l$ = l$ + sp2 + {{Text|","|#FFB100}} + sp + tlayout$
                e$ = evaluatetotyp(e$, {{Text|32&|#F580B1}}): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|ELSE|#F0F0F0}}
                e$ = optController$
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            WriteBufRawData MainTxtBuf, e$ + {{Text|","|#FFB100}} + optPassed$ + {{Text|","|#FFB100}}
            l$ = l$ + sp2 + {{Text|")"|#FFB100}} + sp {{Text|'close brackets|#31C4C4}}
            i = i + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected GOSUB/sub-name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            a2$ = getelement$(a$, i): i = i + {{Text|1|#F580B1}}
            onstrigid = onstrigid + {{Text|1|#F580B1}}
            WriteBufRawData MainTxtBuf, str2$(onstrigid) + {{Text|","|#FFB100}}
            {{Text|IF|#F0F0F0}} a2$ = {{Text|"GOSUB"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected linenumber/label"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                a2$ = getelement$(ca$, i): i = i + {{Text|1|#F580B1}}
                WriteBufLine MainTxtBuf, {{Text|"0);"|#FFB100}}
                {{Text|IF|#F0F0F0}} validlabel(a2$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid label"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                v = HashFind(a2$, HASHFLAG_LABEL, ignore, r)
                x = {{Text|1|#F580B1}}
                labchk60z:
                {{Text|IF|#F0F0F0}} v {{Text|THEN|#F0F0F0}}
                    s = Labels(r).Scope
                    {{Text|IF|#F0F0F0}} s = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'main scope?|#31C4C4}}
                        {{Text|IF|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} Labels(r).Scope = {{Text|0|#F580B1}} {{Text|'acquire scope|#31C4C4}}
                        x = {{Text|0|#F580B1}} {{Text|'already defined|#31C4C4}}
                        tlayout$ = {{Text|RTRIM$|#F0F0F0}}(Labels(r).cn)
                        Labels(r).Scope_Restriction = subfuncn
                        Labels(r).Error_Line = linenumber
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} v = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} v = HashFindCont(ignore, r): {{Text|GOTO|#F0F0F0}} labchk60z
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}}
                    {{Text|'does not exist|#31C4C4}}
                    nLabels = nLabels + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} nLabels > Labels_Ubound {{Text|THEN|#F0F0F0}} Labels_Ubound = Labels_Ubound * {{Text|2|#F580B1}}: {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} Labels({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} Labels_Ubound) {{Text|AS|#F0F0F0}} Label_Type
                    Labels(nLabels) = Empty_Label
                    HashAdd a2$, HASHFLAG_LABEL, nLabels
                    r = nLabels
                    Labels(r).State = {{Text|0|#F580B1}}
                    Labels(r).cn = tlayout$
                    Labels(r).Scope = {{Text|0|#F580B1}}
                    Labels(r).Error_Line = linenumber
                    Labels(r).Scope_Restriction = subfuncn
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'x|#31C4C4}}
                l$ = l$ + SCase$({{Text|"GoSub"|#FFB100}}) + sp + tlayout$
                WriteBufLine StrigjTxtBuf, {{Text|"if(strig_event_id=="|#FFB100}} + str2$(onstrigid) + {{Text|")goto LABEL_"|#FFB100}} + a2$ + {{Text|";"|#FFB100}}
                WriteBufLine StrigTxtBuf, {{Text|"case "|#FFB100}} + str2$(onstrigid) + {{Text|":"|#FFB100}}
                WriteBufLine StrigTxtBuf, {{Text|"strig_event_occurred++;"|#FFB100}}
                WriteBufLine StrigTxtBuf, {{Text|"strig_event_id="|#FFB100}} + str2$(onstrigid) + {{Text|";"|#FFB100}}
                WriteBufLine StrigTxtBuf, {{Text|"strig_event_occurred++;"|#FFB100}}
                WriteBufLine StrigTxtBuf, {{Text|"return_point[next_return_point++]=0;"|#FFB100}}
                WriteBufLine StrigTxtBuf, {{Text|"if (next_return_point>=return_points) more_return_points();"|#FFB100}}
                WriteBufLine StrigTxtBuf, {{Text|"QBMAIN(NULL);"|#FFB100}}
                WriteBufLine StrigTxtBuf, {{Text|"break;"|#FFB100}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} layout$ = l$ {{Text|ELSE|#F0F0F0}} layout$ = layout$ + sp + l$
                layoutdone = {{Text|1|#F580B1}}
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|ELSE|#F0F0F0}}
                {{Text|'establish whether sub a2$ exists using try|#31C4C4}}
                x = {{Text|0|#F580B1}}
                try = findid(a2$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                    {{Text|IF|#F0F0F0}} id.subfunc = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} x = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(a2$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|LOOP|#F0F0F0}}
                {{Text|IF|#F0F0F0}} x = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected GOSUB/sub"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                l$ = l$ + {{Text|RTRIM$|#F0F0F0}}(id.cn)
                WriteBufLine StrigTxtBuf, {{Text|"case "|#FFB100}} + str2$(onstrigid) + {{Text|":"|#FFB100}}
                WriteBufRawData StrigTxtBuf, {{Text|RTRIM$|#F0F0F0}}(id.callname) + {{Text|"("|#FFB100}}
                {{Text|IF|#F0F0F0}} id.args > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"SUB requires more than one argument"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} id.args = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected argument after SUB"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    WriteBufLine MainTxtBuf, {{Text|"0);"|#FFB100}}
                    WriteBufLine StrigTxtBuf, {{Text|");"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} id.args = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"SUB has no arguments"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    t = {{Text|CVL|#F0F0F0}}(id.arg)
                    B = t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                    {{Text|IF|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISARRAY) <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISFLOAT) <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISSTRING) <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISOFFSETINBITS) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Only SUB arguments of integer-type allowed"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} B = {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} ct$ = {{Text|"int8"|#FFB100}}
                    {{Text|IF|#F0F0F0}} B = {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} ct$ = {{Text|"int16"|#FFB100}}
                    {{Text|IF|#F0F0F0}} B = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} ct$ = {{Text|"int32"|#FFB100}}
                    {{Text|IF|#F0F0F0}} B = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} ct$ = {{Text|"int64"|#FFB100}}
                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISOFFSET {{Text|THEN|#F0F0F0}} ct$ = {{Text|"ptrszint"|#FFB100}}
                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}} ct$ = {{Text|"u"|#FFB100}} + ct$
                    WriteBufLine StrigTxtBuf, {{Text|"("|#FFB100}} + ct$ + {{Text|"*)&i64);"|#FFB100}}
                    e$ = getelements$(ca$, i, n)
                    e$ = fixoperationorder$(e$)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    l$ = l$ + sp + tlayout$
                    e$ = evaluatetotyp(e$, INTEGER64TYPE - ISPOINTER)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    WriteBufLine MainTxtBuf, e$ + {{Text|");"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                WriteBufLine StrigTxtBuf, {{Text|"break;"|#FFB100}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} layout$ = l$ {{Text|ELSE|#F0F0F0}} layout$ = layout$ + sp + l$
                layoutdone = {{Text|1|#F580B1}}
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n >= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"ON"|#FFB100}} {{Text|AND|#F0F0F0}} secondelement$ = {{Text|"TIMER"|#FFB100}} {{Text|THEN|#F0F0F0}}
            i = {{Text|3|#F580B1}}
            {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ("|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            a2$ = getelement$(ca$, i): i = i + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} a2$ <> {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ("|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            l$ = SCase$({{Text|"On"|#FFB100}} + sp + {{Text|"Timer"|#FFB100}} + sp2 + {{Text|"("|#FFB100}})
            {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            B = {{Text|0|#F580B1}}
            x = {{Text|0|#F580B1}}
            e2$ = {{Text|""|#FFB100}}
            e3$ = {{Text|""|#FFB100}}
            {{Text|FOR|#F0F0F0}} i = i {{Text|TO|#F0F0F0}} n
                e$ = getelement$(ca$, i)
                a = {{Text|ASC|#F0F0F0}}(e$)
                {{Text|IF|#F0F0F0}} a = {{Text|40|#F580B1}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} a = {{Text|41|#F580B1}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} B = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} ontimgotarg
                {{Text|IF|#F0F0F0}} a = {{Text|44|#F580B1}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    x = x + {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} x > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected )"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} e2$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ... ,"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    e3$ = e2$
                    e2$ = {{Text|""|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e2$) {{Text|THEN|#F0F0F0}} e2$ = e2$ + sp + e$ {{Text|ELSE|#F0F0F0}} e2$ = e$
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            a$ = {{Text|"Expected )"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            ontimgotarg:
            {{Text|IF|#F0F0F0}} e2$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ... )"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            WriteBufRawData MainTxtBuf, {{Text|"ontimer_setup("|#FFB100}}
            {{Text|'i|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e3$) {{Text|THEN|#F0F0F0}}
                e$ = fixoperationorder$(e3$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                l$ = l$ + sp2 + tlayout$ + {{Text|","|#FFB100}} + sp
                e$ = evaluatetotyp(e$, {{Text|32&|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                WriteBufRawData MainTxtBuf, e$ + {{Text|","|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                WriteBufRawData MainTxtBuf, {{Text|"0,"|#FFB100}}
                l$ = l$ + sp2
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'sec|#31C4C4}}
            e$ = fixoperationorder$(e2$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l$ = l$ + tlayout$ + sp2 + {{Text|")"|#FFB100}} + sp
            e$ = evaluatetotyp(e$, DOUBLETYPE - ISPOINTER)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            WriteBufRawData MainTxtBuf, e$ + {{Text|","|#FFB100}}
            i = i + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected GOSUB/sub-name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            a2$ = getelement$(a$, i): i = i + {{Text|1|#F580B1}}
            ontimerid = ontimerid + {{Text|1|#F580B1}}
            WriteBufRawData MainTxtBuf, str2$(ontimerid) + {{Text|","|#FFB100}}
            {{Text|IF|#F0F0F0}} a2$ = {{Text|"GOSUB"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected linenumber/label"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                a2$ = getelement$(ca$, i): i = i + {{Text|1|#F580B1}}
                WriteBufLine MainTxtBuf, {{Text|"0);"|#FFB100}}
                {{Text|IF|#F0F0F0}} validlabel(a2$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid label"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                v = HashFind(a2$, HASHFLAG_LABEL, ignore, r)
                x = {{Text|1|#F580B1}}
                labchk60:
                {{Text|IF|#F0F0F0}} v {{Text|THEN|#F0F0F0}}
                    s = Labels(r).Scope
                    {{Text|IF|#F0F0F0}} s = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'main scope?|#31C4C4}}
                        {{Text|IF|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} Labels(r).Scope = {{Text|0|#F580B1}} {{Text|'acquire scope|#31C4C4}}
                        x = {{Text|0|#F580B1}} {{Text|'already defined|#31C4C4}}
                        tlayout$ = {{Text|RTRIM$|#F0F0F0}}(Labels(r).cn)
                        Labels(r).Scope_Restriction = subfuncn
                        Labels(r).Error_Line = linenumber
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} v = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} v = HashFindCont(ignore, r): {{Text|GOTO|#F0F0F0}} labchk60
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}}
                    {{Text|'does not exist|#31C4C4}}
                    nLabels = nLabels + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} nLabels > Labels_Ubound {{Text|THEN|#F0F0F0}} Labels_Ubound = Labels_Ubound * {{Text|2|#F580B1}}: {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} Labels({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} Labels_Ubound) {{Text|AS|#F0F0F0}} Label_Type
                    Labels(nLabels) = Empty_Label
                    HashAdd a2$, HASHFLAG_LABEL, nLabels
                    r = nLabels
                    Labels(r).State = {{Text|0|#F580B1}}
                    Labels(r).cn = tlayout$
                    Labels(r).Scope = {{Text|0|#F580B1}}
                    Labels(r).Error_Line = linenumber
                    Labels(r).Scope_Restriction = subfuncn
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'x|#31C4C4}}
                l$ = l$ + SCase$({{Text|"GoSub"|#FFB100}}) + sp + tlayout$
                WriteBufLine TimejTxtBuf, {{Text|"if(timer_event_id=="|#FFB100}} + str2$(ontimerid) + {{Text|")goto LABEL_"|#FFB100}} + a2$ + {{Text|";"|#FFB100}}
                WriteBufLine TimeTxtBuf, {{Text|"case "|#FFB100}} + str2$(ontimerid) + {{Text|":"|#FFB100}}
                WriteBufLine TimeTxtBuf, {{Text|"timer_event_occurred++;"|#FFB100}}
                WriteBufLine TimeTxtBuf, {{Text|"timer_event_id="|#FFB100}} + str2$(ontimerid) + {{Text|";"|#FFB100}}
                WriteBufLine TimeTxtBuf, {{Text|"timer_event_occurred++;"|#FFB100}}
                WriteBufLine TimeTxtBuf, {{Text|"return_point[next_return_point++]=0;"|#FFB100}}
                WriteBufLine TimeTxtBuf, {{Text|"if (next_return_point>=return_points) more_return_points();"|#FFB100}}
                WriteBufLine TimeTxtBuf, {{Text|"QBMAIN(NULL);"|#FFB100}}
                WriteBufLine TimeTxtBuf, {{Text|"break;"|#FFB100}}
                {{Text|'call validlabel (to validate the label) [see goto]|#31C4C4}}
                {{Text|'increment ontimerid|#31C4C4}}
                {{Text|'use ontimerid to generate the jumper routine|#31C4C4}}
                {{Text|'etc.|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} layout$ = l$ {{Text|ELSE|#F0F0F0}} layout$ = layout$ + sp + l$
                layoutdone = {{Text|1|#F580B1}}
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|ELSE|#F0F0F0}}
                {{Text|'establish whether sub a2$ exists using try|#31C4C4}}
                x = {{Text|0|#F580B1}}
                try = findid(a2$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                    {{Text|IF|#F0F0F0}} id.subfunc = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} x = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(a2$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|LOOP|#F0F0F0}}
                {{Text|IF|#F0F0F0}} x = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected GOSUB/sub"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                l$ = l$ + {{Text|RTRIM$|#F0F0F0}}(id.cn)
                WriteBufLine TimeTxtBuf, {{Text|"case "|#FFB100}} + str2$(ontimerid) + {{Text|":"|#FFB100}}
                WriteBufRawData TimeTxtBuf, {{Text|RTRIM$|#F0F0F0}}(id.callname) + {{Text|"("|#FFB100}}
                {{Text|IF|#F0F0F0}} id.args > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"SUB requires more than one argument"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} id.args = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected argument after SUB"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    WriteBufLine MainTxtBuf, {{Text|"0);"|#FFB100}}
                    WriteBufLine TimeTxtBuf, {{Text|");"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} id.args = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"SUB has no arguments"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    t = {{Text|CVL|#F0F0F0}}(id.arg)
                    B = t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                    {{Text|IF|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISARRAY) <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISFLOAT) <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISSTRING) <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISOFFSETINBITS) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Only SUB arguments of integer-type allowed"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} B = {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} ct$ = {{Text|"int8"|#FFB100}}
                    {{Text|IF|#F0F0F0}} B = {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} ct$ = {{Text|"int16"|#FFB100}}
                    {{Text|IF|#F0F0F0}} B = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} ct$ = {{Text|"int32"|#FFB100}}
                    {{Text|IF|#F0F0F0}} B = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} ct$ = {{Text|"int64"|#FFB100}}
                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISOFFSET {{Text|THEN|#F0F0F0}} ct$ = {{Text|"ptrszint"|#FFB100}}
                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}} ct$ = {{Text|"u"|#FFB100}} + ct$
                    WriteBufLine TimeTxtBuf, {{Text|"("|#FFB100}} + ct$ + {{Text|"*)&i64);"|#FFB100}}
                    e$ = getelements$(ca$, i, n)
                    e$ = fixoperationorder$(e$)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    l$ = l$ + sp + tlayout$
                    e$ = evaluatetotyp(e$, INTEGER64TYPE - ISPOINTER)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    WriteBufLine MainTxtBuf, e$ + {{Text|");"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                WriteBufLine TimeTxtBuf, {{Text|"break;"|#FFB100}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} layout$ = l$ {{Text|ELSE|#F0F0F0}} layout$ = layout$ + sp + l$
                layoutdone = {{Text|1|#F580B1}}
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n >= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"ON"|#FFB100}} {{Text|AND|#F0F0F0}} secondelement$ = {{Text|"KEY"|#FFB100}} {{Text|THEN|#F0F0F0}}
            i = {{Text|3|#F580B1}}
            {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ("|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            a2$ = getelement$(ca$, i): i = i + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} a2$ <> {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ("|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            l$ = SCase$({{Text|"On"|#FFB100}} + sp + {{Text|"Key"|#FFB100}} + sp2 + {{Text|"("|#FFB100}})
            {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            B = {{Text|0|#F580B1}}
            x = {{Text|0|#F580B1}}
            e2$ = {{Text|""|#FFB100}}
            {{Text|FOR|#F0F0F0}} i = i {{Text|TO|#F0F0F0}} n
                e$ = getelement$(ca$, i)
                a = {{Text|ASC|#F0F0F0}}(e$)
                {{Text|IF|#F0F0F0}} a = {{Text|40|#F580B1}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} a = {{Text|41|#F580B1}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} B = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e2$) {{Text|THEN|#F0F0F0}} e2$ = e2$ + sp + e$ {{Text|ELSE|#F0F0F0}} e2$ = e$
            {{Text|NEXT|#F0F0F0}}
            {{Text|IF|#F0F0F0}} i = n + {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected )"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} e2$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ... )"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            e$ = fixoperationorder$(e2$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l$ = l$ + tlayout$ + sp2 + {{Text|")"|#FFB100}} + sp
            e$ = evaluatetotyp(e$, DOUBLETYPE - ISPOINTER)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            WriteBufRawData MainTxtBuf, {{Text|"onkey_setup("|#FFB100}} + e$ + {{Text|","|#FFB100}}
            i = i + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected GOSUB/sub-name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            a2$ = getelement$(a$, i): i = i + {{Text|1|#F580B1}}
            onkeyid = onkeyid + {{Text|1|#F580B1}}
            WriteBufRawData MainTxtBuf, str2$(onkeyid) + {{Text|","|#FFB100}}
            {{Text|IF|#F0F0F0}} a2$ = {{Text|"GOSUB"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected linenumber/label"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                a2$ = getelement$(ca$, i): i = i + {{Text|1|#F580B1}}
                WriteBufLine MainTxtBuf, {{Text|"0);"|#FFB100}}
                {{Text|IF|#F0F0F0}} validlabel(a2$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid label"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                v = HashFind(a2$, HASHFLAG_LABEL, ignore, r)
                x = {{Text|1|#F580B1}}
                labchk61:
                {{Text|IF|#F0F0F0}} v {{Text|THEN|#F0F0F0}}
                    s = Labels(r).Scope
                    {{Text|IF|#F0F0F0}} s = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'main scope?|#31C4C4}}
                        {{Text|IF|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} Labels(r).Scope = {{Text|0|#F580B1}} {{Text|'acquire scope|#31C4C4}}
                        x = {{Text|0|#F580B1}} {{Text|'already defined|#31C4C4}}
                        tlayout$ = {{Text|RTRIM$|#F0F0F0}}(Labels(r).cn)
                        Labels(r).Scope_Restriction = subfuncn
                        Labels(r).Error_Line = linenumber
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} v = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} v = HashFindCont(ignore, r): {{Text|GOTO|#F0F0F0}} labchk61
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}}
                    {{Text|'does not exist|#31C4C4}}
                    nLabels = nLabels + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} nLabels > Labels_Ubound {{Text|THEN|#F0F0F0}} Labels_Ubound = Labels_Ubound * {{Text|2|#F580B1}}: {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} Labels({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} Labels_Ubound) {{Text|AS|#F0F0F0}} Label_Type
                    Labels(nLabels) = Empty_Label
                    HashAdd a2$, HASHFLAG_LABEL, nLabels
                    r = nLabels
                    Labels(r).State = {{Text|0|#F580B1}}
                    Labels(r).cn = tlayout$
                    Labels(r).Scope = {{Text|0|#F580B1}}
                    Labels(r).Error_Line = linenumber
                    Labels(r).Scope_Restriction = subfuncn
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'x|#31C4C4}}
                l$ = l$ + SCase$({{Text|"GoSub"|#FFB100}}) + sp + tlayout$
                WriteBufLine KeyjTxtBuf, {{Text|"if(key_event_id=="|#FFB100}} + str2$(onkeyid) + {{Text|")goto LABEL_"|#FFB100}} + a2$ + {{Text|";"|#FFB100}}
                WriteBufLine KeyTxtBuf, {{Text|"case "|#FFB100}} + str2$(onkeyid) + {{Text|":"|#FFB100}}
                WriteBufLine KeyTxtBuf, {{Text|"key_event_occurred++;"|#FFB100}}
                WriteBufLine KeyTxtBuf, {{Text|"key_event_id="|#FFB100}} + str2$(onkeyid) + {{Text|";"|#FFB100}}
                WriteBufLine KeyTxtBuf, {{Text|"key_event_occurred++;"|#FFB100}}
                WriteBufLine KeyTxtBuf, {{Text|"return_point[next_return_point++]=0;"|#FFB100}}
                WriteBufLine KeyTxtBuf, {{Text|"if (next_return_point>=return_points) more_return_points();"|#FFB100}}
                WriteBufLine KeyTxtBuf, {{Text|"QBMAIN(NULL);"|#FFB100}}
                WriteBufLine KeyTxtBuf, {{Text|"break;"|#FFB100}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} layout$ = l$ {{Text|ELSE|#F0F0F0}} layout$ = layout$ + sp + l$
                layoutdone = {{Text|1|#F580B1}}
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|ELSE|#F0F0F0}}
                {{Text|'establish whether sub a2$ exists using try|#31C4C4}}
                x = {{Text|0|#F580B1}}
                try = findid(a2$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                    {{Text|IF|#F0F0F0}} id.subfunc = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} x = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(a2$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|LOOP|#F0F0F0}}
                {{Text|IF|#F0F0F0}} x = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected GOSUB/sub"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                l$ = l$ + {{Text|RTRIM$|#F0F0F0}}(id.cn)
                WriteBufLine KeyTxtBuf, {{Text|"case "|#FFB100}} + str2$(onkeyid) + {{Text|":"|#FFB100}}
                WriteBufRawData KeyTxtBuf, {{Text|RTRIM$|#F0F0F0}}(id.callname) + {{Text|"("|#FFB100}}
                {{Text|IF|#F0F0F0}} id.args > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"SUB requires more than one argument"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} id.args = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected argument after SUB"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    WriteBufLine MainTxtBuf, {{Text|"0);"|#FFB100}}
                    WriteBufLine KeyTxtBuf, {{Text|");"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} id.args = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"SUB has no arguments"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    t = {{Text|CVL|#F0F0F0}}(id.arg)
                    B = t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                    {{Text|IF|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISARRAY) <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISFLOAT) <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISSTRING) <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISOFFSETINBITS) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Only SUB arguments of integer-type allowed"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} B = {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} ct$ = {{Text|"int8"|#FFB100}}
                    {{Text|IF|#F0F0F0}} B = {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} ct$ = {{Text|"int16"|#FFB100}}
                    {{Text|IF|#F0F0F0}} B = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} ct$ = {{Text|"int32"|#FFB100}}
                    {{Text|IF|#F0F0F0}} B = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} ct$ = {{Text|"int64"|#FFB100}}
                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISOFFSET {{Text|THEN|#F0F0F0}} ct$ = {{Text|"ptrszint"|#FFB100}}
                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}} ct$ = {{Text|"u"|#FFB100}} + ct$
                    WriteBufLine KeyTxtBuf, {{Text|"("|#FFB100}} + ct$ + {{Text|"*)&i64);"|#FFB100}}
                    e$ = getelements$(ca$, i, n)
                    e$ = fixoperationorder$(e$)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    l$ = l$ + sp + tlayout$
                    e$ = evaluatetotyp(e$, INTEGER64TYPE - ISPOINTER)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    WriteBufLine MainTxtBuf, e$ + {{Text|");"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                WriteBufLine KeyTxtBuf, {{Text|"break;"|#FFB100}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} layout$ = l$ {{Text|ELSE|#F0F0F0}} layout$ = layout$ + sp + l$
                layoutdone = {{Text|1|#F580B1}}
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'SHARED (SUB)|#31C4C4}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"SHARED"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected SHARED ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            i = {{Text|2|#F580B1}}
            {{Text|IF|#F0F0F0}} subfuncn = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"SHARED must be used within a SUB/FUNCTION"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            l$ = SCase$({{Text|"Shared"|#FFB100}})
            subfuncshr:
            {{Text|'get variable name|#31C4C4}}
            n$ = getelement$(ca$, i): i = i + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} n$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected SHARED variable-name or SHARED AS type variable-list"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(n$) <> {{Text|"AS"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|'traditional dim syntax for SHARED|#31C4C4}}
                newSharedSyntax = {{Text|0|#F580B1}}
                s$ = removesymbol(n$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                l2$ = s$ {{Text|'either symbol or nothing|#31C4C4}}
                {{Text|'array?|#31C4C4}}
                a = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} getelement$(a$, i) = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} getelement$(a$, i + {{Text|1|#F580B1}}) <> {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ()"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    i = i + {{Text|2|#F580B1}}
                    a = {{Text|1|#F580B1}}
                    l2$ = l2$ + sp2 + {{Text|"("|#FFB100}} + sp2 + {{Text|")"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                method = {{Text|1|#F580B1}}
                {{Text|'specific type?|#31C4C4}}
                t$ = {{Text|""|#FFB100}}
                ts$ = {{Text|""|#FFB100}}
                t3$ = {{Text|""|#FFB100}}
                {{Text|IF|#F0F0F0}} getelement$(a$, i) = {{Text|"AS"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    l2$ = l2$ + sp + SCase$({{Text|"As"|#FFB100}})
                    getshrtyp:
                    i = i + {{Text|1|#F580B1}}
                    t2$ = getelement$(a$, i)
                    {{Text|IF|#F0F0F0}} t2$ <> {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} t2$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} t$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} t$ = t2$ {{Text|ELSE|#F0F0F0}} t$ = t$ + {{Text|" "|#FFB100}} + t2$
                        {{Text|IF|#F0F0F0}} t3$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} t3$ = t2$ {{Text|ELSE|#F0F0F0}} t3$ = t3$ + sp + t2$
                        {{Text|GOTO|#F0F0F0}} getshrtyp
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} t$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected AS type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    t = typname2typ(t$)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISINCONVENTIONALMEMORY {{Text|THEN|#F0F0F0}} t = t - ISINCONVENTIONALMEMORY
                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISPOINTER {{Text|THEN|#F0F0F0}} t = t - ISPOINTER
                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISREFERENCE {{Text|THEN|#F0F0F0}} t = t - ISREFERENCE
                    tsize = typname2typsize
                    method = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        ts$ = type2symbol$(t$)
                        l2$ = l2$ + sp + SCase2$(t3$)
                    {{Text|ELSE|#F0F0F0}}
                        t3$ = {{Text|RTRIM$|#F0F0F0}}(udtxcname(t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}))
                        {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(udtxcname(t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}})) = {{Text|"_MEM"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(t$) = {{Text|"MEM"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                            t3$ = {{Text|MID$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(udtxcname(t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}})), {{Text|2|#F580B1}})
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        l2$ = l2$ + sp + t3$
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'as|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(s$) <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LEN|#F0F0F0}}(t$) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected symbol or AS type after variable name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|'no symbol of type specified, apply default|#31C4C4}}
                {{Text|IF|#F0F0F0}} s$ = {{Text|""|#FFB100}} {{Text|AND|#F0F0F0}} t$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(n$, {{Text|1|#F580B1}}) = {{Text|"_"|#FFB100}} {{Text|THEN|#F0F0F0}} v = {{Text|27|#F580B1}} {{Text|ELSE|#F0F0F0}} v = {{Text|ASC|#F0F0F0}}({{Text|UCASE$|#F0F0F0}}(n$)) - {{Text|64|#F580B1}}
                    s$ = defineextaz(v)
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                NormalSharedBlock:
                {{Text|'switch to main module|#31C4C4}}
                oldsubfunc$ = subfunc$
                subfunc$ = {{Text|""|#FFB100}}
                defdatahandle = GlobTxtBuf
                DataTxtBuf = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"maindata.txt"|#FFB100}})
                FreeTxtBuf = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"mainfree.txt"|#FFB100}})
                {{Text|'use 'try' to locate the variable (if it already exists)|#31C4C4}}
                n2$ = n$ + s$ + ts$ {{Text|'note: either ts$ or s$ will exist unless it is a UDT|#31C4C4}}
                try = findid(n2$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                    {{Text|IF|#F0F0F0}} a {{Text|THEN|#F0F0F0}}
                        {{Text|'an array|#31C4C4}}
                        {{Text|IF|#F0F0F0}} id.arraytype {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(t$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} shrfound
                            t2 = id.arraytype: t2size = id.tsize
                            {{Text|IF|#F0F0F0}} t2 {{Text|AND|#F0F0F0}} ISINCONVENTIONALMEMORY {{Text|THEN|#F0F0F0}} t2 = t2 - ISINCONVENTIONALMEMORY
                            {{Text|IF|#F0F0F0}} t2 {{Text|AND|#F0F0F0}} ISPOINTER {{Text|THEN|#F0F0F0}} t2 = t2 - ISPOINTER
                            {{Text|IF|#F0F0F0}} t2 {{Text|AND|#F0F0F0}} ISREFERENCE {{Text|THEN|#F0F0F0}} t2 = t2 - ISREFERENCE
                            {{Text|IF|#F0F0F0}} t = t2 {{Text|AND|#F0F0F0}} tsize = t2size {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} shrfound
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|'not an array|#31C4C4}}
                        {{Text|IF|#F0F0F0}} id.t {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(t$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} shrfound
                            t2 = id.t: t2size = id.tsize
                            {{Text|IF|#F0F0F0}} t2 {{Text|AND|#F0F0F0}} ISINCONVENTIONALMEMORY {{Text|THEN|#F0F0F0}} t2 = t2 - ISINCONVENTIONALMEMORY
                            {{Text|IF|#F0F0F0}} t2 {{Text|AND|#F0F0F0}} ISPOINTER {{Text|THEN|#F0F0F0}} t2 = t2 - ISPOINTER
                            {{Text|IF|#F0F0F0}} t2 {{Text|AND|#F0F0F0}} ISREFERENCE {{Text|THEN|#F0F0F0}} t2 = t2 - ISREFERENCE
                            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"SHARED:comparing:"|#FFB100}}; t; t2, tsize; t2size
                            {{Text|IF|#F0F0F0}} t = t2 {{Text|AND|#F0F0F0}} tsize = t2size {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} shrfound
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(n2$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|LOOP|#F0F0F0}}
                {{Text|'unknown variable|#31C4C4}}
                {{Text|IF|#F0F0F0}} a {{Text|THEN|#F0F0F0}} a$ = {{Text|"Array '"|#FFB100}} + n$ + {{Text|"' not defined"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|'create variable|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(s$) {{Text|THEN|#F0F0F0}} typ$ = s$ {{Text|ELSE|#F0F0F0}} typ$ = t$
                {{Text|IF|#F0F0F0}} optionexplicit {{Text|THEN|#F0F0F0}} a$ = {{Text|"Variable '"|#FFB100}} + n$ + {{Text|"' ("|#FFB100}} + symbol2fulltypename$(typ$) + {{Text|") not defined"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                bypassNextVariable = {{Text|-1|#F580B1}}
                retval = dim2(n$, typ$, method, {{Text|""|#FFB100}})
                manageVariableList {{Text|""|#FFB100}}, vWatchNewVariable$, {{Text|0|#F580B1}}, {{Text|2|#F580B1}}
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|'note: variable created!|#31C4C4}}
                shrfound:
                {{Text|IF|#F0F0F0}} newSharedSyntax = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    l$ = l$ + sp + {{Text|RTRIM$|#F0F0F0}}(id.cn) + l2$
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} sharedAsLayoutAdded = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        sharedAsLayoutAdded = {{Text|-1|#F580B1}}
                        l$ = l$ + l2$ + sp$ + {{Text|RTRIM$|#F0F0F0}}(id.cn) + l3$
                    {{Text|ELSE|#F0F0F0}}
                        l$ = l$ + sp$ + {{Text|RTRIM$|#F0F0F0}}(id.cn) + l3$
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                ids(currentid).share = ids(currentid).share {{Text|OR|#F0F0F0}} {{Text|2|#F580B1}} {{Text|'set as temporarily shared|#31C4C4}}
                {{Text|'method must apply to the current sub/function regardless of how the variable was defined in 'main'|#31C4C4}}
                lmay = {{Text|LEN|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(id.mayhave)): lmust = {{Text|LEN|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(id.musthave))
                {{Text|IF|#F0F0F0}} lmay <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} lmust <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (method = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} lmust = {{Text|0|#F580B1}}) {{Text|OR|#F0F0F0}} (method = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} lmay = {{Text|0|#F580B1}}) {{Text|THEN|#F0F0F0}}
                        revertmaymusthaven = revertmaymusthaven + {{Text|1|#F580B1}}
                        revertmaymusthave(revertmaymusthaven) = currentid
                        {{Text|SWAP|#F0F0F0}} ids(currentid).musthave, ids(currentid).mayhave
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'switch back to sub/func|#31C4C4}}
                subfunc$ = oldsubfunc$
                DataTxtBuf = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"data"|#FFB100}} + str2$(subfuncn) + {{Text|".txt"|#FFB100}})
                FreeTxtBuf = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"free"|#FFB100}} + str2$(subfuncn) + {{Text|".txt"|#FFB100}})
                defdatahandle = DataTxtBuf
                {{Text|IF|#F0F0F0}} newSharedSyntax {{Text|THEN|#F0F0F0}} {{Text|RETURN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} getelement$(a$, i) = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|1|#F580B1}}: l$ = l$ + sp2 + {{Text|","|#FFB100}}: {{Text|GOTO|#F0F0F0}} subfuncshr
                {{Text|IF|#F0F0F0}} getelement$(a$, i) <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ,"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|ELSE|#F0F0F0}}
                {{Text|'new dim syntax for SHARED!|#31C4C4}}
                i = i - {{Text|1|#F580B1}} {{Text|'relocate back to "AS"|#31C4C4}}
                {{Text|'estabilish the data type:|#31C4C4}}
                t$ = {{Text|""|#FFB100}}
                ts$ = {{Text|""|#FFB100}}
                t3$ = {{Text|""|#FFB100}}
                n$ = {{Text|""|#FFB100}}
                previousElement$ = {{Text|""|#FFB100}}
                l2$ = sp + SCase$({{Text|"As"|#FFB100}})
                sharedAsLayoutAdded = {{Text|0|#F580B1}}
                getshrtyp2:
                i = i + {{Text|1|#F580B1}}
                t2$ = getelement$(a$, i)
                {{Text|IF|#F0F0F0}} t2$ <> {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} t2$ <> {{Text|"("|#FFB100}} {{Text|AND|#F0F0F0}} t2$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|'get first variable name|#31C4C4}}
                    n$ = getelement$(ca$, i)
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(previousElement$) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} t$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} t$ = previousElement$ {{Text|ELSE|#F0F0F0}} t$ = t$ + {{Text|" "|#FFB100}} + previousElement$
                        {{Text|IF|#F0F0F0}} t3$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} t3$ = previousElement$ {{Text|ELSE|#F0F0F0}} t3$ = t3$ + sp + previousElement$
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    previousElement$ = t2$
                    {{Text|GOTO|#F0F0F0}} getshrtyp2
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} t$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected SHARED AS type variable-list or SHARED variable-name AS type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                t = typname2typ(t$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISINCONVENTIONALMEMORY {{Text|THEN|#F0F0F0}} t = t - ISINCONVENTIONALMEMORY
                {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISPOINTER {{Text|THEN|#F0F0F0}} t = t - ISPOINTER
                {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISREFERENCE {{Text|THEN|#F0F0F0}} t = t - ISREFERENCE
                tsize = typname2typsize
                method = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    ts$ = type2symbol$(t$)
                    l2$ = l2$ + sp + SCase2$(t3$)
                {{Text|ELSE|#F0F0F0}}
                    t3$ = {{Text|RTRIM$|#F0F0F0}}(udtxcname(t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}))
                    {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(udtxcname(t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}})) = {{Text|"_MEM"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(t$) = {{Text|"MEM"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        t3$ = {{Text|MID$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(udtxcname(t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}})), {{Text|2|#F580B1}})
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    l2$ = l2$ + sp + t3$
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                subfuncshr2:
                s$ = removesymbol(n$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} s$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                    a$ = {{Text|"Cannot use type symbol with SHARED AS type variable-list ("|#FFB100}} + s$ + {{Text|")"|#FFB100}}
                    {{Text|GOTO|#F0F0F0}} errmes
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'array?|#31C4C4}}
                a = {{Text|0|#F580B1}}
                l3$ = {{Text|""|#FFB100}}
                {{Text|IF|#F0F0F0}} getelement$(a$, i) = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} getelement$(a$, i + {{Text|1|#F580B1}}) <> {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ()"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    i = i + {{Text|2|#F580B1}}
                    a = {{Text|1|#F580B1}}
                    l3$ = sp2 + {{Text|"("|#FFB100}} + sp2 + {{Text|")"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                newSharedSyntax = {{Text|-1|#F580B1}}
                {{Text|GOSUB|#F0F0F0}} NormalSharedBlock
                newSharedSyntax = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} getelement$(a$, i) = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}}
                    i = i + {{Text|1|#F580B1}}
                    l$ = l$ + sp2 + {{Text|","|#FFB100}}
                    {{Text|'get next variable name|#31C4C4}}
                    n$ = getelement$(ca$, i): i = i + {{Text|1|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} subfuncshr2
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} getelement$(a$, i) <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ,"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'EXIT SUB/FUNCTION|#31C4C4}}
    {{Text|IF|#F0F0F0}} n = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"EXIT"|#FFB100}} {{Text|THEN|#F0F0F0}}
            sf = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"FUNCTION"|#FFB100}} {{Text|THEN|#F0F0F0}} sf = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"SUB"|#FFB100}} {{Text|THEN|#F0F0F0}} sf = {{Text|2|#F580B1}}
            {{Text|IF|#F0F0F0}} sf {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(subfunc) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"EXIT "|#FFB100}} + secondelement$ + {{Text|" must be used within a "|#FFB100}} + secondelement$: {{Text|GOTO|#F0F0F0}} errmes
                WriteBufLine MainTxtBuf, {{Text|"goto exit_subfunc;"|#FFB100}}
                {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(subfunc, {{Text|4|#F580B1}}) = {{Text|"SUB_"|#FFB100}} {{Text|THEN|#F0F0F0}} secondelement$ = SCase$({{Text|"Sub"|#FFB100}}) {{Text|ELSE|#F0F0F0}} secondelement$ = SCase$({{Text|"Function"|#FFB100}})
                l$ = SCase$({{Text|"Exit"|#FFB100}}) + sp + secondelement$
                layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'_ECHO checking|#31C4C4}}
    {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"_ECHO"|#FFB100}} {{Text|OR|#F0F0F0}} (firstelement$ = {{Text|"ECHO"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}}{{Text|_Console|#F0F0F0}} = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            a$ = qb64prefix$ + {{Text|"ECHO requires $CONSOLE or $CONSOLE:ONLY to be set first"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'ASC statement (fully inline)|#31C4C4}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"ASC"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} getelement$(a$, {{Text|2|#F580B1}}) <> {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ( after ASC"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|'calculate 3 parts|#31C4C4}}
            useposition = {{Text|0|#F580B1}}
            part = {{Text|1|#F580B1}}
            i = {{Text|3|#F580B1}}
            a3$ = {{Text|""|#FFB100}}
            stringvariable$ = {{Text|""|#FFB100}}
            position$ = {{Text|""|#FFB100}}
            B = {{Text|0|#F580B1}}
            {{Text|DO|#F0F0F0}}
                {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} {{Text|'got part 3|#31C4C4}}
                    {{Text|IF|#F0F0F0}} part <> {{Text|3|#F580B1}} {{Text|OR|#F0F0F0}} {{Text|LEN|#F0F0F0}}(a3$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ASC ( ... , ... ) = ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    expression$ = a3$
                    {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                a2$ = getelement$(ca$, i)
                {{Text|IF|#F0F0F0}} a2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} a2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} B = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} part = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'eg. ASC(a$)=65|#31C4C4}}
                        {{Text|IF|#F0F0F0}} getelement$(a$, i + {{Text|1|#F580B1}}) <> {{Text|"="|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ="|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        stringvariable$ = a3$
                        position$ = {{Text|"1"|#FFB100}}
                        part = {{Text|3|#F580B1}}: a3$ = {{Text|""|#FFB100}}: i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} ascgotpart
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} part = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'eg. ASC(a$,i)=65|#31C4C4}}
                        {{Text|IF|#F0F0F0}} getelement$(a$, i + {{Text|1|#F580B1}}) <> {{Text|"="|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ="|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        useposition = {{Text|1|#F580B1}}
                        position$ = a3$
                        part = {{Text|3|#F580B1}}: a3$ = {{Text|""|#FFB100}}: i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} ascgotpart
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'fall through, already in part 3|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} part = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} stringvariable$ = a3$: part = {{Text|2|#F580B1}}: a3$ = {{Text|""|#FFB100}}: {{Text|GOTO|#F0F0F0}} ascgotpart
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(a3$) {{Text|THEN|#F0F0F0}} a3$ = a3$ + sp + a2$ {{Text|ELSE|#F0F0F0}} a3$ = a2$
                ascgotpart:
                i = i + {{Text|1|#F580B1}}
            {{Text|LOOP|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(stringvariable$) = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} {{Text|LEN|#F0F0F0}}(position$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ASC ( ... , ... ) = ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|'validate stringvariable$|#31C4C4}}
            stringvariable$ = fixoperationorder$(stringvariable$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l$ = SCase$({{Text|"Asc"|#FFB100}}) + sp2 + {{Text|"("|#FFB100}} + sp2 + tlayout$
            e$ = evaluate(stringvariable$, sourcetyp)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ASC ( string-variable , ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            stringvariable$ = evaluatetotyp(stringvariable$, ISSTRING)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} position$ = {{Text|"1"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} useposition {{Text|THEN|#F0F0F0}} l$ = l$ + sp2 + {{Text|","|#FFB100}} + sp + {{Text|"1"|#FFB100}} + sp2 + {{Text|")"|#FFB100}} + sp + {{Text|"="|#FFB100}} {{Text|ELSE|#F0F0F0}} l$ = l$ + sp2 + {{Text|")"|#FFB100}} + sp + {{Text|"="|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"tqbs="|#FFB100}} + stringvariable$ + {{Text|"; if (!new_error){"|#FFB100}}
                e$ = fixoperationorder$(expression$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                l$ = l$ + sp + tlayout$
                e$ = evaluatetotyp(e$, {{Text|32&|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                WriteBufLine MainTxtBuf, {{Text|"tmp_long="|#FFB100}} + e$ + {{Text|"; if (!new_error){"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"if (tqbs->len){tqbs->chr[0]=tmp_long;}else{error(5);}"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"}}"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"tqbs="|#FFB100}} + stringvariable$ + {{Text|"; if (!new_error){"|#FFB100}}
                e$ = fixoperationorder$(position$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                l$ = l$ + sp2 + {{Text|","|#FFB100}} + sp + tlayout$ + sp2 + {{Text|")"|#FFB100}} + sp + {{Text|"="|#FFB100}}
                e$ = evaluatetotyp(e$, {{Text|32&|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                WriteBufLine MainTxtBuf, {{Text|"tmp_fileno="|#FFB100}} + e$ + {{Text|"; if (!new_error){"|#FFB100}}
                e$ = fixoperationorder$(expression$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                l$ = l$ + sp + tlayout$
                e$ = evaluatetotyp(e$, {{Text|32&|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                WriteBufLine MainTxtBuf, {{Text|"tmp_long="|#FFB100}} + e$ + {{Text|"; if (!new_error){"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"}}}"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'MID$ statement|#31C4C4}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"MID$"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} getelement$(a$, {{Text|2|#F580B1}}) <> {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ( after MID$"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|'calculate 4 parts|#31C4C4}}
            length$ = {{Text|""|#FFB100}}
            part = {{Text|1|#F580B1}}
            i = {{Text|3|#F580B1}}
            a3$ = {{Text|""|#FFB100}}
            stringvariable$ = {{Text|""|#FFB100}}
            start$ = {{Text|""|#FFB100}}
            B = {{Text|0|#F580B1}}
            {{Text|DO|#F0F0F0}}
                {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} part <> {{Text|4|#F580B1}} {{Text|OR|#F0F0F0}} a3$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected MID$(...)=..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    stringexpression$ = a3$
                    {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                a2$ = getelement$(ca$, i)
                {{Text|IF|#F0F0F0}} a2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} a2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} B = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} part = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} getelement$(a$, i + {{Text|1|#F580B1}}) <> {{Text|"="|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected = after )"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        start$ = a3$: part = {{Text|4|#F580B1}}: a3$ = {{Text|""|#FFB100}}: i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} midgotpart
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} part = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} getelement$(a$, i + {{Text|1|#F580B1}}) <> {{Text|"="|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected = after )"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|IF|#F0F0F0}} a3$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Omit , before ) if omitting length in MID$ statement"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        length$ = a3$: part = {{Text|4|#F580B1}}: a3$ = {{Text|""|#FFB100}}: i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} midgotpart
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} part = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} stringvariable$ = a3$: part = {{Text|2|#F580B1}}: a3$ = {{Text|""|#FFB100}}: {{Text|GOTO|#F0F0F0}} midgotpart
                    {{Text|IF|#F0F0F0}} part = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} start$ = a3$: part = {{Text|3|#F580B1}}: a3$ = {{Text|""|#FFB100}}: {{Text|GOTO|#F0F0F0}} midgotpart
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(a3$) {{Text|THEN|#F0F0F0}} a3$ = a3$ + sp + a2$ {{Text|ELSE|#F0F0F0}} a3$ = a2$
                midgotpart:
                i = i + {{Text|1|#F580B1}}
            {{Text|LOOP|#F0F0F0}}
            {{Text|IF|#F0F0F0}} stringvariable$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Syntax error - first parameter must be a string variable/array-element"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} start$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Syntax error - second parameter not optional"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|'check if it is a valid source string|#31C4C4}}
            stringvariable$ = fixoperationorder$(stringvariable$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l$ = SCase$({{Text|"Mid$"|#FFB100}}) + sp2 + {{Text|"("|#FFB100}} + sp2 + tlayout$
            e$ = evaluate(stringvariable$, sourcetyp)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"MID$ expects a string variable/array-element as its first argument"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            stringvariable$ = evaluatetotyp(stringvariable$, ISSTRING)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            start$ = fixoperationorder$(start$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l$ = l$ + sp2 + {{Text|","|#FFB100}} + sp + tlayout$
            start$ = evaluatetotyp((start$), {{Text|32&|#F580B1}})
            stringexpression$ = fixoperationorder$(stringexpression$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l2$ = tlayout$
            stringexpression$ = evaluatetotyp(stringexpression$, ISSTRING)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(length$) {{Text|THEN|#F0F0F0}}
                length$ = fixoperationorder$(length$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                l$ = l$ + sp2 + {{Text|","|#FFB100}} + sp + tlayout$
                length$ = evaluatetotyp(length$, {{Text|32&|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                WriteBufLine MainTxtBuf, {{Text|"sub_mid("|#FFB100}} + stringvariable$ + {{Text|","|#FFB100}} + start$ + {{Text|","|#FFB100}} + length$ + {{Text|","|#FFB100}} + stringexpression$ + {{Text|",1);"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"sub_mid("|#FFB100}} + stringvariable$ + {{Text|","|#FFB100}} + start$ + {{Text|",0,"|#FFB100}} + stringexpression$ + {{Text|",0);"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            l$ = l$ + sp2 + {{Text|")"|#FFB100}} + sp + {{Text|"="|#FFB100}} + sp + l2$
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n >= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"ERASE"|#FFB100}} {{Text|THEN|#F0F0F0}}
            i = {{Text|2|#F580B1}}
            l$ = SCase$({{Text|"Erase"|#FFB100}})
            erasenextarray:
            var$ = getelement$(ca$, i)
            x$ = var$: ls$ = removesymbol(x$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} FindArray(var$) {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                l$ = l$ + sp + {{Text|RTRIM$|#F0F0F0}}(id.cn) + ls$
                {{Text|'erase the array|#31C4C4}}
                clearerase:
                n$ = {{Text|RTRIM$|#F0F0F0}}(id.callname)
                bytesperelement$ = str2((id.arraytype {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) \ {{Text|8|#F580B1}})
                {{Text|IF|#F0F0F0}} id.arraytype {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}} bytesperelement$ = str2(id.tsize)
                {{Text|IF|#F0F0F0}} id.arraytype {{Text|AND|#F0F0F0}} ISOFFSETINBITS {{Text|THEN|#F0F0F0}} bytesperelement$ = str2((id.arraytype {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}})) + {{Text|"/8+1"|#FFB100}}
                {{Text|IF|#F0F0F0}} id.arraytype {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                    bytesperelement$ = str2(udtxsize(id.arraytype {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) \ {{Text|8|#F580B1}})
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"if ("|#FFB100}} + n$ + {{Text|"[2]&1){"|#FFB100}} {{Text|'array is defined|#31C4C4}}
                WriteBufLine MainTxtBuf, {{Text|"if ("|#FFB100}} + n$ + {{Text|"[2]&2){"|#FFB100}} {{Text|'array is static|#31C4C4}}
                {{Text|IF|#F0F0F0}} (id.arraytype {{Text|AND|#F0F0F0}} ISSTRING) <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (id.arraytype {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    WriteBufRawData MainTxtBuf, {{Text|"tmp_long="|#FFB100}}
                    {{Text|FOR|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|ABS|#F0F0F0}}(id.arrayelements)
                        {{Text|IF|#F0F0F0}} i2 <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufRawData MainTxtBuf, {{Text|"*"|#FFB100}}
                        WriteBufRawData MainTxtBuf, n$ + {{Text|"["|#FFB100}} + str2(i2 * {{Text|4|#F580B1}} - {{Text|4|#F580B1}} + {{Text|5|#F580B1}}) + {{Text|"]"|#FFB100}}
                    {{Text|NEXT|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|";"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"while(tmp_long--){"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"((qbs*)(((uint64*)("|#FFB100}} + n$ + {{Text|"[0]))[tmp_long]))->len=0;"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|'numeric|#31C4C4}}
                    {{Text|'clear array|#31C4C4}}
                    WriteBufRawData MainTxtBuf, {{Text|"memset((void*)("|#FFB100}} + n$ + {{Text|"[0]),0,"|#FFB100}}
                    {{Text|FOR|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|ABS|#F0F0F0}}(id.arrayelements)
                        {{Text|IF|#F0F0F0}} i2 <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufRawData MainTxtBuf, {{Text|"*"|#FFB100}}
                        WriteBufRawData MainTxtBuf, n$ + {{Text|"["|#FFB100}} + str2(i2 * {{Text|4|#F580B1}} - {{Text|4|#F580B1}} + {{Text|5|#F580B1}}) + {{Text|"]"|#FFB100}}
                    {{Text|NEXT|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"*"|#FFB100}} + bytesperelement$ + {{Text|");"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"}else{"|#FFB100}} {{Text|'array is dynamic|#31C4C4}}
                {{Text|'1. free memory & any allocated strings|#31C4C4}}
                {{Text|IF|#F0F0F0}} (id.arraytype {{Text|AND|#F0F0F0}} ISSTRING) <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (id.arraytype {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|'free strings|#31C4C4}}
                    WriteBufRawData MainTxtBuf, {{Text|"tmp_long="|#FFB100}}
                    {{Text|FOR|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|ABS|#F0F0F0}}(id.arrayelements)
                        {{Text|IF|#F0F0F0}} i2 <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufRawData MainTxtBuf, {{Text|"*"|#FFB100}}
                        WriteBufRawData MainTxtBuf, n$ + {{Text|"["|#FFB100}} + str2(i2 * {{Text|4|#F580B1}} - {{Text|4|#F580B1}} + {{Text|5|#F580B1}}) + {{Text|"]"|#FFB100}}
                    {{Text|NEXT|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|";"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"while(tmp_long--){"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"qbs_free((qbs*)(((uint64*)("|#FFB100}} + n$ + {{Text|"[0]))[tmp_long]));"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
                    {{Text|'free memory|#31C4C4}}
                    WriteBufLine MainTxtBuf, {{Text|"free((void*)("|#FFB100}} + n$ + {{Text|"[0]));"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|'free memory|#31C4C4}}
                    WriteBufLine MainTxtBuf, {{Text|"if ("|#FFB100}} + n$ + {{Text|"[2]&4){"|#FFB100}} {{Text|'cmem array|#31C4C4}}
                    WriteBufLine MainTxtBuf, {{Text|"cmem_dynamic_free((uint8*)("|#FFB100}} + n$ + {{Text|"[0]));"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"}else{"|#FFB100}} {{Text|'non-cmem array|#31C4C4}}
                    WriteBufLine MainTxtBuf, {{Text|"free((void*)("|#FFB100}} + n$ + {{Text|"[0]));"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'2. set array (and its elements) as undefined|#31C4C4}}
                WriteBufLine MainTxtBuf, n$ + {{Text|"[2]^=1;"|#FFB100}} {{Text|'remove defined flag, keeping other flags (such as cmem)|#31C4C4}}
                {{Text|'set dimensions as undefined|#31C4C4}}
                {{Text|FOR|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|ABS|#F0F0F0}}(id.arrayelements)
                    B = i2 * {{Text|4|#F580B1}}
                    WriteBufLine MainTxtBuf, n$ + {{Text|"["|#FFB100}} + str2(B) + {{Text|"]=2147483647;"|#FFB100}} {{Text|'base|#31C4C4}}
                    WriteBufLine MainTxtBuf, n$ + {{Text|"["|#FFB100}} + str2(B + {{Text|1|#F580B1}}) + {{Text|"]=0;"|#FFB100}} {{Text|'num. index|#31C4C4}}
                    WriteBufLine MainTxtBuf, n$ + {{Text|"["|#FFB100}} + str2(B + {{Text|2|#F580B1}}) + {{Text|"]=0;"|#FFB100}} {{Text|'multiplier|#31C4C4}}
                {{Text|NEXT|#F0F0F0}}
                {{Text|IF|#F0F0F0}} (id.arraytype {{Text|AND|#F0F0F0}} ISSTRING) <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (id.arraytype {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    WriteBufLine MainTxtBuf, n$ + {{Text|"[0]=(ptrszint)&nothingstring;"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    WriteBufLine MainTxtBuf, n$ + {{Text|"[0]=(ptrszint)nothingvalue;"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}} {{Text|'static/dynamic|#31C4C4}}
                WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}} {{Text|'array is defined|#31C4C4}}
                {{Text|IF|#F0F0F0}} clearerasereturn = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} clearerasereturn = {{Text|0|#F580B1}}: {{Text|GOTO|#F0F0F0}} clearerasereturned
                {{Text|GOTO|#F0F0F0}} erasedarray
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            a$ = {{Text|"Undefined array passed to ERASE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            erasedarray:
            {{Text|IF|#F0F0F0}} i < n {{Text|THEN|#F0F0F0}}
                i = i + {{Text|1|#F580B1}}: n$ = getelement$(a$, i): {{Text|IF|#F0F0F0}} n$ <> {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ,"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                l$ = l$ + sp2 + {{Text|","|#FFB100}}
                i = i + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected , ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|GOTO|#F0F0F0}} erasenextarray
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'DIM/REDIM/STATIC|#31C4C4}}
    {{Text|IF|#F0F0F0}} n >= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
        dimoption = {{Text|0|#F580B1}}: redimoption = {{Text|0|#F580B1}}: commonoption = {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"DIM"|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = SCase$({{Text|"Dim"|#FFB100}}): dimoption = {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"REDIM"|#FFB100}} {{Text|THEN|#F0F0F0}}
            l$ = SCase$({{Text|"ReDim"|#FFB100}})
            dimoption = {{Text|2|#F580B1}}: redimoption = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"_PRESERVE"|#FFB100}} {{Text|OR|#F0F0F0}} (secondelement$ = {{Text|"PRESERVE"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                redimoption = {{Text|2|#F580B1}}
                {{Text|IF|#F0F0F0}} secondelement$ = {{Text|"_PRESERVE"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    l$ = l$ + sp + SCase$({{Text|"_Preserve"|#FFB100}})
                {{Text|ELSE|#F0F0F0}}
                    l$ = l$ + sp + SCase$({{Text|"Preserve"|#FFB100}})
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} n = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected REDIM "|#FFB100}} + qb64prefix$ + {{Text|"PRESERVE ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"STATIC"|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = SCase$({{Text|"Static"|#FFB100}}): dimoption = {{Text|3|#F580B1}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"COMMON"|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = SCase$({{Text|"Common"|#FFB100}}): dimoption = {{Text|1|#F580B1}}: commonoption = {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} dimoption {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} dimoption = {{Text|3|#F580B1}} {{Text|AND|#F0F0F0}} subfuncn = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"STATIC must be used within a SUB/FUNCTION"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} commonoption = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} subfuncn <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"COMMON cannot be used within a SUB/FUNCTION"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            i = {{Text|2|#F580B1}}
            {{Text|IF|#F0F0F0}} redimoption = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} i = {{Text|3|#F580B1}}
            {{Text|IF|#F0F0F0}} dimoption <> {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'shared cannot be static|#31C4C4}}
                a2$ = getelement(a$, i)
                {{Text|IF|#F0F0F0}} a2$ = {{Text|"SHARED"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} subfuncn <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"DIM/REDIM SHARED invalid within a SUB/FUNCTION"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    dimshared = {{Text|1|#F580B1}}
                    i = i + {{Text|1|#F580B1}}
                    l$ = l$ + sp + SCase$({{Text|"Shared"|#FFB100}})
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} dimoption = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} dimstatic = {{Text|1|#F580B1}}: AllowLocalName = {{Text|1|#F580B1}}
            {{Text|'look for new dim syntax: DIM AS variabletype var1, var2, etc....|#31C4C4}}
            e$ = getelement$(a$, i)
            {{Text|IF|#F0F0F0}} e$ <> {{Text|"AS"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|'no "AS", so this is the traditional dim syntax|#31C4C4}}
                dimnext:
                newDimSyntax = {{Text|0|#F580B1}}
                notype = {{Text|0|#F580B1}}
                listarray = {{Text|0|#F580B1}}
                {{Text|'old chain code|#31C4C4}}
                {{Text|'chaincommonarray=0|#31C4C4}}
                varname$ = getelement(ca$, i): i = i + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} varname$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected "|#FFB100}} + firstelement$ + {{Text|" variable-name or "|#FFB100}} + firstelement$ + {{Text|" AS type variable-list"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|'get the next element|#31C4C4}}
                {{Text|IF|#F0F0F0}} i >= n + {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|""|#FFB100}} {{Text|ELSE|#F0F0F0}} e$ = getelement(a$, i): i = i + {{Text|1|#F580B1}}
                {{Text|'check if next element is a ( to create an array|#31C4C4}}
                elements$ = {{Text|""|#FFB100}}
                {{Text|IF|#F0F0F0}} e$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}}
                    B = {{Text|1|#F580B1}}
                    {{Text|FOR|#F0F0F0}} i = i {{Text|TO|#F0F0F0}} n
                        e$ = getelement(ca$, i)
                        {{Text|IF|#F0F0F0}} e$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} e$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) {{Text|THEN|#F0F0F0}} elements$ = elements$ + sp + e$ {{Text|ELSE|#F0F0F0}} elements$ = e$
                    {{Text|NEXT|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} B <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected )"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    i = i + {{Text|1|#F580B1}} {{Text|'set i to point to the next element|#31C4C4}}
                    {{Text|IF|#F0F0F0}} commonoption {{Text|THEN|#F0F0F0}} elements$ = {{Text|"?"|#FFB100}}
                    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"DIM2:array:elements$:["|#FFB100}} + elements$ + {{Text|"]"|#FFB100}}
                    {{Text|'arrayname() means list array to it will automatically be static when it is formally dimensioned later|#31C4C4}}
                    {{Text|'note: listed arrays are always created in dynamic memory, but their contents are not erased|#31C4C4}}
                    {{Text|'      this differs from static arrays from SUB...STATIC and the unique QB64 method -> STATIC arrayname(100)|#31C4C4}}
                    {{Text|IF|#F0F0F0}} dimoption = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'STATIC used|#31C4C4}}
                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'nothing between brackets|#31C4C4}}
                            listarray = {{Text|1|#F580B1}} {{Text|'add to static list|#31C4C4}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'last element was ")"|#31C4C4}}
                    {{Text|'get next element|#31C4C4}}
                    {{Text|IF|#F0F0F0}} i >= n + {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|""|#FFB100}} {{Text|ELSE|#F0F0F0}} e$ = getelement(a$, i): i = i + {{Text|1|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'e$="("|#31C4C4}}
                d$ = e$
                dimmethod = {{Text|0|#F580B1}}
                appendname$ = {{Text|""|#FFB100}} {{Text|'the symbol to append to name returned by dim2|#31C4C4}}
                appendtype$ = {{Text|""|#FFB100}} {{Text|'eg. sp+AS+spINTEGER|#31C4C4}}
                dim2typepassback$ = {{Text|""|#FFB100}}
                {{Text|'does varname have an appended symbol?|#31C4C4}}
                s$ = removesymbol$(varname$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} validname(varname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid variable name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} s$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                    typ$ = s$
                    dimmethod = {{Text|1|#F580B1}}
                    appendname$ = typ$
                    {{Text|GOTO|#F0F0F0}} dimgottyp
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} d$ = {{Text|"AS"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    appendtype$ = sp + SCase$({{Text|"As"|#FFB100}})
                    typ$ = {{Text|""|#FFB100}}
                    {{Text|FOR|#F0F0F0}} i = i {{Text|TO|#F0F0F0}} n
                        d$ = getelement(a$, i)
                        {{Text|IF|#F0F0F0}} d$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                        typ$ = typ$ + d$ + {{Text|" "|#FFB100}}
                        appendtype$ = appendtype$ + sp + d$
                        d$ = {{Text|""|#FFB100}}
                    {{Text|NEXT|#F0F0F0}}
                    appendtype$ = SCase2$(appendtype$) {{Text|'capitalise default types (udt override this later if necessary)|#31C4C4}}
                    typ$ = {{Text|RTRIM$|#F0F0F0}}(typ$)
                    {{Text|GOTO|#F0F0F0}} dimgottyp
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'auto-define type based on name|#31C4C4}}
                notype = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(varname$, {{Text|1|#F580B1}}) = {{Text|"_"|#FFB100}} {{Text|THEN|#F0F0F0}} v = {{Text|27|#F580B1}} {{Text|ELSE|#F0F0F0}} v = {{Text|ASC|#F0F0F0}}({{Text|UCASE$|#F0F0F0}}(varname$)) - {{Text|64|#F580B1}}
                typ$ = defineaz(v)
                dimmethod = {{Text|1|#F580B1}}
                {{Text|GOTO|#F0F0F0}} dimgottyp
                dimgottyp:
                {{Text|IF|#F0F0F0}} d$ <> {{Text|""|#FFB100}} {{Text|AND|#F0F0F0}} d$ <> {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"DIM: Expected ,"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|'In QBASIC, if no type info is given it can refer to an expeicit/formally defined array|#31C4C4}}
                {{Text|IF|#F0F0F0}} notype <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} dimoption <> {{Text|3|#F580B1}} {{Text|AND|#F0F0F0}} dimoption <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'not DIM or STATIC which only create new content|#31C4C4}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) {{Text|THEN|#F0F0F0}} {{Text|'an array|#31C4C4}}
                        {{Text|IF|#F0F0F0}} FindArray(varname$) {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(id.mayhave)) {{Text|THEN|#F0F0F0}} {{Text|'explict/formally defined|#31C4C4}}
                                typ$ = id2fulltypename$ {{Text|'adopt type|#31C4C4}}
                                dimmethod = {{Text|0|#F580B1}} {{Text|'set as formally defined|#31C4C4}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                NormalDimBlock:
                {{Text|IF|#F0F0F0}} dimoption = {{Text|3|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) {{Text|THEN|#F0F0F0}} {{Text|'eg. STATIC a(100)|#31C4C4}}
                    {{Text|'does a conflicting array exist? (use findarray) if so again this should lead to duplicate definition|#31C4C4}}
                    typ2$ = symbol2fulltypename$(typ$)
                    t = typname2typ(typ2$): ts = typname2typsize
                    {{Text|'try name without any extension|#31C4C4}}
                    {{Text|IF|#F0F0F0}} FindArray(varname$) {{Text|THEN|#F0F0F0}} {{Text|'name without any symbol|#31C4C4}}
                        {{Text|IF|#F0F0F0}} id.insubfuncn = subfuncn {{Text|THEN|#F0F0F0}} {{Text|'global cannot conflict with static|#31C4C4}}
                            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(id.musthave)) {{Text|THEN|#F0F0F0}}
                                {{Text|'if types match then fail|#31C4C4}}
                                {{Text|IF|#F0F0F0}} (id.arraytype {{Text|AND|#F0F0F0}} (ISFLOAT + ISUDT + {{Text|511|#F580B1}} + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t {{Text|AND|#F0F0F0}} (ISFLOAT + ISUDT + {{Text|511|#F580B1}} + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} ts = id.tsize {{Text|THEN|#F0F0F0}}
                                        a$ = {{Text|"Name already in use ("|#FFB100}} + varname$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} dimmethod = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    a$ = {{Text|"Name already in use ("|#FFB100}} + varname$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes {{Text|'explicit over explicit|#31C4C4}}
                                {{Text|ELSE|#F0F0F0}}
                                    {{Text|'if types match then fail|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} (id.arraytype {{Text|AND|#F0F0F0}} (ISFLOAT + ISUDT + {{Text|511|#F580B1}} + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t {{Text|AND|#F0F0F0}} (ISFLOAT + ISUDT + {{Text|511|#F580B1}} + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} ts = id.tsize {{Text|THEN|#F0F0F0}}
                                            a$ = {{Text|"Name already in use ("|#FFB100}} + varname$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'add extension (if possible)|#31C4C4}}
                    {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        s2$ = type2symbol$(typ2$)
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|IF|#F0F0F0}} FindArray(varname$ + s2$) {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} id.insubfuncn = subfuncn {{Text|THEN|#F0F0F0}} {{Text|'global cannot conflict with static|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(id.musthave)) {{Text|THEN|#F0F0F0}}
                                    {{Text|'if types match then fail|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} (id.arraytype {{Text|AND|#F0F0F0}} (ISFLOAT + ISUDT + {{Text|511|#F580B1}} + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t {{Text|AND|#F0F0F0}} (ISFLOAT + ISUDT + {{Text|511|#F580B1}} + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} ts = id.tsize {{Text|THEN|#F0F0F0}}
                                            a$ = {{Text|"Name already in use ("|#FFB100}} + varname$ + s2$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|ELSE|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} dimmethod = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        a$ = {{Text|"Name already in use ("|#FFB100}} + varname$ + s2$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes {{Text|'explicit over explicit|#31C4C4}}
                                    {{Text|ELSE|#F0F0F0}}
                                        {{Text|'if types match then fail|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} (id.arraytype {{Text|AND|#F0F0F0}} (ISFLOAT + ISUDT + {{Text|511|#F580B1}} + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t {{Text|AND|#F0F0F0}} (ISFLOAT + ISUDT + {{Text|511|#F580B1}} + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) {{Text|THEN|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} ts = id.tsize {{Text|THEN|#F0F0F0}}
                                                a$ = {{Text|"Name already in use ("|#FFB100}} + varname$ + s2$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'not a UDT|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} listarray {{Text|THEN|#F0F0F0}} {{Text|'eg. STATIC a()|#31C4C4}}
                    {{Text|'note: list is cleared by END SUB/FUNCTION|#31C4C4}}
                    {{Text|'is a conflicting array already listed? if so this should cause a duplicate definition error|#31C4C4}}
                    {{Text|'check for conflict within list:|#31C4C4}}
                    xi = {{Text|1|#F580B1}}
                    {{Text|FOR|#F0F0F0}} x = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} staticarraylistn
                        varname2$ = getelement$(staticarraylist, xi): xi = xi + {{Text|1|#F580B1}}
                        typ2$ = getelement$(staticarraylist, xi): xi = xi + {{Text|1|#F580B1}}
                        dimmethod2 = {{Text|VAL|#F0F0F0}}(getelement$(staticarraylist, xi)): xi = xi + {{Text|1|#F580B1}}
                        {{Text|'check if they are similar|#31C4C4}}
                        {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(varname$) = {{Text|UCASE$|#F0F0F0}}(varname2$) {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} dimmethod2 = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|'old using symbol|#31C4C4}}
                                {{Text|IF|#F0F0F0}} symbol2fulltypename$(typ$) = typ2$ {{Text|THEN|#F0F0F0}} a$ = {{Text|"Name already in use ("|#FFB100}} + varname$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|'old using AS|#31C4C4}}
                                {{Text|IF|#F0F0F0}} dimmethod = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    a$ = {{Text|"Name already in use ("|#FFB100}} + varname$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|ELSE|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} symbol2fulltypename$(typ$) = typ2$ {{Text|THEN|#F0F0F0}} a$ = {{Text|"Name already in use ("|#FFB100}} + varname$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|NEXT|#F0F0F0}}
                    {{Text|'does a conflicting array exist? (use findarray) if so again this should lead to duplicate definition|#31C4C4}}
                    typ2$ = symbol2fulltypename$(typ$)
                    t = typname2typ(typ2$): ts = typname2typsize
                    {{Text|'try name without any extension|#31C4C4}}
                    {{Text|IF|#F0F0F0}} FindArray(varname$) {{Text|THEN|#F0F0F0}} {{Text|'name without any symbol|#31C4C4}}
                        {{Text|IF|#F0F0F0}} id.insubfuncn = subfuncn {{Text|THEN|#F0F0F0}} {{Text|'global cannot conflict with static|#31C4C4}}
                            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(id.musthave)) {{Text|THEN|#F0F0F0}}
                                {{Text|'if types match then fail|#31C4C4}}
                                {{Text|IF|#F0F0F0}} (id.arraytype {{Text|AND|#F0F0F0}} (ISFLOAT + ISUDT + {{Text|511|#F580B1}} + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t {{Text|AND|#F0F0F0}} (ISFLOAT + ISUDT + {{Text|511|#F580B1}} + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} ts = id.tsize {{Text|THEN|#F0F0F0}}
                                        a$ = {{Text|"Name already in use ("|#FFB100}} + varname$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} dimmethod = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    a$ = {{Text|"Name already in use ("|#FFB100}} + varname$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes {{Text|'explicit over explicit|#31C4C4}}
                                {{Text|ELSE|#F0F0F0}}
                                    {{Text|'if types match then fail|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} (id.arraytype {{Text|AND|#F0F0F0}} (ISFLOAT + ISUDT + {{Text|511|#F580B1}} + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t {{Text|AND|#F0F0F0}} (ISFLOAT + ISUDT + {{Text|511|#F580B1}} + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} ts = id.tsize {{Text|THEN|#F0F0F0}}
                                            a$ = {{Text|"Name already in use ("|#FFB100}} + varname$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'add extension (if possible)|#31C4C4}}
                    {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        s2$ = type2symbol$(typ2$)
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|IF|#F0F0F0}} FindArray(varname$ + s2$) {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} id.insubfuncn = subfuncn {{Text|THEN|#F0F0F0}} {{Text|'global cannot conflict with static|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(id.musthave)) {{Text|THEN|#F0F0F0}}
                                    {{Text|'if types match then fail|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} (id.arraytype {{Text|AND|#F0F0F0}} (ISFLOAT + ISUDT + {{Text|511|#F580B1}} + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t {{Text|AND|#F0F0F0}} (ISFLOAT + ISUDT + {{Text|511|#F580B1}} + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} ts = id.tsize {{Text|THEN|#F0F0F0}}
                                            a$ = {{Text|"Name already in use ("|#FFB100}} + varname$ + s2$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|ELSE|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} dimmethod = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        a$ = {{Text|"Name already in use ("|#FFB100}} + varname$ + s2$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes {{Text|'explicit over explicit|#31C4C4}}
                                    {{Text|ELSE|#F0F0F0}}
                                        {{Text|'if types match then fail|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} (id.arraytype {{Text|AND|#F0F0F0}} (ISFLOAT + ISUDT + {{Text|511|#F580B1}} + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t {{Text|AND|#F0F0F0}} (ISFLOAT + ISUDT + {{Text|511|#F580B1}} + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) {{Text|THEN|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} ts = id.tsize {{Text|THEN|#F0F0F0}}
                                                a$ = {{Text|"Name already in use ("|#FFB100}} + varname$ + s2$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'not a UDT|#31C4C4}}
                    {{Text|'note: static list arrays cannot be created until they are formally [or informally] (RE)DIM'd later|#31C4C4}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(staticarraylist) {{Text|THEN|#F0F0F0}} staticarraylist = staticarraylist + sp
                    staticarraylist = staticarraylist + varname$ + sp + symbol2fulltypename$(typ$) + sp + str2(dimmethod)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    staticarraylistn = staticarraylistn + {{Text|1|#F580B1}}
                    l$ = l$ + sp + varname$ + appendname$ + sp2 + {{Text|"("|#FFB100}} + sp2 + {{Text|")"|#FFB100}} + appendtype$
                    {{Text|'note: none of the following code is run, dim2 call is also skipped|#31C4C4}}
                {{Text|ELSE|#F0F0F0}}
                    olddimstatic = dimstatic
                    {{Text|'check if varname is on the static list|#31C4C4}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) {{Text|THEN|#F0F0F0}} {{Text|'it's an array|#31C4C4}}
                        {{Text|IF|#F0F0F0}} subfuncn {{Text|THEN|#F0F0F0}} {{Text|'it's in a sub/function|#31C4C4}}
                            xi = {{Text|1|#F580B1}}
                            {{Text|FOR|#F0F0F0}} x = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} staticarraylistn
                                varname2$ = getelement$(staticarraylist, xi): xi = xi + {{Text|1|#F580B1}}
                                typ2$ = getelement$(staticarraylist, xi): xi = xi + {{Text|1|#F580B1}}
                                dimmethod2 = {{Text|VAL|#F0F0F0}}(getelement$(staticarraylist, xi)): xi = xi + {{Text|1|#F580B1}}
                                {{Text|'check if they are similar|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(varname$) = {{Text|UCASE$|#F0F0F0}}(varname2$) {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} symbol2fulltypename$(typ$) = typ2$ {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                        {{Text|IF|#F0F0F0}} dimmethod = dimmethod2 {{Text|THEN|#F0F0F0}}
                                            {{Text|'match found!|#31C4C4}}
                                            varname$ = varname2$
                                            dimstatic = {{Text|3|#F580B1}}
                                            {{Text|IF|#F0F0F0}} dimoption = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Array already listed as STATIC"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'typ|#31C4C4}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'varname|#31C4C4}}
                            {{Text|NEXT|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'COMMON exception|#31C4C4}}
                    {{Text|'note: COMMON alone does not imply SHARED|#31C4C4}}
                    {{Text|'      if either(or both) COMMON & later DIM have SHARED, variable becomes shared|#31C4C4}}
                    {{Text|IF|#F0F0F0}} commonoption {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) {{Text|THEN|#F0F0F0}}
                            {{Text|'add array to list|#31C4C4}}
                            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(commonarraylist) {{Text|THEN|#F0F0F0}} commonarraylist = commonarraylist + sp
                            {{Text|'note: dimmethod distinguishes between a%(...) vs a(...) AS INTEGER|#31C4C4}}
                            commonarraylist = commonarraylist + varname$ + sp + symbol2fulltypename$(typ$) + sp + str2(dimmethod) + sp + str2(dimshared)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            commonarraylistn = commonarraylistn + {{Text|1|#F580B1}}
                            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"common listed:"|#FFB100}} + varname$ + sp + symbol2fulltypename$(typ$) + sp + str2(dimmethod) + sp + str2(dimshared)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            x = {{Text|0|#F580B1}}
                            v$ = varname$
                            {{Text|IF|#F0F0F0}} dimmethod = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} v$ = v$ + typ$
                            try = findid(v$)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                                {{Text|IF|#F0F0F0}} id.arraytype {{Text|THEN|#F0F0F0}}
                                    t = typname2typ(typ$)
                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                    s = typname2typsize
                                    match = {{Text|1|#F580B1}}
                                    {{Text|'note: dimmethod 2 is already matched|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} dimmethod = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        t2 = id.arraytype
                                        s2 = id.tsize
                                        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISFLOAT) <> (t2 {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}} match = {{Text|0|#F580B1}}
                                        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUNSIGNED) <> (t2 {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}} match = {{Text|0|#F580B1}}
                                        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISSTRING) <> (t2 {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} match = {{Text|0|#F580B1}}
                                        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) <> (t2 {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) {{Text|THEN|#F0F0F0}} match = {{Text|0|#F580B1}}
                                        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISOFFSETINBITS) <> (t2 {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}} match = {{Text|0|#F580B1}}
                                        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUDT) <> (t2 {{Text|AND|#F0F0F0}} ISUDT) {{Text|THEN|#F0F0F0}} match = {{Text|0|#F580B1}}
                                        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) <> (t2 {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) {{Text|THEN|#F0F0F0}} match = {{Text|0|#F580B1}}
                                        {{Text|IF|#F0F0F0}} s <> s2 {{Text|THEN|#F0F0F0}} match = {{Text|0|#F580B1}}
                                        {{Text|'check for implicit/explicit declaration match|#31C4C4}}
                                        oldmethod = {{Text|0|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(id.musthave)) {{Text|THEN|#F0F0F0}} oldmethod = {{Text|1|#F580B1}}
                                        {{Text|IF|#F0F0F0}} oldmethod <> dimmethod {{Text|THEN|#F0F0F0}} match = {{Text|0|#F580B1}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} match {{Text|THEN|#F0F0F0}}
                                        x = currentid
                                        {{Text|IF|#F0F0F0}} dimshared {{Text|THEN|#F0F0F0}} ids(x).share = {{Text|1|#F580B1}} {{Text|'share if necessary|#31C4C4}}
                                        tlayout$ = {{Text|RTRIM$|#F0F0F0}}(id.cn) + sp + {{Text|"("|#FFB100}} + sp2 + {{Text|")"|#FFB100}}
                                        {{Text|IF|#F0F0F0}} dimmethod = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                                                dim2typepassback$ = {{Text|RTRIM$|#F0F0F0}}(udtxcname(t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}))
                                                {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(typ$) = {{Text|"MEM"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(udtxcname(t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}})) = {{Text|"_MEM"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                                    dim2typepassback$ = {{Text|MID$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(udtxcname(t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}})), {{Text|2|#F580B1}})
                                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                            {{Text|ELSE|#F0F0F0}}
                                                dim2typepassback$ = typ$
                                                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(dim2typepassback$, {{Text|" "|#FFB100}})
                                                    {{Text|ASC|#F0F0F0}}(dim2typepassback$, {{Text|INSTR|#F0F0F0}}(dim2typepassback$, {{Text|" "|#FFB100}})) = {{Text|ASC|#F0F0F0}}(sp)
                                                {{Text|LOOP|#F0F0F0}}
                                                dim2typepassback$ = SCase2$(dim2typepassback$)
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'method 0|#31C4C4}}
                                        {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'match|#31C4C4}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'arraytype|#31C4C4}}
                                {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(v$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|LOOP|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} x = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} x = idn + {{Text|1|#F580B1}}
                            {{Text|'note: the following code only adds include directives, everything else is defered|#31C4C4}}
                            ChainTxtBuf = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"chain.txt"|#FFB100}})
                            {{Text|'include directive|#31C4C4}}
                            WriteBufLine ChainTxtBuf, {{Text|"#include "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"chain"|#FFB100}} + str2$(x) + {{Text|".txt"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
                            {{Text|'create/clear include file|#31C4C4}}
                            ChainTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"chain"|#FFB100}} + str2$(x) + {{Text|".txt"|#FFB100}})
                            ChainTxtBuf = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"inpchain.txt"|#FFB100}})
                            {{Text|'include directive|#31C4C4}}
                            WriteBufLine ChainTxtBuf, {{Text|"#include "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"inpchain"|#FFB100}} + str2$(x) + {{Text|".txt"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
                            {{Text|'create/clear include file|#31C4C4}}
                            ChainTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"inpchain"|#FFB100}} + str2$(x) + {{Text|".txt"|#FFB100}})
                            {{Text|'note: elements$="?"|#31C4C4}}
                            {{Text|IF|#F0F0F0}} x <> idn + {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} skipdim {{Text|'array already exists|#31C4C4}}
                            {{Text|GOTO|#F0F0F0}} dimcommonarray
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'is varname on common list?|#31C4C4}}
                    {{Text|'******|#31C4C4}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) {{Text|THEN|#F0F0F0}} {{Text|'it's an array|#31C4C4}}
                        {{Text|IF|#F0F0F0}} subfuncn = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'not in a sub/function|#31C4C4}}
                            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"common checking:"|#FFB100}} + varname$
                            xi = {{Text|1|#F580B1}}
                            {{Text|FOR|#F0F0F0}} x = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} commonarraylistn
                                varname2$ = getelement$(commonarraylist, xi): xi = xi + {{Text|1|#F580B1}}
                                typ2$ = getelement$(commonarraylist, xi): xi = xi + {{Text|1|#F580B1}}
                                dimmethod2 = {{Text|VAL|#F0F0F0}}(getelement$(commonarraylist, xi)): xi = xi + {{Text|1|#F580B1}}
                                dimshared2 = {{Text|VAL|#F0F0F0}}(getelement$(commonarraylist, xi)): xi = xi + {{Text|1|#F580B1}}
                                {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"common checking against:"|#FFB100}} + varname2$ + sp + typ2$ + sp + str2(dimmethod2) + sp + str2(dimshared2)
                                {{Text|'check if they are similar|#31C4C4}}
                                {{Text|IF|#F0F0F0}} varname$ = varname2$ {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} symbol2fulltypename$(typ$) = typ2$ {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                        {{Text|IF|#F0F0F0}} dimmethod = dimmethod2 {{Text|THEN|#F0F0F0}}
                                            {{Text|'match found!|#31C4C4}}
                                            {{Text|'enforce shared status (if necessary)|#31C4C4}}
                                            {{Text|IF|#F0F0F0}} dimshared2 {{Text|THEN|#F0F0F0}} dimshared = dimshared {{Text|OR|#F0F0F0}} {{Text|2|#F580B1}} {{Text|'temp force SHARED|#31C4C4}}
                                            {{Text|'old chain code|#31C4C4}}
                                            {{Text|'chaincommonarray=x|#31C4C4}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'method|#31C4C4}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'typ|#31C4C4}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'varname|#31C4C4}}
                            {{Text|NEXT|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    dimcommonarray:
                    retval = dim2(varname$, typ$, dimmethod, elements$)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    skipdim:
                    {{Text|IF|#F0F0F0}} dimshared >= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} dimshared = dimshared - {{Text|2|#F580B1}}
                    {{Text|'non-array COMMON variable|#31C4C4}}
                    {{Text|IF|#F0F0F0}} commonoption <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|'CHAIN.TXT (save)|#31C4C4}}
                        use_global_byte_elements = {{Text|1|#F580B1}}
                        {{Text|'switch output from main.txt to chain.txt|#31C4C4}}
                        MainTxtBuf = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"chain.txt"|#FFB100}})
                        l2$ = tlayout$
                        WriteBufLine MainTxtBuf, {{Text|"int32val=1;"|#FFB100}} {{Text|'simple variable|#31C4C4}}
                        WriteBufLine MainTxtBuf, {{Text|"sub_put(FF,NULL,byte_element((uint64)&int32val,4,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
                        t = id.t
                        bits = t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                        {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}} bits = udtxsize(t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}})
                        {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}}
                                bits = id.tsize * {{Text|8|#F580B1}}
                            {{Text|ELSE|#F0F0F0}}
                                WriteBufLine MainTxtBuf, {{Text|"int64val=__STRING_"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(id.n) + {{Text|"->len*8;"|#FFB100}}
                                bits = {{Text|0|#F580B1}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} bits {{Text|THEN|#F0F0F0}}
                            WriteBufLine MainTxtBuf, {{Text|"int64val="|#FFB100}} + str2$(bits) + {{Text|";"|#FFB100}} {{Text|'size in bits|#31C4C4}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        WriteBufLine MainTxtBuf, {{Text|"sub_put(FF,NULL,byte_element((uint64)&int64val,8,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
                        {{Text|'put the variable|#31C4C4}}
                        e$ = {{Text|RTRIM$|#F0F0F0}}(id.n)
                        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}}
                                e$ = e$ + {{Text|"$"|#FFB100}} + str2$(id.tsize)
                            {{Text|ELSE|#F0F0F0}}
                                e$ = e$ + typevalue2symbol$(t)
                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        e$ = evaluatetotyp(fixoperationorder$(e$), {{Text|-4|#F580B1}})
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                        WriteBufLine MainTxtBuf, {{Text|"sub_put(FF,NULL,"|#FFB100}} + e$ + {{Text|",0);"|#FFB100}}
                        tlayout$ = l2$
                        {{Text|'revert output to main.txt|#31C4C4}}
                        MainTxtBuf = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"main.txt"|#FFB100}})
                        {{Text|'INPCHAIN.TXT (load)|#31C4C4}}
                        {{Text|'switch output from main.txt to chain.txt|#31C4C4}}
                        MainTxtBuf = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"inpchain.txt"|#FFB100}})
                        l2$ = tlayout$
                        WriteBufLine MainTxtBuf, {{Text|"if (int32val==1){"|#FFB100}}
                        {{Text|'get the size in bits|#31C4C4}}
                        WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,byte_element((uint64)&int64val,8,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
                        {{Text|'***assume correct size***|#31C4C4}}
                        e$ = {{Text|RTRIM$|#F0F0F0}}(id.n)
                        t = id.t
                        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}}
                                e$ = e$ + {{Text|"$"|#FFB100}} + str2$(id.tsize)
                            {{Text|ELSE|#F0F0F0}}
                                e$ = e$ + typevalue2symbol$(t)
                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                WriteBufLine MainTxtBuf, {{Text|"tqbs=qbs_new(int64val>>3,1);"|#FFB100}}
                                WriteBufLine MainTxtBuf, {{Text|"qbs_set(__STRING_"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(id.n) + {{Text|",tqbs);"|#FFB100}}
                                {{Text|'now that the string is the correct size, the following GET command will work correctly...|#31C4C4}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        e$ = evaluatetotyp(fixoperationorder$(e$), {{Text|-4|#F580B1}})
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                        WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,"|#FFB100}} + e$ + {{Text|",0);"|#FFB100}}
                        WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,byte_element((uint64)&int32val,4,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}} {{Text|'get next command|#31C4C4}}
                        WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
                        tlayout$ = l2$
                        {{Text|'revert output to main.txt|#31C4C4}}
                        MainTxtBuf = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"main.txt"|#FFB100}})
                        use_global_byte_elements = {{Text|0|#F580B1}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    commonarraylisted:
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(appendtype$) > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} newDimSyntax = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(dim2typepassback$) {{Text|THEN|#F0F0F0}} appendtype$ = sp + SCase$({{Text|"As"|#FFB100}}) + sp + dim2typepassback$
                        {{Text|IF|#F0F0F0}} newDimSyntaxTypePassBack = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            newDimSyntaxTypePassBack = {{Text|-1|#F580B1}}
                            l$ = l$ + appendtype$
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    n2 = numelements(tlayout$)
                    l$ = l$ + sp + getelement$(tlayout$, {{Text|1|#F580B1}}) + appendname$
                    {{Text|IF|#F0F0F0}} n2 > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        l$ = l$ + sp2 + getelements$(tlayout$, {{Text|2|#F580B1}}, n2)
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(appendtype$) > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} newDimSyntax = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(dim2typepassback$) {{Text|THEN|#F0F0F0}} appendtype$ = sp + SCase$({{Text|"As"|#FFB100}}) + sp + dim2typepassback$
                        l$ = l$ + appendtype$
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'modify first element name to include symbol|#31C4C4}}
                    dimstatic = olddimstatic
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'listarray=0|#31C4C4}}
                {{Text|IF|#F0F0F0}} newDimSyntax {{Text|THEN|#F0F0F0}} {{Text|RETURN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} d$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp2 + {{Text|","|#FFB100}}: {{Text|GOTO|#F0F0F0}} dimnext
                dimoption = {{Text|0|#F580B1}}
                dimshared = {{Text|0|#F580B1}}
                redimoption = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} dimstatic = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} dimstatic = {{Text|0|#F580B1}}
                AllowLocalName = {{Text|0|#F580B1}}
                layoutdone = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} layout$ = l$ {{Text|ELSE|#F0F0F0}} layout$ = layout$ + sp + l$
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|ELSE|#F0F0F0}}
                {{Text|'yes, this is the new dim syntax.|#31C4C4}}
                i = i + {{Text|1|#F580B1}} {{Text|'skip "AS"|#31C4C4}}
                newDimSyntaxTypePassBack = {{Text|0|#F580B1}}
                {{Text|'estabilish the data type:|#31C4C4}}
                appendname$ = {{Text|""|#FFB100}}
                appendtype$ = sp + SCase$({{Text|"As"|#FFB100}})
                typ$ = {{Text|""|#FFB100}}
                varname$ = {{Text|""|#FFB100}}
                previousElement$ = {{Text|""|#FFB100}}
                {{Text|FOR|#F0F0F0}} i = i {{Text|TO|#F0F0F0}} n
                    d$ = getelement(a$, i)
                    {{Text|IF|#F0F0F0}} d$ = {{Text|","|#FFB100}} {{Text|OR|#F0F0F0}} d$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                    varname$ = getelement(ca$, i)
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(previousElement$) {{Text|THEN|#F0F0F0}}
                        typ$ = typ$ + previousElement$ + {{Text|" "|#FFB100}}
                        appendtype$ = appendtype$ + sp + previousElement$
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    previousElement$ = d$
                    d$ = {{Text|""|#FFB100}}
                {{Text|NEXT|#F0F0F0}}
                appendtype$ = SCase2$(appendtype$) {{Text|'capitalise default types (udt override this later if necessary)|#31C4C4}}
                typ$ = {{Text|RTRIM$|#F0F0F0}}(typ$)
                dimnext2:
                notype = {{Text|0|#F580B1}}
                listarray = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} typ$ = {{Text|""|#FFB100}} {{Text|OR|#F0F0F0}} varname$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected "|#FFB100}} + firstelement$ + {{Text|" AS type variable-list or "|#FFB100}} + firstelement$ + {{Text|" variable-name AS type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|'get the next element|#31C4C4}}
                {{Text|IF|#F0F0F0}} i >= n + {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|""|#FFB100}} {{Text|ELSE|#F0F0F0}} e$ = getelement(a$, i): i = i + {{Text|1|#F580B1}}
                {{Text|'check if next element is a ( to create an array|#31C4C4}}
                elements$ = {{Text|""|#FFB100}}
                {{Text|IF|#F0F0F0}} e$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}}
                    B = {{Text|1|#F580B1}}
                    {{Text|FOR|#F0F0F0}} i = i {{Text|TO|#F0F0F0}} n
                        e$ = getelement(ca$, i)
                        {{Text|IF|#F0F0F0}} e$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} e$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) {{Text|THEN|#F0F0F0}} elements$ = elements$ + sp + e$ {{Text|ELSE|#F0F0F0}} elements$ = e$
                    {{Text|NEXT|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} B <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected )"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    i = i + {{Text|1|#F580B1}} {{Text|'set i to point to the next element|#31C4C4}}
                    {{Text|IF|#F0F0F0}} commonoption {{Text|THEN|#F0F0F0}} elements$ = {{Text|"?"|#FFB100}}
                    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"DIM2:array:elements$:["|#FFB100}} + elements$ + {{Text|"]"|#FFB100}}
                    {{Text|'arrayname() means list array to it will automatically be static when it is formally dimensioned later|#31C4C4}}
                    {{Text|'note: listed arrays are always created in dynamic memory, but their contents are not erased|#31C4C4}}
                    {{Text|'      this differs from static arrays from SUB...STATIC and the unique QB64 method -> STATIC arrayname(100)|#31C4C4}}
                    {{Text|IF|#F0F0F0}} dimoption = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'STATIC used|#31C4C4}}
                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'nothing between brackets|#31C4C4}}
                            listarray = {{Text|1|#F580B1}} {{Text|'add to static list|#31C4C4}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'last element was ")"|#31C4C4}}
                    {{Text|'get next element|#31C4C4}}
                    {{Text|IF|#F0F0F0}} i >= n + {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|""|#FFB100}} {{Text|ELSE|#F0F0F0}} e$ = getelement(a$, i): i = i + {{Text|1|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'e$="("|#31C4C4}}
                d$ = e$
                dimmethod = {{Text|0|#F580B1}}
                dim2typepassback$ = {{Text|""|#FFB100}}
                {{Text|'does varname have an appended symbol?|#31C4C4}}
                s$ = removesymbol$(varname$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} validname(varname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid variable name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} s$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                    a$ = {{Text|"Cannot use type symbol with "|#FFB100}} + firstelement$ + {{Text|" AS type variable-list ("|#FFB100}} + s$ + {{Text|")"|#FFB100}}
                    {{Text|GOTO|#F0F0F0}} errmes
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} d$ <> {{Text|""|#FFB100}} {{Text|AND|#F0F0F0}} d$ <> {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"DIM: Expected ,"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                newDimSyntax = {{Text|-1|#F580B1}}
                {{Text|GOSUB|#F0F0F0}} NormalDimBlock
                newDimSyntax = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} d$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}}
                    l$ = l$ + sp2 + {{Text|","|#FFB100}}
                    varname$ = getelement(ca$, i): i = i + {{Text|1|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} dimnext2
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                dimoption = {{Text|0|#F580B1}}
                dimshared = {{Text|0|#F580B1}}
                redimoption = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} dimstatic = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} dimstatic = {{Text|0|#F580B1}}
                AllowLocalName = {{Text|0|#F580B1}}
                layoutdone = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} layout$ = l$ {{Text|ELSE|#F0F0F0}} layout$ = layout$ + sp + l$
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'THEN [GOTO] linenumber?|#31C4C4}}
    {{Text|IF|#F0F0F0}} THENGOTO = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            l$ = {{Text|""|#FFB100}}
            a = {{Text|ASC|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(firstelement$, {{Text|1|#F580B1}}))
            {{Text|IF|#F0F0F0}} a = {{Text|46|#F580B1}} {{Text|OR|#F0F0F0}} (a >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} a <= {{Text|57|#F580B1}}) {{Text|THEN|#F0F0F0}} a2$ = ca$: {{Text|GOTO|#F0F0F0}} THENGOTO
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'goto|#31C4C4}}
    {{Text|IF|#F0F0F0}} n = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} getelement$(a$, {{Text|1|#F580B1}}) = {{Text|"GOTO"|#FFB100}} {{Text|THEN|#F0F0F0}}
            l$ = SCase$({{Text|"GoTo"|#FFB100}})
            a2$ = getelement$(ca$, {{Text|2|#F580B1}})
            THENGOTO:
            {{Text|IF|#F0F0F0}} validlabel(a2$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid label!"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            v = HashFind(a2$, HASHFLAG_LABEL, ignore, r)
            x = {{Text|1|#F580B1}}
            labchk2:
            {{Text|IF|#F0F0F0}} v {{Text|THEN|#F0F0F0}}
                s = Labels(r).Scope
                {{Text|IF|#F0F0F0}} s = subfuncn {{Text|OR|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'same scope?|#31C4C4}}
                    {{Text|IF|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} Labels(r).Scope = subfuncn {{Text|'acquire scope|#31C4C4}}
                    x = {{Text|0|#F580B1}} {{Text|'already defined|#31C4C4}}
                    tlayout$ = {{Text|RTRIM$|#F0F0F0}}(Labels(r).cn)
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} v = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} v = HashFindCont(ignore, r): {{Text|GOTO|#F0F0F0}} labchk2
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}}
                {{Text|'does not exist|#31C4C4}}
                nLabels = nLabels + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} nLabels > Labels_Ubound {{Text|THEN|#F0F0F0}} Labels_Ubound = Labels_Ubound * {{Text|2|#F580B1}}: {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} Labels({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} Labels_Ubound) {{Text|AS|#F0F0F0}} Label_Type
                Labels(nLabels) = Empty_Label
                HashAdd a2$, HASHFLAG_LABEL, nLabels
                r = nLabels
                Labels(r).State = {{Text|0|#F580B1}}
                Labels(r).cn = tlayout$
                Labels(r).Scope = subfuncn
                Labels(r).Error_Line = linenumber
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'x|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(l$) {{Text|THEN|#F0F0F0}} l$ = l$ + sp + tlayout$ {{Text|ELSE|#F0F0F0}} l$ = tlayout$
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            WriteBufLine MainTxtBuf, {{Text|"goto LABEL_"|#FFB100}} + a2$ + {{Text|";"|#FFB100}}
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"_CONTINUE"|#FFB100}} {{Text|OR|#F0F0F0}} (firstelement$ = {{Text|"CONTINUE"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"_CONTINUE"|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = SCase$({{Text|"_Continue"|#FFB100}}) {{Text|ELSE|#F0F0F0}} l$ = SCase$({{Text|"Continue"|#FFB100}})
            {{Text|'scan backwards until previous control level reached|#31C4C4}}
            {{Text|FOR|#F0F0F0}} i = controllevel {{Text|TO|#F0F0F0}} {{Text|1|#F580B1}} {{Text|STEP|#F0F0F0}} {{Text|-1|#F580B1}}
                t = controltype(i)
                {{Text|IF|#F0F0F0}} t = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'for...next|#31C4C4}}
                    WriteBufLine MainTxtBuf, {{Text|"goto fornext_continue_"|#FFB100}} + str2$(controlid(i)) + {{Text|";"|#FFB100}}
                    layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                    {{Text|GOTO|#F0F0F0}} finishedline
                {{Text|ELSEIF|#F0F0F0}} t = {{Text|3|#F580B1}} {{Text|OR|#F0F0F0}} t = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'do...loop|#31C4C4}}
                    WriteBufLine MainTxtBuf, {{Text|"goto dl_continue_"|#FFB100}} + str2$(controlid(i)) + {{Text|";"|#FFB100}}
                    layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                    {{Text|GOTO|#F0F0F0}} finishedline
                {{Text|ELSEIF|#F0F0F0}} t = {{Text|5|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'while...wend|#31C4C4}}
                    WriteBufLine MainTxtBuf, {{Text|"goto ww_continue_"|#FFB100}} + str2$(controlid(i)) + {{Text|";"|#FFB100}}
                    layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                    {{Text|GOTO|#F0F0F0}} finishedline
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            a$ = qb64prefix$ + {{Text|"CONTINUE outside DO..LOOP/FOR..NEXT/WHILE..WEND block"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"CHAIN"|#FFB100}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} vWatchOn {{Text|THEN|#F0F0F0}}
            addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), {{Text|"Feature incompatible with $Debug mode"|#FFB100}}, {{Text|"CHAIN"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"RUN"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|'RUN|#31C4C4}}
        {{Text|IF|#F0F0F0}} vWatchOn {{Text|THEN|#F0F0F0}}
            addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), {{Text|"Feature incompatible with $Debug mode"|#FFB100}}, {{Text|"RUN"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        l$ = SCase$({{Text|"Run"|#FFB100}})
        {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|'no parameters|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"sub_run_init();"|#FFB100}} {{Text|'note: called first to free up screen-locked image handles|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"sub_clear(NULL,NULL,NULL,NULL);"|#FFB100}} {{Text|'use functionality of CLEAR|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(subfunc$) {{Text|THEN|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"QBMAIN(NULL);"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"goto S_0;"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|ELSE|#F0F0F0}}
            {{Text|'parameter passed|#31C4C4}}
            e$ = getelements$(ca$, {{Text|2|#F580B1}}, n)
            e$ = fixoperationorder$(e$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l2$ = tlayout$
            ignore$ = evaluate(e$, typ)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} n = {{Text|2|#F580B1}} {{Text|AND|#F0F0F0}} ((typ {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}}) {{Text|THEN|#F0F0F0}}
                {{Text|'assume it's a label or line number|#31C4C4}}
                lbl$ = getelement$(ca$, {{Text|2|#F580B1}})
                {{Text|IF|#F0F0F0}} validlabel(lbl$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid label!"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes {{Text|'invalid label|#31C4C4}}
                v = HashFind(lbl$, HASHFLAG_LABEL, ignore, r)
                x = {{Text|1|#F580B1}}
                labchk501:
                {{Text|IF|#F0F0F0}} v {{Text|THEN|#F0F0F0}}
                    s = Labels(r).Scope
                    {{Text|IF|#F0F0F0}} s = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'main scope?|#31C4C4}}
                        {{Text|IF|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} Labels(r).Scope = {{Text|0|#F580B1}} {{Text|'acquire scope|#31C4C4}}
                        x = {{Text|0|#F580B1}} {{Text|'already defined|#31C4C4}}
                        tlayout$ = {{Text|RTRIM$|#F0F0F0}}(Labels(r).cn)
                        Labels(r).Scope_Restriction = subfuncn
                        Labels(r).Error_Line = linenumber
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} v = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} v = HashFindCont(ignore, r): {{Text|GOTO|#F0F0F0}} labchk501
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}}
                    {{Text|'does not exist|#31C4C4}}
                    nLabels = nLabels + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} nLabels > Labels_Ubound {{Text|THEN|#F0F0F0}} Labels_Ubound = Labels_Ubound * {{Text|2|#F580B1}}: {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} Labels({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} Labels_Ubound) {{Text|AS|#F0F0F0}} Label_Type
                    Labels(nLabels) = Empty_Label
                    HashAdd lbl$, HASHFLAG_LABEL, nLabels
                    r = nLabels
                    Labels(r).State = {{Text|0|#F580B1}}
                    Labels(r).cn = tlayout$
                    Labels(r).Scope = {{Text|0|#F580B1}}
                    Labels(r).Error_Line = linenumber
                    Labels(r).Scope_Restriction = subfuncn
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'x|#31C4C4}}
                l$ = l$ + sp + tlayout$
                WriteBufLine MainTxtBuf, {{Text|"sub_run_init();"|#FFB100}} {{Text|'note: called first to free up screen-locked image handles|#31C4C4}}
                WriteBufLine MainTxtBuf, {{Text|"sub_clear(NULL,NULL,NULL,NULL);"|#FFB100}} {{Text|'use functionality of CLEAR|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(subfunc$) {{Text|THEN|#F0F0F0}}
                    WriteBufLine RunTxtBuf, {{Text|"if (run_from_line=="|#FFB100}} + str2(nextrunlineindex) + {{Text|"){run_from_line=0;goto LABEL_"|#FFB100}} + lbl$ + {{Text|";}"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"run_from_line="|#FFB100}} + str2(nextrunlineindex) + {{Text|";"|#FFB100}}
                    nextrunlineindex = nextrunlineindex + {{Text|1|#F580B1}}
                    WriteBufLine MainTxtBuf, {{Text|"QBMAIN(NULL);"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"goto LABEL_"|#FFB100}} + lbl$ + {{Text|";"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|'assume it's a string containing a filename to execute|#31C4C4}}
                e$ = evaluatetotyp(e$, ISSTRING)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                WriteBufLine MainTxtBuf, {{Text|"sub_run("|#FFB100}} + e$ + {{Text|");"|#FFB100}}
                l$ = l$ + sp + l2$
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'isstring|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'n=1|#31C4C4}}
        layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
        {{Text|GOTO|#F0F0F0}} finishedline
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'run|#31C4C4}}
    {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"END"|#FFB100}} {{Text|THEN|#F0F0F0}}
        l$ = SCase$({{Text|"End"|#FFB100}})
        {{Text|IF|#F0F0F0}} n > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            e$ = getelements$(ca$, {{Text|2|#F580B1}}, n)
            e$ = fixoperationorder$(e$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l2$ = tlayout$
            e$ = evaluatetotyp(e$, ISINTEGER64): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            inclinenump$ = {{Text|""|#FFB100}}
            {{Text|IF|#F0F0F0}} inclinenumber(inclevel) {{Text|THEN|#F0F0F0}}
                inclinenump$ = {{Text|","|#FFB100}} + str2$(inclinenumber(inclevel))
                thisincname$ = getfilepath$(incname$(inclevel))
                thisincname$ = {{Text|MID$|#F0F0F0}}(incname$(inclevel), {{Text|LEN|#F0F0F0}}(thisincname$) + {{Text|1|#F580B1}})
                inclinenump$ = inclinenump$ + {{Text|","|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + thisincname$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} vWatchOn {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} temp$ = vWatchErrorCall$ {{Text|ELSE|#F0F0F0}} temp$ = {{Text|""|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"if(qbevent){"|#FFB100}} + temp$ + {{Text|"evnt("|#FFB100}} + str2$(linenumber) + inclinenump$ + {{Text|");}"|#FFB100}} {{Text|'non-resumable error check (cannot exit without handling errors)|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"exit_code="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
            l$ = l$ + sp + l2$
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        xend
        layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
        {{Text|GOTO|#F0F0F0}} finishedline
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"SYSTEM"|#FFB100}} {{Text|THEN|#F0F0F0}}
        l$ = SCase$({{Text|"System"|#FFB100}})
        {{Text|IF|#F0F0F0}} n > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            e$ = getelements$(ca$, {{Text|2|#F580B1}}, n)
            e$ = fixoperationorder$(e$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l2$ = tlayout$
            e$ = evaluatetotyp(e$, ISINTEGER64): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            inclinenump$ = {{Text|""|#FFB100}}
            {{Text|IF|#F0F0F0}} inclinenumber(inclevel) {{Text|THEN|#F0F0F0}}
                inclinenump$ = {{Text|","|#FFB100}} + str2$(inclinenumber(inclevel))
                thisincname$ = getfilepath$(incname$(inclevel))
                thisincname$ = {{Text|MID$|#F0F0F0}}(incname$(inclevel), {{Text|LEN|#F0F0F0}}(thisincname$) + {{Text|1|#F580B1}})
                inclinenump$ = inclinenump$ + {{Text|","|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + thisincname$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} temp$ = vWatchErrorCall$ {{Text|ELSE|#F0F0F0}} temp$ = {{Text|""|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"if(qbevent){"|#FFB100}} + temp$ + {{Text|"evnt("|#FFB100}} + str2$(linenumber) + inclinenump$ + {{Text|");}"|#FFB100}} {{Text|'non-resumable error check (cannot exit without handling errors)|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"exit_code="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
            l$ = l$ + sp + l2$
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                vWatchAddLabel linenumber, {{Text|0|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= 0; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        WriteBufLine MainTxtBuf, {{Text|"if (sub_gl_called) error(271);"|#FFB100}}
        WriteBufLine MainTxtBuf, {{Text|"close_program=1;"|#FFB100}}
        WriteBufLine MainTxtBuf, {{Text|"end();"|#FFB100}}
        layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
        {{Text|GOTO|#F0F0F0}} finishedline
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"STOP"|#FFB100}} {{Text|THEN|#F0F0F0}}
            l$ = SCase$({{Text|"Stop"|#FFB100}})
            {{Text|IF|#F0F0F0}} n > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                e$ = getelements$(ca$, {{Text|2|#F580B1}}, n)
                e$ = fixoperationorder$(e$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                l$ = SCase$({{Text|"Stop"|#FFB100}}) + sp + tlayout$
                e$ = evaluatetotyp(e$, {{Text|64|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|'note: this value is currently ignored but evaluated for checking reasons|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            {{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER=-3; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"|#FFB100}}
                vWatchAddLabel linenumber, {{Text|0|#F580B1}}
            {{Text|ELSE|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"close_program=1;"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"end();"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"GOSUB"|#FFB100}} {{Text|THEN|#F0F0F0}}
            xgosub ca$
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|'note: layout implemented in xgosub|#31C4C4}}
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"RETURN"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"#include "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"ret"|#FFB100}} + str2$(subfuncn) + {{Text|".txt"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
                l$ = SCase$({{Text|"Return"|#FFB100}})
                layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|ELSE|#F0F0F0}}
                {{Text|'label/linenumber follows|#31C4C4}}
                {{Text|IF|#F0F0F0}} subfuncn <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"RETURN linelabel/linenumber invalid within a SUB/FUNCTION"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} n > {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected linelabel/linenumber after RETURN"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                WriteBufLine MainTxtBuf, {{Text|"if (!next_return_point) error(3);"|#FFB100}} {{Text|'check return point available|#31C4C4}}
                WriteBufLine MainTxtBuf, {{Text|"next_return_point--;"|#FFB100}} {{Text|'destroy return point|#31C4C4}}
                a2$ = getelement$(ca$, {{Text|2|#F580B1}})
                {{Text|IF|#F0F0F0}} validlabel(a2$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid label!"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                v = HashFind(a2$, HASHFLAG_LABEL, ignore, r)
                x = {{Text|1|#F580B1}}
                labchk505:
                {{Text|IF|#F0F0F0}} v {{Text|THEN|#F0F0F0}}
                    s = Labels(r).Scope
                    {{Text|IF|#F0F0F0}} s = subfuncn {{Text|OR|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'same scope?|#31C4C4}}
                        {{Text|IF|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} Labels(r).Scope = subfuncn {{Text|'acquire scope|#31C4C4}}
                        x = {{Text|0|#F580B1}} {{Text|'already defined|#31C4C4}}
                        tlayout$ = {{Text|RTRIM$|#F0F0F0}}(Labels(r).cn)
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} v = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} v = HashFindCont(ignore, r): {{Text|GOTO|#F0F0F0}} labchk505
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}}
                    {{Text|'does not exist|#31C4C4}}
                    nLabels = nLabels + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} nLabels > Labels_Ubound {{Text|THEN|#F0F0F0}} Labels_Ubound = Labels_Ubound * {{Text|2|#F580B1}}: {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} Labels({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} Labels_Ubound) {{Text|AS|#F0F0F0}} Label_Type
                    Labels(nLabels) = Empty_Label
                    HashAdd a2$, HASHFLAG_LABEL, nLabels
                    r = nLabels
                    Labels(r).State = {{Text|0|#F580B1}}
                    Labels(r).cn = tlayout$
                    Labels(r).Scope = subfuncn
                    Labels(r).Error_Line = linenumber
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'x|#31C4C4}}
                WriteBufLine MainTxtBuf, {{Text|"goto LABEL_"|#FFB100}} + a2$ + {{Text|";"|#FFB100}}
                l$ = SCase$({{Text|"Return"|#FFB100}}) + sp + tlayout$
                layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"RESUME"|#FFB100}} {{Text|THEN|#F0F0F0}}
            l$ = SCase$({{Text|"Resume"|#FFB100}})
            {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                resumeprev:
                WriteBufLine MainTxtBuf, {{Text|"if (!error_handling){error(20);}else{error_retry=1; qbevent=1; error_handling=0; error_err=0; return;}"|#FFB100}}
                layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} n > {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Too many parameters"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            s$ = getelement$(ca$, {{Text|2|#F580B1}})
            {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(s$) = {{Text|"NEXT"|#FFB100}} {{Text|THEN|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"if (!error_handling){error(20);}else{error_handling=0; error_err=0; return;}"|#FFB100}}
                l$ = l$ + sp + SCase$({{Text|"Next"|#FFB100}})
                layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} s$ = {{Text|"0"|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp + {{Text|"0"|#FFB100}}: {{Text|GOTO|#F0F0F0}} resumeprev
            {{Text|IF|#F0F0F0}} validlabel(s$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid label passed to RESUME"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            v = HashFind(s$, HASHFLAG_LABEL, ignore, r)
            x = {{Text|1|#F580B1}}
            labchk506:
            {{Text|IF|#F0F0F0}} v {{Text|THEN|#F0F0F0}}
                s = Labels(r).Scope
                {{Text|IF|#F0F0F0}} s = subfuncn {{Text|OR|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'same scope?|#31C4C4}}
                    {{Text|IF|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} Labels(r).Scope = subfuncn {{Text|'acquire scope|#31C4C4}}
                    x = {{Text|0|#F580B1}} {{Text|'already defined|#31C4C4}}
                    tlayout$ = {{Text|RTRIM$|#F0F0F0}}(Labels(r).cn)
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} v = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} v = HashFindCont(ignore, r): {{Text|GOTO|#F0F0F0}} labchk506
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}}
                {{Text|'does not exist|#31C4C4}}
                nLabels = nLabels + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} nLabels > Labels_Ubound {{Text|THEN|#F0F0F0}} Labels_Ubound = Labels_Ubound * {{Text|2|#F580B1}}: {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} Labels({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} Labels_Ubound) {{Text|AS|#F0F0F0}} Label_Type
                Labels(nLabels) = Empty_Label
                HashAdd s$, HASHFLAG_LABEL, nLabels
                r = nLabels
                Labels(r).State = {{Text|0|#F580B1}}
                Labels(r).cn = tlayout$
                Labels(r).Scope = subfuncn
                Labels(r).Error_Line = linenumber
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'x|#31C4C4}}
            l$ = l$ + sp + tlayout$
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            WriteBufLine MainTxtBuf, {{Text|"if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_"|#FFB100}} + s$ + {{Text|";}"|#FFB100}}
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} getelements(a$, {{Text|1|#F580B1}}, {{Text|3|#F580B1}}) = {{Text|"ON"|#FFB100}} + sp + {{Text|"ERROR"|#FFB100}} + sp + {{Text|"GOTO"|#FFB100}} {{Text|THEN|#F0F0F0}}
            l$ = SCase$({{Text|"On"|#FFB100}} + sp + {{Text|"Error"|#FFB100}} + sp + {{Text|"GoTo"|#FFB100}})
            lbl$ = getelement$(ca$, {{Text|4|#F580B1}})
            {{Text|IF|#F0F0F0}} lbl$ = {{Text|"0"|#FFB100}} {{Text|THEN|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"error_goto_line=0;"|#FFB100}}
                l$ = l$ + sp + {{Text|"0"|#FFB100}}
                layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} validlabel(lbl$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid label"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            v = HashFind(lbl$, HASHFLAG_LABEL, ignore, r)
            x = {{Text|1|#F580B1}}
            labchk6:
            {{Text|IF|#F0F0F0}} v {{Text|THEN|#F0F0F0}}
                s = Labels(r).Scope
                {{Text|IF|#F0F0F0}} s = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'main scope?|#31C4C4}}
                    {{Text|IF|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} Labels(r).Scope = {{Text|0|#F580B1}} {{Text|'acquire scope|#31C4C4}}
                    x = {{Text|0|#F580B1}} {{Text|'already defined|#31C4C4}}
                    tlayout$ = {{Text|RTRIM$|#F0F0F0}}(Labels(r).cn)
                    Labels(r).Scope_Restriction = subfuncn
                    Labels(r).Error_Line = linenumber
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} v = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} v = HashFindCont(ignore, r): {{Text|GOTO|#F0F0F0}} labchk6
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}}
                {{Text|'does not exist|#31C4C4}}
                nLabels = nLabels + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} nLabels > Labels_Ubound {{Text|THEN|#F0F0F0}} Labels_Ubound = Labels_Ubound * {{Text|2|#F580B1}}: {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} Labels({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} Labels_Ubound) {{Text|AS|#F0F0F0}} Label_Type
                Labels(nLabels) = Empty_Label
                HashAdd lbl$, HASHFLAG_LABEL, nLabels
                r = nLabels
                Labels(r).State = {{Text|0|#F580B1}}
                Labels(r).cn = tlayout$
                Labels(r).Scope = {{Text|0|#F580B1}}
                Labels(r).Error_Line = linenumber
                Labels(r).Scope_Restriction = subfuncn
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'x|#31C4C4}}
            l$ = l$ + sp + tlayout$
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            errorlabels = errorlabels + {{Text|1|#F580B1}}
            WriteBufLine MainTxtBuf, {{Text|"error_goto_line="|#FFB100}} + str2(errorlabels) + {{Text|";"|#FFB100}}
            WriteBufLine ErrTxtBuf, {{Text|"if (error_goto_line=="|#FFB100}} + str2(errorlabels) + {{Text|"){error_handling=1; goto LABEL_"|#FFB100}} + lbl$ + {{Text|";}"|#FFB100}}
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"RESTORE"|#FFB100}} {{Text|THEN|#F0F0F0}}
            l$ = SCase$({{Text|"Restore"|#FFB100}})
            {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"data_offset=0;"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} n > {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Syntax error - too many parameters (expected RESTORE label/line number)"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                lbl$ = getelement$(ca$, {{Text|2|#F580B1}})
                {{Text|IF|#F0F0F0}} validlabel(lbl$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid label"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|'rule: a RESTORE label has no scope, therefore, only one instance of that label may exist|#31C4C4}}
                {{Text|'how: enforced by a post check for duplicates|#31C4C4}}
                v = HashFind(lbl$, HASHFLAG_LABEL, ignore, r)
                x = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} v {{Text|THEN|#F0F0F0}} {{Text|'already defined|#31C4C4}}
                    x = {{Text|0|#F580B1}}
                    tlayout$ = {{Text|RTRIM$|#F0F0F0}}(Labels(r).cn)
                    Labels(r).Data_Referenced = {{Text|1|#F580B1}} {{Text|'make sure the data referenced flag is set|#31C4C4}}
                    {{Text|IF|#F0F0F0}} Labels(r).Error_Line = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Labels(r).Error_Line = linenumber
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}}
                    nLabels = nLabels + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} nLabels > Labels_Ubound {{Text|THEN|#F0F0F0}} Labels_Ubound = Labels_Ubound * {{Text|2|#F580B1}}: {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} Labels({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} Labels_Ubound) {{Text|AS|#F0F0F0}} Label_Type
                    Labels(nLabels) = Empty_Label
                    HashAdd lbl$, HASHFLAG_LABEL, nLabels
                    r = nLabels
                    Labels(r).State = {{Text|0|#F580B1}}
                    Labels(r).cn = tlayout$
                    Labels(r).Scope = {{Text|-1|#F580B1}} {{Text|'modifyable scope|#31C4C4}}
                    Labels(r).Error_Line = linenumber
                    Labels(r).Data_Referenced = {{Text|1|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'x|#31C4C4}}
                l$ = l$ + sp + tlayout$
                WriteBufLine MainTxtBuf, {{Text|"data_offset=data_at_LABEL_"|#FFB100}} + lbl$ + {{Text|";"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'ON ... GOTO/GOSUB|#31C4C4}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"ON"|#FFB100}} {{Text|THEN|#F0F0F0}}
            xongotogosub a$, ca$, n
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'(_MEM) _MEMPUT _MEMGET|#31C4C4}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"_MEMGET"|#FFB100}} {{Text|OR|#F0F0F0}} (firstelement$ = {{Text|"MEMGET"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
            {{Text|'get expressions|#31C4C4}}
            e$ = {{Text|""|#FFB100}}
            B = {{Text|0|#F580B1}}
            ne = {{Text|0|#F580B1}}
            {{Text|FOR|#F0F0F0}} i2 = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n
                e2$ = getelement$(ca$, i2)
                {{Text|IF|#F0F0F0}} e2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} e2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} e2$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    ne = ne + {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} ne = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} blk$ = e$: e$ = {{Text|""|#FFB100}}
                    {{Text|IF|#F0F0F0}} ne = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} offs$ = e$: e$ = {{Text|""|#FFB100}}
                    {{Text|IF|#F0F0F0}} ne = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Syntax error - too many parameters (Expected "|#FFB100}} + qb64prefix$ + {{Text|"MEMGET mem-reference, offset, variable)"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = e2$ {{Text|ELSE|#F0F0F0}} e$ = e$ + sp + e2$
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            var$ = e$
            {{Text|IF|#F0F0F0}} e$ = {{Text|""|#FFB100}} {{Text|OR|#F0F0F0}} ne <> {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected "|#FFB100}} + qb64prefix$ + {{Text|"MEMGET mem-reference, offset, variable"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"_MEMGET"|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = SCase$({{Text|"_MemGet"|#FFB100}}) + sp {{Text|ELSE|#F0F0F0}} l$ = SCase$({{Text|"MemGet"|#FFB100}}) + sp
            e$ = fixoperationorder$(blk$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l$ = l$ + tlayout$
            test$ = evaluate(e$, typ): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected "|#FFB100}} + qb64prefix$ + {{Text|"MEM type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            blkoffs$ = evaluatetotyp(e$, {{Text|-6|#F580B1}})
            {{Text|'            IF typ AND ISREFERENCE THEN e$ = refer(e$, typ, 0)|#31C4C4}}
            {{Text|'WriteBufLine MainTxtBuf, blkoffs$ '???|#31C4C4}}
            e$ = fixoperationorder$(offs$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l$ = l$ + sp2 + {{Text|","|#FFB100}} + sp + tlayout$
            e$ = evaluatetotyp(e$, OFFSETTYPE - ISPOINTER): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            offs$ = e$
            {{Text|'WriteBufLine MainTxtBuf, e$ '???|#31C4C4}}
            e$ = fixoperationorder$(var$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l$ = l$ + sp2 + {{Text|","|#FFB100}} + sp + tlayout$
            varsize$ = evaluatetotyp(e$, {{Text|-5|#F580B1}}): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            varoffs$ = evaluatetotyp(e$, {{Text|-6|#F580B1}}): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|'WriteBufLine MainTxtBuf, varoffs$ '???|#31C4C4}}
            {{Text|'WriteBufLine MainTxtBuf, varsize$ '???|#31C4C4}}
            {{Text|'what do we do next|#31C4C4}}
            {{Text|'need to know offset of variable and its size|#31C4C4}}
            {{Text|'known sizes will be handled by designated command casts, otherwise use memmove|#31C4C4}}
            s = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} varsize$ = {{Text|"1"|#FFB100}} {{Text|THEN|#F0F0F0}} s = {{Text|1|#F580B1}}: st$ = {{Text|"int8"|#FFB100}}
            {{Text|IF|#F0F0F0}} varsize$ = {{Text|"2"|#FFB100}} {{Text|THEN|#F0F0F0}} s = {{Text|2|#F580B1}}: st$ = {{Text|"int16"|#FFB100}}
            {{Text|IF|#F0F0F0}} varsize$ = {{Text|"4"|#FFB100}} {{Text|THEN|#F0F0F0}} s = {{Text|4|#F580B1}}: st$ = {{Text|"int32"|#FFB100}}
            {{Text|IF|#F0F0F0}} varsize$ = {{Text|"8"|#FFB100}} {{Text|THEN|#F0F0F0}} s = {{Text|8|#F580B1}}: st$ = {{Text|"int64"|#FFB100}}
            {{Text|IF|#F0F0F0}} NoChecks {{Text|THEN|#F0F0F0}}
                {{Text|'fast version:|#31C4C4}}
                {{Text|IF|#F0F0F0}} s {{Text|THEN|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"*("|#FFB100}} + st$ + {{Text|"*)"|#FFB100}} + varoffs$ + {{Text|"=*("|#FFB100}} + st$ + {{Text|"*)("|#FFB100}} + offs$ + {{Text|");"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"memmove("|#FFB100}} + varoffs$ + {{Text|",(void*)"|#FFB100}} + offs$ + {{Text|","|#FFB100}} + varsize$ + {{Text|");"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|'safe version:|#31C4C4}}
                WriteBufLine MainTxtBuf, {{Text|"tmp_long="|#FFB100}} + offs$ + {{Text|";"|#FFB100}}
                {{Text|'is mem block init?|#31C4C4}}
                WriteBufLine MainTxtBuf, {{Text|"if ( ((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->lock_offset ){"|#FFB100}}
                {{Text|'are region and id valid?|#31C4C4}}
                WriteBufLine MainTxtBuf, {{Text|"if ("|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"tmp_long < ((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->offset  ¦¦"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"(tmp_long+("|#FFB100}} + varsize$ + {{Text|")) > ( ((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->offset + ((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->size)  ¦¦"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"((mem_lock*)((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->lock_offset)->id != ((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->lock_id  ){"|#FFB100}}
                {{Text|'diagnose error|#31C4C4}}
                WriteBufLine MainTxtBuf, {{Text|"if ("|#FFB100}} + {{Text|"((mem_lock*)((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->lock_offset)->id != ((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->lock_id"|#FFB100}} + {{Text|") error(308); else error(300);"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"}else{"|#FFB100}}
                {{Text|IF|#F0F0F0}} s {{Text|THEN|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"*("|#FFB100}} + st$ + {{Text|"*)"|#FFB100}} + varoffs$ + {{Text|"=*("|#FFB100}} + st$ + {{Text|"*)tmp_long;"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"memmove("|#FFB100}} + varoffs$ + {{Text|",(void*)tmp_long,"|#FFB100}} + varsize$ + {{Text|");"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"}else error(309);"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"_MEMPUT"|#FFB100}} {{Text|OR|#F0F0F0}} (firstelement$ = {{Text|"MEMPUT"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
            {{Text|'get expressions|#31C4C4}}
            typ$ = {{Text|""|#FFB100}}
            e$ = {{Text|""|#FFB100}}
            B = {{Text|0|#F580B1}}
            ne = {{Text|0|#F580B1}}
            {{Text|FOR|#F0F0F0}} i2 = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n
                e2$ = getelement$(ca$, i2)
                {{Text|IF|#F0F0F0}} e2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} e2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} (e2$ = {{Text|","|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(e2$) = {{Text|"AS"|#FFB100}}) {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    ne = ne + {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} ne = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} blk$ = e$: e$ = {{Text|""|#FFB100}}
                    {{Text|IF|#F0F0F0}} ne = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} offs$ = e$: e$ = {{Text|""|#FFB100}}
                    {{Text|IF|#F0F0F0}} ne = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} var$ = e$: e$ = {{Text|""|#FFB100}}
                    {{Text|IF|#F0F0F0}} ({{Text|UCASE$|#F0F0F0}}(e2$) = {{Text|"AS"|#FFB100}} {{Text|AND|#F0F0F0}} ne <> {{Text|3|#F580B1}}) {{Text|OR|#F0F0F0}} (ne = {{Text|3|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(e2$) <> {{Text|"AS"|#FFB100}}) {{Text|OR|#F0F0F0}} ne = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected _MEMPUT mem-reference,offset,variable¦value[AS type]"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = e2$ {{Text|ELSE|#F0F0F0}} e$ = e$ + sp + e2$
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            {{Text|IF|#F0F0F0}} ne < {{Text|2|#F580B1}} {{Text|OR|#F0F0F0}} e$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected "|#FFB100}} + qb64prefix$ + {{Text|"MEMPUT mem-reference, offset, variable¦value[AS type]"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} ne = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} var$ = e$ {{Text|ELSE|#F0F0F0}} typ$ = {{Text|UCASE$|#F0F0F0}}(e$)
            {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"_MEMPUT"|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = SCase$({{Text|"_MemPut"|#FFB100}}) + sp {{Text|ELSE|#F0F0F0}} l$ = SCase$({{Text|"MemPut"|#FFB100}}) + sp
            e$ = fixoperationorder$(blk$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l$ = l$ + tlayout$
            test$ = evaluate(e$, typ): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected "|#FFB100}} + qb64prefix$ + {{Text|"MEM type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            blkoffs$ = evaluatetotyp(e$, {{Text|-6|#F580B1}})
            e$ = fixoperationorder$(offs$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l$ = l$ + sp2 + {{Text|","|#FFB100}} + sp + tlayout$
            e$ = evaluatetotyp(e$, OFFSETTYPE - ISPOINTER): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            offs$ = e$
            {{Text|IF|#F0F0F0}} ne = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                e$ = fixoperationorder$(var$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                l$ = l$ + sp2 + {{Text|","|#FFB100}} + sp + tlayout$
                test$ = evaluate(e$, t): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"g_tmp_str="|#FFB100}} + test$ + {{Text|";"|#FFB100}}
                    varsize$ = {{Text|"g_tmp_str->len"|#FFB100}}
                    varoffs$ = {{Text|"g_tmp_str->chr"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    varsize$ = evaluatetotyp(e$, {{Text|-5|#F580B1}}): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    varoffs$ = evaluatetotyp(e$, {{Text|-6|#F580B1}}): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'known sizes will be handled by designated command casts, otherwise use memmove|#31C4C4}}
                s = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} varsize$ = {{Text|"1"|#FFB100}} {{Text|THEN|#F0F0F0}} s = {{Text|1|#F580B1}}: st$ = {{Text|"int8"|#FFB100}}
                {{Text|IF|#F0F0F0}} varsize$ = {{Text|"2"|#FFB100}} {{Text|THEN|#F0F0F0}} s = {{Text|2|#F580B1}}: st$ = {{Text|"int16"|#FFB100}}
                {{Text|IF|#F0F0F0}} varsize$ = {{Text|"4"|#FFB100}} {{Text|THEN|#F0F0F0}} s = {{Text|4|#F580B1}}: st$ = {{Text|"int32"|#FFB100}}
                {{Text|IF|#F0F0F0}} varsize$ = {{Text|"8"|#FFB100}} {{Text|THEN|#F0F0F0}} s = {{Text|8|#F580B1}}: st$ = {{Text|"int64"|#FFB100}}
                {{Text|IF|#F0F0F0}} NoChecks {{Text|THEN|#F0F0F0}}
                    {{Text|'fast version:|#31C4C4}}
                    {{Text|IF|#F0F0F0}} s {{Text|THEN|#F0F0F0}}
                        WriteBufLine MainTxtBuf, {{Text|"*("|#FFB100}} + st$ + {{Text|"*)("|#FFB100}} + offs$ + {{Text|")=*("|#FFB100}} + st$ + {{Text|"*)"|#FFB100}} + varoffs$ + {{Text|";"|#FFB100}}
                    {{Text|ELSE|#F0F0F0}}
                        WriteBufLine MainTxtBuf, {{Text|"memmove((void*)"|#FFB100}} + offs$ + {{Text|","|#FFB100}} + varoffs$ + {{Text|","|#FFB100}} + varsize$ + {{Text|");"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|'safe version:|#31C4C4}}
                    WriteBufLine MainTxtBuf, {{Text|"tmp_long="|#FFB100}} + offs$ + {{Text|";"|#FFB100}}
                    {{Text|'is mem block init?|#31C4C4}}
                    WriteBufLine MainTxtBuf, {{Text|"if ( ((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->lock_offset ){"|#FFB100}}
                    {{Text|'are region and id valid?|#31C4C4}}
                    WriteBufLine MainTxtBuf, {{Text|"if ("|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"tmp_long < ((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->offset  ¦¦"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"(tmp_long+("|#FFB100}} + varsize$ + {{Text|")) > ( ((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->offset + ((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->size)  ¦¦"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"((mem_lock*)((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->lock_offset)->id != ((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->lock_id  ){"|#FFB100}}
                    {{Text|'diagnose error|#31C4C4}}
                    WriteBufLine MainTxtBuf, {{Text|"if ("|#FFB100}} + {{Text|"((mem_lock*)((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->lock_offset)->id != ((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->lock_id"|#FFB100}} + {{Text|") error(308); else error(300);"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"}else{"|#FFB100}}
                    {{Text|IF|#F0F0F0}} s {{Text|THEN|#F0F0F0}}
                        WriteBufLine MainTxtBuf, {{Text|"*("|#FFB100}} + st$ + {{Text|"*)tmp_long=*("|#FFB100}} + st$ + {{Text|"*)"|#FFB100}} + varoffs$ + {{Text|";"|#FFB100}}
                    {{Text|ELSE|#F0F0F0}}
                        WriteBufLine MainTxtBuf, {{Text|"memmove((void*)tmp_long,"|#FFB100}} + varoffs$ + {{Text|","|#FFB100}} + varsize$ + {{Text|");"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"}else error(309);"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|'... AS type method|#31C4C4}}
                {{Text|'FUNCTION typname2typ& (t2$)|#31C4C4}}
                {{Text|'typname2typsize = 0 'the default|#31C4C4}}
                t = typname2typ(typ$)
                {{Text|IF|#F0F0F0}} t = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISOFFSETINBITS) <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUDT) <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} a$ = qb64prefix$ + {{Text|"MEMPUT requires numeric type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISPOINTER) {{Text|THEN|#F0F0F0}} t = t - ISPOINTER
                {{Text|'attempt conversion...|#31C4C4}}
                e$ = fixoperationorder$(var$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                l$ = l$ + sp2 + {{Text|","|#FFB100}} + sp + tlayout$ + sp + SCase$({{Text|"As"|#FFB100}}) + sp + typ$
                e$ = evaluatetotyp(e$, t): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                st$ = typ2ctyp$(t, {{Text|""|#FFB100}})
                varsize$ = str2((t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) \ {{Text|8|#F580B1}})
                {{Text|IF|#F0F0F0}} NoChecks {{Text|THEN|#F0F0F0}}
                    {{Text|'fast version:|#31C4C4}}
                    WriteBufLine MainTxtBuf, {{Text|"*("|#FFB100}} + st$ + {{Text|"*)("|#FFB100}} + offs$ + {{Text|")="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|'safe version:|#31C4C4}}
                    WriteBufLine MainTxtBuf, {{Text|"tmp_long="|#FFB100}} + offs$ + {{Text|";"|#FFB100}}
                    {{Text|'is mem block init?|#31C4C4}}
                    WriteBufLine MainTxtBuf, {{Text|"if ( ((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->lock_offset ){"|#FFB100}}
                    {{Text|'are region and id valid?|#31C4C4}}
                    WriteBufLine MainTxtBuf, {{Text|"if ("|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"tmp_long < ((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->offset  ¦¦"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"(tmp_long+("|#FFB100}} + varsize$ + {{Text|")) > ( ((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->offset + ((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->size)  ¦¦"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"((mem_lock*)((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->lock_offset)->id != ((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->lock_id  ){"|#FFB100}}
                    {{Text|'diagnose error|#31C4C4}}
                    WriteBufLine MainTxtBuf, {{Text|"if ("|#FFB100}} + {{Text|"((mem_lock*)((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->lock_offset)->id != ((mem_block*)("|#FFB100}} + blkoffs$ + {{Text|"))->lock_id"|#FFB100}} + {{Text|") error(308); else error(300);"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"}else{"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"*("|#FFB100}} + st$ + {{Text|"*)tmp_long="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"}else error(309);"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"_MEMFILL"|#FFB100}} {{Text|OR|#F0F0F0}} (firstelement$ = {{Text|"MEMFILL"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
            {{Text|'get expressions|#31C4C4}}
            typ$ = {{Text|""|#FFB100}}
            e$ = {{Text|""|#FFB100}}
            B = {{Text|0|#F580B1}}
            ne = {{Text|0|#F580B1}}
            {{Text|FOR|#F0F0F0}} i2 = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n
                e2$ = getelement$(ca$, i2)
                {{Text|IF|#F0F0F0}} e2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} e2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} (e2$ = {{Text|","|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(e2$) = {{Text|"AS"|#FFB100}}) {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    ne = ne + {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} ne = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} blk$ = e$: e$ = {{Text|""|#FFB100}}
                    {{Text|IF|#F0F0F0}} ne = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} offs$ = e$: e$ = {{Text|""|#FFB100}}
                    {{Text|IF|#F0F0F0}} ne = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} bytes$ = e$: e$ = {{Text|""|#FFB100}}
                    {{Text|IF|#F0F0F0}} ne = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} var$ = e$: e$ = {{Text|""|#FFB100}}
                    {{Text|IF|#F0F0F0}} ({{Text|UCASE$|#F0F0F0}}(e2$) = {{Text|"AS"|#FFB100}} {{Text|AND|#F0F0F0}} ne <> {{Text|4|#F580B1}}) {{Text|OR|#F0F0F0}} (ne = {{Text|4|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(e2$) <> {{Text|"AS"|#FFB100}}) {{Text|OR|#F0F0F0}} ne = {{Text|5|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected _MEMFILL mem-reference,offset,bytes,variable¦value[AS type]"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = e2$ {{Text|ELSE|#F0F0F0}} e$ = e$ + sp + e2$
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            {{Text|IF|#F0F0F0}} ne < {{Text|3|#F580B1}} {{Text|OR|#F0F0F0}} e$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected "|#FFB100}} + qb64prefix$ + {{Text|"MEMFILL mem-reference, offset, bytes, variable¦value[AS type]"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} ne = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} var$ = e$ {{Text|ELSE|#F0F0F0}} typ$ = {{Text|UCASE$|#F0F0F0}}(e$)
            {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"_MEMFILL"|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = SCase$({{Text|"_MemFill"|#FFB100}}) + sp {{Text|ELSE|#F0F0F0}} l$ = SCase$({{Text|"MemFill"|#FFB100}}) + sp
            e$ = fixoperationorder$(blk$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l$ = l$ + tlayout$
            test$ = evaluate(e$, typ): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected "|#FFB100}} + qb64prefix$ + {{Text|"MEM type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            blkoffs$ = evaluatetotyp(e$, {{Text|-6|#F580B1}})
            e$ = fixoperationorder$(offs$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l$ = l$ + sp2 + {{Text|","|#FFB100}} + sp + tlayout$
            e$ = evaluatetotyp(e$, OFFSETTYPE - ISPOINTER): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            offs$ = e$
            e$ = fixoperationorder$(bytes$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            l$ = l$ + sp2 + {{Text|","|#FFB100}} + sp + tlayout$
            e$ = evaluatetotyp(e$, OFFSETTYPE - ISPOINTER): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            bytes$ = e$
            {{Text|IF|#F0F0F0}} ne = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'no AS|#31C4C4}}
                e$ = fixoperationorder$(var$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                l$ = l$ + sp2 + {{Text|","|#FFB100}} + sp + tlayout$
                test$ = evaluate(e$, t)
                {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"tmp_long=(ptrszint)"|#FFB100}} + test$ + {{Text|";"|#FFB100}}
                    varsize$ = {{Text|"((qbs*)tmp_long)->len"|#FFB100}}
                    varoffs$ = {{Text|"((qbs*)tmp_long)->chr"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    varsize$ = evaluatetotyp(e$, {{Text|-5|#F580B1}}): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    varoffs$ = evaluatetotyp(e$, {{Text|-6|#F580B1}}): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} NoChecks {{Text|THEN|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"sub__memfill_nochecks("|#FFB100}} + offs$ + {{Text|","|#FFB100}} + bytes$ + {{Text|",(ptrszint)"|#FFB100}} + varoffs$ + {{Text|","|#FFB100}} + varsize$ + {{Text|");"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"sub__memfill((mem_block*)"|#FFB100}} + blkoffs$ + {{Text|","|#FFB100}} + offs$ + {{Text|","|#FFB100}} + bytes$ + {{Text|",(ptrszint)"|#FFB100}} + varoffs$ + {{Text|","|#FFB100}} + varsize$ + {{Text|");"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|'... AS type method|#31C4C4}}
                t = typname2typ(typ$)
                {{Text|IF|#F0F0F0}} t = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Invalid type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISOFFSETINBITS) <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUDT) <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} a$ = qb64prefix$ + {{Text|"MEMFILL requires numeric type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISPOINTER) {{Text|THEN|#F0F0F0}} t = t - ISPOINTER
                {{Text|'attempt conversion...|#31C4C4}}
                e$ = fixoperationorder$(var$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                l$ = l$ + sp2 + {{Text|","|#FFB100}} + sp + tlayout$ + sp + SCase$({{Text|"As"|#FFB100}}) + sp + typ$
                e$ = evaluatetotyp(e$, t): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                c$ = {{Text|"sub__memfill_"|#FFB100}}
                {{Text|IF|#F0F0F0}} NoChecks {{Text|THEN|#F0F0F0}} c$ = {{Text|"sub__memfill_nochecks_"|#FFB100}}
                {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISOFFSET {{Text|THEN|#F0F0F0}}
                    c$ = c$ + {{Text|"OFFSET"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} c$ = c$ + {{Text|"SINGLE"|#FFB100}}
                        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} c$ = c$ + {{Text|"DOUBLE"|#FFB100}}
                        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|256|#F580B1}} {{Text|THEN|#F0F0F0}} c$ = c$ + {{Text|"FLOAT"|#FFB100}} {{Text|'padded variable|#31C4C4}}
                    {{Text|ELSE|#F0F0F0}}
                        c$ = c$ + str2((t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) \ {{Text|8|#F580B1}})
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                c$ = c$ + {{Text|"("|#FFB100}}
                {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} c$ = c$ + {{Text|"(mem_block*)"|#FFB100}} + blkoffs$ + {{Text|","|#FFB100}}
                WriteBufLine MainTxtBuf, c$ + offs$ + {{Text|","|#FFB100}} + bytes$ + {{Text|","|#FFB100}} + e$ + {{Text|");"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'note: ABSOLUTE cannot be used without CALL|#31C4C4}}
    cispecial = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} n > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"INTERRUPT"|#FFB100}} {{Text|OR|#F0F0F0}} firstelement$ = {{Text|"INTERRUPTX"|#FFB100}} {{Text|THEN|#F0F0F0}}
            a$ = {{Text|"CALL"|#FFB100}} + sp + firstelement$ + sp + {{Text|"("|#FFB100}} + sp + getelements$(a$, {{Text|2|#F580B1}}, n) + sp + {{Text|")"|#FFB100}}
            ca$ = {{Text|"CALL"|#FFB100}} + sp + firstelement$ + sp + {{Text|"("|#FFB100}} + sp + getelements$(ca$, {{Text|2|#F580B1}}, n) + sp + {{Text|")"|#FFB100}}
            n = n + {{Text|3|#F580B1}}
            firstelement$ = {{Text|"CALL"|#FFB100}}
            cispecial = {{Text|1|#F580B1}}
            {{Text|'fall through|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    usecall = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"CALL"|#FFB100}} {{Text|THEN|#F0F0F0}}
        usecall = {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected CALL sub-name [(...)]"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
        cn$ = getelement$(ca$, {{Text|2|#F580B1}}): n$ = {{Text|UCASE$|#F0F0F0}}(cn$)
        {{Text|IF|#F0F0F0}} n > {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} n <= {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected CALL sub-name (...)"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} getelement$(a$, {{Text|3|#F580B1}}) <> {{Text|"("|#FFB100}} {{Text|OR|#F0F0F0}} getelement$(a$, n) <> {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected CALL sub-name (...)"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            a$ = n$ + sp + getelements$(a$, {{Text|4|#F580B1}}, n - {{Text|1|#F580B1}})
            ca$ = cn$ + sp + getelements$(ca$, {{Text|4|#F580B1}}, n - {{Text|1|#F580B1}})
            {{Text|IF|#F0F0F0}} n$ = {{Text|"INTERRUPT"|#FFB100}} {{Text|OR|#F0F0F0}} n$ = {{Text|"INTERRUPTX"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|'assume CALL INTERRUPT[X] request|#31C4C4}}
                {{Text|'print "CI: call interrupt command reached":sleep 1|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"INTERRUPT"|#FFB100}} {{Text|THEN|#F0F0F0}} WriteBufRawData MainTxtBuf, {{Text|"call_interrupt("|#FFB100}} {{Text|ELSE|#F0F0F0}} WriteBufRawData MainTxtBuf, {{Text|"call_interruptx("|#FFB100}}
                argn = {{Text|0|#F580B1}}
                n = numelements(a$)
                B = {{Text|0|#F580B1}}
                e$ = {{Text|""|#FFB100}}
                {{Text|FOR|#F0F0F0}} i = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n
                    e2$ = getelement$(ca$, i)
                    {{Text|IF|#F0F0F0}} e2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} e2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} (e2$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}}) {{Text|OR|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} e$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} e$ = e2$ {{Text|ELSE|#F0F0F0}} e$ = e$ + sp + e2$
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        argn = argn + {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} argn = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'interrupt number|#31C4C4}}
                            e$ = fixoperationorder$(e$)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            l$ = SCase$({{Text|"Call"|#FFB100}}) + sp + n$ + sp2 + {{Text|"("|#FFB100}} + sp2 + tlayout$
                            {{Text|IF|#F0F0F0}} cispecial = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = n$ + sp + tlayout$
                            e$ = evaluatetotyp(e$, {{Text|64&|#F580B1}})
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|'print "CI: evaluated interrupt number as ["+e$+"]":sleep 1|#31C4C4}}
                            WriteBufRawData MainTxtBuf, e$
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} argn = {{Text|2|#F580B1}} {{Text|OR|#F0F0F0}} argn = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'inregs, outregs|#31C4C4}}
                            e$ = fixoperationorder$(e$)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            l$ = l$ + sp2 + {{Text|","|#FFB100}} + sp + tlayout$
                            e2$ = e$
                            e$ = evaluatetotyp(e$, {{Text|-2|#F580B1}}) {{Text|'offset+size|#31C4C4}}
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|'print "CI: evaluated in/out regs ["+e2$+"] as ["+e$+"]":sleep 1|#31C4C4}}
                            WriteBufRawData MainTxtBuf, {{Text|","|#FFB100}} + e$
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        e$ = {{Text|""|#FFB100}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} e$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} e$ = e2$ {{Text|ELSE|#F0F0F0}} e$ = e$ + sp + e2$
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|NEXT|#F0F0F0}}
                {{Text|IF|#F0F0F0}} argn <> {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected CALL INTERRUPT (interrupt-no, inregs, outregs)"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                WriteBufLine MainTxtBuf, {{Text|");"|#FFB100}}
                {{Text|IF|#F0F0F0}} cispecial = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp2 + {{Text|")"|#FFB100}}
                layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                {{Text|'print "CI: done":sleep 1|#31C4C4}}
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'call interrupt|#31C4C4}}
            {{Text|'call to CALL ABSOLUTE beyond reasonable doubt|#31C4C4}}
            {{Text|IF|#F0F0F0}} n$ = {{Text|"ABSOLUTE"|#FFB100}} {{Text|THEN|#F0F0F0}}
                l$ = SCase$({{Text|"Call"|#FFB100}} + sp + {{Text|"Absolute"|#FFB100}} + sp2 + {{Text|"("|#FFB100}} + sp2)
                argn = {{Text|0|#F580B1}}
                n = numelements(a$)
                B = {{Text|0|#F580B1}}
                e$ = {{Text|""|#FFB100}}
                {{Text|FOR|#F0F0F0}} i = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n
                    e2$ = getelement$(ca$, i)
                    {{Text|IF|#F0F0F0}} e2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} e2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} (e2$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}}) {{Text|OR|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} i < n {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} e$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected expression before , or )"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|'1. variable or value?|#31C4C4}}
                            e$ = fixoperationorder$(e$)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            l$ = l$ + tlayout$ + sp2 + {{Text|","|#FFB100}} + sp
                            ignore$ = evaluate(e$, typ)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISPOINTER) <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|'assume standard variable|#31C4C4}}
                                {{Text|'assume not string/array/udt/etc|#31C4C4}}
                                e$ = {{Text|"VARPTR"|#FFB100}} + sp + {{Text|"("|#FFB100}} + sp + e$ + sp + {{Text|")"|#FFB100}}
                                e$ = evaluatetotyp(e$, UINTEGERTYPE - ISPOINTER)
                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|'assume not string|#31C4C4}}
                                {{Text|'single, double or integer64?|#31C4C4}}
                                {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        e$ = evaluatetotyp(e$, SINGLETYPE - ISPOINTER)
                                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                        v$ = {{Text|"pass"|#FFB100}} + str2$(uniquenumber)
                                        WriteBufLine defdatahandle, {{Text|"float *"|#FFB100}} + v$ + {{Text|"=NULL;"|#FFB100}}
                                        WriteBufLine DataTxtBuf, {{Text|"if("|#FFB100}} + v$ + {{Text|"==NULL){"|#FFB100}}
                                        WriteBufLine DataTxtBuf, {{Text|"cmem_sp-=4;"|#FFB100}}
                                        WriteBufLine DataTxtBuf, v$ + {{Text|"=(float*)(dblock+cmem_sp);"|#FFB100}}
                                        WriteBufLine DataTxtBuf, {{Text|"if (cmem_sp<qbs_cmem_sp) error(257);"|#FFB100}}
                                        WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
                                        e$ = {{Text|"(uint16)(((uint8*)&(*"|#FFB100}} + v$ + {{Text|"="|#FFB100}} + e$ + {{Text|"))-((uint8*)dblock))"|#FFB100}}
                                    {{Text|ELSE|#F0F0F0}}
                                        e$ = evaluatetotyp(e$, DOUBLETYPE - ISPOINTER)
                                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                        v$ = {{Text|"pass"|#FFB100}} + str2$(uniquenumber)
                                        WriteBufLine defdatahandle, {{Text|"double *"|#FFB100}} + v$ + {{Text|"=NULL;"|#FFB100}}
                                        WriteBufLine DataTxtBuf, {{Text|"if("|#FFB100}} + v$ + {{Text|"==NULL){"|#FFB100}}
                                        WriteBufLine DataTxtBuf, {{Text|"cmem_sp-=8;"|#FFB100}}
                                        WriteBufLine DataTxtBuf, v$ + {{Text|"=(double*)(dblock+cmem_sp);"|#FFB100}}
                                        WriteBufLine DataTxtBuf, {{Text|"if (cmem_sp<qbs_cmem_sp) error(257);"|#FFB100}}
                                        WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
                                        e$ = {{Text|"(uint16)(((uint8*)&(*"|#FFB100}} + v$ + {{Text|"="|#FFB100}} + e$ + {{Text|"))-((uint8*)dblock))"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|ELSE|#F0F0F0}}
                                    e$ = evaluatetotyp(e$, INTEGER64TYPE - ISPOINTER)
                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                    v$ = {{Text|"pass"|#FFB100}} + str2$(uniquenumber)
                                    WriteBufLine defdatahandle, {{Text|"int64 *"|#FFB100}} + v$ + {{Text|"=NULL;"|#FFB100}}
                                    WriteBufLine DataTxtBuf, {{Text|"if("|#FFB100}} + v$ + {{Text|"==NULL){"|#FFB100}}
                                    WriteBufLine DataTxtBuf, {{Text|"cmem_sp-=8;"|#FFB100}}
                                    WriteBufLine DataTxtBuf, v$ + {{Text|"=(int64*)(dblock+cmem_sp);"|#FFB100}}
                                    WriteBufLine DataTxtBuf, {{Text|"if (cmem_sp<qbs_cmem_sp) error(257);"|#FFB100}}
                                    WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
                                    e$ = {{Text|"(uint16)(((uint8*)&(*"|#FFB100}} + v$ + {{Text|"="|#FFB100}} + e$ + {{Text|"))-((uint8*)dblock))"|#FFB100}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            WriteBufLine MainTxtBuf, {{Text|"call_absolute_offsets["|#FFB100}} + str2$(argn) + {{Text|"]="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} e$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} e$ = e2$ {{Text|ELSE|#F0F0F0}} e$ = e$ + sp + e2$
                            e$ = fixoperationorder(e$)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            l$ = l$ + tlayout$ + sp2 + {{Text|")"|#FFB100}}
                            e$ = evaluatetotyp(e$, UINTEGERTYPE - ISPOINTER)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            WriteBufLine MainTxtBuf, {{Text|"call_absolute("|#FFB100}} + str2$(argn) + {{Text|","|#FFB100}} + e$ + {{Text|");"|#FFB100}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        argn = argn + {{Text|1|#F580B1}}
                        e$ = {{Text|""|#FFB100}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} e$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} e$ = e2$ {{Text|ELSE|#F0F0F0}} e$ = e$ + sp + e2$
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|NEXT|#F0F0F0}}
                layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|ELSE|#F0F0F0}} {{Text|'n>2|#31C4C4}}
            a$ = n$
            ca$ = cn$
            usecall = {{Text|2|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'n>2|#31C4C4}}
        n = numelements(a$)
        firstelement$ = getelement$(a$, {{Text|1|#F580B1}})
        {{Text|'valid SUB name|#31C4C4}}
        validsub = {{Text|0|#F580B1}}
        findidsecondarg = {{Text|""|#FFB100}}: {{Text|IF|#F0F0F0}} n >= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findidsecondarg = getelement$(a$, {{Text|2|#F580B1}})
        try = findid(firstelement$)
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
        {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
            {{Text|IF|#F0F0F0}} id.subfunc = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} validsub = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
            {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                findidsecondarg = {{Text|""|#FFB100}}: {{Text|IF|#F0F0F0}} n >= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findidsecondarg = getelement$(a$, {{Text|2|#F580B1}})
                findanotherid = {{Text|1|#F580B1}}
                try = findid(firstelement$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|ELSE|#F0F0F0}}
                try = {{Text|0|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|LOOP|#F0F0F0}}
        {{Text|IF|#F0F0F0}} validsub = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected CALL sub-name [(...)]"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'sub?|#31C4C4}}
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"?"|#FFB100}} {{Text|THEN|#F0F0F0}} firstelement$ = {{Text|"PRINT"|#FFB100}}
        findidsecondarg = {{Text|""|#FFB100}}: {{Text|IF|#F0F0F0}} n >= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findidsecondarg = getelement$(a$, {{Text|2|#F580B1}})
        try = findid(firstelement$)
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
        {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
            {{Text|IF|#F0F0F0}} id.subfunc = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|'check symbol|#31C4C4}}
                s$ = removesymbol$(firstelement$ + {{Text|""|#FFB100}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(id.musthave) = {{Text|36|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'="$"|#31C4C4}}
                    {{Text|IF|#F0F0F0}} s$ <> {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} notsubcall {{Text|'missing musthave "$"|#31C4C4}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(s$) {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} notsubcall {{Text|'unrequired symbol added|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'check for variable assignment|#31C4C4}}
                {{Text|IF|#F0F0F0}} n > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(id.specialformat) <> {{Text|61|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'<>"="|#31C4C4}}
                        {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(getelement$(a$, {{Text|2|#F580B1}})) = {{Text|61|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} notsubcall {{Text|'assignment, not sub call|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'check for array assignment|#31C4C4}}
                {{Text|IF|#F0F0F0}} n > {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} firstelement$ <> {{Text|"PRINT"|#FFB100}} {{Text|AND|#F0F0F0}} firstelement$ <> {{Text|"LPRINT"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} getelement$(a$, {{Text|2|#F580B1}}) = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}}
                            B = {{Text|1|#F580B1}}
                            {{Text|FOR|#F0F0F0}} i = {{Text|3|#F580B1}} {{Text|TO|#F0F0F0}} n
                                e$ = getelement$(a$, i)
                                {{Text|IF|#F0F0F0}} e$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                                {{Text|IF|#F0F0F0}} e$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                    B = B - {{Text|1|#F580B1}}
                                    {{Text|IF|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} getelement$(a$, i + {{Text|1|#F580B1}}) = {{Text|"="|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} notsubcall
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|NEXT|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'generate error on driect _GL call|#31C4C4}}
                {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"_GL"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    a$ = {{Text|"Cannot call SUB _GL directly"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"VWATCH"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    a$ = {{Text|"Cannot call SUB VWATCH directly"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"OPEN"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|'gwbasic or qbasic version?|#31C4C4}}
                    B = {{Text|0|#F580B1}}
                    {{Text|FOR|#F0F0F0}} x = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n
                        a2$ = getelement$(a$, x)
                        {{Text|IF|#F0F0F0}} a2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} a2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} a2$ = {{Text|"FOR"|#FFB100}} {{Text|OR|#F0F0F0}} a2$ = {{Text|"AS"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}} {{Text|'qb style open verified|#31C4C4}}
                        {{Text|IF|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|'the gwbasic version includes a comma after the first string expression|#31C4C4}}
                            findanotherid = {{Text|1|#F580B1}}
                            try = findid(firstelement$) {{Text|'id of sub_open_gwbasic|#31C4C4}}
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|NEXT|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'IF findid(firstelement$) THEN|#31C4C4}}
                {{Text|'IF id.subfunc = 2 THEN|#31C4C4}}
                {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"CLOSE"|#FFB100}} {{Text|OR|#F0F0F0}} firstelement$ = {{Text|"RESET"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"RESET"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} n > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Syntax error - RESET takes no parameters"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        l$ = SCase$({{Text|"Reset"|#FFB100}})
                    {{Text|ELSE|#F0F0F0}}
                        l$ = SCase$({{Text|"Close"|#FFB100}})
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        WriteBufLine MainTxtBuf, {{Text|"sub_close(NULL,0);"|#FFB100}} {{Text|'closes all files|#31C4C4}}
                    {{Text|ELSE|#F0F0F0}}
                        l$ = l$ + sp
                        B = {{Text|0|#F580B1}}
                        s = {{Text|0|#F580B1}}
                        a3$ = {{Text|""|#FFB100}}
                        {{Text|FOR|#F0F0F0}} x = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n
                            a2$ = getelement$(ca$, x)
                            {{Text|IF|#F0F0F0}} a2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                            {{Text|IF|#F0F0F0}} a2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                            {{Text|IF|#F0F0F0}} a2$ = {{Text|"#"|#FFB100}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} s = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} s = {{Text|1|#F580B1}} {{Text|ELSE|#F0F0F0}} a$ = {{Text|"Unexpected #"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                l$ = l$ + {{Text|"#"|#FFB100}} + sp2
                                {{Text|GOTO|#F0F0F0}} closenexta
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} s = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    e$ = fixoperationorder$(a3$)
                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                    l$ = l$ + tlayout$ + sp2 + {{Text|","|#FFB100}} + sp
                                    e$ = evaluatetotyp(e$, {{Text|64&|#F580B1}})
                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                    WriteBufLine MainTxtBuf, {{Text|"sub_close("|#FFB100}} + e$ + {{Text|",1);"|#FFB100}}
                                    a3$ = {{Text|""|#FFB100}}
                                    s = {{Text|0|#F580B1}}
                                    {{Text|GOTO|#F0F0F0}} closenexta
                                {{Text|ELSE|#F0F0F0}}
                                    a$ = {{Text|"Expected expression before ,"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            s = {{Text|2|#F580B1}}
                            {{Text|IF|#F0F0F0}} a3$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a3$ = a2$ {{Text|ELSE|#F0F0F0}} a3$ = a3$ + sp + a2$
                            closenexta:
                        {{Text|NEXT|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} s = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                            e$ = fixoperationorder$(a3$)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            l$ = l$ + tlayout$
                            e$ = evaluatetotyp(e$, {{Text|64&|#F580B1}})
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            WriteBufLine MainTxtBuf, {{Text|"sub_close("|#FFB100}} + e$ + {{Text|",1);"|#FFB100}}
                        {{Text|ELSE|#F0F0F0}}
                            l$ = {{Text|LEFT$|#F0F0F0}}(l$, {{Text|LEN|#F0F0F0}}(l$) - {{Text|1|#F580B1}})
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                    {{Text|GOTO|#F0F0F0}} finishedline
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'close|#31C4C4}}
                {{Text|'data, restore, read|#31C4C4}}
                {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"READ"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|'file input|#31C4C4}}
                    xread ca$, n
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|'note: layout done in xread sub|#31C4C4}}
                    {{Text|GOTO|#F0F0F0}} finishedline
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'read|#31C4C4}}
                lineinput = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} n >= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"LINE"|#FFB100}} {{Text|AND|#F0F0F0}} secondelement$ = {{Text|"INPUT"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        lineinput = {{Text|1|#F580B1}}
                        a$ = {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - {{Text|5|#F580B1}}): ca$ = {{Text|RIGHT$|#F0F0F0}}(ca$, {{Text|LEN|#F0F0F0}}(ca$) - {{Text|5|#F580B1}}): n = n - {{Text|1|#F580B1}} {{Text|'remove "LINE"|#31C4C4}}
                        firstelement$ = {{Text|"INPUT"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"INPUT"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|'file input|#31C4C4}}
                    {{Text|IF|#F0F0F0}} n > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} getelement$(a$, {{Text|2|#F580B1}}) = {{Text|"#"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            l$ = SCase$({{Text|"Input"|#FFB100}}) + sp + {{Text|"#"|#FFB100}}: {{Text|IF|#F0F0F0}} lineinput {{Text|THEN|#F0F0F0}} l$ = SCase$({{Text|"Line"|#FFB100}}) + sp + l$
                            u$ = str2$(uniquenumber)
                            {{Text|'which file?|#31C4C4}}
                            {{Text|IF|#F0F0F0}} n = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected # ... , ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            a3$ = {{Text|""|#FFB100}}
                            B = {{Text|0|#F580B1}}
                            {{Text|FOR|#F0F0F0}} i = {{Text|3|#F580B1}} {{Text|TO|#F0F0F0}} n
                                a2$ = getelement$(ca$, i)
                                {{Text|IF|#F0F0F0}} a2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                                {{Text|IF|#F0F0F0}} a2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                                {{Text|IF|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} a3$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected # ... , ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|GOTO|#F0F0F0}} inputgotfn
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} a3$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a3$ = a2$ {{Text|ELSE|#F0F0F0}} a3$ = a3$ + sp + a2$
                            {{Text|NEXT|#F0F0F0}}
                            inputgotfn:
                            e$ = fixoperationorder$(a3$)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            l$ = l$ + sp2 + tlayout$
                            e$ = evaluatetotyp(e$, {{Text|64&|#F580B1}})
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            WriteBufLine MainTxtBuf, {{Text|"tmp_fileno="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
                            WriteBufLine MainTxtBuf, {{Text|"if (new_error) goto skip"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
                            i = i + {{Text|1|#F580B1}}
                            {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected , ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            a3$ = {{Text|""|#FFB100}}
                            B = {{Text|0|#F580B1}}
                            {{Text|FOR|#F0F0F0}} i = i {{Text|TO|#F0F0F0}} n
                                a2$ = getelement$(ca$, i)
                                {{Text|IF|#F0F0F0}} a2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                                {{Text|IF|#F0F0F0}} a2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                                {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} a3$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a3$ = a2$ {{Text|ELSE|#F0F0F0}} a3$ = a3$ + sp + a2$
                                    a2$ = {{Text|","|#FFB100}}: B = {{Text|0|#F580B1}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} a3$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected , ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    e$ = fixoperationorder$(a3$)
                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                    l$ = l$ + sp2 + {{Text|","|#FFB100}} + sp + tlayout$
                                    e$ = evaluate(e$, t)
                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected variable-name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
                                        e$ = refer(e$, t, {{Text|0|#F580B1}})
                                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                        {{Text|IF|#F0F0F0}} lineinput {{Text|THEN|#F0F0F0}}
                                            WriteBufLine MainTxtBuf, {{Text|"sub_file_line_input_string(tmp_fileno,"|#FFB100}} + e$ + {{Text|");"|#FFB100}}
                                            WriteBufLine MainTxtBuf, {{Text|"if (new_error) goto skip"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
                                        {{Text|ELSE|#F0F0F0}}
                                            WriteBufLine MainTxtBuf, {{Text|"sub_file_input_string(tmp_fileno,"|#FFB100}} + e$ + {{Text|");"|#FFB100}}
                                            WriteBufLine MainTxtBuf, {{Text|"if (new_error) goto skip"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        stringprocessinghappened = {{Text|1|#F580B1}}
                                    {{Text|ELSE|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} lineinput {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected string-variable"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                        {{Text|'numeric variable|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISFLOAT) <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) <> {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}}
                                                setrefer e$, t, {{Text|"((int64)func_file_input_float(tmp_fileno,"|#FFB100}} + str2(t) + {{Text|"))"|#FFB100}}, {{Text|1|#F580B1}}
                                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                            {{Text|ELSE|#F0F0F0}}
                                                setrefer e$, t, {{Text|"func_file_input_float(tmp_fileno,"|#FFB100}} + str2(t) + {{Text|")"|#FFB100}}, {{Text|1|#F580B1}}
                                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|ELSE|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}}
                                                setrefer e$, t, {{Text|"func_file_input_uint64(tmp_fileno)"|#FFB100}}, {{Text|1|#F580B1}}
                                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                            {{Text|ELSE|#F0F0F0}}
                                                setrefer e$, t, {{Text|"func_file_input_int64(tmp_fileno)"|#FFB100}}, {{Text|1|#F580B1}}
                                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        WriteBufLine MainTxtBuf, {{Text|"if (new_error) goto skip"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} lineinput {{Text|THEN|#F0F0F0}} a$ = {{Text|"Too many variables"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    a3$ = {{Text|""|#FFB100}}: a2$ = {{Text|""|#FFB100}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} a3$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a3$ = a2$ {{Text|ELSE|#F0F0F0}} a3$ = a3$ + sp + a2$
                            {{Text|NEXT|#F0F0F0}}
                            WriteBufLine MainTxtBuf, {{Text|"skip"|#FFB100}} + u$ + {{Text|":"|#FFB100}}
                            {{Text|IF|#F0F0F0}} stringprocessinghappened {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, cleanupstringprocessingcall$ + {{Text|"0);"|#FFB100}}
                            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                            {{Text|GOTO|#F0F0F0}} finishedline
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'input#|#31C4C4}}
                {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"INPUT"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    l$ = SCase$({{Text|"Input"|#FFB100}}): {{Text|IF|#F0F0F0}} lineinput {{Text|THEN|#F0F0F0}} l$ = SCase$({{Text|"Line"|#FFB100}}) + sp + l$
                    commaneeded = {{Text|0|#F580B1}}
                    i = {{Text|2|#F580B1}}
                    newline = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} getelement$(a$, i) = {{Text|";"|#FFB100}} {{Text|THEN|#F0F0F0}} newline = {{Text|0|#F580B1}}: i = i + {{Text|1|#F580B1}}: l$ = l$ + sp + {{Text|";"|#FFB100}}
                    a2$ = getelement$(ca$, i)
                    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(a2$, {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) {{Text|THEN|#F0F0F0}}
                        e$ = fixoperationorder$(a2$): l$ = l$ + sp + tlayout$
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                        WriteBufLine MainTxtBuf, {{Text|"qbs_print(qbs_new_txt_len("|#FFB100}} + a2$ + {{Text|"),0);"|#FFB100}}
                        i = i + {{Text|1|#F580B1}}
                        {{Text|'MUST be followed by a ; or ,|#31C4C4}}
                        a2$ = getelement$(ca$, i)
                        i = i + {{Text|1|#F580B1}}
                        l$ = l$ + sp2 + a2$
                        {{Text|IF|#F0F0F0}} a2$ = {{Text|";"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} lineinput {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} finishedpromptstring
                            WriteBufLine MainTxtBuf, {{Text|"qbs_print(qbs_new_txt("|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"? "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"),0);"|#FFB100}}
                            {{Text|GOTO|#F0F0F0}} finishedpromptstring
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}}
                            {{Text|GOTO|#F0F0F0}} finishedpromptstring
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        a$ = {{Text|"Syntax error - Reference: INPUT [;] "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"[Question or statement text]"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"{,¦;} variable[, ...] or INPUT ; variable[, ...]"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'there was no promptstring, so print a ?|#31C4C4}}
                    {{Text|IF|#F0F0F0}} lineinput = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"qbs_print(qbs_new_txt("|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"? "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"),0);"|#FFB100}}
                    finishedpromptstring:
                    numvar = {{Text|0|#F580B1}}
                    {{Text|FOR|#F0F0F0}} i = i {{Text|TO|#F0F0F0}} n
                        {{Text|IF|#F0F0F0}} commaneeded = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                            a2$ = getelement$(ca$, i)
                            {{Text|IF|#F0F0F0}} a2$ <> {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Syntax error - comma expected"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|ELSE|#F0F0F0}}
                            B = {{Text|0|#F580B1}}
                            e$ = {{Text|""|#FFB100}}
                            {{Text|FOR|#F0F0F0}} i2 = i {{Text|TO|#F0F0F0}} n
                                e2$ = getelement$(ca$, i2)
                                {{Text|IF|#F0F0F0}} e2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                                {{Text|IF|#F0F0F0}} e2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                                {{Text|IF|#F0F0F0}} e2$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} i2 = i2 - {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                                e$ = e$ + sp + e2$
                            {{Text|NEXT|#F0F0F0}}
                            i = i2: {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} i = n
                            {{Text|IF|#F0F0F0}} e$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected variable"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|1|#F580B1}})
                            e$ = fixoperationorder$(e$)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            l$ = l$ + sp + tlayout$: {{Text|IF|#F0F0F0}} i <> n {{Text|THEN|#F0F0F0}} l$ = l$ + sp2 + {{Text|","|#FFB100}}
                            e$ = evaluate(e$, t)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected variable"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
                                e$ = refer(e$, t, {{Text|0|#F580B1}})
                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                numvar = numvar + {{Text|1|#F580B1}}
                                {{Text|IF|#F0F0F0}} lineinput {{Text|THEN|#F0F0F0}}
                                    WriteBufLine MainTxtBuf, {{Text|"qbs_input_variabletypes["|#FFB100}} + str2(numvar) + {{Text|"]=ISSTRING+512;"|#FFB100}}
                                {{Text|ELSE|#F0F0F0}}
                                    WriteBufLine MainTxtBuf, {{Text|"qbs_input_variabletypes["|#FFB100}} + str2(numvar) + {{Text|"]=ISSTRING;"|#FFB100}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                WriteBufLine MainTxtBuf, {{Text|"qbs_input_variableoffsets["|#FFB100}} + str2(numvar) + {{Text|"]="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
                                {{Text|GOTO|#F0F0F0}} gotinputvar
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} lineinput {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected string variable"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISARRAY) {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}}
                                    a$ = {{Text|"INPUT cannot handle BIT array elements"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            e$ = {{Text|"&("|#FFB100}} + refer(e$, t, {{Text|0|#F580B1}}) + {{Text|")"|#FFB100}}
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|'remove assumed/unnecessary flags|#31C4C4}}
                            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISPOINTER) {{Text|THEN|#F0F0F0}} t = t - ISPOINTER
                            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISINCONVENTIONALMEMORY) {{Text|THEN|#F0F0F0}} t = t - ISINCONVENTIONALMEMORY
                            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} t = t - ISREFERENCE
                            {{Text|'IF (t AND ISOFFSETINBITS) THEN|#31C4C4}}
                            {{Text|'numvar = numvar + 1|#31C4C4}}
                            {{Text|'consider storing the bit offset in unused bits of t|#31C4C4}}
                            {{Text|'WriteBufLine MainTxtBuf, "qbs_input_variabletypes[" + str2(numvar) + "]=" + str2(t) + ";"|#31C4C4}}
                            {{Text|'WriteBufLine MainTxtBuf, "qbs_input_variableoffsets[" + str2(numvar) + "]=" + refer(ref$, typ, 1) + ";"|#31C4C4}}
                            {{Text|'GOTO gotinputvar|#31C4C4}}
                            {{Text|'END IF|#31C4C4}}
                            {{Text|'assume it is a regular variable|#31C4C4}}
                            numvar = numvar + {{Text|1|#F580B1}}
                            WriteBufLine MainTxtBuf, {{Text|"qbs_input_variabletypes["|#FFB100}} + str2(numvar) + {{Text|"]="|#FFB100}} + str2$(t) + {{Text|";"|#FFB100}}
                            WriteBufLine MainTxtBuf, {{Text|"qbs_input_variableoffsets["|#FFB100}} + str2(numvar) + {{Text|"]="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
                            {{Text|GOTO|#F0F0F0}} gotinputvar
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        gotinputvar:
                        commaneeded = commaneeded + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} commaneeded = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} commaneeded = {{Text|0|#F580B1}}
                    {{Text|NEXT|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} numvar = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Syntax error - Reference: INPUT [;] "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"[Question or statement text]"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"{,¦;} variable[, ...] or INPUT ; variable[, ...]"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} lineinput = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} numvar > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Too many variables"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= -4; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"qbs_input("|#FFB100}} + str2(numvar) + {{Text|","|#FFB100}} + str2$(newline) + {{Text|");"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"if (stop_program) end();"|#FFB100}}
                    {{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= -5; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    WriteBufLine MainTxtBuf, cleanupstringprocessingcall$ + {{Text|"0);"|#FFB100}}
                    layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                    {{Text|GOTO|#F0F0F0}} finishedline
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"WRITE"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|'file write|#31C4C4}}
                    {{Text|IF|#F0F0F0}} n > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} getelement$(a$, {{Text|2|#F580B1}}) = {{Text|"#"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            xfilewrite ca$, n
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|GOTO|#F0F0F0}} finishedline
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'#|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'n>1|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'"write"|#31C4C4}}
                {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"WRITE"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|'write|#31C4C4}}
                    xwrite ca$, n
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|GOTO|#F0F0F0}} finishedline
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'"write"|#31C4C4}}
                {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"PRINT"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|'file print|#31C4C4}}
                    {{Text|IF|#F0F0F0}} n > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} getelement$(a$, {{Text|2|#F580B1}}) = {{Text|"#"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            xfileprint a$, ca$, n
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            l$ = tlayout$
                            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                            {{Text|GOTO|#F0F0F0}} finishedline
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'#|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'n>1|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'"print"|#31C4C4}}
                {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"PRINT"|#FFB100}} {{Text|OR|#F0F0F0}} firstelement$ = {{Text|"LPRINT"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} secondelement$ <> {{Text|"USING"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|'check to see if we need to auto-add semicolons|#31C4C4}}
                        elementon = {{Text|2|#F580B1}}
                        redosemi:
                        {{Text|FOR|#F0F0F0}} i = elementon {{Text|TO|#F0F0F0}} n - {{Text|1|#F580B1}}
                            nextchar$ = getelement$(a$, i + {{Text|1|#F580B1}})
                            {{Text|IF|#F0F0F0}} nextchar$ <> {{Text|";"|#FFB100}} {{Text|AND|#F0F0F0}} nextchar$ <> {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} nextchar$ <> {{Text|"+"|#FFB100}} {{Text|AND|#F0F0F0}} nextchar$ <> {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                temp1$ = getelement$(a$, i)
                                beginpoint = {{Text|INSTR|#F0F0F0}}(beginpoint, temp1$, {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}))
                                endpoint = {{Text|INSTR|#F0F0F0}}(beginpoint + {{Text|1|#F580B1}}, temp1$, {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|","|#FFB100}})
                                {{Text|IF|#F0F0F0}} beginpoint <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} endpoint <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'if we have both positions|#31C4C4}}
                                    {{Text|'Quote without semicolon check (like PRINT "abc"123)|#31C4C4}}
                                    textlength = endpoint - beginpoint - {{Text|1|#F580B1}}
                                    textvalue$ = {{Text|MID$|#F0F0F0}}(temp1$, endpoint + {{Text|2|#F580B1}}, {{Text|LEN|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(textlength))))
                                    {{Text|IF|#F0F0F0}} {{Text|VAL|#F0F0F0}}(textvalue$) = textlength {{Text|THEN|#F0F0F0}}
                                        insertelements a$, i, {{Text|";"|#FFB100}}
                                        insertelements ca$, i, {{Text|";"|#FFB100}}
                                        n = n + {{Text|1|#F580B1}}
                                        elementon = i + {{Text|2|#F580B1}} {{Text|'just a easy way to reduce redundant calls to the routine|#31C4C4}}
                                        {{Text|GOTO|#F0F0F0}} redosemi
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} temp1$ <> {{Text|"USING"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}(nextchar$), {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} temp1$ <> {{Text|";"|#FFB100}} {{Text|AND|#F0F0F0}} temp1$ <> {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} temp1$ <> {{Text|"+"|#FFB100}} {{Text|AND|#F0F0F0}} temp1$ <> {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}}
                                            insertelements a$, i, {{Text|";"|#FFB100}}
                                            insertelements ca$, i, {{Text|";"|#FFB100}}
                                            n = n + {{Text|1|#F580B1}}
                                            elementon = i + {{Text|2|#F580B1}} {{Text|'just a easy way to reduce redundant calls to the routine|#31C4C4}}
                                            {{Text|GOTO|#F0F0F0}} redosemi
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|NEXT|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    xprint a$, ca$, n
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    l$ = tlayout$
                    layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                    {{Text|GOTO|#F0F0F0}} finishedline
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"CLEAR"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} subfunc$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"CLEAR cannot be used inside a SUB/FUNCTION"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'LSET/RSET|#31C4C4}}
                {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"LSET"|#FFB100}} {{Text|OR|#F0F0F0}} firstelement$ = {{Text|"RSET"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected "|#FFB100}} + firstelement$ + {{Text|" ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"LSET"|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = SCase$({{Text|"LSet"|#FFB100}}) {{Text|ELSE|#F0F0F0}} l$ = SCase$({{Text|"RSet"|#FFB100}})
                    dest$ = {{Text|""|#FFB100}}
                    source$ = {{Text|""|#FFB100}}
                    part = {{Text|1|#F580B1}}
                    i = {{Text|2|#F580B1}}
                    a3$ = {{Text|""|#FFB100}}
                    B = {{Text|0|#F580B1}}
                    {{Text|DO|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} part <> {{Text|2|#F580B1}} {{Text|OR|#F0F0F0}} a3$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected LSET/RSET stringvariable=string"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            source$ = a3$
                            {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        a2$ = getelement$(ca$, i)
                        {{Text|IF|#F0F0F0}} a2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} a2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} a2$ = {{Text|"="|#FFB100}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} part = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} dest$ = a3$: part = {{Text|2|#F580B1}}: a3$ = {{Text|""|#FFB100}}: {{Text|GOTO|#F0F0F0}} lrsetgotpart
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(a3$) {{Text|THEN|#F0F0F0}} a3$ = a3$ + sp + a2$ {{Text|ELSE|#F0F0F0}} a3$ = a2$
                        lrsetgotpart:
                        i = i + {{Text|1|#F580B1}}
                    {{Text|LOOP|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} dest$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected LSET/RSET stringvariable=string"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|'check if it is a valid source string|#31C4C4}}
                    f$ = fixoperationorder$(dest$)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    l$ = l$ + sp + tlayout$ + sp + {{Text|"="|#FFB100}}
                    e$ = evaluate(f$, sourcetyp)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"LSET/RSET expects a string variable/array-element as its first argument"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    dest$ = evaluatetotyp(f$, ISSTRING)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    source$ = fixoperationorder$(source$)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    l$ = l$ + sp + tlayout$
                    layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                    source$ = evaluatetotyp(source$, ISSTRING)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"LSET"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        WriteBufLine MainTxtBuf, {{Text|"sub_lset("|#FFB100}} + dest$ + {{Text|","|#FFB100}} + source$ + {{Text|");"|#FFB100}}
                    {{Text|ELSE|#F0F0F0}}
                        WriteBufLine MainTxtBuf, {{Text|"sub_rset("|#FFB100}} + dest$ + {{Text|","|#FFB100}} + source$ + {{Text|");"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|GOTO|#F0F0F0}} finishedline
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'SWAP|#31C4C4}}
                {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"SWAP"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} n < {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected SWAP ... , ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    B = {{Text|0|#F580B1}}
                    ele = {{Text|1|#F580B1}}
                    e1$ = {{Text|""|#FFB100}}
                    e2$ = {{Text|""|#FFB100}}
                    {{Text|FOR|#F0F0F0}} i = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n
                        e$ = getelement$(ca$, i)
                        {{Text|IF|#F0F0F0}} e$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} B = B + {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} e$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} B = B - {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} e$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} B = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} ele = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected SWAP ... , ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            ele = {{Text|2|#F580B1}}
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} ele = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} e1$ = e1$ + sp + e$ {{Text|ELSE|#F0F0F0}} e2$ = e2$ + sp + e$
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|NEXT|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} e2$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected SWAP ... , ..."|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    e1$ = {{Text|RIGHT$|#F0F0F0}}(e1$, {{Text|LEN|#F0F0F0}}(e1$) - {{Text|1|#F580B1}}): e2$ = {{Text|RIGHT$|#F0F0F0}}(e2$, {{Text|LEN|#F0F0F0}}(e2$) - {{Text|1|#F580B1}})
                    e1$ = fixoperationorder(e1$)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    e1l$ = tlayout$
                    e2$ = fixoperationorder(e2$)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    e2l$ = tlayout$
                    e1$ = evaluate(e1$, e1typ): e2$ = evaluate(e2$, e2typ)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|IF|#F0F0F0}} (e1typ {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (e2typ {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected variable"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    layoutdone = {{Text|1|#F580B1}}
                    l$ = SCase$({{Text|"Swap"|#FFB100}}) + sp + e1l$ + sp2 + {{Text|","|#FFB100}} + sp + e2l$
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} layout$ = l$ {{Text|ELSE|#F0F0F0}} layout$ = layout$ + sp + l$
                    {{Text|'swap strings?|#31C4C4}}
                    {{Text|IF|#F0F0F0}} (e1typ {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (e2typ {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Type mismatch"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        e1$ = refer(e1$, e1typ, {{Text|0|#F580B1}}): e2$ = refer(e2$, e2typ, {{Text|0|#F580B1}})
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                        WriteBufLine MainTxtBuf, {{Text|"swap_string("|#FFB100}} + e1$ + {{Text|","|#FFB100}} + e2$ + {{Text|");"|#FFB100}}
                        {{Text|GOTO|#F0F0F0}} finishedline
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'swap UDT?|#31C4C4}}
                    {{Text|'note: entire UDTs, unlike thier elements cannot be swapped like standard variables|#31C4C4}}
                    {{Text|'      as UDT sizes may vary, and to avoid a malloc operation, QB64 should allocate a buffer|#31C4C4}}
                    {{Text|'      in global.txt for the purpose of swapping each UDT type|#31C4C4}}
                    {{Text|IF|#F0F0F0}} e1typ {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                        a$ = e1$
                        {{Text|'retrieve ID|#31C4C4}}
                        i = {{Text|INSTR|#F0F0F0}}(a$, sp3)
                        {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}}
                            idnumber = {{Text|VAL|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(a$, i - {{Text|1|#F580B1}})): a$ = {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - i)
                            getid idnumber
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            u = {{Text|VAL|#F0F0F0}}(a$)
                            i = {{Text|INSTR|#F0F0F0}}(a$, sp3): a$ = {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - i): E = {{Text|VAL|#F0F0F0}}(a$)
                            i = {{Text|INSTR|#F0F0F0}}(a$, sp3): o$ = {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - i)
                            n$ = {{Text|"UDT_"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(id.n): {{Text|IF|#F0F0F0}} id.t = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} n$ = {{Text|"ARRAY_"|#FFB100}} + n$ + {{Text|"[0]"|#FFB100}}
                            {{Text|IF|#F0F0F0}} E = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'not an element of UDT u|#31C4C4}}
                                lhsscope$ = scope$
                                e$ = e2$: t2 = e2typ
                                {{Text|IF|#F0F0F0}} (t2 {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected SWAP with similar user defined type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                idnumber2 = {{Text|VAL|#F0F0F0}}(e$)
                                getid idnumber2
                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                n2$ = {{Text|"UDT_"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(id.n): {{Text|IF|#F0F0F0}} id.t = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} n2$ = {{Text|"ARRAY_"|#FFB100}} + n2$ + {{Text|"[0]"|#FFB100}}
                                i = {{Text|INSTR|#F0F0F0}}(e$, sp3): e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - i): u2 = {{Text|VAL|#F0F0F0}}(e$)
                                i = {{Text|INSTR|#F0F0F0}}(e$, sp3): e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - i): e2 = {{Text|VAL|#F0F0F0}}(e$)
                                i = {{Text|INSTR|#F0F0F0}}(e$, sp3): o2$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - i)
                                {{Text|'WARNING: u2 may need minor modifications based on e to see if they are the same|#31C4C4}}
                                {{Text|IF|#F0F0F0}} u <> u2 {{Text|OR|#F0F0F0}} e2 <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected SWAP with similar user defined type"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                dst$ = {{Text|"(((char*)"|#FFB100}} + lhsscope$ + n$ + {{Text|")+("|#FFB100}} + o$ + {{Text|"))"|#FFB100}}
                                src$ = {{Text|"(((char*)"|#FFB100}} + scope$ + n2$ + {{Text|")+("|#FFB100}} + o2$ + {{Text|"))"|#FFB100}}
                                B = udtxsize(u) \ {{Text|8|#F580B1}}
                                siz$ = str2$(B)
                                {{Text|IF|#F0F0F0}} B = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"swap_8("|#FFB100}} + src$ + {{Text|","|#FFB100}} + dst$ + {{Text|");"|#FFB100}}
                                {{Text|IF|#F0F0F0}} B = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"swap_16("|#FFB100}} + src$ + {{Text|","|#FFB100}} + dst$ + {{Text|");"|#FFB100}}
                                {{Text|IF|#F0F0F0}} B = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"swap_32("|#FFB100}} + src$ + {{Text|","|#FFB100}} + dst$ + {{Text|");"|#FFB100}}
                                {{Text|IF|#F0F0F0}} B = {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"swap_64("|#FFB100}} + src$ + {{Text|","|#FFB100}} + dst$ + {{Text|");"|#FFB100}}
                                {{Text|IF|#F0F0F0}} B <> {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} B <> {{Text|2|#F580B1}} {{Text|AND|#F0F0F0}} B <> {{Text|4|#F580B1}} {{Text|AND|#F0F0F0}} B <> {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"swap_block("|#FFB100}} + src$ + {{Text|","|#FFB100}} + dst$ + {{Text|","|#FFB100}} + siz$ + {{Text|");"|#FFB100}}
                                {{Text|GOTO|#F0F0F0}} finishedline
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'e=0|#31C4C4}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'i|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'isudt|#31C4C4}}
                    {{Text|'cull irrelavent flags to make comparison possible|#31C4C4}}
                    e1typc = e1typ
                    {{Text|IF|#F0F0F0}} e1typc {{Text|AND|#F0F0F0}} ISPOINTER {{Text|THEN|#F0F0F0}} e1typc = e1typc - ISPOINTER
                    {{Text|IF|#F0F0F0}} e1typc {{Text|AND|#F0F0F0}} ISINCONVENTIONALMEMORY {{Text|THEN|#F0F0F0}} e1typc = e1typc - ISINCONVENTIONALMEMORY
                    {{Text|IF|#F0F0F0}} e1typc {{Text|AND|#F0F0F0}} ISARRAY {{Text|THEN|#F0F0F0}} e1typc = e1typc - ISARRAY
                    {{Text|IF|#F0F0F0}} e1typc {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}} e1typc = e1typc - ISUNSIGNED
                    {{Text|IF|#F0F0F0}} e1typc {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}} e1typc = e1typc - ISUDT
                    e2typc = e2typ
                    {{Text|IF|#F0F0F0}} e2typc {{Text|AND|#F0F0F0}} ISPOINTER {{Text|THEN|#F0F0F0}} e2typc = e2typc - ISPOINTER
                    {{Text|IF|#F0F0F0}} e2typc {{Text|AND|#F0F0F0}} ISINCONVENTIONALMEMORY {{Text|THEN|#F0F0F0}} e2typc = e2typc - ISINCONVENTIONALMEMORY
                    {{Text|IF|#F0F0F0}} e2typc {{Text|AND|#F0F0F0}} ISARRAY {{Text|THEN|#F0F0F0}} e2typc = e2typc - ISARRAY
                    {{Text|IF|#F0F0F0}} e2typc {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}} e2typc = e2typc - ISUNSIGNED
                    {{Text|IF|#F0F0F0}} e2typc {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}} e2typc = e2typc - ISUDT
                    {{Text|IF|#F0F0F0}} e1typc <> e2typc {{Text|THEN|#F0F0F0}} a$ = {{Text|"Type mismatch"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    t = e1typ
                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISOFFSETINBITS {{Text|THEN|#F0F0F0}} a$ = {{Text|"Cannot SWAP bit-length variables"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                    B = t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                    t$ = str2$(B): {{Text|IF|#F0F0F0}} B > {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"longdouble"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"swap_"|#FFB100}} + t$ + {{Text|"(&"|#FFB100}} + refer(e1$, e1typ, {{Text|0|#F580B1}}) + {{Text|",&"|#FFB100}} + refer(e2$, e2typ, {{Text|0|#F580B1}}) + {{Text|");"|#FFB100}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|GOTO|#F0F0F0}} finishedline
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"OPTION"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} optionexplicit = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|" or OPTION "|#FFB100}} + qb64prefix$ + {{Text|"EXPLICIT"|#FFB100}} {{Text|ELSE|#F0F0F0}} e$ = {{Text|""|#FFB100}}
                    {{Text|IF|#F0F0F0}} optionexplicitarray = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = e$ + {{Text|" or OPTION "|#FFB100}} + qb64prefix$ + {{Text|"EXPLICITARRAY"|#FFB100}}
                    {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected OPTION BASE"|#FFB100}} + e$: {{Text|GOTO|#F0F0F0}} errmes
                    e$ = getelement$(a$, {{Text|2|#F580B1}})
                    {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} e$
                        {{Text|CASE|#F0F0F0}} {{Text|"BASE"|#FFB100}}
                            l$ = getelement$(a$, {{Text|3|#F580B1}})
                            {{Text|IF|#F0F0F0}} l$ <> {{Text|"0"|#FFB100}} {{Text|AND|#F0F0F0}} l$ <> {{Text|"1"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected OPTION BASE 0 or 1"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|IF|#F0F0F0}} l$ = {{Text|"1"|#FFB100}} {{Text|THEN|#F0F0F0}} optionbase = {{Text|1|#F580B1}} {{Text|ELSE|#F0F0F0}} optionbase = {{Text|0|#F580B1}}
                            l$ = SCase$({{Text|"Option"|#FFB100}} + sp + {{Text|"Base"|#FFB100}}) + sp + l$
                            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                            {{Text|GOTO|#F0F0F0}} finishedline
                        {{Text|CASE|#F0F0F0}} {{Text|"EXPLICIT"|#FFB100}}, {{Text|"_EXPLICIT"|#FFB100}}
                            {{Text|IF|#F0F0F0}} e$ = {{Text|"EXPLICIT"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix$ = {{Text|"_"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} optionexplicit = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|" or OPTION "|#FFB100}} + qb64prefix$ + {{Text|"EXPLICIT"|#FFB100}} {{Text|ELSE|#F0F0F0}} e$ = {{Text|""|#FFB100}}
                                {{Text|IF|#F0F0F0}} optionexplicitarray = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = e$ + {{Text|" or OPTION "|#FFB100}} + qb64prefix$ + {{Text|"EXPLICITARRAY"|#FFB100}}
                                a$ = {{Text|"Expected OPTION BASE"|#FFB100}} + e$: {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            opex_desiredState = {{Text|-1|#F580B1}}
                            {{Text|IF|#F0F0F0}} optionexplicit = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} opex_recompileAttempts = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    opex_recompileAttempts = opex_recompileAttempts + {{Text|1|#F580B1}}
                                    {{Text|GOTO|#F0F0F0}} do_recompile
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            l$ = SCase$({{Text|"Option"|#FFB100}}) + sp
                            {{Text|IF|#F0F0F0}} e$ = {{Text|"EXPLICIT"|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = l$ + SCase$({{Text|"Explicit"|#FFB100}}) {{Text|ELSE|#F0F0F0}} l$ = l$ + SCase$({{Text|"_Explicit"|#FFB100}})
                            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                            {{Text|GOTO|#F0F0F0}} finishedline
                        {{Text|CASE|#F0F0F0}} {{Text|"EXPLICITARRAY"|#FFB100}}, {{Text|"_EXPLICITARRAY"|#FFB100}}
                            {{Text|IF|#F0F0F0}} e$ = {{Text|"EXPLICITARRAY"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix$ = {{Text|"_"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} optionexplicit = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|" or OPTION "|#FFB100}} + qb64prefix$ + {{Text|"EXPLICIT"|#FFB100}} {{Text|ELSE|#F0F0F0}} e$ = {{Text|""|#FFB100}}
                                {{Text|IF|#F0F0F0}} optionexplicitarray = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = e$ + {{Text|" or OPTION "|#FFB100}} + qb64prefix$ + {{Text|"EXPLICITARRAY"|#FFB100}}
                                a$ = {{Text|"Expected OPTION BASE"|#FFB100}} + e$: {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            opexarray_desiredState = {{Text|-1|#F580B1}}
                            {{Text|IF|#F0F0F0}} optionexplicitarray = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} opexarray_recompileAttempts = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    opexarray_recompileAttempts = opexarray_recompileAttempts + {{Text|1|#F580B1}}
                                    {{Text|GOTO|#F0F0F0}} do_recompile
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            l$ = SCase$({{Text|"Option"|#FFB100}}) + sp
                            {{Text|IF|#F0F0F0}} e$ = {{Text|"EXPLICITARRAY"|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = l$ + SCase$({{Text|"ExplicitArray"|#FFB100}}) {{Text|ELSE|#F0F0F0}} l$ = l$ + SCase$({{Text|"_ExplicitArray"|#FFB100}})
                            layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
                            {{Text|GOTO|#F0F0F0}} finishedline
                        {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} optionexplicit = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|" or OPTION "|#FFB100}} + qb64prefix$ + {{Text|"EXPLICIT"|#FFB100}} {{Text|ELSE|#F0F0F0}} e$ = {{Text|""|#FFB100}}
                            {{Text|IF|#F0F0F0}} optionexplicitarray = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = e$ + {{Text|" or OPTION "|#FFB100}} + qb64prefix$ + {{Text|"EXPLICITARRAY"|#FFB100}}
                            a$ = {{Text|"Expected OPTION BASE"|#FFB100}} + e$: {{Text|GOTO|#F0F0F0}} errmes
                    {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'any other "unique" subs can be processed above|#31C4C4}}
                id2 = id
                targetid = currentid
                {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.callname) = {{Text|"sub_stub"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Command not implemented"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} n > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} id2.args = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"SUB does not require any arguments"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                SetDependency id2.Dependency
                seperateargs_error = {{Text|0|#F580B1}}
                passedneeded = seperateargs(getelements(a$, {{Text|2|#F580B1}}, n), getelements(ca$, {{Text|2|#F580B1}}, n), passed&)
                {{Text|IF|#F0F0F0}} seperateargs_error {{Text|THEN|#F0F0F0}} a$ = seperateargs_error_message: {{Text|GOTO|#F0F0F0}} errmes
                {{Text|'backup args to local string array space before calling evaluate|#31C4C4}}
                {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} OptMax: separgs2(i) = {{Text|""|#FFB100}}: {{Text|NEXT|#F0F0F0}} {{Text|'save space!|#31C4C4}}
                {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} OptMax + {{Text|1|#F580B1}}: separgslayout2(i) = {{Text|""|#FFB100}}: {{Text|NEXT|#F0F0F0}}
                {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} id2.args: separgs2(i) = separgs(i): {{Text|NEXT|#F0F0F0}}
                {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} id2.args + {{Text|1|#F580B1}}: separgslayout2(i) = separgslayout(i): {{Text|NEXT|#F0F0F0}}
                {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}}
                    {{Text|PRINT|#F0F0F0}} #9, {{Text|"separgs:"|#FFB100}}: {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} id2.args: {{Text|PRINT|#F0F0F0}} #9, i, separgs2(i): {{Text|NEXT|#F0F0F0}}
                    {{Text|PRINT|#F0F0F0}} #9, {{Text|"separgslayout:"|#FFB100}}: {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} id2.args + {{Text|1|#F580B1}}: {{Text|PRINT|#F0F0F0}} #9, i, separgslayout2(i): {{Text|NEXT|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'note: seperateargs finds the arguments to pass and sets passed& as necessary|#31C4C4}}
                {{Text|'      FIXOPERTIONORDER is not called on these args yet|#31C4C4}}
                {{Text|'      what we need it to do is build a second array of layout info at the same time|#31C4C4}}
                {{Text|'  ref:DIM SHARED separgslayout(100) AS STRING|#31C4C4}}
                {{Text|'  the above array stores what layout info (if any) goes BEFORE the arg in question|#31C4C4}}
                {{Text|'      it has one extra index which is the arg after|#31C4C4}}
                {{Text|IF|#F0F0F0}} usecall {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} id.internal_subfunc {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} usecall = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = SCase$({{Text|"Call"|#FFB100}}) + sp + SCase$({{Text|RTRIM$|#F0F0F0}}(id.cn)) + {{Text|RTRIM$|#F0F0F0}}(id.musthave) + sp2 + {{Text|"("|#FFB100}} + sp2
                        {{Text|IF|#F0F0F0}} usecall = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = SCase$({{Text|"Call"|#FFB100}}) + sp + SCase$({{Text|RTRIM$|#F0F0F0}}(id.cn)) + {{Text|RTRIM$|#F0F0F0}}(id.musthave) + sp {{Text|'sp at end for easy parsing|#31C4C4}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} usecall = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = SCase$({{Text|"Call"|#FFB100}}) + sp + {{Text|RTRIM$|#F0F0F0}}(id.cn) + {{Text|RTRIM$|#F0F0F0}}(id.musthave) + sp2 + {{Text|"("|#FFB100}} + sp2
                        {{Text|IF|#F0F0F0}} usecall = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = SCase$({{Text|"Call"|#FFB100}}) + sp + {{Text|RTRIM$|#F0F0F0}}(id.cn) + {{Text|RTRIM$|#F0F0F0}}(id.musthave) + sp {{Text|'sp at end for easy parsing|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} id.internal_subfunc {{Text|THEN|#F0F0F0}}
                        l$ = SCase$({{Text|RTRIM$|#F0F0F0}}(id.cn)) + {{Text|RTRIM$|#F0F0F0}}(id.musthave) + sp
                    {{Text|ELSE|#F0F0F0}}
                        l$ = {{Text|RTRIM$|#F0F0F0}}(id.cn) + {{Text|RTRIM$|#F0F0F0}}(id.musthave) + sp
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                subcall$ = {{Text|RTRIM$|#F0F0F0}}(id.callname) + {{Text|"("|#FFB100}}
                addedlayout = {{Text|0|#F580B1}}
                fieldcall = {{Text|0|#F580B1}}
                {{Text|'GET/PUT field exception|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.callname) = {{Text|"sub_get"|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.callname) = {{Text|"sub_put"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} passed {{Text|AND|#F0F0F0}} {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|'regular GET/PUT call with variable provided|#31C4C4}}
                        passed = passed - {{Text|2|#F580B1}} {{Text|'for complience with existing methods, remove 'passed' flag for the passing of a variable|#31C4C4}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|'FIELD GET/PUT call with variable omited|#31C4C4}}
                        {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.callname) = {{Text|"sub_get"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            fieldcall = {{Text|1|#F580B1}}
                            subcall$ = {{Text|"field_get("|#FFB100}}
                        {{Text|ELSE|#F0F0F0}}
                            fieldcall = {{Text|2|#F580B1}}
                            subcall$ = {{Text|"field_put("|#FFB100}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'field exception|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.callname) = {{Text|"sub_timer"|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.callname) = {{Text|"sub_key"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|'spacing exception|#31C4C4}}
                    {{Text|IF|#F0F0F0}} usecall = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        l$ = {{Text|LEFT$|#F0F0F0}}(l$, {{Text|LEN|#F0F0F0}}(l$) - {{Text|1|#F580B1}}) + sp2
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} id2.args
                    targettyp = {{Text|CVL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(id2.arg, {{Text|-3|#F580B1}} + i * {{Text|4|#F580B1}}, {{Text|4|#F580B1}}))
                    nele = {{Text|ASC|#F0F0F0}}({{Text|MID$|#F0F0F0}}(id2.nele, i, {{Text|1|#F580B1}}))
                    nelereq = {{Text|ASC|#F0F0F0}}({{Text|MID$|#F0F0F0}}(id2.nelereq, i, {{Text|1|#F580B1}}))
                    addlayout = {{Text|1|#F580B1}} {{Text|'omits option values in layout (eg. BINARY="2")|#31C4C4}}
                    convertspacing = {{Text|0|#F580B1}} {{Text|'if an 'equation' is next, it will be preceeded by a space|#31C4C4}}
                    x$ = separgslayout2$(i)
                    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|LEN|#F0F0F0}}(x$)
                        x = {{Text|ASC|#F0F0F0}}(x$)
                        {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}}
                            convertspacing = {{Text|0|#F580B1}}
                            x2$ = {{Text|MID$|#F0F0F0}}(x$, {{Text|2|#F580B1}}, x)
                            x$ = {{Text|RIGHT$|#F0F0F0}}(x$, {{Text|LEN|#F0F0F0}}(x$) - x - {{Text|1|#F580B1}})
                            s = {{Text|0|#F580B1}}
                            an = {{Text|0|#F580B1}}
                            x3$ = {{Text|RIGHT$|#F0F0F0}}(l$, {{Text|1|#F580B1}})
                            {{Text|IF|#F0F0F0}} x3$ = sp {{Text|THEN|#F0F0F0}} s = {{Text|1|#F580B1}}
                            {{Text|IF|#F0F0F0}} x3$ = sp2 {{Text|THEN|#F0F0F0}}
                                s = {{Text|2|#F580B1}}
                                {{Text|IF|#F0F0F0}} alphanumeric({{Text|ASC|#F0F0F0}}({{Text|RIGHT$|#F0F0F0}}(l$, {{Text|2|#F580B1}}))) {{Text|THEN|#F0F0F0}} an = {{Text|1|#F580B1}}
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} alphanumeric({{Text|ASC|#F0F0F0}}(x3$)) {{Text|THEN|#F0F0F0}} an = {{Text|1|#F580B1}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            s1 = s
                            {{Text|IF|#F0F0F0}} alphanumeric({{Text|ASC|#F0F0F0}}(x2$)) {{Text|THEN|#F0F0F0}} convertspacing = {{Text|1|#F580B1}}
                            {{Text|IF|#F0F0F0}} x2$ = {{Text|"LPRINT"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                {{Text|'x2$="LPRINT"|#31C4C4}}
                                {{Text|'x$=CHR$(0)|#31C4C4}}
                                {{Text|'x3$=[sp] from WIDTH[sp]|#31C4C4}}
                                {{Text|'therefore...|#31C4C4}}
                                {{Text|'s=1|#31C4C4}}
                                {{Text|'an=0|#31C4C4}}
                                {{Text|'convertspacing=1|#31C4C4}}
                                {{Text|'if debug=1 then|#31C4C4}}
                                {{Text|'print #9,"LPRINT:"|#31C4C4}}
                                {{Text|'print #9,s|#31C4C4}}
                                {{Text|'print #9,an|#31C4C4}}
                                {{Text|'print #9,l$|#31C4C4}}
                                {{Text|'print #9,x2$|#31C4C4}}
                                {{Text|'end if|#31C4C4}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (an = {{Text|1|#F580B1}} {{Text|OR|#F0F0F0}} addedlayout = {{Text|1|#F580B1}}) {{Text|AND|#F0F0F0}} alphanumeric({{Text|ASC|#F0F0F0}}(x2$)) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                s = {{Text|1|#F580B1}} {{Text|'force space|#31C4C4}}
                                x2$ = x2$ + sp2
                                {{Text|GOTO|#F0F0F0}} customlaychar
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} x2$ = {{Text|"="|#FFB100}} {{Text|THEN|#F0F0F0}}
                                s = {{Text|1|#F580B1}}
                                x2$ = x2$ + sp
                                {{Text|GOTO|#F0F0F0}} customlaychar
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} x2$ = {{Text|"#"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                s = {{Text|1|#F580B1}}
                                x2$ = x2$ + sp2
                                {{Text|GOTO|#F0F0F0}} customlaychar
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} x2$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} x2$ = x2$ + sp: {{Text|GOTO|#F0F0F0}} customlaychar
                            {{Text|IF|#F0F0F0}} x$ = {{Text|CHR$|#F0F0F0}}({{Text|0|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|'substitution|#31C4C4}}
                                {{Text|IF|#F0F0F0}} x2$ = {{Text|"STEP"|#FFB100}} {{Text|THEN|#F0F0F0}} x2$ = x2$ + sp2: {{Text|GOTO|#F0F0F0}} customlaychar
                                x2$ = x2$ + sp: {{Text|GOTO|#F0F0F0}} customlaychar
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|'default solution sp2+?+sp2|#31C4C4}}
                            x2$ = x2$ + sp2
                            customlaychar:
                            {{Text|IF|#F0F0F0}} s = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} s = {{Text|2|#F580B1}}
                            {{Text|IF|#F0F0F0}} s <> s1 {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} s1 {{Text|THEN|#F0F0F0}} l$ = {{Text|LEFT$|#F0F0F0}}(l$, {{Text|LEN|#F0F0F0}}(l$) - {{Text|1|#F580B1}})
                                {{Text|IF|#F0F0F0}} s = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp
                                {{Text|IF|#F0F0F0}} s = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp2
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} ({{Text|RTRIM$|#F0F0F0}}(id2.callname) = {{Text|"sub_timer"|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.callname) = {{Text|"sub_key"|#FFB100}}) {{Text|AND|#F0F0F0}} i = id2.args {{Text|THEN|#F0F0F0}} {{Text|'spacing exception|#31C4C4}}
                                {{Text|IF|#F0F0F0}} x2$ <> {{Text|")"|#FFB100}} + sp2 {{Text|THEN|#F0F0F0}}
                                    l$ = {{Text|LEFT$|#F0F0F0}}(l$, {{Text|LEN|#F0F0F0}}(l$) - {{Text|1|#F580B1}}) + sp
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            l$ = l$ + x2$
                        {{Text|ELSE|#F0F0F0}}
                            addlayout = {{Text|0|#F580B1}}
                            x$ = {{Text|RIGHT$|#F0F0F0}}(x$, {{Text|LEN|#F0F0F0}}(x$) - {{Text|1|#F580B1}})
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        addedlayout = {{Text|0|#F580B1}}
                    {{Text|LOOP|#F0F0F0}}
                    {{Text|'---better sub syntax checking begins here---|#31C4C4}}
                    {{Text|IF|#F0F0F0}} targettyp = {{Text|-3|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} separgs2(i) = {{Text|"N-LL"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected array name"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|'names of numeric arrays have ( ) automatically appended (nothing else)|#31C4C4}}
                        e$ = separgs2(i)
                        {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(e$, sp) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'one element only|#31C4C4}}
                            try_string$ = e$
                            try = findid(try_string$)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|DO|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} try {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} id.arraytype {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} (id.arraytype {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                            e$ = e$ + sp + {{Text|"("|#FFB100}} + sp + {{Text|")"|#FFB100}}
                                            {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|'---|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(try_string$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'if try|#31C4C4}}
                                {{Text|IF|#F0F0F0}} try = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'add symbol?|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(removesymbol$(try_string$)) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                        a = {{Text|ASC|#F0F0F0}}(try_string$)
                                        {{Text|IF|#F0F0F0}} a >= {{Text|97|#F580B1}} {{Text|AND|#F0F0F0}} a <= {{Text|122|#F580B1}} {{Text|THEN|#F0F0F0}} a = a - {{Text|32|#F580B1}}
                                        {{Text|IF|#F0F0F0}} a = {{Text|95|#F580B1}} {{Text|THEN|#F0F0F0}} a = {{Text|91|#F580B1}}
                                        a = a - {{Text|64|#F580B1}}
                                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(defineextaz(a)) {{Text|THEN|#F0F0F0}} try_string$ = try_string$ + defineextaz(a): try = findid(try_string$)
                                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'try=0|#31C4C4}}
                            {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} try = {{Text|0|#F580B1}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'one element only|#31C4C4}}
                        e$ = fixoperationorder$(e$)
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|IF|#F0F0F0}} convertspacing = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} addlayout = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = {{Text|LEFT$|#F0F0F0}}(l$, {{Text|LEN|#F0F0F0}}(l$) - {{Text|1|#F580B1}}) + sp
                        {{Text|IF|#F0F0F0}} addlayout {{Text|THEN|#F0F0F0}} l$ = l$ + tlayout$: addedlayout = {{Text|1|#F580B1}}
                        e$ = evaluatetotyp(e$, {{Text|-2|#F580B1}})
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|GOTO|#F0F0F0}} sete
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'-3|#31C4C4}}
                    {{Text|IF|#F0F0F0}} targettyp = {{Text|-2|#F580B1}} {{Text|THEN|#F0F0F0}}
                        e$ = fixoperationorder$(e$)
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|IF|#F0F0F0}} convertspacing = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} addlayout = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = {{Text|LEFT$|#F0F0F0}}(l$, {{Text|LEN|#F0F0F0}}(l$) - {{Text|1|#F580B1}}) + sp
                        {{Text|IF|#F0F0F0}} addlayout {{Text|THEN|#F0F0F0}} l$ = l$ + tlayout$: addedlayout = {{Text|1|#F580B1}}
                        e$ = evaluatetotyp(e$, {{Text|-2|#F580B1}})
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|GOTO|#F0F0F0}} sete
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'-2|#31C4C4}}
                    {{Text|IF|#F0F0F0}} targettyp = {{Text|-4|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} fieldcall {{Text|THEN|#F0F0F0}}
                            i = id2.args + {{Text|1|#F580B1}}
                            {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} separgs2(i) = {{Text|"N-LL"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected variable name/array element"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        e$ = fixoperationorder$(separgs2(i))
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|IF|#F0F0F0}} convertspacing = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} addlayout = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = {{Text|LEFT$|#F0F0F0}}(l$, {{Text|LEN|#F0F0F0}}(l$) - {{Text|1|#F580B1}}) + sp
                        {{Text|IF|#F0F0F0}} addlayout {{Text|THEN|#F0F0F0}} l$ = l$ + tlayout$: addedlayout = {{Text|1|#F580B1}}
                        {{Text|'GET/PUT RANDOM-ACCESS override|#31C4C4}}
                        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"GET"|#FFB100}} {{Text|OR|#F0F0F0}} firstelement$ = {{Text|"PUT"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            e2$ = e$ {{Text|'backup|#31C4C4}}
                            e$ = evaluate(e$, sourcetyp)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|'replace name of sub to call|#31C4C4}}
                                    subcall$ = {{Text|RIGHT$|#F0F0F0}}(subcall$, {{Text|LEN|#F0F0F0}}(subcall$) - {{Text|7|#F580B1}}) {{Text|'delete original name|#31C4C4}}
                                    {{Text|'note: GET2 & PUT2 take differing input, following code is correct|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"GET"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                        subcall$ = {{Text|"sub_get2"|#FFB100}} + subcall$
                                        e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}}) {{Text|'pass a qbs pointer instead|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                        {{Text|GOTO|#F0F0F0}} sete
                                    {{Text|ELSE|#F0F0F0}}
                                        subcall$ = {{Text|"sub_put2"|#FFB100}} + subcall$
                                        {{Text|'no goto sete required, fall through|#31C4C4}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            e$ = e2$ {{Text|'restore|#31C4C4}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'override|#31C4C4}}
                        e$ = evaluatetotyp(e$, {{Text|-4|#F580B1}})
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|GOTO|#F0F0F0}} sete
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'-4|#31C4C4}}
                    {{Text|IF|#F0F0F0}} separgs2(i) = {{Text|"N-LL"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        e$ = {{Text|"NULL"|#FFB100}}
                    {{Text|ELSE|#F0F0F0}}
                        e2$ = fixoperationorder$(separgs2(i))
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|IF|#F0F0F0}} convertspacing = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} addlayout = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = {{Text|LEFT$|#F0F0F0}}(l$, {{Text|LEN|#F0F0F0}}(l$) - {{Text|1|#F580B1}}) + sp
                        {{Text|IF|#F0F0F0}} addlayout {{Text|THEN|#F0F0F0}} l$ = l$ + tlayout$: addedlayout = {{Text|1|#F580B1}}
                        e$ = evaluate(e2$, sourcetyp)
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISOFFSET {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISOFFSET) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} id2.internal_subfunc = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Cannot convert _OFFSET type to other types"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.callname) = {{Text|"sub_paint"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} i = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
                                    targettyp = ISSTRING
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(separgs2(i), {{Text|2|#F580B1}}) = {{Text|"("|#FFB100}} + sp {{Text|THEN|#F0F0F0}} dereference = {{Text|1|#F580B1}} {{Text|ELSE|#F0F0F0}} dereference = {{Text|0|#F580B1}}
                        {{Text|'pass by reference|#31C4C4}}
                        {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISPOINTER) {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} dereference = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'check deferencing wasn't used|#31C4C4}}
                                {{Text|'note: array pointer|#31C4C4}}
                                {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISARRAY) {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected arrayname()"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISARRAY) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected arrayname()"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"sub:array reference:["|#FFB100}} + e$ + {{Text|"]"|#FFB100}}
                                    {{Text|'check arrays are of same type|#31C4C4}}
                                    targettyp2 = targettyp: sourcetyp2 = sourcetyp
                                    targettyp2 = targettyp2 {{Text|AND|#F0F0F0}} ({{Text|511|#F580B1}} + ISOFFSETINBITS + ISUDT + ISSTRING + ISFIXEDLENGTH + ISFLOAT)
                                    sourcetyp2 = sourcetyp2 {{Text|AND|#F0F0F0}} ({{Text|511|#F580B1}} + ISOFFSETINBITS + ISUDT + ISSTRING + ISFIXEDLENGTH + ISFLOAT)
                                    {{Text|IF|#F0F0F0}} sourcetyp2 <> targettyp2 {{Text|THEN|#F0F0F0}} a$ = {{Text|"Incorrect array type passed to sub"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|'check arrayname was followed by '()'|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} targettyp {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"sub:array reference:udt reference:["|#FFB100}} + e$ + {{Text|"]"|#FFB100}}
                                        {{Text|'get UDT info|#31C4C4}}
                                        udtrefid = {{Text|VAL|#F0F0F0}}(e$)
                                        getid udtrefid
                                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                        udtrefi = {{Text|INSTR|#F0F0F0}}(e$, sp3) {{Text|'end of id|#31C4C4}}
                                        udtrefi2 = {{Text|INSTR|#F0F0F0}}(udtrefi + {{Text|1|#F580B1}}, e$, sp3) {{Text|'end of u|#31C4C4}}
                                        udtrefu = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(e$, udtrefi + {{Text|1|#F580B1}}, udtrefi2 - udtrefi - {{Text|1|#F580B1}}))
                                        udtrefi3 = {{Text|INSTR|#F0F0F0}}(udtrefi2 + {{Text|1|#F580B1}}, e$, sp3) {{Text|'skip e|#31C4C4}}
                                        udtrefe = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(e$, udtrefi2 + {{Text|1|#F580B1}}, udtrefi3 - udtrefi2 - {{Text|1|#F580B1}}))
                                        o$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - udtrefi3)
                                        {{Text|'note: most of the UDT info above is not required|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(o$, {{Text|4|#F580B1}}) <> {{Text|"(0)*"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected arrayname()"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|ELSE|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|2|#F580B1}}) <> sp3 + {{Text|"0"|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected arrayname()"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    idnum = {{Text|VAL|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(e$, {{Text|INSTR|#F0F0F0}}(e$, sp3) - {{Text|1|#F580B1}}))
                                    getid idnum
                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|IF|#F0F0F0}} targettyp {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}}
                                        targettypsize = {{Text|CVL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(id2.argsize, i * {{Text|4|#F580B1}} - {{Text|4|#F580B1}} + {{Text|1|#F580B1}}, {{Text|4|#F580B1}}))
                                        {{Text|IF|#F0F0F0}} id.tsize <> targettypsize {{Text|THEN|#F0F0F0}} a$ = {{Text|"Incorrect array type passed to sub"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(sfcmemargs(targetid), i, {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}({{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|'cmem required?|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} cmemlist(idnum) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                            cmemlist(idnum) = {{Text|1|#F580B1}}
                                            recompile = {{Text|1|#F580B1}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} id.linkid = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|'if id.linkid is 0, it means the number of array elements is definietly|#31C4C4}}
                                        {{Text|'known of the array being passed, this is not some "fake"/unknown array.|#31C4C4}}
                                        {{Text|'using the numer of array elements of a fake array would be dangerous!|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} nelereq = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                            {{Text|'only continue if the number of array elements required is unknown|#31C4C4}}
                                            {{Text|'and it needs to be set|#31C4C4}}
                                            {{Text|IF|#F0F0F0}} id.arrayelements > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'2009|#31C4C4}}
                                                nelereq = id.arrayelements
                                                {{Text|MID$|#F0F0F0}}(id2.nelereq, i, {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}(nelereq)
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                            {{Text|'print rtrim$(id2.n)+">nelereq=";nelereq|#31C4C4}}
                                            ids(targetid) = id2
                                        {{Text|ELSE|#F0F0F0}}
                                            {{Text|'the number of array elements required is known AND|#31C4C4}}
                                            {{Text|'the number of elements in the array to be passed is known|#31C4C4}}
                                            {{Text|IF|#F0F0F0}} id.arrayelements <> nelereq {{Text|THEN|#F0F0F0}} a$ = {{Text|"Passing arrays with a differing number of elements to a SUB/FUNCTION is not supported"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    e$ = refer(e$, sourcetyp, {{Text|1|#F580B1}})
                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                    {{Text|GOTO|#F0F0F0}} sete
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'target is an array|#31C4C4}}
                                {{Text|'note: not an array...|#31C4C4}}
                                {{Text|'target is not an array|#31C4C4}}
                                {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}}
                                        idnum = {{Text|VAL|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(e$, {{Text|INSTR|#F0F0F0}}(e$, sp3) - {{Text|1|#F580B1}})) {{Text|'id# of sourcetyp|#31C4C4}}
                                        targettyp2 = targettyp: sourcetyp2 = sourcetyp
                                        {{Text|'get info about source/target|#31C4C4}}
                                        arr = {{Text|0|#F580B1}}: {{Text|IF|#F0F0F0}} (sourcetyp2 {{Text|AND|#F0F0F0}} ISARRAY) {{Text|THEN|#F0F0F0}} arr = {{Text|1|#F580B1}}
                                        passudtelement = {{Text|0|#F580B1}}: {{Text|IF|#F0F0F0}} (targettyp2 {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (sourcetyp2 {{Text|AND|#F0F0F0}} ISUDT) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} passudtelement = {{Text|1|#F580B1}}: sourcetyp2 = sourcetyp2 - ISUDT
                                        {{Text|'remove flags irrelevant for comparison... ISPOINTER,ISREFERENCE,ISINCONVENTIONALMEMORY,ISARRAY|#31C4C4}}
                                        targettyp2 = targettyp2 {{Text|AND|#F0F0F0}} ({{Text|511|#F580B1}} + ISOFFSETINBITS + ISUDT + ISFLOAT + ISSTRING)
                                        sourcetyp2 = sourcetyp2 {{Text|AND|#F0F0F0}} ({{Text|511|#F580B1}} + ISOFFSETINBITS + ISUDT + ISFLOAT + ISSTRING)
                                        {{Text|'compare types|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} sourcetyp2 = targettyp2 {{Text|THEN|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                                                {{Text|'udt/udt array|#31C4C4}}
                                                {{Text|'get info|#31C4C4}}
                                                udtrefid = {{Text|VAL|#F0F0F0}}(e$)
                                                getid udtrefid
                                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                                udtrefi = {{Text|INSTR|#F0F0F0}}(e$, sp3) {{Text|'end of id|#31C4C4}}
                                                udtrefi2 = {{Text|INSTR|#F0F0F0}}(udtrefi + {{Text|1|#F580B1}}, e$, sp3) {{Text|'end of u|#31C4C4}}
                                                udtrefu = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(e$, udtrefi + {{Text|1|#F580B1}}, udtrefi2 - udtrefi - {{Text|1|#F580B1}}))
                                                udtrefi3 = {{Text|INSTR|#F0F0F0}}(udtrefi2 + {{Text|1|#F580B1}}, e$, sp3) {{Text|'skip e|#31C4C4}}
                                                udtrefe = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(e$, udtrefi2 + {{Text|1|#F580B1}}, udtrefi3 - udtrefi2 - {{Text|1|#F580B1}}))
                                                o$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - udtrefi3)
                                                {{Text|'note: most of the UDT info above is not required|#31C4C4}}
                                                {{Text|IF|#F0F0F0}} arr {{Text|THEN|#F0F0F0}}
                                                    n$ = scope$ + {{Text|"ARRAY_UDT_"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(id.n) + {{Text|"[0]"|#FFB100}}
                                                {{Text|ELSE|#F0F0F0}}
                                                    n$ = scope$ + {{Text|"UDT_"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(id.n)
                                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                                e$ = {{Text|"(void*)( ((char*)("|#FFB100}} + n$ + {{Text|")) + ("|#FFB100}} + o$ + {{Text|") )"|#FFB100}}
                                                {{Text|'convert void* to target type*|#31C4C4}}
                                                {{Text|IF|#F0F0F0}} passudtelement {{Text|THEN|#F0F0F0}} e$ = {{Text|"("|#FFB100}} + typ2ctyp$(targettyp2 + (targettyp {{Text|AND|#F0F0F0}} ISUNSIGNED), {{Text|""|#FFB100}}) + {{Text|"*)"|#FFB100}} + e$
                                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                            {{Text|ELSE|#F0F0F0}}
                                                {{Text|'not a udt|#31C4C4}}
                                                {{Text|IF|#F0F0F0}} arr {{Text|THEN|#F0F0F0}}
                                                    {{Text|IF|#F0F0F0}} (sourcetyp2 {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}} a$ = {{Text|"Cannot pass BIT array offsets"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                                    e$ = {{Text|"(&("|#FFB100}} + refer(e$, sourcetyp, {{Text|0|#F580B1}}) + {{Text|"))"|#FFB100}}
                                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                                {{Text|ELSE|#F0F0F0}}
                                                    e$ = refer(e$, sourcetyp, {{Text|1|#F580B1}})
                                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                                {{Text|'note: signed/unsigned mismatch requires casting|#31C4C4}}
                                                {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISUNSIGNED) <> (targettyp {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}}
                                                    e$ = {{Text|"("|#FFB100}} + typ2ctyp$(targettyp2 + (targettyp {{Text|AND|#F0F0F0}} ISUNSIGNED), {{Text|""|#FFB100}}) + {{Text|"*)"|#FFB100}} + e$
                                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'udt?|#31C4C4}}
                                            {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(sfcmemargs(targetid), i, {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}({{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|'cmem required?|#31C4C4}}
                                                {{Text|IF|#F0F0F0}} cmemlist(idnum) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                                    cmemlist(idnum) = {{Text|1|#F580B1}}
                                                    recompile = {{Text|1|#F580B1}}
                                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                            {{Text|GOTO|#F0F0F0}} sete
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'similar|#31C4C4}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'reference|#31C4C4}}
                                {{Text|ELSE|#F0F0F0}} {{Text|'not a string|#31C4C4}}
                                    {{Text|'its a string|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}}
                                        idnum = {{Text|VAL|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(e$, {{Text|INSTR|#F0F0F0}}(e$, sp3) - {{Text|1|#F580B1}})) {{Text|'id# of sourcetyp|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(sfcmemargs(targetid), i, {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}({{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|'cmem required?|#31C4C4}}
                                            {{Text|IF|#F0F0F0}} cmemlist(idnum) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                                cmemlist(idnum) = {{Text|1|#F580B1}}
                                                recompile = {{Text|1|#F580B1}}
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'reference|#31C4C4}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'its a string|#31C4C4}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'dereference check|#31C4C4}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'target is a pointer|#31C4C4}}
                        {{Text|'note: Target is not a pointer...|#31C4C4}}
                        {{Text|'String-numeric mismatch?|#31C4C4}}
                        {{Text|IF|#F0F0F0}} targettyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                nth = i
                                {{Text|IF|#F0F0F0}} ids(targetid).args = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"String required for sub"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                a$ = str_nth$(nth) + {{Text|" sub argument requires a string"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                                nth = i
                                {{Text|IF|#F0F0F0}} ids(targetid).args = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Number required for sub"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                a$ = str_nth$(nth) + {{Text|" sub argument requires a number"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|'change to "non-pointer" value|#31C4C4}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}}
                            e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} explicitreference = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} targettyp {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                                nth = i
                                {{Text|IF|#F0F0F0}} qb64prefix_set {{Text|AND|#F0F0F0}} udtxcname(targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|"_MEM"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                    x$ = {{Text|"'"|#FFB100}} + {{Text|MID$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(udtxcname(targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}})), {{Text|2|#F580B1}}) + {{Text|"'"|#FFB100}}
                                {{Text|ELSE|#F0F0F0}}
                                    x$ = {{Text|"'"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(udtxcname(targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}})) + {{Text|"'"|#FFB100}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} ids(targetid).args = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"TYPE "|#FFB100}} + x$ + {{Text|" required for sub"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                                a$ = str_nth$(nth) + {{Text|" sub argument requires TYPE "|#FFB100}} + x$: {{Text|GOTO|#F0F0F0}} errmes
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}} a$ = {{Text|"Number required for sub"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|'round to integer if required|#31C4C4}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISFLOAT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|'**32 rounding fix|#31C4C4}}
                                bits = targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                                {{Text|IF|#F0F0F0}} bits <= {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"qbr_float_to_long("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                                {{Text|IF|#F0F0F0}} bits > {{Text|16|#F580B1}} {{Text|AND|#F0F0F0}} bits < {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"qbr_double_to_long("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                                {{Text|IF|#F0F0F0}} bits >= {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"qbr("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISPOINTER) {{Text|THEN|#F0F0F0}} {{Text|'pointer required|#31C4C4}}
                            {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} sete {{Text|'no changes required|#31C4C4}}
                            t$ = typ2ctyp$(targettyp, {{Text|""|#FFB100}})
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                            v$ = {{Text|"pass"|#FFB100}} + str2$(uniquenumber)
                            {{Text|'assume numeric type|#31C4C4}}
                            {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(sfcmemargs(targetid), i, {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}({{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|'cmem required?|#31C4C4}}
                                bytesreq = ((targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) + {{Text|7|#F580B1}}) \ {{Text|8|#F580B1}}
                                WriteBufLine defdatahandle, t$ + {{Text|" *"|#FFB100}} + v$ + {{Text|"=NULL;"|#FFB100}}
                                WriteBufLine DataTxtBuf, {{Text|"if("|#FFB100}} + v$ + {{Text|"==NULL){"|#FFB100}}
                                WriteBufLine DataTxtBuf, {{Text|"cmem_sp-="|#FFB100}} + str2(bytesreq) + {{Text|";"|#FFB100}}
                                WriteBufLine DataTxtBuf, v$ + {{Text|"=("|#FFB100}} + t$ + {{Text|"*)(dblock+cmem_sp);"|#FFB100}}
                                WriteBufLine DataTxtBuf, {{Text|"if (cmem_sp<qbs_cmem_sp) error(257);"|#FFB100}}
                                WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
                                e$ = {{Text|"&(*"|#FFB100}} + v$ + {{Text|"="|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                            {{Text|ELSE|#F0F0F0}}
                                WriteBufLine DataTxtBuf, t$ + {{Text|" "|#FFB100}} + v$ + {{Text|";"|#FFB100}}
                                e$ = {{Text|"&("|#FFB100}} + v$ + {{Text|"="|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|GOTO|#F0F0F0}} sete
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'not "NULL"|#31C4C4}}
                    sete:
                    {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.callname) = {{Text|"sub_paint"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} i = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
                                e$ = {{Text|"(qbs*)"|#FFB100}} + e$
                            {{Text|ELSE|#F0F0F0}}
                                e$ = {{Text|"(uint32)"|#FFB100}} + e$
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} id2.ccall {{Text|THEN|#F0F0F0}}
                        {{Text|'if a forced cast from a returned ccall function is in e$, remove it|#31C4C4}}
                        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(e$, {{Text|3|#F580B1}}) = {{Text|"(  "|#FFB100}} {{Text|THEN|#F0F0F0}}
                            e$ = removecast$(e$)
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} targettyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                            e$ = {{Text|"(char*)("|#FFB100}} + e$ + {{Text|")->chr"|#FFB100}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(e$)) = {{Text|"0"|#FFB100}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"NULL"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} i <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} subcall$ = subcall$ + {{Text|","|#FFB100}}
                    subcall$ = subcall$ + e$
                {{Text|NEXT|#F0F0F0}}
                {{Text|'note: i=id.args+1|#31C4C4}}
                x$ = separgslayout2$(i)
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|LEN|#F0F0F0}}(x$)
                    x = {{Text|ASC|#F0F0F0}}(x$)
                    {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}}
                        x2$ = {{Text|MID$|#F0F0F0}}(x$, {{Text|2|#F580B1}}, x)
                        x$ = {{Text|RIGHT$|#F0F0F0}}(x$, {{Text|LEN|#F0F0F0}}(x$) - x - {{Text|1|#F580B1}})
                        s = {{Text|0|#F580B1}}
                        an = {{Text|0|#F580B1}}
                        x3$ = {{Text|RIGHT$|#F0F0F0}}(l$, {{Text|1|#F580B1}})
                        {{Text|IF|#F0F0F0}} x3$ = sp {{Text|THEN|#F0F0F0}} s = {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} x3$ = sp2 {{Text|THEN|#F0F0F0}}
                            s = {{Text|2|#F580B1}}
                            {{Text|IF|#F0F0F0}} alphanumeric({{Text|ASC|#F0F0F0}}({{Text|RIGHT$|#F0F0F0}}(l$, {{Text|2|#F580B1}}))) {{Text|THEN|#F0F0F0}} an = {{Text|1|#F580B1}}
                            {{Text|'if asc(right$(l$,2))=34 then an=1|#31C4C4}}
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} alphanumeric({{Text|ASC|#F0F0F0}}(x3$)) {{Text|THEN|#F0F0F0}} an = {{Text|1|#F580B1}}
                            {{Text|'if asc(x3$)=34 then an=1|#31C4C4}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        s1 = s
                        {{Text|IF|#F0F0F0}} (an = {{Text|1|#F580B1}} {{Text|OR|#F0F0F0}} addedlayout = {{Text|1|#F580B1}}) {{Text|AND|#F0F0F0}} alphanumeric({{Text|ASC|#F0F0F0}}(x2$)) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            s = {{Text|1|#F580B1}} {{Text|'force space|#31C4C4}}
                            x2$ = x2$ + sp2
                            {{Text|GOTO|#F0F0F0}} customlaychar2
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} x2$ = {{Text|"="|#FFB100}} {{Text|THEN|#F0F0F0}}
                            s = {{Text|1|#F580B1}}
                            x2$ = x2$ + sp
                            {{Text|GOTO|#F0F0F0}} customlaychar2
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} x2$ = {{Text|"#"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            s = {{Text|1|#F580B1}}
                            x2$ = x2$ + sp2
                            {{Text|GOTO|#F0F0F0}} customlaychar2
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} x2$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} x2$ = x2$ + sp: {{Text|GOTO|#F0F0F0}} customlaychar2
                        {{Text|IF|#F0F0F0}} x$ = {{Text|CHR$|#F0F0F0}}({{Text|0|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|'substitution|#31C4C4}}
                            {{Text|IF|#F0F0F0}} x2$ = {{Text|"STEP"|#FFB100}} {{Text|THEN|#F0F0F0}} x2$ = SCase$({{Text|"Step"|#FFB100}}) + sp2: {{Text|GOTO|#F0F0F0}} customlaychar2
                            x2$ = x2$ + sp: {{Text|GOTO|#F0F0F0}} customlaychar2
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|'default solution sp2+?+sp2|#31C4C4}}
                        x2$ = x2$ + sp2
                        customlaychar2:
                        {{Text|IF|#F0F0F0}} s = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} s = {{Text|2|#F580B1}}
                        {{Text|IF|#F0F0F0}} s <> s1 {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} s1 {{Text|THEN|#F0F0F0}} l$ = {{Text|LEFT$|#F0F0F0}}(l$, {{Text|LEN|#F0F0F0}}(l$) - {{Text|1|#F580B1}})
                            {{Text|IF|#F0F0F0}} s = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp
                            {{Text|IF|#F0F0F0}} s = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp2
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        l$ = l$ + x2$
                    {{Text|ELSE|#F0F0F0}}
                        addlayout = {{Text|0|#F580B1}}
                        x$ = {{Text|RIGHT$|#F0F0F0}}(x$, {{Text|LEN|#F0F0F0}}(x$) - {{Text|1|#F580B1}})
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    addedlayout = {{Text|0|#F580B1}}
                {{Text|LOOP|#F0F0F0}}
                {{Text|IF|#F0F0F0}} passedneeded {{Text|THEN|#F0F0F0}}
                    subcall$ = subcall$ + {{Text|","|#FFB100}} + str2$(passed&)
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                subcall$ = subcall$ + {{Text|");"|#FFB100}}
                {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"SLEEP"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= -4; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                WriteBufLine MainTxtBuf, subcall$
                {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"SLEEP"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= -5; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                subcall$ = {{Text|""|#FFB100}}
                {{Text|IF|#F0F0F0}} stringprocessinghappened {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, cleanupstringprocessingcall$ + {{Text|"0);"|#FFB100}}
                layoutdone = {{Text|1|#F580B1}}
                x$ = {{Text|RIGHT$|#F0F0F0}}(l$, {{Text|1|#F580B1}}): {{Text|IF|#F0F0F0}} x$ = sp {{Text|OR|#F0F0F0}} x$ = sp2 {{Text|THEN|#F0F0F0}} l$ = {{Text|LEFT$|#F0F0F0}}(l$, {{Text|LEN|#F0F0F0}}(l$) - {{Text|1|#F580B1}})
                {{Text|IF|#F0F0F0}} usecall = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp2 + {{Text|")"|#FFB100}}
                {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"SUB layout:["|#FFB100}} + l$ + {{Text|"]"|#FFB100}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} layout$ = l$ {{Text|ELSE|#F0F0F0}} layout$ = layout$ + sp + l$
                {{Text|GOTO|#F0F0F0}} finishedline
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                findidsecondarg = {{Text|""|#FFB100}}: {{Text|IF|#F0F0F0}} n >= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findidsecondarg = getelement$(a$, {{Text|2|#F580B1}})
                findanotherid = {{Text|1|#F580B1}}
                try = findid(firstelement$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|ELSE|#F0F0F0}}
                try = {{Text|0|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|LOOP|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    notsubcall:
    {{Text|IF|#F0F0F0}} n >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstelement$ = {{Text|"LET"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Syntax error - Reference: LET variable = expression (tip: LET is entirely optional)"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            ca$ = {{Text|RIGHT$|#F0F0F0}}(ca$, {{Text|LEN|#F0F0F0}}(ca$) - {{Text|4|#F580B1}})
            n = n - {{Text|1|#F580B1}}
            l$ = SCase$({{Text|"Let"|#FFB100}})
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
            {{Text|'note: layoutdone=1 will be set later|#31C4C4}}
            {{Text|GOTO|#F0F0F0}} letused
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'LET ???=???|#31C4C4}}
    {{Text|IF|#F0F0F0}} n >= {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(a$, sp + {{Text|"="|#FFB100}} + sp) {{Text|THEN|#F0F0F0}}
            letused:
            assign ca$, n
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            layoutdone = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} layout$ = tlayout$ {{Text|ELSE|#F0F0F0}} layout$ = layout$ + sp + tlayout$
            {{Text|GOTO|#F0F0F0}} finishedline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'>=3|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|2|#F580B1}}) = sp + {{Text|"="|#FFB100}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Expected ... = expression"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
    {{Text|'Syntax error|#31C4C4}}
    a$ = {{Text|"Syntax error"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
    finishedline:
    THENGOTO = {{Text|0|#F580B1}}
    finishedline2:
    {{Text|IF|#F0F0F0}} inputfunctioncalled {{Text|THEN|#F0F0F0}}
        inputfunctioncalled = {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= -5; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} arrayprocessinghappened = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} arrayprocessinghappened = {{Text|0|#F580B1}}
    inclinenump$ = {{Text|""|#FFB100}}
    {{Text|IF|#F0F0F0}} inclinenumber(inclevel) {{Text|THEN|#F0F0F0}}
        inclinenump$ = {{Text|","|#FFB100}} + str2$(inclinenumber(inclevel))
        thisincname$ = getfilepath$(incname$(inclevel))
        thisincname$ = {{Text|MID$|#F0F0F0}}(incname$(inclevel), {{Text|LEN|#F0F0F0}}(thisincname$) + {{Text|1|#F580B1}})
        inclinenump$ = inclinenump$ + {{Text|","|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + thisincname$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} vWatchOn {{Text|AND|#F0F0F0}} inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} temp$ = vWatchErrorCall$ {{Text|ELSE|#F0F0F0}} temp$ = {{Text|""|#FFB100}}
        {{Text|IF|#F0F0F0}} dynscope {{Text|THEN|#F0F0F0}}
            dynscope = {{Text|0|#F580B1}}
            WriteBufLine MainTxtBuf, {{Text|"if(qbevent){"|#FFB100}} + temp$ + {{Text|"evnt("|#FFB100}} + str2$(linenumber) + inclinenump$ + {{Text|");if(r)goto S_"|#FFB100}} + str2$(statementn) + {{Text|";}"|#FFB100}}
        {{Text|ELSE|#F0F0F0}}
            WriteBufLine MainTxtBuf, {{Text|"if(!qbevent)break;"|#FFB100}} + temp$ + {{Text|"evnt("|#FFB100}} + str2$(linenumber) + inclinenump$ + {{Text|");}while(r);"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    finishednonexec:
    firstLine = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} layoutdone = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} layoutok = {{Text|0|#F580B1}} {{Text|'invalidate layout if not handled|#31C4C4}}
    {{Text|IF|#F0F0F0}} continuelinefrom = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'note: manager #2 requires this condition|#31C4C4}}
        {{Text|'Include Manager #2 '***|#31C4C4}}
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(addmetainclude$) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} inclevel = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|'backup line formatting|#31C4C4}}
                layoutcomment_backup$ = layoutcomment$
                layoutok_backup = layoutok
                layout_backup$ = layout$
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            a$ = addmetainclude$: addmetainclude$ = {{Text|""|#FFB100}} {{Text|'read/clear message|#31C4C4}}
            {{Text|IF|#F0F0F0}} inclevel = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                includingFromRoot = {{Text|0|#F580B1}}
                forceIncludingFile = {{Text|0|#F580B1}}
                forceInclude:
                {{Text|IF|#F0F0F0}} forceIncludeFromRoot$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                    a$ = forceIncludeFromRoot$
                    forceIncludeFromRoot$ = {{Text|""|#FFB100}}
                    forceIncludingFile = {{Text|1|#F580B1}}
                    includingFromRoot = {{Text|1|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} inclevel = {{Text|100|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Too many indwelling INCLUDE files"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|'1. Verify file exists (location is either (a)relative to source file or (b)absolute)|#31C4C4}}
            fh = {{Text|99|#F580B1}} + inclevel + {{Text|1|#F580B1}}
            firstTryMethod = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} includingFromRoot <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} inclevel = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} firstTryMethod = {{Text|2|#F580B1}}
            {{Text|FOR|#F0F0F0}} try = firstTryMethod {{Text|TO|#F0F0F0}} {{Text|2|#F580B1}} {{Text|'if including file from root, do not attempt including from relative location|#31C4C4}}
                {{Text|IF|#F0F0F0}} try = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} inclevel = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} idemode {{Text|THEN|#F0F0F0}} p$ = idepath$ + pathsep$ {{Text|ELSE|#F0F0F0}} p$ = getfilepath$(sourcefile$)
                    {{Text|ELSE|#F0F0F0}}
                        p$ = getfilepath$(incname(inclevel))
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    f$ = p$ + a$
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} f$ = a$
                {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(f$) {{Text|THEN|#F0F0F0}}
                    qberrorhappened = {{Text|-2|#F580B1}} {{Text|'***|#31C4C4}}
                    {{Text|OPEN|#F0F0F0}} f$ {{Text|FOR|#F0F0F0}} {{Text|BINARY|#F0F0F0}} {{Text|AS|#F0F0F0}} #fh
                    qberrorhappened2: {{Text|'***|#31C4C4}}
                    {{Text|IF|#F0F0F0}} qberrorhappened = {{Text|-2|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}} {{Text|'***|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                qberrorhappened = {{Text|0|#F580B1}}
            {{Text|NEXT|#F0F0F0}}
            {{Text|IF|#F0F0F0}} qberrorhappened <> {{Text|-2|#F580B1}} {{Text|THEN|#F0F0F0}} qberrorhappened = {{Text|0|#F580B1}}: a$ = {{Text|"File "|#FFB100}} + a$ + {{Text|" not found"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            inclevel = inclevel + {{Text|1|#F580B1}}: incname$(inclevel) = f$: inclinenumber(inclevel) = {{Text|0|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'fall through to next section...|#31C4C4}}
        {{Text|'--------------------|#31C4C4}}
        {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} inclevel
            fh = {{Text|99|#F580B1}} + inclevel
            {{Text|'2. Feed next line|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|EOF|#F0F0F0}}(fh) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|LINE|#F0F0F0}} {{Text|INPUT|#F0F0F0}} #fh, x$
                a3$ = x$
                continuelinefrom = {{Text|0|#F580B1}}
                inclinenumber(inclevel) = inclinenumber(inclevel) + {{Text|1|#F580B1}}
                {{Text|'create extended error string 'incerror$'|#31C4C4}}
                errorLineInInclude = inclinenumber(inclevel)
                e$ = {{Text|" in line "|#FFB100}} + str2(inclinenumber(inclevel)) + {{Text|" of "|#FFB100}} + incname$(inclevel) + {{Text|" included"|#FFB100}}
                {{Text|IF|#F0F0F0}} inclevel > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    e$ = e$ + {{Text|" (through "|#FFB100}}
                    {{Text|FOR|#F0F0F0}} x = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} inclevel - {{Text|1|#F580B1}} {{Text|STEP|#F0F0F0}} {{Text|1|#F580B1}}
                        e$ = e$ + incname$(x)
                        {{Text|IF|#F0F0F0}} x < inclevel - {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'a sep is req|#31C4C4}}
                            {{Text|IF|#F0F0F0}} x = inclevel - {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                                e$ = e$ + {{Text|" then "|#FFB100}}
                            {{Text|ELSE|#F0F0F0}}
                                e$ = e$ + {{Text|", "|#FFB100}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|NEXT|#F0F0F0}}
                    e$ = e$ + {{Text|")"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                incerror$ = e$
                linenumber = linenumber - {{Text|1|#F580B1}} {{Text|'lower official linenumber to counter later increment|#31C4C4}}
                {{Text|IF|#F0F0F0}} idemode {{Text|THEN|#F0F0F0}} sendc$ = {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}}) + a3$: {{Text|GOTO|#F0F0F0}} sendcommand {{Text|'passback|#31C4C4}}
                {{Text|GOTO|#F0F0F0}} includeline
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'3. Close & return control|#31C4C4}}
            {{Text|CLOSE|#F0F0F0}} #fh
            inclevel = inclevel - {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} inclevel = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} forceIncludingFile = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    forceIncludingFile = {{Text|0|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} forceIncludeCompleted
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'restore line formatting|#31C4C4}}
                layoutok = layoutok_backup
                layout$ = layout_backup$
                layoutcomment$ = layoutcomment_backup$
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|LOOP|#F0F0F0}} {{Text|'fall through to next section...|#31C4C4}}
        {{Text|'(end manager)|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'continuelinefrom=0|#31C4C4}}
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}}
        {{Text|PRINT|#F0F0F0}} #9, {{Text|"[layout check]"|#FFB100}}
        {{Text|PRINT|#F0F0F0}} #9, {{Text|"["|#FFB100}} + layoutoriginal$ + {{Text|"]"|#FFB100}}
        {{Text|PRINT|#F0F0F0}} #9, {{Text|"["|#FFB100}} + layout$ + {{Text|"]"|#FFB100}}
        {{Text|PRINT|#F0F0F0}} #9, layoutok
        {{Text|PRINT|#F0F0F0}} #9, {{Text|"[end layout check]"|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} idemode {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} continuelinefrom <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} ide4 {{Text|'continue processing other commands on line|#31C4C4}}
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layoutcomment$) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + layoutcomment$ {{Text|ELSE|#F0F0F0}} layout$ = layoutcomment$
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} layoutok = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            layout$ = layoutoriginal$
        {{Text|ELSE|#F0F0F0}}
            {{Text|'reverse '046' changes present in autolayout|#31C4C4}}
            {{Text|'replace fix046$ with .|#31C4C4}}
            i = {{Text|INSTR|#F0F0F0}}(layout$, fix046$)
            {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} i
                layout$ = {{Text|LEFT$|#F0F0F0}}(layout$, i - {{Text|1|#F580B1}}) + {{Text|"."|#FFB100}} + {{Text|RIGHT$|#F0F0F0}}(layout$, {{Text|LEN|#F0F0F0}}(layout$) - (i + {{Text|LEN|#F0F0F0}}(fix046$) - {{Text|1|#F580B1}}))
                i = {{Text|INSTR|#F0F0F0}}(layout$, fix046$)
            {{Text|LOOP|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        x = lhscontrollevel: {{Text|IF|#F0F0F0}} controllevel < lhscontrollevel {{Text|THEN|#F0F0F0}} x = controllevel
        {{Text|IF|#F0F0F0}} definingtype = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} x = x + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} definingtype > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} definingtype = {{Text|2|#F580B1}}
        {{Text|IF|#F0F0F0}} declaringlibrary = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} x = x + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} declaringlibrary > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} declaringlibrary = {{Text|2|#F580B1}}
        layout$ = {{Text|SPACE$|#F0F0F0}}(x) + layout$
        {{Text|IF|#F0F0F0}} linecontinuation {{Text|THEN|#F0F0F0}} layout$ = {{Text|""|#FFB100}}
        {{Text|GOTO|#F0F0F0}} ideret4 {{Text|'return control to IDE|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'layout is not currently used by the compiler (as appose to the IDE), if it was it would be used here|#31C4C4}}
    skipide4:
{{Text|LOOP|#F0F0F0}}
{{Text|'add final line|#31C4C4}}
{{Text|IF|#F0F0F0}} lastLineReturn = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
    lastLineReturn = {{Text|1|#F580B1}}
    lastLine = {{Text|1|#F580B1}}
    wholeline$ = {{Text|""|#FFB100}}
    {{Text|GOTO|#F0F0F0}} mainpassLastLine
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
ide5:
linenumber = {{Text|0|#F580B1}}
{{Text|IF|#F0F0F0}} closedmain = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} closemain
{{Text|IF|#F0F0F0}} definingtype {{Text|THEN|#F0F0F0}} linenumber = definingtypeerror: a$ = {{Text|"TYPE without END TYPE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
{{Text|'check for open controls (copy #1)|#31C4C4}}
{{Text|IF|#F0F0F0}} controllevel {{Text|THEN|#F0F0F0}}
    a$ = {{Text|"Unidentified open control block"|#FFB100}}
    {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} controltype(controllevel)
        {{Text|CASE|#F0F0F0}} {{Text|1|#F580B1}}: a$ = {{Text|"IF without END IF"|#FFB100}}
        {{Text|CASE|#F0F0F0}} {{Text|2|#F580B1}}: a$ = {{Text|"FOR without NEXT"|#FFB100}}
        {{Text|CASE|#F0F0F0}} {{Text|3|#F580B1}}, {{Text|4|#F580B1}}: a$ = {{Text|"DO without LOOP"|#FFB100}}
        {{Text|CASE|#F0F0F0}} {{Text|5|#F580B1}}: a$ = {{Text|"WHILE without WEND"|#FFB100}}
        {{Text|CASE|#F0F0F0}} {{Text|6|#F580B1}}: a$ = {{Text|"$IF without $END IF"|#FFB100}}
        {{Text|CASE|#F0F0F0}} {{Text|10|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|19|#F580B1}}: a$ = {{Text|"SELECT CASE without END SELECT"|#FFB100}}
        {{Text|CASE|#F0F0F0}} {{Text|32|#F580B1}}: a$ = {{Text|"SUB/FUNCTION without END SUB/FUNCTION"|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
    linenumber = controlref(controllevel)
    {{Text|GOTO|#F0F0F0}} errmes
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} ideindentsubs = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(subfunc) {{Text|THEN|#F0F0F0}} a$ = {{Text|"SUB/FUNCTION without END SUB/FUNCTION"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|'close the error handler (cannot be put in 'closemain' because subs/functions can also add error jumps to this file)|#31C4C4}}
WriteBufLine ErrTxtBuf, {{Text|"exit(99);"|#FFB100}} {{Text|'in theory this line should never be run!|#31C4C4}}
WriteBufLine ErrTxtBuf, {{Text|"}"|#FFB100}} {{Text|'close error jump handler|#31C4C4}}
{{Text|'create CLEAR method "CLEAR"|#31C4C4}}
MainTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"clear.txt"|#FFB100}})
{{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} idn
    {{Text|IF|#F0F0F0}} ids(i).staticscope {{Text|THEN|#F0F0F0}} {{Text|'static scope?|#31C4C4}}
        subfunc = {{Text|RTRIM$|#F0F0F0}}(ids(i).insubfunc) {{Text|'set static scope|#31C4C4}}
        {{Text|GOTO|#F0F0F0}} clearstaticscope
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    a = {{Text|ASC|#F0F0F0}}(ids(i).insubfunc)
    {{Text|IF|#F0F0F0}} a = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} a = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'global scope?|#31C4C4}}
        subfunc = {{Text|""|#FFB100}} {{Text|'set global scope|#31C4C4}}
        clearstaticscope:
        {{Text|IF|#F0F0F0}} ids(i).arraytype {{Text|THEN|#F0F0F0}} {{Text|'an array|#31C4C4}}
            getid i
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} id.arrayelements = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} clearerasereturned {{Text|'cannot erase non-existant array|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(vWatchVariableExclusions$, {{Text|"@"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(id.callname) + {{Text|"@"|#FFB100}}) > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|GOTO|#F0F0F0}} clearerasereturned
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            clearerasereturn = {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} clearerase
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'array|#31C4C4}}
        {{Text|IF|#F0F0F0}} ids(i).t {{Text|THEN|#F0F0F0}} {{Text|'non-array variable|#31C4C4}}
            getid i
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            bytes$ = variablesize$({{Text|-1|#F580B1}})
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|'create a reference|#31C4C4}}
            typ = id.t + ISREFERENCE
            {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                e$ = str2(i) + sp3 + str2(typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) + sp3 + {{Text|"0"|#FFB100}} + sp3 + {{Text|"0"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                e$ = str2(i)
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            e$ = refer$(e$, typ, {{Text|1|#F580B1}})
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"memset((void*)("|#FFB100}} + e$ + {{Text|"->chr),0,"|#FFB100}} + bytes$ + {{Text|");"|#FFB100}}
                    {{Text|GOTO|#F0F0F0}} cleared
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(vWatchVariableExclusions$, {{Text|"@"|#FFB100}} + e$ + {{Text|"@"|#FFB100}}) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(e$, {{Text|12|#F580B1}}) <> {{Text|"_SUB_VWATCH_"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        WriteBufLine MainTxtBuf, e$ + {{Text|"->len=0;"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|GOTO|#F0F0F0}} cleared
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} udtxvariable(typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) {{Text|THEN|#F0F0F0}}
                    {{Text|'this next procedure resets values of UDT variables with variable-length strings|#31C4C4}}
                    clear_udt_with_varstrings e$, typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}, MainTxtBuf, {{Text|0|#F580B1}}
                {{Text|ELSE|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"memset((void*)"|#FFB100}} + e$ + {{Text|",0,"|#FFB100}} + bytes$ + {{Text|");"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(vWatchVariableExclusions$, {{Text|"@"|#FFB100}} + e$ + {{Text|"@"|#FFB100}}) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(e$, {{Text|12|#F580B1}}) <> {{Text|"_SUB_VWATCH_"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"*"|#FFB100}} + e$ + {{Text|"=0;"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} cleared
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'non-array variable|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'scope|#31C4C4}}
    cleared:
    clearerasereturned:
{{Text|NEXT|#F0F0F0}}
{{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}}
    {{Text|PRINT|#F0F0F0}} #9, {{Text|"finished making program!"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} #9, {{Text|"recompile="|#FFB100}}; recompile
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|'Set cmem flags for subs/functions requiring data passed in cmem|#31C4C4}}
{{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} idn
    {{Text|IF|#F0F0F0}} cmemlist(i) {{Text|THEN|#F0F0F0}} {{Text|'must be in cmem|#31C4C4}}
        getid i
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
        {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"recompiling cmem sf! checking:"|#FFB100}}; {{Text|RTRIM$|#F0F0F0}}(id.n)
        {{Text|IF|#F0F0F0}} id.sfid {{Text|THEN|#F0F0F0}} {{Text|'it is an argument of a sub/function|#31C4C4}}
            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"recompiling cmem sf! It's a sub/func arg!"|#FFB100}}
            i2 = id.sfid
            x = id.sfarg
            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"recompiling cmem sf! values:"|#FFB100}}; i2; x
            {{Text|'check if cmem flag is set, if not then set it & force recompile|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(sfcmemargs(i2), x, {{Text|1|#F580B1}}) <> {{Text|CHR$|#F0F0F0}}({{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                {{Text|MID$|#F0F0F0}}(sfcmemargs(i2), x, {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}({{Text|1|#F580B1}})
                {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"recompiling cmem sf! setting:"|#FFB100}}; i2; x
                recompile = {{Text|1|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|NEXT|#F0F0F0}} i
unresolved = {{Text|0|#F580B1}}
{{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} idn
    getid i
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"checking id named:"|#FFB100}}; id.n
    {{Text|IF|#F0F0F0}} id.subfunc {{Text|THEN|#F0F0F0}}
        {{Text|FOR|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} id.args
            t = {{Text|CVL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(id.arg, i2 * {{Text|4|#F580B1}} - {{Text|3|#F580B1}}, {{Text|4|#F580B1}}))
            {{Text|IF|#F0F0F0}} t > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISPOINTER) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISARRAY) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"checking argument "|#FFB100}}; i2; {{Text|" of "|#FFB100}}; id.args
                        nele = {{Text|ASC|#F0F0F0}}({{Text|MID$|#F0F0F0}}(id.nele, i2, {{Text|1|#F580B1}}))
                        nelereq = {{Text|ASC|#F0F0F0}}({{Text|MID$|#F0F0F0}}(id.nelereq, i2, {{Text|1|#F580B1}}))
                        {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"nele="|#FFB100}}; nele
                        {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"nelereq="|#FFB100}}; nelereq
                        {{Text|IF|#F0F0F0}} nele <> nelereq {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"mismatch detected!"|#FFB100}}
                            unresolved = unresolved + {{Text|1|#F580B1}}
                            sflistn = sflistn + {{Text|1|#F580B1}}
                            sfidlist(sflistn) = i
                            sfarglist(sflistn) = i2
                            sfelelist(sflistn) = nelereq {{Text|'0 means still unknown|#31C4C4}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|NEXT|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|NEXT|#F0F0F0}}
{{Text|'is recompilation required to resolve this?|#31C4C4}}
{{Text|IF|#F0F0F0}} unresolved > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
    {{Text|IF|#F0F0F0}} lastunresolved = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|'first pass|#31C4C4}}
        recompile = {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}}
            {{Text|PRINT|#F0F0F0}} #9, {{Text|"recompiling to resolve array elements (first time)"|#FFB100}}
            {{Text|PRINT|#F0F0F0}} #9, {{Text|"sflistn="|#FFB100}}; sflistn
            {{Text|PRINT|#F0F0F0}} #9, {{Text|"oldsflistn="|#FFB100}}; oldsflistn
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|ELSE|#F0F0F0}}
        {{Text|'not first pass|#31C4C4}}
        {{Text|IF|#F0F0F0}} unresolved < lastunresolved {{Text|THEN|#F0F0F0}}
            recompile = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}}
                {{Text|PRINT|#F0F0F0}} #9, {{Text|"recompiling to resolve array elements (not first time)"|#FFB100}}
                {{Text|PRINT|#F0F0F0}} #9, {{Text|"sflistn="|#FFB100}}; sflistn
                {{Text|PRINT|#F0F0F0}} #9, {{Text|"oldsflistn="|#FFB100}}; oldsflistn
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'unresolved|#31C4C4}}
lastunresolved = unresolved
{{Text|'IDEA!|#31C4C4}}
{{Text|'have a flag to record if anything gets resolved in a pass|#31C4C4}}
{{Text|'if not then it's time to stop|#31C4C4}}
{{Text|'the problem is the same amount of new problems may be created by a|#31C4C4}}
{{Text|'resolve as those that get fixed|#31C4C4}}
{{Text|'also/or.. could it be that previous fixes are overridden in a recompile|#31C4C4}}
{{Text|'          by a new fix? if so, it would give these effects|#31C4C4}}
{{Text|'could recompilation resolve this?|#31C4C4}}
{{Text|'IF sflistn <> -1 THEN|#31C4C4}}
{{Text|'IF sflistn <> oldsflistn THEN|#31C4C4}}
{{Text|'recompile = 1|#31C4C4}}
{{Text|'|#31C4C4}}
{{Text|'if debug then|#31C4C4}}
{{Text|'print #9,"recompile set to 1 to resolve array elements"|#31C4C4}}
{{Text|'print #9,"sflistn=";sflistn|#31C4C4}}
{{Text|'print #9,"oldsflistn=";oldsflistn|#31C4C4}}
{{Text|'end if|#31C4C4}}
{{Text|'|#31C4C4}}
{{Text|'END IF|#31C4C4}}
{{Text|'END IF|#31C4C4}}
{{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"Beginning COMMON array list check..."|#FFB100}}
xi = {{Text|1|#F580B1}}
{{Text|FOR|#F0F0F0}} x = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} commonarraylistn
    varname$ = getelement$(commonarraylist, xi): xi = xi + {{Text|1|#F580B1}}
    typ$ = getelement$(commonarraylist, xi): xi = xi + {{Text|1|#F580B1}}
    dimmethod2 = {{Text|VAL|#F0F0F0}}(getelement$(commonarraylist, xi)): xi = xi + {{Text|1|#F580B1}}
    dimshared2 = {{Text|VAL|#F0F0F0}}(getelement$(commonarraylist, xi)): xi = xi + {{Text|1|#F580B1}}
    {{Text|'find the array ID (try method)|#31C4C4}}
    t = typname2typ(typ$)
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
    {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} varname$ = varname$ + type2symbol$(typ$)
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"Checking for array '"|#FFB100}} + varname$ + {{Text|"'..."|#FFB100}}
    try = findid(varname$)
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
        {{Text|IF|#F0F0F0}} id.arraytype {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} foundcommonarray2
        {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(varname$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
    {{Text|LOOP|#F0F0F0}}
    foundcommonarray2:
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"Found array '"|#FFB100}} + varname$ + {{Text|"!"|#FFB100}}
    {{Text|IF|#F0F0F0}} id.arrayelements = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} arrayelementslist(currentid) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} recompile = {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"Recompiling to resolve elements of:"|#FFB100}} + varname$
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|NEXT|#F0F0F0}}
{{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"Finished COMMON array list check!"|#FFB100}}
{{Text|IF|#F0F0F0}} vWatchDesiredState <> vWatchOn {{Text|THEN|#F0F0F0}}
    vWatchRecompileAttempts = vWatchRecompileAttempts + {{Text|1|#F580B1}}
    recompile = {{Text|1|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} recompile {{Text|THEN|#F0F0F0}}
    do_recompile:
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"Recompile required!"|#FFB100}}
    recompile = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} idemode {{Text|THEN|#F0F0F0}} iderecompile = {{Text|1|#F580B1}}
    {{Text|FOR|#F0F0F0}} closeall = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|255|#F580B1}}: {{Text|CLOSE|#F0F0F0}} closeall: {{Text|NEXT|#F0F0F0}}
    {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"temp.bin"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|LOCK|#F0F0F0}} {{Text|WRITE|#F0F0F0}} {{Text|AS|#F0F0F0}} #26 {{Text|'relock|#31C4C4}}
    {{Text|GOTO|#F0F0F0}} recompile
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"Beginning label check..."|#FFB100}}
{{Text|FOR|#F0F0F0}} r = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} nLabels
    {{Text|IF|#F0F0F0}} Labels(r).Scope_Restriction {{Text|THEN|#F0F0F0}}
        a$ = {{Text|RTRIM$|#F0F0F0}}(Labels(r).cn)
        ignore = validlabel(a$)
        v = HashFind(a$, HASHFLAG_LABEL, ignore, r2)
        addlabchk7:
        {{Text|IF|#F0F0F0}} v {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} Labels(r2).Scope = Labels(r).Scope_Restriction {{Text|THEN|#F0F0F0}}
                linenumber = Labels(r).Error_Line: a$ = {{Text|"Common label within a SUB/FUNCTION"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} v = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} v = HashFindCont(ignore, r2): {{Text|GOTO|#F0F0F0}} addlabchk7
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'v|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'restriction|#31C4C4}}
    {{Text|'check for undefined labels|#31C4C4}}
    {{Text|IF|#F0F0F0}} Labels(r).State = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(PossibleSubNameLabels$, sp + {{Text|UCASE$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(Labels(r).cn)) + sp) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(SubNameLabels$, sp + {{Text|UCASE$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(Labels(r).cn)) + sp) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'not already added|#31C4C4}}
                SubNameLabels$ = SubNameLabels$ + {{Text|UCASE$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(Labels(r).cn)) + sp
                {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"Recompiling to resolve label:"|#FFB100}}; {{Text|RTRIM$|#F0F0F0}}(Labels(r).cn)
                {{Text|GOTO|#F0F0F0}} do_recompile
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        linenumber = Labels(r).Error_Line: a$ = {{Text|"Label '"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(Labels(r).cn) + {{Text|"' not defined"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} Labels(r).Data_Referenced {{Text|THEN|#F0F0F0}}
        {{Text|'check for ambiguous RESTORE reference|#31C4C4}}
        x = {{Text|0|#F580B1}}
        a$ = {{Text|RTRIM$|#F0F0F0}}(Labels(r).cn)
        ignore = validlabel(a$)
        v = HashFind(a$, HASHFLAG_LABEL, ignore, r2)
        addlabchk4:
        {{Text|IF|#F0F0F0}} v {{Text|THEN|#F0F0F0}}
            x = x + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} v = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} v = HashFindCont(ignore, r2): {{Text|GOTO|#F0F0F0}} addlabchk4
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'v|#31C4C4}}
        {{Text|IF|#F0F0F0}} x <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} linenumber = Labels(r).Error_Line: a$ = {{Text|"Ambiguous DATA label"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
        {{Text|'add global data offset variable|#31C4C4}}
        WriteBufLine GlobTxtBuf, {{Text|"ptrszint data_at_LABEL_"|#FFB100}} + a$ + {{Text|"="|#FFB100}} + str2(Labels(r).Data_Offset) + {{Text|";"|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'data referenced|#31C4C4}}
{{Text|NEXT|#F0F0F0}}
{{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"Finished check!"|#FFB100}}
{{Text|'if targettyp=-4 or targettyp=-5 then '? -> byte_element(offset,element size in bytes)|#31C4C4}}
{{Text|' IF (sourcetyp AND ISREFERENCE) = 0 THEN a$ = "Expected variable name/array element": GOTO errmes|#31C4C4}}
{{Text|'create include files for COMMON arrays|#31C4C4}}
{{Text|'return to 'main'|#31C4C4}}
subfunc$ = {{Text|""|#FFB100}}
defdatahandle = GlobTxtBuf
DataTxtBuf = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"maindata.txt"|#FFB100}})
FreeTxtBuf = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"mainfree.txt"|#FFB100}})
{{Text|IF|#F0F0F0}}{{Text|_Console|#F0F0F0}} {{Text|THEN|#F0F0F0}}
    WriteBufLine GlobTxtBuf, {{Text|"int32 console=1;"|#FFB100}}
{{Text|ELSE|#F0F0F0}}
    WriteBufLine GlobTxtBuf, {{Text|"int32 console=0;"|#FFB100}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}}{{Text|_ScreenHide|#F0F0F0}} {{Text|THEN|#F0F0F0}}
    WriteBufLine GlobTxtBuf, {{Text|"int32 screen_hide_startup=1;"|#FFB100}}
{{Text|ELSE|#F0F0F0}}
    WriteBufLine GlobTxtBuf, {{Text|"int32 screen_hide_startup=0;"|#FFB100}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} Asserts {{Text|THEN|#F0F0F0}}
    WriteBufLine GlobTxtBuf, {{Text|"int32 asserts=1;"|#FFB100}}
{{Text|ELSE|#F0F0F0}}
    WriteBufLine GlobTxtBuf, {{Text|"int32 asserts=0;"|#FFB100}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} vWatchOn {{Text|THEN|#F0F0F0}}
    WriteBufLine GlobTxtBuf, {{Text|"int32 vwatch=-1;"|#FFB100}}
{{Text|ELSE|#F0F0F0}}
    WriteBufLine GlobTxtBuf, {{Text|"int32 vwatch=0;"|#FFB100}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
bh = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"dyninfo.txt"|#FFB100}})
{{Text|IF|#F0F0F0}}{{Text|_Resize|#F0F0F0}} {{Text|THEN|#F0F0F0}}
    WriteBufLine bh, {{Text|"ScreenResize=1;"|#FFB100}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} Resize_Scale {{Text|THEN|#F0F0F0}}
    WriteBufLine bh, {{Text|"ScreenResizeScale="|#FFB100}} + str2(Resize_Scale) + {{Text|";"|#FFB100}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
    vWatchVariable {{Text|""|#FFB100}}, {{Text|1|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|'DATA_finalize|#31C4C4}}
WriteBufLine GlobTxtBuf, {{Text|"ptrszint data_size="|#FFB100}} + str2(DataOffset) + {{Text|";"|#FFB100}}
{{Text|IF|#F0F0F0}} DataOffset = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
    WriteBufLine GlobTxtBuf, {{Text|"uint8 *data=(uint8*)calloc(1,1);"|#FFB100}}
{{Text|ELSE|#F0F0F0}}
    {{Text|IF|#F0F0F0}} inline_DATA = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} os$ = {{Text|"WIN"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} OS_BITS = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}}
                x$ = {{Text|CHR$|#F0F0F0}}({{Text|0|#F580B1}}): WriteBufRawData DataBinBuf, x$
                WriteBufLine GlobTxtBuf, {{Text|"extern "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"C"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"{"|#FFB100}}
                WriteBufLine GlobTxtBuf, {{Text|"extern char *binary_internal_temp"|#FFB100}} + tempfolderindexstr2$ + {{Text|"_data_bin_start;"|#FFB100}}
                WriteBufLine GlobTxtBuf, {{Text|"}"|#FFB100}}
                WriteBufLine GlobTxtBuf, {{Text|"uint8 *data=(uint8*)&binary_internal_temp"|#FFB100}} + tempfolderindexstr2$ + {{Text|"_data_bin_start;"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                x$ = {{Text|CHR$|#F0F0F0}}({{Text|0|#F580B1}}): WriteBufRawData DataBinBuf, x$
                WriteBufLine GlobTxtBuf, {{Text|"extern "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"C"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"{"|#FFB100}}
                WriteBufLine GlobTxtBuf, {{Text|"extern char *_binary_internal_temp"|#FFB100}} + tempfolderindexstr2$ + {{Text|"_data_bin_start;"|#FFB100}}
                WriteBufLine GlobTxtBuf, {{Text|"}"|#FFB100}}
                WriteBufLine GlobTxtBuf, {{Text|"uint8 *data=(uint8*)&_binary_internal_temp"|#FFB100}} + tempfolderindexstr2$ + {{Text|"_data_bin_start;"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}}
            x$ = {{Text|CHR$|#F0F0F0}}({{Text|0|#F580B1}}): WriteBufRawData DataBinBuf, x$
            WriteBufLine GlobTxtBuf, {{Text|"extern "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"C"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"{"|#FFB100}}
            WriteBufLine GlobTxtBuf, {{Text|"extern char *_binary_internal_temp"|#FFB100}} + tempfolderindexstr2$ + {{Text|"_data_bin_start;"|#FFB100}}
            WriteBufLine GlobTxtBuf, {{Text|"}"|#FFB100}}
            WriteBufLine GlobTxtBuf, {{Text|"uint8 *data=(uint8*)&_binary_internal_temp"|#FFB100}} + tempfolderindexstr2$ + {{Text|"_data_bin_start;"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|ELSE|#F0F0F0}}
        {{Text|'inline data|#31C4C4}}
        ff = OpenBuffer%({{Text|"B"|#FFB100}}, tmpdir$ + {{Text|"data.bin"|#FFB100}})
        x$ = ReadBufRawData$(ff, GetBufLen&(ff))
        x2$ = {{Text|"uint8 inline_data[]={"|#FFB100}}
        {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(x$)
            x2$ = x2$ + inlinedatastr$({{Text|ASC|#F0F0F0}}(x$, i))
        {{Text|NEXT|#F0F0F0}}
        x2$ = x2$ + {{Text|"0};"|#FFB100}}
        WriteBufLine GlobTxtBuf, x2$
        WriteBufLine GlobTxtBuf, {{Text|"uint8 *data=&inline_data[0];"|#FFB100}}
        x$ = {{Text|""|#FFB100}}: x2$ = {{Text|""|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"Beginning generation of code for saving/sharing common array data..."|#FFB100}}
use_global_byte_elements = {{Text|1|#F580B1}}
ncommontmp = {{Text|0|#F580B1}}
xi = {{Text|1|#F580B1}}
{{Text|FOR|#F0F0F0}} x = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} commonarraylistn
    varname$ = getelement$(commonarraylist, xi): xi = xi + {{Text|1|#F580B1}}
    typ$ = getelement$(commonarraylist, xi): xi = xi + {{Text|1|#F580B1}}
    dimmethod2 = {{Text|VAL|#F0F0F0}}(getelement$(commonarraylist, xi)): xi = xi + {{Text|1|#F580B1}}
    dimshared2 = {{Text|VAL|#F0F0F0}}(getelement$(commonarraylist, xi)): xi = xi + {{Text|1|#F580B1}}
    {{Text|'find the array ID (try method)|#31C4C4}}
    purevarname$ = varname$
    t = typname2typ(typ$)
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
    {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} varname$ = varname$ + type2symbol$(typ$)
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
    try = findid(varname$)
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
        {{Text|IF|#F0F0F0}} id.arraytype {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} foundcommonarray
        {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(varname$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
    {{Text|LOOP|#F0F0F0}}
    a$ = {{Text|"COMMON array unlocatable"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes {{Text|'should never happen|#31C4C4}}
    foundcommonarray:
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"Found common array '"|#FFB100}} + varname$ + {{Text|"'!"|#FFB100}}
    i = currentid
    arraytype = id.arraytype
    arrayelements = id.arrayelements
    e$ = {{Text|RTRIM$|#F0F0F0}}(id.n)
    {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = e$ + typevalue2symbol$(t)
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
    n$ = e$
    n2$ = {{Text|RTRIM$|#F0F0F0}}(id.callname)
    tsize = id.tsize
    {{Text|'select command|#31C4C4}}
    command = {{Text|3|#F580B1}} {{Text|'fixed length elements|#31C4C4}}
    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            command = {{Text|4|#F580B1}} {{Text|'var-len elements|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'if...|#31C4C4}}
    {{Text|'i) array elements are still undefined (ie. arrayelements=-1) pass the input content along|#31C4C4}}
    {{Text|'  if any existed or an array-placeholder|#31C4C4}}
    {{Text|'ii) if the array's elements were defined, any input content would have been loaded so the|#31C4C4}}
    {{Text|'    array (in whatever state it currently is) should be passed. If it is currently erased|#31C4C4}}
    {{Text|'    then it should be passed as a placeholder|#31C4C4}}
    {{Text|IF|#F0F0F0}} arrayelements = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|'load array (copies the array, if any, into a buffer for later)|#31C4C4}}
        MainTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"inpchain"|#FFB100}} + str2$(i) + {{Text|".txt"|#FFB100}})
        WriteBufLine MainTxtBuf, {{Text|"if (int32val==2){"|#FFB100}} {{Text|'array place-holder|#31C4C4}}
        {{Text|'create buffer to store array as-is in global.txt|#31C4C4}}
        x$ = str2$(uniquenumber)
        x1$ = {{Text|"chainarraybuf"|#FFB100}} + x$
        x2$ = {{Text|"chainarraybufsiz"|#FFB100}} + x$
        WriteBufLine GlobTxtBuf, {{Text|"static uint8 *"|#FFB100}} + x1$ + {{Text|"=(uint8*)malloc(1);"|#FFB100}}
        WriteBufLine GlobTxtBuf, {{Text|"static int64 "|#FFB100}} + x2$ + {{Text|"=0;"|#FFB100}}
        {{Text|'read next command|#31C4C4}}
        WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,byte_element((uint64)&int32val,4,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
        {{Text|IF|#F0F0F0}} command = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"if (int32val==3){"|#FFB100}} {{Text|'fixed-length-element array|#31C4C4}}
        {{Text|IF|#F0F0F0}} command = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"if (int32val==4){"|#FFB100}} {{Text|'var-length-element array|#31C4C4}}
        WriteBufLine MainTxtBuf, x2$ + {{Text|"+=4; "|#FFB100}} + x1$ + {{Text|"=(uint8*)realloc("|#FFB100}} + x1$ + {{Text|","|#FFB100}} + x2$ + {{Text|"); *(int32*)("|#FFB100}} + x1$ + {{Text|"+"|#FFB100}} + x2$ + {{Text|"-4)=int32val;"|#FFB100}}
        {{Text|IF|#F0F0F0}} command = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|'read size in bits of one element, convert it to bytes|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,byte_element((uint64)&int64val,8,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
            WriteBufLine MainTxtBuf, x2$ + {{Text|"+=8; "|#FFB100}} + x1$ + {{Text|"=(uint8*)realloc("|#FFB100}} + x1$ + {{Text|","|#FFB100}} + x2$ + {{Text|"); *(int64*)("|#FFB100}} + x1$ + {{Text|"+"|#FFB100}} + x2$ + {{Text|"-8)=int64val;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"bytes=int64val>>3;"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'com=3|#31C4C4}}
        {{Text|IF|#F0F0F0}} command = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"bytes=1;"|#FFB100}} {{Text|'bytes used to calculate number of elements|#31C4C4}}
        {{Text|'read number of dimensions|#31C4C4}}
        WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,byte_element((uint64)&int32val,4,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
        WriteBufLine MainTxtBuf, x2$ + {{Text|"+=4; "|#FFB100}} + x1$ + {{Text|"=(uint8*)realloc("|#FFB100}} + x1$ + {{Text|","|#FFB100}} + x2$ + {{Text|"); *(int32*)("|#FFB100}} + x1$ + {{Text|"+"|#FFB100}} + x2$ + {{Text|"-4)=int32val;"|#FFB100}}
        {{Text|'read size of dimensions & calculate the size of the array in bytes|#31C4C4}}
        WriteBufLine MainTxtBuf, {{Text|"while(int32val--){"|#FFB100}}
        WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,byte_element((uint64)&int64val,8,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}} {{Text|'lbound|#31C4C4}}
        WriteBufLine MainTxtBuf, x2$ + {{Text|"+=8; "|#FFB100}} + x1$ + {{Text|"=(uint8*)realloc("|#FFB100}} + x1$ + {{Text|","|#FFB100}} + x2$ + {{Text|"); *(int64*)("|#FFB100}} + x1$ + {{Text|"+"|#FFB100}} + x2$ + {{Text|"-8)=int64val;"|#FFB100}}
        WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,byte_element((uint64)&int64val2,8,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}} {{Text|'ubound|#31C4C4}}
        WriteBufLine MainTxtBuf, x2$ + {{Text|"+=8; "|#FFB100}} + x1$ + {{Text|"=(uint8*)realloc("|#FFB100}} + x1$ + {{Text|","|#FFB100}} + x2$ + {{Text|"); *(int64*)("|#FFB100}} + x1$ + {{Text|"+"|#FFB100}} + x2$ + {{Text|"-8)=int64val2;"|#FFB100}}
        WriteBufLine MainTxtBuf, {{Text|"bytes*=(int64val2-int64val+1);"|#FFB100}}
        WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
        {{Text|IF|#F0F0F0}} command = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|'read the array data|#31C4C4}}
            WriteBufLine MainTxtBuf, x2$ + {{Text|"+=bytes; "|#FFB100}} + x1$ + {{Text|"=(uint8*)realloc("|#FFB100}} + x1$ + {{Text|","|#FFB100}} + x2$ + {{Text|");"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,byte_element((uint64)("|#FFB100}} + x1$ + {{Text|"+"|#FFB100}} + x2$ + {{Text|"-bytes),bytes,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'com=3|#31C4C4}}
        {{Text|IF|#F0F0F0}} command = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}}
            WriteBufLine MainTxtBuf, {{Text|"bytei=0;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"while(bytei<bytes){"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,byte_element((uint64)&int64val,8,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}} {{Text|'get size|#31C4C4}}
            WriteBufLine MainTxtBuf, x2$ + {{Text|"+=8; "|#FFB100}} + x1$ + {{Text|"=(uint8*)realloc("|#FFB100}} + x1$ + {{Text|","|#FFB100}} + x2$ + {{Text|"); *(int64*)("|#FFB100}} + x1$ + {{Text|"+"|#FFB100}} + x2$ + {{Text|"-8)=int64val;"|#FFB100}}
            WriteBufLine MainTxtBuf, x2$ + {{Text|"+=(int64val>>3); "|#FFB100}} + x1$ + {{Text|"=(uint8*)realloc("|#FFB100}} + x1$ + {{Text|","|#FFB100}} + x2$ + {{Text|");"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,byte_element((uint64)("|#FFB100}} + x1$ + {{Text|"+"|#FFB100}} + x2$ + {{Text|"-(int64val>>3)),(int64val>>3),"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"bytei++;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'get next command|#31C4C4}}
        WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,byte_element((uint64)&int32val,4,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
        WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}} {{Text|'command=3 or 4|#31C4C4}}
        WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}} {{Text|'array place-holder|#31C4C4}}
        {{Text|'save array (saves the buffered data, if any, for later)|#31C4C4}}
        MainTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"chain"|#FFB100}} + str2$(i) + {{Text|".txt"|#FFB100}})
        WriteBufLine MainTxtBuf, {{Text|"int32val=2;"|#FFB100}} {{Text|'placeholder|#31C4C4}}
        WriteBufLine MainTxtBuf, {{Text|"sub_put(FF,NULL,byte_element((uint64)&int32val,4,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
        WriteBufLine MainTxtBuf, {{Text|"sub_put(FF,NULL,byte_element((uint64)"|#FFB100}} + x1$ + {{Text|","|#FFB100}} + x2$ + {{Text|","|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
    {{Text|ELSE|#F0F0F0}}
        {{Text|'note: arrayelements<>-1|#31C4C4}}
        {{Text|'load array|#31C4C4}}
        MainTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"inpchain"|#FFB100}} + str2$(i) + {{Text|".txt"|#FFB100}})
        WriteBufLine MainTxtBuf, {{Text|"if (int32val==2){"|#FFB100}} {{Text|'array place-holder|#31C4C4}}
        WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,byte_element((uint64)&int32val,4,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
        {{Text|IF|#F0F0F0}} command = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"if (int32val==3){"|#FFB100}} {{Text|'fixed-length-element array|#31C4C4}}
        {{Text|IF|#F0F0F0}} command = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"if (int32val==4){"|#FFB100}} {{Text|'var-length-element array|#31C4C4}}
        {{Text|IF|#F0F0F0}} command = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|'get size in bits|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,byte_element((uint64)&int64val,8,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
            {{Text|'***assume correct***|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'get number of elements|#31C4C4}}
        WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,byte_element((uint64)&int32val,4,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
        {{Text|'***assume correct***|#31C4C4}}
        e$ = {{Text|""|#FFB100}}
        {{Text|IF|#F0F0F0}} command = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"bytes=1;"|#FFB100}} {{Text|'bytes counts the number of total elements|#31C4C4}}
        {{Text|FOR|#F0F0F0}} x2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} arrayelements
            {{Text|'create 'secret' variables to assist in passing common arrays|#31C4C4}}
            {{Text|IF|#F0F0F0}} x2 > ncommontmp {{Text|THEN|#F0F0F0}}
                ncommontmp = ncommontmp + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"Calling DIM2(...)..."|#FFB100}}
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                retval = dim2({{Text|"___RESERVED_COMMON_LBOUND"|#FFB100}} + str2$(ncommontmp), {{Text|"_INTEGER64"|#FFB100}}, {{Text|0|#F580B1}}, {{Text|""|#FFB100}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                retval = dim2({{Text|"___RESERVED_COMMON_UBOUND"|#FFB100}} + str2$(ncommontmp), {{Text|"_INTEGER64"|#FFB100}}, {{Text|0|#F580B1}}, {{Text|""|#FFB100}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"Finished calling DIM2(...)!"|#FFB100}}
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,byte_element((uint64)&int64val,8,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"*__INTEGER64____RESERVED_COMMON_LBOUND"|#FFB100}} + str2$(x2) + {{Text|"=int64val;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,byte_element((uint64)&int64val2,8,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"*__INTEGER64____RESERVED_COMMON_UBOUND"|#FFB100}} + str2$(x2) + {{Text|"=int64val2;"|#FFB100}}
            {{Text|IF|#F0F0F0}} command = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"bytes*=(int64val2-int64val+1);"|#FFB100}}
            {{Text|IF|#F0F0F0}} x2 > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = e$ + sp + {{Text|","|#FFB100}} + sp
            e$ = e$ + {{Text|"___RESERVED_COMMON_LBOUND"|#FFB100}} + str2$(x2) + sp + {{Text|"TO"|#FFB100}} + sp + {{Text|"___RESERVED_COMMON_UBOUND"|#FFB100}} + str2$(x2)
        {{Text|NEXT|#F0F0F0}}
        {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"Calling DIM2("|#FFB100}} + purevarname$ + {{Text|","|#FFB100}} + typ$ + {{Text|",0,"|#FFB100}} + e$ + {{Text|")..."|#FFB100}}
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
        {{Text|'Note: purevarname$ is simply varname$ without the type symbol after it|#31C4C4}}
        redimoption = {{Text|1|#F580B1}}
        retval = dim2(purevarname$, typ$, {{Text|0|#F580B1}}, e$)
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
        redimoption = {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"Finished calling DIM2("|#FFB100}} + purevarname$ + {{Text|","|#FFB100}} + typ$ + {{Text|",0,"|#FFB100}} + e$ + {{Text|")!"|#FFB100}}
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
        {{Text|IF|#F0F0F0}} command = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|'use get to load in the array data|#31C4C4}}
            varname$ = varname$ + sp + {{Text|"("|#FFB100}} + sp + {{Text|")"|#FFB100}}
            e$ = evaluatetotyp(fixoperationorder$(varname$), {{Text|-4|#F580B1}})
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,"|#FFB100}} + e$ + {{Text|",0);"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} command = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}}
            WriteBufLine MainTxtBuf, {{Text|"bytei=0;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"while(bytei<bytes){"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,byte_element((uint64)&int64val,8,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}} {{Text|'get size|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"tqbs=((qbs*)(((uint64*)("|#FFB100}} + n2$ + {{Text|"[0]))[bytei]));"|#FFB100}} {{Text|'get element|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"qbs_set(tqbs,qbs_new(int64val>>3,1));"|#FFB100}} {{Text|'change string size|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,byte_element((uint64)tqbs->chr,int64val>>3,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}} {{Text|'get size|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"bytei++;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'get next command|#31C4C4}}
        WriteBufLine MainTxtBuf, {{Text|"sub_get(FF,NULL,byte_element((uint64)&int32val,4,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
        WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
        WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
        {{Text|'save array|#31C4C4}}
        MainTxtBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"chain"|#FFB100}} + str2$(i) + {{Text|".txt"|#FFB100}})
        WriteBufLine MainTxtBuf, {{Text|"int32val=2;"|#FFB100}} {{Text|'placeholder|#31C4C4}}
        WriteBufLine MainTxtBuf, {{Text|"sub_put(FF,NULL,byte_element((uint64)&int32val,4,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
        WriteBufLine MainTxtBuf, {{Text|"if ("|#FFB100}} + n2$ + {{Text|"[2]&1){"|#FFB100}} {{Text|'don't add unless defined|#31C4C4}}
        {{Text|IF|#F0F0F0}} command = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"int32val=3;"|#FFB100}}
        {{Text|IF|#F0F0F0}} command = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"int32val=4;"|#FFB100}}
        WriteBufLine MainTxtBuf, {{Text|"sub_put(FF,NULL,byte_element((uint64)&int32val,4,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
        {{Text|IF|#F0F0F0}} command = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|'size of each element in bits|#31C4C4}}
            bits = t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
            {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}} bits = udtxsize(t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}})
            {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}} bits = tsize * {{Text|8|#F580B1}}
            WriteBufLine MainTxtBuf, {{Text|"int64val="|#FFB100}} + str2$(bits) + {{Text|";"|#FFB100}} {{Text|'size in bits|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"sub_put(FF,NULL,byte_element((uint64)&int64val,8,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'com=3|#31C4C4}}
        WriteBufLine MainTxtBuf, {{Text|"int32val="|#FFB100}} + str2$(arrayelements) + {{Text|";"|#FFB100}} {{Text|'number of dimensions|#31C4C4}}
        WriteBufLine MainTxtBuf, {{Text|"sub_put(FF,NULL,byte_element((uint64)&int32val,4,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
        {{Text|IF|#F0F0F0}} command = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|FOR|#F0F0F0}} x2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} arrayelements
                {{Text|'simulate calls to lbound/ubound|#31C4C4}}
                e$ = {{Text|"LBOUND"|#FFB100}} + sp + {{Text|"("|#FFB100}} + sp + n$ + sp + {{Text|","|#FFB100}} + sp + str2$(x2) + sp + {{Text|")"|#FFB100}}
                e$ = evaluatetotyp(fixoperationorder$(e$), {{Text|64|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                WriteBufLine MainTxtBuf, {{Text|"int64val="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"sub_put(FF,NULL,byte_element((uint64)&int64val,8,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
                e$ = {{Text|"UBOUND"|#FFB100}} + sp + {{Text|"("|#FFB100}} + sp + n$ + sp + {{Text|","|#FFB100}} + sp + str2$(x2) + sp + {{Text|")"|#FFB100}}
                e$ = evaluatetotyp(fixoperationorder$(e$), {{Text|64|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                WriteBufLine MainTxtBuf, {{Text|"int64val="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"sub_put(FF,NULL,byte_element((uint64)&int64val,8,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
            {{Text|NEXT|#F0F0F0}}
            {{Text|'array data|#31C4C4}}
            e$ = evaluatetotyp(fixoperationorder$(n$ + sp + {{Text|"("|#FFB100}} + sp + {{Text|")"|#FFB100}}), {{Text|-4|#F580B1}})
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
            WriteBufLine MainTxtBuf, {{Text|"sub_put(FF,NULL,"|#FFB100}} + e$ + {{Text|",0);"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'com=3|#31C4C4}}
        {{Text|IF|#F0F0F0}} command = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|'store LBOUND/UBOUND values and calculate number of total elements/strings|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"bytes=1;"|#FFB100}} {{Text|'note: bytes is actually the total number of elements|#31C4C4}}
            {{Text|FOR|#F0F0F0}} x2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} arrayelements
                e$ = {{Text|"LBOUND"|#FFB100}} + sp + {{Text|"("|#FFB100}} + sp + n$ + sp + {{Text|","|#FFB100}} + sp + str2$(x2) + sp + {{Text|")"|#FFB100}}
                e$ = evaluatetotyp(fixoperationorder$(e$), {{Text|64|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                WriteBufLine MainTxtBuf, {{Text|"int64val="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"sub_put(FF,NULL,byte_element((uint64)&int64val,8,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
                e$ = {{Text|"UBOUND"|#FFB100}} + sp + {{Text|"("|#FFB100}} + sp + n$ + sp + {{Text|","|#FFB100}} + sp + str2$(x2) + sp + {{Text|")"|#FFB100}}
                e$ = evaluatetotyp(fixoperationorder$(e$), {{Text|64|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} errmes
                WriteBufLine MainTxtBuf, {{Text|"int64val2="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"sub_put(FF,NULL,byte_element((uint64)&int64val2,8,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"bytes*=(int64val2-int64val+1);"|#FFB100}}
            {{Text|NEXT|#F0F0F0}}
            WriteBufLine MainTxtBuf, {{Text|"bytei=0;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"while(bytei<bytes){"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"tqbs=((qbs*)(((uint64*)("|#FFB100}} + n2$ + {{Text|"[0]))[bytei]));"|#FFB100}} {{Text|'get element|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"int64val=tqbs->len; int64val<<=3;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"sub_put(FF,NULL,byte_element((uint64)&int64val,8,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}} {{Text|'size of element|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"sub_put(FF,NULL,byte_element((uint64)tqbs->chr,tqbs->len,"|#FFB100}} + NewByteElement$ + {{Text|"),0);"|#FFB100}} {{Text|'element data|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"bytei++;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'com=4|#31C4C4}}
        WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}} {{Text|'don't add unless defined|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'id.arrayelements=-1|#31C4C4}}
{{Text|NEXT|#F0F0F0}}
use_global_byte_elements = {{Text|0|#F580B1}}
{{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"Finished generation of code for saving/sharing common array data!"|#FFB100}}
{{Text|FOR|#F0F0F0}} closeall = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|255|#F580B1}}: {{Text|CLOSE|#F0F0F0}} closeall: {{Text|NEXT|#F0F0F0}}
{{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"temp.bin"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|LOCK|#F0F0F0}} {{Text|WRITE|#F0F0F0}} {{Text|AS|#F0F0F0}} #26 {{Text|'relock|#31C4C4}}
compilelog$ = tmpdir$ + {{Text|"compilelog.txt"|#FFB100}}
{{Text|OPEN|#F0F0F0}} compilelog$ {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|AS|#F0F0F0}} #1: {{Text|CLOSE|#F0F0F0}} #1 {{Text|'Clear log|#31C4C4}}
{{Text|IF|#F0F0F0}} idemode = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|NOT|#F0F0F0}} QuietMode {{Text|THEN|#F0F0F0}}
    {{Text|IF|#F0F0F0}} ConsoleMode {{Text|THEN|#F0F0F0}}
        {{Text|PRINT|#F0F0F0}} {{Text|"["|#FFB100}} + {{Text|STRING$|#F0F0F0}}(maxprogresswidth, {{Text|"."|#FFB100}}) + {{Text|"] 100%"|#FFB100}}
    {{Text|ELSE|#F0F0F0}}
        {{Text|LOCATE|#F0F0F0}} , {{Text|1|#F580B1}}
        {{Text|PRINT|#F0F0F0}} {{Text|STRING$|#F0F0F0}}(maxprogresswidth, {{Text|219|#F580B1}}) + {{Text|" 100%"|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} IgnoreWarnings {{Text|THEN|#F0F0F0}}
    totalUnusedVariables = {{Text|0|#F580B1}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} totalVariablesCreated
        {{Text|IF|#F0F0F0}} usedVariableList(i).used = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            totalUnusedVariables = totalUnusedVariables + {{Text|1|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|IF|#F0F0F0}} totalUnusedVariables > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        maxVarNameLen = {{Text|0|#F580B1}}
        {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} totalVariablesCreated
            {{Text|IF|#F0F0F0}} usedVariableList(i).used = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(usedVariableList(i).name) > maxVarNameLen {{Text|THEN|#F0F0F0}} maxVarNameLen = {{Text|LEN|#F0F0F0}}(usedVariableList(i).name)
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|NEXT|#F0F0F0}}
        header$ = {{Text|"unused variable"|#FFB100}} {{Text|'s (" + LTRIM$(STR$(totalUnusedVariables)) + ")"|#31C4C4}}
        {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} totalVariablesCreated
            {{Text|IF|#F0F0F0}} usedVariableList(i).used = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                addWarning usedVariableList(i).linenumber, usedVariableList(i).includeLevel, usedVariableList(i).includedLine, usedVariableList(i).includedFile, header$, usedVariableList(i).name + {{Text|SPACE$|#F0F0F0}}((maxVarNameLen + {{Text|1|#F580B1}}) - {{Text|LEN|#F0F0F0}}(usedVariableList(i).name)) + {{Text|"  "|#FFB100}} + usedVariableList(i).varType
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|NEXT|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} idemode {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} ideret5
ide6:
{{Text|IF|#F0F0F0}} idemode = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} No_C_Compile_Mode = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} QuietMode {{Text|THEN|#F0F0F0}}
        {{Text|PRINT|#F0F0F0}}
        {{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|PRINT|#F0F0F0}} {{Text|"Compiling C++ code into executable..."|#FFB100}}
        {{Text|ELSE|#F0F0F0}}
            {{Text|PRINT|#F0F0F0}} {{Text|"Compiling C++ code into EXE..."|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|' Fixup the output path if either we got an `-o` argument, or we're relative to `_StartDir$`|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(outputfile_cmd$) {{Text|OR|#F0F0F0}} OutputIsRelativeToStartDir {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(outputfile_cmd$) {{Text|THEN|#F0F0F0}}
            {{Text|'resolve relative path for output file|#31C4C4}}
            path.out$ = getfilepath$(outputfile_cmd$)
            f$ = {{Text|MID$|#F0F0F0}}(outputfile_cmd$, {{Text|LEN|#F0F0F0}}(path.out$) + {{Text|1|#F580B1}})
            {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(GetFileExtension$(f$)) = {{Text|"EXE"|#FFB100}} {{Text|THEN|#F0F0F0}}
                file$ = RemoveFileExtension$(f$)
            {{Text|ELSE|#F0F0F0}}
                file$ = f$
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(path.out$) {{Text|OR|#F0F0F0}} OutputIsRelativeToStartDir {{Text|THEN|#F0F0F0}}
            currentdir$ = {{Text|_CWD$|#F0F0F0}}
            {{Text|IF|#F0F0F0}} OutputIsRelativeToStartDir {{Text|THEN|#F0F0F0}}
                {{Text|' This CHDIR makes the next CHDIR relative to _STARTDIR$|#31C4C4}}
                {{Text|' We do this if the provided source file was also relative to _STARTDIR$|#31C4C4}}
                {{Text|CHDIR|#F0F0F0}} {{Text|_STARTDIR$|#F0F0F0}}
                {{Text|' If there was no provided path then that is the same as the|#31C4C4}}
                {{Text|' output file being directly in _STARTDIR$. Assigning it here|#31C4C4}}
                {{Text|' is perfectly fine and avoids failing the error check below|#31C4C4}}
                {{Text|' with a blank string.|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(path.out$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    path.out$ = {{Text|_STARTDIR$|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|_DIREXISTS|#F0F0F0}}(path.out$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|PRINT|#F0F0F0}}
                {{Text|PRINT|#F0F0F0}} {{Text|"Can't create output executable - path not found: "|#FFB100}} + path.out$
                {{Text|IF|#F0F0F0}} ConsoleMode {{Text|THEN|#F0F0F0}} {{Text|SYSTEM|#F0F0F0}} {{Text|1|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|1|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|CHDIR|#F0F0F0}} path.out$
            path.out$ = {{Text|_CWD$|#F0F0F0}}
            {{Text|CHDIR|#F0F0F0}} currentdir$
            {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(path.out$, {{Text|1|#F580B1}}) <> pathsep$ {{Text|THEN|#F0F0F0}} path.out$ = path.out$ + pathsep$
            path.exe$ = path.out$
            SaveExeWithSource = {{Text|-1|#F580B1}} {{Text|'Override the global setting if an output file was specified|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    t.path.exe$ = path.exe$
    {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(path.exe$ + file$ + extension$) {{Text|THEN|#F0F0F0}}
        E = {{Text|0|#F580B1}}
        {{Text|ON|#F0F0F0}} {{Text|ERROR|#F0F0F0}} {{Text|GOTO|#F0F0F0}} qberror_test
        {{Text|KILL|#F0F0F0}} path.exe$ + file$ + extension$
        {{Text|ON|#F0F0F0}} {{Text|ERROR|#F0F0F0}} {{Text|GOTO|#F0F0F0}} qberror
        {{Text|IF|#F0F0F0}} E = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            a$ = {{Text|"CANNOT CREATE "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + file$ + extension$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|" BECAUSE THE FILE IS ALREADY IN USE!"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    path.exe$ = t.path.exe$
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} ExeIconSet {{Text|THEN|#F0F0F0}}
    linenumber = ExeIconSet {{Text|'on error, this allows reporting the linenumber where $EXEICON was used|#31C4C4}}
    wholeline = {{Text|" $EXEICON:'"|#FFB100}} + ExeIconFile$ + {{Text|"'"|#FFB100}}
    {{Text|' Copy icon file into temp directory with known name|#31C4C4}}
    {{Text|' This solves the problem of the resource file needing an absolute path|#31C4C4}}
    {{Text|ON|#F0F0F0}} {{Text|ERROR|#F0F0F0}} {{Text|GOTO|#F0F0F0}} qberror_test
    {{Text|DIM|#F0F0F0}} errNo {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    errNo = CopyFile&(ExeIconFile$, tmpdir$ + {{Text|"icon.ico"|#FFB100}})
    {{Text|IF|#F0F0F0}} errNo <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Error copying "|#FFB100}} + QuotedFilename$(ExeIconFile$) + {{Text|" to temp directory"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
    {{Text|ON|#F0F0F0}} {{Text|ERROR|#F0F0F0}} {{Text|GOTO|#F0F0F0}} qberror
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} VersionInfoSet {{Text|THEN|#F0F0F0}}
    ManiBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + file$ + extension$ + {{Text|".manifest"|#FFB100}})
    WriteBufLine ManiBuf, {{Text|"<?xml version="|#FFB100}} + AddQuotes$({{Text|"1.0"|#FFB100}}) + {{Text|" encoding="|#FFB100}} + AddQuotes$({{Text|"UTF-8"|#FFB100}}) + {{Text|" standalone="|#FFB100}} + AddQuotes$({{Text|"yes"|#FFB100}}) + {{Text|"?>"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"<assembly xmlns="|#FFB100}} + AddQuotes$({{Text|"urn:schemas-microsoft-com:asm.v1"|#FFB100}}) + {{Text|" manifestVersion="|#FFB100}} + AddQuotes$({{Text|"1.0"|#FFB100}}) + {{Text|">"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"<assemblyIdentity"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"    version="|#FFB100}} + AddQuotes$({{Text|"1.0.0.0"|#FFB100}})
    WriteBufLine ManiBuf, {{Text|"    processorArchitecture="|#FFB100}} + AddQuotes$({{Text|"*"|#FFB100}})
    WriteBufLine ManiBuf, {{Text|"    name="|#FFB100}} + AddQuotes$(viCompanyName$ + {{Text|"."|#FFB100}} + viProductName$ + {{Text|"."|#FFB100}} + viProductName$)
    WriteBufLine ManiBuf, {{Text|"    type="|#FFB100}} + AddQuotes$({{Text|"win32"|#FFB100}})
    WriteBufLine ManiBuf, {{Text|"/>"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"<description>"|#FFB100}} + viFileDescription$ + {{Text|"</description>"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"<dependency>"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"    <dependentAssembly>"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"        <assemblyIdentity"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"            type="|#FFB100}} + AddQuotes$({{Text|"win32"|#FFB100}})
    WriteBufLine ManiBuf, {{Text|"            name="|#FFB100}} + AddQuotes$({{Text|"Microsoft.Windows.Common-Controls"|#FFB100}})
    WriteBufLine ManiBuf, {{Text|"            version="|#FFB100}} + AddQuotes$({{Text|"6.0.0.0"|#FFB100}})
    WriteBufLine ManiBuf, {{Text|"            processorArchitecture="|#FFB100}} + AddQuotes$({{Text|"*"|#FFB100}})
    WriteBufLine ManiBuf, {{Text|"            publicKeyToken="|#FFB100}} + AddQuotes$({{Text|"6595b64144ccf1df"|#FFB100}})
    WriteBufLine ManiBuf, {{Text|"            language="|#FFB100}} + AddQuotes$({{Text|"*"|#FFB100}})
    WriteBufLine ManiBuf, {{Text|"        />"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"    </dependentAssembly>"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"</dependency>"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"</assembly>"|#FFB100}}
    ManiBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"manifest.h"|#FFB100}})
    WriteBufLine ManiBuf, {{Text|"#ifndef RESOURCE_H"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"#define  RESOURCE_H"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"#ifdef    __cplusplus"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"extern "|#FFB100}} + AddQuotes$({{Text|"C"|#FFB100}}) + {{Text|" {"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"#endif"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"#ifdef    __cplusplus"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"}"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"#endif"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"#endif    /* RESOURCE_H */"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1 /*Defined manifest file*/"|#FFB100}}
    WriteBufLine ManiBuf, {{Text|"#define RT_MANIFEST                      24"|#FFB100}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} VersionInfoSet {{Text|OR|#F0F0F0}} ExeIconSet {{Text|THEN|#F0F0F0}}
    IconRcBuf = OpenBuffer%({{Text|"O"|#FFB100}}, tmpdir$ + {{Text|"icon.rc"|#FFB100}})
    {{Text|IF|#F0F0F0}} ExeIconSet {{Text|THEN|#F0F0F0}}
        WriteBufLine IconRcBuf, {{Text|"0 ICON "|#FFB100}} + AddQuotes$({{Text|"icon.ico"|#FFB100}})
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} VersionInfoSet {{Text|THEN|#F0F0F0}}
        WriteBufLine IconRcBuf, {{Text|""|#FFB100}}
        WriteBufLine IconRcBuf, {{Text|"#include "|#FFB100}} + AddQuotes$({{Text|"manifest.h"|#FFB100}})
        WriteBufLine IconRcBuf, {{Text|""|#FFB100}}
        WriteBufLine IconRcBuf, {{Text|"CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST "|#FFB100}} + AddQuotes$(file$ + extension$ + {{Text|".manifest"|#FFB100}})
        WriteBufLine IconRcBuf, {{Text|""|#FFB100}}
        WriteBufLine IconRcBuf, {{Text|"1 VERSIONINFO"|#FFB100}}
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(viFileVersionNum$) {{Text|THEN|#F0F0F0}} WriteBufLine IconRcBuf, {{Text|"FILEVERSION    "|#FFB100}} + viFileVersionNum$
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(viProductVersionNum$) {{Text|THEN|#F0F0F0}} WriteBufLine IconRcBuf, {{Text|"PRODUCTVERSION  "|#FFB100}} + viProductVersionNum$
        WriteBufLine IconRcBuf, {{Text|"BEGIN"|#FFB100}}
        WriteBufLine IconRcBuf, {{Text|"    BLOCK "|#FFB100}} + AddQuotes$({{Text|"StringFileInfo"|#FFB100}})
        WriteBufLine IconRcBuf, {{Text|"    BEGIN"|#FFB100}}
        WriteBufLine IconRcBuf, {{Text|"        BLOCK "|#FFB100}} + AddQuotes$({{Text|"040904E4"|#FFB100}})
        WriteBufLine IconRcBuf, {{Text|"        BEGIN"|#FFB100}}
        WriteBufLine IconRcBuf, {{Text|"            VALUE "|#FFB100}} + AddQuotes$({{Text|"CompanyName"|#FFB100}}) + {{Text|","|#FFB100}} + AddQuotes$(viCompanyName$ + {{Text|"\0"|#FFB100}})
        WriteBufLine IconRcBuf, {{Text|"            VALUE "|#FFB100}} + AddQuotes$({{Text|"FileDescription"|#FFB100}}) + {{Text|","|#FFB100}} + AddQuotes$(viFileDescription$ + {{Text|"\0"|#FFB100}})
        WriteBufLine IconRcBuf, {{Text|"            VALUE "|#FFB100}} + AddQuotes$({{Text|"FileVersion"|#FFB100}}) + {{Text|","|#FFB100}} + AddQuotes$(viFileVersion$ + {{Text|"\0"|#FFB100}})
        WriteBufLine IconRcBuf, {{Text|"            VALUE "|#FFB100}} + AddQuotes$({{Text|"InternalName"|#FFB100}}) + {{Text|","|#FFB100}} + AddQuotes$(viInternalName$ + {{Text|"\0"|#FFB100}})
        WriteBufLine IconRcBuf, {{Text|"            VALUE "|#FFB100}} + AddQuotes$({{Text|"LegalCopyright"|#FFB100}}) + {{Text|","|#FFB100}} + AddQuotes$(viLegalCopyright$ + {{Text|"\0"|#FFB100}})
        WriteBufLine IconRcBuf, {{Text|"            VALUE "|#FFB100}} + AddQuotes$({{Text|"LegalTrademarks"|#FFB100}}) + {{Text|","|#FFB100}} + AddQuotes$(viLegalTrademarks$ + {{Text|"\0"|#FFB100}})
        WriteBufLine IconRcBuf, {{Text|"            VALUE "|#FFB100}} + AddQuotes$({{Text|"OriginalFilename"|#FFB100}}) + {{Text|","|#FFB100}} + AddQuotes$(viOriginalFilename$ + {{Text|"\0"|#FFB100}})
        WriteBufLine IconRcBuf, {{Text|"            VALUE "|#FFB100}} + AddQuotes$({{Text|"ProductName"|#FFB100}}) + {{Text|","|#FFB100}} + AddQuotes$(viProductName$ + {{Text|"\0"|#FFB100}})
        WriteBufLine IconRcBuf, {{Text|"            VALUE "|#FFB100}} + AddQuotes$({{Text|"ProductVersion"|#FFB100}}) + {{Text|","|#FFB100}} + AddQuotes$(viProductVersion$ + {{Text|"\0"|#FFB100}})
        WriteBufLine IconRcBuf, {{Text|"            VALUE "|#FFB100}} + AddQuotes$({{Text|"Comments"|#FFB100}}) + {{Text|","|#FFB100}} + AddQuotes$(viComments$ + {{Text|"\0"|#FFB100}})
        WriteBufLine IconRcBuf, {{Text|"            VALUE "|#FFB100}} + AddQuotes$({{Text|"Web"|#FFB100}}) + {{Text|","|#FFB100}} + AddQuotes$(viWeb$ + {{Text|"\0"|#FFB100}})
        WriteBufLine IconRcBuf, {{Text|"        END"|#FFB100}}
        WriteBufLine IconRcBuf, {{Text|"    END"|#FFB100}}
        WriteBufLine IconRcBuf, {{Text|"    BLOCK "|#FFB100}} + AddQuotes$({{Text|"VarFileInfo"|#FFB100}})
        WriteBufLine IconRcBuf, {{Text|"    BEGIN"|#FFB100}}
        WriteBufLine IconRcBuf, {{Text|"            VALUE "|#FFB100}} + AddQuotes$({{Text|"Translation"|#FFB100}}) + {{Text|", 0x409, 0x04E4"|#FFB100}}
        WriteBufLine IconRcBuf, {{Text|"    END"|#FFB100}}
        WriteBufLine IconRcBuf, {{Text|"END"|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|'Write out all buffered files, all remaining|#31C4C4}}
{{Text|'actions are performed on the disk based files|#31C4C4}}
WriteBuffers {{Text|""|#FFB100}}
{{Text|IF|#F0F0F0}} MidiSoundFontSet {{Text|THEN|#F0F0F0}}
    linenumber = MidiSoundFontSet
    wholeline = MidiSoundFontLine$
    {{Text|IF|#F0F0F0}} MidiSoundFont$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
        MidiSoundFont$ = {{Text|"internal/support/default_soundfont.sf2"|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|ON|#F0F0F0}} {{Text|ERROR|#F0F0F0}} {{Text|GOTO|#F0F0F0}} qberror_test
    errNo = CopyFile&(MidiSoundFont$, tmpdir$ + {{Text|"soundfont.sf2"|#FFB100}})
    {{Text|IF|#F0F0F0}} errNo <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Error copying "|#FFB100}} + QuotedFilename$(MidiSoundFont$) + {{Text|" to temp directory"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
    {{Text|ON|#F0F0F0}} {{Text|ERROR|#F0F0F0}} {{Text|GOTO|#F0F0F0}} qberror
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|'Update dependencies|#31C4C4}}
o$ = {{Text|LCASE$|#F0F0F0}}(os$)
win = {{Text|0|#F580B1}}: {{Text|IF|#F0F0F0}} os$ = {{Text|"WIN"|#FFB100}} {{Text|THEN|#F0F0F0}} win = {{Text|1|#F580B1}}
lnx = {{Text|0|#F580B1}}: {{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}} lnx = {{Text|1|#F580B1}}
mac = {{Text|0|#F580B1}}: {{Text|IF|#F0F0F0}} MacOSX {{Text|THEN|#F0F0F0}} mac = {{Text|1|#F580B1}}: o$ = {{Text|"osx"|#FFB100}}
ver$ = Version$ {{Text|'eg. "0.123"|#31C4C4}}
libs$ = {{Text|""|#FFB100}}
makedeps$ = {{Text|""|#FFB100}}
make$ = GetMakeExecutable$
localpath$ = {{Text|"internal\c\"|#FFB100}}
{{Text|IF|#F0F0F0}} DEPENDENCY(DEPENDENCY_GL) {{Text|THEN|#F0F0F0}} makedeps$ = makedeps$ + {{Text|" DEP_GL=y"|#FFB100}}
{{Text|IF|#F0F0F0}} DEPENDENCY(DEPENDENCY_SCREENIMAGE) {{Text|THEN|#F0F0F0}} makedeps$ = makedeps$ + {{Text|" DEP_SCREENIMAGE=y"|#FFB100}}
{{Text|IF|#F0F0F0}} DEPENDENCY(DEPENDENCY_IMAGE_CODEC) {{Text|THEN|#F0F0F0}} makedeps$ = makedeps$ + {{Text|" DEP_IMAGE_CODEC=y"|#FFB100}}
{{Text|IF|#F0F0F0}} DEPENDENCY(DEPENDENCY_CONSOLE_ONLY) {{Text|THEN|#F0F0F0}} makedeps$ = makedeps$ + {{Text|" DEP_CONSOLE_ONLY=y"|#FFB100}}
{{Text|IF|#F0F0F0}} DEPENDENCY(DEPENDENCY_SOCKETS) {{Text|THEN|#F0F0F0}} makedeps$ = makedeps$ + {{Text|" DEP_SOCKETS=y"|#FFB100}}
{{Text|IF|#F0F0F0}} DEPENDENCY(DEPENDENCY_PRINTER) {{Text|THEN|#F0F0F0}} makedeps$ = makedeps$ + {{Text|" DEP_PRINTER=y"|#FFB100}}
{{Text|IF|#F0F0F0}} DEPENDENCY(DEPENDENCY_ICON) {{Text|THEN|#F0F0F0}} makedeps$ = makedeps$ + {{Text|" DEP_ICON=y"|#FFB100}}
{{Text|IF|#F0F0F0}} DEPENDENCY(DEPENDENCY_SCREENIMAGE) {{Text|THEN|#F0F0F0}} makedeps$ = makedeps$ + {{Text|" DEP_SCREENIMAGE=y"|#FFB100}}
{{Text|IF|#F0F0F0}} DEPENDENCY(DEPENDENCY_LOADFONT) {{Text|THEN|#F0F0F0}} makedeps$ = makedeps$ + {{Text|" DEP_FONT=y"|#FFB100}}
{{Text|IF|#F0F0F0}} DEPENDENCY(DEPENDENCY_DEVICEINPUT) {{Text|THEN|#F0F0F0}} makedeps$ = makedeps$ + {{Text|" DEP_DEVICEINPUT=y"|#FFB100}}
{{Text|IF|#F0F0F0}} DEPENDENCY(DEPENDENCY_ZLIB) {{Text|THEN|#F0F0F0}} makedeps$ = makedeps$ + {{Text|" DEP_ZLIB=y"|#FFB100}}
{{Text|IF|#F0F0F0}} inline_DATA = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} DataOffset {{Text|THEN|#F0F0F0}} makedeps$ = makedeps$ + {{Text|" DEP_DATA=y"|#FFB100}}
{{Text|IF|#F0F0F0}}{{Text|_Console|#F0F0F0}} {{Text|THEN|#F0F0F0}} makedeps$ = makedeps$ + {{Text|" DEP_CONSOLE=y"|#FFB100}}
{{Text|IF|#F0F0F0}} ExeIconSet {{Text|OR|#F0F0F0}} VersionInfoSet {{Text|THEN|#F0F0F0}} makedeps$ = makedeps$ + {{Text|" DEP_ICON_RC=y"|#FFB100}}
{{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} UseMiniaudioBackend {{Text|THEN|#F0F0F0}}
    {{Text|IF|#F0F0F0}} DEPENDENCY(DEPENDENCY_AUDIO_DECODE) {{Text|THEN|#F0F0F0}} makedeps$ = makedeps$ + {{Text|" DEP_AUDIO_DECODE=y"|#FFB100}}
    {{Text|IF|#F0F0F0}} DEPENDENCY(DEPENDENCY_AUDIO_CONVERSION) {{Text|THEN|#F0F0F0}} makedeps$ = makedeps$ + {{Text|" DEP_AUDIO_CONVERSION=y"|#FFB100}}
    {{Text|IF|#F0F0F0}} DEPENDENCY(DEPENDENCY_AUDIO_OUT) {{Text|THEN|#F0F0F0}} makedeps$ = makedeps$ + {{Text|" DEP_AUDIO_OUT=y"|#FFB100}}
{{Text|ELSE|#F0F0F0}}
    {{Text|IF|#F0F0F0}} DEPENDENCY(DEPENDENCY_AUDIO_DECODE) {{Text|OR|#F0F0F0}} DEPENDENCY(DEPENDENCY_AUDIO_CONVERSION) {{Text|OR|#F0F0F0}} DEPENDENCY(DEPENDENCY_AUDIO_OUT) {{Text|THEN|#F0F0F0}}
        makedeps$ = makedeps$ + {{Text|" DEP_AUDIO_MINIAUDIO=y"|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} unstableFlags(UNSTABLE_HTTP) {{Text|AND|#F0F0F0}} DEPENDENCY(DEPENDENCY_SOCKETS) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
    makedeps$ = makedeps$ + {{Text|" DEP_HTTP=y"|#FFB100}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} MidiSoundFontSet {{Text|THEN|#F0F0F0}} makedeps$ = makedeps$ + {{Text|" DEP_AUDIO_DECODE_MIDI=y"|#FFB100}}
{{Text|IF|#F0F0F0}} tempfolderindex > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} makedeps$ = makedeps$ + {{Text|" TEMP_ID="|#FFB100}} + str2$(tempfolderindex)
CxxFlagsExtra$ = ExtraCppFlags
CxxLibsExtra$ = ExtraLinkerFlags
{{Text|' If debugging then use `-Og` rather than `-O2`|#31C4C4}}
{{Text|IF|#F0F0F0}} OptimizeCppProgram {{Text|THEN|#F0F0F0}}
    {{Text|IF|#F0F0F0}} Include_GDB_Debugging_Info {{Text|THEN|#F0F0F0}}
        CxxFlagsExtra$ = CxxFlagsExtra$ + {{Text|" -Og"|#FFB100}}
    {{Text|ELSE|#F0F0F0}}
        CxxFlagsExtra$ = CxxFlagsExtra$ + {{Text|" -O2"|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|ELSE|#F0F0F0}}
    {{Text|IF|#F0F0F0}} Include_GDB_Debugging_Info {{Text|THEN|#F0F0F0}}
        CxxFlagsExtra$ = CxxFlagsExtra$ + {{Text|" -g"|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
CxxLibsExtra$ = CxxLibsExtra$ + {{Text|" "|#FFB100}} + mylib$ + {{Text|" "|#FFB100}} + mylibopt$
{{Text|' Make and the shell don't like certain characters in the file name, so we|#31C4C4}}
{{Text|' escape them to get them to handle them properly|#31C4C4}}
escapedExe$ = StrReplace$(path.exe$ + file$ + extension$, {{Text|" "|#FFB100}}, {{Text|"\ "|#FFB100}})
escapedExe$ = StrReplace$(escapedExe$, {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}), {{Text|"\"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}))
escapedExe$ = StrReplace$(escapedExe$, {{Text|"$"|#FFB100}}, {{Text|"$$"|#FFB100}})
makeline$ = make$ + makedeps$ + {{Text|" EXE="|#FFB100}} + AddQuotes$(escapedExe$)
makeline$ = makeline$ + {{Text|" "|#FFB100}} + AddQuotes$({{Text|"CXXFLAGS_EXTRA="|#FFB100}} + CxxFlagsExtra$)
makeline$ = makeline$ + {{Text|" "|#FFB100}} + AddQuotes$({{Text|"CFLAGS_EXTRA="|#FFB100}} + CxxFlagsExtra$)
makeline$ = makeline$ + {{Text|" "|#FFB100}} + AddQuotes$({{Text|"CXXLIBS_EXTRA="|#FFB100}} + CxxLibsExtra$)
makeline$ = makeline$ + {{Text|" -j"|#FFB100}} + AddQuotes$(str2$(MaxParallelProcesses))
{{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} StripDebugSymbols {{Text|THEN|#F0F0F0}}
    makeline$ = makeline$ + {{Text|" STRIP_SYMBOLS=n"|#FFB100}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|' We avoid generating the license file if the user picked the "No Exe" option|#31C4C4}}
{{Text|IF|#F0F0F0}} GenerateLicenseFile {{Text|AND|#F0F0F0}} {{Text|NOT|#F0F0F0}} NoExeSaved {{Text|THEN|#F0F0F0}}
    makeline$ = makeline$ + {{Text|" GENERATE_LICENSE=y"|#FFB100}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|'Clear nm output from previous runs|#31C4C4}}
{{Text|FOR|#F0F0F0}} x = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} ResolveStaticFunctions
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(ResolveStaticFunction_File(x)) {{Text|THEN|#F0F0F0}}
        s$ = MakeNMOutputFilename$(ResolveStaticFunction_File(x), {{Text|0|#F580B1}})
        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(s$) {{Text|THEN|#F0F0F0}} {{Text|KILL|#F0F0F0}} s$: ClearBuffers s$
        s$ = MakeNMOutputFilename$(ResolveStaticFunction_File(x), {{Text|1|#F580B1}})
        {{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(s$) {{Text|THEN|#F0F0F0}} {{Text|KILL|#F0F0F0}} s$: ClearBuffers s$
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|NEXT|#F0F0F0}} x
{{Text|' Delete existing qbx.o file, it ensures that it always gets rebuilt|#31C4C4}}
{{Text|ON|#F0F0F0}} {{Text|ERROR|#F0F0F0}} {{Text|GOTO|#F0F0F0}} qberror_test
{{Text|IF|#F0F0F0}} tempfolderindex > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
    {{Text|KILL|#F0F0F0}} {{Text|"internal/c/qbx"|#FFB100}} + str2$(tempfolderindex) + {{Text|".o"|#FFB100}}
{{Text|ELSE|#F0F0F0}}
    {{Text|KILL|#F0F0F0}} {{Text|"internal/c/qbx.o"|#FFB100}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|ON|#F0F0F0}} {{Text|ERROR|#F0F0F0}} {{Text|GOTO|#F0F0F0}} qberror
{{Text|IF|#F0F0F0}} os$ = {{Text|"WIN"|#FFB100}} {{Text|THEN|#F0F0F0}}
    makeline$ = makeline$ + {{Text|" OS=win"|#FFB100}}
    {{Text|'resolve static function definitions and add to global.txt|#31C4C4}}
    {{Text|FOR|#F0F0F0}} x = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} ResolveStaticFunctions
        nm_output_file$ = MakeNMOutputFilename$(ResolveStaticFunction_File(x), {{Text|0|#F580B1}})
        nm_output_file_dynamic$ = MakeNMOutputFilename$(ResolveStaticFunction_File(x), {{Text|1|#F580B1}})
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(ResolveStaticFunction_File(x)) {{Text|THEN|#F0F0F0}}
            n = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(nm_output_file$) {{Text|THEN|#F0F0F0}}
                {{Text|SHELL|#F0F0F0}} {{Text|_HIDE|#F0F0F0}} {{Text|"cmd /c internal\c\c_compiler\bin\nm.exe "|#FFB100}} + AddQuotes$(ResolveStaticFunction_File(x)) + {{Text|" --demangle -g >"|#FFB100}} + AddQuotes$(nm_output_file$)
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            s$ = {{Text|" "|#FFB100}} + ResolveStaticFunction_Name(x) + {{Text|"("|#FFB100}}
            fh = OpenBuffer%({{Text|"I"|#FFB100}}, nm_output_file$)
            {{Text|DO|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} EndOfBuf%(fh)
                a$ = ReadBufLine$(fh)
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(a$) {{Text|THEN|#F0F0F0}}
                    {{Text|'search for SPACE+functionname+LEFTBRACKET|#31C4C4}}
                    x1 = {{Text|INSTR|#F0F0F0}}(a$, s$)
                    {{Text|IF|#F0F0F0}} x1 {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} ResolveStaticFunction_Method(x) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                            x1 = x1 + {{Text|1|#F580B1}}
                            x2 = {{Text|INSTR|#F0F0F0}}(x1, a$, {{Text|")"|#FFB100}})
                            fh2 = {{Text|FREEFILE|#F0F0F0}}
                            {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"global.txt"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|APPEND|#F0F0F0}} {{Text|AS|#F0F0F0}} #fh2
                            {{Text|PRINT|#F0F0F0}} #fh2, {{Text|"extern void "|#FFB100}} + {{Text|MID$|#F0F0F0}}(a$, x1, x2 - x1 + {{Text|1|#F580B1}}) + {{Text|";"|#FFB100}}
                            {{Text|CLOSE|#F0F0F0}} #fh2
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        n = n + {{Text|1|#F580B1}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'x1|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'<>""|#31C4C4}}
            {{Text|LOOP|#F0F0F0}}
            {{Text|IF|#F0F0F0}} n > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Unable to resolve multiple instances of sub/function '"|#FFB100}} + ResolveStaticFunction_Name(x) + {{Text|"' in '"|#FFB100}} + ResolveStaticFunction_File(x) + {{Text|"'"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|IF|#F0F0F0}} n = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'attempt to locate simple function name without brackets|#31C4C4}}
                s$ = {{Text|" "|#FFB100}} + ResolveStaticFunction_Name(x)
                fh = OpenBuffer%({{Text|"I"|#FFB100}}, nm_output_file$)
                {{Text|DO|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} EndOfBuf%(fh)
                    a$ = ReadBufLine$(fh)
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(a$) {{Text|THEN|#F0F0F0}}
                        {{Text|'search for SPACE+functionname|#31C4C4}}
                        x1 = {{Text|INSTR|#F0F0F0}}(a$, s$)
                        {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(s$)) = s$ {{Text|THEN|#F0F0F0}}
                            fh2 = {{Text|FREEFILE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} ResolveStaticFunction_Method(x) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"global.txt"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|APPEND|#F0F0F0}} {{Text|AS|#F0F0F0}} #fh2
                                {{Text|PRINT|#F0F0F0}} #fh2, {{Text|"extern "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"C"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"{"|#FFB100}}
                                {{Text|PRINT|#F0F0F0}} #fh2, {{Text|"extern void "|#FFB100}} + s$ + {{Text|"(void);"|#FFB100}}
                                {{Text|PRINT|#F0F0F0}} #fh2, {{Text|"}"|#FFB100}}
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"externtype"|#FFB100}} + str2(x) + {{Text|".txt"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|AS|#F0F0F0}} #fh2
                                {{Text|PRINT|#F0F0F0}} #fh2, {{Text|"extern "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"C"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|" "|#FFB100}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|CLOSE|#F0F0F0}} #fh2
                            n = n + {{Text|1|#F580B1}}
                            {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'x1|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'<>""|#31C4C4}}
                {{Text|LOOP|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} n = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'a C++ dynamic object library?|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(nm_output_file_dynamic$) {{Text|THEN|#F0F0F0}}
                    {{Text|SHELL|#F0F0F0}} {{Text|_HIDE|#F0F0F0}} {{Text|"cmd /c internal\c\c_compiler\bin\nm.exe "|#FFB100}} + AddQuotes$(ResolveStaticFunction_File(x)) + {{Text|" -D --demangle -g >"|#FFB100}} + AddQuotes$(nm_output_file_dynamic$)
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                s$ = {{Text|" "|#FFB100}} + ResolveStaticFunction_Name(x) + {{Text|"("|#FFB100}}
                fh = OpenBuffer%({{Text|"I"|#FFB100}}, nm_output_file$)
                {{Text|DO|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} EndOfBuf%(fh)
                    a$ = ReadBufLine$(fh)
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(a$) {{Text|THEN|#F0F0F0}}
                        {{Text|'search for SPACE+functionname+LEFTBRACKET|#31C4C4}}
                        x1 = {{Text|INSTR|#F0F0F0}}(a$, s$)
                        {{Text|IF|#F0F0F0}} x1 {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} ResolveStaticFunction_Method(x) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                x1 = x1 + {{Text|1|#F580B1}}
                                x2 = {{Text|INSTR|#F0F0F0}}(x1, a$, {{Text|")"|#FFB100}})
                                fh2 = {{Text|FREEFILE|#F0F0F0}}
                                {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"global.txt"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|APPEND|#F0F0F0}} {{Text|AS|#F0F0F0}} #fh2
                                {{Text|PRINT|#F0F0F0}} #fh2, {{Text|"extern void "|#FFB100}} + {{Text|MID$|#F0F0F0}}(a$, x1, x2 - x1 + {{Text|1|#F580B1}}) + {{Text|";"|#FFB100}}
                                {{Text|CLOSE|#F0F0F0}} #fh2
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            n = n + {{Text|1|#F580B1}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'x1|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'<>""|#31C4C4}}
                {{Text|LOOP|#F0F0F0}}
                {{Text|IF|#F0F0F0}} n > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Unable to resolve multiple instances of sub/function '"|#FFB100}} + ResolveStaticFunction_Name(x) + {{Text|"' in '"|#FFB100}} + ResolveStaticFunction_File(x) + {{Text|"'"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} n = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'a C dynamic object library?|#31C4C4}}
                s$ = {{Text|" "|#FFB100}} + ResolveStaticFunction_Name(x)
                fh = OpenBuffer%({{Text|"I"|#FFB100}}, nm_output_file_dynamic$)
                {{Text|DO|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} EndOfBuf%(fh)
                    a$ = ReadBufLine$(fh)
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(a$) {{Text|THEN|#F0F0F0}}
                        {{Text|'search for SPACE+functionname|#31C4C4}}
                        x1 = {{Text|INSTR|#F0F0F0}}(a$, s$)
                        {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(s$)) = s$ {{Text|THEN|#F0F0F0}}
                            fh2 = {{Text|FREEFILE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} ResolveStaticFunction_Method(x) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"global.txt"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|APPEND|#F0F0F0}} {{Text|AS|#F0F0F0}} #fh2
                                {{Text|PRINT|#F0F0F0}} #fh2, {{Text|"extern "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"C"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"{"|#FFB100}}
                                {{Text|PRINT|#F0F0F0}} #fh2, {{Text|"extern void "|#FFB100}} + s$ + {{Text|"(void);"|#FFB100}}
                                {{Text|PRINT|#F0F0F0}} #fh2, {{Text|"}"|#FFB100}}
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"externtype"|#FFB100}} + str2(x) + {{Text|".txt"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|AS|#F0F0F0}} #fh2
                                {{Text|PRINT|#F0F0F0}} #fh2, {{Text|"extern "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"C"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|" "|#FFB100}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|CLOSE|#F0F0F0}} #fh2
                            n = n + {{Text|1|#F580B1}}
                            {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'x1|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'<>""|#31C4C4}}
                {{Text|LOOP|#F0F0F0}}
                {{Text|IF|#F0F0F0}} n = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Could not find sub/function '"|#FFB100}} + ResolveStaticFunction_Name(x) + {{Text|"' in '"|#FFB100}} + ResolveStaticFunction_File(x) + {{Text|"'"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|IF|#F0F0F0}} No_C_Compile_Mode = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|SHELL|#F0F0F0}} {{Text|_HIDE|#F0F0F0}} {{Text|"cmd /c "|#FFB100}} + makeline$ + {{Text|" 1>> "|#FFB100}} + compilelog$ + {{Text|" 2>&1"|#FFB100}}
        {{Text|IF|#F0F0F0}} idemode {{Text|THEN|#F0F0F0}}
            {{Text|'Restore fg/bg colors|#31C4C4}}
            dummy = DarkenFGBG({{Text|0|#F580B1}})
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    ffh = {{Text|FREEFILE|#F0F0F0}}
    {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"debug_win.bat"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|AS|#F0F0F0}} #ffh
    {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"@echo off"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"cd %0\..\"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"cd ../.."|#FFB100}}
    {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"echo C++ Debugging: "|#FFB100}} + file$ + extension$ + {{Text|" using gdb.exe"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"echo Debugger commands:"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"echo After the debugger launches type 'run' to start your program"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"echo After your program crashes type 'list' to find where the problem is and fix/report it"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"echo Type 'quit' to exit"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"echo (the GDB debugger has many other useful commands, this advice is for beginners)"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"pause"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"internal\c\c_compiler\bin\gdb.exe "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + path.exe$ + file$ + extension$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
    {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"pause"|#FFB100}}
    {{Text|CLOSE|#F0F0F0}} ffh
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}({{Text|_OS$|#F0F0F0}}, {{Text|"[MACOSX]"|#FFB100}}) {{Text|THEN|#F0F0F0}}
        makeline$ = makeline$ + {{Text|" OS=osx"|#FFB100}}
    {{Text|ELSE|#F0F0F0}}
        makeline$ = makeline$ + {{Text|" OS=lnx"|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|FOR|#F0F0F0}} x = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} ResolveStaticFunctions
        nm_output_file$ = MakeNMOutputFilename$(ResolveStaticFunction_File(x), {{Text|0|#F580B1}})
        nm_output_file_dynamic$ = MakeNMOutputFilename$(ResolveStaticFunction_File(x), {{Text|1|#F580B1}})
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(ResolveStaticFunction_File(x)) {{Text|THEN|#F0F0F0}}
            n = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(nm_output_file$) {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} MacOSX = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|SHELL|#F0F0F0}} {{Text|_HIDE|#F0F0F0}} {{Text|"nm "|#FFB100}} + AddQuotes$(ResolveStaticFunction_File(x)) + {{Text|" --demangle -g >"|#FFB100}} + AddQuotes$(nm_output_file$) + {{Text|" 2>"|#FFB100}} + AddQuotes$(tmpdir$ + {{Text|"nm_error.txt"|#FFB100}})
                {{Text|IF|#F0F0F0}} MacOSX {{Text|THEN|#F0F0F0}} {{Text|SHELL|#F0F0F0}} {{Text|_HIDE|#F0F0F0}} {{Text|"nm "|#FFB100}} + AddQuotes$(ResolveStaticFunction_File(x)) + {{Text|" >"|#FFB100}} + AddQuotes$(nm_output_file$) + {{Text|" 2>"|#FFB100}} + AddQuotes$(tmpdir$ + {{Text|"nm_error.txt"|#FFB100}})
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} MacOSX = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'C++ name demangling not supported in MacOSX|#31C4C4}}
                s$ = {{Text|" "|#FFB100}} + ResolveStaticFunction_Name(x) + {{Text|"("|#FFB100}}
                fh = OpenBuffer%({{Text|"I"|#FFB100}}, nm_output_file$)
                {{Text|DO|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} EndOfBuf%(fh)
                    a$ = ReadBufLine$(fh)
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(a$) {{Text|THEN|#F0F0F0}}
                        {{Text|'search for SPACE+functionname+LEFTBRACKET|#31C4C4}}
                        x1 = {{Text|INSTR|#F0F0F0}}(a$, s$)
                        {{Text|IF|#F0F0F0}} x1 {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} ResolveStaticFunction_Method(x) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                x1 = x1 + {{Text|1|#F580B1}}
                                x2 = {{Text|INSTR|#F0F0F0}}(x1, a$, {{Text|")"|#FFB100}})
                                fh2 = {{Text|FREEFILE|#F0F0F0}}
                                {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"global.txt"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|APPEND|#F0F0F0}} {{Text|AS|#F0F0F0}} #fh2
                                {{Text|PRINT|#F0F0F0}} #fh2, {{Text|"extern void "|#FFB100}} + {{Text|MID$|#F0F0F0}}(a$, x1, x2 - x1 + {{Text|1|#F580B1}}) + {{Text|";"|#FFB100}}
                                {{Text|CLOSE|#F0F0F0}} #fh2
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            n = n + {{Text|1|#F580B1}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'x1|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'<>""|#31C4C4}}
                {{Text|LOOP|#F0F0F0}}
                {{Text|IF|#F0F0F0}} n > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Unable to resolve multiple instances of sub/function '"|#FFB100}} + ResolveStaticFunction_Name(x) + {{Text|"' in '"|#FFB100}} + ResolveStaticFunction_File(x) + {{Text|"'"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'macosx=0|#31C4C4}}
            {{Text|IF|#F0F0F0}} n = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'attempt to locate simple function name without brackets|#31C4C4}}
                s$ = {{Text|" "|#FFB100}} + ResolveStaticFunction_Name(x): s2$ = s$
                {{Text|IF|#F0F0F0}} MacOSX {{Text|THEN|#F0F0F0}} s$ = {{Text|" _"|#FFB100}} + ResolveStaticFunction_Name(x) {{Text|'search for C mangled name|#31C4C4}}
                fh = OpenBuffer%({{Text|"I"|#FFB100}}, nm_output_file$)
                {{Text|DO|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} EndOfBuf%(fh)
                    a$ = ReadBufLine$(fh)
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(a$) {{Text|THEN|#F0F0F0}}
                        {{Text|'search for SPACE+functionname|#31C4C4}}
                        x1 = {{Text|INSTR|#F0F0F0}}(a$, s$)
                        {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(s$)) = s$ {{Text|THEN|#F0F0F0}}
                            fh2 = {{Text|FREEFILE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} ResolveStaticFunction_Method(x) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"global.txt"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|APPEND|#F0F0F0}} {{Text|AS|#F0F0F0}} #fh2
                                {{Text|PRINT|#F0F0F0}} #fh2, {{Text|"extern "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"C"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"{"|#FFB100}}
                                {{Text|PRINT|#F0F0F0}} #fh2, {{Text|"extern void "|#FFB100}} + s2$ + {{Text|"(void);"|#FFB100}}
                                {{Text|PRINT|#F0F0F0}} #fh2, {{Text|"}"|#FFB100}}
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"externtype"|#FFB100}} + str2(x) + {{Text|".txt"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|AS|#F0F0F0}} #fh2
                                {{Text|PRINT|#F0F0F0}} #fh2, {{Text|"extern "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"C"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|" "|#FFB100}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|CLOSE|#F0F0F0}} #fh2
                            n = n + {{Text|1|#F580B1}}
                            {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'x1|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'<>""|#31C4C4}}
                {{Text|LOOP|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} n = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'a C++ dynamic object library?|#31C4C4}}
                {{Text|IF|#F0F0F0}} MacOSX {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} macosx_libfind_failed
                {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(nm_output_file_dynamic$) {{Text|THEN|#F0F0F0}}
                    {{Text|SHELL|#F0F0F0}} {{Text|_HIDE|#F0F0F0}} {{Text|"nm "|#FFB100}} + AddQuotes$(ResolveStaticFunction_File(x)) + {{Text|" -D --demangle -g >"|#FFB100}} + AddQuotes$(nm_output_file_dynamic$) + {{Text|" 2>"|#FFB100}} + AddQuotes$(tmpdir$ + {{Text|"nm_error.txt"|#FFB100}})
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                s$ = {{Text|" "|#FFB100}} + ResolveStaticFunction_Name(x) + {{Text|"("|#FFB100}}
                fh = OpenBuffer%({{Text|"I"|#FFB100}}, nm_output_file$)
                {{Text|DO|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} EndOfBuf%(fh)
                    a$ = ReadBufLine$(fh)
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(a$) {{Text|THEN|#F0F0F0}}
                        {{Text|'search for SPACE+functionname+LEFTBRACKET|#31C4C4}}
                        x1 = {{Text|INSTR|#F0F0F0}}(a$, s$)
                        {{Text|IF|#F0F0F0}} x1 {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} ResolveStaticFunction_Method(x) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                x1 = x1 + {{Text|1|#F580B1}}
                                x2 = {{Text|INSTR|#F0F0F0}}(x1, a$, {{Text|")"|#FFB100}})
                                fh2 = {{Text|FREEFILE|#F0F0F0}}
                                {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"global.txt"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|APPEND|#F0F0F0}} {{Text|AS|#F0F0F0}} #fh2
                                {{Text|PRINT|#F0F0F0}} #fh2, {{Text|"extern void "|#FFB100}} + {{Text|MID$|#F0F0F0}}(a$, x1, x2 - x1 + {{Text|1|#F580B1}}) + {{Text|";"|#FFB100}}
                                {{Text|CLOSE|#F0F0F0}} #fh2
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            n = n + {{Text|1|#F580B1}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'x1|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'<>""|#31C4C4}}
                {{Text|LOOP|#F0F0F0}}
                {{Text|IF|#F0F0F0}} n > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Unable to resolve multiple instances of sub/function '"|#FFB100}} + ResolveStaticFunction_Name(x) + {{Text|"' in '"|#FFB100}} + ResolveStaticFunction_File(x) + {{Text|"'"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} n = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'a C dynamic object library?|#31C4C4}}
                s$ = {{Text|" "|#FFB100}} + ResolveStaticFunction_Name(x)
                fh = OpenBuffer%({{Text|"I"|#FFB100}}, nm_output_file_dynamic$)
                {{Text|DO|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} EndOfBuf%(fh)
                    a$ = ReadBufLine$(fh)
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(a$) {{Text|THEN|#F0F0F0}}
                        {{Text|'search for SPACE+functionname|#31C4C4}}
                        x1 = {{Text|INSTR|#F0F0F0}}(a$, s$)
                        {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(s$)) = s$ {{Text|THEN|#F0F0F0}}
                            fh2 = {{Text|FREEFILE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} ResolveStaticFunction_Method(x) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"global.txt"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|APPEND|#F0F0F0}} {{Text|AS|#F0F0F0}} #fh2
                                {{Text|PRINT|#F0F0F0}} #fh2, {{Text|"extern "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"C"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"{"|#FFB100}}
                                {{Text|PRINT|#F0F0F0}} #fh2, {{Text|"extern void "|#FFB100}} + s$ + {{Text|"(void);"|#FFB100}}
                                {{Text|PRINT|#F0F0F0}} #fh2, {{Text|"}"|#FFB100}}
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"externtype"|#FFB100}} + str2(x) + {{Text|".txt"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|AS|#F0F0F0}} #fh2
                                {{Text|PRINT|#F0F0F0}} #fh2, {{Text|"extern "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"C"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|" "|#FFB100}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|CLOSE|#F0F0F0}} #fh2
                            n = n + {{Text|1|#F580B1}}
                            {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'x1|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'<>""|#31C4C4}}
                {{Text|LOOP|#F0F0F0}}
                macosx_libfind_failed:
                {{Text|IF|#F0F0F0}} n = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"Could not find sub/function '"|#FFB100}} + ResolveStaticFunction_Name(x) + {{Text|"' in '"|#FFB100}} + ResolveStaticFunction_File(x) + {{Text|"'"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}({{Text|_OS$|#F0F0F0}}, {{Text|"[MACOSX]"|#FFB100}}) {{Text|THEN|#F0F0F0}}
        ffh = {{Text|FREEFILE|#F0F0F0}}
        {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"recompile_osx.command"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|AS|#F0F0F0}} #ffh
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"cd "|#FFB100}} + CHR_QUOTE + {{Text|"$(dirname "|#FFB100}} + CHR_QUOTE + {{Text|"$0"|#FFB100}} + CHR_QUOTE + {{Text|")"|#FFB100}} + CHR_QUOTE + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"echo "|#FFB100}} + CHR_QUOTE + {{Text|"Recompiling..."|#FFB100}} + CHR_QUOTE + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"cd ../c"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, makeline$ + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"read -p "|#FFB100}} + CHR_QUOTE + {{Text|"Press ENTER to exit..."|#FFB100}} + CHR_QUOTE + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|CLOSE|#F0F0F0}} ffh
        {{Text|SHELL|#F0F0F0}} {{Text|_HIDE|#F0F0F0}} {{Text|"chmod +x "|#FFB100}} + AddQuotes$(tmpdir$ + {{Text|"recompile_osx.command"|#FFB100}})
        ffh = {{Text|FREEFILE|#F0F0F0}}
        {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"debug_osx.command"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|AS|#F0F0F0}} #ffh
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"cd "|#FFB100}} + CHR_QUOTE + {{Text|"$(dirname "|#FFB100}} + CHR_QUOTE + {{Text|"$0"|#FFB100}} + CHR_QUOTE + {{Text|")"|#FFB100}} + CHR_QUOTE + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"Pause()"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"{"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"OLDCONFIG=`stty -g`"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"stty -icanon -echo min 1 time 0"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"dd count=1 2>/dev/null"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"stty $OLDCONFIG"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"}"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"echo "|#FFB100}} + CHR_QUOTE + {{Text|"C++ Debugging: "|#FFB100}} + file$ + extension$ + {{Text|" using GDB"|#FFB100}} + CHR_QUOTE + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"echo "|#FFB100}} + CHR_QUOTE + {{Text|"Debugger commands:"|#FFB100}} + CHR_QUOTE + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"echo "|#FFB100}} + CHR_QUOTE + {{Text|"After the debugger launches type 'run' to start your program"|#FFB100}} + CHR_QUOTE + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"echo "|#FFB100}} + CHR_QUOTE + {{Text|"After your program crashes type 'list' to find where the problem is and fix/report it"|#FFB100}} + CHR_QUOTE + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"echo "|#FFB100}} + CHR_QUOTE + {{Text|"(the GDB debugger has many other useful commands, this advice is for beginners)"|#FFB100}} + CHR_QUOTE + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"gdb "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + path.exe$ + file$ + extension$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"Pause"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|CLOSE|#F0F0F0}} ffh
        {{Text|SHELL|#F0F0F0}} {{Text|_HIDE|#F0F0F0}} {{Text|"chmod +x "|#FFB100}} + AddQuotes$(tmpdir$ + {{Text|"debug_osx.command"|#FFB100}})
    {{Text|ELSE|#F0F0F0}}
        ffh = {{Text|FREEFILE|#F0F0F0}}
        {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"recompile_lnx.sh"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|AS|#F0F0F0}} #ffh
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"#!/bin/sh"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"Pause()"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"{"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"OLDCONFIG=`stty -g`"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"stty -icanon -echo min 1 time 0"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"dd count=1 2>/dev/null"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"stty $OLDCONFIG"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"}"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"echo "|#FFB100}} + CHR_QUOTE + {{Text|"Recompiling..."|#FFB100}} + CHR_QUOTE + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"cd ../c"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, makeline$ + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"echo "|#FFB100}} + CHR_QUOTE + {{Text|"Press ENTER to exit..."|#FFB100}} + CHR_QUOTE + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"Pause"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|CLOSE|#F0F0F0}} ffh
        {{Text|SHELL|#F0F0F0}} {{Text|_HIDE|#F0F0F0}} {{Text|"chmod +x "|#FFB100}} + AddQuotes$(tmpdir$ + {{Text|"recompile_lnx.sh"|#FFB100}})
        ffh = {{Text|FREEFILE|#F0F0F0}}
        {{Text|OPEN|#F0F0F0}} tmpdir$ + {{Text|"debug_lnx.sh"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|AS|#F0F0F0}} #ffh
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"#!/bin/sh"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"Pause()"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"{"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"OLDCONFIG=`stty -g`"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"stty -icanon -echo min 1 time 0"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"dd count=1 2>/dev/null"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"stty $OLDCONFIG"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"}"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"echo "|#FFB100}} + CHR_QUOTE + {{Text|"C++ Debugging: "|#FFB100}} + file$ + extension$ + {{Text|" using GDB"|#FFB100}} + CHR_QUOTE + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"echo "|#FFB100}} + CHR_QUOTE + {{Text|"Debugger commands:"|#FFB100}} + CHR_QUOTE + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"echo "|#FFB100}} + CHR_QUOTE + {{Text|"After the debugger launches type 'run' to start your program"|#FFB100}} + CHR_QUOTE + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"echo "|#FFB100}} + CHR_QUOTE + {{Text|"After your program crashes type 'list' to find where the problem is and fix/report it"|#FFB100}} + CHR_QUOTE + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"echo "|#FFB100}} + CHR_QUOTE + {{Text|"(the GDB debugger has many other useful commands, this advice is for beginners)"|#FFB100}} + CHR_QUOTE + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"gdb "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + path.exe$ + file$ + extension$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ffh, {{Text|"Pause"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|CLOSE|#F0F0F0}} ffh
        {{Text|SHELL|#F0F0F0}} {{Text|_HIDE|#F0F0F0}} {{Text|"chmod +x "|#FFB100}} + AddQuotes$(tmpdir$ + {{Text|"debug_lnx.sh"|#FFB100}})
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} No_C_Compile_Mode = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|SHELL|#F0F0F0}} {{Text|_HIDE|#F0F0F0}} makeline$ + {{Text|" 1>> "|#FFB100}} + compilelog$ + {{Text|" 2>&1"|#FFB100}}
        {{Text|IF|#F0F0F0}} idemode {{Text|THEN|#F0F0F0}}
            {{Text|'Restore fg/bg colors|#31C4C4}}
            dummy = DarkenFGBG({{Text|0|#F580B1}})
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}({{Text|_OS$|#F0F0F0}}, {{Text|"[MACOSX]"|#FFB100}}) {{Text|THEN|#F0F0F0}}
        ff = {{Text|FREEFILE|#F0F0F0}}
        {{Text|IF|#F0F0F0}} path.exe$ = {{Text|"./"|#FFB100}} {{Text|OR|#F0F0F0}} path.exe$ = {{Text|"../../"|#FFB100}} {{Text|OR|#F0F0F0}} path.exe$ = {{Text|"..\..\"|#FFB100}} {{Text|THEN|#F0F0F0}} path.exe$ = {{Text|""|#FFB100}}
        {{Text|OPEN|#F0F0F0}} path.exe$ + file$ + extension$ + {{Text|"_start.command"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|AS|#F0F0F0}} #ff
        {{Text|PRINT|#F0F0F0}} #ff, {{Text|"cd "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"$(dirname "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"$0"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|")"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ff, {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ff, {{Text|"./"|#FFB100}} + file$ + extension$ + {{Text|" &"|#FFB100}};
        {{Text|PRINT|#F0F0F0}} #ff, {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ff, {{Text|"osascript -e 'tell application "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"Terminal"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|" to close (every window whose name contains "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + file$ + extension$ + {{Text|"_start.command"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|")' &"|#FFB100}};
        {{Text|PRINT|#F0F0F0}} #ff, {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ff, {{Text|"osascript -e 'if (count the windows of application "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"Terminal"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|") is 0 then tell application "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"Terminal"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|" to quit' &"|#FFB100}};
        {{Text|PRINT|#F0F0F0}} #ff, {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|PRINT|#F0F0F0}} #ff, {{Text|"exit"|#FFB100}};
        {{Text|PRINT|#F0F0F0}} #ff, {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}});
        {{Text|CLOSE|#F0F0F0}} #ff
        {{Text|SHELL|#F0F0F0}} {{Text|_HIDE|#F0F0F0}} {{Text|"chmod +x "|#FFB100}} + AddQuotes$(path.exe$ + file$ + extension$ + {{Text|"_start.command"|#FFB100}})
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} No_C_Compile_Mode {{Text|THEN|#F0F0F0}} compfailed = {{Text|0|#F580B1}}: {{Text|GOTO|#F0F0F0}} No_C_Compile
{{Text|IF|#F0F0F0}} path.exe$ = {{Text|"../../"|#FFB100}} {{Text|OR|#F0F0F0}} path.exe$ = {{Text|"..\..\"|#FFB100}} {{Text|THEN|#F0F0F0}} path.exe$ = {{Text|""|#FFB100}}
{{Text|IF|#F0F0F0}} {{Text|_FILEEXISTS|#F0F0F0}}(path.exe$ + file$ + extension$) {{Text|THEN|#F0F0F0}}
    compfailed = {{Text|0|#F580B1}}
    lastBinaryGenerated$ = path.exe$ + file$ + extension$
{{Text|ELSE|#F0F0F0}}
    compfailed = {{Text|1|#F580B1}} {{Text|'detect compilation failure|#31C4C4}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} compfailed {{Text|THEN|#F0F0F0}}
    {{Text|IF|#F0F0F0}} idemode {{Text|THEN|#F0F0F0}}
        idemessage$ = {{Text|"C++ Compilation failed "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|0|#F580B1}}) + {{Text|"(Check "|#FFB100}} + {{Text|_TRIM$|#F0F0F0}}(compilelog$) + {{Text|")"|#FFB100}}
        {{Text|GOTO|#F0F0F0}} ideerror
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} compfailed {{Text|THEN|#F0F0F0}}
        {{Text|PRINT|#F0F0F0}} {{Text|"ERROR: C++ compilation failed."|#FFB100}}
        {{Text|PRINT|#F0F0F0}} {{Text|"Check "|#FFB100}} + compilelog$ + {{Text|" for details."|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|ELSE|#F0F0F0}}
    {{Text|IF|#F0F0F0}} idemode = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|NOT|#F0F0F0}} QuietMode {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} {{Text|"Output: "|#FFB100}}; lastBinaryGenerated$
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
Skip_Build:
{{Text|IF|#F0F0F0}} idemode {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} ideret6
No_C_Compile:
{{Text|IF|#F0F0F0}} (compfailed <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} warningsissued <> {{Text|0|#F580B1}}) {{Text|AND|#F0F0F0}} ConsoleMode = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|END|#F0F0F0}} {{Text|1|#F580B1}}
{{Text|IF|#F0F0F0}} compfailed <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|SYSTEM|#F0F0F0}} {{Text|1|#F580B1}}
{{Text|SYSTEM|#F0F0F0}} {{Text|0|#F580B1}}
qberror_test:
E = {{Text|1|#F580B1}}
{{Text|RESUME|#F0F0F0}} {{Text|NEXT|#F0F0F0}}
qberror:
{{Text|'_CONSOLE ON|#31C4C4}}
{{Text|'_ECHO "A QB error has occurred (and you have compiled in debugging support)."|#31C4C4}}
{{Text|'_ECHO "Some key information (qb64pe.bas):"|#31C4C4}}
{{Text|'_ECHO "Error" + STR$(ERR)|#31C4C4}}
{{Text|'_ECHO "Description: " + _ERRORMESSAGE$|#31C4C4}}
{{Text|'_ECHO "Line" + STR$(_ERRORLINE)|#31C4C4}}
{{Text|'IF _INCLERRORLINE THEN|#31C4C4}}
{{Text|'    _ECHO "Included line" + STR$(_INCLERRORLINE)|#31C4C4}}
{{Text|'    _ECHO "Included file " + _INCLERRORFILE$|#31C4C4}}
{{Text|'END IF|#31C4C4}}
{{Text|'_ECHO ""|#31C4C4}}
{{Text|'_ECHO "Loaded source file details:"|#31C4C4}}
{{Text|'_ECHO "ideerror =" + STR$(ideerror) + "; qberrorhappened =" + STR$(qberrorhappened) + "; qberrorhappenedvalue =" + STR$(qberrorhappenedvalue) + "; linenumber =" + STR$(linenumber)|#31C4C4}}
{{Text|'_ECHO "ca$ = {" + ca$ + "}, idecommand$ = {" + idecommand$ + "}"|#31C4C4}}
{{Text|'_ECHO "linefragment = {" + linefragment+ "}"|#31C4C4}}
{{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|'A more in-your-face error handler|#31C4C4}}
    {{Text|IF|#F0F0F0}} ConsoleMode {{Text|THEN|#F0F0F0}}
        {{Text|PRINT|#F0F0F0}}
    {{Text|ELSE|#F0F0F0}}
        {{Text|_AUTODISPLAY|#F0F0F0}}
        {{Text|SCREEN|#F0F0F0}} {{Text|_NEWIMAGE|#F0F0F0}}({{Text|80|#F580B1}}, {{Text|25|#F580B1}}, {{Text|0|#F580B1}}), , {{Text|0|#F580B1}}, {{Text|0|#F580B1}}
        {{Text|COLOR|#F0F0F0}} {{Text|7|#F580B1}}, {{Text|0|#F580B1}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|_CONTROLCHR|#F0F0F0}} {{Text|OFF|#F0F0F0}}
    {{Text|PRINT|#F0F0F0}} {{Text|"A QB error has occurred (and you have compiled in debugging support)."|#FFB100}}
    {{Text|PRINT|#F0F0F0}} {{Text|"Some key information (qb64pe.bas):"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} {{Text|"Error"|#FFB100}}; {{Text|ERR|#F0F0F0}}
    {{Text|PRINT|#F0F0F0}} {{Text|"Description: "|#FFB100}}; {{Text|_ERRORMESSAGE$|#F0F0F0}}
    {{Text|PRINT|#F0F0F0}} {{Text|"Line"|#FFB100}}; {{Text|_ERRORLINE|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|_INCLERRORLINE|#F0F0F0}} {{Text|THEN|#F0F0F0}}
        {{Text|PRINT|#F0F0F0}} {{Text|"Included line"|#FFB100}}; {{Text|_INCLERRORLINE|#F0F0F0}}
        {{Text|PRINT|#F0F0F0}} {{Text|"Included file "|#FFB100}}; {{Text|_INCLERRORFILE$|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|PRINT|#F0F0F0}}
    {{Text|PRINT|#F0F0F0}} {{Text|"Loaded source file details:"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} {{Text|"ideerror ="|#FFB100}}; ideerror; {{Text|"qberrorhappened ="|#FFB100}}; qberrorhappened; {{Text|"qberrorhappenedvalue ="|#FFB100}}; qberrorhappenedvalue; {{Text|"linenumber ="|#FFB100}}; linenumber
    {{Text|PRINT|#F0F0F0}} {{Text|"ca$ = {"|#FFB100}}; ca$; {{Text|"}, idecommand$ = {"|#FFB100}}; idecommand$; {{Text|"}"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} {{Text|"linefragment = {"|#FFB100}}; linefragment; {{Text|"}"|#FFB100}}
    {{Text|END|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} ideerror {{Text|THEN|#F0F0F0}} {{Text|'error happened inside the IDE|#31C4C4}}
    fh = {{Text|FREEFILE|#F0F0F0}}
    {{Text|OPEN|#F0F0F0}} {{Text|"internal\temp\ideerror.txt"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|APPEND|#F0F0F0}} {{Text|AS|#F0F0F0}} #fh
    {{Text|PRINT|#F0F0F0}} #fh, {{Text|DATE$|#F0F0F0}}; {{Text|TIME$|#F0F0F0}}; {{Text|"--------------------"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} #fh, {{Text|ERR|#F0F0F0}}
    {{Text|PRINT|#F0F0F0}} #fh, {{Text|_ERRORMESSAGE$|#F0F0F0}}
    {{Text|PRINT|#F0F0F0}} #fh, {{Text|_ERRORLINE|#F0F0F0}}
    {{Text|PRINT|#F0F0F0}} #fh, {{Text|_INCLERRORLINE|#F0F0F0}}
    {{Text|PRINT|#F0F0F0}} #fh, {{Text|_INCLERRORFILE$|#F0F0F0}}
    {{Text|CLOSE|#F0F0F0}} #fh
    sendc$ = {{Text|CHR$|#F0F0F0}}({{Text|255|#F580B1}}) {{Text|'a runtime error has occurred|#31C4C4}}
    {{Text|RESUME|#F0F0F0}} sendcommand {{Text|'allow IDE to handle error recovery|#31C4C4}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
qberrorhappenedvalue = qberrorhappened
qberrorhappened = {{Text|1|#F580B1}}
{{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"QB ERROR!"|#FFB100}}
{{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"ERR="|#FFB100}}; {{Text|ERR|#F0F0F0}}
{{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"ERL="|#FFB100}}; {{Text|ERL|#F0F0F0}}
{{Text|IF|#F0F0F0}} idemode {{Text|AND|#F0F0F0}} qberrorhappenedvalue >= {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
    {{Text|'real qb error occurred|#31C4C4}}
    ideerrorline = linenumber
    idemessage$ = {{Text|"Compiler error (check for syntax errors) ("|#FFB100}} + {{Text|_ERRORMESSAGE$|#F0F0F0}} + {{Text|":"|#FFB100}}
    {{Text|IF|#F0F0F0}} {{Text|ERR|#F0F0F0}} {{Text|THEN|#F0F0F0}} idemessage$ = idemessage$ + str2$({{Text|ERR|#F0F0F0}}) + {{Text|"-"|#FFB100}}
    {{Text|IF|#F0F0F0}} {{Text|_ERRORLINE|#F0F0F0}} {{Text|THEN|#F0F0F0}} idemessage$ = idemessage$ + str2$({{Text|_ERRORLINE|#F0F0F0}})
    {{Text|IF|#F0F0F0}} {{Text|_INCLERRORLINE|#F0F0F0}} {{Text|THEN|#F0F0F0}} idemessage$ = idemessage$ + {{Text|"-"|#FFB100}} + {{Text|_INCLERRORFILE$|#F0F0F0}} + {{Text|"-"|#FFB100}} + str2$({{Text|_INCLERRORLINE|#F0F0F0}})
    idemessage$ = idemessage$ + {{Text|")"|#FFB100}}
    {{Text|IF|#F0F0F0}} inclevel > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} idemessage$ = idemessage$ + incerror$
    {{Text|RESUME|#F0F0F0}} ideerror
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} qberrorhappenedvalue >= {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
    a$ = {{Text|"UNEXPECTED INTERNAL COMPILER ERROR!"|#FFB100}}: {{Text|GOTO|#F0F0F0}} errmes {{Text|'internal comiler error|#31C4C4}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
qberrorcode = {{Text|ERR|#F0F0F0}}
qberrorline = {{Text|ERL|#F0F0F0}}
{{Text|IF|#F0F0F0}} qberrorhappenedvalue = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|RESUME|#F0F0F0}} qberrorhappened1
{{Text|IF|#F0F0F0}} qberrorhappenedvalue = {{Text|-2|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|RESUME|#F0F0F0}} qberrorhappened2
{{Text|IF|#F0F0F0}} qberrorhappenedvalue = {{Text|-3|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|RESUME|#F0F0F0}} qberrorhappened3
{{Text|END|#F0F0F0}}
errmes: {{Text|'set a$ to message|#31C4C4}}
{{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} a$ = Error_Message: Error_Happened = {{Text|0|#F580B1}}
layout$ = {{Text|""|#FFB100}}: layoutok = {{Text|0|#F580B1}} {{Text|'invalidate layout|#31C4C4}}
{{Text|IF|#F0F0F0}} forceIncludingFile {{Text|THEN|#F0F0F0}} {{Text|'If we're to the point where we're adding the automatic QB64 includes, we don't need to report the $INCLUDE information|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(a$, {{Text|"END SUB/FUNCTION before"|#FFB100}}) {{Text|THEN|#F0F0F0}} a$ = {{Text|"SUB without END SUB"|#FFB100}} {{Text|'Just a simple rewrite of the error message to be less confusing for SUB/FUNCTIONs|#31C4C4}}
{{Text|ELSE|#F0F0F0}} {{Text|'We want to let the user know which module the error occurred in|#31C4C4}}
    {{Text|IF|#F0F0F0}} inclevel > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = a$ + incerror$
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|IF|#F0F0F0}} idemode {{Text|THEN|#F0F0F0}}
    ideerrorline = linenumber
    idemessage$ = a$
    {{Text|GOTO|#F0F0F0}} ideerror {{Text|'infinitely preferable to RESUME|#31C4C4}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|'non-ide mode output|#31C4C4}}
{{Text|PRINT|#F0F0F0}}
{{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} MonochromeLoggingMode {{Text|THEN|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}({{Text|_OS$|#F0F0F0}}, {{Text|"WIN"|#FFB100}}) {{Text|THEN|#F0F0F0}}
        {{Text|COLOR|#F0F0F0}} {{Text|4|#F580B1}}
    {{Text|ELSE|#F0F0F0}}
        {{Text|COLOR|#F0F0F0}} {{Text|9|#F580B1}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|PRINT|#F0F0F0}} a$
{{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} MonochromeLoggingMode {{Text|THEN|#F0F0F0}} {{Text|COLOR|#F0F0F0}} {{Text|7|#F580B1}}
{{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(linefragment)
    {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(linefragment, i, {{Text|1|#F580B1}}) = sp$ {{Text|THEN|#F0F0F0}} {{Text|MID$|#F0F0F0}}(linefragment, i, {{Text|1|#F580B1}}) = {{Text|" "|#FFB100}}
{{Text|NEXT|#F0F0F0}}
{{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(wholeline)
    {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(wholeline, i, {{Text|1|#F580B1}}) = sp$ {{Text|THEN|#F0F0F0}} {{Text|MID$|#F0F0F0}}(wholeline, i, {{Text|1|#F580B1}}) = {{Text|" "|#FFB100}}
{{Text|NEXT|#F0F0F0}}
{{Text|PRINT|#F0F0F0}} {{Text|"Caused by (or after):"|#FFB100}} + linefragment
{{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} MonochromeLoggingMode {{Text|THEN|#F0F0F0}} {{Text|COLOR|#F0F0F0}} {{Text|8|#F580B1}}
{{Text|PRINT|#F0F0F0}} {{Text|"LINE "|#FFB100}};
{{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} MonochromeLoggingMode {{Text|THEN|#F0F0F0}} {{Text|COLOR|#F0F0F0}} {{Text|15|#F580B1}}
{{Text|PRINT|#F0F0F0}} str2(linenumber) + {{Text|":"|#FFB100}};
{{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} MonochromeLoggingMode {{Text|THEN|#F0F0F0}} {{Text|COLOR|#F0F0F0}} {{Text|7|#F580B1}}
{{Text|PRINT|#F0F0F0}} wholeline
{{Text|IF|#F0F0F0}} ConsoleMode {{Text|THEN|#F0F0F0}} {{Text|SYSTEM|#F0F0F0}} {{Text|1|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|1|#F580B1}}
{{Text|FUNCTION|#F0F0F0}} ParseCMDLineArgs$ ()
    {{Text|'Recall that COMMAND$ is a concatenation of argv[] elements, so we don't have|#31C4C4}}
    {{Text|'to worry about more than one space between things (unless they used quotes,|#31C4C4}}
    {{Text|'in which case they're simply asking for trouble).|#31C4C4}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|_COMMANDCOUNT|#F0F0F0}}
        token$ = {{Text|COMMAND$|#F0F0F0}}(i)
        {{Text|IF|#F0F0F0}} {{Text|LCASE$|#F0F0F0}}(token$) = {{Text|"/?"|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|LCASE$|#F0F0F0}}(token$) = {{Text|"--help"|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|LCASE$|#F0F0F0}}(token$) = {{Text|"/help"|#FFB100}} {{Text|THEN|#F0F0F0}} token$ = {{Text|"-?"|#FFB100}}
        {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} {{Text|LCASE$|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(token$, {{Text|2|#F580B1}}))
            {{Text|CASE|#F0F0F0}} {{Text|"-?"|#FFB100}} {{Text|'Command-line help|#31C4C4}}
                {{Text|_DEST|#F0F0F0}} {{Text|_CONSOLE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} qb64versionprinted = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} qb64versionprinted = {{Text|-1|#F580B1}}: {{Text|PRINT|#F0F0F0}} {{Text|"QB64-PE Compiler V"|#FFB100}} + Version$
                {{Text|PRINT|#F0F0F0}}
                {{Text|PRINT|#F0F0F0}} {{Text|"Usage: qb64pe [switches] <file>"|#FFB100}}
                {{Text|PRINT|#F0F0F0}}
                {{Text|PRINT|#F0F0F0}} {{Text|"Options:"|#FFB100}}
                {{Text|PRINT|#F0F0F0}} {{Text|"  <file>                  Source file to load"|#FFB100}} {{Text|'                                '80 columns|#31C4C4}}
                {{Text|PRINT|#F0F0F0}} {{Text|"  -v                      Print version"|#FFB100}}
                {{Text|PRINT|#F0F0F0}} {{Text|"  -c                      Compile instead of edit"|#FFB100}}
                {{Text|PRINT|#F0F0F0}} {{Text|"  -o <output file>        Write output executable to <output file>"|#FFB100}}
                {{Text|PRINT|#F0F0F0}} {{Text|"  -x                      Compile instead of edit and output the result to the"|#FFB100}}
                {{Text|PRINT|#F0F0F0}} {{Text|"                            console"|#FFB100}}
                {{Text|PRINT|#F0F0F0}} {{Text|"  -w                      Show warnings"|#FFB100}}
                {{Text|PRINT|#F0F0F0}} {{Text|"  -q                      Quiet mode (does not inhibit warnings or errors)"|#FFB100}}
                {{Text|PRINT|#F0F0F0}} {{Text|"  -m                      Do not colorize compiler output (monochrome mode)"|#FFB100}}
                {{Text|PRINT|#F0F0F0}} {{Text|"  -e                      Enable OPTION _EXPLICIT, making variable declaration"|#FFB100}}
                {{Text|PRINT|#F0F0F0}} {{Text|"                            mandatory (per-compilation; doesn't affect the"|#FFB100}}
                {{Text|PRINT|#F0F0F0}} {{Text|"                            source file or global settings)"|#FFB100}}
                {{Text|PRINT|#F0F0F0}} {{Text|"  -s[:switch=true/false]  View/edit compiler settings"|#FFB100}}
                {{Text|PRINT|#F0F0F0}} {{Text|"  -l:<line number>        Start the IDE at the specified line number"|#FFB100}}
                {{Text|PRINT|#F0F0F0}} {{Text|"  -p                      Purge all pre-compiled content first"|#FFB100}}
                {{Text|PRINT|#F0F0F0}} {{Text|"  -z                      Generate C code without compiling to executable"|#FFB100}}
                {{Text|PRINT|#F0F0F0}} {{Text|"  -f[:setting=value]      compiler settings to use"|#FFB100}}
                {{Text|PRINT|#F0F0F0}}
                {{Text|SYSTEM|#F0F0F0}}
            {{Text|CASE|#F0F0F0}} {{Text|"-v"|#FFB100}} {{Text|' Print version|#31C4C4}}
                {{Text|_DEST|#F0F0F0}} {{Text|_CONSOLE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} qb64versionprinted = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} qb64versionprinted = {{Text|-1|#F580B1}}: {{Text|PRINT|#F0F0F0}} {{Text|"QB64-PE Compiler V"|#FFB100}} + Version$
                {{Text|SYSTEM|#F0F0F0}}
            {{Text|CASE|#F0F0F0}} {{Text|"-u"|#FFB100}} {{Text|'Invoke "Update all pages" to populate internal/help files (hidden build option)|#31C4C4}}
                Help_Recaching = {{Text|2|#F580B1}}: Help_IgnoreCache = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} ideupdatehelpbox {{Text|THEN|#F0F0F0}}
                    {{Text|_DEST|#F0F0F0}} {{Text|_CONSOLE|#F0F0F0}}
                    {{Text|PRINT|#F0F0F0}} {{Text|"Update failed: Can't make connection to Wiki."|#FFB100}}
                    {{Text|SYSTEM|#F0F0F0}} {{Text|1|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|SYSTEM|#F0F0F0}}
            {{Text|CASE|#F0F0F0}} {{Text|"-c"|#FFB100}} {{Text|'Compile instead of edit|#31C4C4}}
                NoIDEMode = {{Text|1|#F580B1}}
                cmdlineswitch = {{Text|-1|#F580B1}}
            {{Text|CASE|#F0F0F0}} {{Text|"-o"|#FFB100}} {{Text|'Specify an output file|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}({{Text|COMMAND$|#F0F0F0}}(i + {{Text|1|#F580B1}})) > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} outputfile_cmd$ = {{Text|COMMAND$|#F0F0F0}}(i + {{Text|1|#F580B1}}): i = i + {{Text|1|#F580B1}}
                cmdlineswitch = {{Text|-1|#F580B1}}
            {{Text|CASE|#F0F0F0}} {{Text|"-x"|#FFB100}} {{Text|'Use the console|#31C4C4}}
                ConsoleMode = {{Text|1|#F580B1}}
                NoIDEMode = {{Text|1|#F580B1}} {{Text|'Implies -c|#31C4C4}}
                cmdlineswitch = {{Text|-1|#F580B1}}
            {{Text|CASE|#F0F0F0}} {{Text|"-w"|#FFB100}} {{Text|'Show warnings|#31C4C4}}
                ShowWarnings = {{Text|-1|#F580B1}}
                cmdlineswitch = {{Text|-1|#F580B1}}
            {{Text|CASE|#F0F0F0}} {{Text|"-q"|#FFB100}} {{Text|'Quiet mode|#31C4C4}}
                QuietMode = {{Text|-1|#F580B1}}
                cmdlineswitch = {{Text|-1|#F580B1}}
            {{Text|CASE|#F0F0F0}} {{Text|"-m"|#FFB100}} {{Text|'Monochrome mode|#31C4C4}}
                MonochromeLoggingMode = {{Text|-1|#F580B1}}
                cmdlineswitch = {{Text|-1|#F580B1}}
            {{Text|CASE|#F0F0F0}} {{Text|"-e"|#FFB100}} {{Text|'Option Explicit|#31C4C4}}
                optionexplicit_cmd = {{Text|-1|#F580B1}}
                cmdlineswitch = {{Text|-1|#F580B1}}
            {{Text|CASE|#F0F0F0}} {{Text|"-s"|#FFB100}} {{Text|'Settings|#31C4C4}}
                settingsMode = {{Text|-1|#F580B1}}
                {{Text|_DEST|#F0F0F0}} {{Text|_CONSOLE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} qb64versionprinted = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} qb64versionprinted = {{Text|-1|#F580B1}}: {{Text|PRINT|#F0F0F0}} {{Text|"QB64-PE Compiler V"|#FFB100}} + Version$
                {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} {{Text|LCASE$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(token$, {{Text|3|#F580B1}}))
                    {{Text|CASE|#F0F0F0}} {{Text|""|#FFB100}}
                        {{Text|PRINT|#F0F0F0}} {{Text|"debuginfo    = "|#FFB100}};
                        {{Text|IF|#F0F0F0}} idedebuginfo {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} {{Text|"true"|#FFB100}} {{Text|ELSE|#F0F0F0}} {{Text|PRINT|#F0F0F0}} {{Text|"false"|#FFB100}}
                        {{Text|PRINT|#F0F0F0}} {{Text|"exewithsource = "|#FFB100}};
                        {{Text|IF|#F0F0F0}} SaveExeWithSource {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} {{Text|"true"|#FFB100}} {{Text|ELSE|#F0F0F0}} {{Text|PRINT|#F0F0F0}} {{Text|"false"|#FFB100}}
                        {{Text|SYSTEM|#F0F0F0}}
                    {{Text|CASE|#F0F0F0}} {{Text|":exewithsource"|#FFB100}}
                        {{Text|PRINT|#F0F0F0}} {{Text|"exewithsource = "|#FFB100}};
                        {{Text|IF|#F0F0F0}} SaveExeWithSource {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} {{Text|"true"|#FFB100}} {{Text|ELSE|#F0F0F0}} {{Text|PRINT|#F0F0F0}} {{Text|"false"|#FFB100}}
                        {{Text|SYSTEM|#F0F0F0}}
                    {{Text|CASE|#F0F0F0}} {{Text|":exewithsource=true"|#FFB100}}
                        WriteConfigSetting generalSettingsSection$, {{Text|"SaveExeWithSource"|#FFB100}}, {{Text|"True"|#FFB100}}
                        {{Text|PRINT|#F0F0F0}} {{Text|"exewithsource = true"|#FFB100}}
                        SaveExeWithSource = {{Text|-1|#F580B1}}
                    {{Text|CASE|#F0F0F0}} {{Text|":exewithsource=false"|#FFB100}}
                        WriteConfigSetting generalSettingsSection$, {{Text|"SaveExeWithSource"|#FFB100}}, {{Text|"False"|#FFB100}}
                        {{Text|PRINT|#F0F0F0}} {{Text|"exewithsource = false"|#FFB100}}
                        SaveExeWithSource = {{Text|0|#F580B1}}
                    {{Text|CASE|#F0F0F0}} {{Text|":debuginfo"|#FFB100}}
                        {{Text|PRINT|#F0F0F0}} {{Text|"debuginfo = "|#FFB100}};
                        {{Text|IF|#F0F0F0}} idedebuginfo {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} {{Text|"true"|#FFB100}} {{Text|ELSE|#F0F0F0}} {{Text|PRINT|#F0F0F0}} {{Text|"false"|#FFB100}}
                        {{Text|SYSTEM|#F0F0F0}}
                    {{Text|CASE|#F0F0F0}} {{Text|":debuginfo=true"|#FFB100}}
                        {{Text|PRINT|#F0F0F0}} {{Text|"debuginfo = true"|#FFB100}}
                        WriteConfigSetting generalSettingsSection$, {{Text|"DebugInfo"|#FFB100}}, {{Text|"True"|#FFB100}} + DebugInfoIniWarning$
                        idedebuginfo = {{Text|-1|#F580B1}}
                        Include_GDB_Debugging_Info = idedebuginfo
                        PurgeTemporaryBuildFiles (os$), (MacOSX)
                    {{Text|CASE|#F0F0F0}} {{Text|":debuginfo=false"|#FFB100}}
                        {{Text|PRINT|#F0F0F0}} {{Text|"debuginfo = false"|#FFB100}}
                        WriteConfigSetting generalSettingsSection$, {{Text|"DebugInfo"|#FFB100}}, {{Text|"False"|#FFB100}} + DebugInfoIniWarning$
                        idedebuginfo = {{Text|0|#F580B1}}
                        Include_GDB_Debugging_Info = idedebuginfo
                        PurgeTemporaryBuildFiles (os$), (MacOSX)
                    {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}
                        {{Text|PRINT|#F0F0F0}} {{Text|"Invalid settings switch: "|#FFB100}}; token$
                        {{Text|PRINT|#F0F0F0}}
                        {{Text|PRINT|#F0F0F0}} {{Text|"Valid switches:"|#FFB100}}
                        {{Text|PRINT|#F0F0F0}} {{Text|"    -s:debuginfo=true/false    (Embed C++ debug info into .EXE)"|#FFB100}}
                        {{Text|PRINT|#F0F0F0}} {{Text|"    -s:exewithsource=true/false (Save .EXE in the source folder)"|#FFB100}}
                        {{Text|SYSTEM|#F0F0F0}} {{Text|1|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
                {{Text|_DEST|#F0F0F0}} {{Text|0|#F580B1}}
            {{Text|CASE|#F0F0F0}} {{Text|"-l"|#FFB100}} {{Text|'goto line (ide mode only); -l:<line number>|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(token$, {{Text|3|#F580B1}}, {{Text|1|#F580B1}}) = {{Text|":"|#FFB100}} {{Text|THEN|#F0F0F0}} ideStartAtLine = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(token$, {{Text|4|#F580B1}}))
                cmdlineswitch = {{Text|-1|#F580B1}}
            {{Text|CASE|#F0F0F0}} {{Text|"-p"|#FFB100}} {{Text|'Purge|#31C4C4}}
                PurgeTemporaryBuildFiles (os$), (MacOSX)
                cmdlineswitch = {{Text|-1|#F580B1}}
            {{Text|CASE|#F0F0F0}} {{Text|"-z"|#FFB100}} {{Text|'Not compiling C code|#31C4C4}}
                No_C_Compile_Mode = {{Text|1|#F580B1}}
                ConsoleMode = {{Text|1|#F580B1}} {{Text|'Implies -x|#31C4C4}}
                NoIDEMode = {{Text|1|#F580B1}} {{Text|'Implies -c|#31C4C4}}
                cmdlineswitch = {{Text|-1|#F580B1}}
            {{Text|CASE|#F0F0F0}} {{Text|"-f"|#FFB100}} {{Text|'temporary setting|#31C4C4}}
                token$ = {{Text|MID$|#F0F0F0}}(token$, {{Text|3|#F580B1}})
                {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} {{Text|LCASE$|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(token$, {{Text|INSTR|#F0F0F0}}(token$, {{Text|"="|#FFB100}}) - {{Text|1|#F580B1}}))
                    {{Text|CASE|#F0F0F0}} {{Text|":useminiaudio"|#FFB100}}
                        {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} ParseBooleanSetting&(token$, UseMiniaudioBackend) {{Text|THEN|#F0F0F0}} PrintTemporarySettingsHelpAndExit InvalidSettingError$(token$)
                    {{Text|CASE|#F0F0F0}} {{Text|":optimizecppprogram"|#FFB100}}
                        {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} ParseBooleanSetting&(token$, OptimizeCppProgram) {{Text|THEN|#F0F0F0}} PrintTemporarySettingsHelpAndExit InvalidSettingError$(token$)
                    {{Text|CASE|#F0F0F0}} {{Text|":stripdebugsymbols"|#FFB100}}
                        {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} ParseBooleanSetting&(token$, StripDebugSymbols) {{Text|THEN|#F0F0F0}} PrintTemporarySettingsHelpAndExit InvalidSettingError$(token$)
                    {{Text|CASE|#F0F0F0}} {{Text|":extracppflags"|#FFB100}}
                        {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} ParseStringSetting&(token$, ExtraCppFlags) {{Text|THEN|#F0F0F0}} PrintTemporarySettingsHelpAndExit InvalidSettingError$(token$)
                    {{Text|CASE|#F0F0F0}} {{Text|":extralinkerflags"|#FFB100}}
                        {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} ParseStringSetting&(token$, ExtraLinkerFlags) {{Text|THEN|#F0F0F0}} PrintTemporarySettingsHelpAndExit InvalidSettingError$(token$)
                    {{Text|CASE|#F0F0F0}} {{Text|":maxcompilerprocesses"|#FFB100}}
                        {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} ParseLongSetting&(token$, MaxParallelProcesses) {{Text|THEN|#F0F0F0}} PrintTemporarySettingsHelpAndExit InvalidSettingError$(token$)
                        {{Text|IF|#F0F0F0}} MaxParallelProcesses = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} PrintTemporarySettingsHelpAndExit {{Text|"MaxCompilerProcesses must be more than zero"|#FFB100}}
                    {{Text|CASE|#F0F0F0}} {{Text|":generatelicensefile"|#FFB100}}
                        {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} ParseBooleanSetting&(token$, GenerateLicenseFile) {{Text|THEN|#F0F0F0}} PrintTemporarySettingsHelpAndExit InvalidSettingError$(token$)
                    {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}
                        PrintTemporarySettingsHelpAndExit {{Text|""|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
            {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}} {{Text|'Something we don't recognise, assume it's a filename|#31C4C4}}
                {{Text|IF|#F0F0F0}} PassedFileName$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} PassedFileName$ = token$
        {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}} i
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(PassedFileName$) {{Text|THEN|#F0F0F0}}
        ParseCMDLineArgs$ = PassedFileName$
    {{Text|ELSE|#F0F0F0}}
        {{Text|IF|#F0F0F0}} cmdlineswitch = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} settingsMode = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|SYSTEM|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} InvalidSettingError$ (token$)
    InvalidSettingError$ = {{Text|"Invalid temporary setting switch: "|#FFB100}} + AddQuotes$(token$)
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|SUB|#F0F0F0}} PrintTemporarySettingsHelpAndExit (errstr$)
    {{Text|_DEST|#F0F0F0}} {{Text|_CONSOLE|#F0F0F0}}
    {{Text|PRINT|#F0F0F0}} {{Text|"QB64-PE Compiler V"|#FFB100}} + Version$
    {{Text|IF|#F0F0F0}} errstr$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
        {{Text|PRINT|#F0F0F0}} {{Text|"Error: "|#FFB100}}; errstr$
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|PRINT|#F0F0F0}}
    {{Text|PRINT|#F0F0F0}} {{Text|"Note: Defaults can be changed by IDE settings"|#FFB100}}
    {{Text|PRINT|#F0F0F0}}
    {{Text|PRINT|#F0F0F0}} {{Text|"Valid settings:"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} {{Text|"    -f:UseMiniAudio=[true¦false]        (Use Miniaudio Audio backend, default true)"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} {{Text|"    -f:OptimizeCppProgram=[true¦false]  (Use C++ Optimization flag, default false)"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} {{Text|"    -f:StripDebugSymbols=[true¦false]    (Stirp C++ debug symbols, default true)"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} {{Text|"    -f:ExtraCppFlags=[string]            (Extra flags to pass to the C++ compiler)"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} {{Text|"    -f:ExtraLinkerFlags=[string]        (Extra flags to pass at link time)"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} {{Text|"    -f:MaxCompilerProcesses=[integer]    (Max C++ compiler processes to start in parallel)"|#FFB100}}
    {{Text|PRINT|#F0F0F0}} {{Text|"    -f:GenerateLicenseFile=[true¦false]  (Produce a license.txt file for the program)"|#FFB100}}
    {{Text|SYSTEM|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} ParseBooleanSetting& (token$, setting {{Text|AS|#F0F0F0}} {{Text|_UNSIGNED|#F0F0F0}} {{Text|LONG|#F0F0F0}})
    {{Text|DIM|#F0F0F0}} equals {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    {{Text|DIM|#F0F0F0}} value {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
    equals = {{Text|INSTR|#F0F0F0}}(token$, {{Text|"="|#FFB100}})
    {{Text|IF|#F0F0F0}} equals = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} ParseBooleanSetting& = {{Text|0|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    value = {{Text|LCASE$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(token$, equals + {{Text|1|#F580B1}}))
    {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} value
        {{Text|CASE|#F0F0F0}} {{Text|"true"|#FFB100}}, {{Text|"on"|#FFB100}}, {{Text|"yes"|#FFB100}}
            setting = {{Text|-1|#F580B1}}
            ParseBooleanSetting& = {{Text|-1|#F580B1}}
        {{Text|CASE|#F0F0F0}} {{Text|"false"|#FFB100}}, {{Text|"off"|#FFB100}}, {{Text|"no"|#FFB100}}
            setting = {{Text|0|#F580B1}}
            ParseBooleanSetting& = {{Text|-1|#F580B1}}
        {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}
            ParseBooleanSetting& = {{Text|0|#F580B1}}
    {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} ParseLongSetting& (token$, setting {{Text|AS|#F0F0F0}} {{Text|_UNSIGNED|#F0F0F0}} {{Text|LONG|#F0F0F0}})
    {{Text|DIM|#F0F0F0}} equals {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    equals = {{Text|INSTR|#F0F0F0}}(token$, {{Text|"="|#FFB100}})
    {{Text|IF|#F0F0F0}} equals = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} ParseLongSetting& = {{Text|0|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    setting = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(token$, equals + {{Text|1|#F580B1}}))
    ParseLongSetting& = {{Text|-1|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} ParseStringSetting& (token$, setting {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}})
    {{Text|DIM|#F0F0F0}} equals {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    equals = {{Text|INSTR|#F0F0F0}}(token$, {{Text|"="|#FFB100}})
    {{Text|IF|#F0F0F0}} equals = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} ParseStringSetting& = {{Text|0|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    setting = {{Text|MID$|#F0F0F0}}(token$, equals + {{Text|1|#F580B1}})
    ParseStringSetting& = {{Text|-1|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} Type2MemTypeValue (t1)
    t = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} t1 {{Text|AND|#F0F0F0}} ISARRAY {{Text|THEN|#F0F0F0}} t = t + {{Text|65536|#F580B1}}
    {{Text|IF|#F0F0F0}} t1 {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} (t1 {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            t = t + {{Text|4096|#F580B1}} {{Text|'_MEM type|#31C4C4}}
        {{Text|ELSE|#F0F0F0}}
            t = t + {{Text|32768|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|ELSE|#F0F0F0}}
        {{Text|IF|#F0F0F0}} t1 {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
            t = t + {{Text|512|#F580B1}} {{Text|'string|#31C4C4}}
        {{Text|ELSE|#F0F0F0}}
            {{Text|IF|#F0F0F0}} t1 {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
                t = t + {{Text|256|#F580B1}} {{Text|'float|#31C4C4}}
            {{Text|ELSE|#F0F0F0}}
                t = t + {{Text|128|#F580B1}} {{Text|'integer|#31C4C4}}
                {{Text|IF|#F0F0F0}} t1 {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}} t = t + {{Text|1024|#F580B1}}
                {{Text|IF|#F0F0F0}} t1 {{Text|AND|#F0F0F0}} ISOFFSET {{Text|THEN|#F0F0F0}} t = t + {{Text|8192|#F580B1}} {{Text|'offset type|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            t1s = (t1 {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) \ {{Text|8|#F580B1}}
            {{Text|IF|#F0F0F0}} t1s = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} t = t + t1s
            {{Text|IF|#F0F0F0}} t1s = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} t = t + t1s
            {{Text|IF|#F0F0F0}} t1s = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} t = t + t1s
            {{Text|IF|#F0F0F0}} t1s = {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} t = t + t1s
            {{Text|IF|#F0F0F0}} t1s = {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} t = t + t1s
            {{Text|IF|#F0F0F0}} t1s = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} t = t + t1s
            {{Text|IF|#F0F0F0}} t1s = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} t = t + t1s
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    Type2MemTypeValue = t
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|'udt is non-zero if this is an array of udt's, to allow examining each udt element|#31C4C4}}
{{Text|FUNCTION|#F0F0F0}} allocarray (n2$, elements$, elementsize, udt)
    dimsharedlast = dimshared: dimshared = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} autoarray = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} autoarray = {{Text|0|#F580B1}}: autoary = {{Text|1|#F580B1}} {{Text|'clear global value & set local value|#31C4C4}}
    f12$ = {{Text|""|#FFB100}}
    {{Text|'changelog:|#31C4C4}}
    {{Text|'added 4 to [2] to indicate cmem array where appropriate|#31C4C4}}
    e$ = elements$: n$ = n2$
    {{Text|IF|#F0F0F0}} elementsize = {{Text|-2147483647|#F580B1}} {{Text|THEN|#F0F0F0}} stringarray = {{Text|1|#F580B1}}: elementsize = {{Text|8|#F580B1}}
    {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(e$) = {{Text|63|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'?|#31C4C4}}
        l$ = {{Text|"("|#FFB100}} + sp2 + {{Text|")"|#FFB100}}
        undefined = {{Text|-1|#F580B1}}
        nume = {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} undefinedarray
        undefined = {{Text|1|#F580B1}}
        nume = {{Text|VAL|#F0F0F0}}({{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|1|#F580B1}}))
        {{Text|GOTO|#F0F0F0}} undefinedarray
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'work out how many elements there are (critical to later calculations)|#31C4C4}}
    nume = {{Text|1|#F580B1}}
    n = numelements(e$)
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
        e2$ = getelement(e$, i)
        {{Text|IF|#F0F0F0}} e2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} e2$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} nume = nume + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} e2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"numelements count:"|#FFB100}}; nume
    descstatic = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} arraydesc {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} id.arrayelements <> nume {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} id.arrayelements = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'unknown|#31C4C4}}
                {{Text|IF|#F0F0F0}} arrayelementslist(currentid) <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} nume <> arrayelementslist(currentid) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot change the number of elements an array has!"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|IF|#F0F0F0}} nume = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} id.arrayelements = {{Text|1|#F580B1}}: ids(currentid).arrayelements = {{Text|1|#F580B1}} {{Text|'lucky guess!|#31C4C4}}
                arrayelementslist(currentid) = nume
            {{Text|ELSE|#F0F0F0}}
                Give_Error {{Text|"Cannot change the number of elements an array has!"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} id.staticarray {{Text|THEN|#F0F0F0}} descstatic = {{Text|1|#F580B1}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    l$ = {{Text|"("|#FFB100}} + sp2
    cr$ = {{Text|CHR$|#F0F0F0}}({{Text|13|#F580B1}}) + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}})
    sd$ = {{Text|""|#FFB100}}
    constdimensions = {{Text|1|#F580B1}}
    ei = {{Text|4|#F580B1}} + nume * {{Text|4|#F580B1}} - {{Text|4|#F580B1}}
    cure = {{Text|1|#F580B1}}
    e3$ = {{Text|""|#FFB100}}: e3base$ = {{Text|""|#FFB100}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
        e2$ = getelement(e$, i)
        {{Text|IF|#F0F0F0}} e2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} (e2$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} b = {{Text|0|#F580B1}}) {{Text|OR|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}} e3$ = e3$ + sp + e2$
            e3$ = {{Text|RIGHT$|#F0F0F0}}(e3$, {{Text|LEN|#F0F0F0}}(e3$) - {{Text|1|#F580B1}})
            {{Text|IF|#F0F0F0}} e3base$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} e3base$ = {{Text|RIGHT$|#F0F0F0}}(e3base$, {{Text|LEN|#F0F0F0}}(e3base$) - {{Text|1|#F580B1}})
            {{Text|'PRINT e3base$ + "[TO]" + e3$|#31C4C4}}
            {{Text|'set the base|#31C4C4}}
            basegiven = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} e3base$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} e3base$ = str2$(optionbase + {{Text|0|#F580B1}}): basegiven = {{Text|0|#F580B1}}
            constequation = {{Text|1|#F580B1}}
            e3base$ = fixoperationorder$(e3base$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|IF|#F0F0F0}} basegiven {{Text|THEN|#F0F0F0}} l$ = l$ + tlayout$ + sp + SCase$({{Text|"To"|#FFB100}}) + sp
            e3base$ = evaluatetotyp$(e3base$, {{Text|64&|#F580B1}})
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|IF|#F0F0F0}} constequation = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} constdimensions = {{Text|0|#F580B1}}
            sd$ = sd$ + n$ + {{Text|"["|#FFB100}} + str2(ei) + {{Text|"]="|#FFB100}} + e3base$ + {{Text|";"|#FFB100}} + cr$
            {{Text|'set the number of indexes|#31C4C4}}
            constequation = {{Text|1|#F580B1}}
            e3$ = fixoperationorder$(e3$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            l$ = l$ + tlayout$ + sp2
            {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}} l$ = l$ + {{Text|")"|#FFB100}} {{Text|ELSE|#F0F0F0}} l$ = l$ + {{Text|","|#FFB100}} + sp
            e3$ = evaluatetotyp$(e3$, {{Text|64&|#F580B1}})
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|IF|#F0F0F0}} constequation = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} constdimensions = {{Text|0|#F580B1}}
            ei = ei + {{Text|1|#F580B1}}
            sd$ = sd$ + n$ + {{Text|"["|#FFB100}} + str2(ei) + {{Text|"]=("|#FFB100}} + e3$ + {{Text|")-"|#FFB100}} + n$ + {{Text|"["|#FFB100}} + str2(ei - {{Text|1|#F580B1}}) + {{Text|"]+1;"|#FFB100}} + cr$
            ei = ei + {{Text|1|#F580B1}}
            {{Text|'calc muliplier|#31C4C4}}
            {{Text|IF|#F0F0F0}} cure = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|'set only for the purpose of the calculating correct multipliers|#31C4C4}}
                sd$ = sd$ + n$ + {{Text|"["|#FFB100}} + str2(ei) + {{Text|"]=1;"|#FFB100}} + cr$
            {{Text|ELSE|#F0F0F0}}
                sd$ = sd$ + n$ + {{Text|"["|#FFB100}} + str2(ei) + {{Text|"]="|#FFB100}} + n$ + {{Text|"["|#FFB100}} + str2(ei + {{Text|4|#F580B1}}) + {{Text|"]*"|#FFB100}} + n$ + {{Text|"["|#FFB100}} + str2(ei + {{Text|3|#F580B1}}) + {{Text|"];"|#FFB100}} + cr$
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            ei = ei + {{Text|1|#F580B1}}
            ei = ei + {{Text|1|#F580B1}} {{Text|'skip reserved|#31C4C4}}
            ei = ei - {{Text|8|#F580B1}}
            cure = cure + {{Text|1|#F580B1}}
            e3$ = {{Text|""|#FFB100}}: e3base$ = {{Text|""|#FFB100}}
            {{Text|GOTO|#F0F0F0}} aanexte
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} e2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(e2$) = {{Text|"TO"|#FFB100}} {{Text|AND|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            e3base$ = e3$
            e3$ = {{Text|""|#FFB100}}
        {{Text|ELSE|#F0F0F0}}
            e3$ = e3$ + sp + e2$
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        aanexte:
    {{Text|NEXT|#F0F0F0}}
    sd$ = {{Text|LEFT$|#F0F0F0}}(sd$, {{Text|LEN|#F0F0F0}}(sd$) - {{Text|2|#F580B1}})
    undefinedarray:
    {{Text|'calc cmem|#31C4C4}}
    cmem = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} arraydesc = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} cmem = {{Text|1|#F580B1}}
    {{Text|ELSE|#F0F0F0}}
        {{Text|IF|#F0F0F0}} cmemlist(arraydesc) {{Text|THEN|#F0F0F0}} cmem = {{Text|1|#F580B1}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    staticarray = constdimensions
    {{Text|IF|#F0F0F0}} subfuncn <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} dimstatic = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} staticarray = {{Text|0|#F580B1}} {{Text|'arrays in SUBS/FUNCTIONS are DYNAMIC|#31C4C4}}
    {{Text|IF|#F0F0F0}} dimstatic = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} staticarray = {{Text|0|#F580B1}} {{Text|'STATIC arrayname() listed arrays keep thier values but are dynamic in memory|#31C4C4}}
    {{Text|IF|#F0F0F0}} DynamicMode {{Text|THEN|#F0F0F0}} staticarray = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} redimoption {{Text|THEN|#F0F0F0}} staticarray = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} dimoption = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} staticarray = {{Text|0|#F580B1}} {{Text|'STATIC a(100) arrays are still dynamic|#31C4C4}}
    {{Text|IF|#F0F0F0}} arraydesc {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} staticarray = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} descstatic {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot redefine a static array!"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            staticarray = {{Text|0|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    bytesperelement$ = str2(elementsize)
    {{Text|IF|#F0F0F0}} elementsize < {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        elementsize = {{Text|-elementsize|#F580B1}}
        bytesperelement$ = str2(elementsize) + {{Text|"/8+1"|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'Begin creation of array descriptor (if array has not been defined yet)|#31C4C4}}
    {{Text|IF|#F0F0F0}} arraydesc = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        WriteBufLine defdatahandle, {{Text|"ptrszint *"|#FFB100}} + n$ + {{Text|"=NULL;"|#FFB100}}
        WriteBufLine DataTxtBuf, {{Text|"if (!"|#FFB100}} + n$ + {{Text|"){"|#FFB100}}
        WriteBufLine DataTxtBuf, n$ + {{Text|"=(ptrszint*)mem_static_malloc("|#FFB100}} + str2({{Text|4|#F580B1}} * nume + {{Text|4|#F580B1}} + {{Text|1|#F580B1}}) + {{Text|"*ptrsz);"|#FFB100}} {{Text|'+1 is for the lock|#31C4C4}}
        {{Text|'create _MEM lock|#31C4C4}}
        WriteBufLine DataTxtBuf, {{Text|"new_mem_lock();"|#FFB100}}
        WriteBufLine DataTxtBuf, {{Text|"mem_lock_tmp->type=4;"|#FFB100}}
        WriteBufLine DataTxtBuf, {{Text|"((ptrszint*)"|#FFB100}} + n$ + {{Text|")["|#FFB100}} + str2({{Text|4|#F580B1}} * nume + {{Text|4|#F580B1}} + {{Text|1|#F580B1}} - {{Text|1|#F580B1}}) + {{Text|"]=(ptrszint)mem_lock_tmp;"|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'generate sizestr$ & elesizestr$ (both are used in various places in following code)|#31C4C4}}
    sizestr$ = {{Text|""|#FFB100}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} nume
        {{Text|IF|#F0F0F0}} i <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} sizestr$ = sizestr$ + {{Text|"*"|#FFB100}}
        sizestr$ = sizestr$ + n$ + {{Text|"["|#FFB100}} + str2(i * {{Text|4|#F580B1}} - {{Text|4|#F580B1}} + {{Text|5|#F580B1}}) + {{Text|"]"|#FFB100}}
    {{Text|NEXT|#F0F0F0}}
    elesizestr$ = sizestr$ {{Text|'elements in entire array|#31C4C4}}
    sizestr$ = sizestr$ + {{Text|"*"|#FFB100}} + bytesperelement$ {{Text|'bytes in entire array|#31C4C4}}
    {{Text|'------------------STATIC ARRAY CREATION--------------------------------|#31C4C4}}
    {{Text|IF|#F0F0F0}} staticarray {{Text|THEN|#F0F0F0}}
        {{Text|'STATIC memory|#31C4C4}}
        WriteBufLine DataTxtBuf, sd$ {{Text|'setup new array dimension ranges|#31C4C4}}
        {{Text|'Example of sd$ for DIM a(10):|#31C4C4}}
        {{Text|'__ARRAY_SINGLE_A[4]= 0 ;|#31C4C4}}
        {{Text|'__ARRAY_SINGLE_A[5]=( 10 )-__ARRAY_SINGLE_A[4]+1;|#31C4C4}}
        {{Text|'__ARRAY_SINGLE_A[6]=1;|#31C4C4}}
        {{Text|IF|#F0F0F0}} cmem {{Text|AND|#F0F0F0}} stringarray = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|'Note: A string array's pointers are always stored in 64bit memory|#31C4C4}}
            {{Text|'(static)CONVENTINAL memory|#31C4C4}}
            WriteBufLine DataTxtBuf, n$ + {{Text|"[0]=(ptrszint)cmem_static_pointer;"|#FFB100}}
            {{Text|'alloc mem & check if static memory boundry has oversteped dynamic memory boundry|#31C4C4}}
            WriteBufLine DataTxtBuf, {{Text|"if ((cmem_static_pointer+=(("|#FFB100}} + sizestr$ + {{Text|")+15)&-16)>cmem_dynamic_base) error(257);"|#FFB100}}
            {{Text|'64K check|#31C4C4}}
            WriteBufLine DataTxtBuf, {{Text|"if (("|#FFB100}} + sizestr$ + {{Text|")>65536) error(257);"|#FFB100}}
            {{Text|'clear array|#31C4C4}}
            WriteBufLine DataTxtBuf, {{Text|"memset((void*)("|#FFB100}} + n$ + {{Text|"[0]),0,"|#FFB100}} + sizestr$ + {{Text|");"|#FFB100}}
            {{Text|'set flags|#31C4C4}}
            WriteBufLine DataTxtBuf, n$ + {{Text|"[2]=1+2+4;"|#FFB100}} {{Text|'init+static+cmem|#31C4C4}}
        {{Text|ELSE|#F0F0F0}}
            {{Text|'64BIT MEMORY|#31C4C4}}
            WriteBufLine DataTxtBuf, n$ + {{Text|"[0]=(ptrszint)mem_static_malloc("|#FFB100}} + sizestr$ + {{Text|");"|#FFB100}}
            {{Text|IF|#F0F0F0}} stringarray {{Text|THEN|#F0F0F0}}
                {{Text|'Init string pointers in the array|#31C4C4}}
                WriteBufLine DataTxtBuf, {{Text|"tmp_long="|#FFB100}} + elesizestr$ + {{Text|";"|#FFB100}}
                WriteBufLine DataTxtBuf, {{Text|"while(tmp_long--){"|#FFB100}}
                {{Text|IF|#F0F0F0}} cmem {{Text|THEN|#F0F0F0}}
                    WriteBufLine DataTxtBuf, {{Text|"((uint64*)("|#FFB100}} + n$ + {{Text|"[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    WriteBufLine DataTxtBuf, {{Text|"((uint64*)("|#FFB100}} + n$ + {{Text|"[0]))[tmp_long]=(uint64)qbs_new(0,0);"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|'clear array|#31C4C4}}
                WriteBufLine DataTxtBuf, {{Text|"memset((void*)("|#FFB100}} + n$ + {{Text|"[0]),0,"|#FFB100}} + sizestr$ + {{Text|");"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            WriteBufLine DataTxtBuf, n$ + {{Text|"[2]=1+2;"|#FFB100}} {{Text|'init+static|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} udt > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} udtxvariable(udt) {{Text|THEN|#F0F0F0}}
            WriteBufLine DataTxtBuf, {{Text|"tmp_long="|#FFB100}} + elesizestr$ + {{Text|";"|#FFB100}}
            WriteBufLine DataTxtBuf, {{Text|"while(tmp_long--){"|#FFB100}}
            initialise_array_udt_varstrings n$, udt, {{Text|0|#F580B1}}, bytesperelement$, acc$
            WriteBufLine DataTxtBuf, acc$
            WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'Close static array desc|#31C4C4}}
        WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
        allocarray = nume + {{Text|65536|#F580B1}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'------------------END OF STATIC ARRAY CREATION-------------------------|#31C4C4}}
    {{Text|'------------------DYNAMIC ARRAY CREATION-------------------------------|#31C4C4}}
    {{Text|IF|#F0F0F0}} staticarray = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} undefined = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|'Generate error if array is static|#31C4C4}}
            f12$ = f12$ + CRLF + {{Text|"if ("|#FFB100}} + n$ + {{Text|"[2]&2){"|#FFB100}} {{Text|'static array|#31C4C4}}
            f12$ = f12$ + CRLF + {{Text|"error(10);"|#FFB100}} {{Text|'cannot redefine a static array!|#31C4C4}}
            f12$ = f12$ + CRLF + {{Text|"}else{"|#FFB100}}
            {{Text|'Note: Array is either undefined or dynamically defined at this point|#31C4C4}}
            {{Text|'REDIM (not DIM) must be used to redefine an array|#31C4C4}}
            {{Text|IF|#F0F0F0}} redimoption = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                f12$ = f12$ + CRLF + {{Text|"if ("|#FFB100}} + n$ + {{Text|"[2]&1){"|#FFB100}} {{Text|'array is defined|#31C4C4}}
                f12$ = f12$ + CRLF + {{Text|"if (!error_occurred) error(10);"|#FFB100}} {{Text|'cannot redefine an array without using REDIM!|#31C4C4}}
                f12$ = f12$ + CRLF + {{Text|"}else{"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|'--------ERASE EXISTING ARRAY IF NECESSARY--------|#31C4C4}}
                {{Text|'IMPORTANT: If array is not going to be preserved, it should be cleared before|#31C4C4}}
                {{Text|'          creating the new array for memory considerations|#31C4C4}}
                {{Text|'refresh lock ID (_MEM)|#31C4C4}}
                f12$ = f12$ + CRLF + {{Text|"((mem_lock*)((ptrszint*)"|#FFB100}} + n$ + {{Text|")["|#FFB100}} + str2({{Text|4|#F580B1}} * nume + {{Text|4|#F580B1}} + {{Text|1|#F580B1}} - {{Text|1|#F580B1}}) + {{Text|"])->id=(++mem_lock_id);"|#FFB100}}
                {{Text|IF|#F0F0F0}} redimoption = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                    f12$ = f12$ + CRLF + {{Text|"static int32 preserved_elements;"|#FFB100}} {{Text|'must be put here for scope considerations|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'If array is defined, it must be destroyed first|#31C4C4}}
                f12$ = f12$ + CRLF + {{Text|"if ("|#FFB100}} + n$ + {{Text|"[2]&1){"|#FFB100}} {{Text|'array is defined|#31C4C4}}
                {{Text|IF|#F0F0F0}} redimoption = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                    f12$ = f12$ + CRLF + {{Text|"preserved_elements="|#FFB100}} + elesizestr$ + {{Text|";"|#FFB100}}
                    {{Text|GOTO|#F0F0F0}} skiperase
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'Note: pointers to strings must be freed before array can be freed|#31C4C4}}
                {{Text|IF|#F0F0F0}} stringarray {{Text|THEN|#F0F0F0}}
                    f12$ = f12$ + CRLF + {{Text|"tmp_long="|#FFB100}} + elesizestr$ + {{Text|";"|#FFB100}}
                    f12$ = f12$ + CRLF + {{Text|"while(tmp_long--) qbs_free((qbs*)((uint64*)("|#FFB100}} + n$ + {{Text|"[0]))[tmp_long]);"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'As must any variable length strings in UDT's|#31C4C4}}
                {{Text|IF|#F0F0F0}} udt > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} udtxvariable(udt) {{Text|THEN|#F0F0F0}}
                    f12$ = f12$ + CRLF + {{Text|"tmp_long="|#FFB100}} + elesizestr$ + {{Text|";"|#FFB100}}
                    f12$ = f12$ + CRLF + {{Text|"while(tmp_long--) {"|#FFB100}}
                    free_array_udt_varstrings n$, udt, {{Text|0|#F580B1}}, bytesperelement$, acc$
                    f12$ = f12$ + acc$ + {{Text|"}"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'Free array's memory|#31C4C4}}
                {{Text|IF|#F0F0F0}} stringarray {{Text|THEN|#F0F0F0}}
                    {{Text|'Note: String arrays are never in cmem|#31C4C4}}
                    f12$ = f12$ + CRLF + {{Text|"free((void*)("|#FFB100}} + n$ + {{Text|"[0]));"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|'Note: Array may be in cmem!|#31C4C4}}
                    f12$ = f12$ + CRLF + {{Text|"if ("|#FFB100}} + n$ + {{Text|"[2]&4){"|#FFB100}} {{Text|'array is in cmem|#31C4C4}}
                    f12$ = f12$ + CRLF + {{Text|"cmem_dynamic_free((uint8*)("|#FFB100}} + n$ + {{Text|"[0]));"|#FFB100}}
                    f12$ = f12$ + CRLF + {{Text|"}else{"|#FFB100}} {{Text|'not in cmem|#31C4C4}}
                    f12$ = f12$ + CRLF + {{Text|"free((void*)("|#FFB100}} + n$ + {{Text|"[0]));"|#FFB100}}
                    f12$ = f12$ + CRLF + {{Text|"}"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                skiperase:
                f12$ = f12$ + CRLF + {{Text|"}"|#FFB100}} {{Text|'array was defined|#31C4C4}}
                {{Text|IF|#F0F0F0}} redimoption = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                    f12$ = f12$ + CRLF + {{Text|"else preserved_elements=0;"|#FFB100}} {{Text|'if array wasn't defined, no elements are preserved|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'--------ERASED ARRAY AS NECESSARY--------|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'redim specified|#31C4C4}}
            {{Text|'--------CREATE ARRAY & CLEAN-UP CODE--------|#31C4C4}}
            {{Text|'Overwrite existing array dimension sizes/ranges|#31C4C4}}
            f12$ = f12$ + CRLF + sd$
            {{Text|IF|#F0F0F0}} stringarray {{Text|OR|#F0F0F0}} ((udt > {{Text|0|#F580B1}}) {{Text|AND|#F0F0F0}} udtxvariable(udt)) {{Text|THEN|#F0F0F0}}
                {{Text|'Note: String and variable-length udt arrays are always created in 64bit memory|#31C4C4}}
                {{Text|IF|#F0F0F0}} redimoption = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                    f12$ = f12$ + CRLF + {{Text|"if (preserved_elements){"|#FFB100}}
                    f12$ = f12$ + CRLF + {{Text|"static ptrszint tmp_long2;"|#FFB100}}
                    {{Text|'free any qbs strings which will be lost in the realloc|#31C4C4}}
                    f12$ = f12$ + CRLF + {{Text|"tmp_long2="|#FFB100}} + elesizestr$ + {{Text|";"|#FFB100}}
                    f12$ = f12$ + CRLF + {{Text|"if (tmp_long2<preserved_elements){"|#FFB100}}
                    f12$ = f12$ + CRLF + {{Text|"for(tmp_long=tmp_long2;tmp_long<preserved_elements;tmp_long++) {"|#FFB100}}
                    {{Text|IF|#F0F0F0}} stringarray {{Text|THEN|#F0F0F0}}
                        f12$ = f12$ + CRLF + {{Text|"qbs_free((qbs*)((uint64*)("|#FFB100}} + n$ + {{Text|"[0]))[tmp_long]);"|#FFB100}}
                    {{Text|ELSE|#F0F0F0}}
                        acc$ = {{Text|""|#FFB100}}
                        free_array_udt_varstrings n$, udt, {{Text|0|#F580B1}}, bytesperelement$, acc$
                        f12$ = f12$ + acc$
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    f12$ = f12$ + CRLF + {{Text|"}}"|#FFB100}}
                    {{Text|'reallocate the array|#31C4C4}}
                    f12$ = f12$ + CRLF + n$ + {{Text|"[0]=(ptrszint)realloc((void*)("|#FFB100}} + n$ + {{Text|"[0]),tmp_long2*"|#FFB100}} + bytesperelement$ + {{Text|");"|#FFB100}}
                    f12$ = f12$ + CRLF + {{Text|"if (!"|#FFB100}} + n$ + {{Text|"[0]) error(257);"|#FFB100}} {{Text|'not enough memory|#31C4C4}}
                    f12$ = f12$ + CRLF + {{Text|"if (preserved_elements<tmp_long2){"|#FFB100}}
                    f12$ = f12$ + CRLF + {{Text|"for(tmp_long=preserved_elements;tmp_long<tmp_long2;tmp_long++){"|#FFB100}}
                    {{Text|IF|#F0F0F0}} stringarray {{Text|THEN|#F0F0F0}}
                        f12$ = f12$ + CRLF + {{Text|"if ("|#FFB100}} + n$ + {{Text|"[2]&4){"|#FFB100}} {{Text|'array is in cmem|#31C4C4}}
                        f12$ = f12$ + CRLF + {{Text|"((uint64*)("|#FFB100}} + n$ + {{Text|"[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);"|#FFB100}}
                        f12$ = f12$ + CRLF + {{Text|"}else{"|#FFB100}} {{Text|'not in cmem|#31C4C4}}
                        f12$ = f12$ + CRLF + {{Text|"((uint64*)("|#FFB100}} + n$ + {{Text|"[0]))[tmp_long]=(uint64)qbs_new(0,0);"|#FFB100}}
                        f12$ = f12$ + CRLF + {{Text|"}"|#FFB100}} {{Text|'not in cmem|#31C4C4}}
                    {{Text|ELSE|#F0F0F0}}
                        acc$ = {{Text|""|#FFB100}}
                        initialise_array_udt_varstrings n$, udt, {{Text|0|#F580B1}}, bytesperelement$, acc$
                        f12$ = f12$ + acc$
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    f12$ = f12$ + CRLF + {{Text|"}"|#FFB100}}
                    f12$ = f12$ + CRLF + {{Text|"}"|#FFB100}}
                    f12$ = f12$ + CRLF + {{Text|"}else{"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'1. Create array|#31C4C4}}
                f12$ = f12$ + CRLF + n$ + {{Text|"[0]=(ptrszint)malloc("|#FFB100}} + sizestr$ + {{Text|");"|#FFB100}}
                f12$ = f12$ + CRLF + {{Text|"if (!"|#FFB100}} + n$ + {{Text|"[0]) error(257);"|#FFB100}} {{Text|'not enough memory|#31C4C4}}
                f12$ = f12$ + CRLF + n$ + {{Text|"[2]¦=1;"|#FFB100}} {{Text|'ADD initialized flag|#31C4C4}}
                f12$ = f12$ + CRLF + {{Text|"tmp_long="|#FFB100}} + elesizestr$ + {{Text|";"|#FFB100}}
                {{Text|'init individual strings|#31C4C4}}
                {{Text|IF|#F0F0F0}} stringarray {{Text|THEN|#F0F0F0}}
                    f12$ = f12$ + CRLF + {{Text|"if ("|#FFB100}} + n$ + {{Text|"[2]&4){"|#FFB100}} {{Text|'array is in cmem|#31C4C4}}
                    f12$ = f12$ + CRLF + {{Text|"while(tmp_long--) ((uint64*)("|#FFB100}} + n$ + {{Text|"[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);"|#FFB100}}
                    f12$ = f12$ + CRLF + {{Text|"}else{"|#FFB100}} {{Text|'not in cmem|#31C4C4}}
                    f12$ = f12$ + CRLF + {{Text|"while(tmp_long--) ((uint64*)("|#FFB100}} + n$ + {{Text|"[0]))[tmp_long]=(uint64)qbs_new(0,0);"|#FFB100}}
                    f12$ = f12$ + CRLF + {{Text|"}"|#FFB100}} {{Text|'not in cmem|#31C4C4}}
                {{Text|ELSE|#F0F0F0}} {{Text|'initialise udt's|#31C4C4}}
                    f12$ = f12$ + CRLF + {{Text|"while(tmp_long--){"|#FFB100}}
                    acc$ = {{Text|""|#FFB100}}
                    initialise_array_udt_varstrings n$, udt, {{Text|0|#F580B1}}, bytesperelement$, acc$
                    f12$ = f12$ + acc$ + {{Text|"}"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} redimoption = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                    f12$ = f12$ + CRLF + {{Text|"}"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'2. Generate "clean up" code (called when EXITING A SUB/FUNCTION)|#31C4C4}}
                {{Text|IF|#F0F0F0}} arraydesc = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'only add for first declaration of the array|#31C4C4}}
                    WriteBufLine FreeTxtBuf, {{Text|"if ("|#FFB100}} + n$ + {{Text|"[2]&1){"|#FFB100}} {{Text|'initialized?|#31C4C4}}
                    WriteBufLine FreeTxtBuf, {{Text|"tmp_long="|#FFB100}} + elesizestr$ + {{Text|";"|#FFB100}}
                    {{Text|IF|#F0F0F0}} udt > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} udtxvariable(udt) {{Text|THEN|#F0F0F0}}
                        WriteBufLine FreeTxtBuf, {{Text|"while(tmp_long--) {"|#FFB100}}
                        acc$ = {{Text|""|#FFB100}}
                        free_array_udt_varstrings n$, udt, {{Text|0|#F580B1}}, bytesperelement$, acc$
                        WriteBufLine FreeTxtBuf, acc$ + {{Text|"}"|#FFB100}}
                    {{Text|ELSE|#F0F0F0}}
                        WriteBufLine FreeTxtBuf, {{Text|"while(tmp_long--) qbs_free((qbs*)((uint64*)("|#FFB100}} + n$ + {{Text|"[0]))[tmp_long]);"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    WriteBufLine FreeTxtBuf, {{Text|"free((void*)("|#FFB100}} + n$ + {{Text|"[0]));"|#FFB100}}
                    WriteBufLine FreeTxtBuf, {{Text|"}"|#FFB100}}
                    {{Text|'free lock (_MEM)|#31C4C4}}
                    WriteBufLine FreeTxtBuf, {{Text|"free_mem_lock( (mem_lock*)((ptrszint*)"|#FFB100}} + n$ + {{Text|")["|#FFB100}} + str2({{Text|4|#F580B1}} * nume + {{Text|4|#F580B1}} + {{Text|1|#F580B1}} - {{Text|1|#F580B1}}) + {{Text|"] );"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}} {{Text|'not string/var-udt array|#31C4C4}}
                {{Text|'1. Create array|#31C4C4}}
                f12$ = f12$ + CRLF + {{Text|"if ("|#FFB100}} + n$ + {{Text|"[2]&4){"|#FFB100}} {{Text|'array will be in cmem|#31C4C4}}
                {{Text|IF|#F0F0F0}} redimoption = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                    f12$ = f12$ + CRLF + {{Text|"if (preserved_elements){"|#FFB100}}
                    {{Text|'reallocation method|#31C4C4}}
                    {{Text|'backup data|#31C4C4}}
                    f12$ = f12$ + CRLF + {{Text|"memcpy(redim_preserve_cmem_buffer,(void*)("|#FFB100}} + n$ + {{Text|"[0]),preserved_elements*"|#FFB100}} + bytesperelement$ + {{Text|");"|#FFB100}}
                    {{Text|'free old array|#31C4C4}}
                    f12$ = f12$ + CRLF + {{Text|"cmem_dynamic_free((uint8*)("|#FFB100}} + n$ + {{Text|"[0]));"|#FFB100}}
                    f12$ = f12$ + CRLF + {{Text|"tmp_long="|#FFB100}} + elesizestr$ + {{Text|";"|#FFB100}}
                    f12$ = f12$ + CRLF + n$ + {{Text|"[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*"|#FFB100}} + bytesperelement$ + {{Text|");"|#FFB100}}
                    f12$ = f12$ + CRLF + {{Text|"memcpy((void*)("|#FFB100}} + n$ + {{Text|"[0]),redim_preserve_cmem_buffer,preserved_elements*"|#FFB100}} + bytesperelement$ + {{Text|");"|#FFB100}}
                    f12$ = f12$ + CRLF + {{Text|"if (preserved_elements<tmp_long) ZeroMemory(((uint8*)("|#FFB100}} + n$ + {{Text|"[0]))+preserved_elements*"|#FFB100}} + bytesperelement$ + {{Text|",(tmp_long*"|#FFB100}} + bytesperelement$ + {{Text|")-(preserved_elements*"|#FFB100}} + bytesperelement$ + {{Text|"));"|#FFB100}}
                    f12$ = f12$ + CRLF + {{Text|"}else{"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'standard cmem method|#31C4C4}}
                f12$ = f12$ + CRLF + n$ + {{Text|"[0]=(ptrszint)cmem_dynamic_malloc("|#FFB100}} + sizestr$ + {{Text|");"|#FFB100}}
                {{Text|'clear array|#31C4C4}}
                f12$ = f12$ + CRLF + {{Text|"memset((void*)("|#FFB100}} + n$ + {{Text|"[0]),0,"|#FFB100}} + sizestr$ + {{Text|");"|#FFB100}}
                {{Text|IF|#F0F0F0}} redimoption = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                    f12$ = f12$ + CRLF + {{Text|"}"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                f12$ = f12$ + CRLF + {{Text|"}else{"|#FFB100}} {{Text|'not in cmem|#31C4C4}}
                {{Text|IF|#F0F0F0}} redimoption = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                    f12$ = f12$ + CRLF + {{Text|"if (preserved_elements){"|#FFB100}}
                    {{Text|'reallocation method|#31C4C4}}
                    f12$ = f12$ + CRLF + {{Text|"tmp_long="|#FFB100}} + elesizestr$ + {{Text|";"|#FFB100}}
                    f12$ = f12$ + CRLF + n$ + {{Text|"[0]=(ptrszint)realloc((void*)("|#FFB100}} + n$ + {{Text|"[0]),tmp_long*"|#FFB100}} + bytesperelement$ + {{Text|");"|#FFB100}}
                    f12$ = f12$ + CRLF + {{Text|"if (!"|#FFB100}} + n$ + {{Text|"[0]) error(257);"|#FFB100}} {{Text|'not enough memory|#31C4C4}}
                    f12$ = f12$ + CRLF + {{Text|"if (preserved_elements<tmp_long) ZeroMemory(((uint8*)("|#FFB100}} + n$ + {{Text|"[0]))+preserved_elements*"|#FFB100}} + bytesperelement$ + {{Text|",(tmp_long*"|#FFB100}} + bytesperelement$ + {{Text|")-(preserved_elements*"|#FFB100}} + bytesperelement$ + {{Text|"));"|#FFB100}}
                    f12$ = f12$ + CRLF + {{Text|"}else{"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'standard allocation method|#31C4C4}}
                f12$ = f12$ + CRLF + n$ + {{Text|"[0]=(ptrszint)calloc("|#FFB100}} + sizestr$ + {{Text|",1);"|#FFB100}}
                f12$ = f12$ + CRLF + {{Text|"if (!"|#FFB100}} + n$ + {{Text|"[0]) error(257);"|#FFB100}} {{Text|'not enough memory|#31C4C4}}
                {{Text|IF|#F0F0F0}} redimoption = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                    f12$ = f12$ + CRLF + {{Text|"}"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                f12$ = f12$ + CRLF + {{Text|"}"|#FFB100}} {{Text|'not in cmem|#31C4C4}}
                f12$ = f12$ + CRLF + n$ + {{Text|"[2]¦=1;"|#FFB100}} {{Text|'ADD initialized flag|#31C4C4}}
                {{Text|'2. Generate "clean up" code (called when EXITING A SUB/FUNCTION)|#31C4C4}}
                {{Text|IF|#F0F0F0}} arraydesc = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'only add for first declaration of the array|#31C4C4}}
                    WriteBufLine FreeTxtBuf, {{Text|"if ("|#FFB100}} + n$ + {{Text|"[2]&1){"|#FFB100}} {{Text|'initialized?|#31C4C4}}
                    WriteBufLine FreeTxtBuf, {{Text|"if ("|#FFB100}} + n$ + {{Text|"[2]&4){"|#FFB100}} {{Text|'array is in cmem|#31C4C4}}
                    WriteBufLine FreeTxtBuf, {{Text|"cmem_dynamic_free((uint8*)("|#FFB100}} + n$ + {{Text|"[0]));"|#FFB100}}
                    WriteBufLine FreeTxtBuf, {{Text|"}else{"|#FFB100}}
                    WriteBufLine FreeTxtBuf, {{Text|"free((void*)("|#FFB100}} + n$ + {{Text|"[0]));"|#FFB100}}
                    WriteBufLine FreeTxtBuf, {{Text|"}"|#FFB100}} {{Text|'cmem|#31C4C4}}
                    WriteBufLine FreeTxtBuf, {{Text|"}"|#FFB100}} {{Text|'init|#31C4C4}}
                    {{Text|'free lock (_MEM)|#31C4C4}}
                    WriteBufLine FreeTxtBuf, {{Text|"free_mem_lock( (mem_lock*)((ptrszint*)"|#FFB100}} + n$ + {{Text|")["|#FFB100}} + str2({{Text|4|#F580B1}} * nume + {{Text|4|#F580B1}} + {{Text|1|#F580B1}} - {{Text|1|#F580B1}}) + {{Text|"] );"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'not string array|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'undefined=0|#31C4C4}}
        {{Text|'----FINISH ARRAY DESCRIPTOR IF DEFINING FOR THE FIRST TIME----|#31C4C4}}
        {{Text|IF|#F0F0F0}} arraydesc = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|'Note: Array is init as undefined (& possibly a cmem flag)|#31C4C4}}
            {{Text|IF|#F0F0F0}} cmem {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, n$ + {{Text|"[2]=4;"|#FFB100}} {{Text|ELSE|#F0F0F0}} WriteBufLine DataTxtBuf, n$ + {{Text|"[2]=0;"|#FFB100}}
            {{Text|'set dimensions as undefined|#31C4C4}}
            {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} nume
                b = i * {{Text|4|#F580B1}}
                WriteBufLine DataTxtBuf, n$ + {{Text|"["|#FFB100}} + str2(b) + {{Text|"]=2147483647;"|#FFB100}} {{Text|'base|#31C4C4}}
                WriteBufLine DataTxtBuf, n$ + {{Text|"["|#FFB100}} + str2(b + {{Text|1|#F580B1}}) + {{Text|"]=0;"|#FFB100}} {{Text|'num. index|#31C4C4}}
                WriteBufLine DataTxtBuf, n$ + {{Text|"["|#FFB100}} + str2(b + {{Text|2|#F580B1}}) + {{Text|"]=0;"|#FFB100}} {{Text|'multiplier|#31C4C4}}
            {{Text|NEXT|#F0F0F0}}
            {{Text|IF|#F0F0F0}} stringarray {{Text|THEN|#F0F0F0}}
                {{Text|'set array's data offset to the offset of the offset to nothingstring|#31C4C4}}
                WriteBufLine DataTxtBuf, n$ + {{Text|"[0]=(ptrszint)&nothingstring;"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|'set array's data offset to "nothing"|#31C4C4}}
                WriteBufLine DataTxtBuf, n$ + {{Text|"[0]=(ptrszint)nothingvalue;"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}} {{Text|'close array descriptor|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'arraydesc = 0|#31C4C4}}
        {{Text|IF|#F0F0F0}} undefined = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} redimoption = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} f12$ = f12$ + CRLF + {{Text|"}"|#FFB100}} {{Text|'if REDIM not specified the above is conditional|#31C4C4}}
            f12$ = f12$ + CRLF + {{Text|"}"|#FFB100}} {{Text|'not static|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'undefined=0|#31C4C4}}
        allocarray = nume
        {{Text|IF|#F0F0F0}} undefined = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} allocarray = {{Text|-1|#F580B1}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} autoary = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} dimoption = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'STATIC a(100) puts creation code in main|#31C4C4}}
            WriteBufLine DataTxtBuf, f12$
        {{Text|ELSE|#F0F0F0}}
            WriteBufLine MainTxtBuf, f12$
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'[8] offset of data|#31C4C4}}
    {{Text|'[8] reserved (could be used to store a bit offset)|#31C4C4}}
    {{Text|'(the following repeats depending on the number of elements)|#31C4C4}}
    {{Text|'[4] base-offset|#31C4C4}}
    {{Text|'[4] number of indexes|#31C4C4}}
    {{Text|'[4] multiplier (the last multiplier doesn't actually exist)|#31C4C4}}
    {{Text|'[4] reserved|#31C4C4}}
    dimshared = dimsharedlast
    tlayout$ = l$
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} arrayreference$ (indexes$, typ)
    arrayprocessinghappened = {{Text|1|#F580B1}}
    {{Text|'*returns an array reference: idnumber ¦ index$|#31C4C4}}
    {{Text|'*does not take into consideration the type of the array|#31C4C4}}
    {{Text|'*expects array id to be passed in the global id structure|#31C4C4}}
    idnumber$ = str2(currentid)
    {{Text|DIM|#F0F0F0}} id2 {{Text|AS|#F0F0F0}} idstruct
    id2 = id
    a$ = indexes$
    typ = id2.arraytype + ISARRAY + ISREFERENCE
    n$ = {{Text|RTRIM$|#F0F0F0}}(id2.callname)
    {{Text|IF|#F0F0F0}} a$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|'no indexes passed eg. a()|#31C4C4}}
        r$ = {{Text|"0"|#FFB100}}
        {{Text|GOTO|#F0F0F0}} gotarrayindex
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    n = numelements(a$)
    {{Text|'find number of elements supplied|#31C4C4}}
    elements = {{Text|1|#F580B1}}
    b = {{Text|0|#F580B1}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
        a = {{Text|ASC|#F0F0F0}}(getelement(a$, i))
        {{Text|IF|#F0F0F0}} a = {{Text|40|#F580B1}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} a = {{Text|41|#F580B1}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} a = {{Text|44|#F580B1}} {{Text|AND|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} elements = elements + {{Text|1|#F580B1}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|IF|#F0F0F0}} id2.arrayelements = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} arrayelementslist(currentid) <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} elements <> arrayelementslist(currentid) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot change the number of elements an array has!"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} elements = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} id2.arrayelements = {{Text|1|#F580B1}}: ids(currentid).arrayelements = {{Text|1|#F580B1}} {{Text|'lucky guess|#31C4C4}}
        arrayelementslist(currentid) = elements
    {{Text|ELSE|#F0F0F0}}
        {{Text|IF|#F0F0F0}} elements <> id2.arrayelements {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot change the number of elements an array has!"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    curarg = {{Text|1|#F580B1}}
    firsti = {{Text|1|#F580B1}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
        l$ = getelement(a$, i)
        {{Text|IF|#F0F0F0}} l$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} l$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} (l$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} b = {{Text|0|#F580B1}}) {{Text|OR|#F0F0F0}} (i = n) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} l$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Array index missing"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                e$ = evaluatetotyp(getelements$(a$, firsti, i), {{Text|64&|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}}
                e$ = evaluatetotyp(getelements$(a$, firsti, i - {{Text|1|#F580B1}}), {{Text|64&|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} e$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Array index missing"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            argi = (elements - curarg) * {{Text|4|#F580B1}} + {{Text|4|#F580B1}}
            {{Text|IF|#F0F0F0}} curarg = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    r$ = r$ + {{Text|"array_check(("|#FFB100}} + e$ + {{Text|")-"|#FFB100}} + n$ + {{Text|"["|#FFB100}} + str2(argi) + {{Text|"],"|#FFB100}} + n$ + {{Text|"["|#FFB100}} + str2(argi + {{Text|1|#F580B1}}) + {{Text|"])+"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    r$ = r$ + {{Text|"("|#FFB100}} + e$ + {{Text|")-"|#FFB100}} + n$ + {{Text|"["|#FFB100}} + str2(argi) + {{Text|"]+"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    r$ = r$ + {{Text|"array_check(("|#FFB100}} + e$ + {{Text|")-"|#FFB100}} + n$ + {{Text|"["|#FFB100}} + str2(argi) + {{Text|"],"|#FFB100}} + n$ + {{Text|"["|#FFB100}} + str2(argi + {{Text|1|#F580B1}}) + {{Text|"])*"|#FFB100}} + n$ + {{Text|"["|#FFB100}} + str2(argi + {{Text|2|#F580B1}}) + {{Text|"]+"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    r$ = r$ + {{Text|"(("|#FFB100}} + e$ + {{Text|")-"|#FFB100}} + n$ + {{Text|"["|#FFB100}} + str2(argi) + {{Text|"])*"|#FFB100}} + n$ + {{Text|"["|#FFB100}} + str2(argi + {{Text|2|#F580B1}}) + {{Text|"]+"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            firsti = i + {{Text|1|#F580B1}}
            curarg = curarg + {{Text|1|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    r$ = {{Text|LEFT$|#F0F0F0}}(r$, {{Text|LEN|#F0F0F0}}(r$) - {{Text|1|#F580B1}}) {{Text|'remove trailing +|#31C4C4}}
    gotarrayindex:
    r$ = idnumber$ + sp3 + r$
    arrayreference$ = r$
    {{Text|'PRINT "arrayreference returning:" + r$|#31C4C4}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|SUB|#F0F0F0}} assign (a$, n)
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
        c = {{Text|ASC|#F0F0F0}}(getelement$(a$, i))
        {{Text|IF|#F0F0F0}} c = {{Text|40|#F580B1}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}} {{Text|'(|#31C4C4}}
        {{Text|IF|#F0F0F0}} c = {{Text|41|#F580B1}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}} {{Text|')|#31C4C4}}
        {{Text|IF|#F0F0F0}} c = {{Text|61|#F580B1}} {{Text|AND|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'=|#31C4C4}}
            {{Text|IF|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected ... ="|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected = ..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            a2$ = fixoperationorder(getelements$(a$, {{Text|1|#F580B1}}, i - {{Text|1|#F580B1}}))
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            l$ = tlayout$ + sp + {{Text|"="|#FFB100}} + sp
            {{Text|'note: evaluating a2$ will fail if it is setting a function's return value without this check (as the function, not the return-variable) will be found by evaluate)|#31C4C4}}
            {{Text|IF|#F0F0F0}} i = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'lhs has only 1 element|#31C4C4}}
                try = findid(a2$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                    {{Text|IF|#F0F0F0}} id.t {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} subfuncn = id.insubfuncn {{Text|THEN|#F0F0F0}} {{Text|'avoid global before local|#31C4C4}}
                            {{Text|IF|#F0F0F0}} (id.t {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                makeidrefer a2$, typ
                                {{Text|GOTO|#F0F0F0}} assignsimplevariable
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(a2$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                {{Text|LOOP|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            a2$ = evaluate$(a2$, typ): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            assignsimplevariable:
            {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected variable ="|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            setrefer a2$, typ, getelements$(a$, i + {{Text|1|#F580B1}}, n), {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            tlayout$ = l$ + tlayout$
            {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'=,b=0|#31C4C4}}
    {{Text|NEXT|#F0F0F0}}
    Give_Error {{Text|"Expected ="|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} clearid
    id = cleariddata
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} vWatchVariable (this$, action {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}})
    {{Text|STATIC|#F0F0F0}} totalLocalVariables {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, localVariablesList$
    {{Text|STATIC|#F0F0F0}} totalMainModuleVariables {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, mainModuleVariablesList$
    {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} action
        {{Text|CASE|#F0F0F0}} {{Text|-1|#F580B1}} {{Text|'reset|#31C4C4}}
            totalLocalVariables = {{Text|0|#F580B1}}
            localVariablesList$ = {{Text|""|#FFB100}}
            totalMainModuleVariables = {{Text|0|#F580B1}}
            mainModuleVariablesList$ = {{Text|""|#FFB100}}
        {{Text|CASE|#F0F0F0}} {{Text|0|#F580B1}} {{Text|'add|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(vWatchVariableExclusions$, {{Text|"@"|#FFB100}} + this$ + {{Text|"@"|#FFB100}}) > {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(this$, {{Text|12|#F580B1}}) = {{Text|"_SUB_VWATCH_"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            vWatchNewVariable$ = this$
            {{Text|IF|#F0F0F0}} subfunc = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                totalMainModuleVariables = totalMainModuleVariables + {{Text|1|#F580B1}}
                mainModuleVariablesList$ = mainModuleVariablesList$ + {{Text|"vwatch_global_vars["|#FFB100}} + str2$(totalMainModuleVariables - {{Text|1|#F580B1}}) + {{Text|"] = &"|#FFB100}} + this$ + {{Text|";"|#FFB100}} + CRLF
                manageVariableList id.cn, this$, totalMainModuleVariables - {{Text|1|#F580B1}}, {{Text|0|#F580B1}}
            {{Text|ELSE|#F0F0F0}}
                totalLocalVariables = totalLocalVariables + {{Text|1|#F580B1}}
                localVariablesList$ = localVariablesList$ + {{Text|"vwatch_local_vars["|#FFB100}} + str2$(totalLocalVariables - {{Text|1|#F580B1}}) + {{Text|"] = &"|#FFB100}} + this$ + {{Text|";"|#FFB100}} + CRLF
                manageVariableList id.cn, this$, totalLocalVariables - {{Text|1|#F580B1}}, {{Text|0|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|CASE|#F0F0F0}} {{Text|1|#F580B1}} {{Text|'dump to data[].txt & reset|#31C4C4}}
            {{Text|IF|#F0F0F0}} subfunc = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} totalMainModuleVariables > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    WriteBufLine DataTxtBuf, {{Text|"void *vwatch_local_vars[0];"|#FFB100}}
                    WriteBufLine GlobTxtBuf, {{Text|"void *vwatch_global_vars["|#FFB100}} + {{Text|STR$|#F0F0F0}}(totalMainModuleVariables) + {{Text|"];"|#FFB100}}
                    WriteBufLine DataTxtBuf, mainModuleVariablesList$
                {{Text|ELSE|#F0F0F0}}
                    WriteBufLine DataTxtBuf, {{Text|"void *vwatch_local_vars[0];"|#FFB100}}
                    WriteBufLine GlobTxtBuf, {{Text|"void *vwatch_global_vars[0];"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                mainModuleVariablesList$ = {{Text|""|#FFB100}}
                totalMainModuleVariables = {{Text|0|#F580B1}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} subfunc <> {{Text|"SUB_VWATCH"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} totalLocalVariables > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        WriteBufLine DataTxtBuf, {{Text|"void *vwatch_local_vars["|#FFB100}} + {{Text|STR$|#F0F0F0}}(totalLocalVariables) + {{Text|"];"|#FFB100}}
                        WriteBufLine DataTxtBuf, localVariablesList$
                    {{Text|ELSE|#F0F0F0}}
                        WriteBufLine DataTxtBuf, {{Text|"void *vwatch_local_vars[0];"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|ELSE|#F0F0F0}}
                    WriteBufLine DataTxtBuf, {{Text|"void *vwatch_local_vars[0];"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                localVariablesList$ = {{Text|""|#FFB100}}
                totalLocalVariables = {{Text|0|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} vWatchAddLabel (this {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, lastLine {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}})
    {{Text|STATIC|#F0F0F0}} prevLabel {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, prevSkip {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    {{Text|IF|#F0F0F0}} lastLine = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|WHILE|#F0F0F0}} this > {{Text|LEN|#F0F0F0}}(vWatchUsedLabels)
            vWatchUsedLabels = vWatchUsedLabels + {{Text|SPACE$|#F0F0F0}}({{Text|1000|#F580B1}})
            vWatchUsedSkipLabels = vWatchUsedSkipLabels + {{Text|SPACE$|#F0F0F0}}({{Text|1000|#F580B1}})
        {{Text|WEND|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstLineNumberLabelvWatch = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            firstLineNumberLabelvWatch = this
        {{Text|ELSE|#F0F0F0}}
            {{Text|IF|#F0F0F0}} prevSkip <> prevLabel {{Text|THEN|#F0F0F0}}
                {{Text|ASC|#F0F0F0}}(vWatchUsedSkipLabels, prevLabel) = {{Text|1|#F580B1}}
                WriteBufLine MainTxtBuf, {{Text|"VWATCH_SKIPLABEL_"|#FFB100}} + str2$(prevLabel) + {{Text|":;"|#FFB100}}
                prevSkip = prevLabel
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} prevLabel <> this {{Text|THEN|#F0F0F0}}
            {{Text|ASC|#F0F0F0}}(vWatchUsedLabels, this) = {{Text|1|#F580B1}}
            WriteBufLine MainTxtBuf, {{Text|"VWATCH_LABEL_"|#FFB100}} + str2$(this) + {{Text|":;"|#FFB100}}
            prevLabel = this
            lastLineNumberLabelvWatch = this
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|ELSE|#F0F0F0}}
        {{Text|IF|#F0F0F0}} prevSkip <> prevLabel {{Text|THEN|#F0F0F0}}
            {{Text|ASC|#F0F0F0}}(vWatchUsedSkipLabels, prevLabel) = {{Text|1|#F580B1}}
            WriteBufLine MainTxtBuf, {{Text|"VWATCH_SKIPLABEL_"|#FFB100}} + str2$(prevLabel) + {{Text|":;"|#FFB100}}
            prevSkip = prevLabel
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} closemain
    xend
    WriteBufLine MainTxtBuf, {{Text|"return;"|#FFB100}}
    {{Text|IF|#F0F0F0}} vWatchOn {{Text|AND|#F0F0F0}} firstLineNumberLabelvWatch > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        WriteBufLine MainTxtBuf, {{Text|"VWATCH_SETNEXTLINE:;"|#FFB100}}
        WriteBufLine MainTxtBuf, {{Text|"switch (*__LONG_VWATCH_GOTO) {"|#FFB100}}
        {{Text|FOR|#F0F0F0}} i = firstLineNumberLabelvWatch {{Text|TO|#F0F0F0}} lastLineNumberLabelvWatch
            {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(vWatchUsedLabels, i) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"    case "|#FFB100}} + str2$(i) + {{Text|":"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"        goto VWATCH_LABEL_"|#FFB100}} + str2$(i) + {{Text|";"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"        break;"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|NEXT|#F0F0F0}}
        WriteBufLine MainTxtBuf, {{Text|"    default:"|#FFB100}}
        WriteBufLine MainTxtBuf, {{Text|"        *__LONG_VWATCH_GOTO=*__LONG_VWATCH_LINENUMBER;"|#FFB100}}
        WriteBufLine MainTxtBuf, {{Text|"        goto VWATCH_SETNEXTLINE;"|#FFB100}}
        WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
        WriteBufLine MainTxtBuf, {{Text|"VWATCH_SKIPLINE:;"|#FFB100}}
        WriteBufLine MainTxtBuf, {{Text|"switch (*__LONG_VWATCH_GOTO) {"|#FFB100}}
        {{Text|FOR|#F0F0F0}} i = firstLineNumberLabelvWatch {{Text|TO|#F0F0F0}} lastLineNumberLabelvWatch
            {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(vWatchUsedSkipLabels, i) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"    case -"|#FFB100}} + str2$(i) + {{Text|":"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"        goto VWATCH_SKIPLABEL_"|#FFB100}} + str2$(i) + {{Text|";"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"        break;"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|NEXT|#F0F0F0}}
        WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
    WriteBufLine RetTxtBuf, {{Text|"}"|#FFB100}} {{Text|'end case|#31C4C4}}
    WriteBufLine RetTxtBuf, {{Text|"}"|#FFB100}}
    WriteBufLine RetTxtBuf, {{Text|"error(3);"|#FFB100}} {{Text|'no valid return possible|#31C4C4}}
    closedmain = {{Text|1|#F580B1}}
    firstLineNumberLabelvWatch = {{Text|0|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} countelements (a$)
    n = numelements(a$)
    c = {{Text|1|#F580B1}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
        e$ = getelement$(a$, i)
        {{Text|IF|#F0F0F0}} e$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} e$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} b < {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Unexpected ) encountered"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} e$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} c = c + {{Text|1|#F580B1}}
    {{Text|NEXT|#F0F0F0}}
    countelements = c
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} dim2 (varname$, typ2$, method, elements$)
    {{Text|'notes: (DO NOT REMOVE THESE IMPORTANT USAGE NOTES)|#31C4C4}}
    {{Text|'|#31C4C4}}
    {{Text|'(shared)dimsfarray: Creates an ID only (no C++ code)|#31C4C4}}
    {{Text|'                    Adds an index/'link' to the sub/function's argument|#31C4C4}}
    {{Text|'                        ID.sfid=glinkid|#31C4C4}}
    {{Text|'                        ID.sfarg=glinkarg|#31C4C4}}
    {{Text|'                    Sets arrayelements=-1 'unknown' (if elements$="?") otherwise val(elements$)|#31C4C4}}
    {{Text|'                    ***Does not refer to arrayelementslist()***|#31C4C4}}
    {{Text|'|#31C4C4}}
    {{Text|'(argument)method: 0 being created by a DIM name AS type|#31C4C4}}
    {{Text|'                  1 being created by a DIM name+symbol|#31C4C4}}
    {{Text|'                  or automatically without the use of DIM|#31C4C4}}
    {{Text|'|#31C4C4}}
    {{Text|'elements$="?": (see also dimsfarray for that special case)|#31C4C4}}
    {{Text|'              Checks arrayelementslist() and;|#31C4C4}}
    {{Text|'              if unknown(=0), creates an ID only|#31C4C4}}
    {{Text|'              if known, creates a DYNAMIC array's C++ initialization code so it can be used later|#31C4C4}}
    typ$ = typ2$
    dim2 = {{Text|1|#F580B1}} {{Text|'success|#31C4C4}}
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"dim2 called"|#FFB100}}, method
    cvarname$ = varname$
    l$ = cvarname$
    varname$ = {{Text|UCASE$|#F0F0F0}}(varname$)
    {{Text|IF|#F0F0F0}} dimsfarray = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} f = {{Text|0|#F580B1}} {{Text|ELSE|#F0F0F0}} f = {{Text|1|#F580B1}}
    {{Text|IF|#F0F0F0}} dimstatic <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} dimshared = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|'name will have include the sub/func name in its scope|#31C4C4}}
        {{Text|'variable/array will be created in main on startup|#31C4C4}}
        defdatahandle = GlobTxtBuf
        DataTxtBuf = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"maindata.txt"|#FFB100}})
        FreeTxtBuf = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"mainfree.txt"|#FFB100}})
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    scope2$ = module$ + {{Text|"_"|#FFB100}} + subfunc$ + {{Text|"_"|#FFB100}}
    {{Text|'Note: when REDIMing a SHARED array in dynamic memory scope2$ must be modified|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(typ$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"DIM2: No type specified!"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|'UDT|#31C4C4}}
    {{Text|'is it a udt?|#31C4C4}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} lasttype
        {{Text|IF|#F0F0F0}} typ$ = {{Text|RTRIM$|#F0F0F0}}(udtxname(i)) {{Text|OR|#F0F0F0}} (typ$ = {{Text|"MEM"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(udtxname(i)) = {{Text|"_MEM"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
            dim2typepassback$ = {{Text|RTRIM$|#F0F0F0}}(udtxcname(i))
            {{Text|IF|#F0F0F0}} typ$ = {{Text|"MEM"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(udtxname(i)) = {{Text|"_MEM"|#FFB100}} {{Text|THEN|#F0F0F0}}
                dim2typepassback$ = {{Text|MID$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(udtxcname(i)), {{Text|2|#F580B1}})
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            n$ = {{Text|"UDT_"|#FFB100}} + varname$
            {{Text|'array of UDTs|#31C4C4}}
            {{Text|IF|#F0F0F0}} elements$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                arraydesc = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    try = findid(varname$)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                        {{Text|IF|#F0F0F0}} (id.arraytype) {{Text|THEN|#F0F0F0}}
                            l$ = {{Text|RTRIM$|#F0F0F0}}(id.cn)
                            arraydesc = currentid: scope2$ = scope$
                            {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(varname$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|LOOP|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                n$ = scope2$ + {{Text|"ARRAY_"|#FFB100}} + n$
                bits = udtxsize(i)
                {{Text|IF|#F0F0F0}} udtxbytealign(i) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} bits {{Text|MOD|#F0F0F0}} {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} bits = bits + {{Text|8|#F580B1}} - (bits {{Text|MOD|#F0F0F0}} {{Text|8|#F580B1}})
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|ASC|#F0F0F0}}(elements$) = {{Text|63|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"?"|#31C4C4}}
                        E = arrayelementslist(idn + {{Text|1|#F580B1}}): {{Text|IF|#F0F0F0}} E {{Text|THEN|#F0F0F0}} elements$ = elements$ + str2$(E) {{Text|'eg. "?3" for a 3 dimensional array|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    nume = allocarray(n$, elements$, {{Text|-bits|#F580B1}}, i)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    l$ = l$ + sp + tlayout$
                    {{Text|IF|#F0F0F0}} arraydesc {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} dim2exitfunc
                    clearid
                {{Text|ELSE|#F0F0F0}}
                    clearid
                    {{Text|IF|#F0F0F0}} elements$ = {{Text|"?"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        nume = {{Text|-1|#F580B1}}
                        id.linkid = glinkid
                        id.linkarg = glinkarg
                    {{Text|ELSE|#F0F0F0}}
                        nume = {{Text|VAL|#F0F0F0}}(elements$)
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                id.arraytype = UDTTYPE + i
                {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} id.arraytype = id.arraytype + ISINCONVENTIONALMEMORY
                id.n = cvarname$
                {{Text|IF|#F0F0F0}} nume > {{Text|65536|#F580B1}} {{Text|THEN|#F0F0F0}} nume = nume - {{Text|65536|#F580B1}}: id.staticarray = {{Text|1|#F580B1}}
                id.arrayelements = nume
                id.callname = n$
                regid
                vWatchVariable n$, {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|GOTO|#F0F0F0}} dim2exitfunc
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'not an array of UDTs|#31C4C4}}
            bits = udtxsize(i): bytes = bits \ {{Text|8|#F580B1}}
            {{Text|IF|#F0F0F0}} bits {{Text|MOD|#F0F0F0}} {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}}
                bytes = bytes + {{Text|1|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            n$ = scope2$ + n$
            {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine defdatahandle, {{Text|"void *"|#FFB100}} + n$ + {{Text|"=NULL;"|#FFB100}}
            clearid
            id.n = cvarname$
            id.t = UDTTYPE + i
            {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                id.t = id.t + ISINCONVENTIONALMEMORY
                {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}}
                    WriteBufLine DataTxtBuf, {{Text|"if("|#FFB100}} + n$ + {{Text|"==NULL){"|#FFB100}}
                    WriteBufLine DataTxtBuf, {{Text|"cmem_sp-="|#FFB100}} + str2(bytes) + {{Text|";"|#FFB100}}
                    WriteBufLine DataTxtBuf, {{Text|"if (cmem_sp<qbs_cmem_sp) error(257);"|#FFB100}}
                    WriteBufLine DataTxtBuf, n$ + {{Text|"=(void*)(dblock+cmem_sp);"|#FFB100}}
                    WriteBufLine DataTxtBuf, {{Text|"memset("|#FFB100}} + n$ + {{Text|",0,"|#FFB100}} + str2(bytes) + {{Text|");"|#FFB100}}
                    WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}}
                    WriteBufLine DataTxtBuf, {{Text|"if("|#FFB100}} + n$ + {{Text|"==NULL){"|#FFB100}}
                    WriteBufLine DataTxtBuf, n$ + {{Text|"=(void*)mem_static_malloc("|#FFB100}} + str2$(bytes) + {{Text|");"|#FFB100}}
                    WriteBufLine DataTxtBuf, {{Text|"memset("|#FFB100}} + n$ + {{Text|",0,"|#FFB100}} + str2(bytes) + {{Text|");"|#FFB100}}
                    {{Text|IF|#F0F0F0}} udtxvariable(i) {{Text|THEN|#F0F0F0}}
                        initialise_udt_varstrings n$, i, DataTxtBuf, {{Text|0|#F580B1}}
                        free_udt_varstrings n$, i, FreeTxtBuf, {{Text|0|#F580B1}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            id.callname = n$
            regid
            vWatchVariable n$, {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} dim2exitfunc
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}} i
    {{Text|'it isn't a udt|#31C4C4}}
    typ$ = symbol2fulltypename$(typ$)
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|'check if _UNSIGNED was specified|#31C4C4}}
    unsgn = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(typ$, {{Text|10|#F580B1}}) = {{Text|"_UNSIGNED "|#FFB100}} {{Text|OR|#F0F0F0}} ({{Text|LEFT$|#F0F0F0}}(typ$, {{Text|9|#F580B1}}) = {{Text|"UNSIGNED "|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
        unsgn = {{Text|1|#F580B1}}
        typ$ = {{Text|MID$|#F0F0F0}}(typ$, {{Text|INSTR|#F0F0F0}}(typ$, {{Text|CHR$|#F0F0F0}}({{Text|32|#F580B1}})) + {{Text|1|#F580B1}})
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(typ$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected more type information after "|#FFB100}} + qb64prefix$ + {{Text|"UNSIGNED!"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    n$ = {{Text|""|#FFB100}} {{Text|'n$ is assumed to be "" after branching into the code for each type|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(typ$, {{Text|6|#F580B1}}) = {{Text|"STRING"|#FFB100}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(typ$) > {{Text|6|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(typ$, {{Text|9|#F580B1}}) <> {{Text|"STRING * "|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected STRING * number/constant"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            c$ = {{Text|RIGHT$|#F0F0F0}}(typ$, {{Text|LEN|#F0F0F0}}(typ$) - {{Text|9|#F580B1}})
            {{Text|'constant check 2011|#31C4C4}}
            hashfound = {{Text|0|#F580B1}}
            hashname$ = c$
            hashchkflags = HASHFLAG_CONSTANT
            hashres = HashFindRev(hashname$, hashchkflags, hashresflags, hashresref)
            {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} hashres
                {{Text|IF|#F0F0F0}} constsubfunc(hashresref) = subfuncn {{Text|OR|#F0F0F0}} constsubfunc(hashresref) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} constdefined(hashresref) {{Text|THEN|#F0F0F0}}
                        hashfound = {{Text|1|#F580B1}}
                        {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} hashres <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} hashres = HashFindCont(hashresflags, hashresref) {{Text|ELSE|#F0F0F0}} hashres = {{Text|0|#F580B1}}
            {{Text|LOOP|#F0F0F0}}
            {{Text|IF|#F0F0F0}} hashfound {{Text|THEN|#F0F0F0}}
                i2 = hashresref
                t = consttype(i2)
                {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected STRING * numeric-constant"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|'convert value to general formats|#31C4C4}}
                {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
                    v## = constfloat(i2)
                    v&& = v##
                    v~&& = v&&
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}}
                        v~&& = constuinteger(i2)
                        v&& = v~&&
                        v## = v&&
                    {{Text|ELSE|#F0F0F0}}
                        v&& = constinteger(i2)
                        v## = v&&
                        v~&& = v&&
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} v&& < {{Text|1|#F580B1}} {{Text|OR|#F0F0F0}} v&& > {{Text|9999999999|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"STRING * out-of-range constant"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                bytes = v&&
                dim2typepassback$ = SCase$({{Text|"String * "|#FFB100}}) + constcname(i2)
                {{Text|GOTO|#F0F0F0}} constantlenstr
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} isuinteger(c$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Number/Constant expected after *"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(c$) > {{Text|10|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Too many characters in number after *"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            bytes = {{Text|VAL|#F0F0F0}}(c$)
            {{Text|IF|#F0F0F0}} bytes = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot create a fixed string of length 0"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            constantlenstr:
            n$ = {{Text|"STRING"|#FFB100}} + str2(bytes) + {{Text|"_"|#FFB100}} + varname$
            {{Text|'array of fixed length strings|#31C4C4}}
            {{Text|IF|#F0F0F0}} elements$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                arraydesc = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    try = findid(varname$ + {{Text|"$"|#FFB100}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                        {{Text|IF|#F0F0F0}} (id.arraytype) {{Text|THEN|#F0F0F0}}
                            l$ = {{Text|RTRIM$|#F0F0F0}}(id.cn)
                            arraydesc = currentid: scope2$ = scope$
                            {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(varname$ + {{Text|"$"|#FFB100}}) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|LOOP|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                n$ = scope2$ + {{Text|"ARRAY_"|#FFB100}} + n$
                {{Text|'nume = allocarray(n$, elements$, bytes)|#31C4C4}}
                {{Text|'IF arraydesc THEN goto dim2exitfunc 'id already exists!|#31C4C4}}
                {{Text|'clearid|#31C4C4}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|ASC|#F0F0F0}}(elements$) = {{Text|63|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"?"|#31C4C4}}
                        E = arrayelementslist(idn + {{Text|1|#F580B1}}): {{Text|IF|#F0F0F0}} E {{Text|THEN|#F0F0F0}} elements$ = elements$ + str2$(E) {{Text|'eg. "?3" for a 3 dimensional array|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    nume = allocarray(n$, elements$, bytes, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    l$ = l$ + sp + tlayout$
                    {{Text|IF|#F0F0F0}} arraydesc {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} dim2exitfunc
                    clearid
                {{Text|ELSE|#F0F0F0}}
                    clearid
                    {{Text|IF|#F0F0F0}} elements$ = {{Text|"?"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        nume = {{Text|-1|#F580B1}}
                        id.linkid = glinkid
                        id.linkarg = glinkarg
                    {{Text|ELSE|#F0F0F0}}
                        nume = {{Text|VAL|#F0F0F0}}(elements$)
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                id.arraytype = STRINGTYPE + ISFIXEDLENGTH
                {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} id.arraytype = id.arraytype + ISINCONVENTIONALMEMORY
                id.n = cvarname$
                {{Text|IF|#F0F0F0}} nume > {{Text|65536|#F580B1}} {{Text|THEN|#F0F0F0}} nume = nume - {{Text|65536|#F580B1}}: id.staticarray = {{Text|1|#F580B1}}
                id.arrayelements = nume
                id.callname = n$
                id.tsize = bytes
                {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    id.mayhave = {{Text|"$"|#FFB100}} + str2(bytes)
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} method = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    id.musthave = {{Text|"$"|#FFB100}} + str2(bytes)
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                regid
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                vWatchVariable n$, {{Text|0|#F580B1}}
                {{Text|GOTO|#F0F0F0}} dim2exitfunc
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'standard fixed length string|#31C4C4}}
            n$ = scope2$ + n$
            {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine defdatahandle, {{Text|"qbs *"|#FFB100}} + n$ + {{Text|"=NULL;"|#FFB100}}
            {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine FreeTxtBuf, {{Text|"qbs_free("|#FFB100}} + n$ + {{Text|");"|#FFB100}} {{Text|'so descriptor can be freed|#31C4C4}}
            clearid
            id.n = cvarname$
            id.t = STRINGTYPE + ISFIXEDLENGTH
            {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                id.t = id.t + ISINCONVENTIONALMEMORY
                {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if("|#FFB100}} + n$ + {{Text|"==NULL){"|#FFB100}}
                {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"cmem_sp-="|#FFB100}} + str2(bytes) + {{Text|";"|#FFB100}}
                {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if (cmem_sp<qbs_cmem_sp) error(257);"|#FFB100}}
                {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, n$ + {{Text|"=qbs_new_fixed((uint8*)(dblock+cmem_sp),"|#FFB100}} + str2(bytes) + {{Text|",0);"|#FFB100}}
                {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"memset("|#FFB100}} + n$ + {{Text|"->chr,0,"|#FFB100}} + str2(bytes) + {{Text|");"|#FFB100}}
                {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if("|#FFB100}} + n$ + {{Text|"==NULL){"|#FFB100}}
                o$ = {{Text|"(uint8*)mem_static_malloc("|#FFB100}} + str2$(bytes) + {{Text|")"|#FFB100}}
                {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, n$ + {{Text|"=qbs_new_fixed("|#FFB100}} + o$ + {{Text|","|#FFB100}} + str2$(bytes) + {{Text|",0);"|#FFB100}}
                {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"memset("|#FFB100}} + n$ + {{Text|"->chr,0,"|#FFB100}} + str2$(bytes) + {{Text|");"|#FFB100}}
                {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            id.tsize = bytes
            {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                id.mayhave = {{Text|"$"|#FFB100}} + str2(bytes)
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} method = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                id.musthave = {{Text|"$"|#FFB100}} + str2(bytes)
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            id.callname = n$
            regid
            vWatchVariable n$, {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} dim2exitfunc
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'variable length string processing|#31C4C4}}
        n$ = {{Text|"STRING_"|#FFB100}} + varname$
        {{Text|'array of variable length strings|#31C4C4}}
        {{Text|IF|#F0F0F0}} elements$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
            arraydesc = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                try = findid(varname$ + {{Text|"$"|#FFB100}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                    {{Text|IF|#F0F0F0}} (id.arraytype) {{Text|THEN|#F0F0F0}}
                        l$ = {{Text|RTRIM$|#F0F0F0}}(id.cn)
                        arraydesc = currentid: scope2$ = scope$
                        {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(varname$ + {{Text|"$"|#FFB100}}) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|LOOP|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            n$ = scope2$ + {{Text|"ARRAY_"|#FFB100}} + n$
            {{Text|'nume = allocarray(n$, elements$, -2147483647) '-2147483647=STRING|#31C4C4}}
            {{Text|'IF arraydesc THEN goto dim2exitfunc 'id already exists!|#31C4C4}}
            {{Text|'clearid|#31C4C4}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|ASC|#F0F0F0}}(elements$) = {{Text|63|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"?"|#31C4C4}}
                    E = arrayelementslist(idn + {{Text|1|#F580B1}}): {{Text|IF|#F0F0F0}} E {{Text|THEN|#F0F0F0}} elements$ = elements$ + str2$(E) {{Text|'eg. "?3" for a 3 dimensional array|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                nume = allocarray(n$, elements$, {{Text|-2147483647|#F580B1}}, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                l$ = l$ + sp + tlayout$
                {{Text|IF|#F0F0F0}} arraydesc {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} dim2exitfunc
                clearid
            {{Text|ELSE|#F0F0F0}}
                clearid
                {{Text|IF|#F0F0F0}} elements$ = {{Text|"?"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    nume = {{Text|-1|#F580B1}}
                    id.linkid = glinkid
                    id.linkarg = glinkarg
                {{Text|ELSE|#F0F0F0}}
                    nume = {{Text|VAL|#F0F0F0}}(elements$)
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            id.n = cvarname$
            id.arraytype = STRINGTYPE
            {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} id.arraytype = id.arraytype + ISINCONVENTIONALMEMORY
            {{Text|IF|#F0F0F0}} nume > {{Text|65536|#F580B1}} {{Text|THEN|#F0F0F0}} nume = nume - {{Text|65536|#F580B1}}: id.staticarray = {{Text|1|#F580B1}}
            id.arrayelements = nume
            id.callname = n$
            {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                id.mayhave = {{Text|"$"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} method = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                id.musthave = {{Text|"$"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            regid
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            vWatchVariable n$, {{Text|0|#F580B1}}
            {{Text|GOTO|#F0F0F0}} dim2exitfunc
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'standard variable length string|#31C4C4}}
        n$ = scope2$ + n$
        clearid
        id.n = cvarname$
        id.t = STRINGTYPE
        {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine defdatahandle, {{Text|"qbs *"|#FFB100}} + n$ + {{Text|"=NULL;"|#FFB100}}
            {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if (!"|#FFB100}} + n$ + {{Text|")"|#FFB100}} + n$ + {{Text|"=qbs_new_cmem(0,0);"|#FFB100}}
            id.t = id.t + ISINCONVENTIONALMEMORY
        {{Text|ELSE|#F0F0F0}}
            {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine defdatahandle, {{Text|"qbs *"|#FFB100}} + n$ + {{Text|"=NULL;"|#FFB100}}
            {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if (!"|#FFB100}} + n$ + {{Text|")"|#FFB100}} + n$ + {{Text|"=qbs_new(0,0);"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine FreeTxtBuf, {{Text|"qbs_free("|#FFB100}} + n$ + {{Text|");"|#FFB100}}
        {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            id.mayhave = {{Text|"$"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} method = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            id.musthave = {{Text|"$"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        id.callname = n$
        regid
        vWatchVariable n$, {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|GOTO|#F0F0F0}} dim2exitfunc
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(typ$, {{Text|4|#F580B1}}) = {{Text|"_BIT"|#FFB100}} {{Text|OR|#F0F0F0}} ({{Text|LEFT$|#F0F0F0}}(typ$, {{Text|3|#F580B1}}) = {{Text|"BIT"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} ({{Text|LEFT$|#F0F0F0}}(typ$, {{Text|4|#F580B1}}) = {{Text|"_BIT"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|LEN|#F0F0F0}}(typ$) > {{Text|4|#F580B1}}) {{Text|OR|#F0F0F0}} ({{Text|LEFT$|#F0F0F0}}(typ$, {{Text|3|#F580B1}}) = {{Text|"BIT"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|LEN|#F0F0F0}}(typ$) > {{Text|3|#F580B1}}) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(typ$, {{Text|7|#F580B1}}) <> {{Text|"_BIT * "|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(typ$, {{Text|6|#F580B1}}) <> {{Text|"BIT * "|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected "|#FFB100}} + qb64prefix$ + {{Text|"BIT * number"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            c$ = {{Text|MID$|#F0F0F0}}(typ$, {{Text|INSTR|#F0F0F0}}(typ$, {{Text|" * "|#FFB100}}) + {{Text|3|#F580B1}})
            {{Text|IF|#F0F0F0}} isuinteger(c$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Number expected after *"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(c$) > {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot create a bit variable of size > 64 bits"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            bits = {{Text|VAL|#F0F0F0}}(c$)
            {{Text|IF|#F0F0F0}} bits = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot create a bit variable of size 0 bits"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|IF|#F0F0F0}} bits > {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot create a bit variable of size > 64 bits"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|ELSE|#F0F0F0}}
            bits = {{Text|1|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} bits <= {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} ct$ = {{Text|"int32"|#FFB100}} {{Text|ELSE|#F0F0F0}} ct$ = {{Text|"int64"|#FFB100}}
        {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} n$ = {{Text|"U"|#FFB100}}: ct$ = {{Text|"u"|#FFB100}} + ct$
        n$ = n$ + {{Text|"BIT"|#FFB100}} + str2(bits) + {{Text|"_"|#FFB100}} + varname$
        {{Text|'array of bit-length variables|#31C4C4}}
        {{Text|IF|#F0F0F0}} elements$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} bits > {{Text|63|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot create a bit array of size > 63 bits"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            arraydesc = {{Text|0|#F580B1}}
            cmps$ = varname$: {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} cmps$ = cmps$ + {{Text|"~"|#FFB100}}
            cmps$ = cmps$ + {{Text|"`"|#FFB100}} + str2(bits)
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                try = findid(cmps$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                    {{Text|IF|#F0F0F0}} (id.arraytype) {{Text|THEN|#F0F0F0}}
                        l$ = {{Text|RTRIM$|#F0F0F0}}(id.cn)
                        arraydesc = currentid: scope2$ = scope$
                        {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(cmps$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|LOOP|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            n$ = scope2$ + {{Text|"ARRAY_"|#FFB100}} + n$
            {{Text|'nume = allocarray(n$, elements$, -bits) 'passing a negative element size signifies bits not bytes|#31C4C4}}
            {{Text|'IF arraydesc THEN goto dim2exitfunc 'id already exists!|#31C4C4}}
            {{Text|'clearid|#31C4C4}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|ASC|#F0F0F0}}(elements$) = {{Text|63|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"?"|#31C4C4}}
                    E = arrayelementslist(idn + {{Text|1|#F580B1}}): {{Text|IF|#F0F0F0}} E {{Text|THEN|#F0F0F0}} elements$ = elements$ + str2$(E) {{Text|'eg. "?3" for a 3 dimensional array|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                nume = allocarray(n$, elements$, {{Text|-bits|#F580B1}}, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                l$ = l$ + sp + tlayout$
                {{Text|IF|#F0F0F0}} arraydesc {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} dim2exitfunc
                clearid
            {{Text|ELSE|#F0F0F0}}
                clearid
                {{Text|IF|#F0F0F0}} elements$ = {{Text|"?"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    nume = {{Text|-1|#F580B1}}
                    id.linkid = glinkid
                    id.linkarg = glinkarg
                {{Text|ELSE|#F0F0F0}}
                    nume = {{Text|VAL|#F0F0F0}}(elements$)
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            id.n = cvarname$
            id.arraytype = BITTYPE - {{Text|1|#F580B1}} + bits
            {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.arraytype = id.arraytype + ISUNSIGNED
            {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} id.arraytype = id.arraytype + ISINCONVENTIONALMEMORY
            {{Text|IF|#F0F0F0}} nume > {{Text|65536|#F580B1}} {{Text|THEN|#F0F0F0}} nume = nume - {{Text|65536|#F580B1}}: id.staticarray = {{Text|1|#F580B1}}
            id.arrayelements = nume
            id.callname = n$
            {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.mayhave = {{Text|"~`"|#FFB100}} + str2(bits) {{Text|ELSE|#F0F0F0}} id.mayhave = {{Text|"`"|#FFB100}} + str2(bits)
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} method = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.musthave = {{Text|"~`"|#FFB100}} + str2(bits) {{Text|ELSE|#F0F0F0}} id.musthave = {{Text|"`"|#FFB100}} + str2(bits)
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            regid
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            vWatchVariable n$, {{Text|0|#F580B1}}
            {{Text|GOTO|#F0F0F0}} dim2exitfunc
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'standard bit-length variable|#31C4C4}}
        n$ = scope2$ + n$
        WriteBufLine defdatahandle, ct$ + {{Text|" *"|#FFB100}} + n$ + {{Text|"=NULL;"|#FFB100}}
        WriteBufLine DataTxtBuf, {{Text|"if("|#FFB100}} + n$ + {{Text|"==NULL){"|#FFB100}}
        WriteBufLine DataTxtBuf, {{Text|"cmem_sp-=4;"|#FFB100}}
        WriteBufLine DataTxtBuf, {{Text|"if (cmem_sp<qbs_cmem_sp) error(257);"|#FFB100}}
        WriteBufLine DataTxtBuf, n$ + {{Text|"=("|#FFB100}} + ct$ + {{Text|"*)(dblock+cmem_sp);"|#FFB100}}
        WriteBufLine DataTxtBuf, {{Text|"*"|#FFB100}} + n$ + {{Text|"=0;"|#FFB100}}
        WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
        clearid
        id.n = cvarname$
        id.t = BITTYPE - {{Text|1|#F580B1}} + bits + ISINCONVENTIONALMEMORY: {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.t = id.t + ISUNSIGNED
        {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.mayhave = {{Text|"~`"|#FFB100}} + str2(bits) {{Text|ELSE|#F0F0F0}} id.mayhave = {{Text|"`"|#FFB100}} + str2(bits)
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} method = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.musthave = {{Text|"~`"|#FFB100}} + str2(bits) {{Text|ELSE|#F0F0F0}} id.musthave = {{Text|"`"|#FFB100}} + str2(bits)
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        id.callname = n$
        regid
        vWatchVariable n$, {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|GOTO|#F0F0F0}} dim2exitfunc
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} typ$ = {{Text|"_BYTE"|#FFB100}} {{Text|OR|#F0F0F0}} (typ$ = {{Text|"BYTE"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
        ct$ = {{Text|"int8"|#FFB100}}
        {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} n$ = {{Text|"U"|#FFB100}}: ct$ = {{Text|"u"|#FFB100}} + ct$
        n$ = n$ + {{Text|"BYTE_"|#FFB100}} + varname$
        {{Text|IF|#F0F0F0}} elements$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
            arraydesc = {{Text|0|#F580B1}}
            cmps$ = varname$: {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} cmps$ = cmps$ + {{Text|"~"|#FFB100}}
            cmps$ = cmps$ + {{Text|"%%"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                try = findid(cmps$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                    {{Text|IF|#F0F0F0}} (id.arraytype) {{Text|THEN|#F0F0F0}}
                        l$ = {{Text|RTRIM$|#F0F0F0}}(id.cn)
                        arraydesc = currentid: scope2$ = scope$
                        {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(cmps$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|LOOP|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            n$ = scope2$ + {{Text|"ARRAY_"|#FFB100}} + n$
            {{Text|'nume = allocarray(n$, elements$, 1)|#31C4C4}}
            {{Text|'IF arraydesc THEN goto dim2exitfunc|#31C4C4}}
            {{Text|'clearid|#31C4C4}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|ASC|#F0F0F0}}(elements$) = {{Text|63|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"?"|#31C4C4}}
                    E = arrayelementslist(idn + {{Text|1|#F580B1}}): {{Text|IF|#F0F0F0}} E {{Text|THEN|#F0F0F0}} elements$ = elements$ + str2$(E) {{Text|'eg. "?3" for a 3 dimensional array|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                nume = allocarray(n$, elements$, {{Text|1|#F580B1}}, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                l$ = l$ + sp + tlayout$
                {{Text|IF|#F0F0F0}} arraydesc {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} dim2exitfunc
                clearid
            {{Text|ELSE|#F0F0F0}}
                clearid
                {{Text|IF|#F0F0F0}} elements$ = {{Text|"?"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    nume = {{Text|-1|#F580B1}}
                    id.linkid = glinkid
                    id.linkarg = glinkarg
                {{Text|ELSE|#F0F0F0}}
                    nume = {{Text|VAL|#F0F0F0}}(elements$)
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            id.arraytype = BYTETYPE: {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.arraytype = id.arraytype + ISUNSIGNED
            {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} id.arraytype = id.arraytype + ISINCONVENTIONALMEMORY
            {{Text|IF|#F0F0F0}} nume > {{Text|65536|#F580B1}} {{Text|THEN|#F0F0F0}} nume = nume - {{Text|65536|#F580B1}}: id.staticarray = {{Text|1|#F580B1}}
            id.arrayelements = nume
            id.callname = n$
        {{Text|ELSE|#F0F0F0}}
            n$ = scope2$ + n$
            clearid
            id.t = BYTETYPE: {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.t = id.t + ISUNSIGNED
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine defdatahandle, ct$ + {{Text|" *"|#FFB100}} + n$ + {{Text|"=NULL;"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if("|#FFB100}} + n$ + {{Text|"==NULL){"|#FFB100}}
            {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                id.t = id.t + ISINCONVENTIONALMEMORY
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"cmem_sp-=1;"|#FFB100}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, n$ + {{Text|"=("|#FFB100}} + ct$ + {{Text|"*)(dblock+cmem_sp);"|#FFB100}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if (cmem_sp<qbs_cmem_sp) error(257);"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, n$ + {{Text|"=("|#FFB100}} + ct$ + {{Text|"*)mem_static_malloc(1);"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"*"|#FFB100}} + n$ + {{Text|"=0;"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        id.n = cvarname$
        {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.mayhave = {{Text|"~%%"|#FFB100}} {{Text|ELSE|#F0F0F0}} id.mayhave = {{Text|"%%"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} method = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.musthave = {{Text|"~%%"|#FFB100}} {{Text|ELSE|#F0F0F0}} id.musthave = {{Text|"%%"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        id.callname = n$
        regid
        vWatchVariable n$, {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|GOTO|#F0F0F0}} dim2exitfunc
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} typ$ = {{Text|"INTEGER"|#FFB100}} {{Text|THEN|#F0F0F0}}
        ct$ = {{Text|"int16"|#FFB100}}
        {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} n$ = {{Text|"U"|#FFB100}}: ct$ = {{Text|"u"|#FFB100}} + ct$
        n$ = n$ + {{Text|"INTEGER_"|#FFB100}} + varname$
        {{Text|IF|#F0F0F0}} elements$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
            arraydesc = {{Text|0|#F580B1}}
            cmps$ = varname$: {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} cmps$ = cmps$ + {{Text|"~"|#FFB100}}
            cmps$ = cmps$ + {{Text|"%"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                try = findid(cmps$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                    {{Text|IF|#F0F0F0}} (id.arraytype) {{Text|THEN|#F0F0F0}}
                        l$ = {{Text|RTRIM$|#F0F0F0}}(id.cn)
                        arraydesc = currentid: scope2$ = scope$
                        {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(cmps$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|LOOP|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            n$ = scope2$ + {{Text|"ARRAY_"|#FFB100}} + n$
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|ASC|#F0F0F0}}(elements$) = {{Text|63|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"?"|#31C4C4}}
                    E = arrayelementslist(idn + {{Text|1|#F580B1}}): {{Text|IF|#F0F0F0}} E {{Text|THEN|#F0F0F0}} elements$ = elements$ + str2$(E) {{Text|'eg. "?3" for a 3 dimensional array|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                nume = allocarray(n$, elements$, {{Text|2|#F580B1}}, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                l$ = l$ + sp + tlayout$
                {{Text|IF|#F0F0F0}} arraydesc {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} dim2exitfunc
                clearid
            {{Text|ELSE|#F0F0F0}}
                clearid
                {{Text|IF|#F0F0F0}} elements$ = {{Text|"?"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    nume = {{Text|-1|#F580B1}}
                    id.linkid = glinkid
                    id.linkarg = glinkarg
                {{Text|ELSE|#F0F0F0}}
                    nume = {{Text|VAL|#F0F0F0}}(elements$)
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            id.arraytype = INTEGERTYPE: {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.arraytype = id.arraytype + ISUNSIGNED
            {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} id.arraytype = id.arraytype + ISINCONVENTIONALMEMORY
            {{Text|IF|#F0F0F0}} nume > {{Text|65536|#F580B1}} {{Text|THEN|#F0F0F0}} nume = nume - {{Text|65536|#F580B1}}: id.staticarray = {{Text|1|#F580B1}}
            id.arrayelements = nume
            id.callname = n$
        {{Text|ELSE|#F0F0F0}}
            n$ = scope2$ + n$
            clearid
            id.t = INTEGERTYPE: {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.t = id.t + ISUNSIGNED
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine defdatahandle, ct$ + {{Text|" *"|#FFB100}} + n$ + {{Text|"=NULL;"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if("|#FFB100}} + n$ + {{Text|"==NULL){"|#FFB100}}
            {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                id.t = id.t + ISINCONVENTIONALMEMORY
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"cmem_sp-=2;"|#FFB100}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, n$ + {{Text|"=("|#FFB100}} + ct$ + {{Text|"*)(dblock+cmem_sp);"|#FFB100}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if (cmem_sp<qbs_cmem_sp) error(257);"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, n$ + {{Text|"=("|#FFB100}} + ct$ + {{Text|"*)mem_static_malloc(2);"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"*"|#FFB100}} + n$ + {{Text|"=0;"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        id.n = cvarname$
        {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.mayhave = {{Text|"~%"|#FFB100}} {{Text|ELSE|#F0F0F0}} id.mayhave = {{Text|"%"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} method = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.musthave = {{Text|"~%"|#FFB100}} {{Text|ELSE|#F0F0F0}} id.musthave = {{Text|"%"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        id.callname = n$
        regid
        vWatchVariable n$, {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|GOTO|#F0F0F0}} dim2exitfunc
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} typ$ = {{Text|"_OFFSET"|#FFB100}} {{Text|OR|#F0F0F0}} (typ$ = {{Text|"OFFSET"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
        ct$ = {{Text|"ptrszint"|#FFB100}}
        {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} n$ = {{Text|"U"|#FFB100}}: ct$ = {{Text|"u"|#FFB100}} + ct$
        n$ = n$ + {{Text|"OFFSET_"|#FFB100}} + varname$
        {{Text|IF|#F0F0F0}} elements$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
            arraydesc = {{Text|0|#F580B1}}
            cmps$ = varname$: {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} cmps$ = cmps$ + {{Text|"~"|#FFB100}}
            cmps$ = cmps$ + {{Text|"%&"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                try = findid(cmps$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                    {{Text|IF|#F0F0F0}} (id.arraytype) {{Text|THEN|#F0F0F0}}
                        l$ = {{Text|RTRIM$|#F0F0F0}}(id.cn)
                        arraydesc = currentid: scope2$ = scope$
                        {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(cmps$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|LOOP|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            n$ = scope2$ + {{Text|"ARRAY_"|#FFB100}} + n$
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|ASC|#F0F0F0}}(elements$) = {{Text|63|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"?"|#31C4C4}}
                    E = arrayelementslist(idn + {{Text|1|#F580B1}}): {{Text|IF|#F0F0F0}} E {{Text|THEN|#F0F0F0}} elements$ = elements$ + str2$(E) {{Text|'eg. "?3" for a 3 dimensional array|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                nume = allocarray(n$, elements$, OS_BITS \ {{Text|8|#F580B1}}, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                l$ = l$ + sp + tlayout$
                {{Text|IF|#F0F0F0}} arraydesc {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} dim2exitfunc
                clearid
            {{Text|ELSE|#F0F0F0}}
                clearid
                {{Text|IF|#F0F0F0}} elements$ = {{Text|"?"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    nume = {{Text|-1|#F580B1}}
                    id.linkid = glinkid
                    id.linkarg = glinkarg
                {{Text|ELSE|#F0F0F0}}
                    nume = {{Text|VAL|#F0F0F0}}(elements$)
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            id.arraytype = OFFSETTYPE: {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.arraytype = id.arraytype + ISUNSIGNED
            {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} id.arraytype = id.arraytype + ISINCONVENTIONALMEMORY
            {{Text|IF|#F0F0F0}} nume > {{Text|65536|#F580B1}} {{Text|THEN|#F0F0F0}} nume = nume - {{Text|65536|#F580B1}}: id.staticarray = {{Text|1|#F580B1}}
            id.arrayelements = nume
            id.callname = n$
        {{Text|ELSE|#F0F0F0}}
            n$ = scope2$ + n$
            clearid
            id.t = OFFSETTYPE: {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.t = id.t + ISUNSIGNED
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine defdatahandle, ct$ + {{Text|" *"|#FFB100}} + n$ + {{Text|"=NULL;"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if("|#FFB100}} + n$ + {{Text|"==NULL){"|#FFB100}}
            {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                id.t = id.t + ISINCONVENTIONALMEMORY
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"cmem_sp-="|#FFB100}} + str2(OS_BITS \ {{Text|8|#F580B1}}) + {{Text|";"|#FFB100}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, n$ + {{Text|"=("|#FFB100}} + ct$ + {{Text|"*)(dblock+cmem_sp);"|#FFB100}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if (cmem_sp<qbs_cmem_sp) error(257);"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, n$ + {{Text|"=("|#FFB100}} + ct$ + {{Text|"*)mem_static_malloc("|#FFB100}} + str2(OS_BITS \ {{Text|8|#F580B1}}) + {{Text|");"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"*"|#FFB100}} + n$ + {{Text|"=0;"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        id.n = cvarname$
        {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.mayhave = {{Text|"~%&"|#FFB100}} {{Text|ELSE|#F0F0F0}} id.mayhave = {{Text|"%&"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} method = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.musthave = {{Text|"~%&"|#FFB100}} {{Text|ELSE|#F0F0F0}} id.musthave = {{Text|"%&"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        id.callname = n$
        regid
        vWatchVariable n$, {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|GOTO|#F0F0F0}} dim2exitfunc
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} typ$ = {{Text|"LONG"|#FFB100}} {{Text|THEN|#F0F0F0}}
        ct$ = {{Text|"int32"|#FFB100}}
        {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} n$ = {{Text|"U"|#FFB100}}: ct$ = {{Text|"u"|#FFB100}} + ct$
        n$ = n$ + {{Text|"LONG_"|#FFB100}} + varname$
        {{Text|IF|#F0F0F0}} elements$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
            arraydesc = {{Text|0|#F580B1}}
            cmps$ = varname$: {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} cmps$ = cmps$ + {{Text|"~"|#FFB100}}
            cmps$ = cmps$ + {{Text|"&"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                try = findid(cmps$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                    {{Text|IF|#F0F0F0}} (id.arraytype) {{Text|THEN|#F0F0F0}}
                        l$ = {{Text|RTRIM$|#F0F0F0}}(id.cn)
                        arraydesc = currentid: scope2$ = scope$
                        {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(cmps$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|LOOP|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            n$ = scope2$ + {{Text|"ARRAY_"|#FFB100}} + n$
            {{Text|'nume = allocarray(n$, elements$, 4)|#31C4C4}}
            {{Text|'IF arraydesc THEN goto dim2exitfunc|#31C4C4}}
            {{Text|'clearid|#31C4C4}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|ASC|#F0F0F0}}(elements$) = {{Text|63|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"?"|#31C4C4}}
                    E = arrayelementslist(idn + {{Text|1|#F580B1}}): {{Text|IF|#F0F0F0}} E {{Text|THEN|#F0F0F0}} elements$ = elements$ + str2$(E) {{Text|'eg. "?3" for a 3 dimensional array|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                nume = allocarray(n$, elements$, {{Text|4|#F580B1}}, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                l$ = l$ + sp + tlayout$
                {{Text|IF|#F0F0F0}} arraydesc {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} dim2exitfunc
                clearid
            {{Text|ELSE|#F0F0F0}}
                clearid
                {{Text|IF|#F0F0F0}} elements$ = {{Text|"?"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    nume = {{Text|-1|#F580B1}}
                    id.linkid = glinkid
                    id.linkarg = glinkarg
                {{Text|ELSE|#F0F0F0}}
                    nume = {{Text|VAL|#F0F0F0}}(elements$)
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            id.arraytype = LONGTYPE: {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.arraytype = id.arraytype + ISUNSIGNED
            {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} id.arraytype = id.arraytype + ISINCONVENTIONALMEMORY
            {{Text|IF|#F0F0F0}} nume > {{Text|65536|#F580B1}} {{Text|THEN|#F0F0F0}} nume = nume - {{Text|65536|#F580B1}}: id.staticarray = {{Text|1|#F580B1}}
            id.arrayelements = nume
            id.callname = n$
        {{Text|ELSE|#F0F0F0}}
            n$ = scope2$ + n$
            clearid
            id.t = LONGTYPE: {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.t = id.t + ISUNSIGNED
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine defdatahandle, ct$ + {{Text|" *"|#FFB100}} + n$ + {{Text|"=NULL;"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if("|#FFB100}} + n$ + {{Text|"==NULL){"|#FFB100}}
            {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                id.t = id.t + ISINCONVENTIONALMEMORY
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"cmem_sp-=4;"|#FFB100}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, n$ + {{Text|"=("|#FFB100}} + ct$ + {{Text|"*)(dblock+cmem_sp);"|#FFB100}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if (cmem_sp<qbs_cmem_sp) error(257);"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, n$ + {{Text|"=("|#FFB100}} + ct$ + {{Text|"*)mem_static_malloc(4);"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"*"|#FFB100}} + n$ + {{Text|"=0;"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        id.n = cvarname$
        {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.mayhave = {{Text|"~&"|#FFB100}} {{Text|ELSE|#F0F0F0}} id.mayhave = {{Text|"&"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} method = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.musthave = {{Text|"~&"|#FFB100}} {{Text|ELSE|#F0F0F0}} id.musthave = {{Text|"&"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        id.callname = n$
        regid
        vWatchVariable n$, {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|GOTO|#F0F0F0}} dim2exitfunc
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} typ$ = {{Text|"_INTEGER64"|#FFB100}} {{Text|OR|#F0F0F0}} (typ$ = {{Text|"INTEGER64"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
        ct$ = {{Text|"int64"|#FFB100}}
        {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} n$ = {{Text|"U"|#FFB100}}: ct$ = {{Text|"u"|#FFB100}} + ct$
        n$ = n$ + {{Text|"INTEGER64_"|#FFB100}} + varname$
        {{Text|IF|#F0F0F0}} elements$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
            arraydesc = {{Text|0|#F580B1}}
            cmps$ = varname$: {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} cmps$ = cmps$ + {{Text|"~"|#FFB100}}
            cmps$ = cmps$ + {{Text|"&&"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                try = findid(cmps$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                    {{Text|IF|#F0F0F0}} (id.arraytype) {{Text|THEN|#F0F0F0}}
                        l$ = {{Text|RTRIM$|#F0F0F0}}(id.cn)
                        arraydesc = currentid: scope2$ = scope$
                        {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(cmps$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|LOOP|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            n$ = scope2$ + {{Text|"ARRAY_"|#FFB100}} + n$
            {{Text|'nume = allocarray(n$, elements$, 8)|#31C4C4}}
            {{Text|'IF arraydesc THEN goto dim2exitfunc|#31C4C4}}
            {{Text|'clearid|#31C4C4}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|ASC|#F0F0F0}}(elements$) = {{Text|63|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"?"|#31C4C4}}
                    E = arrayelementslist(idn + {{Text|1|#F580B1}}): {{Text|IF|#F0F0F0}} E {{Text|THEN|#F0F0F0}} elements$ = elements$ + str2$(E) {{Text|'eg. "?3" for a 3 dimensional array|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                nume = allocarray(n$, elements$, {{Text|8|#F580B1}}, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                l$ = l$ + sp + tlayout$
                {{Text|IF|#F0F0F0}} arraydesc {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} dim2exitfunc
                clearid
            {{Text|ELSE|#F0F0F0}}
                clearid
                {{Text|IF|#F0F0F0}} elements$ = {{Text|"?"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    nume = {{Text|-1|#F580B1}}
                    id.linkid = glinkid
                    id.linkarg = glinkarg
                {{Text|ELSE|#F0F0F0}}
                    nume = {{Text|VAL|#F0F0F0}}(elements$)
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            id.arraytype = INTEGER64TYPE: {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.arraytype = id.arraytype + ISUNSIGNED
            {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} id.arraytype = id.arraytype + ISINCONVENTIONALMEMORY
            {{Text|IF|#F0F0F0}} nume > {{Text|65536|#F580B1}} {{Text|THEN|#F0F0F0}} nume = nume - {{Text|65536|#F580B1}}: id.staticarray = {{Text|1|#F580B1}}
            id.arrayelements = nume
            id.callname = n$
        {{Text|ELSE|#F0F0F0}}
            n$ = scope2$ + n$
            clearid
            id.t = INTEGER64TYPE: {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.t = id.t + ISUNSIGNED
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine defdatahandle, ct$ + {{Text|" *"|#FFB100}} + n$ + {{Text|"=NULL;"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if("|#FFB100}} + n$ + {{Text|"==NULL){"|#FFB100}}
            {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                id.t = id.t + ISINCONVENTIONALMEMORY
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"cmem_sp-=8;"|#FFB100}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, n$ + {{Text|"=("|#FFB100}} + ct$ + {{Text|"*)(dblock+cmem_sp);"|#FFB100}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if (cmem_sp<qbs_cmem_sp) error(257);"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, n$ + {{Text|"=("|#FFB100}} + ct$ + {{Text|"*)mem_static_malloc(8);"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"*"|#FFB100}} + n$ + {{Text|"=0;"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        id.n = cvarname$
        {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.mayhave = {{Text|"~&&"|#FFB100}} {{Text|ELSE|#F0F0F0}} id.mayhave = {{Text|"&&"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} method = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} id.musthave = {{Text|"~&&"|#FFB100}} {{Text|ELSE|#F0F0F0}} id.musthave = {{Text|"&&"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        id.callname = n$
        regid
        vWatchVariable n$, {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|GOTO|#F0F0F0}} dim2exitfunc
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} unsgn = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Type cannot be unsigned"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} typ$ = {{Text|"SINGLE"|#FFB100}} {{Text|THEN|#F0F0F0}}
        ct$ = {{Text|"float"|#FFB100}}
        n$ = n$ + {{Text|"SINGLE_"|#FFB100}} + varname$
        {{Text|IF|#F0F0F0}} elements$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
            arraydesc = {{Text|0|#F580B1}}
            cmps$ = varname$ + {{Text|"!"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                try = findid(cmps$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                    {{Text|IF|#F0F0F0}} (id.arraytype) {{Text|THEN|#F0F0F0}}
                        l$ = {{Text|RTRIM$|#F0F0F0}}(id.cn)
                        arraydesc = currentid: scope2$ = scope$
                        {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(cmps$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|LOOP|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            n$ = scope2$ + {{Text|"ARRAY_"|#FFB100}} + n$
            {{Text|'nume = allocarray(n$, elements$, 4)|#31C4C4}}
            {{Text|'IF arraydesc THEN goto dim2exitfunc|#31C4C4}}
            {{Text|'clearid|#31C4C4}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|ASC|#F0F0F0}}(elements$) = {{Text|63|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"?"|#31C4C4}}
                    E = arrayelementslist(idn + {{Text|1|#F580B1}}): {{Text|IF|#F0F0F0}} E {{Text|THEN|#F0F0F0}} elements$ = elements$ + str2$(E) {{Text|'eg. "?3" for a 3 dimensional array|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                nume = allocarray(n$, elements$, {{Text|4|#F580B1}}, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                l$ = l$ + sp + tlayout$
                {{Text|IF|#F0F0F0}} arraydesc {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} dim2exitfunc
                clearid
            {{Text|ELSE|#F0F0F0}}
                clearid
                {{Text|IF|#F0F0F0}} elements$ = {{Text|"?"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    nume = {{Text|-1|#F580B1}}
                    id.linkid = glinkid
                    id.linkarg = glinkarg
                {{Text|ELSE|#F0F0F0}}
                    nume = {{Text|VAL|#F0F0F0}}(elements$)
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            id.arraytype = SINGLETYPE
            {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} id.arraytype = id.arraytype + ISINCONVENTIONALMEMORY
            {{Text|IF|#F0F0F0}} nume > {{Text|65536|#F580B1}} {{Text|THEN|#F0F0F0}} nume = nume - {{Text|65536|#F580B1}}: id.staticarray = {{Text|1|#F580B1}}
            id.arrayelements = nume
            id.callname = n$
        {{Text|ELSE|#F0F0F0}}
            n$ = scope2$ + n$
            clearid
            id.t = SINGLETYPE
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine defdatahandle, ct$ + {{Text|" *"|#FFB100}} + n$ + {{Text|"=NULL;"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if("|#FFB100}} + n$ + {{Text|"==NULL){"|#FFB100}}
            {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                id.t = id.t + ISINCONVENTIONALMEMORY
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"cmem_sp-=4;"|#FFB100}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, n$ + {{Text|"=("|#FFB100}} + ct$ + {{Text|"*)(dblock+cmem_sp);"|#FFB100}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if (cmem_sp<qbs_cmem_sp) error(257);"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, n$ + {{Text|"=("|#FFB100}} + ct$ + {{Text|"*)mem_static_malloc(4);"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"*"|#FFB100}} + n$ + {{Text|"=0;"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        id.n = cvarname$
        {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            id.mayhave = {{Text|"!"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} method = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            id.musthave = {{Text|"!"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        id.callname = n$
        regid
        vWatchVariable n$, {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|GOTO|#F0F0F0}} dim2exitfunc
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} typ$ = {{Text|"DOUBLE"|#FFB100}} {{Text|THEN|#F0F0F0}}
        ct$ = {{Text|"double"|#FFB100}}
        n$ = n$ + {{Text|"DOUBLE_"|#FFB100}} + varname$
        {{Text|IF|#F0F0F0}} elements$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
            arraydesc = {{Text|0|#F580B1}}
            cmps$ = varname$ + {{Text|"#"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                try = findid(cmps$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                    {{Text|IF|#F0F0F0}} (id.arraytype) {{Text|THEN|#F0F0F0}}
                        l$ = {{Text|RTRIM$|#F0F0F0}}(id.cn)
                        arraydesc = currentid: scope2$ = scope$
                        {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(cmps$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|LOOP|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            n$ = scope2$ + {{Text|"ARRAY_"|#FFB100}} + n$
            {{Text|'nume = allocarray(n$, elements$, 8)|#31C4C4}}
            {{Text|'IF arraydesc THEN goto dim2exitfunc|#31C4C4}}
            {{Text|'clearid|#31C4C4}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|ASC|#F0F0F0}}(elements$) = {{Text|63|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"?"|#31C4C4}}
                    E = arrayelementslist(idn + {{Text|1|#F580B1}}): {{Text|IF|#F0F0F0}} E {{Text|THEN|#F0F0F0}} elements$ = elements$ + str2$(E) {{Text|'eg. "?3" for a 3 dimensional array|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                nume = allocarray(n$, elements$, {{Text|8|#F580B1}}, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                l$ = l$ + sp + tlayout$
                {{Text|IF|#F0F0F0}} arraydesc {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} dim2exitfunc
                clearid
            {{Text|ELSE|#F0F0F0}}
                clearid
                {{Text|IF|#F0F0F0}} elements$ = {{Text|"?"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    nume = {{Text|-1|#F580B1}}
                    id.linkid = glinkid
                    id.linkarg = glinkarg
                {{Text|ELSE|#F0F0F0}}
                    nume = {{Text|VAL|#F0F0F0}}(elements$)
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            id.arraytype = DOUBLETYPE
            {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} id.arraytype = id.arraytype + ISINCONVENTIONALMEMORY
            {{Text|IF|#F0F0F0}} nume > {{Text|65536|#F580B1}} {{Text|THEN|#F0F0F0}} nume = nume - {{Text|65536|#F580B1}}: id.staticarray = {{Text|1|#F580B1}}
            id.arrayelements = nume
            id.callname = n$
        {{Text|ELSE|#F0F0F0}}
            n$ = scope2$ + n$
            clearid
            id.t = DOUBLETYPE
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine defdatahandle, ct$ + {{Text|" *"|#FFB100}} + n$ + {{Text|"=NULL;"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if("|#FFB100}} + n$ + {{Text|"==NULL){"|#FFB100}}
            {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                id.t = id.t + ISINCONVENTIONALMEMORY
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"cmem_sp-=8;"|#FFB100}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, n$ + {{Text|"=("|#FFB100}} + ct$ + {{Text|"*)(dblock+cmem_sp);"|#FFB100}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if (cmem_sp<qbs_cmem_sp) error(257);"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, n$ + {{Text|"=("|#FFB100}} + ct$ + {{Text|"*)mem_static_malloc(8);"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"*"|#FFB100}} + n$ + {{Text|"=0;"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        id.n = cvarname$
        {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            id.mayhave = {{Text|"#"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} method = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            id.musthave = {{Text|"#"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        id.callname = n$
        regid
        vWatchVariable n$, {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|GOTO|#F0F0F0}} dim2exitfunc
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} typ$ = {{Text|"_FLOAT"|#FFB100}} {{Text|OR|#F0F0F0}} (typ$ = {{Text|"FLOAT"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
        ct$ = {{Text|"long double"|#FFB100}}
        n$ = n$ + {{Text|"FLOAT_"|#FFB100}} + varname$
        {{Text|IF|#F0F0F0}} elements$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
            arraydesc = {{Text|0|#F580B1}}
            cmps$ = varname$ + {{Text|"##"|#FFB100}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                try = findid(cmps$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                    {{Text|IF|#F0F0F0}} (id.arraytype) {{Text|THEN|#F0F0F0}}
                        l$ = {{Text|RTRIM$|#F0F0F0}}(id.cn)
                        arraydesc = currentid: scope2$ = scope$
                        {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(cmps$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|LOOP|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            n$ = scope2$ + {{Text|"ARRAY_"|#FFB100}} + n$
            {{Text|'nume = allocarray(n$, elements$, 32)|#31C4C4}}
            {{Text|'IF arraydesc THEN goto dim2exitfunc|#31C4C4}}
            {{Text|'clearid|#31C4C4}}
            {{Text|IF|#F0F0F0}} f = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(elements$) = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|ASC|#F0F0F0}}(elements$) = {{Text|63|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"?"|#31C4C4}}
                    E = arrayelementslist(idn + {{Text|1|#F580B1}}): {{Text|IF|#F0F0F0}} E {{Text|THEN|#F0F0F0}} elements$ = elements$ + str2$(E) {{Text|'eg. "?3" for a 3 dimensional array|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                nume = allocarray(n$, elements$, {{Text|32|#F580B1}}, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                l$ = l$ + sp + tlayout$
                {{Text|IF|#F0F0F0}} arraydesc {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} dim2exitfunc
                clearid
            {{Text|ELSE|#F0F0F0}}
                clearid
                {{Text|IF|#F0F0F0}} elements$ = {{Text|"?"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    nume = {{Text|-1|#F580B1}}
                    id.linkid = glinkid
                    id.linkarg = glinkarg
                {{Text|ELSE|#F0F0F0}}
                    nume = {{Text|VAL|#F0F0F0}}(elements$)
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            id.arraytype = FLOATTYPE
            {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} id.arraytype = id.arraytype + ISINCONVENTIONALMEMORY
            {{Text|IF|#F0F0F0}} nume > {{Text|65536|#F580B1}} {{Text|THEN|#F0F0F0}} nume = nume - {{Text|65536|#F580B1}}: id.staticarray = {{Text|1|#F580B1}}
            id.arrayelements = nume
            id.callname = n$
        {{Text|ELSE|#F0F0F0}}
            n$ = scope2$ + n$
            clearid
            id.t = FLOATTYPE
            {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine defdatahandle, ct$ + {{Text|" *"|#FFB100}} + n$ + {{Text|"=NULL;"|#FFB100}}
            {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if("|#FFB100}} + n$ + {{Text|"==NULL){"|#FFB100}}
            {{Text|IF|#F0F0F0}} cmemlist(idn + {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                id.t = id.t + ISINCONVENTIONALMEMORY
                {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"cmem_sp-=32;"|#FFB100}}
                {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, n$ + {{Text|"=("|#FFB100}} + ct$ + {{Text|"*)(dblock+cmem_sp);"|#FFB100}}
                {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"if (cmem_sp<qbs_cmem_sp) error(257);"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, n$ + {{Text|"=("|#FFB100}} + ct$ + {{Text|"*)mem_static_malloc(32);"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"*"|#FFB100}} + n$ + {{Text|"=0;"|#FFB100}}
            {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}} WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        id.n = cvarname$
        {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            id.mayhave = {{Text|"##"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} method = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            id.musthave = {{Text|"##"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        id.callname = n$
        regid
        vWatchVariable n$, {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|GOTO|#F0F0F0}} dim2exitfunc
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    Give_Error {{Text|"Unknown type"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    dim2exitfunc:
    bypassNextVariable = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} dimsfarray {{Text|THEN|#F0F0F0}}
        ids(idn).sfid = glinkid
        ids(idn).sfarg = glinkarg
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'restore STATIC state|#31C4C4}}
    {{Text|IF|#F0F0F0}} dimstatic <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} dimshared = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        DataTxtBuf = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"data"|#FFB100}} + str2$(subfuncn) + {{Text|".txt"|#FFB100}})
        FreeTxtBuf = OpenBuffer%({{Text|"A"|#FFB100}}, tmpdir$ + {{Text|"free"|#FFB100}} + str2$(subfuncn) + {{Text|".txt"|#FFB100}})
        defdatahandle = DataTxtBuf
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    tlayout$ = l$
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} udtreference$ (o$, a$, typ {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}})
    {{Text|'UDT REFERENCE FORMAT|#31C4C4}}
    {{Text|'idno¦udtno¦udtelementno¦byteoffset|#31C4C4}}
    {{Text|'    ^udt of the element, not of the id|#31C4C4}}
    obak$ = o$
    {{Text|'PRINT "called udtreference!"|#31C4C4}}
    r$ = str2$(currentid) + sp3
    o = {{Text|0|#F580B1}} {{Text|'the fixed/known part of the offset|#31C4C4}}
    incmem = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} id.t {{Text|THEN|#F0F0F0}}
        u = id.t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
        {{Text|IF|#F0F0F0}} id.t {{Text|AND|#F0F0F0}} ISINCONVENTIONALMEMORY {{Text|THEN|#F0F0F0}} incmem = {{Text|1|#F580B1}}
    {{Text|ELSE|#F0F0F0}}
        u = id.arraytype {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
        {{Text|IF|#F0F0F0}} id.arraytype {{Text|AND|#F0F0F0}} ISINCONVENTIONALMEMORY {{Text|THEN|#F0F0F0}} incmem = {{Text|1|#F580B1}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    E = {{Text|0|#F580B1}}
    n = numelements(a$)
    {{Text|IF|#F0F0F0}} n = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} fulludt
    i = {{Text|1|#F580B1}}
    udtfindelenext:
    {{Text|IF|#F0F0F0}} getelement$(a$, i) <> {{Text|"."|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected ."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    i = i + {{Text|1|#F580B1}}
    n$ = getelement$(a$, i)
    nsym$ = removesymbol(n$): {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(nsym$) {{Text|THEN|#F0F0F0}} ntyp = typname2typ(nsym$): ntypsize = typname2typsize
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected .elementname"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    udtfindele:
    {{Text|IF|#F0F0F0}} E = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} E = udtxnext(u) {{Text|ELSE|#F0F0F0}} E = udtenext(E)
    {{Text|IF|#F0F0F0}} E = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Element not defined"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    n2$ = {{Text|RTRIM$|#F0F0F0}}(udtename(E))
    {{Text|IF|#F0F0F0}} udtebytealign(E) {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} o {{Text|MOD|#F0F0F0}} {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} o = o + ({{Text|8|#F580B1}} - (o {{Text|MOD|#F0F0F0}} {{Text|8|#F580B1}}))
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n$ <> n2$ {{Text|THEN|#F0F0F0}}
        {{Text|'increment fixed offset|#31C4C4}}
        o = o + udtesize(E)
        {{Text|GOTO|#F0F0F0}} udtfindele
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'check symbol after element's name (if given) is correct|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(nsym$) {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} udtetype(E) {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid symbol after user defined type"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} ntyp <> udtetype(E) {{Text|OR|#F0F0F0}} ntypsize <> udtetypesize(E) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} nsym$ = {{Text|"$"|#FFB100}} {{Text|AND|#F0F0F0}} ((udtetype(E) {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) <> {{Text|0|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} correctsymbol
            Give_Error {{Text|"Incorrect symbol after element name"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    correctsymbol:
    {{Text|'Move into another UDT structure?|#31C4C4}}
    {{Text|IF|#F0F0F0}} i <> n {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} (udtetype(E) {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected user defined type"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        u = udtetype(E) {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
        E = {{Text|0|#F580B1}}
        i = i + {{Text|1|#F580B1}}
        {{Text|GOTO|#F0F0F0}} udtfindelenext
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'Change e reference to u ¦ 0 reference?|#31C4C4}}
    {{Text|IF|#F0F0F0}} udtetype(E) {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
        u = udtetype(E) {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
        E = {{Text|0|#F580B1}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    fulludt:
    r$ = r$ + str2$(u) + sp3 + str2$(E) + sp3
    {{Text|IF|#F0F0F0}} o {{Text|MOD|#F0F0F0}} {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"QB64 cannot handle bit offsets within user defined types"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    o = o \ {{Text|8|#F580B1}}
    {{Text|IF|#F0F0F0}} o$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} o <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'dont add an unnecessary 0|#31C4C4}}
            o$ = o$ + {{Text|"+"|#FFB100}} + str2$(o)
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|ELSE|#F0F0F0}}
        o$ = str2$(o)
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    r$ = r$ + o$
    udtreference$ = r$
    typ = udtetype(E) + ISUDT + ISREFERENCE
    {{Text|'full udt override:|#31C4C4}}
    {{Text|IF|#F0F0F0}} E = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        typ = u + ISUDT + ISREFERENCE
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} obak$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} typ = typ + ISARRAY
    {{Text|IF|#F0F0F0}} incmem {{Text|THEN|#F0F0F0}} typ = typ + ISINCONVENTIONALMEMORY
    {{Text|'print "UDTREF:"+r$+","+str2$(typ)|#31C4C4}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} evaluate$ (a2$, typ {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}})
    {{Text|DIM|#F0F0F0}} block({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
    {{Text|DIM|#F0F0F0}} evaledblock({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
    {{Text|DIM|#F0F0F0}} blocktype({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    {{Text|'typ IS A RETURN VALUE|#31C4C4}}
    {{Text|'''DIM cli(15) AS INTEGER|#31C4C4}}
    a$ = a2$
    typ = {{Text|-1|#F580B1}}
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"evaluating:["|#FFB100}} + a2$ + {{Text|"]"|#FFB100}}
    {{Text|IF|#F0F0F0}} a2$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Syntax error"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|'''cl$ = classify(a$)|#31C4C4}}
    blockn = {{Text|0|#F580B1}}
    n = numelements(a$)
    b = {{Text|0|#F580B1}} {{Text|'bracketting level|#31C4C4}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
        reevaluate:
        l$ = getelement(a$, i)
        {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"#*#*#* reevaluating:"|#FFB100}} + l$, i
        {{Text|IF|#F0F0F0}} i <> n {{Text|THEN|#F0F0F0}} nextl$ = getelement(a$, i + {{Text|1|#F580B1}}) {{Text|ELSE|#F0F0F0}} nextl$ = {{Text|""|#FFB100}}
        {{Text|'''getclass cl$, i, cli()|#31C4C4}}
        {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'don't evaluate anything within brackets|#31C4C4}}
            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, l$
            l2$ = l$ {{Text|'pure version of l$|#31C4C4}}
            {{Text|FOR|#F0F0F0}} try_method = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|4|#F580B1}}
                l$ = l2$
                {{Text|IF|#F0F0F0}} try_method = {{Text|2|#F580B1}} {{Text|OR|#F0F0F0}} try_method = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    dtyp$ = removesymbol(l$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} dtyp$ = {{Text|""|#FFB100}}: Error_Happened = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(dtyp$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} isoperator(l$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} isvalidvariable(l$) {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(l$, {{Text|1|#F580B1}}) = {{Text|"_"|#FFB100}} {{Text|THEN|#F0F0F0}} v = {{Text|27|#F580B1}} {{Text|ELSE|#F0F0F0}} v = {{Text|ASC|#F0F0F0}}({{Text|UCASE$|#F0F0F0}}(l$)) - {{Text|64|#F580B1}}
                                l$ = l$ + defineextaz(v)
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|ELSE|#F0F0F0}}
                        l$ = l2$
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                try = findid(l$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, try
                    {{Text|'is l$ an array?|#31C4C4}}
                    {{Text|IF|#F0F0F0}} nextl$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} id.arraytype {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (subfuncn = id.insubfuncn {{Text|AND|#F0F0F0}} try_method <= {{Text|2|#F580B1}}) {{Text|OR|#F0F0F0}} try_method >= {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
                                arrayid = currentid
                                constequation = {{Text|0|#F580B1}}
                                i2 = i + {{Text|2|#F580B1}}
                                b2 = {{Text|0|#F580B1}}
                                evalnextele3:
                                l2$ = getelement(a$, i2)
                                {{Text|IF|#F0F0F0}} l2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b2 = b2 + {{Text|1|#F580B1}}
                                {{Text|IF|#F0F0F0}} l2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                    b2 = b2 - {{Text|1|#F580B1}}
                                    {{Text|IF|#F0F0F0}} b2 = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        c$ = arrayreference(getelements$(a$, i + {{Text|2|#F580B1}}, i2 - {{Text|1|#F580B1}}), typ2)
                                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                        i = i2
                                        {{Text|'UDT|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} typ2 {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                                            {{Text|'print "arrayref returned:"+c$|#31C4C4}}
                                            getid arrayid
                                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                            o$ = {{Text|RIGHT$|#F0F0F0}}(c$, {{Text|LEN|#F0F0F0}}(c$) - {{Text|INSTR|#F0F0F0}}(c$, sp3))
                                            {{Text|'change o$ to a byte offset if necessary|#31C4C4}}
                                            u = typ2 {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                                            s = udtxsize(u)
                                            {{Text|IF|#F0F0F0}} udtxbytealign(u) {{Text|THEN|#F0F0F0}}
                                                {{Text|IF|#F0F0F0}} s {{Text|MOD|#F0F0F0}} {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} s = s + ({{Text|8|#F580B1}} - (s {{Text|MOD|#F0F0F0}} {{Text|8|#F580B1}})) {{Text|'round up to nearest byte|#31C4C4}}
                                                s = s \ {{Text|8|#F580B1}}
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                            o$ = {{Text|"("|#FFB100}} + o$ + {{Text|")*"|#FFB100}} + str2$(s)
                                            {{Text|'print "calling evaludt with o$:"+o$|#31C4C4}}
                                            {{Text|GOTO|#F0F0F0}} evaludt
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|GOTO|#F0F0F0}} evalednextele3
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                i2 = i2 + {{Text|1|#F580B1}}
                                {{Text|GOTO|#F0F0F0}} evalnextele3
                                evalednextele3:
                                blockn = blockn + {{Text|1|#F580B1}}
                                block(blockn) = c$
                                evaledblock(blockn) = {{Text|2|#F580B1}}
                                blocktype(blockn) = typ2
                                {{Text|IF|#F0F0F0}} (typ2 {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} stringprocessinghappened = {{Text|1|#F580B1}}
                                {{Text|GOTO|#F0F0F0}} evaled
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|'not followed by "("|#31C4C4}}
                        {{Text|'is l$ a simple variable?|#31C4C4}}
                        {{Text|IF|#F0F0F0}} id.t <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (id.t {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (subfuncn = id.insubfuncn {{Text|AND|#F0F0F0}} try_method <= {{Text|2|#F580B1}}) {{Text|OR|#F0F0F0}} try_method >= {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
                                constequation = {{Text|0|#F580B1}}
                                blockn = blockn + {{Text|1|#F580B1}}
                                makeidrefer block(blockn), blocktype(blockn)
                                {{Text|IF|#F0F0F0}} (blocktype(blockn) {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} stringprocessinghappened = {{Text|1|#F580B1}}
                                evaledblock(blockn) = {{Text|2|#F580B1}}
                                {{Text|GOTO|#F0F0F0}} evaled
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|'is l$ a UDT?|#31C4C4}}
                        {{Text|IF|#F0F0F0}} id.t {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (subfuncn = id.insubfuncn {{Text|AND|#F0F0F0}} try_method <= {{Text|2|#F580B1}}) {{Text|OR|#F0F0F0}} try_method >= {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
                                constequation = {{Text|0|#F580B1}}
                                o$ = {{Text|""|#FFB100}}
                                evaludt:
                                b2 = {{Text|0|#F580B1}}
                                i3 = i + {{Text|1|#F580B1}}
                                {{Text|FOR|#F0F0F0}} i2 = i3 {{Text|TO|#F0F0F0}} n
                                    e2$ = getelement(a$, i2)
                                    {{Text|IF|#F0F0F0}} e2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b2 = b2 + {{Text|1|#F580B1}}
                                    {{Text|IF|#F0F0F0}} b2 = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} e2$ = {{Text|")"|#FFB100}} {{Text|OR|#F0F0F0}} isoperator(e2$) {{Text|THEN|#F0F0F0}}
                                            i4 = i2 - {{Text|1|#F580B1}}
                                            {{Text|GOTO|#F0F0F0}} gotudt
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} e2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b2 = b2 - {{Text|1|#F580B1}}
                                {{Text|NEXT|#F0F0F0}}
                                i4 = n
                                gotudt:
                                {{Text|IF|#F0F0F0}} i4 < i3 {{Text|THEN|#F0F0F0}} e$ = {{Text|""|#FFB100}} {{Text|ELSE|#F0F0F0}} e$ = getelements$(a$, i3, i4)
                                {{Text|'PRINT "UDTREFERENCE:";l$; e$|#31C4C4}}
                                e$ = udtreference(o$, e$, typ2)
                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                i = i4
                                blockn = blockn + {{Text|1|#F580B1}}
                                block(blockn) = e$
                                evaledblock(blockn) = {{Text|2|#F580B1}}
                                blocktype(blockn) = typ2
                                {{Text|'is the following next necessary?|#31C4C4}}
                                {{Text|'IF (typ2 AND ISSTRING) THEN stringprocessinghappened = 1|#31C4C4}}
                                {{Text|GOTO|#F0F0F0}} evaled
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'"(" or no "("|#31C4C4}}
                    {{Text|'is l$ a function?|#31C4C4}}
                    {{Text|IF|#F0F0F0}} id.subfunc = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        constequation = {{Text|0|#F580B1}}
                        {{Text|IF|#F0F0F0}} getelement(a$, i + {{Text|1|#F580B1}}) = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}}
                            i2 = i + {{Text|2|#F580B1}}
                            b2 = {{Text|0|#F580B1}}
                            args = {{Text|1|#F580B1}}
                            evalnextele:
                            l2$ = getelement(a$, i2)
                            {{Text|IF|#F0F0F0}} l2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b2 = b2 + {{Text|1|#F580B1}}
                            {{Text|IF|#F0F0F0}} l2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                b2 = b2 - {{Text|1|#F580B1}}
                                {{Text|IF|#F0F0F0}} b2 = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} i2 = i + {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected (...)"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                    c$ = evaluatefunc(getelements$(a$, i + {{Text|2|#F580B1}}, i2 - {{Text|1|#F580B1}}), args, typ2)
                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                    i = i2
                                    {{Text|GOTO|#F0F0F0}} evalednextele
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} l2$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} b2 = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} args = args + {{Text|1|#F580B1}}
                            i2 = i2 + {{Text|1|#F580B1}}
                            {{Text|GOTO|#F0F0F0}} evalnextele
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|'no brackets|#31C4C4}}
                            c$ = evaluatefunc({{Text|""|#FFB100}}, {{Text|0|#F580B1}}, typ2)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        evalednextele:
                        blockn = blockn + {{Text|1|#F580B1}}
                        block(blockn) = c$
                        evaledblock(blockn) = {{Text|2|#F580B1}}
                        blocktype(blockn) = typ2
                        {{Text|IF|#F0F0F0}} (typ2 {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} stringprocessinghappened = {{Text|1|#F580B1}}
                        {{Text|GOTO|#F0F0F0}} evaled
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(l$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|LOOP|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}} {{Text|'try method (1-4)|#31C4C4}}
            {{Text|'assume l$ an undefined array?|#31C4C4}}
            {{Text|IF|#F0F0F0}} i <> n {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} getelement$(a$, i + {{Text|1|#F580B1}}) = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} isoperator(l$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} isvalidvariable(l$) {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}}
                                {{Text|PRINT|#F0F0F0}} #9, {{Text|"**************"|#FFB100}}
                                {{Text|PRINT|#F0F0F0}} #9, {{Text|"about to auto-create array:"|#FFB100}} + l$, i
                                {{Text|PRINT|#F0F0F0}} #9, {{Text|"**************"|#FFB100}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            dtyp$ = removesymbol(l$)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            {{Text|'count the number of elements|#31C4C4}}
                            nume = {{Text|1|#F580B1}}
                            b2 = {{Text|0|#F580B1}}
                            {{Text|FOR|#F0F0F0}} i2 = i + {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n
                                e$ = getelement(a$, i2)
                                {{Text|IF|#F0F0F0}} e$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b2 = b2 + {{Text|1|#F580B1}}
                                {{Text|IF|#F0F0F0}} b2 = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} e$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} nume = nume + {{Text|1|#F580B1}}
                                {{Text|IF|#F0F0F0}} e$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b2 = b2 - {{Text|1|#F580B1}}
                                {{Text|IF|#F0F0F0}} b2 = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                            {{Text|NEXT|#F0F0F0}}
                            fakee$ = {{Text|"10"|#FFB100}}: {{Text|FOR|#F0F0F0}} i2 = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} nume: fakee$ = fakee$ + sp + {{Text|","|#FFB100}} + sp + {{Text|"10"|#FFB100}}: {{Text|NEXT|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"evaluate:creating undefined array using dim2("|#FFB100}} + l$ + {{Text|","|#FFB100}} + dtyp$ + {{Text|",1,"|#FFB100}} + fakee$ + {{Text|")"|#FFB100}}
                            {{Text|IF|#F0F0F0}} optionexplicit {{Text|OR|#F0F0F0}} optionexplicitarray {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Array '"|#FFB100}} + l$ + {{Text|"' ("|#FFB100}} + symbol2fulltypename$(dtyp$) + {{Text|") not defined"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            olddimstatic = dimstatic
                            method = {{Text|1|#F580B1}}
                            {{Text|IF|#F0F0F0}} subfuncn {{Text|THEN|#F0F0F0}}
                                autoarray = {{Text|1|#F580B1}} {{Text|'move dimensioning of auto array to data???.txt from inline|#31C4C4}}
                                {{Text|'static array declared by STATIC name()?|#31C4C4}}
                                {{Text|'check if varname is on the static list|#31C4C4}}
                                xi = {{Text|1|#F580B1}}
                                {{Text|FOR|#F0F0F0}} x = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} staticarraylistn
                                    varname2$ = getelement$(staticarraylist, xi): xi = xi + {{Text|1|#F580B1}}
                                    typ2$ = getelement$(staticarraylist, xi): xi = xi + {{Text|1|#F580B1}}
                                    dimmethod2 = {{Text|VAL|#F0F0F0}}(getelement$(staticarraylist, xi)): xi = xi + {{Text|1|#F580B1}}
                                    {{Text|'check if they are similar|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(l$) = {{Text|UCASE$|#F0F0F0}}(varname2$) {{Text|THEN|#F0F0F0}}
                                        l3$ = l2$: s$ = removesymbol(l3$)
                                        {{Text|IF|#F0F0F0}} symbol2fulltypename$(dtyp$) = typ2$ {{Text|OR|#F0F0F0}} (dimmethod2 = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} s$ = {{Text|""|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                            {{Text|'adopt properties|#31C4C4}}
                                            l$ = varname2$
                                            dtyp$ = typ2$
                                            method = dimmethod2
                                            dimstatic = {{Text|3|#F580B1}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'typ|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'varname|#31C4C4}}
                                {{Text|NEXT|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'subfuncn|#31C4C4}}
                            bypassNextVariable = {{Text|-1|#F580B1}}
                            ignore = dim2(l$, dtyp$, method, fakee$)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            dimstatic = olddimstatic
                            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"#*#*#* dim2 has returned!!!"|#FFB100}}
                            {{Text|GOTO|#F0F0F0}} reevaluate
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            l$ = l2$ {{Text|'restore l$|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'b=0|#31C4C4}}
        {{Text|IF|#F0F0F0}} l$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} i1 = i + {{Text|1|#F580B1}}
            b = b + {{Text|1|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            blockn = blockn + {{Text|1|#F580B1}}
            block(blockn) = l$
            evaledblock(blockn) = {{Text|0|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} l$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}}
            b = b - {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                c$ = evaluate(getelements$(a$, i1, i - {{Text|1|#F580B1}}), typ2)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|IF|#F0F0F0}} (typ2 {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} stringprocessinghappened = {{Text|1|#F580B1}}
                blockn = blockn + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} (typ2 {{Text|AND|#F0F0F0}} ISPOINTER) {{Text|THEN|#F0F0F0}}
                    block(blockn) = c$
                {{Text|ELSE|#F0F0F0}}
                    block(blockn) = {{Text|"("|#FFB100}} + c$ + {{Text|")"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                evaledblock(blockn) = {{Text|1|#F580B1}}
                blocktype(blockn) = typ2
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        evaled:
    {{Text|NEXT|#F0F0F0}}
    r$ = {{Text|""|#FFB100}} {{Text|'return value|#31C4C4}}
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"evaluated blocks:"|#FFB100}};
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} blockn
        {{Text|IF|#F0F0F0}} i <> blockn {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, block(i) + {{Text|CHR$|#F0F0F0}}({{Text|219|#F580B1}});
        {{Text|ELSE|#F0F0F0}}
            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, block(i)
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|'identify any referencable values|#31C4C4}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} blockn
        {{Text|IF|#F0F0F0}} isoperator(block(i)) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} evaledblock(i) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|'a number?|#31C4C4}}
                c = {{Text|ASC|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(block(i), {{Text|1|#F580B1}}))
                {{Text|IF|#F0F0F0}} c = {{Text|45|#F580B1}} {{Text|OR|#F0F0F0}} (c >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} c <= {{Text|57|#F580B1}}) {{Text|THEN|#F0F0F0}}
                    num$ = block(i)
                    {{Text|'a float?|#31C4C4}}
                    f = {{Text|0|#F580B1}}
                    x = {{Text|INSTR|#F0F0F0}}(num$, {{Text|"E"|#FFB100}})
                    {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}}
                        f = {{Text|1|#F580B1}}: blocktype(i) = SINGLETYPE - ISPOINTER
                    {{Text|ELSE|#F0F0F0}}
                        x = {{Text|INSTR|#F0F0F0}}(num$, {{Text|"D"|#FFB100}})
                        {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}}
                            f = {{Text|2|#F580B1}}: blocktype(i) = DOUBLETYPE - ISPOINTER
                        {{Text|ELSE|#F0F0F0}}
                            x = {{Text|INSTR|#F0F0F0}}(num$, {{Text|"F"|#FFB100}})
                            {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}}
                                f = {{Text|3|#F580B1}}: blocktype(i) = FLOATTYPE - ISPOINTER
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} f {{Text|THEN|#F0F0F0}}
                        {{Text|'float|#31C4C4}}
                        {{Text|IF|#F0F0F0}} f = {{Text|2|#F580B1}} {{Text|OR|#F0F0F0}} f = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|MID$|#F0F0F0}}(num$, x, {{Text|1|#F580B1}}) = {{Text|"E"|#FFB100}} {{Text|'D,F invalid in C++|#31C4C4}}
                        {{Text|IF|#F0F0F0}} f = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} num$ = num$ + {{Text|"L"|#FFB100}} {{Text|'otherwise number is rounded to a double|#31C4C4}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|'integer|#31C4C4}}
                        blocktype(i) = typname2typ(removesymbol$(num$))
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} blocktype(i) {{Text|AND|#F0F0F0}} ISPOINTER {{Text|THEN|#F0F0F0}} blocktype(i) = blocktype(i) - ISPOINTER
                        {{Text|IF|#F0F0F0}} (blocktype(i) {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) > {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} blocktype(i) {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}} num$ = num$ + {{Text|"ull"|#FFB100}} {{Text|ELSE|#F0F0F0}} num$ = num$ + {{Text|"ll"|#FFB100}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    block(i) = {{Text|" "|#FFB100}} + num$ + {{Text|" "|#FFB100}} {{Text|'pad with spaces to avoid C++ computation errors|#31C4C4}}
                    evaledblock(i) = {{Text|1|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} evaledblock
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'number?|#31C4C4}}
                {{Text|'fc = ASC(LEFT$(block(i), 1))|#31C4C4}}
                {{Text|'IF fc = 45 OR (fc >= 48 AND fc <= 57) THEN '- or 0-9|#31C4C4}}
                {{Text|''it's a number|#31C4C4}}
                {{Text|''check for an extension, if none, assume integer|#31C4C4}}
                {{Text|'blocktype(i) = INTEGER64TYPE - ISPOINTER|#31C4C4}}
                {{Text|'tblock$ = " " + block(i)|#31C4C4}}
                {{Text|'IF RIGHT$(tblock$, 2) = "##" THEN blocktype(i) = FLOATTYPE - ISPOINTER: block(i) = LEFT$(block(i), LEN(block$(i)) - 2): GOTO evfltnum|#31C4C4}}
                {{Text|'IF RIGHT$(tblock$, 1) = "#" THEN blocktype(i) = DOUBLETYPE - ISPOINTER: block(i) = LEFT$(block(i), LEN(block$(i)) - 1): GOTO evfltnum|#31C4C4}}
                {{Text|'IF RIGHT$(tblock$, 1) = "!" THEN blocktype(i) = SINGLETYPE - ISPOINTER: block(i) = LEFT$(block(i), LEN(block$(i)) - 1): GOTO evfltnum|#31C4C4}}
                {{Text|'|#31C4C4}}
                {{Text|''C++ 32bit unsigned to signed 64bit|#31C4C4}}
                {{Text|'IF INSTR(block(i),".")=0 THEN|#31C4C4}}
                {{Text|'|#31C4C4}}
                {{Text|'negated=0|#31C4C4}}
                {{Text|'if left$(block(i),1)="-" then block(i)=right$(block(i),len(block(i))-1):negated=1|#31C4C4}}
                {{Text|'|#31C4C4}}
                {{Text|'if left$(block(i),2)="0x" then 'hex|#31C4C4}}
                {{Text|'if len(block(i))=10 then|#31C4C4}}
                {{Text|'if block(i)>="0x80000000" and block(i)<="0xFFFFFFFF" then block(i)="(int64)"+block(i): goto evnum|#31C4C4}}
                {{Text|'end if|#31C4C4}}
                {{Text|'if len(block(i))>10 then block(i)=block(i)+"ll": goto evnum|#31C4C4}}
                {{Text|'goto evnum|#31C4C4}}
                {{Text|'end if|#31C4C4}}
                {{Text|'|#31C4C4}}
                {{Text|'if left$(block(i),1)="0" then 'octal|#31C4C4}}
                {{Text|'if len(block(i))=12 then|#31C4C4}}
                {{Text|'if block(i)>="020000000000" and block(i)<="037777777777" then block(i)="(int64)"+block(i): goto evnum|#31C4C4}}
                {{Text|'if block(i)>"037777777777" then block(i)=block(i)+"ll": goto evnum|#31C4C4}}
                {{Text|'end if|#31C4C4}}
                {{Text|'if len(block(i))>12 then block(i)=block(i)+"ll": goto evnum|#31C4C4}}
                {{Text|'goto evnum|#31C4C4}}
                {{Text|'end if|#31C4C4}}
                {{Text|'|#31C4C4}}
                {{Text|''decimal|#31C4C4}}
                {{Text|'if len(block(i))=10 then|#31C4C4}}
                {{Text|'if block(i)>="2147483648" and block(i)<="4294967295" then block(i)="(int64)"+block(i): goto evnum|#31C4C4}}
                {{Text|'if block(i)>"4294967295" then block(i)=block(i)+"ll": goto evnum|#31C4C4}}
                {{Text|'end if|#31C4C4}}
                {{Text|'if len(block(i))>10 then block(i)=block(i)+"ll"|#31C4C4}}
                {{Text|'|#31C4C4}}
                {{Text|'evnum:|#31C4C4}}
                {{Text|'|#31C4C4}}
                {{Text|'if negated=1 then block(i)="-"+block(i)|#31C4C4}}
                {{Text|'|#31C4C4}}
                {{Text|'END IF|#31C4C4}}
                {{Text|'|#31C4C4}}
                {{Text|'evfltnum:|#31C4C4}}
                {{Text|'|#31C4C4}}
                {{Text|'block(i) = " " + block(i)+" "|#31C4C4}}
                {{Text|'evaledblock(i) = 1|#31C4C4}}
                {{Text|'GOTO evaledblock|#31C4C4}}
                {{Text|'END IF|#31C4C4}}
                {{Text|'a typed string in ""|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(block(i), {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(block(i), {{Text|1|#F580B1}}) <> {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) {{Text|THEN|#F0F0F0}}
                        block(i) = {{Text|"qbs_new_txt_len("|#FFB100}} + block(i) + {{Text|")"|#FFB100}}
                    {{Text|ELSE|#F0F0F0}}
                        block(i) = {{Text|"qbs_new_txt("|#FFB100}} + block(i) + {{Text|")"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    blocktype(i) = ISSTRING
                    evaledblock(i) = {{Text|1|#F580B1}}
                    stringprocessinghappened = {{Text|1|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} evaledblock
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'create variable|#31C4C4}}
                {{Text|IF|#F0F0F0}} isvalidvariable(block(i)) {{Text|THEN|#F0F0F0}}
                    x$ = block(i)
                    typ$ = removesymbol$(x$)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|'add symbol extension if none given|#31C4C4}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(typ$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(x$, {{Text|1|#F580B1}}) = {{Text|"_"|#FFB100}} {{Text|THEN|#F0F0F0}} v = {{Text|27|#F580B1}} {{Text|ELSE|#F0F0F0}} v = {{Text|ASC|#F0F0F0}}({{Text|UCASE$|#F0F0F0}}(x$)) - {{Text|64|#F580B1}}
                        typ$ = defineextaz(v)
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'check that it hasn't just been created within this loop (a=b+b)|#31C4C4}}
                    try = findid(x$ + typ$)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                        {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, try
                        {{Text|IF|#F0F0F0}} id.t <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (id.t {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'is x$ a simple variable?|#31C4C4}}
                            {{Text|GOTO|#F0F0F0}} simplevarfound
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(x$ + typ$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|LOOP|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"CREATING VARIABLE:"|#FFB100}} + x$
                    {{Text|IF|#F0F0F0}} optionexplicit {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Variable '"|#FFB100}} + x$ + {{Text|"' ("|#FFB100}} + symbol2fulltypename$(typ$) + {{Text|") not defined"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    bypassNextVariable = {{Text|-1|#F580B1}}
                    retval = dim2(x$, typ$, {{Text|1|#F580B1}}, {{Text|""|#FFB100}})
                    manageVariableList {{Text|""|#FFB100}}, vWatchNewVariable$, {{Text|0|#F580B1}}, {{Text|3|#F580B1}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    simplevarfound:
                    constequation = {{Text|0|#F580B1}}
                    makeidrefer block(i), blocktype(i)
                    {{Text|IF|#F0F0F0}} (blocktype(i) {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} stringprocessinghappened = {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} blockn = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (blocktype(i) {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} returnpointer
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'reference value|#31C4C4}}
                    block(i) = refer(block(i), blocktype(i), {{Text|0|#F580B1}}): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    evaledblock(i) = {{Text|1|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} evaledblock
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                Give_Error {{Text|"Invalid expression"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} (blocktype(i) {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} blockn = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} returnpointer
                    {{Text|'if blocktype(i) and ISUDT then PRINT "UDT passed to refer by evaluate"|#31C4C4}}
                    block(i) = refer(block(i), blocktype(i), {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        evaledblock:
    {{Text|NEXT|#F0F0F0}}
    {{Text|'return a POINTER if possible|#31C4C4}}
    {{Text|IF|#F0F0F0}} blockn = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} evaledblock({{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (blocktype({{Text|1|#F580B1}}) {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}}
                returnpointer:
                {{Text|IF|#F0F0F0}} (blocktype({{Text|1|#F580B1}}) {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} stringprocessinghappened = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"evaluated reference:"|#FFB100}} + block({{Text|1|#F580B1}})
                typ = blocktype({{Text|1|#F580B1}})
                evaluate$ = block({{Text|1|#F580B1}})
                {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'it cannot be returned as a pointer|#31C4C4}}
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"applying operators:"|#FFB100}};
    {{Text|IF|#F0F0F0}} typ = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}}
        typ = blocktype({{Text|1|#F580B1}}) {{Text|'init typ with first blocktype|#31C4C4}}
        {{Text|IF|#F0F0F0}} isoperator(block({{Text|1|#F580B1}})) {{Text|THEN|#F0F0F0}} {{Text|'but what if it starts with a UNARY operator?|#31C4C4}}
            typ = blocktype({{Text|2|#F580B1}}) {{Text|'init typ with second blocktype|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    nonop = {{Text|0|#F580B1}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} blockn
        {{Text|IF|#F0F0F0}} evaledblock(i) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            isop = isoperator(block(i))
            {{Text|IF|#F0F0F0}} isop {{Text|THEN|#F0F0F0}}
                nonop = {{Text|0|#F580B1}}
                constequation = {{Text|0|#F580B1}}
                {{Text|'operator found|#31C4C4}}
                o$ = block(i)
                u = operatorusage(o$, typ, i$, lhstyp, rhstyp, result)
                {{Text|IF|#F0F0F0}} u <> {{Text|5|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'not unary|#31C4C4}}
                    nonop = {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|OR|#F0F0F0}} evaledblock(i - {{Text|1|#F580B1}}) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} blockn = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} o$ = {{Text|"-"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected variable/value after '"|#FFB100}} + {{Text|UCASE$|#F0F0F0}}(o$) + {{Text|"'"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'guess - is neg in this case|#31C4C4}}
                        Give_Error {{Text|"Expected variable/value before '"|#FFB100}} + {{Text|UCASE$|#F0F0F0}}(o$) + {{Text|"'"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} i = blockn {{Text|OR|#F0F0F0}} evaledblock(i + {{Text|1|#F580B1}}) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected variable/value after '"|#FFB100}} + {{Text|UCASE$|#F0F0F0}}(o$) + {{Text|"'"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|'lhstyp & rhstyp bit-field values|#31C4C4}}
                {{Text|'1=integeral|#31C4C4}}
                {{Text|'2=floating point|#31C4C4}}
                {{Text|'4=string|#31C4C4}}
                {{Text|'8=bool *only used for result|#31C4C4}}
                oldtyp = typ
                newtyp = blocktype(i + {{Text|1|#F580B1}})
                {{Text|'IF block(i - 1) = "6" THEN|#31C4C4}}
                {{Text|'PRINT o$|#31C4C4}}
                {{Text|'PRINT oldtyp AND ISFLOAT|#31C4C4}}
                {{Text|'PRINT blocktype(i - 1) AND ISFLOAT|#31C4C4}}
                {{Text|'END|#31C4C4}}
                {{Text|'END IF|#31C4C4}}
                {{Text|'numeric->string is illegal!|#31C4C4}}
                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (newtyp {{Text|AND|#F0F0F0}} ISSTRING) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    Give_Error {{Text|"Cannot convert number to string"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'Offset protection: Override conversion rules for operator as necessary|#31C4C4}}
                offsetmode = {{Text|0|#F580B1}}
                offsetcvi = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} (oldtyp {{Text|AND|#F0F0F0}} ISOFFSET) <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (newtyp {{Text|AND|#F0F0F0}} ISOFFSET) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    offsetmode = {{Text|2|#F580B1}}
                    {{Text|IF|#F0F0F0}} newtyp {{Text|AND|#F0F0F0}} ISOFFSET {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (newtyp {{Text|AND|#F0F0F0}} ISUNSIGNED) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} offsetmode = {{Text|1|#F580B1}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} oldtyp {{Text|AND|#F0F0F0}} ISOFFSET {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (oldtyp {{Text|AND|#F0F0F0}} ISUNSIGNED) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} offsetmode = {{Text|1|#F580B1}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'depending on the operater we may do things differently|#31C4C4}}
                    {{Text|'the default method is convert both sides to integer first|#31C4C4}}
                    {{Text|'but these operators are different: * / ^|#31C4C4}}
                    {{Text|IF|#F0F0F0}} o$ = {{Text|"*"|#FFB100}} {{Text|OR|#F0F0F0}} o$ = {{Text|"/"|#FFB100}} {{Text|OR|#F0F0F0}} o$ = {{Text|"^"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} o$ = {{Text|"*"|#FFB100}} {{Text|OR|#F0F0F0}} o$ = {{Text|"^"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            {{Text|'for mult, if either side is a float cast integers to 'long double's first|#31C4C4}}
                            {{Text|IF|#F0F0F0}} (newtyp {{Text|AND|#F0F0F0}} ISFLOAT) <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (oldtyp {{Text|AND|#F0F0F0}} ISFLOAT) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                offsetcvi = {{Text|1|#F580B1}}
                                {{Text|IF|#F0F0F0}} (oldtyp {{Text|AND|#F0F0F0}} ISFLOAT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} lhstyp = {{Text|2|#F580B1}}
                                {{Text|IF|#F0F0F0}} (newtyp {{Text|AND|#F0F0F0}} ISFLOAT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} rhstyp = {{Text|2|#F580B1}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} o$ = {{Text|"/"|#FFB100}} {{Text|OR|#F0F0F0}} o$ = {{Text|"^"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            {{Text|'for division or exponentials, to prevent integer division cast integers to 'long double's|#31C4C4}}
                            offsetcvi = {{Text|1|#F580B1}}
                            {{Text|IF|#F0F0F0}} (oldtyp {{Text|AND|#F0F0F0}} ISFLOAT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} lhstyp = {{Text|2|#F580B1}}
                            {{Text|IF|#F0F0F0}} (newtyp {{Text|AND|#F0F0F0}} ISFLOAT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} rhstyp = {{Text|2|#F580B1}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} lhstyp {{Text|AND|#F0F0F0}} {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} lhstyp = {{Text|1|#F580B1}} {{Text|'force lhs and rhs to be integer values|#31C4C4}}
                        {{Text|IF|#F0F0F0}} rhstyp {{Text|AND|#F0F0F0}} {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} rhstyp = {{Text|1|#F580B1}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} result = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} result = {{Text|1|#F580B1}} {{Text|'force integer result|#31C4C4}}
                    {{Text|'note: result=1 just sets typ&=64 if typ is a float|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'STEP 1: convert oldtyp and/or newtyp if required for the operator|#31C4C4}}
                {{Text|'convert lhs|#31C4C4}}
                {{Text|IF|#F0F0F0}} (oldtyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (lhstyp {{Text|AND|#F0F0F0}} {{Text|4|#F580B1}}) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot convert string to number"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|'oldtyp is numeric|#31C4C4}}
                    {{Text|IF|#F0F0F0}} lhstyp = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot convert number to string"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (oldtyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (lhstyp {{Text|AND|#F0F0F0}} {{Text|2|#F580B1}}) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|'convert float to int|#31C4C4}}
                            block(i - {{Text|1|#F580B1}}) = {{Text|"qbr("|#FFB100}} + block(i - {{Text|1|#F580B1}}) + {{Text|")"|#FFB100}}
                            oldtyp = {{Text|64&|#F580B1}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|'oldtyp is an int|#31C4C4}}
                        {{Text|IF|#F0F0F0}} (lhstyp {{Text|AND|#F0F0F0}} {{Text|1|#F580B1}}) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|'convert int to float|#31C4C4}}
                            block(i - {{Text|1|#F580B1}}) = {{Text|"((long double)("|#FFB100}} + block(i - {{Text|1|#F580B1}}) + {{Text|"))"|#FFB100}}
                            oldtyp = {{Text|256&|#F580B1}} + ISFLOAT
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'convert rhs|#31C4C4}}
                {{Text|IF|#F0F0F0}} (newtyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (rhstyp {{Text|AND|#F0F0F0}} {{Text|4|#F580B1}}) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot convert string to number"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|'newtyp is numeric|#31C4C4}}
                    {{Text|IF|#F0F0F0}} rhstyp = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot convert number to string"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (newtyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (rhstyp {{Text|AND|#F0F0F0}} {{Text|2|#F580B1}}) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|'convert float to int|#31C4C4}}
                            block(i + {{Text|1|#F580B1}}) = {{Text|"qbr("|#FFB100}} + block(i + {{Text|1|#F580B1}}) + {{Text|")"|#FFB100}}
                            newtyp = {{Text|64&|#F580B1}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|'newtyp is an int|#31C4C4}}
                        {{Text|IF|#F0F0F0}} (rhstyp {{Text|AND|#F0F0F0}} {{Text|1|#F580B1}}) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|'convert int to float|#31C4C4}}
                            block(i + {{Text|1|#F580B1}}) = {{Text|"((long double)("|#FFB100}} + block(i + {{Text|1|#F580B1}}) + {{Text|"))"|#FFB100}}
                            newtyp = {{Text|256&|#F580B1}} + ISFLOAT
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'Reduce floating point values to common base for comparison?|#31C4C4}}
                {{Text|IF|#F0F0F0}} isop = {{Text|7|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'comparitive operator|#31C4C4}}
                    {{Text|'Corrects problems encountered such as:|#31C4C4}}
                    {{Text|'    S = 2.1|#31C4C4}}
                    {{Text|'    IF S = 2.1 THEN PRINT "OK" ELSE PRINT "ERROR S PRINTS AS"; S; "BUT IS SEEN BY QB64 AS..."|#31C4C4}}
                    {{Text|'    IF S < 2.1 THEN PRINT "LESS THAN 2.1"|#31C4C4}}
                    {{Text|'concerns:|#31C4C4}}
                    {{Text|'1. Return value from TIMER will be reduced to a SINGLE in direct comparisons|#31C4C4}}
                    {{Text|'solution: assess, and only apply to SINGLE variables/arrays|#31C4C4}}
                    {{Text|'2. Comparison of a double higher/lower than single range may fail|#31C4C4}}
                    {{Text|'solution: out of range values convert to +/-1.#INF, making comparison still possible|#31C4C4}}
                    {{Text|IF|#F0F0F0}} (oldtyp {{Text|AND|#F0F0F0}} ISFLOAT) <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (newtyp {{Text|AND|#F0F0F0}} ISFLOAT) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'both floating point|#31C4C4}}
                        s1 = oldtyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}: s2 = newtyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                        {{Text|IF|#F0F0F0}} s2 < s1 {{Text|THEN|#F0F0F0}} s1 = s2
                        {{Text|IF|#F0F0F0}} s1 = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}}
                            block(i - {{Text|1|#F580B1}}) = {{Text|"((float)("|#FFB100}} + block(i - {{Text|1|#F580B1}}) + {{Text|"))"|#FFB100}}: oldtyp = {{Text|32&|#F580B1}} + ISFLOAT
                            block(i + {{Text|1|#F580B1}}) = {{Text|"((float)("|#FFB100}} + block(i + {{Text|1|#F580B1}}) + {{Text|"))"|#FFB100}}: newtyp = {{Text|32&|#F580B1}} + ISFLOAT
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} s1 = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}}
                            block(i - {{Text|1|#F580B1}}) = {{Text|"((double)("|#FFB100}} + block(i - {{Text|1|#F580B1}}) + {{Text|"))"|#FFB100}}: oldtyp = {{Text|64&|#F580B1}} + ISFLOAT
                            block(i + {{Text|1|#F580B1}}) = {{Text|"((double)("|#FFB100}} + block(i + {{Text|1|#F580B1}}) + {{Text|"))"|#FFB100}}: newtyp = {{Text|64&|#F580B1}} + ISFLOAT
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'both floating point|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'comparitive operator|#31C4C4}}
                typ = newtyp
                {{Text|'STEP 2: markup typ|#31C4C4}}
                {{Text|'        if either side is a float, markup typ to largest float|#31C4C4}}
                {{Text|'        if either side is integer, markup typ|#31C4C4}}
                {{Text|'Note: A markup is a GUESS of what the return type will be,|#31C4C4}}
                {{Text|'      'result' can override this markup|#31C4C4}}
                {{Text|IF|#F0F0F0}} (oldtyp {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (newtyp {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (oldtyp {{Text|AND|#F0F0F0}} ISFLOAT) <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (newtyp {{Text|AND|#F0F0F0}} ISFLOAT) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|'float|#31C4C4}}
                        b = {{Text|0|#F580B1}}: {{Text|IF|#F0F0F0}} (oldtyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}} b = oldtyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                        {{Text|IF|#F0F0F0}} (newtyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                            b2 = newtyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}: {{Text|IF|#F0F0F0}} b2 > b {{Text|THEN|#F0F0F0}} b = b2
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        typ = ISFLOAT + b
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|'integer|#31C4C4}}
                        {{Text|'***THIS IS THE IDEAL MARKUP FOR A 64-BIT SYSTEM***|#31C4C4}}
                        {{Text|'In reality 32-bit C++ only marks-up to 32-bit integers|#31C4C4}}
                        b = oldtyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}: b2 = newtyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}: {{Text|IF|#F0F0F0}} b2 > b {{Text|THEN|#F0F0F0}} b = b2
                        typ = {{Text|64&|#F580B1}}
                        {{Text|IF|#F0F0F0}} b = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (oldtyp {{Text|AND|#F0F0F0}} ISUNSIGNED) <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (newtyp {{Text|AND|#F0F0F0}} ISUNSIGNED) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} typ = {{Text|64&|#F580B1}} + ISUNSIGNED
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} result = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISFLOAT) <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} typ = {{Text|64|#F580B1}} {{Text|'otherwise keep markuped integer type|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} result = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISFLOAT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} typ = ISFLOAT + {{Text|256|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} result = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}}
                    typ = ISSTRING
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} result = {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'bool|#31C4C4}}
                    typ = {{Text|32|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'Offset protection: Force result to be an offset type with correct signage|#31C4C4}}
                {{Text|IF|#F0F0F0}} offsetmode {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} result <> {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'boolean comparison results are allowed|#31C4C4}}
                        typ = OFFSETTYPE - ISPOINTER: {{Text|IF|#F0F0F0}} offsetmode = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} typ = typ + ISUNSIGNED
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'override typ=ISFLOAT+256 to typ=ISFLOAT+64 for ^ operator's result|#31C4C4}}
                {{Text|IF|#F0F0F0}} u = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} i$ = {{Text|"pow2"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} offsetmode {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Operator '^' cannot be used with an _OFFSET"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|'QB-like conversion of math functions returning floating point values|#31C4C4}}
                        {{Text|'reassess oldtype & newtype|#31C4C4}}
                        b = oldtyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                        {{Text|IF|#F0F0F0}} oldtyp {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
                            {{Text|'no change to b|#31C4C4}}
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} b > {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} b = {{Text|64|#F580B1}} {{Text|'larger than INTEGER? return DOUBLE|#31C4C4}}
                            {{Text|IF|#F0F0F0}} b > {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} b = {{Text|256|#F580B1}} {{Text|'larger than LONG? return FLOAT|#31C4C4}}
                            {{Text|IF|#F0F0F0}} b <= {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} b = {{Text|32|#F580B1}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        b2 = newtyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                        {{Text|IF|#F0F0F0}} newtyp {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} b2 > b {{Text|THEN|#F0F0F0}} b = b2
                        {{Text|ELSE|#F0F0F0}}
                            b3 = {{Text|32|#F580B1}}
                            {{Text|IF|#F0F0F0}} b2 > {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} b3 = {{Text|64|#F580B1}} {{Text|'larger than INTEGER? return DOUBLE|#31C4C4}}
                            {{Text|IF|#F0F0F0}} b2 > {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} b3 = {{Text|256|#F580B1}} {{Text|'larger than LONG? return FLOAT|#31C4C4}}
                            {{Text|IF|#F0F0F0}} b3 > b {{Text|THEN|#F0F0F0}} b = b3
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        typ = ISFLOAT + b
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'pow2|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'u=2|#31C4C4}}
                {{Text|'STEP 3: apply operator appropriately|#31C4C4}}
                {{Text|IF|#F0F0F0}} u = {{Text|5|#F580B1}} {{Text|THEN|#F0F0F0}}
                    block(i + {{Text|1|#F580B1}}) = i$ + {{Text|"("|#FFB100}} + block(i + {{Text|1|#F580B1}}) + {{Text|")"|#FFB100}}
                    block(i) = {{Text|""|#FFB100}}: i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} operatorapplied
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'binary operators|#31C4C4}}
                {{Text|IF|#F0F0F0}} u = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    block(i + {{Text|1|#F580B1}}) = block(i - {{Text|1|#F580B1}}) + i$ + block(i + {{Text|1|#F580B1}})
                    block(i - {{Text|1|#F580B1}}) = {{Text|""|#FFB100}}: block(i) = {{Text|""|#FFB100}}: i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} operatorapplied
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} u = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                    block(i + {{Text|1|#F580B1}}) = i$ + {{Text|"("|#FFB100}} + block(i - {{Text|1|#F580B1}}) + {{Text|","|#FFB100}} + block(i + {{Text|1|#F580B1}}) + {{Text|")"|#FFB100}}
                    block(i - {{Text|1|#F580B1}}) = {{Text|""|#FFB100}}: block(i) = {{Text|""|#FFB100}}: i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} operatorapplied
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} u = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
                    block(i + {{Text|1|#F580B1}}) = {{Text|"-("|#FFB100}} + block(i - {{Text|1|#F580B1}}) + i$ + block(i + {{Text|1|#F580B1}}) + {{Text|")"|#FFB100}}
                    block(i - {{Text|1|#F580B1}}) = {{Text|""|#FFB100}}: block(i) = {{Text|""|#FFB100}}: i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} operatorapplied
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} u = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}}
                    block(i + {{Text|1|#F580B1}}) = {{Text|"~"|#FFB100}} + block(i - {{Text|1|#F580B1}}) + i$ + block(i + {{Text|1|#F580B1}})
                    block(i - {{Text|1|#F580B1}}) = {{Text|""|#FFB100}}: block(i) = {{Text|""|#FFB100}}: i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} operatorapplied
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'...more?...|#31C4C4}}
                Give_Error {{Text|"ERROR: Operator could not be applied correctly!"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'<--should never happen!|#31C4C4}}
                operatorapplied:
                {{Text|IF|#F0F0F0}} offsetcvi {{Text|THEN|#F0F0F0}} block(i) = {{Text|"qbr("|#FFB100}} + block(i) + {{Text|")"|#FFB100}}: offsetcvi = {{Text|0|#F580B1}}
                offsetmode = {{Text|0|#F580B1}}
            {{Text|ELSE|#F0F0F0}}
                nonop = nonop + {{Text|1|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|ELSE|#F0F0F0}}
            nonop = nonop + {{Text|1|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} nonop > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected operator in equation"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|""|#FFB100}}
    {{Text|'join blocks|#31C4C4}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} blockn
        r$ = r$ + block(i)
    {{Text|NEXT|#F0F0F0}}
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}}
        {{Text|PRINT|#F0F0F0}} #9, {{Text|"evaluated:"|#FFB100}} + r$ + {{Text|" AS TYPE:"|#FFB100}};
        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"[ISSTRING]"|#FFB100}};
        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"[ISFLOAT]"|#FFB100}};
        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"[ISUNSIGNED]"|#FFB100}};
        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISPOINTER) {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"[ISPOINTER]"|#FFB100}};
        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"[ISFIXEDLENGTH]"|#FFB100}};
        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISINCONVENTIONALMEMORY) {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"[ISINCONVENTIONALMEMORY]"|#FFB100}};
        {{Text|PRINT|#F0F0F0}} #9, {{Text|"(size in bits="|#FFB100}} + str2$(typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) + {{Text|")"|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    evaluate$ = r$
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} evaluatefunc$ (a2$, args {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, typ {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}})
    a$ = a2$
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"evaluatingfunction:"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(id.n) + {{Text|":"|#FFB100}} + a$
    {{Text|DIM|#F0F0F0}} id2 {{Text|AS|#F0F0F0}} idstruct
    id2 = id
    n$ = {{Text|RTRIM$|#F0F0F0}}(id2.n)
    typ = id2.ret
    targetid = currentid
    {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.callname) = {{Text|"func_stub"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Command not implemented"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.callname) = {{Text|"func_input"|#FFB100}} {{Text|AND|#F0F0F0}} args = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} inputfunctioncalled = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        inputfunctioncalled = {{Text|-1|#F580B1}}
        {{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= -4; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    SetDependency id2.Dependency
    argCount = countFunctionElements(a$)
    {{Text|REDIM|#F0F0F0}} providedArgs(argCount)
    passomit = {{Text|0|#F580B1}}
    hasOptionalFirstArg = {{Text|0|#F580B1}}
    firstOptionalArgument = {{Text|0|#F580B1}}
    f$ = {{Text|RTRIM$|#F0F0F0}}(id2.specialformat)
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(f$) {{Text|THEN|#F0F0F0}} {{Text|'special format given|#31C4C4}}
        {{Text|FOR|#F0F0F0}} fi = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} argCount
            providedArgs(fi) = hasFunctionElement(a$, fi)
        {{Text|NEXT|#F0F0F0}}
        {{Text|' Special case for the INSTR and _INSTRREV format, which have an optional argument at the beginning|#31C4C4}}
        {{Text|IF|#F0F0F0}} f$ = {{Text|"[?],?,?"|#FFB100}} {{Text|THEN|#F0F0F0}}
            hasOptionalFirstArg = {{Text|-1|#F580B1}}
            {{Text|IF|#F0F0F0}} {{Text|UBOUND|#F0F0F0}}(providedArgs) = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} providedArgs({{Text|3|#F580B1}})
                providedArgs({{Text|3|#F580B1}}) = providedArgs({{Text|2|#F580B1}})
                providedArgs({{Text|2|#F580B1}}) = providedArgs({{Text|1|#F580B1}})
                providedArgs({{Text|1|#F580B1}}) = {{Text|0|#F580B1}} {{Text|' The first argument was not provided|#31C4C4}}
                skipFirstArg = {{Text|-1|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} isValidArgSet(id2.specialformat, providedArgs(), firstOptionalArgument) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(id2.hr_syntax) > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                Give_Error {{Text|"Incorrect number of arguments - Reference: "|#FFB100}} + id2.hr_syntax
            {{Text|ELSE|#F0F0F0}}
                Give_Error {{Text|"Incorrect number of arguments passed to function"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        passomit = {{Text|1|#F580B1}} {{Text|'pass omit flags param to function|#31C4C4}}
    {{Text|ELSE|#F0F0F0}} {{Text|'no special format given|#31C4C4}}
        {{Text|FOR|#F0F0F0}} fi = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} argCount
            providedArgs(fi) = {{Text|-1|#F580B1}}
        {{Text|NEXT|#F0F0F0}}
        {{Text|IF|#F0F0F0}} n$ = {{Text|"ASC"|#FFB100}} {{Text|AND|#F0F0F0}} args = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} skipargnumchk
        {{Text|IF|#F0F0F0}} id2.overloaded = {{Text|-1|#F580B1}} {{Text|AND|#F0F0F0}} (args >= id2.minargs {{Text|AND|#F0F0F0}} args <= id2.args) {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} skipargnumchk
        {{Text|IF|#F0F0F0}} id2.args <> args {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(id2.hr_syntax) > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                Give_Error {{Text|"Incorrect number of arguments - Reference: "|#FFB100}} + id2.hr_syntax
            {{Text|ELSE|#F0F0F0}}
                Give_Error {{Text|"Incorrect number of arguments passed to function"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    skipargnumchk:
    r$ = {{Text|RTRIM$|#F0F0F0}}(id2.callname) + {{Text|"("|#FFB100}}
    {{Text|IF|#F0F0F0}} id2.args <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        curarg = {{Text|1|#F580B1}}
        firsti = {{Text|1|#F580B1}}
        {{Text|' The first optional argument is missing and not included in the|#31C4C4}}
        {{Text|' argument list|#31C4C4}}
        {{Text|IF|#F0F0F0}} skipFirstArg {{Text|THEN|#F0F0F0}}
            r$ = r$ + {{Text|"NULL,"|#FFB100}}
            curarg = {{Text|2|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        n = numelements(a$)
        {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
            l$ = getelement(a$, i)
            {{Text|IF|#F0F0F0}} l$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} l$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} (l$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} b = {{Text|0|#F580B1}}) {{Text|OR|#F0F0F0}} (i = n) {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} providedArgs(curarg) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Last function argument cannot be empty"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    r$ = r$ + {{Text|"NULL,"|#FFB100}}
                    firsti = i + {{Text|1|#F580B1}}
                    curarg = curarg + {{Text|1|#F580B1}}
                    {{Text|_CONTINUE|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                targettyp = {{Text|CVL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(id2.arg, curarg * {{Text|4|#F580B1}} - {{Text|4|#F580B1}} + {{Text|1|#F580B1}}, {{Text|4|#F580B1}}))
                nele = {{Text|ASC|#F0F0F0}}({{Text|MID$|#F0F0F0}}(id2.nele, curarg, {{Text|1|#F580B1}}))
                nelereq = {{Text|ASC|#F0F0F0}}({{Text|MID$|#F0F0F0}}(id2.nelereq, curarg, {{Text|1|#F580B1}}))
                {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}}
                    e$ = getelements$(a$, firsti, i)
                {{Text|ELSE|#F0F0F0}}
                    e$ = getelements$(a$, firsti, i - {{Text|1|#F580B1}})
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(e$, {{Text|2|#F580B1}}) = {{Text|"("|#FFB100}} + sp {{Text|THEN|#F0F0F0}} dereference = {{Text|1|#F580B1}} {{Text|ELSE|#F0F0F0}} dereference = {{Text|0|#F580B1}}
                {{Text|'*special case CVI,CVL,CVS,CVD,_CV (part #1)|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"_CV"|#FFB100}} {{Text|OR|#F0F0F0}} (n$ = {{Text|"CV"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} curarg = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        cvtype$ = type2symbol$(e$)
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        e$ = {{Text|""|#FFB100}}
                        {{Text|GOTO|#F0F0F0}} dontevaluate
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case MKI,MKL,MKS,MKD,_MK (part #1)|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"_MK"|#FFB100}} {{Text|OR|#F0F0F0}} (n$ = {{Text|"MK"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.musthave) = {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} curarg = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                            mktype$ = type2symbol$(e$)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"_MK:["|#FFB100}} + e$ + {{Text|"]:["|#FFB100}} + mktype$ + {{Text|"]"|#FFB100}}
                            e$ = {{Text|""|#FFB100}}
                            {{Text|GOTO|#F0F0F0}} dontevaluate
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"UBOUND"|#FFB100}} {{Text|OR|#F0F0F0}} n$ = {{Text|"LBOUND"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} curarg = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|'perform a "fake" evaluation of the array|#31C4C4}}
                        e$ = e$ + sp + {{Text|"("|#FFB100}} + sp + {{Text|")"|#FFB100}}
                        e$ = evaluate(e$, sourcetyp)
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected array-name"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISARRAY) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected array-name"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|'make a note of the array's index for later|#31C4C4}}
                        ulboundarray$ = e$
                        ulboundarraytyp = sourcetyp
                        e$ = {{Text|""|#FFB100}}
                        r$ = {{Text|""|#FFB100}}
                        {{Text|GOTO|#F0F0F0}} dontevaluate
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case: INPUT$ function|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"INPUT"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.musthave) = {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} curarg = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(e$, {{Text|2|#F580B1}}) = {{Text|"#"|#FFB100}} + sp {{Text|THEN|#F0F0F0}} e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|2|#F580B1}})
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case*|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"ASC"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} curarg = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                        e$ = evaluatetotyp$(e$, {{Text|32&|#F580B1}})
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        typ& = LONGTYPE - ISPOINTER
                        r$ = r$ + e$ + {{Text|")"|#FFB100}}
                        {{Text|GOTO|#F0F0F0}} evalfuncspecial
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'WriteBufLine MainTxtBuf, "n$="; n$|#31C4C4}}
                {{Text|'WriteBufLine MainTxtBuf, "curarg="; curarg|#31C4C4}}
                {{Text|'WriteBufLine MainTxtBuf, "e$="; e$|#31C4C4}}
                {{Text|'WriteBufLine MainTxtBuf, "r$="; r$|#31C4C4}}
                {{Text|'*special case*|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"_MEMGET"|#FFB100}} {{Text|OR|#F0F0F0}} (n$ = {{Text|"MEMGET"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} curarg = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        memget_blk$ = e$
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} curarg = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                        memget_offs$ = e$
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} curarg = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
                        e$ = {{Text|UCASE$|#F0F0F0}}(e$)
                        {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(e$, sp + {{Text|"*"|#FFB100}} + sp) {{Text|THEN|#F0F0F0}} {{Text|'multiplier will have an appended %,& or && symbol|#31C4C4}}
                            {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|2|#F580B1}}) = {{Text|"&&"|#FFB100}} {{Text|THEN|#F0F0F0}}
                                e$ = {{Text|LEFT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|2|#F580B1}})
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|1|#F580B1}}) = {{Text|"&"|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|1|#F580B1}}) = {{Text|"%"|#FFB100}} {{Text|THEN|#F0F0F0}} e$ = {{Text|LEFT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|1|#F580B1}})
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        t = typname2typ(e$)
                        {{Text|IF|#F0F0F0}} t = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid TYPE name"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISOFFSETINBITS {{Text|THEN|#F0F0F0}} Give_Error qb64prefix$ + {{Text|"BIT TYPE unsupported"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        memget_size = typname2typsize
                        {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected STRING * ..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            memget_ctyp$ = {{Text|"qbs*"|#FFB100}}
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                                memget_size = udtxsize(t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) \ {{Text|8|#F580B1}}
                                memget_ctyp$ = {{Text|"void*"|#FFB100}}
                            {{Text|ELSE|#F0F0F0}}
                                memget_size = (t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) \ {{Text|8|#F580B1}}
                                memget_ctyp$ = typ2ctyp$(t, {{Text|""|#FFB100}})
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|'assume checking off|#31C4C4}}
                        offs$ = evaluatetotyp(memget_offs$, OFFSETTYPE - ISPOINTER)
                        blkoffs$ = evaluatetotyp(memget_blk$, {{Text|-6|#F580B1}})
                        {{Text|IF|#F0F0F0}} NoChecks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|'change offs$ to be the return of the safe version|#31C4C4}}
                            offs$ = {{Text|"func__memget((mem_block*)"|#FFB100}} + blkoffs$ + {{Text|","|#FFB100}} + offs$ + {{Text|","|#FFB100}} + str2(memget_size) + {{Text|")"|#FFB100}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                            r$ = {{Text|"qbs_new_txt_len((char*)"|#FFB100}} + offs$ + {{Text|","|#FFB100}} + str2(memget_size) + {{Text|")"|#FFB100}}
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                                r$ = {{Text|"((void*)+"|#FFB100}} + offs$ + {{Text|")"|#FFB100}}
                                t = ISUDT + ISPOINTER + (t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}})
                            {{Text|ELSE|#F0F0F0}}
                                r$ = {{Text|"*("|#FFB100}} + memget_ctyp$ + {{Text|"*)("|#FFB100}} + offs$ + {{Text|")"|#FFB100}}
                                {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISPOINTER {{Text|THEN|#F0F0F0}} t = t - ISPOINTER
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        typ& = t
                        {{Text|GOTO|#F0F0F0}} evalfuncspecial
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'------------------------------------------------------------------------------------------------------------|#31C4C4}}
                e2$ = e$
                e$ = evaluate(e$, sourcetyp)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|'------------------------------------------------------------------------------------------------------------|#31C4C4}}
                {{Text|' a740g: ROR & ROL support|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"_ROR"|#FFB100}} {{Text|OR|#F0F0F0}} (n$ = {{Text|"ROR"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|OR|#F0F0F0}} n$ = {{Text|"_ROL"|#FFB100}} {{Text|OR|#F0F0F0}} (n$ = {{Text|"ROL"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                    rotlr_n$ = {{Text|LCASE$|#F0F0F0}}({{Text|RIGHT$|#F0F0F0}}(n$, {{Text|3|#F580B1}})) {{Text|' Get the last 3 characters and convert to lower case. We'll need this to construct the C call|#31C4C4}}
                    {{Text|IF|#F0F0F0}} curarg = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|' First paramater|#31C4C4}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|OR|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|OR|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISOFFSET) {{Text|OR|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISUDT) {{Text|THEN|#F0F0F0}} {{Text|' Bad parameters types|#31C4C4}}
                            Give_Error {{Text|"Expected non-floating-point value"|#FFB100}}
                            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE {{Text|THEN|#F0F0F0}} e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}}) {{Text|' This gets the C-style dereferencing syntax for an identifier (I think XD)|#31C4C4}}
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|' Establish which function (if any!) should be used|#31C4C4}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|' sourcetyp is the type of data (bits can be examined to get more details)|#31C4C4}}
                            e$ = {{Text|"func__"|#FFB100}} + rotlr_n$ + {{Text|"8("|#FFB100}} + e$
                            typ& = UBYTETYPE - ISPOINTER {{Text|' We force the return type here. This is passed back up to the caller|#31C4C4}}
                        {{Text|ELSEIF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}}
                            e$ = {{Text|"func__"|#FFB100}} + rotlr_n$ + {{Text|"16("|#FFB100}} + e$
                            typ& = UINTEGERTYPE - ISPOINTER
                        {{Text|ELSEIF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}}
                            e$ = {{Text|"func__"|#FFB100}} + rotlr_n$ + {{Text|"32("|#FFB100}} + e$
                            typ& = ULONGTYPE - ISPOINTER
                        {{Text|ELSEIF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}}
                            e$ = {{Text|"func__"|#FFB100}} + rotlr_n$ + {{Text|"64("|#FFB100}} + e$
                            typ& = UINTEGER64TYPE - ISPOINTER
                        {{Text|ELSE|#F0F0F0}}
                            Give_Error {{Text|"Unknown data size"|#FFB100}}
                            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        r$ = e$ {{Text|' Save whatever syntax he have so far|#31C4C4}}
                        e$ = {{Text|""|#FFB100}} {{Text|' This must be cleared so that it is not repeated when we get to parameter 2|#31C4C4}}
                        {{Text|GOTO|#F0F0F0}} dontevaluate {{Text|' Don't evaluate until we get the second parameter|#31C4C4}}
                    {{Text|ELSEIF|#F0F0F0}} curarg = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|' Second parameter|#31C4C4}}
                        {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE {{Text|THEN|#F0F0F0}} e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        r$ = r$ + e$ + {{Text|")"|#FFB100}}
                        {{Text|GOTO|#F0F0F0}} evalfuncspecial {{Text|' Evaluate now that we have everything|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'***special case***|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"_MEM"|#FFB100}} {{Text|OR|#F0F0F0}} (n$ = {{Text|"MEM"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} curarg = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} args = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                            targettyp = {{Text|-7|#F580B1}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} args = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                            r$ = {{Text|RTRIM$|#F0F0F0}}(id2.callname) + {{Text|"_at_offset"|#FFB100}} + {{Text|RIGHT$|#F0F0F0}}(r$, {{Text|LEN|#F0F0F0}}(r$) - {{Text|LEN|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(id2.callname)))
                            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISOFFSET) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected _MEM(_OFFSET-value,...)"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case*|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"_OFFSET"|#FFB100}} {{Text|OR|#F0F0F0}} (n$ = {{Text|"OFFSET"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        Give_Error qb64prefix$ + {{Text|"OFFSET expects the name of a variable/array"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISARRAY) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}} Give_Error qb64prefix$ + {{Text|"OFFSET cannot reference _BIT type arrays"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    r$ = {{Text|"((uptrszint)("|#FFB100}} + evaluatetotyp$(e2$, {{Text|-6|#F580B1}}) + {{Text|"))"|#FFB100}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    typ& = UOFFSETTYPE - ISPOINTER
                    {{Text|GOTO|#F0F0F0}} evalfuncspecial
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'_OFFSET|#31C4C4}}
                {{Text|'*_OFFSET exceptions*|#31C4C4}}
                {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISOFFSET {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} n$ = {{Text|"MKSMBF"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.musthave) = {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot convert _OFFSET type to other types"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} n$ = {{Text|"MKDMBF"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.musthave) = {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot convert _OFFSET type to other types"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case*|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"ENVIRON"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE {{Text|THEN|#F0F0F0}} e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|GOTO|#F0F0F0}} dontevaluate
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case*|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"LEN"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    typ& = LONGTYPE - ISPOINTER
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|'could be a string expression|#31C4C4}}
                        {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                            r$ = {{Text|"((int32)("|#FFB100}} + e$ + {{Text|")->len)"|#FFB100}}
                            {{Text|GOTO|#F0F0F0}} evalfuncspecial
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        Give_Error {{Text|"String expression or variable name required in LEN statement"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    r$ = evaluatetotyp$(e2$, {{Text|-5|#F580B1}}) {{Text|'use evaluatetotyp to get 'element' size|#31C4C4}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|GOTO|#F0F0F0}} evalfuncspecial
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case*|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"_BIN"|#FFB100}} {{Text|OR|#F0F0F0}} (n$ = {{Text|"BIN"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.musthave) = {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        bits = sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected numeric value"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        wasref = {{Text|0|#F580B1}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}}): wasref = {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        bits = sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}}
                            e$ = {{Text|"func__bin("|#FFB100}} + e$ + {{Text|","|#FFB100}} + str2$(bits) + {{Text|")"|#FFB100}}
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                                e$ = {{Text|"func__bin_float("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} bits = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} wasref = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} bits = {{Text|0|#F580B1}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                e$ = {{Text|"func__bin("|#FFB100}} + e$ + {{Text|","|#FFB100}} + str2$(bits) + {{Text|")"|#FFB100}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        typ& = STRINGTYPE - ISPOINTER
                        r$ = e$
                        {{Text|GOTO|#F0F0F0}} evalfuncspecial
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case*|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"OCT"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.musthave) = {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        bits = sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected numeric value"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        wasref = {{Text|0|#F580B1}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}}): wasref = {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        bits = sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}}
                            e$ = {{Text|"func_oct("|#FFB100}} + e$ + {{Text|","|#FFB100}} + str2$(bits) + {{Text|")"|#FFB100}}
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                                e$ = {{Text|"func_oct_float("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} bits = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} wasref = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} bits = {{Text|0|#F580B1}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                e$ = {{Text|"func_oct("|#FFB100}} + e$ + {{Text|","|#FFB100}} + str2$(bits) + {{Text|")"|#FFB100}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        typ& = STRINGTYPE - ISPOINTER
                        r$ = e$
                        {{Text|GOTO|#F0F0F0}} evalfuncspecial
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case*|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"HEX"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.musthave) = {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        bits = sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected numeric value"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        wasref = {{Text|0|#F580B1}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}}): wasref = {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        bits = sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}}
                            chars = (bits + {{Text|3|#F580B1}}) \ {{Text|4|#F580B1}}
                            e$ = {{Text|"func_hex("|#FFB100}} + e$ + {{Text|","|#FFB100}} + str2$(chars) + {{Text|")"|#FFB100}}
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                                e$ = {{Text|"func_hex_float("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} bits = {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} chars = {{Text|2|#F580B1}}
                                {{Text|IF|#F0F0F0}} bits = {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} chars = {{Text|4|#F580B1}}
                                {{Text|IF|#F0F0F0}} bits = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} chars = {{Text|8|#F580B1}}
                                {{Text|IF|#F0F0F0}} bits = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} wasref = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} chars = {{Text|16|#F580B1}} {{Text|ELSE|#F0F0F0}} chars = {{Text|0|#F580B1}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                e$ = {{Text|"func_hex("|#FFB100}} + e$ + {{Text|","|#FFB100}} + str2$(chars) + {{Text|")"|#FFB100}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        typ& = STRINGTYPE - ISPOINTER
                        r$ = e$
                        {{Text|GOTO|#F0F0F0}} evalfuncspecial
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case*|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"EXP"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    bits = sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected numeric value"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    bits = sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                    typ& = SINGLETYPE - ISPOINTER
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} bits = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"func_exp_single("|#FFB100}} + e$ + {{Text|")"|#FFB100}} {{Text|ELSE|#F0F0F0}} e$ = {{Text|"func_exp_float("|#FFB100}} + e$ + {{Text|")"|#FFB100}}: typ& = FLOATTYPE - ISPOINTER
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}}
                            e$ = {{Text|"func_exp_float("|#FFB100}} + e$ + {{Text|")"|#FFB100}}: typ& = FLOATTYPE - ISPOINTER
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} bits <= {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"func_exp_single("|#FFB100}} + e$ + {{Text|")"|#FFB100}} {{Text|ELSE|#F0F0F0}} e$ = {{Text|"func_exp_float("|#FFB100}} + e$ + {{Text|")"|#FFB100}}: typ& = FLOATTYPE - ISPOINTER
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    r$ = e$
                    {{Text|GOTO|#F0F0F0}} evalfuncspecial
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case*|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"INT"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected numeric value"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|'establish which function (if any!) should be used|#31C4C4}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}} e$ = {{Text|"floor("|#FFB100}} + e$ + {{Text|")"|#FFB100}} {{Text|ELSE|#F0F0F0}} e$ = {{Text|"("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                    r$ = e$
                    typ& = sourcetyp
                    {{Text|GOTO|#F0F0F0}} evalfuncspecial
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case*|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"FIX"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected numeric value"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|'establish which function (if any!) should be used|#31C4C4}}
                    bits = sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} bits > {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"func_fix_float("|#FFB100}} + e$ + {{Text|")"|#FFB100}} {{Text|ELSE|#F0F0F0}} e$ = {{Text|"func_fix_double("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                    {{Text|ELSE|#F0F0F0}}
                        e$ = {{Text|"("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    r$ = e$
                    typ& = sourcetyp
                    {{Text|GOTO|#F0F0F0}} evalfuncspecial
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case*|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"_ROUND"|#FFB100}} {{Text|OR|#F0F0F0}} (n$ = {{Text|"ROUND"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected numeric value"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|'establish which function (if any!) should be used|#31C4C4}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                        bits = sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                        {{Text|IF|#F0F0F0}} bits > {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"func_round_float("|#FFB100}} + e$ + {{Text|")"|#FFB100}} {{Text|ELSE|#F0F0F0}} e$ = {{Text|"func_round_double("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                    {{Text|ELSE|#F0F0F0}}
                        e$ = {{Text|"("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    r$ = e$
                    typ& = {{Text|64&|#F580B1}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISOFFSET) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}} typ& = UOFFSETTYPE - ISPOINTER {{Text|ELSE|#F0F0F0}} typ& = OFFSETTYPE - ISPOINTER
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|GOTO|#F0F0F0}} evalfuncspecial
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case*|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"CDBL"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISOFFSET) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot convert _OFFSET type to other types"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected numeric value"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|'establish which function (if any!) should be used|#31C4C4}}
                    bits = sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} bits > {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"func_cdbl_float("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                    {{Text|ELSE|#F0F0F0}}
                        e$ = {{Text|"((double)("|#FFB100}} + e$ + {{Text|"))"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    r$ = e$
                    typ& = DOUBLETYPE - ISPOINTER
                    {{Text|GOTO|#F0F0F0}} evalfuncspecial
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case*|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"CSNG"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISOFFSET) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot convert _OFFSET type to other types"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected numeric value"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|'establish which function (if any!) should be used|#31C4C4}}
                    bits = sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} bits = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"func_csng_double("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                        {{Text|IF|#F0F0F0}} bits > {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"func_csng_float("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                    {{Text|ELSE|#F0F0F0}}
                        e$ = {{Text|"((double)("|#FFB100}} + e$ + {{Text|"))"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    r$ = e$
                    typ& = SINGLETYPE - ISPOINTER
                    {{Text|GOTO|#F0F0F0}} evalfuncspecial
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case*|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"CLNG"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISOFFSET) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot convert _OFFSET type to other types"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected numeric value"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|'establish which function (if any!) should be used|#31C4C4}}
                    bits = sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} bits > {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"func_clng_float("|#FFB100}} + e$ + {{Text|")"|#FFB100}} {{Text|ELSE|#F0F0F0}} e$ = {{Text|"func_clng_double("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                    {{Text|ELSE|#F0F0F0}} {{Text|'integer|#31C4C4}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} bits = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"func_clng_ulong("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                            {{Text|IF|#F0F0F0}} bits > {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"func_clng_uint64("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                        {{Text|ELSE|#F0F0F0}} {{Text|'signed|#31C4C4}}
                            {{Text|IF|#F0F0F0}} bits > {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"func_clng_int64("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    r$ = e$
                    typ& = {{Text|32&|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} evalfuncspecial
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case*|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"CINT"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISOFFSET) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot convert _OFFSET type to other types"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected numeric value"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|'establish which function (if any!) should be used|#31C4C4}}
                    bits = sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} bits > {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"func_cint_float("|#FFB100}} + e$ + {{Text|")"|#FFB100}} {{Text|ELSE|#F0F0F0}} e$ = {{Text|"func_cint_double("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                    {{Text|ELSE|#F0F0F0}} {{Text|'integer|#31C4C4}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} bits > {{Text|15|#F580B1}} {{Text|AND|#F0F0F0}} bits <= {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"func_cint_ulong("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                            {{Text|IF|#F0F0F0}} bits > {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"func_cint_uint64("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                        {{Text|ELSE|#F0F0F0}} {{Text|'signed|#31C4C4}}
                            {{Text|IF|#F0F0F0}} bits > {{Text|16|#F580B1}} {{Text|AND|#F0F0F0}} bits <= {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"func_cint_long("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                            {{Text|IF|#F0F0F0}} bits > {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"func_cint_int64("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    r$ = e$
                    typ& = {{Text|16&|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} evalfuncspecial
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case MKI,MKL,MKS,MKD,_MK (part #2)|#31C4C4}}
                mktype = {{Text|0|#F580B1}}
                size = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"MKI"|#FFB100}} {{Text|THEN|#F0F0F0}} mktype = {{Text|1|#F580B1}}: mktype$ = {{Text|"%"|#FFB100}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"MKL"|#FFB100}} {{Text|THEN|#F0F0F0}} mktype = {{Text|2|#F580B1}}: mktype$ = {{Text|"&"|#FFB100}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"MKS"|#FFB100}} {{Text|THEN|#F0F0F0}} mktype = {{Text|3|#F580B1}}: mktype$ = {{Text|"!"|#FFB100}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"MKD"|#FFB100}} {{Text|THEN|#F0F0F0}} mktype = {{Text|4|#F580B1}}: mktype$ = {{Text|"#"|#FFB100}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"_MK"|#FFB100}} {{Text|OR|#F0F0F0}} (n$ = {{Text|"MK"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} mktype = {{Text|-1|#F580B1}}
                {{Text|IF|#F0F0F0}} mktype {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} mktype <> {{Text|-1|#F580B1}} {{Text|OR|#F0F0F0}} curarg = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|'IF (sourcetyp AND ISOFFSET) THEN Give_Error "Cannot convert " + qb64prefix$ + "OFFSET type to other types": EXIT FUNCTION|#31C4C4}}
                        {{Text|'both _MK and trad. process the following|#31C4C4}}
                        qtyp& = {{Text|0|#F580B1}}
                        {{Text|IF|#F0F0F0}} mktype$ = {{Text|"%%"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"b"|#FFB100}}: qtyp& = BYTETYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} mktype$ = {{Text|"~%%"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"ub"|#FFB100}}: qtyp& = UBYTETYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} mktype$ = {{Text|"%"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"i"|#FFB100}}: qtyp& = INTEGERTYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} mktype$ = {{Text|"~%"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"ui"|#FFB100}}: qtyp& = UINTEGERTYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} mktype$ = {{Text|"&"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"l"|#FFB100}}: qtyp& = LONGTYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} mktype$ = {{Text|"~&"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"ul"|#FFB100}}: qtyp& = ULONGTYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} mktype$ = {{Text|"&&"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"i64"|#FFB100}}: qtyp& = INTEGER64TYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} mktype$ = {{Text|"~&&"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"ui64"|#FFB100}}: qtyp& = UINTEGER64TYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} mktype$ = {{Text|"!"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"s"|#FFB100}}: qtyp& = SINGLETYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} mktype$ = {{Text|"#"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"d"|#FFB100}}: qtyp& = DOUBLETYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} mktype$ = {{Text|"##"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"f"|#FFB100}}: qtyp& = FLOATTYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} mktype$ = {{Text|"%&"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"o"|#FFB100}}: qtyp& = OFFSETTYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} mktype$ = {{Text|"~%&"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"uo"|#FFB100}}: qtyp& = UOFFSETTYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(mktype$, {{Text|2|#F580B1}}) = {{Text|"~`"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"ubit"|#FFB100}}: qtyp& = UINTEGER64TYPE - ISPOINTER: size = {{Text|VAL|#F0F0F0}}({{Text|RIGHT$|#F0F0F0}}(mktype$, {{Text|LEN|#F0F0F0}}(mktype$) - {{Text|2|#F580B1}}))
                        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(mktype$, {{Text|1|#F580B1}}) = {{Text|"`"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"bit"|#FFB100}}: qtyp& = INTEGER64TYPE - ISPOINTER: size = {{Text|VAL|#F0F0F0}}({{Text|RIGHT$|#F0F0F0}}(mktype$, {{Text|LEN|#F0F0F0}}(mktype$) - {{Text|1|#F580B1}}))
                        {{Text|IF|#F0F0F0}} qtyp& = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error qb64prefix$ + {{Text|"MK only accepts numeric types"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} size {{Text|THEN|#F0F0F0}}
                            r$ = ctype$ + {{Text|"2string("|#FFB100}} + str2(size) + {{Text|","|#FFB100}}
                        {{Text|ELSE|#F0F0F0}}
                            r$ = ctype$ + {{Text|"2string("|#FFB100}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        nocomma = {{Text|1|#F580B1}}
                        targettyp = qtyp&
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case CVI,CVL,CVS,CVD,_CV (part #2)|#31C4C4}}
                cvtype = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"CVI"|#FFB100}} {{Text|THEN|#F0F0F0}} cvtype = {{Text|1|#F580B1}}: cvtype$ = {{Text|"%"|#FFB100}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"CVL"|#FFB100}} {{Text|THEN|#F0F0F0}} cvtype = {{Text|2|#F580B1}}: cvtype$ = {{Text|"&"|#FFB100}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"CVS"|#FFB100}} {{Text|THEN|#F0F0F0}} cvtype = {{Text|3|#F580B1}}: cvtype$ = {{Text|"!"|#FFB100}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"CVD"|#FFB100}} {{Text|THEN|#F0F0F0}} cvtype = {{Text|4|#F580B1}}: cvtype$ = {{Text|"#"|#FFB100}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"_CV"|#FFB100}} {{Text|OR|#F0F0F0}} (n$ = {{Text|"CV"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} cvtype = {{Text|-1|#F580B1}}
                {{Text|IF|#F0F0F0}} cvtype {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} cvtype <> {{Text|-1|#F580B1}} {{Text|OR|#F0F0F0}} curarg = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error n$ + {{Text|" requires a STRING argument"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        typ& = {{Text|0|#F580B1}}
                        {{Text|IF|#F0F0F0}} cvtype$ = {{Text|"%%"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"b"|#FFB100}}: typ& = BYTETYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} cvtype$ = {{Text|"~%%"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"ub"|#FFB100}}: typ& = UBYTETYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} cvtype$ = {{Text|"%"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"i"|#FFB100}}: typ& = INTEGERTYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} cvtype$ = {{Text|"~%"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"ui"|#FFB100}}: typ& = UINTEGERTYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} cvtype$ = {{Text|"&"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"l"|#FFB100}}: typ& = LONGTYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} cvtype$ = {{Text|"~&"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"ul"|#FFB100}}: typ& = ULONGTYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} cvtype$ = {{Text|"&&"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"i64"|#FFB100}}: typ& = INTEGER64TYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} cvtype$ = {{Text|"~&&"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"ui64"|#FFB100}}: typ& = UINTEGER64TYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} cvtype$ = {{Text|"!"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"s"|#FFB100}}: typ& = SINGLETYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} cvtype$ = {{Text|"#"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"d"|#FFB100}}: typ& = DOUBLETYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} cvtype$ = {{Text|"##"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"f"|#FFB100}}: typ& = FLOATTYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} cvtype$ = {{Text|"%&"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"o"|#FFB100}}: typ& = OFFSETTYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} cvtype$ = {{Text|"~%&"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"uo"|#FFB100}}: typ& = UOFFSETTYPE - ISPOINTER
                        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(cvtype$, {{Text|2|#F580B1}}) = {{Text|"~`"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"ubit"|#FFB100}}: typ& = UINTEGER64TYPE - ISPOINTER: size = {{Text|VAL|#F0F0F0}}({{Text|RIGHT$|#F0F0F0}}(cvtype$, {{Text|LEN|#F0F0F0}}(cvtype$) - {{Text|2|#F580B1}}))
                        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(cvtype$, {{Text|1|#F580B1}}) = {{Text|"`"|#FFB100}} {{Text|THEN|#F0F0F0}} ctype$ = {{Text|"bit"|#FFB100}}: typ& = INTEGER64TYPE - ISPOINTER: size = {{Text|VAL|#F0F0F0}}({{Text|RIGHT$|#F0F0F0}}(cvtype$, {{Text|LEN|#F0F0F0}}(cvtype$) - {{Text|1|#F580B1}}))
                        {{Text|IF|#F0F0F0}} typ& = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error qb64prefix$ + {{Text|"CV cannot return STRING type!"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} ctype$ = {{Text|"bit"|#FFB100}} {{Text|OR|#F0F0F0}} ctype$ = {{Text|"ubit"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            r$ = {{Text|"string2"|#FFB100}} + ctype$ + {{Text|"("|#FFB100}} + e$ + {{Text|","|#FFB100}} + str2(size) + {{Text|")"|#FFB100}}
                        {{Text|ELSE|#F0F0F0}}
                            r$ = {{Text|"string2"|#FFB100}} + ctype$ + {{Text|"("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|GOTO|#F0F0F0}} evalfuncspecial
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.n) = {{Text|"STRING"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} curarg = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            sourcetyp = {{Text|64&|#F580B1}}
                            e$ = {{Text|"("|#FFB100}} + e$ + {{Text|"->chr[0])"|#FFB100}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.n) = {{Text|"SADD"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        Give_Error {{Text|"SADD only accepts variable-length string variables"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) {{Text|THEN|#F0F0F0}}
                        Give_Error {{Text|"SADD only accepts variable-length string variables"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISINCONVENTIONALMEMORY) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        recompile = {{Text|1|#F580B1}}
                        cmemlist({{Text|VAL|#F0F0F0}}(e$)) = {{Text|1|#F580B1}}
                        r$ = {{Text|"[CONVENTIONAL_MEMORY_REQUIRED]"|#FFB100}}
                        typ& = {{Text|64&|#F580B1}}
                        {{Text|GOTO|#F0F0F0}} evalfuncspecial
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    r$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    r$ = {{Text|"((unsigned short)("|#FFB100}} + r$ + {{Text|"->chr-&cmem[1280]))"|#FFB100}}
                    typ& = {{Text|64&|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} evalfuncspecial
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.n) = {{Text|"VARPTR"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        Give_Error {{Text|"Expected reference to a variable/array"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.musthave) = {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISINCONVENTIONALMEMORY) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            recompile = {{Text|1|#F580B1}}
                            cmemlist({{Text|VAL|#F0F0F0}}(e$)) = {{Text|1|#F580B1}}
                            r$ = {{Text|"[CONVENTIONAL_MEMORY_REQUIRED]"|#FFB100}}
                            typ& = ISSTRING
                            {{Text|GOTO|#F0F0F0}} evalfuncspecial
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISARRAY) {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"VARPTR$ only accepts variable-length string arrays"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"VARPTR$ only accepts variable-length string arrays"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|'must be a simple variable|#31C4C4}}
                        {{Text|'!assuming it is in cmem in DBLOCK|#31C4C4}}
                        r$ = refer(e$, sourcetyp, {{Text|1|#F580B1}})
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISARRAY) {{Text|THEN|#F0F0F0}} r$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            r$ = r$ + {{Text|"->cmem_descriptor_offset"|#FFB100}}
                            t = {{Text|3|#F580B1}}
                        {{Text|ELSE|#F0F0F0}}
                            r$ = {{Text|"((unsigned short)(((uint8*)"|#FFB100}} + r$ + {{Text|")-&cmem[1280]))"|#FFB100}}
                            {{Text|'*top bit on=unsigned|#31C4C4}}
                            {{Text|'*second top bit on=bit-value (lower bits indicate the size)|#31C4C4}}
                            {{Text|'BYTE=1|#31C4C4}}
                            {{Text|'INTEGER=2|#31C4C4}}
                            {{Text|'STRING=3|#31C4C4}}
                            {{Text|'SINGLE=4|#31C4C4}}
                            {{Text|'INT64=5|#31C4C4}}
                            {{Text|'FLOAT=6|#31C4C4}}
                            {{Text|'DOUBLE=8|#31C4C4}}
                            {{Text|'LONG=20|#31C4C4}}
                            {{Text|'BIT=64+n|#31C4C4}}
                            t = {{Text|0|#F580B1}}
                            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}} t = t + {{Text|128|#F580B1}}
                            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}}
                                t = t + {{Text|64|#F580B1}}
                                t = t + (sourcetyp {{Text|AND|#F0F0F0}} {{Text|63|#F580B1}})
                            {{Text|ELSE|#F0F0F0}}
                                bits = sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                                {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} bits = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} t = t + {{Text|4|#F580B1}}
                                    {{Text|IF|#F0F0F0}} bits = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} t = t + {{Text|8|#F580B1}}
                                    {{Text|IF|#F0F0F0}} bits = {{Text|256|#F580B1}} {{Text|THEN|#F0F0F0}} t = t + {{Text|6|#F580B1}}
                                {{Text|ELSE|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} bits = {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} t = t + {{Text|1|#F580B1}}
                                    {{Text|IF|#F0F0F0}} bits = {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} t = t + {{Text|2|#F580B1}}
                                    {{Text|IF|#F0F0F0}} bits = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} t = t + {{Text|20|#F580B1}}
                                    {{Text|IF|#F0F0F0}} bits = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} t = t + {{Text|5|#F580B1}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        r$ = {{Text|"func_varptr_helper("|#FFB100}} + str2(t) + {{Text|","|#FFB100}} + r$ + {{Text|")"|#FFB100}}
                        typ& = ISSTRING
                        {{Text|GOTO|#F0F0F0}} evalfuncspecial
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'end of varptr$|#31C4C4}}
                    {{Text|'VARPTR|#31C4C4}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISINCONVENTIONALMEMORY) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        recompile = {{Text|1|#F580B1}}
                        cmemlist({{Text|VAL|#F0F0F0}}(e$)) = {{Text|1|#F580B1}}
                        r$ = {{Text|"[CONVENTIONAL_MEMORY_REQUIRED]"|#FFB100}}
                        typ& = {{Text|64&|#F580B1}}
                        {{Text|GOTO|#F0F0F0}} evalfuncspecial
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISARRAY) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"VARPTR cannot reference _BIT type arrays"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|'string array?|#31C4C4}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) {{Text|THEN|#F0F0F0}}
                                getid {{Text|VAL|#F0F0F0}}(e$)
                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                m = id.tsize
                                index$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|INSTR|#F0F0F0}}(e$, sp3))
                                typ = {{Text|64&|#F580B1}}
                                r$ = {{Text|"(("|#FFB100}} + index$ + {{Text|")*"|#FFB100}} + str2(m) + {{Text|")"|#FFB100}}
                                {{Text|GOTO|#F0F0F0}} evalfuncspecial
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|'return the offset of the string's descriptor|#31C4C4}}
                                r$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                r$ = r$ + {{Text|"->cmem_descriptor_offset"|#FFB100}}
                                typ = {{Text|64&|#F580B1}}
                                {{Text|GOTO|#F0F0F0}} evalfuncspecial
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                            e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|INSTR|#F0F0F0}}(e$, sp3)) {{Text|'skip idnumber|#31C4C4}}
                            e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|INSTR|#F0F0F0}}(e$, sp3)) {{Text|'skip u|#31C4C4}}
                            o$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|INSTR|#F0F0F0}}(e$, sp3)) {{Text|'skip e|#31C4C4}}
                            typ = {{Text|64&|#F580B1}}
                            r$ = {{Text|"("|#FFB100}} + o$ + {{Text|")"|#FFB100}}
                            {{Text|GOTO|#F0F0F0}} evalfuncspecial
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|'non-UDT array|#31C4C4}}
                        m = (sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) \ {{Text|8|#F580B1}} {{Text|'calculate size multiplier|#31C4C4}}
                        index$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|INSTR|#F0F0F0}}(e$, sp3))
                        typ = {{Text|64&|#F580B1}}
                        r$ = {{Text|"(("|#FFB100}} + index$ + {{Text|")*"|#FFB100}} + str2(m) + {{Text|")"|#FFB100}}
                        {{Text|GOTO|#F0F0F0}} evalfuncspecial
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'not an array|#31C4C4}}
                    {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                        r$ = refer(e$, sourcetyp, {{Text|1|#F580B1}})
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|INSTR|#F0F0F0}}(e$, sp3)) {{Text|'skip idnumber|#31C4C4}}
                        e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|INSTR|#F0F0F0}}(e$, sp3)) {{Text|'skip u|#31C4C4}}
                        o$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|INSTR|#F0F0F0}}(e$, sp3)) {{Text|'skip e|#31C4C4}}
                        typ = {{Text|64&|#F580B1}}
                        {{Text|'if sub/func arg, may not be in DBLOCK|#31C4C4}}
                        getid {{Text|VAL|#F0F0F0}}(e$)
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} id.sfarg {{Text|THEN|#F0F0F0}} {{Text|'could be in DBLOCK|#31C4C4}}
                            {{Text|'note: segment could be the closest segment to UDT element or the base of DBLOCK|#31C4C4}}
                            r$ = {{Text|"varptr_dblock_check(((uint8*)"|#FFB100}} + r$ + {{Text|")+("|#FFB100}} + o$ + {{Text|"))"|#FFB100}}
                        {{Text|ELSE|#F0F0F0}} {{Text|'definitely in DBLOCK|#31C4C4}}
                            {{Text|'give offset relative to DBLOCK|#31C4C4}}
                            r$ = {{Text|"((unsigned short)(((uint8*)"|#FFB100}} + r$ + {{Text|") - &cmem[1280] + ("|#FFB100}} + o$ + {{Text|") ))"|#FFB100}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|GOTO|#F0F0F0}} evalfuncspecial
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    typ = {{Text|64&|#F580B1}}
                    r$ = refer(e$, sourcetyp, {{Text|1|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) {{Text|THEN|#F0F0F0}}
                            {{Text|'if sub/func arg, may not be in DBLOCK|#31C4C4}}
                            getid {{Text|VAL|#F0F0F0}}(e$)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} id.sfarg {{Text|THEN|#F0F0F0}} {{Text|'could be in DBLOCK|#31C4C4}}
                                r$ = {{Text|"varptr_dblock_check("|#FFB100}} + r$ + {{Text|"->chr)"|#FFB100}}
                            {{Text|ELSE|#F0F0F0}} {{Text|'definitely in DBLOCK|#31C4C4}}
                                r$ = {{Text|"((unsigned short)("|#FFB100}} + r$ + {{Text|"->chr-&cmem[1280]))"|#FFB100}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|ELSE|#F0F0F0}}
                            r$ = r$ + {{Text|"->cmem_descriptor_offset"|#FFB100}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|GOTO|#F0F0F0}} evalfuncspecial
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'single, simple variable|#31C4C4}}
                    {{Text|'if sub/func arg, may not be in DBLOCK|#31C4C4}}
                    getid {{Text|VAL|#F0F0F0}}(e$)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} id.sfarg {{Text|THEN|#F0F0F0}} {{Text|'could be in DBLOCK|#31C4C4}}
                        r$ = {{Text|"varptr_dblock_check((uint8*)"|#FFB100}} + r$ + {{Text|")"|#FFB100}}
                    {{Text|ELSE|#F0F0F0}} {{Text|'definitely in DBLOCK|#31C4C4}}
                        r$ = {{Text|"((unsigned short)(((uint8*)"|#FFB100}} + r$ + {{Text|")-&cmem[1280]))"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|GOTO|#F0F0F0}} evalfuncspecial
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'*special case*|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id2.n) = {{Text|"VARSEG"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        Give_Error {{Text|"Expected reference to a variable/array"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISINCONVENTIONALMEMORY) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        recompile = {{Text|1|#F580B1}}
                        cmemlist({{Text|VAL|#F0F0F0}}(e$)) = {{Text|1|#F580B1}}
                        r$ = {{Text|"[CONVENTIONAL_MEMORY_REQUIRED]"|#FFB100}}
                        typ& = {{Text|64&|#F580B1}}
                        {{Text|GOTO|#F0F0F0}} evalfuncspecial
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'array?|#31C4C4}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISARRAY) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
                                r$ = {{Text|"80"|#FFB100}}
                                typ = {{Text|64&|#F580B1}}
                                {{Text|GOTO|#F0F0F0}} evalfuncspecial
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        typ = {{Text|64&|#F580B1}}
                        r$ = {{Text|"( ( ((ptrszint)("|#FFB100}} + refer(e$, sourcetyp, {{Text|1|#F580B1}}) + {{Text|"[0])) - ((ptrszint)(&cmem[0])) ) /16)"|#FFB100}}
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|GOTO|#F0F0F0}} evalfuncspecial
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'single variable/(var-len)string/udt? (usually stored in DBLOCK)|#31C4C4}}
                    typ = {{Text|64&|#F580B1}}
                    {{Text|'if sub/func arg, may not be in DBLOCK|#31C4C4}}
                    getid {{Text|VAL|#F0F0F0}}(e$)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} id.sfarg <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                            r$ = refer(e$, sourcetyp, {{Text|1|#F580B1}})
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|INSTR|#F0F0F0}}(e$, sp3)) {{Text|'skip idnumber|#31C4C4}}
                            e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|INSTR|#F0F0F0}}(e$, sp3)) {{Text|'skip u|#31C4C4}}
                            o$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|INSTR|#F0F0F0}}(e$, sp3)) {{Text|'skip e|#31C4C4}}
                            r$ = {{Text|"varseg_dblock_check(((uint8*)"|#FFB100}} + r$ + {{Text|")+("|#FFB100}} + o$ + {{Text|"))"|#FFB100}}
                        {{Text|ELSE|#F0F0F0}}
                            r$ = {{Text|"varseg_dblock_check((uint8*)"|#FFB100}} + refer(e$, sourcetyp, {{Text|1|#F580B1}}) + {{Text|")"|#FFB100}}
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|'can be assumed to be in DBLOCK|#31C4C4}}
                        r$ = {{Text|"80"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|GOTO|#F0F0F0}} evalfuncspecial
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'varseg|#31C4C4}}
                {{Text|'note: this code has already been called...|#31C4C4}}
                {{Text|'------------------------------------------------------------------------------------------------------------|#31C4C4}}
                {{Text|'e2$ = e$|#31C4C4}}
                {{Text|'e$ = evaluate(e$, sourcetyp)|#31C4C4}}
                {{Text|'------------------------------------------------------------------------------------------------------------|#31C4C4}}
                {{Text|'note: this comment makes no sense...|#31C4C4}}
                {{Text|'any numeric variable, but it must be type-speficied|#31C4C4}}
                {{Text|IF|#F0F0F0}} targettyp = {{Text|-2|#F580B1}} {{Text|THEN|#F0F0F0}}
                    e$ = evaluatetotyp(e2$, {{Text|-2|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|GOTO|#F0F0F0}} dontevaluate
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'-2|#31C4C4}}
                {{Text|IF|#F0F0F0}} targettyp = {{Text|-7|#F580B1}} {{Text|THEN|#F0F0F0}}
                    e$ = evaluatetotyp(e2$, {{Text|-7|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|GOTO|#F0F0F0}} dontevaluate
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'-7|#31C4C4}}
                {{Text|IF|#F0F0F0}} targettyp = {{Text|-8|#F580B1}} {{Text|THEN|#F0F0F0}}
                    e$ = evaluatetotyp(e2$, {{Text|-8|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|GOTO|#F0F0F0}} dontevaluate
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'-8|#31C4C4}}
                {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISOFFSET {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISOFFSET) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} id2.internal_subfunc = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot convert _OFFSET type to other types"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'note: this is used for functions like STR(...) which accept all types...|#31C4C4}}
                explicitreference = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} targettyp = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    explicitreference = {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Number required for function"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    targettyp = sourcetyp
                    {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISPOINTER) {{Text|THEN|#F0F0F0}} targettyp = targettyp - ISPOINTER
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'pointer?|#31C4C4}}
                {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISPOINTER) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} dereference = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'check deferencing wasn't used|#31C4C4}}
                        {{Text|'note: array pointer|#31C4C4}}
                        {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISARRAY) {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected arrayname()"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISARRAY) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected arrayname()"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"evaluatefunc:array reference:["|#FFB100}} + e$ + {{Text|"]"|#FFB100}}
                            {{Text|'check arrays are of same type|#31C4C4}}
                            targettyp2 = targettyp: sourcetyp2 = sourcetyp
                            targettyp2 = targettyp2 {{Text|AND|#F0F0F0}} ({{Text|511|#F580B1}} + ISOFFSETINBITS + ISUDT + ISSTRING + ISFIXEDLENGTH + ISFLOAT)
                            sourcetyp2 = sourcetyp2 {{Text|AND|#F0F0F0}} ({{Text|511|#F580B1}} + ISOFFSETINBITS + ISUDT + ISSTRING + ISFIXEDLENGTH + ISFLOAT)
                            {{Text|IF|#F0F0F0}} sourcetyp2 <> targettyp2 {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Incorrect array type passed to function"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            {{Text|'check arrayname was followed by '()'|#31C4C4}}
                            {{Text|IF|#F0F0F0}} targettyp {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"evaluatefunc:array reference:udt reference:["|#FFB100}} + e$ + {{Text|"]"|#FFB100}}
                                {{Text|'get UDT info|#31C4C4}}
                                udtrefid = {{Text|VAL|#F0F0F0}}(e$)
                                getid udtrefid
                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                udtrefi = {{Text|INSTR|#F0F0F0}}(e$, sp3) {{Text|'end of id|#31C4C4}}
                                udtrefi2 = {{Text|INSTR|#F0F0F0}}(udtrefi + {{Text|1|#F580B1}}, e$, sp3) {{Text|'end of u|#31C4C4}}
                                udtrefu = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(e$, udtrefi + {{Text|1|#F580B1}}, udtrefi2 - udtrefi - {{Text|1|#F580B1}}))
                                udtrefi3 = {{Text|INSTR|#F0F0F0}}(udtrefi2 + {{Text|1|#F580B1}}, e$, sp3) {{Text|'skip e|#31C4C4}}
                                udtrefe = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(e$, udtrefi2 + {{Text|1|#F580B1}}, udtrefi3 - udtrefi2 - {{Text|1|#F580B1}}))
                                o$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - udtrefi3)
                                {{Text|'note: most of the UDT info above is not required|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(o$, {{Text|4|#F580B1}}) <> {{Text|"(0)*"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected arrayname()"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|2|#F580B1}}) <> sp3 + {{Text|"0"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected arrayname()"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            idnum = {{Text|VAL|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(e$, {{Text|INSTR|#F0F0F0}}(e$, sp3) - {{Text|1|#F580B1}}))
                            getid idnum
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} targettyp {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}}
                                targettypsize = {{Text|CVL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(id2.argsize, curarg * {{Text|4|#F580B1}} - {{Text|4|#F580B1}} + {{Text|1|#F580B1}}, {{Text|4|#F580B1}}))
                                {{Text|IF|#F0F0F0}} id.tsize <> targettypsize {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Incorrect array type passed to function"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(sfcmemargs(targetid), curarg, {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}({{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|'cmem required?|#31C4C4}}
                                {{Text|IF|#F0F0F0}} cmemlist(idnum) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    cmemlist(idnum) = {{Text|1|#F580B1}}
                                    recompile = {{Text|1|#F580B1}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} id.linkid = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|'if id.linkid is 0, it means the number of array elements is definietly|#31C4C4}}
                                {{Text|'known of the array being passed, this is not some "fake"/unknown array.|#31C4C4}}
                                {{Text|'using the numer of array elements of a fake array would be dangerous!|#31C4C4}}
                                {{Text|IF|#F0F0F0}} nelereq = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|'only continue if the number of array elements required is unknown|#31C4C4}}
                                    {{Text|'and it needs to be set|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} id.arrayelements <> {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        nelereq = id.arrayelements
                                        {{Text|MID$|#F0F0F0}}(id2.nelereq, curarg, {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}(nelereq)
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    ids(targetid) = id2
                                {{Text|ELSE|#F0F0F0}}
                                    {{Text|'the number of array elements required is known AND|#31C4C4}}
                                    {{Text|'the number of elements in the array to be passed is known|#31C4C4}}
                                    {{Text|'REMOVE FOR TESTING PURPOSES ONLY!!! SHOULD BE UNREM'd!|#31C4C4}}
                                    {{Text|'print id.arrayelements,nelereq|#31C4C4}}
                                    {{Text|'            1      ,  2|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} id.arrayelements <> nelereq {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Passing arrays with a differing number of elements to a SUB/FUNCTION is not supported"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            e$ = refer(e$, sourcetyp, {{Text|1|#F580B1}})
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            {{Text|GOTO|#F0F0F0}} dontevaluate
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|'note: not an array...|#31C4C4}}
                        {{Text|'target is not an array|#31C4C4}}
                        {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}}
                                idnum = {{Text|VAL|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(e$, {{Text|INSTR|#F0F0F0}}(e$, sp3) - {{Text|1|#F580B1}})) {{Text|'id# of sourcetyp|#31C4C4}}
                                targettyp2 = targettyp: sourcetyp2 = sourcetyp
                                {{Text|'get info about source/target|#31C4C4}}
                                arr = {{Text|0|#F580B1}}: {{Text|IF|#F0F0F0}} (sourcetyp2 {{Text|AND|#F0F0F0}} ISARRAY) {{Text|THEN|#F0F0F0}} arr = {{Text|1|#F580B1}}
                                passudtelement = {{Text|0|#F580B1}}: {{Text|IF|#F0F0F0}} (targettyp2 {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (sourcetyp2 {{Text|AND|#F0F0F0}} ISUDT) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} passudtelement = {{Text|1|#F580B1}}: sourcetyp2 = sourcetyp2 - ISUDT
                                {{Text|'remove flags irrelevant for comparison... ISPOINTER,ISREFERENCE,ISINCONVENTIONALMEMORY,ISARRAY|#31C4C4}}
                                targettyp2 = targettyp2 {{Text|AND|#F0F0F0}} ({{Text|511|#F580B1}} + ISOFFSETINBITS + ISUDT + ISFLOAT + ISSTRING)
                                sourcetyp2 = sourcetyp2 {{Text|AND|#F0F0F0}} ({{Text|511|#F580B1}} + ISOFFSETINBITS + ISUDT + ISFLOAT + ISSTRING)
                                {{Text|'compare types|#31C4C4}}
                                {{Text|IF|#F0F0F0}} sourcetyp2 = targettyp2 {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                                        {{Text|'udt/udt array|#31C4C4}}
                                        {{Text|'get info|#31C4C4}}
                                        udtrefid = {{Text|VAL|#F0F0F0}}(e$)
                                        getid udtrefid
                                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                        udtrefi = {{Text|INSTR|#F0F0F0}}(e$, sp3) {{Text|'end of id|#31C4C4}}
                                        udtrefi2 = {{Text|INSTR|#F0F0F0}}(udtrefi + {{Text|1|#F580B1}}, e$, sp3) {{Text|'end of u|#31C4C4}}
                                        udtrefu = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(e$, udtrefi + {{Text|1|#F580B1}}, udtrefi2 - udtrefi - {{Text|1|#F580B1}}))
                                        udtrefi3 = {{Text|INSTR|#F0F0F0}}(udtrefi2 + {{Text|1|#F580B1}}, e$, sp3) {{Text|'skip e|#31C4C4}}
                                        udtrefe = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(e$, udtrefi2 + {{Text|1|#F580B1}}, udtrefi3 - udtrefi2 - {{Text|1|#F580B1}}))
                                        o$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - udtrefi3)
                                        {{Text|'note: most of the UDT info above is not required|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} arr {{Text|THEN|#F0F0F0}}
                                            n2$ = scope$ + {{Text|"ARRAY_UDT_"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(id.n) + {{Text|"[0]"|#FFB100}}
                                        {{Text|ELSE|#F0F0F0}}
                                            n2$ = scope$ + {{Text|"UDT_"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(id.n)
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        e$ = {{Text|"(void*)( ((char*)("|#FFB100}} + n2$ + {{Text|")) + ("|#FFB100}} + o$ + {{Text|") )"|#FFB100}}
                                        {{Text|'convert void* to target type*|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} passudtelement {{Text|THEN|#F0F0F0}} e$ = {{Text|"("|#FFB100}} + typ2ctyp$(targettyp2 + (targettyp {{Text|AND|#F0F0F0}} ISUNSIGNED), {{Text|""|#FFB100}}) + {{Text|"*)"|#FFB100}} + e$
                                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                    {{Text|ELSE|#F0F0F0}}
                                        {{Text|'not a udt|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} arr {{Text|THEN|#F0F0F0}}
                                            {{Text|IF|#F0F0F0}} (sourcetyp2 {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot pass BIT array offsets"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                            e$ = {{Text|"(&("|#FFB100}} + refer(e$, sourcetyp, {{Text|0|#F580B1}}) + {{Text|"))"|#FFB100}}
                                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                        {{Text|ELSE|#F0F0F0}}
                                            e$ = refer(e$, sourcetyp, {{Text|1|#F580B1}})
                                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|'note: signed/unsigned mismatch requires casting|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISUNSIGNED) <> (targettyp {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}}
                                            e$ = {{Text|"("|#FFB100}} + typ2ctyp$(targettyp2 + (targettyp {{Text|AND|#F0F0F0}} ISUNSIGNED), {{Text|""|#FFB100}}) + {{Text|"*)"|#FFB100}} + e$
                                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'udt?|#31C4C4}}
                                    {{Text|'force recompile if target needs to be in cmem and the source is not|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(sfcmemargs(targetid), curarg, {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}({{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|'cmem required?|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} cmemlist(idnum) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                            cmemlist(idnum) = {{Text|1|#F580B1}}
                                            recompile = {{Text|1|#F580B1}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|GOTO|#F0F0F0}} dontevaluate
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'similar|#31C4C4}}
                                {{Text|'IF sourcetyp2 = targettyp2 THEN|#31C4C4}}
                                {{Text|'IF arr THEN|#31C4C4}}
                                {{Text|'IF (sourcetyp2 AND ISOFFSETINBITS) THEN Give_Error "Cannot pass BIT array offsets yet": EXIT FUNCTION|#31C4C4}}
                                {{Text|'e$ = "(&(" + refer(e$, sourcetyp, 0) + "))"|#31C4C4}}
                                {{Text|'ELSE|#31C4C4}}
                                {{Text|'e$ = refer(e$, sourcetyp, 1)|#31C4C4}}
                                {{Text|'END IF|#31C4C4}}
                                {{Text|'GOTO dontevaluate|#31C4C4}}
                                {{Text|'END IF|#31C4C4}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'source is a reference|#31C4C4}}
                        {{Text|ELSE|#F0F0F0}} {{Text|'string|#31C4C4}}
                            {{Text|'its a string|#31C4C4}}
                            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}}
                                idnum = {{Text|VAL|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(e$, {{Text|INSTR|#F0F0F0}}(e$, sp3) - {{Text|1|#F580B1}})) {{Text|'id# of sourcetyp|#31C4C4}}
                                {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(sfcmemargs(targetid), curarg, {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}({{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|'cmem required?|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} cmemlist(idnum) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                        cmemlist(idnum) = {{Text|1|#F580B1}}
                                        recompile = {{Text|1|#F580B1}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'reference|#31C4C4}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'string|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'dereference was not used|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'pointer|#31C4C4}}
                {{Text|'note: Target is not a pointer...|#31C4C4}}
                {{Text|'IF (targettyp AND ISSTRING) = 0 THEN|#31C4C4}}
                {{Text|'IF (sourcetyp AND ISREFERENCE) THEN|#31C4C4}}
                {{Text|'targettyp2 = targettyp: sourcetyp2 = sourcetyp - ISREFERENCE|#31C4C4}}
                {{Text|'IF (sourcetyp2 AND ISINCONVENTIONALMEMORY) THEN sourcetyp2 = sourcetyp2 - ISINCONVENTIONALMEMORY|#31C4C4}}
                {{Text|'IF sourcetyp2 = targettyp2 THEN e$ = refer(e$, sourcetyp, 1): GOTO dontevaluate|#31C4C4}}
                {{Text|'END IF|#31C4C4}}
                {{Text|'END IF|#31C4C4}}
                {{Text|'END IF|#31C4C4}}
                {{Text|'String-numeric mismatch?|#31C4C4}}
                {{Text|IF|#F0F0F0}} targettyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        nth = curarg
                        {{Text|IF|#F0F0F0}} skipFirstArg {{Text|THEN|#F0F0F0}} nth = nth - {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} ids(targetid).args = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"String required for function"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        Give_Error str_nth$(nth) + {{Text|" function argument requires a string"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                        nth = curarg
                        {{Text|IF|#F0F0F0}} skipFirstArg {{Text|THEN|#F0F0F0}} nth = nth - {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} ids(targetid).args = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Number required for function"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        Give_Error str_nth$(nth) + {{Text|" function argument requires a number"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'change to "non-pointer" value|#31C4C4}}
                {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}}
                    e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} explicitreference = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} targettyp {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                        nth = curarg
                        {{Text|IF|#F0F0F0}} skipFirstArg {{Text|THEN|#F0F0F0}} nth = nth - {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} qb64prefix_set {{Text|AND|#F0F0F0}} udtxcname(targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|"_MEM"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            x$ = {{Text|"'"|#FFB100}} + {{Text|MID$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(udtxcname(targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}})), {{Text|2|#F580B1}}) + {{Text|"'"|#FFB100}}
                        {{Text|ELSE|#F0F0F0}}
                            x$ = {{Text|"'"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(udtxcname(targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}})) + {{Text|"'"|#FFB100}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} ids(targetid).args = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"TYPE "|#FFB100}} + x$ + {{Text|" required for function"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        Give_Error str_nth$(nth) + {{Text|" function argument requires TYPE "|#FFB100}} + x$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Number required for function"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'round to integer if required|#31C4C4}}
                {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISFLOAT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|'**32 rounding fix|#31C4C4}}
                        bits = targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                        {{Text|IF|#F0F0F0}} bits <= {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"qbr_float_to_long("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                        {{Text|IF|#F0F0F0}} bits > {{Text|16|#F580B1}} {{Text|AND|#F0F0F0}} bits < {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"qbr_double_to_long("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                        {{Text|IF|#F0F0F0}} bits >= {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"qbr("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} explicitreference {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}}
                        {{Text|'integer value can fit inside int64|#31C4C4}}
                        e$ = {{Text|"(int64)("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"(float)("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                            {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"(double)("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                            {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|256|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"(long double)("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"(uint8)("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                                {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"(uint16)("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                                {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"(uint32)("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                                {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"(uint64)("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"(int8)("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                                {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"(int16)("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                                {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"(int32)("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                                {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"(int64)("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'float?|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'offset in bits?|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'explicit?|#31C4C4}}
                {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISPOINTER) {{Text|THEN|#F0F0F0}} {{Text|'pointer required|#31C4C4}}
                    {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} dontevaluate {{Text|'no changes required|#31C4C4}}
                    {{Text|'20090703|#31C4C4}}
                    t$ = typ2ctyp$(targettyp, {{Text|""|#FFB100}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    v$ = {{Text|"pass"|#FFB100}} + str2$(uniquenumber)
                    {{Text|'assume numeric type|#31C4C4}}
                    {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(sfcmemargs(targetid), curarg, {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}({{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|'cmem required?|#31C4C4}}
                        bytesreq = ((targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) + {{Text|7|#F580B1}}) \ {{Text|8|#F580B1}}
                        WriteBufLine defdatahandle, t$ + {{Text|" *"|#FFB100}} + v$ + {{Text|"=NULL;"|#FFB100}}
                        WriteBufLine DataTxtBuf, {{Text|"if("|#FFB100}} + v$ + {{Text|"==NULL){"|#FFB100}}
                        WriteBufLine DataTxtBuf, {{Text|"cmem_sp-="|#FFB100}} + str2(bytesreq) + {{Text|";"|#FFB100}}
                        WriteBufLine DataTxtBuf, v$ + {{Text|"=("|#FFB100}} + t$ + {{Text|"*)(dblock+cmem_sp);"|#FFB100}}
                        WriteBufLine DataTxtBuf, {{Text|"if (cmem_sp<qbs_cmem_sp) error(257);"|#FFB100}}
                        WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
                        e$ = {{Text|"&(*"|#FFB100}} + v$ + {{Text|"="|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                    {{Text|ELSE|#F0F0F0}}
                        WriteBufLine DataTxtBuf, t$ + {{Text|" "|#FFB100}} + v$ + {{Text|";"|#FFB100}}
                        e$ = {{Text|"&("|#FFB100}} + v$ + {{Text|"="|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|GOTO|#F0F0F0}} dontevaluate
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                dontevaluate:
                {{Text|IF|#F0F0F0}} id2.ccall {{Text|THEN|#F0F0F0}}
                    {{Text|'if a forced cast from a returned ccall function is in e$, remove it|#31C4C4}}
                    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(e$, {{Text|3|#F580B1}}) = {{Text|"(  "|#FFB100}} {{Text|THEN|#F0F0F0}}
                        e$ = removecast$(e$)
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} targettyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                        e$ = {{Text|"(char*)("|#FFB100}} + e$ + {{Text|")->chr"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(e$)) = {{Text|"0"|#FFB100}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"NULL"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                r$ = r$ + e$
                {{Text|'***special case****|#31C4C4}}
                {{Text|IF|#F0F0F0}} n$ = {{Text|"_MEM"|#FFB100}} {{Text|OR|#F0F0F0}} (n$ = {{Text|"MEM"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} args = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} curarg = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} r$ = r$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} evalfuncspecial
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} args = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} curarg = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} r$ = r$ + {{Text|")"|#FFB100}}: {{Text|GOTO|#F0F0F0}} evalfuncspecial
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} i <> n {{Text|AND|#F0F0F0}} nocomma = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} r$ = r$ + {{Text|","|#FFB100}}
                nocomma = {{Text|0|#F580B1}}
                firsti = i + {{Text|1|#F580B1}}
                curarg = curarg + {{Text|1|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|NEXT|#F0F0F0}}
        {{Text|' Add on any extra optional arguments that were not provided|#31C4C4}}
        {{Text|'|#31C4C4}}
        {{Text|' Overloaded functions do not require the omited arguments to be provided|#31C4C4}}
        {{Text|IF|#F0F0F0}} curarg <= id2.args {{Text|AND|#F0F0F0}} {{Text|NOT|#F0F0F0}} id2.overloaded {{Text|THEN|#F0F0F0}}
            {{Text|FOR|#F0F0F0}} i = curarg {{Text|TO|#F0F0F0}} id2.args
                {{Text|IF|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} r$ = r$ + {{Text|"NULL"|#FFB100}} {{Text|ELSE|#F0F0F0}} r$ = r$ + {{Text|",NULL"|#FFB100}}
            {{Text|NEXT|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} n$ = {{Text|"UBOUND"|#FFB100}} {{Text|OR|#F0F0F0}} n$ = {{Text|"LBOUND"|#FFB100}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} r$ = {{Text|",NULL"|#FFB100}} {{Text|THEN|#F0F0F0}} r$ = {{Text|",1"|#FFB100}} {{Text|' FIXME: ??????|#31C4C4}}
        {{Text|IF|#F0F0F0}} n$ = {{Text|"UBOUND"|#FFB100}} {{Text|THEN|#F0F0F0}} r2$ = {{Text|"func_ubound("|#FFB100}} {{Text|ELSE|#F0F0F0}} r2$ = {{Text|"func_lbound("|#FFB100}}
        e$ = refer$(ulboundarray$, sourcetyp, {{Text|1|#F580B1}})
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|'note: ID contins refer'ed array info|#31C4C4}}
        arrayelements = id.arrayelements {{Text|'2009|#31C4C4}}
        {{Text|IF|#F0F0F0}} arrayelements = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} arrayelements = {{Text|1|#F580B1}} {{Text|'2009|#31C4C4}}
        r$ = r2$ + e$ + r$ + {{Text|","|#FFB100}} + str2$(arrayelements) + {{Text|")"|#FFB100}}
        typ& = INTEGER64TYPE - ISPOINTER
        {{Text|GOTO|#F0F0F0}} evalfuncspecial
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} passomit {{Text|THEN|#F0F0F0}}
        r$ = r$ + {{Text|",0"|#FFB100}}
        {{Text|IF|#F0F0F0}} hasOptionalFirstArg {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} providedArgs({{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} r$ = r$ + {{Text|"¦1"|#FFB100}}
        {{Text|ELSE|#F0F0F0}}
            {{Text|FOR|#F0F0F0}} i = firstOptionalArgument {{Text|TO|#F0F0F0}} {{Text|UBOUND|#F0F0F0}}(providedArgs)
                {{Text|IF|#F0F0F0}} providedArgs(i) {{Text|THEN|#F0F0F0}} r$ = r$ + {{Text|"¦"|#FFB100}} + str2$({{Text|_SHL|#F0F0F0}}({{Text|1|#F580B1}}, i - firstOptionalArgument))
            {{Text|NEXT|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    r$ = r$ + {{Text|")"|#FFB100}}
    evalfuncspecial:
    {{Text|IF|#F0F0F0}} n$ = {{Text|"ABS"|#FFB100}} {{Text|THEN|#F0F0F0}} typ& = sourcetyp {{Text|'ABS Note: ABS() returns argument #1's type|#31C4C4}}
    {{Text|'QB-like conversion of math functions returning floating point values|#31C4C4}}
    {{Text|IF|#F0F0F0}} n$ = {{Text|"SIN"|#FFB100}} {{Text|OR|#F0F0F0}} n$ = {{Text|"COS"|#FFB100}} {{Text|OR|#F0F0F0}} n$ = {{Text|"TAN"|#FFB100}} {{Text|OR|#F0F0F0}} n$ = {{Text|"ATN"|#FFB100}} {{Text|OR|#F0F0F0}} n$ = {{Text|"SQR"|#FFB100}} {{Text|OR|#F0F0F0}} n$ = {{Text|"LOG"|#FFB100}} {{Text|THEN|#F0F0F0}}
        b = sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
        {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
            {{Text|'Default is FLOATTYPE|#31C4C4}}
            {{Text|IF|#F0F0F0}} b = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} typ& = DOUBLETYPE - ISPOINTER
            {{Text|IF|#F0F0F0}} b = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} typ& = SINGLETYPE - ISPOINTER
        {{Text|ELSE|#F0F0F0}}
            {{Text|'Default is FLOATTYPE|#31C4C4}}
            {{Text|IF|#F0F0F0}} b <= {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} typ& = DOUBLETYPE - ISPOINTER
            {{Text|IF|#F0F0F0}} b <= {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} typ& = SINGLETYPE - ISPOINTER
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} id2.ret = ISUDT + ({{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
        {{Text|'***special case***|#31C4C4}}
        v$ = {{Text|"func"|#FFB100}} + str2$(uniquenumber)
        WriteBufLine defdatahandle, {{Text|"mem_block "|#FFB100}} + v$ + {{Text|";"|#FFB100}}
        r$ = {{Text|"("|#FFB100}} + v$ + {{Text|"="|#FFB100}} + r$ + {{Text|")"|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} id2.ccall {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(r$, {{Text|11|#F580B1}}) = {{Text|"(  char*  )"|#FFB100}} {{Text|THEN|#F0F0F0}}
            r$ = {{Text|"qbs_new_txt("|#FFB100}} + r$ + {{Text|")"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"evaluatefunc:out:"|#FFB100}}; r$
    evaluatefunc$ = r$
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} variablesize$ (i {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}) {{Text|'ID or -1 (if ID already 'loaded')|#31C4C4}}
    {{Text|'Note: assumes whole bytes, no bit offsets/sizes|#31C4C4}}
    {{Text|IF|#F0F0F0}} i <> {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} getid i
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|'find base size from type|#31C4C4}}
    t = id.t: {{Text|IF|#F0F0F0}} t = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} t = id.arraytype
    bytes = (t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) \ {{Text|8|#F580B1}}
    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}} {{Text|'correct size for UDTs|#31C4C4}}
        u = t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
        bytes = udtxsize(u) \ {{Text|8|#F580B1}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}} {{Text|'correct size for strings|#31C4C4}}
        {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}}
            bytes = id.tsize
        {{Text|ELSE|#F0F0F0}}
            {{Text|IF|#F0F0F0}} id.arraytype {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot determine size of variable-length string array"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            variablesize$ = scope$ + {{Text|"STRING_"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(id.n) + {{Text|"->len"|#FFB100}}
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} id.arraytype {{Text|THEN|#F0F0F0}} {{Text|'multiply size for arrays|#31C4C4}}
        n$ = {{Text|RTRIM$|#F0F0F0}}(id.callname)
        s$ = str2(bytes) + {{Text|"*("|#FFB100}} + n$ + {{Text|"[2]&1)"|#FFB100}} {{Text|'note: multiplying by 0 if array not currently defined (affects dynamic arrays)|#31C4C4}}
        arrayelements = id.arrayelements: {{Text|IF|#F0F0F0}} arrayelements = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} arrayelements = {{Text|1|#F580B1}} {{Text|'2009|#31C4C4}}
        {{Text|FOR|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} arrayelements
            s$ = s$ + {{Text|"*"|#FFB100}} + n$ + {{Text|"["|#FFB100}} + str2(i2 * {{Text|4|#F580B1}} - {{Text|4|#F580B1}} + {{Text|5|#F580B1}}) + {{Text|"]"|#FFB100}}
        {{Text|NEXT|#F0F0F0}}
        variablesize$ = {{Text|"("|#FFB100}} + s$ + {{Text|")"|#FFB100}}
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    variablesize$ = str2(bytes)
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} evaluatetotyp$ (a2$, targettyp {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}})
    {{Text|'note: 'evaluatetotyp' no longer performs 'fixoperationorder' on a2$ (in many cases, this has already been done)|#31C4C4}}
    a$ = a2$
    e$ = evaluate(a$, sourcetyp)
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|'Offset protection:|#31C4C4}}
    {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISOFFSET {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISOFFSET) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} targettyp >= {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            Give_Error {{Text|"Cannot convert _OFFSET type to other types"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'-5 size|#31C4C4}}
    {{Text|'-6 offset|#31C4C4}}
    {{Text|IF|#F0F0F0}} targettyp = {{Text|-4|#F580B1}} {{Text|OR|#F0F0F0}} targettyp = {{Text|-5|#F580B1}} {{Text|OR|#F0F0F0}} targettyp = {{Text|-6|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'? -> byte_element(offset,element size in bytes)|#31C4C4}}
        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected variable name/array element"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Variable/element cannot be BIT aligned"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|' print "-4: evaluated as ["+e$+"]":sleep 1|#31C4C4}}
        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISUDT) {{Text|THEN|#F0F0F0}} {{Text|'User Defined Type -> byte_element(offset,bytes)|#31C4C4}}
            {{Text|IF|#F0F0F0}} udtxvariable(sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"UDT must have fixed size"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            idnumber = {{Text|VAL|#F0F0F0}}(e$)
            i = {{Text|INSTR|#F0F0F0}}(e$, sp3): e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - i)
            u = {{Text|VAL|#F0F0F0}}(e$) {{Text|'closest parent|#31C4C4}}
            i = {{Text|INSTR|#F0F0F0}}(e$, sp3): e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - i)
            E = {{Text|VAL|#F0F0F0}}(e$)
            i = {{Text|INSTR|#F0F0F0}}(e$, sp3): e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - i)
            o$ = e$
            getid idnumber
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            n$ = {{Text|"UDT_"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(id.n)
            {{Text|IF|#F0F0F0}} id.arraytype {{Text|THEN|#F0F0F0}}
                n$ = {{Text|"ARRAY_"|#FFB100}} + n$ + {{Text|"[0]"|#FFB100}}
                {{Text|'whole array reference examplename()?|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(o$, {{Text|3|#F580B1}}) = {{Text|"(0)"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|'use -2 type method|#31C4C4}}
                    {{Text|GOTO|#F0F0F0}} method2usealludt
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            dst$ = {{Text|"(((char*)"|#FFB100}} + scope$ + n$ + {{Text|")+("|#FFB100}} + o$ + {{Text|"))"|#FFB100}}
            {{Text|'determine size of element|#31C4C4}}
            {{Text|IF|#F0F0F0}} E = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'no specific element, use size of entire type|#31C4C4}}
                bytes$ = str2(udtxsize(u) \ {{Text|8|#F580B1}})
            {{Text|ELSE|#F0F0F0}} {{Text|'a specific element|#31C4C4}}
                {{Text|IF|#F0F0F0}} (udtetype(E) {{Text|AND|#F0F0F0}} ISSTRING) > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (udtetype(E) {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (targettyp = {{Text|-5|#F580B1}}) {{Text|THEN|#F0F0F0}}
                    evaluatetotyp$ = {{Text|"(*(qbs**)"|#FFB100}} + dst$ + {{Text|")->len"|#FFB100}}
                    {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|ELSEIF|#F0F0F0}} (udtetype(E) {{Text|AND|#F0F0F0}} ISSTRING) > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (udtetype(E) {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (targettyp = {{Text|-4|#F580B1}}) {{Text|THEN|#F0F0F0}}
                    dst$ = {{Text|"(*((qbs**)((char*)"|#FFB100}} + scope$ + n$ + {{Text|"+("|#FFB100}} + o$ + {{Text|"))))->chr"|#FFB100}}
                    bytes$ = {{Text|"(*((qbs**)((char*)"|#FFB100}} + scope$ + n$ + {{Text|"+("|#FFB100}} + o$ + {{Text|"))))->len"|#FFB100}}
                    evaluatetotyp$ = {{Text|"byte_element((uint64)"|#FFB100}} + dst$ + {{Text|","|#FFB100}} + bytes$ + {{Text|","|#FFB100}} + NewByteElement$ + {{Text|")"|#FFB100}}
                    {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                bytes$ = str2(udtesize(E) \ {{Text|8|#F580B1}})
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            evaluatetotyp$ = {{Text|"byte_element((uint64)"|#FFB100}} + dst$ + {{Text|","|#FFB100}} + bytes$ + {{Text|","|#FFB100}} + NewByteElement$ + {{Text|")"|#FFB100}}
            {{Text|IF|#F0F0F0}} targettyp = {{Text|-5|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = bytes$
            {{Text|IF|#F0F0F0}} targettyp = {{Text|-6|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = dst$
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISARRAY) {{Text|THEN|#F0F0F0}} {{Text|'Array reference -> byte_element(offset,bytes)|#31C4C4}}
            {{Text|'whole array reference examplename()?|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|2|#F580B1}}) = sp3 + {{Text|"0"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|'use -2 type method|#31C4C4}}
                {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        Give_Error {{Text|"Cannot pass array of variable-length strings"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|GOTO|#F0F0F0}} method2useall
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'assume a specific element|#31C4C4}}
            {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}}
                    idnumber = {{Text|VAL|#F0F0F0}}(e$)
                    getid idnumber
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    bytes$ = str2(id.tsize)
                    e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    evaluatetotyp$ = {{Text|"byte_element((uint64)"|#FFB100}} + e$ + {{Text|"->chr,"|#FFB100}} + bytes$ + {{Text|","|#FFB100}} + NewByteElement$ + {{Text|")"|#FFB100}}
                    {{Text|IF|#F0F0F0}} targettyp = {{Text|-5|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = bytes$
                    {{Text|IF|#F0F0F0}} targettyp = {{Text|-6|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = e$ + {{Text|"->chr"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    evaluatetotyp$ = {{Text|"byte_element((uint64)"|#FFB100}} + e$ + {{Text|"->chr,"|#FFB100}} + e$ + {{Text|"->len,"|#FFB100}} + NewByteElement$ + {{Text|")"|#FFB100}}
                    {{Text|IF|#F0F0F0}} targettyp = {{Text|-5|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = e$ + {{Text|"->len"|#FFB100}}
                    {{Text|IF|#F0F0F0}} targettyp = {{Text|-6|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = e$ + {{Text|"->chr"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            e$ = {{Text|"(&("|#FFB100}} + e$ + {{Text|"))"|#FFB100}}
            bytes$ = str2((sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) \ {{Text|8|#F580B1}})
            evaluatetotyp$ = {{Text|"byte_element((uint64)"|#FFB100}} + e$ + {{Text|","|#FFB100}} + bytes$ + {{Text|","|#FFB100}} + NewByteElement$ + {{Text|")"|#FFB100}}
            {{Text|IF|#F0F0F0}} targettyp = {{Text|-5|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = bytes$
            {{Text|IF|#F0F0F0}} targettyp = {{Text|-6|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = e$
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}} {{Text|'String -> byte_element(offset,bytes)|#31C4C4}}
            {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}}
                idnumber = {{Text|VAL|#F0F0F0}}(e$)
                getid idnumber
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                bytes$ = str2(id.tsize)
                e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}}
                e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                bytes$ = e$ + {{Text|"->len"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            evaluatetotyp$ = {{Text|"byte_element((uint64)"|#FFB100}} + e$ + {{Text|"->chr,"|#FFB100}} + bytes$ + {{Text|","|#FFB100}} + NewByteElement$ + {{Text|")"|#FFB100}}
            {{Text|IF|#F0F0F0}} targettyp = {{Text|-5|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = bytes$
            {{Text|IF|#F0F0F0}} targettyp = {{Text|-6|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = e$ + {{Text|"->chr"|#FFB100}}
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'Standard variable -> byte_element(offset,bytes)|#31C4C4}}
        e$ = refer(e$, sourcetyp, {{Text|1|#F580B1}}) {{Text|'get the variable's formal name|#31C4C4}}
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        size = (sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) \ {{Text|8|#F580B1}} {{Text|'calculate its size in bytes|#31C4C4}}
        evaluatetotyp$ = {{Text|"byte_element((uint64)"|#FFB100}} + e$ + {{Text|","|#FFB100}} + str2(size) + {{Text|","|#FFB100}} + NewByteElement$ + {{Text|")"|#FFB100}}
        {{Text|IF|#F0F0F0}} targettyp = {{Text|-5|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = str2(size)
        {{Text|IF|#F0F0F0}} targettyp = {{Text|-6|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = e$
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'-4, -5, -6|#31C4C4}}
    {{Text|IF|#F0F0F0}} targettyp = {{Text|-8|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'? -> _MEM structure helper {offset, fullsize, typeval, elementsize, sf_mem_lock¦???}|#31C4C4}}
        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected variable name/array element"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Variable/element cannot be BIT aligned"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISUDT) {{Text|THEN|#F0F0F0}} {{Text|'User Defined Type -> byte_element(offset,bytes)|#31C4C4}}
            idnumber = {{Text|VAL|#F0F0F0}}(e$)
            i = {{Text|INSTR|#F0F0F0}}(e$, sp3): e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - i)
            u = {{Text|VAL|#F0F0F0}}(e$) {{Text|'closest parent|#31C4C4}}
            i = {{Text|INSTR|#F0F0F0}}(e$, sp3): e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - i)
            E = {{Text|VAL|#F0F0F0}}(e$)
            i = {{Text|INSTR|#F0F0F0}}(e$, sp3): e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - i)
            o$ = e$
            getid idnumber
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            n$ = {{Text|"UDT_"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(id.n)
            {{Text|IF|#F0F0F0}} id.arraytype {{Text|THEN|#F0F0F0}}
                n$ = {{Text|"ARRAY_"|#FFB100}} + n$ + {{Text|"[0]"|#FFB100}}
                {{Text|'whole array reference examplename()?|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(o$, {{Text|3|#F580B1}}) = {{Text|"(0)"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|'use -7 type method|#31C4C4}}
                    {{Text|GOTO|#F0F0F0}} method2usealludt__7
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'determine size of element|#31C4C4}}
            {{Text|IF|#F0F0F0}} E = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'no specific element, use size of entire type|#31C4C4}}
                bytes$ = str2(udtxsize(u) \ {{Text|8|#F580B1}})
                t1 = ISUDT + udtetype(u)
            {{Text|ELSE|#F0F0F0}} {{Text|'a specific element|#31C4C4}}
                bytes$ = str2(udtesize(E) \ {{Text|8|#F580B1}})
                t1 = udtetype(E)
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            dst$ = {{Text|"(((char*)"|#FFB100}} + scope$ + n$ + {{Text|")+("|#FFB100}} + o$ + {{Text|"))"|#FFB100}}
            {{Text|'evaluatetotyp$ = "byte_element((uint64)" + dst$ + "," + bytes$ + "," + NewByteElement$ + ")"|#31C4C4}}
            {{Text|'IF targettyp = -5 THEN evaluatetotyp$ = bytes$|#31C4C4}}
            {{Text|'IF targettyp = -6 THEN evaluatetotyp$ = dst$|#31C4C4}}
            t = Type2MemTypeValue(t1)
            evaluatetotyp$ = {{Text|"(ptrszint)"|#FFB100}} + dst$ + {{Text|","|#FFB100}} + bytes$ + {{Text|","|#FFB100}} + str2(t) + {{Text|","|#FFB100}} + bytes$ + {{Text|",sf_mem_lock"|#FFB100}}
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISARRAY) {{Text|THEN|#F0F0F0}} {{Text|'Array reference -> byte_element(offset,bytes)|#31C4C4}}
            {{Text|'whole array reference examplename()?|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|2|#F580B1}}) = sp3 + {{Text|"0"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|'use -7 type method|#31C4C4}}
                {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        Give_Error {{Text|"Cannot pass array of variable-length strings"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|GOTO|#F0F0F0}} method2useall__7
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            idnumber = {{Text|VAL|#F0F0F0}}(e$)
            getid idnumber
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            n$ = {{Text|RTRIM$|#F0F0F0}}(id.callname)
            lk$ = {{Text|"(mem_lock*)((ptrszint*)"|#FFB100}} + n$ + {{Text|")["|#FFB100}} + str2({{Text|4|#F580B1}} * id.arrayelements + {{Text|4|#F580B1}} + {{Text|1|#F580B1}} - {{Text|1|#F580B1}}) + {{Text|"]"|#FFB100}}
            {{Text|'assume a specific element|#31C4C4}}
            {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}}
                    bytes$ = str2(id.tsize)
                    e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|'evaluatetotyp$ = "byte_element((uint64)" + e$ + "->chr," + bytes$ + "," + NewByteElement$ + ")"|#31C4C4}}
                    {{Text|'IF targettyp = -5 THEN evaluatetotyp$ = bytes$|#31C4C4}}
                    {{Text|'IF targettyp = -6 THEN evaluatetotyp$ = e$ + "->chr"|#31C4C4}}
                    t = Type2MemTypeValue(sourcetyp)
                    evaluatetotyp$ = {{Text|"(ptrszint)"|#FFB100}} + e$ + {{Text|"->chr,"|#FFB100}} + bytes$ + {{Text|","|#FFB100}} + str2(t) + {{Text|","|#FFB100}} + bytes$ + {{Text|","|#FFB100}} + lk$
                {{Text|ELSE|#F0F0F0}}
                    Give_Error qb64prefix$ + {{Text|"MEMELEMENT cannot reference variable-length strings"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            e$ = {{Text|"(&("|#FFB100}} + e$ + {{Text|"))"|#FFB100}}
            bytes$ = str2((sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) \ {{Text|8|#F580B1}})
            {{Text|'evaluatetotyp$ = "byte_element((uint64)" + e$ + "," + bytes$ + "," + NewByteElement$ + ")"|#31C4C4}}
            {{Text|'IF targettyp = -5 THEN evaluatetotyp$ = bytes$|#31C4C4}}
            {{Text|'IF targettyp = -6 THEN evaluatetotyp$ = e$|#31C4C4}}
            t = Type2MemTypeValue(sourcetyp)
            evaluatetotyp$ = {{Text|"(ptrszint)"|#FFB100}} + e$ + {{Text|","|#FFB100}} + bytes$ + {{Text|","|#FFB100}} + str2(t) + {{Text|","|#FFB100}} + bytes$ + {{Text|","|#FFB100}} + lk$
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'isarray|#31C4C4}}
        {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}} {{Text|'String -> byte_element(offset,bytes)|#31C4C4}}
            {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}}
                idnumber = {{Text|VAL|#F0F0F0}}(e$)
                getid idnumber
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                bytes$ = str2(id.tsize)
                e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}}
                Give_Error qb64prefix$ + {{Text|"MEMELEMENT cannot reference variable-length strings"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'evaluatetotyp$ = "byte_element((uint64)" + e$ + "->chr," + bytes$ + "," + NewByteElement$ + ")"|#31C4C4}}
            {{Text|'IF targettyp = -5 THEN evaluatetotyp$ = bytes$|#31C4C4}}
            {{Text|'IF targettyp = -6 THEN evaluatetotyp$ = e$ + "->chr"|#31C4C4}}
            t = Type2MemTypeValue(sourcetyp)
            evaluatetotyp$ = {{Text|"(ptrszint)"|#FFB100}} + e$ + {{Text|"->chr,"|#FFB100}} + bytes$ + {{Text|","|#FFB100}} + str2(t) + {{Text|","|#FFB100}} + bytes$ + {{Text|",sf_mem_lock"|#FFB100}}
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'Standard variable -> byte_element(offset,bytes)|#31C4C4}}
        e$ = refer(e$, sourcetyp, {{Text|1|#F580B1}}) {{Text|'get the variable's formal name|#31C4C4}}
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        size = (sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) \ {{Text|8|#F580B1}} {{Text|'calculate its size in bytes|#31C4C4}}
        {{Text|'evaluatetotyp$ = "byte_element((uint64)" + e$ + "," + str2(size) + "," + NewByteElement$ + ")"|#31C4C4}}
        {{Text|'IF targettyp = -5 THEN evaluatetotyp$ = str2(size)|#31C4C4}}
        {{Text|'IF targettyp = -6 THEN evaluatetotyp$ = e$|#31C4C4}}
        t = Type2MemTypeValue(sourcetyp)
        evaluatetotyp$ = {{Text|"(ptrszint)"|#FFB100}} + e$ + {{Text|","|#FFB100}} + str2(size) + {{Text|","|#FFB100}} + str2(t) + {{Text|","|#FFB100}} + str2(size) + {{Text|",sf_mem_lock"|#FFB100}}
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'-8|#31C4C4}}
    {{Text|IF|#F0F0F0}} targettyp = {{Text|-7|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'? -> _MEM structure helper {offset, fullsize, typeval, elementsize, sf_mem_lock¦???}|#31C4C4}}
        method2useall__7:
        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected variable name/array element"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Variable/element cannot be BIT aligned"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|'User Defined Type|#31C4C4}}
        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISUDT) {{Text|THEN|#F0F0F0}}
            {{Text|'          print "CI: -2 type from a UDT":sleep 1|#31C4C4}}
            idnumber = {{Text|VAL|#F0F0F0}}(e$)
            i = {{Text|INSTR|#F0F0F0}}(e$, sp3): e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - i)
            u = {{Text|VAL|#F0F0F0}}(e$) {{Text|'closest parent|#31C4C4}}
            i = {{Text|INSTR|#F0F0F0}}(e$, sp3): e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - i)
            E = {{Text|VAL|#F0F0F0}}(e$)
            i = {{Text|INSTR|#F0F0F0}}(e$, sp3): e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - i)
            o$ = e$
            getid idnumber
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            n$ = {{Text|"UDT_"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(id.n): {{Text|IF|#F0F0F0}} id.arraytype {{Text|THEN|#F0F0F0}} n$ = {{Text|"ARRAY_"|#FFB100}} + n$ + {{Text|"[0]"|#FFB100}}
            method2usealludt__7:
            bytes$ = variablesize$({{Text|-1|#F580B1}}) + {{Text|"-("|#FFB100}} + o$ + {{Text|")"|#FFB100}}
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            dst$ = {{Text|"(((char*)"|#FFB100}} + scope$ + n$ + {{Text|")+("|#FFB100}} + o$ + {{Text|"))"|#FFB100}}
            {{Text|'evaluatetotyp$ = "byte_element((uint64)" + dst$ + "," + bytes$ + "," + NewByteElement$ + ")"|#31C4C4}}
            {{Text|'note: myudt.myelement results in a size of 1 because it is a continuous run of no consistent granularity|#31C4C4}}
            {{Text|IF|#F0F0F0}} E <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} size = {{Text|1|#F580B1}} {{Text|ELSE|#F0F0F0}} size = udtxsize(u) \ {{Text|8|#F580B1}}
            t = Type2MemTypeValue(sourcetyp)
            evaluatetotyp$ = {{Text|"(ptrszint)"|#FFB100}} + dst$ + {{Text|","|#FFB100}} + bytes$ + {{Text|","|#FFB100}} + str2(t) + {{Text|","|#FFB100}} + str2(size) + {{Text|",sf_mem_lock"|#FFB100}}
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'Array reference|#31C4C4}}
        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISARRAY) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    Give_Error qb64prefix$ + {{Text|"MEM cannot reference variable-length strings"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            idnumber = {{Text|VAL|#F0F0F0}}(e$)
            getid idnumber
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            n$ = {{Text|RTRIM$|#F0F0F0}}(id.callname)
            lk$ = {{Text|"(mem_lock*)((ptrszint*)"|#FFB100}} + n$ + {{Text|")["|#FFB100}} + str2({{Text|4|#F580B1}} * id.arrayelements + {{Text|4|#F580B1}} + {{Text|1|#F580B1}} - {{Text|1|#F580B1}}) + {{Text|"]"|#FFB100}}
            tsize = id.tsize {{Text|'used later to determine element size of fixed length strings|#31C4C4}}
            {{Text|'note: array references consist of idnumber¦unmultiplied-element-index|#31C4C4}}
            index$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|INSTR|#F0F0F0}}(e$, sp3)) {{Text|'get element index|#31C4C4}}
            bytes$ = variablesize$({{Text|-1|#F580B1}})
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                e$ = {{Text|"(("|#FFB100}} + e$ + {{Text|")->chr)"|#FFB100}} {{Text|'[2013] handle fixed string arrays differently because they are already pointers|#31C4C4}}
            {{Text|ELSE|#F0F0F0}}
                e$ = {{Text|"(&("|#FFB100}} + e$ + {{Text|"))"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'          print "CI: array: e$["+e$+"], bytes$["+bytes$+"]":sleep 1|#31C4C4}}
            {{Text|'calculate size of elements|#31C4C4}}
            {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                bytes = tsize
            {{Text|ELSE|#F0F0F0}}
                bytes = (sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) \ {{Text|8|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            bytes$ = bytes$ + {{Text|"-("|#FFB100}} + str2(bytes) + {{Text|"*("|#FFB100}} + index$ + {{Text|"))"|#FFB100}}
            t = Type2MemTypeValue(sourcetyp)
            evaluatetotyp$ = {{Text|"(ptrszint)"|#FFB100}} + e$ + {{Text|","|#FFB100}} + bytes$ + {{Text|","|#FFB100}} + str2(t) + {{Text|","|#FFB100}} + str2(bytes) + {{Text|","|#FFB100}} + lk$
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'String|#31C4C4}}
        {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error qb64prefix$ + {{Text|"MEM cannot reference variable-length strings"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            idnumber = {{Text|VAL|#F0F0F0}}(e$)
            getid idnumber: {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            bytes$ = str2(id.tsize)
            e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}}): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            t = Type2MemTypeValue(sourcetyp)
            evaluatetotyp$ = {{Text|"(ptrszint)"|#FFB100}} + e$ + {{Text|"->chr,"|#FFB100}} + bytes$ + {{Text|","|#FFB100}} + str2(t) + {{Text|","|#FFB100}} + bytes$ + {{Text|",sf_mem_lock"|#FFB100}}
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'Standard variable -> byte_element(offset,bytes)|#31C4C4}}
        e$ = refer(e$, sourcetyp, {{Text|1|#F580B1}}) {{Text|'get the variable's formal name|#31C4C4}}
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        size = (sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) \ {{Text|8|#F580B1}} {{Text|'calculate its size in bytes|#31C4C4}}
        t = Type2MemTypeValue(sourcetyp)
        evaluatetotyp$ = {{Text|"(ptrszint)"|#FFB100}} + e$ + {{Text|","|#FFB100}} + str2(size) + {{Text|","|#FFB100}} + str2(t) + {{Text|","|#FFB100}} + str2(size) + {{Text|",sf_mem_lock"|#FFB100}}
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'-7 _MEM structure helper|#31C4C4}}
    {{Text|IF|#F0F0F0}} targettyp = {{Text|-2|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'? -> byte_element(offset,max possible bytes)|#31C4C4}}
        method2useall:
        {{Text|' print "CI: eval2typ detected target type of -2 for ["+a2$+"] evaluated as ["+e$+"]":sleep 1|#31C4C4}}
        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected variable name/array element"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Variable/element cannot be BIT aligned"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|'User Defined Type -> byte_element(offset,bytes)|#31C4C4}}
        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISUDT) {{Text|THEN|#F0F0F0}}
            {{Text|'          print "CI: -2 type from a UDT":sleep 1|#31C4C4}}
            idnumber = {{Text|VAL|#F0F0F0}}(e$)
            i = {{Text|INSTR|#F0F0F0}}(e$, sp3): e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - i)
            u = {{Text|VAL|#F0F0F0}}(e$) {{Text|'closest parent|#31C4C4}}
            i = {{Text|INSTR|#F0F0F0}}(e$, sp3): e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - i)
            E = {{Text|VAL|#F0F0F0}}(e$)
            i = {{Text|INSTR|#F0F0F0}}(e$, sp3): e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - i)
            o$ = e$
            getid idnumber
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            n$ = {{Text|"UDT_"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(id.n): {{Text|IF|#F0F0F0}} id.arraytype {{Text|THEN|#F0F0F0}} n$ = {{Text|"ARRAY_"|#FFB100}} + n$ + {{Text|"[0]"|#FFB100}}
            method2usealludt:
            bytes$ = variablesize$({{Text|-1|#F580B1}}) + {{Text|"-("|#FFB100}} + o$ + {{Text|")"|#FFB100}}
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            dst$ = {{Text|"(((char*)"|#FFB100}} + scope$ + n$ + {{Text|")+("|#FFB100}} + o$ + {{Text|"))"|#FFB100}}
            evaluatetotyp$ = {{Text|"byte_element((uint64)"|#FFB100}} + dst$ + {{Text|","|#FFB100}} + bytes$ + {{Text|","|#FFB100}} + NewByteElement$ + {{Text|")"|#FFB100}}
            {{Text|IF|#F0F0F0}} targettyp = {{Text|-5|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = bytes$
            {{Text|IF|#F0F0F0}} targettyp = {{Text|-6|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = dst$
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'Array reference -> byte_element(offset,bytes)|#31C4C4}}
        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISARRAY) {{Text|THEN|#F0F0F0}}
            {{Text|'array of variable length strings (special case, can only refer to single element)|#31C4C4}}
            {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    evaluatetotyp$ = {{Text|"byte_element((uint64)"|#FFB100}} + e$ + {{Text|"->chr,"|#FFB100}} + e$ + {{Text|"->len,"|#FFB100}} + NewByteElement$ + {{Text|")"|#FFB100}}
                    {{Text|IF|#F0F0F0}} targettyp = {{Text|-5|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = e$ + {{Text|"->len"|#FFB100}}
                    {{Text|IF|#F0F0F0}} targettyp = {{Text|-6|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = e$ + {{Text|"->chr"|#FFB100}}
                    {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            idnumber = {{Text|VAL|#F0F0F0}}(e$)
            getid idnumber
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            tsize = id.tsize {{Text|'used later to determine element size of fixed length strings|#31C4C4}}
            {{Text|'note: array references consist of idnumber¦unmultiplied-element-index|#31C4C4}}
            index$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|INSTR|#F0F0F0}}(e$, sp3)) {{Text|'get element index|#31C4C4}}
            bytes$ = variablesize$({{Text|-1|#F580B1}})
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            e$ = {{Text|"(&("|#FFB100}} + e$ + {{Text|"))"|#FFB100}}
            {{Text|'          print "CI: array: e$["+e$+"], bytes$["+bytes$+"]":sleep 1|#31C4C4}}
            {{Text|'calculate size of elements|#31C4C4}}
            {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                bytes = tsize
            {{Text|ELSE|#F0F0F0}}
                bytes = (sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) \ {{Text|8|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            bytes$ = bytes$ + {{Text|"-("|#FFB100}} + str2(bytes) + {{Text|"*("|#FFB100}} + index$ + {{Text|"))"|#FFB100}}
            evaluatetotyp$ = {{Text|"byte_element((uint64)"|#FFB100}} + e$ + {{Text|","|#FFB100}} + bytes$ + {{Text|","|#FFB100}} + NewByteElement$ + {{Text|")"|#FFB100}}
            {{Text|IF|#F0F0F0}} targettyp = {{Text|-5|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = bytes$
            {{Text|IF|#F0F0F0}} targettyp = {{Text|-6|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = e$
            {{Text|'          print "CI: array ->["+"byte_element((uint64)" + e$ + "," + bytes$+ ","+NewByteElement$+")"+"]":sleep 1|#31C4C4}}
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'String -> byte_element(offset,bytes)|#31C4C4}}
        {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} sourcetyp {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}}
                idnumber = {{Text|VAL|#F0F0F0}}(e$)
                getid idnumber
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                bytes$ = str2(id.tsize)
                e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}}
                e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                bytes$ = e$ + {{Text|"->len"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            evaluatetotyp$ = {{Text|"byte_element((uint64)"|#FFB100}} + e$ + {{Text|"->chr,"|#FFB100}} + bytes$ + {{Text|","|#FFB100}} + NewByteElement$ + {{Text|")"|#FFB100}}
            {{Text|IF|#F0F0F0}} targettyp = {{Text|-5|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = bytes$
            {{Text|IF|#F0F0F0}} targettyp = {{Text|-6|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = e$ + {{Text|"->chr"|#FFB100}}
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'Standard variable -> byte_element(offset,bytes)|#31C4C4}}
        e$ = refer(e$, sourcetyp, {{Text|1|#F580B1}}) {{Text|'get the variable's formal name|#31C4C4}}
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        size = (sourcetyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) \ {{Text|8|#F580B1}} {{Text|'calculate its size in bytes|#31C4C4}}
        evaluatetotyp$ = {{Text|"byte_element((uint64)"|#FFB100}} + e$ + {{Text|","|#FFB100}} + str2(size) + {{Text|","|#FFB100}} + NewByteElement$ + {{Text|")"|#FFB100}}
        {{Text|IF|#F0F0F0}} targettyp = {{Text|-5|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = str2(size)
        {{Text|IF|#F0F0F0}} targettyp = {{Text|-6|#F580B1}} {{Text|THEN|#F0F0F0}} evaluatetotyp$ = e$
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'-2 byte_element(offset,bytes)|#31C4C4}}
    {{Text|'string?|#31C4C4}}
    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) <> (targettyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
        Give_Error {{Text|"Illegal string-number conversion"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
        evaluatetotyp$ = e$
        {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}}
            evaluatetotyp$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'pointer required?|#31C4C4}}
    {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISPOINTER) {{Text|THEN|#F0F0F0}}
        Give_Error {{Text|"evaluatetotyp received a request for a pointer (unsupported)"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|'...|#31C4C4}}
        Give_Error {{Text|"Invalid pointer"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'change to "non-pointer" value|#31C4C4}}
    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}}
        e$ = refer(e$, sourcetyp, {{Text|0|#F580B1}})
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'check if successful|#31C4C4}}
    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISPOINTER) {{Text|THEN|#F0F0F0}}
        Give_Error {{Text|"evaluatetotyp couldn't convert pointer type!"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'round to integer if required|#31C4C4}}
    {{Text|IF|#F0F0F0}} (sourcetyp {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} (targettyp {{Text|AND|#F0F0F0}} ISFLOAT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            bits = targettyp {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
            {{Text|'**32 rounding fix|#31C4C4}}
            {{Text|IF|#F0F0F0}} bits <= {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"qbr_float_to_long("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
            {{Text|IF|#F0F0F0}} bits > {{Text|16|#F580B1}} {{Text|AND|#F0F0F0}} bits < {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"qbr_double_to_long("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
            {{Text|IF|#F0F0F0}} bits >= {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"qbr("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    evaluatetotyp$ = e$
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} findid& (n2$)
    n$ = {{Text|UCASE$|#F0F0F0}}(n2$) {{Text|'case insensitive|#31C4C4}}
    {{Text|'return all strings as 'not found'|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(n$) = {{Text|34|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} noid
    {{Text|'if findidsecondarg was set, it will be used for finding the name of a sub (not a func or variable)|#31C4C4}}
    secondarg$ = findidsecondarg: findidsecondarg = {{Text|""|#FFB100}}
    {{Text|'if findanotherid was set, findid will continue scan from last index, otherwise, it will begin a new search|#31C4C4}}
    findanother = findanotherid: findanotherid = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} findanother <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} findidinternal <> {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"FINDID() ERROR: Invalid repeat search requested!"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'cannot continue search, no more indexes left!|#31C4C4}}
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|'(the above should never happen)|#31C4C4}}
    findid& = {{Text|2|#F580B1}} {{Text|'2=not finished searching all indexes|#31C4C4}}
    {{Text|'seperate symbol from name (if a symbol has been added), this is the only way symbols can be passed to findid|#31C4C4}}
    i = {{Text|0|#F580B1}}
    i = {{Text|INSTR|#F0F0F0}}(n$, {{Text|"~"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} gotsc
    i = {{Text|INSTR|#F0F0F0}}(n$, {{Text|"`"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} gotsc
    i = {{Text|INSTR|#F0F0F0}}(n$, {{Text|"%"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} gotsc
    i = {{Text|INSTR|#F0F0F0}}(n$, {{Text|"&"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} gotsc
    i = {{Text|INSTR|#F0F0F0}}(n$, {{Text|"!"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} gotsc
    i = {{Text|INSTR|#F0F0F0}}(n$, {{Text|"#"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} gotsc
    i = {{Text|INSTR|#F0F0F0}}(n$, {{Text|"$"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} gotsc
    gotsc:
    {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}}
        sc$ = {{Text|RIGHT$|#F0F0F0}}(n$, {{Text|LEN|#F0F0F0}}(n$) - i + {{Text|1|#F580B1}}): n$ = {{Text|LEFT$|#F0F0F0}}(n$, i - {{Text|1|#F580B1}})
        {{Text|IF|#F0F0F0}} sc$ = {{Text|"`"|#FFB100}} {{Text|OR|#F0F0F0}} sc$ = {{Text|"~`"|#FFB100}} {{Text|THEN|#F0F0F0}} sc$ = sc$ + {{Text|"1"|#FFB100}} {{Text|'clarify abbreviated 1 bit reference|#31C4C4}}
    {{Text|ELSE|#F0F0F0}}
        {{Text|'''    'no symbol passed, so check what symbol could be assumed under the current DEF...|#31C4C4}}
        {{Text|'''    v = ASC(n$): IF v = 95 THEN v = 27 ELSE v = v - 64|#31C4C4}}
        {{Text|'''    IF v >= 1 AND v <= 27 THEN 'safeguard against n$ not being a standard name|#31C4C4}}
        {{Text|'''        couldhavesc$ = defineextaz(v)|#31C4C4}}
        {{Text|'''        IF couldhavesc$ = "`" OR couldhavesc$ = "~`" THEN couldhavesc$ = couldhavesc$ + "1" 'clarify abbreviated 1 bit reference|#31C4C4}}
        {{Text|'''    END IF 'safeguard|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'optimizations for later comparisons|#31C4C4}}
    insf$ = subfunc + {{Text|SPACE$|#F0F0F0}}({{Text|256|#F580B1}} - {{Text|LEN|#F0F0F0}}(subfunc))
    secondarg$ = secondarg$ + {{Text|SPACE$|#F0F0F0}}({{Text|256|#F580B1}} - {{Text|LEN|#F0F0F0}}(secondarg$))
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(sc$) {{Text|THEN|#F0F0F0}} scpassed = {{Text|1|#F580B1}}: sc$ = sc$ + {{Text|SPACE$|#F0F0F0}}({{Text|8|#F580B1}} - {{Text|LEN|#F0F0F0}}(sc$)) {{Text|ELSE|#F0F0F0}} scpassed = {{Text|0|#F580B1}}
    {{Text|'''IF LEN(couldhavesc$) THEN couldhavesc$ = couldhavesc$ + SPACE$(8 - LEN(couldhavesc$)): couldhavescpassed = 1 ELSE couldhavescpassed = 0|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(n$) < {{Text|256|#F580B1}} {{Text|THEN|#F0F0F0}} n$ = n$ + {{Text|SPACE$|#F0F0F0}}({{Text|256|#F580B1}} - {{Text|LEN|#F0F0F0}}(n$))
    {{Text|'FUNCTION HashFind (a$, searchflags, resultflags, resultreference)|#31C4C4}}
    {{Text|'(0,1,2)z=hashfind[rev]("RUMI",Hashflag_label,resflag,resref)|#31C4C4}}
    {{Text|'0=doesn't exist|#31C4C4}}
    {{Text|'1=found, no more items to scan|#31C4C4}}
    {{Text|'2=found, more items still to scan|#31C4C4}}
    {{Text|'NEW HASH SYSTEM|#31C4C4}}
    n$ = {{Text|RTRIM$|#F0F0F0}}(n$)
    {{Text|IF|#F0F0F0}} findanother {{Text|THEN|#F0F0F0}}
        hashretry:
        z = HashFindCont(unrequired, i)
    {{Text|ELSE|#F0F0F0}}
        z = HashFind(n$, {{Text|1|#F580B1}}, unrequired, i)
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    findidinternal = z
    {{Text|IF|#F0F0F0}} z = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} noid
    findid = z
    {{Text|'continue from previous position?|#31C4C4}}
    {{Text|''IF findanother THEN start = findidinternal ELSE start = idn|#31C4C4}}
    {{Text|''FOR i = start TO 1 STEP -1|#31C4C4}}
    {{Text|''    findidinternal = i - 1|#31C4C4}}
    {{Text|''    IF findidinternal = 0 THEN findid& = 1 '1=found id, but no more to search|#31C4C4}}
    {{Text|''    IF ids(i).n = n$ THEN 'same name?|#31C4C4}}
    {{Text|'in scope?|#31C4C4}}
    {{Text|IF|#F0F0F0}} ids(i).subfunc = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} ids(i).share = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'scope check required (not a shared variable or the name of a sub/function)|#31C4C4}}
        {{Text|IF|#F0F0F0}} ids(i).insubfunc <> insf$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} findidnomatch
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'some subs require a second argument (eg. PUT #, DEF SEG, etc.)|#31C4C4}}
    {{Text|IF|#F0F0F0}} ids(i).subfunc = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(ids(i).secondargmustbe) <> {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'exists?|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(secondarg$) = {{Text|UCASE$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(ids(i).secondargmustbe)) {{Text|THEN|#F0F0F0}}
            {{Text|ELSEIF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(ids(i).secondargmustbe, {{Text|1|#F580B1}}) = {{Text|"_"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(secondarg$, {{Text|1|#F580B1}}) <> {{Text|"_"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(secondarg$) = {{Text|UCASE$|#F0F0F0}}({{Text|MID$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(ids(i).secondargmustbe), {{Text|2|#F580B1}})) {{Text|THEN|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|GOTO|#F0F0F0}} findidnomatch
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(ids(i).secondargcantbe) <> {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'exists?|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(secondarg$) <> {{Text|UCASE$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(ids(i).secondargcantbe)) {{Text|THEN|#F0F0F0}}
            {{Text|ELSEIF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(ids(i).secondargcantbe, {{Text|1|#F580B1}}) = {{Text|"_"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(secondarg$, {{Text|1|#F580B1}}) <> {{Text|"_"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(secondarg$) <> {{Text|UCASE$|#F0F0F0}}({{Text|MID$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(ids(i).secondargcantbe), {{Text|2|#F580B1}})) {{Text|THEN|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|GOTO|#F0F0F0}} findidnomatch
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'second sub argument possible|#31C4C4}}
    {{Text|'must have symbol?|#31C4C4}}
    {{Text|'typically for variables defined automatically or by a symbol and not the full type name|#31C4C4}}
    imusthave = {{Text|CVI|#F0F0F0}}(ids(i).musthave) {{Text|'speed up checks of first 2 characters|#31C4C4}}
    amusthave = imusthave {{Text|AND|#F0F0F0}} {{Text|255|#F580B1}} {{Text|'speed up checks of first character|#31C4C4}}
    {{Text|IF|#F0F0F0}} amusthave <> {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} scpassed {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} sc$ = ids(i).musthave {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} findidok
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'''    IF couldhavescpassed THEN|#31C4C4}}
        {{Text|'''        IF couldhavesc$ = ids(i).musthave THEN GOTO findidok|#31C4C4}}
        {{Text|'''    END IF|#31C4C4}}
        {{Text|'Q: why is the above triple-commented?|#31C4C4}}
        {{Text|'A: because if something must have a symbol to refer to it, then a could-have is|#31C4C4}}
        {{Text|'  not sufficient, and it could mask shared variables in global scope|#31C4C4}}
        {{Text|'note: symbol defined fixed length strings cannot be referred to by $ without an extension|#31C4C4}}
        {{Text|'note: sc$ and couldhavesc$ are already changed from ` to `1 to match stored musthave|#31C4C4}}
        {{Text|GOTO|#F0F0F0}} findidnomatch
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'may have symbol?|#31C4C4}}
    {{Text|'typically for variables formally dim'd|#31C4C4}}
    {{Text|'note: couldhavesc$ needn't be considered for mayhave checks|#31C4C4}}
    {{Text|IF|#F0F0F0}} scpassed {{Text|THEN|#F0F0F0}} {{Text|'symbol was passed, so it must match the mayhave symbol|#31C4C4}}
        imayhave = {{Text|CVI|#F0F0F0}}(ids(i).mayhave) {{Text|'speed up checks of first 2 characters|#31C4C4}}
        amayhave = imayhave {{Text|AND|#F0F0F0}} {{Text|255|#F580B1}} {{Text|'speed up checks of first character|#31C4C4}}
        {{Text|IF|#F0F0F0}} amayhave = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} findidnomatch {{Text|'it cannot have the symbol passed (nb. musthave symbols have already been ok'd)|#31C4C4}}
        {{Text|'note: variable length strings are not a problem here, as they can only have one possible extension|#31C4C4}}
        {{Text|IF|#F0F0F0}} amayhave = {{Text|36|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"$"|#31C4C4}}
            {{Text|IF|#F0F0F0}} imayhave <> {{Text|8228|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"$ "|#31C4C4}}
                {{Text|'it is a fixed length string|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|CVI|#F0F0F0}}(sc$) = {{Text|8228|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} findidok {{Text|'allow myvariable$ to become myvariable$10|#31C4C4}}
                {{Text|'allow later comparison to verify if extension is correct|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} sc$ <> ids(i).mayhave {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} findidnomatch
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'scpassed|#31C4C4}}
    {{Text|'return id|#31C4C4}}
    findidok:
    id = ids(i)
    t = id.t
    temp$ = refer$(str2$(i), t, {{Text|1|#F580B1}})
    manageVariableList {{Text|""|#FFB100}}, temp$, {{Text|0|#F580B1}}, {{Text|1|#F580B1}}
    currentid = i
    {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|'END IF 'same name|#31C4C4}}
    findidnomatch:
    {{Text|'NEXT|#31C4C4}}
    {{Text|IF|#F0F0F0}} z = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} hashretry
    {{Text|'totally unclassifiable|#31C4C4}}
    noid:
    findid& = {{Text|0|#F580B1}}
    currentid = {{Text|-1|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} FindArray (secure$)
    FindArray = {{Text|-1|#F580B1}}
    n$ = secure$
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"func findarray:in:"|#FFB100}} + n$
    {{Text|IF|#F0F0F0}} alphanumeric({{Text|ASC|#F0F0F0}}(n$)) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} FindArray = {{Text|0|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|'establish whether n$ includes an extension|#31C4C4}}
    i = {{Text|INSTR|#F0F0F0}}(n$, {{Text|"~"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} sc$ = {{Text|RIGHT$|#F0F0F0}}(n$, {{Text|LEN|#F0F0F0}}(n$) - i + {{Text|1|#F580B1}}): n$ = {{Text|LEFT$|#F0F0F0}}(n$, i - {{Text|1|#F580B1}}): {{Text|GOTO|#F0F0F0}} gotsc2
    i = {{Text|INSTR|#F0F0F0}}(n$, {{Text|"`"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} sc$ = {{Text|RIGHT$|#F0F0F0}}(n$, {{Text|LEN|#F0F0F0}}(n$) - i + {{Text|1|#F580B1}}): n$ = {{Text|LEFT$|#F0F0F0}}(n$, i - {{Text|1|#F580B1}}): {{Text|GOTO|#F0F0F0}} gotsc2
    i = {{Text|INSTR|#F0F0F0}}(n$, {{Text|"%"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} sc$ = {{Text|RIGHT$|#F0F0F0}}(n$, {{Text|LEN|#F0F0F0}}(n$) - i + {{Text|1|#F580B1}}): n$ = {{Text|LEFT$|#F0F0F0}}(n$, i - {{Text|1|#F580B1}}): {{Text|GOTO|#F0F0F0}} gotsc2
    i = {{Text|INSTR|#F0F0F0}}(n$, {{Text|"&"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} sc$ = {{Text|RIGHT$|#F0F0F0}}(n$, {{Text|LEN|#F0F0F0}}(n$) - i + {{Text|1|#F580B1}}): n$ = {{Text|LEFT$|#F0F0F0}}(n$, i - {{Text|1|#F580B1}}): {{Text|GOTO|#F0F0F0}} gotsc2
    i = {{Text|INSTR|#F0F0F0}}(n$, {{Text|"!"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} sc$ = {{Text|RIGHT$|#F0F0F0}}(n$, {{Text|LEN|#F0F0F0}}(n$) - i + {{Text|1|#F580B1}}): n$ = {{Text|LEFT$|#F0F0F0}}(n$, i - {{Text|1|#F580B1}}): {{Text|GOTO|#F0F0F0}} gotsc2
    i = {{Text|INSTR|#F0F0F0}}(n$, {{Text|"#"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} sc$ = {{Text|RIGHT$|#F0F0F0}}(n$, {{Text|LEN|#F0F0F0}}(n$) - i + {{Text|1|#F580B1}}): n$ = {{Text|LEFT$|#F0F0F0}}(n$, i - {{Text|1|#F580B1}}): {{Text|GOTO|#F0F0F0}} gotsc2
    i = {{Text|INSTR|#F0F0F0}}(n$, {{Text|"$"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} sc$ = {{Text|RIGHT$|#F0F0F0}}(n$, {{Text|LEN|#F0F0F0}}(n$) - i + {{Text|1|#F580B1}}): n$ = {{Text|LEFT$|#F0F0F0}}(n$, i - {{Text|1|#F580B1}}): {{Text|GOTO|#F0F0F0}} gotsc2
    gotsc2:
    n2$ = n$ + sc$
    {{Text|IF|#F0F0F0}} sc$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
        {{Text|'has an extension|#31C4C4}}
        {{Text|'note! findid must unambiguify ` to `5 or $ to $10 where applicable|#31C4C4}}
        try = findid(n2$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
            {{Text|IF|#F0F0F0}} id.arraytype {{Text|THEN|#F0F0F0}}
                {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(n2$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|LOOP|#F0F0F0}}
    {{Text|ELSE|#F0F0F0}}
        {{Text|'no extension|#31C4C4}}
        {{Text|'1. pass as is, without any extension (local)|#31C4C4}}
        try = findid(n2$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
            {{Text|IF|#F0F0F0}} id.arraytype {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} subfuncn = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|IF|#F0F0F0}} id.insubfuncn = subfuncn {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(n2$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|LOOP|#F0F0F0}}
        {{Text|'2. that failed, so apply the _define'd extension and pass (local)|#31C4C4}}
        a = {{Text|ASC|#F0F0F0}}({{Text|UCASE$|#F0F0F0}}(n$)): {{Text|IF|#F0F0F0}} a = {{Text|95|#F580B1}} {{Text|THEN|#F0F0F0}} a = {{Text|91|#F580B1}}
        a = a - {{Text|64|#F580B1}} {{Text|'so A=1, Z=27 and _=28|#31C4C4}}
        n2$ = n$ + defineextaz(a)
        try = findid(n2$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
            {{Text|IF|#F0F0F0}} id.arraytype {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} subfuncn = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|IF|#F0F0F0}} id.insubfuncn = subfuncn {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(n2$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|LOOP|#F0F0F0}}
        {{Text|'3. pass as is, without any extension (global)|#31C4C4}}
        n2$ = n$
        try = findid(n2$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
            {{Text|IF|#F0F0F0}} id.arraytype {{Text|THEN|#F0F0F0}}
                {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(n2$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|LOOP|#F0F0F0}}
        {{Text|'4. that failed, so apply the _define'd extension and pass (global)|#31C4C4}}
        a = {{Text|ASC|#F0F0F0}}({{Text|UCASE$|#F0F0F0}}(n$)): {{Text|IF|#F0F0F0}} a = {{Text|95|#F580B1}} {{Text|THEN|#F0F0F0}} a = {{Text|91|#F580B1}}
        a = a - {{Text|64|#F580B1}} {{Text|'so A=1, Z=27 and _=28|#31C4C4}}
        n2$ = n$ + defineextaz(a)
        try = findid(n2$): {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
            {{Text|IF|#F0F0F0}} id.arraytype {{Text|THEN|#F0F0F0}}
                {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(n2$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|LOOP|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    FindArray = {{Text|0|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} fixoperationorder$ (savea$)
    {{Text|STATIC|#F0F0F0}} uboundlbound {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}}
    a$ = savea$
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"fixoperationorder:in:"|#FFB100}} + a$
    fooindwel = fooindwel + {{Text|1|#F580B1}}
    n = numelements(a$) {{Text|'n is maintained throughout function|#31C4C4}}
    {{Text|IF|#F0F0F0}} fooindwel = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'actions to take on initial call only|#31C4C4}}
        uboundlbound = {{Text|0|#F580B1}}
        {{Text|'Quick check for duplicate binary operations|#31C4C4}}
        uppercasea$ = {{Text|UCASE$|#F0F0F0}}(a$) {{Text|'capitalize it once to reduce calls to ucase over and over|#31C4C4}}
        {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n - {{Text|1|#F580B1}}
            temp1$ = getelement(uppercasea$, i)
            temp2$ = getelement(uppercasea$, i + {{Text|1|#F580B1}})
            {{Text|IF|#F0F0F0}} temp1$ = {{Text|"AND"|#FFB100}} {{Text|AND|#F0F0F0}} temp2$ = {{Text|"AND"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Error: AND AND"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|IF|#F0F0F0}} temp1$ = {{Text|"OR"|#FFB100}} {{Text|AND|#F0F0F0}} temp2$ = {{Text|"OR"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Error: OR OR"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|IF|#F0F0F0}} temp1$ = {{Text|"XOR"|#FFB100}} {{Text|AND|#F0F0F0}} temp2$ = {{Text|"XOR"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Error: XOR XOR"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|IF|#F0F0F0}} temp1$ = {{Text|"IMP"|#FFB100}} {{Text|AND|#F0F0F0}} temp2$ = {{Text|"IMP"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Error: IMP IMP"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|IF|#F0F0F0}} temp1$ = {{Text|"EQV"|#FFB100}} {{Text|AND|#F0F0F0}} temp2$ = {{Text|"EQV"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Error: EQV EQV"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|NEXT|#F0F0F0}}
        {{Text|'----------------A. 'Quick' mismatched brackets check----------------|#31C4C4}}
        b = {{Text|0|#F580B1}}
        a2$ = sp + a$ + sp
        b1$ = sp + {{Text|"("|#FFB100}} + sp
        b2$ = sp + {{Text|")"|#FFB100}} + sp
        i = {{Text|1|#F580B1}}
        findmmb:
        i1 = {{Text|INSTR|#F0F0F0}}(i, a2$, b1$)
        i2 = {{Text|INSTR|#F0F0F0}}(i, a2$, b2$)
        i3 = i1
        {{Text|IF|#F0F0F0}} i2 {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} i1 = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                i3 = i2
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} i2 < i1 {{Text|THEN|#F0F0F0}} i3 = i2
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} i3 {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} i3 = i1 {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} i3 = i2 {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
            i = i3 + {{Text|2|#F580B1}}
            {{Text|IF|#F0F0F0}} b < {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Missing ("|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} findmmb
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} b > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Missing )"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|'----------------B. 'Quick' correction of over-use of +,- ----------------|#31C4C4}}
        {{Text|'note: the results of this change are beneficial to foolayout|#31C4C4}}
        a2$ = sp + a$ + sp
        {{Text|'rule 1: change ++ to +|#31C4C4}}
        rule1:
        i = {{Text|INSTR|#F0F0F0}}(a2$, sp + {{Text|"+"|#FFB100}} + sp + {{Text|"+"|#FFB100}} + sp)
        {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}}
            a2$ = {{Text|LEFT$|#F0F0F0}}(a2$, i + {{Text|2|#F580B1}}) + {{Text|RIGHT$|#F0F0F0}}(a2$, {{Text|LEN|#F0F0F0}}(a2$) - i - {{Text|4|#F580B1}})
            a$ = {{Text|MID$|#F0F0F0}}(a2$, {{Text|2|#F580B1}}, {{Text|LEN|#F0F0F0}}(a2$) - {{Text|2|#F580B1}})
            n = n - {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"fixoperationorder:+/-:"|#FFB100}} + a$
            {{Text|GOTO|#F0F0F0}} rule1
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'rule 2: change -+ to -|#31C4C4}}
        rule2:
        i = {{Text|INSTR|#F0F0F0}}(a2$, sp + {{Text|"-"|#FFB100}} + sp + {{Text|"+"|#FFB100}} + sp)
        {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}}
            a2$ = {{Text|LEFT$|#F0F0F0}}(a2$, i + {{Text|2|#F580B1}}) + {{Text|RIGHT$|#F0F0F0}}(a2$, {{Text|LEN|#F0F0F0}}(a2$) - i - {{Text|4|#F580B1}})
            a$ = {{Text|MID$|#F0F0F0}}(a2$, {{Text|2|#F580B1}}, {{Text|LEN|#F0F0F0}}(a2$) - {{Text|2|#F580B1}})
            n = n - {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"fixoperationorder:+/-:"|#FFB100}} + a$
            {{Text|GOTO|#F0F0F0}} rule2
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'rule 3: change anyoperator-- to anyoperator|#31C4C4}}
        rule3:
        {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(a2$, sp + {{Text|"-"|#FFB100}} + sp + {{Text|"-"|#FFB100}} + sp) {{Text|THEN|#F0F0F0}}
            {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n - {{Text|2|#F580B1}}
                {{Text|IF|#F0F0F0}} isoperator(getelement(a$, i)) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} getelement(a$, i + {{Text|1|#F580B1}}) = {{Text|"-"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} getelement(a$, i + {{Text|2|#F580B1}}) = {{Text|"-"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            removeelements a$, i + {{Text|1|#F580B1}}, i + {{Text|2|#F580B1}}, {{Text|0|#F580B1}}
                            a2$ = sp + a$ + sp
                            n = n - {{Text|2|#F580B1}}
                            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"fixoperationorder:+/-:"|#FFB100}} + a$
                            {{Text|GOTO|#F0F0F0}} rule3
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'rule 3|#31C4C4}}
        {{Text|'----------------C. 'Quick' location of negation----------------|#31C4C4}}
        {{Text|'note: the results of this change are beneficial to foolayout|#31C4C4}}
        {{Text|'for numbers...|#31C4C4}}
        {{Text|'before: anyoperator,-,number|#31C4C4}}
        {{Text|'after:  anyoperator,-number|#31C4C4}}
        {{Text|'for variables...|#31C4C4}}
        {{Text|'before: anyoperator,-,variable|#31C4C4}}
        {{Text|'after:  anyoperator,CHR$(241),variable|#31C4C4}}
        {{Text|'exception for numbers followed by ^... (they will be bracketed up along with the ^ later)|#31C4C4}}
        {{Text|'before: anyoperator,-,number,^|#31C4C4}}
        {{Text|'after:  anyoperator,CHR$(241),number,^|#31C4C4}}
        {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n - {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} i > n - {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}} {{Text|'n changes, so manually exit if required|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(getelement(a$, i)) = {{Text|45|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'-|#31C4C4}}
                neg = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    neg = {{Text|1|#F580B1}}
                {{Text|ELSE|#F0F0F0}}
                    a2$ = getelement(a$, i - {{Text|1|#F580B1}})
                    c = {{Text|ASC|#F0F0F0}}(a2$)
                    {{Text|IF|#F0F0F0}} c = {{Text|40|#F580B1}} {{Text|OR|#F0F0F0}} c = {{Text|44|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'(,|#31C4C4}}
                        neg = {{Text|1|#F580B1}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} isoperator(a2$) {{Text|THEN|#F0F0F0}} neg = {{Text|1|#F580B1}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'()|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'i=1|#31C4C4}}
                {{Text|IF|#F0F0F0}} neg = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    a2$ = getelement(a$, i + {{Text|1|#F580B1}})
                    c = {{Text|ASC|#F0F0F0}}(a2$)
                    {{Text|IF|#F0F0F0}} c >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} c <= {{Text|57|#F580B1}} {{Text|THEN|#F0F0F0}}
                        c2 = {{Text|0|#F580B1}}: {{Text|IF|#F0F0F0}} i < n - {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} c2 = {{Text|ASC|#F0F0F0}}(getelement(a$, i + {{Text|2|#F580B1}}))
                        {{Text|IF|#F0F0F0}} c2 <> {{Text|94|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'not ^|#31C4C4}}
                            {{Text|'number...|#31C4C4}}
                            i2 = {{Text|INSTR|#F0F0F0}}(a2$, {{Text|","|#FFB100}})
                            {{Text|IF|#F0F0F0}} i2 {{Text|AND|#F0F0F0}} {{Text|ASC|#F0F0F0}}(a2$, i2 + {{Text|1|#F580B1}}) <> {{Text|38|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'&H/&O/&B values don't need the assumed negation|#31C4C4}}
                                a2$ = {{Text|"-"|#FFB100}} + {{Text|LEFT$|#F0F0F0}}(a2$, i2) + {{Text|"-"|#FFB100}} + {{Text|RIGHT$|#F0F0F0}}(a2$, {{Text|LEN|#F0F0F0}}(a2$) - i2)
                            {{Text|ELSE|#F0F0F0}}
                                a2$ = {{Text|"-"|#FFB100}} + a2$
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            removeelements a$, i, i + {{Text|1|#F580B1}}, {{Text|0|#F580B1}}
                            insertelements a$, i - {{Text|1|#F580B1}}, a2$
                            n = n - {{Text|1|#F580B1}}
                            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"fixoperationorder:negation:"|#FFB100}} + a$
                            {{Text|GOTO|#F0F0F0}} negdone
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'not a number (or for exceptions)...|#31C4C4}}
                    removeelements a$, i, i, {{Text|0|#F580B1}}
                    insertelements a$, i - {{Text|1|#F580B1}}, {{Text|CHR$|#F0F0F0}}({{Text|241|#F580B1}})
                    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"fixoperationorder:negation:"|#FFB100}} + a$
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'isoperator|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'-|#31C4C4}}
            negdone:
        {{Text|NEXT|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'fooindwel=1|#31C4C4}}
    {{Text|'----------------D. 'Quick' Add 'power of' with negation {}bracketing to bottom bracket level----------------|#31C4C4}}
    pownegused = {{Text|0|#F580B1}}
    powneg:
    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(a$, {{Text|"^"|#FFB100}} + sp + {{Text|CHR$|#F0F0F0}}({{Text|241|#F580B1}})) {{Text|THEN|#F0F0F0}} {{Text|'quick check|#31C4C4}}
        b = {{Text|0|#F580B1}}
        b1 = {{Text|0|#F580B1}}
        {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
            a2$ = getelement(a$, i)
            c = {{Text|ASC|#F0F0F0}}(a2$)
            {{Text|IF|#F0F0F0}} c = {{Text|40|#F580B1}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} c = {{Text|41|#F580B1}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} b1 {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} isoperator(a2$) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} a2$ <> {{Text|"^"|#FFB100}} {{Text|AND|#F0F0F0}} a2$ <> {{Text|CHR$|#F0F0F0}}({{Text|241|#F580B1}}) {{Text|THEN|#F0F0F0}}
                            insertelements a$, i - {{Text|1|#F580B1}}, {{Text|"}"|#FFB100}}
                            insertelements a$, b1, {{Text|"{"|#FFB100}}
                            n = n + {{Text|2|#F580B1}}
                            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"fixoperationorder:^-:"|#FFB100}} + a$
                            {{Text|GOTO|#F0F0F0}} powneg
                            pownegused = {{Text|1|#F580B1}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} c = {{Text|94|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'^|#31C4C4}}
                    {{Text|IF|#F0F0F0}} getelement$(a$, i + {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}({{Text|241|#F580B1}}) {{Text|THEN|#F0F0F0}} b1 = i: i = i + {{Text|1|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'b=0|#31C4C4}}
        {{Text|NEXT|#F0F0F0}} i
        {{Text|IF|#F0F0F0}} b1 {{Text|THEN|#F0F0F0}}
            insertelements a$, b1, {{Text|"{"|#FFB100}}
            a$ = a$ + sp + {{Text|"}"|#FFB100}}
            n = n + {{Text|2|#F580B1}}
            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"fixoperationorder:^-:"|#FFB100}} + a$
            pownegused = {{Text|1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} powneg
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'quick check|#31C4C4}}
    {{Text|'----------------E. Find lowest & highest operator level in bottom bracket level----------------|#31C4C4}}
    NOT_recheck:
    lco = {{Text|255|#F580B1}}
    hco = {{Text|0|#F580B1}}
    b = {{Text|0|#F580B1}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
        a2$ = getelement(a$, i)
        c = {{Text|ASC|#F0F0F0}}(a2$)
        {{Text|IF|#F0F0F0}} c = {{Text|40|#F580B1}} {{Text|OR|#F0F0F0}} c = {{Text|123|#F580B1}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} c = {{Text|41|#F580B1}} {{Text|OR|#F0F0F0}} c = {{Text|125|#F580B1}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            op = isoperator(a2$)
            {{Text|IF|#F0F0F0}} op {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} op < lco {{Text|THEN|#F0F0F0}} lco = op
                {{Text|IF|#F0F0F0}} op > hco {{Text|THEN|#F0F0F0}} hco = op
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|'----------------F. Add operator {}bracketting----------------|#31C4C4}}
    {{Text|'apply bracketting only if required|#31C4C4}}
    {{Text|IF|#F0F0F0}} hco <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'operators were used|#31C4C4}}
        {{Text|IF|#F0F0F0}} lco <> hco {{Text|THEN|#F0F0F0}}
            {{Text|'brackets needed|#31C4C4}}
            {{Text|IF|#F0F0F0}} lco = {{Text|6|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'NOT exception|#31C4C4}}
                {{Text|'Step 1: Add brackets as follows [[User:RhoSigma|RhoSigma]] ([[User talk:RhoSigma|talk]]) ( NOT ( [[User:RhoSigma|RhoSigma]] ([[User talk:RhoSigma|talk]]) NOT [[User:RhoSigma|RhoSigma]] ([[User talk:RhoSigma|talk]]) NOT [[User:RhoSigma|RhoSigma]] ([[User talk:RhoSigma|talk]]) NOT [[User:RhoSigma|RhoSigma]] ([[User talk:RhoSigma|talk]]) ))|#31C4C4}}
                {{Text|'Step 2: Recheck line from beginning|#31C4C4}}
                {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected NOT ..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                b = {{Text|0|#F580B1}}
                {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
                    a2$ = getelement(a$, i)
                    c = {{Text|ASC|#F0F0F0}}(a2$)
                    {{Text|IF|#F0F0F0}} c = {{Text|40|#F580B1}} {{Text|OR|#F0F0F0}} c = {{Text|123|#F580B1}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} c = {{Text|41|#F580B1}} {{Text|OR|#F0F0F0}} c = {{Text|125|#F580B1}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(a2$) = {{Text|"NOT"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected NOT ..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"NOT"|#FFB100}} + sp + {{Text|"{"|#FFB100}} + sp + getelements$(a$, {{Text|2|#F580B1}}, n) + sp + {{Text|"}"|#FFB100}}: n = n + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} lco_bracketting_done
                            a$ = getelements$(a$, {{Text|1|#F580B1}}, i - {{Text|1|#F580B1}}) + sp + {{Text|"{"|#FFB100}} + sp + {{Text|"NOT"|#FFB100}} + sp + {{Text|"{"|#FFB100}} + sp + getelements$(a$, i + {{Text|1|#F580B1}}, n) + sp + {{Text|"}"|#FFB100}} + sp + {{Text|"}"|#FFB100}}
                            n = n + {{Text|4|#F580B1}}
                            {{Text|GOTO|#F0F0F0}} NOT_recheck
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'not|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'b=0|#31C4C4}}
                {{Text|NEXT|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'NOT exception|#31C4C4}}
            n2 = n
            b = {{Text|0|#F580B1}}
            a3$ = {{Text|"{"|#FFB100}}
            n = {{Text|1|#F580B1}}
            {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n2
                a2$ = getelement(a$, i)
                c = {{Text|ASC|#F0F0F0}}(a2$)
                {{Text|IF|#F0F0F0}} c = {{Text|40|#F580B1}} {{Text|OR|#F0F0F0}} c = {{Text|123|#F580B1}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} c = {{Text|41|#F580B1}} {{Text|OR|#F0F0F0}} c = {{Text|125|#F580B1}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    op = isoperator(a2$)
                    {{Text|IF|#F0F0F0}} op = lco {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                            a3$ = a2$ + sp + {{Text|"{"|#FFB100}}
                            n = {{Text|2|#F580B1}}
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} i = n2 {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected variable/value after '"|#FFB100}} + {{Text|UCASE$|#F0F0F0}}(a2$) + {{Text|"'"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            a3$ = a3$ + sp + {{Text|"}"|#FFB100}} + sp + a2$ + sp + {{Text|"{"|#FFB100}}
                            n = n + {{Text|3|#F580B1}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|GOTO|#F0F0F0}} fixop0
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'b=0|#31C4C4}}
                a3$ = a3$ + sp + a2$
                n = n + {{Text|1|#F580B1}}
                fixop0:
            {{Text|NEXT|#F0F0F0}}
            a3$ = a3$ + sp + {{Text|"}"|#FFB100}}
            n = n + {{Text|1|#F580B1}}
            a$ = a3$
            lco_bracketting_done:
            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"fixoperationorder:lco bracketing["|#FFB100}}; lco; {{Text|","|#FFB100}}; hco; {{Text|"]:"|#FFB100}} + a$
            {{Text|'--------(F)G. Remove indwelling {}bracketting from power-negation--------|#31C4C4}}
            {{Text|IF|#F0F0F0}} pownegused {{Text|THEN|#F0F0F0}}
                b = {{Text|0|#F580B1}}
                i = {{Text|0|#F580B1}}
                {{Text|DO|#F0F0F0}}
                    i = i + {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                    c = {{Text|ASC|#F0F0F0}}(getelement(a$, i))
                    {{Text|IF|#F0F0F0}} c = {{Text|41|#F580B1}} {{Text|OR|#F0F0F0}} c = {{Text|125|#F580B1}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} (c = {{Text|123|#F580B1}} {{Text|OR|#F0F0F0}} c = {{Text|125|#F580B1}}) {{Text|AND|#F0F0F0}} b <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        removeelements a$, i, i, {{Text|0|#F580B1}}
                        n = n - {{Text|1|#F580B1}}
                        i = i - {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"fixoperationorder:^- {} removed:"|#FFB100}} + a$
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} c = {{Text|40|#F580B1}} {{Text|OR|#F0F0F0}} c = {{Text|123|#F580B1}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
                {{Text|LOOP|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'pownegused|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'lco <> hco|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'hco <> 0|#31C4C4}}
    {{Text|'--------Bracketting of multiple NOT/negation unary operators--------|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(a$, {{Text|4|#F580B1}}) = {{Text|CHR$|#F0F0F0}}({{Text|241|#F580B1}}) + sp + {{Text|CHR$|#F0F0F0}}({{Text|241|#F580B1}}) + sp {{Text|THEN|#F0F0F0}}
        a$ = {{Text|CHR$|#F0F0F0}}({{Text|241|#F580B1}}) + sp + {{Text|"{"|#FFB100}} + sp + getelements$(a$, {{Text|2|#F580B1}}, n) + sp + {{Text|"}"|#FFB100}}: n = n + {{Text|2|#F580B1}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(a$, {{Text|8|#F580B1}})) = {{Text|"NOT"|#FFB100}} + sp + {{Text|"NOT"|#FFB100}} + sp {{Text|THEN|#F0F0F0}}
        a$ = {{Text|"NOT"|#FFB100}} + sp + {{Text|"{"|#FFB100}} + sp + getelements$(a$, {{Text|2|#F580B1}}, n) + sp + {{Text|"}"|#FFB100}}: n = n + {{Text|2|#F580B1}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'----------------H. Identification/conversion of elements within bottom bracket level----------------|#31C4C4}}
    {{Text|'actions performed:|#31C4C4}}
    {{Text|'  ->builds f$(tlayout)|#31C4C4}}
    {{Text|'  ->adds symbols to all numbers|#31C4C4}}
    {{Text|'  ->evaluates constants to numbers|#31C4C4}}
    f$ = {{Text|""|#FFB100}}
    b = {{Text|0|#F580B1}}
    c = {{Text|0|#F580B1}}
    lastt = {{Text|0|#F580B1}}: lastti = {{Text|0|#F580B1}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
        f2$ = getelement(a$, i)
        lastc = c
        c = {{Text|ASC|#F0F0F0}}(f2$)
        {{Text|IF|#F0F0F0}} c = {{Text|40|#F580B1}} {{Text|OR|#F0F0F0}} c = {{Text|123|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} c <> {{Text|40|#F580B1}} {{Text|OR|#F0F0F0}} b <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} f2$ = {{Text|""|#FFB100}} {{Text|'skip temporary & indwelling  brackets|#31C4C4}}
            b = b + {{Text|1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} classdone
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} c = {{Text|41|#F580B1}} {{Text|OR|#F0F0F0}} c = {{Text|125|#F580B1}} {{Text|THEN|#F0F0F0}}
            b = b - {{Text|1|#F580B1}}
            {{Text|'check for "("+sp+")" after literal-string, operator, number or nothing|#31C4C4}}
            {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'must be within the lowest level|#31C4C4}}
                {{Text|IF|#F0F0F0}} c = {{Text|41|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} lastc = {{Text|40|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} lastti = i - {{Text|2|#F580B1}} {{Text|OR|#F0F0F0}} lastti = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} lastt >= {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} lastt <= {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
                                Give_Error {{Text|"Unexpected ("|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} c <> {{Text|41|#F580B1}} {{Text|OR|#F0F0F0}} b <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} f2$ = {{Text|""|#FFB100}} {{Text|'skip temporary & indwelling  brackets|#31C4C4}}
            {{Text|GOTO|#F0F0F0}} classdone
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|'classifications/conversions:|#31C4C4}}
            {{Text|'1. quoted string ("....)|#31C4C4}}
            {{Text|'2. number|#31C4C4}}
            {{Text|'3. operator|#31C4C4}}
            {{Text|'4. constant|#31C4C4}}
            {{Text|'5. variable/array/udt/function (note: nothing can share the same name as a function except a label)|#31C4C4}}
            {{Text|'quoted string?|#31C4C4}}
            {{Text|IF|#F0F0F0}} c = {{Text|34|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"|#31C4C4}}
                lastt = {{Text|1|#F580B1}}: lastti = i
                {{Text|'convert \\ to \|#31C4C4}}
                {{Text|'convert \??? to CHR$(&O???)|#31C4C4}}
                x2 = {{Text|1|#F580B1}}
                x = {{Text|INSTR|#F0F0F0}}(x2, f2$, {{Text|"\"|#FFB100}})
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} x
                    c2 = {{Text|ASC|#F0F0F0}}(f2$, x + {{Text|1|#F580B1}})
                    {{Text|IF|#F0F0F0}} c2 = {{Text|92|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'\\|#31C4C4}}
                        f2$ = {{Text|LEFT$|#F0F0F0}}(f2$, x) + {{Text|RIGHT$|#F0F0F0}}(f2$, {{Text|LEN|#F0F0F0}}(f2$) - x - {{Text|1|#F580B1}}) {{Text|'remove second \|#31C4C4}}
                        x2 = x + {{Text|1|#F580B1}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|'octal triplet value|#31C4C4}}
                        c3 = ({{Text|ASC|#F0F0F0}}(f2$, x + {{Text|3|#F580B1}}) - {{Text|48|#F580B1}}) + ({{Text|ASC|#F0F0F0}}(f2$, x + {{Text|2|#F580B1}}) - {{Text|48|#F580B1}}) * {{Text|8|#F580B1}} + ({{Text|ASC|#F0F0F0}}(f2$, x + {{Text|1|#F580B1}}) - {{Text|48|#F580B1}}) * {{Text|64|#F580B1}}
                        f2$ = {{Text|LEFT$|#F0F0F0}}(f2$, x - {{Text|1|#F580B1}}) + {{Text|CHR$|#F0F0F0}}(c3) + {{Text|RIGHT$|#F0F0F0}}(f2$, {{Text|LEN|#F0F0F0}}(f2$) - x - {{Text|3|#F580B1}})
                        x2 = x + {{Text|1|#F580B1}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    x = {{Text|INSTR|#F0F0F0}}(x2, f2$, {{Text|"\"|#FFB100}})
                {{Text|LOOP|#F0F0F0}}
                {{Text|'remove ',len' (if it exists)|#31C4C4}}
                x = {{Text|INSTR|#F0F0F0}}({{Text|2|#F580B1}}, f2$, {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|","|#FFB100}}): {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}} f2$ = {{Text|LEFT$|#F0F0F0}}(f2$, x)
                {{Text|GOTO|#F0F0F0}} classdone
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'number?|#31C4C4}}
            {{Text|IF|#F0F0F0}} (c >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} c <= {{Text|57|#F580B1}}) {{Text|OR|#F0F0F0}} c = {{Text|45|#F580B1}} {{Text|THEN|#F0F0F0}}
                lastt = {{Text|2|#F580B1}}: lastti = i
                x = {{Text|INSTR|#F0F0F0}}(f2$, {{Text|","|#FFB100}})
                {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}}
                    removeelements a$, i, i, {{Text|0|#F580B1}}: insertelements a$, i - {{Text|1|#F580B1}}, {{Text|LEFT$|#F0F0F0}}(f2$, x - {{Text|1|#F580B1}})
                    f2$ = {{Text|RIGHT$|#F0F0F0}}(f2$, {{Text|LEN|#F0F0F0}}(f2$) - x)
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} x = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    c2 = {{Text|ASC|#F0F0F0}}(f2$, {{Text|LEN|#F0F0F0}}(f2$))
                    {{Text|IF|#F0F0F0}} c2 < {{Text|48|#F580B1}} {{Text|OR|#F0F0F0}} c2 > {{Text|57|#F580B1}} {{Text|THEN|#F0F0F0}}
                        x = {{Text|1|#F580B1}} {{Text|'extension given|#31C4C4}}
                    {{Text|ELSE|#F0F0F0}}
                        x = {{Text|INSTR|#F0F0F0}}(f2$, {{Text|"`"|#FFB100}})
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'add appropriate integer symbol if none present|#31C4C4}}
                {{Text|IF|#F0F0F0}} x = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    f3$ = f2$
                    s$ = {{Text|""|#FFB100}}
                    {{Text|IF|#F0F0F0}} c = {{Text|45|#F580B1}} {{Text|THEN|#F0F0F0}}
                        s$ = {{Text|"&&"|#FFB100}}
                        {{Text|IF|#F0F0F0}} (f3$ < {{Text|"-2147483648"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|LEN|#F0F0F0}}(f3$) = {{Text|11|#F580B1}}) {{Text|OR|#F0F0F0}} {{Text|LEN|#F0F0F0}}(f3$) < {{Text|11|#F580B1}} {{Text|THEN|#F0F0F0}} s$ = {{Text|"&"|#FFB100}}
                        {{Text|IF|#F0F0F0}} (f3$ <= {{Text|"-32768"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|LEN|#F0F0F0}}(f3$) = {{Text|6|#F580B1}}) {{Text|OR|#F0F0F0}} {{Text|LEN|#F0F0F0}}(f3$) < {{Text|6|#F580B1}} {{Text|THEN|#F0F0F0}} s$ = {{Text|"%"|#FFB100}}
                    {{Text|ELSE|#F0F0F0}}
                        s$ = {{Text|"~&&"|#FFB100}}
                        {{Text|IF|#F0F0F0}} (f3$ <= {{Text|"9223372036854775807"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|LEN|#F0F0F0}}(f3$) = {{Text|19|#F580B1}}) {{Text|OR|#F0F0F0}} {{Text|LEN|#F0F0F0}}(f3$) < {{Text|19|#F580B1}} {{Text|THEN|#F0F0F0}} s$ = {{Text|"&&"|#FFB100}}
                        {{Text|IF|#F0F0F0}} (f3$ <= {{Text|"2147483647"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|LEN|#F0F0F0}}(f3$) = {{Text|10|#F580B1}}) {{Text|OR|#F0F0F0}} {{Text|LEN|#F0F0F0}}(f3$) < {{Text|10|#F580B1}} {{Text|THEN|#F0F0F0}} s$ = {{Text|"&"|#FFB100}}
                        {{Text|IF|#F0F0F0}} (f3$ <= {{Text|"32767"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|LEN|#F0F0F0}}(f3$) = {{Text|5|#F580B1}}) {{Text|OR|#F0F0F0}} {{Text|LEN|#F0F0F0}}(f3$) < {{Text|5|#F580B1}} {{Text|THEN|#F0F0F0}} s$ = {{Text|"%"|#FFB100}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    f3$ = f3$ + s$
                    removeelements a$, i, i, {{Text|0|#F580B1}}: insertelements a$, i - {{Text|1|#F580B1}}, f3$
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'x=0|#31C4C4}}
                {{Text|GOTO|#F0F0F0}} classdone
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'operator?|#31C4C4}}
            {{Text|IF|#F0F0F0}} isoperator(f2$) {{Text|THEN|#F0F0F0}}
                lastt = {{Text|3|#F580B1}}: lastti = i
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(f2$) > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} f2$ <> SCase2$(f2$) {{Text|THEN|#F0F0F0}}
                        f2$ = SCase2$(f2$)
                        removeelements a$, i, i, {{Text|0|#F580B1}}
                        insertelements a$, i - {{Text|1|#F580B1}}, f2$
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'append negation|#31C4C4}}
                {{Text|IF|#F0F0F0}} f2$ = {{Text|CHR$|#F0F0F0}}({{Text|241|#F580B1}}) {{Text|THEN|#F0F0F0}} f$ = f$ + sp + {{Text|"-"|#FFB100}}: {{Text|GOTO|#F0F0F0}} classdone_special
                {{Text|GOTO|#F0F0F0}} classdone
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} alphanumeric(c) {{Text|THEN|#F0F0F0}}
                lastt = {{Text|4|#F580B1}}: lastti = i
                {{Text|IF|#F0F0F0}} i < n {{Text|THEN|#F0F0F0}} nextc = {{Text|ASC|#F0F0F0}}(getelement(a$, i + {{Text|1|#F580B1}})) {{Text|ELSE|#F0F0F0}} nextc = {{Text|0|#F580B1}}
                {{Text|' a constant?|#31C4C4}}
                {{Text|IF|#F0F0F0}} nextc <> {{Text|40|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'<>"(" (not an array)|#31C4C4}}
                    {{Text|IF|#F0F0F0}} lastc <> {{Text|46|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'<>"." (not an element of a UDT)|#31C4C4}}
                        e$ = {{Text|UCASE$|#F0F0F0}}(f2$)
                        es$ = removesymbol$(e$)
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        hashfound = {{Text|0|#F580B1}}
                        hashname$ = e$
                        hashchkflags = HASHFLAG_CONSTANT
                        hashres = HashFindRev(hashname$, hashchkflags, hashresflags, hashresref)
                        {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} hashres
                            {{Text|IF|#F0F0F0}} constsubfunc(hashresref) = subfuncn {{Text|OR|#F0F0F0}} constsubfunc(hashresref) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} constdefined(hashresref) {{Text|THEN|#F0F0F0}}
                                    hashfound = {{Text|1|#F580B1}}
                                    {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} hashres <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} hashres = HashFindCont(hashresflags, hashresref) {{Text|ELSE|#F0F0F0}} hashres = {{Text|0|#F580B1}}
                        {{Text|LOOP|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} hashfound {{Text|THEN|#F0F0F0}}
                            i2 = hashresref
                            {{Text|'FOR i2 = constlast TO 0 STEP -1|#31C4C4}}
                            {{Text|'IF e$ = constname(i2) THEN|#31C4C4}}
                            {{Text|'is a STATIC variable overriding this constant?|#31C4C4}}
                            staticvariable = {{Text|0|#F580B1}}
                            try = findid(e$ + es$)
                            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                                {{Text|IF|#F0F0F0}} id.arraytype = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} staticvariable = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}} {{Text|'if it's not an array, it's probably a static variable|#31C4C4}}
                                {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(e$ + es$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                            {{Text|LOOP|#F0F0F0}}
                            {{Text|'add symbol and try again|#31C4C4}}
                            {{Text|IF|#F0F0F0}} staticvariable = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(es$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    a = {{Text|ASC|#F0F0F0}}({{Text|UCASE$|#F0F0F0}}(e$)): {{Text|IF|#F0F0F0}} a = {{Text|95|#F580B1}} {{Text|THEN|#F0F0F0}} a = {{Text|91|#F580B1}}
                                    a = a - {{Text|64|#F580B1}} {{Text|'so A=1, Z=27 and _=28|#31C4C4}}
                                    es2$ = defineextaz(a)
                                    try = findid(e$ + es2$)
                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                                        {{Text|IF|#F0F0F0}} id.arraytype = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} staticvariable = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}} {{Text|'if it's not an array, it's probably a static variable|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(e$ + es2$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                    {{Text|LOOP|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} staticvariable = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                t = consttype(i2)
                                {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(es$) > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} es$ <> {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Type mismatch"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                    e$ = conststring(i2)
                                {{Text|ELSE|#F0F0F0}} {{Text|'not a string|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(es$) {{Text|THEN|#F0F0F0}} et = typname2typ(es$) {{Text|ELSE|#F0F0F0}} et = {{Text|0|#F580B1}}
                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} et {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Type mismatch"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                    {{Text|'convert value to general formats|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
                                        v## = constfloat(i2)
                                        v&& = v##
                                        v~&& = v&&
                                    {{Text|ELSE|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}}
                                            v~&& = constuinteger(i2)
                                            v&& = v~&&
                                            v## = v&&
                                        {{Text|ELSE|#F0F0F0}}
                                            v&& = constinteger(i2)
                                            v## = v&&
                                            v~&& = v&&
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|'apply type conversion if necessary|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} et {{Text|THEN|#F0F0F0}} t = et
                                    {{Text|'(todo: range checking)|#31C4C4}}
                                    {{Text|'convert value into string for returning|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
                                        e$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(v##)))
                                    {{Text|ELSE|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}}
                                            e$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(v~&&)))
                                        {{Text|ELSE|#F0F0F0}}
                                            e$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(v&&)))
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|'floats returned by str$ must be converted to qb64 standard format|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
                                        t2 = t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                                        {{Text|'find E,D or F|#31C4C4}}
                                        s$ = {{Text|""|#FFB100}}
                                        {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(e$, {{Text|"E"|#FFB100}}) {{Text|THEN|#F0F0F0}} s$ = {{Text|"E"|#FFB100}}
                                        {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(e$, {{Text|"D"|#FFB100}}) {{Text|THEN|#F0F0F0}} s$ = {{Text|"D"|#FFB100}}
                                        {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(e$, {{Text|"F"|#FFB100}}) {{Text|THEN|#F0F0F0}} s$ = {{Text|"F"|#FFB100}}
                                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(s$) {{Text|THEN|#F0F0F0}}
                                            {{Text|'E,D,F found|#31C4C4}}
                                            x = {{Text|INSTR|#F0F0F0}}(e$, s$)
                                            {{Text|'as incorrect type letter may have been returned by STR$, override it|#31C4C4}}
                                            {{Text|IF|#F0F0F0}} t2 = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} s$ = {{Text|"E"|#FFB100}}
                                            {{Text|IF|#F0F0F0}} t2 = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} s$ = {{Text|"D"|#FFB100}}
                                            {{Text|IF|#F0F0F0}} t2 = {{Text|256|#F580B1}} {{Text|THEN|#F0F0F0}} s$ = {{Text|"F"|#FFB100}}
                                            {{Text|MID$|#F0F0F0}}(e$, x, {{Text|1|#F580B1}}) = s$
                                            {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(e$, {{Text|"."|#FFB100}}) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|LEFT$|#F0F0F0}}(e$, x - {{Text|1|#F580B1}}) + {{Text|".0"|#FFB100}} + {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - x + {{Text|1|#F580B1}}): x = x + {{Text|2|#F580B1}}
                                            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(e$, {{Text|1|#F580B1}}) = {{Text|"."|#FFB100}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"0"|#FFB100}} + e$
                                            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(e$, {{Text|2|#F580B1}}) = {{Text|"-."|#FFB100}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"-0"|#FFB100}} + {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|1|#F580B1}})
                                            {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(e$, {{Text|"+"|#FFB100}}) = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(e$, {{Text|"-"|#FFB100}}) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                                e$ = {{Text|LEFT$|#F0F0F0}}(e$, x) + {{Text|"+"|#FFB100}} + {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - x)
                                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|ELSE|#F0F0F0}}
                                            {{Text|'E,D,F not found|#31C4C4}}
                                            {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(e$, {{Text|"."|#FFB100}}) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = e$ + {{Text|".0"|#FFB100}}
                                            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(e$, {{Text|1|#F580B1}}) = {{Text|"."|#FFB100}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"0"|#FFB100}} + e$
                                            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(e$, {{Text|2|#F580B1}}) = {{Text|"-."|#FFB100}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"-0"|#FFB100}} + {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|1|#F580B1}})
                                            {{Text|IF|#F0F0F0}} t2 = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = e$ + {{Text|"E+0"|#FFB100}}
                                            {{Text|IF|#F0F0F0}} t2 = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = e$ + {{Text|"D+0"|#FFB100}}
                                            {{Text|IF|#F0F0F0}} t2 = {{Text|256|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = e$ + {{Text|"F+0"|#FFB100}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|ELSE|#F0F0F0}}
                                        s$ = typevalue2symbol$(t)
                                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                        e$ = e$ + s$ {{Text|'simply append symbol to integer|#31C4C4}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'not a string|#31C4C4}}
                                removeelements a$, i, i, {{Text|0|#F580B1}}
                                insertelements a$, i - {{Text|1|#F580B1}}, e$
                                {{Text|'alter f2$ here to original casing|#31C4C4}}
                                f2$ = constcname(i2) + es$
                                {{Text|GOTO|#F0F0F0}} classdone
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'not static|#31C4C4}}
                            {{Text|'END IF 'same name|#31C4C4}}
                            {{Text|'NEXT|#31C4C4}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'hashfound|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'not udt element|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'not array|#31C4C4}}
                {{Text|'variable/array/udt?|#31C4C4}}
                u$ = f2$
                try_string$ = f2$
                try_string2$ = try_string$ {{Text|'pure version of try_string$|#31C4C4}}
                {{Text|FOR|#F0F0F0}} try_method = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|4|#F580B1}}
                    try_string$ = try_string2$
                    {{Text|IF|#F0F0F0}} try_method = {{Text|2|#F580B1}} {{Text|OR|#F0F0F0}} try_method = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}}
                        dtyp$ = removesymbol(try_string$)
                        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(dtyp$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} isoperator(try_string$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} isvalidvariable(try_string$) {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(try_string$, {{Text|1|#F580B1}}) = {{Text|"_"|#FFB100}} {{Text|THEN|#F0F0F0}} v = {{Text|27|#F580B1}} {{Text|ELSE|#F0F0F0}} v = {{Text|ASC|#F0F0F0}}({{Text|UCASE$|#F0F0F0}}(try_string$)) - {{Text|64|#F580B1}}
                                    try_string$ = try_string$ + defineextaz(v)
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|ELSE|#F0F0F0}}
                            try_string$ = try_string2$
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    try = findid(try_string$)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} try
                        {{Text|IF|#F0F0F0}} (subfuncn = id.insubfuncn {{Text|AND|#F0F0F0}} try_method <= {{Text|2|#F580B1}}) {{Text|OR|#F0F0F0}} try_method >= {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"found id matching "|#FFB100}} + f2$
                            {{Text|IF|#F0F0F0}} nextc = {{Text|40|#F580B1}} {{Text|OR|#F0F0F0}} uboundlbound <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'(|#31C4C4}}
                                uboundlbound = {{Text|0|#F580B1}}
                                {{Text|'function or array?|#31C4C4}}
                                {{Text|IF|#F0F0F0}} id.arraytype <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} id.subfunc = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|'note: even if it's an array of UDTs, the bracketted index will follow immediately|#31C4C4}}
                                    {{Text|'correct name|#31C4C4}}
                                    f3$ = f2$
                                    s$ = removesymbol$(f3$)
                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} id.internal_subfunc {{Text|THEN|#F0F0F0}}
                                        f2$ = SCase$({{Text|RTRIM$|#F0F0F0}}(id.cn)) + s$
                                        {{Text|IF|#F0F0F0}} ({{Text|UCASE$|#F0F0F0}}(f2$) = {{Text|"UBOUND"|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(f2$) = {{Text|"LBOUND"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                                            uboundlbound = {{Text|2|#F580B1}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|ELSE|#F0F0F0}}
                                        f2$ = {{Text|RTRIM$|#F0F0F0}}(id.cn) + s$
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    removeelements a$, i, i, {{Text|0|#F580B1}}
                                    insertelements a$, i - {{Text|1|#F580B1}}, {{Text|UCASE$|#F0F0F0}}(f2$)
                                    f$ = f$ + f2$ + sp + {{Text|"("|#FFB100}} + sp
                                    {{Text|'skip (but record with nothing inside them) brackets|#31C4C4}}
                                    b2 = {{Text|1|#F580B1}} {{Text|'already in first bracket|#31C4C4}}
                                    {{Text|FOR|#F0F0F0}} i2 = i + {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n
                                        c2 = {{Text|ASC|#F0F0F0}}(getelement(a$, i2))
                                        {{Text|IF|#F0F0F0}} c2 = {{Text|40|#F580B1}} {{Text|THEN|#F0F0F0}} b2 = b2 + {{Text|1|#F580B1}}
                                        {{Text|IF|#F0F0F0}} c2 = {{Text|41|#F580B1}} {{Text|THEN|#F0F0F0}} b2 = b2 - {{Text|1|#F580B1}}
                                        {{Text|IF|#F0F0F0}} b2 = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}} {{Text|'note: mismatched brackets check ensures this always succeeds|#31C4C4}}
                                        f$ = f$ + sp
                                    {{Text|NEXT|#F0F0F0}}
                                    {{Text|'adjust i accordingly|#31C4C4}}
                                    i = i2
                                    f$ = f$ + {{Text|")"|#FFB100}}
                                    {{Text|'jump to UDT section if array is of UDT type (and elements are referenced)|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} id.arraytype {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} i < n {{Text|THEN|#F0F0F0}} nextc = {{Text|ASC|#F0F0F0}}(getelement(a$, i + {{Text|1|#F580B1}})) {{Text|ELSE|#F0F0F0}} nextc = {{Text|0|#F580B1}}
                                        {{Text|IF|#F0F0F0}} nextc = {{Text|46|#F580B1}} {{Text|THEN|#F0F0F0}} t = id.arraytype: {{Text|GOTO|#F0F0F0}} fooudt
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    f$ = f$ + sp
                                    {{Text|GOTO|#F0F0F0}} classdone_special
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'id.arraytype|#31C4C4}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'nextc "("|#31C4C4}}
                            {{Text|IF|#F0F0F0}} nextc <> {{Text|40|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'not "(" (this avoids confusing simple variables with arrays)|#31C4C4}}
                                {{Text|IF|#F0F0F0}} id.t <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} id.subfunc = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'simple variable or function (without parameters)|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} id.t {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                                        {{Text|'note: it may or may not be followed by a period (eg. if whole udt is being referred to)|#31C4C4}}
                                        {{Text|'check if next item is a period|#31C4C4}}
                                        {{Text|'correct name|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} id.internal_subfunc {{Text|THEN|#F0F0F0}}
                                            f2$ = SCase$({{Text|RTRIM$|#F0F0F0}}(id.cn)) + removesymbol$(f2$)
                                        {{Text|ELSE|#F0F0F0}}
                                            f2$ = {{Text|RTRIM$|#F0F0F0}}(id.cn) + removesymbol$(f2$)
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                        removeelements a$, i, i, {{Text|0|#F580B1}}
                                        insertelements a$, i - {{Text|1|#F580B1}}, {{Text|UCASE$|#F0F0F0}}(f2$)
                                        f$ = f$ + f2$
                                        {{Text|IF|#F0F0F0}} nextc <> {{Text|46|#F580B1}} {{Text|THEN|#F0F0F0}} f$ = f$ + sp: {{Text|GOTO|#F0F0F0}} classdone_special {{Text|'no sub-elements referenced|#31C4C4}}
                                        t = id.t
                                        fooudt:
                                        f$ = f$ + sp + {{Text|"."|#FFB100}} + sp
                                        E = udtxnext(t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) {{Text|'next element to check|#31C4C4}}
                                        i = i + {{Text|2|#F580B1}}
                                        {{Text|'loop|#31C4C4}}
                                        {{Text|'"." encountered, i must be an element|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected .element"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                        f2$ = getelement(a$, i)
                                        s$ = removesymbol$(f2$)
                                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                        u$ = {{Text|UCASE$|#F0F0F0}}(f2$) + {{Text|SPACE$|#F0F0F0}}({{Text|256|#F580B1}} - {{Text|LEN|#F0F0F0}}(f2$)) {{Text|'fast scanning|#31C4C4}}
                                        {{Text|'is f$ the same as element e?|#31C4C4}}
                                        fooudtnexte:
                                        {{Text|IF|#F0F0F0}} udtename(E) = u$ {{Text|THEN|#F0F0F0}}
                                            {{Text|'match found|#31C4C4}}
                                            {{Text|'todo: check symbol(s$) matches element's type|#31C4C4}}
                                            {{Text|'correct name|#31C4C4}}
                                            f2$ = {{Text|RTRIM$|#F0F0F0}}(udtecname(E)) + s$
                                            removeelements a$, i, i, {{Text|0|#F580B1}}
                                            insertelements a$, i - {{Text|1|#F580B1}}, {{Text|UCASE$|#F0F0F0}}(f2$)
                                            f$ = f$ + f2$
                                            {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}} f$ = f$ + sp: {{Text|GOTO|#F0F0F0}} classdone_special
                                            nextc = {{Text|ASC|#F0F0F0}}(getelement(a$, i + {{Text|1|#F580B1}}))
                                            {{Text|IF|#F0F0F0}} nextc <> {{Text|46|#F580B1}} {{Text|THEN|#F0F0F0}} f$ = f$ + sp: {{Text|GOTO|#F0F0F0}} classdone_special {{Text|'no sub-elements referenced|#31C4C4}}
                                            {{Text|'sub-element exists|#31C4C4}}
                                            t = udtetype(E)
                                            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid . after element"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                            {{Text|GOTO|#F0F0F0}} fooudt
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'match found|#31C4C4}}
                                        {{Text|'no, so check next element|#31C4C4}}
                                        E = udtenext(E)
                                        {{Text|IF|#F0F0F0}} E = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Element not defined"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                        {{Text|GOTO|#F0F0F0}} fooudtnexte
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'udt|#31C4C4}}
                                    {{Text|'non array/udt based variable|#31C4C4}}
                                    f3$ = f2$
                                    s$ = removesymbol$(f3$)
                                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} id.internal_subfunc {{Text|THEN|#F0F0F0}}
                                        f2$ = SCase$({{Text|RTRIM$|#F0F0F0}}(id.cn)) + s$
                                    {{Text|ELSE|#F0F0F0}}
                                        f2$ = {{Text|RTRIM$|#F0F0F0}}(id.cn) + s$
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|'change was is returned to uppercase|#31C4C4}}
                                    removeelements a$, i, i, {{Text|0|#F580B1}}
                                    insertelements a$, i - {{Text|1|#F580B1}}, {{Text|UCASE$|#F0F0F0}}(f2$)
                                    {{Text|GOTO|#F0F0F0}} CouldNotClassify
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'id.t|#31C4C4}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'nextc not "("|#31C4C4}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} try = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} findanotherid = {{Text|1|#F580B1}}: try = findid(try_string$) {{Text|ELSE|#F0F0F0}} try = {{Text|0|#F580B1}}
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|LOOP|#F0F0F0}}
                {{Text|NEXT|#F0F0F0}} {{Text|'try method (1-4)|#31C4C4}}
                CouldNotClassify:
                {{Text|'alphanumeric, but item name is unknown... is it an internal type? if so, use capitals|#31C4C4}}
                f3$ = {{Text|UCASE$|#F0F0F0}}(f2$)
                internaltype = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} f3$ = {{Text|"STRING"|#FFB100}} {{Text|THEN|#F0F0F0}} internaltype = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} f3$ = {{Text|"_UNSIGNED"|#FFB100}} {{Text|OR|#F0F0F0}} (f3$ = {{Text|"UNSIGNED"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} internaltype = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} f3$ = {{Text|"_BIT"|#FFB100}} {{Text|OR|#F0F0F0}} (f3$ = {{Text|"BIT"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} internaltype = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} f3$ = {{Text|"_BYTE"|#FFB100}} {{Text|OR|#F0F0F0}} (f3$ = {{Text|"BYTE"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} internaltype = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} f3$ = {{Text|"INTEGER"|#FFB100}} {{Text|THEN|#F0F0F0}} internaltype = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} f3$ = {{Text|"LONG"|#FFB100}} {{Text|THEN|#F0F0F0}} internaltype = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} f3$ = {{Text|"_INTEGER64"|#FFB100}} {{Text|OR|#F0F0F0}} (f3$ = {{Text|"INTEGER64"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} internaltype = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} f3$ = {{Text|"SINGLE"|#FFB100}} {{Text|THEN|#F0F0F0}} internaltype = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} f3$ = {{Text|"DOUBLE"|#FFB100}} {{Text|THEN|#F0F0F0}} internaltype = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} f3$ = {{Text|"_FLOAT"|#FFB100}} {{Text|OR|#F0F0F0}} (f3$ = {{Text|"FLOAT"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} internaltype = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} f3$ = {{Text|"_OFFSET"|#FFB100}} {{Text|OR|#F0F0F0}} (f3$ = {{Text|"OFFSET"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} internaltype = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} internaltype = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    f2$ = SCase2$(f3$)
                    removeelements a$, i, i, {{Text|0|#F580B1}}
                    insertelements a$, i - {{Text|1|#F580B1}}, f3$
                    {{Text|GOTO|#F0F0F0}} classdone
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|GOTO|#F0F0F0}} classdone
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'alphanumeric|#31C4C4}}
            classdone:
            f$ = f$ + f2$
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'b=0|#31C4C4}}
        f$ = f$ + sp
        classdone_special:
    {{Text|NEXT|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(f$) {{Text|THEN|#F0F0F0}} f$ = {{Text|LEFT$|#F0F0F0}}(f$, {{Text|LEN|#F0F0F0}}(f$) - {{Text|1|#F580B1}}) {{Text|'remove trailing 'sp'|#31C4C4}}
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"fixoperationorder:identification:"|#FFB100}} + a$, n
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"fixoperationorder:identification(layout):"|#FFB100}} + f$, n
    {{Text|'----------------I. Pass (){}bracketed items (if any) to fixoperationorder & build return----------------|#31C4C4}}
    {{Text|'note: items seperated by commas are done seperately|#31C4C4}}
    ff$ = {{Text|""|#FFB100}}
    b = {{Text|0|#F580B1}}
    b2 = {{Text|0|#F580B1}}
    p1 = {{Text|0|#F580B1}} {{Text|'where level 1 began|#31C4C4}}
    aa$ = {{Text|""|#FFB100}}
    n = numelements(a$)
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
        openbracket = {{Text|0|#F580B1}}
        a2$ = getelement(a$, i)
        c = {{Text|ASC|#F0F0F0}}(a2$)
        {{Text|IF|#F0F0F0}} c = {{Text|40|#F580B1}} {{Text|OR|#F0F0F0}} c = {{Text|123|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'({|#31C4C4}}
            b = b + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} b = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                p1 = i + {{Text|1|#F580B1}}
                aa$ = aa$ + {{Text|"("|#FFB100}} + sp
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            openbracket = {{Text|1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} foopass
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'({|#31C4C4}}
        {{Text|IF|#F0F0F0}} c = {{Text|44|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|',|#31C4C4}}
            {{Text|IF|#F0F0F0}} b = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|GOTO|#F0F0F0}} foopassit
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} c = {{Text|41|#F580B1}} {{Text|OR|#F0F0F0}} c = {{Text|125|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|')}|#31C4C4}}
            {{Text|IF|#F0F0F0}} uboundlbound {{Text|THEN|#F0F0F0}} uboundlbound = uboundlbound - {{Text|1|#F580B1}}
            b = b - {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                foopassit:
                {{Text|IF|#F0F0F0}} p1 <> i {{Text|THEN|#F0F0F0}}
                    foo$ = fixoperationorder(getelements(a$, p1, i - {{Text|1|#F580B1}}))
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(foo$) {{Text|THEN|#F0F0F0}}
                        aa$ = aa$ + foo$ + sp
                        {{Text|IF|#F0F0F0}} c = {{Text|125|#F580B1}} {{Text|THEN|#F0F0F0}} ff$ = ff$ + tlayout$ + sp {{Text|ELSE|#F0F0F0}} ff$ = ff$ + tlayout$ + sp2 {{Text|'spacing between ) } , varies|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} c = {{Text|44|#F580B1}} {{Text|THEN|#F0F0F0}} aa$ = aa$ + {{Text|","|#FFB100}} + sp: ff$ = ff$ + {{Text|","|#FFB100}} + sp {{Text|ELSE|#F0F0F0}} aa$ = aa$ + {{Text|")"|#FFB100}} + sp
                p1 = i + {{Text|1|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} foopass
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|')}|#31C4C4}}
        {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} aa$ = aa$ + a2$ + sp
        foopass:
        f2$ = getelementspecial(f$, i)
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(f2$) {{Text|THEN|#F0F0F0}}
            {{Text|'use sp2 to join items connected by a period|#31C4C4}}
            {{Text|IF|#F0F0F0}} c = {{Text|46|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"."|#31C4C4}}
                {{Text|IF|#F0F0F0}} i > {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} i < n {{Text|THEN|#F0F0F0}} {{Text|'stupidity check|#31C4C4}}
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(ff$) {{Text|THEN|#F0F0F0}} {{Text|MID$|#F0F0F0}}(ff$, {{Text|LEN|#F0F0F0}}(ff$), {{Text|1|#F580B1}}) = sp2 {{Text|'convert last spacer to a sp2|#31C4C4}}
                    ff$ = ff$ + {{Text|"."|#FFB100}} + sp2
                    {{Text|GOTO|#F0F0F0}} fooloopnxt
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'spacing just before (|#31C4C4}}
            {{Text|IF|#F0F0F0}} openbracket {{Text|THEN|#F0F0F0}}
                {{Text|'convert last spacer?|#31C4C4}}
                {{Text|IF|#F0F0F0}} i <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} isoperator(getelement$(a$, i - {{Text|1|#F580B1}})) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|MID$|#F0F0F0}}(ff$, {{Text|LEN|#F0F0F0}}(ff$), {{Text|1|#F580B1}}) = sp2
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                ff$ = ff$ + f2$ + sp2
            {{Text|ELSE|#F0F0F0}} {{Text|'not openbracket|#31C4C4}}
                ff$ = ff$ + f2$ + sp
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'len(f2$)|#31C4C4}}
        fooloopnxt:
    {{Text|NEXT|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(aa$) {{Text|THEN|#F0F0F0}} aa$ = {{Text|LEFT$|#F0F0F0}}(aa$, {{Text|LEN|#F0F0F0}}(aa$) - {{Text|1|#F580B1}})
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(ff$) {{Text|THEN|#F0F0F0}} ff$ = {{Text|LEFT$|#F0F0F0}}(ff$, {{Text|LEN|#F0F0F0}}(ff$) - {{Text|1|#F580B1}})
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"fixoperationorder:return:"|#FFB100}} + aa$
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"fixoperationorder:layout:"|#FFB100}} + ff$
    tlayout$ = ff$
    fixoperationorder$ = aa$
    fooindwel = fooindwel - {{Text|1|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} getelementspecial$ (savea$, elenum)
    a$ = savea$
    {{Text|IF|#F0F0F0}} a$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'no elements!|#31C4C4}}
    n = {{Text|1|#F580B1}}
    p = {{Text|1|#F580B1}}
    getelementspecialnext:
    i = {{Text|INSTR|#F0F0F0}}(p, a$, sp)
    {{Text|'avoid sp inside "..."|#31C4C4}}
    i2 = {{Text|INSTR|#F0F0F0}}(p, a$, {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}))
    {{Text|IF|#F0F0F0}} i2 < i {{Text|AND|#F0F0F0}} i2 <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        i3 = {{Text|INSTR|#F0F0F0}}(i2 + {{Text|1|#F580B1}}, a$, {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})): {{Text|IF|#F0F0F0}} i3 = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}): {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        i = {{Text|INSTR|#F0F0F0}}(i3, a$, sp)
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} elenum = n {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}}
            getelementspecial$ = {{Text|MID$|#F0F0F0}}(a$, p, i - p)
        {{Text|ELSE|#F0F0F0}}
            getelementspecial$ = {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - p + {{Text|1|#F580B1}})
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} i = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'no more elements!|#31C4C4}}
    n = n + {{Text|1|#F580B1}}
    p = i + {{Text|1|#F580B1}}
    {{Text|GOTO|#F0F0F0}} getelementspecialnext
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|SUB|#F0F0F0}} getid (i {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}})
    {{Text|IF|#F0F0F0}} i = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"-1 passed to getid!"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    id = ids(i)
    currentid = i
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} isoperator (a2$)
    a$ = {{Text|UCASE$|#F0F0F0}}(a2$)
    l = {{Text|0|#F580B1}}
    l = l + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} a$ = {{Text|"IMP"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} opfound
    l = l + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} a$ = {{Text|"EQV"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} opfound
    l = l + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} a$ = {{Text|"XOR"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} opfound
    l = l + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} a$ = {{Text|"OR"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} opfound
    l = l + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} a$ = {{Text|"AND"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} opfound
    l = l + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} a$ = {{Text|"NOT"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} opfound
    l = l + {{Text|1|#F580B1}}
    {{Text|IF|#F0F0F0}} a$ = {{Text|"="|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} opfound
    {{Text|IF|#F0F0F0}} a$ = {{Text|">"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} opfound
    {{Text|IF|#F0F0F0}} a$ = {{Text|"<"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} opfound
    {{Text|IF|#F0F0F0}} a$ = {{Text|"<>"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} opfound
    {{Text|IF|#F0F0F0}} a$ = {{Text|"<="|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} opfound
    {{Text|IF|#F0F0F0}} a$ = {{Text|">="|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} opfound
    l = l + {{Text|1|#F580B1}}
    {{Text|IF|#F0F0F0}} a$ = {{Text|"+"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} opfound
    {{Text|IF|#F0F0F0}} a$ = {{Text|"-"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} opfound {{Text|'!CAREFUL! could be negation|#31C4C4}}
    l = l + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} a$ = {{Text|"MOD"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} opfound
    l = l + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} a$ = {{Text|"\"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} opfound
    l = l + {{Text|1|#F580B1}}
    {{Text|IF|#F0F0F0}} a$ = {{Text|"*"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} opfound
    {{Text|IF|#F0F0F0}} a$ = {{Text|"/"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} opfound
    {{Text|'NEGATION LEVEL (MUST BE SET AFTER CALLING ISOPERATOR BY CONTEXT)|#31C4C4}}
    l = l + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} a$ = {{Text|CHR$|#F0F0F0}}({{Text|241|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} opfound
    l = l + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} a$ = {{Text|"^"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} opfound
    {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    opfound:
    isoperator = l
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} isuinteger (i$)
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(i$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(i$, {{Text|1|#F580B1}}) = {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LEN|#F0F0F0}}(i$) > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|FOR|#F0F0F0}} c = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(i$)
        v = {{Text|ASC|#F0F0F0}}(i$, c)
        {{Text|IF|#F0F0F0}} v < {{Text|48|#F580B1}} {{Text|OR|#F0F0F0}} v > {{Text|57|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    isuinteger = {{Text|-1|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} isvalidvariable (a$)
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(a$)
        c = {{Text|ASC|#F0F0F0}}(a$, i)
        t = {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} c >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} c <= {{Text|57|#F580B1}} {{Text|THEN|#F0F0F0}} t = {{Text|1|#F580B1}} {{Text|'numeric|#31C4C4}}
        {{Text|IF|#F0F0F0}} c >= {{Text|65|#F580B1}} {{Text|AND|#F0F0F0}} c <= {{Text|90|#F580B1}} {{Text|THEN|#F0F0F0}} t = {{Text|2|#F580B1}} {{Text|'uppercase|#31C4C4}}
        {{Text|IF|#F0F0F0}} c >= {{Text|97|#F580B1}} {{Text|AND|#F0F0F0}} c <= {{Text|122|#F580B1}} {{Text|THEN|#F0F0F0}} t = {{Text|2|#F580B1}} {{Text|'lowercase|#31C4C4}}
        {{Text|IF|#F0F0F0}} c = {{Text|95|#F580B1}} {{Text|THEN|#F0F0F0}} t = {{Text|2|#F580B1}} {{Text|'_ underscore|#31C4C4}}
        {{Text|IF|#F0F0F0}} t = {{Text|2|#F580B1}} {{Text|OR|#F0F0F0}} (t = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} i > {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
            {{Text|'valid (continue)|#31C4C4}}
        {{Text|ELSE|#F0F0F0}}
            {{Text|IF|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} isvalidvariable = {{Text|0|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    isvalidvariable = {{Text|1|#F580B1}}
    {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'i is always greater than n because n is undefined here. Why didn't I remove this line and the ones below it, which will never run? Cause I'm a coward. F.h.|#31C4C4}}
    e$ = {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - i - {{Text|1|#F580B1}})
    {{Text|IF|#F0F0F0}} e$ = {{Text|"%%"|#FFB100}} {{Text|OR|#F0F0F0}} e$ = {{Text|"~%%"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} e$ = {{Text|"%"|#FFB100}} {{Text|OR|#F0F0F0}} e$ = {{Text|"~%"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} e$ = {{Text|"&"|#FFB100}} {{Text|OR|#F0F0F0}} e$ = {{Text|"~&"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} e$ = {{Text|"&&"|#FFB100}} {{Text|OR|#F0F0F0}} e$ = {{Text|"~&&"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} e$ = {{Text|"!"|#FFB100}} {{Text|OR|#F0F0F0}} e$ = {{Text|"#"|#FFB100}} {{Text|OR|#F0F0F0}} e$ = {{Text|"##"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} e$ = {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} e$ = {{Text|"`"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(e$, {{Text|1|#F580B1}}) <> {{Text|"$"|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(e$, {{Text|1|#F580B1}}) <> {{Text|"`"|#FFB100}} {{Text|THEN|#F0F0F0}} isvalidvariable = {{Text|0|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - {{Text|1|#F580B1}})
    {{Text|IF|#F0F0F0}} isuinteger(e$) {{Text|THEN|#F0F0F0}} isvalidvariable = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    isvalidvariable = {{Text|0|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} lineformat$ (a$)
    a2$ = {{Text|""|#FFB100}}
    linecontinuation = {{Text|0|#F580B1}}
    continueline:
    a$ = a$ + {{Text|"  "|#FFB100}} {{Text|'add 2 extra spaces to make reading next char easier|#31C4C4}}
    ca$ = a$
    a$ = {{Text|UCASE$|#F0F0F0}}(a$)
    n = {{Text|LEN|#F0F0F0}}(a$)
    i = {{Text|1|#F580B1}}
    lineformatnext:
    {{Text|IF|#F0F0F0}} i >= n {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} lineformatdone
    c = {{Text|ASC|#F0F0F0}}(a$, i)
    c$ = {{Text|CHR$|#F0F0F0}}(c) {{Text|'***remove later***|#31C4C4}}
    {{Text|'----------------quoted string----------------|#31C4C4}}
    {{Text|IF|#F0F0F0}} c = {{Text|34|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"|#31C4C4}}
        a2$ = a2$ + sp + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
        p1 = i + {{Text|1|#F580B1}}
        {{Text|FOR|#F0F0F0}} i2 = i + {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n - {{Text|2|#F580B1}}
            c2 = {{Text|ASC|#F0F0F0}}(a$, i2)
            {{Text|IF|#F0F0F0}} c2 = {{Text|34|#F580B1}} {{Text|THEN|#F0F0F0}}
                a2$ = a2$ + {{Text|MID$|#F0F0F0}}(ca$, p1, i2 - p1 + {{Text|1|#F580B1}}) + {{Text|","|#FFB100}} + str2$(i2 - (i + {{Text|1|#F580B1}}))
                i = i2 + {{Text|1|#F580B1}}
                {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} c2 = {{Text|92|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'\|#31C4C4}}
                a2$ = a2$ + {{Text|MID$|#F0F0F0}}(ca$, p1, i2 - p1) + {{Text|"\\"|#FFB100}}
                p1 = i2 + {{Text|1|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} c2 < {{Text|32|#F580B1}} {{Text|OR|#F0F0F0}} c2 > {{Text|126|#F580B1}} {{Text|THEN|#F0F0F0}}
                o$ = {{Text|OCT$|#F0F0F0}}(c2)
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(o$) < {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
                    o$ = {{Text|"0"|#FFB100}} + o$
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(o$) < {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} o$ = {{Text|"0"|#FFB100}} + o$
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                a2$ = a2$ + {{Text|MID$|#F0F0F0}}(ca$, p1, i2 - p1) + {{Text|"\"|#FFB100}} + o$
                p1 = i2 + {{Text|1|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|NEXT|#F0F0F0}}
        {{Text|IF|#F0F0F0}} i2 = n - {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'no closing "|#31C4C4}}
            a2$ = a2$ + {{Text|MID$|#F0F0F0}}(ca$, p1, (n - {{Text|2|#F580B1}}) - p1 + {{Text|1|#F580B1}}) + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|","|#FFB100}} + str2$((n - {{Text|2|#F580B1}}) - (i + {{Text|1|#F580B1}}) + {{Text|1|#F580B1}})
            i = n - {{Text|1|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|GOTO|#F0F0F0}} lineformatnext
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'----------------number----------------|#31C4C4}}
    firsti = i
    {{Text|IF|#F0F0F0}} c = {{Text|46|#F580B1}} {{Text|THEN|#F0F0F0}}
        c2$ = {{Text|MID$|#F0F0F0}}(a$, i + {{Text|1|#F580B1}}, {{Text|1|#F580B1}}): c2 = {{Text|ASC|#F0F0F0}}(c2$)
        {{Text|IF|#F0F0F0}} (c2 >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} c2 <= {{Text|57|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} lfnumber
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} (c >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} c <= {{Text|57|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|'0-9|#31C4C4}}
        lfnumber:
        {{Text|'handle 'IF a=1 THEN a=2 ELSE 100' by assuming numeric after ELSE to be a|#31C4C4}}
        {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(a2$, {{Text|5|#F580B1}}) = sp + {{Text|"ELSE"|#FFB100}} {{Text|THEN|#F0F0F0}}
            a2$ = a2$ + sp + {{Text|"GOTO"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'Number will be converted to the following format:|#31C4C4}}
        {{Text|' 999999  .        99999  E        +        999|#31C4C4}}
        {{Text|'[whole$][dp(0/1)][frac$][ed(1/2)][pm(1/-1)][ex$]|#31C4C4}}
        {{Text|' 0                1              2        3    <-mode|#31C4C4}}
        mode = {{Text|0|#F580B1}}
        whole$ = {{Text|""|#FFB100}}
        dp = {{Text|0|#F580B1}}
        frac$ = {{Text|""|#FFB100}}
        ed = {{Text|0|#F580B1}} {{Text|'E=1, D=2, F=3|#31C4C4}}
        pm = {{Text|1|#F580B1}}
        ex$ = {{Text|""|#FFB100}}
        lfreadnumber:
        valid = {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} c = {{Text|46|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} mode = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} valid = {{Text|1|#F580B1}}: dp = {{Text|1|#F580B1}}: mode = {{Text|1|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} c >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} c <= {{Text|57|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'0-9|#31C4C4}}
            valid = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} mode = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} whole$ = whole$ + c$
            {{Text|IF|#F0F0F0}} mode = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} frac$ = frac$ + c$
            {{Text|IF|#F0F0F0}} mode = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} mode = {{Text|3|#F580B1}}
            {{Text|IF|#F0F0F0}} mode = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} ex$ = ex$ + c$
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} c = {{Text|69|#F580B1}} {{Text|OR|#F0F0F0}} c = {{Text|68|#F580B1}} {{Text|OR|#F0F0F0}} c = {{Text|70|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'E,D,F|#31C4C4}}
            {{Text|IF|#F0F0F0}} mode < {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                valid = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} c = {{Text|69|#F580B1}} {{Text|THEN|#F0F0F0}} ed = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} c = {{Text|68|#F580B1}} {{Text|THEN|#F0F0F0}} ed = {{Text|2|#F580B1}}
                {{Text|IF|#F0F0F0}} c = {{Text|70|#F580B1}} {{Text|THEN|#F0F0F0}} ed = {{Text|3|#F580B1}}
                mode = {{Text|2|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} c = {{Text|43|#F580B1}} {{Text|OR|#F0F0F0}} c = {{Text|45|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'+,-|#31C4C4}}
            {{Text|IF|#F0F0F0}} mode = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                valid = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} c = {{Text|45|#F580B1}} {{Text|THEN|#F0F0F0}} pm = {{Text|-1|#F580B1}}
                mode = {{Text|3|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} valid {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} i <= n {{Text|THEN|#F0F0F0}} i = i + {{Text|1|#F580B1}}: c$ = {{Text|MID$|#F0F0F0}}(a$, i, {{Text|1|#F580B1}}): c = {{Text|ASC|#F0F0F0}}(c$): {{Text|GOTO|#F0F0F0}} lfreadnumber
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'cull leading 0s off whole$|#31C4C4}}
        {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(whole$, {{Text|1|#F580B1}}) = {{Text|"0"|#FFB100}}: whole$ = {{Text|RIGHT$|#F0F0F0}}(whole$, {{Text|LEN|#F0F0F0}}(whole$) - {{Text|1|#F580B1}}): {{Text|LOOP|#F0F0F0}}
        {{Text|'cull trailing 0s off frac$|#31C4C4}}
        {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(frac$, {{Text|1|#F580B1}}) = {{Text|"0"|#FFB100}}: frac$ = {{Text|LEFT$|#F0F0F0}}(frac$, {{Text|LEN|#F0F0F0}}(frac$) - {{Text|1|#F580B1}}): {{Text|LOOP|#F0F0F0}}
        {{Text|'cull leading 0s off ex$|#31C4C4}}
        {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(ex$, {{Text|1|#F580B1}}) = {{Text|"0"|#FFB100}}: ex$ = {{Text|RIGHT$|#F0F0F0}}(ex$, {{Text|LEN|#F0F0F0}}(ex$) - {{Text|1|#F580B1}}): {{Text|LOOP|#F0F0F0}}
        {{Text|IF|#F0F0F0}} dp <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} ed <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} float = {{Text|1|#F580B1}} {{Text|ELSE|#F0F0F0}} float = {{Text|0|#F580B1}}
        extused = {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} ed {{Text|THEN|#F0F0F0}} e$ = {{Text|""|#FFB100}}: {{Text|GOTO|#F0F0F0}} lffoundext {{Text|'no extensions valid after E/D/F specified|#31C4C4}}
        {{Text|'3-character extensions|#31C4C4}}
        {{Text|IF|#F0F0F0}} i <= n - {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
            e$ = {{Text|MID$|#F0F0F0}}(a$, i, {{Text|3|#F580B1}})
            {{Text|IF|#F0F0F0}} e$ = {{Text|"~%%"|#FFB100}} {{Text|AND|#F0F0F0}} float = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} i = i + {{Text|3|#F580B1}}: {{Text|GOTO|#F0F0F0}} lffoundext
            {{Text|IF|#F0F0F0}} e$ = {{Text|"~&&"|#FFB100}} {{Text|AND|#F0F0F0}} float = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} i = i + {{Text|3|#F580B1}}: {{Text|GOTO|#F0F0F0}} lffoundext
            {{Text|IF|#F0F0F0}} e$ = {{Text|"~%&"|#FFB100}} {{Text|AND|#F0F0F0}} float = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot use _OFFSET symbols after numbers"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'2-character extensions|#31C4C4}}
        {{Text|IF|#F0F0F0}} i <= n - {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            e$ = {{Text|MID$|#F0F0F0}}(a$, i, {{Text|2|#F580B1}})
            {{Text|IF|#F0F0F0}} e$ = {{Text|"%%"|#FFB100}} {{Text|AND|#F0F0F0}} float = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} i = i + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} lffoundext
            {{Text|IF|#F0F0F0}} e$ = {{Text|"~%"|#FFB100}} {{Text|AND|#F0F0F0}} float = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} i = i + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} lffoundext
            {{Text|IF|#F0F0F0}} e$ = {{Text|"&&"|#FFB100}} {{Text|AND|#F0F0F0}} float = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} i = i + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} lffoundext
            {{Text|IF|#F0F0F0}} e$ = {{Text|"~&"|#FFB100}} {{Text|AND|#F0F0F0}} float = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} i = i + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} lffoundext
            {{Text|IF|#F0F0F0}} e$ = {{Text|"%&"|#FFB100}} {{Text|AND|#F0F0F0}} float = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot use _OFFSET symbols after numbers"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|IF|#F0F0F0}} e$ = {{Text|"##"|#FFB100}} {{Text|THEN|#F0F0F0}}
                i = i + {{Text|2|#F580B1}}
                ed = {{Text|3|#F580B1}}
                e$ = {{Text|""|#FFB100}}
                {{Text|GOTO|#F0F0F0}} lffoundext
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} e$ = {{Text|"~`"|#FFB100}} {{Text|THEN|#F0F0F0}}
                i = i + {{Text|2|#F580B1}}
                {{Text|GOTO|#F0F0F0}} lffoundbitext
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'1-character extensions|#31C4C4}}
        {{Text|IF|#F0F0F0}} i <= n {{Text|THEN|#F0F0F0}}
            e$ = {{Text|MID$|#F0F0F0}}(a$, i, {{Text|1|#F580B1}})
            {{Text|IF|#F0F0F0}} e$ = {{Text|"%"|#FFB100}} {{Text|AND|#F0F0F0}} float = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} lffoundext
            {{Text|IF|#F0F0F0}} e$ = {{Text|"&"|#FFB100}} {{Text|AND|#F0F0F0}} float = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} lffoundext
            {{Text|IF|#F0F0F0}} e$ = {{Text|"!"|#FFB100}} {{Text|THEN|#F0F0F0}}
                i = i + {{Text|1|#F580B1}}
                ed = {{Text|1|#F580B1}}
                e$ = {{Text|""|#FFB100}}
                {{Text|GOTO|#F0F0F0}} lffoundext
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} e$ = {{Text|"#"|#FFB100}} {{Text|THEN|#F0F0F0}}
                i = i + {{Text|1|#F580B1}}
                ed = {{Text|2|#F580B1}}
                e$ = {{Text|""|#FFB100}}
                {{Text|GOTO|#F0F0F0}} lffoundext
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} e$ = {{Text|"`"|#FFB100}} {{Text|THEN|#F0F0F0}}
                i = i + {{Text|1|#F580B1}}
                lffoundbitext:
                bitn$ = {{Text|""|#FFB100}}
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} i <= n
                    c2 = {{Text|ASC|#F0F0F0}}({{Text|MID$|#F0F0F0}}(a$, i, {{Text|1|#F580B1}}))
                    {{Text|IF|#F0F0F0}} c2 >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} c2 <= {{Text|57|#F580B1}} {{Text|THEN|#F0F0F0}}
                        bitn$ = bitn$ + {{Text|CHR$|#F0F0F0}}(c2)
                        i = i + {{Text|1|#F580B1}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|LOOP|#F0F0F0}}
                {{Text|IF|#F0F0F0}} bitn$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} bitn$ = {{Text|"1"|#FFB100}}
                {{Text|'cull leading 0s off bitn$|#31C4C4}}
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(bitn$, {{Text|1|#F580B1}}) = {{Text|"0"|#FFB100}}: bitn$ = {{Text|RIGHT$|#F0F0F0}}(bitn$, {{Text|LEN|#F0F0F0}}(bitn$) - {{Text|1|#F580B1}}): {{Text|LOOP|#F0F0F0}}
                e$ = e$ + bitn$
                {{Text|GOTO|#F0F0F0}} lffoundext
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} float {{Text|THEN|#F0F0F0}} {{Text|'floating point types CAN be assumed|#31C4C4}}
            {{Text|'calculate first significant digit offset & number of significant digits|#31C4C4}}
            {{Text|IF|#F0F0F0}} whole$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                offset = {{Text|LEN|#F0F0F0}}(whole$) - {{Text|1|#F580B1}}
                sigdigits = {{Text|LEN|#F0F0F0}}(whole$) + {{Text|LEN|#F0F0F0}}(frac$)
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} frac$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                    offset = {{Text|-1|#F580B1}}
                    sigdigits = {{Text|LEN|#F0F0F0}}(frac$)
                    {{Text|FOR|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(frac$)
                        {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(frac$, i2, {{Text|1|#F580B1}}) <> {{Text|"0"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                        offset = offset - {{Text|1|#F580B1}}
                        sigdigits = sigdigits - {{Text|1|#F580B1}}
                    {{Text|NEXT|#F0F0F0}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|'number is 0|#31C4C4}}
                    offset = {{Text|0|#F580B1}}
                    sigdigits = {{Text|0|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            sigdig$ = {{Text|RIGHT$|#F0F0F0}}(whole$ + frac$, sigdigits)
            {{Text|'SINGLE?|#31C4C4}}
            {{Text|IF|#F0F0F0}} sigdigits <= {{Text|7|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'QBASIC interprets anything with more than 7 sig. digits as a DOUBLE|#31C4C4}}
                {{Text|IF|#F0F0F0}} offset <= {{Text|38|#F580B1}} {{Text|AND|#F0F0F0}} offset >= {{Text|-38|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'anything outside this range cannot be represented as a SINGLE|#31C4C4}}
                    {{Text|IF|#F0F0F0}} offset = {{Text|38|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} sigdig$ > {{Text|"3402823"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} lfxsingle
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} offset = {{Text|-38|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} sigdig$ < {{Text|"1175494"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} lfxsingle
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    ed = {{Text|1|#F580B1}}
                    e$ = {{Text|""|#FFB100}}
                    {{Text|GOTO|#F0F0F0}} lffoundext
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            lfxsingle:
            {{Text|'DOUBLE?|#31C4C4}}
            {{Text|IF|#F0F0F0}} sigdigits <= {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'QB64 handles DOUBLES with 16-digit precision|#31C4C4}}
                {{Text|IF|#F0F0F0}} offset <= {{Text|308|#F580B1}} {{Text|AND|#F0F0F0}} offset >= {{Text|-308|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'anything outside this range cannot be represented as a DOUBLE|#31C4C4}}
                    {{Text|IF|#F0F0F0}} offset = {{Text|308|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} sigdig$ > {{Text|"1797693134862315"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} lfxdouble
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} offset = {{Text|-308|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} sigdig$ < {{Text|"2225073858507201"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} lfxdouble
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    ed = {{Text|2|#F580B1}}
                    e$ = {{Text|""|#FFB100}}
                    {{Text|GOTO|#F0F0F0}} lffoundext
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            lfxdouble:
            {{Text|'assume _FLOAT|#31C4C4}}
            ed = {{Text|3|#F580B1}}
            e$ = {{Text|""|#FFB100}}: {{Text|GOTO|#F0F0F0}} lffoundext
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        extused = {{Text|0|#F580B1}}
        e$ = {{Text|""|#FFB100}}
        lffoundext:
        {{Text|'make sure a leading numberic character exists|#31C4C4}}
        {{Text|IF|#F0F0F0}} whole$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} whole$ = {{Text|"0"|#FFB100}}
        {{Text|'if a float, ensure frac$<>"" and dp=1|#31C4C4}}
        {{Text|IF|#F0F0F0}} float {{Text|THEN|#F0F0F0}}
            dp = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} frac$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} frac$ = {{Text|"0"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'if ed is specified, make sure ex$ exists|#31C4C4}}
        {{Text|IF|#F0F0F0}} ed <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} ex$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} ex$ = {{Text|"0"|#FFB100}}
        a2$ = a2$ + sp
        a2$ = a2$ + whole$
        {{Text|IF|#F0F0F0}} dp {{Text|THEN|#F0F0F0}} a2$ = a2$ + {{Text|"."|#FFB100}} + frac$
        {{Text|IF|#F0F0F0}} ed {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} ed = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a2$ = a2$ + {{Text|"E"|#FFB100}}
            {{Text|IF|#F0F0F0}} ed = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} a2$ = a2$ + {{Text|"D"|#FFB100}}
            {{Text|IF|#F0F0F0}} ed = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} a2$ = a2$ + {{Text|"F"|#FFB100}}
            {{Text|IF|#F0F0F0}} pm = {{Text|-1|#F580B1}} {{Text|AND|#F0F0F0}} ex$ <> {{Text|"0"|#FFB100}} {{Text|THEN|#F0F0F0}} a2$ = a2$ + {{Text|"-"|#FFB100}} {{Text|ELSE|#F0F0F0}} a2$ = a2$ + {{Text|"+"|#FFB100}}
            a2$ = a2$ + ex$
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        a2$ = a2$ + e$
        {{Text|IF|#F0F0F0}} extused {{Text|THEN|#F0F0F0}} a2$ = a2$ + {{Text|","|#FFB100}} + {{Text|MID$|#F0F0F0}}(a$, firsti, i - firsti)
        {{Text|GOTO|#F0F0F0}} lineformatnext
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'----------------(number)&H...----------------|#31C4C4}}
    {{Text|'note: the final value, not the number of hex characters, sets the default type|#31C4C4}}
    {{Text|IF|#F0F0F0}} c = {{Text|38|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'&|#31C4C4}}
        {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(a$, i + {{Text|1|#F580B1}}, {{Text|1|#F580B1}}) = {{Text|"H"|#FFB100}} {{Text|THEN|#F0F0F0}}
            i = i + {{Text|2|#F580B1}}
            hx$ = {{Text|""|#FFB100}}
            lfreadhex:
            {{Text|IF|#F0F0F0}} i <= n {{Text|THEN|#F0F0F0}}
                c$ = {{Text|MID$|#F0F0F0}}(a$, i, {{Text|1|#F580B1}}): c = {{Text|ASC|#F0F0F0}}(c$)
                {{Text|IF|#F0F0F0}} (c >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} c <= {{Text|57|#F580B1}}) {{Text|OR|#F0F0F0}} (c >= {{Text|65|#F580B1}} {{Text|AND|#F0F0F0}} c <= {{Text|70|#F580B1}}) {{Text|THEN|#F0F0F0}} hx$ = hx$ + c$: i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfreadhex
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            fullhx$ = {{Text|"&H"|#FFB100}} + hx$
            {{Text|'cull leading 0s off hx$|#31C4C4}}
            {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(hx$, {{Text|1|#F580B1}}) = {{Text|"0"|#FFB100}}: hx$ = {{Text|RIGHT$|#F0F0F0}}(hx$, {{Text|LEN|#F0F0F0}}(hx$) - {{Text|1|#F580B1}}): {{Text|LOOP|#F0F0F0}}
            {{Text|IF|#F0F0F0}} hx$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} hx$ = {{Text|"0"|#FFB100}}
            bitn$ = {{Text|""|#FFB100}}
            {{Text|'3-character extensions|#31C4C4}}
            {{Text|IF|#F0F0F0}} i <= n - {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                e$ = {{Text|MID$|#F0F0F0}}(a$, i, {{Text|3|#F580B1}})
                {{Text|IF|#F0F0F0}} e$ = {{Text|"~%%"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|3|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfhxext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"~&&"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|3|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfhxext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"~%&"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot use _OFFSET symbols after numbers"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'2-character extensions|#31C4C4}}
            {{Text|IF|#F0F0F0}} i <= n - {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                e$ = {{Text|MID$|#F0F0F0}}(a$, i, {{Text|2|#F580B1}})
                {{Text|IF|#F0F0F0}} e$ = {{Text|"%%"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfhxext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"~%"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfhxext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"&&"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfhxext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"%&"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot use _OFFSET symbols after numbers"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|IF|#F0F0F0}} e$ = {{Text|"~&"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfhxext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"~`"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    i = i + {{Text|2|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} lfhxbitext
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'1-character extensions|#31C4C4}}
            {{Text|IF|#F0F0F0}} i <= n {{Text|THEN|#F0F0F0}}
                e$ = {{Text|MID$|#F0F0F0}}(a$, i, {{Text|1|#F580B1}})
                {{Text|IF|#F0F0F0}} e$ = {{Text|"%"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfhxext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"&"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfhxext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"`"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    i = i + {{Text|1|#F580B1}}
                    lfhxbitext:
                    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} i <= n
                        c2 = {{Text|ASC|#F0F0F0}}({{Text|MID$|#F0F0F0}}(a$, i, {{Text|1|#F580B1}}))
                        {{Text|IF|#F0F0F0}} c2 >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} c2 <= {{Text|57|#F580B1}} {{Text|THEN|#F0F0F0}}
                            bitn$ = bitn$ + {{Text|CHR$|#F0F0F0}}(c2)
                            i = i + {{Text|1|#F580B1}}
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|LOOP|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} bitn$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} bitn$ = {{Text|"1"|#FFB100}}
                    {{Text|'cull leading 0s off bitn$|#31C4C4}}
                    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(bitn$, {{Text|1|#F580B1}}) = {{Text|"0"|#FFB100}}: bitn$ = {{Text|RIGHT$|#F0F0F0}}(bitn$, {{Text|LEN|#F0F0F0}}(bitn$) - {{Text|1|#F580B1}}): {{Text|LOOP|#F0F0F0}}
                    {{Text|GOTO|#F0F0F0}} lfhxext
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'if no valid extension context was given, assume one|#31C4C4}}
            {{Text|'note: leading 0s have been culled, so LEN(hx$) reflects its values size|#31C4C4}}
            e$ = {{Text|"&&"|#FFB100}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(hx$) <= {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"&"|#FFB100}} {{Text|'as in QBASIC, signed values must be used|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(hx$) <= {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"%"|#FFB100}} {{Text|'as in QBASIC, signed values must be used|#31C4C4}}
            {{Text|GOTO|#F0F0F0}} lfhxext2
            lfhxext:
            fullhx$ = fullhx$ + e$ + bitn$
            lfhxext2:
            {{Text|'build 8-byte unsigned integer rep. of hx$|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(hx$) > {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Overflow"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            v~&& = {{Text|0|#F580B1}}
            {{Text|FOR|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(hx$)
                v2 = {{Text|ASC|#F0F0F0}}({{Text|MID$|#F0F0F0}}(hx$, i2, {{Text|1|#F580B1}}))
                {{Text|IF|#F0F0F0}} v2 <= {{Text|57|#F580B1}} {{Text|THEN|#F0F0F0}} v2 = v2 - {{Text|48|#F580B1}} {{Text|ELSE|#F0F0F0}} v2 = v2 - {{Text|65|#F580B1}} + {{Text|10|#F580B1}}
                v~&& = v~&& * {{Text|16|#F580B1}} + v2
            {{Text|NEXT|#F0F0F0}}
            finishhexoctbin:
            num$ = str2u64$(v~&&) {{Text|'correct for unsigned values (overflow of unsigned can be checked later)|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(e$, {{Text|1|#F580B1}}) <> {{Text|"~"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|'note: range checking will be performed later in fixop.order|#31C4C4}}
                {{Text|'signed|#31C4C4}}
                {{Text|IF|#F0F0F0}} e$ = {{Text|"%%"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} v~&& > {{Text|127|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} v~&& > {{Text|255|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Overflow"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        v~&& = (({{Text|NOT|#F0F0F0}} v~&&) {{Text|AND|#F0F0F0}} {{Text|255|#F580B1}}) + {{Text|1|#F580B1}}
                        num$ = {{Text|"-"|#FFB100}} + sp + str2u64$(v~&&)
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} e$ = {{Text|"%"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} v~&& > {{Text|32767|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} v~&& > {{Text|65535|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Overflow"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        v~&& = (({{Text|NOT|#F0F0F0}} v~&&) {{Text|AND|#F0F0F0}} {{Text|65535|#F580B1}}) + {{Text|1|#F580B1}}
                        num$ = {{Text|"-"|#FFB100}} + sp + str2u64$(v~&&)
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} e$ = {{Text|"&"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} v~&& > {{Text|2147483647|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} v~&& > {{Text|4294967295|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Overflow"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        v~&& = (({{Text|NOT|#F0F0F0}} v~&&) {{Text|AND|#F0F0F0}} {{Text|4294967295|#F580B1}}) + {{Text|1|#F580B1}}
                        num$ = {{Text|"-"|#FFB100}} + sp + str2u64$(v~&&)
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} e$ = {{Text|"&&"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} v~&& > {{Text|9223372036854775807|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|'note: no error checking necessary|#31C4C4}}
                        v~&& = ({{Text|NOT|#F0F0F0}} v~&&) + {{Text|1|#F580B1}}
                        num$ = {{Text|"-"|#FFB100}} + sp + str2u64$(v~&&)
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} e$ = {{Text|"`"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    vbitn = {{Text|VAL|#F0F0F0}}(bitn$)
                    h~&& = {{Text|1|#F580B1}}: {{Text|FOR|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} vbitn - {{Text|1|#F580B1}}: h~&& = h~&& * {{Text|2|#F580B1}}: {{Text|NEXT|#F0F0F0}}: h~&& = h~&& - {{Text|1|#F580B1}} {{Text|'build h~&&|#31C4C4}}
                    {{Text|IF|#F0F0F0}} v~&& > h~&& {{Text|THEN|#F0F0F0}}
                        h~&& = {{Text|1|#F580B1}}: {{Text|FOR|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} vbitn: h~&& = h~&& * {{Text|2|#F580B1}}: {{Text|NEXT|#F0F0F0}}: h~&& = h~&& - {{Text|1|#F580B1}} {{Text|'build h~&&|#31C4C4}}
                        {{Text|IF|#F0F0F0}} v~&& > h~&& {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Overflow"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        v~&& = (({{Text|NOT|#F0F0F0}} v~&&) {{Text|AND|#F0F0F0}} h~&&) + {{Text|1|#F580B1}}
                        num$ = {{Text|"-"|#FFB100}} + sp + str2u64$(v~&&)
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'<>"~"|#31C4C4}}
            a2$ = a2$ + sp + num$ + e$ + bitn$ + {{Text|","|#FFB100}} + fullhx$
            {{Text|GOTO|#F0F0F0}} lineformatnext
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'----------------(number)&O...----------------|#31C4C4}}
    {{Text|'note: the final value, not the number of oct characters, sets the default type|#31C4C4}}
    {{Text|IF|#F0F0F0}} c = {{Text|38|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'&|#31C4C4}}
        {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(a$, i + {{Text|1|#F580B1}}, {{Text|1|#F580B1}}) = {{Text|"O"|#FFB100}} {{Text|THEN|#F0F0F0}}
            i = i + {{Text|2|#F580B1}}
            {{Text|'note: to avoid mistakes, hx$ is used instead of 'ot$'|#31C4C4}}
            hx$ = {{Text|""|#FFB100}}
            lfreadoct:
            {{Text|IF|#F0F0F0}} i <= n {{Text|THEN|#F0F0F0}}
                c$ = {{Text|MID$|#F0F0F0}}(a$, i, {{Text|1|#F580B1}}): c = {{Text|ASC|#F0F0F0}}(c$)
                {{Text|IF|#F0F0F0}} c >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} c <= {{Text|55|#F580B1}} {{Text|THEN|#F0F0F0}} hx$ = hx$ + c$: i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfreadoct
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            fullhx$ = {{Text|"&O"|#FFB100}} + hx$
            {{Text|'cull leading 0s off hx$|#31C4C4}}
            {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(hx$, {{Text|1|#F580B1}}) = {{Text|"0"|#FFB100}}: hx$ = {{Text|RIGHT$|#F0F0F0}}(hx$, {{Text|LEN|#F0F0F0}}(hx$) - {{Text|1|#F580B1}}): {{Text|LOOP|#F0F0F0}}
            {{Text|IF|#F0F0F0}} hx$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} hx$ = {{Text|"0"|#FFB100}}
            bitn$ = {{Text|""|#FFB100}}
            {{Text|'3-character extensions|#31C4C4}}
            {{Text|IF|#F0F0F0}} i <= n - {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                e$ = {{Text|MID$|#F0F0F0}}(a$, i, {{Text|3|#F580B1}})
                {{Text|IF|#F0F0F0}} e$ = {{Text|"~%%"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|3|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfotext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"~&&"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|3|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfotext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"~%&"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot use _OFFSET symbols after numbers"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'2-character extensions|#31C4C4}}
            {{Text|IF|#F0F0F0}} i <= n - {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                e$ = {{Text|MID$|#F0F0F0}}(a$, i, {{Text|2|#F580B1}})
                {{Text|IF|#F0F0F0}} e$ = {{Text|"%%"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfotext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"~%"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfotext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"&&"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfotext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"%&"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot use _OFFSET symbols after numbers"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|IF|#F0F0F0}} e$ = {{Text|"~&"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfotext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"~`"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    i = i + {{Text|2|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} lfotbitext
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'1-character extensions|#31C4C4}}
            {{Text|IF|#F0F0F0}} i <= n {{Text|THEN|#F0F0F0}}
                e$ = {{Text|MID$|#F0F0F0}}(a$, i, {{Text|1|#F580B1}})
                {{Text|IF|#F0F0F0}} e$ = {{Text|"%"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfotext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"&"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfotext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"`"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    i = i + {{Text|1|#F580B1}}
                    lfotbitext:
                    bitn$ = {{Text|""|#FFB100}}
                    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} i <= n
                        c2 = {{Text|ASC|#F0F0F0}}({{Text|MID$|#F0F0F0}}(a$, i, {{Text|1|#F580B1}}))
                        {{Text|IF|#F0F0F0}} c2 >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} c2 <= {{Text|57|#F580B1}} {{Text|THEN|#F0F0F0}}
                            bitn$ = bitn$ + {{Text|CHR$|#F0F0F0}}(c2)
                            i = i + {{Text|1|#F580B1}}
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|LOOP|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} bitn$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} bitn$ = {{Text|"1"|#FFB100}}
                    {{Text|'cull leading 0s off bitn$|#31C4C4}}
                    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(bitn$, {{Text|1|#F580B1}}) = {{Text|"0"|#FFB100}}: bitn$ = {{Text|RIGHT$|#F0F0F0}}(bitn$, {{Text|LEN|#F0F0F0}}(bitn$) - {{Text|1|#F580B1}}): {{Text|LOOP|#F0F0F0}}
                    {{Text|GOTO|#F0F0F0}} lfotext
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'if no valid extension context was given, assume one|#31C4C4}}
            {{Text|'note: leading 0s have been culled, so LEN(hx$) reflects its values size|#31C4C4}}
            e$ = {{Text|"&&"|#FFB100}}
            {{Text|'37777777777|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(hx$) <= {{Text|11|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(hx$) < {{Text|11|#F580B1}} {{Text|OR|#F0F0F0}} {{Text|ASC|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(hx$, {{Text|1|#F580B1}})) <= {{Text|51|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"&"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'177777|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(hx$) <= {{Text|6|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(hx$) < {{Text|6|#F580B1}} {{Text|OR|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(hx$, {{Text|1|#F580B1}}) = {{Text|"1"|#FFB100}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"%"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} lfotext2
            lfotext:
            fullhx$ = fullhx$ + e$ + bitn$
            lfotext2:
            {{Text|'build 8-byte unsigned integer rep. of hx$|#31C4C4}}
            {{Text|'1777777777777777777777 (22 digits)|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(hx$) > {{Text|22|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Overflow"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(hx$) = {{Text|22|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(hx$, {{Text|1|#F580B1}}) <> {{Text|"1"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Overflow"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'********change v& to v~&&********|#31C4C4}}
            v~&& = {{Text|0|#F580B1}}
            {{Text|FOR|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(hx$)
                v2 = {{Text|ASC|#F0F0F0}}({{Text|MID$|#F0F0F0}}(hx$, i2, {{Text|1|#F580B1}}))
                v2 = v2 - {{Text|48|#F580B1}}
                v~&& = v~&& * {{Text|8|#F580B1}} + v2
            {{Text|NEXT|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} finishhexoctbin
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'----------------(number)&B...----------------|#31C4C4}}
    {{Text|'note: the final value, not the number of bin characters, sets the default type|#31C4C4}}
    {{Text|IF|#F0F0F0}} c = {{Text|38|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'&|#31C4C4}}
        {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(a$, i + {{Text|1|#F580B1}}, {{Text|1|#F580B1}}) = {{Text|"B"|#FFB100}} {{Text|THEN|#F0F0F0}}
            i = i + {{Text|2|#F580B1}}
            {{Text|'note: to avoid mistakes, hx$ is used instead of 'bi$'|#31C4C4}}
            hx$ = {{Text|""|#FFB100}}
            lfreadbin:
            {{Text|IF|#F0F0F0}} i <= n {{Text|THEN|#F0F0F0}}
                c$ = {{Text|MID$|#F0F0F0}}(a$, i, {{Text|1|#F580B1}}): c = {{Text|ASC|#F0F0F0}}(c$)
                {{Text|IF|#F0F0F0}} c >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} c <= {{Text|49|#F580B1}} {{Text|THEN|#F0F0F0}} hx$ = hx$ + c$: i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfreadbin
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            fullhx$ = {{Text|"&B"|#FFB100}} + hx$
            {{Text|'cull leading 0s off hx$|#31C4C4}}
            {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(hx$, {{Text|1|#F580B1}}) = {{Text|"0"|#FFB100}}: hx$ = {{Text|RIGHT$|#F0F0F0}}(hx$, {{Text|LEN|#F0F0F0}}(hx$) - {{Text|1|#F580B1}}): {{Text|LOOP|#F0F0F0}}
            {{Text|IF|#F0F0F0}} hx$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} hx$ = {{Text|"0"|#FFB100}}
            bitn$ = {{Text|""|#FFB100}}
            {{Text|'3-character extensions|#31C4C4}}
            {{Text|IF|#F0F0F0}} i <= n - {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                e$ = {{Text|MID$|#F0F0F0}}(a$, i, {{Text|3|#F580B1}})
                {{Text|IF|#F0F0F0}} e$ = {{Text|"~%%"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|3|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfbiext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"~&&"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|3|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfbiext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"~%&"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot use _OFFSET symbols after numbers"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'2-character extensions|#31C4C4}}
            {{Text|IF|#F0F0F0}} i <= n - {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                e$ = {{Text|MID$|#F0F0F0}}(a$, i, {{Text|2|#F580B1}})
                {{Text|IF|#F0F0F0}} e$ = {{Text|"%%"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfbiext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"~%"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfbiext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"&&"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfbiext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"%&"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot use _OFFSET symbols after numbers"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|IF|#F0F0F0}} e$ = {{Text|"~&"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|2|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfbiext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"~`"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    i = i + {{Text|2|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} lfbibitext
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'1-character extensions|#31C4C4}}
            {{Text|IF|#F0F0F0}} i <= n {{Text|THEN|#F0F0F0}}
                e$ = {{Text|MID$|#F0F0F0}}(a$, i, {{Text|1|#F580B1}})
                {{Text|IF|#F0F0F0}} e$ = {{Text|"%"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfbiext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"&"|#FFB100}} {{Text|THEN|#F0F0F0}} i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfbiext
                {{Text|IF|#F0F0F0}} e$ = {{Text|"`"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    i = i + {{Text|1|#F580B1}}
                    lfbibitext:
                    bitn$ = {{Text|""|#FFB100}}
                    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} i <= n
                        c2 = {{Text|ASC|#F0F0F0}}({{Text|MID$|#F0F0F0}}(a$, i, {{Text|1|#F580B1}}))
                        {{Text|IF|#F0F0F0}} c2 >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} c2 <= {{Text|57|#F580B1}} {{Text|THEN|#F0F0F0}}
                            bitn$ = bitn$ + {{Text|CHR$|#F0F0F0}}(c2)
                            i = i + {{Text|1|#F580B1}}
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|LOOP|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} bitn$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} bitn$ = {{Text|"1"|#FFB100}}
                    {{Text|'cull leading 0s off bitn$|#31C4C4}}
                    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(bitn$, {{Text|1|#F580B1}}) = {{Text|"0"|#FFB100}}: bitn$ = {{Text|RIGHT$|#F0F0F0}}(bitn$, {{Text|LEN|#F0F0F0}}(bitn$) - {{Text|1|#F580B1}}): {{Text|LOOP|#F0F0F0}}
                    {{Text|GOTO|#F0F0F0}} lfbiext
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'if no valid extension context was given, assume one|#31C4C4}}
            {{Text|'note: leading 0s have been culled, so LEN(hx$) reflects its values size|#31C4C4}}
            e$ = {{Text|"&&"|#FFB100}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(hx$) <= {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"&"|#FFB100}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(hx$) <= {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"%"|#FFB100}}
            {{Text|GOTO|#F0F0F0}} lfbiext2
            lfbiext:
            fullhx$ = fullhx$ + e$ + bitn$
            lfbiext2:
            {{Text|'build 8-byte unsigned integer rep. of hx$|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(hx$) > {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Overflow"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            v~&& = {{Text|0|#F580B1}}
            {{Text|FOR|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(hx$)
                v2 = {{Text|ASC|#F0F0F0}}({{Text|MID$|#F0F0F0}}(hx$, i2, {{Text|1|#F580B1}}))
                v2 = v2 - {{Text|48|#F580B1}}
                v~&& = v~&& * {{Text|2|#F580B1}} + v2
            {{Text|NEXT|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} finishhexoctbin
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'----------------(number)&H??? error----------------|#31C4C4}}
    {{Text|IF|#F0F0F0}} c = {{Text|38|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected &H... or &O..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|'----------------variable/name----------------|#31C4C4}}
    {{Text|'*trailing _ is treated as a seperate line extension*|#31C4C4}}
    {{Text|IF|#F0F0F0}} (c >= {{Text|65|#F580B1}} {{Text|AND|#F0F0F0}} c <= {{Text|90|#F580B1}}) {{Text|OR|#F0F0F0}} c = {{Text|95|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'A-Z(a-z) or _|#31C4C4}}
        {{Text|IF|#F0F0F0}} c = {{Text|95|#F580B1}} {{Text|THEN|#F0F0F0}} p2 = {{Text|0|#F580B1}} {{Text|ELSE|#F0F0F0}} p2 = i
        {{Text|FOR|#F0F0F0}} i2 = i + {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
            c2 = {{Text|ASC|#F0F0F0}}(a$, i2)
            {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} alphanumeric(c2) {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
            {{Text|IF|#F0F0F0}} c2 <> {{Text|95|#F580B1}} {{Text|THEN|#F0F0F0}} p2 = i2
        {{Text|NEXT|#F0F0F0}}
        {{Text|IF|#F0F0F0}} p2 {{Text|THEN|#F0F0F0}} {{Text|'not just underscores!|#31C4C4}}
            {{Text|'char is from i to p2|#31C4C4}}
            n2 = p2 - i + {{Text|1|#F580B1}}
            a3$ = {{Text|MID$|#F0F0F0}}(a$, i, n2)
            {{Text|'----(variable/name)rem----|#31C4C4}}
            {{Text|IF|#F0F0F0}} n2 = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} a3$ = {{Text|"REM"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    i = i + n2
                    {{Text|IF|#F0F0F0}} i < n {{Text|THEN|#F0F0F0}}
                        c = {{Text|ASC|#F0F0F0}}(a$, i)
                        {{Text|IF|#F0F0F0}} c = {{Text|46|#F580B1}} {{Text|THEN|#F0F0F0}} a2$ = a2$ + sp + {{Text|MID$|#F0F0F0}}(ca$, i - n2, n2): {{Text|GOTO|#F0F0F0}} extcheck {{Text|'rem.Variable is a valid variable name in QB45|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'note: In QBASIC 'IF cond THEN REM comment' counts as a single line IF statement, however use of ' instead of REM does not|#31C4C4}}
                    {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}({{Text|RIGHT$|#F0F0F0}}(a2$, {{Text|5|#F580B1}})) = sp + {{Text|"THEN"|#FFB100}} {{Text|THEN|#F0F0F0}} a2$ = a2$ + sp + {{Text|"'"|#FFB100}} {{Text|'add nop|#31C4C4}}
                    layoutcomment = SCase$({{Text|"Rem"|#FFB100}})
                    {{Text|GOTO|#F0F0F0}} comment
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'----(variable/name)data----|#31C4C4}}
            {{Text|IF|#F0F0F0}} n2 = {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} a3$ = {{Text|"DATA"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    x$ = {{Text|""|#FFB100}}
                    i = i + n2
                    {{Text|IF|#F0F0F0}} i < n {{Text|THEN|#F0F0F0}}
                        c = {{Text|ASC|#F0F0F0}}(a$, i)
                        {{Text|IF|#F0F0F0}} c = {{Text|46|#F580B1}} {{Text|THEN|#F0F0F0}} a2$ = a2$ + sp + {{Text|MID$|#F0F0F0}}(ca$, i - n2, n2): {{Text|GOTO|#F0F0F0}} extcheck {{Text|'data.Variable is a valid variable name in QB45|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    scan = {{Text|0|#F580B1}}
                    speechmarks = {{Text|0|#F580B1}}
                    commanext = {{Text|0|#F580B1}}
                    finaldata = {{Text|0|#F580B1}}
                    e$ = {{Text|""|#FFB100}}
                    p1 = {{Text|0|#F580B1}}
                    p2 = {{Text|0|#F580B1}}
                    nextdatachr:
                    {{Text|IF|#F0F0F0}} i < n {{Text|THEN|#F0F0F0}}
                        c = {{Text|ASC|#F0F0F0}}(a$, i)
                        {{Text|IF|#F0F0F0}} c = {{Text|9|#F580B1}} {{Text|OR|#F0F0F0}} c = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} scan = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} skipwhitespace
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} c = {{Text|58|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'":"|#31C4C4}}
                            {{Text|IF|#F0F0F0}} speechmarks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} finaldata = {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} adddata
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} c = {{Text|44|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'","|#31C4C4}}
                            {{Text|IF|#F0F0F0}} speechmarks = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                adddata:
                                {{Text|IF|#F0F0F0}} prepass = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} p1 {{Text|THEN|#F0F0F0}}
                                        {{Text|'FOR i2 = p1 TO p2|#31C4C4}}
                                        {{Text|'    DATA_add ASC(ca$, i2)|#31C4C4}}
                                        {{Text|'NEXT|#31C4C4}}
                                        x$ = x$ + {{Text|MID$|#F0F0F0}}(ca$, p1, p2 - p1 + {{Text|1|#F580B1}})
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|'assume closing "|#31C4C4}}
                                    {{Text|IF|#F0F0F0}} speechmarks {{Text|THEN|#F0F0F0}}
                                        {{Text|'DATA_add 34|#31C4C4}}
                                        x$ = x$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                    {{Text|'append comma|#31C4C4}}
                                    {{Text|'DATA_add 44|#31C4C4}}
                                    x$ = x$ + {{Text|CHR$|#F0F0F0}}({{Text|44|#F580B1}})
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} finaldata = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} finisheddata
                                e$ = {{Text|""|#FFB100}}
                                p1 = {{Text|0|#F580B1}}
                                p2 = {{Text|0|#F580B1}}
                                speechmarks = {{Text|0|#F580B1}}
                                scan = {{Text|0|#F580B1}}
                                commanext = {{Text|0|#F580B1}}
                                i = i + {{Text|1|#F580B1}}
                                {{Text|GOTO|#F0F0F0}} nextdatachr
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'","|#31C4C4}}
                        {{Text|IF|#F0F0F0}} commanext = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} c <> {{Text|32|#F580B1}} {{Text|AND|#F0F0F0}} c <> {{Text|9|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected , after quoted string in DATA statement"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} c = {{Text|34|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} speechmarks = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                commanext = {{Text|1|#F580B1}}
                                speechmarks = {{Text|0|#F580B1}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} scan = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} speechmarks = {{Text|1|#F580B1}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        scan = {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} p1 = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} p1 = i: p2 = i
                        {{Text|IF|#F0F0F0}} c <> {{Text|9|#F580B1}} {{Text|AND|#F0F0F0}} c <> {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} p2 = i
                        skipwhitespace:
                        i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} nextdatachr
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'i<n|#31C4C4}}
                    finaldata = {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} adddata
                    finisheddata:
                    e$ = {{Text|""|#FFB100}}
                    {{Text|IF|#F0F0F0}} prepass = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        WriteBufRawData DataBinBuf, x$
                        DataOffset = DataOffset + {{Text|LEN|#F0F0F0}}(x$)
                        e$ = {{Text|SPACE$|#F0F0F0}}(({{Text|LEN|#F0F0F0}}(x$) - {{Text|1|#F580B1}}) * {{Text|2|#F580B1}})
                        {{Text|FOR|#F0F0F0}} ec = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(x$) - {{Text|1|#F580B1}}
                            {{Text|'2 chr hex encode each character|#31C4C4}}
                            v1 = {{Text|ASC|#F0F0F0}}(x$, ec)
                            v2 = v1 \ {{Text|16|#F580B1}}: {{Text|IF|#F0F0F0}} v2 <= {{Text|9|#F580B1}} {{Text|THEN|#F0F0F0}} v2 = v2 + {{Text|48|#F580B1}} {{Text|ELSE|#F0F0F0}} v2 = v2 + {{Text|55|#F580B1}}
                            v1 = v1 {{Text|AND|#F0F0F0}} {{Text|15|#F580B1}}: {{Text|IF|#F0F0F0}} v1 <= {{Text|9|#F580B1}} {{Text|THEN|#F0F0F0}} v1 = v1 + {{Text|48|#F580B1}} {{Text|ELSE|#F0F0F0}} v1 = v1 + {{Text|55|#F580B1}}
                            {{Text|ASC|#F0F0F0}}(e$, ec * {{Text|2|#F580B1}} - {{Text|1|#F580B1}}) = v1
                            {{Text|ASC|#F0F0F0}}(e$, ec * {{Text|2|#F580B1}}) = v2
                        {{Text|NEXT|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    a2$ = a2$ + sp + {{Text|"DATA"|#FFB100}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) {{Text|THEN|#F0F0F0}} a2$ = a2$ + sp + {{Text|"_"|#FFB100}} + e$
                    {{Text|GOTO|#F0F0F0}} lineformatnext
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            a2$ = a2$ + sp + {{Text|MID$|#F0F0F0}}(ca$, i, n2)
            i = i + n2
            {{Text|'----(variable/name)extensions----|#31C4C4}}
            extcheck:
            {{Text|IF|#F0F0F0}} n2 > {{Text|40|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Identifier longer than 40 character limit"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            c3 = {{Text|ASC|#F0F0F0}}(a$, i)
            m = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} c3 = {{Text|126|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"~"|#31C4C4}}
                e2$ = {{Text|MID$|#F0F0F0}}(a$, i + {{Text|1|#F580B1}}, {{Text|2|#F580B1}})
                {{Text|IF|#F0F0F0}} e2$ = {{Text|"&&"|#FFB100}} {{Text|THEN|#F0F0F0}} e2$ = {{Text|"~&&"|#FFB100}}: {{Text|GOTO|#F0F0F0}} lfgetve
                {{Text|IF|#F0F0F0}} e2$ = {{Text|"%%"|#FFB100}} {{Text|THEN|#F0F0F0}} e2$ = {{Text|"~%%"|#FFB100}}: {{Text|GOTO|#F0F0F0}} lfgetve
                {{Text|IF|#F0F0F0}} e2$ = {{Text|"%&"|#FFB100}} {{Text|THEN|#F0F0F0}} e2$ = {{Text|"~%&"|#FFB100}}: {{Text|GOTO|#F0F0F0}} lfgetve
                e2$ = {{Text|CHR$|#F0F0F0}}({{Text|ASC|#F0F0F0}}(e2$))
                {{Text|IF|#F0F0F0}} e2$ = {{Text|"&"|#FFB100}} {{Text|THEN|#F0F0F0}} e2$ = {{Text|"~&"|#FFB100}}: {{Text|GOTO|#F0F0F0}} lfgetve
                {{Text|IF|#F0F0F0}} e2$ = {{Text|"%"|#FFB100}} {{Text|THEN|#F0F0F0}} e2$ = {{Text|"~%"|#FFB100}}: {{Text|GOTO|#F0F0F0}} lfgetve
                {{Text|IF|#F0F0F0}} e2$ = {{Text|"`"|#FFB100}} {{Text|THEN|#F0F0F0}} m = {{Text|1|#F580B1}}: e2$ = {{Text|"~`"|#FFB100}}: {{Text|GOTO|#F0F0F0}} lfgetve
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} c3 = {{Text|37|#F580B1}} {{Text|THEN|#F0F0F0}}
                c4 = {{Text|ASC|#F0F0F0}}(a$, i + {{Text|1|#F580B1}})
                {{Text|IF|#F0F0F0}} c4 = {{Text|37|#F580B1}} {{Text|THEN|#F0F0F0}} e2$ = {{Text|"%%"|#FFB100}}: {{Text|GOTO|#F0F0F0}} lfgetve
                {{Text|IF|#F0F0F0}} c4 = {{Text|38|#F580B1}} {{Text|THEN|#F0F0F0}} e2$ = {{Text|"%&"|#FFB100}}: {{Text|GOTO|#F0F0F0}} lfgetve
                e2$ = {{Text|"%"|#FFB100}}: {{Text|GOTO|#F0F0F0}} lfgetve
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} c3 = {{Text|38|#F580B1}} {{Text|THEN|#F0F0F0}}
                c4 = {{Text|ASC|#F0F0F0}}(a$, i + {{Text|1|#F580B1}})
                {{Text|IF|#F0F0F0}} c4 = {{Text|38|#F580B1}} {{Text|THEN|#F0F0F0}} e2$ = {{Text|"&&"|#FFB100}}: {{Text|GOTO|#F0F0F0}} lfgetve
                e2$ = {{Text|"&"|#FFB100}}: {{Text|GOTO|#F0F0F0}} lfgetve
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} c3 = {{Text|33|#F580B1}} {{Text|THEN|#F0F0F0}} e2$ = {{Text|"!"|#FFB100}}: {{Text|GOTO|#F0F0F0}} lfgetve
            {{Text|IF|#F0F0F0}} c3 = {{Text|35|#F580B1}} {{Text|THEN|#F0F0F0}}
                c4 = {{Text|ASC|#F0F0F0}}(a$, i + {{Text|1|#F580B1}})
                {{Text|IF|#F0F0F0}} c4 = {{Text|35|#F580B1}} {{Text|THEN|#F0F0F0}} e2$ = {{Text|"##"|#FFB100}}: {{Text|GOTO|#F0F0F0}} lfgetve
                e2$ = {{Text|"#"|#FFB100}}: {{Text|GOTO|#F0F0F0}} lfgetve
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} c3 = {{Text|36|#F580B1}} {{Text|THEN|#F0F0F0}} m = {{Text|1|#F580B1}}: e2$ = {{Text|"$"|#FFB100}}: {{Text|GOTO|#F0F0F0}} lfgetve
            {{Text|IF|#F0F0F0}} c3 = {{Text|96|#F580B1}} {{Text|THEN|#F0F0F0}} m = {{Text|1|#F580B1}}: e2$ = {{Text|"`"|#FFB100}}: {{Text|GOTO|#F0F0F0}} lfgetve
            {{Text|'(no symbol)|#31C4C4}}
            {{Text|'cater for unusual names/labels (eg a.0b%)|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(a$, i) = {{Text|46|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"."|#31C4C4}}
                c2 = {{Text|ASC|#F0F0F0}}(a$, i + {{Text|1|#F580B1}})
                {{Text|IF|#F0F0F0}} c2 >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} c2 <= {{Text|57|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|'scan until no further alphanumerics|#31C4C4}}
                    p2 = i + {{Text|1|#F580B1}}
                    {{Text|FOR|#F0F0F0}} i2 = i + {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n
                        c = {{Text|ASC|#F0F0F0}}(a$, i2)
                        {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} alphanumeric(c) {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} c <> {{Text|95|#F580B1}} {{Text|THEN|#F0F0F0}} p2 = i2 {{Text|'don't including trailing _|#31C4C4}}
                    {{Text|NEXT|#F0F0F0}}
                    a2$ = a2$ + sp + {{Text|"."|#FFB100}} + sp + {{Text|MID$|#F0F0F0}}(ca$, i + {{Text|1|#F580B1}}, p2 - (i + {{Text|1|#F580B1}}) + {{Text|1|#F580B1}}) {{Text|'case sensitive|#31C4C4}}
                    n2 = n2 + {{Text|1|#F580B1}} + (p2 - (i + {{Text|1|#F580B1}}) + {{Text|1|#F580B1}})
                    i = p2 + {{Text|1|#F580B1}}
                    {{Text|GOTO|#F0F0F0}} extcheck {{Text|'it may have an extension or be continued with another "."|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} lineformatnext
            lfgetve:
            i = i + {{Text|LEN|#F0F0F0}}(e2$)
            a2$ = a2$ + e2$
            {{Text|IF|#F0F0F0}} m {{Text|THEN|#F0F0F0}} {{Text|'allow digits after symbol|#31C4C4}}
                lfgetvd:
                {{Text|IF|#F0F0F0}} i < n {{Text|THEN|#F0F0F0}}
                    c = {{Text|ASC|#F0F0F0}}(a$, i)
                    {{Text|IF|#F0F0F0}} c >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} c <= {{Text|57|#F580B1}} {{Text|THEN|#F0F0F0}} a2$ = a2$ + {{Text|CHR$|#F0F0F0}}(c): i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} lfgetvd
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'m|#31C4C4}}
            {{Text|GOTO|#F0F0F0}} lineformatnext
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'p2|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'variable/name|#31C4C4}}
    {{Text|'----------------variable/name end----------------|#31C4C4}}
    {{Text|'----------------spacing----------------|#31C4C4}}
    {{Text|IF|#F0F0F0}} c = {{Text|32|#F580B1}} {{Text|OR|#F0F0F0}} c = {{Text|9|#F580B1}} {{Text|THEN|#F0F0F0}} i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} lineformatnext
    {{Text|'----------------symbols----------------|#31C4C4}}
    {{Text|'--------single characters--------|#31C4C4}}
    {{Text|IF|#F0F0F0}} lfsinglechar(c) {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} (c = {{Text|60|#F580B1}}) {{Text|OR|#F0F0F0}} (c = {{Text|61|#F580B1}}) {{Text|OR|#F0F0F0}} (c = {{Text|62|#F580B1}}) {{Text|THEN|#F0F0F0}}
            count = {{Text|0|#F580B1}}
            {{Text|DO|#F0F0F0}}
                count = count + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} i + count >= {{Text|LEN|#F0F0F0}}(a$) - {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
            {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} {{Text|ASC|#F0F0F0}}(a$, i + count) <> {{Text|32|#F580B1}}
            c2 = {{Text|ASC|#F0F0F0}}(a$, i + count)
            {{Text|IF|#F0F0F0}} c = {{Text|60|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'<|#31C4C4}}
                {{Text|IF|#F0F0F0}} c2 = {{Text|61|#F580B1}} {{Text|THEN|#F0F0F0}} a2$ = a2$ + sp + {{Text|"<="|#FFB100}}: i = i + count + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} lineformatnext
                {{Text|IF|#F0F0F0}} c2 = {{Text|62|#F580B1}} {{Text|THEN|#F0F0F0}} a2$ = a2$ + sp + {{Text|"<>"|#FFB100}}: i = i + count + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} lineformatnext
            {{Text|ELSEIF|#F0F0F0}} c = {{Text|62|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'>|#31C4C4}}
                {{Text|IF|#F0F0F0}} c2 = {{Text|61|#F580B1}} {{Text|THEN|#F0F0F0}} a2$ = a2$ + sp + {{Text|">="|#FFB100}}: i = i + count + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} lineformatnext
                {{Text|IF|#F0F0F0}} c2 = {{Text|60|#F580B1}} {{Text|THEN|#F0F0F0}} a2$ = a2$ + sp + {{Text|"<>"|#FFB100}}: i = i + count + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} lineformatnext {{Text|'>< to <>|#31C4C4}}
            {{Text|ELSEIF|#F0F0F0}} c = {{Text|61|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'=|#31C4C4}}
                {{Text|IF|#F0F0F0}} c2 = {{Text|62|#F580B1}} {{Text|THEN|#F0F0F0}} a2$ = a2$ + sp + {{Text|">="|#FFB100}}: i = i + count + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} lineformatnext {{Text|'=> to >=|#31C4C4}}
                {{Text|IF|#F0F0F0}} c2 = {{Text|60|#F580B1}} {{Text|THEN|#F0F0F0}} a2$ = a2$ + sp + {{Text|"<="|#FFB100}}: i = i + count + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} lineformatnext {{Text|'=< to <=|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} c = {{Text|36|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LEN|#F0F0F0}}(a2$) {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} badusage {{Text|'$|#31C4C4}}
        a2$ = a2$ + sp + {{Text|CHR$|#F0F0F0}}(c)
        i = i + {{Text|1|#F580B1}}
        {{Text|GOTO|#F0F0F0}} lineformatnext
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    badusage:
    {{Text|IF|#F0F0F0}} c <> {{Text|39|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Unexpected character on line"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'invalid symbol encountered|#31C4C4}}
    {{Text|'----------------comment(')----------------|#31C4C4}}
    layoutcomment = {{Text|"'"|#FFB100}}
    i = i + {{Text|1|#F580B1}}
    comment:
    {{Text|IF|#F0F0F0}} i >= n {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} lineformatdone2
    c$ = {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - i + {{Text|1|#F580B1}})
    cc$ = {{Text|RIGHT$|#F0F0F0}}(ca$, {{Text|LEN|#F0F0F0}}(ca$) - i + {{Text|1|#F580B1}})
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(c$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} lineformatdone2
    layoutcomment$ = {{Text|RTRIM$|#F0F0F0}}(layoutcomment$ + cc$)
    c$ = {{Text|LTRIM$|#F0F0F0}}(c$)
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(c$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} lineformatdone2
    ac = {{Text|ASC|#F0F0F0}}(c$)
    {{Text|'note: any non-whitespace character between the comment leader and the|#31C4C4}}
    {{Text|'      first '$' renders this a plain comment|#31C4C4}}
    {{Text|'    : the leading '$' does NOT have to be part of a valid metacommand.|#31C4C4}}
    {{Text|'      E.g., REM $FOO $DYNAMIC is a valid metacommand line|#31C4C4}}
    {{Text|IF|#F0F0F0}} ac <> {{Text|36|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} lineformatdone2
    nocasec$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RIGHT$|#F0F0F0}}(ca$, {{Text|LEN|#F0F0F0}}(ca$) - i + {{Text|1|#F580B1}}))
    memmode = {{Text|0|#F580B1}}
    x = {{Text|1|#F580B1}}
    {{Text|DO|#F0F0F0}}
        {{Text|'note: metacommands may appear on a line any number of times but only|#31C4C4}}
        {{Text|'      the last appearance of $INCLUDE, and either $STATIC or $DYNAMIC,|#31C4C4}}
        {{Text|'      is processed|#31C4C4}}
        {{Text|'    : metacommands do not need to be terminated by word boundaries.|#31C4C4}}
        {{Text|'      E.g., $STATICanychars$DYNAMIC is valid|#31C4C4}}
        {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(c$, x, {{Text|7|#F580B1}}) = {{Text|"$STATIC"|#FFB100}} {{Text|THEN|#F0F0F0}}
            memmode = {{Text|1|#F580B1}}
        {{Text|ELSEIF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(c$, x, {{Text|8|#F580B1}}) = {{Text|"$DYNAMIC"|#FFB100}} {{Text|THEN|#F0F0F0}}
            memmode = {{Text|2|#F580B1}}
        {{Text|ELSEIF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(c$, x, {{Text|8|#F580B1}}) = {{Text|"$INCLUDE"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|'note: INCLUDE adds the file AFTER the line it is on has been processed|#31C4C4}}
            {{Text|'skip spaces until :|#31C4C4}}
            {{Text|FOR|#F0F0F0}} xx = x + {{Text|8|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(c$)
                ac = {{Text|ASC|#F0F0F0}}({{Text|MID$|#F0F0F0}}(c$, xx, {{Text|1|#F580B1}}))
                {{Text|IF|#F0F0F0}} ac = {{Text|58|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}} {{Text|':|#31C4C4}}
                {{Text|IF|#F0F0F0}} ac <> {{Text|32|#F580B1}} {{Text|AND|#F0F0F0}} ac <> {{Text|9|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected $INCLUDE:'filename'"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            x = xx
            {{Text|'skip spaces until '|#31C4C4}}
            {{Text|FOR|#F0F0F0}} xx = x + {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(c$)
                ac = {{Text|ASC|#F0F0F0}}({{Text|MID$|#F0F0F0}}(c$, xx, {{Text|1|#F580B1}}))
                {{Text|IF|#F0F0F0}} ac = {{Text|39|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}} {{Text|'character:'|#31C4C4}}
                {{Text|IF|#F0F0F0}} ac <> {{Text|32|#F580B1}} {{Text|AND|#F0F0F0}} ac <> {{Text|9|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected $INCLUDE:'filename'"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            x = xx
            xx = {{Text|INSTR|#F0F0F0}}(x + {{Text|1|#F580B1}}, c$, {{Text|"'"|#FFB100}})
            {{Text|IF|#F0F0F0}} xx = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected $INCLUDE:'filename'"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            addmetainclude$ = {{Text|MID$|#F0F0F0}}(nocasec$, x + {{Text|1|#F580B1}}, xx - x - {{Text|1|#F580B1}})
            {{Text|IF|#F0F0F0}} addmetainclude$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected $INCLUDE:'filename'"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        x = {{Text|INSTR|#F0F0F0}}(x + {{Text|1|#F580B1}}, c$, {{Text|"$"|#FFB100}})
    {{Text|LOOP|#F0F0F0}} {{Text|WHILE|#F0F0F0}} x <> {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} memmode = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} addmetastatic = {{Text|1|#F580B1}}
    {{Text|IF|#F0F0F0}} memmode = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} addmetadynamic = {{Text|1|#F580B1}}
    {{Text|GOTO|#F0F0F0}} lineformatdone2
    lineformatdone:
    {{Text|'line continuation?|#31C4C4}}
    {{Text|'note: line continuation in idemode is illegal|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(a2$) {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(a2$, {{Text|1|#F580B1}}) = {{Text|"_"|#FFB100}} {{Text|THEN|#F0F0F0}}
            linecontinuation = {{Text|1|#F580B1}} {{Text|'avoids auto-format glitches|#31C4C4}}
            layout$ = {{Text|""|#FFB100}}
            {{Text|'remove _ from the end of the building string|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(a2$) >= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(a2$, {{Text|2|#F580B1}}) = sp + {{Text|"_"|#FFB100}} {{Text|THEN|#F0F0F0}} a2$ = {{Text|LEFT$|#F0F0F0}}(a2$, {{Text|LEN|#F0F0F0}}(a2$) - {{Text|1|#F580B1}})
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            a2$ = {{Text|LEFT$|#F0F0F0}}(a2$, {{Text|LEN|#F0F0F0}}(a2$) - {{Text|1|#F580B1}})
            {{Text|IF|#F0F0F0}} inclevel {{Text|THEN|#F0F0F0}}
                fh = {{Text|99|#F580B1}} + inclevel
                {{Text|IF|#F0F0F0}} {{Text|EOF|#F0F0F0}}(fh) {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} lineformatdone2
                {{Text|LINE|#F0F0F0}} {{Text|INPUT|#F0F0F0}} #fh, a$
                inclinenumber(inclevel) = inclinenumber(inclevel) + {{Text|1|#F580B1}}
                {{Text|GOTO|#F0F0F0}} includecont {{Text|'note: should not increase linenumber|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} idemode {{Text|THEN|#F0F0F0}}
                idecommand$ = {{Text|CHR$|#F0F0F0}}({{Text|100|#F580B1}})
                ignore = ide({{Text|0|#F580B1}})
                ideerror = {{Text|0|#F580B1}}
                a$ = idereturn$
                {{Text|IF|#F0F0F0}} a$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} lineformatdone2
            {{Text|ELSE|#F0F0F0}}
                a$ = lineinput3$
                {{Text|IF|#F0F0F0}} a$ = {{Text|CHR$|#F0F0F0}}({{Text|13|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} lineformatdone2
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            linenumber = linenumber + {{Text|1|#F580B1}}
            includecont:
            contline = {{Text|1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} continueline
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    lineformatdone2:
    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(a2$, {{Text|1|#F580B1}}) = sp {{Text|THEN|#F0F0F0}} a2$ = {{Text|RIGHT$|#F0F0F0}}(a2$, {{Text|LEN|#F0F0F0}}(a2$) - {{Text|1|#F580B1}})
    {{Text|'fix for trailing : error|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(a2$, {{Text|1|#F580B1}}) = {{Text|":"|#FFB100}} {{Text|THEN|#F0F0F0}} a2$ = a2$ + sp + {{Text|"'"|#FFB100}} {{Text|'add nop|#31C4C4}}
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"lineformat():return:"|#FFB100}} + a2$
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    lineformat$ = a2$
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|SUB|#F0F0F0}} makeidrefer (ref$, typ {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}})
    ref$ = str2$(currentid)
    typ = id.t + ISREFERENCE
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} operatorusage (operator$, typ {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, info$, lhs {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, rhs {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, result {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}})
    lhs = {{Text|7|#F580B1}}: rhs = {{Text|7|#F580B1}}: result = {{Text|0|#F580B1}}
    {{Text|'return values|#31C4C4}}
    {{Text|'1 = use info$ as the operator without any other changes|#31C4C4}}
    {{Text|'2 = use the function returned in info$ to apply this operator|#31C4C4}}
    {{Text|'    upon left and right side of equation|#31C4C4}}
    {{Text|'3=  bracket left and right side with negation and change operator to info$|#31C4C4}}
    {{Text|'4=  BINARY NOT l.h.s, then apply operator in info$|#31C4C4}}
    {{Text|'5=  UNARY, bracket up rhs, apply operator info$ to left, rebracket again|#31C4C4}}
    {{Text|'lhs & rhs bit-field values|#31C4C4}}
    {{Text|'1=integeral|#31C4C4}}
    {{Text|'2=floating point|#31C4C4}}
    {{Text|'4=string|#31C4C4}}
    {{Text|'8=bool|#31C4C4}}
    {{Text|'string operator|#31C4C4}}
    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
        lhs = {{Text|4|#F580B1}}: rhs = {{Text|4|#F580B1}}
        result = {{Text|4|#F580B1}}
        {{Text|IF|#F0F0F0}} operator$ = {{Text|"+"|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"qbs_add"|#FFB100}}: operatorusage = {{Text|2|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        result = {{Text|8|#F580B1}}
        {{Text|IF|#F0F0F0}} operator$ = {{Text|"="|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"qbs_equal"|#FFB100}}: operatorusage = {{Text|2|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} operator$ = {{Text|"<>"|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"qbs_notequal"|#FFB100}}: operatorusage = {{Text|2|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} operator$ = {{Text|">"|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"qbs_greaterthan"|#FFB100}}: operatorusage = {{Text|2|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} operator$ = {{Text|"<"|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"qbs_lessthan"|#FFB100}}: operatorusage = {{Text|2|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} operator$ = {{Text|">="|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"qbs_greaterorequal"|#FFB100}}: operatorusage = {{Text|2|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} operator$ = {{Text|"<="|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"qbs_lessorequal"|#FFB100}}: operatorusage = {{Text|2|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"INVALID STRING OPERATOR!"|#FFB100}}: {{Text|END|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'assume numeric operator|#31C4C4}}
    lhs = {{Text|1|#F580B1}} + {{Text|2|#F580B1}}: rhs = {{Text|1|#F580B1}} + {{Text|2|#F580B1}}
    {{Text|IF|#F0F0F0}} operator$ = {{Text|"^"|#FFB100}} {{Text|THEN|#F0F0F0}} result = {{Text|2|#F580B1}}: info$ = {{Text|"pow2"|#FFB100}}: operatorusage = {{Text|2|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} operator$ = {{Text|CHR$|#F0F0F0}}({{Text|241|#F580B1}}) {{Text|THEN|#F0F0F0}} info$ = {{Text|"-"|#FFB100}}: operatorusage = {{Text|5|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} operator$ = {{Text|"/"|#FFB100}} {{Text|THEN|#F0F0F0}}
        info$ = {{Text|"/ "|#FFB100}}: operatorusage = {{Text|1|#F580B1}}
        {{Text|'for / division, either the lhs or the rhs must be a float to make|#31C4C4}}
        {{Text|'c++ return a result in floating point form|#31C4C4}}
        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
            {{Text|'lhs is a float|#31C4C4}}
            lhs = {{Text|2|#F580B1}}
            rhs = {{Text|1|#F580B1}} + {{Text|2|#F580B1}}
        {{Text|ELSE|#F0F0F0}}
            {{Text|'lhs isn't a float!|#31C4C4}}
            lhs = {{Text|1|#F580B1}} + {{Text|2|#F580B1}}
            rhs = {{Text|2|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        result = {{Text|2|#F580B1}}
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} operator$ = {{Text|"*"|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"*"|#FFB100}}: operatorusage = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} operator$ = {{Text|"+"|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"+"|#FFB100}}: operatorusage = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} operator$ = {{Text|"-"|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"-"|#FFB100}}: operatorusage = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    result = {{Text|8|#F580B1}}
    {{Text|IF|#F0F0F0}} operator$ = {{Text|"="|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"=="|#FFB100}}: operatorusage = {{Text|3|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} operator$ = {{Text|">"|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|">"|#FFB100}}: operatorusage = {{Text|3|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} operator$ = {{Text|"<"|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"<"|#FFB100}}: operatorusage = {{Text|3|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} operator$ = {{Text|"<>"|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"!="|#FFB100}}: operatorusage = {{Text|3|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} operator$ = {{Text|"<="|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"<="|#FFB100}}: operatorusage = {{Text|3|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} operator$ = {{Text|">="|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|">="|#FFB100}}: operatorusage = {{Text|3|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    lhs = {{Text|1|#F580B1}}: rhs = {{Text|1|#F580B1}}: result = {{Text|1|#F580B1}}
    operator$ = {{Text|UCASE$|#F0F0F0}}(operator$)
    {{Text|IF|#F0F0F0}} operator$ = {{Text|"MOD"|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"%"|#FFB100}}: operatorusage = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} operator$ = {{Text|"\"|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"/ "|#FFB100}}: operatorusage = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} operator$ = {{Text|"IMP"|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"¦"|#FFB100}}: operatorusage = {{Text|4|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} operator$ = {{Text|"EQV"|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"^"|#FFB100}}: operatorusage = {{Text|4|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} operator$ = {{Text|"XOR"|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"^"|#FFB100}}: operatorusage = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} operator$ = {{Text|"OR"|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"¦"|#FFB100}}: operatorusage = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} operator$ = {{Text|"AND"|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"&"|#FFB100}}: operatorusage = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    lhs = {{Text|7|#F580B1}}
    {{Text|IF|#F0F0F0}} operator$ = {{Text|"NOT"|#FFB100}} {{Text|THEN|#F0F0F0}} info$ = {{Text|"~"|#FFB100}}: operatorusage = {{Text|5|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"INVALID NUMBERIC OPERATOR!"|#FFB100}}: {{Text|END|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} refer$ (a2$, typ {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, method {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}})
    typbak = typ
    {{Text|'method: 0 return an equation which calculates the value of the "variable"|#31C4C4}}
    {{Text|'        1 return the C name of the variable, typ will be left unchanged|#31C4C4}}
    a$ = a2$
    {{Text|'retrieve ID|#31C4C4}}
    i = {{Text|INSTR|#F0F0F0}}(a$, sp3)
    {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}}
        idnumber = {{Text|VAL|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(a$, i - {{Text|1|#F580B1}})): a$ = {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - i)
    {{Text|ELSE|#F0F0F0}}
        idnumber = {{Text|VAL|#F0F0F0}}(a$)
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    getid idnumber
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|'UDT?|#31C4C4}}
    {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} method = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            n$ = {{Text|"UDT_"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(id.n)
            {{Text|IF|#F0F0F0}} id.t = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} n$ = {{Text|"ARRAY_"|#FFB100}} + n$
            n$ = scope$ + n$
            refer$ = n$
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'print "UDTSUBSTRING[idX¦u¦e¦o]:"+a$|#31C4C4}}
        u = {{Text|VAL|#F0F0F0}}(a$)
        i = {{Text|INSTR|#F0F0F0}}(a$, sp3): a$ = {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - i): E = {{Text|VAL|#F0F0F0}}(a$)
        i = {{Text|INSTR|#F0F0F0}}(a$, sp3): o$ = {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - i)
        n$ = {{Text|"UDT_"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(id.n): {{Text|IF|#F0F0F0}} id.t = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} n$ = {{Text|"ARRAY_"|#FFB100}} + n$ + {{Text|"[0]"|#FFB100}}
        {{Text|IF|#F0F0F0}} E = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"User defined types in expressions are invalid"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISOFFSETINBITS {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot resolve bit-length variables inside user defined types"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}}
                o2$ = {{Text|"(((uint8*)"|#FFB100}} + scope$ + n$ + {{Text|")+("|#FFB100}} + o$ + {{Text|"))"|#FFB100}}
                r$ = {{Text|"qbs_new_fixed("|#FFB100}} + o2$ + {{Text|","|#FFB100}} + str2(udtetypesize(E)) + {{Text|",1)"|#FFB100}}
                typ = STRINGTYPE + ISFIXEDLENGTH {{Text|'ISPOINTER retained, it is still a pointer!|#31C4C4}}
            {{Text|ELSE|#F0F0F0}}
                r$ = {{Text|"*((qbs**)((char*)"|#FFB100}} + scope$ + n$ + {{Text|"+("|#FFB100}} + o$ + {{Text|")))"|#FFB100}}
                typ = STRINGTYPE
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|ELSE|#F0F0F0}}
            typ = typ - ISUDT - ISREFERENCE - ISPOINTER
            {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISARRAY {{Text|THEN|#F0F0F0}} typ = typ - ISARRAY
            t$ = typ2ctyp$(typ, {{Text|""|#FFB100}})
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            o2$ = {{Text|"(((char*)"|#FFB100}} + scope$ + n$ + {{Text|")+("|#FFB100}} + o$ + {{Text|"))"|#FFB100}}
            r$ = {{Text|"*"|#FFB100}} + {{Text|"("|#FFB100}} + t$ + {{Text|"*)"|#FFB100}} + o2$
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'print "REFER:"+r$+","+str2$(typ)|#31C4C4}}
        refer$ = r$
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'array?|#31C4C4}}
    {{Text|IF|#F0F0F0}} id.arraytype {{Text|THEN|#F0F0F0}}
        n$ = {{Text|RTRIM$|#F0F0F0}}(id.callname)
        {{Text|IF|#F0F0F0}} method = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            refer$ = n$
            typ = typbak
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        typ = typ - ISPOINTER - ISREFERENCE {{Text|'typ now looks like a regular value|#31C4C4}}
        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) {{Text|THEN|#F0F0F0}}
                offset$ = {{Text|"&((uint8*)("|#FFB100}} + n$ + {{Text|"[0]))[("|#FFB100}} + a$ + {{Text|")*"|#FFB100}} + str2(id.tsize) + {{Text|"]"|#FFB100}}
                r$ = {{Text|"qbs_new_fixed("|#FFB100}} + offset$ + {{Text|","|#FFB100}} + str2(id.tsize) + {{Text|",1)"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                r$ = {{Text|"((qbs*)(((uint64*)("|#FFB100}} + n$ + {{Text|"[0]))["|#FFB100}} + a$ + {{Text|"]))"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            stringprocessinghappened = {{Text|1|#F580B1}}
            refer$ = r$
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}}
            {{Text|'IF (typ AND ISUNSIGNED) THEN r$ = "getubits_" ELSE r$ = "getbits_"|#31C4C4}}
            {{Text|'r$ = r$ + str2(typ AND 511) + "("|#31C4C4}}
            {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}} r$ = {{Text|"getubits"|#FFB100}} {{Text|ELSE|#F0F0F0}} r$ = {{Text|"getbits"|#FFB100}}
            r$ = r$ + {{Text|"("|#FFB100}} + str2(typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) + {{Text|","|#FFB100}}
            r$ = r$ + {{Text|"(uint8*)("|#FFB100}} + n$ + {{Text|"[0])"|#FFB100}} + {{Text|","|#FFB100}}
            r$ = r$ + a$ + {{Text|")"|#FFB100}}
            refer$ = r$
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|ELSE|#F0F0F0}}
            t$ = {{Text|""|#FFB100}}
            {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"float"|#FFB100}}
                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"double"|#FFB100}}
                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|256|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"long double"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"uint8"|#FFB100}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"uint16"|#FFB100}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"uint32"|#FFB100}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"uint64"|#FFB100}}
                    {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISOFFSET {{Text|THEN|#F0F0F0}} t$ = {{Text|"uptrszint"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"int8"|#FFB100}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"int16"|#FFB100}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"int32"|#FFB100}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"int64"|#FFB100}}
                    {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISOFFSET {{Text|THEN|#F0F0F0}} t$ = {{Text|"ptrszint"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} t$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot find C type to return array data"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        r$ = {{Text|"(("|#FFB100}} + t$ + {{Text|"*)("|#FFB100}} + n$ + {{Text|"[0]))["|#FFB100}} + a$ + {{Text|"]"|#FFB100}}
        refer$ = r$
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'array|#31C4C4}}
    {{Text|'variable?|#31C4C4}}
    {{Text|IF|#F0F0F0}} id.t {{Text|THEN|#F0F0F0}}
        r$ = {{Text|RTRIM$|#F0F0F0}}(id.n)
        t = id.t
        {{Text|'remove irrelavant flags|#31C4C4}}
        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISINCONVENTIONALMEMORY) {{Text|THEN|#F0F0F0}} t = t - ISINCONVENTIONALMEMORY
        {{Text|'string?|#31C4C4}}
        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) {{Text|THEN|#F0F0F0}}
                r$ = scope$ + {{Text|"STRING"|#FFB100}} + str2(id.tsize) + {{Text|"_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} ref
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            r$ = scope$ + {{Text|"STRING_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} ref
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'bit-length single variable?|#31C4C4}}
        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}}
                r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"UBIT"|#FFB100}} + str2(t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) + {{Text|"_"|#FFB100}} + r$
            {{Text|ELSE|#F0F0F0}}
                r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"BIT"|#FFB100}} + str2(t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) + {{Text|"_"|#FFB100}} + r$
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} ref
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} t = BYTETYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"BYTE_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} ref
        {{Text|IF|#F0F0F0}} t = UBYTETYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"UBYTE_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} ref
        {{Text|IF|#F0F0F0}} t = INTEGERTYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"INTEGER_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} ref
        {{Text|IF|#F0F0F0}} t = UINTEGERTYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"UINTEGER_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} ref
        {{Text|IF|#F0F0F0}} t = LONGTYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"LONG_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} ref
        {{Text|IF|#F0F0F0}} t = ULONGTYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"ULONG_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} ref
        {{Text|IF|#F0F0F0}} t = INTEGER64TYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"INTEGER64_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} ref
        {{Text|IF|#F0F0F0}} t = UINTEGER64TYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"UINTEGER64_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} ref
        {{Text|IF|#F0F0F0}} t = SINGLETYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"SINGLE_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} ref
        {{Text|IF|#F0F0F0}} t = DOUBLETYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"DOUBLE_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} ref
        {{Text|IF|#F0F0F0}} t = FLOATTYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"FLOAT_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} ref
        {{Text|IF|#F0F0F0}} t = OFFSETTYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"OFFSET_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} ref
        {{Text|IF|#F0F0F0}} t = UOFFSETTYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"UOFFSET_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} ref
        ref:
        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} stringprocessinghappened = {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISPOINTER) {{Text|THEN|#F0F0F0}} t = t - ISPOINTER
        typ = t
        {{Text|IF|#F0F0F0}} method = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(r$, {{Text|1|#F580B1}}) = {{Text|"*"|#FFB100}} {{Text|THEN|#F0F0F0}} r$ = {{Text|RIGHT$|#F0F0F0}}(r$, {{Text|LEN|#F0F0F0}}(r$) - {{Text|1|#F580B1}})
            typ = typbak
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        refer$ = r$
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'variable|#31C4C4}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|SUB|#F0F0F0}} regid
    idn = idn + {{Text|1|#F580B1}}
    {{Text|IF|#F0F0F0}} idn > ids_max {{Text|THEN|#F0F0F0}}
        ids_max = ids_max * {{Text|2|#F580B1}}
        {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} ids({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} ids_max) {{Text|AS|#F0F0F0}} idstruct
        {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} cmemlist({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} ids_max + {{Text|1|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
        {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} sfcmemargs({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} ids_max + {{Text|1|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|100|#F580B1}}
        {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} arrayelementslist({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} ids_max + {{Text|1|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    n$ = {{Text|RTRIM$|#F0F0F0}}(id.n)
    {{Text|IF|#F0F0F0}} reginternalsubfunc = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} validname(n$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid name"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'register case sensitive name if none given|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(id.cn) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}}
        n$ = {{Text|RTRIM$|#F0F0F0}}(id.n)
        id.n = {{Text|UCASE$|#F0F0F0}}(n$)
        id.cn = n$
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    id.insubfunc = subfunc
    id.insubfuncn = subfuncn
    {{Text|'note: cannot be STATIC and SHARED at the same time|#31C4C4}}
    {{Text|IF|#F0F0F0}} dimshared {{Text|THEN|#F0F0F0}}
        id.share = dimshared
    {{Text|ELSE|#F0F0F0}}
        {{Text|IF|#F0F0F0}} dimstatic {{Text|THEN|#F0F0F0}} id.staticscope = {{Text|1|#F580B1}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    ids(idn) = id
    currentid = idn
    {{Text|'prepare hash flags and check for conflicts|#31C4C4}}
    hashflags = {{Text|1|#F580B1}}
    {{Text|'sub/function?|#31C4C4}}
    {{Text|'Note: QBASIC does not allow: Internal type names (INTEGER,LONG,...)|#31C4C4}}
    {{Text|IF|#F0F0F0}} id.subfunc {{Text|THEN|#F0F0F0}}
        ids(currentid).internal_subfunc = reginternalsubfunc
        {{Text|IF|#F0F0F0}} id.subfunc = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} hashflags = hashflags + HASHFLAG_FUNCTION {{Text|ELSE|#F0F0F0}} hashflags = hashflags + HASHFLAG_SUB
        {{Text|IF|#F0F0F0}} reginternalsubfunc = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'allow internal definition of subs/functions without checks|#31C4C4}}
            hashchkflags = HASHFLAG_RESERVED + HASHFLAG_CONSTANT
            {{Text|IF|#F0F0F0}} id.subfunc = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} hashchkflags = hashchkflags + HASHFLAG_FUNCTION {{Text|ELSE|#F0F0F0}} hashchkflags = hashchkflags + HASHFLAG_SUB
            hashres = HashFind(n$, hashchkflags, hashresflags, hashresref)
            {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} hashres
                {{Text|IF|#F0F0F0}} hashres {{Text|THEN|#F0F0F0}}
                    {{Text|'Note: Numeric sub/function names like 'mid' do not clash with Internal string sub/function names|#31C4C4}}
                    {{Text|'      like 'MID$' because MID$ always requires a '$'. For user defined string sub/function names|#31C4C4}}
                    {{Text|'      the '$' would be optional so the rule should not be applied there.|#31C4C4}}
                    allow = {{Text|0|#F580B1}}
                    {{Text|IF|#F0F0F0}} hashresflags {{Text|AND|#F0F0F0}} (HASHFLAG_FUNCTION + HASHFLAG_SUB) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(ids(hashresref).musthave) = {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(ids(currentid).mayhave, {{Text|"$"|#FFB100}}) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} allow = {{Text|1|#F580B1}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} allow = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Name already in use ("|#FFB100}} + n$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'hashres|#31C4C4}}
                {{Text|IF|#F0F0F0}} hashres <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} hashres = HashFindCont(hashresflags, hashresref) {{Text|ELSE|#F0F0F0}} hashres = {{Text|0|#F580B1}}
            {{Text|LOOP|#F0F0F0}}
            {{Text|IF|#F0F0F0}} idemode {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(listOfCustomKeywords$, {{Text|"@"|#FFB100}} + {{Text|UCASE$|#F0F0F0}}(n$) + {{Text|"@"|#FFB100}}) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    listOfCustomKeywords$ = listOfCustomKeywords$ + {{Text|"@"|#FFB100}} + {{Text|UCASE$|#F0F0F0}}(n$) + {{Text|"@"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'reginternalsubfunc = 0|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'variable?|#31C4C4}}
    {{Text|IF|#F0F0F0}} id.t {{Text|THEN|#F0F0F0}}
        hashflags = hashflags + HASHFLAG_VARIABLE
        {{Text|IF|#F0F0F0}} reginternalvariable = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            allow = {{Text|0|#F580B1}}
            var_recheck:
            {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(id.musthave) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} astype2 = {{Text|1|#F580B1}} {{Text|'"AS type" declaration?|#31C4C4}}
            scope2 = subfuncn
            hashchkflags = HASHFLAG_RESERVED + HASHFLAG_SUB + HASHFLAG_FUNCTION + HASHFLAG_CONSTANT + HASHFLAG_VARIABLE
            hashres = HashFind(n$, hashchkflags, hashresflags, hashresref)
            {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} hashres
                {{Text|'conflict with reserved word?|#31C4C4}}
                {{Text|IF|#F0F0F0}} hashresflags {{Text|AND|#F0F0F0}} HASHFLAG_RESERVED {{Text|THEN|#F0F0F0}}
                    musthave$ = {{Text|RTRIM$|#F0F0F0}}(id.musthave)
                    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(musthave$, {{Text|"$"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                        {{Text|'All reserved words can be used as variables in QBASIC if "$" is appended to the variable name!|#31C4C4}}
                        {{Text|'(allow)|#31C4C4}}
                    {{Text|ELSE|#F0F0F0}}
                        Give_Error {{Text|"Name already in use ("|#FFB100}} + n$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}} {{Text|'Conflicts with reserved word|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'HASHFLAG_RESERVED|#31C4C4}}
                {{Text|'conflict with sub/function?|#31C4C4}}
                {{Text|IF|#F0F0F0}} hashresflags {{Text|AND|#F0F0F0}} (HASHFLAG_FUNCTION + HASHFLAG_SUB) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} ids(hashresref).internal_subfunc = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Name already in use ("|#FFB100}} + n$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}} {{Text|'QBASIC doesn't allow a variable of the same name as a user-defined sub/func|#31C4C4}}
                    {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id.n) = {{Text|"WIDTH"|#FFB100}} {{Text|AND|#F0F0F0}} ids(hashresref).subfunc = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} varname_exception
                    musthave$ = {{Text|RTRIM$|#F0F0F0}}(id.musthave)
                    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(musthave$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(ids(hashresref).musthave) = {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}}
                            {{Text|'a sub/func requiring "$" can co-exist with implicit numeric variables|#31C4C4}}
                            {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(id.mayhave, {{Text|"$"|#FFB100}}) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Name already in use ("|#FFB100}} + n$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                        {{Text|ELSE|#F0F0F0}}
                            Give_Error {{Text|"Name already in use ("|#FFB100}} + n$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}} {{Text|'Implicitly defined variables cannot conflict with sub/func names|#31C4C4}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'len(musthave$)=0|#31C4C4}}
                    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(musthave$, {{Text|"$"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(ids(hashresref).musthave) = {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Name already in use ("|#FFB100}} + n$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}} {{Text|'A sub/function name already exists as a string|#31C4C4}}
                        {{Text|'(allow)|#31C4C4}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(ids(hashresref).musthave) <> {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Name already in use ("|#FFB100}} + n$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}} {{Text|'A non-"$" sub/func name already exists with this name|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'HASHFLAG_FUNCTION + HASHFLAG_SUB|#31C4C4}}
                {{Text|'conflict with constant?|#31C4C4}}
                {{Text|IF|#F0F0F0}} hashresflags {{Text|AND|#F0F0F0}} HASHFLAG_CONSTANT {{Text|THEN|#F0F0F0}}
                    scope1 = constsubfunc(hashresref)
                    {{Text|IF|#F0F0F0}} (scope1 = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} AllowLocalName = {{Text|0|#F580B1}}) {{Text|OR|#F0F0F0}} scope1 = scope2 {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Name already in use ("|#FFB100}} + n$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'conflict with variable?|#31C4C4}}
                {{Text|IF|#F0F0F0}} hashresflags {{Text|AND|#F0F0F0}} HASHFLAG_VARIABLE {{Text|THEN|#F0F0F0}}
                    astype1 = {{Text|0|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(ids(hashresref).musthave) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} astype1 = {{Text|1|#F580B1}}
                    scope1 = ids(hashresref).insubfuncn
                    {{Text|IF|#F0F0F0}} astype1 = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} astype2 = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} scope1 = scope2 {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Name already in use ("|#FFB100}} + n$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'same type?|#31C4C4}}
                    {{Text|IF|#F0F0F0}} id.t = ids(hashresref).t {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} id.tsize = ids(hashresref).tsize {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} scope1 = scope2 {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Name already in use ("|#FFB100}} + n$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'will astype'd fixed STRING-variable mask a non-fixed string?|#31C4C4}}
                    {{Text|IF|#F0F0F0}} id.t {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} astype2 = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} ids(hashresref).t {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} (ids(hashresref).t {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|IF|#F0F0F0}} scope1 = scope2 {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Name already in use ("|#FFB100}} + n$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                varname_exception:
                {{Text|IF|#F0F0F0}} hashres <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} hashres = HashFindCont(hashresflags, hashresref) {{Text|ELSE|#F0F0F0}} hashres = {{Text|0|#F580B1}}
            {{Text|LOOP|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'reginternalvariable|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'variable|#31C4C4}}
    {{Text|'array?|#31C4C4}}
    {{Text|IF|#F0F0F0}} id.arraytype {{Text|THEN|#F0F0F0}}
        hashflags = hashflags + HASHFLAG_ARRAY
        allow = {{Text|0|#F580B1}}
        ary_recheck:
        scope2 = subfuncn
        {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(id.musthave) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} astype2 = {{Text|1|#F580B1}} {{Text|'"AS type" declaration?|#31C4C4}}
        hashchkflags = HASHFLAG_RESERVED + HASHFLAG_SUB + HASHFLAG_FUNCTION + HASHFLAG_ARRAY
        hashres = HashFind(n$, hashchkflags, hashresflags, hashresref)
        {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} hashres
            {{Text|'conflict with reserved word?|#31C4C4}}
            {{Text|IF|#F0F0F0}} hashresflags {{Text|AND|#F0F0F0}} HASHFLAG_RESERVED {{Text|THEN|#F0F0F0}}
                musthave$ = {{Text|RTRIM$|#F0F0F0}}(id.musthave)
                {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(musthave$, {{Text|"$"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                    {{Text|'All reserved words can be used as variables in QBASIC if "$" is appended to the variable name!|#31C4C4}}
                    {{Text|'(allow)|#31C4C4}}
                {{Text|ELSE|#F0F0F0}}
                    Give_Error {{Text|"Name already in use ("|#FFB100}} + n$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}} {{Text|'Conflicts with reserved word|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'HASHFLAG_RESERVED|#31C4C4}}
            {{Text|'conflict with sub/function?|#31C4C4}}
            {{Text|IF|#F0F0F0}} hashresflags {{Text|AND|#F0F0F0}} (HASHFLAG_FUNCTION + HASHFLAG_SUB) {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} ids(hashresref).internal_subfunc = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Name already in use ("|#FFB100}} + n$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}} {{Text|'QBASIC doesn't allow a variable of the same name as a user-defined sub/func|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(id.n) = {{Text|"WIDTH"|#FFB100}} {{Text|AND|#F0F0F0}} ids(hashresref).subfunc = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} arrayname_exception
                musthave$ = {{Text|RTRIM$|#F0F0F0}}(id.musthave)
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(musthave$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(ids(hashresref).musthave) = {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        {{Text|'a sub/func requiring "$" can co-exist with implicit numeric variables|#31C4C4}}
                        {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(id.mayhave, {{Text|"$"|#FFB100}}) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Name already in use ("|#FFB100}} + n$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                    {{Text|ELSE|#F0F0F0}}
                        Give_Error {{Text|"Name already in use ("|#FFB100}} + n$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}} {{Text|'Implicitly defined variables cannot conflict with sub/func names|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'len(musthave$)=0|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(musthave$, {{Text|"$"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(ids(hashresref).musthave) = {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Name already in use ("|#FFB100}} + n$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}} {{Text|'A sub/function name already exists as a string|#31C4C4}}
                    {{Text|'(allow)|#31C4C4}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(ids(hashresref).musthave) <> {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Name already in use ("|#FFB100}} + n$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}} {{Text|'A non-"$" sub/func name already exists with this name|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'HASHFLAG_FUNCTION + HASHFLAG_SUB|#31C4C4}}
            {{Text|'conflict with array?|#31C4C4}}
            {{Text|IF|#F0F0F0}} hashresflags {{Text|AND|#F0F0F0}} HASHFLAG_ARRAY {{Text|THEN|#F0F0F0}}
                astype1 = {{Text|0|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(ids(hashresref).musthave) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} astype1 = {{Text|1|#F580B1}}
                scope1 = ids(hashresref).insubfuncn
                {{Text|IF|#F0F0F0}} astype1 = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} astype2 = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} scope1 = scope2 {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Name already in use ("|#FFB100}} + n$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'same type?|#31C4C4}}
                {{Text|IF|#F0F0F0}} id.arraytype = ids(hashresref).arraytype {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} id.tsize = ids(hashresref).tsize {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} scope1 = scope2 {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Name already in use ("|#FFB100}} + n$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'will astype'd fixed STRING-variable mask a non-fixed string?|#31C4C4}}
                {{Text|IF|#F0F0F0}} id.arraytype {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} astype2 = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} ids(hashresref).arraytype {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} (ids(hashresref).arraytype {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} scope1 = scope2 {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Name already in use ("|#FFB100}} + n$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            arrayname_exception:
            {{Text|IF|#F0F0F0}} hashres <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} hashres = HashFindCont(hashresflags, hashresref) {{Text|ELSE|#F0F0F0}} hashres = {{Text|0|#F580B1}}
        {{Text|LOOP|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'array|#31C4C4}}
    {{Text|'add it to the hash table|#31C4C4}}
    HashAdd n$, hashflags, currentid
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} reginternal
    reginternalsubfunc = {{Text|1|#F580B1}}
    {{Text|'|#31C4C4}}{{Text|$INCLUDE:|#55FF55}}{{Text|'subs_functions\subs_functions.bas'|#31C4C4}}
    reginternalsubfunc = {{Text|0|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} regUnstableHttp
    reginternalsubfunc = {{Text|1|#F580B1}}
    clearid
    id.n = qb64prefix$ + {{Text|"StatusCode"|#FFB100}} {{Text|' Name in CaMeL case|#31C4C4}}
    id.subfunc = {{Text|1|#F580B1}} {{Text|' 1 = function, 2 = sub|#31C4C4}}
    id.callname = {{Text|"func__statusCode"|#FFB100}} {{Text|' C/C++ function name|#31C4C4}}
    id.args = {{Text|1|#F580B1}}
    id.arg = {{Text|MKL$|#F0F0F0}}(LONGTYPE - ISPOINTER)
    id.ret = LONGTYPE - ISPOINTER
    id.hr_syntax = {{Text|"_STATUSCODE(httpHandle&)"|#FFB100}} {{Text|' syntax help|#31C4C4}}
    regid
    {{Text|' If we're doing $NOPREFIX then we register it again with the underscore|#31C4C4}}
    {{Text|IF|#F0F0F0}} qb64prefix_set {{Text|THEN|#F0F0F0}}
        id.n = {{Text|"_StatusCode"|#FFB100}}
        regid
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    reginternalsubfunc = {{Text|0|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} symboltype (s$) {{Text|'returns type or 0(not a valid symbol)|#31C4C4}}
    {{Text|'note: sets symboltype_size for fixed length strings|#31C4C4}}
    {{Text|'created: 2011 (fast & comprehensive)|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(s$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|'treat common cases first|#31C4C4}}
    a = {{Text|ASC|#F0F0F0}}(s$)
    l = {{Text|LEN|#F0F0F0}}(s$)
    {{Text|IF|#F0F0F0}} a = {{Text|37|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'%|#31C4C4}}
        {{Text|IF|#F0F0F0}} l = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} symboltype = {{Text|16|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} l > {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(s$, {{Text|2|#F580B1}}) = {{Text|37|#F580B1}} {{Text|THEN|#F0F0F0}} symboltype = {{Text|8|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(s$, {{Text|2|#F580B1}}) = {{Text|38|#F580B1}} {{Text|THEN|#F0F0F0}} symboltype = OFFSETTYPE - ISPOINTER: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'%&|#31C4C4}}
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} a = {{Text|38|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'&|#31C4C4}}
        {{Text|IF|#F0F0F0}} l = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} symboltype = {{Text|32|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} l > {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(s$, {{Text|2|#F580B1}}) = {{Text|38|#F580B1}} {{Text|THEN|#F0F0F0}} symboltype = {{Text|64|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} a = {{Text|33|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'!|#31C4C4}}
        {{Text|IF|#F0F0F0}} l = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} symboltype = {{Text|32|#F580B1}} + ISFLOAT: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} a = {{Text|35|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'#|#31C4C4}}
        {{Text|IF|#F0F0F0}} l = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} symboltype = {{Text|64|#F580B1}} + ISFLOAT: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} l > {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(s$, {{Text|2|#F580B1}}) = {{Text|35|#F580B1}} {{Text|THEN|#F0F0F0}} symboltype = {{Text|64|#F580B1}} + ISFLOAT: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} a = {{Text|36|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'$|#31C4C4}}
        {{Text|IF|#F0F0F0}} l = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} symboltype = ISSTRING: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} isuinteger({{Text|RIGHT$|#F0F0F0}}(s$, l - {{Text|1|#F580B1}})) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} l >= ({{Text|1|#F580B1}} + {{Text|10|#F580B1}}) {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} l > ({{Text|1|#F580B1}} + {{Text|10|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|IF|#F0F0F0}} s$ > {{Text|"$2147483647"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            symboltype_size = {{Text|VAL|#F0F0F0}}({{Text|RIGHT$|#F0F0F0}}(s$, l - {{Text|1|#F580B1}}))
            symboltype = ISSTRING + ISFIXEDLENGTH
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} a = {{Text|96|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'`|#31C4C4}}
        {{Text|IF|#F0F0F0}} l = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} symboltype = {{Text|1|#F580B1}} + ISOFFSETINBITS: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} isuinteger({{Text|RIGHT$|#F0F0F0}}(s$, l - {{Text|1|#F580B1}})) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} l > {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            n = {{Text|VAL|#F0F0F0}}({{Text|RIGHT$|#F0F0F0}}(s$, l - {{Text|1|#F580B1}}))
            {{Text|IF|#F0F0F0}} n > {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            symboltype = n + ISOFFSETINBITS: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} a = {{Text|126|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'~|#31C4C4}}
        {{Text|IF|#F0F0F0}} l = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        a = {{Text|ASC|#F0F0F0}}(s$, {{Text|2|#F580B1}})
        {{Text|IF|#F0F0F0}} a = {{Text|37|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'%|#31C4C4}}
            {{Text|IF|#F0F0F0}} l = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} symboltype = {{Text|16|#F580B1}} + ISUNSIGNED: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|IF|#F0F0F0}} l > {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(s$, {{Text|3|#F580B1}}) = {{Text|37|#F580B1}} {{Text|THEN|#F0F0F0}} symboltype = {{Text|8|#F580B1}} + ISUNSIGNED: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(s$, {{Text|3|#F580B1}}) = {{Text|38|#F580B1}} {{Text|THEN|#F0F0F0}} symboltype = UOFFSETTYPE - ISPOINTER: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'~%&|#31C4C4}}
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a = {{Text|38|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'&|#31C4C4}}
            {{Text|IF|#F0F0F0}} l = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} symboltype = {{Text|32|#F580B1}} + ISUNSIGNED: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|IF|#F0F0F0}} l > {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(s$, {{Text|3|#F580B1}}) = {{Text|38|#F580B1}} {{Text|THEN|#F0F0F0}} symboltype = {{Text|64|#F580B1}} + ISUNSIGNED: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a = {{Text|96|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'`|#31C4C4}}
            {{Text|IF|#F0F0F0}} l = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} symboltype = {{Text|1|#F580B1}} + ISOFFSETINBITS + ISUNSIGNED: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|IF|#F0F0F0}} isuinteger({{Text|RIGHT$|#F0F0F0}}(s$, l - {{Text|2|#F580B1}})) {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} l > {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                n = {{Text|VAL|#F0F0F0}}({{Text|RIGHT$|#F0F0F0}}(s$, l - {{Text|2|#F580B1}}))
                {{Text|IF|#F0F0F0}} n > {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                symboltype = n + ISOFFSETINBITS + ISUNSIGNED: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'~|#31C4C4}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} removesymbol$ (varname$)
    i = {{Text|INSTR|#F0F0F0}}(varname$, {{Text|"~"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} foundsymbol
    i = {{Text|INSTR|#F0F0F0}}(varname$, {{Text|"`"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} foundsymbol
    i = {{Text|INSTR|#F0F0F0}}(varname$, {{Text|"%"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} foundsymbol
    i = {{Text|INSTR|#F0F0F0}}(varname$, {{Text|"&"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} foundsymbol
    i = {{Text|INSTR|#F0F0F0}}(varname$, {{Text|"!"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} foundsymbol
    i = {{Text|INSTR|#F0F0F0}}(varname$, {{Text|"#"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} foundsymbol
    i = {{Text|INSTR|#F0F0F0}}(varname$, {{Text|"$"|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} foundsymbol
    {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    foundsymbol:
    {{Text|IF|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected variable name before symbol"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    symbol$ = {{Text|RIGHT$|#F0F0F0}}(varname$, {{Text|LEN|#F0F0F0}}(varname$) - i + {{Text|1|#F580B1}})
    {{Text|IF|#F0F0F0}} symboltype(symbol$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid symbol"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    removesymbol$ = symbol$
    varname$ = {{Text|LEFT$|#F0F0F0}}(varname$, i - {{Text|1|#F580B1}})
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} scope$
    {{Text|IF|#F0F0F0}} id.share {{Text|THEN|#F0F0F0}} scope$ = module$ + {{Text|"__"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    scope$ = module$ + {{Text|"_"|#FFB100}} + subfunc$ + {{Text|"_"|#FFB100}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} seperateargs (a$, ca$, pass&)
    pass& = {{Text|0|#F580B1}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} OptMax: separgs(i) = {{Text|""|#FFB100}}: {{Text|NEXT|#F0F0F0}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} OptMax + {{Text|1|#F580B1}}: separgslayout(i) = {{Text|""|#FFB100}}: {{Text|NEXT|#F0F0F0}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} OptMax
        Lev(i) = {{Text|0|#F580B1}}
        EntryLev(i) = {{Text|0|#F580B1}}
        DitchLev(i) = {{Text|0|#F580B1}}
        DontPass(i) = {{Text|0|#F580B1}}
        TempList(i) = {{Text|0|#F580B1}}
        PassRule(i) = {{Text|0|#F580B1}}
        LevelEntered(i) = {{Text|0|#F580B1}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|DIM|#F0F0F0}} id2 {{Text|AS|#F0F0F0}} idstruct
    id2 = id
    {{Text|IF|#F0F0F0}} id2.args = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'no arguments!|#31C4C4}}
    s$ = id2.specialformat
    s$ = {{Text|RTRIM$|#F0F0F0}}(s$)
    {{Text|'build a special format if none exists|#31C4C4}}
    {{Text|IF|#F0F0F0}} s$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
        {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} id2.args
            {{Text|IF|#F0F0F0}} i <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} s$ = s$ + {{Text|",?"|#FFB100}} {{Text|ELSE|#F0F0F0}} s$ = {{Text|"?"|#FFB100}}
        {{Text|NEXT|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'note: dim'd arrays moved to global to prevent high recreation cost|#31C4C4}}
    PassFlag = {{Text|1|#F580B1}}
    nextentrylevel = {{Text|0|#F580B1}}
    nextentrylevelset = {{Text|1|#F580B1}}
    level = {{Text|0|#F580B1}}
    lastt = {{Text|0|#F580B1}}
    ditchlevel = {{Text|0|#F580B1}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(s$)
        s2$ = {{Text|MID$|#F0F0F0}}(s$, i, {{Text|1|#F580B1}})
        {{Text|IF|#F0F0F0}} s2$ = {{Text|"["|#FFB100}} {{Text|THEN|#F0F0F0}}
            level = level + {{Text|1|#F580B1}}
            LevelEntered(level) = {{Text|0|#F580B1}}
            {{Text|GOTO|#F0F0F0}} nextsymbol
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} s2$ = {{Text|"]"|#FFB100}} {{Text|THEN|#F0F0F0}}
            level = level - {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} level < ditchlevel {{Text|THEN|#F0F0F0}} ditchlevel = level
            {{Text|GOTO|#F0F0F0}} nextsymbol
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} s2$ = {{Text|"{"|#FFB100}} {{Text|THEN|#F0F0F0}}
            lastt = lastt + {{Text|1|#F580B1}}: Lev(lastt) = level: PassRule(lastt) = {{Text|0|#F580B1}}
            DitchLev(lastt) = ditchlevel: ditchlevel = level {{Text|'store & reset ditch level|#31C4C4}}
            i = i + {{Text|1|#F580B1}}
            i2 = {{Text|INSTR|#F0F0F0}}(i, s$, {{Text|"}"|#FFB100}})
            numopts = {{Text|0|#F580B1}}
            nextopt:
            numopts = numopts + {{Text|1|#F580B1}}
            i3 = {{Text|INSTR|#F0F0F0}}(i + {{Text|1|#F580B1}}, s$, {{Text|"¦"|#FFB100}})
            {{Text|IF|#F0F0F0}} i3 <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} i3 < i2 {{Text|THEN|#F0F0F0}}
                Opt(lastt, numopts) = {{Text|MID$|#F0F0F0}}(s$, i, i3 - i)
                i = i3 + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} nextopt
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            Opt(lastt, numopts) = {{Text|MID$|#F0F0F0}}(s$, i, i2 - i)
            T(lastt) = numopts
            {{Text|'calculate words in each option|#31C4C4}}
            {{Text|FOR|#F0F0F0}} x = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} T(lastt)
                w = {{Text|1|#F580B1}}
                x2 = {{Text|1|#F580B1}}
                newword:
                {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(x2, {{Text|RTRIM$|#F0F0F0}}(Opt(lastt, x)), {{Text|" "|#FFB100}}) {{Text|THEN|#F0F0F0}} w = w + {{Text|1|#F580B1}}: x2 = {{Text|INSTR|#F0F0F0}}(x2, {{Text|RTRIM$|#F0F0F0}}(Opt(lastt, x)), {{Text|" "|#FFB100}}) + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} newword
                OptWords(lastt, x) = w
            {{Text|NEXT|#F0F0F0}}
            i = i2
            {{Text|'set entry level routine|#31C4C4}}
            EntryLev(lastt) = level {{Text|'default level when continuing a previously entered level|#31C4C4}}
            {{Text|IF|#F0F0F0}} LevelEntered(level) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                EntryLev(lastt) = {{Text|0|#F580B1}}
                {{Text|FOR|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} level - {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} LevelEntered(i2) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} EntryLev(lastt) = i2
                {{Text|NEXT|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            LevelEntered(level) = {{Text|1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} nextsymbol
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} s2$ = {{Text|"?"|#FFB100}} {{Text|THEN|#F0F0F0}}
            lastt = lastt + {{Text|1|#F580B1}}: Lev(lastt) = level: PassRule(lastt) = {{Text|0|#F580B1}}
            DitchLev(lastt) = ditchlevel: ditchlevel = level {{Text|'store & reset ditch level|#31C4C4}}
            T(lastt) = {{Text|0|#F580B1}}
            {{Text|'set entry level routine|#31C4C4}}
            EntryLev(lastt) = level {{Text|'default level when continuing a previously entered level|#31C4C4}}
            {{Text|IF|#F0F0F0}} LevelEntered(level) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                EntryLev(lastt) = {{Text|0|#F580B1}}
                {{Text|FOR|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} level - {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} LevelEntered(i2) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} EntryLev(lastt) = i2
                {{Text|NEXT|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            LevelEntered(level) = {{Text|1|#F580B1}}
            {{Text|GOTO|#F0F0F0}} nextsymbol
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'assume "special" character (like ( ) , . - etc.)|#31C4C4}}
        lastt = lastt + {{Text|1|#F580B1}}: Lev(lastt) = level: PassRule(lastt) = {{Text|0|#F580B1}}
        DitchLev(lastt) = ditchlevel: ditchlevel = level {{Text|'store & reset ditch level|#31C4C4}}
        T(lastt) = {{Text|1|#F580B1}}: Opt(lastt, {{Text|1|#F580B1}}) = s2$: OptWords(lastt, {{Text|1|#F580B1}}) = {{Text|1|#F580B1}}: DontPass(lastt) = {{Text|1|#F580B1}}
        {{Text|'set entry level routine|#31C4C4}}
        EntryLev(lastt) = level {{Text|'default level when continuing a previously entered level|#31C4C4}}
        {{Text|IF|#F0F0F0}} LevelEntered(level) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            EntryLev(lastt) = {{Text|0|#F580B1}}
            {{Text|FOR|#F0F0F0}} i2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} level - {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} LevelEntered(i2) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} EntryLev(lastt) = i2
            {{Text|NEXT|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        LevelEntered(level) = {{Text|1|#F580B1}}
        {{Text|GOTO|#F0F0F0}} nextsymbol
        nextsymbol:
    {{Text|NEXT|#F0F0F0}}
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}}
        {{Text|PRINT|#F0F0F0}} #9, {{Text|"--------SEPERATE ARGUMENTS REPORT #1:1--------"|#FFB100}}
        {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} lastt
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"OPT="|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|RTRIM$|#F0F0F0}}(Opt(i, {{Text|1|#F580B1}})) + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"OPTWORDS="|#FFB100}}; OptWords(i, {{Text|1|#F580B1}})
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"T="|#FFB100}}; T(i)
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"DONTPASS="|#FFB100}}; DontPass(i)
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"PASSRULE="|#FFB100}}; PassRule(i)
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"LEV="|#FFB100}}; Lev(i)
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"ENTRYLEV="|#FFB100}}; EntryLev(i)
        {{Text|NEXT|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'Any symbols already have dontpass() set to 1|#31C4C4}}
    {{Text|'This sets any {}blocks with only one option/word (eg. {PRINT}) at the lowest level to dontpass()=1|#31C4C4}}
    {{Text|'because their content is manadatory and there is no choice as to which word to use|#31C4C4}}
    {{Text|FOR|#F0F0F0}} x = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} lastt
        {{Text|IF|#F0F0F0}} Lev(x) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} T(x) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} DontPass(x) = {{Text|1|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}}
        {{Text|PRINT|#F0F0F0}} #9, {{Text|"--------SEPERATE ARGUMENTS REPORT #1:2--------"|#FFB100}}
        {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} lastt
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"OPT="|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|RTRIM$|#F0F0F0}}(Opt(i, {{Text|1|#F580B1}})) + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"OPTWORDS="|#FFB100}}; OptWords(i, {{Text|1|#F580B1}})
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"T="|#FFB100}}; T(i)
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"DONTPASS="|#FFB100}}; DontPass(i)
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"PASSRULE="|#FFB100}}; PassRule(i)
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"LEV="|#FFB100}}; Lev(i)
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"ENTRYLEV="|#FFB100}}; EntryLev(i)
        {{Text|NEXT|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    x1 = {{Text|0|#F580B1}} {{Text|'the 'x' position of the beginning element of the current levelled block|#31C4C4}}
    MustPassOpt = {{Text|0|#F580B1}} {{Text|'the 'x' position of the FIRST opt () in the block which must be passed|#31C4C4}}
    MustPassOptNeedsFlag = {{Text|0|#F580B1}} {{Text|'{}blocks don't need a flag, ? blocks do|#31C4C4}}
    {{Text|'Note: For something like [{HELLO}x] a choice between passing 'hello' or passing a flag to signify x was specified|#31C4C4}}
    {{Text|'      has to be made, in such cases, a flag is preferable to wasting a full new int32 on 'hello'|#31C4C4}}
    templistn = {{Text|0|#F580B1}}
    {{Text|FOR|#F0F0F0}} l = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|32767|#F580B1}}
        scannextlevel = {{Text|0|#F580B1}}
        {{Text|FOR|#F0F0F0}} x = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} lastt
            {{Text|IF|#F0F0F0}} Lev(x) > l {{Text|THEN|#F0F0F0}} scannextlevel = {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} x1 {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} EntryLev(x) < l {{Text|THEN|#F0F0F0}} {{Text|'end of block reached|#31C4C4}}
                    {{Text|IF|#F0F0F0}} MustPassOpt {{Text|THEN|#F0F0F0}}
                        {{Text|'If there's an opt () which must be passed that will be identified,|#31C4C4}}
                        {{Text|'all the 1 option {}blocks can be assumed...|#31C4C4}}
                        {{Text|IF|#F0F0F0}} MustPassOptNeedsFlag {{Text|THEN|#F0F0F0}}
                            {{Text|'The MustPassOpt requires a flag, so use the same flag for everything|#31C4C4}}
                            {{Text|FOR|#F0F0F0}} x2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} templistn
                                PassRule(TempList(x2)) = PassFlag
                            {{Text|NEXT|#F0F0F0}}
                            PassFlag = PassFlag * {{Text|2|#F580B1}}
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|'The MustPassOpt is a {}block which doesn't need a flag, so everything else needs to|#31C4C4}}
                            {{Text|'reference it|#31C4C4}}
                            {{Text|FOR|#F0F0F0}} x2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} templistn
                                {{Text|IF|#F0F0F0}} TempList(x2) <> MustPassOpt {{Text|THEN|#F0F0F0}} PassRule(TempList(x2)) = {{Text|-MustPassOpt|#F580B1}}
                            {{Text|NEXT|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|'if not, use a unique flag for everything in this block|#31C4C4}}
                        {{Text|FOR|#F0F0F0}} x2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} templistn: PassRule(TempList(x2)) = PassFlag: {{Text|NEXT|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} templistn <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} PassFlag = PassFlag * {{Text|2|#F580B1}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    x1 = {{Text|0|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} Lev(x) = l {{Text|THEN|#F0F0F0}} {{Text|'on same level|#31C4C4}}
                {{Text|IF|#F0F0F0}} EntryLev(x) < l {{Text|THEN|#F0F0F0}} {{Text|'just (re)entered this level (not continuing along it)|#31C4C4}}
                    x1 = x {{Text|'set x1 to the starting element of this level|#31C4C4}}
                    MustPassOpt = {{Text|0|#F580B1}}
                    templistn = {{Text|0|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} x1 {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} Lev(x) = l {{Text|THEN|#F0F0F0}} {{Text|'same level|#31C4C4}}
                    {{Text|IF|#F0F0F0}} T(x) <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|'It isn't a symbol or a {}block with only one option therefore this opt () must be passed|#31C4C4}}
                        {{Text|IF|#F0F0F0}} MustPassOpt = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            MustPassOpt = x {{Text|'Only record the first instance (it MAY require a flag)|#31C4C4}}
                            {{Text|IF|#F0F0F0}} T(x) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} MustPassOptNeedsFlag = {{Text|1|#F580B1}} {{Text|ELSE|#F0F0F0}} MustPassOptNeedsFlag = {{Text|0|#F580B1}}
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|'Update current MustPassOpt to non-flag-based {}block if possible (to save flag usage)|#31C4C4}}
                            {{Text|'(Consider [{A¦B}?], where a flag is not required)|#31C4C4}}
                            {{Text|IF|#F0F0F0}} MustPassOptNeedsFlag = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} T(x) > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    MustPassOpt = x: MustPassOptNeedsFlag = {{Text|0|#F580B1}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|'add to list|#31C4C4}}
                        templistn = templistn + {{Text|1|#F580B1}}: TempList(templistn) = x
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} T(x) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|'It is a symbol or a {}block with only one option|#31C4C4}}
                        {{Text|'a {}block with only one option MAY not need to be passed|#31C4C4}}
                        {{Text|'depending on if anything else is in this block could make the existance of this opt () assumed|#31C4C4}}
                        {{Text|'Note: Symbols which are not encapsulated inside a {}block never need to be passed|#31C4C4}}
                        {{Text|'      Symbols already have dontpass() set to 1|#31C4C4}}
                        {{Text|IF|#F0F0F0}} DontPass(x) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} templistn = templistn + {{Text|1|#F580B1}}: TempList(templistn) = x: DontPass(x) = {{Text|1|#F580B1}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|NEXT|#F0F0F0}}
        {{Text|'scan last run (mostly just a copy of code from above)|#31C4C4}}
        {{Text|IF|#F0F0F0}} x1 {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} MustPassOpt {{Text|THEN|#F0F0F0}}
                {{Text|'If there's an opt () which must be passed that will be identified,|#31C4C4}}
                {{Text|'all the 1 option {}blocks can be assumed...|#31C4C4}}
                {{Text|IF|#F0F0F0}} MustPassOptNeedsFlag {{Text|THEN|#F0F0F0}}
                    {{Text|'The MustPassOpt requires a flag, so use the same flag for everything|#31C4C4}}
                    {{Text|FOR|#F0F0F0}} x2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} templistn
                        PassRule(TempList(x2)) = PassFlag
                    {{Text|NEXT|#F0F0F0}}
                    PassFlag = PassFlag * {{Text|2|#F580B1}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|'The MustPassOpt is a {}block which doesn't need a flag, so everything else needs to|#31C4C4}}
                    {{Text|'reference it|#31C4C4}}
                    {{Text|FOR|#F0F0F0}} x2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} templistn
                        {{Text|IF|#F0F0F0}} TempList(x2) <> MustPassOpt {{Text|THEN|#F0F0F0}} PassRule(TempList(x2)) = {{Text|-MustPassOpt|#F580B1}}
                    {{Text|NEXT|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|'if not, use a unique flag for everything in this block|#31C4C4}}
                {{Text|FOR|#F0F0F0}} x2 = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} templistn: PassRule(TempList(x2)) = PassFlag: {{Text|NEXT|#F0F0F0}}
                {{Text|IF|#F0F0F0}} templistn <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} PassFlag = PassFlag * {{Text|2|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            x1 = {{Text|0|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} scannextlevel = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}}
        {{Text|PRINT|#F0F0F0}} #9, {{Text|"--------SEPERATE ARGUMENTS REPORT #1:3--------"|#FFB100}}
        {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} lastt
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"OPT="|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|RTRIM$|#F0F0F0}}(Opt(i, {{Text|1|#F580B1}})) + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"OPTWORDS="|#FFB100}}; OptWords(i, {{Text|1|#F580B1}})
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"T="|#FFB100}}; T(i)
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"DONTPASS="|#FFB100}}; DontPass(i)
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"PASSRULE="|#FFB100}}; PassRule(i)
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"LEV="|#FFB100}}; Lev(i)
            {{Text|PRINT|#F0F0F0}} #9, i, {{Text|"ENTRYLEV="|#FFB100}}; EntryLev(i)
        {{Text|NEXT|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} lastt: separgs(i) = {{Text|"n-ll"|#FFB100}}: {{Text|NEXT|#F0F0F0}}
    {{Text|'Consider: "?,[?]"|#31C4C4}}
    {{Text|'Notes: The comma is mandatory but the second ? is entirely optional|#31C4C4}}
    {{Text|'Consider: "[?[{B}?]{A}]?"|#31C4C4}}
    {{Text|'Notes: As unlikely as the above is, it is still valid, but pivots on the outcome of {A} being present|#31C4C4}}
    {{Text|'Consider: "[?]{A}"|#31C4C4}}
    {{Text|'Consider: "[?{A}][?{B}][?{C}]?"|#31C4C4}}
    {{Text|'Notes: The trick here is to realize {A} has greater priority than {B}, so all lines of enquiry must|#31C4C4}}
    {{Text|'      be exhausted before considering {B}|#31C4C4}}
    {{Text|'Use inquiry approach to solve format|#31C4C4}}
    {{Text|'Each line of inquiry must be exhausted|#31C4C4}}
    {{Text|'An expression ("?") simply means a branch where you can scan ahead|#31C4C4}}
    Branches = {{Text|0|#F580B1}}
    {{Text|DIM|#F0F0F0}} BranchFormatPos({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|100|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    {{Text|DIM|#F0F0F0}} BranchTaken({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|100|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    {{Text|'1=taken (this usually involves moving up a level)|#31C4C4}}
    {{Text|'0=not taken|#31C4C4}}
    {{Text|DIM|#F0F0F0}} BranchInputPos({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|100|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    {{Text|DIM|#F0F0F0}} BranchWithExpression({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|100|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    {{Text|'non-zero=expression expected before next item for format item value represents|#31C4C4}}
    {{Text|'0=no expression allowed before next item|#31C4C4}}
    {{Text|DIM|#F0F0F0}} BranchLevel({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|100|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}} {{Text|'Level before this branch was/wasn't taken|#31C4C4}}
    n = numelements(ca$)
    i = {{Text|1|#F580B1}} {{Text|'Position within ca$|#31C4C4}}
    level = {{Text|0|#F580B1}}
    Expression = {{Text|0|#F580B1}}
    {{Text|FOR|#F0F0F0}} x = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} lastt
        ContinueScan:
        {{Text|IF|#F0F0F0}} DitchLev(x) < level {{Text|THEN|#F0F0F0}} {{Text|'dropping down to a lower level|#31C4C4}}
            {{Text|'we can only go as low as the 'ditch' will allow us, which will limit our options|#31C4C4}}
            level = DitchLev(x)
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} EntryLev(x) <= level {{Text|THEN|#F0F0F0}} {{Text|'possible to enter level|#31C4C4}}
            {{Text|'But was this optional or were we forced to be on this level?|#31C4C4}}
            {{Text|IF|#F0F0F0}} EntryLev(x) < Lev(x) {{Text|THEN|#F0F0F0}}
                optional = {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} level > EntryLev(x) {{Text|THEN|#F0F0F0}} optional = {{Text|0|#F580B1}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|'entrylev=lev|#31C4C4}}
                optional = {{Text|0|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            t = T(x)
            {{Text|IF|#F0F0F0}} t = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'A "?" expression|#31C4C4}}
                {{Text|IF|#F0F0F0}} Expression {{Text|THEN|#F0F0F0}}
                    {{Text|'*********backtrack************|#31C4C4}}
                    {{Text|'We are tracking an expression which we assumed would be present but was not|#31C4C4}}
                    {{Text|GOTO|#F0F0F0}} Backtrack
                    {{Text|'******************************|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} optional {{Text|THEN|#F0F0F0}}
                    Branches = Branches + {{Text|1|#F580B1}}
                    BranchFormatPos(Branches) = x
                    BranchTaken(Branches) = {{Text|1|#F580B1}}
                    BranchInputPos(Branches) = i
                    BranchWithExpression(Branches) = {{Text|0|#F580B1}}
                    BranchLevel(Branches) = level
                    level = Lev(x)
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                Expression = x
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'A "?" expression|#31C4C4}}
            {{Text|IF|#F0F0F0}} t {{Text|THEN|#F0F0F0}}
                currentlev = level
                {{Text|'Add new branch if new level will be entered|#31C4C4}}
                {{Text|IF|#F0F0F0}} optional {{Text|THEN|#F0F0F0}}
                    Branches = Branches + {{Text|1|#F580B1}}
                    BranchFormatPos(Branches) = x
                    BranchTaken(Branches) = {{Text|1|#F580B1}}
                    BranchInputPos(Branches) = i
                    BranchWithExpression(Branches) = Expression
                    BranchLevel(Branches) = level
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|'Scan for Opt () options|#31C4C4}}
                i1 = i: i2 = i
                {{Text|IF|#F0F0F0}} Expression {{Text|THEN|#F0F0F0}} i2 = n
                {{Text|'Scan a$ for opt () x|#31C4C4}}
                {{Text|'Note: Finding the closest opt option is necessary|#31C4C4}}
                {{Text|'Note: This needs to be bracket sensitive|#31C4C4}}
                OutOfRange = {{Text|2147483647|#F580B1}}
                position = OutOfRange
                which = {{Text|0|#F580B1}}
                removePrefix = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} i <= n {{Text|THEN|#F0F0F0}} {{Text|'Past end of contect check|#31C4C4}}
                    {{Text|FOR|#F0F0F0}} o = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} t
                        words = OptWords(x, o)
                        b = {{Text|0|#F580B1}}
                        {{Text|FOR|#F0F0F0}} i3 = i1 {{Text|TO|#F0F0F0}} i2
                            {{Text|IF|#F0F0F0}} i3 + words - {{Text|1|#F580B1}} <= n {{Text|THEN|#F0F0F0}} {{Text|'enough elements exist|#31C4C4}}
                                c$ = getelement$(a$, i3)
                                {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|'Build comparison string (spacing elements)|#31C4C4}}
                                    {{Text|FOR|#F0F0F0}} w = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} words
                                        c$ = c$ + {{Text|" "|#FFB100}} + getelement$(a$, i3 + w - {{Text|1|#F580B1}})
                                    {{Text|NEXT|#F0F0F0}} w
                                    {{Text|'Compare|#31C4C4}}
                                    noPrefixMatch = {{Text|LEFT$|#F0F0F0}}(Opt(x, o), {{Text|1|#F580B1}}) = {{Text|"_"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} c$ = {{Text|UCASE$|#F0F0F0}}({{Text|MID$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(Opt(x, o)), {{Text|2|#F580B1}}))
                                    {{Text|IF|#F0F0F0}} c$ = {{Text|UCASE$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(Opt(x, o))) {{Text|OR|#F0F0F0}} noPrefixMatch {{Text|THEN|#F0F0F0}}
                                        {{Text|'Record Match|#31C4C4}}
                                        {{Text|IF|#F0F0F0}} i3 < position {{Text|THEN|#F0F0F0}}
                                            position = i3
                                            which = o
                                            {{Text|IF|#F0F0F0}} noPrefixMatch {{Text|THEN|#F0F0F0}} removePrefix = {{Text|1|#F580B1}}
                                            bvalue = b
                                            {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}} {{Text|'Exit the i3 loop|#31C4C4}}
                                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'position check|#31C4C4}}
                                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'match|#31C4C4}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(c$) = {{Text|44|#F580B1}} {{Text|AND|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}} {{Text|'Expressions cannot contain a "," in their base level|#31C4C4}}
                                    {{Text|'Because this wasn't interceppted by the above code it isn't the Opt either|#31C4C4}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(c$) = {{Text|40|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    b = b + {{Text|1|#F580B1}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(c$) = {{Text|41|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    b = b - {{Text|1|#F580B1}}
                                    {{Text|IF|#F0F0F0}} b = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}} {{Text|'Exited current bracketting level, making any following match invalid|#31C4C4}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'enough elements exist|#31C4C4}}
                        {{Text|NEXT|#F0F0F0}} i3
                    {{Text|NEXT|#F0F0F0}} o
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'Past end of contect check|#31C4C4}}
                {{Text|IF|#F0F0F0}} position <> OutOfRange {{Text|THEN|#F0F0F0}} {{Text|'Found?|#31C4C4}}
                    {{Text|'Found...|#31C4C4}}
                    level = Lev(x) {{Text|'Adjust level|#31C4C4}}
                    {{Text|IF|#F0F0F0}} Expression {{Text|THEN|#F0F0F0}}
                        {{Text|'Found...Expression...|#31C4C4}}
                        {{Text|'Has an expression been provided?|#31C4C4}}
                        {{Text|IF|#F0F0F0}} position > i {{Text|AND|#F0F0F0}} bvalue = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|'Found...Expression...Provided...|#31C4C4}}
                            separgs(Expression) = getelements$(ca$, i, position - {{Text|1|#F580B1}})
                            Expression = {{Text|0|#F580B1}}
                            i = position
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|'Found...Expression...Omitted...|#31C4C4}}
                            {{Text|'*********backtrack************|#31C4C4}}
                            {{Text|GOTO|#F0F0F0}} OptCheckBacktrack
                            {{Text|'******************************|#31C4C4}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'Expression|#31C4C4}}
                    i = i + OptWords(x, which)
                    separgslayout(x) = {{Text|CHR$|#F0F0F0}}({{Text|LEN|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(Opt(x, which))) - removePrefix) + SCase$({{Text|MID$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(Opt(x, which)), removePrefix + {{Text|1|#F580B1}}))
                    separgs(x) = {{Text|CHR$|#F0F0F0}}({{Text|0|#F580B1}}) + str2(which)
                {{Text|ELSE|#F0F0F0}}
                    {{Text|'Not Found...|#31C4C4}}
                    {{Text|'*********backtrack************|#31C4C4}}
                    OptCheckBacktrack:
                    {{Text|'Was this optional?|#31C4C4}}
                    {{Text|IF|#F0F0F0}} Lev(x) > EntryLev(x) {{Text|THEN|#F0F0F0}} {{Text|'Optional Opt ()?|#31C4C4}}
                        {{Text|'Not Found...Optional...|#31C4C4}}
                        {{Text|'Simply don't enter the optional higher level and continue as normal|#31C4C4}}
                        BranchTaken(Branches) = {{Text|0|#F580B1}}
                        level = currentlev {{Text|'We aren't entering the level after all, so our level should remain at the opt's entrylevel|#31C4C4}}
                    {{Text|ELSE|#F0F0F0}}
                        Backtrack:
                        {{Text|'Not Found...Mandatory...|#31C4C4}}
                        {{Text|'1)Erase previous branches where both options have been tried|#31C4C4}}
                        {{Text|FOR|#F0F0F0}} branch = Branches {{Text|TO|#F0F0F0}} {{Text|1|#F580B1}} {{Text|STEP|#F0F0F0}} {{Text|-1|#F580B1}} {{Text|'Remove branches until last taken branch is found|#31C4C4}}
                            {{Text|IF|#F0F0F0}} BranchTaken(branch) {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                            Branches = Branches - {{Text|1|#F580B1}} {{Text|'Remove branch (it has already been tried with both possible combinations)|#31C4C4}}
                        {{Text|NEXT|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} Branches = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'All options have been exhausted|#31C4C4}}
                            seperateargs_error = {{Text|1|#F580B1}}
                            seperateargs_error_message = {{Text|"Syntax error"|#FFB100}}
                            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(id2.hr_syntax) > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} seperateargs_error_message = seperateargs_error_message + {{Text|" - Reference: "|#FFB100}} + id2.hr_syntax
                            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|'2)Toggle taken branch to untaken and revert|#31C4C4}}
                        BranchTaken(Branches) = {{Text|0|#F580B1}} {{Text|'toggle branch to untaken|#31C4C4}}
                        Expression = BranchWithExpression(Branches)
                        i = BranchInputPos(Branches)
                        x = BranchFormatPos(Branches)
                        level = BranchLevel(Branches)
                        {{Text|'3)Erase any content created after revert position|#31C4C4}}
                        {{Text|IF|#F0F0F0}} Expression {{Text|THEN|#F0F0F0}} separgs(Expression) = {{Text|"n-ll"|#FFB100}}
                        {{Text|FOR|#F0F0F0}} x2 = x {{Text|TO|#F0F0F0}} lastt
                            separgs(x2) = {{Text|"n-ll"|#FFB100}}
                            separgslayout(x2) = {{Text|""|#FFB100}}
                        {{Text|NEXT|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'Optional Opt ()?|#31C4C4}}
                    {{Text|'******************************|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'Found?|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'t|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'possible to enter level|#31C4C4}}
    {{Text|NEXT|#F0F0F0}} x
    {{Text|'Final expression?|#31C4C4}}
    {{Text|IF|#F0F0F0}} Expression {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} i <= n {{Text|THEN|#F0F0F0}}
            separgs(Expression) = getelements$(ca$, i, n)
            {{Text|'can this be an expression?|#31C4C4}}
            {{Text|'check it passes bracketting and comma rules|#31C4C4}}
            b = {{Text|0|#F580B1}}
            {{Text|FOR|#F0F0F0}} i2 = i {{Text|TO|#F0F0F0}} n
                c$ = getelement$(a$, i2)
                {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(c$) = {{Text|44|#F580B1}} {{Text|AND|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|GOTO|#F0F0F0}} Backtrack
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(c$) = {{Text|40|#F580B1}} {{Text|THEN|#F0F0F0}}
                    b = b + {{Text|1|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(c$) = {{Text|41|#F580B1}} {{Text|THEN|#F0F0F0}}
                    b = b - {{Text|1|#F580B1}}
                    {{Text|IF|#F0F0F0}} b = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} Backtrack
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            {{Text|IF|#F0F0F0}} b <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} Backtrack
            i = n + {{Text|1|#F580B1}} {{Text|'So it passes the test below|#31C4C4}}
        {{Text|ELSE|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} Backtrack
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'Expression|#31C4C4}}
    {{Text|IF|#F0F0F0}} i <> n + {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} Backtrack {{Text|'Trailing content?|#31C4C4}}
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}}
        {{Text|PRINT|#F0F0F0}} #9, {{Text|"--------SEPERATE ARGUMENTS REPORT #2--------"|#FFB100}}
        {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} lastt
            {{Text|PRINT|#F0F0F0}} #9, i, separgs(i)
        {{Text|NEXT|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'  DIM PassRule(1 TO 100) AS LONG|#31C4C4}}
    {{Text|'  '0 means no pass rule|#31C4C4}}
    {{Text|'  'negative values refer to an opt () element|#31C4C4}}
    {{Text|'  'positive values refer to a flag value|#31C4C4}}
    {{Text|'  PassFlag = 1|#31C4C4}}
    {{Text|IF|#F0F0F0}} PassFlag <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} seperateargs = {{Text|1|#F580B1}} {{Text|'Return whether a 'passed' flags variable is required|#31C4C4}}
    pass& = {{Text|0|#F580B1}} {{Text|'The 'passed' value (shared by argument reference)|#31C4C4}}
    {{Text|'Note: The separgs() elements will be compacted to the C++ function arguments|#31C4C4}}
    x = {{Text|1|#F580B1}} {{Text|'The new index to move compacted content to within separgs()|#31C4C4}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} lastt
        {{Text|IF|#F0F0F0}} DontPass(i) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} PassRule(i) > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} separgs(i) <> {{Text|"n-ll"|#FFB100}} {{Text|THEN|#F0F0F0}} pass& = pass& {{Text|OR|#F0F0F0}} PassRule(i) {{Text|'build 'passed' flags|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            separgs(x) = separgs(i)
            separgslayout(x) = separgslayout(i)
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(separgs(x)) {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(separgs(x)) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|'switch omit layout tag from item to layout info|#31C4C4}}
                    separgs(x) = {{Text|RIGHT$|#F0F0F0}}(separgs(x), {{Text|LEN|#F0F0F0}}(separgs(x)) - {{Text|1|#F580B1}})
                    separgslayout(x) = separgslayout(x) + {{Text|CHR$|#F0F0F0}}({{Text|0|#F580B1}})
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} separgs(x) = {{Text|"n-ll"|#FFB100}} {{Text|THEN|#F0F0F0}} separgs(x) = {{Text|"N-LL"|#FFB100}}
            x = x + {{Text|1|#F580B1}}
        {{Text|ELSE|#F0F0F0}}
            {{Text|'its gonna be skipped!|#31C4C4}}
            {{Text|'add layout to the next one to be safe|#31C4C4}}
            {{Text|'for syntax such as [{HELLO}] which uses a flag instead of being passed|#31C4C4}}
            {{Text|IF|#F0F0F0}} PassRule(i) > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} separgs(i) <> {{Text|"n-ll"|#FFB100}} {{Text|THEN|#F0F0F0}} pass& = pass& {{Text|OR|#F0F0F0}} PassRule(i) {{Text|'build 'passed' flags|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            separgslayout(i + {{Text|1|#F580B1}}) = separgslayout(i) + separgslayout(i + {{Text|1|#F580B1}})
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    separgslayout(x) = separgslayout(i) {{Text|'set final layout|#31C4C4}}
    {{Text|'x = x - 1|#31C4C4}}
    {{Text|'PRINT "total arguments:"; x|#31C4C4}}
    {{Text|'PRINT "pass omit (0/1):"; omit|#31C4C4}}
    {{Text|'PRINT "pass&="; pass&|#31C4C4}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|SUB|#F0F0F0}} setrefer (a2$, typ2 {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, e2$, method {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}})
    a$ = a2$: typ = typ2: e$ = e2$
    {{Text|IF|#F0F0F0}} method <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = fixoperationorder$(e$)
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    tl$ = tlayout$
    {{Text|'method: 0 evaulatetotyp e$|#31C4C4}}
    {{Text|'        1 skip evaluation of e$ and use as is|#31C4C4}}
    {{Text|'*due to the complexity of setting a reference with a value/string|#31C4C4}}
    {{Text|' this function handles the problem|#31C4C4}}
    {{Text|'retrieve ID|#31C4C4}}
    i = {{Text|INSTR|#F0F0F0}}(a$, sp3)
    {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}}
        idnumber = {{Text|VAL|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(a$, i - {{Text|1|#F580B1}})): a$ = {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - i)
    {{Text|ELSE|#F0F0F0}}
        idnumber = {{Text|VAL|#F0F0F0}}(a$)
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    getid idnumber
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    {{Text|'UDT?|#31C4C4}}
    {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
        {{Text|'print "setrefer-ing a UDT!"|#31C4C4}}
        u = {{Text|VAL|#F0F0F0}}(a$)
        i = {{Text|INSTR|#F0F0F0}}(a$, sp3): a$ = {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - i): E = {{Text|VAL|#F0F0F0}}(a$)
        i = {{Text|INSTR|#F0F0F0}}(a$, sp3): o$ = {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - i)
        n$ = {{Text|"UDT_"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(id.n): {{Text|IF|#F0F0F0}} id.t = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} n$ = {{Text|"ARRAY_"|#FFB100}} + n$ + {{Text|"[0]"|#FFB100}}
        {{Text|IF|#F0F0F0}} E <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} u = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'Setting _MEM type elements is not allowed!|#31C4C4}}
            Give_Error {{Text|"Cannot set read-only element of _MEM TYPE"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} E = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|'use u and u's size|#31C4C4}}
            {{Text|IF|#F0F0F0}} method <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Unexpected internal code reference to UDT"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            lhsscope$ = scope$
            e$ = evaluate(e$, t2)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (t2 {{Text|AND|#F0F0F0}} ISUDT) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected = similar user defined type"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (t2 {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} t2 {{Text|AND|#F0F0F0}} ISPOINTER {{Text|THEN|#F0F0F0}}
                    src$ = {{Text|"((char*)"|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                    e2 = {{Text|0|#F580B1}}: u2 = t2 {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                {{Text|ELSE|#F0F0F0}}
                    src$ = {{Text|"((char*)&"|#FFB100}} + e$ + {{Text|")"|#FFB100}}
                    e2 = {{Text|0|#F580B1}}: u2 = t2 {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|GOTO|#F0F0F0}} directudt
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'****problem****|#31C4C4}}
            idnumber2 = {{Text|VAL|#F0F0F0}}(e$)
            getid idnumber2
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            n2$ = {{Text|"UDT_"|#FFB100}} + {{Text|RTRIM$|#F0F0F0}}(id.n): {{Text|IF|#F0F0F0}} id.t = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} n2$ = {{Text|"ARRAY_"|#FFB100}} + n2$ + {{Text|"[0]"|#FFB100}}
            i = {{Text|INSTR|#F0F0F0}}(e$, sp3): e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - i): u2 = {{Text|VAL|#F0F0F0}}(e$)
            i = {{Text|INSTR|#F0F0F0}}(e$, sp3): e$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - i): e2 = {{Text|VAL|#F0F0F0}}(e$)
            i = {{Text|INSTR|#F0F0F0}}(e$, sp3): o2$ = {{Text|RIGHT$|#F0F0F0}}(e$, {{Text|LEN|#F0F0F0}}(e$) - i)
            {{Text|'WARNING: u2 may need minor modifications based on e to see if they are the same|#31C4C4}}
            {{Text|'we have now established we have 2 pointers to similar data types!|#31C4C4}}
            {{Text|'ASSUME BYTE TYPE!!!|#31C4C4}}
            src$ = {{Text|"((char*)"|#FFB100}} + scope$ + n2$ + {{Text|")+("|#FFB100}} + o2$ + {{Text|")"|#FFB100}}
            directudt:
            {{Text|IF|#F0F0F0}} u <> u2 {{Text|OR|#F0F0F0}} e2 <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected = similar user defined type"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            dst$ = {{Text|"((char*)"|#FFB100}} + lhsscope$ + n$ + {{Text|")+("|#FFB100}} + o$ + {{Text|")"|#FFB100}}
            copy_full_udt dst$, src$, MainTxtBuf, {{Text|0|#F580B1}}, u
            {{Text|'print "setFULLUDTrefer!"|#31C4C4}}
            tlayout$ = tl$
            {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'e=0|#31C4C4}}
        {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISOFFSETINBITS {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot resolve bit-length variables inside user defined types"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
        {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}}
                o2$ = {{Text|"(((uint8*)"|#FFB100}} + scope$ + n$ + {{Text|")+("|#FFB100}} + o$ + {{Text|"))"|#FFB100}}
                r$ = {{Text|"qbs_new_fixed("|#FFB100}} + o2$ + {{Text|","|#FFB100}} + str2(udtetypesize(E)) + {{Text|",1)"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                r$ = {{Text|"*((qbs**)((char*)("|#FFB100}} + scope$ + n$ + {{Text|")+("|#FFB100}} + o$ + {{Text|")))"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = evaluatetotyp(e$, STRINGTYPE - ISPOINTER)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            WriteBufLine MainTxtBuf, {{Text|"qbs_set("|#FFB100}} + r$ + {{Text|","|#FFB100}} + e$ + {{Text|");"|#FFB100}}
            WriteBufLine MainTxtBuf, cleanupstringprocessingcall$ + {{Text|"0);"|#FFB100}}
        {{Text|ELSE|#F0F0F0}}
            typ = typ - ISUDT - ISREFERENCE - ISPOINTER
            {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISARRAY {{Text|THEN|#F0F0F0}} typ = typ - ISARRAY
            t$ = typ2ctyp$(typ, {{Text|""|#FFB100}})
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            o2$ = {{Text|"(((char*)"|#FFB100}} + scope$ + n$ + {{Text|")+("|#FFB100}} + o$ + {{Text|"))"|#FFB100}}
            r$ = {{Text|"*"|#FFB100}} + {{Text|"("|#FFB100}} + t$ + {{Text|"*)"|#FFB100}} + o2$
            {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = evaluatetotyp(e$, typ)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            WriteBufLine MainTxtBuf, r$ + {{Text|"="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'print "setUDTrefer:"+r$,e$|#31C4C4}}
        tlayout$ = tl$
        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(r$, {{Text|1|#F580B1}}) = {{Text|"*"|#FFB100}} {{Text|THEN|#F0F0F0}} r$ = {{Text|MID$|#F0F0F0}}(r$, {{Text|2|#F580B1}})
        {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'array?|#31C4C4}}
    {{Text|IF|#F0F0F0}} id.arraytype {{Text|THEN|#F0F0F0}}
        n$ = {{Text|RTRIM$|#F0F0F0}}(id.callname)
        typ = typ - ISPOINTER - ISREFERENCE {{Text|'typ now looks like a regular value|#31C4C4}}
        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) {{Text|THEN|#F0F0F0}}
                offset$ = {{Text|"&((uint8*)("|#FFB100}} + n$ + {{Text|"[0]))[tmp_long*"|#FFB100}} + str2(id.tsize) + {{Text|"]"|#FFB100}}
                r$ = {{Text|"qbs_new_fixed("|#FFB100}} + offset$ + {{Text|","|#FFB100}} + str2(id.tsize) + {{Text|",1)"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"tmp_long="|#FFB100}} + a$ + {{Text|";"|#FFB100}}
                {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    l$ = {{Text|"if (!new_error) qbs_set("|#FFB100}} + r$ + {{Text|","|#FFB100}} + evaluatetotyp(e$, typ) + {{Text|");"|#FFB100}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                {{Text|ELSE|#F0F0F0}}
                    l$ = {{Text|"if (!new_error) qbs_set("|#FFB100}} + r$ + {{Text|","|#FFB100}} + e$ + {{Text|");"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                WriteBufLine MainTxtBuf, l$
            {{Text|ELSE|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"tmp_long="|#FFB100}} + a$ + {{Text|";"|#FFB100}}
                {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    l$ = {{Text|"if (!new_error) qbs_set( ((qbs*)(((uint64*)("|#FFB100}} + n$ + {{Text|"[0]))[tmp_long])),"|#FFB100}} + evaluatetotyp(e$, typ) + {{Text|");"|#FFB100}}
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                {{Text|ELSE|#F0F0F0}}
                    l$ = {{Text|"if (!new_error) qbs_set( ((qbs*)(((uint64*)("|#FFB100}} + n$ + {{Text|"[0]))[tmp_long])),"|#FFB100}} + e$ + {{Text|");"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                WriteBufLine MainTxtBuf, l$
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            WriteBufLine MainTxtBuf, cleanupstringprocessingcall$ + {{Text|"0);"|#FFB100}}
            tlayout$ = tl$
            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(r$, {{Text|1|#F580B1}}) = {{Text|"*"|#FFB100}} {{Text|THEN|#F0F0F0}} r$ = {{Text|MID$|#F0F0F0}}(r$, {{Text|2|#F580B1}})
            {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}}
            {{Text|'r$ = "setbits_" + str2(typ AND 511) + "("|#31C4C4}}
            r$ = {{Text|"setbits("|#FFB100}} + str2(typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) + {{Text|","|#FFB100}}
            r$ = r$ + {{Text|"(uint8*)("|#FFB100}} + n$ + {{Text|"[0])"|#FFB100}} + {{Text|",tmp_long,"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"tmp_long="|#FFB100}} + a$ + {{Text|";"|#FFB100}}
            {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                l$ = {{Text|"if (!new_error) "|#FFB100}} + r$ + evaluatetotyp(e$, typ) + {{Text|");"|#FFB100}}
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}}
                l$ = {{Text|"if (!new_error) "|#FFB100}} + r$ + e$ + {{Text|");"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            WriteBufLine MainTxtBuf, l$
            tlayout$ = tl$
            {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
        {{Text|ELSE|#F0F0F0}}
            t$ = {{Text|""|#FFB100}}
            {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"float"|#FFB100}}
                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"double"|#FFB100}}
                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|256|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"long double"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"uint8"|#FFB100}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"uint16"|#FFB100}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"uint32"|#FFB100}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"uint64"|#FFB100}}
                    {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISOFFSET {{Text|THEN|#F0F0F0}} t$ = {{Text|"uptrszint"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"int8"|#FFB100}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"int16"|#FFB100}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"int32"|#FFB100}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"int64"|#FFB100}}
                    {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISOFFSET {{Text|THEN|#F0F0F0}} t$ = {{Text|"ptrszint"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} t$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot find C type to return array data"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
        WriteBufLine MainTxtBuf, {{Text|"tmp_long="|#FFB100}} + a$ + {{Text|";"|#FFB100}}
        {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            l$ = {{Text|"if (!new_error) (("|#FFB100}} + t$ + {{Text|"*)("|#FFB100}} + n$ + {{Text|"[0]))[tmp_long]="|#FFB100}} + evaluatetotyp(e$, typ) + {{Text|";"|#FFB100}}
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
        {{Text|ELSE|#F0F0F0}}
            l$ = {{Text|"if (!new_error) (("|#FFB100}} + t$ + {{Text|"*)("|#FFB100}} + n$ + {{Text|"[0]))[tmp_long]="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        WriteBufLine MainTxtBuf, l$
        tlayout$ = tl$
        {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'array|#31C4C4}}
    {{Text|'variable?|#31C4C4}}
    {{Text|IF|#F0F0F0}} id.t {{Text|THEN|#F0F0F0}}
        r$ = {{Text|RTRIM$|#F0F0F0}}(id.n)
        t = id.t
        {{Text|'remove irrelavant flags|#31C4C4}}
        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISINCONVENTIONALMEMORY) {{Text|THEN|#F0F0F0}} t = t - ISINCONVENTIONALMEMORY
        typ = t
        {{Text|'string variable?|#31C4C4}}
        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) {{Text|THEN|#F0F0F0}}
                r$ = scope$ + {{Text|"STRING"|#FFB100}} + str2(id.tsize) + {{Text|"_"|#FFB100}} + r$
            {{Text|ELSE|#F0F0F0}}
                r$ = scope$ + {{Text|"STRING_"|#FFB100}} + r$
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = evaluatetotyp(e$, ISSTRING)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            WriteBufLine MainTxtBuf, {{Text|"qbs_set("|#FFB100}} + r$ + {{Text|","|#FFB100}} + e$ + {{Text|");"|#FFB100}}
            WriteBufLine MainTxtBuf, cleanupstringprocessingcall$ + {{Text|"0);"|#FFB100}}
            {{Text|IF|#F0F0F0}} arrayprocessinghappened {{Text|THEN|#F0F0F0}} arrayprocessinghappened = {{Text|0|#F580B1}}
            tlayout$ = tl$
            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(r$, {{Text|1|#F580B1}}) = {{Text|"*"|#FFB100}} {{Text|THEN|#F0F0F0}} r$ = {{Text|MID$|#F0F0F0}}(r$, {{Text|2|#F580B1}})
            {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'bit-length variable?|#31C4C4}}
        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}}
            b = t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}}
                r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"UBIT"|#FFB100}} + str2(t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) + {{Text|"_"|#FFB100}} + r$
                {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = evaluatetotyp(e$, {{Text|64&|#F580B1}} + ISUNSIGNED)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                l$ = r$ + {{Text|"=("|#FFB100}} + e$ + {{Text|")&"|#FFB100}} + str2(bitmask(b)) + {{Text|";"|#FFB100}}
                WriteBufLine MainTxtBuf, l$
            {{Text|ELSE|#F0F0F0}}
                r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"BIT"|#FFB100}} + str2(t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) + {{Text|"_"|#FFB100}} + r$
                {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = evaluatetotyp(e$, {{Text|64&|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                l$ = {{Text|"if (("|#FFB100}} + r$ + {{Text|"="|#FFB100}} + e$ + {{Text|")&"|#FFB100}} + str2({{Text|2|#F580B1}} ^ (b - {{Text|1|#F580B1}})) + {{Text|"){"|#FFB100}}
                WriteBufLine MainTxtBuf, l$
                {{Text|'signed bit is set|#31C4C4}}
                l$ = r$ + {{Text|"¦="|#FFB100}} + str2(bitmaskinv(b)) + {{Text|";"|#FFB100}}
                WriteBufLine MainTxtBuf, l$
                WriteBufLine MainTxtBuf, {{Text|"}else{"|#FFB100}}
                {{Text|'signed bit is not set|#31C4C4}}
                l$ = r$ + {{Text|"&="|#FFB100}} + str2(bitmask(b)) + {{Text|";"|#FFB100}}
                WriteBufLine MainTxtBuf, l$
                WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} stringprocessinghappened {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, cleanupstringprocessingcall$ + {{Text|"0);"|#FFB100}}: stringprocessinghappened = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} arrayprocessinghappened {{Text|THEN|#F0F0F0}} arrayprocessinghappened = {{Text|0|#F580B1}}
            tlayout$ = tl$
            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(r$, {{Text|1|#F580B1}}) = {{Text|"*"|#FFB100}} {{Text|THEN|#F0F0F0}} r$ = {{Text|MID$|#F0F0F0}}(r$, {{Text|2|#F580B1}})
            {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|'standard variable?|#31C4C4}}
        {{Text|IF|#F0F0F0}} t = BYTETYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"BYTE_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} sref
        {{Text|IF|#F0F0F0}} t = UBYTETYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"UBYTE_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} sref
        {{Text|IF|#F0F0F0}} t = INTEGERTYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"INTEGER_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} sref
        {{Text|IF|#F0F0F0}} t = UINTEGERTYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"UINTEGER_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} sref
        {{Text|IF|#F0F0F0}} t = LONGTYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"LONG_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} sref
        {{Text|IF|#F0F0F0}} t = ULONGTYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"ULONG_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} sref
        {{Text|IF|#F0F0F0}} t = INTEGER64TYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"INTEGER64_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} sref
        {{Text|IF|#F0F0F0}} t = UINTEGER64TYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"UINTEGER64_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} sref
        {{Text|IF|#F0F0F0}} t = SINGLETYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"SINGLE_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} sref
        {{Text|IF|#F0F0F0}} t = DOUBLETYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"DOUBLE_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} sref
        {{Text|IF|#F0F0F0}} t = FLOATTYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"FLOAT_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} sref
        {{Text|IF|#F0F0F0}} t = OFFSETTYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"OFFSET_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} sref
        {{Text|IF|#F0F0F0}} t = UOFFSETTYPE {{Text|THEN|#F0F0F0}} r$ = {{Text|"*"|#FFB100}} + scope$ + {{Text|"UOFFSET_"|#FFB100}} + r$: {{Text|GOTO|#F0F0F0}} sref
        sref:
        t2 = t - ISPOINTER
        {{Text|IF|#F0F0F0}} method = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = evaluatetotyp(e$, t2)
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
        l$ = r$ + {{Text|"="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
        WriteBufLine MainTxtBuf, l$
        {{Text|IF|#F0F0F0}} stringprocessinghappened {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, cleanupstringprocessingcall$ + {{Text|"0);"|#FFB100}}: stringprocessinghappened = {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} arrayprocessinghappened {{Text|THEN|#F0F0F0}} arrayprocessinghappened = {{Text|0|#F580B1}}
        tlayout$ = tl$
        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(r$, {{Text|1|#F580B1}}) = {{Text|"*"|#FFB100}} {{Text|THEN|#F0F0F0}} r$ = {{Text|MID$|#F0F0F0}}(r$, {{Text|2|#F580B1}})
        {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'variable|#31C4C4}}
    tlayout$ = tl$
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} str2$ (v {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}})
    str2$ = {{Text|_TRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(v))
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} str2u64$ (v~&&)
    str2u64$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(v~&&)))
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} str2i64$ (v&&)
    str2i64$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(v&&)))
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} typ2ctyp$ (t {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, tstr {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}})
    ctyp$ = {{Text|""|#FFB100}}
    {{Text|'typ can be passed as either: (the unused value is ignored)|#31C4C4}}
    {{Text|'i. as a typ value in t|#31C4C4}}
    {{Text|'ii. as a typ symbol (eg. "~%") in tstr|#31C4C4}}
    {{Text|'iii. as a typ name (eg. _UNSIGNED INTEGER) in tstr|#31C4C4}}
    {{Text|IF|#F0F0F0}} tstr$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISARRAY) {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'cannot return array types|#31C4C4}}
        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} typ2ctyp$ = {{Text|"qbs"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        b = t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUDT) {{Text|THEN|#F0F0F0}} typ2ctyp$ = {{Text|"void"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} b <= {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"int32"|#FFB100}} {{Text|ELSE|#F0F0F0}} ctyp$ = {{Text|"int64"|#FFB100}}
            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"u"|#FFB100}} + ctyp$
            typ2ctyp$ = ctyp$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} b = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"float"|#FFB100}}
            {{Text|IF|#F0F0F0}} b = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"double"|#FFB100}}
            {{Text|IF|#F0F0F0}} b = {{Text|256|#F580B1}} {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"long double"|#FFB100}}
        {{Text|ELSE|#F0F0F0}}
            {{Text|IF|#F0F0F0}} b = {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"int8"|#FFB100}}
            {{Text|IF|#F0F0F0}} b = {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"int16"|#FFB100}}
            {{Text|IF|#F0F0F0}} b = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"int32"|#FFB100}}
            {{Text|IF|#F0F0F0}} b = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"int64"|#FFB100}}
            {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISOFFSET {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"ptrszint"|#FFB100}}
            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"u"|#FFB100}} + ctyp$
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISOFFSET {{Text|THEN|#F0F0F0}}
            ctyp$ = {{Text|"ptrszint"|#FFB100}}: {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"uptrszint"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        typ2ctyp$ = ctyp$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    ts$ = tstr$
    {{Text|'is ts$ a symbol?|#31C4C4}}
    {{Text|IF|#F0F0F0}} ts$ = {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"qbs"|#FFB100}}
    {{Text|IF|#F0F0F0}} ts$ = {{Text|"!"|#FFB100}} {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"float"|#FFB100}}
    {{Text|IF|#F0F0F0}} ts$ = {{Text|"#"|#FFB100}} {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"double"|#FFB100}}
    {{Text|IF|#F0F0F0}} ts$ = {{Text|"##"|#FFB100}} {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"long double"|#FFB100}}
    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(ts$, {{Text|1|#F580B1}}) = {{Text|"~"|#FFB100}} {{Text|THEN|#F0F0F0}} unsgn = {{Text|1|#F580B1}}: ts$ = {{Text|RIGHT$|#F0F0F0}}(ts$, {{Text|LEN|#F0F0F0}}(ts$) - {{Text|1|#F580B1}})
    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(ts$, {{Text|1|#F580B1}}) = {{Text|"`"|#FFB100}} {{Text|THEN|#F0F0F0}}
        n$ = {{Text|RIGHT$|#F0F0F0}}(ts$, {{Text|LEN|#F0F0F0}}(ts$) - {{Text|1|#F580B1}})
        b = {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} n$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} isuinteger(n$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid index after _BIT type"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            b = {{Text|VAL|#F0F0F0}}(n$)
            {{Text|IF|#F0F0F0}} b > {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid index after _BIT type"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} b <= {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"int32"|#FFB100}} {{Text|ELSE|#F0F0F0}} ctyp$ = {{Text|"int64"|#FFB100}}
        {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"u"|#FFB100}} + ctyp$
        typ2ctyp$ = ctyp$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} ts$ = {{Text|"%&"|#FFB100}} {{Text|THEN|#F0F0F0}}
        typ2ctyp$ = {{Text|"ptrszint"|#FFB100}}: {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}} typ2ctyp$ = {{Text|"uptrszint"|#FFB100}}
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} ts$ = {{Text|"%%"|#FFB100}} {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"int8"|#FFB100}}
    {{Text|IF|#F0F0F0}} ts$ = {{Text|"%"|#FFB100}} {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"int16"|#FFB100}}
    {{Text|IF|#F0F0F0}} ts$ = {{Text|"&"|#FFB100}} {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"int32"|#FFB100}}
    {{Text|IF|#F0F0F0}} ts$ = {{Text|"&&"|#FFB100}} {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"int64"|#FFB100}}
    {{Text|IF|#F0F0F0}} ctyp$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} ctyp$ = {{Text|"u"|#FFB100}} + ctyp$
        typ2ctyp$ = ctyp$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'is tstr$ a named type? (eg. 'LONG')|#31C4C4}}
    s$ = type2symbol$(tstr$)
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(s$) {{Text|THEN|#F0F0F0}}
        typ2ctyp$ = typ2ctyp$({{Text|0|#F580B1}}, s$)
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    Give_Error {{Text|"Invalid type"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} type2symbol$ (typ$)
    t$ = typ$
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(t$)
        {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(t$, i, {{Text|1|#F580B1}}) = sp {{Text|THEN|#F0F0F0}} {{Text|MID$|#F0F0F0}}(t$, i, {{Text|1|#F580B1}}) = {{Text|" "|#FFB100}}
    {{Text|NEXT|#F0F0F0}}
    e$ = {{Text|"Cannot convert type ("|#FFB100}} + typ$ + {{Text|") to symbol"|#FFB100}}
    t2$ = {{Text|"INTEGER"|#FFB100}}: s$ = {{Text|"%"|#FFB100}}: {{Text|IF|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"LONG"|#FFB100}}: s$ = {{Text|"&"|#FFB100}}: {{Text|IF|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"SINGLE"|#FFB100}}: s$ = {{Text|"!"|#FFB100}}: {{Text|IF|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"DOUBLE"|#FFB100}}: s$ = {{Text|"#"|#FFB100}}: {{Text|IF|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"_BYTE"|#FFB100}}: s$ = {{Text|"%%"|#FFB100}}: {{Text|IF|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"BYTE"|#FFB100}}: s$ = {{Text|"%%"|#FFB100}}: {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"_UNSIGNED LONG"|#FFB100}}: s$ = {{Text|"~&"|#FFB100}}: {{Text|IF|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"UNSIGNED LONG"|#FFB100}}: s$ = {{Text|"~&"|#FFB100}}: {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"_UNSIGNED INTEGER"|#FFB100}}: s$ = {{Text|"~%"|#FFB100}}: {{Text|IF|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"UNSIGNED INTEGER"|#FFB100}}: s$ = {{Text|"~%"|#FFB100}}: {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"_UNSIGNED _BYTE"|#FFB100}}: s$ = {{Text|"~%%"|#FFB100}}: {{Text|IF|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"_UNSIGNED BYTE"|#FFB100}}: s$ = {{Text|"~%%"|#FFB100}}: {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"UNSIGNED _BYTE"|#FFB100}}: s$ = {{Text|"~%%"|#FFB100}}: {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"UNSIGNED BYTE"|#FFB100}}: s$ = {{Text|"~%%"|#FFB100}}: {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"_UNSIGNED _OFFSET"|#FFB100}}: s$ = {{Text|"~%&"|#FFB100}}: {{Text|IF|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"_UNSIGNED OFFSET"|#FFB100}}: s$ = {{Text|"~%&"|#FFB100}}: {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"UNSIGNED _OFFSET"|#FFB100}}: s$ = {{Text|"~%&"|#FFB100}}: {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"UNSIGNED OFFSET"|#FFB100}}: s$ = {{Text|"~%&"|#FFB100}}: {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"_UNSIGNED _INTEGER64"|#FFB100}}: s$ = {{Text|"~&&"|#FFB100}}: {{Text|IF|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"_UNSIGNED INTEGER64"|#FFB100}}: s$ = {{Text|"~&&"|#FFB100}}: {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"UNSIGNED _INTEGER64"|#FFB100}}: s$ = {{Text|"~&&"|#FFB100}}: {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"UNSIGNED INTEGER64"|#FFB100}}: s$ = {{Text|"~&&"|#FFB100}}: {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"_INTEGER64"|#FFB100}}: s$ = {{Text|"&&"|#FFB100}}: {{Text|IF|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"INTEGER64"|#FFB100}}: s$ = {{Text|"&&"|#FFB100}}: {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"_OFFSET"|#FFB100}}: s$ = {{Text|"%&"|#FFB100}}: {{Text|IF|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"OFFSET"|#FFB100}}: s$ = {{Text|"%&"|#FFB100}}: {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"_FLOAT"|#FFB100}}: s$ = {{Text|"##"|#FFB100}}: {{Text|IF|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"FLOAT"|#FFB100}}: s$ = {{Text|"##"|#FFB100}}: {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} t$ = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    {{Text|' These can have a length after them, so LEFT$() is used|#31C4C4}}
    t2$ = {{Text|"STRING"|#FFB100}}: s$ = {{Text|"$"|#FFB100}}: {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(t$, {{Text|LEN|#F0F0F0}}(t2$)) = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"_UNSIGNED _BIT"|#FFB100}}: s$ = {{Text|"~`1"|#FFB100}}: {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(t$, {{Text|LEN|#F0F0F0}}(t2$)) = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"_UNSIGNED BIT"|#FFB100}}: s$ = {{Text|"~`1"|#FFB100}}: {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(t$, {{Text|LEN|#F0F0F0}}(t2$)) = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"UNSIGNED _BIT"|#FFB100}}: s$ = {{Text|"~`1"|#FFB100}}: {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(t$, {{Text|LEN|#F0F0F0}}(t2$)) = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"UNSIGNED BIT"|#FFB100}}: s$ = {{Text|"~`1"|#FFB100}}: {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(t$, {{Text|LEN|#F0F0F0}}(t2$)) = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"_BIT"|#FFB100}}: s$ = {{Text|"`1"|#FFB100}}: {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(t$, {{Text|LEN|#F0F0F0}}(t2$)) = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    t2$ = {{Text|"BIT"|#FFB100}}: s$ = {{Text|"`1"|#FFB100}}: {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(t$, {{Text|LEN|#F0F0F0}}(t2$)) = t2$ {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} t2sfound
    Give_Error e$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    t2sfound:
    type2symbol$ = s$
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(t2$) <> {{Text|LEN|#F0F0F0}}(t$) {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} s$ <> {{Text|"$"|#FFB100}} {{Text|AND|#F0F0F0}} s$ <> {{Text|"~`1"|#FFB100}} {{Text|AND|#F0F0F0}} s$ <> {{Text|"`1"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error e$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        t$ = {{Text|RIGHT$|#F0F0F0}}(t$, {{Text|LEN|#F0F0F0}}(t$) - {{Text|LEN|#F0F0F0}}(t2$))
        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(t$, {{Text|3|#F580B1}}) <> {{Text|" * "|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error e$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        t$ = {{Text|RIGHT$|#F0F0F0}}(t$, {{Text|LEN|#F0F0F0}}(t$) - {{Text|3|#F580B1}})
        {{Text|IF|#F0F0F0}} isuinteger(t$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error e$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        v = {{Text|VAL|#F0F0F0}}(t$)
        {{Text|IF|#F0F0F0}} v = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error e$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} s$ <> {{Text|"$"|#FFB100}} {{Text|AND|#F0F0F0}} v > {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error e$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} s$ = {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}}
            s$ = s$ + str2$(v)
        {{Text|ELSE|#F0F0F0}}
            s$ = {{Text|LEFT$|#F0F0F0}}(s$, {{Text|LEN|#F0F0F0}}(s$) - {{Text|1|#F580B1}}) + str2$(v)
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        type2symbol$ = s$
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|'Strips away bits/indentifiers which make locating a variables source difficult|#31C4C4}}
{{Text|FUNCTION|#F0F0F0}} typecomp (typ)
    typ2 = typ
    {{Text|IF|#F0F0F0}} (typ2 {{Text|AND|#F0F0F0}} ISINCONVENTIONALMEMORY) {{Text|THEN|#F0F0F0}} typ2 = typ2 - ISINCONVENTIONALMEMORY
    typecomp = typ2
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} typname2typ& (t2$)
    typname2typsize = {{Text|0|#F580B1}} {{Text|'the default|#31C4C4}}
    t$ = t2$
    {{Text|'symbol?|#31C4C4}}
    ts$ = t$
    {{Text|IF|#F0F0F0}} ts$ = {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}} typname2typ& = STRINGTYPE: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} ts$ = {{Text|"!"|#FFB100}} {{Text|THEN|#F0F0F0}} typname2typ& = SINGLETYPE: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} ts$ = {{Text|"#"|#FFB100}} {{Text|THEN|#F0F0F0}} typname2typ& = DOUBLETYPE: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} ts$ = {{Text|"##"|#FFB100}} {{Text|THEN|#F0F0F0}} typname2typ& = FLOATTYPE: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|'fixed length string?|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(ts$, {{Text|1|#F580B1}}) = {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}}
        n$ = {{Text|RIGHT$|#F0F0F0}}(ts$, {{Text|LEN|#F0F0F0}}(ts$) - {{Text|1|#F580B1}})
        {{Text|IF|#F0F0F0}} isuinteger(n$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid index after STRING * type"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        b = {{Text|VAL|#F0F0F0}}(n$)
        {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid index after STRING * type"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        typname2typsize = b
        typname2typ& = STRINGTYPE + ISFIXEDLENGTH
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'unsigned?|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(ts$, {{Text|1|#F580B1}}) = {{Text|"~"|#FFB100}} {{Text|THEN|#F0F0F0}} unsgn = {{Text|1|#F580B1}}: ts$ = {{Text|RIGHT$|#F0F0F0}}(ts$, {{Text|LEN|#F0F0F0}}(ts$) - {{Text|1|#F580B1}})
    {{Text|'bit-type?|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(ts$, {{Text|1|#F580B1}}) = {{Text|"`"|#FFB100}} {{Text|THEN|#F0F0F0}}
        n$ = {{Text|RIGHT$|#F0F0F0}}(ts$, {{Text|LEN|#F0F0F0}}(ts$) - {{Text|1|#F580B1}})
        b = {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} n$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} isuinteger(n$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid index after _BIT type"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            b = {{Text|VAL|#F0F0F0}}(n$)
            {{Text|IF|#F0F0F0}} b > {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid index after _BIT type"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} typname2typ& = UBITTYPE + (b - {{Text|1|#F580B1}}) {{Text|ELSE|#F0F0F0}} typname2typ& = BITTYPE + (b - {{Text|1|#F580B1}})
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    t = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} ts$ = {{Text|"%%"|#FFB100}} {{Text|THEN|#F0F0F0}} t = BYTETYPE
    {{Text|IF|#F0F0F0}} ts$ = {{Text|"%"|#FFB100}} {{Text|THEN|#F0F0F0}} t = INTEGERTYPE
    {{Text|IF|#F0F0F0}} ts$ = {{Text|"&"|#FFB100}} {{Text|THEN|#F0F0F0}} t = LONGTYPE
    {{Text|IF|#F0F0F0}} ts$ = {{Text|"&&"|#FFB100}} {{Text|THEN|#F0F0F0}} t = INTEGER64TYPE
    {{Text|IF|#F0F0F0}} ts$ = {{Text|"%&"|#FFB100}} {{Text|THEN|#F0F0F0}} t = OFFSETTYPE
    {{Text|IF|#F0F0F0}} t {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} unsgn {{Text|THEN|#F0F0F0}} t = t + ISUNSIGNED
        typname2typ& = t: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'not a valid symbol|#31C4C4}}
    {{Text|'type name?|#31C4C4}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(t$)
        {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(t$, i, {{Text|1|#F580B1}}) = sp {{Text|THEN|#F0F0F0}} {{Text|MID$|#F0F0F0}}(t$, i, {{Text|1|#F580B1}}) = {{Text|" "|#FFB100}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|IF|#F0F0F0}} t$ = {{Text|"STRING"|#FFB100}} {{Text|THEN|#F0F0F0}} typname2typ& = STRINGTYPE: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(t$, {{Text|9|#F580B1}}) = {{Text|"STRING * "|#FFB100}} {{Text|THEN|#F0F0F0}}
        n$ = {{Text|RIGHT$|#F0F0F0}}(t$, {{Text|LEN|#F0F0F0}}(t$) - {{Text|9|#F580B1}})
        {{Text|'constant check 2011|#31C4C4}}
        hashfound = {{Text|0|#F580B1}}
        hashname$ = n$
        hashchkflags = HASHFLAG_CONSTANT
        hashres = HashFindRev(hashname$, hashchkflags, hashresflags, hashresref)
        {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} hashres
            {{Text|IF|#F0F0F0}} constsubfunc(hashresref) = subfuncn {{Text|OR|#F0F0F0}} constsubfunc(hashresref) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} constdefined(hashresref) {{Text|THEN|#F0F0F0}}
                    hashfound = {{Text|1|#F580B1}}
                    {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} hashres <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} hashres = HashFindCont(hashresflags, hashresref) {{Text|ELSE|#F0F0F0}} hashres = {{Text|0|#F580B1}}
        {{Text|LOOP|#F0F0F0}}
        {{Text|IF|#F0F0F0}} hashfound {{Text|THEN|#F0F0F0}}
            i2 = hashresref
            t = consttype(i2)
            {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected STRING * numeric-constant"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|'convert value to general formats|#31C4C4}}
            {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
                v## = constfloat(i2)
                v&& = v##
                v~&& = v&&
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}}
                    v~&& = constuinteger(i2)
                    v&& = v~&&
                    v## = v&&
                {{Text|ELSE|#F0F0F0}}
                    v&& = constinteger(i2)
                    v## = v&&
                    v~&& = v&&
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} v&& < {{Text|1|#F580B1}} {{Text|OR|#F0F0F0}} v&& > {{Text|9999999999|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"STRING * out-of-range constant"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            b = v&&
            {{Text|GOTO|#F0F0F0}} constantlenstr
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} isuinteger(n$) = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} {{Text|LEN|#F0F0F0}}(n$) > {{Text|10|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid number/constant after STRING * type"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        b = {{Text|VAL|#F0F0F0}}(n$)
        {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} {{Text|LEN|#F0F0F0}}(n$) > {{Text|10|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid number after STRING * type"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        constantlenstr:
        typname2typsize = b
        typname2typ& = STRINGTYPE + ISFIXEDLENGTH
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} t$ = {{Text|"SINGLE"|#FFB100}} {{Text|THEN|#F0F0F0}} typname2typ& = SINGLETYPE: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} t$ = {{Text|"DOUBLE"|#FFB100}} {{Text|THEN|#F0F0F0}} typname2typ& = DOUBLETYPE: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} t$ = {{Text|"_FLOAT"|#FFB100}} {{Text|OR|#F0F0F0}} (t$ = {{Text|"FLOAT"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} typname2typ& = FLOATTYPE: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(t$, {{Text|10|#F580B1}}) = {{Text|"_UNSIGNED "|#FFB100}} {{Text|OR|#F0F0F0}} ({{Text|LEFT$|#F0F0F0}}(t$, {{Text|9|#F580B1}}) = {{Text|"UNSIGNED "|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
        u = {{Text|1|#F580B1}}
        t$ = {{Text|MID$|#F0F0F0}}(t$, {{Text|INSTR|#F0F0F0}}(t$, {{Text|CHR$|#F0F0F0}}({{Text|32|#F580B1}})) + {{Text|1|#F580B1}})
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(t$, {{Text|4|#F580B1}}) = {{Text|"_BIT"|#FFB100}} {{Text|OR|#F0F0F0}} ({{Text|LEFT$|#F0F0F0}}(t$, {{Text|3|#F580B1}}) = {{Text|"BIT"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} t$ = {{Text|"_BIT"|#FFB100}} {{Text|OR|#F0F0F0}} (t$ = {{Text|"BIT"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} u {{Text|THEN|#F0F0F0}} typname2typ& = UBITTYPE {{Text|ELSE|#F0F0F0}} typname2typ& = BITTYPE
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(t$, {{Text|7|#F580B1}}) <> {{Text|"_BIT * "|#FFB100}} {{Text|AND|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(t$, {{Text|6|#F580B1}}) <> {{Text|"BIT * "|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected "|#FFB100}} + qb64prefix$ + {{Text|"BIT * number"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(t$, {{Text|4|#F580B1}}) = {{Text|"_BIT"|#FFB100}} {{Text|THEN|#F0F0F0}}
            n$ = {{Text|RIGHT$|#F0F0F0}}(t$, {{Text|LEN|#F0F0F0}}(t$) - {{Text|7|#F580B1}})
        {{Text|ELSE|#F0F0F0}}
            n$ = {{Text|RIGHT$|#F0F0F0}}(t$, {{Text|LEN|#F0F0F0}}(t$) - {{Text|6|#F580B1}})
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} isuinteger(n$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid size after "|#FFB100}} + qb64prefix$ + {{Text|"BIT *"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        b = {{Text|VAL|#F0F0F0}}(n$)
        {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} b > {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid size after "|#FFB100}} + qb64prefix$ + {{Text|"BIT *"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        t = BITTYPE - {{Text|1|#F580B1}} + b: {{Text|IF|#F0F0F0}} u {{Text|THEN|#F0F0F0}} t = t + ISUNSIGNED
        typname2typ& = t
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    t = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} t$ = {{Text|"_BYTE"|#FFB100}} {{Text|OR|#F0F0F0}} (t$ = {{Text|"BYTE"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} t = BYTETYPE
    {{Text|IF|#F0F0F0}} t$ = {{Text|"INTEGER"|#FFB100}} {{Text|THEN|#F0F0F0}} t = INTEGERTYPE
    {{Text|IF|#F0F0F0}} t$ = {{Text|"LONG"|#FFB100}} {{Text|THEN|#F0F0F0}} t = LONGTYPE
    {{Text|IF|#F0F0F0}} t$ = {{Text|"_INTEGER64"|#FFB100}} {{Text|OR|#F0F0F0}} (t$ = {{Text|"INTEGER64"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} t = INTEGER64TYPE
    {{Text|IF|#F0F0F0}} t$ = {{Text|"_OFFSET"|#FFB100}} {{Text|OR|#F0F0F0}} (t$ = {{Text|"OFFSET"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}}) {{Text|THEN|#F0F0F0}} t = OFFSETTYPE
    {{Text|IF|#F0F0F0}} t {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} u {{Text|THEN|#F0F0F0}} t = t + ISUNSIGNED
        typname2typ& = t
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} u {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'_UNSIGNED (nothing)|#31C4C4}}
    {{Text|'UDT?|#31C4C4}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} lasttype
        {{Text|IF|#F0F0F0}} t$ = {{Text|RTRIM$|#F0F0F0}}(udtxname(i)) {{Text|THEN|#F0F0F0}}
            typname2typ& = ISUDT + ISPOINTER + i
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|ELSEIF|#F0F0F0}} {{Text|RTRIM$|#F0F0F0}}(udtxname(i)) = {{Text|"_MEM"|#FFB100}} {{Text|AND|#F0F0F0}} t$ = {{Text|"MEM"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            typname2typ& = ISUDT + ISPOINTER + i
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|'return 0 (failed)|#31C4C4}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} uniquenumber&
    uniquenumbern = uniquenumbern + {{Text|1|#F580B1}}
    uniquenumber& = uniquenumbern
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} validlabel (LABEL2$)
    create = CreatingLabel: CreatingLabel = {{Text|0|#F580B1}}
    validlabel = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(LABEL2$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    clabel$ = LABEL2$
    label$ = {{Text|UCASE$|#F0F0F0}}(LABEL2$)
    n = numelements(label$)
    {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|'Note: Reserved words and internal sub/function names are invalid|#31C4C4}}
        hashres = HashFind(label$, HASHFLAG_RESERVED + HASHFLAG_SUB + HASHFLAG_FUNCTION, hashresflags, hashresref)
        {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} hashres
            {{Text|IF|#F0F0F0}} hashresflags {{Text|AND|#F0F0F0}} (HASHFLAG_SUB + HASHFLAG_FUNCTION) {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} ids(hashresref).internal_subfunc {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|IF|#F0F0F0}} hashresflags {{Text|AND|#F0F0F0}} HASHFLAG_SUB {{Text|THEN|#F0F0F0}} {{Text|'could be a label or a sub call!|#31C4C4}}
                    {{Text|'analyze format|#31C4C4}}
                    {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(ids(hashresref).specialformat) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} ids(hashresref).args = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} onecommandsub = {{Text|1|#F580B1}} {{Text|ELSE|#F0F0F0}} onecommandsub = {{Text|0|#F580B1}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(ids(hashresref).specialformat) <> {{Text|91|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'"["|#31C4C4}}
                            onecommandsub = {{Text|0|#F580B1}}
                        {{Text|ELSE|#F0F0F0}}
                            onecommandsub = {{Text|1|#F580B1}}
                            a$ = {{Text|RTRIM$|#F0F0F0}}(ids(hashresref).specialformat)
                            b = {{Text|1|#F580B1}}
                            {{Text|FOR|#F0F0F0}} x = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(a$)
                                a = {{Text|ASC|#F0F0F0}}(a$, x)
                                {{Text|IF|#F0F0F0}} a = {{Text|91|#F580B1}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
                                {{Text|IF|#F0F0F0}} a = {{Text|93|#F580B1}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
                                {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} x <> {{Text|LEN|#F0F0F0}}(a$) {{Text|THEN|#F0F0F0}} onecommandsub = {{Text|0|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                            {{Text|NEXT|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} create <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} onecommandsub = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(SubNameLabels$, sp + {{Text|UCASE$|#F0F0F0}}(label$) + sp) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} PossibleSubNameLabels$ = PossibleSubNameLabels$ + {{Text|UCASE$|#F0F0F0}}(label$) + sp: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'treat as sub call|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'sub name|#31C4C4}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|'reserved|#31C4C4}}
                {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} hashres <> {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} hashres = HashFindCont(hashresflags, hashresref) {{Text|ELSE|#F0F0F0}} hashres = {{Text|0|#F580B1}}
        {{Text|LOOP|#F0F0F0}}
        {{Text|'Numeric label?|#31C4C4}}
        {{Text|'quasi numbers are possible, but:|#31C4C4}}
        {{Text|'a) They may only have one decimal place|#31C4C4}}
        {{Text|'b) They must be typed with the exact same characters to match|#31C4C4}}
        t$ = label$
        {{Text|'numeric?|#31C4C4}}
        a = {{Text|ASC|#F0F0F0}}(t$)
        {{Text|IF|#F0F0F0}} (a >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} a <= {{Text|57|#F580B1}}) {{Text|OR|#F0F0F0}} a = {{Text|46|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|'refer to original formatting if possible (eg. 1.10 not 1.1)|#31C4C4}}
            x = {{Text|INSTR|#F0F0F0}}(t$, {{Text|CHR$|#F0F0F0}}({{Text|44|#F580B1}}))
            {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}}
                t$ = {{Text|RIGHT$|#F0F0F0}}(t$, {{Text|LEN|#F0F0F0}}(t$) - x)
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'note: The symbols ! and # are valid trailing symbols in QBASIC, regardless of the number's size,|#31C4C4}}
            {{Text|'      so they are allowed in QB64 for compatibility reasons|#31C4C4}}
            addsymbol$ = removesymbol$(t$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(addsymbol$) {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(addsymbol$, {{Text|"$"|#FFB100}}) {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|IF|#F0F0F0}} addsymbol$ <> {{Text|"#"|#FFB100}} {{Text|AND|#F0F0F0}} addsymbol$ <> {{Text|"!"|#FFB100}} {{Text|THEN|#F0F0F0}} addsymbol$ = {{Text|""|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} a = {{Text|46|#F580B1}} {{Text|THEN|#F0F0F0}} dp = {{Text|1|#F580B1}}
            {{Text|FOR|#F0F0F0}} x = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(t$)
                a = {{Text|ASC|#F0F0F0}}({{Text|MID$|#F0F0F0}}(t$, x, {{Text|1|#F580B1}}))
                {{Text|IF|#F0F0F0}} a = {{Text|46|#F580B1}} {{Text|THEN|#F0F0F0}} dp = dp + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} (a < {{Text|48|#F580B1}} {{Text|OR|#F0F0F0}} a > {{Text|57|#F580B1}}) {{Text|AND|#F0F0F0}} a <> {{Text|46|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'not numeric|#31C4C4}}
            {{Text|NEXT|#F0F0F0}} x
            {{Text|IF|#F0F0F0}} dp > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'too many decimal points|#31C4C4}}
            {{Text|IF|#F0F0F0}} dp = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LEN|#F0F0F0}}(t$) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'cant have '.' as a label|#31C4C4}}
            tlayout$ = t$ + addsymbol$
            i = {{Text|INSTR|#F0F0F0}}(t$, {{Text|"."|#FFB100}}): {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} {{Text|MID$|#F0F0F0}}(t$, i, {{Text|1|#F580B1}}) = {{Text|"p"|#FFB100}}
            {{Text|IF|#F0F0F0}} addsymbol$ = {{Text|"#"|#FFB100}} {{Text|THEN|#F0F0F0}} t$ = t$ + {{Text|"d"|#FFB100}}
            {{Text|IF|#F0F0F0}} addsymbol$ = {{Text|"!"|#FFB100}} {{Text|THEN|#F0F0F0}} t$ = t$ + {{Text|"s"|#FFB100}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(t$) > {{Text|40|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            LABEL2$ = t$
            validlabel = {{Text|1|#F580B1}}
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'numeric|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'n=1|#31C4C4}}
    {{Text|'Alpha-numeric label?|#31C4C4}}
    {{Text|'Build label|#31C4C4}}
    {{Text|'structure check (???.???.???.???)|#31C4C4}}
    {{Text|IF|#F0F0F0}} (n {{Text|AND|#F0F0F0}} {{Text|1|#F580B1}}) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'must be an odd number of elements|#31C4C4}}
    {{Text|FOR|#F0F0F0}} nx = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n - {{Text|1|#F580B1}} {{Text|STEP|#F0F0F0}} {{Text|2|#F580B1}}
        a$ = getelement$(LABEL2$, nx)
        {{Text|IF|#F0F0F0}} a$ <> {{Text|"."|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'every 2nd element must be a period|#31C4C4}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|'cannot begin with numeric|#31C4C4}}
    c = {{Text|ASC|#F0F0F0}}(clabel$): {{Text|IF|#F0F0F0}} c >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} c <= {{Text|57|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|'elements check|#31C4C4}}
    label3$ = {{Text|""|#FFB100}}
    {{Text|FOR|#F0F0F0}} nx = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n {{Text|STEP|#F0F0F0}} {{Text|2|#F580B1}}
        label$ = getelement$(clabel$, nx)
        {{Text|'alpha-numeric?|#31C4C4}}
        {{Text|FOR|#F0F0F0}} x = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(label$)
            {{Text|IF|#F0F0F0}} alphanumeric({{Text|ASC|#F0F0F0}}(label$, x)) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|NEXT|#F0F0F0}}
        {{Text|'build label|#31C4C4}}
        {{Text|IF|#F0F0F0}} label3$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} label3$ = {{Text|UCASE$|#F0F0F0}}(label$): tlayout$ = label$ {{Text|ELSE|#F0F0F0}} label3$ = label3$ + fix046$ + {{Text|UCASE$|#F0F0F0}}(label$): tlayout$ = tlayout$ + {{Text|"."|#FFB100}} + label$
    {{Text|NEXT|#F0F0F0}} nx
    validlabel = {{Text|1|#F580B1}}
    LABEL2$ = label3$
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|SUB|#F0F0F0}} xend
    {{Text|IF|#F0F0F0}} vWatchOn = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|'check if closedmain = 0 in case a main module ends in an include.|#31C4C4}}
        {{Text|IF|#F0F0F0}} (inclinenumber(inclevel) = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} closedmain = {{Text|0|#F580B1}}) {{Text|THEN|#F0F0F0}} vWatchAddLabel {{Text|0|#F580B1}}, {{Text|-1|#F580B1}}
        WriteBufLine MainTxtBuf, {{Text|"*__LONG_VWATCH_LINENUMBER= 0; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);"|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    WriteBufLine MainTxtBuf, {{Text|"sub_end();"|#FFB100}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} xfileprint (a$, ca$, n)
    u$ = str2$(uniquenumber)
    WriteBufLine MainTxtBuf, {{Text|"tab_spc_cr_size=2;"|#FFB100}}
    {{Text|IF|#F0F0F0}} n = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected # ... , ..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    a3$ = {{Text|""|#FFB100}}
    b = {{Text|0|#F580B1}}
    {{Text|FOR|#F0F0F0}} i = {{Text|3|#F580B1}} {{Text|TO|#F0F0F0}} n
        a2$ = getelement$(ca$, i)
        {{Text|IF|#F0F0F0}} a2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} a2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} a3$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected # ... , ..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} printgotfn
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a3$ = a2$ {{Text|ELSE|#F0F0F0}} a3$ = a3$ + sp + a2$
    {{Text|NEXT|#F0F0F0}}
    Give_Error {{Text|"Expected # ... ,"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    printgotfn:
    e$ = fixoperationorder$(a3$)
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    l$ = SCase$({{Text|"Print"|#FFB100}}) + sp + {{Text|"#"|#FFB100}} + sp2 + tlayout$ + sp2 + {{Text|","|#FFB100}}
    e$ = evaluatetotyp(e$, {{Text|64&|#F580B1}})
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    WriteBufLine MainTxtBuf, {{Text|"tab_fileno=tmp_fileno="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
    WriteBufLine MainTxtBuf, {{Text|"if (new_error) goto skip"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
    i = i + {{Text|1|#F580B1}}
    {{Text|'PRINT USING? (file)|#31C4C4}}
    {{Text|IF|#F0F0F0}} n >= i {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} getelement(a$, i) = {{Text|"USING"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|'get format string|#31C4C4}}
            fpujump:
            l$ = l$ + sp + SCase$({{Text|"Using"|#FFB100}})
            e$ = {{Text|""|#FFB100}}: b = {{Text|0|#F580B1}}: puformat$ = {{Text|""|#FFB100}}
            {{Text|FOR|#F0F0F0}} i = i + {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
                a2$ = getelement(ca$, i)
                {{Text|IF|#F0F0F0}} a2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} a2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected PRINT USING #filenumber, formatstring ; ..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} a2$ = {{Text|";"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        e$ = fixoperationorder$(e$)
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                        l$ = l$ + sp + tlayout$ + sp2 + {{Text|";"|#FFB100}}
                        e$ = evaluate(e$, typ)
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, typ, {{Text|0|#F580B1}})
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected PRINT USING #filenumber, formatstring ; ..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                        puformat$ = e$
                        {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|';|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'b|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) {{Text|THEN|#F0F0F0}} e$ = e$ + sp + a2$ {{Text|ELSE|#F0F0F0}} e$ = a2$
            {{Text|NEXT|#F0F0F0}}
            {{Text|IF|#F0F0F0}} puformat$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected PRINT USING #filenumber, formatstring ; ..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected PRINT USING #filenumber, formatstring ; ..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            {{Text|'create build string|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"tqbs=qbs_new(0,0);"|#FFB100}}
            {{Text|'set format start/index variable|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"tmp_long=0;"|#FFB100}} {{Text|'scan format from beginning|#31C4C4}}
            {{Text|'create string to hold format in for multiple references|#31C4C4}}
            puf$ = {{Text|"print_using_format"|#FFB100}} + u$
            {{Text|IF|#F0F0F0}} subfunc = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                WriteBufLine DataTxtBuf, {{Text|"static qbs *"|#FFB100}} + puf$ + {{Text|";"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                WriteBufLine DataTxtBuf, {{Text|"qbs *"|#FFB100}} + puf$ + {{Text|";"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            WriteBufLine MainTxtBuf, puf$ + {{Text|"=qbs_new(0,0); qbs_set("|#FFB100}} + puf$ + {{Text|","|#FFB100}} + puformat$ + {{Text|");"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"if (new_error) goto skip"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
            {{Text|'print expressions|#31C4C4}}
            b = {{Text|0|#F580B1}}
            e$ = {{Text|""|#FFB100}}
            last = {{Text|0|#F580B1}}
            {{Text|FOR|#F0F0F0}} i = i + {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
                a2$ = getelement(ca$, i)
                {{Text|IF|#F0F0F0}} a2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} a2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} a2$ = {{Text|";"|#FFB100}} {{Text|OR|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}}
                        fprintulast:
                        e$ = fixoperationorder$(e$)
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} last {{Text|THEN|#F0F0F0}} l$ = l$ + sp + tlayout$ {{Text|ELSE|#F0F0F0}} l$ = l$ + sp + tlayout$ + sp2 + a2$
                        e$ = evaluate(e$, typ)
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, typ, {{Text|0|#F580B1}})
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(e$, {{Text|9|#F580B1}}) = {{Text|"func_tab("|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(e$, {{Text|9|#F580B1}}) = {{Text|"func_spc("|#FFB100}} {{Text|THEN|#F0F0F0}}
                                {{Text|'TAB/SPC exception|#31C4C4}}
                                {{Text|'note: position in format-string must be maintained|#31C4C4}}
                                {{Text|'-print any string up until now|#31C4C4}}
                                WriteBufLine MainTxtBuf, {{Text|"sub_file_print(tmp_fileno,tqbs,0,0,0);"|#FFB100}}
                                {{Text|'-print e$|#31C4C4}}
                                WriteBufLine MainTxtBuf, {{Text|"qbs_set(tqbs,"|#FFB100}} + e$ + {{Text|");"|#FFB100}}
                                WriteBufLine MainTxtBuf, {{Text|"if (new_error) goto skip_pu"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
                                WriteBufLine MainTxtBuf, {{Text|"sub_file_print(tmp_fileno,tqbs,0,0,0);"|#FFB100}}
                                {{Text|'-set length of tqbs to 0|#31C4C4}}
                                WriteBufLine MainTxtBuf, {{Text|"tqbs->len=0;"|#FFB100}}
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|'regular string|#31C4C4}}
                                WriteBufLine MainTxtBuf, {{Text|"tmp_long=print_using("|#FFB100}} + puf$ + {{Text|",tmp_long,tqbs,"|#FFB100}} + e$ + {{Text|");"|#FFB100}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|ELSE|#F0F0F0}} {{Text|'not a string|#31C4C4}}
                            {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"tmp_long=print_using_single("|#FFB100}} + puf$ + {{Text|","|#FFB100}} + e$ + {{Text|",tmp_long,tqbs);"|#FFB100}}
                                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"tmp_long=print_using_double("|#FFB100}} + puf$ + {{Text|","|#FFB100}} + e$ + {{Text|",tmp_long,tqbs);"|#FFB100}}
                                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) > {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"tmp_long=print_using_float("|#FFB100}} + puf$ + {{Text|","|#FFB100}} + e$ + {{Text|",tmp_long,tqbs);"|#FFB100}}
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} ((typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|64|#F580B1}}) {{Text|AND|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISUNSIGNED) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    WriteBufLine MainTxtBuf, {{Text|"tmp_long=print_using_uinteger64("|#FFB100}} + puf$ + {{Text|","|#FFB100}} + e$ + {{Text|",tmp_long,tqbs);"|#FFB100}}
                                {{Text|ELSE|#F0F0F0}}
                                    WriteBufLine MainTxtBuf, {{Text|"tmp_long=print_using_integer64("|#FFB100}} + puf$ + {{Text|","|#FFB100}} + e$ + {{Text|",tmp_long,tqbs);"|#FFB100}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'string/not string|#31C4C4}}
                        WriteBufLine MainTxtBuf, {{Text|"if (new_error) goto skip_pu"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
                        e$ = {{Text|""|#FFB100}}
                        {{Text|IF|#F0F0F0}} last {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                        {{Text|GOTO|#F0F0F0}} fprintunext
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) {{Text|THEN|#F0F0F0}} e$ = e$ + sp + a2$ {{Text|ELSE|#F0F0F0}} e$ = a2$
                fprintunext:
            {{Text|NEXT|#F0F0F0}}
            {{Text|IF|#F0F0F0}} e$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a2$ = {{Text|""|#FFB100}}: last = {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} fprintulast
            WriteBufLine MainTxtBuf, {{Text|"skip_pu"|#FFB100}} + u$ + {{Text|":"|#FFB100}}
            {{Text|'check for errors|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"if (new_error){"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"g_tmp_long=new_error; new_error=0; sub_file_print(tmp_fileno,tqbs,0,0,0); new_error=g_tmp_long;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"}else{"|#FFB100}}
            {{Text|IF|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|OR|#F0F0F0}} a2$ = {{Text|";"|#FFB100}} {{Text|THEN|#F0F0F0}} nl = {{Text|0|#F580B1}} {{Text|ELSE|#F0F0F0}} nl = {{Text|1|#F580B1}} {{Text|'note: a2$ is set to the last element of a$|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"sub_file_print(tmp_fileno,tqbs,0,0,"|#FFB100}} + str2$(nl) + {{Text|");"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"qbs_free(tqbs);"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"qbs_free("|#FFB100}} + puf$ + {{Text|");"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"skip"|#FFB100}} + u$ + {{Text|":"|#FFB100}}
            WriteBufLine MainTxtBuf, cleanupstringprocessingcall$ + {{Text|"0);"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"tab_spc_cr_size=1;"|#FFB100}}
            tlayout$ = l$
            {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'end of print using code|#31C4C4}}
    {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}}
        WriteBufLine MainTxtBuf, {{Text|"sub_file_print(tmp_fileno,nothingstring,0,0,1);"|#FFB100}}
        {{Text|GOTO|#F0F0F0}} printblankline
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    b = {{Text|0|#F580B1}}
    e$ = {{Text|""|#FFB100}}
    last = {{Text|0|#F580B1}}
    {{Text|FOR|#F0F0F0}} i = i {{Text|TO|#F0F0F0}} n
        a2$ = getelement(ca$, i)
        {{Text|IF|#F0F0F0}} a2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} a2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} a2$ = {{Text|";"|#FFB100}} {{Text|OR|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(a2$) = {{Text|"USING"|#FFB100}} {{Text|THEN|#F0F0F0}}
                printfilelast:
                {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(a2$) = {{Text|"USING"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} e$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} gotofpu = {{Text|1|#F580B1}} {{Text|ELSE|#F0F0F0}} {{Text|GOTO|#F0F0F0}} fpujump
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} usetab = {{Text|1|#F580B1}} {{Text|ELSE|#F0F0F0}} usetab = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} last = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} newline = {{Text|1|#F580B1}} {{Text|ELSE|#F0F0F0}} newline = {{Text|0|#F580B1}}
                extraspace = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) {{Text|THEN|#F0F0F0}}
                    ebak$ = e$
                    pnrtnum = {{Text|0|#F580B1}}
                    printfilenumber:
                    e$ = fixoperationorder$(e$)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} pnrtnum = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} last {{Text|THEN|#F0F0F0}} l$ = l$ + sp + tlayout$ {{Text|ELSE|#F0F0F0}} l$ = l$ + sp + tlayout$ + sp2 + a2$
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    e$ = evaluate(e$, typ)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        e$ = {{Text|"STR$"|#FFB100}} + sp + {{Text|"("|#FFB100}} + sp + ebak$ + sp + {{Text|")"|#FFB100}}
                        extraspace = {{Text|1|#F580B1}}
                        pnrtnum = {{Text|1|#F580B1}}
                        {{Text|GOTO|#F0F0F0}} printfilenumber {{Text|'force re-evaluation|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, typ, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                    {{Text|'format: string, (1/0) extraspace, (1/0) tab, (1/0)begin a new line|#31C4C4}}
                    WriteBufLine MainTxtBuf, {{Text|"sub_file_print(tmp_fileno,"|#FFB100}} + e$ + {{Text|","|#FFB100}} + {{Text|STR$|#F0F0F0}}(extraspace) + {{Text|","|#FFB100}} + {{Text|STR$|#F0F0F0}}(usetab) + {{Text|","|#FFB100}} + {{Text|STR$|#F0F0F0}}(newline) + {{Text|");"|#FFB100}}
                {{Text|ELSE|#F0F0F0}} {{Text|'len(e$)=0|#31C4C4}}
                    {{Text|IF|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp + a2$
                    {{Text|IF|#F0F0F0}} a2$ = {{Text|";"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(l$, {{Text|1|#F580B1}}) <> {{Text|";"|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp + a2$ {{Text|'concat ;; to ;|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} usetab {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"sub_file_print(tmp_fileno,nothingstring,0,1,0);"|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'len(e$)|#31C4C4}}
                WriteBufLine MainTxtBuf, {{Text|"if (new_error) goto skip"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
                e$ = {{Text|""|#FFB100}}
                {{Text|IF|#F0F0F0}} gotofpu {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} fpujump
                {{Text|IF|#F0F0F0}} last {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                {{Text|GOTO|#F0F0F0}} printfilenext
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|', or ;|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'b=0|#31C4C4}}
        {{Text|IF|#F0F0F0}} e$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} e$ = e$ + sp + a2$ {{Text|ELSE|#F0F0F0}} e$ = a2$
        printfilenext:
    {{Text|NEXT|#F0F0F0}}
    {{Text|IF|#F0F0F0}} e$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a2$ = {{Text|""|#FFB100}}: last = {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} printfilelast
    printblankline:
    WriteBufLine MainTxtBuf, {{Text|"skip"|#FFB100}} + u$ + {{Text|":"|#FFB100}}
    WriteBufLine MainTxtBuf, cleanupstringprocessingcall$ + {{Text|"0);"|#FFB100}}
    WriteBufLine MainTxtBuf, {{Text|"tab_spc_cr_size=1;"|#FFB100}}
    tlayout$ = l$
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} xfilewrite (ca$, n)
    l$ = SCase$({{Text|"Write"|#FFB100}}) + sp + {{Text|"#"|#FFB100}}
    u$ = str2$(uniquenumber)
    WriteBufLine MainTxtBuf, {{Text|"tab_spc_cr_size=2;"|#FFB100}}
    {{Text|IF|#F0F0F0}} n = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected # ..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    a3$ = {{Text|""|#FFB100}}
    b = {{Text|0|#F580B1}}
    {{Text|FOR|#F0F0F0}} i = {{Text|3|#F580B1}} {{Text|TO|#F0F0F0}} n
        a2$ = getelement$(ca$, i)
        {{Text|IF|#F0F0F0}} a2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} a2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} a3$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected # ... , ..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            {{Text|GOTO|#F0F0F0}} writegotfn
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a3$ = a2$ {{Text|ELSE|#F0F0F0}} a3$ = a3$ + sp + a2$
    {{Text|NEXT|#F0F0F0}}
    Give_Error {{Text|"Expected # ... ,"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    writegotfn:
    e$ = fixoperationorder$(a3$)
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    l$ = l$ + sp2 + tlayout$ + sp2 + {{Text|","|#FFB100}}
    e$ = evaluatetotyp(e$, {{Text|64&|#F580B1}})
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    WriteBufLine MainTxtBuf, {{Text|"tab_fileno=tmp_fileno="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
    WriteBufLine MainTxtBuf, {{Text|"if (new_error) goto skip"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
    i = i + {{Text|1|#F580B1}}
    {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}}
        WriteBufLine MainTxtBuf, {{Text|"sub_file_print(tmp_fileno,nothingstring,0,0,1);"|#FFB100}}
        {{Text|GOTO|#F0F0F0}} writeblankline
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    b = {{Text|0|#F580B1}}
    e$ = {{Text|""|#FFB100}}
    last = {{Text|0|#F580B1}}
    {{Text|FOR|#F0F0F0}} i = i {{Text|TO|#F0F0F0}} n
        a2$ = getelement(ca$, i)
        {{Text|IF|#F0F0F0}} a2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} a2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}}
                writefilelast:
                {{Text|IF|#F0F0F0}} last = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} newline = {{Text|1|#F580B1}} {{Text|ELSE|#F0F0F0}} newline = {{Text|0|#F580B1}}
                ebak$ = e$
                reevaled = {{Text|0|#F580B1}}
                writefilenumber:
                e$ = fixoperationorder$(e$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                {{Text|IF|#F0F0F0}} reevaled = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    l$ = l$ + sp + tlayout$
                    {{Text|IF|#F0F0F0}} last = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp2 + {{Text|","|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                e$ = evaluate(e$, typ)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                {{Text|IF|#F0F0F0}} reevaled = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        e$ = {{Text|"LTRIM$"|#FFB100}} + sp + {{Text|"("|#FFB100}} + sp + {{Text|"STR$"|#FFB100}} + sp + {{Text|"("|#FFB100}} + sp + ebak$ + sp + {{Text|")"|#FFB100}} + sp + {{Text|")"|#FFB100}}
                        {{Text|IF|#F0F0F0}} last = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = e$ + sp + {{Text|"+"|#FFB100}} + sp + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|","|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|",1"|#FFB100}}
                        reevaled = {{Text|1|#F580B1}}
                        {{Text|GOTO|#F0F0F0}} writefilenumber {{Text|'force re-evaluation|#31C4C4}}
                    {{Text|ELSE|#F0F0F0}}
                        e$ = {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"\042"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|",1"|#FFB100}} + sp + {{Text|"+"|#FFB100}} + sp + ebak$ + sp + {{Text|"+"|#FFB100}} + sp + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"\042"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|",1"|#FFB100}}
                        {{Text|IF|#F0F0F0}} last = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = e$ + sp + {{Text|"+"|#FFB100}} + sp + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|","|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|",1"|#FFB100}}
                        reevaled = {{Text|1|#F580B1}}
                        {{Text|GOTO|#F0F0F0}} writefilenumber {{Text|'force re-evaluation|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, typ, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                {{Text|'format: string, (1/0) extraspace, (1/0) tab, (1/0)begin a new line|#31C4C4}}
                WriteBufLine MainTxtBuf, {{Text|"sub_file_print(tmp_fileno,"|#FFB100}} + e$ + {{Text|",0,0,"|#FFB100}} + {{Text|STR$|#F0F0F0}}(newline) + {{Text|");"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"if (new_error) goto skip"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
                e$ = {{Text|""|#FFB100}}
                {{Text|IF|#F0F0F0}} last {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                {{Text|GOTO|#F0F0F0}} writefilenext
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|',|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'b=0|#31C4C4}}
        {{Text|IF|#F0F0F0}} e$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} e$ = e$ + sp + a2$ {{Text|ELSE|#F0F0F0}} e$ = a2$
        writefilenext:
    {{Text|NEXT|#F0F0F0}}
    {{Text|IF|#F0F0F0}} e$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a2$ = {{Text|","|#FFB100}}: last = {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} writefilelast
    writeblankline:
    {{Text|'WriteBufLine MainTxtBuf, "}"'new_error|#31C4C4}}
    WriteBufLine MainTxtBuf, {{Text|"skip"|#FFB100}} + u$ + {{Text|":"|#FFB100}}
    WriteBufLine MainTxtBuf, cleanupstringprocessingcall$ + {{Text|"0);"|#FFB100}}
    WriteBufLine MainTxtBuf, {{Text|"tab_spc_cr_size=1;"|#FFB100}}
    layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} xgosub (ca$)
    a2$ = getelement(ca$, {{Text|2|#F580B1}})
    {{Text|IF|#F0F0F0}} validlabel(a2$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid label"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    v = HashFind(a2$, HASHFLAG_LABEL, ignore, r)
    x = {{Text|1|#F580B1}}
    labchk200:
    {{Text|IF|#F0F0F0}} v {{Text|THEN|#F0F0F0}}
        s = Labels(r).Scope
        {{Text|IF|#F0F0F0}} s = subfuncn {{Text|OR|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'same scope?|#31C4C4}}
            {{Text|IF|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} Labels(r).Scope = subfuncn {{Text|'acquire scope|#31C4C4}}
            x = {{Text|0|#F580B1}} {{Text|'already defined|#31C4C4}}
            tlayout$ = {{Text|RTRIM$|#F0F0F0}}(Labels(r).cn)
        {{Text|ELSE|#F0F0F0}}
            {{Text|IF|#F0F0F0}} v = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} v = HashFindCont(ignore, r): {{Text|GOTO|#F0F0F0}} labchk200
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}}
        {{Text|'does not exist|#31C4C4}}
        nLabels = nLabels + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} nLabels > Labels_Ubound {{Text|THEN|#F0F0F0}} Labels_Ubound = Labels_Ubound * {{Text|2|#F580B1}}: {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} Labels({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} Labels_Ubound) {{Text|AS|#F0F0F0}} Label_Type
        Labels(nLabels) = Empty_Label
        HashAdd a2$, HASHFLAG_LABEL, nLabels
        r = nLabels
        Labels(r).State = {{Text|0|#F580B1}}
        Labels(r).cn = tlayout$
        Labels(r).Scope = subfuncn
        Labels(r).Error_Line = linenumber
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'x|#31C4C4}}
    l$ = SCase$({{Text|"GoSub"|#FFB100}}) + sp + tlayout$
    layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
    {{Text|'note: This code fragment also used by ON ... GOTO/GOSUB|#31C4C4}}
    {{Text|'assume label is reachable (revise)|#31C4C4}}
    WriteBufLine MainTxtBuf, {{Text|"return_point[next_return_point++]="|#FFB100}} + str2(gosubid) + {{Text|";"|#FFB100}}
    WriteBufLine MainTxtBuf, {{Text|"if (next_return_point>=return_points) more_return_points();"|#FFB100}}
    WriteBufLine MainTxtBuf, {{Text|"goto LABEL_"|#FFB100}} + a2$ + {{Text|";"|#FFB100}}
    {{Text|'add return point jump|#31C4C4}}
    WriteBufLine RetTxtBuf, {{Text|"case "|#FFB100}} + str2(gosubid) + {{Text|":"|#FFB100}}
    WriteBufLine RetTxtBuf, {{Text|"goto RETURN_"|#FFB100}} + str2(gosubid) + {{Text|";"|#FFB100}}
    WriteBufLine RetTxtBuf, {{Text|"break;"|#FFB100}}
    WriteBufLine MainTxtBuf, {{Text|"RETURN_"|#FFB100}} + str2(gosubid) + {{Text|":;"|#FFB100}}
    gosubid = gosubid + {{Text|1|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} xongotogosub (a$, ca$, n)
    {{Text|IF|#F0F0F0}} n < {{Text|4|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected ON expression GOTO/GOSUB label,label,..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    l$ = SCase$({{Text|"On"|#FFB100}})
    b = {{Text|0|#F580B1}}
    {{Text|FOR|#F0F0F0}} i = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n
        e2$ = getelement$(a$, i)
        {{Text|IF|#F0F0F0}} e2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} e2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} e2$ = {{Text|"GOTO"|#FFB100}} {{Text|OR|#F0F0F0}} e2$ = {{Text|"GOSUB"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|IF|#F0F0F0}} i >= n {{Text|OR|#F0F0F0}} i = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected ON expression GOTO/GOSUB label,label,..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    e$ = getelements$(ca$, {{Text|2|#F580B1}}, i - {{Text|1|#F580B1}})
    g = {{Text|0|#F580B1}}: {{Text|IF|#F0F0F0}} e2$ = {{Text|"GOSUB"|#FFB100}} {{Text|THEN|#F0F0F0}} g = {{Text|1|#F580B1}}
    e$ = fixoperationorder(e$)
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    l$ = l$ + sp + tlayout$
    e$ = evaluate(e$, typ)
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, typ, {{Text|0|#F580B1}})
    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected numeric expression"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISFLOAT) {{Text|THEN|#F0F0F0}}
        e$ = {{Text|"qbr_float_to_long("|#FFB100}} + e$ + {{Text|")"|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    l$ = l$ + sp + e2$
    u$ = str2$(uniquenumber)
    WriteBufLine DataTxtBuf, {{Text|"static int32 ongo_"|#FFB100}} + u$ + {{Text|"=0;"|#FFB100}}
    WriteBufLine MainTxtBuf, {{Text|"ongo_"|#FFB100}} + u$ + {{Text|"="|#FFB100}} + e$ + {{Text|";"|#FFB100}}
    ln = {{Text|1|#F580B1}}
    labelwaslast = {{Text|0|#F580B1}}
    {{Text|FOR|#F0F0F0}} i = i + {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
        e$ = getelement$(ca$, i)
        {{Text|IF|#F0F0F0}} e$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}}
            l$ = l$ + sp2 + {{Text|","|#FFB100}}
            {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Trailing , invalid"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            ln = ln + {{Text|1|#F580B1}}
            labelwaslast = {{Text|0|#F580B1}}
        {{Text|ELSE|#F0F0F0}}
            {{Text|IF|#F0F0F0}} labelwaslast {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected ,"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            {{Text|IF|#F0F0F0}} validlabel(e$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid label!"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            v = HashFind(e$, HASHFLAG_LABEL, ignore, r)
            x = {{Text|1|#F580B1}}
            labchk507:
            {{Text|IF|#F0F0F0}} v {{Text|THEN|#F0F0F0}}
                s = Labels(r).Scope
                {{Text|IF|#F0F0F0}} s = subfuncn {{Text|OR|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'same scope?|#31C4C4}}
                    {{Text|IF|#F0F0F0}} s = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} Labels(r).Scope = subfuncn {{Text|'acquire scope|#31C4C4}}
                    x = {{Text|0|#F580B1}} {{Text|'already defined|#31C4C4}}
                    tlayout$ = {{Text|RTRIM$|#F0F0F0}}(Labels(r).cn)
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} v = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} v = HashFindCont(ignore, r): {{Text|GOTO|#F0F0F0}} labchk507
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} x {{Text|THEN|#F0F0F0}}
                {{Text|'does not exist|#31C4C4}}
                nLabels = nLabels + {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} nLabels > Labels_Ubound {{Text|THEN|#F0F0F0}} Labels_Ubound = Labels_Ubound * {{Text|2|#F580B1}}: {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} Labels({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} Labels_Ubound) {{Text|AS|#F0F0F0}} Label_Type
                Labels(nLabels) = Empty_Label
                HashAdd e$, HASHFLAG_LABEL, nLabels
                r = nLabels
                Labels(r).State = {{Text|0|#F580B1}}
                Labels(r).cn = tlayout$
                Labels(r).Scope = subfuncn
                Labels(r).Error_Line = linenumber
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'x|#31C4C4}}
            l$ = l$ + sp + tlayout$
            {{Text|IF|#F0F0F0}} g {{Text|THEN|#F0F0F0}} {{Text|'gosub|#31C4C4}}
                lb$ = e$
                WriteBufLine MainTxtBuf, {{Text|"if (ongo_"|#FFB100}} + u$ + {{Text|"=="|#FFB100}} + str2$(ln) + {{Text|"){"|#FFB100}}
                {{Text|'note: This code fragment also used by ON ... GOTO/GOSUB|#31C4C4}}
                {{Text|'assume label is reachable (revise)|#31C4C4}}
                WriteBufLine MainTxtBuf, {{Text|"return_point[next_return_point++]="|#FFB100}} + str2(gosubid) + {{Text|";"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"if (next_return_point>=return_points) more_return_points();"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"goto LABEL_"|#FFB100}} + lb$ + {{Text|";"|#FFB100}}
                {{Text|'add return point jump|#31C4C4}}
                WriteBufLine RetTxtBuf, {{Text|"case "|#FFB100}} + str2(gosubid) + {{Text|":"|#FFB100}}
                WriteBufLine RetTxtBuf, {{Text|"goto RETURN_"|#FFB100}} + str2(gosubid) + {{Text|";"|#FFB100}}
                WriteBufLine RetTxtBuf, {{Text|"break;"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"RETURN_"|#FFB100}} + str2(gosubid) + {{Text|":;"|#FFB100}}
                gosubid = gosubid + {{Text|1|#F580B1}}
                WriteBufLine MainTxtBuf, {{Text|"goto ongo_"|#FFB100}} + u$ + {{Text|"_skip;"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
            {{Text|ELSE|#F0F0F0}} {{Text|'goto|#31C4C4}}
                WriteBufLine MainTxtBuf, {{Text|"if (ongo_"|#FFB100}} + u$ + {{Text|"=="|#FFB100}} + str2$(ln) + {{Text|") goto LABEL_"|#FFB100}} + e$ + {{Text|";"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            labelwaslast = {{Text|1|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    WriteBufLine MainTxtBuf, {{Text|"if (ongo_"|#FFB100}} + u$ + {{Text|"<0) error(5);"|#FFB100}}
    {{Text|IF|#F0F0F0}} g = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"ongo_"|#FFB100}} + u$ + {{Text|"_skip:;"|#FFB100}}
    layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} xprint (a$, ca$, n)
    u$ = str2$(uniquenumber)
    l$ = SCase$({{Text|"Print"|#FFB100}})
    {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(a$) = {{Text|76|#F580B1}} {{Text|THEN|#F0F0F0}} lp = {{Text|1|#F580B1}}: lp$ = {{Text|"l"|#FFB100}}: l$ = SCase$({{Text|"LPrint"|#FFB100}}): WriteBufLine MainTxtBuf, {{Text|"tab_LPRINT=1;"|#FFB100}}: DEPENDENCY(DEPENDENCY_PRINTER) = {{Text|1|#F580B1}} {{Text|'"L"|#31C4C4}}
    {{Text|'PRINT USING?|#31C4C4}}
    {{Text|IF|#F0F0F0}} n >= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} getelement(a$, {{Text|2|#F580B1}}) = {{Text|"USING"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|'get format string|#31C4C4}}
            i = {{Text|3|#F580B1}}
            pujump:
            l$ = l$ + sp + SCase$({{Text|"Using"|#FFB100}})
            e$ = {{Text|""|#FFB100}}: b = {{Text|0|#F580B1}}: puformat$ = {{Text|""|#FFB100}}
            {{Text|FOR|#F0F0F0}} i = i {{Text|TO|#F0F0F0}} n
                a2$ = getelement(ca$, i)
                {{Text|IF|#F0F0F0}} a2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} a2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected PRINT USING formatstring ; ..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} a2$ = {{Text|";"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        e$ = fixoperationorder$(e$)
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                        l$ = l$ + sp + tlayout$ + sp2 + {{Text|";"|#FFB100}}
                        e$ = evaluate(e$, typ)
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, typ, {{Text|0|#F580B1}})
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected PRINT USING formatstring ; ..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                        puformat$ = e$
                        {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|';|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'b|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) {{Text|THEN|#F0F0F0}} e$ = e$ + sp + a2$ {{Text|ELSE|#F0F0F0}} e$ = a2$
            {{Text|NEXT|#F0F0F0}}
            {{Text|IF|#F0F0F0}} puformat$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected PRINT USING formatstring ; ..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected PRINT USING formatstring ; ..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            {{Text|'create build string|#31C4C4}}
            {{Text|IF|#F0F0F0}} TQBSset = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"tqbs=qbs_new(0,0);"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"qbs_set(tqbs,qbs_new_txt_len("|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|",0));"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|'set format start/index variable|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"tmp_long=0;"|#FFB100}} {{Text|'scan format from beginning|#31C4C4}}
            {{Text|'create string to hold format in for multiple references|#31C4C4}}
            puf$ = {{Text|"print_using_format"|#FFB100}} + u$
            {{Text|IF|#F0F0F0}} subfunc = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                WriteBufLine DataTxtBuf, {{Text|"static qbs *"|#FFB100}} + puf$ + {{Text|";"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                WriteBufLine DataTxtBuf, {{Text|"qbs *"|#FFB100}} + puf$ + {{Text|";"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            WriteBufLine MainTxtBuf, puf$ + {{Text|"=qbs_new(0,0); qbs_set("|#FFB100}} + puf$ + {{Text|","|#FFB100}} + puformat$ + {{Text|");"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"if (new_error) goto skip_pu"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
            {{Text|'print expressions|#31C4C4}}
            b = {{Text|0|#F580B1}}
            e$ = {{Text|""|#FFB100}}
            last = {{Text|0|#F580B1}}
            {{Text|FOR|#F0F0F0}} i = i + {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
                a2$ = getelement(ca$, i)
                {{Text|IF|#F0F0F0}} a2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} a2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} a2$ = {{Text|";"|#FFB100}} {{Text|OR|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}}
                        printulast:
                        e$ = fixoperationorder$(e$)
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} last {{Text|THEN|#F0F0F0}} l$ = l$ + sp + tlayout$ {{Text|ELSE|#F0F0F0}} l$ = l$ + sp + tlayout$ + sp2 + a2$
                        e$ = evaluate(e$, typ)
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, typ, {{Text|0|#F580B1}})
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(e$, {{Text|9|#F580B1}}) = {{Text|"func_tab("|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(e$, {{Text|9|#F580B1}}) = {{Text|"func_spc("|#FFB100}} {{Text|THEN|#F0F0F0}}
                                {{Text|'TAB/SPC exception|#31C4C4}}
                                {{Text|'note: position in format-string must be maintained|#31C4C4}}
                                {{Text|'-print any string up until now|#31C4C4}}
                                WriteBufLine MainTxtBuf, {{Text|"qbs_"|#FFB100}} + lp$ + {{Text|"print(tqbs,0);"|#FFB100}}
                                {{Text|'-print e$|#31C4C4}}
                                WriteBufLine MainTxtBuf, {{Text|"qbs_set(tqbs,"|#FFB100}} + e$ + {{Text|");"|#FFB100}}
                                WriteBufLine MainTxtBuf, {{Text|"if (new_error) goto skip_pu"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
                                {{Text|IF|#F0F0F0}} lp {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"lprint_makefit(tqbs);"|#FFB100}} {{Text|ELSE|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"makefit(tqbs);"|#FFB100}}
                                WriteBufLine MainTxtBuf, {{Text|"qbs_"|#FFB100}} + lp$ + {{Text|"print(tqbs,0);"|#FFB100}}
                                {{Text|'-set length of tqbs to 0|#31C4C4}}
                                WriteBufLine MainTxtBuf, {{Text|"tqbs->len=0;"|#FFB100}}
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|'regular string|#31C4C4}}
                                WriteBufLine MainTxtBuf, {{Text|"tmp_long=print_using("|#FFB100}} + puf$ + {{Text|",tmp_long,tqbs,"|#FFB100}} + e$ + {{Text|");"|#FFB100}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|ELSE|#F0F0F0}} {{Text|'not a string|#31C4C4}}
                            {{Text|IF|#F0F0F0}} typ {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"tmp_long=print_using_single("|#FFB100}} + puf$ + {{Text|","|#FFB100}} + e$ + {{Text|",tmp_long,tqbs);"|#FFB100}}
                                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"tmp_long=print_using_double("|#FFB100}} + puf$ + {{Text|","|#FFB100}} + e$ + {{Text|",tmp_long,tqbs);"|#FFB100}}
                                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) > {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"tmp_long=print_using_float("|#FFB100}} + puf$ + {{Text|","|#FFB100}} + e$ + {{Text|",tmp_long,tqbs);"|#FFB100}}
                            {{Text|ELSE|#F0F0F0}}
                                {{Text|IF|#F0F0F0}} ((typ {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) = {{Text|64|#F580B1}}) {{Text|AND|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISUNSIGNED) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                                    WriteBufLine MainTxtBuf, {{Text|"tmp_long=print_using_uinteger64("|#FFB100}} + puf$ + {{Text|","|#FFB100}} + e$ + {{Text|",tmp_long,tqbs);"|#FFB100}}
                                {{Text|ELSE|#F0F0F0}}
                                    WriteBufLine MainTxtBuf, {{Text|"tmp_long=print_using_integer64("|#FFB100}} + puf$ + {{Text|","|#FFB100}} + e$ + {{Text|",tmp_long,tqbs);"|#FFB100}}
                                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'string/not string|#31C4C4}}
                        WriteBufLine MainTxtBuf, {{Text|"if (new_error) goto skip_pu"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
                        e$ = {{Text|""|#FFB100}}
                        {{Text|IF|#F0F0F0}} last {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                        {{Text|GOTO|#F0F0F0}} printunext
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) {{Text|THEN|#F0F0F0}} e$ = e$ + sp + a2$ {{Text|ELSE|#F0F0F0}} e$ = a2$
                printunext:
            {{Text|NEXT|#F0F0F0}}
            {{Text|IF|#F0F0F0}} e$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a2$ = {{Text|""|#FFB100}}: last = {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} printulast
            WriteBufLine MainTxtBuf, {{Text|"skip_pu"|#FFB100}} + u$ + {{Text|":"|#FFB100}}
            {{Text|'check for errors|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"if (new_error){"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"g_tmp_long=new_error; new_error=0; qbs_"|#FFB100}} + lp$ + {{Text|"print(tqbs,0); new_error=g_tmp_long;"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"}else{"|#FFB100}}
            {{Text|IF|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|OR|#F0F0F0}} a2$ = {{Text|";"|#FFB100}} {{Text|THEN|#F0F0F0}} nl = {{Text|0|#F580B1}} {{Text|ELSE|#F0F0F0}} nl = {{Text|1|#F580B1}} {{Text|'note: a2$ is set to the last element of a$|#31C4C4}}
            WriteBufLine MainTxtBuf, {{Text|"qbs_"|#FFB100}} + lp$ + {{Text|"print(tqbs,"|#FFB100}} + str2$(nl) + {{Text|");"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"}"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"qbs_free(tqbs);"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"qbs_free("|#FFB100}} + puf$ + {{Text|");"|#FFB100}}
            WriteBufLine MainTxtBuf, {{Text|"skip"|#FFB100}} + u$ + {{Text|":"|#FFB100}}
            WriteBufLine MainTxtBuf, cleanupstringprocessingcall$ + {{Text|"0);"|#FFB100}}
            {{Text|IF|#F0F0F0}} lp {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"tab_LPRINT=0;"|#FFB100}}
            tlayout$ = l$
            {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'end of print using code|#31C4C4}}
    b = {{Text|0|#F580B1}}
    e$ = {{Text|""|#FFB100}}
    last = {{Text|0|#F580B1}}
    WriteBufLine MainTxtBuf, {{Text|"tqbs=qbs_new(0,0);"|#FFB100}} {{Text|'initialize the temp string|#31C4C4}}
    TQBSset = {{Text|-1|#F580B1}} {{Text|'set the temporary flag so we don't create a temp string twice, in case USING comes after something|#31C4C4}}
    {{Text|FOR|#F0F0F0}} i = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n
        a2$ = getelement(ca$, i)
        {{Text|IF|#F0F0F0}} a2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} a2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} a2$ = {{Text|";"|#FFB100}} {{Text|OR|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(a2$) = {{Text|"USING"|#FFB100}} {{Text|THEN|#F0F0F0}}
                printlast:
                {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(a2$) = {{Text|"USING"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} e$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} gotopu = {{Text|1|#F580B1}} {{Text|ELSE|#F0F0F0}} i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} pujump
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) {{Text|THEN|#F0F0F0}}
                    ebak$ = e$
                    pnrtnum = {{Text|0|#F580B1}}
                    printnumber:
                    e$ = fixoperationorder$(e$)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} pnrtnum = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} last {{Text|THEN|#F0F0F0}} l$ = l$ + sp + tlayout$ {{Text|ELSE|#F0F0F0}} l$ = l$ + sp + tlayout$ + sp2 + a2$
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    e$ = evaluate(e$, typ)
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|'not a string expresion!|#31C4C4}}
                        e$ = {{Text|"STR$"|#FFB100}} + sp + {{Text|"("|#FFB100}} + sp + ebak$ + sp + {{Text|")"|#FFB100}} + sp + {{Text|"+"|#FFB100}} + sp + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|" "|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
                        pnrtnum = {{Text|1|#F580B1}}
                        {{Text|GOTO|#F0F0F0}} printnumber
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, typ, {{Text|0|#F580B1}})
                    {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"qbs_set(tqbs,"|#FFB100}} + e$ + {{Text|");"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"if (new_error) goto skip"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
                    {{Text|IF|#F0F0F0}} lp {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"lprint_makefit(tqbs);"|#FFB100}} {{Text|ELSE|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"makefit(tqbs);"|#FFB100}}
                    WriteBufLine MainTxtBuf, {{Text|"qbs_"|#FFB100}} + lp$ + {{Text|"print(tqbs,0);"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp + a2$
                    {{Text|IF|#F0F0F0}} a2$ = {{Text|";"|#FFB100}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(l$, {{Text|1|#F580B1}}) <> {{Text|";"|#FFB100}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp + a2$ {{Text|'concat ;; to ;|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'len(e$)|#31C4C4}}
                {{Text|IF|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"tab();"|#FFB100}}
                e$ = {{Text|""|#FFB100}}
                {{Text|IF|#F0F0F0}} gotopu {{Text|THEN|#F0F0F0}} i = i + {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} pujump
                {{Text|IF|#F0F0F0}} last {{Text|THEN|#F0F0F0}}
                    WriteBufLine MainTxtBuf, {{Text|"qbs_"|#FFB100}} + lp$ + {{Text|"print(nothingstring,1);"|#FFB100}} {{Text|'go to new line|#31C4C4}}
                    {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|GOTO|#F0F0F0}} printnext
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'a2$|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'b=0|#31C4C4}}
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) {{Text|THEN|#F0F0F0}} e$ = e$ + sp + a2$ {{Text|ELSE|#F0F0F0}} e$ = a2$
        printnext:
    {{Text|NEXT|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) {{Text|THEN|#F0F0F0}} a2$ = {{Text|""|#FFB100}}: last = {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} printlast
    {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"qbs_"|#FFB100}} + lp$ + {{Text|"print(nothingstring,1);"|#FFB100}}
    WriteBufLine MainTxtBuf, {{Text|"skip"|#FFB100}} + u$ + {{Text|":"|#FFB100}}
    WriteBufLine MainTxtBuf, {{Text|"qbs_free(tqbs);"|#FFB100}}
    WriteBufLine MainTxtBuf, cleanupstringprocessingcall$ + {{Text|"0);"|#FFB100}}
    {{Text|IF|#F0F0F0}} lp {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, {{Text|"tab_LPRINT=0;"|#FFB100}}
    tlayout$ = l$
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} xread (ca$, n)
    l$ = SCase$({{Text|"Read"|#FFB100}})
    {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected variable"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    i = {{Text|2|#F580B1}}
    {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected , ..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    a3$ = {{Text|""|#FFB100}}
    b = {{Text|0|#F580B1}}
    {{Text|FOR|#F0F0F0}} i = i {{Text|TO|#F0F0F0}} n
        a2$ = getelement$(ca$, i)
        {{Text|IF|#F0F0F0}} a2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} a2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} (a2$ = {{Text|","|#FFB100}} {{Text|AND|#F0F0F0}} b = {{Text|0|#F580B1}}) {{Text|OR|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} a3$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a3$ = a2$ {{Text|ELSE|#F0F0F0}} a3$ = a3$ + sp + a2$
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} a3$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected , ..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            e$ = fixoperationorder$(a3$)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            l$ = l$ + sp + tlayout$: {{Text|IF|#F0F0F0}} i <> n {{Text|THEN|#F0F0F0}} l$ = l$ + sp2 + {{Text|","|#FFB100}}
            e$ = evaluate(e$, t)
            {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISREFERENCE) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected variable"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}}
                e$ = refer(e$, t, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                WriteBufLine MainTxtBuf, {{Text|"sub_read_string(data,&data_offset,data_size,"|#FFB100}} + e$ + {{Text|");"|#FFB100}}
                stringprocessinghappened = {{Text|1|#F580B1}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|'numeric variable|#31C4C4}}
                {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISFLOAT) <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} (t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}) <> {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISOFFSETINBITS) {{Text|THEN|#F0F0F0}}
                        setrefer e$, t, {{Text|"((int64)func_read_float(data,&data_offset,data_size,"|#FFB100}} + str2(t) + {{Text|"))"|#FFB100}}, {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                    {{Text|ELSE|#F0F0F0}}
                        setrefer e$, t, {{Text|"func_read_float(data,&data_offset,data_size,"|#FFB100}} + str2(t) + {{Text|")"|#FFB100}}, {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}}
                        setrefer e$, t, {{Text|"func_read_uint64(data,&data_offset,data_size)"|#FFB100}}, {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                    {{Text|ELSE|#F0F0F0}}
                        setrefer e$, t, {{Text|"func_read_int64(data,&data_offset,data_size)"|#FFB100}}, {{Text|1|#F580B1}}
                        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'string/numeric|#31C4C4}}
            {{Text|IF|#F0F0F0}} i = n {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
            a3$ = {{Text|""|#FFB100}}: a2$ = {{Text|""|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} a3$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a3$ = a2$ {{Text|ELSE|#F0F0F0}} a3$ = a3$ + sp + a2$
    {{Text|NEXT|#F0F0F0}}
    {{Text|IF|#F0F0F0}} stringprocessinghappened {{Text|THEN|#F0F0F0}} WriteBufLine MainTxtBuf, cleanupstringprocessingcall$ + {{Text|"0);"|#FFB100}}
    layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} xwrite (ca$, n)
    l$ = SCase$({{Text|"Write"|#FFB100}})
    u$ = str2$(uniquenumber)
    {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        WriteBufLine MainTxtBuf, {{Text|"qbs_print(nothingstring,1);"|#FFB100}}
        {{Text|GOTO|#F0F0F0}} writeblankline2
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    b = {{Text|0|#F580B1}}
    e$ = {{Text|""|#FFB100}}
    last = {{Text|0|#F580B1}}
    {{Text|FOR|#F0F0F0}} i = {{Text|2|#F580B1}} {{Text|TO|#F0F0F0}} n
        a2$ = getelement(ca$, i)
        {{Text|IF|#F0F0F0}} a2$ = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} a2$ = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} b = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} a2$ = {{Text|","|#FFB100}} {{Text|THEN|#F0F0F0}}
                writelast:
                {{Text|IF|#F0F0F0}} last = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} newline = {{Text|1|#F580B1}} {{Text|ELSE|#F0F0F0}} newline = {{Text|0|#F580B1}}
                ebak$ = e$
                reevaled = {{Text|0|#F580B1}}
                writechecked:
                e$ = fixoperationorder$(e$)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                {{Text|IF|#F0F0F0}} reevaled = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    l$ = l$ + sp + tlayout$
                    {{Text|IF|#F0F0F0}} last = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} l$ = l$ + sp2 + {{Text|","|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                e$ = evaluate(e$, typ)
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                {{Text|IF|#F0F0F0}} reevaled = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISSTRING) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        e$ = {{Text|"LTRIM$"|#FFB100}} + sp + {{Text|"("|#FFB100}} + sp + {{Text|"STR$"|#FFB100}} + sp + {{Text|"("|#FFB100}} + sp + ebak$ + sp + {{Text|")"|#FFB100}} + sp + {{Text|")"|#FFB100}}
                        {{Text|IF|#F0F0F0}} last = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = e$ + sp + {{Text|"+"|#FFB100}} + sp + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|","|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|",1"|#FFB100}}
                        reevaled = {{Text|1|#F580B1}}
                        {{Text|GOTO|#F0F0F0}} writechecked {{Text|'force re-evaluation|#31C4C4}}
                    {{Text|ELSE|#F0F0F0}}
                        e$ = {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"\042"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|",1"|#FFB100}} + sp + {{Text|"+"|#FFB100}} + sp + ebak$ + sp + {{Text|"+"|#FFB100}} + sp + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|"\042"|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|",1"|#FFB100}}
                        {{Text|IF|#F0F0F0}} last = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = e$ + sp + {{Text|"+"|#FFB100}} + sp + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|","|#FFB100}} + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|",1"|#FFB100}}
                        reevaled = {{Text|1|#F580B1}}
                        {{Text|GOTO|#F0F0F0}} writechecked {{Text|'force re-evaluation|#31C4C4}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} (typ {{Text|AND|#F0F0F0}} ISREFERENCE) {{Text|THEN|#F0F0F0}} e$ = refer(e$, typ, {{Text|0|#F580B1}})
                {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                {{Text|'format: string, (1/0) extraspace, (1/0) tab, (1/0)begin a new line|#31C4C4}}
                WriteBufLine MainTxtBuf, {{Text|"qbs_print("|#FFB100}} + e$ + {{Text|","|#FFB100}} + {{Text|STR$|#F0F0F0}}(newline) + {{Text|");"|#FFB100}}
                WriteBufLine MainTxtBuf, {{Text|"if (new_error) goto skip"|#FFB100}} + u$ + {{Text|";"|#FFB100}}
                e$ = {{Text|""|#FFB100}}
                {{Text|IF|#F0F0F0}} last {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                {{Text|GOTO|#F0F0F0}} writenext
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|',|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'b=0|#31C4C4}}
        {{Text|IF|#F0F0F0}} e$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} e$ = e$ + sp + a2$ {{Text|ELSE|#F0F0F0}} e$ = a2$
        writenext:
    {{Text|NEXT|#F0F0F0}}
    {{Text|IF|#F0F0F0}} e$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} a2$ = {{Text|","|#FFB100}}: last = {{Text|1|#F580B1}}: {{Text|GOTO|#F0F0F0}} writelast
    writeblankline2:
    WriteBufLine MainTxtBuf, {{Text|"skip"|#FFB100}} + u$ + {{Text|":"|#FFB100}}
    WriteBufLine MainTxtBuf, cleanupstringprocessingcall$ + {{Text|"0);"|#FFB100}}
    layoutdone = {{Text|1|#F580B1}}: {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(layout$) {{Text|THEN|#F0F0F0}} layout$ = layout$ + sp + l$ {{Text|ELSE|#F0F0F0}} layout$ = l$
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} evaluateconst$ (a2$, t {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}})
    a$ = a2$
    {{Text|IF|#F0F0F0}} Debug {{Text|THEN|#F0F0F0}} {{Text|PRINT|#F0F0F0}} #9, {{Text|"evaluateconst:in:"|#FFB100}} + a$
    {{Text|DIM|#F0F0F0}} block({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
    {{Text|DIM|#F0F0F0}} status({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
    {{Text|'0=unprocessed (can be "")|#31C4C4}}
    {{Text|'1=processed|#31C4C4}}
    {{Text|DIM|#F0F0F0}} btype({{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}} {{Text|'for status=1 blocks|#31C4C4}}
    {{Text|'put a$ into blocks|#31C4C4}}
    n = numelements(a$)
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
        block(i) = getelement$(a$, i)
    {{Text|NEXT|#F0F0F0}}
    evalconstevalbrack:
    {{Text|'find highest bracket level|#31C4C4}}
    l = {{Text|0|#F580B1}}
    b = {{Text|0|#F580B1}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
        {{Text|IF|#F0F0F0}} block(i) = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} b = b + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} block(i) = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} b = b - {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} b > l {{Text|THEN|#F0F0F0}} l = b
    {{Text|NEXT|#F0F0F0}}
    {{Text|'if brackets exist, evaluate that item first|#31C4C4}}
    {{Text|IF|#F0F0F0}} l {{Text|THEN|#F0F0F0}}
        b = {{Text|0|#F580B1}}
        e$ = {{Text|""|#FFB100}}
        {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
            {{Text|IF|#F0F0F0}} block(i) = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} b = l {{Text|THEN|#F0F0F0}} block(i) = {{Text|""|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                b = b - {{Text|1|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} b >= l {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} e$ = block(i) {{Text|ELSE|#F0F0F0}} e$ = e$ + sp + block(i)
                block(i) = {{Text|""|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} block(i) = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}}
                b = b + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} b = l {{Text|THEN|#F0F0F0}} i2 = i: block(i) = {{Text|""|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|NEXT|#F0F0F0}} i
        status(i) = {{Text|1|#F580B1}}
        block(i) = evaluateconst$(e$, btype(i))
        {{Text|IF|#F0F0F0}} Error_Happened {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|GOTO|#F0F0F0}} evalconstevalbrack
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'l|#31C4C4}}
    {{Text|'linear equation remains with some pre-calculated & non-pre-calc blocks|#31C4C4}}
    {{Text|'problem: type QBASIC assumes and type required to store calc. value may|#31C4C4}}
    {{Text|'        differ dramatically. in qbasic, this would have caused an overflow,|#31C4C4}}
    {{Text|'        but in qb64 it MUST work. eg. 32767% * 32767%|#31C4C4}}
    {{Text|'solution: all interger calc. will be performed using a signed _INTEGER64|#31C4C4}}
    {{Text|'          all float calc. will be performed using a _FLOAT|#31C4C4}}
    {{Text|'convert non-calc block numbers into binary form with QBASIC-like type|#31C4C4}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
        {{Text|IF|#F0F0F0}} status(i) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(block(i)) {{Text|THEN|#F0F0F0}}
                a = {{Text|ASC|#F0F0F0}}(block(i))
                {{Text|IF|#F0F0F0}} (a = {{Text|45|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LEN|#F0F0F0}}(block(i)) > {{Text|1|#F580B1}}) {{Text|OR|#F0F0F0}} (a >= {{Text|48|#F580B1}} {{Text|AND|#F0F0F0}} a <= {{Text|57|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|'number?|#31C4C4}}
                    {{Text|'integers|#31C4C4}}
                    e$ = {{Text|RIGHT$|#F0F0F0}}(block(i), {{Text|3|#F580B1}})
                    {{Text|IF|#F0F0F0}} e$ = {{Text|"~&&"|#FFB100}} {{Text|THEN|#F0F0F0}} btype(i) = UINTEGER64TYPE - ISPOINTER: {{Text|GOTO|#F0F0F0}} gotconstblkityp
                    {{Text|IF|#F0F0F0}} e$ = {{Text|"~%%"|#FFB100}} {{Text|THEN|#F0F0F0}} btype(i) = UBYTETYPE - ISPOINTER: {{Text|GOTO|#F0F0F0}} gotconstblkityp
                    e$ = {{Text|RIGHT$|#F0F0F0}}(block(i), {{Text|2|#F580B1}})
                    {{Text|IF|#F0F0F0}} e$ = {{Text|"&&"|#FFB100}} {{Text|THEN|#F0F0F0}} btype(i) = INTEGER64TYPE - ISPOINTER: {{Text|GOTO|#F0F0F0}} gotconstblkityp
                    {{Text|IF|#F0F0F0}} e$ = {{Text|"%%"|#FFB100}} {{Text|THEN|#F0F0F0}} btype(i) = BYTETYPE - ISPOINTER: {{Text|GOTO|#F0F0F0}} gotconstblkityp
                    {{Text|IF|#F0F0F0}} e$ = {{Text|"~%"|#FFB100}} {{Text|THEN|#F0F0F0}} btype(i) = UINTEGERTYPE - ISPOINTER: {{Text|GOTO|#F0F0F0}} gotconstblkityp
                    {{Text|IF|#F0F0F0}} e$ = {{Text|"~&"|#FFB100}} {{Text|THEN|#F0F0F0}} btype(i) = ULONGTYPE - ISPOINTER: {{Text|GOTO|#F0F0F0}} gotconstblkityp
                    e$ = {{Text|RIGHT$|#F0F0F0}}(block(i), {{Text|1|#F580B1}})
                    {{Text|IF|#F0F0F0}} e$ = {{Text|"%"|#FFB100}} {{Text|THEN|#F0F0F0}} btype(i) = INTEGERTYPE - ISPOINTER: {{Text|GOTO|#F0F0F0}} gotconstblkityp
                    {{Text|IF|#F0F0F0}} e$ = {{Text|"&"|#FFB100}} {{Text|THEN|#F0F0F0}} btype(i) = LONGTYPE - ISPOINTER: {{Text|GOTO|#F0F0F0}} gotconstblkityp
                    {{Text|'ubit-type?|#31C4C4}}
                    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(block(i), {{Text|"~`"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                        x = {{Text|INSTR|#F0F0F0}}(block(i), {{Text|"~`"|#FFB100}})
                        {{Text|IF|#F0F0F0}} x = {{Text|LEN|#F0F0F0}}(block(i)) - {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} block(i) = block(i) + {{Text|"1"|#FFB100}}
                        btype(i) = UBITTYPE - ISPOINTER - {{Text|1|#F580B1}} + {{Text|VAL|#F0F0F0}}({{Text|RIGHT$|#F0F0F0}}(block(i), {{Text|LEN|#F0F0F0}}(block(i)) - x - {{Text|1|#F580B1}}))
                        block(i) = {{Text|_MK$|#F0F0F0}}(_INTEGER64, {{Text|VAL|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(block(i), x - {{Text|1|#F580B1}})))
                        status(i) = {{Text|1|#F580B1}}
                        {{Text|GOTO|#F0F0F0}} gotconstblktyp
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'bit-type?|#31C4C4}}
                    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(block(i), {{Text|"`"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                        x = {{Text|INSTR|#F0F0F0}}(block(i), {{Text|"`"|#FFB100}})
                        {{Text|IF|#F0F0F0}} x = {{Text|LEN|#F0F0F0}}(block(i)) {{Text|THEN|#F0F0F0}} block(i) = block(i) + {{Text|"1"|#FFB100}}
                        btype(i) = BITTYPE - ISPOINTER - {{Text|1|#F580B1}} + {{Text|VAL|#F0F0F0}}({{Text|RIGHT$|#F0F0F0}}(block(i), {{Text|LEN|#F0F0F0}}(block(i)) - x))
                        block(i) = {{Text|_MK$|#F0F0F0}}(_INTEGER64, {{Text|VAL|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(block(i), x - {{Text|1|#F580B1}})))
                        status(i) = {{Text|1|#F580B1}}
                        {{Text|GOTO|#F0F0F0}} gotconstblktyp
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|'floats|#31C4C4}}
                    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(block(i), {{Text|"E"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                        block(i) = {{Text|_MK$|#F0F0F0}}({{Text|_FLOAT|#F0F0F0}}, {{Text|VAL|#F0F0F0}}(block(i)))
                        btype(i) = SINGLETYPE - ISPOINTER
                        status(i) = {{Text|1|#F580B1}}
                        {{Text|GOTO|#F0F0F0}} gotconstblktyp
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(block(i), {{Text|"D"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                        block(i) = {{Text|_MK$|#F0F0F0}}({{Text|_FLOAT|#F0F0F0}}, {{Text|VAL|#F0F0F0}}(block(i)))
                        btype(i) = DOUBLETYPE - ISPOINTER
                        status(i) = {{Text|1|#F580B1}}
                        {{Text|GOTO|#F0F0F0}} gotconstblktyp
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(block(i), {{Text|"F"|#FFB100}}) {{Text|THEN|#F0F0F0}}
                        block(i) = {{Text|_MK$|#F0F0F0}}({{Text|_FLOAT|#F0F0F0}}, {{Text|VAL|#F0F0F0}}(block(i)))
                        btype(i) = FLOATTYPE - ISPOINTER
                        status(i) = {{Text|1|#F580B1}}
                        {{Text|GOTO|#F0F0F0}} gotconstblktyp
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    Give_Error {{Text|"Invalid CONST expression.1"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    gotconstblkityp:
                    block(i) = {{Text|LEFT$|#F0F0F0}}(block(i), {{Text|LEN|#F0F0F0}}(block(i)) - {{Text|LEN|#F0F0F0}}(e$))
                    block(i) = {{Text|_MK$|#F0F0F0}}(_INTEGER64, {{Text|VAL|#F0F0F0}}(block(i)))
                    status(i) = {{Text|1|#F580B1}}
                    gotconstblktyp:
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'a|#31C4C4}}
                {{Text|IF|#F0F0F0}} a = {{Text|34|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'string?|#31C4C4}}
                    {{Text|'no changes need to be made to block(i) which is of format "CHARACTERS",size|#31C4C4}}
                    btype(i) = STRINGTYPE - ISPOINTER
                    status(i) = {{Text|1|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'len<>0|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'status|#31C4C4}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|'remove NULL blocks|#31C4C4}}
    n2 = {{Text|0|#F580B1}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} n
        {{Text|IF|#F0F0F0}} block(i) <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
            n2 = n2 + {{Text|1|#F580B1}}
            block(n2) = block(i)
            status(n2) = status(i)
            btype(n2) = btype(i)
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    n = n2
    {{Text|'only one block?|#31C4C4}}
    {{Text|IF|#F0F0F0}} n = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} status({{Text|1|#F580B1}}) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid CONST expression.2"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        t = btype({{Text|1|#F580B1}})
        evaluateconst$ = block({{Text|1|#F580B1}})
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|'n=1|#31C4C4}}
    {{Text|'evaluate equation (equation cannot contain any STRINGs)|#31C4C4}}
    {{Text|'[negation/not][variable]|#31C4C4}}
    e$ = block({{Text|1|#F580B1}})
    {{Text|IF|#F0F0F0}} status({{Text|1|#F580B1}}) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} n <> {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid CONST expression.4"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} status({{Text|2|#F580B1}}) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid CONST expression.5"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} btype({{Text|2|#F580B1}}) {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid CONST expression.6"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        o$ = block({{Text|1|#F580B1}})
        {{Text|IF|#F0F0F0}} o$ = {{Text|CHR$|#F0F0F0}}({{Text|241|#F580B1}}) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} btype({{Text|2|#F580B1}}) {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
                r## = {{Text|-_CV({{Text|_FLOAT|#F0F0F0}}|#F580B1}}, block({{Text|2|#F580B1}}))
                evaluateconst$ = {{Text|_MK$|#F0F0F0}}({{Text|_FLOAT|#F0F0F0}}, r##)
            {{Text|ELSE|#F0F0F0}}
                r&& = {{Text|-_CV(_INTEGER64|#F580B1}}, block({{Text|2|#F580B1}}))
                evaluateconst$ = {{Text|_MK$|#F0F0F0}}(_INTEGER64, r&&)
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            t = btype({{Text|2|#F580B1}})
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}(o$) = {{Text|"NOT"|#FFB100}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} btype({{Text|2|#F580B1}}) {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
                r&& = {{Text|_CV|#F0F0F0}}({{Text|_FLOAT|#F0F0F0}}, block({{Text|2|#F580B1}}))
            {{Text|ELSE|#F0F0F0}}
                r&& = {{Text|_CV|#F0F0F0}}(_INTEGER64, block({{Text|2|#F580B1}}))
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            r&& = {{Text|NOT|#F0F0F0}} r&&
            t = btype({{Text|2|#F580B1}})
            {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}} t = LONGTYPE - ISPOINTER {{Text|'markdown to LONG|#31C4C4}}
            evaluateconst$ = {{Text|_MK$|#F0F0F0}}(_INTEGER64, r&&)
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        Give_Error {{Text|"Invalid CONST expression.7"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'[variable][bool-operator][variable]...|#31C4C4}}
    {{Text|'get first variable|#31C4C4}}
    et = btype({{Text|1|#F580B1}})
    ev$ = block({{Text|1|#F580B1}})
    i = {{Text|2|#F580B1}}
    evalconstequ:
    {{Text|'get operator|#31C4C4}}
    {{Text|IF|#F0F0F0}} i >= n {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid CONST expression.8"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    o$ = {{Text|UCASE$|#F0F0F0}}(block(i))
    i = i + {{Text|1|#F580B1}}
    {{Text|IF|#F0F0F0}} isoperator(o$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid CONST expression.9"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} i > n {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid CONST expression.10"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|'string/numeric mismatch?|#31C4C4}}
    {{Text|IF|#F0F0F0}} (btype(i) {{Text|AND|#F0F0F0}} ISSTRING) <> (et {{Text|AND|#F0F0F0}} ISSTRING) {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid CONST expression.11"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|' The left and right operands needs to have valid types. They might not if|#31C4C4}}
    {{Text|' the user wrote something invalid like `1 OR OR 2`|#31C4C4}}
    {{Text|IF|#F0F0F0}} et = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid CONST expression.14"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} btype(i) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid CONST expression.15"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} et {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} o$ <> {{Text|"+"|#FFB100}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Invalid CONST expression.12"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|'concat strings|#31C4C4}}
        s1$ = {{Text|RIGHT$|#F0F0F0}}(ev$, {{Text|LEN|#F0F0F0}}(ev$) - {{Text|1|#F580B1}})
        s1$ = {{Text|LEFT$|#F0F0F0}}(s1$, {{Text|INSTR|#F0F0F0}}(s1$, {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})) - {{Text|1|#F580B1}})
        s1size = {{Text|VAL|#F0F0F0}}({{Text|RIGHT$|#F0F0F0}}(ev$, {{Text|LEN|#F0F0F0}}(ev$) - {{Text|LEN|#F0F0F0}}(s1$) - {{Text|3|#F580B1}}))
        s2$ = {{Text|RIGHT$|#F0F0F0}}(block(i), {{Text|LEN|#F0F0F0}}(block(i)) - {{Text|1|#F580B1}})
        s2$ = {{Text|LEFT$|#F0F0F0}}(s2$, {{Text|INSTR|#F0F0F0}}(s2$, {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})) - {{Text|1|#F580B1}})
        s2size = {{Text|VAL|#F0F0F0}}({{Text|RIGHT$|#F0F0F0}}(block(i), {{Text|LEN|#F0F0F0}}(block(i)) - {{Text|LEN|#F0F0F0}}(s2$) - {{Text|3|#F580B1}}))
        ev$ = {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + s1$ + s2$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + {{Text|","|#FFB100}} + str2$(s1size + s2size)
        {{Text|GOTO|#F0F0F0}} econstmarkedup
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'prepare left and right values|#31C4C4}}
    {{Text|IF|#F0F0F0}} et {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
        linteger = {{Text|0|#F580B1}}
        l## = {{Text|_CV|#F0F0F0}}({{Text|_FLOAT|#F0F0F0}}, ev$)
        l&& = l##
    {{Text|ELSE|#F0F0F0}}
        linteger = {{Text|1|#F580B1}}
        l&& = {{Text|_CV|#F0F0F0}}(_INTEGER64, ev$)
        l## = l&&
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} btype(i) {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
        rinteger = {{Text|0|#F580B1}}
        r## = {{Text|_CV|#F0F0F0}}({{Text|_FLOAT|#F0F0F0}}, block(i))
        r&& = r##
    {{Text|ELSE|#F0F0F0}}
        rinteger = {{Text|1|#F580B1}}
        r&& = {{Text|_CV|#F0F0F0}}(_INTEGER64, block(i))
        r## = r&&
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} linteger = {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} rinteger = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} o$ = {{Text|"+"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l&& + r&&: {{Text|GOTO|#F0F0F0}} econstmarkupi
        {{Text|IF|#F0F0F0}} o$ = {{Text|"-"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l&& - r&&: {{Text|GOTO|#F0F0F0}} econstmarkupi
        {{Text|IF|#F0F0F0}} o$ = {{Text|"*"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l&& * r&&: {{Text|GOTO|#F0F0F0}} econstmarkupi
        {{Text|IF|#F0F0F0}} o$ = {{Text|"^"|#FFB100}} {{Text|THEN|#F0F0F0}} r## = l&& ^ r&&: {{Text|GOTO|#F0F0F0}} econstmarkupf
        {{Text|IF|#F0F0F0}} o$ = {{Text|"/"|#FFB100}} {{Text|THEN|#F0F0F0}} r## = l&& / r&&: {{Text|GOTO|#F0F0F0}} econstmarkupf
        {{Text|IF|#F0F0F0}} o$ = {{Text|"\"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l&& \ r&&: {{Text|GOTO|#F0F0F0}} econstmarkupi
        {{Text|IF|#F0F0F0}} o$ = {{Text|"MOD"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l&& {{Text|MOD|#F0F0F0}} r&&: {{Text|GOTO|#F0F0F0}} econstmarkupi
        {{Text|IF|#F0F0F0}} o$ = {{Text|"="|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l&& = r&&: {{Text|GOTO|#F0F0F0}} econstmarkupi16
        {{Text|IF|#F0F0F0}} o$ = {{Text|">"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l&& > r&&: {{Text|GOTO|#F0F0F0}} econstmarkupi16
        {{Text|IF|#F0F0F0}} o$ = {{Text|"<"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l&& < r&&: {{Text|GOTO|#F0F0F0}} econstmarkupi16
        {{Text|IF|#F0F0F0}} o$ = {{Text|">="|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l&& >= r&&: {{Text|GOTO|#F0F0F0}} econstmarkupi16
        {{Text|IF|#F0F0F0}} o$ = {{Text|"<="|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l&& <= r&&: {{Text|GOTO|#F0F0F0}} econstmarkupi16
        {{Text|IF|#F0F0F0}} o$ = {{Text|"<>"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l&& <> r&&: {{Text|GOTO|#F0F0F0}} econstmarkupi16
        {{Text|IF|#F0F0F0}} o$ = {{Text|"IMP"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l&& {{Text|IMP|#F0F0F0}} r&&: {{Text|GOTO|#F0F0F0}} econstmarkupi
        {{Text|IF|#F0F0F0}} o$ = {{Text|"EQV"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l&& {{Text|EQV|#F0F0F0}} r&&: {{Text|GOTO|#F0F0F0}} econstmarkupi
        {{Text|IF|#F0F0F0}} o$ = {{Text|"XOR"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l&& {{Text|XOR|#F0F0F0}} r&&: {{Text|GOTO|#F0F0F0}} econstmarkupi
        {{Text|IF|#F0F0F0}} o$ = {{Text|"OR"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l&& {{Text|OR|#F0F0F0}} r&&: {{Text|GOTO|#F0F0F0}} econstmarkupi
        {{Text|IF|#F0F0F0}} o$ = {{Text|"AND"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l&& {{Text|AND|#F0F0F0}} r&&: {{Text|GOTO|#F0F0F0}} econstmarkupi
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} o$ = {{Text|"+"|#FFB100}} {{Text|THEN|#F0F0F0}} r## = l## + r##: {{Text|GOTO|#F0F0F0}} econstmarkupf
    {{Text|IF|#F0F0F0}} o$ = {{Text|"-"|#FFB100}} {{Text|THEN|#F0F0F0}} r## = l## - r##: {{Text|GOTO|#F0F0F0}} econstmarkupf
    {{Text|IF|#F0F0F0}} o$ = {{Text|"*"|#FFB100}} {{Text|THEN|#F0F0F0}} r## = l## * r##: {{Text|GOTO|#F0F0F0}} econstmarkupf
    {{Text|IF|#F0F0F0}} o$ = {{Text|"^"|#FFB100}} {{Text|THEN|#F0F0F0}} r## = l## ^ r##: {{Text|GOTO|#F0F0F0}} econstmarkupf
    {{Text|IF|#F0F0F0}} o$ = {{Text|"/"|#FFB100}} {{Text|THEN|#F0F0F0}} r## = l## / r##: {{Text|GOTO|#F0F0F0}} econstmarkupf
    {{Text|IF|#F0F0F0}} o$ = {{Text|"\"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l## \ r##: {{Text|GOTO|#F0F0F0}} econstmarkupi32
    {{Text|IF|#F0F0F0}} o$ = {{Text|"MOD"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l## {{Text|MOD|#F0F0F0}} r##: {{Text|GOTO|#F0F0F0}} econstmarkupi32
    {{Text|IF|#F0F0F0}} o$ = {{Text|"="|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l## = r##: {{Text|GOTO|#F0F0F0}} econstmarkupi16
    {{Text|IF|#F0F0F0}} o$ = {{Text|">"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l## > r##: {{Text|GOTO|#F0F0F0}} econstmarkupi16
    {{Text|IF|#F0F0F0}} o$ = {{Text|"<"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l## < r##: {{Text|GOTO|#F0F0F0}} econstmarkupi16
    {{Text|IF|#F0F0F0}} o$ = {{Text|">="|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l## >= r##: {{Text|GOTO|#F0F0F0}} econstmarkupi16
    {{Text|IF|#F0F0F0}} o$ = {{Text|"<="|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l## <= r##: {{Text|GOTO|#F0F0F0}} econstmarkupi16
    {{Text|IF|#F0F0F0}} o$ = {{Text|"<>"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l## <> r##: {{Text|GOTO|#F0F0F0}} econstmarkupi16
    {{Text|IF|#F0F0F0}} o$ = {{Text|"IMP"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l## {{Text|IMP|#F0F0F0}} r##: {{Text|GOTO|#F0F0F0}} econstmarkupi32
    {{Text|IF|#F0F0F0}} o$ = {{Text|"EQV"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l## {{Text|EQV|#F0F0F0}} r##: {{Text|GOTO|#F0F0F0}} econstmarkupi32
    {{Text|IF|#F0F0F0}} o$ = {{Text|"XOR"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l## {{Text|XOR|#F0F0F0}} r##: {{Text|GOTO|#F0F0F0}} econstmarkupi32
    {{Text|IF|#F0F0F0}} o$ = {{Text|"OR"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l## {{Text|OR|#F0F0F0}} r##: {{Text|GOTO|#F0F0F0}} econstmarkupi32
    {{Text|IF|#F0F0F0}} o$ = {{Text|"AND"|#FFB100}} {{Text|THEN|#F0F0F0}} r&& = l## {{Text|AND|#F0F0F0}} r##: {{Text|GOTO|#F0F0F0}} econstmarkupi32
    Give_Error {{Text|"Invalid CONST expression.13"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    econstmarkupi16:
    et = INTEGERTYPE - ISPOINTER
    ev$ = {{Text|_MK$|#F0F0F0}}(_INTEGER64, r&&)
    {{Text|GOTO|#F0F0F0}} econstmarkedup
    econstmarkupi32:
    et = LONGTYPE - ISPOINTER
    ev$ = {{Text|_MK$|#F0F0F0}}(_INTEGER64, r&&)
    {{Text|GOTO|#F0F0F0}} econstmarkedup
    econstmarkupi:
    {{Text|IF|#F0F0F0}} et <> btype(i) {{Text|THEN|#F0F0F0}}
        {{Text|'keep unsigned?|#31C4C4}}
        u = {{Text|0|#F580B1}}: {{Text|IF|#F0F0F0}} (et {{Text|AND|#F0F0F0}} ISUNSIGNED) <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (btype(i) {{Text|AND|#F0F0F0}} ISUNSIGNED) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} u = {{Text|1|#F580B1}}
        lb = et {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}: rb = btype(i) {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
        ob = {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} lb = rb {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (et {{Text|AND|#F0F0F0}} ISOFFSETINBITS) <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} (btype(i) {{Text|AND|#F0F0F0}} ISOFFSETINBITS) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} ob = {{Text|1|#F580B1}}
            b = lb
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} lb > rb {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (et {{Text|AND|#F0F0F0}} ISOFFSETINBITS) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} ob = {{Text|1|#F580B1}}
            b = lb
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} lb < rb {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (btype(i) {{Text|AND|#F0F0F0}} ISOFFSETINBITS) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} ob = {{Text|1|#F580B1}}
            b = rb
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        et = b
        {{Text|IF|#F0F0F0}} ob {{Text|THEN|#F0F0F0}} et = et + ISOFFSETINBITS
        {{Text|IF|#F0F0F0}} u {{Text|THEN|#F0F0F0}} et = et + ISUNSIGNED
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    ev$ = {{Text|_MK$|#F0F0F0}}(_INTEGER64, r&&)
    {{Text|GOTO|#F0F0F0}} econstmarkedup
    econstmarkupf:
    lfb = {{Text|0|#F580B1}}: rfb = {{Text|0|#F580B1}}
    lib = {{Text|0|#F580B1}}: rib = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} et {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}} lfb = et {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}} {{Text|ELSE|#F0F0F0}} lib = et {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
    {{Text|IF|#F0F0F0}} btype(i) {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}} rfb = btype(i) {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}} {{Text|ELSE|#F0F0F0}} rib = btype(i) {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
    f = {{Text|32|#F580B1}}
    {{Text|IF|#F0F0F0}} lib > {{Text|16|#F580B1}} {{Text|OR|#F0F0F0}} rib > {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} f = {{Text|64|#F580B1}}
    {{Text|IF|#F0F0F0}} lfb > {{Text|32|#F580B1}} {{Text|OR|#F0F0F0}} rfb > {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} f = {{Text|64|#F580B1}}
    {{Text|IF|#F0F0F0}} lib > {{Text|32|#F580B1}} {{Text|OR|#F0F0F0}} rib > {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} f = {{Text|256|#F580B1}}
    {{Text|IF|#F0F0F0}} lfb > {{Text|64|#F580B1}} {{Text|OR|#F0F0F0}} rfb > {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} f = {{Text|256|#F580B1}}
    et = ISFLOAT + f
    ev$ = {{Text|_MK$|#F0F0F0}}({{Text|_FLOAT|#F0F0F0}}, r##)
    econstmarkedup:
    i = i + {{Text|1|#F580B1}}
    {{Text|IF|#F0F0F0}} i <= n {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} evalconstequ
    t = et
    evaluateconst$ = ev$
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} typevalue2symbol$ (t)
    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Cannot convert expression type to symbol"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        typevalue2symbol$ = {{Text|"$"|#FFB100}}
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    s$ = {{Text|""|#FFB100}}
    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}} s$ = {{Text|"~"|#FFB100}}
    b = t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISOFFSETINBITS {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} b > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} s$ = s$ + {{Text|"`"|#FFB100}} + str2$(b) {{Text|ELSE|#F0F0F0}} s$ = s$ + {{Text|"`"|#FFB100}}
        typevalue2symbol$ = s$
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} b = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} s$ = {{Text|"!"|#FFB100}}
        {{Text|IF|#F0F0F0}} b = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} s$ = {{Text|"#"|#FFB100}}
        {{Text|IF|#F0F0F0}} b = {{Text|256|#F580B1}} {{Text|THEN|#F0F0F0}} s$ = {{Text|"##"|#FFB100}}
        typevalue2symbol$ = s$
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} b = {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} s$ = s$ + {{Text|"%%"|#FFB100}}
    {{Text|IF|#F0F0F0}} b = {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} s$ = s$ + {{Text|"%"|#FFB100}}
    {{Text|IF|#F0F0F0}} b = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} s$ = s$ + {{Text|"&"|#FFB100}}
    {{Text|IF|#F0F0F0}} b = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} s$ = s$ + {{Text|"&&"|#FFB100}}
    typevalue2symbol$ = s$
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} id2fulltypename$
    t = id.t
    {{Text|IF|#F0F0F0}} t = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} t = id.arraytype
    size = id.tsize
    bits = t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
        a$ = {{Text|RTRIM$|#F0F0F0}}(udtxcname(t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}))
        id2fulltypename$ = a$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}} a$ = {{Text|"STRING * "|#FFB100}} + str2(size) {{Text|ELSE|#F0F0F0}} a$ = {{Text|"STRING"|#FFB100}}
        id2fulltypename$ = a$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISOFFSETINBITS {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} bits > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = qb64prefix$ + {{Text|"BIT * "|#FFB100}} + str2(bits) {{Text|ELSE|#F0F0F0}} a$ = qb64prefix$ + {{Text|"BIT"|#FFB100}}
        {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}} a$ = qb64prefix$ + {{Text|"UNSIGNED "|#FFB100}} + a$
        id2fulltypename$ = a$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} bits = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"SINGLE"|#FFB100}}
        {{Text|IF|#F0F0F0}} bits = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"DOUBLE"|#FFB100}}
        {{Text|IF|#F0F0F0}} bits = {{Text|256|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = qb64prefix$ + {{Text|"FLOAT"|#FFB100}}
    {{Text|ELSE|#F0F0F0}} {{Text|'integer-based|#31C4C4}}
        {{Text|IF|#F0F0F0}} bits = {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = qb64prefix$ + {{Text|"BYTE"|#FFB100}}
        {{Text|IF|#F0F0F0}} bits = {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"INTEGER"|#FFB100}}
        {{Text|IF|#F0F0F0}} bits = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"LONG"|#FFB100}}
        {{Text|IF|#F0F0F0}} bits = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = qb64prefix$ + {{Text|"INTEGER64"|#FFB100}}
        {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}} a$ = qb64prefix$ + {{Text|"UNSIGNED "|#FFB100}} + a$
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISOFFSET {{Text|THEN|#F0F0F0}}
        a$ = qb64prefix$ + {{Text|"OFFSET"|#FFB100}}
        {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}} a$ = qb64prefix$ + {{Text|"UNSIGNED "|#FFB100}} + a$
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    id2fulltypename$ = a$
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} id2shorttypename$
    t = id.t
    {{Text|IF|#F0F0F0}} t = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} t = id.arraytype
    size = id.tsize
    bits = t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
        a$ = {{Text|RTRIM$|#F0F0F0}}(udtxcname(t {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}))
        id2shorttypename$ = a$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFIXEDLENGTH {{Text|THEN|#F0F0F0}} a$ = {{Text|"STRING"|#FFB100}} + str2(size) {{Text|ELSE|#F0F0F0}} a$ = {{Text|"STRING"|#FFB100}}
        id2shorttypename$ = a$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISOFFSETINBITS {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}} a$ = {{Text|"_U"|#FFB100}} {{Text|ELSE|#F0F0F0}} a$ = {{Text|"_"|#FFB100}}
        {{Text|IF|#F0F0F0}} bits > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = a$ + {{Text|"BIT"|#FFB100}} + str2(bits) {{Text|ELSE|#F0F0F0}} a$ = a$ + {{Text|"BIT1"|#FFB100}}
        id2shorttypename$ = a$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} bits = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"SINGLE"|#FFB100}}
        {{Text|IF|#F0F0F0}} bits = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"DOUBLE"|#FFB100}}
        {{Text|IF|#F0F0F0}} bits = {{Text|256|#F580B1}} {{Text|THEN|#F0F0F0}} a$ = {{Text|"_FLOAT"|#FFB100}}
    {{Text|ELSE|#F0F0F0}} {{Text|'integer-based|#31C4C4}}
        {{Text|IF|#F0F0F0}} bits = {{Text|8|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}} a$ = {{Text|"_UBYTE"|#FFB100}} {{Text|ELSE|#F0F0F0}} a$ = {{Text|"_BYTE"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} bits = {{Text|16|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}} a$ = {{Text|"UINTEGER"|#FFB100}} {{Text|ELSE|#F0F0F0}} a$ = {{Text|"INTEGER"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} bits = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}} a$ = {{Text|"ULONG"|#FFB100}} {{Text|ELSE|#F0F0F0}} a$ = {{Text|"LONG"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} bits = {{Text|64|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (t {{Text|AND|#F0F0F0}} ISUNSIGNED) {{Text|THEN|#F0F0F0}} a$ = {{Text|"_UINTEGER64"|#FFB100}} {{Text|ELSE|#F0F0F0}} a$ = {{Text|"_INTEGER64"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    id2shorttypename$ = a$
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} symbol2fulltypename$ (s2$)
    {{Text|'note: accepts both symbols and type names|#31C4C4}}
    s$ = s2$
    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(s$, {{Text|1|#F580B1}}) = {{Text|"~"|#FFB100}} {{Text|THEN|#F0F0F0}}
        u = {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(typ$) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected ~..."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        s$ = {{Text|RIGHT$|#F0F0F0}}(s$, {{Text|LEN|#F0F0F0}}(s$) - {{Text|1|#F580B1}})
        u$ = qb64prefix$ + {{Text|"UNSIGNED "|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} s$ = {{Text|"%%"|#FFB100}} {{Text|THEN|#F0F0F0}} t$ = u$ + qb64prefix$ + {{Text|"BYTE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} gotsym2typ
    {{Text|IF|#F0F0F0}} s$ = {{Text|"%"|#FFB100}} {{Text|THEN|#F0F0F0}} t$ = u$ + {{Text|"INTEGER"|#FFB100}}: {{Text|GOTO|#F0F0F0}} gotsym2typ
    {{Text|IF|#F0F0F0}} s$ = {{Text|"&"|#FFB100}} {{Text|THEN|#F0F0F0}} t$ = u$ + {{Text|"LONG"|#FFB100}}: {{Text|GOTO|#F0F0F0}} gotsym2typ
    {{Text|IF|#F0F0F0}} s$ = {{Text|"&&"|#FFB100}} {{Text|THEN|#F0F0F0}} t$ = u$ + qb64prefix$ + {{Text|"INTEGER64"|#FFB100}}: {{Text|GOTO|#F0F0F0}} gotsym2typ
    {{Text|IF|#F0F0F0}} s$ = {{Text|"%&"|#FFB100}} {{Text|THEN|#F0F0F0}} t$ = u$ + qb64prefix$ + {{Text|"OFFSET"|#FFB100}}: {{Text|GOTO|#F0F0F0}} gotsym2typ
    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(s$, {{Text|1|#F580B1}}) = {{Text|"`"|#FFB100}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(s$) = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
            t$ = u$ + qb64prefix$ + {{Text|"BIT * 1"|#FFB100}}
            {{Text|GOTO|#F0F0F0}} gotsym2typ
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        n$ = {{Text|RIGHT$|#F0F0F0}}(s$, {{Text|LEN|#F0F0F0}}(s$) - {{Text|1|#F580B1}})
        {{Text|IF|#F0F0F0}} isuinteger(n$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected number after symbol `"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        t$ = u$ + qb64prefix$ + {{Text|"BIT * "|#FFB100}} + n$
        {{Text|GOTO|#F0F0F0}} gotsym2typ
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} u = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected type symbol after ~"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} s$ = {{Text|"!"|#FFB100}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"SINGLE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} gotsym2typ
    {{Text|IF|#F0F0F0}} s$ = {{Text|"#"|#FFB100}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"DOUBLE"|#FFB100}}: {{Text|GOTO|#F0F0F0}} gotsym2typ
    {{Text|IF|#F0F0F0}} s$ = {{Text|"##"|#FFB100}} {{Text|THEN|#F0F0F0}} t$ = qb64prefix$ + {{Text|"FLOAT"|#FFB100}}: {{Text|GOTO|#F0F0F0}} gotsym2typ
    {{Text|IF|#F0F0F0}} s$ = {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}} t$ = {{Text|"STRING"|#FFB100}}: {{Text|GOTO|#F0F0F0}} gotsym2typ
    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(s$, {{Text|1|#F580B1}}) = {{Text|"$"|#FFB100}} {{Text|THEN|#F0F0F0}}
        n$ = {{Text|RIGHT$|#F0F0F0}}(s$, {{Text|LEN|#F0F0F0}}(s$) - {{Text|1|#F580B1}})
        {{Text|IF|#F0F0F0}} isuinteger(n$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} Give_Error {{Text|"Expected number after symbol $"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        t$ = {{Text|"STRING * "|#FFB100}} + n$
        {{Text|GOTO|#F0F0F0}} gotsym2typ
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    t$ = s$
    gotsym2typ:
    {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}({{Text|" "|#FFB100}} + t$, {{Text|5|#F580B1}}) = {{Text|" _BIT"|#FFB100}} {{Text|THEN|#F0F0F0}} t$ = t$ + {{Text|" * 1"|#FFB100}} {{Text|'clarify (_UNSIGNED) _BIT as (_UNSIGNED) _BIT * 1|#31C4C4}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(t$)
        {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(t$, i) = {{Text|ASC|#F0F0F0}}(sp) {{Text|THEN|#F0F0F0}} {{Text|ASC|#F0F0F0}}(t$, i) = {{Text|32|#F580B1}}
    {{Text|NEXT|#F0F0F0}}
    symbol2fulltypename$ = t$
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|SUB|#F0F0F0}} lineinput3load (f$)
    {{Text|OPEN|#F0F0F0}} f$ {{Text|FOR|#F0F0F0}} {{Text|BINARY|#F0F0F0}} {{Text|AS|#F0F0F0}} #1
    l = {{Text|LOF|#F0F0F0}}({{Text|1|#F580B1}})
    lineinput3buffer$ = {{Text|SPACE$|#F0F0F0}}(l)
    {{Text|GET|#F0F0F0}} #1, , lineinput3buffer$
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(lineinput3buffer$) {{Text|THEN|#F0F0F0}} {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(lineinput3buffer$, {{Text|1|#F580B1}}) = {{Text|CHR$|#F0F0F0}}({{Text|26|#F580B1}}) {{Text|THEN|#F0F0F0}} lineinput3buffer$ = {{Text|LEFT$|#F0F0F0}}(lineinput3buffer$, {{Text|LEN|#F0F0F0}}(lineinput3buffer$) - {{Text|1|#F580B1}})
    {{Text|CLOSE|#F0F0F0}} #1
    lineinput3index = {{Text|1|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} lineinput3$
    {{Text|'returns CHR$(13) if no more lines are available|#31C4C4}}
    l = {{Text|LEN|#F0F0F0}}(lineinput3buffer$)
    {{Text|IF|#F0F0F0}} lineinput3index > l {{Text|THEN|#F0F0F0}} lineinput3$ = {{Text|CHR$|#F0F0F0}}({{Text|13|#F580B1}}): {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    c13 = {{Text|INSTR|#F0F0F0}}(lineinput3index, lineinput3buffer$, {{Text|CHR$|#F0F0F0}}({{Text|13|#F580B1}}))
    c10 = {{Text|INSTR|#F0F0F0}}(lineinput3index, lineinput3buffer$, {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}}))
    {{Text|IF|#F0F0F0}} c10 = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} c13 = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        lineinput3$ = {{Text|MID$|#F0F0F0}}(lineinput3buffer$, lineinput3index, l - lineinput3index + {{Text|1|#F580B1}})
        lineinput3index = l + {{Text|1|#F580B1}}
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} c10 = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} c10 = {{Text|2147483647|#F580B1}}
    {{Text|IF|#F0F0F0}} c13 = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} c13 = {{Text|2147483647|#F580B1}}
    {{Text|IF|#F0F0F0}} c10 < c13 {{Text|THEN|#F0F0F0}}
        {{Text|'10 before 13|#31C4C4}}
        lineinput3$ = {{Text|MID$|#F0F0F0}}(lineinput3buffer$, lineinput3index, c10 - lineinput3index)
        lineinput3index = c10 + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} lineinput3index <= l {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}({{Text|MID$|#F0F0F0}}(lineinput3buffer$, lineinput3index, {{Text|1|#F580B1}})) = {{Text|13|#F580B1}} {{Text|THEN|#F0F0F0}} lineinput3index = lineinput3index + {{Text|1|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|ELSE|#F0F0F0}}
        {{Text|'13 before 10|#31C4C4}}
        lineinput3$ = {{Text|MID$|#F0F0F0}}(lineinput3buffer$, lineinput3index, c13 - lineinput3index)
        lineinput3index = c13 + {{Text|1|#F580B1}}
        {{Text|IF|#F0F0F0}} lineinput3index <= l {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}({{Text|MID$|#F0F0F0}}(lineinput3buffer$, lineinput3index, {{Text|1|#F580B1}})) = {{Text|10|#F580B1}} {{Text|THEN|#F0F0F0}} lineinput3index = lineinput3index + {{Text|1|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} eleucase$ (a$)
    {{Text|'this function upper-cases all elements except for quoted strings|#31C4C4}}
    {{Text|'check first element|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(a$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    i = {{Text|1|#F580B1}}
    {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(a$) = {{Text|34|#F580B1}} {{Text|THEN|#F0F0F0}}
        i2 = {{Text|INSTR|#F0F0F0}}(a$, sp)
        {{Text|IF|#F0F0F0}} i2 = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} eleucase$ = a$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        a2$ = {{Text|LEFT$|#F0F0F0}}(a$, i2 - {{Text|1|#F580B1}})
        i = i2
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'check other elements|#31C4C4}}
    sp34$ = sp + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
    {{Text|IF|#F0F0F0}} i < {{Text|LEN|#F0F0F0}}(a$) {{Text|THEN|#F0F0F0}}
        {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(i, a$, sp34$)
            i2 = {{Text|INSTR|#F0F0F0}}(i, a$, sp34$)
            a2$ = a2$ + {{Text|UCASE$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(a$, i, i2 - i + {{Text|1|#F580B1}})) {{Text|'everything prior including spacer|#31C4C4}}
            i3 = {{Text|INSTR|#F0F0F0}}(i2 + {{Text|1|#F580B1}}, a$, sp): {{Text|IF|#F0F0F0}} i3 = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} i3 = {{Text|LEN|#F0F0F0}}(a$) {{Text|ELSE|#F0F0F0}} i3 = i3 - {{Text|1|#F580B1}}
            a2$ = a2$ + {{Text|MID$|#F0F0F0}}(a$, i2 + {{Text|1|#F580B1}}, i3 - (i2 + {{Text|1|#F580B1}}) + {{Text|1|#F580B1}}) {{Text|'everything from " to before next spacer or end|#31C4C4}}
            i = i3 + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} i > {{Text|LEN|#F0F0F0}}(a$) {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
        {{Text|LOOP|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    a2$ = a2$ + {{Text|UCASE$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(a$, i, {{Text|LEN|#F0F0F0}}(a$) - i + {{Text|1|#F580B1}}))
    eleucase$ = a2$
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|SUB|#F0F0F0}} SetDependency (requirement)
    {{Text|IF|#F0F0F0}} requirement {{Text|THEN|#F0F0F0}}
        DEPENDENCY(requirement) = {{Text|1|#F580B1}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|'Steve Subs/Functins for _MATH support with CONST|#31C4C4}}
{{Text|FUNCTION|#F0F0F0}} Evaluate_Expression$ (e$)
    t$ = e$ {{Text|'So we preserve our original data, we parse a temp copy of it|#31C4C4}}
    PreParse t$
    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(t$, {{Text|5|#F580B1}}) = {{Text|"ERROR"|#FFB100}} {{Text|THEN|#F0F0F0}} Evaluate_Expression$ = t$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|'Deal with brackets first|#31C4C4}}
    exp$ = {{Text|"("|#FFB100}} + t$ + {{Text|")"|#FFB100}} {{Text|'Starting and finishing brackets for our parse routine.|#31C4C4}}
    {{Text|DO|#F0F0F0}}
        Eval_E = {{Text|INSTR|#F0F0F0}}(exp$, {{Text|")"|#FFB100}})
        {{Text|IF|#F0F0F0}} Eval_E > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            c = {{Text|0|#F580B1}}
            {{Text|DO|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} Eval_E - c <= {{Text|0|#F580B1}}
                c = c + {{Text|1|#F580B1}}
                {{Text|IF|#F0F0F0}} Eval_E {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(exp$, Eval_E - c, {{Text|1|#F580B1}}) = {{Text|"("|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|LOOP|#F0F0F0}}
            s = Eval_E - c + {{Text|1|#F580B1}}
            {{Text|IF|#F0F0F0}} s < {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} Evaluate_Expression$ = {{Text|"ERROR -- BAD () Count"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            eval$ = {{Text|" "|#FFB100}} + {{Text|MID$|#F0F0F0}}(exp$, s, Eval_E - s) + {{Text|" "|#FFB100}} {{Text|'pad with a space before and after so the parser can pick up the values properly.|#31C4C4}}
            ParseExpression eval$
            eval$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(eval$))
            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(eval$, {{Text|5|#F580B1}}) = {{Text|"ERROR"|#FFB100}} {{Text|THEN|#F0F0F0}} Evaluate_Expression$ = eval$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            exp$ = DWD({{Text|LEFT$|#F0F0F0}}(exp$, s - {{Text|2|#F580B1}}) + eval$ + {{Text|MID$|#F0F0F0}}(exp$, Eval_E + {{Text|1|#F580B1}}))
            {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(exp$, {{Text|1|#F580B1}}, {{Text|1|#F580B1}}) = {{Text|"N"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|MID$|#F0F0F0}}(exp$, {{Text|1|#F580B1}}) = {{Text|"-"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} Eval_E = {{Text|0|#F580B1}}
    c = {{Text|0|#F580B1}}
    {{Text|DO|#F0F0F0}}
        c = c + {{Text|1|#F580B1}}
        {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} {{Text|MID$|#F0F0F0}}(exp$, c, {{Text|1|#F580B1}})
            {{Text|CASE|#F0F0F0}} {{Text|"0"|#FFB100}} {{Text|TO|#F0F0F0}} {{Text|"9"|#FFB100}}, {{Text|"."|#FFB100}}, {{Text|"-"|#FFB100}} {{Text|'At this point, we should only have number values left.|#31C4C4}}
            {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}: Evaluate_Expression$ = {{Text|"ERROR - Unknown Diagnosis: ("|#FFB100}} + exp$ + {{Text|") "|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
    {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} c >= {{Text|LEN|#F0F0F0}}(exp$)
    Evaluate_Expression$ = exp$
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|SUB|#F0F0F0}} ParseExpression (exp$)
    {{Text|DIM|#F0F0F0}} num({{Text|10|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
    {{Text|'PRINT exp$|#31C4C4}}
    exp$ = DWD(exp$)
    {{Text|'We should now have an expression with no () to deal with|#31C4C4}}
    {{Text|FOR|#F0F0F0}} J = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|250|#F580B1}}
        lowest = {{Text|0|#F580B1}}
        {{Text|DO|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} lowest = {{Text|LEN|#F0F0F0}}(exp$)
            lowest = {{Text|LEN|#F0F0F0}}(exp$): OpOn = {{Text|0|#F580B1}}
            {{Text|FOR|#F0F0F0}} P = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|UBOUND|#F0F0F0}}(OName)
                {{Text|'Look for first valid operator|#31C4C4}}
                {{Text|IF|#F0F0F0}} J = PL(P) {{Text|THEN|#F0F0F0}} {{Text|'Priority levels match|#31C4C4}}
                    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(exp$, {{Text|1|#F580B1}}) = {{Text|"-"|#FFB100}} {{Text|THEN|#F0F0F0}} startAt = {{Text|2|#F580B1}} {{Text|ELSE|#F0F0F0}} startAt = {{Text|1|#F580B1}}
                    op = {{Text|INSTR|#F0F0F0}}(startAt, exp$, OName(P))
                    {{Text|IF|#F0F0F0}} op = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(OName(P), {{Text|1|#F580B1}}) = {{Text|"_"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|'try again without prefix|#31C4C4}}
                        op = {{Text|INSTR|#F0F0F0}}(startAt, exp$, {{Text|MID$|#F0F0F0}}(OName(P), {{Text|2|#F580B1}}))
                        {{Text|IF|#F0F0F0}} op > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                            exp$ = {{Text|LEFT$|#F0F0F0}}(exp$, op - {{Text|1|#F580B1}}) + {{Text|"_"|#FFB100}} + {{Text|MID$|#F0F0F0}}(exp$, op)
                            lowest = lowest + {{Text|1|#F580B1}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} op > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} op < lowest {{Text|THEN|#F0F0F0}} lowest = op: OpOn = P
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            {{Text|IF|#F0F0F0}} OpOn = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}} {{Text|'We haven't gotten to the proper PL for this OP to be processed yet.|#31C4C4}}
            {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(exp$, {{Text|1|#F580B1}}) = {{Text|"-"|#FFB100}} {{Text|THEN|#F0F0F0}} startAt = {{Text|2|#F580B1}} {{Text|ELSE|#F0F0F0}} startAt = {{Text|1|#F580B1}}
            op = {{Text|INSTR|#F0F0F0}}(startAt, exp$, OName(OpOn))
            numset = {{Text|0|#F580B1}}
            {{Text|'*** SPECIAL OPERATION RULESETS|#31C4C4}}
            {{Text|IF|#F0F0F0}} OName(OpOn) = {{Text|"-"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|'check for BOOLEAN operators before the -|#31C4C4}}
                {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} {{Text|MID$|#F0F0F0}}(exp$, op - {{Text|3|#F580B1}}, {{Text|3|#F580B1}})
                    {{Text|CASE|#F0F0F0}} {{Text|"NOT"|#FFB100}}, {{Text|"XOR"|#FFB100}}, {{Text|"AND"|#FFB100}}, {{Text|"EQV"|#FFB100}}, {{Text|"IMP"|#FFB100}}
                        {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}} {{Text|'Not an operator, it's a negative|#31C4C4}}
                {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(exp$, op - {{Text|3|#F580B1}}, {{Text|2|#F580B1}}) = {{Text|"OR"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}} {{Text|'Not an operator, it's a negative|#31C4C4}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} op {{Text|THEN|#F0F0F0}}
                c = {{Text|LEN|#F0F0F0}}(OName(OpOn)) - {{Text|1|#F580B1}}
                {{Text|DO|#F0F0F0}}
                    {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} {{Text|MID$|#F0F0F0}}(exp$, op + c + {{Text|1|#F580B1}}, {{Text|1|#F580B1}})
                        {{Text|CASE|#F0F0F0}} {{Text|"0"|#FFB100}}, {{Text|"1"|#FFB100}}, {{Text|"2"|#FFB100}}, {{Text|"3"|#FFB100}}, {{Text|"4"|#FFB100}}, {{Text|"5"|#FFB100}}, {{Text|"6"|#FFB100}}, {{Text|"7"|#FFB100}}, {{Text|"8"|#FFB100}}, {{Text|"9"|#FFB100}}, {{Text|"."|#FFB100}}, {{Text|"N"|#FFB100}}: numset = {{Text|-1|#F580B1}} {{Text|'Valid digit|#31C4C4}}
                        {{Text|CASE|#F0F0F0}} {{Text|"-"|#FFB100}} {{Text|'We need to check if it's a minus or a negative|#31C4C4}}
                            {{Text|IF|#F0F0F0}} OName(OpOn) = {{Text|"_PI"|#FFB100}} {{Text|OR|#F0F0F0}} numset {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                        {{Text|CASE|#F0F0F0}} {{Text|","|#FFB100}}: numset = {{Text|0|#F580B1}}
                        {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}} {{Text|'Not a valid digit, we found our separator|#31C4C4}}
                            {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
                    c = c + {{Text|1|#F580B1}}
                {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} op + c >= {{Text|LEN|#F0F0F0}}(exp$)
                E = op + c
                c = {{Text|0|#F580B1}}
                {{Text|DO|#F0F0F0}}
                    c = c + {{Text|1|#F580B1}}
                    {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} {{Text|MID$|#F0F0F0}}(exp$, op - c, {{Text|1|#F580B1}})
                        {{Text|CASE|#F0F0F0}} {{Text|"0"|#FFB100}}, {{Text|"1"|#FFB100}}, {{Text|"2"|#FFB100}}, {{Text|"3"|#FFB100}}, {{Text|"4"|#FFB100}}, {{Text|"5"|#FFB100}}, {{Text|"6"|#FFB100}}, {{Text|"7"|#FFB100}}, {{Text|"8"|#FFB100}}, {{Text|"9"|#FFB100}}, {{Text|"."|#FFB100}}, {{Text|"N"|#FFB100}} {{Text|'Valid digit|#31C4C4}}
                        {{Text|CASE|#F0F0F0}} {{Text|"-"|#FFB100}} {{Text|'We need to check if it's a minus or a negative|#31C4C4}}
                            c1 = c
                            bad = {{Text|0|#F580B1}}
                            {{Text|DO|#F0F0F0}}
                                c1 = c1 + {{Text|1|#F580B1}}
                                {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} {{Text|MID$|#F0F0F0}}(exp$, op - c1, {{Text|1|#F580B1}})
                                    {{Text|CASE|#F0F0F0}} {{Text|"0"|#FFB100}}, {{Text|"1"|#FFB100}}, {{Text|"2"|#FFB100}}, {{Text|"3"|#FFB100}}, {{Text|"4"|#FFB100}}, {{Text|"5"|#FFB100}}, {{Text|"6"|#FFB100}}, {{Text|"7"|#FFB100}}, {{Text|"8"|#FFB100}}, {{Text|"9"|#FFB100}}, {{Text|"."|#FFB100}}
                                        bad = {{Text|-1|#F580B1}}
                                        {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}} {{Text|'It's a minus sign|#31C4C4}}
                                    {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}
                                        {{Text|'It's a negative sign and needs to count as part of our numbers|#31C4C4}}
                                {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
                            {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} op - c1 <= {{Text|0|#F580B1}}
                            {{Text|IF|#F0F0F0}} bad {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}} {{Text|'We found our seperator|#31C4C4}}
                        {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}} {{Text|'Not a valid digit, we found our separator|#31C4C4}}
                            {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
                {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} op - c <= {{Text|0|#F580B1}}
                s = op - c
                num({{Text|1|#F580B1}}) = {{Text|MID$|#F0F0F0}}(exp$, s + {{Text|1|#F580B1}}, op - s - {{Text|1|#F580B1}}) {{Text|'Get our first number|#31C4C4}}
                num({{Text|2|#F580B1}}) = {{Text|MID$|#F0F0F0}}(exp$, op + {{Text|LEN|#F0F0F0}}(OName(OpOn)), E - op - {{Text|LEN|#F0F0F0}}(OName(OpOn)) + {{Text|1|#F580B1}}) {{Text|'Get our second number|#31C4C4}}
                {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(num({{Text|1|#F580B1}}), {{Text|1|#F580B1}}, {{Text|1|#F580B1}}) = {{Text|"N"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|MID$|#F0F0F0}}(num({{Text|1|#F580B1}}), {{Text|1|#F580B1}}) = {{Text|"-"|#FFB100}}
                {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(num({{Text|2|#F580B1}}), {{Text|1|#F580B1}}, {{Text|1|#F580B1}}) = {{Text|"N"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|MID$|#F0F0F0}}(num({{Text|2|#F580B1}}), {{Text|1|#F580B1}}) = {{Text|"-"|#FFB100}}
                {{Text|IF|#F0F0F0}} num({{Text|1|#F580B1}}) = {{Text|"-"|#FFB100}} {{Text|THEN|#F0F0F0}}
                    num({{Text|3|#F580B1}}) = {{Text|"N"|#FFB100}} + EvaluateNumbers(OpOn, num())
                {{Text|ELSE|#F0F0F0}}
                    num({{Text|3|#F580B1}}) = EvaluateNumbers(OpOn, num())
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(num({{Text|3|#F580B1}}), {{Text|1|#F580B1}}, {{Text|1|#F580B1}}) = {{Text|"-"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|MID$|#F0F0F0}}(num({{Text|3|#F580B1}}), {{Text|1|#F580B1}}) = {{Text|"N"|#FFB100}}
                {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(num({{Text|3|#F580B1}}), {{Text|5|#F580B1}}) = {{Text|"ERROR"|#FFB100}} {{Text|THEN|#F0F0F0}} exp$ = num({{Text|3|#F580B1}}): {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                exp$ = {{Text|LTRIM$|#F0F0F0}}(N2S(DWD({{Text|LEFT$|#F0F0F0}}(exp$, s) + {{Text|RTRIM$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}(num({{Text|3|#F580B1}}))) + {{Text|MID$|#F0F0F0}}(exp$, E + {{Text|1|#F580B1}}))))
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            op = {{Text|0|#F580B1}}
        {{Text|LOOP|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} Set_OrderOfOperations
    {{Text|'PL sets our priortity level. 1 is highest to 65535 for the lowest.|#31C4C4}}
    {{Text|'I used a range here so I could add in new priority levels as needed.|#31C4C4}}
    {{Text|'OName ended up becoming the name of our commands, as I modified things.... Go figure!  LOL!|#31C4C4}}
    {{Text|REDIM|#F0F0F0}} OName({{Text|10000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}, PL({{Text|10000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
    {{Text|'Constants get evaluated first, with a Priority Level of 1|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_UOF"|#FFB100}}: PL(i) = {{Text|5|#F580B1}} {{Text|'convert to unsigned offset|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_OF"|#FFB100}}: PL(i) = {{Text|5|#F580B1}} {{Text|'convert to offset|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_UBY"|#FFB100}}: PL(i) = {{Text|5|#F580B1}} {{Text|'convert to unsigned byte|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_BY"|#FFB100}}: PL(i) = {{Text|5|#F580B1}} {{Text|'convert to byte|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_UIN"|#FFB100}}: PL(i) = {{Text|5|#F580B1}} {{Text|'convert to unsigned integer|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_IN"|#FFB100}}: PL(i) = {{Text|5|#F580B1}} {{Text|'convert to integer|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_UIF"|#FFB100}}: PL(i) = {{Text|5|#F580B1}} {{Text|'convert to unsigned int64|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_IF"|#FFB100}}: PL(i) = {{Text|5|#F580B1}} {{Text|'convert to int64|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_ULO"|#FFB100}}: PL(i) = {{Text|5|#F580B1}} {{Text|'convert to unsigned long|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_LO"|#FFB100}}: PL(i) = {{Text|5|#F580B1}} {{Text|'convert to long|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_SI"|#FFB100}}: PL(i) = {{Text|5|#F580B1}} {{Text|'convert to single|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_FL"|#FFB100}}: PL(i) = {{Text|5|#F580B1}} {{Text|'convert to float|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_DO"|#FFB100}}: PL(i) = {{Text|5|#F580B1}} {{Text|'convert to double|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_UBI"|#FFB100}}: PL(i) = {{Text|5|#F580B1}} {{Text|'convert to unsigned bit|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_BI"|#FFB100}}: PL(i) = {{Text|5|#F580B1}} {{Text|'convert to bit|#31C4C4}}
    {{Text|'Then Functions with PL 10|#31C4C4}}
    i = i + {{Text|1|#F580B1}}:: OName(i) = {{Text|"_PI"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_ACOS"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_ASIN"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_ARCSEC"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_ARCCSC"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_ARCCOT"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_SECH"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_CSCH"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_COTH"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"COS"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"SIN"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"TAN"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"LOG"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"EXP"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"ATN"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_D2R"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_D2G"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_R2D"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_R2G"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_G2D"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_G2R"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"ABS"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"SGN"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"INT"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_ROUND"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_CEIL"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"FIX"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_SEC"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_CSC"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_COT"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"ASC"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_RG"|#FFB100}}: PL(i) = {{Text|10|#F580B1}} {{Text|'_RGB32 converted|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_RA"|#FFB100}}: PL(i) = {{Text|10|#F580B1}} {{Text|'_RGBA32 converted|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_RGBA"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_RGB"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_RX"|#FFB100}}: PL(i) = {{Text|10|#F580B1}} {{Text|'_RED32 converted|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_GR"|#FFB100}}: PL(i) = {{Text|10|#F580B1}} {{Text|' _GREEN32 converted|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_BL"|#FFB100}}: PL(i) = {{Text|10|#F580B1}} {{Text|'_BLUE32 converted|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"C_AL"|#FFB100}}: PL(i) = {{Text|10|#F580B1}} {{Text|'_ALPHA32 converted|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_RED"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_GREEN"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_BLUE"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"_ALPHA"|#FFB100}}: PL(i) = {{Text|10|#F580B1}}
    {{Text|'Exponents with PL 20|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"^"|#FFB100}}: PL(i) = {{Text|20|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"SQR"|#FFB100}}: PL(i) = {{Text|20|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"ROOT"|#FFB100}}: PL(i) = {{Text|20|#F580B1}}
    {{Text|'Multiplication and Division PL 30|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"*"|#FFB100}}: PL(i) = {{Text|30|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"/"|#FFB100}}: PL(i) = {{Text|30|#F580B1}}
    {{Text|'Integer Division PL 40|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"\"|#FFB100}}: PL(i) = {{Text|40|#F580B1}}
    {{Text|'MOD PL 50|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"MOD"|#FFB100}}: PL(i) = {{Text|50|#F580B1}}
    {{Text|'Addition and Subtraction PL 60|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"+"|#FFB100}}: PL(i) = {{Text|60|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"-"|#FFB100}}: PL(i) = {{Text|60|#F580B1}}
    {{Text|'Relational Operators =, >, <, <>, <=, >=  PL 70|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"<>"|#FFB100}}: PL(i) = {{Text|70|#F580B1}} {{Text|'These next three are just reversed symbols as an attempt to help process a common typo|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"><"|#FFB100}}: PL(i) = {{Text|70|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"<="|#FFB100}}: PL(i) = {{Text|70|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|">="|#FFB100}}: PL(i) = {{Text|70|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"=<"|#FFB100}}: PL(i) = {{Text|70|#F580B1}} {{Text|'I personally can never keep these things straight.  Is it < = or = <...|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"=>"|#FFB100}}: PL(i) = {{Text|70|#F580B1}} {{Text|'Who knows, check both!|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|">"|#FFB100}}: PL(i) = {{Text|70|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"<"|#FFB100}}: PL(i) = {{Text|70|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"="|#FFB100}}: PL(i) = {{Text|70|#F580B1}}
    {{Text|'Logical Operations PL 80+|#31C4C4}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"NOT"|#FFB100}}: PL(i) = {{Text|80|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"AND"|#FFB100}}: PL(i) = {{Text|90|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"OR"|#FFB100}}: PL(i) = {{Text|100|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"XOR"|#FFB100}}: PL(i) = {{Text|110|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"EQV"|#FFB100}}: PL(i) = {{Text|120|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|"IMP"|#FFB100}}: PL(i) = {{Text|130|#F580B1}}
    i = i + {{Text|1|#F580B1}}: OName(i) = {{Text|","|#FFB100}}: PL(i) = {{Text|1000|#F580B1}}
    {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} OName(i) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}, PL(i) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} EvaluateNumbers$ (p, num() {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}})
    {{Text|DIM|#F0F0F0}} n1 {{Text|AS|#F0F0F0}} {{Text|_FLOAT|#F0F0F0}}, n2 {{Text|AS|#F0F0F0}} {{Text|_FLOAT|#F0F0F0}}, n3 {{Text|AS|#F0F0F0}} {{Text|_FLOAT|#F0F0F0}}
    {{Text|'PRINT "EVALNUM:"; OName(p), num(1), num(2)|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|_TRIM$|#F0F0F0}}(num({{Text|1|#F580B1}})) = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} num({{Text|1|#F580B1}}) = {{Text|"0"|#FFB100}}
    {{Text|IF|#F0F0F0}} PL(p) >= {{Text|20|#F580B1}} {{Text|AND|#F0F0F0}} ({{Text|LEN|#F0F0F0}}({{Text|_TRIM$|#F0F0F0}}(num({{Text|1|#F580B1}}))) = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} {{Text|LEN|#F0F0F0}}({{Text|_TRIM$|#F0F0F0}}(num({{Text|2|#F580B1}}))) = {{Text|0|#F580B1}}) {{Text|THEN|#F0F0F0}}
        EvaluateNumbers$ = {{Text|"ERROR - Missing operand"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(num({{Text|1|#F580B1}}), {{Text|","|#FFB100}}) {{Text|THEN|#F0F0F0}}
        EvaluateNumbers$ = {{Text|"ERROR - Invalid comma ("|#FFB100}} + num({{Text|1|#F580B1}}) + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    l2 = {{Text|INSTR|#F0F0F0}}(num({{Text|2|#F580B1}}), {{Text|","|#FFB100}})
    {{Text|IF|#F0F0F0}} l2 {{Text|THEN|#F0F0F0}}
        {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} OName(p) {{Text|'only certain commands should pass a comma value|#31C4C4}}
            {{Text|CASE|#F0F0F0}} {{Text|"C_RG"|#FFB100}}, {{Text|"C_RA"|#FFB100}}, {{Text|"_RGB"|#FFB100}}, {{Text|"_RGBA"|#FFB100}}, {{Text|"_RED"|#FFB100}}, {{Text|"_GREEN"|#FFB100}}, {{Text|"_BLUE"|#FFB100}}, {{Text|"C_BL"|#FFB100}}, {{Text|"_ALPHA"|#FFB100}}
            {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}
                C$ = {{Text|MID$|#F0F0F0}}(num({{Text|2|#F580B1}}), l2)
                num({{Text|2|#F580B1}}) = {{Text|LEFT$|#F0F0F0}}(num({{Text|2|#F580B1}}), l2 - {{Text|1|#F580B1}})
        {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} PL(p) {{Text|'divide up the work so we want do as much case checking|#31C4C4}}
        {{Text|CASE|#F0F0F0}} {{Text|5|#F580B1}} {{Text|'Type conversions|#31C4C4}}
            {{Text|'Note, these are special cases and work with the number BEFORE the command and not after|#31C4C4}}
            {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} OName(p) {{Text|'Depending on our operator..|#31C4C4}}
                {{Text|CASE|#F0F0F0}} {{Text|"C_UOF"|#FFB100}}: n1~%& = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})): EvaluateNumbers$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(n1~%&)))
                {{Text|CASE|#F0F0F0}} {{Text|"C_ULO"|#FFB100}}: n1%& = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})): EvaluateNumbers$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(n1%&)))
                {{Text|CASE|#F0F0F0}} {{Text|"C_UBY"|#FFB100}}: n1~%% = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})): EvaluateNumbers$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(n1~%%)))
                {{Text|CASE|#F0F0F0}} {{Text|"C_UIN"|#FFB100}}: n1~% = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})): EvaluateNumbers$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(n1~%)))
                {{Text|CASE|#F0F0F0}} {{Text|"C_BY"|#FFB100}}: n1%% = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})): EvaluateNumbers$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(n1%%)))
                {{Text|CASE|#F0F0F0}} {{Text|"C_IN"|#FFB100}}: n1% = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})): EvaluateNumbers$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(n1%)))
                {{Text|CASE|#F0F0F0}} {{Text|"C_UIF"|#FFB100}}: n1~&& = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})): EvaluateNumbers$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(n1~&&)))
                {{Text|CASE|#F0F0F0}} {{Text|"C_OF"|#FFB100}}: n1~& = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})): EvaluateNumbers$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(n1~&)))
                {{Text|CASE|#F0F0F0}} {{Text|"C_IF"|#FFB100}}: n1&& = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})): EvaluateNumbers$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(n1&&)))
                {{Text|CASE|#F0F0F0}} {{Text|"C_LO"|#FFB100}}: n1& = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})): EvaluateNumbers$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(n1&)))
                {{Text|CASE|#F0F0F0}} {{Text|"C_UBI"|#FFB100}}: n1~` = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})): EvaluateNumbers$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(n1~`)))
                {{Text|CASE|#F0F0F0}} {{Text|"C_BI"|#FFB100}}: n1` = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})): EvaluateNumbers$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(n1`)))
                {{Text|CASE|#F0F0F0}} {{Text|"C_FL"|#FFB100}}: n1## = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})): EvaluateNumbers$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(n1##)))
                {{Text|CASE|#F0F0F0}} {{Text|"C_DO"|#FFB100}}: n1# = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})): EvaluateNumbers$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(n1#)))
                {{Text|CASE|#F0F0F0}} {{Text|"C_SI"|#FFB100}}: n1! = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})): EvaluateNumbers$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(n1!)))
            {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
            {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|CASE|#F0F0F0}} {{Text|10|#F580B1}} {{Text|'functions|#31C4C4}}
            {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} OName(p) {{Text|'Depending on our operator..|#31C4C4}}
                {{Text|CASE|#F0F0F0}} {{Text|"_PI"|#FFB100}}
                    n1 = {{Text|3.14159265358979323846264338327950288##|#F580B1}} {{Text|'Future compatable in case something ever stores extra digits for PI|#31C4C4}}
                    {{Text|IF|#F0F0F0}} num({{Text|2|#F580B1}}) <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} n1 = n1 * {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
                {{Text|CASE|#F0F0F0}} {{Text|"_ACOS"|#FFB100}}: n1 = {{Text|_ACOS|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"_ASIN"|#FFB100}}: n1 = {{Text|_ASIN|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"_ARCSEC"|#FFB100}}: n1 = {{Text|_ARCSEC|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"_ARCCSC"|#FFB100}}: n1 = {{Text|_ARCCSC|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"_ARCCOT"|#FFB100}}: n1 = {{Text|_ARCCOT|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"_SECH"|#FFB100}}: n1 = {{Text|_SECH|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"_CSCH"|#FFB100}}: n1 = {{Text|_CSCH|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"_COTH"|#FFB100}}: n1 = {{Text|_COTH|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"C_RG"|#FFB100}}
                    n$ = num({{Text|2|#F580B1}})
                    {{Text|IF|#F0F0F0}} n$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} EvaluateNumbers$ = {{Text|"ERROR - Invalid null _RGB32"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    c1 = {{Text|INSTR|#F0F0F0}}(n$, {{Text|","|#FFB100}})
                    {{Text|IF|#F0F0F0}} c1 {{Text|THEN|#F0F0F0}} c2 = {{Text|INSTR|#F0F0F0}}(c1 + {{Text|1|#F580B1}}, n$, {{Text|","|#FFB100}})
                    {{Text|IF|#F0F0F0}} c2 {{Text|THEN|#F0F0F0}} c3 = {{Text|INSTR|#F0F0F0}}(c2 + {{Text|1|#F580B1}}, n$, {{Text|","|#FFB100}})
                    {{Text|IF|#F0F0F0}} c3 {{Text|THEN|#F0F0F0}} c4 = {{Text|INSTR|#F0F0F0}}(c3 + {{Text|1|#F580B1}}, n$, {{Text|","|#FFB100}})
                    {{Text|IF|#F0F0F0}} c1 = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'there's no comma in the command to parse.  It's a grayscale value|#31C4C4}}
                        n = {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
                        n1 = _R{{Text|_RGB|#F0F0F0}}(n, n, n)
                    {{Text|ELSEIF|#F0F0F0}} c2 = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'there's one comma and not 2.  It's grayscale with alpha.|#31C4C4}}
                        n = {{Text|VAL|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(num({{Text|2|#F580B1}}), c1))
                        n2 = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(num({{Text|2|#F580B1}}), c1 + {{Text|1|#F580B1}}))
                        n1 = _R{{Text|_RGBA|#F0F0F0}}(n, n, n, n2)
                    {{Text|ELSEIF|#F0F0F0}} c3 = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'there's two commas.  It's _RGB values|#31C4C4}}
                        n = {{Text|VAL|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(num({{Text|2|#F580B1}}), c1))
                        n2 = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(num({{Text|2|#F580B1}}), c1 + {{Text|1|#F580B1}}))
                        n3 = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(num({{Text|2|#F580B1}}), c2 + {{Text|1|#F580B1}}))
                        n1 = _R{{Text|_RGB|#F0F0F0}}(n, n2, n3)
                    {{Text|ELSEIF|#F0F0F0}} c4 = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'there's three commas.  It's _RGBA values|#31C4C4}}
                        n = {{Text|VAL|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(num({{Text|2|#F580B1}}), c1))
                        n2 = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(num({{Text|2|#F580B1}}), c1 + {{Text|1|#F580B1}}))
                        n3 = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(num({{Text|2|#F580B1}}), c2 + {{Text|1|#F580B1}}))
                        n4 = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(num({{Text|2|#F580B1}}), c3 + {{Text|1|#F580B1}}))
                        n1 = _R{{Text|_RGBA|#F0F0F0}}(n, n2, n3, n4)
                    {{Text|ELSE|#F0F0F0}} {{Text|'we have more than three commas.  I have no idea WTH type of values got passed here!|#31C4C4}}
                        EvaluateNumbers$ = {{Text|"ERROR - Invalid comma count ("|#FFB100}} + num({{Text|2|#F580B1}}) + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|CASE|#F0F0F0}} {{Text|"C_RA"|#FFB100}}
                    n$ = num({{Text|2|#F580B1}})
                    {{Text|IF|#F0F0F0}} n$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} EvaluateNumbers$ = {{Text|"ERROR - Invalid null _RGBA32"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    c1 = {{Text|INSTR|#F0F0F0}}(n$, {{Text|","|#FFB100}})
                    {{Text|IF|#F0F0F0}} c1 {{Text|THEN|#F0F0F0}} c2 = {{Text|INSTR|#F0F0F0}}(c1 + {{Text|1|#F580B1}}, n$, {{Text|","|#FFB100}})
                    {{Text|IF|#F0F0F0}} c2 {{Text|THEN|#F0F0F0}} c3 = {{Text|INSTR|#F0F0F0}}(c2 + {{Text|1|#F580B1}}, n$, {{Text|","|#FFB100}})
                    {{Text|IF|#F0F0F0}} c3 {{Text|THEN|#F0F0F0}} c4 = {{Text|INSTR|#F0F0F0}}(c3 + {{Text|1|#F580B1}}, n$, {{Text|","|#FFB100}})
                    {{Text|IF|#F0F0F0}} c3 = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} c4 <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} EvaluateNumbers$ = {{Text|"ERROR - Invalid comma count ("|#FFB100}} + num({{Text|2|#F580B1}}) + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|'we have to have 3 commas; not more, not less.|#31C4C4}}
                    n = {{Text|VAL|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(num({{Text|2|#F580B1}}), c1))
                    n2 = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(num({{Text|2|#F580B1}}), c1 + {{Text|1|#F580B1}}))
                    n3 = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(num({{Text|2|#F580B1}}), c2 + {{Text|1|#F580B1}}))
                    n4 = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(num({{Text|2|#F580B1}}), c3 + {{Text|1|#F580B1}}))
                    n1 = _R{{Text|_RGBA|#F0F0F0}}(n, n2, n3, n4)
                {{Text|CASE|#F0F0F0}} {{Text|"_RGB"|#FFB100}}
                    n$ = num({{Text|2|#F580B1}})
                    {{Text|IF|#F0F0F0}} n$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} EvaluateNumbers$ = {{Text|"ERROR - Invalid null _RGB"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    c1 = {{Text|INSTR|#F0F0F0}}(n$, {{Text|","|#FFB100}})
                    {{Text|IF|#F0F0F0}} c1 {{Text|THEN|#F0F0F0}} c2 = {{Text|INSTR|#F0F0F0}}(c1 + {{Text|1|#F580B1}}, n$, {{Text|","|#FFB100}})
                    {{Text|IF|#F0F0F0}} c2 {{Text|THEN|#F0F0F0}} c3 = {{Text|INSTR|#F0F0F0}}(c2 + {{Text|1|#F580B1}}, n$, {{Text|","|#FFB100}})
                    {{Text|IF|#F0F0F0}} c3 {{Text|THEN|#F0F0F0}} c4 = {{Text|INSTR|#F0F0F0}}(c3 + {{Text|1|#F580B1}}, n$, {{Text|","|#FFB100}})
                    {{Text|IF|#F0F0F0}} c3 = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} c4 <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} EvaluateNumbers$ = {{Text|"ERROR - Invalid comma count ("|#FFB100}} + num({{Text|2|#F580B1}}) + {{Text|"). _RGB requires 4 parameters for Red, Green, Blue, ScreenMode."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|'we have to have 3 commas; not more, not less.|#31C4C4}}
                    n = {{Text|VAL|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(num({{Text|2|#F580B1}}), c1))
                    n2 = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(num({{Text|2|#F580B1}}), c1 + {{Text|1|#F580B1}}))
                    n3 = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(num({{Text|2|#F580B1}}), c2 + {{Text|1|#F580B1}}))
                    n4 = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(num({{Text|2|#F580B1}}), c3 + {{Text|1|#F580B1}}))
                    {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} n4
                        {{Text|CASE|#F0F0F0}} {{Text|0|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|2|#F580B1}}, {{Text|7|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|13|#F580B1}}, {{Text|256|#F580B1}}, {{Text|32|#F580B1}} {{Text|'these are the good screen values|#31C4C4}}
                        {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}
                            EvaluateNumbers$ = {{Text|"ERROR - Invalid Screen Mode ("|#FFB100}} + {{Text|STR$|#F0F0F0}}(n4) + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
                    t = {{Text|_NEWIMAGE|#F0F0F0}}({{Text|1|#F580B1}}, {{Text|1|#F580B1}}, n4)
                    n1 = {{Text|_RGB|#F0F0F0}}(n, n2, n3, t)
                    {{Text|_FREEIMAGE|#F0F0F0}} t
                {{Text|CASE|#F0F0F0}} {{Text|"_RGBA"|#FFB100}}
                    n$ = num({{Text|2|#F580B1}})
                    {{Text|IF|#F0F0F0}} n$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} EvaluateNumbers$ = {{Text|"ERROR - Invalid null _RGBA"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    c1 = {{Text|INSTR|#F0F0F0}}(n$, {{Text|","|#FFB100}})
                    {{Text|IF|#F0F0F0}} c1 {{Text|THEN|#F0F0F0}} c2 = {{Text|INSTR|#F0F0F0}}(c1 + {{Text|1|#F580B1}}, n$, {{Text|","|#FFB100}})
                    {{Text|IF|#F0F0F0}} c2 {{Text|THEN|#F0F0F0}} c3 = {{Text|INSTR|#F0F0F0}}(c2 + {{Text|1|#F580B1}}, n$, {{Text|","|#FFB100}})
                    {{Text|IF|#F0F0F0}} c3 {{Text|THEN|#F0F0F0}} c4 = {{Text|INSTR|#F0F0F0}}(c3 + {{Text|1|#F580B1}}, n$, {{Text|","|#FFB100}})
                    {{Text|IF|#F0F0F0}} c4 {{Text|THEN|#F0F0F0}} c5 = {{Text|INSTR|#F0F0F0}}(c4 + {{Text|1|#F580B1}}, n$, {{Text|","|#FFB100}})
                    {{Text|IF|#F0F0F0}} c4 = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} c5 <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} EvaluateNumbers$ = {{Text|"ERROR - Invalid comma count ("|#FFB100}} + num({{Text|2|#F580B1}}) + {{Text|"). _RGBA requires 5 parameters for Red, Green, Blue, Alpha, ScreenMode."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|'we have to have 4 commas; not more, not less.|#31C4C4}}
                    n = {{Text|VAL|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(num({{Text|2|#F580B1}}), c1))
                    n2 = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(num({{Text|2|#F580B1}}), c1 + {{Text|1|#F580B1}}))
                    n3 = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(num({{Text|2|#F580B1}}), c2 + {{Text|1|#F580B1}}))
                    n4 = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(num({{Text|2|#F580B1}}), c3 + {{Text|1|#F580B1}}))
                    n5 = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(num({{Text|2|#F580B1}}), c4 + {{Text|1|#F580B1}}))
                    {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} n5
                        {{Text|CASE|#F0F0F0}} {{Text|0|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|2|#F580B1}}, {{Text|7|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|13|#F580B1}}, {{Text|256|#F580B1}}, {{Text|32|#F580B1}} {{Text|'these are the good screen values|#31C4C4}}
                        {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}
                            EvaluateNumbers$ = {{Text|"ERROR - Invalid Screen Mode ("|#FFB100}} + {{Text|STR$|#F0F0F0}}(n5) + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
                    t = {{Text|_NEWIMAGE|#F0F0F0}}({{Text|1|#F580B1}}, {{Text|1|#F580B1}}, n5)
                    n1 = {{Text|_RGBA|#F0F0F0}}(n, n2, n3, n4, t)
                    {{Text|_FREEIMAGE|#F0F0F0}} t
                {{Text|CASE|#F0F0F0}} {{Text|"_RED"|#FFB100}}, {{Text|"_GREEN"|#FFB100}}, {{Text|"_BLUE"|#FFB100}}, {{Text|"_ALPHA"|#FFB100}}
                    n$ = num({{Text|2|#F580B1}})
                    {{Text|IF|#F0F0F0}} n$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} EvaluateNumbers$ = {{Text|"ERROR - Invalid null "|#FFB100}} + OName(p): {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    c1 = {{Text|INSTR|#F0F0F0}}(n$, {{Text|","|#FFB100}})
                    {{Text|IF|#F0F0F0}} c1 = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} EvaluateNumbers$ = {{Text|"ERROR - "|#FFB100}} + OName(p) + {{Text|" requires 2 parameters for Color, ScreenMode."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} c1 {{Text|THEN|#F0F0F0}} c2 = {{Text|INSTR|#F0F0F0}}(c1 + {{Text|1|#F580B1}}, n$, {{Text|","|#FFB100}})
                    {{Text|IF|#F0F0F0}} c2 {{Text|THEN|#F0F0F0}} EvaluateNumbers$ = {{Text|"ERROR - "|#FFB100}} + OName(p) + {{Text|" requires 2 parameters for Color, ScreenMode."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    n = {{Text|VAL|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(num({{Text|2|#F580B1}}), c1))
                    n2 = {{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(num({{Text|2|#F580B1}}), c1 + {{Text|1|#F580B1}}))
                    {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} n2
                        {{Text|CASE|#F0F0F0}} {{Text|0|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|2|#F580B1}}, {{Text|7|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|13|#F580B1}}, {{Text|256|#F580B1}}, {{Text|32|#F580B1}} {{Text|'these are the good screen values|#31C4C4}}
                        {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}
                            EvaluateNumbers$ = {{Text|"ERROR - Invalid Screen Mode ("|#FFB100}} + {{Text|STR$|#F0F0F0}}(n2) + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
                    t = {{Text|_NEWIMAGE|#F0F0F0}}({{Text|1|#F580B1}}, {{Text|1|#F580B1}}, n4)
                    {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} OName(p)
                        {{Text|CASE|#F0F0F0}} {{Text|"_RED"|#FFB100}}: n1 = {{Text|_RED|#F0F0F0}}(n, t)
                        {{Text|CASE|#F0F0F0}} {{Text|"_BLUE"|#FFB100}}: n1 = {{Text|_BLUE|#F0F0F0}}(n, t)
                        {{Text|CASE|#F0F0F0}} {{Text|"_GREEN"|#FFB100}}: n1 = {{Text|_GREEN|#F0F0F0}}(n, t)
                        {{Text|CASE|#F0F0F0}} {{Text|"_ALPHA"|#FFB100}}: n1 = {{Text|_ALPHA|#F0F0F0}}(n, t)
                    {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
                    {{Text|_FREEIMAGE|#F0F0F0}} t
                {{Text|CASE|#F0F0F0}} {{Text|"C_RX"|#FFB100}}, {{Text|"C_GR"|#FFB100}}, {{Text|"C_BL"|#FFB100}}, {{Text|"C_AL"|#FFB100}}
                    n$ = num({{Text|2|#F580B1}})
                    {{Text|IF|#F0F0F0}} n$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} EvaluateNumbers$ = {{Text|"ERROR - Invalid null "|#FFB100}} + OName(p): {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    n = {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
                    {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} OName(p)
                        {{Text|CASE|#F0F0F0}} {{Text|"C_RX"|#FFB100}}: n1 = _R{{Text|_RED|#F0F0F0}}(n)
                        {{Text|CASE|#F0F0F0}} {{Text|"C_BL"|#FFB100}}: n1 = _B{{Text|_BLUE|#F0F0F0}}(n)
                        {{Text|CASE|#F0F0F0}} {{Text|"C_GR"|#FFB100}}: n1 = _G{{Text|_GREEN|#F0F0F0}}(n)
                        {{Text|CASE|#F0F0F0}} {{Text|"C_AL"|#FFB100}}: n1 = _A{{Text|_ALPHA|#F0F0F0}}(n)
                    {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
                {{Text|CASE|#F0F0F0}} {{Text|"COS"|#FFB100}}: n1 = {{Text|COS|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"SIN"|#FFB100}}: n1 = {{Text|SIN|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"TAN"|#FFB100}}: n1 = {{Text|TAN|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"LOG"|#FFB100}}: n1 = {{Text|LOG|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"EXP"|#FFB100}}: n1 = {{Text|EXP|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"ATN"|#FFB100}}: n1 = {{Text|ATN|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"_D2R"|#FFB100}}: n1 = {{Text|0.0174532925|#F580B1}} * ({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"_D2G"|#FFB100}}: n1 = {{Text|1.1111111111|#F580B1}} * ({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"_R2D"|#FFB100}}: n1 = {{Text|57.2957795|#F580B1}} * ({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"_R2G"|#FFB100}}: n1 = {{Text|0.015707963|#F580B1}} * ({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"_G2D"|#FFB100}}: n1 = {{Text|0.9|#F580B1}} * ({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"_G2R"|#FFB100}}: n1 = {{Text|63.661977237|#F580B1}} * ({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"ABS"|#FFB100}}: n1 = {{Text|ABS|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"SGN"|#FFB100}}: n1 = {{Text|SGN|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"INT"|#FFB100}}: n1 = {{Text|INT|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"_ROUND"|#FFB100}}: n1 = {{Text|_ROUND|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"_CEIL"|#FFB100}}: n1 = {{Text|_CEIL|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"FIX"|#FFB100}}: n1 = {{Text|FIX|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"_SEC"|#FFB100}}: n1 = {{Text|_SEC|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"_CSC"|#FFB100}}: n1 = {{Text|_CSC|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"_COT"|#FFB100}}: n1 = {{Text|_COT|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
            {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
        {{Text|CASE|#F0F0F0}} {{Text|20|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|60|#F580B1}} {{Text|'Math Operators|#31C4C4}}
            {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} OName(p) {{Text|'Depending on our operator..|#31C4C4}}
                {{Text|CASE|#F0F0F0}} {{Text|"^"|#FFB100}}: n1 = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})) ^ {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
                {{Text|CASE|#F0F0F0}} {{Text|"SQR"|#FFB100}}: n1 = {{Text|SQR|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"ROOT"|#FFB100}}
                    n1 = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})): n2 = {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
                    {{Text|IF|#F0F0F0}} n2 = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} EvaluateNumbers$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(n1))): {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} n1 < {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} n2 >= {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} sign = {{Text|-1|#F580B1}}: n1 = {{Text|-n1|#F580B1}} {{Text|ELSE|#F0F0F0}} sign = {{Text|1|#F580B1}}
                    n3 = {{Text|1##|#F580B1}} / n2
                    {{Text|IF|#F0F0F0}} n3 <> {{Text|INT|#F0F0F0}}(n3) {{Text|AND|#F0F0F0}} n2 < {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} sign = {{Text|SGN|#F0F0F0}}(n1): n1 = {{Text|ABS|#F0F0F0}}(n1)
                    n1 = sign * (n1 ^ n3)
                {{Text|CASE|#F0F0F0}} {{Text|"*"|#FFB100}}: n1 = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})) * {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
                {{Text|CASE|#F0F0F0}} {{Text|"/"|#FFB100}}
                    {{Text|IF|#F0F0F0}} {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        n1 = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})) / {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
                    {{Text|ELSE|#F0F0F0}}
                        EvaluateNumbers$ = {{Text|"ERROR - Division By Zero"|#FFB100}}
                        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|CASE|#F0F0F0}} {{Text|"\"|#FFB100}}
                    {{Text|IF|#F0F0F0}} {{Text|FIX|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        EvaluateNumbers$ = {{Text|"ERROR - Division By Zero"|#FFB100}}
                        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    n1 = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})) \ {{Text|FIX|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"MOD"|#FFB100}}
                    {{Text|IF|#F0F0F0}} {{Text|FIX|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                        EvaluateNumbers$ = {{Text|"ERROR - Division By Zero"|#FFB100}}
                        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    n1 = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})) {{Text|MOD|#F0F0F0}} {{Text|FIX|#F0F0F0}}({{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}})))
                {{Text|CASE|#F0F0F0}} {{Text|"+"|#FFB100}}: n1 = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})) + {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
                {{Text|CASE|#F0F0F0}} {{Text|"-"|#FFB100}}:
                    n1 = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})) - {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
            {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
        {{Text|CASE|#F0F0F0}} {{Text|70|#F580B1}} {{Text|'Relational Operators =, >, <, <>, <=, >=|#31C4C4}}
            {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} OName(p) {{Text|'Depending on our operator..|#31C4C4}}
                {{Text|CASE|#F0F0F0}} {{Text|"="|#FFB100}}: n1 = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})) = {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
                {{Text|CASE|#F0F0F0}} {{Text|">"|#FFB100}}: n1 = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})) > {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
                {{Text|CASE|#F0F0F0}} {{Text|"<"|#FFB100}}: n1 = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})) < {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
                {{Text|CASE|#F0F0F0}} {{Text|"<>"|#FFB100}}, {{Text|"><"|#FFB100}}: n1 = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})) <> {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
                {{Text|CASE|#F0F0F0}} {{Text|"<="|#FFB100}}, {{Text|"=<"|#FFB100}}: n1 = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})) <= {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
                {{Text|CASE|#F0F0F0}} {{Text|">="|#FFB100}}, {{Text|"=>"|#FFB100}}: n1 = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})) >= {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
            {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
        {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}} {{Text|'a value we haven't processed elsewhere|#31C4C4}}
            {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} OName(p) {{Text|'Depending on our operator..|#31C4C4}}
                {{Text|CASE|#F0F0F0}} {{Text|"NOT"|#FFB100}}: n1 = {{Text|NOT|#F0F0F0}} {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
                {{Text|CASE|#F0F0F0}} {{Text|"AND"|#FFB100}}: n1 = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})) {{Text|AND|#F0F0F0}} {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
                {{Text|CASE|#F0F0F0}} {{Text|"OR"|#FFB100}}: n1 = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})) {{Text|OR|#F0F0F0}} {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
                {{Text|CASE|#F0F0F0}} {{Text|"XOR"|#FFB100}}: n1 = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})) {{Text|XOR|#F0F0F0}} {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
                {{Text|CASE|#F0F0F0}} {{Text|"EQV"|#FFB100}}: n1 = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})) {{Text|EQV|#F0F0F0}} {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
                {{Text|CASE|#F0F0F0}} {{Text|"IMP"|#FFB100}}: n1 = {{Text|VAL|#F0F0F0}}(num({{Text|1|#F580B1}})) {{Text|IMP|#F0F0F0}} {{Text|VAL|#F0F0F0}}(num({{Text|2|#F580B1}}))
            {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
    EvaluateNumbers$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(n1))) + C$
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} DWD$ (exp$) {{Text|'Deal With Duplicates|#31C4C4}}
    {{Text|'To deal with duplicate operators in our code.|#31C4C4}}
    {{Text|'Such as --  becomes a +|#31C4C4}}
    {{Text|'++ becomes a +|#31C4C4}}
    {{Text|'+- becomes a -|#31C4C4}}
    {{Text|'-+ becomes a -|#31C4C4}}
    t$ = exp$
    {{Text|DO|#F0F0F0}}
        bad = {{Text|0|#F580B1}}
        {{Text|DO|#F0F0F0}}
            l = {{Text|INSTR|#F0F0F0}}(t$, {{Text|"++"|#FFB100}})
            {{Text|IF|#F0F0F0}} l {{Text|THEN|#F0F0F0}} t$ = {{Text|LEFT$|#F0F0F0}}(t$, l - {{Text|1|#F580B1}}) + {{Text|"+"|#FFB100}} + {{Text|MID$|#F0F0F0}}(t$, l + {{Text|2|#F580B1}}): bad = {{Text|-1|#F580B1}}
        {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} l = {{Text|0|#F580B1}}
        {{Text|DO|#F0F0F0}}
            l = {{Text|INSTR|#F0F0F0}}(t$, {{Text|"+-"|#FFB100}})
            {{Text|IF|#F0F0F0}} l {{Text|THEN|#F0F0F0}} t$ = {{Text|LEFT$|#F0F0F0}}(t$, l - {{Text|1|#F580B1}}) + {{Text|"-"|#FFB100}} + {{Text|MID$|#F0F0F0}}(t$, l + {{Text|2|#F580B1}}): bad = {{Text|-1|#F580B1}}
        {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} l = {{Text|0|#F580B1}}
        {{Text|DO|#F0F0F0}}
            l = {{Text|INSTR|#F0F0F0}}(t$, {{Text|"-+"|#FFB100}})
            {{Text|IF|#F0F0F0}} l {{Text|THEN|#F0F0F0}} t$ = {{Text|LEFT$|#F0F0F0}}(t$, l - {{Text|1|#F580B1}}) + {{Text|"-"|#FFB100}} + {{Text|MID$|#F0F0F0}}(t$, l + {{Text|2|#F580B1}}): bad = {{Text|-1|#F580B1}}
        {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} l = {{Text|0|#F580B1}}
        {{Text|DO|#F0F0F0}}
            l = {{Text|INSTR|#F0F0F0}}(t$, {{Text|"--"|#FFB100}})
            {{Text|IF|#F0F0F0}} l {{Text|THEN|#F0F0F0}} t$ = {{Text|LEFT$|#F0F0F0}}(t$, l - {{Text|1|#F580B1}}) + {{Text|"+"|#FFB100}} + {{Text|MID$|#F0F0F0}}(t$, l + {{Text|2|#F580B1}}): bad = {{Text|-1|#F580B1}}
        {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} l = {{Text|0|#F580B1}}
    {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} {{Text|NOT|#F0F0F0}} bad
    DWD$ = t$
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|SUB|#F0F0F0}} PreParse (e$)
    {{Text|DIM|#F0F0F0}} f {{Text|AS|#F0F0F0}} {{Text|_FLOAT|#F0F0F0}}
    {{Text|STATIC|#F0F0F0}} TotalPrefixedPP_TypeMod {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, TotalPP_TypeMod {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    {{Text|IF|#F0F0F0}} PP_TypeMod({{Text|0|#F580B1}}) = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
        {{Text|REDIM|#F0F0F0}} PP_TypeMod({{Text|100|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}, PP_ConvertedMod({{Text|100|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} {{Text|'Large enough to hold all values to begin with|#31C4C4}}
        PP_TypeMod({{Text|0|#F580B1}}) = {{Text|"Initialized"|#FFB100}} {{Text|'Set so we don't do this section over and over, as we keep the values in shared memory.|#31C4C4}}
        {{Text|'and the below is a conversion list so symbols don't get cross confused.|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"~`"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_UBI"|#FFB100}} {{Text|'unsigned bit|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"~%%"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_UBY"|#FFB100}} {{Text|'unsigned byte|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"~%&"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_UOF"|#FFB100}} {{Text|'unsigned offset|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"~%"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_UIN"|#FFB100}} {{Text|'unsigned integer|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"~&&"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_UIF"|#FFB100}} {{Text|'unsigned integer64|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"~&"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_ULO"|#FFB100}} {{Text|'unsigned long|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"`"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_BI"|#FFB100}} {{Text|'bit|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"%%"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_BY"|#FFB100}} {{Text|'byte|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"%&"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_OF"|#FFB100}} {{Text|'offset|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"%"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_IN"|#FFB100}} {{Text|'integer|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"&&"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_IF"|#FFB100}} {{Text|'integer64|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"&"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_LO"|#FFB100}} {{Text|'long|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"!"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_SI"|#FFB100}} {{Text|'single|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"##"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_FL"|#FFB100}} {{Text|'float|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"#"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_DO"|#FFB100}} {{Text|'double|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"_RGB32"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_RG"|#FFB100}} {{Text|'rgb32|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"_RGBA32"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_RA"|#FFB100}} {{Text|'rgba32|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"_RED32"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_RX"|#FFB100}} {{Text|'red32|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"_GREEN32"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_GR"|#FFB100}} {{Text|'green32|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"_BLUE32"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_BL"|#FFB100}} {{Text|'blue32|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"_ALPHA32"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_AL"|#FFB100}} {{Text|'alpha32|#31C4C4}}
        TotalPrefixedPP_TypeMod = i
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"RGB32"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_RG"|#FFB100}} {{Text|'rgb32|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"RGBA32"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_RA"|#FFB100}} {{Text|'rgba32|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"RED32"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_RX"|#FFB100}} {{Text|'red32|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"GREEN32"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_GR"|#FFB100}} {{Text|'green32|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"BLUE32"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_BL"|#FFB100}} {{Text|'blue32|#31C4C4}}
        i = i + {{Text|1|#F580B1}}: PP_TypeMod(i) = {{Text|"ALPHA32"|#FFB100}}: PP_ConvertedMod(i) = {{Text|"C_AL"|#FFB100}} {{Text|'alpha32|#31C4C4}}
        TotalPP_TypeMod = i
        {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} PP_TypeMod(i) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}, PP_ConvertedMod(i) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} {{Text|'And then resized to just contain the necessary space in memory|#31C4C4}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    t$ = e$
    {{Text|'First strip all spaces|#31C4C4}}
    t$ = {{Text|""|#FFB100}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(e$)
        {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(e$, i, {{Text|1|#F580B1}}) <> {{Text|" "|#FFB100}} {{Text|THEN|#F0F0F0}} t$ = t$ + {{Text|MID$|#F0F0F0}}(e$, i, {{Text|1|#F580B1}})
    {{Text|NEXT|#F0F0F0}}
    t$ = {{Text|UCASE$|#F0F0F0}}(t$)
    {{Text|IF|#F0F0F0}} t$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} e$ = {{Text|"ERROR -- NULL string; nothing to evaluate"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    {{Text|'ERROR CHECK by counting our brackets|#31C4C4}}
    l = {{Text|0|#F580B1}}
    {{Text|DO|#F0F0F0}}
        l = {{Text|INSTR|#F0F0F0}}(l + {{Text|1|#F580B1}}, t$, {{Text|"("|#FFB100}}): {{Text|IF|#F0F0F0}} l {{Text|THEN|#F0F0F0}} c = c + {{Text|1|#F580B1}}
    {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} l = {{Text|0|#F580B1}}
    l = {{Text|0|#F580B1}}
    {{Text|DO|#F0F0F0}}
        l = {{Text|INSTR|#F0F0F0}}(l + {{Text|1|#F580B1}}, t$, {{Text|")"|#FFB100}}): {{Text|IF|#F0F0F0}} l {{Text|THEN|#F0F0F0}} c1 = c1 + {{Text|1|#F580B1}}
    {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} l = {{Text|0|#F580B1}}
    {{Text|IF|#F0F0F0}} c <> c1 {{Text|THEN|#F0F0F0}} e$ = {{Text|"ERROR -- Bad Parenthesis:"|#FFB100}} + {{Text|STR$|#F0F0F0}}(c) + {{Text|"( vs"|#FFB100}} + {{Text|STR$|#F0F0F0}}(c1) + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    {{Text|'replace existing CONST values|#31C4C4}}
    sep$ = {{Text|"()+-*/\><=^"|#FFB100}}
    {{Text|FOR|#F0F0F0}} i2 = {{Text|0|#F580B1}} {{Text|TO|#F0F0F0}} constlast
        thisConstName$ = constname(i2)
        {{Text|FOR|#F0F0F0}} replaceConstPass = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|2|#F580B1}}
            found = {{Text|0|#F580B1}}
            {{Text|DO|#F0F0F0}}
                found = {{Text|INSTR|#F0F0F0}}(found + {{Text|1|#F580B1}}, {{Text|UCASE$|#F0F0F0}}(t$), thisConstName$)
                {{Text|IF|#F0F0F0}} found {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} found > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(sep$, {{Text|MID$|#F0F0F0}}(t$, found - {{Text|1|#F580B1}}, {{Text|1|#F580B1}})) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|_CONTINUE|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} found + {{Text|LEN|#F0F0F0}}(thisConstName$) <= {{Text|LEN|#F0F0F0}}(t$) {{Text|THEN|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(sep$, {{Text|MID$|#F0F0F0}}(t$, found + {{Text|LEN|#F0F0F0}}(thisConstName$), {{Text|1|#F580B1}})) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|_CONTINUE|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    t = consttype(i2)
                    {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
                        r$ = conststring(i2)
                        i4 = {{Text|_INSTRREV|#F0F0F0}}(r$, {{Text|","|#FFB100}})
                        r$ = {{Text|LEFT$|#F0F0F0}}(r$, i4 - {{Text|1|#F580B1}})
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISFLOAT {{Text|THEN|#F0F0F0}}
                            r$ = {{Text|STR$|#F0F0F0}}(constfloat(i2))
                            r$ = N2S(r$)
                        {{Text|ELSE|#F0F0F0}}
                            {{Text|IF|#F0F0F0}} t {{Text|AND|#F0F0F0}} ISUNSIGNED {{Text|THEN|#F0F0F0}} r$ = {{Text|STR$|#F0F0F0}}(constuinteger(i2)) {{Text|ELSE|#F0F0F0}} r$ = {{Text|STR$|#F0F0F0}}(constinteger(i2))
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    t$ = {{Text|LEFT$|#F0F0F0}}(t$, found - {{Text|1|#F580B1}}) + {{Text|_TRIM$|#F0F0F0}}(r$) + {{Text|MID$|#F0F0F0}}(t$, found + {{Text|LEN|#F0F0F0}}(thisConstName$))
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} found = {{Text|0|#F580B1}}
            thisConstName$ = constname(i2) + constnamesymbol(i2)
        {{Text|NEXT|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|'Modify so that NOT will process properly|#31C4C4}}
    l = {{Text|0|#F580B1}}
    {{Text|DO|#F0F0F0}}
        l = {{Text|INSTR|#F0F0F0}}(l + {{Text|1|#F580B1}}, t$, {{Text|"NOT "|#FFB100}})
        {{Text|IF|#F0F0F0}} l {{Text|THEN|#F0F0F0}}
            {{Text|'We need to work magic on the statement so it looks pretty.|#31C4C4}}
            {{Text|' 1 + NOT 2 + 1 is actually processed as 1 + (NOT 2 + 1)|#31C4C4}}
            {{Text|'Look for something not proper|#31C4C4}}
            l1 = {{Text|INSTR|#F0F0F0}}(l + {{Text|1|#F580B1}}, t$, {{Text|"AND"|#FFB100}})
            {{Text|IF|#F0F0F0}} l1 = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} ({{Text|INSTR|#F0F0F0}}(l + {{Text|1|#F580B1}}, t$, {{Text|"OR"|#FFB100}}) > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(l + {{Text|1|#F580B1}}, t$, {{Text|"OR"|#FFB100}}) < l1) {{Text|THEN|#F0F0F0}} l1 = {{Text|INSTR|#F0F0F0}}(l + {{Text|1|#F580B1}}, t$, {{Text|"OR"|#FFB100}})
            {{Text|IF|#F0F0F0}} l1 = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} ({{Text|INSTR|#F0F0F0}}(l + {{Text|1|#F580B1}}, t$, {{Text|"XOR"|#FFB100}}) > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(l + {{Text|1|#F580B1}}, t$, {{Text|"XOR"|#FFB100}}) < l1) {{Text|THEN|#F0F0F0}} l1 = {{Text|INSTR|#F0F0F0}}(l + {{Text|1|#F580B1}}, t$, {{Text|"XOR"|#FFB100}})
            {{Text|IF|#F0F0F0}} l1 = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} ({{Text|INSTR|#F0F0F0}}(l + {{Text|1|#F580B1}}, t$, {{Text|"EQV"|#FFB100}}) > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(l + {{Text|1|#F580B1}}, t$, {{Text|"EQV"|#FFB100}}) < l1) {{Text|THEN|#F0F0F0}} l1 = {{Text|INSTR|#F0F0F0}}(l + {{Text|1|#F580B1}}, t$, {{Text|"EQV"|#FFB100}})
            {{Text|IF|#F0F0F0}} l1 = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} ({{Text|INSTR|#F0F0F0}}(l + {{Text|1|#F580B1}}, t$, {{Text|"IMP"|#FFB100}}) > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(l + {{Text|1|#F580B1}}, t$, {{Text|"IMP"|#FFB100}}) < l1) {{Text|THEN|#F0F0F0}} l1 = {{Text|INSTR|#F0F0F0}}(l + {{Text|1|#F580B1}}, t$, {{Text|"IMP"|#FFB100}})
            {{Text|IF|#F0F0F0}} l1 = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} l1 = {{Text|LEN|#F0F0F0}}(t$) + {{Text|1|#F580B1}}
            t$ = {{Text|LEFT$|#F0F0F0}}(t$, l - {{Text|1|#F580B1}}) + {{Text|"("|#FFB100}} + {{Text|MID$|#F0F0F0}}(t$, l, l1 - l) + {{Text|")"|#FFB100}} + {{Text|MID$|#F0F0F0}}(t$, l + l1 - l)
            l = l + {{Text|3|#F580B1}}
            {{Text|'PRINT t$|#31C4C4}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} l = {{Text|0|#F580B1}}
    uboundPP_TypeMod = TotalPrefixedPP_TypeMod
    {{Text|IF|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} uboundPP_TypeMod = TotalPP_TypeMod
    {{Text|FOR|#F0F0F0}} j = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} uboundPP_TypeMod
        l = {{Text|0|#F580B1}}
        {{Text|DO|#F0F0F0}}
            l = {{Text|INSTR|#F0F0F0}}(l + {{Text|1|#F580B1}}, t$, PP_TypeMod(j))
            {{Text|IF|#F0F0F0}} l = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
            i = {{Text|0|#F580B1}}: l1 = {{Text|0|#F580B1}}: l2 = {{Text|0|#F580B1}}: lo = {{Text|LEN|#F0F0F0}}(PP_TypeMod(j))
            {{Text|DO|#F0F0F0}}
                {{Text|IF|#F0F0F0}} PL(i) > {{Text|10|#F580B1}} {{Text|THEN|#F0F0F0}}
                    l2 = {{Text|_INSTRREV|#F0F0F0}}(l, t$, OName$(i))
                    {{Text|IF|#F0F0F0}} l2 > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} l2 > l1 {{Text|THEN|#F0F0F0}} l1 = l2
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                i = i + lo
            {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} i > {{Text|UBOUND|#F0F0F0}}(PL)
            l$ = {{Text|LEFT$|#F0F0F0}}(t$, l1)
            m$ = {{Text|MID$|#F0F0F0}}(t$, l1 + {{Text|1|#F580B1}}, l - l1 - {{Text|1|#F580B1}})
            r$ = PP_ConvertedMod(j) + {{Text|MID$|#F0F0F0}}(t$, l + lo)
            {{Text|IF|#F0F0F0}} j > {{Text|15|#F580B1}} {{Text|THEN|#F0F0F0}}
                t$ = l$ + m$ + r$ {{Text|'replacement routine for commands which might get confused with others, like _RGB and _RGB32|#31C4C4}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|'the first 15 commands need to properly place the parenthesis around the value we want to convert.|#31C4C4}}
                t$ = l$ + {{Text|"("|#FFB100}} + m$ + {{Text|")"|#FFB100}} + r$
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            l = l + {{Text|2|#F580B1}} + {{Text|LEN|#F0F0F0}}(PP_TypeMod(j)) {{Text|'move forward from the length of the symbol we checked + the new "(" and  ")"|#31C4C4}}
        {{Text|LOOP|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|'Check for bad operators before a ( bracket|#31C4C4}}
    l = {{Text|0|#F580B1}}
    {{Text|DO|#F0F0F0}}
        l = {{Text|INSTR|#F0F0F0}}(l + {{Text|1|#F580B1}}, t$, {{Text|"("|#FFB100}})
        {{Text|IF|#F0F0F0}} l > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} l > {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'Don't check the starting bracket; there's nothing before it.|#31C4C4}}
            good = {{Text|0|#F580B1}}
            {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|UBOUND|#F0F0F0}}(OName)
                m$ = {{Text|MID$|#F0F0F0}}(t$, l - {{Text|LEN|#F0F0F0}}(OName(i)), {{Text|LEN|#F0F0F0}}(OName(i)))
                {{Text|IF|#F0F0F0}} m$ = OName(i) {{Text|THEN|#F0F0F0}}
                    good = {{Text|-1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}} {{Text|'We found an operator after our ), and it's not a CONST (like PI)|#31C4C4}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(OName(i), {{Text|1|#F580B1}}) = {{Text|"_"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|'try without prefix|#31C4C4}}
                        m$ = {{Text|MID$|#F0F0F0}}(t$, l - ({{Text|LEN|#F0F0F0}}(OName(i)) - {{Text|1|#F580B1}}), {{Text|LEN|#F0F0F0}}(OName(i)) - {{Text|1|#F580B1}})
                        {{Text|IF|#F0F0F0}} m$ = {{Text|MID$|#F0F0F0}}(OName(i), {{Text|2|#F580B1}}) {{Text|THEN|#F0F0F0}} good = {{Text|-1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} good {{Text|THEN|#F0F0F0}} e$ = {{Text|"ERROR - Improper operations before (."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            l = l + {{Text|1|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} l = {{Text|0|#F580B1}}
    {{Text|'Check for bad operators after a ) bracket|#31C4C4}}
    l = {{Text|0|#F580B1}}
    {{Text|DO|#F0F0F0}}
        l = {{Text|INSTR|#F0F0F0}}(l + {{Text|1|#F580B1}}, t$, {{Text|")"|#FFB100}})
        {{Text|IF|#F0F0F0}} l > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} l < {{Text|LEN|#F0F0F0}}(t$) {{Text|THEN|#F0F0F0}}
            good = {{Text|0|#F580B1}}
            {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|UBOUND|#F0F0F0}}(OName)
                m$ = {{Text|MID$|#F0F0F0}}(t$, l + {{Text|1|#F580B1}}, {{Text|LEN|#F0F0F0}}(OName(i)))
                {{Text|IF|#F0F0F0}} m$ = OName(i) {{Text|THEN|#F0F0F0}}
                    good = {{Text|-1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}} {{Text|'We found an operator after our ), and it's not a CONST (like PI|#31C4C4}}
                {{Text|ELSE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(OName(i), {{Text|1|#F580B1}}) = {{Text|"_"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                        {{Text|'try without prefix|#31C4C4}}
                        m$ = {{Text|MID$|#F0F0F0}}(t$, l + {{Text|1|#F580B1}}, {{Text|LEN|#F0F0F0}}(OName(i)) - {{Text|1|#F580B1}})
                        {{Text|IF|#F0F0F0}} m$ = {{Text|MID$|#F0F0F0}}(OName(i), {{Text|2|#F580B1}}) {{Text|THEN|#F0F0F0}} good = {{Text|-1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(t$, l + {{Text|1|#F580B1}}, {{Text|1|#F580B1}}) = {{Text|")"|#FFB100}} {{Text|THEN|#F0F0F0}} good = {{Text|-1|#F580B1}}
            {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} good {{Text|THEN|#F0F0F0}} e$ = {{Text|"ERROR - Improper operations after )."|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
            l = l + {{Text|1|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} l = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} l = {{Text|LEN|#F0F0F0}}(t$) {{Text|'last symbol is a bracket|#31C4C4}}
    {{Text|'Turn all &H (hex) numbers into decimal values for the program to process properly|#31C4C4}}
    l = {{Text|0|#F580B1}}
    {{Text|DO|#F0F0F0}}
        l = {{Text|INSTR|#F0F0F0}}(t$, {{Text|"&H"|#FFB100}})
        {{Text|IF|#F0F0F0}} l {{Text|THEN|#F0F0F0}}
            E = l + {{Text|1|#F580B1}}: finished = {{Text|0|#F580B1}}
            {{Text|DO|#F0F0F0}}
                E = E + {{Text|1|#F580B1}}
                comp$ = {{Text|MID$|#F0F0F0}}(t$, E, {{Text|1|#F580B1}})
                {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} comp$
                    {{Text|CASE|#F0F0F0}} {{Text|"0"|#FFB100}} {{Text|TO|#F0F0F0}} {{Text|"9"|#FFB100}}, {{Text|"A"|#FFB100}} {{Text|TO|#F0F0F0}} {{Text|"F"|#FFB100}} {{Text|'All is good, our next digit is a number, continue to add to the hex$|#31C4C4}}
                    {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}
                        good = {{Text|0|#F580B1}}
                        {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|UBOUND|#F0F0F0}}(OName)
                            {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(t$, E, {{Text|LEN|#F0F0F0}}(OName(i))) = OName(i) {{Text|AND|#F0F0F0}} PL(i) > {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} PL(i) <= {{Text|250|#F580B1}} {{Text|THEN|#F0F0F0}} good = {{Text|-1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}} {{Text|'We found an operator after our ), and it's not a CONST (like PI)|#31C4C4}}
                        {{Text|NEXT|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} good {{Text|THEN|#F0F0F0}} e$ = {{Text|"ERROR - Improper &H value. ("|#FFB100}} + comp$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                        E = E - {{Text|1|#F580B1}}
                        finished = {{Text|-1|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
            {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} finished {{Text|OR|#F0F0F0}} E = {{Text|LEN|#F0F0F0}}(t$)
            t$ = {{Text|LEFT$|#F0F0F0}}(t$, l - {{Text|1|#F580B1}}) + {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}({{Text|VAL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(t$, l, E - l + {{Text|1|#F580B1}}))))) + {{Text|MID$|#F0F0F0}}(t$, E + {{Text|1|#F580B1}})
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} l = {{Text|0|#F580B1}}
    {{Text|'Turn all &B (binary) numbers into decimal values for the program to process properly|#31C4C4}}
    l = {{Text|0|#F580B1}}
    {{Text|DO|#F0F0F0}}
        l = {{Text|INSTR|#F0F0F0}}(t$, {{Text|"&B"|#FFB100}})
        {{Text|IF|#F0F0F0}} l {{Text|THEN|#F0F0F0}}
            E = l + {{Text|1|#F580B1}}: finished = {{Text|0|#F580B1}}
            {{Text|DO|#F0F0F0}}
                E = E + {{Text|1|#F580B1}}
                comp$ = {{Text|MID$|#F0F0F0}}(t$, E, {{Text|1|#F580B1}})
                {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} comp$
                    {{Text|CASE|#F0F0F0}} {{Text|"0"|#FFB100}}, {{Text|"1"|#FFB100}} {{Text|'All is good, our next digit is a number, continue to add to the hex$|#31C4C4}}
                    {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}
                        good = {{Text|0|#F580B1}}
                        {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|UBOUND|#F0F0F0}}(OName)
                            {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(t$, E, {{Text|LEN|#F0F0F0}}(OName(i))) = OName(i) {{Text|AND|#F0F0F0}} PL(i) > {{Text|1|#F580B1}} {{Text|AND|#F0F0F0}} PL(i) <= {{Text|250|#F580B1}} {{Text|THEN|#F0F0F0}} good = {{Text|-1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}} {{Text|'We found an operator after our ), and it's not a CONST (like PI)|#31C4C4}}
                        {{Text|NEXT|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} good {{Text|THEN|#F0F0F0}} e$ = {{Text|"ERROR - Improper &B value. ("|#FFB100}} + comp$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                        E = E - {{Text|1|#F580B1}}
                        finished = {{Text|-1|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
            {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} finished {{Text|OR|#F0F0F0}} E = {{Text|LEN|#F0F0F0}}(t$)
            bin$ = {{Text|MID$|#F0F0F0}}(t$, l + {{Text|2|#F580B1}}, E - l - {{Text|1|#F580B1}})
            {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(bin$)
                {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(bin$, i, {{Text|1|#F580B1}}) = {{Text|"1"|#FFB100}} {{Text|THEN|#F0F0F0}} f = f + {{Text|2|#F580B1}} ^ ({{Text|LEN|#F0F0F0}}(bin$) - i)
            {{Text|NEXT|#F0F0F0}}
            t$ = {{Text|LEFT$|#F0F0F0}}(t$, l - {{Text|1|#F580B1}}) + {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(f))) + {{Text|MID$|#F0F0F0}}(t$, E + {{Text|1|#F580B1}})
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} l = {{Text|0|#F580B1}}
    {{Text|'t$ = N2S(t$)|#31C4C4}}
    VerifyString t$
    e$ = t$
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} VerifyString (t$)
    {{Text|'ERROR CHECK for unrecognized operations|#31C4C4}}
    j = {{Text|1|#F580B1}}
    {{Text|DO|#F0F0F0}}
        comp$ = {{Text|MID$|#F0F0F0}}(t$, j, {{Text|1|#F580B1}})
        {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} comp$
            {{Text|CASE|#F0F0F0}} {{Text|"0"|#FFB100}} {{Text|TO|#F0F0F0}} {{Text|"9"|#FFB100}}, {{Text|"."|#FFB100}}, {{Text|"("|#FFB100}}, {{Text|")"|#FFB100}}, {{Text|","|#FFB100}}: j = j + {{Text|1|#F580B1}}
            {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}
                good = {{Text|0|#F580B1}}
                extrachar = {{Text|0|#F580B1}}
                {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|UBOUND|#F0F0F0}}(OName)
                    {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(t$, j, {{Text|LEN|#F0F0F0}}(OName(i))) = OName(i) {{Text|THEN|#F0F0F0}}
                        good = {{Text|-1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}} {{Text|'We found an operator after our ), and it's not a CONST (like PI)|#31C4C4}}
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(OName(i), {{Text|1|#F580B1}}) = {{Text|"_"|#FFB100}} {{Text|AND|#F0F0F0}} qb64prefix_set = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}}
                            {{Text|'try without prefix|#31C4C4}}
                            {{Text|IF|#F0F0F0}} {{Text|MID$|#F0F0F0}}(t$, j, {{Text|LEN|#F0F0F0}}(OName(i)) - {{Text|1|#F580B1}}) = {{Text|MID$|#F0F0F0}}(OName(i), {{Text|2|#F580B1}}) {{Text|THEN|#F0F0F0}}
                                good = {{Text|-1|#F580B1}}: extrachar = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|NEXT|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} good {{Text|THEN|#F0F0F0}} t$ = {{Text|"ERROR - Bad Operational value. ("|#FFB100}} + comp$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
                j = j + ({{Text|LEN|#F0F0F0}}(OName(i)) - extrachar)
        {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
    {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} j > {{Text|LEN|#F0F0F0}}(t$)
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} N2S$ (exp$) {{Text|'scientific Notation to String|#31C4C4}}
    t$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(exp$))
    {{Text|IF|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(t$, {{Text|1|#F580B1}}) = {{Text|"-"|#FFB100}} {{Text|OR|#F0F0F0}} {{Text|LEFT$|#F0F0F0}}(t$, {{Text|1|#F580B1}}) = {{Text|"N"|#FFB100}} {{Text|THEN|#F0F0F0}} sign$ = {{Text|"-"|#FFB100}}: t$ = {{Text|MID$|#F0F0F0}}(t$, {{Text|2|#F580B1}})
    dp = {{Text|INSTR|#F0F0F0}}(t$, {{Text|"D+"|#FFB100}}): dm = {{Text|INSTR|#F0F0F0}}(t$, {{Text|"D-"|#FFB100}})
    ep = {{Text|INSTR|#F0F0F0}}(t$, {{Text|"E+"|#FFB100}}): em = {{Text|INSTR|#F0F0F0}}(t$, {{Text|"E-"|#FFB100}})
    check1 = {{Text|SGN|#F0F0F0}}(dp) + {{Text|SGN|#F0F0F0}}(dm) + {{Text|SGN|#F0F0F0}}(ep) + {{Text|SGN|#F0F0F0}}(em)
    {{Text|IF|#F0F0F0}} check1 < {{Text|1|#F580B1}} {{Text|OR|#F0F0F0}} check1 > {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} N2S = exp$: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'If no scientic notation is found, or if we find more than 1 type, it's not SN!|#31C4C4}}
    {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} l {{Text|'l now tells us where the SN starts at.|#31C4C4}}
        {{Text|CASE|#F0F0F0}} {{Text|IS|#F0F0F0}} < dp: l = dp
        {{Text|CASE|#F0F0F0}} {{Text|IS|#F0F0F0}} < dm: l = dm
        {{Text|CASE|#F0F0F0}} {{Text|IS|#F0F0F0}} < ep: l = ep
        {{Text|CASE|#F0F0F0}} {{Text|IS|#F0F0F0}} < em: l = em
    {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
    l$ = {{Text|LEFT$|#F0F0F0}}(t$, l - {{Text|1|#F580B1}}) {{Text|'The left of the SN|#31C4C4}}
    r$ = {{Text|MID$|#F0F0F0}}(t$, l + {{Text|1|#F580B1}}): r&& = {{Text|VAL|#F0F0F0}}(r$) {{Text|'The right of the SN, turned into a workable long|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(l$, {{Text|"."|#FFB100}}) {{Text|THEN|#F0F0F0}} {{Text|'Location of the decimal, if any|#31C4C4}}
        {{Text|IF|#F0F0F0}} r&& > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            r&& = r&& - {{Text|LEN|#F0F0F0}}(l$) + {{Text|2|#F580B1}}
        {{Text|ELSE|#F0F0F0}}
            r&& = r&& + {{Text|1|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        l$ = {{Text|LEFT$|#F0F0F0}}(l$, {{Text|1|#F580B1}}) + {{Text|MID$|#F0F0F0}}(l$, {{Text|3|#F580B1}})
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} r&&
        {{Text|CASE|#F0F0F0}} {{Text|0|#F580B1}} {{Text|'what the heck? We solved it already?|#31C4C4}}
            {{Text|'l$ = l$|#31C4C4}}
        {{Text|CASE|#F0F0F0}} {{Text|IS|#F0F0F0}} < {{Text|0|#F580B1}}
            {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|-r&&|#F580B1}}
                l$ = {{Text|"0"|#FFB100}} + l$
            {{Text|NEXT|#F0F0F0}}
            l$ = {{Text|"0."|#FFB100}} + l$
        {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}
            {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} r&&
                l$ = l$ + {{Text|"0"|#FFB100}}
            {{Text|NEXT|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
    N2S$ = sign$ + l$
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} QuotedFilename$ (f$)
    {{Text|IF|#F0F0F0}} os$ = {{Text|"WIN"|#FFB100}} {{Text|THEN|#F0F0F0}}
        QuotedFilename$ = {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}}) + f$ + {{Text|CHR$|#F0F0F0}}({{Text|34|#F580B1}})
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|IF|#F0F0F0}} os$ = {{Text|"LNX"|#FFB100}} {{Text|THEN|#F0F0F0}}
        QuotedFilename$ = {{Text|"'"|#FFB100}} + f$ + {{Text|"'"|#FFB100}}
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} HashValue& (a$) {{Text|'returns the hash table value of a string|#31C4C4}}
    {{Text|'[5(first)][5(second)][5(last)][5(2nd-last)][3(length AND 7)][1(first char is underscore)]|#31C4C4}}
    l = {{Text|LEN|#F0F0F0}}(a$)
    {{Text|IF|#F0F0F0}} l = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'an (invalid) NULL string equates to 0|#31C4C4}}
    a = {{Text|ASC|#F0F0F0}}(a$)
    {{Text|IF|#F0F0F0}} a <> {{Text|95|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|'does not begin with underscore|#31C4C4}}
        {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} l
            {{Text|CASE|#F0F0F0}} {{Text|1|#F580B1}}
                HashValue& = hash1char(a) + {{Text|1048576|#F580B1}}
                {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|CASE|#F0F0F0}} {{Text|2|#F580B1}}
                HashValue& = hash2char({{Text|CVI|#F0F0F0}}(a$)) + {{Text|2097152|#F580B1}}
                {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|CASE|#F0F0F0}} {{Text|3|#F580B1}}
                HashValue& = hash2char({{Text|CVI|#F0F0F0}}(a$)) + hash1char({{Text|ASC|#F0F0F0}}(a$, {{Text|3|#F580B1}})) * {{Text|1024|#F580B1}} + {{Text|3145728|#F580B1}}
                {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}
                HashValue& = hash2char({{Text|CVI|#F0F0F0}}(a$)) + hash2char({{Text|ASC|#F0F0F0}}(a$, l) + {{Text|ASC|#F0F0F0}}(a$, l - {{Text|1|#F580B1}}) * {{Text|256|#F580B1}}) * {{Text|1024|#F580B1}} + (l {{Text|AND|#F0F0F0}} {{Text|7|#F580B1}}) * {{Text|1048576|#F580B1}}
                {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
    {{Text|ELSE|#F0F0F0}} {{Text|'does begin with underscore|#31C4C4}}
        {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} l
            {{Text|CASE|#F0F0F0}} {{Text|1|#F580B1}}
                HashValue& = ({{Text|1048576|#F580B1}} + {{Text|8388608|#F580B1}}): {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'note: underscore only is illegal in QB64 but supported by hash|#31C4C4}}
            {{Text|CASE|#F0F0F0}} {{Text|2|#F580B1}}
                HashValue& = hash1char({{Text|ASC|#F0F0F0}}(a$, {{Text|2|#F580B1}})) + ({{Text|2097152|#F580B1}} + {{Text|8388608|#F580B1}})
                {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|CASE|#F0F0F0}} {{Text|3|#F580B1}}
                HashValue& = hash2char({{Text|ASC|#F0F0F0}}(a$, {{Text|2|#F580B1}}) + {{Text|ASC|#F0F0F0}}(a$, {{Text|3|#F580B1}}) * {{Text|256|#F580B1}}) + ({{Text|3145728|#F580B1}} + {{Text|8388608|#F580B1}})
                {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|CASE|#F0F0F0}} {{Text|4|#F580B1}}
                HashValue& = hash2char(({{Text|CVL|#F0F0F0}}(a$) {{Text|AND|#F0F0F0}} {{Text|&HFFFF00|#F580B1}}) \ {{Text|256|#F580B1}}) + hash1char({{Text|ASC|#F0F0F0}}(a$, {{Text|4|#F580B1}})) * {{Text|1024|#F580B1}} + ({{Text|4194304|#F580B1}} + {{Text|8388608|#F580B1}})
                {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}}
                HashValue& = hash2char(({{Text|CVL|#F0F0F0}}(a$) {{Text|AND|#F0F0F0}} {{Text|&HFFFF00|#F580B1}}) \ {{Text|256|#F580B1}}) + hash2char({{Text|ASC|#F0F0F0}}(a$, l) + {{Text|ASC|#F0F0F0}}(a$, l - {{Text|1|#F580B1}}) * {{Text|256|#F580B1}}) * {{Text|1024|#F580B1}} + (l {{Text|AND|#F0F0F0}} {{Text|7|#F580B1}}) * {{Text|1048576|#F580B1}} + {{Text|8388608|#F580B1}}
                {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|SUB|#F0F0F0}} HashAdd (a$, flags, reference)
    {{Text|'find the index to use|#31C4C4}}
    {{Text|IF|#F0F0F0}} HashListFreeLast > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|'take from free list|#31C4C4}}
        i = HashListFree(HashListFreeLast)
        HashListFreeLast = HashListFreeLast - {{Text|1|#F580B1}}
    {{Text|ELSE|#F0F0F0}}
        {{Text|IF|#F0F0F0}} HashListNext > HashListSize {{Text|THEN|#F0F0F0}}
            {{Text|'double hash list size|#31C4C4}}
            HashListSize = HashListSize * {{Text|2|#F580B1}}
            {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} HashList({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} HashListSize) {{Text|AS|#F0F0F0}} HashListItem
            {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} HashListName({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} HashListSize) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|256|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        i = HashListNext
        HashListNext = HashListNext + {{Text|1|#F580B1}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'setup links to index|#31C4C4}}
    x = HashValue(a$)
    i2 = HashTable(x)
    {{Text|IF|#F0F0F0}} i2 {{Text|THEN|#F0F0F0}}
        i3 = HashList(i2).LastItem
        HashList(i2).LastItem = i
        HashList(i3).NextItem = i
        HashList(i).PrevItem = i3
    {{Text|ELSE|#F0F0F0}}
        HashTable(x) = i
        HashList(i).PrevItem = {{Text|0|#F580B1}}
        HashList(i).LastItem = i
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    HashList(i).NextItem = {{Text|0|#F580B1}}
    {{Text|'set common hashlist values|#31C4C4}}
    HashList(i).Flags = flags
    HashList(i).Reference = reference
    HashListName(i) = {{Text|UCASE$|#F0F0F0}}(a$)
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} HashFind (a$, searchflags, resultflags, resultreference)
    {{Text|'(0,1,2)z=hashfind[rev]("RUMI",Hashflag_label,resflag,resref)|#31C4C4}}
    {{Text|'0=doesn't exist|#31C4C4}}
    {{Text|'1=found, no more items to scan|#31C4C4}}
    {{Text|'2=found, more items still to scan|#31C4C4}}
    i = HashTable(HashValue(a$))
    {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}}
        ua$ = {{Text|UCASE$|#F0F0F0}}(a$) + {{Text|SPACE$|#F0F0F0}}({{Text|256|#F580B1}} - {{Text|LEN|#F0F0F0}}(a$))
        hashfind_next:
        f = HashList(i).Flags
        {{Text|IF|#F0F0F0}} searchflags {{Text|AND|#F0F0F0}} f {{Text|THEN|#F0F0F0}} {{Text|'flags in common|#31C4C4}}
            {{Text|IF|#F0F0F0}} HashListName(i) = ua$ {{Text|THEN|#F0F0F0}}
                resultflags = f
                resultreference = HashList(i).Reference
                i2 = HashList(i).NextItem
                {{Text|IF|#F0F0F0}} i2 {{Text|THEN|#F0F0F0}}
                    HashFind = {{Text|2|#F580B1}}
                    HashFind_NextListItem = i2
                    HashFind_Reverse = {{Text|0|#F580B1}}
                    HashFind_SearchFlags = searchflags
                    HashFind_Name = ua$
                    HashRemove_LastFound = i
                    {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|ELSE|#F0F0F0}}
                    HashFind = {{Text|1|#F580B1}}
                    HashRemove_LastFound = i
                    {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        i = HashList(i).NextItem
        {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} hashfind_next
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} HashFindRev (a$, searchflags, resultflags, resultreference)
    {{Text|'(0,1,2)z=hashfind[rev]("RUMI",Hashflag_label,resflag,resref)|#31C4C4}}
    {{Text|'0=doesn't exist|#31C4C4}}
    {{Text|'1=found, no more items to scan|#31C4C4}}
    {{Text|'2=found, more items still to scan|#31C4C4}}
    i = HashTable(HashValue(a$))
    {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}}
        i = HashList(i).LastItem
        ua$ = {{Text|UCASE$|#F0F0F0}}(a$) + {{Text|SPACE$|#F0F0F0}}({{Text|256|#F580B1}} - {{Text|LEN|#F0F0F0}}(a$))
        hashfindrev_next:
        f = HashList(i).Flags
        {{Text|IF|#F0F0F0}} searchflags {{Text|AND|#F0F0F0}} f {{Text|THEN|#F0F0F0}} {{Text|'flags in common|#31C4C4}}
            {{Text|IF|#F0F0F0}} HashListName(i) = ua$ {{Text|THEN|#F0F0F0}}
                resultflags = f
                resultreference = HashList(i).Reference
                i2 = HashList(i).PrevItem
                {{Text|IF|#F0F0F0}} i2 {{Text|THEN|#F0F0F0}}
                    HashFindRev = {{Text|2|#F580B1}}
                    HashFind_NextListItem = i2
                    HashFind_Reverse = {{Text|1|#F580B1}}
                    HashFind_SearchFlags = searchflags
                    HashFind_Name = ua$
                    HashRemove_LastFound = i
                    {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|ELSE|#F0F0F0}}
                    HashFindRev = {{Text|1|#F580B1}}
                    HashRemove_LastFound = i
                    {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        i = HashList(i).PrevItem
        {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} hashfindrev_next
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} HashFindCont (resultflags, resultreference)
    {{Text|'(0,1,2)z=hashfind[rev](resflag,resref)|#31C4C4}}
    {{Text|'0=no more items exist|#31C4C4}}
    {{Text|'1=found, no more items to scan|#31C4C4}}
    {{Text|'2=found, more items still to scan|#31C4C4}}
    {{Text|IF|#F0F0F0}} HashFind_Reverse {{Text|THEN|#F0F0F0}}
        i = HashFind_NextListItem
        hashfindrevc_next:
        f = HashList(i).Flags
        {{Text|IF|#F0F0F0}} HashFind_SearchFlags {{Text|AND|#F0F0F0}} f {{Text|THEN|#F0F0F0}} {{Text|'flags in common|#31C4C4}}
            {{Text|IF|#F0F0F0}} HashListName(i) = HashFind_Name {{Text|THEN|#F0F0F0}}
                resultflags = f
                resultreference = HashList(i).Reference
                i2 = HashList(i).PrevItem
                {{Text|IF|#F0F0F0}} i2 {{Text|THEN|#F0F0F0}}
                    HashFindCont = {{Text|2|#F580B1}}
                    HashFind_NextListItem = i2
                    HashRemove_LastFound = i
                    {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|ELSE|#F0F0F0}}
                    HashFindCont = {{Text|1|#F580B1}}
                    HashRemove_LastFound = i
                    {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        i = HashList(i).PrevItem
        {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} hashfindrevc_next
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|ELSE|#F0F0F0}}
        i = HashFind_NextListItem
        hashfindc_next:
        f = HashList(i).Flags
        {{Text|IF|#F0F0F0}} HashFind_SearchFlags {{Text|AND|#F0F0F0}} f {{Text|THEN|#F0F0F0}} {{Text|'flags in common|#31C4C4}}
            {{Text|IF|#F0F0F0}} HashListName(i) = HashFind_Name {{Text|THEN|#F0F0F0}}
                resultflags = f
                resultreference = HashList(i).Reference
                i2 = HashList(i).NextItem
                {{Text|IF|#F0F0F0}} i2 {{Text|THEN|#F0F0F0}}
                    HashFindCont = {{Text|2|#F580B1}}
                    HashFind_NextListItem = i2
                    HashRemove_LastFound = i
                    {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|ELSE|#F0F0F0}}
                    HashFindCont = {{Text|1|#F580B1}}
                    HashRemove_LastFound = i
                    {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        i = HashList(i).NextItem
        {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} hashfindc_next
        {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|SUB|#F0F0F0}} HashRemove
    i = HashRemove_LastFound
    {{Text|'add to free list|#31C4C4}}
    HashListFreeLast = HashListFreeLast + {{Text|1|#F580B1}}
    {{Text|IF|#F0F0F0}} HashListFreeLast > HashListFreeSize {{Text|THEN|#F0F0F0}}
        HashListFreeSize = HashListFreeSize * {{Text|2|#F580B1}}
        {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} HashListFree({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} HashListFreeSize) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    HashListFree(HashListFreeLast) = i
    {{Text|'unlink|#31C4C4}}
    i1 = HashList(i).PrevItem
    {{Text|IF|#F0F0F0}} i1 {{Text|THEN|#F0F0F0}}
        {{Text|'not first item in list|#31C4C4}}
        i2 = HashList(i).NextItem
        {{Text|IF|#F0F0F0}} i2 {{Text|THEN|#F0F0F0}}
            {{Text|'(not first and) not last item|#31C4C4}}
            HashList(i1).NextItem = i2
            HashList(i2).LastItem = i1
        {{Text|ELSE|#F0F0F0}}
            {{Text|'last item|#31C4C4}}
            x = HashTable(HashValue(HashListName$(i)))
            HashList(x).LastItem = i1
            HashList(i1).NextItem = {{Text|0|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|ELSE|#F0F0F0}}
        {{Text|'first item in list|#31C4C4}}
        x = HashTable(HashValue(HashListName$(i)))
        i2 = HashList(i).NextItem
        {{Text|IF|#F0F0F0}} i2 {{Text|THEN|#F0F0F0}}
            {{Text|'(first item but) not last item|#31C4C4}}
            HashTable(x) = i2
            HashList(i2).PrevItem = {{Text|0|#F580B1}}
            HashList(i2).LastItem = HashList(i).LastItem
        {{Text|ELSE|#F0F0F0}}
            {{Text|'(first and) last item|#31C4C4}}
            HashTable(x) = {{Text|0|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} HashDump {{Text|'used for debugging purposes|#31C4C4}}
    fh = {{Text|FREEFILE|#F0F0F0}}
    {{Text|OPEN|#F0F0F0}} {{Text|"hashdump.txt"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|AS|#F0F0F0}} #fh
    b$ = {{Text|"12345678901234567890123456789012}"|#FFB100}}
    {{Text|FOR|#F0F0F0}} x = {{Text|0|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|16777215|#F580B1}}
        {{Text|IF|#F0F0F0}} HashTable(x) {{Text|THEN|#F0F0F0}}
            {{Text|PRINT|#F0F0F0}} #fh, {{Text|"START HashTable("|#FFB100}}; x; {{Text|"):"|#FFB100}}
            i = HashTable(x)
            {{Text|'validate|#31C4C4}}
            lasti = HashList(i).LastItem
            {{Text|IF|#F0F0F0}} HashList(i).LastItem = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} HashList(i).PrevItem <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} HashValue(HashListName(i)) <> x {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} corrupt
            {{Text|PRINT|#F0F0F0}} #fh, {{Text|"  HashList("|#FFB100}}; i; {{Text|").LastItem="|#FFB100}}; HashList(i).LastItem
            hashdumpnextitem:
            x$ = {{Text|"  ["|#FFB100}} + {{Text|STR$|#F0F0F0}}(i) + {{Text|"]"|#FFB100}} + HashListName(i)
            f = HashList(i).Flags
            x$ = x$ + {{Text|",.Flags="|#FFB100}} + {{Text|STR$|#F0F0F0}}(f) + {{Text|"{"|#FFB100}}
            {{Text|FOR|#F0F0F0}} z = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|32|#F580B1}}
                {{Text|ASC|#F0F0F0}}(b$, z) = (f {{Text|AND|#F0F0F0}} {{Text|1|#F580B1}}) + {{Text|48|#F580B1}}
                f = f \ {{Text|2|#F580B1}}
            {{Text|NEXT|#F0F0F0}}
            x$ = x$ + b$
            x$ = x$ + {{Text|",.Reference="|#FFB100}} + {{Text|STR$|#F0F0F0}}(HashList(i).Reference)
            {{Text|PRINT|#F0F0F0}} #fh, x$
            {{Text|'validate|#31C4C4}}
            i1 = HashList(i).PrevItem
            i2 = HashList(i).NextItem
            {{Text|IF|#F0F0F0}} i1 {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} HashList(i1).NextItem <> i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} corrupt
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} i2 {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} HashList(i2).PrevItem <> i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} corrupt
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} i2 = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} lasti <> i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} corrupt
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            i = HashList(i).NextItem
            {{Text|IF|#F0F0F0}} i {{Text|THEN|#F0F0F0}} {{Text|GOTO|#F0F0F0}} hashdumpnextitem
            {{Text|PRINT|#F0F0F0}} #fh, {{Text|"END HashTable("|#FFB100}}; x; {{Text|")"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|CLOSE|#F0F0F0}} #fh
    {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    corrupt:
    {{Text|PRINT|#F0F0F0}} #fh, {{Text|"HASH TABLE CORRUPT!"|#FFB100}} {{Text|'should never happen|#31C4C4}}
    {{Text|CLOSE|#F0F0F0}} #fh
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} HashClear {{Text|'clear entire hash table|#31C4C4}}
    HashListSize = {{Text|65536|#F580B1}}
    HashListNext = {{Text|1|#F580B1}}
    HashListFreeSize = {{Text|1024|#F580B1}}
    HashListFreeLast = {{Text|0|#F580B1}}
    {{Text|REDIM|#F0F0F0}} HashList({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} HashListSize) {{Text|AS|#F0F0F0}} HashListItem
    {{Text|REDIM|#F0F0F0}} HashListName({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} HashListSize) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|256|#F580B1}}
    {{Text|REDIM|#F0F0F0}} HashListFree({{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} HashListFreeSize) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    {{Text|REDIM|#F0F0F0}} HashTable({{Text|16777215|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}} {{Text|'64MB lookup table with indexes to the hashlist|#31C4C4}}
    HashFind_NextListItem = {{Text|0|#F580B1}}
    HashFind_Reverse = {{Text|0|#F580B1}}
    HashFind_SearchFlags = {{Text|0|#F580B1}}
    HashFind_Name = {{Text|""|#FFB100}}
    HashRemove_LastFound = {{Text|0|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} removecast$ (a$)
    removecast$ = a$
    {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(a$, {{Text|"  )"|#FFB100}}) {{Text|THEN|#F0F0F0}}
        removecast$ = {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - {{Text|INSTR|#F0F0F0}}(a$, {{Text|"  )"|#FFB100}}) - {{Text|2|#F580B1}})
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} converttabs$ (a2$)
    {{Text|IF|#F0F0F0}} ideautoindent {{Text|THEN|#F0F0F0}} s = ideautoindentsize {{Text|ELSE|#F0F0F0}} s = {{Text|4|#F580B1}}
    a$ = a2$
    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(a$, CHR_TAB)
        x = {{Text|INSTR|#F0F0F0}}(a$, CHR_TAB)
        a$ = {{Text|LEFT$|#F0F0F0}}(a$, x - {{Text|1|#F580B1}}) + {{Text|SPACE$|#F0F0F0}}(s - ((x - {{Text|1|#F580B1}}) {{Text|MOD|#F0F0F0}} s)) + {{Text|RIGHT$|#F0F0F0}}(a$, {{Text|LEN|#F0F0F0}}(a$) - x)
    {{Text|LOOP|#F0F0F0}}
    converttabs$ = a$
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} NewByteElement$
    a$ = {{Text|"byte_element_"|#FFB100}} + str2$(uniquenumber)
    NewByteElement$ = a$
    {{Text|IF|#F0F0F0}} use_global_byte_elements {{Text|THEN|#F0F0F0}}
        WriteBufLine GlobTxtBuf, {{Text|"byte_element_struct *"|#FFB100}} + a$ + {{Text|"=(byte_element_struct*)malloc(12);"|#FFB100}}
    {{Text|ELSE|#F0F0F0}}
        WriteBufLine DataTxtBuf, {{Text|"byte_element_struct *"|#FFB100}} + a$ + {{Text|"=NULL;"|#FFB100}}
        WriteBufLine DataTxtBuf, {{Text|"if (!"|#FFB100}} + a$ + {{Text|"){"|#FFB100}}
        WriteBufLine DataTxtBuf, {{Text|"if ((mem_static_pointer+=12)<mem_static_limit) "|#FFB100}} + a$ + {{Text|"=(byte_element_struct*)(mem_static_pointer-12); else "|#FFB100}} + a$ + {{Text|"=(byte_element_struct*)mem_static_malloc(12);"|#FFB100}}
        WriteBufLine DataTxtBuf, {{Text|"}"|#FFB100}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} validname (a$)
    {{Text|'notes:|#31C4C4}}
    {{Text|'1) '_1' is invalid because it has no alphabet letters|#31C4C4}}
    {{Text|'2) 'A_' is invalid because it has a trailing _|#31C4C4}}
    {{Text|'3) '_1A' is invalid because it contains a number before the first alphabet letter|#31C4C4}}
    {{Text|'4) names cannot be longer than 40 characters|#31C4C4}}
    l = {{Text|LEN|#F0F0F0}}(a$)
    {{Text|IF|#F0F0F0}} l = {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} l > {{Text|40|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} l = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|'Note: variable names with periods need to be obfuscated, and this affects their length|#31C4C4}}
        i = {{Text|INSTR|#F0F0F0}}(a$, fix046$)
        {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} i
            l = l - {{Text|LEN|#F0F0F0}}(fix046$) + {{Text|1|#F580B1}}
            i = {{Text|INSTR|#F0F0F0}}(i + {{Text|1|#F580B1}}, a$, fix046$)
        {{Text|LOOP|#F0F0F0}}
        {{Text|IF|#F0F0F0}} l > {{Text|40|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        l = {{Text|LEN|#F0F0F0}}(a$)
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|'check for single, leading underscore|#31C4C4}}
    {{Text|IF|#F0F0F0}} l >= {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(a$, {{Text|1|#F580B1}}) = {{Text|95|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|ASC|#F0F0F0}}(a$, {{Text|2|#F580B1}}) <> {{Text|95|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} l
        a = {{Text|ASC|#F0F0F0}}(a$, i)
        {{Text|IF|#F0F0F0}} alphanumeric(a) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} isnumeric(a) {{Text|THEN|#F0F0F0}}
            trailingunderscore = {{Text|0|#F580B1}}
            {{Text|IF|#F0F0F0}} alphabetletter = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|ELSE|#F0F0F0}}
            {{Text|IF|#F0F0F0}} a = {{Text|95|#F580B1}} {{Text|THEN|#F0F0F0}}
                trailingunderscore = {{Text|1|#F580B1}}
            {{Text|ELSE|#F0F0F0}}
                alphabetletter = {{Text|1|#F580B1}}
                trailingunderscore = {{Text|0|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|IF|#F0F0F0}} trailingunderscore {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    validname = {{Text|1|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} str_nth$ (x)
    {{Text|IF|#F0F0F0}} x = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} str_nth$ = {{Text|"1st"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} x = {{Text|2|#F580B1}} {{Text|THEN|#F0F0F0}} str_nth$ = {{Text|"2nd"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|IF|#F0F0F0}} x = {{Text|3|#F580B1}} {{Text|THEN|#F0F0F0}} str_nth$ = {{Text|"3rd"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    str_nth$ = str2(x) + {{Text|"th"|#FFB100}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|SUB|#F0F0F0}} Give_Error (a$)
    Error_Happened = {{Text|1|#F580B1}}
    Error_Message = a$
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} WriteConfigSetting (section$, item$, value$)
    WriteSetting ConfigFile$, section$, item$, value$
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} ReadConfigSetting (section$, item$, value$)
    value$ = ReadSetting$(ConfigFile$, section$, item$)
    ReadConfigSetting = ({{Text|LEN|#F0F0F0}}(value$) > {{Text|0|#F580B1}})
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} VRGBS~& (text$,{{Text|_DefaultColor|#F0F0F0}} {{Text|AS|#F0F0F0}} {{Text|_UNSIGNED|#F0F0F0}} {{Text|LONG|#F0F0F0}})
    {{Text|'Value of RGB String = VRGBS without a ton of typing|#31C4C4}}
    {{Text|'A function to get the RGB value back from a string such as _RGB32(255,255,255)|#31C4C4}}
    {{Text|'text$ is the string that we send to check for a value|#31C4C4}}
    {{Text|'DefaultColor is the value we send back if the string isn't in the proper format|#31C4C4}}
    VRGBS~& ={{Text|_DefaultColor|#F0F0F0}} {{Text|'A return the default value if we can't parse the string properly|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|UCASE$|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(text$, {{Text|4|#F580B1}})) = {{Text|"_RGB"|#FFB100}} {{Text|THEN|#F0F0F0}}
        rpos = {{Text|INSTR|#F0F0F0}}(text$, {{Text|"("|#FFB100}})
        gpos = {{Text|INSTR|#F0F0F0}}(rpos, text$, {{Text|","|#FFB100}})
        bpos = {{Text|INSTR|#F0F0F0}}(gpos + {{Text|1|#F580B1}}, text$, {{Text|","|#FFB100}})
        {{Text|IF|#F0F0F0}} rpos <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} bpos <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} gpos <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            red = {{Text|VAL|#F0F0F0}}({{Text|_TRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(text$, rpos + {{Text|1|#F580B1}})))
            green = {{Text|VAL|#F0F0F0}}({{Text|_TRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(text$, gpos + {{Text|1|#F580B1}})))
            blue = {{Text|VAL|#F0F0F0}}({{Text|_TRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(text$, bpos + {{Text|1|#F580B1}})))
            VRGBS~& = _R{{Text|_RGB|#F0F0F0}}(red, green, blue)
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} rgbs$ (c {{Text|AS|#F0F0F0}} {{Text|_UNSIGNED|#F0F0F0}} {{Text|LONG|#F0F0F0}})
    rgbs$ = {{Text|"_RGB32("|#FFB100}} + {{Text|_TRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(_R{{Text|_RED|#F0F0F0}}(c))) + {{Text|", "|#FFB100}} + {{Text|_TRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(_G{{Text|_GREEN|#F0F0F0}}(c))) + {{Text|", "|#FFB100}} + {{Text|_TRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(_B{{Text|_BLUE|#F0F0F0}}(c))) + {{Text|")"|#FFB100}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} EvalPreIF (text$, err$)
    temp$ = text$ {{Text|'so we don't corrupt the string sent to us for evaluation|#31C4C4}}
    err$ = {{Text|""|#FFB100}} {{Text|'null the err message to begin with|#31C4C4}}
    {{Text|'first order of business is to solve for <>=|#31C4C4}}
    {{Text|DIM|#F0F0F0}} PC_Op({{Text|3|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
    PC_Op({{Text|1|#F580B1}}) = {{Text|"="|#FFB100}}
    PC_Op({{Text|2|#F580B1}}) = {{Text|"<"|#FFB100}}
    PC_Op({{Text|3|#F580B1}}) = {{Text|">"|#FFB100}}
    {{Text|DO|#F0F0F0}}
        {{Text|'look for the existence of the first symbol if there is any|#31C4C4}}
        firstsymbol$ = {{Text|""|#FFB100}}: first = {{Text|0|#F580B1}}
        {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|UBOUND|#F0F0F0}}(PC_Op)
            temp = {{Text|INSTR|#F0F0F0}}(temp$, PC_Op(i))
            {{Text|IF|#F0F0F0}} first = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} first = temp: firstsymbol$ = PC_Op(i)
            {{Text|IF|#F0F0F0}} temp <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} temp < first {{Text|THEN|#F0F0F0}} first = temp: firstsymbol$ = PC_Op(i)
        {{Text|NEXT|#F0F0F0}}
        {{Text|IF|#F0F0F0}} firstsymbol$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|'we've got = < >; let's see if we have a combination of them|#31C4C4}}
            secondsymbol = {{Text|0|#F580B1}}: second = {{Text|0|#F580B1}}
            {{Text|FOR|#F0F0F0}} i = first + {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(temp$)
                a$ = {{Text|MID$|#F0F0F0}}(temp$, i, {{Text|1|#F580B1}})
                {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} a$
                    {{Text|CASE|#F0F0F0}} {{Text|" "|#FFB100}} {{Text|'ignore spaces|#31C4C4}}
                    {{Text|CASE|#F0F0F0}} {{Text|"="|#FFB100}}, {{Text|"<"|#FFB100}}, {{Text|">"|#FFB100}}
                        {{Text|IF|#F0F0F0}} a$ = firstsymbol$ {{Text|THEN|#F0F0F0}} err$ = {{Text|"Duplicate operator ("|#FFB100}} + a$ + {{Text|")"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
                        second = i: secondsymbol$ = a$
                    {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}} {{Text|'we found a symbol we don't recognize|#31C4C4}}
                        {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} first {{Text|THEN|#F0F0F0}} {{Text|'we found a symbol|#31C4C4}}
            l$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(temp$, first - {{Text|1|#F580B1}}))
            {{Text|IF|#F0F0F0}} second {{Text|THEN|#F0F0F0}} rightstart = second + {{Text|1|#F580B1}} {{Text|ELSE|#F0F0F0}} rightstart = first + {{Text|1|#F580B1}}
            r$ = {{Text|LTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(temp$, rightstart))
            symbol$ = {{Text|MID$|#F0F0F0}}(temp$, first, {{Text|1|#F580B1}}) + {{Text|MID$|#F0F0F0}}(temp$, second, {{Text|1|#F580B1}})
            {{Text|'now we check for spaces to separate this segment from any other AND/OR conditions and such|#31C4C4}}
            {{Text|FOR|#F0F0F0}} i = {{Text|LEN|#F0F0F0}}(l$) {{Text|TO|#F0F0F0}} {{Text|1|#F580B1}} {{Text|STEP|#F0F0F0}} {{Text|-1|#F580B1}}
                {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(l$, i) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            leftside$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(temp$, i))
            l$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(temp$, i + {{Text|1|#F580B1}}, {{Text|LEN|#F0F0F0}}(l$) - i)))
            {{Text|IF|#F0F0F0}} validname(l$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} err$ = {{Text|"Invalid flag name"|#FFB100}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
            rightstop = {{Text|LEN|#F0F0F0}}(r$)
            {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(r$)
                {{Text|IF|#F0F0F0}} {{Text|ASC|#F0F0F0}}(r$, i) = {{Text|32|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
            rightside$ = {{Text|LTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(r$, i + {{Text|1|#F580B1}}))
            r$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(r$, i - {{Text|1|#F580B1}})))
            {{Text|IF|#F0F0F0}} symbol$ = {{Text|"=<"|#FFB100}} {{Text|THEN|#F0F0F0}} symbol$ = {{Text|"<="|#FFB100}}
            {{Text|IF|#F0F0F0}} symbol$ = {{Text|"=>"|#FFB100}} {{Text|THEN|#F0F0F0}} symbol$ = {{Text|">="|#FFB100}}
            {{Text|IF|#F0F0F0}} symbol$ = {{Text|"><"|#FFB100}} {{Text|THEN|#F0F0F0}} symbol$ = {{Text|"<>"|#FFB100}}
            result$ = {{Text|" 0 "|#FFB100}}
            {{Text|IF|#F0F0F0}} symbol$ = {{Text|"<>"|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|'check to see if we're NOT equal in any case with <>|#31C4C4}}
                {{Text|FOR|#F0F0F0}} i = {{Text|0|#F580B1}} {{Text|TO|#F0F0F0}} UserDefineCount
                    {{Text|IF|#F0F0F0}} UserDefine({{Text|0|#F580B1}}, i) = l$ {{Text|AND|#F0F0F0}} UserDefine({{Text|1|#F580B1}}, i) <> r$ {{Text|THEN|#F0F0F0}} result$ = {{Text|" -1 "|#FFB100}}: {{Text|GOTO|#F0F0F0}} finishedcheck
                {{Text|NEXT|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(symbol$, {{Text|"="|#FFB100}}) {{Text|THEN|#F0F0F0}} {{Text|'check to see if we're equal in any case with =|#31C4C4}}
                UserFound = {{Text|0|#F580B1}}
                {{Text|IF|#F0F0F0}} l$ = UserDefine({{Text|0|#F580B1}}, {{Text|7|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|'we're comparing VERSION numbers|#31C4C4}}
                    result = CompareVersions(Version$, r$) {{Text|'-1 is less than, 0 is equal, +1 is greater than|#31C4C4}}
                    {{Text|IF|#F0F0F0}} result = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} result$ = {{Text|" -1 "|#FFB100}}: {{Text|GOTO|#F0F0F0}} finishedcheck
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|FOR|#F0F0F0}} i = {{Text|0|#F580B1}} {{Text|TO|#F0F0F0}} UserDefineCount
                    {{Text|IF|#F0F0F0}} i = {{Text|7|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|_CONTINUE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} UserDefine({{Text|0|#F580B1}}, i) = l$ {{Text|THEN|#F0F0F0}}
                        UserFound = {{Text|-1|#F580B1}}
                        {{Text|IF|#F0F0F0}} UserDefine({{Text|1|#F580B1}}, i) = r$ {{Text|THEN|#F0F0F0}} result$ = {{Text|" -1 "|#FFB100}}: {{Text|GOTO|#F0F0F0}} finishedcheck
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|NEXT|#F0F0F0}}
                {{Text|IF|#F0F0F0}} UserFound = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(r$)) = {{Text|"UNDEFINED"|#FFB100}} {{Text|THEN|#F0F0F0}} result$ = {{Text|" -1 "|#FFB100}}: {{Text|GOTO|#F0F0F0}} finishedcheck
                {{Text|IF|#F0F0F0}} UserFound = {{Text|-1|#F580B1}} {{Text|AND|#F0F0F0}} {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(r$)) = {{Text|"DEFINED"|#FFB100}} {{Text|THEN|#F0F0F0}} result$ = {{Text|" -1 "|#FFB100}}: {{Text|GOTO|#F0F0F0}} finishedcheck
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(symbol$, {{Text|">"|#FFB100}}) {{Text|THEN|#F0F0F0}} {{Text|'check to see if we're greater than in any case with >|#31C4C4}}
                {{Text|IF|#F0F0F0}} l$ = UserDefine({{Text|0|#F580B1}}, {{Text|7|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|'we're comparing VERSION numbers|#31C4C4}}
                    result = CompareVersions(Version$, r$) {{Text|'-1 is less than, 0 is equal, +1 is greater than|#31C4C4}}
                    {{Text|IF|#F0F0F0}} result = {{Text|1|#F580B1}} {{Text|THEN|#F0F0F0}} result$ = {{Text|" -1 "|#FFB100}}: {{Text|GOTO|#F0F0F0}} finishedcheck
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|FOR|#F0F0F0}} i = {{Text|0|#F580B1}} {{Text|TO|#F0F0F0}} UserDefineCount
                    {{Text|IF|#F0F0F0}} i = {{Text|7|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|_CONTINUE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} VerifyNumber(r$) {{Text|AND|#F0F0F0}} VerifyNumber(UserDefine({{Text|1|#F580B1}}, i)) {{Text|THEN|#F0F0F0}} {{Text|'we're comparing numeric values|#31C4C4}}
                        {{Text|IF|#F0F0F0}} UserDefine({{Text|0|#F580B1}}, i) = l$ {{Text|AND|#F0F0F0}} {{Text|VAL|#F0F0F0}}(UserDefine({{Text|1|#F580B1}}, i)) > {{Text|VAL|#F0F0F0}}(r$) {{Text|THEN|#F0F0F0}} result$ = {{Text|" -1 "|#FFB100}}: {{Text|GOTO|#F0F0F0}} finishedcheck
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} UserDefine({{Text|0|#F580B1}}, i) = l$ {{Text|AND|#F0F0F0}} UserDefine({{Text|1|#F580B1}}, i) > r$ {{Text|THEN|#F0F0F0}} result$ = {{Text|" -1 "|#FFB100}}: {{Text|GOTO|#F0F0F0}} finishedcheck
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|NEXT|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(symbol$, {{Text|"<"|#FFB100}}) {{Text|THEN|#F0F0F0}} {{Text|'check to see if we're less than in any case with <|#31C4C4}}
                {{Text|IF|#F0F0F0}} l$ = UserDefine({{Text|0|#F580B1}}, {{Text|7|#F580B1}}) {{Text|THEN|#F0F0F0}} {{Text|'we're comparing VERSION numbers|#31C4C4}}
                    result = CompareVersions(Version$, r$) {{Text|'-1 is less than, 0 is equal, +1 is greater than|#31C4C4}}
                    {{Text|IF|#F0F0F0}} result = {{Text|-1|#F580B1}} {{Text|THEN|#F0F0F0}} result$ = {{Text|" -1 "|#FFB100}}: {{Text|GOTO|#F0F0F0}} finishedcheck
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|FOR|#F0F0F0}} i = {{Text|0|#F580B1}} {{Text|TO|#F0F0F0}} UserDefineCount
                    {{Text|IF|#F0F0F0}} i = {{Text|7|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|_CONTINUE|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} VerifyNumber(r$) {{Text|AND|#F0F0F0}} VerifyNumber(UserDefine({{Text|1|#F580B1}}, i)) {{Text|THEN|#F0F0F0}} {{Text|'we're comparing numeric values|#31C4C4}}
                        {{Text|IF|#F0F0F0}} UserDefine({{Text|0|#F580B1}}, i) = l$ {{Text|AND|#F0F0F0}} {{Text|VAL|#F0F0F0}}(UserDefine({{Text|1|#F580B1}}, i)) < {{Text|VAL|#F0F0F0}}(r$) {{Text|THEN|#F0F0F0}} result$ = {{Text|" -1 "|#FFB100}}: {{Text|GOTO|#F0F0F0}} finishedcheck
                    {{Text|ELSE|#F0F0F0}}
                        {{Text|IF|#F0F0F0}} UserDefine({{Text|0|#F580B1}}, i) = l$ {{Text|AND|#F0F0F0}} UserDefine({{Text|1|#F580B1}}, i) < r$ {{Text|THEN|#F0F0F0}} result$ = {{Text|" -1 "|#FFB100}}: {{Text|GOTO|#F0F0F0}} finishedcheck
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|NEXT|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            finishedcheck:
            temp$ = leftside$ + result$ + rightside$
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|LOOP|#F0F0F0}} {{Text|UNTIL|#F0F0F0}} first = {{Text|0|#F580B1}}
    {{Text|'And at this point we should now be down to a statement with nothing but AND/OR/XORS in it|#31C4C4}}
    PC_Op({{Text|1|#F580B1}}) = {{Text|" AND "|#FFB100}}
    PC_Op({{Text|2|#F580B1}}) = {{Text|" OR "|#FFB100}}
    PC_Op({{Text|3|#F580B1}}) = {{Text|" XOR "|#FFB100}}
    {{Text|DO|#F0F0F0}}
        first = {{Text|0|#F580B1}}
        {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|UBOUND|#F0F0F0}}(PC_Op)
            {{Text|IF|#F0F0F0}} PC_Op(i) <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}}
                t = {{Text|INSTR|#F0F0F0}}(temp$, PC_Op(i))
                {{Text|IF|#F0F0F0}} first <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    {{Text|IF|#F0F0F0}} t < first {{Text|AND|#F0F0F0}} t <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} first = t: firstsymbol = i
                {{Text|ELSE|#F0F0F0}}
                    first = t: firstsymbol = i
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|NEXT|#F0F0F0}}
        {{Text|IF|#F0F0F0}} first = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|DO|#F0F0F0}}
        leftside$ = {{Text|RTRIM$|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(temp$, first - {{Text|1|#F580B1}}))
        symbol$ = {{Text|MID$|#F0F0F0}}(temp$, first, {{Text|LEN|#F0F0F0}}(PC_Op(firstsymbol)))
        t$ = {{Text|MID$|#F0F0F0}}(temp$, first + {{Text|LEN|#F0F0F0}}(PC_Op(firstsymbol)))
        t = {{Text|INSTR|#F0F0F0}}(t$, {{Text|" "|#FFB100}}) {{Text|'the first space we come to|#31C4C4}}
        {{Text|IF|#F0F0F0}} t {{Text|THEN|#F0F0F0}}
            m$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(t$, t - {{Text|1|#F580B1}})))
            rightside$ = {{Text|LTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(t$, t))
        {{Text|ELSE|#F0F0F0}}
            m$ = {{Text|LTRIM$|#F0F0F0}}({{Text|MID$|#F0F0F0}}(t$, t))
            rightside$ = {{Text|""|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        leftresult = {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} VerifyNumber(leftside$) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|VAL|#F0F0F0}}(leftside$) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} leftresult = {{Text|-1|#F580B1}}
        {{Text|ELSE|#F0F0F0}}
            {{Text|FOR|#F0F0F0}} i = {{Text|0|#F580B1}} {{Text|TO|#F0F0F0}} UserDefineCount
                {{Text|IF|#F0F0F0}} UserDefine({{Text|0|#F580B1}}, i) = leftside$ {{Text|THEN|#F0F0F0}}
                    t$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(UserDefine({{Text|1|#F580B1}}, i)))
                    {{Text|IF|#F0F0F0}} t$ <> {{Text|"0"|#FFB100}} {{Text|AND|#F0F0F0}} t$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} leftresult = {{Text|-1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        rightresult = {{Text|0|#F580B1}}
        {{Text|IF|#F0F0F0}} VerifyNumber(m$) {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|VAL|#F0F0F0}}(m$) <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} rightresult = {{Text|-1|#F580B1}}
        {{Text|ELSE|#F0F0F0}}
            {{Text|FOR|#F0F0F0}} i = {{Text|0|#F580B1}} {{Text|TO|#F0F0F0}} UserDefineCount
                {{Text|IF|#F0F0F0}} UserDefine({{Text|0|#F580B1}}, i) = m$ {{Text|THEN|#F0F0F0}}
                    t$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(UserDefine({{Text|1|#F580B1}}, i)))
                    {{Text|IF|#F0F0F0}} t$ <> {{Text|"0"|#FFB100}} {{Text|AND|#F0F0F0}} t$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} rightresult = {{Text|-1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|NEXT|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(symbol$))
            {{Text|CASE|#F0F0F0}} {{Text|"AND"|#FFB100}}
                {{Text|IF|#F0F0F0}} leftresult <> {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} rightresult <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} result$ = {{Text|" -1 "|#FFB100}} {{Text|ELSE|#F0F0F0}} result$ = {{Text|" 0 "|#FFB100}}
            {{Text|CASE|#F0F0F0}} {{Text|"OR"|#FFB100}}
                {{Text|IF|#F0F0F0}} leftresult <> {{Text|0|#F580B1}} {{Text|OR|#F0F0F0}} rightresult <> {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} result$ = {{Text|" -1 "|#FFB100}} {{Text|ELSE|#F0F0F0}} result$ = {{Text|" 0 "|#FFB100}}
            {{Text|CASE|#F0F0F0}} {{Text|"XOR"|#FFB100}}
                {{Text|IF|#F0F0F0}} leftresult <> rightresult {{Text|THEN|#F0F0F0}} result$ = {{Text|" -1 "|#FFB100}} {{Text|ELSE|#F0F0F0}} result$ = {{Text|" 0 "|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
        temp$ = result$ + rightside$
    {{Text|LOOP|#F0F0F0}}
    {{Text|IF|#F0F0F0}} VerifyNumber(temp$) {{Text|THEN|#F0F0F0}}
        EvalPreIF = {{Text|VAL|#F0F0F0}}(temp$)
    {{Text|ELSE|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(temp$, {{Text|" "|#FFB100}}) {{Text|THEN|#F0F0F0}} err$ = {{Text|"Invalid Resolution of $IF; check statements"|#FFB100}} {{Text|'If we've got more than 1 statement, it's invalid|#31C4C4}}
        {{Text|FOR|#F0F0F0}} i = {{Text|0|#F580B1}} {{Text|TO|#F0F0F0}} UserDefineCount
            {{Text|IF|#F0F0F0}} UserDefine({{Text|0|#F580B1}}, i) = temp$ {{Text|THEN|#F0F0F0}}
                t$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(UserDefine({{Text|1|#F580B1}}, i)))
                {{Text|IF|#F0F0F0}} t$ <> {{Text|"0"|#FFB100}} {{Text|AND|#F0F0F0}} t$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} EvalPreIF = {{Text|-1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|NEXT|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} VerifyNumber (text$)
    t$ = {{Text|LTRIM$|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(text$))
    v = {{Text|VAL|#F0F0F0}}(t$)
    t1$ = {{Text|LTRIM$|#F0F0F0}}({{Text|STR$|#F0F0F0}}(v))
    {{Text|IF|#F0F0F0}} t$ = t1$ {{Text|THEN|#F0F0F0}} VerifyNumber = {{Text|-1|#F580B1}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|SUB|#F0F0F0}} initialise_udt_varstrings (n$, udt, buf, base_offset)
    {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} udtxvariable(udt) {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    element = udtxnext(udt)
    offset = {{Text|0|#F580B1}}
    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} element
        {{Text|IF|#F0F0F0}} udtetype(element) {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (udtetype(element) {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                WriteBufLine buf, {{Text|"*(qbs**)(((char*)"|#FFB100}} + n$ + {{Text|")+"|#FFB100}} + {{Text|STR$|#F0F0F0}}(base_offset + offset) + {{Text|") = qbs_new(0,0);"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|ELSEIF|#F0F0F0}} udtetype(element) {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
            initialise_udt_varstrings n$, udtetype(element) {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}, buf, offset
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        offset = offset + udtesize(element) \ {{Text|8|#F580B1}}
        element = udtenext(element)
    {{Text|LOOP|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} free_udt_varstrings (n$, udt, buf, base_offset)
    {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} udtxvariable(udt) {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    element = udtxnext(udt)
    offset = {{Text|0|#F580B1}}
    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} element
        {{Text|IF|#F0F0F0}} udtetype(element) {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (udtetype(element) {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                WriteBufLine buf, {{Text|"qbs_free(*((qbs**)(((char*)"|#FFB100}} + n$ + {{Text|")+"|#FFB100}} + {{Text|STR$|#F0F0F0}}(base_offset + offset) + {{Text|")));"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|ELSEIF|#F0F0F0}} udtetype(element) {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
            initialise_udt_varstrings n$, udtetype(element) {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}, buf, offset
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        offset = offset + udtesize(element) \ {{Text|8|#F580B1}}
        element = udtenext(element)
    {{Text|LOOP|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} clear_udt_with_varstrings (n$, udt, buf, base_offset)
    {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} udtxvariable(udt) {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    element = udtxnext(udt)
    offset = {{Text|0|#F580B1}}
    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} element
        {{Text|IF|#F0F0F0}} udtetype(element) {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (udtetype(element) {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                WriteBufLine buf, {{Text|"(*(qbs**)(((char*)"|#FFB100}} + n$ + {{Text|")+"|#FFB100}} + {{Text|STR$|#F0F0F0}}(base_offset + offset) + {{Text|"))->len=0;"|#FFB100}}
            {{Text|ELSE|#F0F0F0}}
                WriteBufLine buf, {{Text|"memset((char*)"|#FFB100}} + n$ + {{Text|"+"|#FFB100}} + {{Text|STR$|#F0F0F0}}(base_offset + offset) + {{Text|",0,"|#FFB100}} + {{Text|STR$|#F0F0F0}}(udtesize(element) \ {{Text|8|#F580B1}}) + {{Text|");"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|ELSE|#F0F0F0}}
            {{Text|IF|#F0F0F0}} udtetype(element) {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
                clear_udt_with_varstrings n$, udtetype(element) {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}, buf, base_offset + offset
            {{Text|ELSE|#F0F0F0}}
                WriteBufLine buf, {{Text|"memset((char*)"|#FFB100}} + n$ + {{Text|"+"|#FFB100}} + {{Text|STR$|#F0F0F0}}(base_offset + offset) + {{Text|",0,"|#FFB100}} + {{Text|STR$|#F0F0F0}}(udtesize(element) \ {{Text|8|#F580B1}}) + {{Text|");"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        offset = offset + udtesize(element) \ {{Text|8|#F580B1}}
        element = udtenext(element)
    {{Text|LOOP|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} initialise_array_udt_varstrings (n$, udt, base_offset, bytesperelement$, acc$)
    {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} udtxvariable(udt) {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    offset = base_offset
    element = udtxnext(udt)
    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} element
        {{Text|IF|#F0F0F0}} udtetype(element) {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (udtetype(element) {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                acc$ = acc$ + {{Text|CHR$|#F0F0F0}}({{Text|13|#F580B1}}) + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}}) + {{Text|"*(qbs**)("|#FFB100}} + n$ + {{Text|"[0]+("|#FFB100}} + bytesperelement$ + {{Text|"-1)*tmp_long+"|#FFB100}} + {{Text|STR$|#F0F0F0}}(offset) + {{Text|")=qbs_new(0,0);"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|ELSEIF|#F0F0F0}} udtetype(element) {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
            initialise_array_udt_varstrings n$, udtetype(element) {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}, offset, bytesperelement$, acc$
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        offset = offset + udtesize(element) \ {{Text|8|#F580B1}}
        element = udtenext(element)
    {{Text|LOOP|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} free_array_udt_varstrings (n$, udt, base_offset, bytesperelement$, acc$)
    {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} udtxvariable(udt) {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    offset = base_offset
    element = udtxnext(udt)
    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} element
        {{Text|IF|#F0F0F0}} udtetype(element) {{Text|AND|#F0F0F0}} ISSTRING {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} (udtetype(element) {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                acc$ = acc$ + {{Text|CHR$|#F0F0F0}}({{Text|13|#F580B1}}) + {{Text|CHR$|#F0F0F0}}({{Text|10|#F580B1}}) + {{Text|"qbs_free(*(qbs**)("|#FFB100}} + n$ + {{Text|"[0]+("|#FFB100}} + bytesperelement$ + {{Text|"-1)*tmp_long+"|#FFB100}} + {{Text|STR$|#F0F0F0}}(offset) + {{Text|"));"|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|ELSEIF|#F0F0F0}} udtetype(element) {{Text|AND|#F0F0F0}} ISUDT {{Text|THEN|#F0F0F0}}
            free_array_udt_varstrings n$, udtetype(element) {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}, offset, bytesperelement$, acc$
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        offset = offset + udtesize(element) \ {{Text|8|#F580B1}}
        element = udtenext(element)
    {{Text|LOOP|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} copy_full_udt (dst$, src$, buf, base_offset, udt)
    {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} udtxvariable(udt) {{Text|THEN|#F0F0F0}}
        WriteBufLine buf, {{Text|"memcpy("|#FFB100}} + dst$ + {{Text|"+"|#FFB100}} + {{Text|STR$|#F0F0F0}}(base_offset) + {{Text|","|#FFB100}} + src$ + {{Text|"+"|#FFB100}} + {{Text|STR$|#F0F0F0}}(base_offset) + {{Text|","|#FFB100}} + {{Text|STR$|#F0F0F0}}(udtxsize(udt) \ {{Text|8|#F580B1}}) + {{Text|");"|#FFB100}}
        {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    offset = base_offset
    element = udtxnext(udt)
    {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} element
        {{Text|IF|#F0F0F0}} ((udtetype(element) {{Text|AND|#F0F0F0}} ISSTRING) > {{Text|0|#F580B1}}) {{Text|AND|#F0F0F0}} (udtetype(element) {{Text|AND|#F0F0F0}} ISFIXEDLENGTH) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            WriteBufLine buf, {{Text|"qbs_set(*(qbs**)("|#FFB100}} + dst$ + {{Text|"+"|#FFB100}} + {{Text|STR$|#F0F0F0}}(offset) + {{Text|"), *(qbs**)("|#FFB100}} + src$ + {{Text|"+"|#FFB100}} + {{Text|STR$|#F0F0F0}}(offset) + {{Text|"));"|#FFB100}}
        {{Text|ELSEIF|#F0F0F0}} ((udtetype(element) {{Text|AND|#F0F0F0}} ISUDT) > {{Text|0|#F580B1}}) {{Text|THEN|#F0F0F0}}
            copy_full_udt dst$, src$, MainTxtBuf, offset, udtetype(element) {{Text|AND|#F0F0F0}} {{Text|511|#F580B1}}
        {{Text|ELSE|#F0F0F0}}
            WriteBufLine buf, {{Text|"memcpy(("|#FFB100}} + dst$ + {{Text|"+"|#FFB100}} + {{Text|STR$|#F0F0F0}}(offset) + {{Text|"),("|#FFB100}} + src$ + {{Text|"+"|#FFB100}} + {{Text|STR$|#F0F0F0}}(offset) + {{Text|"),"|#FFB100}} + {{Text|STR$|#F0F0F0}}(udtesize(element) \ {{Text|8|#F580B1}}) + {{Text|");"|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        offset = offset + udtesize(element) \ {{Text|8|#F580B1}}
        element = udtenext(element)
    {{Text|LOOP|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} dump_udts
    fh = {{Text|FREEFILE|#F0F0F0}}
    {{Text|OPEN|#F0F0F0}} {{Text|"types.txt"|#FFB100}} {{Text|FOR|#F0F0F0}} {{Text|OUTPUT|#F0F0F0}} {{Text|AS|#F0F0F0}} #fh
    {{Text|PRINT|#F0F0F0}} #fh, {{Text|"Name  Size  Align? Next  Var?"|#FFB100}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} lasttype
        {{Text|PRINT|#F0F0F0}} #fh, {{Text|RTRIM$|#F0F0F0}}(udtxname(i)), udtxsize(i), udtxbytealign(i), udtxnext(i), udtxvariable(i)
    {{Text|NEXT|#F0F0F0}} i
    {{Text|PRINT|#F0F0F0}} #fh, {{Text|"Name  Size  Align? Next  Type  Tsize  Arr"|#FFB100}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} lasttypeelement
        {{Text|PRINT|#F0F0F0}} #fh, {{Text|RTRIM$|#F0F0F0}}(udtename(i)), udtesize(i), udtebytealign(i), udtenext(i), udtetype(i), udtetypesize(i), udtearrayelements(i)
    {{Text|NEXT|#F0F0F0}} i
    {{Text|CLOSE|#F0F0F0}} #fh
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} manageVariableList (__name$, __cname$, localIndex {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, action {{Text|AS|#F0F0F0}} {{Text|_BYTE|#F0F0F0}})
    {{Text|DIM|#F0F0F0}} findItem {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, cname$, i {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, j {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, name$, temp$
    name$ = {{Text|RTRIM$|#F0F0F0}}(__name$)
    cname$ = {{Text|RTRIM$|#F0F0F0}}(__cname$)
    {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(cname$) = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    findItem = {{Text|INSTR|#F0F0F0}}(cname$, {{Text|"["|#FFB100}})
    {{Text|IF|#F0F0F0}} findItem {{Text|THEN|#F0F0F0}}
        cname$ = {{Text|LEFT$|#F0F0F0}}(cname$, findItem - {{Text|1|#F580B1}})
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    found = {{Text|0|#F580B1}}
    {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} totalVariablesCreated
        {{Text|IF|#F0F0F0}} usedVariableList(i).cname = cname$ {{Text|THEN|#F0F0F0}} found = {{Text|-1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FOR|#F0F0F0}}
    {{Text|NEXT|#F0F0F0}}
    {{Text|SELECT|#F0F0F0}} {{Text|CASE|#F0F0F0}} action
        {{Text|CASE|#F0F0F0}} {{Text|0|#F580B1}} {{Text|'add|#31C4C4}}
            {{Text|IF|#F0F0F0}} found = {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} i > {{Text|UBOUND|#F0F0F0}}(usedVariableList) {{Text|THEN|#F0F0F0}}
                    {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} usedVariableList({{Text|UBOUND|#F0F0F0}}(usedVariableList) + {{Text|999|#F580B1}}) {{Text|AS|#F0F0F0}} usedVarList
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                usedVariableList(i).id = currentid
                usedVariableList(i).used = {{Text|0|#F580B1}}
                usedVariableList(i).watch = {{Text|0|#F580B1}}
                usedVariableList(i).displayFormat = {{Text|0|#F580B1}}
                usedVariableList(i).storage = {{Text|""|#FFB100}}
                usedVariableList(i).linenumber = linenumber
                usedVariableList(i).includeLevel = inclevel
                {{Text|IF|#F0F0F0}} inclevel > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    usedVariableList(i).includedLine = inclinenumber(inclevel)
                    thisincname$ = getfilepath$(incname$(inclevel))
                    thisincname$ = {{Text|MID$|#F0F0F0}}(incname$(inclevel), {{Text|LEN|#F0F0F0}}(thisincname$) + {{Text|1|#F580B1}})
                    usedVariableList(i).includedFile = thisincname$
                {{Text|ELSE|#F0F0F0}}
                    totalMainVariablesCreated = totalMainVariablesCreated + {{Text|1|#F580B1}}
                    usedVariableList(i).includedLine = {{Text|0|#F580B1}}
                    usedVariableList(i).includedFile = {{Text|""|#FFB100}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                usedVariableList(i).scope = subfuncn
                usedVariableList(i).subfunc = subfunc
                usedVariableList(i).varType = id2fulltypename$
                usedVariableList(i).cname = cname$
                usedVariableList(i).localIndex = localIndex
                {{Text|'remove eventual instances of fix046$ in name$|#31C4C4}}
                {{Text|DO|#F0F0F0}} {{Text|WHILE|#F0F0F0}} {{Text|INSTR|#F0F0F0}}(name$, fix046$)
                    x = {{Text|INSTR|#F0F0F0}}(name$, fix046$): name$ = {{Text|LEFT$|#F0F0F0}}(name$, x - {{Text|1|#F580B1}}) + {{Text|"."|#FFB100}} + {{Text|RIGHT$|#F0F0F0}}(name$, {{Text|LEN|#F0F0F0}}(name$) - x + {{Text|1|#F580B1}} - {{Text|LEN|#F0F0F0}}(fix046$))
                {{Text|LOOP|#F0F0F0}}
                {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(id.musthave)) > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    usedVariableList(i).name = name$ + {{Text|RTRIM$|#F0F0F0}}(id.musthave)
                {{Text|ELSEIF|#F0F0F0}} {{Text|LEN|#F0F0F0}}({{Text|RTRIM$|#F0F0F0}}(id.mayhave)) > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                    usedVariableList(i).name = name$ + {{Text|RTRIM$|#F0F0F0}}(id.mayhave)
                {{Text|ELSE|#F0F0F0}}
                    usedVariableList(i).name = name$
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|IF|#F0F0F0}} (id.arrayelements > {{Text|0|#F580B1}}) {{Text|THEN|#F0F0F0}}
                    usedVariableList(i).isarray = {{Text|-1|#F580B1}}
                    usedVariableList(i).name = usedVariableList(i).name + {{Text|"()"|#FFB100}}
                {{Text|ELSE|#F0F0F0}}
                    usedVariableList(i).isarray = {{Text|0|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                usedVariableList(i).watchRange = {{Text|""|#FFB100}}
                usedVariableList(i).arrayElementSize = {{Text|0|#F580B1}}
                usedVariableList(i).indexes = {{Text|""|#FFB100}}
                usedVariableList(i).elements = {{Text|""|#FFB100}}
                usedVariableList(i).elementTypes = {{Text|""|#FFB100}}
                usedVariableList(i).elementOffset = {{Text|""|#FFB100}}
                totalVariablesCreated = totalVariablesCreated + {{Text|1|#F580B1}}
                temp$ = {{Text|MKL$|#F0F0F0}}({{Text|-1|#F580B1}}) + {{Text|MKL$|#F0F0F0}}({{Text|LEN|#F0F0F0}}(cname$)) + cname$
                found = {{Text|INSTR|#F0F0F0}}(backupVariableWatchList$, temp$)
                {{Text|IF|#F0F0F0}} found {{Text|THEN|#F0F0F0}}
                    {{Text|'this variable existed in a previous edit of this program|#31C4C4}}
                    {{Text|'in this same session; let's preselect it.|#31C4C4}}
                    j = {{Text|CVL|#F0F0F0}}({{Text|MID$|#F0F0F0}}(backupVariableWatchList$, found + {{Text|LEN|#F0F0F0}}(temp$), {{Text|4|#F580B1}}))
                    {{Text|'if there have been changes in TYPEs, this variable won't be preselected|#31C4C4}}
                    {{Text|IF|#F0F0F0}} ({{Text|LEN|#F0F0F0}}(backupUsedVariableList(j).elements) > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} backupTypeDefinitions$ = typeDefinitions$) {{Text|OR|#F0F0F0}} _
                        ({{Text|LEN|#F0F0F0}}(backupUsedVariableList(j).elements) = {{Text|0|#F580B1}}) {{Text|THEN|#F0F0F0}}
                        usedVariableList(i).watch = backupUsedVariableList(j).watch
                        usedVariableList(i).watchRange = backupUsedVariableList(j).watchRange
                        usedVariableList(i).indexes = backupUsedVariableList(j).indexes
                        usedVariableList(i).displayFormat = backupUsedVariableList(j).displayFormat
                        usedVariableList(i).elements = backupUsedVariableList(j).elements
                        usedVariableList(i).elementTypes = backupUsedVariableList(j).elementTypes
                        usedVariableList(i).elementOffset = backupUsedVariableList(j).elementOffset
                    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|CASE|#F0F0F0}} {{Text|ELSE|#F0F0F0}} {{Text|'find and mark as used|#31C4C4}}
            {{Text|IF|#F0F0F0}} found {{Text|THEN|#F0F0F0}}
                usedVariableList(i).used = {{Text|-1|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|SELECT|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|SUB|#F0F0F0}} addWarning (whichLineNumber {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, includeLevel {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, incLineNumber {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}, incFileName$, header$, text$)
    warningsissued = {{Text|-1|#F580B1}}
    totalWarnings = totalWarnings + {{Text|1|#F580B1}}
    {{Text|IF|#F0F0F0}} idemode = {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} ShowWarnings {{Text|THEN|#F0F0F0}}
        thissource$ = getfilepath$(CMDLineFile)
        thissource$ = {{Text|MID$|#F0F0F0}}(CMDLineFile, {{Text|LEN|#F0F0F0}}(thissource$) + {{Text|1|#F580B1}})
        thisincname$ = getfilepath$(incFileName$)
        thisincname$ = {{Text|MID$|#F0F0F0}}(incFileName$, {{Text|LEN|#F0F0F0}}(thisincname$) + {{Text|1|#F580B1}})
        {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} MonochromeLoggingMode {{Text|THEN|#F0F0F0}} {{Text|COLOR|#F0F0F0}} {{Text|15|#F580B1}}
        {{Text|IF|#F0F0F0}} includeLevel > {{Text|0|#F580B1}} {{Text|AND|#F0F0F0}} incLineNumber > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|PRINT|#F0F0F0}} thisincname$; {{Text|":"|#FFB100}};
            {{Text|PRINT|#F0F0F0}} str2$(incLineNumber); {{Text|": "|#FFB100}};
        {{Text|ELSE|#F0F0F0}}
            {{Text|PRINT|#F0F0F0}} thissource$; {{Text|":"|#FFB100}};
            {{Text|PRINT|#F0F0F0}} str2$(whichLineNumber); {{Text|": "|#FFB100}};
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} MonochromeLoggingMode {{Text|THEN|#F0F0F0}} {{Text|COLOR|#F0F0F0}} {{Text|13|#F580B1}}
        {{Text|PRINT|#F0F0F0}} {{Text|"warning: "|#FFB100}};
        {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} MonochromeLoggingMode {{Text|THEN|#F0F0F0}} {{Text|COLOR|#F0F0F0}} {{Text|7|#F580B1}}
        {{Text|PRINT|#F0F0F0}} header$
        {{Text|IF|#F0F0F0}} {{Text|LEN|#F0F0F0}}(text$) > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} MonochromeLoggingMode {{Text|THEN|#F0F0F0}} {{Text|COLOR|#F0F0F0}} {{Text|2|#F580B1}}
            {{Text|PRINT|#F0F0F0}} {{Text|SPACE$|#F0F0F0}}({{Text|4|#F580B1}}); text$
            {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} MonochromeLoggingMode {{Text|THEN|#F0F0F0}} {{Text|COLOR|#F0F0F0}} {{Text|7|#F580B1}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|ELSEIF|#F0F0F0}} idemode {{Text|THEN|#F0F0F0}}
        {{Text|IF|#F0F0F0}} {{Text|NOT|#F0F0F0}} IgnoreWarnings {{Text|THEN|#F0F0F0}}
            {{Text|IF|#F0F0F0}} whichLineNumber > maxLineNumber {{Text|THEN|#F0F0F0}} maxLineNumber = whichLineNumber
            {{Text|IF|#F0F0F0}} lastWarningHeader <> header$ {{Text|THEN|#F0F0F0}}
                lastWarningHeader = header$
                {{Text|GOSUB|#F0F0F0}} increaseWarningCount
                warning$(warningListItems) = header$
                warningLines(warningListItems) = {{Text|0|#F580B1}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|GOSUB|#F0F0F0}} increaseWarningCount
            warning$(warningListItems) = text$
            warningLines(warningListItems) = whichLineNumber
            {{Text|IF|#F0F0F0}} includeLevel > {{Text|0|#F580B1}} {{Text|THEN|#F0F0F0}}
                thisincname$ = getfilepath$(incFileName$)
                thisincname$ = {{Text|MID$|#F0F0F0}}(incFileName$, {{Text|LEN|#F0F0F0}}(thisincname$) + {{Text|1|#F580B1}})
                warningIncLines(warningListItems) = incLineNumber
                warningIncFiles(warningListItems) = thisincname$
            {{Text|ELSE|#F0F0F0}}
                warningIncLines(warningListItems) = {{Text|0|#F580B1}}
                warningIncFiles(warningListItems) = {{Text|""|#FFB100}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|EXIT|#F0F0F0}} {{Text|SUB|#F0F0F0}}
    increaseWarningCount:
    warningListItems = warningListItems + {{Text|1|#F580B1}}
    {{Text|IF|#F0F0F0}} warningListItems > {{Text|UBOUND|#F0F0F0}}(warning$) {{Text|THEN|#F0F0F0}}
        {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} warning$(warningListItems + {{Text|999|#F580B1}})
        {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} warningLines(warningListItems + {{Text|999|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
        {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} warningIncLines(warningListItems + {{Text|999|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
        {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} warningIncFiles(warningListItems + {{Text|999|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}}
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
    {{Text|RETURN|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} SCase$ (t$)
    {{Text|IF|#F0F0F0}} ideautolayoutkwcapitals {{Text|THEN|#F0F0F0}} SCase$ = {{Text|UCASE$|#F0F0F0}}(t$) {{Text|ELSE|#F0F0F0}} SCase$ = t$
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} SCase2$ (t$)
    separator$ = sp
    {{Text|IF|#F0F0F0}} ideautolayoutkwcapitals {{Text|THEN|#F0F0F0}}
        SCase2$ = {{Text|UCASE$|#F0F0F0}}(t$)
    {{Text|ELSE|#F0F0F0}}
        newWord = {{Text|-1|#F580B1}}
        temp$ = {{Text|""|#FFB100}}
        {{Text|FOR|#F0F0F0}} i = {{Text|1|#F580B1}} {{Text|TO|#F0F0F0}} {{Text|LEN|#F0F0F0}}(t$)
            s$ = {{Text|MID$|#F0F0F0}}(t$, i, {{Text|1|#F580B1}})
            {{Text|IF|#F0F0F0}} newWord {{Text|THEN|#F0F0F0}}
                {{Text|IF|#F0F0F0}} s$ = {{Text|"_"|#FFB100}} {{Text|OR|#F0F0F0}} s$ = separator$ {{Text|THEN|#F0F0F0}}
                    temp$ = temp$ + s$
                {{Text|ELSE|#F0F0F0}}
                    temp$ = temp$ + {{Text|UCASE$|#F0F0F0}}(s$)
                    newWord = {{Text|0|#F580B1}}
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|ELSE|#F0F0F0}}
                {{Text|IF|#F0F0F0}} s$ = separator$ {{Text|THEN|#F0F0F0}}
                    temp$ = temp$ + separator$
                    newWord = {{Text|-1|#F580B1}}
                {{Text|ELSE|#F0F0F0}}
                    temp$ = temp$ + {{Text|LCASE$|#F0F0F0}}(s$)
                {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
            {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|NEXT|#F0F0F0}}
        SCase2$ = temp$
    {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|SUB|#F0F0F0}} increaseUDTArrays
    x = {{Text|UBOUND|#F0F0F0}}(udtxname)
    {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} udtxname(x + {{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|256|#F580B1}}
    {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} udtxcname(x + {{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|256|#F580B1}}
    {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} udtxsize(x + {{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} udtxbytealign(x + {{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}} {{Text|'first element MUST be on a byte alignment & size is a multiple of 8|#31C4C4}}
    {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} udtxnext(x + {{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} udtxvariable(x + {{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}} {{Text|'true if the udt contains variable length elements|#31C4C4}}
    {{Text|'elements|#31C4C4}}
    {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} udtename(x + {{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|256|#F580B1}}
    {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} udtecname(x + {{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|STRING|#F0F0F0}} * {{Text|256|#F580B1}}
    {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} udtebytealign(x + {{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|INTEGER|#F0F0F0}}
    {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} udtesize(x + {{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} udtetype(x + {{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} udtetypesize(x + {{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} udtearrayelements(x + {{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
    {{Text|REDIM|#F0F0F0}} {{Text|_PRESERVE|#F0F0F0}} udtenext(x + {{Text|1000|#F580B1}}) {{Text|AS|#F0F0F0}} {{Text|LONG|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|SUB|#F0F0F0}}
{{Text|FUNCTION|#F0F0F0}} CompareVersions (v$, v1$)
    t$ = v$: t1$ = v1$ {{Text|'temp strings so we don't change the passed values|#31C4C4}}
    {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(t$, {{Text|8|#F580B1}}) = {{Text|"-UNKNOWN"|#FFB100}} {{Text|THEN|#F0F0F0}} t$ = {{Text|LEFT$|#F0F0F0}}(t$, {{Text|LEN|#F0F0F0}}(t$) - {{Text|8|#F580B1}})
    {{Text|IF|#F0F0F0}} {{Text|RIGHT$|#F0F0F0}}(t1$, {{Text|8|#F580B1}}) = {{Text|"-UNKNOWN"|#FFB100}} {{Text|THEN|#F0F0F0}} t1$ = {{Text|LEFT$|#F0F0F0}}(t1$, {{Text|LEN|#F0F0F0}}(t1$) - {{Text|8|#F580B1}})
    {{Text|DO|#F0F0F0}}
        l = {{Text|INSTR|#F0F0F0}}(t$, {{Text|"."|#FFB100}}): l1 = {{Text|INSTR|#F0F0F0}}(t1$, {{Text|"."|#FFB100}})
        {{Text|IF|#F0F0F0}} l {{Text|THEN|#F0F0F0}} {{Text|'                      the first value has a period still|#31C4C4}}
            v& = {{Text|VAL|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(t$, l - {{Text|1|#F580B1}})) {{Text|'  take what's to the left of that period for our value|#31C4C4}}
            t$ = {{Text|MID$|#F0F0F0}}(t$, l + {{Text|1|#F580B1}}) {{Text|'        strip that period and everything to the left off for the next pass|#31C4C4}}
        {{Text|ELSE|#F0F0F0}}
            v& = {{Text|VAL|#F0F0F0}}(t$) {{Text|'                no period?  Then this is our final pass|#31C4C4}}
            t$ = {{Text|""|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} l1 {{Text|THEN|#F0F0F0}}
            v1& = {{Text|VAL|#F0F0F0}}({{Text|LEFT$|#F0F0F0}}(t1$, l1 - {{Text|1|#F580B1}}))
            t1$ = {{Text|MID$|#F0F0F0}}(t1$, l1 + {{Text|1|#F580B1}})
        {{Text|ELSE|#F0F0F0}}
            v1& = {{Text|VAL|#F0F0F0}}(t1$)
            t1$ = {{Text|""|#FFB100}}
        {{Text|END|#F0F0F0}} {{Text|IF|#F0F0F0}}
        {{Text|IF|#F0F0F0}} v& < v1& {{Text|THEN|#F0F0F0}} CompareVersions = {{Text|-1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} v& > v1& {{Text|THEN|#F0F0F0}} CompareVersions = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} t$ = {{Text|""|#FFB100}} {{Text|AND|#F0F0F0}} t1$ = {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}} {{Text|'return value 0 -- they're equal|#31C4C4}}
        {{Text|IF|#F0F0F0}} t$ = {{Text|""|#FFB100}} {{Text|AND|#F0F0F0}} t1$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} CompareVersions = {{Text|-1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
        {{Text|IF|#F0F0F0}} t1$ = {{Text|""|#FFB100}} {{Text|AND|#F0F0F0}} t$ <> {{Text|""|#FFB100}} {{Text|THEN|#F0F0F0}} CompareVersions = {{Text|1|#F580B1}}: {{Text|EXIT|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
    {{Text|LOOP|#F0F0F0}}
{{Text|END|#F0F0F0}} {{Text|FUNCTION|#F0F0F0}}
{{Text|'|#31C4C4}}{{Text|$INCLUDE:|#55FF55}}{{Text|'utilities\strings.bas'|#31C4C4}}
{{Text|'|#31C4C4}}{{Text|$INCLUDE:|#55FF55}}{{Text|'utilities\file.bas'|#31C4C4}}
{{Text|'|#31C4C4}}{{Text|$INCLUDE:|#55FF55}}{{Text|'utilities\build.bas'|#31C4C4}}
{{Text|'|#31C4C4}}{{Text|$INCLUDE:|#55FF55}}{{Text|'utilities\elements.bas'|#31C4C4}}
{{Text|'|#31C4C4}}{{Text|$INCLUDE:|#55FF55}}{{Text|'subs_functions\extensions\opengl\opengl_methods.bas'|#31C4C4}}
{{Text|'|#31C4C4}}{{Text|$INCLUDE:|#55FF55}}{{Text|'utilities\ini-manager\ini.bm'|#31C4C4}}
{{Text|'|#31C4C4}}{{Text|$INCLUDE:|#55FF55}}{{Text|'utilities\s-buffer\simplebuffer.bm'|#31C4C4}}
{{Text|DEFLNG|#F0F0F0}} A-Z
{{Text|'-------- Optional IDE Component (2/2) --------|#31C4C4}}
{{Text|'|#31C4C4}}{{Text|$INCLUDE:|#55FF55}}{{Text|'ide\ide_methods.bas'|#31C4C4}}
{{CodeEnd}}

Latest revision as of 00:11, 24 August 2024

The _BlankPage serves as a skeleton for new Wiki pages.


Syntax

_BlankSub arg1[, arg2]
result% = _BlankFunc(arg1[, arg2])


Parameters

  • arg1 is a mandatory argument
  • the arg2 is optional


Description

To use this skeleton click on the Edit tab above the page, then copy the raw text of this page and paste it into your new page. Change/remove sections as needed. Use this for italic and this for bold text style. To color your writings use the Text template. It takes either a color name or a #RRGGBB 32bit color, if the color part is omitted it will default to gray.

You can inline simple code one liners like w = _WIDTH

  • an askerisk marks a list point
    • two askerisks will indent the list
      • three askerisks will indent even more
This is a definition list
The first description can follow right after a colon
or in a new line
more descriptions can follow
  • using list bullets with an askerisk
as already seen in the syntax above, you may use desciptions without a defininition too
you may also nest descriptions
but at some point it's cluttering the page so please use it sparingly
This is a nice piece of paper for quotes and similar things. In case of short code snippets you may use the "Cb" (code blue) template to highlight and link keywords to the Wiki pages.

FOR x = 1 TO 5
   PRINT "Hello World!"
NEXT x
END

As you see, this Text block is suitable for preformatted text, but note that the browser is still allowed to wrap too long lines. If you really need your preformatted text to be shown as is, then use a fixed text block instaed, see below.
Use this fixed text block for preformatted text, which is not even allowed to wrap long lines, such as tables etc..
As you see this very long line goes far over the display width, so please limit youself to the available space to not clutter the display too much.

Notes

  • This may be a sub-section for further notes like special behavior, required prerequisites etc.
  • If used/required, then this should always be a sub-section under the Description main section

Errors

  • If used/required, then this also should be a sub-section under the Description main section
  • This is not intended for the regular errors a SUB/FUNCTION could throw, those should be handled in the main description section.
    • Rather use it for subtle things, known mis-behavior, tendency for stack overflows and seg faults etc.


Availability

  • The capability to load from memory was introduced in QB64-PE v3.5.0.


Examples

Example 1
Each example should have a short description.
'Place your code example here
'The "Cl" (code link) template can be used to link keywords to its
'respective Wiki page. Those words will also get highlighted.
COLOR 15,4
PRINT "Hello World!"
This template allows for a short author credit.
Note: To avoid the annoying task of manually inserting the templates
in your code examples, since v3.7.0 you may simply write your example
in the IDE and later use the menu "File > Export As > Wiki example" to
export a completely prepared code block, which you can paste "as is"
into the Wiki page.

Oh, and by the way, this preformatted text block is also new. Generally
it's the same as a fixed text block shown above, but it uses horizontal
scrollers instead of stretching the text box and it has a more plain
appearance. If you want avoid the horizontal scroller, then restrict
yourself to a line length of max. 72 characters.
The output block is available for the SCREEN 0 background colors 0-7
Inside the output block use the "Ot" (output text) template for coloring
Hello World!


See also



Navigation:
Main Page with Articles and Tutorials
Keyword Reference - Alphabetical
Keyword Reference - By usage
Report a broken link