mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-05 22:50:23 +00:00
Removed non-ASCII characters and many hard tabs from source files, making it easier to use other text editors (special characters were being mangled in some cases).
This commit is contained in:
parent
41a70085f6
commit
9c17efacf5
|
@ -81,10 +81,10 @@
|
||||||
//common includes
|
//common includes
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#ifdef QB64_MACOSX
|
#ifdef QB64_MACOSX
|
||||||
#include <cmath>
|
#include <cmath>
|
||||||
#else
|
#else
|
||||||
//#include <math.h> //<-causes overloading abs conflicts in Windows
|
//#include <math.h> //<-causes overloading abs conflicts in Windows
|
||||||
#include <cmath>
|
#include <cmath>
|
||||||
#endif
|
#endif
|
||||||
#include <time.h>
|
#include <time.h>
|
||||||
#include <iostream>
|
#include <iostream>
|
||||||
|
@ -254,7 +254,7 @@ inline int64 qbr(long double f){
|
||||||
if (f>=18446744073709551615.5) {error(6); return 0;} // same result if the number is larger than what an integer 64 could possibly hold.
|
if (f>=18446744073709551615.5) {error(6); return 0;} // same result if the number is larger than what an integer 64 could possibly hold.
|
||||||
if (f>9223372036854775807) {temp=1;f=f-9223372036854775808u;} //if it's too large for a signed int64, make it an unsigned int64 and return that value if possible.
|
if (f>9223372036854775807) {temp=1;f=f-9223372036854775808u;} //if it's too large for a signed int64, make it an unsigned int64 and return that value if possible.
|
||||||
__asm{
|
__asm{
|
||||||
fld f
|
fld f
|
||||||
fistp i
|
fistp i
|
||||||
}
|
}
|
||||||
if (temp) return i|0x8000000000000000;//+9223372036854775808;
|
if (temp) return i|0x8000000000000000;//+9223372036854775808;
|
||||||
|
@ -294,42 +294,42 @@ inline int64 qbr(long double f){
|
||||||
if (f>=18446744073709551615.5) {error(6); return 0;} // same result if the number is larger than what an integer 64 could possibly hold.
|
if (f>=18446744073709551615.5) {error(6); return 0;} // same result if the number is larger than what an integer 64 could possibly hold.
|
||||||
if (f>9223372036854775807) {temp=1;f=f-9223372036854775808u;} //if it's too large for a signed int64, make it an unsigned int64 and return that value if possible.
|
if (f>9223372036854775807) {temp=1;f=f-9223372036854775808u;} //if it's too large for a signed int64, make it an unsigned int64 and return that value if possible.
|
||||||
__asm__ (
|
__asm__ (
|
||||||
"fldt %1;"
|
"fldt %1;"
|
||||||
"fistpll %0;"
|
"fistpll %0;"
|
||||||
:"=m" (i)
|
:"=m" (i)
|
||||||
:"m" (f)
|
:"m" (f)
|
||||||
);
|
);
|
||||||
if (temp) return i|0x8000000000000000;// if it's an unsigned int64, manually set the bit flag
|
if (temp) return i|0x8000000000000000;// if it's an unsigned int64, manually set the bit flag
|
||||||
return i;
|
return i;
|
||||||
}
|
}
|
||||||
inline uint64 qbr_longdouble_to_uint64(long double f){
|
inline uint64 qbr_longdouble_to_uint64(long double f){
|
||||||
uint64 i;
|
uint64 i;
|
||||||
__asm__ (
|
__asm__ (
|
||||||
"fldt %1;"
|
"fldt %1;"
|
||||||
"fistpll %0;"
|
"fistpll %0;"
|
||||||
:"=m" (i)
|
:"=m" (i)
|
||||||
:"m" (f)
|
:"m" (f)
|
||||||
);
|
);
|
||||||
return i;
|
return i;
|
||||||
}
|
}
|
||||||
inline int32 qbr_float_to_long(float f){
|
inline int32 qbr_float_to_long(float f){
|
||||||
int32 i;
|
int32 i;
|
||||||
__asm__ (
|
__asm__ (
|
||||||
"flds %1;"
|
"flds %1;"
|
||||||
"fistpl %0;"
|
"fistpl %0;"
|
||||||
:"=m" (i)
|
:"=m" (i)
|
||||||
:"m" (f)
|
:"m" (f)
|
||||||
);
|
);
|
||||||
return i;
|
return i;
|
||||||
}
|
}
|
||||||
inline int32 qbr_double_to_long(double f){
|
inline int32 qbr_double_to_long(double f){
|
||||||
int32 i;
|
int32 i;
|
||||||
__asm__ (
|
__asm__ (
|
||||||
"fldl %1;"
|
"fldl %1;"
|
||||||
"fistpl %0;"
|
"fistpl %0;"
|
||||||
:"=m" (i)
|
:"=m" (i)
|
||||||
:"m" (f)
|
:"m" (f)
|
||||||
);
|
);
|
||||||
return i;
|
return i;
|
||||||
}
|
}
|
||||||
#endif
|
#endif
|
||||||
|
|
File diff suppressed because it is too large
Load diff
|
@ -116,7 +116,7 @@ void TIMERTHREAD();
|
||||||
|
|
||||||
extern int32 requestedKeyboardOverlayImage;
|
extern int32 requestedKeyboardOverlayImage;
|
||||||
void requestKeyboardOverlayImage(int32 handle){
|
void requestKeyboardOverlayImage(int32 handle){
|
||||||
requestedKeyboardOverlayImage=handle;
|
requestedKeyboardOverlayImage=handle;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
@ -832,7 +832,7 @@ error(6); return 0;
|
||||||
|
|
||||||
//CLNG
|
//CLNG
|
||||||
//func_clng_single uses func_clng_double
|
//func_clng_single uses func_clng_double
|
||||||
//–2147483648 to 2147483647
|
//-2147483648 to 2147483647
|
||||||
inline int32 func_clng_double(double value){
|
inline int32 func_clng_double(double value){
|
||||||
if ((value<2147483647.5)&&(value>=-2147483648.5)){
|
if ((value<2147483647.5)&&(value>=-2147483648.5)){
|
||||||
return qbr_double_to_long(value);
|
return qbr_double_to_long(value);
|
||||||
|
|
|
@ -195,14 +195,14 @@ SUB CreateAndroidProject (projectName2 AS STRING)
|
||||||
'sanitise project name
|
'sanitise project name
|
||||||
dim projectName as string
|
dim projectName as string
|
||||||
for projectNameI=1 to len(projectName2)
|
for projectNameI=1 to len(projectName2)
|
||||||
projectNameA$=LCASE$(mid$(projectName2,projectNameI,1))
|
projectNameA$=LCASE$(mid$(projectName2,projectNameI,1))
|
||||||
projectNameAsc=ASC(projectNameA$)
|
projectNameAsc=ASC(projectNameA$)
|
||||||
projectNameAValid=0
|
projectNameAValid=0
|
||||||
if projectNameAsc>=97 and projectNameAsc<122 then projectNameAValid=1
|
if projectNameAsc>=97 and projectNameAsc<122 then projectNameAValid=1
|
||||||
if len(projectName)>=1 then
|
if len(projectName)>=1 then
|
||||||
if projectNameAsc>=48 and projectNameAsc<=57 then projectNameAValid=1
|
if projectNameAsc>=48 and projectNameAsc<=57 then projectNameAValid=1
|
||||||
end if
|
end if
|
||||||
if projectNameAValid then projectName=projectName+projectNameA$
|
if projectNameAValid then projectName=projectName+projectNameA$
|
||||||
next
|
next
|
||||||
if projectName="" then projectName="untitled"
|
if projectName="" then projectName="untitled"
|
||||||
|
|
||||||
|
|
|
@ -185,7 +185,7 @@ IF LoadedIDESettings = 0 THEN
|
||||||
ideindentsubs = 1
|
ideindentsubs = 1
|
||||||
elseif result = 0 then
|
elseif result = 0 then
|
||||||
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_IndentSUBs", "FALSE"
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_IndentSUBs", "FALSE"
|
||||||
ideindentsubs = 0
|
ideindentsubs = 0
|
||||||
ELSEIF UCASE$(value$) <> "FALSE" AND value$ <> "0" THEN
|
ELSEIF UCASE$(value$) <> "FALSE" AND value$ <> "0" THEN
|
||||||
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_IndentSUBs", "TRUE"
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_IndentSUBs", "TRUE"
|
||||||
ideindentsubs = 1
|
ideindentsubs = 1
|
||||||
|
|
|
@ -6,7 +6,7 @@ DIM SHARED sp AS STRING * 1, sp2 AS STRING * 1, sp3 AS STRING * 1
|
||||||
sp = CHR$(13): sp2 = CHR$(10): sp3 = CHR$(26)
|
sp = CHR$(13): sp2 = CHR$(10): sp3 = CHR$(26)
|
||||||
DIM SHARED sp_asc AS LONG, sp2_asc AS LONG, sp3_asc AS LONG
|
DIM SHARED sp_asc AS LONG, sp2_asc AS LONG, sp3_asc AS LONG
|
||||||
sp_asc = ASC(sp): sp2_asc = ASC(sp2): sp3_asc = ASC(sp3)
|
sp_asc = ASC(sp): sp2_asc = ASC(sp2): sp3_asc = ASC(sp3)
|
||||||
IF Debug THEN sp = CHR$(250): sp2 = CHR$(249): sp3 = "³" 'makes debug output more readable
|
IF Debug THEN sp = CHR$(250): sp2 = CHR$(249): sp3 = CHR$(179) 'makes debug output more readable
|
||||||
|
|
||||||
'ASCII codes
|
'ASCII codes
|
||||||
CONST ASC_BACKSLASH = 92
|
CONST ASC_BACKSLASH = 92
|
||||||
|
|
|
@ -316,12 +316,12 @@ IF idelaunched = 0 THEN
|
||||||
|
|
||||||
COLOR 7, 1: idebox 1, idewy - 4, idewx, 5
|
COLOR 7, 1: idebox 1, idewy - 4, idewx, 5
|
||||||
'edit corners
|
'edit corners
|
||||||
COLOR 7, 1: LOCATE idewy - 4, 1: PRINT "Ã";: LOCATE idewy - 4, idewx: PRINT "´";
|
COLOR 7, 1: LOCATE idewy - 4, 1: PRINT chr$(195);: LOCATE idewy - 4, idewx: PRINT chr$(180);
|
||||||
|
|
||||||
IF idehelp = 1 THEN
|
IF idehelp = 1 THEN
|
||||||
COLOR 7, 0: idebox 1, idewy, idewx, idesubwindow + 1
|
COLOR 7, 0: idebox 1, idewy, idewx, idesubwindow + 1
|
||||||
COLOR 7, 0: LOCATE idewy, 1: PRINT "Ã";: LOCATE idewy, idewx: PRINT "´";
|
COLOR 7, 0: LOCATE idewy, 1: PRINT chr$(195);: LOCATE idewy, idewx: PRINT chr$(180);
|
||||||
COLOR 7, 0: LOCATE idewy, idewx - 3: PRINT "´XÃ";
|
COLOR 7, 0: LOCATE idewy, idewx - 3: PRINT chr$(180) + "X" + chr$(195);
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
'add status title
|
'add status title
|
||||||
|
@ -709,7 +709,7 @@ DO
|
||||||
NEXT
|
NEXT
|
||||||
|
|
||||||
'update title of main window
|
'update title of main window
|
||||||
COLOR 7, 1: LOCATE 2, 2: PRINT STRING$(idewx - 2, "Ä");
|
COLOR 7, 1: LOCATE 2, 2: PRINT STRING$(idewx - 2, chr$(196));
|
||||||
IF LEN(ideprogname) THEN a$ = ideprogname ELSE a$ = "Untitled" + tempfolderindexstr$
|
IF LEN(ideprogname) THEN a$ = ideprogname ELSE a$ = "Untitled" + tempfolderindexstr$
|
||||||
a$ = " " + a$
|
a$ = " " + a$
|
||||||
if LEN(sfname$) > 0 then a$ = a$ + ":" + sfname$
|
if LEN(sfname$) > 0 then a$ = a$ + ":" + sfname$
|
||||||
|
@ -718,12 +718,12 @@ DO
|
||||||
|
|
||||||
'update search bar
|
'update search bar
|
||||||
LOCATE 2, idewx - 30
|
LOCATE 2, idewx - 30
|
||||||
COLOR 7, 1: PRINT "´";
|
COLOR 7, 1: PRINT chr$(180);
|
||||||
COLOR 3, 1: PRINT "Find[ ]";
|
COLOR 3, 1: PRINT "Find[ " + chr$(18) + "]";
|
||||||
COLOR 7, 1: PRINT "Ã";
|
COLOR 7, 1: PRINT chr$(195);
|
||||||
f$ = idefindtext
|
f$ = idefindtext
|
||||||
IF LEN(f$) > 20 THEN
|
IF LEN(f$) > 20 THEN
|
||||||
f$ = "úúú" + RIGHT$(f$, 17)
|
f$ = string$(3, 250) + RIGHT$(f$, 17)
|
||||||
END IF
|
END IF
|
||||||
LOCATE 2, idewx - 28 + 4: COLOR 3, 1: PRINT f$
|
LOCATE 2, idewx - 28 + 4: COLOR 3, 1: PRINT f$
|
||||||
findtext$ = f$
|
findtext$ = f$
|
||||||
|
@ -823,14 +823,14 @@ DO
|
||||||
PRINT CHR$(a);
|
PRINT CHR$(a);
|
||||||
ELSE
|
ELSE
|
||||||
COLOR 7, 0
|
COLOR 7, 0
|
||||||
PRINT "Ä";
|
PRINT chr$(196);
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
'Help_Search_Str
|
'Help_Search_Str
|
||||||
a$ = ""
|
a$ = ""
|
||||||
IF LEN(Help_Search_Str) THEN
|
IF LEN(Help_Search_Str) THEN
|
||||||
a$ = Help_Search_Str
|
a$ = Help_Search_Str
|
||||||
IF LEN(a$) > 20 THEN a$ = "úúú" + RIGHT$(a$, 17)
|
IF LEN(a$) > 20 THEN a$ = string$(3, 250) + RIGHT$(a$, 17)
|
||||||
a$ = "[" + a$ + "](DELETE=next)"
|
a$ = "[" + a$ + "](DELETE=next)"
|
||||||
END IF
|
END IF
|
||||||
IdeInfo$ = a$
|
IdeInfo$ = a$
|
||||||
|
@ -854,7 +854,7 @@ DO
|
||||||
|
|
||||||
'show info message (if any)
|
'show info message (if any)
|
||||||
a$ = IdeInfo$
|
a$ = IdeInfo$
|
||||||
IF LEN(a$) > 60 THEN a$ = LEFT$(a$, 57) + "úúú"
|
IF LEN(a$) > 60 THEN a$ = LEFT$(a$, 57) + string$(3, 250)
|
||||||
IF LEN(a$) < 60 THEN a$ = a$ + SPACE$(60 - LEN(a$))
|
IF LEN(a$) < 60 THEN a$ = a$ + SPACE$(60 - LEN(a$))
|
||||||
COLOR 0, 3: LOCATE idewy + idesubwindow, 2
|
COLOR 0, 3: LOCATE idewy + idesubwindow, 2
|
||||||
PRINT a$;
|
PRINT a$;
|
||||||
|
@ -1580,7 +1580,7 @@ DO
|
||||||
' PRINT CHR$(a);
|
' PRINT CHR$(a);
|
||||||
' ELSE
|
' ELSE
|
||||||
' COLOR 7, 0
|
' COLOR 7, 0
|
||||||
' PRINT "Ä";
|
' PRINT chr$(196);
|
||||||
' END IF
|
' END IF
|
||||||
'NEXT
|
'NEXT
|
||||||
|
|
||||||
|
@ -2824,7 +2824,7 @@ DO
|
||||||
a$ = idegetline(idecy)
|
a$ = idegetline(idecy)
|
||||||
IF LEN(a$) < idecx - 1 THEN a$ = a$ + SPACE$(idecx - 1 - LEN(a$))
|
IF LEN(a$) < idecx - 1 THEN a$ = a$ + SPACE$(idecx - 1 - LEN(a$))
|
||||||
|
|
||||||
IF K$ = CHR$(27) AND NOT AltSpecial THEN GOTO specialchar 'Steve edit 07-04-2014 to stop ESC from printing in the IDE
|
IF K$ = CHR$(27) AND NOT AltSpecial THEN GOTO specialchar 'Steve edit 07-04-2014 to stop ESC from printing chr$(27) in the IDE
|
||||||
|
|
||||||
IF ideinsert THEN
|
IF ideinsert THEN
|
||||||
a2$ = RIGHT$(a$, LEN(a$) - idecx + 1)
|
a2$ = RIGHT$(a$, LEN(a$) - idecx + 1)
|
||||||
|
@ -2966,7 +2966,7 @@ DO
|
||||||
FOR i = 1 TO menusize(m)
|
FOR i = 1 TO menusize(m)
|
||||||
m$ = menu$(m, i)
|
m$ = menu$(m, i)
|
||||||
IF m$ = "-" THEN
|
IF m$ = "-" THEN
|
||||||
COLOR 0, 7: LOCATE i + 2, xx - 2: PRINT "Ã" + STRING$(w + 2, "Ä") + "´";
|
COLOR 0, 7: LOCATE i + 2, xx - 2: PRINT chr$(195) + STRING$(w + 2, chr$(196)) + chr$(180);
|
||||||
ELSE
|
ELSE
|
||||||
IF r = i THEN LOCATE i + 2, xx - 1: COLOR 7, 0: PRINT SPACE$(w + 2);
|
IF r = i THEN LOCATE i + 2, xx - 1: COLOR 7, 0: PRINT SPACE$(w + 2);
|
||||||
LOCATE i + 2, xx
|
LOCATE i + 2, xx
|
||||||
|
@ -3858,20 +3858,20 @@ LOOP
|
||||||
END FUNCTION
|
END FUNCTION
|
||||||
|
|
||||||
SUB idebox (x, y, w, h)
|
SUB idebox (x, y, w, h)
|
||||||
LOCATE y, x: PRINT "Ú" + STRING$(w - 2, "Ä") + "¿";
|
LOCATE y, x: PRINT chr$(218) + STRING$(w - 2, 196) + chr$(191);
|
||||||
FOR y2 = y + 1 TO y + h - 2
|
FOR y2 = y + 1 TO y + h - 2
|
||||||
LOCATE y2, x: PRINT "³" + SPACE$(w - 2) + "³";
|
LOCATE y2, x: PRINT chr$(179) + SPACE$(w - 2) + chr$(179);
|
||||||
NEXT
|
NEXT
|
||||||
LOCATE y + h - 1, x: PRINT "À" + STRING$(w - 2, "Ä") + "Ù";
|
LOCATE y + h - 1, x: PRINT chr$(192) + STRING$(w - 2, 196) + chr$(217);
|
||||||
END SUB
|
END SUB
|
||||||
|
|
||||||
SUB ideboxshadow (x, y, w, h)
|
SUB ideboxshadow (x, y, w, h)
|
||||||
|
|
||||||
LOCATE y, x: PRINT "Ú" + STRING$(w - 2, "Ä") + "¿";
|
LOCATE y, x: PRINT chr$(218) + STRING$(w - 2, 196) + chr$(191);
|
||||||
FOR y2 = y + 1 TO y + h - 2
|
FOR y2 = y + 1 TO y + h - 2
|
||||||
LOCATE y2, x: PRINT "³" + SPACE$(w - 2) + "³";
|
LOCATE y2, x: PRINT chr$(179) + SPACE$(w - 2) + chr$(179);
|
||||||
NEXT
|
NEXT
|
||||||
LOCATE y + h - 1, x: PRINT "À" + STRING$(w - 2, "Ä") + "Ù";
|
LOCATE y + h - 1, x: PRINT chr$(192) + STRING$(w - 2, 196) + chr$(217);
|
||||||
'shadow
|
'shadow
|
||||||
COLOR 8, 0
|
COLOR 8, 0
|
||||||
FOR y2 = y + 1 TO y + h - 1
|
FOR y2 = y + 1 TO y + h - 1
|
||||||
|
@ -5138,12 +5138,12 @@ i = i2: n = n2
|
||||||
'LOCATE y, x: PRINT CHR$(27);
|
'LOCATE y, x: PRINT CHR$(27);
|
||||||
'LOCATE y, x + w - 1: PRINT CHR$(26);
|
'LOCATE y, x + w - 1: PRINT CHR$(26);
|
||||||
'FOR x2 = x + 1 TO x + w - 2
|
'FOR x2 = x + 1 TO x + w - 2
|
||||||
'LOCATE y, x2: PRINT "°";
|
'LOCATE y, x2: PRINT chr$(176);
|
||||||
'NEXT
|
'NEXT
|
||||||
'IF w > 3 THEN
|
'IF w > 3 THEN
|
||||||
'p2! = w - 2 - .00001
|
'p2! = w - 2 - .00001
|
||||||
'x2 = x + 1 + INT(p2! * p!)
|
'x2 = x + 1 + INT(p2! * p!)
|
||||||
'LOCATE y, x2: PRINT "Û";
|
'LOCATE y, x2: PRINT chr$(219);
|
||||||
'END IF
|
'END IF
|
||||||
|
|
||||||
|
|
||||||
|
@ -5154,7 +5154,7 @@ COLOR 0, 7
|
||||||
LOCATE y, x: PRINT CHR$(27);
|
LOCATE y, x: PRINT CHR$(27);
|
||||||
LOCATE y, x + h - 1: PRINT CHR$(26);
|
LOCATE y, x + h - 1: PRINT CHR$(26);
|
||||||
FOR x2 = x + 1 TO x + h - 2
|
FOR x2 = x + 1 TO x + h - 2
|
||||||
LOCATE y, x2: PRINT "°";
|
LOCATE y, x2: PRINT chr$(176);
|
||||||
NEXT
|
NEXT
|
||||||
|
|
||||||
'draw slider
|
'draw slider
|
||||||
|
@ -5183,7 +5183,7 @@ IF h = 4 THEN
|
||||||
'show whichever is closer of the two positions
|
'show whichever is closer of the two positions
|
||||||
p! = (i - 1) / (n - 1)
|
p! = (i - 1) / (n - 1)
|
||||||
IF p! < .5 THEN x2 = x + 1 ELSE x2 = x + 2
|
IF p! < .5 THEN x2 = x + 1 ELSE x2 = x + 2
|
||||||
LOCATE y, x2: PRINT "Û";
|
LOCATE y, x2: PRINT chr$(219);
|
||||||
idehbar = x2
|
idehbar = x2
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
|
@ -5197,13 +5197,13 @@ IF h > 4 THEN
|
||||||
END IF
|
END IF
|
||||||
IF i = 1 THEN
|
IF i = 1 THEN
|
||||||
x2 = x + 1
|
x2 = x + 1
|
||||||
LOCATE y, x2: PRINT "Û";
|
LOCATE y, x2: PRINT chr$(219);
|
||||||
idehbar = x2
|
idehbar = x2
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
IF i = n THEN
|
IF i = n THEN
|
||||||
x2 = x + h - 2
|
x2 = x + h - 2
|
||||||
LOCATE y, x2: PRINT "Û";
|
LOCATE y, x2: PRINT chr$(219);
|
||||||
idehbar = x2
|
idehbar = x2
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
|
@ -5211,7 +5211,7 @@ IF h > 4 THEN
|
||||||
p! = (i - 1) / (n - 1)
|
p! = (i - 1) / (n - 1)
|
||||||
p! = p! * (h - 4)
|
p! = p! * (h - 4)
|
||||||
x2 = x + 2 + INT(p!)
|
x2 = x + 2 + INT(p!)
|
||||||
LOCATE y, x2: PRINT "Û";
|
LOCATE y, x2: PRINT chr$(219);
|
||||||
idehbar = x2
|
idehbar = x2
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
|
@ -5608,7 +5608,7 @@ DO 'main loop
|
||||||
COLOR 0, 7: LOCATE p.y + 4, p.x + 2: PRINT "Path: ";
|
COLOR 0, 7: LOCATE p.y + 4, p.x + 2: PRINT "Path: ";
|
||||||
a$ = path$
|
a$ = path$
|
||||||
w = p.w - 8
|
w = p.w - 8
|
||||||
IF LEN(a$) > w - 3 THEN a$ = "úúú" + RIGHT$(a$, w - 3)
|
IF LEN(a$) > w - 3 THEN a$ = string$(3, 250) + RIGHT$(a$, w - 3)
|
||||||
PRINT a$;
|
PRINT a$;
|
||||||
'-------- end of custom display changes --------
|
'-------- end of custom display changes --------
|
||||||
|
|
||||||
|
@ -5991,7 +5991,7 @@ DO 'main loop
|
||||||
COLOR 0, 7: LOCATE p.y + 4, p.x + 2: PRINT "Path: ";
|
COLOR 0, 7: LOCATE p.y + 4, p.x + 2: PRINT "Path: ";
|
||||||
a$ = path$
|
a$ = path$
|
||||||
w = p.w - 8
|
w = p.w - 8
|
||||||
IF LEN(a$) > w - 3 THEN a$ = "úúú" + RIGHT$(a$, w - 3)
|
IF LEN(a$) > w - 3 THEN a$ = string$(3, 250) + RIGHT$(a$, w - 3)
|
||||||
PRINT a$;
|
PRINT a$;
|
||||||
'-------- end of custom display changes --------
|
'-------- end of custom display changes --------
|
||||||
|
|
||||||
|
@ -6373,7 +6373,7 @@ COLOR 7, 1
|
||||||
FOR b = 1 TO IdeBmkN
|
FOR b = 1 TO IdeBmkN
|
||||||
y = IdeBmk(b).y
|
y = IdeBmk(b).y
|
||||||
IF y >= idesy AND y <= idesy + (idewy - 9) THEN
|
IF y >= idesy AND y <= idesy + (idewy - 9) THEN
|
||||||
LOCATE 3 + y - idesy, 1: PRINT "Å";
|
LOCATE 3 + y - idesy, 1: PRINT chr$(197);
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
|
||||||
|
@ -6454,21 +6454,21 @@ FOR y = 1 TO iden
|
||||||
IF LEN(n$) <= 20 THEN
|
IF LEN(n$) <= 20 THEN
|
||||||
n$ = n$ + SPACE$(20 - LEN(n$))
|
n$ = n$ + SPACE$(20 - LEN(n$))
|
||||||
ELSE
|
ELSE
|
||||||
n$ = LEFT$(n$, 17) + "úúú"
|
n$ = LEFT$(n$, 17) + string$(3, 250)
|
||||||
END IF
|
END IF
|
||||||
IF LEN(args$) <= (idewx - 41) THEN
|
IF LEN(args$) <= (idewx - 41) THEN
|
||||||
args$ = args$ + SPACE$((idewx - 41) - LEN(args$))
|
args$ = args$ + SPACE$((idewx - 41) - LEN(args$))
|
||||||
ELSE
|
ELSE
|
||||||
args$ = LEFT$(args$, (idewx - 44)) + "úúú"
|
args$ = LEFT$(args$, (idewx - 44)) + string$(3, 250)
|
||||||
END IF
|
END IF
|
||||||
l$ = l$ + sep + "ÃÄ" + n$ + " " + sf$ + args$
|
l$ = l$ + sep + chr$(195) + chr$(196) + n$ + " " + sf$ + args$
|
||||||
|
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
|
||||||
FOR x = LEN(l$) TO 1 STEP -1
|
FOR x = LEN(l$) TO 1 STEP -1
|
||||||
a$ = MID$(l$, x, 1)
|
a$ = MID$(l$, x, 1)
|
||||||
IF a$ = "Ã" THEN MID$(l$, x, 1) = "À": EXIT FOR
|
IF a$ = chr$(195) THEN MID$(l$, x, 1) = chr$(192): EXIT FOR
|
||||||
NEXT
|
NEXT
|
||||||
|
|
||||||
|
|
||||||
|
@ -7168,7 +7168,7 @@ COLOR 0, 7
|
||||||
LOCATE y, x: PRINT CHR$(24);
|
LOCATE y, x: PRINT CHR$(24);
|
||||||
LOCATE y + h - 1, x: PRINT CHR$(25);
|
LOCATE y + h - 1, x: PRINT CHR$(25);
|
||||||
FOR y2 = y + 1 TO y + h - 2
|
FOR y2 = y + 1 TO y + h - 2
|
||||||
LOCATE y2, x: PRINT "°";
|
LOCATE y2, x: PRINT chr$(176);
|
||||||
NEXT
|
NEXT
|
||||||
|
|
||||||
'draw slider
|
'draw slider
|
||||||
|
@ -7197,7 +7197,7 @@ IF h = 4 THEN
|
||||||
'show whichever is closer of the two positions
|
'show whichever is closer of the two positions
|
||||||
p! = (i - 1) / (n - 1)
|
p! = (i - 1) / (n - 1)
|
||||||
IF p! < .5 THEN y2 = y + 1 ELSE y2 = y + 2
|
IF p! < .5 THEN y2 = y + 1 ELSE y2 = y + 2
|
||||||
LOCATE y2, x: PRINT "Û";
|
LOCATE y2, x: PRINT chr$(219);
|
||||||
idevbar = y2
|
idevbar = y2
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
|
@ -7211,13 +7211,13 @@ IF h > 4 THEN
|
||||||
END IF
|
END IF
|
||||||
IF i = 1 THEN
|
IF i = 1 THEN
|
||||||
y2 = y + 1
|
y2 = y + 1
|
||||||
LOCATE y2, x: PRINT "Û";
|
LOCATE y2, x: PRINT chr$(219);
|
||||||
idevbar = y2
|
idevbar = y2
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
IF i = n THEN
|
IF i = n THEN
|
||||||
y2 = y + h - 2
|
y2 = y + h - 2
|
||||||
LOCATE y2, x: PRINT "Û";
|
LOCATE y2, x: PRINT chr$(219);
|
||||||
idevbar = y2
|
idevbar = y2
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
|
@ -7225,7 +7225,7 @@ IF h > 4 THEN
|
||||||
p! = (i - 1) / (n - 1)
|
p! = (i - 1) / (n - 1)
|
||||||
p! = p! * (h - 4)
|
p! = p! * (h - 4)
|
||||||
y2 = y + 2 + INT(p!)
|
y2 = y + 2 + INT(p!)
|
||||||
LOCATE y2, x: PRINT "Û";
|
LOCATE y2, x: PRINT chr$(219);
|
||||||
idevbar = y2
|
idevbar = y2
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
|
@ -9023,7 +9023,7 @@ COLOR 7, 0
|
||||||
'CLS
|
'CLS
|
||||||
'FOR y = Help_wy1 - 1 TO Help_wy2 + 1
|
'FOR y = Help_wy1 - 1 TO Help_wy2 + 1
|
||||||
' FOR x = Help_wx1 - 1 TO Help_wx2 + 1
|
' FOR x = Help_wx1 - 1 TO Help_wx2 + 1
|
||||||
' LOCATE y, x: PRINT "Û";
|
' LOCATE y, x: PRINT chr$(219);
|
||||||
' NEXT
|
' NEXT
|
||||||
'NEXT
|
'NEXT
|
||||||
|
|
||||||
|
@ -9495,7 +9495,7 @@ FOR r = 1 TO 5
|
||||||
f$ = LEFT$(a$, ai - 1): IF ai = LEN(a$) - 1 THEN a$ = "" ELSE a$ = RIGHT$(a$, LEN(a$) - ai - 3)
|
f$ = LEFT$(a$, ai - 1): IF ai = LEN(a$) - 1 THEN a$ = "" ELSE a$ = RIGHT$(a$, LEN(a$) - ai - 3)
|
||||||
IF r <= 4 THEN IdeRecentLink(r, 2) = f$
|
IF r <= 4 THEN IdeRecentLink(r, 2) = f$
|
||||||
IF r = 5 THEN f$ = "#Recent..."
|
IF r = 5 THEN f$ = "#Recent..."
|
||||||
IF LEN(f$) > 25 THEN f$ = "úúú" + RIGHT$(f$, 22)
|
IF LEN(f$) > 25 THEN f$ = string$(3, 250) + RIGHT$(f$, 22)
|
||||||
IF r <= 4 THEN IdeRecentLink(r, 1) = f$
|
IF r <= 4 THEN IdeRecentLink(r, 1) = f$
|
||||||
menu$(m, i) = f$: i = i + 1
|
menu$(m, i) = f$: i = i + 1
|
||||||
END IF
|
END IF
|
||||||
|
|
|
@ -37,7 +37,7 @@ END IF
|
||||||
|
|
||||||
IF Help_Recaching = 0 THEN
|
IF Help_Recaching = 0 THEN
|
||||||
a$ = "Downloading '" + PageName$ + "' page..."
|
a$ = "Downloading '" + PageName$ + "' page..."
|
||||||
IF LEN(a$) > 60 THEN a$ = LEFT$(a$, 57) + "úúú"
|
IF LEN(a$) > 60 THEN a$ = LEFT$(a$, 57) + STRING$(3, 250)
|
||||||
IF LEN(a$) < 60 THEN a$ = a$ + SPACE$(60 - LEN(a$))
|
IF LEN(a$) < 60 THEN a$ = a$ + SPACE$(60 - LEN(a$))
|
||||||
|
|
||||||
COLOR 0, 3: LOCATE idewy + idesubwindow, 2
|
COLOR 0, 3: LOCATE idewy + idesubwindow, 2
|
||||||
|
@ -530,24 +530,24 @@ DO WHILE i <= n
|
||||||
|
|
||||||
IF c$(3) = "** " THEN
|
IF c$(3) = "** " THEN
|
||||||
i = i + 2
|
i = i + 2
|
||||||
Help_AddTxt " þ ", col, 0
|
Help_AddTxt " " + CHR$(254) + " ", col, 0
|
||||||
Help_NewLineIndent = Help_NewLineIndent + 6
|
Help_NewLineIndent = Help_NewLineIndent + 6
|
||||||
GOTO Special
|
GOTO Special
|
||||||
END IF
|
END IF
|
||||||
IF c$(2) = "* " THEN
|
IF c$(2) = "* " THEN
|
||||||
i = i + 1
|
i = i + 1
|
||||||
Help_AddTxt "þ ", col, 0
|
Help_AddTxt CHR$(254) + " ", col, 0
|
||||||
Help_NewLineIndent = Help_NewLineIndent + 2
|
Help_NewLineIndent = Help_NewLineIndent + 2
|
||||||
GOTO Special
|
GOTO Special
|
||||||
END IF
|
END IF
|
||||||
IF c$(2) = "**" THEN
|
IF c$(2) = "**" THEN
|
||||||
i = i + 1
|
i = i + 1
|
||||||
Help_AddTxt " þ ", col, 0
|
Help_AddTxt " " + CHR$(254) + " ", col, 0
|
||||||
Help_NewLineIndent = Help_NewLineIndent + 6
|
Help_NewLineIndent = Help_NewLineIndent + 6
|
||||||
GOTO Special
|
GOTO Special
|
||||||
END IF
|
END IF
|
||||||
IF c$ = "*" THEN
|
IF c$ = "*" THEN
|
||||||
Help_AddTxt "þ ", col, 0
|
Help_AddTxt CHR$(254) + " ", col, 0
|
||||||
Help_NewLineIndent = Help_NewLineIndent + 2
|
Help_NewLineIndent = Help_NewLineIndent + 2
|
||||||
GOTO Special
|
GOTO Special
|
||||||
END IF
|
END IF
|
||||||
|
@ -569,7 +569,7 @@ DO WHILE i <= n
|
||||||
GOTO Special
|
GOTO Special
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF c$ = CHR$(226) THEN 'UNICODE UTF8 extender "â", it's a very good bet the following 2 characters will be 2 bytes of UNICODE
|
IF c$ = CHR$(226) THEN 'UNICODE UTF8 extender, it's a very good bet the following 2 characters will be 2 bytes of UNICODE
|
||||||
i = i + 2
|
i = i + 2
|
||||||
GOTO Special
|
GOTO Special
|
||||||
END IF
|
END IF
|
||||||
|
@ -603,7 +603,7 @@ DO WHILE i <= n
|
||||||
|
|
||||||
IF c$(4) = "----" THEN
|
IF c$(4) = "----" THEN
|
||||||
i = i + 3
|
i = i + 3
|
||||||
Help_AddTxt "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ", 8, 0
|
Help_AddTxt STRING$(100, 196), 8, 0
|
||||||
GOTO Special
|
GOTO Special
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
|
|
@ -4384,10 +4384,10 @@ DO
|
||||||
GOTO errmes
|
GOTO errmes
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
if ideindentsubs then
|
IF ideindentsubs THEN
|
||||||
controllevel = controllevel + 1
|
controllevel = controllevel + 1
|
||||||
controltype(controllevel) = 32
|
controltype(controllevel) = 32
|
||||||
end if
|
END IF
|
||||||
|
|
||||||
subfunc = RTRIM$(id.callname) 'SUB_..."
|
subfunc = RTRIM$(id.callname) 'SUB_..."
|
||||||
subfuncn = subfuncn + 1
|
subfuncn = subfuncn + 1
|
||||||
|
@ -4867,7 +4867,7 @@ DO
|
||||||
GOTO errmes
|
GOTO errmes
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF controltype(controllevel) = 32 and ideindentsubs THEN
|
IF controltype(controllevel) = 32 AND ideindentsubs THEN
|
||||||
controltype(controllevel) = 0
|
controltype(controllevel) = 0
|
||||||
controllevel = controllevel - 1
|
controllevel = controllevel - 1
|
||||||
END IF
|
END IF
|
||||||
|
@ -12663,7 +12663,7 @@ END FUNCTION
|
||||||
|
|
||||||
FUNCTION arrayreference$ (indexes$, typ)
|
FUNCTION arrayreference$ (indexes$, typ)
|
||||||
arrayprocessinghappened = 1
|
arrayprocessinghappened = 1
|
||||||
'*returns an array reference: idnumber³index$
|
'*returns an array reference: idnumber CHR$(179) index$
|
||||||
'*does not take into consideration the type of the array
|
'*does not take into consideration the type of the array
|
||||||
|
|
||||||
'*expects array id to be passed in the global id structure
|
'*expects array id to be passed in the global id structure
|
||||||
|
@ -14078,7 +14078,7 @@ IF i <> n THEN
|
||||||
GOTO udtfindelenext
|
GOTO udtfindelenext
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
'Change e reference to u³0 reference?
|
'Change e reference to u CHR$(179) 0 reference?
|
||||||
IF udtetype(E) AND ISUDT THEN
|
IF udtetype(E) AND ISUDT THEN
|
||||||
u = udtetype(E) AND 511
|
u = udtetype(E) AND 511
|
||||||
E = 0
|
E = 0
|
||||||
|
@ -17201,11 +17201,11 @@ IF fooindwel = 1 THEN 'actions to take on initial call only
|
||||||
|
|
||||||
'for variables...
|
'for variables...
|
||||||
'before: anyoperator,-,variable
|
'before: anyoperator,-,variable
|
||||||
'after: anyoperator,ñ,variable
|
'after: anyoperator,CHR$(241),variable
|
||||||
|
|
||||||
'exception for numbers followed by ^... (they will be bracketed up along with the ^ later)
|
'exception for numbers followed by ^... (they will be bracketed up along with the ^ later)
|
||||||
'before: anyoperator,-,number,^
|
'before: anyoperator,-,number,^
|
||||||
'after: anyoperator,ñ,number,^
|
'after: anyoperator,CHR$(241),number,^
|
||||||
|
|
||||||
FOR i = 1 TO n - 1
|
FOR i = 1 TO n - 1
|
||||||
IF i > n - 1 THEN EXIT FOR 'n changes, so manually exit if required
|
IF i > n - 1 THEN EXIT FOR 'n changes, so manually exit if required
|
||||||
|
@ -17251,7 +17251,7 @@ IF fooindwel = 1 THEN 'actions to take on initial call only
|
||||||
|
|
||||||
'not a number (or for exceptions)...
|
'not a number (or for exceptions)...
|
||||||
removeelements a$, i, i, 0
|
removeelements a$, i, i, 0
|
||||||
insertelements a$, i - 1, "ñ"
|
insertelements a$, i - 1, CHR$(241)
|
||||||
IF Debug THEN PRINT #9, "fixoperationorder:negation:" + a$
|
IF Debug THEN PRINT #9, "fixoperationorder:negation:" + a$
|
||||||
|
|
||||||
END IF 'isoperator
|
END IF 'isoperator
|
||||||
|
@ -17268,7 +17268,7 @@ END IF 'fooindwel=1
|
||||||
'----------------D. 'Quick' Add 'power of' with negation {}bracketing to bottom bracket level----------------
|
'----------------D. 'Quick' Add 'power of' with negation {}bracketing to bottom bracket level----------------
|
||||||
pownegused = 0
|
pownegused = 0
|
||||||
powneg:
|
powneg:
|
||||||
IF INSTR(a$, "^" + sp + "ñ") THEN 'quick check
|
IF INSTR(a$, "^" + sp + CHR$(241)) THEN 'quick check
|
||||||
b = 0
|
b = 0
|
||||||
b1 = 0
|
b1 = 0
|
||||||
FOR i = 1 TO n
|
FOR i = 1 TO n
|
||||||
|
@ -17279,7 +17279,7 @@ IF INSTR(a$, "^" + sp + "
|
||||||
IF b = 0 THEN
|
IF b = 0 THEN
|
||||||
IF b1 THEN
|
IF b1 THEN
|
||||||
IF isoperator(a2$) THEN
|
IF isoperator(a2$) THEN
|
||||||
IF a2$ <> "^" AND a2$ <> "ñ" THEN
|
IF a2$ <> "^" AND a2$ <> CHR$(241) THEN
|
||||||
insertelements a$, i - 1, "}"
|
insertelements a$, i - 1, "}"
|
||||||
insertelements a$, b1, "{"
|
insertelements a$, b1, "{"
|
||||||
n = n + 2
|
n = n + 2
|
||||||
|
@ -17290,7 +17290,7 @@ IF INSTR(a$, "^" + sp + "
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
IF c = 94 THEN '^
|
IF c = 94 THEN '^
|
||||||
IF getelement$(a$, i + 1) = "ñ" THEN b1 = i: i = i + 1
|
IF getelement$(a$, i + 1) = CHR$(241) THEN b1 = i: i = i + 1
|
||||||
END IF
|
END IF
|
||||||
END IF 'b=0
|
END IF 'b=0
|
||||||
NEXT i
|
NEXT i
|
||||||
|
@ -17410,8 +17410,8 @@ IF hco <> 0 THEN 'operators were used
|
||||||
END IF 'hco <> 0
|
END IF 'hco <> 0
|
||||||
|
|
||||||
'--------Bracketting of multiple NOT/negation unary operators--------
|
'--------Bracketting of multiple NOT/negation unary operators--------
|
||||||
IF LEFT$(a$, 4) = "ñ" + sp + "ñ" + sp THEN
|
IF LEFT$(a$, 4) = CHR$(241) + sp + CHR$(241) + sp THEN
|
||||||
a$ = "ñ" + sp + "{" + sp + getelements$(a$, 2, n) + sp + "}": n = n + 2
|
a$ = CHR$(241) + sp + "{" + sp + getelements$(a$, 2, n) + sp + "}": n = n + 2
|
||||||
END IF
|
END IF
|
||||||
IF UCASE$(LEFT$(a$, 8)) = "NOT" + sp + "NOT" + sp THEN
|
IF UCASE$(LEFT$(a$, 8)) = "NOT" + sp + "NOT" + sp THEN
|
||||||
a$ = "NOT" + sp + "{" + sp + getelements$(a$, 2, n) + sp + "}": n = n + 2
|
a$ = "NOT" + sp + "{" + sp + getelements$(a$, 2, n) + sp + "}": n = n + 2
|
||||||
|
@ -17545,7 +17545,7 @@ FOR i = 1 TO n
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
'append negation
|
'append negation
|
||||||
IF f2$ = "ñ" THEN f$ = f$ + sp + "-": GOTO classdone_special
|
IF f2$ = CHR$(241) THEN f$ = f$ + sp + "-": GOTO classdone_special
|
||||||
GOTO classdone
|
GOTO classdone
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
@ -18168,7 +18168,7 @@ l = l + 1
|
||||||
IF a$ = "*" THEN GOTO opfound
|
IF a$ = "*" THEN GOTO opfound
|
||||||
IF a$ = "/" THEN GOTO opfound
|
IF a$ = "/" THEN GOTO opfound
|
||||||
'NEGATION LEVEL (MUST BE SET AFTER CALLING ISOPERATOR BY CONTEXT)
|
'NEGATION LEVEL (MUST BE SET AFTER CALLING ISOPERATOR BY CONTEXT)
|
||||||
l = l + 1: IF a$ = "ñ" THEN GOTO opfound
|
l = l + 1: IF a$ = CHR$(241) THEN GOTO opfound
|
||||||
l = l + 1: IF a$ = "^" THEN GOTO opfound
|
l = l + 1: IF a$ = "^" THEN GOTO opfound
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
opfound:
|
opfound:
|
||||||
|
@ -19267,7 +19267,7 @@ END IF
|
||||||
'assume numeric operator
|
'assume numeric operator
|
||||||
lhs = 1 + 2: rhs = 1 + 2
|
lhs = 1 + 2: rhs = 1 + 2
|
||||||
IF operator$ = "^" THEN result = 2: info$ = "pow2": operatorusage = 2: EXIT FUNCTION
|
IF operator$ = "^" THEN result = 2: info$ = "pow2": operatorusage = 2: EXIT FUNCTION
|
||||||
IF operator$ = "ñ" THEN info$ = "-": operatorusage = 5: EXIT FUNCTION
|
IF operator$ = CHR$(241) THEN info$ = "-": operatorusage = 5: EXIT FUNCTION
|
||||||
IF operator$ = "/" THEN
|
IF operator$ = "/" THEN
|
||||||
info$ = "/ ": operatorusage = 1
|
info$ = "/ ": operatorusage = 1
|
||||||
'for / division, either the lhs or the rhs must be a float to make
|
'for / division, either the lhs or the rhs must be a float to make
|
||||||
|
@ -22157,7 +22157,7 @@ IF status(1) = 0 THEN
|
||||||
IF btype(2) AND ISSTRING THEN Give_Error "Invalid CONST expression.6": EXIT FUNCTION
|
IF btype(2) AND ISSTRING THEN Give_Error "Invalid CONST expression.6": EXIT FUNCTION
|
||||||
o$ = block(1)
|
o$ = block(1)
|
||||||
|
|
||||||
IF o$ = "ñ" THEN
|
IF o$ = CHR$(241) THEN
|
||||||
IF btype(2) AND ISFLOAT THEN
|
IF btype(2) AND ISFLOAT THEN
|
||||||
r## = -_CV(_FLOAT, block(2))
|
r## = -_CV(_FLOAT, block(2))
|
||||||
evaluateconst$ = _MK$(_FLOAT, r##)
|
evaluateconst$ = _MK$(_FLOAT, r##)
|
||||||
|
@ -23773,7 +23773,7 @@ REM $STATIC
|
||||||
' * Op& = Type of string to expect and/or operation to perform
|
' * Op& = Type of string to expect and/or operation to perform
|
||||||
'
|
'
|
||||||
' { 00A } = (10) Test Base-10-Format String ( *!* ALTERS InString$ *!* )
|
' { 00A } = (10) Test Base-10-Format String ( *!* ALTERS InString$ *!* )
|
||||||
' { 00B } = (11) Read Sign ("+", "-", or "ñ")
|
' { 00B } = (11) Read Sign ("+", "-", or CHR$(241))
|
||||||
'
|
'
|
||||||
' Unlisted values are not used and will return [ Check& = 0 - Op& ].
|
' Unlisted values are not used and will return [ Check& = 0 - Op& ].
|
||||||
' Different Op& values produce various return values.
|
' Different Op& values produce various return values.
|
||||||
|
@ -23840,7 +23840,7 @@ SELECT CASE Op&
|
||||||
|
|
||||||
|
|
||||||
CASE 11
|
CASE 11
|
||||||
' {00B} Read Sign ("+", "-", or "ñ")
|
' {00B} Read Sign ("+", "-", or CHR$(241))
|
||||||
' Returns:
|
' Returns:
|
||||||
' Explicit: +1 = Positive; -1 = Negative; 0 = Unsigned;
|
' Explicit: +1 = Positive; -1 = Negative; 0 = Unsigned;
|
||||||
' Implied: +64 = Positive; -64 = NULL String
|
' Implied: +64 = Positive; -64 = NULL String
|
||||||
|
|
|
@ -524,7 +524,7 @@ IF role$ = "EDIT" THEN
|
||||||
IF VK(i).locked = 1 THEN
|
IF VK(i).locked = 1 THEN
|
||||||
VkResetMenu
|
VkResetMenu
|
||||||
ELSE
|
ELSE
|
||||||
VkHide = 0 'do not hide keybaord when editing
|
VkHide = 0 'do not hide keybaord when editing
|
||||||
VkResetMenu
|
VkResetMenu
|
||||||
i = VkByRole(role$)
|
i = VkByRole(role$)
|
||||||
VK(i).locked = 1
|
VK(i).locked = 1
|
||||||
|
@ -670,27 +670,27 @@ IF role$ = "RSET" THEN
|
||||||
VkFile$=""
|
VkFile$=""
|
||||||
if _FILEEXISTS(appRootPath$+"virtual_keyboard_layout_default.txt") then VkFile$=appRootPath$+"virtual_keyboard_layout_default.txt"
|
if _FILEEXISTS(appRootPath$+"virtual_keyboard_layout_default.txt") then VkFile$=appRootPath$+"virtual_keyboard_layout_default.txt"
|
||||||
if VkFile$<>"" then
|
if VkFile$<>"" then
|
||||||
fh = FREEFILE
|
fh = FREEFILE
|
||||||
OPEN VkFile$ FOR INPUT AS #fh
|
OPEN VkFile$ FOR INPUT AS #fh
|
||||||
LINE INPUT #fh, json$
|
LINE INPUT #fh, json$
|
||||||
CLOSE #fh
|
CLOSE #fh
|
||||||
root = QB_NODESET_deserialize(json$, "json")
|
root = QB_NODESET_deserialize(json$, "json")
|
||||||
DIM oldVkWidthInUnits AS LONG
|
DIM oldVkWidthInUnits AS LONG
|
||||||
oldVkWidthInUnits=VkWidthInUnits
|
oldVkWidthInUnits=VkWidthInUnits
|
||||||
VkWidthInUnits=90
|
VkWidthInUnits=90
|
||||||
DIM rootValueNode AS LONG
|
DIM rootValueNode AS LONG
|
||||||
rootValueNode=QB_NODE_withLabel(root, "width")
|
rootValueNode=QB_NODE_withLabel(root, "width")
|
||||||
if rootValueNode then VkWidthInUnits=QB_NODE_valueOfLabel_long(root, "width")
|
if rootValueNode then VkWidthInUnits=QB_NODE_valueOfLabel_long(root, "width")
|
||||||
if VkWidthInUnits<>oldVkWidthInUnits then
|
if VkWidthInUnits<>oldVkWidthInUnits then
|
||||||
FOR i3 = 1 TO VkLast
|
FOR i3 = 1 TO VkLast
|
||||||
IF VK(i3).active THEN
|
IF VK(i3).active THEN
|
||||||
VK(i3).reDraw = 1
|
VK(i3).reDraw = 1
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
VkReset = 1
|
VkReset = 1
|
||||||
END IF
|
END IF
|
||||||
VkLoadKeys QB_NODESET_node(QB_NODESET_label_equal(QB_NODESET_children(root), "keys")), 0
|
VkLoadKeys QB_NODESET_node(QB_NODESET_label_equal(QB_NODESET_children(root), "keys")), 0
|
||||||
QB_NODE_destroy root
|
QB_NODE_destroy root
|
||||||
end if
|
end if
|
||||||
VkResetMenu
|
VkResetMenu
|
||||||
EXIT SUB
|
EXIT SUB
|
||||||
|
@ -702,7 +702,7 @@ IF role$ = "SCUP" THEN
|
||||||
'force all keys to be redrawn
|
'force all keys to be redrawn
|
||||||
FOR i3 = 1 TO VkLast
|
FOR i3 = 1 TO VkLast
|
||||||
IF VK(i3).active THEN
|
IF VK(i3).active THEN
|
||||||
VK(i3).reDraw = 1
|
VK(i3).reDraw = 1
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
VkReset = 1
|
VkReset = 1
|
||||||
|
@ -760,7 +760,7 @@ IF role$ = "SIZE" THEN
|
||||||
|
|
||||||
oy = oy + 1
|
oy = oy + 1
|
||||||
i2 = VkNew
|
i2 = VkNew
|
||||||
VkReLabel i2, "ÄÄ"
|
VkReLabel i2, chr$(17) + chr$(196) + chr$(196) + chr$(16)
|
||||||
VK(i2).parent = VK(i).parent
|
VK(i2).parent = VK(i).parent
|
||||||
VK(i2).offsetX = ox
|
VK(i2).offsetX = ox
|
||||||
VK(i2).offsetY = -oy * VkUnitStepY
|
VK(i2).offsetY = -oy * VkUnitStepY
|
||||||
|
@ -770,7 +770,7 @@ IF role$ = "SIZE" THEN
|
||||||
|
|
||||||
oy = oy + 1
|
oy = oy + 1
|
||||||
i2 = VkNew
|
i2 = VkNew
|
||||||
VkReLabel i2, "ÄÄ"
|
VkReLabel i2, chr$(196) + chr$(16) + chr$(17) + chr$(196)
|
||||||
VK(i2).parent = VK(i).parent
|
VK(i2).parent = VK(i).parent
|
||||||
VK(i2).offsetX = ox
|
VK(i2).offsetX = ox
|
||||||
VK(i2).offsetY = -oy * VkUnitStepY
|
VK(i2).offsetY = -oy * VkUnitStepY
|
||||||
|
@ -1333,9 +1333,9 @@ END SUB
|
||||||
SUB VkUpdate
|
SUB VkUpdate
|
||||||
|
|
||||||
if VkDelay>0 then
|
if VkDelay>0 then
|
||||||
VkTimeNow#=TIMER(0.001)
|
VkTimeNow#=TIMER(0.001)
|
||||||
if VkTimeNow#<VkDelayStartTime OR VkTimeNow#>=VkDelayStartTime+VkDelay THEN VkDelay=0
|
if VkTimeNow#<VkDelayStartTime OR VkTimeNow#>=VkDelayStartTime+VkDelay THEN VkDelay=0
|
||||||
exit sub
|
exit sub
|
||||||
end if
|
end if
|
||||||
|
|
||||||
if vkExited then
|
if vkExited then
|
||||||
|
@ -1403,7 +1403,7 @@ IF winX <> VkWinX OR winY <> VkWinY THEN
|
||||||
VkWinY = winY
|
VkWinY = winY
|
||||||
'clear overlay image (if one exists yet)
|
'clear overlay image (if one exists yet)
|
||||||
if VkOverlay then
|
if VkOverlay then
|
||||||
_PUTIMAGE , VkClearTex, VkOverlay
|
_PUTIMAGE , VkClearTex, VkOverlay
|
||||||
end if
|
end if
|
||||||
'beging a delay (wait until screen has fully repositioned)
|
'beging a delay (wait until screen has fully repositioned)
|
||||||
VkDelayStartTime=TIMER(0.001)
|
VkDelayStartTime=TIMER(0.001)
|
||||||
|
@ -1955,7 +1955,7 @@ DO
|
||||||
mEvent = 0
|
mEvent = 0
|
||||||
|
|
||||||
if VkMousePipe=0 then
|
if VkMousePipe=0 then
|
||||||
VkMousePipe=_MOUSEPIPEOPEN 'create new pipe
|
VkMousePipe=_MOUSEPIPEOPEN 'create new pipe
|
||||||
end if
|
end if
|
||||||
|
|
||||||
' IF VkSharedInputMode THEN
|
' IF VkSharedInputMode THEN
|
||||||
|
@ -2000,14 +2000,14 @@ end if
|
||||||
mx = _MOUSEX(VkMousePipe)
|
mx = _MOUSEX(VkMousePipe)
|
||||||
my = _MOUSEY(VkMousePipe)
|
my = _MOUSEY(VkMousePipe)
|
||||||
|
|
||||||
sw=_width(0)
|
sw=_width(0)
|
||||||
sh=_height(0)
|
sh=_height(0)
|
||||||
|
|
||||||
IF _PIXELSIZE = 0 THEN 'screen 0 adjustment
|
IF _PIXELSIZE = 0 THEN 'screen 0 adjustment
|
||||||
mx = mx * 8 - 4
|
mx = mx * 8 - 4
|
||||||
my = my * 16 - 8
|
my = my * 16 - 8
|
||||||
sw=sw*8
|
sw=sw*8
|
||||||
sh=sh*16
|
sh=sh*16
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
mx = CINT(mx*(_SCALEDWIDTH/sw))
|
mx = CINT(mx*(_SCALEDWIDTH/sw))
|
||||||
|
@ -2015,16 +2015,16 @@ end if
|
||||||
|
|
||||||
IF mb = -1 AND omb = 0 THEN mDown = -1: mEvent = 1: EXIT DO
|
IF mb = -1 AND omb = 0 THEN mDown = -1: mEvent = 1: EXIT DO
|
||||||
|
|
||||||
if VkMousePipeCapture=0 then
|
if VkMousePipeCapture=0 then
|
||||||
_MOUSEINPUTPIPE VkMousePipe
|
_MOUSEINPUTPIPE VkMousePipe
|
||||||
end if
|
end if
|
||||||
|
|
||||||
IF mb = 0 AND omb = -1 THEN
|
IF mb = 0 AND omb = -1 THEN
|
||||||
VkMousePipeCapture=0
|
VkMousePipeCapture=0
|
||||||
mUp = -1
|
mUp = -1
|
||||||
mEvent = 1
|
mEvent = 1
|
||||||
EXIT DO
|
EXIT DO
|
||||||
end if
|
end if
|
||||||
|
|
||||||
LOOP
|
LOOP
|
||||||
omb = mb
|
omb = mb
|
||||||
|
@ -2042,20 +2042,20 @@ end if
|
||||||
FOR i = VkLast TO 1 STEP -1
|
FOR i = VkLast TO 1 STEP -1
|
||||||
IF VK(i).active THEN
|
IF VK(i).active THEN
|
||||||
IF VK(i).internal = internal THEN
|
IF VK(i).internal = internal THEN
|
||||||
if internal=1 or VkHide=0 then
|
if internal=1 or VkHide=0 then
|
||||||
x = VK(i).x * VkUnitSize
|
x = VK(i).x * VkUnitSize
|
||||||
y = VK(i).y * VkUnitSize
|
y = VK(i).y * VkUnitSize
|
||||||
w = VK(i).w
|
w = VK(i).w
|
||||||
h = VK(i).h
|
h = VK(i).h
|
||||||
x1 = INT(x)
|
x1 = INT(x)
|
||||||
x2 = INT(x + VkUnitSize * w) - 1
|
x2 = INT(x + VkUnitSize * w) - 1
|
||||||
y1 = sy - 1 - INT(y)
|
y1 = sy - 1 - INT(y)
|
||||||
y2 = sy - 1 - INT(y + VkUnitSize * h) + 1
|
y2 = sy - 1 - INT(y + VkUnitSize * h) + 1
|
||||||
IF mx >= x1 AND mx <= x2 AND my >= y2 AND my <= y1 THEN
|
IF mx >= x1 AND mx <= x2 AND my >= y2 AND my <= y1 THEN
|
||||||
i2 = i
|
i2 = i
|
||||||
EXIT FOR
|
EXIT FOR
|
||||||
END IF
|
END IF
|
||||||
end if
|
end if
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
@ -2069,7 +2069,7 @@ end if
|
||||||
VKstart = TIMER(0.001)
|
VKstart = TIMER(0.001)
|
||||||
'VK(i2).held = -1
|
'VK(i2).held = -1
|
||||||
VkKeyDown i2
|
VkKeyDown i2
|
||||||
VkMousePipeCapture=1
|
VkMousePipeCapture=1
|
||||||
END IF
|
END IF
|
||||||
if VkMousePipeCapture=0 then _MOUSEINPUTPIPE VkMousePipe
|
if VkMousePipeCapture=0 then _MOUSEINPUTPIPE VkMousePipe
|
||||||
END IF
|
END IF
|
||||||
|
@ -2219,8 +2219,8 @@ _DEST subOldDest
|
||||||
_SOURCE subOldSource
|
_SOURCE subOldSource
|
||||||
|
|
||||||
if VkExiting=2 then
|
if VkExiting=2 then
|
||||||
VkExiting=0
|
VkExiting=0
|
||||||
VkExited=1
|
VkExited=1
|
||||||
end if
|
end if
|
||||||
|
|
||||||
END SUB
|
END SUB
|
||||||
|
@ -2716,27 +2716,27 @@ VkFile$=""
|
||||||
if _FILEEXISTS(appRootPath$+"virtual_keyboard_layout_default.txt") then VkFile$=appRootPath$+"virtual_keyboard_layout_default.txt"
|
if _FILEEXISTS(appRootPath$+"virtual_keyboard_layout_default.txt") then VkFile$=appRootPath$+"virtual_keyboard_layout_default.txt"
|
||||||
if _FILEEXISTS(appRootPath$+"virtual_keyboard_layout_current.txt") then VkFile$=appRootPath$+"virtual_keyboard_layout_current.txt"
|
if _FILEEXISTS(appRootPath$+"virtual_keyboard_layout_current.txt") then VkFile$=appRootPath$+"virtual_keyboard_layout_current.txt"
|
||||||
if VkFile$<>"" then
|
if VkFile$<>"" then
|
||||||
fh = FREEFILE
|
fh = FREEFILE
|
||||||
OPEN VkFile$ FOR INPUT AS #fh
|
OPEN VkFile$ FOR INPUT AS #fh
|
||||||
LINE INPUT #fh, json$
|
LINE INPUT #fh, json$
|
||||||
CLOSE #fh
|
CLOSE #fh
|
||||||
root = QB_NODESET_deserialize(json$, "json")
|
root = QB_NODESET_deserialize(json$, "json")
|
||||||
DIM oldVkWidthInUnits AS LONG
|
DIM oldVkWidthInUnits AS LONG
|
||||||
oldVkWidthInUnits=VkWidthInUnits
|
oldVkWidthInUnits=VkWidthInUnits
|
||||||
VkWidthInUnits=90
|
VkWidthInUnits=90
|
||||||
DIM rootValueNode AS LONG
|
DIM rootValueNode AS LONG
|
||||||
rootValueNode=QB_NODE_withLabel(root, "width")
|
rootValueNode=QB_NODE_withLabel(root, "width")
|
||||||
if rootValueNode then VkWidthInUnits=QB_NODE_valueOfLabel_long(root, "width")
|
if rootValueNode then VkWidthInUnits=QB_NODE_valueOfLabel_long(root, "width")
|
||||||
if VkWidthInUnits<>oldVkWidthInUnits then
|
if VkWidthInUnits<>oldVkWidthInUnits then
|
||||||
FOR i3 = 1 TO VkLast
|
FOR i3 = 1 TO VkLast
|
||||||
IF VK(i3).active THEN
|
IF VK(i3).active THEN
|
||||||
VK(i3).reDraw = 1
|
VK(i3).reDraw = 1
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
VkReset = 1
|
VkReset = 1
|
||||||
END IF
|
END IF
|
||||||
VkLoadKeys QB_NODESET_node(QB_NODESET_label_equal(QB_NODESET_children(root), "keys")), 0
|
VkLoadKeys QB_NODESET_node(QB_NODESET_label_equal(QB_NODESET_children(root), "keys")), 0
|
||||||
QB_NODE_destroy root
|
QB_NODE_destroy root
|
||||||
end if
|
end if
|
||||||
END SUB
|
END SUB
|
||||||
|
|
||||||
|
@ -2797,11 +2797,11 @@ FOR diff = 0 TO 1000
|
||||||
END IF
|
END IF
|
||||||
IF size >= 0 AND size <= UBOUND(vkfontAllow) THEN
|
IF size >= 0 AND size <= UBOUND(vkfontAllow) THEN
|
||||||
IF vkFontAllow(size) THEN
|
IF vkFontAllow(size) THEN
|
||||||
if vkFonts(size)=0 then vkFonts(size)=_LOADFONT(appRootPath$+"cyberbit.ttf", size)
|
if vkFonts(size)=0 then vkFonts(size)=_LOADFONT(appRootPath$+"cyberbit.ttf", size)
|
||||||
if vkFonts(size)=0 then 'font failed to load, so use inbuilt font instead
|
if vkFonts(size)=0 then 'font failed to load, so use inbuilt font instead
|
||||||
vkFonts(size)=16
|
vkFonts(size)=16
|
||||||
if size<16 then vkFonts(size)=8
|
if size<16 then vkFonts(size)=8
|
||||||
end if
|
end if
|
||||||
VkFindFont& = vkFonts(size)
|
VkFindFont& = vkFonts(size)
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
|
|
Loading…
Reference in a new issue