home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1995 May
/
cica_0595_4.zip
/
cica_0595_4
/
UTIL
/
UC3G-1
/
GDI.SCR
< prev
next >
Wrap
Text File
|
1992-07-15
|
354b
|
21 lines
; Gdi.scr - draw unicom boxes on screen
i = 0
j = 0
GdiCreatePen(0, 1,255,0,0)
GdiCreateBrush(0,0,0)
while (j< 350)
i=0
while (i<640)
l = 0
while (l < 20)
GdiRectangle(i-l,j+l,i+40+l,j+60-l)
l = l+5
endwhile
gditextout(i - l/2,j+l,"UNICOM")
i=i+80
endwhile
j=j+60
endwhile
exit