home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 004 / oplexamp_z / PICINOPL.TXT < prev    next >
Text File  |  1993-03-31  |  2KB  |  52 lines
  1.  
  2. Ä Area: [FIDO] PSION echo ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3.   Msg#: 6868            Rec'd Sent Local             Date: 03-30-93  19:15
  4.   From: David Lee                                    Read: Yes    Replied: No 
  5.     To: Steve Litchfield                             Mark:                     
  6.   Subj: Storing .Pic files in OPAs
  7. ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  8. Hello Steve ,
  9.  
  10. I seem to remember you wanting to know how to store Pic files in OPA
  11. applications. The following code demonstrates one way of doing this.
  12.  
  13. PROC opapic:
  14.     local id%,wi%,ht%
  15.     local f$(128),buf%(100)
  16.     local h%,l%,o%
  17.     f$=cmd$(1)
  18.     while 1
  19.         dInit
  20.         dFile f$,"Icon:",0
  21.         if dialog=0 :stop :endif
  22.         l%=ioopen(h%,f$,$400)
  23.         if l% :goto cl2 :endif
  24.         l%=ioread(h%,addr(buf%(1)),200)
  25.         if l%<=140 :goto cl :endif
  26.         if buf%(1)<>%O+(%P*256) :goto cl :endif
  27.         if buf%(2)<>%L+(%O*256) :goto cl :endif
  28.         o%=23+(buf%(11) and $ff)
  29.         l%=peekw(addr(buf%(1))+o%)
  30.         if l%<>%P+(%I*256) :goto cl :endif
  31.         if l%=0 :goto cl :endif
  32.         call($5f8d,1,o%,0,0,0)
  33. cl::    ioclose(h%)
  34. cl2::   onerr t
  35.         id%=gLoadBit(f$)
  36.         wi%=gWidth :ht%=gHeight
  37.         gUse 1
  38.         gMove 0,0: gFill 240,80,1
  39.         gCopy id%,0,0,wi%,ht%,3
  40.         get
  41.         gClose id%
  42.         continue
  43. t::     onerr off
  44.         beep 5,300
  45.     endwh
  46. ENDP
  47.  
  48. -!-
  49.  ! Origin: For PSION 2/3 try -*FP*- 081-759-3332/6664 (2:440/99)
  50.  
  51.  
  52.