home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / developmen / s3asm2 / WIN.OPL < prev    next >
Text File  |  1994-06-02  |  363b  |  23 lines
  1. Rem
  2. Rem Window server example OPL stub
  3. Rem (c)1993 Krister Wombell
  4. Rem
  5.  
  6. PROC start:
  7.     global    wi%,ib%(64),wa%,a$(15),a%,gi%(32),i%
  8.  
  9.     gupdate    off
  10.     ginfo gi%()
  11.  
  12.     loadm "\opo\s3obj.opo"
  13.     wa%=loado:("b:\asm\win.bin")
  14.     ib%(1)=gi%(31)
  15.     ib%(2)=addr(a$)
  16.     a%=usr(wa%,addr(ib%(1)),0,0,0)
  17.     while 1
  18.         a%=usr(wa%,addr(ib%(1)),2,0,0)
  19.         gupdate
  20.     endwh
  21. ENDP
  22.  
  23.