/* CDx-650 ARexx example -- Experiment with ARexx commands */

port_name = "CDX650"

if (~show('p',port_name)) then do
   say "cdx.device not running.  Use FireUpCDx or set option in CD_Install."
   exit
end

address value port_name
options results

do forever
   say ""
   say "Supported commands:"
   say "   CDCHANGECOUNT               CDCONVERTSECTOR sector"
   say "   CDCONVERTTIME min sec frm   CDPLAY start length"
   say "   CDCURRENTLOC                CDPLAYSYNC start length"
   say "   CDDRIVETYPE                 CDPLAYTRACKS track count"
   say "   CDEJECT                     CDRESUME"
   say "   CDEJECTBUTTON flag          CDROUTE left right"
   say "   CDGETROUTE                  CDSETVOLUME left right"
   say "   CDGETVOLUME                 CDSKIPFWD amount"
   say "   CDISROM                     CDSKIPRVS amount"
   say "   CDLEADOUT                   CDSTATUS"
   say "   CDNUMTRACKS                 CDSTOP"
   say "   CDPAUSE                     CDTRACKLOC track"
   say ""
   say "Please enter your command: ('quit' to exit)"
   parse pull command

   if (command = 'quit') then
      break;
   else
      do
         command
         if (rc==0) then do
            parse var result p1 p2 p3 p4
            say p1 p2 p3 p4
         end
         else do
            say "Error!"
         end
      end
end

exit