This is a lex test

Fails are

; Comment: 2
// Comment 4

/* 
block comment
*/
 !not                 

Label2:

' Comment: 1
; Comment: 2
REM Comment: 3
// Comment 4

/* 
block comment
*/
 
 Repeat 8

Ennd of lex test


'Start of LEX

#ASMRAW
#CHIP
#CONFIG
#DEFINE
#ENDIF
#ENDSCRIPT
#IF
#IFDEF
#IFNDEF
#INCLUDE
#MEM
#OPTION
#SAMEBIT
#SAMEVAR
#SCRIPT
#STARTUP
%
_GLCDPage
_GLCDPagesH
_GLCDPagesL
10ms
10us
31k
32.768k
ABS
AD_REF_SOURCE
ADOff
Alias
ALLOC
AllOf
AND
Array
As
Asc
At
ATan
Average
BcdToDec_GCB
BIT
Bootloader
Box
Byte
ByteToBin
Call
canskip
Case
ChipADC
ChipEEprom
ChipFamily
ChipIO
ChipMHz
ChipName
ChipNameStr
ChipOsc
ChipPins
ChipProgrammerNameStr
ChipRAM
ChipReserveHighProg
ChipUsingIntOsc
ChipWords
CHR
Circle
ClearSMT1
ClearSMT2
ClearTimer
CLS
cos
CreateButton
CURSOROFF
CURSORON
DecToBcd_GCB
Difference
Dim
Dir
DisplayChar
DisplayValue
Do
DS18B20SetResolution
EERAM_AutoStore
EERAM_Backup
EERAM_HS
EERAM_HWStore
EERAM_I2C_Adr
EERAM_Read
EERAM_Recall
EERAM_Status
EERAM_Trecall
EERAM_Tstore
EERAM_Write
EERAM_Write_Command
Ellipse
Else
Else If
End
End Function
End Macro
End Repeat
End Select
End Sub
End Table
EPRead
EPWrite
Exit
Exit Do
Exit For
Exit Function
Exit Repeat
Exit Sub
Explicit
FALSE
FAST
FastHWSPITransfer
Fill
FilledBox
FilledCircle
FilledEllipse
FilledTriangle
FillRoundRect
FLASH
FLASHOFF
FLASHON
FnLSL
FnLSR
For
Forever
FOSC
FOSC4
Function
FVR_1x
FVR_2x
FVR_4x
FVR_off
FVRInitialize
FVRIsOutputReady
Get
GetUserID
GLCD_Close_PageTransaction
GLCD_NextionSerialPrint
GLCD_NextionSerialSend
GLCD_Open_PageTransaction
GLCDBackground
GLCDCLS
GLCDDisplay
GLCDDrawChar
GLCDDrawString
GLCDfntDefaultSize
GLCDFontWidth
GLCDForeground
GLCDGetTouch_Nextion
GLCDLocateString
GLCDLocateString_Nextion
GLCDPrint
GLCDPrint_Nextion
GLCDPrintDefaultFont_Nextion
GLCDPrintLargeFont
GLCDPrintString
GLCDPrintString_Nextion
GLCDPrintStringLn
GLCDPrintStringLn_Nextion
GLCDPrintWithSize
GLCDReadByte
GLCDRotate
GLCDSendOpInstruction_Nextion
GLCDSetContrast
GLCDTimeDelay
GLCDUpdateObject_Nextion
GLCDWriteByte
Gosub
Goto
h
HEFEraseBlock
HEFRead
HEFReadBlock
HEFReadByte
HEFReadWord
HEFWrite
HEFWriteBlock
HEFWriteWord
Hex
HFINTOSC
HI2C2AckpollState
HI2C2Mode
HI2C2Receive
HI2C2ReStart
HI2C2Send
HI2C2SetAddress
HI2C2Start
HI2C2StartOccurred
HI2C2Stop
HI2C2Stopped
HI2C2WaitMSSP
HI2CAckpollState
HI2CMode
HI2CReceive
HI2CReStart
HI2CSend
HI2CSetAddress
HI2CStart
HI2CStartOccurred
HI2CStop
HI2CStopped
HI2CWaitMSSP
HI2CWaitMSSPTimeout
HLine
HPWM
HPWM_CCPTimerN
HPWM_Fast
HPWMOff
HPWMUpdate
HSerGetNum
HSerGetString
HSerPrint
HSerPrintByteCRLF
HSerPrintCRLF
HSerPrintStringCRLF
HSerReceive
HSerReceive1
HSerReceive2
HSerReceiveFrom
HSerSend
I2C_Adr_EERAM
I2CAckpoll
I2CReceive
I2CReset
I2CRestart
I2CSend
I2CSlaveDeviceReceive
I2CStart
I2CStartOccurred
I2CStop
If
Ignore
In
IndCall
InitGLCD
InitSer
InitSMT1
InitSMT2
InitTimer0
InitTimer1
InitTimer10
InitTimer12
InitTimer2
InitTimer3
InitTimer4
InitTimer5
InitTimer6
InitTimer7
InitTimer8
INKEY
Instr
Integer
IntegerToBin
Interrupt
IntOff
IntOn
KeypadData
KeypadRaw
Landscape
Landscape_Rev
LCase
LCD_I2C_Address_1
LCD_I2C_Address_2
LCD_I2C_Address_3
LCD_I2C_Address_4
LCD_I2C_Address_Current
LCD_IO
LCD_SPEED
LCD_VARIANT
LCD_VFD_DELAY
LCDBacklight
LCDCMD
LCDCreateChar
LCDCreateGraph
LCDCursor
LCDDisplayOff
LCDDisplayOn
LCDHex
LCDHome
LCDOFF
LCDON
LCDSpace
LCDWriteChar
Left
LeftPad
Len
LFINTOSC
Line
Locate
LOCKPPS
Log10
Log2
Loge
Long
LongtoBin
Loop
Ltrim
m
Macro
MEDIUM
MFINTOSC
Mid
MOD
ms
Next
NoBit
NoConfig
NoContextSave
NoLatch
NOT
NoVar
Off
On
On Interrupt
OneOf
Optional
OR
Out
Pad
Peek
PFMErase
PFMRead
PFMWrite
Play
PlayRTTTL
Poke
Portrait
Portrait_Rev
Pot
Power
Print
ProgramErase
ProgramRead
ProgramWrite
PS2ReadByte
PS2SetKBLeds
PS2WriteByte
Pset
Pulsein
PulseOut
PulseOutInv
Put
PWMModule
PWMOff
PWMOn
PWMOut
Random
Randomize
ReadAD
ReadAD10
ReadAD12
ReadDigitalTemp
ReadTable
ReadTemp
ReadTemp12
Repeat
ReserveHighProg
Return
Right
Rotate
RoundRect
Rtrim
s
SAFEraseBlock
SAFRead
SAFReadBlock
SAFReadByte
SAFReadWord
SAFWrite
SAFWriteBlock
SAFWriteWord
Scale
Select
Ser1Print
Ser1Receive
Ser1Send
Ser2Print
Ser2Receive
Ser2Send
Ser3Print
Ser3Receive
Ser3Send
SerPrint
SerReceive
SerSend
Set
SetSMT1
SetSMT1Period
SetSMT2
SetSMT2Period
SetTimer
SetWith
ShortTone
Simple
sin
SLOW
SOSC
SPIMode
SPITransfer
Sqrt
SRAMRead
SRAMWrite
ST7735Rotation
ST7735SendCommand
ST7920cTile
ST7920GLCDClearGraphics
ST7920GLCDDisableGraphics
ST7920GLCDEnableGraphics
ST7920GLCDReadByte
ST7920gLocate
ST7920GraphicTest
ST7920gReaddata
ST7920gTile
ST7920lineh
ST7920LineHs
ST7920linev
ST7920Locate
ST7920Tile
ST7920WriteByte
ST7920WriteCommand
ST7920WriteData
StartSMT1
StartSMT2
StartTimer
Step
Stopscroll_uc1601
StopSMT1
StopSMT2
StopTimer
Str
Str32
String
StrInteger
Sub
SWAP
SWAP4
SYSDEFAULTCONCATSTRING
Table
tan
TFT_BLACK
TFT_BLUE
TFT_CYAN
TFT_DARKCYAN
TFT_DARKGREEN
TFT_DARKGREY
TFT_GREEN
TFT_GREENYELLOW
TFT_LIGHTGREY
TFT_MAGENTA
TFT_MAROON
TFT_NAVY
TFT_OLIVE
TFT_ORANGE
TFT_PINK
TFT_PURPLE
TFT_RED
TFT_WHITE
TFT_YELLOW
Then
Timer0
Timer1
Timer10
Timer12
Timer2
Timer3
Timer4
Timer5
Timer6
Timer7
Timer8
To
Tone
Triangle
Trim
TRUE
TxCKIPPS
UCase
UNLOCKPPS
Until
us
Val
Val32
Var
VarToBin
VarWToBin
Vline
Volatile
Wait
While
Word
WORDTOBIN
XOR

'End of LEX


'Start of standard test - explained in first section


 !not                 
 #chip mega328p, 16
 #chip 16f18326, 32.768k
 #chip 16f18326, 31k
  

  #if
 
  #endif
 
  Do Forever
    PulseOut PortB.5, 100 ms
    Wait 900 ms
  Loop


 Label2:

  Do Forever
  
    Do
     Exit Do
    Loop While A>1
  
    Select Case X
     Case = 1
      If A>B Then X=1
     Case = 2
      If A<B Then X=2
     Case Else

    End Select
   
  Loop

Return


Sub Sub2

  For ii = 1 To 10
    
    Repeat 8
        
       'one-line if-then: 
       If X=1 Then Y=2  'bug, if "then" is comment's last word  then
               
       If A=X Then  'comment
           if b then 
            Exit For
           End If
        Else If X=2 Then 
           Exit If
        Else If X=3 Then
           Exit Repeat
       End If
    
    End Repeat
  
  Next  

End Sub

Function Func1

 Exit Function

End Function