QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-03 07:41:21 +00:00
Code Releases Wiki Activity
qb64/internal/source/data11.txt
SteveMcNeill eba05938bb Pushed changes to enhance the Windows Console Experience 
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
2019-08-27 19:52:02 -04:00

258 lines
11 KiB
Plaintext
Raw Blame History

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;
View git blame Copy permalink