REM Demo of filling a ListView Control with Dummy Data
      
      HIMEM = LOMEM + &1000000
      
      MODE 8
      
      REM Install Libraries
      INSTALL @lib$ + "WINLIB5"
      
      REM!WC Windows Constants
      LVIS_SELECTED = &2
      LVM_SETCOLUMNWIDTH = &101E
      LVSCW_AUTOSIZE = -1
      LVS_REPORT = &1
      
      REM Define lvitem and lvcolumn structures
      DIM lvitem{mask%,   \
      \   iItem%,         \
      \   iSubItem%,      \
      \   state%,         \
      \   stateMask%,     \
      \   pszText%,       \
      \   cchTextMax%,    \
      \   iImage%,        \
      \   lParam%,        \
      \   iIndent%       }
      
      
      DIM column{mask%,  \
      \   fmt%,          \
      \   cx%,           \
      \   pszText%,      \
      \   cchTextMax%,   \
      \   iSubItem%     }
      column.mask% = 15 : REM LVCF_WIDTH | LVCF_SUBITEM | LVCF_FMT | LVCF_TEXT
      
      REM Define the number of row and columns (includes 0)
      MAXCOL% = 599
      MAXROW% = 599
      
      REM Create Dummy Data
      DIM Data$(MAXCOL%, MAXROW%)
      FOR col% = 0 TO MAXCOL%
        FOR row% = 0 TO MAXROW%
          Data$(row%,col%) = STR$(row%) + STR$(col%) + CHR$0
        NEXT
      NEXT
      
      REM Create a list View
      SYS "InitCommonControls"
      hList% = FN_createwindow("SysListView32","",100,100,400,400,0,LVS_REPORT,0) : REM LVS_REPORT
      
      REM Assemble our machine code routine
      PROC_AssembleMachineCode
      
      
      REM Insert the Headers of the list View
      FOR C% = 0 TO MAXCOL%
        head$ = STR$(C%) + CHR$0
        column.cx% = 50
        column.pszText% = !^head$
        column.iSubItem% = C%
        SYS "SendMessage", hList%, &101B, C%, column{} : REM LVM_INSERTCOLUMN
      NEXT
            
      SYS "CreateThread", 0, 1024, FillListView, 0, 0, 0 TO hThread%
      IF hThread% = 0 THEN ERROR,"Failed to create Thread 1."
      
      REM Or you could do something like this Matt
      REM I% = 0
      REM REPEAT
      REM I% += 1
      REM PRINT TAB(0,0) "In the meantime I'm going to count to ";I%
      REM SYS "WaitForSingleObject", hThread%, 1 TO R%
      REM UNTIL R% = 0
      
      f% = 12000
      f% = (f% DIV 4) * 14
      DIM f%(f%)
      f%() = 2000
      a% = 10000
      e% = 0
      FOR c% = f% TO 14 STEP -14
        d% = 0
        FOR b% = c% TO 1 STEP -1
          d% *= b%
          g% = b%*2-1
          d% += f%(b%)*a%
          f%(b%) = d% MOD g%
          d% DIV= g%
        NEXT
        PRINT RIGHT$("000"+STR$(e% + d% DIV a%),4);
        e% = d% MOD a%
        
        SYS "WaitForSingleObject", hThread%, 1 TO R%
        IF R% = 0 THEN EXIT FOR
        
        
      NEXT
      
      END
      
      REM **** PROCEDURES ****
      
      DEF PROCaddtolist(R%, C%, text$)
      text$ += CHR$0
      lvitem.mask% = 13 : REM LVIF_TEXT | LVIF_STATE | LVIF_PARAM
      lvitem.stateMask% = LVIS_SELECTED
      lvitem.iItem% = R%
      lvitem.iSubItem% = C%
      lvitem.pszText% = !^text$
      lvitem.cchTextMax% = LENtext$
      REM lvitem.lParam% = I% : REM Must Write this parameter for sort to work
      IF C% THEN
        SYS "SendMessage", hList%, &102E, R%, lvitem{} : REM LVM_SETITEMTEXT
      ELSE
        SYS "SendMessage", hList%, &1007, R%, lvitem{} : REM LVM_INSERTITEM
      ENDIF
      ENDPROC
      
      DEF PROCReSizeColumns(O%)
      LOCAL I%
      FOR I%=0 TO MAXCOL%
        SYS "SendMessage", hList%, LVM_SETCOLUMNWIDTH, I%, O%
      NEXT
      SYS "RedrawWindow", hList% , 0, 0, &101
      ENDPROC
      
      DEF PROC_AssembleMachineCode
      LOCAL P%, L%, code%, opt%
      DIM code% 500, L% -1
      FOR opt% = 8 TO 10 STEP 2
        P% = code%
        [OPT opt%
        .FillListView
        
        mov esi, 0
        
        .outerloop
        mov edi, 0
        
        .innerloop
        mov edx, ^Data$(0,0)
        mov ecx, esi
        imul ecx, MAXCOL% + 1
        add ecx, edi
        imul ecx, 6
        mov eax, [edx + ecx]
        
        mov dword [^lvitem.mask%], 13                   ;REM LVIF_TEXT | LVIF_STATE | LVIF_PARAM
        mov dword [^lvitem.stateMask%], LVIS_SELECTED
        mov dword [^lvitem.iItem%], edi
        mov dword [^lvitem.iSubItem%], esi
        mov dword [^lvitem.pszText%], eax
        mov dword [^lvitem.cchTextMax%], 20             ;REM max text size
        mov dword [^lvitem.lParam%], I%                ;REM Must Write this parameter for sort to work
        
        cmp esi,0
        je insert
        
        push lvitem{}
        push edi
        push &102E
        push hList%
        call "SendMessage"
        jmp next
        
        .insert
        push lvitem{}
        push edi
        push &1007
        push hList%
        call "SendMessage"
        
        .next
        inc edi
        cmp edi, [^MAXROW%]
        jbe near innerloop
        
        inc esi
        cmp esi, [^MAXCOL%]
        jbe near outerloop
        
        ret
        ]
      NEXT
      ENDPROC
 

      INSTALL @lib$+"WINLIB3"
      MODE 20  :REM 800 x 600 pixels
      maxdata%=10000
      lines_onscreen%=25
      temp%=maxdata%+1
      ON CLOSE PROC_removetrackbar(tb%):PRINT "Closed":END
      ON ERROR PROC_removetrackbar(tb%):END
      REM Set up dummy data
      DIM m$(maxdata%)
      FOR x%=0 TO maxdata%
        m$(x%)="This is the text of message "+STR$(x%)
      NEXT x%
      
      REM Set up a trackbar to control which bit to look at
      tb%=FN_createtrackbar(@hwnd%,600,10,20,580,2)
      PROC_showtrackbar(tb%,maxdata%-lines_onscreen%)
      REPEAT
        top%=FN_trackbarpos(tb%)
        IF temp%<>top% THEN
          bottom%=top%+lines_onscreen%
          b$=FNblock(m$(),top%,bottom%)
          CLS
          PRINT b$
        ENDIF
        temp%=top%
      UNTIL FALSE
      PROC_removetrackbar(tb%)
      END
      
      :
      DEFFNblock(m$(),t%,b%)
      LOCAL x%,t$
      FOR x%=t% TO b%
        t$+=m$(x%)+CHR$(10)+CHR$(13)
      NEXT x%
      =t$