'' examples/manual/gfx/screencopy.bas
''
'' Example extracted from the FreeBASIC Manual
'' from topic 'SCREENCOPY'
''
'' See Also: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgScreencopy
'' --------

'' 320x200x8, with 3 pages
'' Mode 13 is the documented compatibility mode for this page-copy lesson.
'' FB-LINTER: DISABLE-NEXT-LINE FBL734
Screen 13,, 3

'' image for working page #1 (visible page #0)
ScreenSet 1, 0
Cls
Circle( 160, 100 ), 90, 1 ,,,, f
Circle( 160, 100 ), 90, 15
Print "Press 2 to copy page #2 to visible page"
Print "Press escape to exit"

'' image for working page #2 (visible page #0)
ScreenSet 2, 0
Cls
Line( 50, 50 )-( 270, 150 ), 2, bf
Line( 50, 50 )-( 270, 150 ), 15, b
Print "Press 1 to copy page #1 to visible page"
Print "Press escape to exit"

'' page #0 is the working page (visible page #0)
ScreenSet 0, 0
Cls
Print "Press 1 to copy page #1 to visible page"
Print "Press 2 to copy page #2 to visible page"
Print "Press escape to exit"

Dim k As String

Do
  k = Inkey
  Select Case k
  Case Chr(27)
	Exit Do
  Case "1"
	ScreenCopy 1, 0
  Case "2"
	ScreenCopy 2, 0
  End Select

	' Limit the animation cadence while allowing input events to be processed.
	' FB-LINTER: DISABLE-NEXT-LINE FBL602
  Sleep 25
Loop