home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 August / CHIP_CD_1999_08_PL.iso / software / fax / faxserve5 / disk7 / FUNKEY.SC_ / FUNKEY.bin
Encoding:
Text File  |  1996-12-17  |  912 b   |  38 lines
  1. trace(0)
  2. @a = funkey;                    { get funckey }
  3. if ( @a = -1 ) goto :quit
  4. if ( substr(@a, 1, 1 ) = "D" ) goto :dfunkey; else goto :hfunkey
  5.  
  6. :dfunkey
  7.     @c = strseq("$7F", "255")
  8.     if ( @c = "" ) goto :quit
  9.     @c = concat("$22", @c)
  10.     @c = concat(@c, "$22")
  11.     if ( @a = "DF1" ) @f1 = "@c"
  12.     if ( @a = "DF2" ) @f2 = "@c"
  13.     if ( @a = "DF3" ) @f3 = "@c"
  14.     if ( @a = "DF4" ) @f4 = "@c"
  15.     if ( @a = "DF5" ) @f5 = "@c"
  16.     if ( @a = "DF6" ) @f6 = "@c"
  17.     if ( @a = "DF7" ) @f7 = "@c"
  18.     if ( @a = "DF8" ) @f8 = "@c"
  19.     if ( @a = "DF9" ) @f9 = "@c"
  20.     if ( @a = "DF10" ) @f10 = "@c"
  21.     goto :quit
  22.  
  23. :hfunkey
  24.     @c = strseq("$0d", "9")
  25.     if ( @c = "" ) goto :quit
  26.     @r = concat( @c, " ")
  27.     @r = concat(@r, @a)
  28.     if ( @a = "1" ) goto :renew; else goto :append;
  29.  
  30. :renew
  31.     helpline("@r", "")
  32.     goto :quit
  33.  
  34. :append
  35.     helpline("@r", "A")
  36.  
  37. :quit
  38.