home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / utilsm / musi3a / MUSITEST.OPL < prev    next >
Text File  |  1994-10-14  |  274b  |  17 lines
  1. PROC test:
  2. local fil$(128),r%
  3. loadm "m:\opo\tunplay.opa"
  4. fil$ = "m:\tun\marziale.snd"
  5. while 1
  6.     dinit "Tune player"
  7.     dfile fil$,"Tune",16
  8.     if dialog = 0 : break : endif
  9.     print fil$
  10.     r% = tunplay%:(fil$,1)
  11.     if r%
  12.         print "Response:",r%
  13.         get
  14.     endif
  15. endwh
  16. ENDP
  17.