26 lines
491 B
Text
26 lines
491 B
Text
nomainwin
|
|
|
|
UpperLeftX=1
|
|
UpperLeftY=1
|
|
WindowWidth=DisplayWidth
|
|
WindowHeight=DisplayHeight
|
|
|
|
graphicbox #gr.gr, -1, -1, DisplayWidth+4, DisplayHeight+1
|
|
open "Pinstripe/Display" for window_popup as #gr
|
|
#gr.gr "down"
|
|
#gr.gr "trapclose [quit]"
|
|
#gr.gr "color black"
|
|
#gr.gr "backcolor black"
|
|
|
|
for w = 1 to 4
|
|
y1=y2
|
|
y2=y1+DisplayHeight/4
|
|
for x = w to DisplayWidth+4 step w*2
|
|
#gr.gr "place ";x;" ";y1;"; boxfilled ";x+w;" ";y2
|
|
next
|
|
next
|
|
wait
|
|
|
|
[quit]
|
|
close #gr
|
|
end
|