home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d7xx / d770 / uedit.lha / Uedit / Piotr.LZH / FunnyChars.cmd next >
OS/2 REXX Batch file  |  1991-04-28  |  23KB  |  519 lines
  1.  
  2.                     *****   FunnyChars.cmd V1.12   *****
  3.  
  4. .. This key TOGGLES the "Funny Chars" PreKey ON/OFF.
  5. <ctl-a:
  6.     if (inUse(preKey)) {
  7.         putMsg("SPECIAL CHARS & DEAD KEYS KILLED")
  8.         while (not inputWaiting) delay(5)
  9.         putMsg(" ")
  10.         killKey(preKey)
  11.     }
  12.     else {
  13.         putMsg("TURNING SPECIAL CHARS & DEAD KEYS ON") 
  14.         copyKey(preKey,14)                  ..  '14' is one of 'unused slots'
  15.         equateNum(n96,0)
  16.         while (not inputWaiting) delay(5)
  17.         putMsg(" ")
  18.     }
  19. >
  20.  
  21. .. This will act as our FANCY HELP KEY
  22. <28:
  23.         
  24. text(" ",0,0,4,-2)
  25. text("Press HELP again to resume editing",0,1,3,0)
  26. text(" ",1,0,4,-2)
  27. text("1",1,62,0,1) text("-->",1,64,4,3) text(" ¹ ",1,67,2,3) text("|",1,70,6,1)
  28. text("First press a                       ",2,13,6,0)
  29.     text("2",2,62,0,1) text("-->",2,64,4,3) text(" ² ",2,67,2,3)
  30.         text("|",2,70,6,1) text("ALT",2,73,5,3)
  31. text("------------------>",3,10,4,20) text(" \"DEAD KEY\" ",3,32,5,0)
  32.     text("3",3,62,0,1) text("-->",3,64,4,3) text(" ³ ",3,67,2,3)
  33.         text("|",3,70,6,1) 
  34. text("___________",4,3,4,11) text("and then",4,10,6,8)
  35.     text("__________",4,18,4,15) text("4",4,62,0,1) text("-->",4,64,4,3)
  36.         text(" ¢ ",4,67,2,3) text("|",4,70,6,1) text("with",4,73,0,4)
  37.             text("combination:",4,32,5,0)
  38. text("|",5,3,4,1) text("5",5,62,0,1) text("-->",5,64,4,3) text(" ¼ ",5,67,2,3)
  39.     text("|",5,70,6,1)
  40. text("v",6,3,4,1) text("ALT-f",6,15,5,5) text("ALT-g",6,24,5,5)
  41.     text("ALT-h",6,33,5,5) text("ALT-j",6,42,5,5) text("ALT-k",6,51,5,5)
  42.         text("6",6,62,0,1) text("-->",6,64,4,3) text(" ½ ",6,67,2,3)
  43.             text("|",6,70,6,1) text("these",6,72,0,5) text("|",6,78,4,1)
  44. text("7",7,62,0,1) text("-->",7,64,4,3) text(" ¾ ",7,67,2,3)
  45.     text("|",7,70,6,1) text("|",7,78,4,1)
  46. text("to get",8,6,6,6) text("|",8,44,4,1) text("8",8,62,0,1)
  47.     text("-->",8,64,4,3) text(" · ",8,67,2,3) text("|",8,70,6,1)
  48.         text("gives",8,72,2,5) text("|",8,78,4,1)         
  49. text("a",9,3,0,1) text("------>",9,6,4,8) text(" á ",9,16,2,3)
  50.     text(" à ",9,25,2,3) text(" â ",9,34,2,3) text("|",9,44,4,1)
  51.         text(" ä ",9,52,2,3) text("9",9,62,0,1) text("-->",9,64,4,3)
  52.             text(" « ",9,67,2,3) text("|",9,70,6,1) text("<--",9,72,4,3)
  53.                 text("v",9,78,4,1)
  54. text("A",10,3,0,1) text("------>",10,6,4,8) text(" Á ",10,16,2,3)
  55.     text(" À ",10,25,2,3) text(" Â ",10,34,2,3) text("|",10,44,4,1)
  56.         text(" Ä ",10,52,2,3) text("0",10,62,0,1) text("-->",10,64,4,3)
  57.             text(" » ",10,67,2,3) text("|",10,70,6,1)
  58.                 text(" Å ",11,71,2,3)
  59. text("|",11,44,4,1) text("q",11,62,0,1) text("-->",11,64,4,3)
  60.     text(" å ",11,67,2,3) text("|",11,70,6,1) text(" Å ",11,71,2,3)
  61.         text("<--",11,74,4,3) text("Q",11,78,0,1) 
  62. text("e",12,3,0,1) text("------>",12,6,4,8) text(" é ",12,16,2,3)
  63.     text(" è ",12,25,2,3) text(" ê ",12,34,2,3) text("v",12,44,4,1)
  64.         text(" ë ",12,52,2,3) text("w",12,62,0,1) text("-->",12,64,4,3)
  65.             text(" ° ",12,67,2,3) text("|",12,70,6,1) text("   ",12,71,2,3)
  66. text("E",13,3,0,1) text("------>",13,6,4,8) text(" É ",13,16,2,3)
  67.     text(" È ",13,25,2,3) text(" Ê ",13,34,2,3) text(" Ë ",13,52,2,3)
  68.         text("e",13,62,0,1) text("-->",13,64,4,3) text(" © ",13,67,2,3)
  69.             text("|",13,70,6,1) text("   ",13,71,2,3)
  70. text("r",14,62,0,1) text("-->",14,64,4,3) text(" ® ",14,67,2,3)
  71.     text("|",14,70,6,1) text("   ",14,71,2,3)
  72. text("i",15,3,0,1) text("------>",15,6,4,8) text(" í ",15,16,2,3)
  73.     text(" ì ",15,25,2,3) text(" î ",15,34,2,3) text(" ï ",15,52,2,3)
  74.         text("t",15,62,0,1) text("-->",15,64,4,3) text(" þ ",15,67,2,3)
  75.             text("|",15,70,6,1) text(" Þ ",15,71,2,3) text("<--",15,74,4,3)
  76.                 text("T",15,78,0,1)
  77. text("I",16,3,0,1) text("------>",16,6,4,8) text(" Í ",16,16,2,3)
  78.     text(" Ì ",16,25,2,3) text(" Î ",16,34,2,3) text(" Ï ",16,52,2,3)
  79.         text("y",16,62,0,1) text("-->",16,64,4,3) text(" ¤ ",16,67,2,3)
  80.             text("|",16,70,6,1) text(" ¥ ",16,71,2,3) text("<--",16,74,4,3)
  81.                 text("Y",16,78,0,1)
  82. text("u",17,62,0,1) text("-->",17,64,4,3) text(" µ ",17,67,2,3)
  83.     text("|",17,70,6,1) text("   ",17,71,2,3)
  84. text("n",18,3,0,1) text("------------------------------->",18,7,4,35)
  85.     text(" ñ ",18,43,2,3) text("i",18,62,0,1) text("-->",18,64,4,3)
  86.         text(" ¡ ",18,67,2,3) text("|",18,70,6,1) text(" ¦ ",18,71,2,3)
  87.             text("<--",18,74,4,3) text("I",18,78,0,1)   
  88. text("N",19,3,0,1) text("------------------------------->",19,7,4,35)
  89.     text(" Ñ ",19,43,2,3) text("o",19,62,0,1) text("-->",19,64,4,3)
  90.         text(" ø ",19,67,2,3) text("|",19,70,6,1) text(" Ø ",19,71,2,3)
  91.             text("<--",19,74,4,3) text("O",19,78,0,1)  
  92. text("p",20,62,0,1) text("-->",20,64,4,3) text(" ¶ ",20,67,2,3)
  93.     text("|",20,70,6,1) text("   ",20,71,2,3)
  94. text("o",21,3,0,1) text("------>",21,6,4,8) text(" ó ",21,16,2,3)
  95.     text(" ò ",21,25,2,3) text(" ô ",21,34,2,3) text(" õ ",21,43,2,3)
  96.         text(" ö ",21,52,2,3) text("a",21,62,0,1) text("-->",21,64,4,3)
  97.             text(" æ ",21,67,2,3) text("|",21,70,6,1) text(" Æ ",21,71,2,3)
  98.                 text("<--",21,74,4,3) text("A",21,78,0,1) 
  99. text("O",22,3,0,1) text("------>",22,6,4,8) text(" Ó ",22,16,2,3)
  100.     text(" Ò ",22,25,2,3) text(" Ô ",22,34,2,3) text(" Õ ",22,43,2,3)
  101.         text(" Ö ",22,52,2,3) text("s",22,62,0,1) text("-->",22,64,4,3)
  102.             text(" ß ",22,67,2,3) text("|",22,70,6,1) text(" § ",22,71,2,3)
  103.                 text("<--",22,74,4,3) text("S",22,78,0,1)
  104. text("d",23,62,0,1) text("-->",23,64,4,3) text(" ð ",23,67,2,3)
  105.     text("|",23,70,6,1) text(" Ð ",23,71,2,3) text("<--",23,74,4,3)
  106.         text("D",23,78,0,1)
  107. text("u",24,3,0,1) text("------>",24,6,4,8) text(" ú ",24,16,2,3)
  108.     text(" ù ",24,25,2,3) text(" û ",24,34,2,3) text(" ü ",24,52,2,3)
  109.         text("l",24,62,0,1) text("-->",24,64,4,3) text(" £ ",24,67,2,3)
  110.             text("|",24,70,6,1) text("   ",24,71,2,3)
  111. text("U",25,3,0,1) text("------>",25,6,4,8) text(" Ú ",25,16,2,3)
  112.     text(" Ù ",25,25,2,3) text(" Û ",25,34,2,3) text(" Ü ",25,52,2,3)
  113.         text("z",25,62,0,1) text("-->",25,64,4,3) text(" ± ",25,67,2,3)
  114.             text("|",25,70,6,1) text(" ¬ ",25,71,2,3) text("<--",25,74,4,3)
  115.                 text("Z",25,78,0,1)  
  116. text("c",26,62,0,1) text("-->",26,64,4,3) text(" ç ",26,67,2,3)
  117.     text("|",26,70,6,1) text(" Ç ",26,71,2,3) text("<--",26,74,4,3)
  118.         text("C",26,78,0,1)
  119. text("y",27,3,0,1) text("------>",27,6,4,8) text(" ý ",27,16,2,3)
  120.     text(" ÿ ",27,52,2,3) text("v",27,62,0,1) text("-->",27,64,4,3)
  121.         text(" ª ",27,67,2,3) text("|",27,70,6,1)
  122.             text("   ",27,71,2,3)
  123. text("Y",28,3,0,1) text("------>",28,6,4,8) text(" Ý ",28,16,2,3)
  124.     text(" Y ",28,52,2,3) text("b",28,62,0,1) text("-->",28,64,4,3)
  125.         text(" º ",28,67,2,3) text("|",28,70,6,1) text("   ",28,71,2,3)
  126. text("n",29,62,0,1) text("-->",29,64,4,3) text(" ­ ",29,67,2,3)
  127.     text("|",29,70,6,1) text(" ¯ ",29,71,2,3) text("<--",29,74,4,3)
  128.         text("N",29,78,0,1)
  129.         
  130. text("You evidently are in INTERLACE MODE!",45,20,6,50) .. <- help yourself!
  131.  
  132. label(0)
  133.         getKey(n94)
  134.         while (not eqNum(n94,normal-HELP)) {
  135.             delay(5)                                .. do not refresh
  136.             goto label(0)
  137.         }
  138. >          
  139.  
  140. This key is WAITING TO BE COPIED to preKey by our ctl-a.
  141. <14:
  142.      .. if (eqNum(macroNum,shftAltCtl-ESC)) killKey(preKey) .. escape hatch
  143.      equateNum(n95,n96)                         .. store old macroNum in n95
  144.      equateNum(n96,macroNum)                    .. store new macroNum in n96
  145.      
  146.      if (eqNum(macroNum,shftCtl-a)) {
  147.         text(" NEXT KEY-COMBINATION WILL BE TREATED AS COMMAND!",0,0,3,57)
  148.         while (not inputWaiting)
  149.             delay(5)
  150.      }
  151.      if (eqNum(n95,shftCtl-a)) {            .. previous combination was this
  152.         putMsg(" ")
  153.         equateNum(inputChar,0)                      .. TYPE NOTHING...
  154.         equateNum(macroNum,0)                       .. RETURN DOING NOTHING
  155.         return                  .. JUST EXECUTE IF THERE IS A COMMAND ATTACHED
  156.      }
  157.      if (eqNum(macroNum,normal-HELP)) {
  158.         runKey(28)                              .. our special HELP has slot 28
  159.         putMsg("                                            ")
  160.         refreshDisplay
  161.         equateNum(inputChar,0)                  .. just in case
  162.         equateNum(macroNum,0)
  163.         return
  164.      }  
  165.      if (gtNum(macroNum,370) | (eqNum(macroNum,69)) | 
  166.            (gtNum(macroNum,70) & (not gtNum(macroNum,102))) |
  167.               (gtNum(macroNum,162) & (not gtNum(macroNum,204))) |
  168.                  (gtNum(macroNum,267) & (not gtNum(macroNum,312)))) { 
  169.                  
  170.         equateNum(inputChar,0)              .. let UEdit just do...    
  171.         equateNum(macroNum,n96)             .. what it would have done anyway
  172.      }
  173.      else
  174.         switch(n96) {                       .. NON-PRINTABLES and KEYPAD KEYS
  175.                                             .. normal-KEYS (no qualifiers)
  176.                 case(15)
  177.                 case(29)
  178.                 case(30)
  179.                 case(31)
  180.                 case(45)
  181.                 case(46)
  182.                 case(47)
  183.                 case(60)
  184.                 case(61)
  185.                 case(62)
  186.                 case(63)
  187.                 case(67)
  188.                                                         .. SHIFT-PRINTABLES
  189.                 case(119) 
  190.                 case(133) 
  191.                 case(134) 
  192.                 case(135) 
  193.                 case(149) 
  194.                 case(150) 
  195.                 case(151) 
  196.                 case(152) 
  197.                 case(164) 
  198.                 case(165) 
  199.                 case(166) 
  200.                 case(167) 
  201.                                                         .. ALT-PRINTABLES
  202.                 case(223)
  203.                 case(237)
  204.                 case(238)
  205.                 case(239)
  206.                 case(253)
  207.                 case(254)
  208.                 case(255)
  209.                 case(256)
  210.                 case(268)
  211.                 case(269)
  212.                 case(270)
  213.                 case(271) { equateNum(inputChar,0)
  214.                             return }
  215.  
  216.                                                         .. DEAD KEYS
  217.                 case(247)       .. alt-k
  218.                 case(246)       .. alt-j
  219.                 case(245)       .. alt-h
  220.                 case(244)       .. alt-g
  221.                 case(243)       .. alt-f
  222.                         
  223.                          { goto label(60) }
  224.                          
  225.                                                         .. ALT-PRINTABLES
  226.                 case(209) { typeChar("¹") 
  227.                                 goto label(60) }
  228.                 case(210) { typeChar("²") 
  229.                                 goto label(60) }
  230.                 case(211) { typeChar("³") 
  231.                                 goto label(60) }
  232.                             
  233.                 case(212) { typeChar("¢") 
  234.                                 goto label(60) }
  235.                 case(213) { typeChar("¼") 
  236.                                 goto label(60) }
  237.                 case(214) { typeChar("½") 
  238.                                 goto label(60) }
  239.                 case(215) { typeChar("¾") 
  240.                                 goto label(60) }
  241.                 case(216) { typeChar("·") 
  242.                                 goto label(60) }
  243.                 case(217) { typeChar("«") 
  244.                                 goto label(60) }
  245.                 case(218) { typeChar("»") 
  246.                                 goto label(60) }
  247.                 case(224) {typeChar("å") 
  248.                                 goto label(60) }
  249.                 case(225) { typeChar("°") 
  250.                                 goto label(60) }
  251.                 case(226) { typeChar("©") 
  252.                                 goto label(60) }
  253.                 case(227) { typeChar("®") 
  254.                                 goto label(60) }
  255.                 case(228) { typeChar("þ") 
  256.                                 goto label(60) }
  257.                 case(229) { typeChar("¤") 
  258.                                 goto label(60) }
  259.                 case(230) { typeChar("µ") 
  260.                                 goto label(60) }
  261.                 case(231) { typeChar("¡") 
  262.                                 goto label(60) }
  263.                 case(232) {typeChar("ø") 
  264.                                 goto label(60) }
  265.                 case(233) { typeChar("¶") 
  266.                                 goto label(60) }
  267.                 case(240) {typeChar("æ") 
  268.                                 goto label(60) }
  269.                 case(241) { typeChar("ß") 
  270.                                 goto label(60) }
  271.                 case(242) { typeChar("ð") 
  272.                                 goto label(60) }
  273.                 case(248) { typeChar("£") 
  274.                                 goto label(60) }
  275.                 case(257) {typeChar("±") 
  276.                                 goto label(60) }
  277.                 case(258) { typeChar("×") 
  278.                                 goto label(60) }
  279.                 case(259) { typeChar("ç") 
  280.                                 goto label(60) }
  281.                 case(260) { typeChar("ª") 
  282.                                 goto label(60) }
  283.                 case(261) { typeChar("º") 
  284.                                 goto label(60) }
  285.                 case(262) { typeChar("­") 
  286.                                 goto label(60) }
  287.                 case(263) { typeChar("¸") 
  288.                                 goto label(60) }                                    
  289.  
  290.                                                     .. shftAlt-PRINTABLES
  291.                 case(328) { typeChar("Å") 
  292.                                 goto label(60) }          
  293.                 case(332) { typeChar("Þ") 
  294.                                 goto label(60) }          
  295.                 case(333) { typeChar("¥") 
  296.                                 goto label(60) }          
  297.                 case(335) { typeChar("¦") 
  298.                                 goto label(60) }          
  299.                 case(336) { typeChar("Ø") 
  300.                                 goto label(60) }          
  301.                 case(344) { typeChar("Æ") 
  302.                                 goto label(60) }          
  303.                 case(345) { typeChar("§") 
  304.                                 goto label(60) }          
  305.                 case(346) { typeChar("Ð") 
  306.                                 goto label(60) }
  307.                  case(361) { typeChar("¬") 
  308.                                 goto label(60) }  
  309.                 case(362) { typeChar("÷") 
  310.                                 goto label(60) }          
  311.                 case(363) { typeChar("Ç") 
  312.                                 goto label(60) }          
  313.                 case(366) { typeChar("¯") 
  314.                                 goto label(60) }          
  315.                 case(367) { typeChar("¿") 
  316.                                 goto label(60) }
  317.                 
  318.                                                .. normal-KEYS ALTERED by DEAD 
  319.                 case(21)    { goto label(50) }                     .. y
  320.                 case(22)    { goto label(51) }                     .. u
  321.                 case(24)    { goto label(52) }                     .. o
  322.                 case(54)    { goto label(53) }                     .. n
  323.                 case(23)    { goto label(54) }                     .. i
  324.                 case(18)    { goto label(55) }                     .. e
  325.                 case(32)    { goto label(56) }                     .. a
  326.                                                
  327.                                                .. shft-KEYS ALTERED by DEAD
  328.                 case(125)   { goto label(11) }                     .. "Y"
  329.                 case(126)   { goto label(12) }                     .. "U"
  330.                 case(128)   { goto label(13) }                     .. "O"
  331.                 case(158)   { goto label(14) }                     .. "N"
  332.                 case(127)   { goto label(15) }                     .. "I"
  333.                 case(122)   { goto label(16) }                     .. "E"
  334.                 case(136)   { goto label(17) }                     .. "A"
  335.           
  336.             default { if (gtNum(383,macroNum) & gtNum(macroNum,208))      
  337.                         beepDisplay
  338.                       equateNum(macroNum,0)
  339.                       return
  340.                     }
  341.         }       
  342.     
  343. ..  =======================   "SUBRUTINES" ========================
  344.  
  345. label(11)   
  346.                switch(n95) {                            
  347.                 case(247)   { equateNum(inputChar,0)
  348.                                 typeChar("Y") }                       
  349.                 case(243)   { equateNum(inputChar,0)
  350.                                 typeChar("Ý") }                       
  351.                            }                        
  352.                 return
  353.  
  354. label(12)
  355.                switch(n95) {                     
  356.                 case(247)   { equateNum(inputChar,0)
  357.                                 typeChar("Ü") }
  358.                 case(245)   { equateNum(inputChar,0)
  359.                                 typeChar("Û") }
  360.                 case(244)   { equateNum(inputChar,0)
  361.                                 typeChar("Ù") }
  362.                 case(243)   { equateNum(inputChar,0)
  363.                                 typeChar("Ú") }
  364.                            }
  365.                 return
  366.  
  367. label(13)
  368.                switch(n95) {
  369.                 case(247)   { equateNum(inputChar,0)
  370.                                 typeChar("Ö") }
  371.                 case(246)   { equateNum(inputChar,0)
  372.                                 typeChar("Õ") }
  373.                 case(245)   { equateNum(inputChar,0)
  374.                                 typeChar("Ô") }
  375.                 case(244)   { equateNum(inputChar,0)
  376.                                 typeChar("Ò") }
  377.                 case(243)   { equateNum(inputChar,0)
  378.                                 typeChar("Ó") }
  379.                            }
  380.                 return
  381.                 
  382. label(14)
  383.                switch(n95) {
  384.                 case(246)   { equateNum(inputChar,0)
  385.                                 typeChar("Ñ") }
  386.                            }
  387.                 return
  388.                                 
  389. label(15)
  390.                switch(n95) {
  391.                 case(247)   { equateNum(inputChar,0)
  392.                                 typeChar("Ï") }
  393.                 case(245)   { equateNum(inputChar,0)
  394.                                 typeChar("Î") }
  395.                 case(244)   { equateNum(inputChar,0)
  396.                                 typeChar("Ì") }
  397.                 case(243)   { equateNum(inputChar,0)
  398.                                 typeChar("Í") }
  399.                            }
  400.                  return
  401.                                 
  402. label(16)
  403.                switch(n95) {
  404.                 case(247)   { equateNum(inputChar,0)
  405.                                 typeChar("Ë") }
  406.                 case(245)   { equateNum(inputChar,0)
  407.                                 typeChar("Ê") }
  408.                 case(244)   { equateNum(inputChar,0)
  409.                                 typeChar("È") }
  410.                 case(243)   { equateNum(inputChar,0)
  411.                                 typeChar("É") }
  412.                            }
  413.                 return
  414.  
  415. label(17)
  416.                switch(n95) {
  417.                 case(247)   { equateNum(inputChar,0)
  418.                                 typeChar("Ä") }
  419.                 case(245)   { equateNum(inputChar,0)
  420.                                 typeChar("Â") }
  421.                 case(244)   { equateNum(inputChar,0)
  422.                                 typeChar("À") }
  423.                 case(243)   { equateNum(inputChar,0)
  424.                                 typeChar("Á") }
  425.                            }
  426.                 return
  427.                 
  428. label(50)
  429.                switch(n95) {
  430.                 case(247)   { equateNum(inputChar,0)
  431.                                 typeChar("ÿ") }
  432.                 case(243)   { equateNum(inputChar,0)
  433.                                 typeChar("ý") }
  434.                            }
  435.                 return
  436.                 
  437. label(51)
  438.                switch(n95) {
  439.                 case(247)   { equateNum(inputChar,0)
  440.                                 typeChar("ü") }
  441.                 case(245)   { equateNum(inputChar,0)
  442.                                 typeChar("û") } 
  443.                 case(244)   { equateNum(inputChar,0)
  444.                                 typeChar("ù") }
  445.                 case(243)   { equateNum(inputChar,0)
  446.                                 typeChar("ú") }
  447.                            }
  448.                 return
  449.              
  450. label(52)
  451.                switch(n95) {
  452.                 case(247)   { equateNum(inputChar,0)
  453.                                 typeChar("ö") }
  454.                 case(246)   { equateNum(inputChar,0)
  455.                                 typeChar("õ") }
  456.                 case(245)   { equateNum(inputChar,0)
  457.                                 typeChar("ô") }
  458.                 case(244)   { equateNum(inputChar,0)
  459.                                 typeChar("ò") }
  460.                 case(243)   { equateNum(inputChar,0)
  461.                                 typeChar("ó") }
  462.                            }
  463.                 return
  464.               
  465. label(53)
  466.                switch(n95) {
  467.                 case(246)   { equateNum(inputChar,0)
  468.                                 typeChar("ñ") }
  469.                            }           
  470.                  return
  471.                  
  472. label(54)
  473.                switch(n95) {
  474.                 case(247)   { equateNum(inputChar,0)
  475.                                 typeChar("ï") }
  476.                 case(245)   { equateNum(inputChar,0)
  477.                                 typeChar("î") }
  478.                 case(244)   { equateNum(inputChar,0)
  479.                                 typeChar("ì") }
  480.                 case(243)   { equateNum(inputChar,0)
  481.                                 typeChar("í") }
  482.                            }
  483.                  return
  484.                  
  485. label(55)
  486.                switch(n95) {
  487.                 case(247)   { equateNum(inputChar,0)
  488.                                 typeChar("ë") }
  489.                 case(245)   { equateNum(inputChar,0)
  490.                                 typeChar("ê") }
  491.                 case(244)   { equateNum(inputChar,0)
  492.                                 typeChar("è") }
  493.                 case(243)   { equateNum(inputChar,0)
  494.                                 typeChar("é") }
  495.                            }
  496.                  return
  497.                 
  498. label(56)
  499.                switch(n95) {
  500.                 case(247)   { equateNum(inputChar,0)
  501.                                 typeChar("ä") }
  502.                 case(245)   { equateNum(inputChar,0)
  503.                                 typeChar("â") }
  504.                 case(244)   { equateNum(inputChar,0)
  505.                                 typeChar("à") }
  506.                 case(243)   { equateNum(inputChar,0)
  507.                                 typeChar("á") }
  508.                            }
  509.                 return
  510.  
  511. .. ===============================================
  512.  
  513. label(60)   equateNum(inputChar,0)
  514.             equateNum(macroNum,0)
  515.  
  516. >       .. /*** *** End of Funny Chars Software System V1.12 *** ***/
  517.  
  518. ========================================================================
  519.