home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / developmen / drawbit / DRAWBIT.OPL next >
Encoding:
Text File  |  1993-10-03  |  571 b   |  25 lines
  1. PROC test:
  2.   local i%(32),j%(6),fn$(130),c%,h%
  3.   local x%,y%    rem keep together
  4.   local tlx%,tly%,w%,h2%    rem keep together
  5.   local gc%(3)
  6.   defaultwin 1
  7.   ginfo i%(1)
  8.   print i%(31)
  9.   fn$=parse$("\opo\test\test.pic",cmd$(1),j%(1))
  10.   h%=call($e78d,addr(fn$)+1,0,0,addr(c%))
  11.   call($ea8d,h%,0,0,addr(w%))
  12.   print h%,c%
  13.   print w%,h2%
  14.   tlx%=0
  15.   tly%=0
  16.   call($228d,i%(31),0)
  17.   x%=20 :y%=30
  18.   call($e98d,addr(x%),h%,addr(tlx%),0,0)
  19.   gc%(2)=$100
  20.   call($248d,0,$20,addr(gc%(1)))
  21.   call($e98d,addr(x%),h%,addr(tlx%),1,0)
  22.   call($038d)
  23.   get
  24. ENDP
  25.