home *** CD-ROM | disk | FTP | other *** search
/ Copernicus 1996 #3 / Image.iso / program / dfue / gdi.sc_ / gdi.sc
Encoding:
Text File  |  1996-04-22  |  354 b   |  21 lines
  1. ; Gdi.scr - draw unicom boxes on screen
  2. i = 0
  3. j = 0
  4. GdiCreatePen(0, 1,255,0,0)
  5. GdiCreateBrush(0,0,0)
  6. while (j< 350)
  7. i=0
  8. while (i<640)   
  9.       l = 0
  10.         while (l < 20)
  11.         GdiRectangle(i-l,j+l,i+40+l,j+60-l)
  12.         l = l+5
  13.         endwhile
  14.         gditextout(i - l/2,j+l,"UNICOM")
  15.     i=i+80
  16.   endwhile
  17. j=j+60
  18. endwhile
  19. exit
  20.  
  21.