home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d07xx / d0770.lha / Uedit / Piotr.LZH / TypeKeyName.cmd < prev    next >
OS/2 REXX Batch file  |  1991-04-21  |  8KB  |  193 lines
  1.                     /******   TypeKeyName.cmd   ******/
  2.  
  3. <ctl-k:
  4.     equateNum(n94,0)
  5.     putMsg("Next input will have its name typed at cursor")
  6.     while (not inputKey(n94)) nothing
  7.  
  8.     switch(n94)
  9.         {
  10.         case(72)
  11.             {
  12.             beepDisplay
  13.             insertRgn(curFile,atCursor,"normal-menuUp",all)
  14.             putMsg("304 - are you sure that it was not ILLEGAL alt-rAmiga'?!")
  15.                                                     .. this happens sometimes
  16.             while (not inputWaiting) nothing            .. let user see this
  17.             return
  18.             }
  19.         case(304)
  20.             {
  21.             beepDisplay
  22.             insertRgn(curFile,atCursor,"alt-buttonDown",all)
  23.             putMsg("304 - are you sure that it was not ILLEGAL 'alt-lAmiga'?!")
  24.             while (not inputWaiting) nothing            .. let user see this
  25.             return
  26.             }
  27.         }
  28.  
  29.     freeBuf(buf50)
  30.     insertRgn(buf50,sFile,"macroNum = ",all)
  31.     toWord(buf50,n94)                           .. we will finish this later
  32.  
  33.     mod(n93,n94,104)
  34.  
  35.     switch(n93)                                 .. sifting 'unused' out
  36.         {
  37.         case(14) { goto label(0) }
  38.         case(28) { goto label(0) }
  39.         case(43) { goto label(0) }
  40.         case(44) { goto label(0) }
  41.         case(59) { goto label(0) }
  42.         }
  43.  
  44.     if (gtNum(104,n94))
  45.         insertRgn(curFile,atCursor,"normal-",all)
  46.     else if (gtNum(208,n94))
  47.         insertRgn(curFile,atCursor,"shft-",all)
  48.     else if (gtNum(312,n94))
  49.         insertRgn(curFile,atCursor,"alt-",all)
  50.     else if (gtNum(416,n94))
  51.         insertRgn(curFile,atCursor,"shftAlt-",all)
  52.     else if (gtNum(520,n94))
  53.         insertRgn(curFile,atCursor,"ctl-",all)
  54.     else if (gtNum(624,n94))
  55.         insertRgn(curFile,atCursor,"shftCtl-",all)
  56.     else if (gtNum(728,n94))
  57.         insertRgn(curFile,atCursor,"altCtl-",all)
  58.     else if (gtNum(832,n94))
  59.         insertRgn(curFile,atCursor,"shftAltCtl-",all)
  60.     else if (gtNum(936,n94))
  61.         insertRgn(curFile,atCursor,"lAmiga-",all)
  62.     else if (gtNum(1040,n94))
  63.         insertRgn(curFile,atCursor,"rAmiga-",all)
  64.     else putMsg("Wow! How did you input THIS?!")
  65.  
  66.     switch(n93)
  67.         {
  68.         case(1) { insertChar(curFile,"1") }         .. or 'typeChar' ??
  69.         case(2) { insertChar(curFile,"2") }
  70.         case(3) { insertChar(curFile,"3") }
  71.         case(4) { insertChar(curFile,"4") }
  72.         case(5) { insertChar(curFile,"5") }
  73.         case(6) { insertChar(curFile,"6") }
  74.         case(7) { insertChar(curFile,"7") }
  75.         case(8) { insertChar(curFile,"8") }
  76.         case(9) { insertChar(curFile,"9") }
  77.         case(10) { insertChar(curFile,"0") }
  78.         case(11) { insertChar(curFile,"-") }
  79.         case(12) { insertChar(curFile,"=") }
  80.         case(13) { insertChar(curFile,"\\") }       .. that one was tough!
  81.         ..
  82.         case(15) { insertRgn(curFile,atCursor,"Kp0",all) }
  83.         case(16) { insertChar(curFile,"q") }
  84.         case(17) { insertChar(curFile,"w") }
  85.         case(18) { insertChar(curFile,"e") }
  86.         case(19) { insertChar(curFile,"r") }
  87.         case(20) { insertChar(curFile,"t") }
  88.         case(21) { insertChar(curFile,"y") }
  89.         case(22) { insertChar(curFile,"u") }
  90.         case(23) { insertChar(curFile,"i") }
  91.         case(24) { insertChar(curFile,"o") }
  92.         case(25) { insertChar(curFile,"p") }
  93.         case(26) { insertChar(curFile,"[") }
  94.         case(27) { insertChar(curFile,"]") }
  95.         ..
  96.         case(29) { insertRgn(curFile,atCursor,"Kp1",all) }
  97.         case(30) { insertRgn(curFile,atCursor,"Kp2",all) }
  98.         case(31) { insertRgn(curFile,atCursor,"Kp3",all) }
  99.         case(32) { insertChar(curFile,"a") }
  100.         case(33) { insertChar(curFile,"s") }
  101.         case(34) { insertChar(curFile,"d") }
  102.         case(35) { insertChar(curFile,"f") }
  103.         case(36) { insertChar(curFile,"g") }
  104.         case(37) { insertChar(curFile,"h") }
  105.         case(38) { insertChar(curFile,"j") }
  106.         case(39) { insertChar(curFile,"k") }
  107.         case(40) { insertChar(curFile,"l") }
  108.         case(41) { insertChar(curFile,";") }
  109.         case(42) { insertChar(curFile,"'") }
  110.         ..
  111.         case(45) { insertRgn(curFile,atCursor,"Kp4",all) }
  112.         case(46) { insertRgn(curFile,atCursor,"Kp5",all) }
  113.         case(47) { insertRgn(curFile,atCursor,"Kp6",all) }
  114.         case(49) { insertChar(curFile,"z") }
  115.         case(50) { insertChar(curFile,"x") }
  116.         case(51) { insertChar(curFile,"c") }
  117.         case(52) { insertChar(curFile,"v") }
  118.         case(53) { insertChar(curFile,"b") }
  119.         case(54) { insertChar(curFile,"n") }
  120.         case(55) { insertChar(curFile,"m") }
  121.         case(56) { insertChar(curFile,",") }
  122.         case(57) { insertChar(curFile,".") }
  123.         case(58) { insertChar(curFile,"/") }
  124.         ..
  125.         case(60) { insertRgn(curFile,atCursor,"KpDot",all) }
  126.         case(61) { insertRgn(curFile,atCursor,"Kp7",all) }
  127.         case(62) { insertRgn(curFile,atCursor,"Kp8",all) }
  128.         case(63) { insertRgn(curFile,atCursor,"Kp9",all) }
  129.         case(64) { insertRgn(curFile,atCursor,"SPACE",all) }
  130.         case(65) { insertRgn(curFile,atCursor,"BS",all) }   .. not 'BACKSPACE'!
  131.         case(66) { insertRgn(curFile,atCursor,"TAB",all) }
  132.         case(67) { insertRgn(curFile,atCursor,"KpEnter",all) }
  133.         case(68) { insertRgn(curFile,atCursor,"RETURN",all) }
  134.         case(69) { insertRgn(curFile,atCursor,"ESC",all) }
  135.         case(70) { insertRgn(curFile,atCursor,"DEL",all) }
  136.         case(71) { insertRgn(curFile,atCursor,"menuDown",all) }
  137.         case(72) { insertRgn(curFile,atCursor,"menuUp",all) }
  138.         case(73) { insertRgn(curFile,atCursor,"middleDown",all) }
  139.         case(74) { insertRgn(curFile,atCursor,"KpMinus",all) }
  140.         case(75) { insertRgn(curFile,atCursor,"middleUp",all) }
  141.         case(76) { insertRgn(curFile,atCursor,"upArrow",all) }
  142.         case(77) { insertRgn(curFile,atCursor,"downArrow",all) }
  143.         case(78) { insertRgn(curFile,atCursor,"rightArrow",all) }
  144.         case(79) { insertRgn(curFile,atCursor,"leftArrow",all) }
  145.         case(80) { insertRgn(curFile,atCursor,"F1",all) }
  146.         case(81) { insertRgn(curFile,atCursor,"F2",all) }
  147.         case(82) { insertRgn(curFile,atCursor,"F3",all) }
  148.         case(83) { insertRgn(curFile,atCursor,"F4",all) }
  149.         case(84) { insertRgn(curFile,atCursor,"F5",all) }
  150.         case(85) { insertRgn(curFile,atCursor,"F6",all) }
  151.         case(86) { insertRgn(curFile,atCursor,"F7",all) }
  152.         case(87) { insertRgn(curFile,atCursor,"F8",all) }
  153.         case(88) { insertRgn(curFile,atCursor,"F9",all) }
  154.         case(89) { insertRgn(curFile,atCursor,"F10",all) }
  155.         case(90) { insertRgn(curFile,atCursor,"KpLParen",all) }
  156.         case(91) { insertRgn(curFile,atCursor,"KpRParen",all) }
  157.         case(92) { insertRgn(curFile,atCursor,"KpSlash",all) }
  158.         case(93) { insertRgn(curFile,atCursor,"KpStar",all) }
  159.         case(94) { insertRgn(curFile,atCursor,"KpPlus",all) }
  160.         case(95) { insertRgn(curFile,atCursor,"HELP",all) }
  161.         case(96) { insertRgn(curFile,atCursor,"buttonDown",all) }
  162.         case(97) { insertRgn(curFile,atCursor,"buttonUp",all) }
  163.         case(98) { insertRgn(curFile,atCursor,"gadget1",all) }
  164.         case(99) { insertRgn(curFile,atCursor,"gadget2",all) }
  165.         case(100) { insertRgn(curFile,atCursor,"gadget3",all) }
  166.         case(101) { insertRgn(curFile,atCursor,"gadget4",all) }
  167.         case(102) { insertRgn(curFile,atCursor,"closeBox",all) }
  168.         case(103) { insertChar(curFile,"`") }
  169.  
  170.         default {
  171.                 while (not inputWaiting) {      .. WE CAN GET HERE ONLY IF
  172.                     beepDisplay                 .. SOMEBODY HAS EXPERIMENTED
  173.                     delay(10) }                 .. WITH THIS PROGRAM!!!
  174.                 }
  175.         }
  176.  
  177.     putMsg(buf50)
  178.     return
  179.  
  180. .. We should never get here, but it can be seen as a safety measure against
  181. .. future incompatibility (AmigaDos V5.1, Uedit V6.85 for instance...), as
  182. .. well as user's own experiments. And it IS tested!
  183.  
  184. label(0)
  185.         beepDisplay
  186.         toWord(curFile,n94)
  187.         insertRgn(buf50,eFile," but how did you input this?",all)
  188.         putMsg(buf50)
  189.  
  190. >               .. THIS IS THE END...
  191.  
  192.  
  193.