God bless America "American Flag" by Allden

[pistol350]

Code Select Expand



def w:window
def i,l:int
window w,0,0,275,132,@NOCAPTION|@BORDER,0,"GodBlessAmerica",p
frontpen w,rgb(255,255,255)
drawmode w,@transparent
for i=0 to 13
if int(i/2)*2 =i then rect w,0,i*10,400,10,0,255
line w,0,i*10,400,i*10,0
next i
rect w,0,0,125,70,0,rgb(0,0,255)
for i=1 to 5
for l=1 to 6
move w,l*20-10,i*11-5
print w,"*"
next l
next i
for i=1 to 4
for l=1 to 5
move w,l*20,i*11
print w,"*"
next l
next i
waituntil w=0
end
p:
select @class
case @idcreate
centerwindow w
case @IDKEYDOWN
closewindow w
case @idclosewindow
closewindow w
endselect
return