Now that I have some details .. (thanks koekjesbaby!!)
The offending item was this * command just after selecting the videomode (don't ask me why it's there!!). Strange how it worked on other machines though? I've removed it but will probably be a few days before I can get it uploaded again.
* Graphics3D 640,480,0,2
This is how the 'borrowed from 3d examples' code sets the windowed mode, do I have to set a depth?
Function SetGfx()
Print info1$:Print info2$:Print info3$:Print info4$:Print
If Windowed3D()
yn$=Input$( "Use windowed mode?" )
If Left$( Lower$( yn$ ),1 )="y"
HidePointer
Graphics3D 640,480,0,2
SetBuffer BackBuffer()
Return
EndIf
EndIf
The offending item was this * command just after selecting the videomode (don't ask me why it's there!!). Strange how it worked on other machines though? I've removed it but will probably be a few days before I can get it uploaded again.
* Graphics3D 640,480,0,2
This is how the 'borrowed from 3d examples' code sets the windowed mode, do I have to set a depth?
Function SetGfx()
Print info1$:Print info2$:Print info3$:Print info4$:Print
If Windowed3D()
yn$=Input$( "Use windowed mode?" )
If Left$( Lower$( yn$ ),1 )="y"
HidePointer
Graphics3D 640,480,0,2
SetBuffer BackBuffer()
Return
EndIf
EndIf