home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / opl / pbm2p008_t / pbm2p008_t~ / conv / picview.opl < prev    next >
Text File  |  1994-02-17  |  500b  |  25 lines
  1. proc transmit:
  2.     local is%, ib%, ig%, w%, h%, file$(128)
  3.     
  4.     is% = gcreate(0,0,480,160,1, 1)
  5.     file$ = "\pic\"
  6.     while 1
  7.         gcls : ggrey 0 : gcls
  8.         dinit "Choose a picture"
  9.         dfile file$,"Filename",2
  10.         if dialog = 0 : stop : endif
  11.         ib% = gloadbit(file$, 0, 0)
  12.         ig% = gloadbit(file$, 0, 1)
  13.         w% = gwidth : h% = gheight
  14.         guse is%
  15.         gcopy ib%,0,0,w%, h%, 0 : ggrey 1
  16.         gcopy ig%,0,0,w%, h%, 0
  17.         gclose ib% : gclose ig%
  18.         do
  19.           ib% = get
  20.         until ib% = 32 or ib% = 13
  21.     endwh
  22. endp
  23.  
  24.  
  25.