DIM Integer A
DIM Integer B
DIM Integer I
DIM Integer J
DIM Integer K

DIM Integer X
DIM Integer Y
DIM Integer C


CONST Xpixels = 640                                         'max is 864
CONST Ypixels = 480                                         'max is 480
CONST Npixels = Xpixels * Ypixels

CONST Hbackporch = 48
CONST Hfrontporch = 16
CONST Hsyncwidth = 96
CONST Vbackporch = 33
CONST Vfrontporch = 10
CONST Vsyncwidth = 2
CONST Verticallines = Ypixels + Vbackporch + Vfrontporch + Vsyncwidth
SUB InitVGA()
 POKE display &H01  'Software reset
 PAUSE 40

 POKE display &HE2,99,4,&H54  'Configure VCO and PLL

 POKE display &HE0,&H01  'Start PLL
 PAUSE 10
 POKE display &HE0,&H03  'Lock PLL
 POKE display &H01  'software reset

 'Set LCD Mode
 'TFT mode
 'horizontal size=640-1
 'vertical   size=480-1
 i = xPixels-1
 j = yPixels-1
 POKE display &HB0,&H24,&H00,i>>8,i,j>>8,j,&H00

 'Set data bus format - 8bit data bus
 POKE display &HF0,&H00

 'Set pixel clock to 25 MHz LCDC_FPR=  $3FFFF ;  =PLL/4
 POKE display &HE6,&H03,&HFF,&HFF

 'Change RGB to BGR Mode
 POKE display &H36,&B00001000

 'Set horizontal porch timing:  total=760, BackPorch=68, SyncWidth=16
 i = xPixels+hBackPorch+hFrontPorch+hSyncWidth-1  'HT=total h period
 j = hBackPorch+hSyncWidth  'HPS position of active data
 k = hSyncWidth
 POKE display &HB4,i>>8,i,j>>8,j,k,&H00,&H00,&H00

 'Set vertical timing:  VBP=19, Sync=8
 i = yPixels+vBackPorch+vFrontPorch+vSyncWidth-1
 j = vBackPorch+vSyncWidth       'VPS
 k = vSyncWidth
 POKE display &HB6,i>>8,i,j>>8,j,k,&H00,&H00

 'Set column address  0..639
 i = xPixels-1
 POKE display &H2A,&H00,&H00,i>>8,i

 'Set page address   0..479
 i = yPixels-1
 POKE display &H2B,&H00,&H00,i>>8,i

 POKE display &H13  'Enter normal mode
 POKE display &H38  'Exit idle mode
 POKE display &H29  'Set Display ON
END SUB

OPTION something GP1, GP2;
OPTION whatever SD1234, GP7, GP8, GP9, ABC;
OPTION SDCARD GP12

'target port\com9:115200 s\command settime
option reset
'reconnect 3
flash erase all
'nap 3
var clear
'echo system cleared

'echo CPU speed changing - com port will reset
OPTION CPUSPEED 250000
'reconnect 5
OPTION SYSTEM SPI 14,15,16
'reconnect 5
OPTION SDCARD 17
'reconnect 5
OPTION LCDPANEL ILI9341,L,10,11,12
'reconnect 5
OPTION TOUCH 19,20
'reconnect 5
GUI CALIBRATE 0, 250, 504, 925, 747
'reconnect 5
'echo All done!