well the code should work, but you need to set up the userlib stuff the right way. Are you familar with this DECLS stuff?
At the end of the source it says
This means you need (if they do not already exist) to create two files in the "userlibs" folder of your Blitz3D intallation folder, one is named "User32.decls" and the second is named "Gdi32.decls". You may open them with notepad, then paste those lines to the files and save them. Then restart Blitz and the example. I think I have tested it some time ago.
At the end of the source it says
Lines needed in Userlib: User32.decls FindWindow%( class$,Text$ ):"FindWindowA" ShowWindow(hwnd%,nCmdShow%) GetActiveWindow%() GetDC%(hWnd% ) ReleaseDC%(hWnd%,hDC%) GetDesktopWindow%() GetSystemMetrics%(nIndext%) Lines needed in Userlib: Gdi32.decls BitBlt%(hDestDC%,X%,Y%,nWidth%,nHeight%,hSrcDC,XSrc,YSrc,dwRop)
This means you need (if they do not already exist) to create two files in the "userlibs" folder of your Blitz3D intallation folder, one is named "User32.decls" and the second is named "Gdi32.decls". You may open them with notepad, then paste those lines to the files and save them. Then restart Blitz and the example. I think I have tested it some time ago.