home *** CD-ROM | disk | FTP | other *** search
/ Windows CE - The Ultimate Companion / ROMMAN_CE.iso / Files / Programming / Basice / LIB / GR_INIT.UTL < prev    next >
Text File  |  1997-03-14  |  248b  |  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.