#565 Fullscreen fails to pcopy and screenset

[Anonymous]

When I set the screen to fullscreen, I thought that my code looped somewhere. I checked it again and again and at last I saw that the screen was not refreshing. Then I copied the example code;

ScreenRes 320, 240, 32, 2 'Sets up the screen to be 320x240 in 32-bit color with 2 video pages.
Dim As Integer max_x_value = 270, x_value = 50 'Dimension our working variables.

Do While x_value < max_x_value 'Loop while x_value is less than the max
ScreenSet 2,1 'Sets the working page to 2 and the displayed page to 1
Cls 'Clears the screen so we can start fresh
Circle (x_value,50),50,&h00FFFF00 'Draws a circle with a 50 pixel radius in yellow on page 2
ScreenSet 1,1 'Sets the working page to 1 and the displayed page to 1
ScreenSync 'Waits for vertical refresh
PCopy 2,1 'Copies our circle from page 2 to page 1
x_value += 1 'Increments x_value so it will move.
Sleep 25 'Waits for 25 milliseconds.
Loop 'Goes back to do as long as x_value is less than x_max_value

Sleep 'Waits for any key
end

it worked fine, then I changed the code (the first line, just added ',1') to set the screen to full size and the screen did not refreshed again...

OS: Win 7 home 64 bit 4 GB RAM
NVIDIA GT 540 M 2 GB RAM

[Anonymous]

P.S. my computer is a laptop (I hate them, 64k ems copy area is also gone) and when I run my code in fullscreen and then press esc to exit, it refresh for just 1 time and exits immediatly with no errors. (return 0)

[Anonymous]

screenset width, height, depth, numpages, 8 refreshes...