#N88BASIC
Declare Function EnumWindows Lib"user32" (lpEnumFunc As VoidPtr, lp As DWord) As DWord
Dim count As Long
Function EnumWindowsProc(hwnd As HWND, lp As DWord) As DWord
Dim ttl[555] As Byte
GetWindowText(hwnd, ttl, 555)
If ttl[0] <> 0 Then
Print Hex$(hwnd) + " " + MakeStr(ttl)
count++
If count = 20 Then
Input ttl
count = 0
End If
End If
EnumWindowsProc=TRUE
End Function
EnumWindows(AddressOf(EnumWindowsProc), 0)
