home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / utilsm / panic / OPL / PANIC.OPL
Text File  |  1994-05-29  |  481b  |  30 lines
  1. APP Panic
  2.     type $1000
  3.     icon "m:\pic\dp.pic"
  4. ENDA
  5.  
  6. PROC panic:
  7.     global a%(6),id%,sn$(16)
  8.     sn$="a:\wve\on.wve"+chr$(0)
  9.     id%=gloadbit("a:\pic\panic.pic",0,0)
  10.     guse 1
  11.     gat 74,24
  12.     gcopy id%,0,0,332,112,0
  13.     gclose id%
  14.     call($6c8d)
  15.     gupdate
  16.     while 1
  17.       do
  18.         getevent a%()
  19.         if a%(1)=$404 or a%(1)=$278
  20.           stop
  21.         endif
  22.       until a%(1)=$403
  23.       call($198d,0,0)
  24.       gupdate
  25.       call(&1f86,uadd(addr(sn$),1),0)
  26.       call($198d,100,0)
  27.       gupdate
  28.     endwh
  29. ENDP
  30.