home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / PSION / MISC / MUSIC / MUSITEST.OPL < prev    next >
Encoding:
Text File  |  1994-10-14  |  274 b   |  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.