mirror of
https://github.com/QB64Official/qb64.git
synced 2024-08-22 11:25:08 +00:00
Window's CONSOLE support has been extended so that: CSRLIN support added. POS(0) support added. LOCATE support added. (Works with optional parameters.) COLOR support added. SCREEN support added to get both character and color information of any point on the console. tab() glitch fixed. (Which could cause an endless loop when printing with comma spaced text/numbers.) _WIDTH support added. _HEIGHT support added. WIDTH support added, with 2 new parameters added so we can set the buffer width and buffer height also. CLS support semi-added. (Doesn't accept colored backgrounds; it clears the screen black. I'm getting tired of working up console stuff which I probably won't ever use myself...) SLEEP support added. END support added so we now end with any keypress and not just enter. _CONSOLEINPUT added, so we can tell the difference in mouse and keyboard input. _CINP(toggle) support added, which allows us to get single character keystrokes from the console. _CONSOLEFONT FontName, FontSize support added, which allows us to change the font and font size we use for the console. _CONSOLECURSOR _SHOW|_HIDE, cursorsize support added, which allows us to show or hide the cursor in the console, and to change its size (from 0 to 100), as desired. New keyboard commands added: _CAPSLOCK -- returns 1 if caps lock is on, 0 if it isn't. _NUMLOCK -- as above, but for num lock _SCROLLOCK -- as above, but for scroll lock _TOGGLE_CAPSLOCK -- toggles the caps lock state for us. _TOGGLE_NUMLOCK -- same, but for num lock _TOGGLE_SCROLLOCK -- same, but for scroll lock
257 lines
11 KiB
Text
257 lines
11 KiB
Text
int32 *_FUNC_DIM2_LONG_DIM2=NULL;
|
|
if(_FUNC_DIM2_LONG_DIM2==NULL){
|
|
_FUNC_DIM2_LONG_DIM2=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_DIM2=0;
|
|
}
|
|
qbs*oldstr2165=NULL;
|
|
if(_FUNC_DIM2_STRING_VARNAME->tmp||_FUNC_DIM2_STRING_VARNAME->fixed||_FUNC_DIM2_STRING_VARNAME->readonly){
|
|
oldstr2165=_FUNC_DIM2_STRING_VARNAME;
|
|
if (oldstr2165->cmem_descriptor){
|
|
_FUNC_DIM2_STRING_VARNAME=qbs_new_cmem(oldstr2165->len,0);
|
|
}else{
|
|
_FUNC_DIM2_STRING_VARNAME=qbs_new(oldstr2165->len,0);
|
|
}
|
|
memcpy(_FUNC_DIM2_STRING_VARNAME->chr,oldstr2165->chr,oldstr2165->len);
|
|
}
|
|
qbs*oldstr2166=NULL;
|
|
if(_FUNC_DIM2_STRING_TYP2->tmp||_FUNC_DIM2_STRING_TYP2->fixed||_FUNC_DIM2_STRING_TYP2->readonly){
|
|
oldstr2166=_FUNC_DIM2_STRING_TYP2;
|
|
if (oldstr2166->cmem_descriptor){
|
|
_FUNC_DIM2_STRING_TYP2=qbs_new_cmem(oldstr2166->len,0);
|
|
}else{
|
|
_FUNC_DIM2_STRING_TYP2=qbs_new(oldstr2166->len,0);
|
|
}
|
|
memcpy(_FUNC_DIM2_STRING_TYP2->chr,oldstr2166->chr,oldstr2166->len);
|
|
}
|
|
qbs*oldstr2167=NULL;
|
|
if(_FUNC_DIM2_STRING_ELEMENTS->tmp||_FUNC_DIM2_STRING_ELEMENTS->fixed||_FUNC_DIM2_STRING_ELEMENTS->readonly){
|
|
oldstr2167=_FUNC_DIM2_STRING_ELEMENTS;
|
|
if (oldstr2167->cmem_descriptor){
|
|
_FUNC_DIM2_STRING_ELEMENTS=qbs_new_cmem(oldstr2167->len,0);
|
|
}else{
|
|
_FUNC_DIM2_STRING_ELEMENTS=qbs_new(oldstr2167->len,0);
|
|
}
|
|
memcpy(_FUNC_DIM2_STRING_ELEMENTS->chr,oldstr2167->chr,oldstr2167->len);
|
|
}
|
|
qbs *_FUNC_DIM2_STRING_TYP=NULL;
|
|
if (!_FUNC_DIM2_STRING_TYP)_FUNC_DIM2_STRING_TYP=qbs_new(0,0);
|
|
qbs *_FUNC_DIM2_STRING_CVARNAME=NULL;
|
|
if (!_FUNC_DIM2_STRING_CVARNAME)_FUNC_DIM2_STRING_CVARNAME=qbs_new(0,0);
|
|
qbs *_FUNC_DIM2_STRING_L=NULL;
|
|
if (!_FUNC_DIM2_STRING_L)_FUNC_DIM2_STRING_L=qbs_new(0,0);
|
|
int32 *_FUNC_DIM2_LONG_F=NULL;
|
|
if(_FUNC_DIM2_LONG_F==NULL){
|
|
_FUNC_DIM2_LONG_F=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_F=0;
|
|
}
|
|
qbs *_FUNC_DIM2_STRING_SCOPE2=NULL;
|
|
if (!_FUNC_DIM2_STRING_SCOPE2)_FUNC_DIM2_STRING_SCOPE2=qbs_new(0,0);
|
|
byte_element_struct *byte_element_2169=NULL;
|
|
if (!byte_element_2169){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2169=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2169=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 *_FUNC_DIM2_LONG_I=NULL;
|
|
if(_FUNC_DIM2_LONG_I==NULL){
|
|
_FUNC_DIM2_LONG_I=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_I=0;
|
|
}
|
|
int64 fornext_value2171;
|
|
int64 fornext_finalvalue2171;
|
|
int64 fornext_step2171;
|
|
uint8 fornext_step_negative2171;
|
|
qbs *_FUNC_DIM2_STRING_N=NULL;
|
|
if (!_FUNC_DIM2_STRING_N)_FUNC_DIM2_STRING_N=qbs_new(0,0);
|
|
int32 *_FUNC_DIM2_LONG_TRY=NULL;
|
|
if(_FUNC_DIM2_LONG_TRY==NULL){
|
|
_FUNC_DIM2_LONG_TRY=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_TRY=0;
|
|
}
|
|
int32 *_FUNC_DIM2_LONG_BITS=NULL;
|
|
if(_FUNC_DIM2_LONG_BITS==NULL){
|
|
_FUNC_DIM2_LONG_BITS=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_BITS=0;
|
|
}
|
|
byte_element_struct *byte_element_2173=NULL;
|
|
if (!byte_element_2173){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2173=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2173=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 *_FUNC_DIM2_LONG_NUME=NULL;
|
|
if(_FUNC_DIM2_LONG_NUME==NULL){
|
|
_FUNC_DIM2_LONG_NUME=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_NUME=0;
|
|
}
|
|
int32 pass2174;
|
|
int32 *_FUNC_DIM2_LONG_BYTES=NULL;
|
|
if(_FUNC_DIM2_LONG_BYTES==NULL){
|
|
_FUNC_DIM2_LONG_BYTES=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_BYTES=0;
|
|
}
|
|
int32 pass2185;
|
|
int32 pass2186;
|
|
int32 pass2187;
|
|
int32 pass2188;
|
|
int32 *_FUNC_DIM2_LONG_UNSGN=NULL;
|
|
if(_FUNC_DIM2_LONG_UNSGN==NULL){
|
|
_FUNC_DIM2_LONG_UNSGN=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_UNSGN=0;
|
|
}
|
|
byte_element_struct *byte_element_2190=NULL;
|
|
if (!byte_element_2190){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2190=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2190=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_2191=NULL;
|
|
if (!byte_element_2191){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2191=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2191=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_2192=NULL;
|
|
if (!byte_element_2192){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2192=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2192=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
qbs *_FUNC_DIM2_STRING_C=NULL;
|
|
if (!_FUNC_DIM2_STRING_C)_FUNC_DIM2_STRING_C=qbs_new(0,0);
|
|
byte_element_struct *byte_element_2193=NULL;
|
|
if (!byte_element_2193){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2193=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2193=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 *_FUNC_DIM2_LONG_HASHFOUND=NULL;
|
|
if(_FUNC_DIM2_LONG_HASHFOUND==NULL){
|
|
_FUNC_DIM2_LONG_HASHFOUND=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_HASHFOUND=0;
|
|
}
|
|
qbs *_FUNC_DIM2_STRING_HASHNAME=NULL;
|
|
if (!_FUNC_DIM2_STRING_HASHNAME)_FUNC_DIM2_STRING_HASHNAME=qbs_new(0,0);
|
|
int32 *_FUNC_DIM2_LONG_HASHCHKFLAGS=NULL;
|
|
if(_FUNC_DIM2_LONG_HASHCHKFLAGS==NULL){
|
|
_FUNC_DIM2_LONG_HASHCHKFLAGS=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_HASHCHKFLAGS=0;
|
|
}
|
|
int32 *_FUNC_DIM2_LONG_HASHRES=NULL;
|
|
if(_FUNC_DIM2_LONG_HASHRES==NULL){
|
|
_FUNC_DIM2_LONG_HASHRES=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_HASHRES=0;
|
|
}
|
|
int32 *_FUNC_DIM2_LONG_HASHRESFLAGS=NULL;
|
|
if(_FUNC_DIM2_LONG_HASHRESFLAGS==NULL){
|
|
_FUNC_DIM2_LONG_HASHRESFLAGS=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_HASHRESFLAGS=0;
|
|
}
|
|
int32 *_FUNC_DIM2_LONG_HASHRESREF=NULL;
|
|
if(_FUNC_DIM2_LONG_HASHRESREF==NULL){
|
|
_FUNC_DIM2_LONG_HASHRESREF=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_HASHRESREF=0;
|
|
}
|
|
int32 *_FUNC_DIM2_LONG_I2=NULL;
|
|
if(_FUNC_DIM2_LONG_I2==NULL){
|
|
_FUNC_DIM2_LONG_I2=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_I2=0;
|
|
}
|
|
int32 *_FUNC_DIM2_LONG_T=NULL;
|
|
if(_FUNC_DIM2_LONG_T==NULL){
|
|
_FUNC_DIM2_LONG_T=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_T=0;
|
|
}
|
|
long double *_FUNC_DIM2_FLOAT_V=NULL;
|
|
if(_FUNC_DIM2_FLOAT_V==NULL){
|
|
_FUNC_DIM2_FLOAT_V=(long double*)mem_static_malloc(32);
|
|
*_FUNC_DIM2_FLOAT_V=0;
|
|
}
|
|
int64 *_FUNC_DIM2_INTEGER64_V=NULL;
|
|
if(_FUNC_DIM2_INTEGER64_V==NULL){
|
|
_FUNC_DIM2_INTEGER64_V=(int64*)mem_static_malloc(8);
|
|
*_FUNC_DIM2_INTEGER64_V=0;
|
|
}
|
|
uint64 *_FUNC_DIM2_UINTEGER64_V=NULL;
|
|
if(_FUNC_DIM2_UINTEGER64_V==NULL){
|
|
_FUNC_DIM2_UINTEGER64_V=(uint64*)mem_static_malloc(8);
|
|
*_FUNC_DIM2_UINTEGER64_V=0;
|
|
}
|
|
byte_element_struct *byte_element_2195=NULL;
|
|
if (!byte_element_2195){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2195=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2195=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_2197=NULL;
|
|
if (!byte_element_2197){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2197=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2197=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass2198;
|
|
qbs *_FUNC_DIM2_STRING_O=NULL;
|
|
if (!_FUNC_DIM2_STRING_O)_FUNC_DIM2_STRING_O=qbs_new(0,0);
|
|
byte_element_struct *byte_element_2212=NULL;
|
|
if (!byte_element_2212){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2212=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2212=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass2213;
|
|
int32 pass2214;
|
|
byte_element_struct *byte_element_2220=NULL;
|
|
if (!byte_element_2220){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2220=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2220=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_2221=NULL;
|
|
if (!byte_element_2221){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2221=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2221=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_2222=NULL;
|
|
if (!byte_element_2222){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2222=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2222=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
qbs *_FUNC_DIM2_STRING_CT=NULL;
|
|
if (!_FUNC_DIM2_STRING_CT)_FUNC_DIM2_STRING_CT=qbs_new(0,0);
|
|
qbs *_FUNC_DIM2_STRING_CMPS=NULL;
|
|
if (!_FUNC_DIM2_STRING_CMPS)_FUNC_DIM2_STRING_CMPS=qbs_new(0,0);
|
|
byte_element_struct *byte_element_2224=NULL;
|
|
if (!byte_element_2224){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2224=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2224=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass2225;
|
|
int32 pass2226;
|
|
byte_element_struct *byte_element_2235=NULL;
|
|
if (!byte_element_2235){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2235=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2235=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass2236;
|
|
int32 pass2237;
|
|
byte_element_struct *byte_element_2247=NULL;
|
|
if (!byte_element_2247){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2247=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2247=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass2248;
|
|
int32 pass2249;
|
|
byte_element_struct *byte_element_2259=NULL;
|
|
if (!byte_element_2259){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2259=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2259=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass2260;
|
|
int32 pass2261;
|
|
int32 pass2265;
|
|
int32 pass2269;
|
|
byte_element_struct *byte_element_2273=NULL;
|
|
if (!byte_element_2273){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2273=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2273=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass2274;
|
|
int32 pass2275;
|
|
byte_element_struct *byte_element_2285=NULL;
|
|
if (!byte_element_2285){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2285=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2285=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass2286;
|
|
int32 pass2287;
|
|
byte_element_struct *byte_element_2297=NULL;
|
|
if (!byte_element_2297){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2297=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2297=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass2298;
|
|
int32 pass2299;
|
|
byte_element_struct *byte_element_2309=NULL;
|
|
if (!byte_element_2309){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2309=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2309=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass2310;
|
|
int32 pass2311;
|
|
byte_element_struct *byte_element_2321=NULL;
|
|
if (!byte_element_2321){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2321=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2321=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass2322;
|
|
int32 pass2323;
|
|
int8 pass2332;
|