SCData >>
 Char : String
 Level : Integer 
 Step_over : 1 | 0
;

/* * */

Change Transform WQ WebQuotes ->
Arg D : ^&SCData, Next_char : String

D.Level = 0 && IsDelimeter D.Char && Next_char = '"' >>
AddChar 'D' ?.1.Left 1

D.Level = 1 && IsDelimeter D.Char && Next_char = '"' >>
AddChar 'D' ?.2.Left 2

D.Level = 2 && IsDelimeter D.Char && Next_char = '"' >>
AddChar 'D' ?.3.Left 3

D.Level = 3 && IsDelimeter D.Char && Next_char = '"' >>
AddChar 'D' ?.1.Left 1

D.Level = 0 && D.Char = '"' >>
SetChar 'D' ?.1.Left 1

D.Level = 1 && D.Char = '"' >>
SetChar 'D' ?.1.Right 0

D.Level = 2 && D.Char = '"' >>
SetChar 'D' ?.2.Right 1

D.Level = 3 && D.Char = '"' >>
SetChar 'D' ?.3.Right 2

>>
Exit ERR_SCDATA

/

AddChar Change Transform WQ WebQuotes ->
Arg D : ^&SCData, Char : String, Level : Integer

D.Char '= Char; D.Step_over = 1
D.Level = Level

/

SetChar Change Transform WQ WebQuotes ->
Arg D : ^&SCData, Char : String, Level : Integer

D.Char = Char
D.Level = Level

/