'Test LCD 5" 800x480 16bits
Option AutoRun On

dim txt1$
dim txt2$
dim txt3$
dim txt4$

DIM INTEGER i
DIM INTEGER j
dim posy as integer

' tinyfont.bas
' Font type : Full (96 characters)
' Font size : 4x6 pixels
' Memory usage : 292 bytes

DefineFont #3 '#6 '<----- with font replace n°3 it is good, but with n°6 I have error
60200604 44000000 00A04040 A0AEAE00 82406C6C EACC2048 00004460 84204424
E4A48044 00E404A0 00800400 040000E0 00480240 4CE0AAEA 48C24044 C062C2E0
E820E2AA EA68E0E2 8048E2E0 EAE0EAEA 0404C0E2 80040400 0E208424 2484000E
4040E280 4A60E84A CACAA0EA 608868C0 E8C0AACA E8E8E0E8 60EA6880 E4A0EAAA
2A22E044 A0CAAA40 AEE08888 EEAEA0EA 40AA4AA0 4A80C8CA ECCA60AE C04268A0
AA4044E4 A4AA60AA A0EEAA40 AAA04AAA 48E24044 E088E8E0 E2004208 004AE022
F0000000 0C000084 AA8CE06A 608806C0 0660AA26 E42460AC 24AE0640 40A0CA88
22204044 A0CC8AA4 0EE044C4 AA0CA0EE 40AA04A0 06C8AA0C 880662AA C0C60680
0A60444E AE0A60AA E0AE0A40 0AA0440A 6C0E24A6 608464E0 C4400444 006CC024
E0EEEE00
End DefineFont

' Sinclair_S.bas
' Font type : Full (95 characters)
' Font size : 8x8 pixels
' Memory usage : 764 bytes
DefineFont #7
5F200808 00000000 00000000 08080808 00080008 00001414 00000000 247E2400
00247E24 7C507C10 00107C14 08646200 00462610 10281000 003A442A 00100800
00000000 10100800 00081010 08081000 00100808 10280000 0028107C 10100000
0010107C 00000000 10080800 00000000 0000007C 00000000 00181800 08040000
00402010 948C7800 0078C4A4 20A06000 00F82020 04847800 00FC8078 18847800
00788404 50301000 0010FC90 F880FC00 00788404 F8807800 00788484 0804FC00
00202010 78847800 00788484 84847800 0078047C 10000000 00100000 00100000
20101000 10080000 00081020 7C000000 00007C00 10200000 00201008 04423C00
00080008 564A3C00 003C405E 84847800 008484FC F884F800 00F88484 80847800
00788480 8488F000 00F08884 F880FC00 00FC8080 F880FC00 00808080 80847800
0078849C FC848400 00848484 10107C00 007C1010 04040400 00788484 E0908800
00848890 80808000 00FC8080 B4CC8400 00848484 A4C48400 00848C94 84847800
00788484 8484F800 008080F8 84847800 007894A4 8484F800 008488F8 78807800
00788404 1010FE00 00101010 84848400 00788484 84848400 00304884 84848400
0048B484 30488400 00844830 28448200 00101010 1008FC00 00FC4020 20203800
00382020 20400000 00040810 08083800 00380808 54381000 00101010 00000000
FE000000 A199423C 3C4299A1 04380000 003C443C 78404000 00784444 201C0000
001C2020 3C040400 003C4444 44380000 003C4078 18100C00 00101010 423E0000
3C023E42 78404000 00444444 18000800 001C0808 04000400 18240404 60504000
00485060 10101000 000C1010 54680000 00545454 44780000 00444444 44380000
00384444 44780000 40407844 443C0000 06043C44 201C0000 00202020 40380000
00780438 10381000 000C1010 44440000 00384444 44440000 00102828 54440000
00285454 28440000 00442810 44440000 38043C44 087C0000 007C2010 60101C00
001C1010 10101000 00101010 0C107000 00701010 00281400 00000000
End DefineFont

' Font size : 6x8 pixels
DefineFont #8
5C200806
00000000 82200000 00800008 00004551 4F510000 0045F994 2B1CEA21 690000C2
B04C2090 AA104A62 84608046 00000000 40108410 81400081 00841004 A89C8A00
82000080 0080203E 30000000 00000042 0000003E 01000000 21000086 00004208
CAAA2972 82210027 00872008 21842072 42F8800F 00270A04 F824C510 0FFA0041
00270A02 8A3C0831 21F80027 00044108 8A9C2872 28720027 0027089E 61008601
86010080 00846000 40208410 0F000081 0000F880 10028140 20720084 00022084
BA9A2072 28720027 8028FAA2 8ABC28F2 2872002F 00278220 8AA248E2 08FA004E
800F823C 823C08FA 28720008 80278A2E 8ABE288A 82708028 00872008 12044138
4A8A0046 8048A230 82200882 6A8B800F 80288AAA 9AAA2C8A 28728028 00278AA2
82BC28F2 28720008 8046AAA2 A2BC28F2 087A8048 002F081C 200882F8 288A0082
00278AA2 89A2288A 288A0042 00A5AAAA 5208258A 288A8028 00822094 420821F8
0471800F 00074110 A9944AA9 4170804A 00471004 00804821 00000000 800F0000
00008140 07000000 80277A02 8A320B82 0700002F 00278220 8AA62608 07008027
0007FA22 41382431 E8010004 002778A2 8A320B82 06208028 00872008 12040310
09820046 0089C228 20088260 0D000087 8028AA2A 8A320B00 07008028 00278A22
F2220F00 06000008 802078A6 82320B00 07000008 002F7020 41100E41 08000023
80668AA2 89A20800 08000042 00A5AAA2 21940800 08008048 002778A2 21840F00
0400800F 0EE24028
End DefineFont

cls
CONST DBlue = RGB(0, 0, 128) ' A dark blue colour
posy=10
pause(500)
for i=1 to 8
txt1$=str$(i)+" Essai. 01:23"
TEXT 10,posy, txt1$, LM, i, 1,rgb(white)
posy=posy+36
pause(100)
next i

[90] Text 10,posy, txt1$, LM, i, 1,RGB(white)
Error: Invalid font #7

All Done!
[9] DefineFont #6
Error: Cannot redefine fonts 1 or 6
>
Saving program
[9] DefineFont #6
Error: Cannot redefine fonts 1 or 6
>
>