home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / filer-3.14.lha / Filer / Rexx / Tape.filer < prev    next >
Encoding:
Text File  |  1993-11-27  |  1.9 KB  |  73 lines
  1. /*
  2.     $VER: Tape.filer 1.2 (26.11.93)
  3.  
  4.     Author:
  5.         Robert Rethemeyer                (rr)
  6.             tape.rexx from BTN distrib
  7.         Michael Böhnisch (billy@uni-paderborn.de)    (mb)
  8.             Modified to interface Filer,
  9.             general cleanup
  10.  
  11.     Function:
  12.         Sends useful commands to tape drive via BTN handler.
  13.  
  14.     Call:
  15.         Tape REWIND    Rewind medium
  16.         Tape RETENSION    Retension medium
  17.         Tape END    Position to end of recorded medium
  18.         Tape BACKWARD    Position on start of previous file
  19.         Tape FORWARD    Position on start of next file
  20.         Tape WFM    Write file mark to tape
  21.         Tape ERASE    Erase medium
  22.  
  23.     Example for Filer.RC:
  24.         XBUTTON 2,3,1,1,"End","Tape END"
  25.         XBUTTON 2,0,1,1,"Rewind","Tape REWIND"
  26.         XBUTTON 2,0,2,1,"Retension","Tape RETENSION"
  27.         XBUTTON 2,1,1,1,"Back","Tape BACKWARD"
  28.         XBUTTON 2,1,2,1,"Write FM","Tape WFM"
  29.         XBUTTON 2,2,1,1,"Fwd","Tape FORWARD"
  30.         XBUTTON 2,2,2,4,"Erase","Tape ERASE"
  31.  
  32.     History:
  33.         22.10.91    (1.0) Initial Release (BTN packet, rr)
  34.         23.09.93    1.1 Changed to accomodate Filer (mb)
  35.         26.11.93    1.2 Review for Filer 3.10 Gamma 2
  36. */
  37.  
  38. OPTIONS RESULTS
  39.  
  40. ADDRESS 'FilerRexx'
  41.  
  42. PANEL OFF
  43.  
  44. PARSE ARG cmd .
  45.  
  46. drive = "TAPE"
  47.  
  48. SELECT
  49.   WHEN abbrev( "REWIND"   , cmd, 3 ) THEN edata = "01"
  50.   WHEN abbrev( "RETENSION", cmd, 3 ) THEN edata = "1B 00 00 00 03 00"
  51.   WHEN abbrev( "END"      , cmd, 3 ) THEN edata = "11 03"
  52.   WHEN abbrev( "WFM"      , cmd, 3 ) THEN edata = "10 00 00 00 01"
  53.   WHEN abbrev( "FORWARD"  , cmd, 1 ) THEN edata = "11 01 00 00 01"
  54.   WHEN abbrev( "BACKWARD" , cmd, 1 ) THEN DO
  55.     SHELL COMMAND 'echo >'drive':RAWCMD "11 01 FF FF FE"' /* 2 steps back   */
  56.     edata = "11 01 00 00 01"                  /* 1 step forward */
  57.   END
  58.   WHEN abbrev( "ERASE"    , cmd, 3 ) THEN DO
  59.     QUESTBOX "REALLY erase Tape?"
  60.     IF RESULT = 'RESULT' THEN EXIT 5
  61.     IF RESULT = 0 THEN SIGNAL byebye
  62.     SHELL COMMAND 'echo >'drive':RAWCMD "01"'          /* rewind first   */
  63.     edata = "19 01"
  64.   END
  65.   OTHERWISE
  66. END
  67.  
  68. SHELL COMMAND 'echo >'drive':RAWCMD "'edata'"'
  69.  
  70. byebye:
  71.   PANEL ON
  72.   EXIT
  73.