include 'win32ax.inc' 
.code
  start:
        invoke  MessageBoxW,HWND_DESKTOP,"☆",invoke GetCommandLine,MB_OK
        invoke  ExitProcess,0
.end start     

       瓬    瓭    瓰    瓱    瓲    
       AD 9C AD 9D AD 9E AD 9F AD A0 AD A1 ; Page 936
(FF FE)EC 74 ED 74 F0 74 F1 74 F2 74 1A E1 ; Unicode    

Dim v&()
Const LAST_CHAR& = &H80000000
Const NEED_GOON& = &H00000000
    Const ERROR& = &H7FFFFFFF

Sub main()
Dim i&, s() As Byte, c$, j&, p&, k&
'Init
ReDim v(255)
For i = 0 To 255
    v(i) = ERROR
Next
'Main
For i = 0 To 65535
    c = ChrB(i And 255) & ChrB(i \ 256)
    s = StrConv(c, vbFromUnicode)
    If StrConv(s, vbUnicode) = c Then
        ' Create
        p = 0
        For j = 0 To UBound(s) - 1
            ' Page
            If v(p Or s(j)) = ERROR Then
                v(p Or s(j)) = NEED_GOON Or (UBound(v) + 1)
                ReDim Preserve v(UBound(v) + 256)
                For k = UBound(v) - 255 To UBound(v)
                    v(k) = ERROR
                Next
            End If
            p = v(p Or s(j)) Xor NEED_GOON
        Next
        v(p Or s(UBound(s))) = LAST_CHAR Or i
    End If
Next
Open App.Path & "\data.dat" For Binary As #1
Put #1, , v
Close #1
End Sub    

virtual at 0
  charcode::file 'data.dat'
end virtual
macro du [str] {
  local s, w, n, p, a
  if str eqtype ''
    virtual at 1
   w::db str
      n = $
    end virtual
    p = 0
    repeat n-1
      load a byte from w:%
      displayint a
      load p dword from charcode:4*(p+a)
      displayint p
      if (p and $8000'0000)<>0
        dw p and $ffff
        p = 0
      end if
    end repeat
    if p <> 0
      'Error'
    end if
  else
    du str
  end if
}