home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 001 / powerup_zi / POWERUP.OPL < prev    next >
Text File  |  1994-09-21  |  452b  |  23 lines
  1. PROC POWERUP:
  2.     REM Plays a .WVE file on power up
  3.     REM Developed by: R. Steve Walker
  4.     REM Email ccocssw@acme.gatech.edu
  5.     local ev%(6), name$(128)
  6.     cache 2000,2000
  7.     REM Change the wave file as you prefer
  8.     name$ = "\wve\tricord"+chr$(0)
  9.     call ($6c8d)
  10.     gUPDATE
  11.     call ($198d,100,0)
  12.     gUPDATE
  13.     do
  14.       do
  15.       getevent ev%()
  16.       if ev%(1)=$404
  17.         stop
  18.         endif
  19.       until ev%(1)=$403
  20.       call ($1F86,UADD(ADDR(name$),1),0,0)
  21.       until 0
  22. ENDP
  23.