1
1
Fork 0
mirror of https://github.com/FellippeHeitor/InForm.git synced 2025-01-15 11:59:34 +00:00

Adds minor change before adding items to a list (removes chr$(13)). Also:

- Reenables error handler; end-users can have their own error handling routines but it should be reenabled with ON ERROR prior to every block that requires it, as InForm itself will enable its own with every internal loop.
This commit is contained in:
FellippeHeitor 2018-01-09 19:29:24 -02:00
parent 56caf2b4a1
commit cb6dd5f30e

View file

@ -148,6 +148,7 @@ REDIM SHARED __UI_WordWrapHistoryTexts(1 TO 100) AS STRING
REDIM SHARED __UI_WordWrapHistoryResults(1 TO 100) AS STRING REDIM SHARED __UI_WordWrapHistoryResults(1 TO 100) AS STRING
REDIM SHARED __UI_WordWrapHistory(1 TO 100) AS __UI_WordWrapHistoryType REDIM SHARED __UI_WordWrapHistory(1 TO 100) AS __UI_WordWrapHistoryType
REDIM SHARED __UI_ThisLineChars(0) AS LONG REDIM SHARED __UI_ThisLineChars(0) AS LONG
DIM SHARED table1252$(255), table437$(255)
DIM SHARED __UI_MouseLeft AS INTEGER, __UI_MouseTop AS INTEGER DIM SHARED __UI_MouseLeft AS INTEGER, __UI_MouseTop AS INTEGER
DIM SHARED __UI_MouseWheel AS INTEGER, __UI_MouseButtonsSwap AS _BYTE DIM SHARED __UI_MouseWheel AS INTEGER, __UI_MouseButtonsSwap AS _BYTE
@ -272,8 +273,6 @@ CONST __UI_ToolTipTimeOut = .8
CONST True = -1 CONST True = -1
CONST False = 0 CONST False = 0
'ON ERROR GOTO __UI_ErrorHandler
__UI_ThemeSetup __UI_ThemeSetup
__UI_InternalMenus __UI_InternalMenus
__UI_LoadForm __UI_LoadForm
@ -723,7 +722,7 @@ SUB __UI_UpdateDisplay
EXIT SUB EXIT SUB
END IF END IF
'ON ERROR GOTO __UI_ErrorHandler ON ERROR GOTO __UI_ErrorHandler
'Clear frames canvases and count its children; 'Clear frames canvases and count its children;
FOR i = 1 TO UBOUND(Control) FOR i = 1 TO UBOUND(Control)
@ -4571,6 +4570,10 @@ SUB AddItem (WhichListBox AS LONG, Item$)
ThisID = WhichListBox ThisID = WhichListBox
IF Control(ThisID).Type <> __UI_Type_ListBox AND Control(ThisID).Type <> __UI_Type_DropdownList THEN EXIT SUB IF Control(ThisID).Type <> __UI_Type_ListBox AND Control(ThisID).Type <> __UI_Type_DropdownList THEN EXIT SUB
DO WHILE INSTR(Item$, CHR$(13)) > 0
MID$(Item$, INSTR(Item$, CHR$(13)), 1) = CHR$(10)
LOOP
Text(ThisID) = Text(ThisID) + Item$ + CHR$(13) Text(ThisID) = Text(ThisID) + Item$ + CHR$(13)
Control(ThisID).Max = Control(ThisID).Max + 1 Control(ThisID).Max = Control(ThisID).Max + 1
Control(ThisID).LastVisibleItem = 0 'Reset this var so it'll be recalculated Control(ThisID).LastVisibleItem = 0 'Reset this var so it'll be recalculated
@ -5196,281 +5199,281 @@ END SUB
'UTF conversion functions courtesy of Luke Ceddia. 'UTF conversion functions courtesy of Luke Ceddia.
'http://www.qb64.net/forum/index.php?topic=13981.msg121324#msg121324 'http://www.qb64.net/forum/index.php?topic=13981.msg121324#msg121324
FUNCTION FromCP437$ (source$) FUNCTION FromCP437$ (source$)
STATIC init&, table$(255) STATIC init&
IF init& = 0 THEN IF init& = 0 THEN
DIM i& DIM i&
FOR i& = 0 TO 127 FOR i& = 0 TO 127
table$(i&) = CHR$(i&) table437$(i&) = CHR$(i&)
NEXT i& NEXT i&
table$(7) = CHR$(226) + CHR$(151) + CHR$(143) 'UTF-8 e2978f table437$(7) = CHR$(226) + CHR$(151) + CHR$(143) 'UTF-8 e2978f
table$(128) = CHR$(&HE2) + CHR$(&H82) + CHR$(&HAC) table437$(128) = CHR$(&HE2) + CHR$(&H82) + CHR$(&HAC)
table$(128) = CHR$(&HC3) + CHR$(&H87) table437$(128) = CHR$(&HC3) + CHR$(&H87)
table$(129) = CHR$(&HC3) + CHR$(&HBC) table437$(129) = CHR$(&HC3) + CHR$(&HBC)
table$(130) = CHR$(&HC3) + CHR$(&HA9) table437$(130) = CHR$(&HC3) + CHR$(&HA9)
table$(131) = CHR$(&HC3) + CHR$(&HA2) table437$(131) = CHR$(&HC3) + CHR$(&HA2)
table$(132) = CHR$(&HC3) + CHR$(&HA4) table437$(132) = CHR$(&HC3) + CHR$(&HA4)
table$(133) = CHR$(&HC3) + CHR$(&HA0) table437$(133) = CHR$(&HC3) + CHR$(&HA0)
table$(134) = CHR$(&HC3) + CHR$(&HA5) table437$(134) = CHR$(&HC3) + CHR$(&HA5)
table$(135) = CHR$(&HC3) + CHR$(&HA7) table437$(135) = CHR$(&HC3) + CHR$(&HA7)
table$(136) = CHR$(&HC3) + CHR$(&HAA) table437$(136) = CHR$(&HC3) + CHR$(&HAA)
table$(137) = CHR$(&HC3) + CHR$(&HAB) table437$(137) = CHR$(&HC3) + CHR$(&HAB)
table$(138) = CHR$(&HC3) + CHR$(&HA8) table437$(138) = CHR$(&HC3) + CHR$(&HA8)
table$(139) = CHR$(&HC3) + CHR$(&HAF) table437$(139) = CHR$(&HC3) + CHR$(&HAF)
table$(140) = CHR$(&HC3) + CHR$(&HAE) table437$(140) = CHR$(&HC3) + CHR$(&HAE)
table$(141) = CHR$(&HC3) + CHR$(&HAC) table437$(141) = CHR$(&HC3) + CHR$(&HAC)
table$(142) = CHR$(&HC3) + CHR$(&H84) table437$(142) = CHR$(&HC3) + CHR$(&H84)
table$(143) = CHR$(&HC3) + CHR$(&H85) table437$(143) = CHR$(&HC3) + CHR$(&H85)
table$(144) = CHR$(&HC3) + CHR$(&H89) table437$(144) = CHR$(&HC3) + CHR$(&H89)
table$(145) = CHR$(&HC3) + CHR$(&HA6) table437$(145) = CHR$(&HC3) + CHR$(&HA6)
table$(146) = CHR$(&HC3) + CHR$(&H86) table437$(146) = CHR$(&HC3) + CHR$(&H86)
table$(147) = CHR$(&HC3) + CHR$(&HB4) table437$(147) = CHR$(&HC3) + CHR$(&HB4)
table$(148) = CHR$(&HC3) + CHR$(&HB6) table437$(148) = CHR$(&HC3) + CHR$(&HB6)
table$(149) = CHR$(&HC3) + CHR$(&HB2) table437$(149) = CHR$(&HC3) + CHR$(&HB2)
table$(150) = CHR$(&HC3) + CHR$(&HBB) table437$(150) = CHR$(&HC3) + CHR$(&HBB)
table$(151) = CHR$(&HC3) + CHR$(&HB9) table437$(151) = CHR$(&HC3) + CHR$(&HB9)
table$(152) = CHR$(&HC3) + CHR$(&HBF) table437$(152) = CHR$(&HC3) + CHR$(&HBF)
table$(153) = CHR$(&HC3) + CHR$(&H96) table437$(153) = CHR$(&HC3) + CHR$(&H96)
table$(154) = CHR$(&HC3) + CHR$(&H9C) table437$(154) = CHR$(&HC3) + CHR$(&H9C)
table$(155) = CHR$(&HC2) + CHR$(&HA2) table437$(155) = CHR$(&HC2) + CHR$(&HA2)
table$(156) = CHR$(&HC2) + CHR$(&HA3) table437$(156) = CHR$(&HC2) + CHR$(&HA3)
table$(157) = CHR$(&HC2) + CHR$(&HA5) table437$(157) = CHR$(&HC2) + CHR$(&HA5)
table$(158) = CHR$(&HE2) + CHR$(&H82) + CHR$(&HA7) table437$(158) = CHR$(&HE2) + CHR$(&H82) + CHR$(&HA7)
table$(159) = CHR$(&HC6) + CHR$(&H92) table437$(159) = CHR$(&HC6) + CHR$(&H92)
table$(160) = CHR$(&HC3) + CHR$(&HA1) table437$(160) = CHR$(&HC3) + CHR$(&HA1)
table$(161) = CHR$(&HC3) + CHR$(&HAD) table437$(161) = CHR$(&HC3) + CHR$(&HAD)
table$(162) = CHR$(&HC3) + CHR$(&HB3) table437$(162) = CHR$(&HC3) + CHR$(&HB3)
table$(163) = CHR$(&HC3) + CHR$(&HBA) table437$(163) = CHR$(&HC3) + CHR$(&HBA)
table$(164) = CHR$(&HC3) + CHR$(&HB1) table437$(164) = CHR$(&HC3) + CHR$(&HB1)
table$(165) = CHR$(&HC3) + CHR$(&H91) table437$(165) = CHR$(&HC3) + CHR$(&H91)
table$(166) = CHR$(&HC2) + CHR$(&HAA) table437$(166) = CHR$(&HC2) + CHR$(&HAA)
table$(167) = CHR$(&HC2) + CHR$(&HBA) table437$(167) = CHR$(&HC2) + CHR$(&HBA)
table$(168) = CHR$(&HC2) + CHR$(&HBF) table437$(168) = CHR$(&HC2) + CHR$(&HBF)
table$(169) = CHR$(&HE2) + CHR$(&H8C) + CHR$(&H90) table437$(169) = CHR$(&HE2) + CHR$(&H8C) + CHR$(&H90)
table$(170) = CHR$(&HC2) + CHR$(&HAC) table437$(170) = CHR$(&HC2) + CHR$(&HAC)
table$(171) = CHR$(&HC2) + CHR$(&HBD) table437$(171) = CHR$(&HC2) + CHR$(&HBD)
table$(172) = CHR$(&HC2) + CHR$(&HBC) table437$(172) = CHR$(&HC2) + CHR$(&HBC)
table$(173) = CHR$(&HC2) + CHR$(&HA1) table437$(173) = CHR$(&HC2) + CHR$(&HA1)
table$(174) = CHR$(&HC2) + CHR$(&HAB) table437$(174) = CHR$(&HC2) + CHR$(&HAB)
table$(175) = CHR$(&HC2) + CHR$(&HBB) table437$(175) = CHR$(&HC2) + CHR$(&HBB)
table$(176) = CHR$(&HE2) + CHR$(&H96) + CHR$(&H91) table437$(176) = CHR$(&HE2) + CHR$(&H96) + CHR$(&H91)
table$(177) = CHR$(&HE2) + CHR$(&H96) + CHR$(&H92) table437$(177) = CHR$(&HE2) + CHR$(&H96) + CHR$(&H92)
table$(178) = CHR$(&HE2) + CHR$(&H96) + CHR$(&H93) table437$(178) = CHR$(&HE2) + CHR$(&H96) + CHR$(&H93)
table$(179) = CHR$(&HE2) + CHR$(&H94) + CHR$(&H82) table437$(179) = CHR$(&HE2) + CHR$(&H94) + CHR$(&H82)
table$(180) = CHR$(&HE2) + CHR$(&H94) + CHR$(&HA4) table437$(180) = CHR$(&HE2) + CHR$(&H94) + CHR$(&HA4)
table$(181) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HA1) table437$(181) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HA1)
table$(182) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HA2) table437$(182) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HA2)
table$(183) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H96) table437$(183) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H96)
table$(184) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H95) table437$(184) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H95)
table$(185) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HA3) table437$(185) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HA3)
table$(186) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H91) table437$(186) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H91)
table$(187) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H97) table437$(187) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H97)
table$(188) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H9D) table437$(188) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H9D)
table$(189) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H9C) table437$(189) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H9C)
table$(190) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H9B) table437$(190) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H9B)
table$(191) = CHR$(&HE2) + CHR$(&H94) + CHR$(&H90) table437$(191) = CHR$(&HE2) + CHR$(&H94) + CHR$(&H90)
table$(192) = CHR$(&HE2) + CHR$(&H94) + CHR$(&H94) table437$(192) = CHR$(&HE2) + CHR$(&H94) + CHR$(&H94)
table$(193) = CHR$(&HE2) + CHR$(&H94) + CHR$(&HB4) table437$(193) = CHR$(&HE2) + CHR$(&H94) + CHR$(&HB4)
table$(194) = CHR$(&HE2) + CHR$(&H94) + CHR$(&HAC) table437$(194) = CHR$(&HE2) + CHR$(&H94) + CHR$(&HAC)
table$(195) = CHR$(&HE2) + CHR$(&H94) + CHR$(&H9C) table437$(195) = CHR$(&HE2) + CHR$(&H94) + CHR$(&H9C)
table$(196) = CHR$(&HE2) + CHR$(&H94) + CHR$(&H80) table437$(196) = CHR$(&HE2) + CHR$(&H94) + CHR$(&H80)
table$(197) = CHR$(&HE2) + CHR$(&H94) + CHR$(&HBC) table437$(197) = CHR$(&HE2) + CHR$(&H94) + CHR$(&HBC)
table$(198) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H9E) table437$(198) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H9E)
table$(199) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H9F) table437$(199) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H9F)
table$(200) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H9A) table437$(200) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H9A)
table$(201) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H94) table437$(201) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H94)
table$(202) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HA9) table437$(202) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HA9)
table$(203) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HA6) table437$(203) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HA6)
table$(204) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HA0) table437$(204) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HA0)
table$(205) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H90) table437$(205) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H90)
table$(206) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HAC) table437$(206) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HAC)
table$(207) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HA7) table437$(207) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HA7)
table$(208) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HA8) table437$(208) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HA8)
table$(209) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HA4) table437$(209) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HA4)
table$(210) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HA5) table437$(210) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HA5)
table$(211) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H99) table437$(211) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H99)
table$(212) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H98) table437$(212) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H98)
table$(213) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H92) table437$(213) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H92)
table$(214) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H93) table437$(214) = CHR$(&HE2) + CHR$(&H95) + CHR$(&H93)
table$(215) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HAB) table437$(215) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HAB)
table$(216) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HAA) table437$(216) = CHR$(&HE2) + CHR$(&H95) + CHR$(&HAA)
table$(217) = CHR$(&HE2) + CHR$(&H94) + CHR$(&H98) table437$(217) = CHR$(&HE2) + CHR$(&H94) + CHR$(&H98)
table$(218) = CHR$(&HE2) + CHR$(&H94) + CHR$(&H8C) table437$(218) = CHR$(&HE2) + CHR$(&H94) + CHR$(&H8C)
table$(219) = CHR$(&HE2) + CHR$(&H96) + CHR$(&H88) table437$(219) = CHR$(&HE2) + CHR$(&H96) + CHR$(&H88)
table$(220) = CHR$(&HE2) + CHR$(&H96) + CHR$(&H84) table437$(220) = CHR$(&HE2) + CHR$(&H96) + CHR$(&H84)
table$(221) = CHR$(&HE2) + CHR$(&H96) + CHR$(&H8C) table437$(221) = CHR$(&HE2) + CHR$(&H96) + CHR$(&H8C)
table$(222) = CHR$(&HE2) + CHR$(&H96) + CHR$(&H90) table437$(222) = CHR$(&HE2) + CHR$(&H96) + CHR$(&H90)
table$(223) = CHR$(&HE2) + CHR$(&H96) + CHR$(&H80) table437$(223) = CHR$(&HE2) + CHR$(&H96) + CHR$(&H80)
table$(224) = CHR$(&HCE) + CHR$(&HB1) table437$(224) = CHR$(&HCE) + CHR$(&HB1)
table$(225) = CHR$(&HC3) + CHR$(&H9F) table437$(225) = CHR$(&HC3) + CHR$(&H9F)
table$(226) = CHR$(&HCE) + CHR$(&H93) table437$(226) = CHR$(&HCE) + CHR$(&H93)
table$(227) = CHR$(&HCF) + CHR$(&H80) table437$(227) = CHR$(&HCF) + CHR$(&H80)
table$(228) = CHR$(&HCE) + CHR$(&HA3) table437$(228) = CHR$(&HCE) + CHR$(&HA3)
table$(229) = CHR$(&HCF) + CHR$(&H83) table437$(229) = CHR$(&HCF) + CHR$(&H83)
table$(230) = CHR$(&HC2) + CHR$(&HB5) table437$(230) = CHR$(&HC2) + CHR$(&HB5)
table$(231) = CHR$(&HCF) + CHR$(&H84) table437$(231) = CHR$(&HCF) + CHR$(&H84)
table$(232) = CHR$(&HCE) + CHR$(&HA6) table437$(232) = CHR$(&HCE) + CHR$(&HA6)
table$(233) = CHR$(&HCE) + CHR$(&H98) table437$(233) = CHR$(&HCE) + CHR$(&H98)
table$(234) = CHR$(&HCE) + CHR$(&HA9) table437$(234) = CHR$(&HCE) + CHR$(&HA9)
table$(235) = CHR$(&HCE) + CHR$(&HB4) table437$(235) = CHR$(&HCE) + CHR$(&HB4)
table$(236) = CHR$(&HE2) + CHR$(&H88) + CHR$(&H9E) table437$(236) = CHR$(&HE2) + CHR$(&H88) + CHR$(&H9E)
table$(237) = CHR$(&HCF) + CHR$(&H86) table437$(237) = CHR$(&HCF) + CHR$(&H86)
table$(238) = CHR$(&HCE) + CHR$(&HB5) table437$(238) = CHR$(&HCE) + CHR$(&HB5)
table$(239) = CHR$(&HE2) + CHR$(&H88) + CHR$(&HA9) table437$(239) = CHR$(&HE2) + CHR$(&H88) + CHR$(&HA9)
table$(240) = CHR$(&HE2) + CHR$(&H89) + CHR$(&HA1) table437$(240) = CHR$(&HE2) + CHR$(&H89) + CHR$(&HA1)
table$(241) = CHR$(&HC2) + CHR$(&HB1) table437$(241) = CHR$(&HC2) + CHR$(&HB1)
table$(242) = CHR$(&HE2) + CHR$(&H89) + CHR$(&HA5) table437$(242) = CHR$(&HE2) + CHR$(&H89) + CHR$(&HA5)
table$(243) = CHR$(&HE2) + CHR$(&H89) + CHR$(&HA4) table437$(243) = CHR$(&HE2) + CHR$(&H89) + CHR$(&HA4)
table$(244) = CHR$(&HE2) + CHR$(&H8C) + CHR$(&HA0) table437$(244) = CHR$(&HE2) + CHR$(&H8C) + CHR$(&HA0)
table$(245) = CHR$(&HE2) + CHR$(&H8C) + CHR$(&HA1) table437$(245) = CHR$(&HE2) + CHR$(&H8C) + CHR$(&HA1)
table$(246) = CHR$(&HC3) + CHR$(&HB7) table437$(246) = CHR$(&HC3) + CHR$(&HB7)
table$(247) = CHR$(&HE2) + CHR$(&H89) + CHR$(&H88) table437$(247) = CHR$(&HE2) + CHR$(&H89) + CHR$(&H88)
table$(248) = CHR$(&HC2) + CHR$(&HB0) table437$(248) = CHR$(&HC2) + CHR$(&HB0)
table$(249) = CHR$(&HE2) + CHR$(&H88) + CHR$(&H99) table437$(249) = CHR$(&HE2) + CHR$(&H88) + CHR$(&H99)
table$(250) = CHR$(&HC2) + CHR$(&HB7) table437$(250) = CHR$(&HC2) + CHR$(&HB7)
table$(251) = CHR$(&HE2) + CHR$(&H88) + CHR$(&H9A) table437$(251) = CHR$(&HE2) + CHR$(&H88) + CHR$(&H9A)
table$(252) = CHR$(&HE2) + CHR$(&H81) + CHR$(&HBF) table437$(252) = CHR$(&HE2) + CHR$(&H81) + CHR$(&HBF)
table$(253) = CHR$(&HC2) + CHR$(&HB2) table437$(253) = CHR$(&HC2) + CHR$(&HB2)
table$(254) = CHR$(&HE2) + CHR$(&H96) + CHR$(&HA0) table437$(254) = CHR$(&HE2) + CHR$(&H96) + CHR$(&HA0)
table$(255) = CHR$(&HC2) + CHR$(&HA0) table437$(255) = CHR$(&HC2) + CHR$(&HA0)
init& = -1 init& = -1
END IF END IF
FromCP437$ = UTF8$(source$, table$()) FromCP437$ = UTF8$(source$, table437$())
END FUNCTION END FUNCTION
FUNCTION FromCP1252$ (source$) FUNCTION FromCP1252$ (source$)
STATIC init&, table$(255) STATIC init&
IF init& = 0 THEN IF init& = 0 THEN
DIM i& DIM i&
FOR i& = 0 TO 127 FOR i& = 0 TO 127
table$(i&) = CHR$(i&) table1252$(i&) = CHR$(i&)
NEXT i& NEXT i&
table$(7) = CHR$(226) + CHR$(151) + CHR$(143) 'UTF-8 e2978f table1252$(7) = CHR$(226) + CHR$(151) + CHR$(143) 'UTF-8 e2978f
table$(128) = CHR$(&HE2) + CHR$(&H82) + CHR$(&HAC) table1252$(128) = CHR$(&HE2) + CHR$(&H82) + CHR$(&HAC)
table$(130) = CHR$(&HE2) + CHR$(&H80) + CHR$(&H9A) table1252$(130) = CHR$(&HE2) + CHR$(&H80) + CHR$(&H9A)
table$(131) = CHR$(&HC6) + CHR$(&H92) table1252$(131) = CHR$(&HC6) + CHR$(&H92)
table$(132) = CHR$(&HE2) + CHR$(&H80) + CHR$(&H9E) table1252$(132) = CHR$(&HE2) + CHR$(&H80) + CHR$(&H9E)
table$(133) = CHR$(&HE2) + CHR$(&H80) + CHR$(&HA6) table1252$(133) = CHR$(&HE2) + CHR$(&H80) + CHR$(&HA6)
table$(134) = CHR$(&HE2) + CHR$(&H80) + CHR$(&HA0) table1252$(134) = CHR$(&HE2) + CHR$(&H80) + CHR$(&HA0)
table$(135) = CHR$(&HE2) + CHR$(&H80) + CHR$(&HA1) table1252$(135) = CHR$(&HE2) + CHR$(&H80) + CHR$(&HA1)
table$(136) = CHR$(&HCB) + CHR$(&H86) table1252$(136) = CHR$(&HCB) + CHR$(&H86)
table$(137) = CHR$(&HE2) + CHR$(&H80) + CHR$(&HB0) table1252$(137) = CHR$(&HE2) + CHR$(&H80) + CHR$(&HB0)
table$(138) = CHR$(&HC5) + CHR$(&HA0) table1252$(138) = CHR$(&HC5) + CHR$(&HA0)
table$(139) = CHR$(&HE2) + CHR$(&H80) + CHR$(&HB9) table1252$(139) = CHR$(&HE2) + CHR$(&H80) + CHR$(&HB9)
table$(140) = CHR$(&HC5) + CHR$(&H92) table1252$(140) = CHR$(&HC5) + CHR$(&H92)
table$(142) = CHR$(&HC5) + CHR$(&HBD) table1252$(142) = CHR$(&HC5) + CHR$(&HBD)
table$(145) = CHR$(&HE2) + CHR$(&H80) + CHR$(&H98) table1252$(145) = CHR$(&HE2) + CHR$(&H80) + CHR$(&H98)
table$(146) = CHR$(&HE2) + CHR$(&H80) + CHR$(&H99) table1252$(146) = CHR$(&HE2) + CHR$(&H80) + CHR$(&H99)
table$(147) = CHR$(&HE2) + CHR$(&H80) + CHR$(&H9C) table1252$(147) = CHR$(&HE2) + CHR$(&H80) + CHR$(&H9C)
table$(148) = CHR$(&HE2) + CHR$(&H80) + CHR$(&H9D) table1252$(148) = CHR$(&HE2) + CHR$(&H80) + CHR$(&H9D)
table$(149) = CHR$(&HE2) + CHR$(&H80) + CHR$(&HA2) table1252$(149) = CHR$(&HE2) + CHR$(&H80) + CHR$(&HA2)
table$(150) = CHR$(&HE2) + CHR$(&H80) + CHR$(&H93) table1252$(150) = CHR$(&HE2) + CHR$(&H80) + CHR$(&H93)
table$(151) = CHR$(&HE2) + CHR$(&H80) + CHR$(&H94) table1252$(151) = CHR$(&HE2) + CHR$(&H80) + CHR$(&H94)
table$(152) = CHR$(&HCB) + CHR$(&H9C) table1252$(152) = CHR$(&HCB) + CHR$(&H9C)
table$(153) = CHR$(&HE2) + CHR$(&H84) + CHR$(&HA2) table1252$(153) = CHR$(&HE2) + CHR$(&H84) + CHR$(&HA2)
table$(154) = CHR$(&HC5) + CHR$(&HA1) table1252$(154) = CHR$(&HC5) + CHR$(&HA1)
table$(155) = CHR$(&HE2) + CHR$(&H80) + CHR$(&HBA) table1252$(155) = CHR$(&HE2) + CHR$(&H80) + CHR$(&HBA)
table$(156) = CHR$(&HC5) + CHR$(&H93) table1252$(156) = CHR$(&HC5) + CHR$(&H93)
table$(158) = CHR$(&HC5) + CHR$(&HBE) table1252$(158) = CHR$(&HC5) + CHR$(&HBE)
table$(159) = CHR$(&HC5) + CHR$(&HB8) table1252$(159) = CHR$(&HC5) + CHR$(&HB8)
table$(160) = CHR$(&HC2) + CHR$(&HA0) table1252$(160) = CHR$(&HC2) + CHR$(&HA0)
table$(161) = CHR$(&HC2) + CHR$(&HA1) table1252$(161) = CHR$(&HC2) + CHR$(&HA1)
table$(162) = CHR$(&HC2) + CHR$(&HA2) table1252$(162) = CHR$(&HC2) + CHR$(&HA2)
table$(163) = CHR$(&HC2) + CHR$(&HA3) table1252$(163) = CHR$(&HC2) + CHR$(&HA3)
table$(164) = CHR$(&HC2) + CHR$(&HA4) table1252$(164) = CHR$(&HC2) + CHR$(&HA4)
table$(165) = CHR$(&HC2) + CHR$(&HA5) table1252$(165) = CHR$(&HC2) + CHR$(&HA5)
table$(166) = CHR$(&HC2) + CHR$(&HA6) table1252$(166) = CHR$(&HC2) + CHR$(&HA6)
table$(167) = CHR$(&HC2) + CHR$(&HA7) table1252$(167) = CHR$(&HC2) + CHR$(&HA7)
table$(168) = CHR$(&HC2) + CHR$(&HA8) table1252$(168) = CHR$(&HC2) + CHR$(&HA8)
table$(169) = CHR$(&HC2) + CHR$(&HA9) table1252$(169) = CHR$(&HC2) + CHR$(&HA9)
table$(170) = CHR$(&HC2) + CHR$(&HAA) table1252$(170) = CHR$(&HC2) + CHR$(&HAA)
table$(171) = CHR$(&HC2) + CHR$(&HAB) table1252$(171) = CHR$(&HC2) + CHR$(&HAB)
table$(172) = CHR$(&HC2) + CHR$(&HAC) table1252$(172) = CHR$(&HC2) + CHR$(&HAC)
table$(173) = CHR$(&HC2) + CHR$(&HAD) table1252$(173) = CHR$(&HC2) + CHR$(&HAD)
table$(174) = CHR$(&HC2) + CHR$(&HAE) table1252$(174) = CHR$(&HC2) + CHR$(&HAE)
table$(175) = CHR$(&HC2) + CHR$(&HAF) table1252$(175) = CHR$(&HC2) + CHR$(&HAF)
table$(176) = CHR$(&HC2) + CHR$(&HB0) table1252$(176) = CHR$(&HC2) + CHR$(&HB0)
table$(177) = CHR$(&HC2) + CHR$(&HB1) table1252$(177) = CHR$(&HC2) + CHR$(&HB1)
table$(178) = CHR$(&HC2) + CHR$(&HB2) table1252$(178) = CHR$(&HC2) + CHR$(&HB2)
table$(179) = CHR$(&HC2) + CHR$(&HB3) table1252$(179) = CHR$(&HC2) + CHR$(&HB3)
table$(180) = CHR$(&HC2) + CHR$(&HB4) table1252$(180) = CHR$(&HC2) + CHR$(&HB4)
table$(181) = CHR$(&HC2) + CHR$(&HB5) table1252$(181) = CHR$(&HC2) + CHR$(&HB5)
table$(182) = CHR$(&HC2) + CHR$(&HB6) table1252$(182) = CHR$(&HC2) + CHR$(&HB6)
table$(183) = CHR$(&HC2) + CHR$(&HB7) table1252$(183) = CHR$(&HC2) + CHR$(&HB7)
table$(184) = CHR$(&HC2) + CHR$(&HB8) table1252$(184) = CHR$(&HC2) + CHR$(&HB8)
table$(185) = CHR$(&HC2) + CHR$(&HB9) table1252$(185) = CHR$(&HC2) + CHR$(&HB9)
table$(186) = CHR$(&HC2) + CHR$(&HBA) table1252$(186) = CHR$(&HC2) + CHR$(&HBA)
table$(187) = CHR$(&HC2) + CHR$(&HBB) table1252$(187) = CHR$(&HC2) + CHR$(&HBB)
table$(188) = CHR$(&HC2) + CHR$(&HBC) table1252$(188) = CHR$(&HC2) + CHR$(&HBC)
table$(189) = CHR$(&HC2) + CHR$(&HBD) table1252$(189) = CHR$(&HC2) + CHR$(&HBD)
table$(190) = CHR$(&HC2) + CHR$(&HBE) table1252$(190) = CHR$(&HC2) + CHR$(&HBE)
table$(191) = CHR$(&HC2) + CHR$(&HBF) table1252$(191) = CHR$(&HC2) + CHR$(&HBF)
table$(192) = CHR$(&HC3) + CHR$(&H80) table1252$(192) = CHR$(&HC3) + CHR$(&H80)
table$(193) = CHR$(&HC3) + CHR$(&H81) table1252$(193) = CHR$(&HC3) + CHR$(&H81)
table$(194) = CHR$(&HC3) + CHR$(&H82) table1252$(194) = CHR$(&HC3) + CHR$(&H82)
table$(195) = CHR$(&HC3) + CHR$(&H83) table1252$(195) = CHR$(&HC3) + CHR$(&H83)
table$(196) = CHR$(&HC3) + CHR$(&H84) table1252$(196) = CHR$(&HC3) + CHR$(&H84)
table$(197) = CHR$(&HC3) + CHR$(&H85) table1252$(197) = CHR$(&HC3) + CHR$(&H85)
table$(198) = CHR$(&HC3) + CHR$(&H86) table1252$(198) = CHR$(&HC3) + CHR$(&H86)
table$(199) = CHR$(&HC3) + CHR$(&H87) table1252$(199) = CHR$(&HC3) + CHR$(&H87)
table$(200) = CHR$(&HC3) + CHR$(&H88) table1252$(200) = CHR$(&HC3) + CHR$(&H88)
table$(201) = CHR$(&HC3) + CHR$(&H89) table1252$(201) = CHR$(&HC3) + CHR$(&H89)
table$(202) = CHR$(&HC3) + CHR$(&H8A) table1252$(202) = CHR$(&HC3) + CHR$(&H8A)
table$(203) = CHR$(&HC3) + CHR$(&H8B) table1252$(203) = CHR$(&HC3) + CHR$(&H8B)
table$(204) = CHR$(&HC3) + CHR$(&H8C) table1252$(204) = CHR$(&HC3) + CHR$(&H8C)
table$(205) = CHR$(&HC3) + CHR$(&H8D) table1252$(205) = CHR$(&HC3) + CHR$(&H8D)
table$(206) = CHR$(&HC3) + CHR$(&H8E) table1252$(206) = CHR$(&HC3) + CHR$(&H8E)
table$(207) = CHR$(&HC3) + CHR$(&H8F) table1252$(207) = CHR$(&HC3) + CHR$(&H8F)
table$(208) = CHR$(&HC3) + CHR$(&H90) table1252$(208) = CHR$(&HC3) + CHR$(&H90)
table$(209) = CHR$(&HC3) + CHR$(&H91) table1252$(209) = CHR$(&HC3) + CHR$(&H91)
table$(210) = CHR$(&HC3) + CHR$(&H92) table1252$(210) = CHR$(&HC3) + CHR$(&H92)
table$(211) = CHR$(&HC3) + CHR$(&H93) table1252$(211) = CHR$(&HC3) + CHR$(&H93)
table$(212) = CHR$(&HC3) + CHR$(&H94) table1252$(212) = CHR$(&HC3) + CHR$(&H94)
table$(213) = CHR$(&HC3) + CHR$(&H95) table1252$(213) = CHR$(&HC3) + CHR$(&H95)
table$(214) = CHR$(&HC3) + CHR$(&H96) table1252$(214) = CHR$(&HC3) + CHR$(&H96)
table$(215) = CHR$(&HC3) + CHR$(&H97) table1252$(215) = CHR$(&HC3) + CHR$(&H97)
table$(216) = CHR$(&HC3) + CHR$(&H98) table1252$(216) = CHR$(&HC3) + CHR$(&H98)
table$(217) = CHR$(&HC3) + CHR$(&H99) table1252$(217) = CHR$(&HC3) + CHR$(&H99)
table$(218) = CHR$(&HC3) + CHR$(&H9A) table1252$(218) = CHR$(&HC3) + CHR$(&H9A)
table$(219) = CHR$(&HC3) + CHR$(&H9B) table1252$(219) = CHR$(&HC3) + CHR$(&H9B)
table$(220) = CHR$(&HC3) + CHR$(&H9C) table1252$(220) = CHR$(&HC3) + CHR$(&H9C)
table$(221) = CHR$(&HC3) + CHR$(&H9D) table1252$(221) = CHR$(&HC3) + CHR$(&H9D)
table$(222) = CHR$(&HC3) + CHR$(&H9E) table1252$(222) = CHR$(&HC3) + CHR$(&H9E)
table$(223) = CHR$(&HC3) + CHR$(&H9F) table1252$(223) = CHR$(&HC3) + CHR$(&H9F)
table$(224) = CHR$(&HC3) + CHR$(&HA0) table1252$(224) = CHR$(&HC3) + CHR$(&HA0)
table$(225) = CHR$(&HC3) + CHR$(&HA1) table1252$(225) = CHR$(&HC3) + CHR$(&HA1)
table$(226) = CHR$(&HC3) + CHR$(&HA2) table1252$(226) = CHR$(&HC3) + CHR$(&HA2)
table$(227) = CHR$(&HC3) + CHR$(&HA3) table1252$(227) = CHR$(&HC3) + CHR$(&HA3)
table$(228) = CHR$(&HC3) + CHR$(&HA4) table1252$(228) = CHR$(&HC3) + CHR$(&HA4)
table$(229) = CHR$(&HC3) + CHR$(&HA5) table1252$(229) = CHR$(&HC3) + CHR$(&HA5)
table$(230) = CHR$(&HC3) + CHR$(&HA6) table1252$(230) = CHR$(&HC3) + CHR$(&HA6)
table$(231) = CHR$(&HC3) + CHR$(&HA7) table1252$(231) = CHR$(&HC3) + CHR$(&HA7)
table$(232) = CHR$(&HC3) + CHR$(&HA8) table1252$(232) = CHR$(&HC3) + CHR$(&HA8)
table$(233) = CHR$(&HC3) + CHR$(&HA9) table1252$(233) = CHR$(&HC3) + CHR$(&HA9)
table$(234) = CHR$(&HC3) + CHR$(&HAA) table1252$(234) = CHR$(&HC3) + CHR$(&HAA)
table$(235) = CHR$(&HC3) + CHR$(&HAB) table1252$(235) = CHR$(&HC3) + CHR$(&HAB)
table$(236) = CHR$(&HC3) + CHR$(&HAC) table1252$(236) = CHR$(&HC3) + CHR$(&HAC)
table$(237) = CHR$(&HC3) + CHR$(&HAD) table1252$(237) = CHR$(&HC3) + CHR$(&HAD)
table$(238) = CHR$(&HC3) + CHR$(&HAE) table1252$(238) = CHR$(&HC3) + CHR$(&HAE)
table$(239) = CHR$(&HC3) + CHR$(&HAF) table1252$(239) = CHR$(&HC3) + CHR$(&HAF)
table$(240) = CHR$(&HC3) + CHR$(&HB0) table1252$(240) = CHR$(&HC3) + CHR$(&HB0)
table$(241) = CHR$(&HC3) + CHR$(&HB1) table1252$(241) = CHR$(&HC3) + CHR$(&HB1)
table$(242) = CHR$(&HC3) + CHR$(&HB2) table1252$(242) = CHR$(&HC3) + CHR$(&HB2)
table$(243) = CHR$(&HC3) + CHR$(&HB3) table1252$(243) = CHR$(&HC3) + CHR$(&HB3)
table$(244) = CHR$(&HC3) + CHR$(&HB4) table1252$(244) = CHR$(&HC3) + CHR$(&HB4)
table$(245) = CHR$(&HC3) + CHR$(&HB5) table1252$(245) = CHR$(&HC3) + CHR$(&HB5)
table$(246) = CHR$(&HC3) + CHR$(&HB6) table1252$(246) = CHR$(&HC3) + CHR$(&HB6)
table$(247) = CHR$(&HC3) + CHR$(&HB7) table1252$(247) = CHR$(&HC3) + CHR$(&HB7)
table$(248) = CHR$(&HC3) + CHR$(&HB8) table1252$(248) = CHR$(&HC3) + CHR$(&HB8)
table$(249) = CHR$(&HC3) + CHR$(&HB9) table1252$(249) = CHR$(&HC3) + CHR$(&HB9)
table$(250) = CHR$(&HC3) + CHR$(&HBA) table1252$(250) = CHR$(&HC3) + CHR$(&HBA)
table$(251) = CHR$(&HC3) + CHR$(&HBB) table1252$(251) = CHR$(&HC3) + CHR$(&HBB)
table$(252) = CHR$(&HC3) + CHR$(&HBC) table1252$(252) = CHR$(&HC3) + CHR$(&HBC)
table$(253) = CHR$(&HC3) + CHR$(&HBD) table1252$(253) = CHR$(&HC3) + CHR$(&HBD)
table$(254) = CHR$(&HC3) + CHR$(&HBE) table1252$(254) = CHR$(&HC3) + CHR$(&HBE)
table$(255) = CHR$(&HC3) + CHR$(&HBF) table1252$(255) = CHR$(&HC3) + CHR$(&HBF)
init& = -1 init& = -1
END IF END IF
FromCP1252$ = UTF8$(source$, table$()) FromCP1252$ = UTF8$(source$, table1252$())
END FUNCTION END FUNCTION
FUNCTION UTF8$ (source$, table$()) FUNCTION UTF8$ (source$, table$())