22 lines
503 B
Plaintext
22 lines
503 B
Plaintext
dim as integer i, w, h, d
|
|
|
|
for i = 0 to 21
|
|
if i>2 and i<7 then continue for 'screens 3-6 are not defined
|
|
screen i
|
|
screeninfo w, h, d
|
|
print "Screen ";i
|
|
print using "#### x ####, color depth ##";w;h;d
|
|
sleep
|
|
next i
|
|
|
|
'a more flexible alternative is ScreenRes
|
|
|
|
'this sets up a window of 1618x971 pixels, colour depth 8, and 2 pages
|
|
screenres 1618, 971, 8, 2
|
|
windowtitle "Foo bar baz"
|
|
sleep
|
|
|
|
|
|
'see https://documentation.help/FreeBASIC/KeyPgScreengraphics.html
|
|
'for more information
|