home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / dev / AmigaE / E_v3.2a / Src / Tools / Pt / Player.e
Text File  |  1992-09-02  |  373b  |  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.