home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / cpicsamp.zip / a2e.cmd next >
OS/2 REXX Batch file  |  1995-02-20  |  3KB  |  53 lines
  1. /*       this is a REXX shell                                        */
  2.  TBC= "000102030405060708090A0B0C0D0E0F"X ||,  /* 00  */
  3.       "101112131415161718191A1B1C1D1E1F"X ||,  /* 10  */
  4.       "202122232425262728292A2B2C2D2E2F"X ||,  /* 20  */
  5.       "303132333435363738393A3B3C3D3E3F"X ||,  /* 30  */
  6.       "404142434445464748494A4B4C4D4E4F"X ||,  /* 40  */
  7.       "505152535455565758595A5B5C5D5E5F"X ||,  /* 50  */
  8.       "606162636465666768696A6B6C6D6E6F"X ||,  /* 60  */
  9.       "707172737475767778797A7B7C7D7E7F"X ||,  /* 70  */
  10.       "808182838485868788898A8B8C8D8E8F"X ||,  /* 80  */
  11.       "909192939495969798999A9B9C9D9E9F"X ||,  /* 90  */
  12.       "A0A1A2A3A4A5A6A7A8A9AAABACADAEAF"X ||,  /* A0  */
  13.       "B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF"X ||,  /* B0  */
  14.       "C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF"X ||,  /* C0  */
  15.       "D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF"X ||,  /* D0  */
  16.       "E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF"X ||,  /* E0  */
  17.       "F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF"X      /* F0  */
  18.  EBC= "00010203372D2E2F1605250B0C0D0E0F"X ||,  /* 00  */
  19.       "101112133C3D322618193F271C1D1E1F"X ||,  /* 10  */
  20.       "405A7F7B5B6C507D4D5D5C4E6B604B61"X ||,  /* 20  */
  21.       "F0F1F2F3F4F5F6F7F8F97A5E4C7E6E6F"X ||,  /* 30  */
  22.       "7CC1C2C3C4C5C6C7C8C9D1D2D3D4D5D6"X ||,  /* 40  */
  23.       "D7D8D9E2E3E4E5E6E7E8E9BAE0BBB06D"X ||,  /* 50  */
  24.       "79818283848586878889919293949596"X ||,  /* 60  */
  25.       "979899A2A3A4A5A6A7A8A9C04FD0A107"X ||,  /* 70  */
  26.       "68DC5142434447485253545756586367"X ||,  /* 80  */
  27.       "719C9ECBCCCDDBDDDFECFC70B180BFFF"X ||,  /* 90  */
  28.       "4555CEDE49699A9BABAF5FB8B7AA8A8B"X ||,  /* A0  */
  29.       "2B2C092128656264B4383134334AB224"X ||,  /* B0  */
  30.       "22172906202A46661A35083936303A9F"X ||,  /* C0  */
  31.       "8CAC7273740A757677231514046A783B"X ||,  /* D0  */
  32.       "EE59EBEDCFEFA08EAEFEFBFD8DADBCBE"X ||,  /* E0  */
  33.       "CA8F1BB9B6B5E19D90BDB3DAFAEA3E41"X      /* F0  */
  34.  ASC= "00010203DC09C37FCAB2D50B0C0D0E0F"X ||,  /* 00  */
  35.       "10111213DBDA08C11819C8F21C1D1E1F"X ||,  /* 10  */
  36.       "C4B3C0D9BF0A171BB4C2C5B0B1050607"X ||,  /* 20  */
  37.       "CDBA16BCBBC9CC04B9CBCEDF1415FE1A"X ||,  /* 30  */
  38.       "20FF838485A0C68687A4BD2E3C282B7C"X ||,  /* 40  */
  39.       "268288898AA18C8B8DE121242A293BAA"X ||,  /* 50  */
  40.       "2D2FB68EB7B5C78F80A5DD2C255F3E3F"X ||,  /* 60  */
  41.       "9B90D2D3D4D6D7D8DE603A2340273D22"X ||,  /* 70  */
  42.       "9D616263646566676869AEAFD0ECE7F1"X ||,  /* 80  */
  43.       "F86A6B6C6D6E6F707172A6A791F792CF"X ||,  /* 90  */
  44.       "E67E737475767778797AADA8D1EDE8A9"X ||,  /* A0  */
  45.       "5E9CBEFAB8F5F4ACABF35B5DEEF9EF9E"X ||,  /* B0  */
  46.       "7B414243444546474849F0939495A2E4"X ||,  /* C0  */
  47.       "7D4A4B4C4D4E4F505152FB968197A398"X ||,  /* D0  */
  48.       "5CF6535455565758595AFDE299E3E0E5"X ||,  /* E0  */
  49.       "30313233343536373839FCEA9AEBE99F"X      /* F0  */
  50.  ascii=translate(inputline,asc,tbc)
  51.  ebcdic=translate(inputline,ebc,tbc)
  52.  exit 0
  53.