MODE 8
      
      :\
      \\ Install libraries
      \
      INSTALL @lib$+"WINLIB"
      INSTALL @lib$+"WINLIB2"
      INSTALL @lib$+"WINLIB5A"
      
      REM!WC
      WM_COMMAND = &111
      CFM_BOLD = &1
      CFM_COLOR = &40000000
      CFM_FACE = &20000000
      CFM_ITALIC = &2
      CFM_SIZE = &80000000
      CFM_STRIKEOUT = &8
      CFM_UNDERLINE = &4
      EM_EXLIMITTEXT = &435
      EM_SETBKGNDCOLOR = &443
      EM_SETCHARFORMAT = &444
      EM_SETEVENTMASK = &445
      EM_SHOWSCROLLBAR = &460
      ENM_CHANGE = &1
      ENM_KEYEVENTS = &10000
      ENM_MOUSEEVENTS = &20000
      ES_AUTOHSCROLL = &80
      ES_AUTOVSCROLL = &40
      ES_MULTILINE = &4
      ES_NOHIDESEL = &100
      SB_HORZ = 0
      SB_VERT = 1
      SCF_ALL = &4
      WS_BORDER = &800000
      _TRUE = 1
      
      REM. Set up menus:
      AM$ = "AppendMenu"
      SYS "CreatePopupMenu" TO H%
      SYS AM$, H%, 0, 20, "&New"
      SYS AM$, H%, 0, 21, "&Open"
      SYS AM$, H%, 0, 22, "&Save"
      SYS AM$, H%, 0, 23, "Save &As"
      SYS AM$, H%, &800, 0, 0
      SYS AM$, H%, 0, 24, "E&xit"
      SYS "CreatePopupMenu" TO E%
      SYS AM$, E%, 0, 30, "&Undo"
      SYS AM$, E%, &800, 0, 0
      SYS AM$, E%, 0, 31, "Cu&t"
      SYS AM$, E%, 0, 32, "&Copy"
      SYS AM$, E%, 0, 33, "&Paste"
      SYS AM$, E%, 0, 34, "De&lete"
      SYS AM$, E%, &800, 0, 0
      SYS AM$, E%, 0, 35, "Select &All"
      SYS "CreatePopupMenu" TO O%
      SYS AM$, O%, 0, 40, "Set &Font"
      SYS "CreateMenu" TO M%
      SYS "SetMenu", @hwnd%, M%
      SYS AM$, M%, 16, H%, "&File"
      SYS AM$, M%, 16, E%, "&Edit"
      SYS AM$, M%, 16, O%, "&Options"
      SYS "DrawMenuBar", @hwnd%
      
      REM Set up RichEdit Control
      DIM CHARFORMAT{cbSize%,          \
      \              dwMask%,          \
      \              dwEffects%,       \
      \              yHeight%,         \
      \              yOffset%,         \
      \              crTextColor%,     \
      \              bCharSet&,        \
      \              bPitchAndFamily&, \
      \              szFaceName&(31),  \
      \              padding&(1)      }
      
      fontsize% = 12
      fontname$ = "Times"
      bckgrdcolour% = &204030 : REM Horrible Greeny colour
      textcolour% = &FFFFFF   : REM White
      
      SYS "LoadLibrary", "RICHED20.DLL" TO hRichEditDLL%
      IF hRichEditDLL%=0 THEN ERROR 100,"Failed to load MSFTEDIT.DLL"
      
      id_richedit% = 100
      
      hRichEdit% = FN_createwindow(@hwnd%,       \
      \                      "RichEdit20A",                             \
      \                      "",                                                \
      \                      @vdu%!208/2,                            \
      \                      0,                                                \
      \                      @vdu%!208-@vdu%!208/2,          \
      \                      @vdu%!212-20,                          \
      \                      id_richedit%,                               \
      \                      WS_BORDER OR ES_MULTILINE OR ES_AUTOHSCROLL OR ES_AUTOVSCROLL OR ES_NOHIDESEL, \
      \                      0                  )
      
      :\
      \\ Set Richedit FONT
      \
      CHARFORMAT.cbSize% = DIM(CHARFORMAT{})
      CHARFORMAT.dwMask% = CFM_BOLD OR CFM_ITALIC OR CFM_UNDERLINE OR \
      \              CFM_STRIKEOUT OR CFM_FACE OR CFM_COLOR OR CFM_SIZE
      CHARFORMAT.dwEffects% = 0
      CHARFORMAT.yHeight% = fontsize%*20
      CHARFORMAT.crTextColor% = textcolour%
      CHARFORMAT.szFaceName&() = fontname$
      SYS "SendMessage", hRichEdit%, EM_SETCHARFORMAT, SCF_ALL, CHARFORMAT{}
      SYS "SendMessage", hRichEdit%, EM_SETBKGNDCOLOR, 0, bckgrdcolour%
      SYS "SendMessage", hRichEdit%, EM_SHOWSCROLLBAR, SB_VERT, _TRUE
      SYS "SendMessage", hRichEdit%, EM_SHOWSCROLLBAR, SB_HORZ, _TRUE
      SYS "SendMessage", hRichEdit%, EM_SETEVENTMASK, 0, ENM_KEYEVENTS OR ENM_MOUSEEVENTS OR ENM_CHANGE
      SYS "SendMessage", hRichEdit%, EM_EXLIMITTEXT, 0, 20000
      
      ON ERROR PROC_Cleanup:PROC_Error:QUIT
      ON CLOSE PROC_Cleanup:QUIT
      
      :\
      \\ Main Loop
      \
      DIM Msg%(2), msg%(2)
      Msg%() = -1
      ON SYS Msg%() = @msg%,@wparam%,@lparam% : RETURN
      
      REPEAT
        
        msg%(0) = INKEY(1)
        SWAP Msg%(), msg%()
        
        CASE msg%(0) OF
          WHEN WM_COMMAND:
            :\
            \\ when the user selects a command item from a menu,
            \\ when a control sends a notification message to its parent window,
            \\ or when an accelerator keystroke is translated.
            \\
            \\ msg%(0) = WM_COMMAND
            \\ msg%(1) = wParam
            \\ msg%(2)  =lParam
            \\
            \\ msg%(1) = high word, 0 Menu, 1 Accelerator, x control
            \\ msg%(1) = low word, IDM_* menu, IDM_* accelerator, control id
            \
            PRINT msg%(0), msg%(1), msg%(2)
            highword% = msg%(1) >> 16
            lowword% = msg%(1) AND &FFFF
            
            CASE msg%(1) OF
                
              WHEN 24:
                PROC_Cleanup
                QUIT
                
            ENDCASE
            
        ENDCASE
      UNTIL FALSE
      
      
      :\
      \\ Free Library at the end
      \
      DEF PROC_Cleanup
      hRichEdit% += 0 : PROC_closewindow (hRichEdit%)
      SYS "FreeLibrary", hRichEditDLL%
      ENDPROC
      
      DEF PROC_Error
      SYS "MessageBox", @hwnd%, REPORT$, STR$ERR, 0
      ENDPROC
 

      DEFFNRichEditStreamIn(filename$)
      LOCAL hFile%, R%
      REM Get the file handle
      SYS "CreateFile", filename$, GENERIC_READ, FILE_SHARE_READ, 0, OPEN_EXISTING, FILE_FLAG_SEQUENTIAL_SCAN, 0 TO hFile%
      IF hFile% = INVALID_HANDLE_VALUE THEN
        SYS "MessageBox",@hwnd%, "File not found.","",0
        = 0
      ENDIF
      REM Create the EDITSTREAM structure
      LOCAL EDITSTREAM{}
      DIM EDITSTREAM{dwCookie%, dwError%, pfnCallBack%}
      EDITSTREAM.dwCookie%    = hFile%
      EDITSTREAM.pfnCallBack% = FN_callback(FNEditStream(),4)
      SYS FN_syscalls("SendMessage"), hRichEdit%, EM_STREAMIN, SF_RTF, EDITSTREAM{}
      R% = FN_sysresult
      REM Close the file
      SYS "CloseHandle", hFile%
      =R%
      
      DEF FNEditStream(dwCookie%, buffer%, cb%, pcb%)
      LOCAL R%
      SYS "ReadFile", dwCookie%, buffer%, cb%, pcb%, 0 TO R%
      = (R%=0)