home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 August / augusty_2000.iso / Windows-CE / Applications / basice / GR_INIT.UTL < prev    next >
Encoding:
Text File  |  1997-07-08  |  248 b   |  13 lines
  1. procedure gr_init
  2.   gr_width# = 480
  3.   gr_height# = 188
  4.   gr_curx# = 0
  5.   gr_cury# = 0
  6.   gr_color% = 3
  7.   gr_curx% = 0
  8.   gr_cury% = 0
  9.   call gr_setwin(0,gr_width#,0,gr_height#)
  10.   call gr_setscale(0,1,0,1)
  11.   call color(gr_color%)
  12.   endproc
  13.