;MY START OF A PARSER
;Modified a little to be more hadnly hehe, but still 
;i need figure out how to join the found chars to test keywords..

macro Parse{
CharCounter = 0
virtual at 0
     ;The code to be parsed
}


;The code is writed here; between Parse and EndParse


macro EndParse{
     ;The size in bytes of the code
     CODE_SIZE = $
     ;Main loop 
repeat CODE_SIZE
      ;$ is the address; CODE_SIZE is the char count, % is the repeat percent done
      load char byte from $ - CODE_SIZE + % - 1
      CODE_POINTER = CODE_SIZE - %
      if char = 'A' | char = 'a' ;aA
        display "A"
        CharCounter = CharCounter + 1
      else if char = 'B' | char = 'b' ;bB
        display "B"
        CharCounter = CharCounter + 1
      else if char = 'C' | char = 'c' ;cC
        display "C"
        CharCounter = CharCounter + 1
      else if char = 'D' | char = 'd' ;dD
        display "D"
        CharCounter = CharCounter + 1
      else if char = 'E' | char = 'e' ;eE
        display "E"
        CharCounter = CharCounter + 1
      else if char = 'F' | char = 'f' ;fF
        display "F"
        CharCounter = CharCounter + 1
      else if char = 'G' | char = 'g' ;gG
        display "G"
        CharCounter = CharCounter + 1
      else if char = 'H' | char = 'h' ;hH
        display "H"
        CharCounter = CharCounter + 1
      else if char = 'I' | char = 'i' ;iI
        display "I"
        CharCounter = CharCounter + 1
      else if char = 'J' | char = 'j' ;jJ
        display "J"
        CharCounter = CharCounter + 1
      else if char = 'K' | char = 'k' ;kK
        display "K"
        CharCounter = CharCounter + 1
      else if char = 'L' | char = 'l' ;lL
        display "L"
        CharCounter = CharCounter + 1
      else if char = 'M' | char = 'm' ;mM
        display "M"
        CharCounter = CharCounter + 1
      else if char = 'N' | char = 'n' ;nN
        display "N"
        CharCounter = CharCounter + 1
      else if char = 'O' | char = 'o' ;oO
        display "O"
        CharCounter = CharCounter + 1
      else if char = 'P' | char = 'p' ;pP
        display "P"
        CharCounter = CharCounter + 1
      else if char = 'Q' | char = 'q' ;qQ
        display "Q"
        CharCounter = CharCounter + 1
      else if char = 'R' | char = 'r'
        display "R"
        CharCounter = CharCounter + 1
      else if char = 'S' | char = 's' ;sS
        display "S"
        CharCounter = CharCounter + 1
      else if char = 'T' | char = 't' ;tT
        display "T"
        CharCounter = CharCounter + 1
      else if char = 'U' | char = 'u' ;uU
        display "U"
        CharCounter = CharCounter + 1
      else if char = 'V' | char = 'v' ;vV
        display "V"
        CharCounter = CharCounter + 1
      else if char = 'W' | char = 'w' ;wW
        display "W"
        CharCounter = CharCounter + 1
      else if char = 'X' | char = 'x' ;xX
        display "X"
        CharCounter = CharCounter + 1
      else if char = 'Y' | char = 'y' ;yY
        display "Y"
        CharCounter = CharCounter + 1
      else if char = 'Z' | char = 'z' ;zZ
        display "Z"
        CharCounter = CharCounter + 1
      ;SIMBOLS
      else if char = '"'
          display '"'
      else if char = ' '
          display ' '
      else if char = 0
          display 13,10,'END OF THE CODE'
      else if char = 13
          display 13
      else if char = 10
          display 10
      end if
end repeat
end virtual
}


;Start the code parsing
Parse
     db 'dim tete as string',13,10,\
     'msgbox "Hello World" ',13,10,\
     'Halt',0
EndParse
    

.....
      else if ..char = 7Ah | ..char = 5Ah ;zZ
          display "Found Z",13,10
          ..token#..char
        tokenlenghtcounter = tokenlenghtcounter + 1
....
    

.....
      else if ..char = 7Ah | ..char = 5Ah ;zZ
          display "Found Z",13,10
          ..token#'Z'
        tokenlenghtcounter = tokenlenghtcounter + 1
....