home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / src / gfx / colourscreen.e < prev    next >
Text File  |  2001-03-31  |  287b  |  15 lines
  1. /* _Very_ simple customscreen-demo */
  2.  
  3. PROC main()
  4.   DEF screen,sx,sy
  5.   IF screen:=OpenS(321,257,5,0,'My Screen')
  6.     REPEAT
  7.       FOR sx:=0 TO 320
  8.         FOR sy:=0 TO 256 DO Plot(sx,sy,sx*sy+1)
  9.         EXIT Mouse()=1
  10.       ENDFOR
  11.     UNTIL Mouse()=1
  12.     CloseS(screen)
  13.   ENDIF
  14. ENDPROC
  15.