home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / Src / Tools / Pt / Player.e
Encoding:
Text File  |  1992-09-02  |  373 b   |  17 lines
  1. -> protracker player
  2.  
  3. MODULE 'tools/file', 'tools/pt', 'tools/exceptions'
  4.  
  5. PROC main() HANDLE
  6.   DEF m,l
  7.   WriteF('Protracker player in E (now playing: "\s", Ctrl-C to stop).\n',arg)
  8.   m,l:=readfile(arg,0,2)
  9.   pt_play(m)
  10.   REPEAT
  11.     Delay(10)      -> instead, we could be doing something very usefull here
  12.   UNTIL CtrlC()
  13.   pt_stop()
  14. EXCEPT DO
  15.   report_exception()
  16. ENDPROC
  17.