home *** CD-ROM | disk | FTP | other *** search
/ Windoware / WINDOWARE_1_6.iso / macros / aptypchr / typechar.smm < prev   
INI File  |  1991-10-31  |  25KB  |  1,716 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     ~macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [lang]
  14.     1
  15. [desc]
  16.     Insert  ANSI characters into the doc at the current point. Adds a menu to the main bar.
  17.     Lotus Word Processing Division
  18.     Intermediate
  19.     OnKey, MenuItems
  20.     AutoRun
  21.     688954152
  22.     16
  23.     679901472
  24.     101
  25.     5
  26.     1205
  27.     7618
  28.     23
  29.     26
  30.     
  31.     
  32.     
  33.     
  34.     
  35.     
  36.     0
  37. [fopts]
  38.     0
  39.     1
  40.     0
  41.     0
  42. [lnopts]
  43.     2
  44.     Body Text
  45.     1
  46. [docopts]
  47.     5
  48.     2
  49. [tag]
  50.     Body Single
  51.     5
  52.     [fnt]
  53.         TimesNewRomanPS
  54.         240
  55.         0
  56.         49152
  57.     [algn]
  58.         1
  59.         1
  60.         0
  61.         0
  62.         0
  63.     [spc]
  64.         33
  65.         273
  66.         1
  67.         0
  68.         0
  69.         1
  70.         100
  71.     [brk]
  72.         4
  73.     [line]
  74.         8
  75.         0
  76.         1
  77.         0
  78.         1
  79.         1
  80.         1
  81.         10
  82.         10
  83.         1
  84.     [spec]
  85.         0
  86.         0
  87.         
  88.         0
  89.         1
  90.         1
  91.         0
  92.         0
  93.         0
  94.         0
  95.     [nfmt]
  96.         280
  97.         1
  98.         2
  99.         .
  100.         ,
  101.         $
  102.     Body Single
  103.     0
  104.     0
  105. [tag]
  106.     Bullet
  107.     6
  108.     [fnt]
  109.         TimesNewRomanPS
  110.         240
  111.         0
  112.         49152
  113.     [algn]
  114.         1
  115.         1
  116.         0
  117.         288
  118.         288
  119.     [spc]
  120.         33
  121.         273
  122.         1
  123.         0
  124.         0
  125.         1
  126.         100
  127.     [brk]
  128.         4
  129.     [line]
  130.         8
  131.         0
  132.         1
  133.         0
  134.         1
  135.         1
  136.         1
  137.         10
  138.         10
  139.         1
  140.     [spec]
  141.         0
  142.         0
  143.         <*0>
  144.         360
  145.         1
  146.         1
  147.         0
  148.         0
  149.         0
  150.         0
  151.     [nfmt]
  152.         272
  153.         1
  154.         2
  155.         .
  156.         ,
  157.         $
  158.     Bullet
  159.     0
  160.     0
  161. [tag]
  162.     Bullet 1
  163.     7
  164.     [fnt]
  165.         TimesNewRomanPS
  166.         240
  167.         0
  168.         49152
  169.     [algn]
  170.         1
  171.         1
  172.         288
  173.         288
  174.         288
  175.     [spc]
  176.         33
  177.         273
  178.         1
  179.         0
  180.         0
  181.         1
  182.         100
  183.     [brk]
  184.         4
  185.     [line]
  186.         8
  187.         0
  188.         1
  189.         0
  190.         1
  191.         1
  192.         1
  193.         10
  194.         10
  195.         1
  196.     [spec]
  197.         0
  198.         0
  199.         <*5>
  200.         0
  201.         1
  202.         1
  203.         0
  204.         0
  205.         0
  206.         0
  207.     [nfmt]
  208.         280
  209.         1
  210.         2
  211.         .
  212.         ,
  213.         $
  214.     Bullet 1
  215.     0
  216.     0
  217. [tag]
  218.     Number List
  219.     8
  220.     [fnt]
  221.         TimesNewRomanPS
  222.         240
  223.         0
  224.         49152
  225.     [algn]
  226.         1
  227.         1
  228.         360
  229.         360
  230.         360
  231.     [spc]
  232.         33
  233.         273
  234.         1
  235.         0
  236.         0
  237.         1
  238.         100
  239.     [brk]
  240.         4
  241.     [line]
  242.         8
  243.         0
  244.         1
  245.         0
  246.         1
  247.         1
  248.         1
  249.         10
  250.         10
  251.         1
  252.     [spec]
  253.         0
  254.         0
  255.         <*:>.
  256.         360
  257.         1
  258.         1
  259.         0
  260.         0
  261.         0
  262.         0
  263.     [nfmt]
  264.         272
  265.         1
  266.         2
  267.         .
  268.         ,
  269.         $
  270.     Number List
  271.     0
  272.     0
  273. [tag]
  274.     Subhead
  275.     9
  276.     [fnt]
  277.         TimesNewRomanPS
  278.         240
  279.         0
  280.         49155
  281.     [algn]
  282.         1
  283.         1
  284.         0
  285.         0
  286.         0
  287.     [spc]
  288.         33
  289.         273
  290.         1
  291.         72
  292.         72
  293.         1
  294.         100
  295.     [brk]
  296.         4
  297.     [line]
  298.         8
  299.         0
  300.         1
  301.         0
  302.         1
  303.         1
  304.         1
  305.         10
  306.         10
  307.         1
  308.     [spec]
  309.         0
  310.         2
  311.         
  312.         0
  313.         1
  314.         1
  315.         0
  316.         0
  317.         0
  318.         0
  319.     [nfmt]
  320.         272
  321.         1
  322.         2
  323.         .
  324.         ,
  325.         $
  326.     Subhead
  327.     0
  328.     0
  329. [tag]
  330.     Title
  331.     11
  332.     [fnt]
  333.         Arial MT
  334.         360
  335.         0
  336.         16385
  337.     [algn]
  338.         4
  339.         1
  340.         0
  341.         0
  342.         0
  343.     [spc]
  344.         33
  345.         446
  346.         1
  347.         144
  348.         72
  349.         1
  350.         100
  351.     [brk]
  352.         16
  353.     [line]
  354.         8
  355.         0
  356.         1
  357.         0
  358.         1
  359.         1
  360.         1
  361.         10
  362.         10
  363.         1
  364.     [spec]
  365.         0
  366.         1
  367.         
  368.         0
  369.         1
  370.         1
  371.         0
  372.         0
  373.         0
  374.         0
  375.     [nfmt]
  376.         272
  377.         1
  378.         2
  379.         .
  380.         ,
  381.         $
  382.     Title
  383.     0
  384.     0
  385. [lay]
  386.     Standard
  387.     513
  388.     [rght]
  389.         15840
  390.         12240
  391.         1
  392.         720
  393.         1080
  394.         1
  395.         1440
  396.         720
  397.         2
  398.         1
  399.         0
  400.         1
  401.         1
  402.         2
  403.         1
  404.         720
  405.         11520
  406.         14
  407.         1
  408.         720
  409.         1
  410.         1440
  411.         1
  412.         2160
  413.         1
  414.         2880
  415.         1
  416.         3600
  417.         1
  418.         4320
  419.         1
  420.         5040
  421.         1
  422.         5760
  423.         1
  424.         6480
  425.         1
  426.         7200
  427.         1
  428.         7920
  429.         1
  430.         8640
  431.         1
  432.         9360
  433.         1
  434.         10080
  435.     [hrght]
  436.     [lyfrm]
  437.         1
  438.         11200
  439.         0
  440.         0
  441.         12240
  442.         1440
  443.         0
  444.         1
  445.         3
  446.         1 0 0 0 0 0 0
  447.         0
  448.         0
  449.         1
  450.     [frmlay]
  451.         1440
  452.         12240
  453.         1
  454.         1440
  455.         0
  456.         1
  457.         360
  458.         1440
  459.         0
  460.         1
  461.         0
  462.         1
  463.         1
  464.         0
  465.         1
  466.         1440
  467.         10800
  468.         0
  469.     [txt]
  470. @Header@<:X3,0;GetDocInfo$(1)>TYPECHAR.SMM<:X~3,0;GetDocInfo$(1)>
  471.  
  472. @Header@<:X3,0;Description>This macro allows the user to insert ANSI characters into the document, add them to a menu, and/or set shortcut keys.<:X~3,0;Description>
  473.  
  474. @Header@By:  Todd E. Fuder
  475.  
  476. @Header@<:X3,0;EditDate %Dd>Wednesday, August 7, 1991<:X~3,0;EditDate %Dd> at 
  477. <:X3,0;EditDate %T6>10:50 am<:X~3,0;EditDate %T6>
  478.  
  479. @Header@
  480. >
  481.     [frght]
  482.     [lyfrm]
  483.         1
  484.         13248
  485.         0
  486.         14760
  487.         12240
  488.         15840
  489.         0
  490.         1
  491.         3
  492.         1 0 0 0 0 0 0
  493.         0
  494.         0
  495.         2
  496.     [frmlay]
  497.         15840
  498.         12240
  499.         1
  500.         1440
  501.         360
  502.         1
  503.         14940
  504.         1440
  505.         0
  506.         1
  507.         0
  508.         1
  509.         1
  510.         0
  511.         1
  512.         1440
  513.         10800
  514.         0
  515.     [txt]
  516. @Header@Revision Number <:X3,0;NumEdits>8<:X~3,0;NumEdits>
  517.  
  518. @Header@<:P10,0,Page > of <:X3,16384;NumPages>5<:X~3,16384;NumPages>
  519.  
  520. >
  521. [elay]
  522. [l1]
  523.     0
  524. [pg]
  525.     5
  526.     65 0 11 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  527.     127 0 7 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  528.     191 0 20 0 1 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  529.     253 0 30 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  530.     298 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  531. [edoc]
  532. @Function@<:#202,10800>FUNCTION ANSICharacters()
  533.  
  534. <:#202,10800>res=DeleteMenu(1,"&Chars")
  535.  
  536. <:#202,10800>DECLARE showbox()
  537.  
  538. <:#202,10800>DECLARE GenerateMenu()
  539.  
  540. <:#202,10800>IF res=1 THEN
  541.  
  542.     GenerateMenu()
  543.  
  544. <:#202,10800>    ShowBox()
  545.  
  546. <:#202,10800>ENDIF
  547.  
  548. <:#202,10800>ONERROR toast
  549.  
  550. <:#202,10800>ONCANCEL toast
  551.  
  552. <:#202,10800>IgnoreKeyboard(1)
  553.  
  554. <:#202,10800>DECLARE AddtoMenu(hdlg, id, text)
  555.  
  556. <:#202,10800>DECLARE AddShortcuts(hdlg, id, text)
  557.  
  558. <:#202,10800>DECLARE ClearMenu(hdlg, id, text)
  559.  
  560. <:#202,10800>DECLARE ClearShortcuts(hdlg, id, text)
  561.  
  562. <:#202,10800>DECLARE InsertChar(x)
  563.  
  564. <:#202,10800>DECLARE Replaceit(x)
  565.  
  566. <:#202,10800>define GetActiveWindow()    DllCall("user,GetActiveWindow,H")
  567.  
  568. <:#202,10800>define SetWindowText()        DllCall("user,SetWindowText,IHC", %1, %2)
  569.  
  570. <:#202,10800>define TitleBarMsg()        SetWindowText(GetActiveWindow(), %1)
  571.  
  572. <:#202,10800>define GetWindowText()        DllCall("user,GetWindowText,HHFH", %1, %2, %3)
  573.  
  574. <:#202,10800>TitleBarMsg("Adding Chars menu to the default Ami Pro menu bar")
  575.  
  576. <:#202,10800>GenerateMenu()
  577.  
  578. <:#202,10800>toast:
  579.  
  580. <:#202,10800>TitleBarMsg("")
  581.  
  582. <:#202,10800>TitleBarMsg("Ami Pro")
  583.  
  584. <:#202,10800>HourGlass(0)
  585.  
  586. <:#202,10800>StatusBarMsg("")
  587.  
  588. @Function@<:#202,10800>END FUNCTION
  589.  
  590. <:#202,10800>
  591.  
  592. <:#202,10800>
  593.  
  594. @Function@<:#202,10800>FUNCTION ShowBox()
  595.  
  596. <:#202,10800>ONERROR toast
  597.  
  598. <:#202,10800>ONCANCEL toast
  599.  
  600. <:#202,10800>IgnoreKeyboard(1)
  601.  
  602. <:#202,10800>HourGlass(1)
  603.  
  604. <:#202,10800>StatusBarMsg("Assembling ANSI characters...")
  605.  
  606. <:#202,10800>MacName = GetRunningMacroFile$()
  607.  
  608. <:#202,10800>DIM Chars(256)
  609.  
  610. <:#202,10800>FOR I = 161 to 214
  611.  
  612. <:#202,10800>    Chars(I) = CHR$(I)
  613.  
  614. <:#202,10800>NEXT
  615.  
  616. <:#202,10800>FOR I = 216 to 246
  617.  
  618. <:#202,10800>    Chars(I) = CHR$(I)
  619.  
  620. <:#202,10800>NEXT
  621.  
  622. <:#202,10800>FOR I = 248 to 254
  623.  
  624. <:#202,10800>    Chars(I) = CHR$(I)
  625.  
  626. <:#202,10800>NEXT
  627.  
  628. <:#202,10800>Chars(255) = "<\>"
  629.  
  630. <:#202,10800>again:
  631.  
  632. <:#202,10800>HourGlass(1)
  633.  
  634. <:#202,10800>FillEdit(9000, &Chars)
  635.  
  636. <:#202,10800>HourGlass(0)
  637.  
  638. <:#202,10800>StatusBarMsg("")
  639.  
  640. <:#202,10800>SetDlgCallBack(53, "{MacName}!InsertaChar")
  641.  
  642. <:#202,10800>SetDlgCallBack(54, "{MacName}!AddtoMenu")
  643.  
  644. <:#202,10800>SetDlgCallBack(55, "{MacName}!ClearMenu")
  645.  
  646. <:#202,10800>SetDlgCallBack(57, "{MacName}!AddShortcuts")
  647.  
  648. <:#202,10800>Box = DialogBox(".", "ANSIBox")
  649.  
  650. <:#202,10800>x = GetDialogField$(9000)
  651.  
  652. <:#202,10800>IF Box = -1
  653.  
  654. <:#202,10800>    Message("Can't open dialog box; Exiting macro!")
  655.  
  656. <:#202,10800>    GoTo toast
  657.  
  658. <:#202,10800>ELSEIF Box = 0
  659.  
  660. <:#202,10800>    GoTo toast
  661.  
  662. <:#202,10800>ELSEIF Box = 6
  663.  
  664. <:#202,10800>    Replaceit(x)
  665.  
  666. <:#202,10800>    GoTo again
  667.  
  668. <:#202,10800>ELSE
  669.  
  670. <:#202,10800>    InsertChar(x)
  671.  
  672. <:#202,10800>ENDIF
  673.  
  674. <:#202,10800>toast:
  675.  
  676. <:#202,10800>HourGlass(0)
  677.  
  678. <:#202,10800>StatusBarMsg("")
  679.  
  680. <:#202,10800>IgnoreKeyboard(0)
  681.  
  682. @Function@<:#202,10800>END FUNCTION
  683.  
  684. <:#202,10800>
  685.  
  686. <:#202,10800>
  687.  
  688. @Function@<:#202,10800>FUNCTION InsertaChar(hdlg, id, text)
  689.  
  690. <:#202,10800>ONCANCEL toast
  691.  
  692. <:#202,10800>ONERROR toast
  693.  
  694. <:#202,10800>IgnoreKeyboard(1)
  695.  
  696. <:#202,10800>x = GetDlgItemText(hdlg, 9000)
  697.  
  698. <:#202,10800>InsertChar(x)
  699.  
  700. <:#202,10800>toast:
  701.  
  702. <:#202,10800>HourGlass(0)
  703.  
  704. <:#202,10800>StatusBarMsg("")
  705.  
  706. @Function@<:#202,10800>END FUNCTION
  707.  
  708. <:#202,10800>
  709.  
  710. <:#202,10800>
  711.  
  712. @Function@<:#202,10800>FUNCTION AddShortcuts(hdlg, id, text)
  713.  
  714. <:#202,10800>MacFile = GetRunningMacroFile$()
  715.  
  716. <:#202,10800>x = GetDlgItemText(hdlg, 9000)
  717.  
  718. <:#202,10800>FillEdit(8001, "Please select the Shortcut key for {x}.")
  719.  
  720. <:#202,10800>SetDlgCallBack(53, "{MacFile}!ClearShortcuts")
  721.  
  722. <:#202,10800>ShortcutBox = DialogBox(".", "ShortcutBox")
  723.  
  724. <:#202,10800>IF ShortcutBox = -1
  725.  
  726. <:#202,10800>    Message("Cannot open dialog box; Exiting Function!")
  727.  
  728. <:#202,10800>    EXIT FUNCTION
  729.  
  730. <:#202,10800>ELSEIF ShortcutBox = 0
  731.  
  732. <:#202,10800>    Return (-1)
  733.  
  734. <:#202,10800>ENDIF
  735.  
  736. <:#202,10800>Ctrl = GetDialogField$(50)
  737.  
  738. <:#202,10800>Alt = GetDialogField$(51)
  739.  
  740. <:#202,10800>Shift = GetDialogField$(52)
  741.  
  742. <:#202,10800>Key = UCASE$(GetDialogField$(8000))
  743.  
  744. <:#202,10800>IF len(Key) <;> 1
  745.  
  746. <:#202,10800>    Message("Only the first character of the string ""{Key}"" will be used.")
  747.  
  748. <:#202,10800>    Key = Left$(Key, 1)
  749.  
  750. <:#202,10800>ENDIF
  751.  
  752. <:#202,10800>used = FALSE
  753.  
  754. <:#202,10800>NumShortcuts = GetProfileString$("ANSIx", "NumShortcuts", "AMIPRO.INI")
  755.  
  756. <:#202,10800>IF NumShortcuts <;>0 OR NumShortcuts != ""
  757.  
  758. <:#202,10800>    FOR I = 1 to NumShortcuts
  759.  
  760. <:#202,10800>        Shortcut = GetProfileString$("ANSIx", "Shortcut{I}", "AMIPRO.INI")
  761.  
  762. <:#202,10800>        y = strfield$(Shortcut, 2, "</p>")
  763.  
  764. <:#202,10800>        Shortcut = strfield$(Shortcut, 1, "</p>")
  765.  
  766. <:#202,10800>        IF Shortcut = "{Key}{Ctrl}{Alt}{Shift}"
  767.  
  768. <:#202,10800>            used = TRUE
  769.  
  770. <:#202,10800>            IF Decide("That Shortcut key is used for {y}.  Overwrite it?")
  771.  
  772. <:#404,10800>                WriteProfileString("ANSIx", "Shortcut{I}", "{Key}</p>{Ctrl}</p>{Alt}</p>{Shift}</p>{x}", "AMIPRO.INI")
  773.  
  774. <:#202,10800>            ELSE
  775.  
  776. <:#202,10800>                NumShortcuts = NumShortcuts + 1
  777.  
  778. <:#404,10800>                WriteProfileString("ANSIx", "NumShortcuts", NumShortcuts, "AMIPRO.INI")
  779.  
  780. <:#404,10800>                WriteProfileString("ANSIx", "Shortcut{NumShortcuts}", "{Key}</p>{Ctrl}</p>{Alt}</p>{Shift}</p>{x}", "AMIPRO.INI")
  781.  
  782. <:#202,10800>            ENDIF
  783.  
  784. <:#202,10800>        ENDIF
  785.  
  786. <:#202,10800>    NEXT
  787.  
  788. <:#202,10800>ELSE
  789.  
  790. <:#202,10800>    NumShortcuts = 0
  791.  
  792. <:#202,10800>ENDIF
  793.  
  794. <:#202,10800>IF not used
  795.  
  796. <:#202,10800>    NumShortcuts = NumShortcuts + 1
  797.  
  798. <:#202,10800>    WriteProfileString("ANSIx", "NumShortcuts", NumShortcuts, "AMIPRO.INI")
  799.  
  800. <:#404,10800>            WriteProfileString("ANSIx", "Shortcut{NumShortcuts}", "{Key}</p>{Ctrl}</p>{Alt}</p>{Shift}</p>{x}", "AMIPRO.INI")
  801.  
  802. <:#202,10800>ENDIF
  803.  
  804. <:#202,10800>Message("Shortcut key saved.")
  805.  
  806. <:#202,10800>GenerateMenu()
  807.  
  808. @Function@<:#202,10800>END FUNCTION
  809.  
  810. <:#202,10800>
  811.  
  812. <:#202,10800>
  813.  
  814. @Function@<:#202,10800>FUNCTION ClearMenu(hdlg, id, text)
  815.  
  816. <:#202,10800>IF Decide("This will clear ALL of the menu items.  Are you sure?")
  817.  
  818. <:#202,10800>    WriteProfileString("ANSIx", "NumMenuItems", "", "AMIPRO.INI")
  819.  
  820. <:#202,10800>    GenerateMenu()
  821.  
  822. <:#202,10800>ENDIF
  823.  
  824. @Function@<:#202,10800>END FUNCTION
  825.  
  826. <:#202,10800>
  827.  
  828. <:#202,10800>
  829.  
  830. @Function@<:#202,10800>FUNCTION Replaceit(x)
  831.  
  832. <:#202,10800>Ready:
  833.  
  834. <:#202,10800>y = CurShade$()
  835.  
  836. <:#202,10800>IF y != ""
  837.  
  838. <:#202,10800>    IF Decide("Do you want to replace ALL occuraced of {y} with {x}?")
  839.  
  840. <:#202,10800>        Flag = ReplaceAll + FindFromPage1
  841.  
  842. <:#202,10800>        TYPE("<[>Left]")
  843.  
  844. <:#202,10800>        Replace(0, 0, Flag, "{y}", "{x}")
  845.  
  846. <:#202,10800>    ELSE
  847.  
  848. <:#202,10800>        InsertChar(x)
  849.  
  850. <:#202,10800>    ENDIF
  851.  
  852. <:#202,10800>ELSE
  853.  
  854. <:#202,10800>    UserControl("Please shade what to want to replace with {x}.")
  855.  
  856. <:#202,10800>    GoTo ready
  857.  
  858. <:#202,10800>ENDIF
  859.  
  860. @Function@<:#202,10800>END FUNCTION
  861.  
  862. <:#202,10800>
  863.  
  864. <:#202,10800>
  865.  
  866. @Function@<:#202,10800>FUNCTION AddtoMenu(hdlg, id, text)
  867.  
  868. <:#202,10800>x = GetDlgItemText(hdlg, 9000)
  869.  
  870. <:#202,10800>NumMenuItems = GetProfileString$("ANSIx", "NumMenuItems", "AMIPRO.INI")
  871.  
  872. <:#202,10800>IF NumMenuItems <;> 0 OR NumMenuItems != ""
  873.  
  874. <:#202,10800>    FOR I = 1 to NumMenuItems
  875.  
  876. <:#202,10800>        MenuItem = GetProfileString$("ANSIx", "MenuItem{I}", "AMIPRO.INI")
  877.  
  878. <:#202,10800>        IF MenuItem = x
  879.  
  880. <:#202,10800>            IF not Decide("That symbol is already on the menu. Continue?")
  881.  
  882. <:#202,10800>                EXIT FUNCTION
  883.  
  884. <:#202,10800>            ENDIF
  885.  
  886. <:#202,10800>        ENDIF
  887.  
  888. <:#202,10800>    NEXT
  889.  
  890. <:#202,10800>ELSE
  891.  
  892. <:#202,10800>    DIM MenuItems(1)
  893.  
  894. <:#202,10800>    NumMenuItems = 0
  895.  
  896. <:#202,10800>    I = 1
  897.  
  898. <:#202,10800>ENDIF
  899.  
  900. <:#202,10800>WriteProfileString("ANSIx", "NumMenuItems", (NumMenuItems + 1), "AMIPRO.INI")
  901.  
  902. <:#202,10800>WriteProfileString("ANSIx", "MenuItem{I}", "{x}", "AMIPRO.INI")
  903.  
  904. <:#202,10800>GenerateMenu()
  905.  
  906. @Function@<:#202,10800>END FUNCTION
  907.  
  908. <:#202,10800>
  909.  
  910. <:#202,10800>
  911.  
  912. @Function@<:#202,10800>FUNCTION ExitMacro()
  913.  
  914. <:#202,10800>MenuName = "&Chars"
  915.  
  916. <:#202,10800>DeleteMenu(1, MenuName)
  917.  
  918. @Function@<:#202,10800>END FUNCTION
  919.  
  920. <:#202,10800>
  921.  
  922. <:#202,10800>
  923.  
  924. @Function@<:#202,10800>FUNCTION GenerateMenu()
  925.  
  926. <:#202,10800>MacName = GetRunningMacroFile$()
  927.  
  928. <:#202,10800>MenuName = "&Chars"
  929.  
  930. <:#202,10800>NumShortcuts = GetProfileString$("ANSIx", "NumShortcuts", "AMIPRO.INI")
  931.  
  932. <:#202,10800>IF NumShortcuts <;> 0 OR NumShortcuts != ""
  933.  
  934. <:#202,10800>    FOR I = 1 to NumShortcuts
  935.  
  936. <:#202,10800>        SC = GetProfileString$("ANSIx", "Shortcut{I}", "AMIPRO.INI")
  937.  
  938. <:#202,10800>        Key = strfield$(SC, 1, "</p>")
  939.  
  940. <:#202,10800>        Key = ASC(Key)
  941.  
  942. <:#202,10800>        Ctrl = strfield$(SC, 2, "</p>")
  943.  
  944. <:#202,10800>        Alt = strfield$(SC, 3, "</p>")
  945.  
  946. <:#202,10800>        Shift = strfield$(SC, 4, "</p>")
  947.  
  948. <:#202,10800>        Char = strfield$(SC, 5, "</p>")
  949.  
  950. <:#202,10800>        IF Ctrl
  951.  
  952. <:#202,10800>            Key = Key | 0x4000
  953.  
  954. <:#202,10800>        ENDIF
  955.  
  956. <:#202,10800>        IF Alt
  957.  
  958. <:#202,10800>            Key = Key | 0x2000
  959.  
  960. <:#202,10800>        ENDIF
  961.  
  962. <:#202,10800>        IF Shift
  963.  
  964. <:#202,10800>            Key = Key | 0x1000
  965.  
  966. <:#202,10800>        ENDIF
  967.  
  968. <:#202,10800>        OnKey(Key, 0, "{MacName}!InsertChar({Char})")
  969.  
  970. <:#202,10800>    NEXT
  971.  
  972. <:#202,10800>ENDIF
  973.  
  974. <:#202,10800>DeleteMenu(1, MenuName)
  975.  
  976. <:#202,10800>AddMenu(1, MenuName)
  977.  
  978. <:#404,10800>AddMenuItem(1, MenuName, "&Select Characters", "{MacName}!ShowBox()", "Bring up a dialog box containing the ANSI Characters for insertion.")
  979.  
  980. <:#404,10800>AddMenuItem(1, MenuName, "E&xit {MenuName}", "{MacName}!ExitMacro()", "Remove the {MenuName} menu.")
  981.  
  982. <:#202,10800>NumMenuItems = GetProfileString$("ANSIx", "NumMenuItems", "AMIPRO.INI")
  983.  
  984. <:#202,10800>IF NumMenuItems = "" OR NumMenuItems = 0
  985.  
  986. <:#202,10800>    EXIT FUNCTION
  987.  
  988. <:#202,10800>ENDIF
  989.  
  990. <:#202,10800>AddMenuItem(1, MenuName, "-", "")
  991.  
  992. <:#202,10800>DIM MenuItems(NumMenuItems)
  993.  
  994. <:#202,10800>FOR I = 1 to NumMenuItems
  995.  
  996. <:#202,10800>    MI = GetProfileString$("ANSIx", "MenuItem{I}", "AMIPRO.INI")
  997.  
  998. <:#404,10800>    AddMenuItem(1, MenuName, "&{I}    {MI}", "{MacName}!InsertChar({MI})", "Insert {MI} at the current cursor position.")
  999.  
  1000. <:#202,10800>NEXT
  1001.  
  1002. @Function@<:#202,10800>END FUNCTION
  1003.  
  1004. <:#202,10800>
  1005.  
  1006. <:#202,10800>
  1007.  
  1008. @Function@<:#202,10800>FUNCTION InsertChar(x)
  1009.  
  1010. <:#202,10800>    TYPE(x)
  1011.  
  1012. @Function@<:#202,10800>END FUNCTION
  1013.  
  1014. <:#202,10800>
  1015.  
  1016. <:#202,10800>
  1017.  
  1018. @Function@<:#202,10800>FUNCTION ClearShortcuts(hdlg, id, text)
  1019.  
  1020. <:#202,10800>IF Decide("This will remove ALL of your shortcuts for ANSI. Continue?")
  1021.  
  1022. <:#202,10800>    NumShortcuts = GetProfileString$("ANSIx", "NumShortcuts", "AMIPRO.INI")
  1023.  
  1024. <:#202,10800>    FOR I = 1 to NumShortcuts
  1025.  
  1026. <:#202,10800>        SC = GetProfileString$("ANSIx", "Shortcut{I}", "AMIPRO.INI")
  1027.  
  1028. <:#202,10800>        Key = strfield$(SC, 1, "</p>")
  1029.  
  1030. <:#202,10800>        Ctrl = strfield$(SC, 2, "</p>")
  1031.  
  1032. <:#202,10800>        Alt = strfield$(SC, 3, "</p>")
  1033.  
  1034. <:#202,10800>        Shift = strfield$(SC, 4, "</p>")
  1035.  
  1036. <:#202,10800>        Char = strfield$(SC, 5, "</p>")
  1037.  
  1038. <:#202,10800>        IF Ctrl
  1039.  
  1040. <:#202,10800>            Key = Key | 0x4000
  1041.  
  1042. <:#202,10800>        ENDIF
  1043.  
  1044. <:#202,10800>        IF Alt
  1045.  
  1046. <:#202,10800>            Key = Key | 0x2000
  1047.  
  1048. <:#202,10800>        ENDIF
  1049.  
  1050. <:#202,10800>        IF Shift
  1051.  
  1052. <:#202,10800>            Key = Key | 0x1000
  1053.  
  1054. <:#202,10800>        ENDIF
  1055.  
  1056. <:#202,10800>        OnKey(Key, 0, "")
  1057.  
  1058. <:#202,10800>    NEXT
  1059.  
  1060. <:#202,10800>    WriteProfileString("ANSIx", "NumShortcuts", "", "AMIPRO.INI")
  1061.  
  1062. <:#202,10800>ENDIF
  1063.  
  1064. @Function@<:#202,10800>END FUNCTION
  1065.  
  1066. <:#202,10800>
  1067.  
  1068. <:#202,10800>
  1069.  
  1070. @Function@<:#202,10800>DIALOG ANSIBox
  1071.  
  1072. <:#202,10800>-2134376448 8 134 38 94 176 "" "" "ANSI Characters"
  1073.  
  1074. <:#202,10800>FONT 6 "Helv"
  1075.  
  1076. <:#202,10800>4 4 22 166 9000 1352859651 "listbox" "" 0 
  1077.  
  1078. <:#202,10800>50 4 40 14 1 1342373889 "button" "OK" 0 
  1079.  
  1080. <:#202,10800>50 20 40 14 2 1342373888 "button" "Cancel" 0 
  1081.  
  1082. <:#202,10800>50 36 40 14 53 1342373888 "button" "&Insert" 0 
  1083.  
  1084. <:#202,10800>30 56 60 14 54 1342373888 "button" "&Add to Menu" 0 
  1085.  
  1086. <:#202,10800>30 72 60 14 55 1342373888 "button" "&Clear Menu" 0 
  1087.  
  1088. <:#202,10800>30 88 60 14 6 1342373888 "button" "&Replace Shaded" 0 
  1089.  
  1090. <:#202,10800>30 104 60 14 57 1342373888 "button" "&Shortcut Key..." 0 
  1091.  
  1092. @Function@<:#202,10800>END DIALOG
  1093.  
  1094. <:#202,10800>
  1095.  
  1096. <:#202,10800>
  1097.  
  1098. @Function@<:#202,10800>DIALOG ShortcutBox
  1099.  
  1100. <:#202,10800>-2134376448 10 117 62 160 68 "" "" "Assign Shortcut Key"
  1101.  
  1102. <:#202,10800>FONT 6 "Helv"
  1103.  
  1104. <:#202,10800>4 0 38 52 10 1342242823 "button" "State" 0 
  1105.  
  1106. <:#202,10800>10 10 26 12 50 1342242819 "button" "&Ctrl" 0 
  1107.  
  1108. <:#202,10800>10 22 24 12 51 1342242819 "button" "&Alt" 0 
  1109.  
  1110. <:#202,10800>10 34 30 12 52 1342242819 "button" "&Shift" 0 
  1111.  
  1112. <:#202,10800>48 18 20 8 1000 1342177280 "static" "Key:" 0 
  1113.  
  1114. <:#202,10800>72 16 30 12 8000 1350631552 "edit" "" 0 
  1115.  
  1116. <:#202,10800>116 4 40 14 1 1342242817 "button" "OK" 0 
  1117.  
  1118. <:#202,10800>116 20 40 14 2 1342242816 "button" "Cancel" 0 
  1119.  
  1120. <:#202,10800>116 36 40 14 53 1342242816 "button" "C&lear" 0
  1121.  
  1122. <:#202,10800>4 56 152 8 8001 1342177281 "static" "text" 0 
  1123.  
  1124. @Function@<:#202,10800>END DIALOG
  1125.  
  1126. @Body Single@<:#279,10800>
  1127.  
  1128. >
  1129.  
  1130. [Embedded]
  1131. 00017422
  1132. >
  1133. [macsum] 13
  1134. ANSICharacters 0 0 2 0
  1135. ShowBox 467 0 6 31
  1136. InsertaChar 1491 3 2 78
  1137. AddShortcuts 1619 3 13 90
  1138. ClearMenu 3127 3 1 141
  1139. Replaceit 3294 1 3 149
  1140. AddtoMenu 3626 3 6 167
  1141. ExitMacro 4221 0 2 190
  1142. GenerateMenu 4279 0 14 196
  1143. InsertChar 5556 1 1 238
  1144. ClearShortcuts 5594 3 9 243
  1145. ANSIBox 6255 0 -1 269
  1146. ShortcutBox 6745 0 -1 283
  1147. [macse]
  1148. 14 ANSICharacters
  1149. 0 521 1 "&Chars"
  1150. 13
  1151. 8 1
  1152. 6 1
  1153. 5 1
  1154. 18 0
  1155. 11 00000104
  1156. 16 GenerateMenu
  1157. 16 ShowBox
  1158. 20 00000279
  1159. 19 00000279
  1160. 0 32 1
  1161. 0 284 "user,GetActiveWindow,H"
  1162. 13
  1163. 0 284 "user,SetWindowText,IHC" [X] "Adding Chars menu to the default Ami Pro menu bar"
  1164. 16 GenerateMenu
  1165. 0 284 "user,GetActiveWindow,H"
  1166. 13
  1167. 0 284 "user,SetWindowText,IHC" [X] ""
  1168. 0 284 "user,GetActiveWindow,H"
  1169. 13
  1170. 0 284 "user,SetWindowText,IHC" [X] "Ami Pro"
  1171. 0 296 0
  1172. 0 789 ""
  1173. 6 0
  1174. 15
  1175. 9
  1176. 14 ShowBox
  1177. 20 00000985
  1178. 19 00000985
  1179. 0 32 1
  1180. 0 296 1
  1181. 0 789 "Assembling ANSI characters..."
  1182. 0 802
  1183. 13
  1184. 8 1
  1185. 5 256
  1186. 21 2 [X]
  1187. 5 161
  1188. 8 3
  1189. 5 214
  1190. 6 3
  1191. 18 2
  1192. 12 00000216
  1193. 10 00000256
  1194. 5 1
  1195. 6 3
  1196. 3 0
  1197. 8 3
  1198. 10 00000139
  1199. 6 3
  1200. 0 39 "{3}"
  1201. 13
  1202. 23 2
  1203. 10 00000183
  1204. 5 216
  1205. 8 3
  1206. 5 246
  1207. 6 3
  1208. 18 2
  1209. 12 00000345
  1210. 10 00000385
  1211. 5 1
  1212. 6 3
  1213. 3 0
  1214. 8 3
  1215. 10 00000268
  1216. 6 3
  1217. 0 39 "{3}"
  1218. 13
  1219. 23 2
  1220. 10 00000312
  1221. 5 248
  1222. 8 3
  1223. 5 254
  1224. 6 3
  1225. 18 2
  1226. 12 00000474
  1227. 10 00000514
  1228. 5 1
  1229. 6 3
  1230. 3 0
  1231. 8 3
  1232. 10 00000397
  1233. 6 3
  1234. 0 39 "{3}"
  1235. 13
  1236. 23 2
  1237. 10 00000441
  1238. 5 255
  1239. 7 "<\>"
  1240. 23 2
  1241. 0 296 1
  1242. 0 31 9000 &2
  1243. 0 296 0
  1244. 0 789 ""
  1245. 0 41 53 "{1}!InsertaChar"
  1246. 0 41 54 "{1}!AddtoMenu"
  1247. 0 41 55 "{1}!ClearMenu"
  1248. 0 41 57 "{1}!AddShortcuts"
  1249. 0 26 "." "ANSIBox"
  1250. 13
  1251. 8 4
  1252. 0 27 9000
  1253. 13
  1254. 8 5
  1255. 6 4
  1256. 5 -1
  1257. 18 0
  1258. 11 00000834
  1259. 0 3 "Can't open dialog box; Exiting macro!"
  1260. 10 00000985
  1261. 10 00000985
  1262. 6 4
  1263. 5 0
  1264. 18 0
  1265. 11 00000889
  1266. 10 00000985
  1267. 10 00000985
  1268. 6 4
  1269. 5 6
  1270. 18 0
  1271. 11 00000964
  1272. 16 Replaceit "{5}"
  1273. 10 00000537
  1274. 10 00000985
  1275. 16 InsertChar "{5}"
  1276. 0 296 0
  1277. 0 789 ""
  1278. 0 32 0
  1279. 6 0
  1280. 15
  1281. 9
  1282. 14 InsertaChar
  1283. 19 00000097
  1284. 20 00000097
  1285. 0 32 1
  1286. 0 42 "{0}" 9000
  1287. 13
  1288. 8 4
  1289. 16 InsertChar "{4}"
  1290. 0 296 0
  1291. 0 789 ""
  1292. 6 3
  1293. 15
  1294. 9
  1295. 14 AddShortcuts
  1296. 0 802
  1297. 13
  1298. 8 4
  1299. 0 42 "{0}" 9000
  1300. 13
  1301. 8 5
  1302. 0 31 8001 "Please select the Shortcut key for {5}."
  1303. 0 41 53 "{4}!ClearShortcuts"
  1304. 0 26 "." "ShortcutBox"
  1305. 13
  1306. 8 6
  1307. 6 6
  1308. 5 -1
  1309. 18 0
  1310. 11 00000279
  1311. 0 3 "Cannot open dialog box; Exiting Function!"
  1312. 6 3
  1313. 15
  1314. 9
  1315. 10 00000321
  1316. 6 6
  1317. 5 0
  1318. 18 0
  1319. 11 00000321
  1320. 5 -1
  1321. 15
  1322. 9
  1323. 0 27 50
  1324. 13
  1325. 8 7
  1326. 0 27 51
  1327. 13
  1328. 8 8
  1329. 0 27 52
  1330. 13
  1331. 8 9
  1332. 0 27 8000
  1333. 13
  1334. 0 18 [X]
  1335. 13
  1336. 8 10
  1337. 0 14 "{10}"
  1338. 13
  1339. 5 1
  1340. 18 3
  1341. 11 00000546
  1342. 0 3 "Only the first character of the string ""{10}"" will be used."
  1343. 0 806 "{10}" 1
  1344. 13
  1345. 8 10
  1346. 5 0
  1347. 8 11
  1348. 0 286 "ANSIx" "NumShortcuts" "AMIPRO.INI"
  1349. 13
  1350. 8 12
  1351. 6 12
  1352. 5 0
  1353. 18 3
  1354. 6 12
  1355. 7 ""
  1356. 18 1
  1357. 1 2
  1358. 11 00001267
  1359. 5 1
  1360. 8 13
  1361. 6 12
  1362. 6 13
  1363. 18 2
  1364. 12 00000753
  1365. 10 00001254
  1366. 5 1
  1367. 6 13
  1368. 3 0
  1369. 8 13
  1370. 10 00000674
  1371. 0 286 "ANSIx" "Shortcut{13}" "AMIPRO.INI"
  1372. 13
  1373. 8 14
  1374. 0 20 "{14}" 2 "</p>"
  1375. 13
  1376. 8 15
  1377. 0 20 "{14}" 1 "</p>"
  1378. 13
  1379. 8 14
  1380. 6 14
  1381. 7 "{10}{7}{8}{9}"
  1382. 18 0
  1383. 11 00001241
  1384. 5 1
  1385. 8 11
  1386. 0 2 "That Shortcut key is used for {15}.  Overwrite it?"
  1387. 13
  1388. 11 00001091
  1389. 0 287 "ANSIx" "Shortcut{13}" "{10}</p>{7}</p>{8}</p>{9}</p>{5}" "AMIPRO.INI"
  1390. 10 00001241
  1391. 6 12
  1392. 5 1
  1393. 3 0
  1394. 8 12
  1395. 0 287 "ANSIx" "NumShortcuts" "{12}" "AMIPRO.INI"
  1396. 0 287 "ANSIx" "Shortcut{12}" "{10}</p>{7}</p>{8}</p>{9}</p>{5}" "AMIPRO.INI"
  1397. 10 00000718
  1398. 10 00001278
  1399. 5 0
  1400. 8 12
  1401. 6 11
  1402. 1 3
  1403. 11 00001452
  1404. 6 12
  1405. 5 1
  1406. 3 0
  1407. 8 12
  1408. 0 287 "ANSIx" "NumShortcuts" "{12}" "AMIPRO.INI"
  1409. 0 287 "ANSIx" "Shortcut{12}" "{10}</p>{7}</p>{8}</p>{9}</p>{5}" "AMIPRO.INI"
  1410. 0 3 "Shortcut key saved."
  1411. 16 GenerateMenu
  1412. 6 3
  1413. 15
  1414. 9
  1415. 14 ClearMenu
  1416. 0 2 "This will clear ALL of the menu items.  Are you sure?"
  1417. 13
  1418. 11 00000155
  1419. 0 287 "ANSIx" "NumMenuItems" "" "AMIPRO.INI"
  1420. 16 GenerateMenu
  1421. 6 3
  1422. 15
  1423. 9
  1424. 14 Replaceit
  1425. 0 24
  1426. 13
  1427. 8 2
  1428. 6 2
  1429. 7 ""
  1430. 18 1
  1431. 11 00000253
  1432. 0 2 "Do you want to replace ALL occuraced of {2} with {0}?"
  1433. 13
  1434. 11 00000219
  1435. 5 1024
  1436. 5 8192
  1437. 3 0
  1438. 8 3
  1439. 0 6 "[37]"
  1440. 2 488 1 0 0 "{3}" "{2}" "{0}"
  1441. 10 00000240
  1442. 16 InsertChar "{0}"
  1443. 10 00000320
  1444. 0 7 "Please shade what to want to replace with {0}."
  1445. 10 00000014
  1446. 6 1
  1447. 15
  1448. 9
  1449. 14 AddtoMenu
  1450. 0 42 "{0}" 9000
  1451. 13
  1452. 8 4
  1453. 0 286 "ANSIx" "NumMenuItems" "AMIPRO.INI"
  1454. 13
  1455. 8 5
  1456. 6 5
  1457. 5 0
  1458. 18 3
  1459. 6 5
  1460. 7 ""
  1461. 18 1
  1462. 1 2
  1463. 11 00000421
  1464. 5 1
  1465. 8 6
  1466. 6 5
  1467. 6 6
  1468. 18 2
  1469. 12 00000228
  1470. 10 00000408
  1471. 5 1
  1472. 6 6
  1473. 3 0
  1474. 8 6
  1475. 10 00000153
  1476. 0 286 "ANSIx" "MenuItem{6}" "AMIPRO.INI"
  1477. 13
  1478. 8 7
  1479. 6 7
  1480. 6 4
  1481. 18 0
  1482. 11 00000395
  1483. 0 2 "That symbol is already on the menu. Continue?"
  1484. 13
  1485. 1 3
  1486. 11 00000395
  1487. 6 3
  1488. 15
  1489. 9
  1490. 10 00000195
  1491. 10 00000456
  1492. 5 1
  1493. 21 8 [X]
  1494. 5 0
  1495. 8 5
  1496. 5 1
  1497. 8 6
  1498. 6 5
  1499. 5 1
  1500. 3 0
  1501. 0 287 "ANSIx" "NumMenuItems" [X] "AMIPRO.INI"
  1502. 0 287 "ANSIx" "MenuItem{6}" "{4}" "AMIPRO.INI"
  1503. 16 GenerateMenu
  1504. 6 3
  1505. 15
  1506. 9
  1507. 14 ExitMacro
  1508. 7 "&Chars"
  1509. 8 1
  1510. 0 521 1 "{1}"
  1511. 6 0
  1512. 15
  1513. 9
  1514. 14 GenerateMenu
  1515. 0 802
  1516. 13
  1517. 8 1
  1518. 7 "&Chars"
  1519. 8 2
  1520. 0 286 "ANSIx" "NumShortcuts" "AMIPRO.INI"
  1521. 13
  1522. 8 3
  1523. 6 3
  1524. 5 0
  1525. 18 3
  1526. 6 3
  1527. 7 ""
  1528. 18 1
  1529. 1 2
  1530. 11 00000641
  1531. 5 1
  1532. 8 4
  1533. 6 3
  1534. 6 4
  1535. 18 2
  1536. 12 00000238
  1537. 10 00000641
  1538. 5 1
  1539. 6 4
  1540. 3 0
  1541. 8 4
  1542. 10 00000163
  1543. 0 286 "ANSIx" "Shortcut{4}" "AMIPRO.INI"
  1544. 13
  1545. 8 5
  1546. 0 20 "{5}" 1 "</p>"
  1547. 13
  1548. 8 6
  1549. 0 40 "{6}"
  1550. 13
  1551. 8 6
  1552. 0 20 "{5}" 2 "</p>"
  1553. 13
  1554. 8 7
  1555. 0 20 "{5}" 3 "</p>"
  1556. 13
  1557. 8 8
  1558. 0 20 "{5}" 4 "</p>"
  1559. 13
  1560. 8 9
  1561. 0 20 "{5}" 5 "</p>"
  1562. 13
  1563. 8 10
  1564. 6 7
  1565. 11 00000504
  1566. 6 6
  1567. 5 16384
  1568. 25 2
  1569. 8 6
  1570. 6 8
  1571. 11 00000546
  1572. 6 6
  1573. 5 8192
  1574. 25 2
  1575. 8 6
  1576. 6 9
  1577. 11 00000588
  1578. 6 6
  1579. 5 4096
  1580. 25 2
  1581. 8 6
  1582. 2 422 1 "{6}" 0 "{1}!InsertChar({10})"
  1583. 10 00000205
  1584. 0 521 1 "{2}"
  1585. 0 515 1 "{2}"
  1586. 0 516 1 "{2}" "&Select Characters" "{1}!ShowBox()" "Bring up a dialog box containing the ANSI Characters for insertion."
  1587. 0 516 1 "{2}" "E&xit {2}" "{1}!ExitMacro()" "Remove the {2} menu."
  1588. 0 286 "ANSIx" "NumMenuItems" "AMIPRO.INI"
  1589. 13
  1590. 8 11
  1591. 6 11
  1592. 7 ""
  1593. 18 0
  1594. 6 11
  1595. 5 0
  1596. 18 0
  1597. 1 2
  1598. 11 00000979
  1599. 6 0
  1600. 15
  1601. 9
  1602. 0 516 1 "{2}" "-" ""
  1603. 6 11
  1604. 21 12 [X]
  1605. 5 1
  1606. 8 4
  1607. 6 11
  1608. 6 4
  1609. 18 2
  1610. 12 00001104
  1611. 10 00001265
  1612. 5 1
  1613. 6 4
  1614. 3 0
  1615. 8 4
  1616. 10 00001028
  1617. 0 286 "ANSIx" "MenuItem{4}" "AMIPRO.INI"
  1618. 13
  1619. 8 13
  1620. 0 516 1 "{2}" "&{4}    {13}" "{1}!InsertChar({13})" "Insert {13} at the current cursor position."
  1621. 10 00001071
  1622. 6 0
  1623. 15
  1624. 9
  1625. 14 InsertChar
  1626. 0 6 "{0}"
  1627. 6 1
  1628. 15
  1629. 9
  1630. 14 ClearShortcuts
  1631. 0 2 "This will remove ALL of your shortcuts for ANSI. Continue?"
  1632. 13
  1633. 11 00000649
  1634. 0 286 "ANSIx" "NumShortcuts" "AMIPRO.INI"
  1635. 13
  1636. 8 4
  1637. 5 1
  1638. 8 5
  1639. 6 4
  1640. 6 5
  1641. 18 2
  1642. 12 00000239
  1643. 10 00000603
  1644. 5 1
  1645. 6 5
  1646. 3 0
  1647. 8 5
  1648. 10 00000164
  1649. 0 286 "ANSIx" "Shortcut{5}" "AMIPRO.INI"
  1650. 13
  1651. 8 6
  1652. 0 20 "{6}" 1 "</p>"
  1653. 13
  1654. 8 7
  1655. 0 20 "{6}" 2 "</p>"
  1656. 13
  1657. 8 8
  1658. 0 20 "{6}" 3 "</p>"
  1659. 13
  1660. 8 9
  1661. 0 20 "{6}" 4 "</p>"
  1662. 13
  1663. 8 10
  1664. 0 20 "{6}" 5 "</p>"
  1665. 13
  1666. 8 11
  1667. 6 8
  1668. 11 00000485
  1669. 6 7
  1670. 5 16384
  1671. 25 2
  1672. 8 7
  1673. 6 9
  1674. 11 00000527
  1675. 6 7
  1676. 5 8192
  1677. 25 2
  1678. 8 7
  1679. 6 10
  1680. 11 00000570
  1681. 6 7
  1682. 5 4096
  1683. 25 2
  1684. 8 7
  1685. 2 422 1 "{7}" 0 ""
  1686. 10 00000206
  1687. 0 287 "ANSIx" "NumShortcuts" "" "AMIPRO.INI"
  1688. 6 3
  1689. 15
  1690. 9
  1691. DIALOG ANSIBox
  1692. -2134376448 8 134 38 94 176 "" "" "ANSI Characters" 
  1693. FONT 6 "Helv" 
  1694. 4 4 22 166 9000 1352859651 "listbox" "" 0 
  1695. 50 4 40 14 1 1342373889 "button" "OK" 0 
  1696. 50 20 40 14 2 1342373888 "button" "Cancel" 0 
  1697. 50 36 40 14 53 1342373888 "button" "&Insert" 0 
  1698. 30 56 60 14 54 1342373888 "button" "&Add to Menu" 0 
  1699. 30 72 60 14 55 1342373888 "button" "&Clear Menu" 0 
  1700. 30 88 60 14 6 1342373888 "button" "&Replace Shaded" 0 
  1701. 30 104 60 14 57 1342373888 "button" "&Shortcut Key..." 0 
  1702. DIALOG ShortcutBox
  1703. -2134376448 10 117 62 160 68 "" "" "Assign Shortcut Key" 
  1704. FONT 6 "Helv" 
  1705. 4 0 38 52 10 1342242823 "button" "State" 0 
  1706. 10 10 26 12 50 1342242819 "button" "&Ctrl" 0 
  1707. 10 22 24 12 51 1342242819 "button" "&Alt" 0 
  1708. 10 34 30 12 52 1342242819 "button" "&Shift" 0 
  1709. 48 18 20 8 1000 1342177280 "static" "Key:" 0 
  1710. 72 16 30 12 8000 1350631552 "edit" "" 0 
  1711. 116 4 40 14 1 1342242817 "button" "OK" 0 
  1712. 116 20 40 14 2 1342242816 "button" "Cancel" 0 
  1713. 116 36 40 14 53 1342242816 "button" "C&lear" 0 
  1714. 4 56 152 8 8001 1342177281 "static" "text" 0 
  1715. 00017447
  1716.