home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 14 / 14.iso / s / s005 / 52.ddi / SMM.LIB / AMISKWP5.SMM < prev    next >
Encoding:
INI File  |  1993-10-26  |  58.8 KB  |  4,245 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [charset]
  6.     82
  7.     ANSI (Windows, IBM CP 1252)
  8. [PanoseFontTable]
  9.     3
  10.     5
  11.     Helvetica
  12.     2818
  13.     1029
  14.     514
  15.     514
  16.     1026
  17.     Helv
  18.     2818
  19.     1029
  20.     514
  21.     770
  22.     1026
  23.     Times New Roman
  24.     514
  25.     774
  26.     1029
  27.     517
  28.     1027
  29. [revisions]
  30.     0
  31. [recfile]
  32.     
  33.     *
  34.     1
  35.     1
  36.     3
  37.     8
  38.     0
  39.     0
  40. [lang]
  41.     1
  42. [desc]
  43.     Ami Pro Switchkit for WordPerfect users
  44.     
  45.     
  46.     
  47.     
  48.     751671450
  49.     184
  50.     718998225
  51.     14530
  52.     16
  53.     2227
  54.     18460
  55.     60
  56.     65
  57.     
  58.     
  59.     
  60.     
  61.     
  62.     
  63.     0
  64. [prn]
  65.     QMS-PS 810
  66. [port]
  67.     LPT1.OS2
  68. [fopts]
  69.     0
  70.     1
  71.     0
  72.     0
  73. [lnopts]
  74.     2
  75.     Body Text
  76.     1
  77. [docopts]
  78.     5
  79.     2
  80. [GramStyle]
  81.     
  82. [tag]
  83.     Function
  84.     4
  85.     [fnt]
  86.         Helvetica
  87.         240
  88.         16727905
  89.         49153
  90.     [algn]
  91.         1
  92.         1
  93.         0
  94.         0
  95.         0
  96.     [spc]
  97.         33
  98.         0
  99.         1
  100.         0
  101.         0
  102.         1
  103.         100
  104.     [brk]
  105.         68
  106.     [line]
  107.         8
  108.         0
  109.         1
  110.         0
  111.         0
  112.         1
  113.         1
  114.         144
  115.         144
  116.         1
  117.     [spec]
  118.         0
  119.         1
  120.         
  121.         0
  122.         1
  123.         1
  124.         0
  125.         0
  126.         0
  127.         0
  128.     [nfmt]
  129.         272
  130.         1
  131.         3
  132.         .
  133.         ,
  134.         $
  135.     Body Text
  136.     0
  137.     0
  138. [tag]
  139.     Body Text
  140.     2
  141.     [fnt]
  142.         Helvetica
  143.         240
  144.         0
  145.         49152
  146.     [algn]
  147.         1
  148.         1
  149.         216
  150.         0
  151.         0
  152.     [spc]
  153.         33
  154.         0
  155.         1
  156.         0
  157.         0
  158.         1
  159.         100
  160.     [brk]
  161.         4
  162.     [line]
  163.         8
  164.         0
  165.         1
  166.         0
  167.         0
  168.         1
  169.         1
  170.         144
  171.         144
  172.         1
  173.     [spec]
  174.         0
  175.         0
  176.         
  177.         0
  178.         1
  179.         1
  180.         0
  181.         16
  182.         0
  183.         0
  184.     [nfmt]
  185.         272
  186.         1
  187.         3
  188.         .
  189.         ,
  190.         $
  191.     Body Text
  192.     0
  193.     0
  194. [lay]
  195.     Standard
  196.     513
  197.     [rght]
  198.         15840
  199.         12240
  200.         1
  201.         1440
  202.         1440
  203.         1
  204.         1440
  205.         1440
  206.         0
  207.         0
  208.         16777215
  209.         0
  210.         0
  211.         1
  212.         1
  213.         1440
  214.         10800
  215.         0
  216.     [frght]
  217.     [lyfrm]
  218.         0
  219.         13184
  220.         0
  221.         14400
  222.         12240
  223.         15840
  224.         0
  225.         1
  226.         1
  227.         0 0 0 0 0 0 0
  228.         0
  229.         16777215
  230.         0
  231.     [frmlay]
  232.         15840
  233.         12240
  234.         1
  235.         1440
  236.         648
  237.         1
  238.         14472
  239.         1440
  240.         0
  241.         0
  242.         16777215
  243.         0
  244.         0
  245.         0
  246.         1
  247.         1440
  248.         10800
  249.         0
  250.     [txt]
  251. <:s>
  252.  
  253. >
  254.     [hrght]
  255.     [lyfrm]
  256.         0
  257.         11136
  258.         0
  259.         0
  260.         12240
  261.         1440
  262.         0
  263.         1
  264.         1
  265.         0 0 0 0 0 0 0
  266.         0
  267.         16777215
  268.         0
  269.     [frmlay]
  270.         1440
  271.         12240
  272.         1
  273.         1440
  274.         72
  275.         1
  276.         648
  277.         1440
  278.         0
  279.         0
  280.         16777215
  281.         0
  282.         0
  283.         0
  284.         1
  285.         1440
  286.         10800
  287.         0
  288.     [txt]
  289. <:s>
  290.  
  291. >
  292. [elay]
  293. [lay]
  294.     1
  295.     513
  296.     [rght]
  297.         15840
  298.         12240
  299.         1
  300.         576
  301.         720
  302.         1
  303.         892
  304.         576
  305.         0
  306.         1
  307.         0
  308.         1
  309.         0
  310.         2
  311.         1
  312.         576
  313.         11664
  314.         12
  315.         1
  316.         990
  317.         1
  318.         1440
  319.         1
  320.         2160
  321.         1
  322.         2880
  323.         1
  324.         3600
  325.         1
  326.         4320
  327.         1
  328.         5040
  329.         1
  330.         5760
  331.         1
  332.         6480
  333.         1
  334.         7200
  335.         1
  336.         7920
  337.         1
  338.         8640
  339.     [hrght]
  340.     [lyfrm]
  341.         0
  342.         11136
  343.         0
  344.         0
  345.         12240
  346.         892
  347.         0
  348.         1
  349.         1
  350.         0 0 0 0 0 0 0
  351.         0
  352.         16777215
  353.         0
  354.     [frmlay]
  355.         892
  356.         12240
  357.         1
  358.         720
  359.         72
  360.         1
  361.         360
  362.         720
  363.         0
  364.         1
  365.         0
  366.         0
  367.         0
  368.         0
  369.         1
  370.         720
  371.         11520
  372.         2
  373.         2
  374.         4680
  375.         3
  376.         9360
  377.     [txt]
  378. <:s><:#P35389440,P975176><+@><:I0,0,0,0><:R1,3,2,5040,1,8375,3,10800,>    
  379.  
  380. >
  381.     [frght]
  382.     [lyfrm]
  383.         0
  384.         13184
  385.         0
  386.         15120
  387.         12240
  388.         15840
  389.         0
  390.         1
  391.         1
  392.         0 0 0 0 0 0 0
  393.         0
  394.         16777215
  395.         0
  396.     [frmlay]
  397.         15840
  398.         12240
  399.         1
  400.         1440
  401.         792
  402.         1
  403.         15192
  404.         1440
  405.         0
  406.         1
  407.         0
  408.         0
  409.         0
  410.         0
  411.         1
  412.         1440
  413.         10800
  414.         2
  415.         2
  416.         4680
  417.         3
  418.         9360
  419.     [txt]
  420. <:s><:#P30670848,P975176>
  421.  
  422. >
  423. [elay]
  424. [l1]
  425.     1
  426. [edoc]
  427. <:s><:#P36333158,P975176>' By Mark Osborne, Mark Eagle & Charlie Pappas
  428.  
  429. <:s><:#P36333158,P975176>
  430.  
  431. <:s><:#P36333158,P975176>DECLARE DlgKeyProc(hDlg,key)
  432.  
  433. <:s><:#P36333158,P975176>'DECLARE EnterKeyProc(hDlg,Id,val)
  434.  
  435. <:s><:#P36333158,P975176>DECLARE FillBox(id,array)
  436.  
  437. <:s><:#P36333158,P975176>DECALRE GetId(key)
  438.  
  439. <:s><:#P36333158,P975176>DECLARE GetOnkeyEquiv(keysc)
  440.  
  441. <:s><:#P36333158,P975176>DECLARE GetTitle()
  442.  
  443. <:s><:#P36333158,P975176>DECLARE Init()
  444.  
  445. <:s><:#P36333158,P975176>DECLARE Initialize(hDlg,id,val)    
  446.  
  447. <:s><:#P36333158,P975176>DECLARE LoadDlgKeyInterupts(Array)
  448.  
  449. <:s><:#P36333158,P975176>DECLARE LoadKS(hdlg,section)
  450.  
  451. <:s><:#P36333158,P975176>DECLARE LoadMenu()
  452.  
  453. <:s><:#P36333158,P975176>DECLARE LoadOnKeyKS()
  454.  
  455. <:s><:#P36333158,P975176>DECLARE LoadOnKeys()
  456.  
  457. <:s><:#P36333158,P975176>DECLARE LoadSmartIcon(hDlg,Section)
  458.  
  459. <:s><:#P36333158,P975176>DECLARE LoadText(id,data)
  460.  
  461. <:s><:#P36333158,P975176>DECLARE Off()
  462.  
  463. <:s><:#P36333158,P975176>DECLARE Packstr(text)
  464.  
  465. <:s><:#P36333158,P975176>DECLARE ReadTopLevel(key)
  466.  
  467. <:s><:#P36333158,P975176>DECLARE SkAbout()
  468.  
  469. <:s><:#P36333158,P975176>DECLARE StripIt(text)
  470.  
  471. <:s><:#P36333158,P975176>DECLARE Test(param)
  472.  
  473. <:s><:#P36333158,P975176>DECLARE Test2(hDlg,id,val)
  474.  
  475. <:s><:#P36333158,P975176>DECLARE UnLoadMenu()
  476.  
  477. <:s><:#P36333158,P975176>DECLARE UnLoadOnKeys()
  478.  
  479. <:s><:#P36333158,P975176>DECLARE UnpackStr(text)
  480.  
  481. <:s><:#P36333158,P975176>DECLARE WriteToBox(hDlg,id,section)    
  482.  
  483. <:s><:#P36333158,P975176>declare getprofile(section, item);    
  484.  
  485. <:s><:#P36333158,P975176>define filename "amiskwp5.sam"
  486.  
  487. <:s><:#P36333158,P975176>
  488.  
  489. @Function@<:s><:#P36333158,P975176>function LoadMenu()
  490.  
  491. <:s><:#P36333158,P975176>hourglass(1)
  492.  
  493. <:s><:#P36333158,P975176>g_hgloss = strcat$("hgloss", filename)
  494.  
  495. <:s><:#P36333158,P975176>allocglobalvar(g_hgloss, 1)
  496.  
  497. <:s><:#P36333158,P975176>if getglobalvar$(g_hgloss) = ""
  498.  
  499. <:s><:#P36333158,P975176>    hgloss = glossaryopen(strcat$(getamidirectory$(), filename))
  500.  
  501. <:s><:#P36333158,P975176>    setglobalvar(g_hgloss, hgloss)
  502.  
  503. <:s><:#P36333158,P975176>endif
  504.  
  505. <:s><:#P36333158,P975176>menu = getprofile("Menus", "Menu") ' &Help
  506.  
  507. <:s><:#P36333158,P975176>item = getprofile("Menus", "Menuitem") ' For &DisplayWrite Users"
  508.  
  509. <:s><:#P36333158,P975176>item1 = getprofile("Menus", "Item1") ' &On
  510.  
  511. <:s><:#P36333158,P975176>item2 = getprofile("Menus", "Item2") ' O&ff
  512.  
  513. <:s><:#P36333158,P975176>item3 = getprofile("Menus", "Item3") ' &Main Menu...
  514.  
  515. <:s><:#P36333158,P975176>item4 = getprofile("Menus", "Item4") ' &About SwitchKit...
  516.  
  517. <:s><:#P36333158,P975176>
  518.  
  519. <:s><:#P36333158,P975176>AllocGlobalVar("SKON",1)
  520.  
  521. <:s><:#P36333158,P975176>macfile = GetRunningMacroFile$()
  522.  
  523. <:s><:#P36333158,P975176>DeleteMenuItem(1,menu,item)
  524.  
  525. <:s><:#P36333158,P975176>InsertCascadeMenu(1,  menu , 7, item)
  526.  
  527. <:s><:#P36333158,P975176>
  528.  
  529. <:s><:#P36333158,P975176>AddCascadeMenuItem(1, menu,item,item1, "{macfile}!SKMain()","")
  530.  
  531. <:s><:#P36333158,P975176>AddCascadeMenuItem(1, menu, item,item2, "{macfile}!Off()","")
  532.  
  533. <:s><:#P36333158,P975176>AddCascadeMenuItem(1,menu, item, "-", "", "")
  534.  
  535. <:s><:#P36333158,P975176>AddCascadeMenuItem(1,menu, item, item4, "{macfile}!MainMenu", "")
  536.  
  537. <:s><:#P36333158,P975176>AddCascadeMenuItem(1, menu,item,"-", "","")
  538.  
  539. <:s><:#P36333158,P975176>AddCascadeMenuItem(1,menu,item,"&About SwitchKit...", "{macfile}!aboutsk","")
  540.  
  541. <:s><:#P36333158,P975176>CheckMenuItem(1, Menu,Item, item2,1)
  542.  
  543. <:s><:#P36333158,P975176>hourglass(0)
  544.  
  545. <:s><:#P36333158,P975176>end function
  546.  
  547. <:s><:#P36333158,P975176>
  548.  
  549. @Function@<:s><:#P36333158,P975176>function getprofile(section, key)
  550.  
  551. <:s><:#P36333158,P975176>data = glossarylookup(getglobalvar$(strcat$("hgloss", filename)), strcat$(section, key))
  552.  
  553. <:s><:#P36333158,P975176>q = left$("""", 1)
  554.  
  555. <:s><:#P36333158,P975176>if left$(data, 1) = q
  556.  
  557. <:s><:#P36333158,P975176>    data = strfield$(data, 2, q)
  558.  
  559. <:s><:#P36333158,P975176>endif
  560.  
  561. <:s><:#P36333158,P975176>if right$(data, 1) = q
  562.  
  563. <:s><:#P36333158,P975176>    data = strfield$(data, 1, q)
  564.  
  565. <:s><:#P36333158,P975176>endif
  566.  
  567. <:s><:#P36333158,P975176>return data
  568.  
  569. <:s><:#P36333158,P975176>end function
  570.  
  571. <:s><:#P36333158,P975176>
  572.  
  573. @Function@<:s><:#P36333158,P975176>function LoadOnKeys()    'need to change this for other switch            
  574.  
  575. <:s><:#P36333158,P975176>ignorekeyboard(1)
  576.  
  577. <:s><:#P36333158,P975176>hourglass(1)
  578.  
  579. <:s><:#P36333158,P975176>macfile = GetRunningMacroFile$()
  580.  
  581. <:s><:#P36333158,P975176>
  582.  
  583. <:s><:#P36333158,P975176>
  584.  
  585. <:s><:#P36333158,P975176><+!> OnKey(<[>F1],0, "{macfile}!ReadTopLevel(F1)")
  586.  
  587. <:s><:#P36333158,P975176><-!>'OnKey(<[>F2],0, "{macfile}!ReadTopLevel(F2)")
  588.  
  589. <:s><:#P36333158,P975176>'OnKey(<[>F3],0, "{macfile}!ReadTopLevel(F3)")
  590.  
  591. <:s><:#P36333158,P975176>'OnKey(<[>F4],0, "{macfile}!ReadTopLevel(F4)")
  592.  
  593. <:s><:#P36333158,P975176><+!> OnKey(<[>F5],0, "{macfile}!ReadTopLevel(F5)")
  594.  
  595. <:s><:#P36333158,P975176><-!>'OnKey(<[>F6],0, "{macfile}!ReadTopLevel(F6)")
  596.  
  597. <:s><:#P36333158,P975176>'OnKey(<[>F7],0, "{macfile}!ReadTopLevel(F7)")
  598.  
  599. <:s><:#P36333158,P975176>'OnKey(<[>F8],0, "{macfile}!ReadTopLevel(F8)")
  600.  
  601. <:s><:#P36333158,P975176>'OnKey(<[>F10],0, "{macfile}!ReadTopLevel(F10)")
  602.  
  603. <:s><:#P36333158,P975176>
  604.  
  605. <:s><:#P36333158,P975176>
  606.  
  607. <:s><:#P36333158,P975176><+!> OnKey(<[>shiftF1],0, "{macfile}!ReadTopLevel(sf1)")
  608.  
  609. <:s><:#P36333158,P975176><-!>'OnKey(<[>shiftF2],0, "{macfile}!ReadTopLevel(sf2)")
  610.  
  611. <:s><:#P36333158,P975176>'OnKey(<[>shiftF3],0, "{macfile}!ReadTopLevel(sf3)")
  612.  
  613. <:s><:#P36333158,P975176>'OnKey(<[>shiftF4],0, "{macfile}!ReadTopLevel(sf4)")
  614.  
  615. <:s><:#P36333158,P975176><+!> OnKey(<[>shiftF5],0, "{macfile}!ReadTopLevel(sf5)")
  616.  
  617. <:s><:#P36333158,P975176><-!>'OnKey(<[>shiftF6],0, "{macfile}!ReadTopLevel(sf6)")
  618.  
  619. <:s><:#P36333158,P975176><+!> OnKey(<[>shiftF7],0, "{macfile}!ReadTopLevel(sf7)")
  620.  
  621. <:s><:#P36333158,P975176><+!> OnKey(<[>shiftF8],0, "{macfile}!ReadTopLevel(sf8)")
  622.  
  623. <:s><:#P36333158,P975176><-!>'OnKey(<[>shiftF9],0, "{macfile}!ReadTopLevel(sf9)")
  624.  
  625. <:s><:#P36333158,P975176>'OnKey(<[>shiftF10],0, "{macfile}!ReadTopLevel(sf10)")
  626.  
  627. <:s><:#P36333158,P975176>
  628.  
  629. <:s><:#P36333158,P975176><+!> OnKey(<[>ctrlF1],0, "{macfile}!ReadTopLevel(ctrlf1)")
  630.  
  631. <:s><:#P36333158,P975176><+!> OnKey(<[>ctrlF3],0, "{macfile}!ReadTopLevel(ctrlf3)")
  632.  
  633. <:s><:#P36333158,P975176><+!> OnKey(<[>ctrlF5],0, "{macfile}!ReadTopLevel(ctrlf5)")
  634.  
  635. <:s><:#P36333158,P975176><+!> OnKey(<[>ctrlF8],0, "{macfile}!ReadTopLevel(ctrlf8)")
  636.  
  637. <:s><:#P36333158,P975176><+!> OnKey(<[>ctrlF9],0, "{macfile}!ReadTopLevel(ctrlf9)")
  638.  
  639. <:s><:#P36333158,P975176><-!>'OnKey(<[>ctrlF10],0, "{macfile}!ReadTopLevel(ctrlf10)")
  640.  
  641. <:s><:#P36333158,P975176>
  642.  
  643. <:s><:#P36333158,P975176>'OnKey(<[>altF1],0, "{macfile}!ReadTopLevel(altf1)")
  644.  
  645. <:s><:#P36333158,P975176>'OnKey(<[>altF2],0, "{macfile}!ReadTopLevel(altf2)")
  646.  
  647. <:s><:#P36333158,P975176>'OnKey(<[>altF3],0, "{macfile}!ReadTopLevel(altf3)")
  648.  
  649. <:s><:#P36333158,P975176>'OnKey(<[>altF6],0, "{macfile}!ReadTopLevel(altf6)")
  650.  
  651. <:s><:#P36333158,P975176><+!> OnKey(<[>altF7],0, "{macfile}!ReadTopLevel(altf7)")
  652.  
  653. <:s><:#P36333158,P975176><+!> OnKey(<[>altF8],0, "{macfile}!ReadTopLevel(altf8)")
  654.  
  655. <:s><:#P36333158,P975176><+!> OnKey(<[>altF9],0, "{macfile}!ReadTopLevel(altf9)")
  656.  
  657. <:s><:#P36333158,P975176><-!>'OnKey(<[>altF10],0, "{macfile}!ReadTopLevel(altf10)")
  658.  
  659. <:s><:#P36333158,P975176>hourglass(0)
  660.  
  661. <:s><:#P36333158,P975176>
  662.  
  663. <:s><:#P36333158,P975176>end function
  664.  
  665. <:s><:#P36333158,P975176>
  666.  
  667. @Function@<:s><:#P36333158,P975176>function skmain()
  668.  
  669. <:s><:#P36333158,P975176>ignorekeyboard(1)
  670.  
  671. <:s><:#P36333158,P975176>hourglass(1)
  672.  
  673. <:s><:#P36333158,P975176>
  674.  
  675. <:s><:#P36333158,P975176>if GetOpenFileCount() << 1
  676.  
  677. <:s><:#P36333158,P975176>    message(getprofile("Msg", "msg1"))    
  678.  
  679. <:s><:#P36333158,P975176>    exit function
  680.  
  681. <:s><:#P36333158,P975176>endif
  682.  
  683. <:s><:#P36333158,P975176>
  684.  
  685. <:s><:#P36333158,P975176>SetGlobalVar("SKON",1)                'Flag for future switchkits to see it this one running
  686.  
  687. <:s><:#P36333158,P975176>
  688.  
  689. <:s><:#P36333158,P975176>menu = getprofile("Menus", "Menu") ' &Help
  690.  
  691. <:s><:#P36333158,P975176>item = getprofile("Menus", "Menuitem") ' For &DisplayWrite Users"
  692.  
  693. <:s><:#P36333158,P975176>item1 = getprofile("Menus", "Item1") ' &On
  694.  
  695. <:s><:#P36333158,P975176>item2 = getprofile("Menus", "Item2") ' O&ff
  696.  
  697. <:s><:#P36333158,P975176>
  698.  
  699. <:s><:#P36333158,P975176>CheckMenuItem(1, Menu,Item, item1,1)
  700.  
  701. <:s><:#P36333158,P975176>CheckMenuItem(1, Menu,Item, item2,0)
  702.  
  703. <:s><:#P36333158,P975176>AllocGlobalVar("AccKeys",130)
  704.  
  705. <:s><:#P36333158,P975176>AllocGlobalVar("levelflag",1)
  706.  
  707. <:s><:#P36333158,P975176>SetGlobalVar("levelflag",1)
  708.  
  709. <:s><:#P36333158,P975176>macfile = GetRunningMacroFile$()
  710.  
  711. <:s><:#P36333158,P975176>SetDlgCallBack(0, "{macfile}!Initialize")
  712.  
  713. <:s><:#P36333158,P975176>SetDlgCallBack(25,"{macfile}!EnterKeyProc")
  714.  
  715. <:s><:#P36333158,P975176>SetDlgCallBack(9000, "{macfile}!L9000")
  716.  
  717. <:s><:#P36333158,P975176>SetDlgCallBack(9003, "{macfile}!L9003")
  718.  
  719. <:s><:#P36333158,P975176>LoadOnKeys()
  720.  
  721. <:s><:#P36333158,P975176>LoadOnKeyKS()
  722.  
  723. <:s><:#P36333158,P975176>FreeGlobalVar("hDlg")
  724.  
  725. <:s><:#P36333158,P975176>hourglass(0)
  726.  
  727. <:s><:#P36333158,P975176>end function 
  728.  
  729. <:s><:#P36333158,P975176>
  730.  
  731. @Function@<:s><:#P36333158,P975176>function Initialize(hDlg,id,val)        
  732.  
  733. <:s><:#P36333158,P975176>ignorekeyboard(1)
  734.  
  735. <:s><:#P36333158,P975176>allocglobalvar("hDlg",1)
  736.  
  737. <:s><:#P36333158,P975176>SetGlobalVar("hDlg",hDlg)
  738.  
  739. <:s><:#P36333158,P975176>'hctrl = GetDlgItem(hDlg,9003 )         'disable the number list box
  740.  
  741. <:s><:#P36333158,P975176>'EnableWindow(hdlg, hctrl, 0)
  742.  
  743. <:s><:#P36333158,P975176><+!>DlgEnableControl(hdlg, 9003, 0)
  744.  
  745. <:s><:#P36333158,P975176><-!>end function
  746.  
  747. <:s><:#P36333158,P975176>
  748.  
  749. <:s><:#P36333158,P975176>
  750.  
  751. @Function@<:s><:#P36333158,P975176>function LoadOnKeyKS()
  752.  
  753. <:s><:#P36333158,P975176>ignorekeyboard(1)
  754.  
  755. <:s><:#P36333158,P975176>hourglass(1)
  756.  
  757. <:s><:#P36333158,P975176>macfile=getrunningmacrofile$()
  758.  
  759. <:s><:#P36333158,P975176>defstr stat;
  760.  
  761. <:s><:#P36333158,P975176>ct = 1
  762.  
  763. <:s><:#P36333158,P975176>while "" != Assign(&stat,Getprofile("KeyboardShortcuts",ct))
  764.  
  765. <:s><:#P36333158,P975176>    keysc = StrField$(stat,1,"~")            'this gets CTRL+F4
  766.  
  767. <:s><:#P36333158,P975176>    section = StrField$(stat,2,"~")            'this gets  End and Save
  768.  
  769. <:s><:#P36333158,P975176>    newkeysc =  GetOnkeyEquiv(keysc)        'Returns CTRLF4 in a from suitable for Onkeys
  770.  
  771. <:s><:#P36333158,P975176>    text = section
  772.  
  773. <:s><:#P36333158,P975176>'message("{newkeysc},{section}")
  774.  
  775. <:s><:#P36333158,P975176>    Onkey(newkeysc,0,"{macfile}!test(""{text}"")")
  776.  
  777. <:s><:#P36333158,P975176>    ct = ct + 1
  778.  
  779. <:s><:#P36333158,P975176>wend
  780.  
  781. <:s><:#P36333158,P975176>ignorekeyboard(0)
  782.  
  783. <:s><:#P36333158,P975176>hourglass(0)
  784.  
  785. <:s><:#P36333158,P975176>end function
  786.  
  787. <:s><:#P36333158,P975176>
  788.  
  789. @Function@<:s><:#P36333158,P1950352>function packstr(str)                    'Utility function to replace spaces with underscores
  790.  
  791. <:s><:#P36333158,P975176>ignorekeyboard(1)
  792.  
  793. <:s><:#P36333158,P975176>hourglass(1)
  794.  
  795. <:s><:#P36333158,P975176>    newstr=""
  796.  
  797. <:s><:#P36333158,P975176>    l = len(str)
  798.  
  799. <:s><:#P36333158,P975176>    hit = 0
  800.  
  801. <:s><:#P36333158,P975176>    for i = 1 to l
  802.  
  803. <:s><:#P36333158,P975176>        char =  Mid$(str,i,1)
  804.  
  805. <:s><:#P36333158,P975176>        if char = " " 
  806.  
  807. <:s><:#P36333158,P975176>            then char = "_"
  808.  
  809. <:s><:#P36333158,P975176>            hit = 1
  810.  
  811. <:s><:#P36333158,P975176>        endif
  812.  
  813. <:s><:#P36333158,P975176>        newstr = strcat$(newstr,char)
  814.  
  815. <:s><:#P36333158,P975176>    next
  816.  
  817. <:s><:#P36333158,P975176>    'message(newstr)
  818.  
  819. <:s><:#P36333158,P975176>    if hit = 1
  820.  
  821. <:s><:#P36333158,P975176>        hourglass(0)
  822.  
  823. <:s><:#P36333158,P975176>        return(newstr)
  824.  
  825. <:s><:#P36333158,P975176>    else
  826.  
  827. <:s><:#P36333158,P975176>        hourglass(0)
  828.  
  829. <:s><:#P36333158,P975176>        return(str)
  830.  
  831. <:s><:#P36333158,P975176>    endif
  832.  
  833. <:s><:#P36333158,P975176>end function
  834.  
  835. <:s><:#P36333158,P975176>
  836.  
  837. <:s><:#P36333158,P975176>function unpackstr(str)                'utility function to replace underscores withs spaces
  838.  
  839. <:s><:#P36333158,P975176>ignorekeyboard(1)
  840.  
  841. <:s><:#P36333158,P975176>hourglass(1)
  842.  
  843. <:s><:#P36333158,P975176>newstr=""
  844.  
  845. <:s><:#P36333158,P975176>l = len(str) 
  846.  
  847. <:s><:#P36333158,P975176>hit = 0
  848.  
  849. <:s><:#P36333158,P975176>for i = 1 to l
  850.  
  851. <:s><:#P36333158,P975176>    char =  Mid$(str,i,1)
  852.  
  853. <:s><:#P36333158,P975176>    if char = "_" 
  854.  
  855. <:s><:#P36333158,P975176>        then char = " "
  856.  
  857. <:s><:#P36333158,P975176>        hit = 1
  858.  
  859. <:s><:#P36333158,P975176>    endif
  860.  
  861. <:s><:#P36333158,P975176>    newstr = strcat$(newstr,char)
  862.  
  863. <:s><:#P36333158,P975176>next
  864.  
  865. <:s><:#P36333158,P975176>if hit = 1
  866.  
  867. <:s><:#P36333158,P975176>    hourglass(0)
  868.  
  869. <:s><:#P36333158,P975176>    return(newstr)
  870.  
  871. <:s><:#P36333158,P975176>else
  872.  
  873. <:s><:#P36333158,P975176>    hourglass(0)
  874.  
  875. <:s><:#P36333158,P975176>    return(str)
  876.  
  877. <:s><:#P36333158,P975176>endif
  878.  
  879. <:s><:#P36333158,P975176>end function
  880.  
  881. <:s><:#P36333158,P975176>
  882.  
  883. <:s><:#P36333158,P975176>function test(param)                                'KsOnKey Proc
  884.  
  885. <:s><:#P36333158,P975176>ignorekeyboard(1)
  886.  
  887. <:s><:#P36333158,P975176>hourglass(1)
  888.  
  889. <:s><:#P36333158,P975176>'message(param)
  890.  
  891. <:s><:#P36333158,P975176>macfile= getrunningmacrofile$()
  892.  
  893. <:s><:#P36333158,P975176>SetDlgCallBack(0, "{macfile}!test2")                  'Used to get hdlg to call writetobox function
  894.  
  895. <:s><:#P36333158,P975176>SetDlgCallBack(25,"{macfile}!EnterKeyProc")
  896.  
  897. <:s><:#P36333158,P975176>SetDlgCallBack(9000, "{macfile}!L9000")
  898.  
  899. <:s><:#P36333158,P975176>SetDlgCallBack(9003, "{macfile}!L9003")
  900.  
  901. <:s><:#P36333158,P975176>allocglobalvar("section",1)
  902.  
  903. <:s><:#P36333158,P975176>'section = unpackstr(param)
  904.  
  905. <:s><:#P36333158,P975176>section = param                        'dont need this anymore 
  906.  
  907. <:s><:#P36333158,P975176>setglobalvar("section",section)            
  908.  
  909. <:s><:#P36333158,P975176>hourglass(0)
  910.  
  911. <:s><:#P36333158,P975176>box = dialogbox(".", "SK")
  912.  
  913. <:s><:#P36333158,P975176>if box = 0
  914.  
  915. <:s><:#P36333158,P1950352>    setglobalvar("levelflag",1)        'ESC from box set this back to 1 so that box will show on next call
  916.  
  917. <:s><:#P36333158,P975176>endif
  918.  
  919. <:s><:#P36333158,P975176>SetDlgCallBack(9000, "{MacFile}!L9000")
  920.  
  921. <:s><:#P36333158,P975176>SetDlgCallBack(25,"{macfile}!EnterKeyProc")
  922.  
  923. <:s><:#P36333158,P975176>ignorekeyboard(0)
  924.  
  925. <:s><:#P36333158,P975176>hourglass(0)
  926.  
  927. <:s><:#P36333158,P975176>end function
  928.  
  929. <:s><:#P36333158,P975176>
  930.  
  931. <:s><:#P36333158,P975176>function test2(hDlg,id,val)                'might need to do L callbacks now
  932.  
  933. <:s><:#P36333158,P975176>ignorekeyboard(1)
  934.  
  935. <:s><:#P36333158,P975176>hourglass(1)
  936.  
  937. <:s><:#P36333158,P975176>id = 0                            'initialize - dont really need here
  938.  
  939. <:s><:#P36333158,P975176>section = getglobalvar$("section")        'get section from global variable
  940.  
  941. <:s><:#P36333158,P975176>level = WriteToBox(hDlg,0,section)            'send section to lookup and write to dlg box
  942.  
  943. <:s><:#P36333158,P975176>if level = 0                    'new
  944.  
  945. <:s><:#P36333158,P975176>    SetGlobalVar("levelflag",0)
  946.  
  947. <:s><:#P36333158,P975176>endif
  948.  
  949. <:s><:#P36333158,P975176>hourglass(0)
  950.  
  951. <:s><:#P36333158,P975176>end function
  952.  
  953. <:s><:#P36333158,P975176>
  954.  
  955. <:s><:#P36333158,P975176>function FillBox(id,array)
  956.  
  957. <:s><:#P36333158,P975176>ignorekeyboard(1)
  958.  
  959. <:s><:#P36333158,P975176>FillEdit(id,&array)
  960.  
  961. <:s><:#P36333158,P975176>end function
  962.  
  963. <:s><:#P36333158,P975176>
  964.  
  965. <:s><:#P36333158,P975176>function GetHotKeyOld(strdata)
  966.  
  967. <:s><:#P36333158,P975176>ignorekeyboard(1)
  968.  
  969. <:s><:#P36333158,P975176>hotkeypos = strchr(1,strdata, "&")
  970.  
  971. <:s><:#P36333158,P975176>hotkey = Mid$(strdata, hotkeypos + 1,1)
  972.  
  973. <:s><:#P36333158,P975176>if (hotkey = "" )
  974.  
  975. <:s><:#P36333158,P975176>    return (-1)
  976.  
  977. <:s><:#P36333158,P975176>else
  978.  
  979. <:s><:#P36333158,P975176>    return (hotkey)
  980.  
  981. <:s><:#P36333158,P975176>endif
  982.  
  983. <:s><:#P36333158,P975176>end function
  984.  
  985. <:s><:#P36333158,P975176>
  986.  
  987. <:s><:#P36333158,P975176>function GetHotKey(strdata)
  988.  
  989. <:s><:#P36333158,P975176>hotkey = Strfield$(strdata,1"-")
  990.  
  991. <:s><:#P36333158,P975176>if (hotkey = "" )
  992.  
  993. <:s><:#P36333158,P975176>    return ""
  994.  
  995. <:s><:#P36333158,P975176>elseif (hotkey = -1)
  996.  
  997. <:s><:#P36333158,P975176>    return ""
  998.  
  999. <:s><:#P36333158,P975176>else
  1000.  
  1001. <:s><:#P36333158,P975176>    return (hotkey)
  1002.  
  1003. <:s><:#P36333158,P975176>endif
  1004.  
  1005. <:s><:#P36333158,P975176>end function
  1006.  
  1007. <:s><:#P36333158,P975176>
  1008.  
  1009. <:s><:#P36333158,P1950352>function RemoveAmpersand(showntext)                  'Utility function to cleanup and parse help string
  1010.  
  1011. <:s><:#P36333158,P975176>ignorekeyboard(1)
  1012.  
  1013. <:s><:#P36333158,P975176>    badchars= "&"                    
  1014.  
  1015. <:s><:#P36333158,P975176>    char= badchars
  1016.  
  1017. <:s><:#P36333158,P975176>    if strchr(1, showntext, char) = -1
  1018.  
  1019. <:s><:#P36333158,P975176>        return showntext
  1020.  
  1021. <:s><:#P36333158,P975176>    else
  1022.  
  1023. <:s><:#P36333158,P975176>        dim part(20)
  1024.  
  1025. <:s><:#P36333158,P975176>        if left$(showntext,1) = badchars
  1026.  
  1027. <:s><:#P36333158,P975176>            newtext = mid$(showntext,2,30)
  1028.  
  1029. <:s><:#P36333158,P975176>            return newtext
  1030.  
  1031. <:s><:#P36333158,P975176>        else
  1032.  
  1033. <:s><:#P36333158,P975176>            x = 1
  1034.  
  1035. <:s><:#P36333158,P975176>            part(x) =strfield$(showntext, x, char)
  1036.  
  1037. <:s><:#P36333158,P975176>            if part(x) = -1 or part(x) = ""
  1038.  
  1039. <:s><:#P36333158,P975176>                return showntext
  1040.  
  1041. <:s><:#P36333158,P975176>            endif
  1042.  
  1043. <:s><:#P36333158,P975176>            newtext=strcat$(newtext, part(x))
  1044.  
  1045. <:s><:#P36333158,P975176>            return showntext
  1046.  
  1047. <:s><:#P36333158,P975176>        endif
  1048.  
  1049. <:s><:#P36333158,P975176>    endif
  1050.  
  1051. <:s><:#P36333158,P975176>end function
  1052.  
  1053. <:s><:#P36333158,P975176>
  1054.  
  1055. <:s><:#P36333158,P975176>
  1056.  
  1057. <:s><:#P36333158,P975176>function mainmenu()
  1058.  
  1059. <:s><:#P36333158,P975176>ignorekeyboard(1)
  1060.  
  1061. <:s><:#P36333158,P975176>'singlestep(1)
  1062.  
  1063. <:s><:#P36333158,P975176>    if  GetGlobalVar$("SKON") <<<;> 1        ' if off then turn on before show main menu
  1064.  
  1065. <:s><:#P36333158,P975176>        skmain()                'this will set global on    
  1066.  
  1067. <:s><:#P36333158,P975176>        ReadTopLevel("MM")        'display main menu
  1068.  
  1069. <:s><:#P36333158,P975176>    else
  1070.  
  1071. <:s><:#P36333158,P975176>        ReadTopLevel("MM")        'sk is on already just show main menu 
  1072.  
  1073. <:s><:#P36333158,P975176>    endif
  1074.  
  1075. <:s><:#P36333158,P975176>
  1076.  
  1077. <:s><:#P36333158,P975176>end function
  1078.  
  1079. <:s><:#P36333158,P975176>
  1080.  
  1081. <:s><:#P36333158,P975176>
  1082.  
  1083. <:s><:#P36333158,P975176>
  1084.  
  1085. <:s><:#P36333158,P1950352>function ReadTopLevel(key)                    'Given key reads ini file to find items for 1st level
  1086.  
  1087. <:s><:#P36333158,P975176>ignorekeyboard(1)
  1088.  
  1089. <:s><:#P36333158,P975176>hourglass(1)
  1090.  
  1091. <:s><:#P36333158,P975176>macfile = GetRunningMacroFile$()
  1092.  
  1093. <:s><:#P36333158,P975176>SetDlgCallBack(0,"{macfile}!Initialize")
  1094.  
  1095. <:s><:#P36333158,P975176>SetDlgCallBack(9000, "{MacFile}!L9000")
  1096.  
  1097. <:s><:#P36333158,P975176>SetDlgCallBack(25,"{macfile}!EnterKeyProc")
  1098.  
  1099. <:s><:#P36333158,P975176>SetDlgCallBack(9003, "{macfile}!L9003")
  1100.  
  1101. <:s><:#P36333158,P975176>
  1102.  
  1103. <:s><:#P36333158,P975176>AllocGlobalVar("gkey", 1)
  1104.  
  1105. <:s><:#P36333158,P975176>SetGlobalVar("gkey",key)
  1106.  
  1107. <:s><:#P36333158,P975176>SetGlobalVar("levelflag",1)                'will need this for F4 - ctrl s -F4 combinations 
  1108.  
  1109. <:s><:#P36333158,P975176>key=ucase$(key)
  1110.  
  1111. <:s><:#P36333158,P975176>'message(key)
  1112.  
  1113. <:s><:#P36333158,P975176>strdata = Getprofile("OnKeys",key)
  1114.  
  1115. <:s><:#P36333158,P975176>'message(strdata)
  1116.  
  1117. <:s><:#P36333158,P975176>if key = "MM"
  1118.  
  1119. <:s><:#P36333158,P975176>    STRDATA = strcat$(strdata, Getprofile("OnKeys","MM2"))
  1120.  
  1121. <:s><:#P36333158,P975176>endif
  1122.  
  1123. <:s><:#P36333158,P975176>defstr stat;
  1124.  
  1125. <:s><:#P36333158,P975176>ct = 2                                    'skip the first it is the title name
  1126.  
  1127. <:s><:#P36333158,P975176>dim strtok(40)
  1128.  
  1129. <:s><:#P36333158,P975176>dim dlgkeys(40)
  1130.  
  1131. <:s><:#P36333158,P1950352>while -1 != Assign(&stat, StrField$(strdata,ct,"~"))        'each token from keys key of onkeys section 
  1132.  
  1133. <:s><:#P36333158,P975176>    hotkey = GetHotKey(stat)                    'get the hot key
  1134.  
  1135. <:s><:#P36333158,P975176>    SetGlobalArray("AccKeys", ct - 1,hotkey)            'store accellerators in global array
  1136.  
  1137. <:s><:#P36333158,P975176>    FillEdit(9003, ct - 1)
  1138.  
  1139. <:s><:#P36333158,P975176>    ct = ct + 1
  1140.  
  1141. <:s><:#P36333158,P975176>    FillEdit(9000,stat)
  1142.  
  1143. <:s><:#P36333158,P975176>wend
  1144.  
  1145. <:s><:#P36333158,P975176>title = gettitle()
  1146.  
  1147. <:s><:#P36333158,P975176>title = strcat$(GetGlobalVar$("gkey"),":  ",title)
  1148.  
  1149. <:s><:#P36333158,P975176>FillEdit(1000,title)
  1150.  
  1151. <:s><:#P36333158,P975176>hourglass(0)
  1152.  
  1153. <:s><:#P36333158,P975176><:R1,11,1,720,1,3420,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,>box = dialogbox(".", "SK")
  1154.  
  1155. <:s><:#P36333158,P975176>if box <<<;> 1
  1156.  
  1157. <:s><:#P36333158,P975176>endif
  1158.  
  1159. <:s><:#P36333158,P975176>macfile = GetRunningMacroFile$()
  1160.  
  1161. <:s><:#P36333158,P975176>SetDlgCallBack(9000, "{MacFile}!L9000")
  1162.  
  1163. <:s><:#P36333158,P975176>SetDlgCallBack(25,"{macfile}!EnterKeyProc")
  1164.  
  1165. <:s><:#P36333158,P975176>end function
  1166.  
  1167. <:s><:#P36333158,P975176>
  1168.  
  1169. <:s><:#P36333158,P975176>function GetTitle()                        'Returns onkey keys
  1170.  
  1171. <:s><:#P36333158,P975176>ignorekeyboard(1)
  1172.  
  1173. <:s><:#P36333158,P975176>key= GetGlobalVar$("gkey")
  1174.  
  1175. <:s><:#P36333158,P975176>strdata = Getprofile("OnKeys",key)
  1176.  
  1177. <:s><:#P36333158,P975176>section = StrField$(strdata,1,"~")
  1178.  
  1179. <:s><:#P36333158,P975176>return section
  1180.  
  1181. <:s><:#P36333158,P975176>end function
  1182.  
  1183. <:s><:#P36333158,P975176>
  1184.  
  1185. <:s><:#P36333158,P975176>
  1186.  
  1187. <:s><:#P36333158,P975176>                                    'Edit this function at your own risk
  1188.  
  1189. @Function@<:s><:#P36333158,P975176>function WriteToBox(hDlg,key2,section)    
  1190.  
  1191. <:s><:#P36333158,P975176>ignorekeyboard(1)
  1192.  
  1193. <:s><:#P36333158,P975176>hourglass(1)
  1194.  
  1195. <:s><:#P36333158,P975176>'handle = GetDlgItem(hdlg, 9004)
  1196.  
  1197. <:s><:#P36333158,P975176>'handle2  = GetDlgItem(hdlg, 9000)
  1198.  
  1199. <:s><:#P36333158,P975176>'handle3 = GetDlgItem(hdlg, 9003)
  1200.  
  1201. <:s><:#P36333158,P975176>'SetDlgItemText(hDlg,1001, "")                    'Clear main box
  1202.  
  1203. <:s><:#P36333158,P975176>'SendMessage(handle, LB_ResetContent, 0, 0)            'this no works
  1204.  
  1205. <:s><:#P36333158,P975176><+!>DlgClearControl(hdlg, 9004)
  1206.  
  1207. <:s><:#P36333158,P975176><-!>defstr stat;
  1208.  
  1209. <:s><:#P36333158,P975176>key2 = chr$(key2)
  1210.  
  1211. <:s><:#P36333158,P975176>dim data(85)                            'maximum number of help items in list box
  1212.  
  1213. <:s><:#P36333158,P975176>ct = 1
  1214.  
  1215. <:s><:#P36333158,P975176>LoadText(section,&data)                        'get the stuff        
  1216.  
  1217. <:s><:#P36333158,P975176>asize = ArraySize(&data)
  1218.  
  1219. <:s><:#P36333158,P975176>level = Getprofile(section,"level")
  1220.  
  1221. <:s><:#P36333158,P975176>'message("*{section}*level")
  1222.  
  1223. <:s><:#P36333158,P975176>if level = 0        'SUBLEVEL
  1224.  
  1225. <:s><:#P36333158,P975176>    'SendMessage(handle2, LB_ResetContent, 0, 0)        'clear right  box
  1226.  
  1227. <:s><:#P36333158,P975176>    'SendMessage(handle3, LB_ResetContent, 0, 0)        'clear left box
  1228.  
  1229. <:s><:#P36333158,P975176>    <+!>DlgClearControl(hdlg, 9000)
  1230.  
  1231. <:s><:#P36333158,P975176>    <-!>DlgClearControl(hdlg, 9003)
  1232.  
  1233. <:s><:#P36333158,P975176>    for i = 1 to asize            
  1234.  
  1235. <:s><:#P36333158,P975176>        if data(i) <<<;> ""                        
  1236.  
  1237. <:s><:#P36333158,P975176>            SetDlgItemText(hDlg,9000, data(i)) 'Put ith ini line in  right box
  1238.  
  1239. <:s><:#P36333158,P975176>            SetDlgItemText(hDlg,9003, ct)        'fill left box with numbers
  1240.  
  1241. <:s><:#P36333158,P975176>            dlgnum = 48 + ct                'load corresponding dlgkey
  1242.  
  1243. <:s><:#P36333158,P975176>            'LoadDlgKeyInterupts(dlgnum)
  1244.  
  1245. <:s><:#P36333158,P975176>            ct = ct + 1
  1246.  
  1247. <:s><:#P36333158,P975176>        else
  1248.  
  1249. <:s><:#P36333158,P975176>            i = asize                     'Quit
  1250.  
  1251. <:s><:#P36333158,P975176>        endif
  1252.  
  1253. <:s><:#P36333158,P975176>    next
  1254.  
  1255. <:s><:#P36333158,P975176>    hourglass(0)
  1256.  
  1257. <:s><:#P36333158,P975176>    return 1                            'flag that says there is still more stuff to do
  1258.  
  1259. <:s><:#P36333158,P975176>else    
  1260.  
  1261. <:s><:#P36333158,P975176>    stuff = ""
  1262.  
  1263. <:s><:#P36333158,P975176>    LoadKS(hdlg,section)
  1264.  
  1265. <:s><:#P36333158,P975176>    for i = 1 to asize                            'this is not  a sublevel
  1266.  
  1267. <:s><:#P36333158,P975176>        if data(i) <<<;> ""
  1268.  
  1269. <:s><:#P36333158,P975176>            'stuff = strcat$(stuff,data(i),Chr$(10),Chr$(13))           'Add CR LF to each string
  1270.  
  1271. <:s><:#P36333158,P975176>            'SetDlgItemText(hDlg,1001, stuff)             'so that goes nicely in static text box
  1272.  
  1273. <:s><:#P36333158,P975176>            sectiontext = stripit(section)
  1274.  
  1275. <:s><:#P36333158,P975176>            SetDlgItemText(hDlg,1000, sectiontext)
  1276.  
  1277. <:s><:#P36333158,P975176>            SetDlgItemText(hDlg,9004, data(i))
  1278.  
  1279. <:s><:#P36333158,P975176>        else
  1280.  
  1281. <:s><:#P36333158,P975176>            i = asize                                  'Quit
  1282.  
  1283. <:s><:#P36333158,P975176>        endif
  1284.  
  1285. <:s><:#P36333158,P975176>    next
  1286.  
  1287. <:s><:#P36333158,P975176>    hourglass(0)
  1288.  
  1289. <:s><:#P36333158,P975176>    return 0                    'this is it. Last level. Make enterkeyproc shut box down
  1290.  
  1291. <:s><:#P36333158,P975176>endif
  1292.  
  1293. <:s><:#P36333158,P975176>end function
  1294.  
  1295. <:s><:#P36333158,P975176>
  1296.  
  1297. <:s><:#P36333158,P975176>function LoadKS(hdlg,section)            'writes the keyboard shortcut to the dlg box
  1298.  
  1299. <:s><:#P36333158,P975176>ignorekeyboard(1)
  1300.  
  1301. <:s>SetDlgItemText(Hdlg, 1008,"")
  1302.  
  1303. <:s>ks = Getprofile(Section,"KS")
  1304.  
  1305. <:s>if ks <<<;> ""
  1306.  
  1307. <:s>    SetDlgItemText(Hdlg, 1008,ks)
  1308.  
  1309. <:s>    SetDlgItemText(Hdlg, 1001,"Keyboard Shortcut-")    'Static text that was deleted when no shortcuts    
  1310.  
  1311. <:s>       else
  1312.  
  1313. <:s>    SetDlgItemText(Hdlg, 1001,"")
  1314.  
  1315. <:s>endif
  1316.  
  1317. <:s>end function
  1318.  
  1319. <:s>
  1320.  
  1321. <:s>function LoadText(section,data)
  1322.  
  1323. <:s>ignorekeyboard(1)
  1324.  
  1325. <:s>defstr stat;
  1326.  
  1327. <:s>ct = 1
  1328.  
  1329. <:s>if left(section, 1) = " "
  1330.  
  1331. <:s>    section = right(section, (len(section) - 1))
  1332.  
  1333. <:s>endif
  1334.  
  1335. <:s>while "" != Assign(&stat,Getprofile(section,ct));
  1336.  
  1337. <:s>    *data(ct) = stat;
  1338.  
  1339. <:s>    ct = ct + 1
  1340.  
  1341. <:s>wend
  1342.  
  1343. <:s>end function
  1344.  
  1345. <:s>
  1346.  
  1347. <:s>function StripIt(text)        'use to strip off tag before reserved wod names that dont pass as arguments
  1348.  
  1349. <:s>if Instr(0, text,"tag")
  1350.  
  1351. <:s>    return mid$(text,4,len(text) - 2)    'assue tag which is 3
  1352.  
  1353. <:s>else
  1354.  
  1355. <:s>    return text    
  1356.  
  1357. <:s>endif
  1358.  
  1359. <:s>end function
  1360.  
  1361. <:s>
  1362.  
  1363. <:s>function LoadDlgKeyInterupts(dlgnum)            'Key is the first level index
  1364.  
  1365. <:s>ignorekeyboard(1)
  1366.  
  1367. <:s>defstr stat;
  1368.  
  1369. <:s>macfile = getrunningmacrofile$()
  1370.  
  1371. <:s>'DlgKeyInterrupt(dlgnum, "{macfile}!dlgtst")
  1372.  
  1373. <:s>DlgKeyInterrupt(dlgnum, "{macfile}!dlgkeyproc")
  1374.  
  1375. <:s>end function
  1376.  
  1377. <:s>
  1378.  
  1379. @Function@<:s>function  DlgTst(hDlg,key)
  1380.  
  1381. <:s>ignorekeyboard(1)
  1382.  
  1383. <:s>defstr selstring;
  1384.  
  1385. <:s>key = key - 48                        'VK for 1 is 48: convert to equivelent index value
  1386.  
  1387. <:s>'message(key)
  1388.  
  1389. <:s>'handle1 = GetDlgItem(hDlg,9000)
  1390.  
  1391. <:s>'handle2 = GetDlgItem(hDlg,9003)
  1392.  
  1393. <:s>key = key - 1                                'index is 0 based
  1394.  
  1395. <:s>'SendMessage(handle1,LB_SETCURSEL,key ,0)            'Select LB contents for right box
  1396.  
  1397. <:s>'SendMessage(handle2,LB_SETCURSEL,key ,0)            'Match box to the left
  1398.  
  1399. <:s><+!>DlgSetListBoxIndex(hdlg, 9000, key)
  1400.  
  1401. <:s><+!>DlgSetListBoxIndex(hdlg, 9003, key)
  1402.  
  1403. <:s><-!>end function
  1404.  
  1405. <:s>
  1406.  
  1407. @Function@<:s>function DlgKeyProc(hDlg,key)
  1408.  
  1409. <:s>ignorekeyboard(1)
  1410.  
  1411. <:s>Dim point(2)
  1412.  
  1413. <:s>defstr selstring; 
  1414.  
  1415. <:s>key = chr$(key)
  1416.  
  1417. <:s>'message(key)
  1418.  
  1419. <:s>for x = 1 to 30
  1420.  
  1421. <:s>    hit = GetGlobalArray$("AccKeys",x)
  1422.  
  1423. <:s>    if ucase$(hit) = ucase$(key)
  1424.  
  1425. <:s>        break                            'stop numbering you found the hit
  1426.  
  1427. <:s>    endif
  1428.  
  1429. <:s>next
  1430.  
  1431. <:s>'handle1 = GetDlgItem(hDlg,9000)                        
  1432.  
  1433. <:s>'SendMessage(handle1,LB_SETCURSEL, (x - 1),0)        'Select LB contents for right box
  1434.  
  1435. <:s><+!>DlgSetListBoxIndex(hdlg, 9000, (x - 1))
  1436.  
  1437. <:s><-!>end function
  1438.  
  1439. <:s>
  1440.  
  1441. @Function@<:s>function L9003(hDlg,id,val)                    'If clicked on selects matching index in 9000 box
  1442.  
  1443. <:s>ignorekeyboard(1)
  1444.  
  1445. <:s>defstr selstring;
  1446.  
  1447. <:s>'handle1 = GetDlgItem(hDlg,9003)
  1448.  
  1449. <:s>'handle2 = GetDlgItem(hDlg,9000)
  1450.  
  1451. <:s>'indx=Sendmessage(handle1,LB_GetCurSel,0,0)
  1452.  
  1453. <:s><+!>indx = DlgGetListBoxIndex(hdlg, 9003)
  1454.  
  1455. <:s>
  1456.  
  1457. <:s><-!>'SendMessage(handle2,LB_SETCURSEL,indx ,0)
  1458.  
  1459. <:s><+!>DlgSetListBoxIndex(hdlg, 9000, indx)
  1460.  
  1461. <:s><-!>end function
  1462.  
  1463. <:s>
  1464.  
  1465. @Function@<:s>function L9000(hDlg,id,val)                    'Selects index then writes to box
  1466.  
  1467. <:s>ignorekeyboard(1)
  1468.  
  1469. <:s>defstr selstring;
  1470.  
  1471. <:s>defstr stat;
  1472.  
  1473. <:s>'handle1 = GetDlgItem(hDlg,9000)
  1474.  
  1475. <:s>'handle2 = GetDlgItem(hDlg,9003)
  1476.  
  1477. <:s>'indx=Sendmessage(handle1,LB_GetCurSel,0,0)
  1478.  
  1479. <:s><+!>indx = DlgGetListBoxIndex(hdlg, 9000)
  1480.  
  1481. <:s>
  1482.  
  1483. <:s><-!>'SendMessage(handle2,LB_SETCURSEL,indx ,0)
  1484.  
  1485. <:s><+!>DlgSetListBoxIndex(hdlg, 9003, indx)
  1486.  
  1487. <:s>
  1488.  
  1489. <:s>
  1490.  
  1491. <:s><-!>'SendMessage(handle1,LB_GetText,indx,&selstring)
  1492.  
  1493. <:s><+!>selstring = DlgGetListBoxLine$(hdlg, 9000, indx)
  1494.  
  1495. <:s>
  1496.  
  1497. <:s><-!>selstring = strfield$(selstring,2,"-")
  1498.  
  1499. <:s>'match=Sendmessage(handle,LB_FindString,0,val)
  1500.  
  1501. <:s>if left$(selstring, 1) = " "
  1502.  
  1503. <:s>    selstring = right$(selstring, (len(selstring) - 1))
  1504.  
  1505. <:s>endif
  1506.  
  1507. <:s>
  1508.  
  1509. <:s>level=WriteToBox(hDlg,id,selstring)
  1510.  
  1511. <:s>if level = 0
  1512.  
  1513. <:s>    SetGlobalVar("levelflag",0)
  1514.  
  1515. <:s>endif
  1516.  
  1517. <:s>ignorekeyboard(0)
  1518.  
  1519. <:s>end function
  1520.  
  1521. <:s>
  1522.  
  1523. @Function@<:s>function EnterKeyProc(hDlg,Id,val)
  1524.  
  1525. <:s>message("hit me")
  1526.  
  1527. <:s>return 1
  1528.  
  1529. <:s>ignorekeyboard(1)
  1530.  
  1531. <:s>defstr selstring;
  1532.  
  1533. <:s>defstr stat;
  1534.  
  1535. <:s>if getglobalvar$("levelflag") = 0            'someone said to shut it down next time
  1536.  
  1537. <:s>    'sendkeys("<[>ESC]")                'shut down the box
  1538.  
  1539. <:s>    SetGlobalVar("levelflag",1)        'prime it for next time. assume that will allways have 1 level
  1540.  
  1541. <:s>    exit function
  1542.  
  1543. <:s>endif    
  1544.  
  1545. <:s>'handle1 = GetDlgItem(hDlg,9000)
  1546.  
  1547. <:s>'indx=Sendmessage(handle1,LB_GetCurSel,0,0)        'To select the first help item
  1548.  
  1549. <:s><+!>indx = DlgGetListBoxIndex(hdlg, 9000)
  1550.  
  1551. <:s><-!>'level = 0        'what does this do?
  1552.  
  1553. <:s>if indx <<<;> -1
  1554.  
  1555. <:s>    'SendMessage(handle1,LB_GetText,indx,&selstring)
  1556.  
  1557. <:s>    <+!>selstring = DlgGetListBoxLine$(hdlg, id, indx)
  1558.  
  1559. <:s>    <-!>selstring = strfield$(selstring,2,"-")
  1560.  
  1561. <:s>    level =WriteToBox(hDlg,id,selstring)
  1562.  
  1563. <:s>endif
  1564.  
  1565. <:s>if level = 0
  1566.  
  1567. <:s>    SetGlobalVar("levelflag",0)
  1568.  
  1569. <:s>endif
  1570.  
  1571. <:s>end function
  1572.  
  1573. <:s>
  1574.  
  1575. @Function@<:s>function DoNextLevel(section,newdata)
  1576.  
  1577. <:s>ignorekeyboard(1)
  1578.  
  1579. <:s>nextlevel = Getprofile(section,nextlevel)
  1580.  
  1581. <:s>defstr stat;
  1582.  
  1583. <:s>ct = 2                            
  1584.  
  1585. <:s>dim strtok(20)
  1586.  
  1587. <:s>dim dlgkeys(20)
  1588.  
  1589. <:s>'while -1 != Assign(&stat, StrField$(section,ct,"~"))        'each token from keys key of onkeys section 
  1590.  
  1591. <:s>    strtok(ct) = stat
  1592.  
  1593. <:s>    'dlgkeys(ct - 1) = Left$(Lcase$(stat),1)             'load onkey keys. start at 1
  1594.  
  1595. <:s>    dlgnum = 49 + (ct - 2)                    'do virtual keys
  1596.  
  1597. <:s>    LoadDlgKeyInterupts(dlgnum)
  1598.  
  1599. <:s>    ct = ct + 1
  1600.  
  1601. <:s>            FillEdit(9003, (ct - 2))
  1602.  
  1603. <:s>'wend
  1604.  
  1605. <:s>FillBox(9000,&strtok)
  1606.  
  1607. <:s>end function
  1608.  
  1609. <:s>
  1610.  
  1611. @Function@<:s>function Off()                        'Disable SwitchKit
  1612.  
  1613. <:s>ignorekeyboard(1)
  1614.  
  1615. <:s>menu = getprofile("Menus", "Menu") ' &Help
  1616.  
  1617. <:s>item = getprofile("Menus", "Menuitem") ' For &DisplayWrite Users"
  1618.  
  1619. <:s>item1 = getprofile("Menus", "Item1") ' &On
  1620.  
  1621. <:s>item2 = getprofile("Menus", "Item2") ' O&ff
  1622.  
  1623. <:s>
  1624.  
  1625. <:s>'hourglass(1)
  1626.  
  1627. <:s>
  1628.  
  1629. <:s>defstr stat;
  1630.  
  1631. <:s>SetGlobalVar("SKON",0)
  1632.  
  1633. <:s>
  1634.  
  1635. <:s>CheckMenuItem(1, Menu,Item, item1,0)
  1636.  
  1637. <:s>CheckMenuItem(1, Menu,Item, item2,1)
  1638.  
  1639. <:s>OnKey(<[>F2],0, "")
  1640.  
  1641. <:s>OnKey(<[>F3],0, "")
  1642.  
  1643. <:s>OnKey(<[>F4],0, "")
  1644.  
  1645. <:s>OnKey(<[>F5],0, "")
  1646.  
  1647. <:s>OnKey(<[>F6],0, "")
  1648.  
  1649. <:s>OnKey(<[>F7],0, "")
  1650.  
  1651. <:s>OnKey(<[>F8],0, "")
  1652.  
  1653. <:s>OnKey(<[>F9],0, "")
  1654.  
  1655. <:s>OnKey(<[>F10],0, "")
  1656.  
  1657. <:s>ct = 1                ' changed from ct + 2
  1658.  
  1659. <:s>while "" != Assign(&stat,Getprofile("KeyboardShortcuts",ct))    
  1660.  
  1661. <:s>    keysc = StrField$(stat,1,"~")
  1662.  
  1663. <:s>    newkeysc =  GetOnkeyEquiv(keysc)
  1664.  
  1665. <:s>    Onkey(newkeysc,0,"")
  1666.  
  1667. <:s>    ct = ct + 1
  1668.  
  1669. <:s>wend
  1670.  
  1671. <:s>'hourglass(0)
  1672.  
  1673. <:s>ignorekeyboard(0)
  1674.  
  1675. <:s>end function
  1676.  
  1677. <:s>
  1678.  
  1679. <:s>
  1680.  
  1681. @Function@<:s>Function GetOnkeyEquiv(keysc)        'returns onkey equiv for shortcut key
  1682.  
  1683. <:s>ignorekeyboard(1)
  1684.  
  1685. <:s>upper = ucase$(keysc)
  1686.  
  1687. <:s>switch upper
  1688.  
  1689. <:s>case("ALT1")
  1690.  
  1691. <:s>    return(<[>alt1])
  1692.  
  1693. <:s>case("ALT2")
  1694.  
  1695. <:s>    return(<[>alt2])
  1696.  
  1697. <:s>case("ALT7")
  1698.  
  1699. <:s>    return(<[>alt7])
  1700.  
  1701. <:s>case("ALT8")
  1702.  
  1703. <:s>    return(<[>alt8])
  1704.  
  1705. <:s>
  1706.  
  1707. <:s>case("ALTF1")
  1708.  
  1709. <:s>    return(<[>altf1])
  1710.  
  1711. <:s>case("ALTF2")
  1712.  
  1713. <:s>    return(<[>altf2])
  1714.  
  1715. <:s>case("ALTF3")
  1716.  
  1717. <:s>    return(<[>altf3])
  1718.  
  1719. <:s>case("ALTF4")
  1720.  
  1721. <:s>    return(<[>altf4])
  1722.  
  1723. <:s>case("ALTF5")
  1724.  
  1725. <:s>    return(<[>altf5])
  1726.  
  1727. <:s>case("ALTF6")
  1728.  
  1729. <:s>    return(<[>altf6])
  1730.  
  1731. <:s>case("ALTF10")
  1732.  
  1733. <:s>    return(<[>altf10])
  1734.  
  1735. <:s>
  1736.  
  1737. <:s>case("CTRLA")
  1738.  
  1739. <:s>    return(<[>ctrla])
  1740.  
  1741. <:s>case("CTRLB")
  1742.  
  1743. <:s>    return(<[>ctrlb])
  1744.  
  1745. <:s>case("CTRLC")
  1746.  
  1747. <:s>    return(<[>ctrlc])
  1748.  
  1749. <:s>case("CTRLD")
  1750.  
  1751. <:s>    return(<[>ctrld])
  1752.  
  1753. <:s>case("CTRLE")
  1754.  
  1755. <:s>    return(<[>ctrle])
  1756.  
  1757. <:s>case("CTRLF")
  1758.  
  1759. <:s>    return(<[>ctrlf])
  1760.  
  1761. <:s>case("CTRLG")
  1762.  
  1763. <:s>    return(<[>ctrlg])
  1764.  
  1765. <:s>case("CTRLH")
  1766.  
  1767. <:s>    return(<[>ctrlh])
  1768.  
  1769. <:s>case("CTRLI")
  1770.  
  1771. <:s>    return(<[>ctrli])
  1772.  
  1773. <:s>case("CTRLJ")
  1774.  
  1775. <:s>    return(<[>ctrlj])
  1776.  
  1777. <:s>case("CTRLK")
  1778.  
  1779. <:s>    return(<[>ctrlk])
  1780.  
  1781. <:s>case("CTRLL")
  1782.  
  1783. <:s>    return(<[>ctrll])
  1784.  
  1785. <:s>case("CTRLM")
  1786.  
  1787. <:s>    return(<[>ctrlm])
  1788.  
  1789. <:s>case("CTRLN")
  1790.  
  1791. <:s>    return(<[>ctrln])
  1792.  
  1793. <:s>case("CTRLO")
  1794.  
  1795. <:s>    return(<[>ctrlo])
  1796.  
  1797. <:s>case("CTRLP")
  1798.  
  1799. <:s>    return(<[>ctrlp])
  1800.  
  1801. <:s>case("CTRLQ")
  1802.  
  1803. <:s>    return(<[>ctrlq])
  1804.  
  1805. <:s>case("CTRLR")
  1806.  
  1807. <:s>    return(<[>ctrlr])
  1808.  
  1809. <:s>case("CTRLS")
  1810.  
  1811. <:s>    return(<[>ctrls])
  1812.  
  1813. <:s>case("CTRLT")
  1814.  
  1815. <:s>    return(<[>ctrlt])
  1816.  
  1817. <:s>case("CTRLU")
  1818.  
  1819. <:s>    return(<[>ctrlu])
  1820.  
  1821. <:s>case("CTRLV")
  1822.  
  1823. <:s>    return(<[>ctrlv])
  1824.  
  1825. <:s>case("CTRLW")
  1826.  
  1827. <:s>    return(<[>ctrlw])
  1828.  
  1829. <:s>case("CTRLX")
  1830.  
  1831. <:s>    return(<[>ctrlx])
  1832.  
  1833. <:s>case("CTRLY")
  1834.  
  1835. <:s>    return(<[>ctrly])
  1836.  
  1837. <:s>
  1838.  
  1839. <:s>case("CTRLF1")
  1840.  
  1841. <:s>    return(<[>ctrlf1])
  1842.  
  1843. <:s>case("CTRLF2")
  1844.  
  1845. <:s>    return(<[>ctrlf2])
  1846.  
  1847. <:s>case("CTRLF3")
  1848.  
  1849. <:s>    return(<[>ctrlf3])
  1850.  
  1851. <:s>case("CTRLF4")
  1852.  
  1853. <:s>    return(<[>ctrlf4])
  1854.  
  1855. <:s>case("CTRLF5")
  1856.  
  1857. <:s>    return(<[>ctrlf5])
  1858.  
  1859. <:s>case("CTRLF6")
  1860.  
  1861. <:s>    return(<[>ctrlf6])
  1862.  
  1863. <:s>case("CTRLF7")
  1864.  
  1865. <:s>    return(<[>ctrlf7])
  1866.  
  1867. <:s>case("CTRLF8")
  1868.  
  1869. <:s>    return(<[>ctrlf8])
  1870.  
  1871. <:s>case("CTRLF9")
  1872.  
  1873. <:s>    return(<[>ctrlf9])
  1874.  
  1875. <:s>case("CTRLF10")
  1876.  
  1877. <:s>    return(<[>ctrlf10])
  1878.  
  1879. <:s>
  1880.  
  1881. <:s>case("F2")
  1882.  
  1883. <:s>    return(<[>f2])
  1884.  
  1885. <:s>case("F3")
  1886.  
  1887. <:s>    return(<[>f3])
  1888.  
  1889. <:s>case("F4")
  1890.  
  1891. <:s>    return(<[>f4])
  1892.  
  1893. <:s>case("F6")
  1894.  
  1895. <:s>    return(<[>f6])
  1896.  
  1897. <:s>case("F7")
  1898.  
  1899. <:s>    return(<[>f7])
  1900.  
  1901. <:s>case("F8")
  1902.  
  1903. <:s>    return(<[>f8])
  1904.  
  1905. <:s>case("F9")
  1906.  
  1907. <:s>    return(<[>f9])
  1908.  
  1909. <:s>case("F10")
  1910.  
  1911. <:s>    return(<[>f10])
  1912.  
  1913. <:s>case("F11")
  1914.  
  1915. <:s>    return(<[>f11])
  1916.  
  1917. <:s>case("F12")    
  1918.  
  1919. <:s>    return(<[>f12])
  1920.  
  1921. <:s>
  1922.  
  1923. <:s>case("SF1")
  1924.  
  1925. <:s>    return(<[>shiftf1])
  1926.  
  1927. <:s>case("SF2")
  1928.  
  1929. <:s>    return(<[>shiftf2])
  1930.  
  1931. <:s>case("SF3")
  1932.  
  1933. <:s>    return(<[>shiftf3])
  1934.  
  1935. <:s>case("SF4")
  1936.  
  1937. <:s>    return(<[>shiftf4])
  1938.  
  1939. <:s>case("SF6")
  1940.  
  1941. <:s>    return(<[>shiftf6])
  1942.  
  1943. <:s>case("SF9")
  1944.  
  1945. <:s>    return(<[>shiftf9])
  1946.  
  1947. <:s>case("SF10")
  1948.  
  1949. <:s>    return(<[>shiftf10])
  1950.  
  1951. <:s>
  1952.  
  1953. <:s>endswitch
  1954.  
  1955. <:s>end function
  1956.  
  1957. <:s>
  1958.  
  1959. <:s>
  1960.  
  1961. @Function@<:s>function aboutsk()
  1962.  
  1963. <:s>ignorekeyboard(1)
  1964.  
  1965. <:s>box = dialogbox(".","about")
  1966.  
  1967. <:s>end function
  1968.  
  1969. <:s>
  1970.  
  1971. <:s>
  1972.  
  1973. <:s>
  1974.  
  1975. <:s>DIALOG    SK
  1976.  
  1977. <:s>-2134376448    10    24    38    300    123    ""    ""    "WordPerfect SwitchKit"
  1978.  
  1979. <:s>FONT    8    "Helv"
  1980.  
  1981. <:s>26    22    99    79    9000    1352728577    "listbox"    ""    0 
  1982.  
  1983. <:s>217    200    33    13    25    1342308353    "button"    "Default"    0 
  1984.  
  1985. <:s>7    22    16    79    9003    1352663041    "listbox"    ""    0 
  1986.  
  1987. <:s>195    104    17    12    1006    1342177290    "static"    "filename.bmp"    0 
  1988.  
  1989. <:s>7    11    40    8    1004    1342177280    "static"    "Options:"    0 
  1990.  
  1991. <:s>127    11    45    8    1005    1342177280    "static"    "Ami Pro Help:"    0 
  1992.  
  1993. <:s>132    22    166    79    9004    1352728577    "listbox"    ""    0 
  1994.  
  1995. <:s>6    107    64    8    1001    1342177280    "static"    "Keyboard Shortcut-"    0 
  1996.  
  1997. <:s>72    107    38    10    1008    1342177280    "static"    ""    0 
  1998.  
  1999. <:s>260    5    34    13    1    1342373888    "button"    "Done"    0 
  2000.  
  2001. <:s>END DIALOG
  2002.  
  2003. <:s>
  2004.  
  2005. <:s>38    2    65    8    1000    1342177280    "static"    ""    0 
  2006.  
  2007. <:s>127    107    66    9    1007    1342177280    "static"    "Ami Pro SmartIcon-"    0 
  2008.  
  2009. <:s>7    2    29    8    1003    1342177280    "static"    "Feature:"    0 
  2010.  
  2011. <:s>
  2012.  
  2013. <:s>
  2014.  
  2015. <:s>DIALOG    about
  2016.  
  2017. <:s>-2134376448    7    84    26    134    90    ""    ""    "Ami Pro"
  2018.  
  2019. <:s>FONT    8    "Helv"
  2020.  
  2021. <:s>5    6    122    10    1000    1342177281    "static"    "Ami Pro SwitchKit"    0 
  2022.  
  2023. <:s>5    16    122    10    1001    1342177281    "static"    "for WordPerfect Users"    0 
  2024.  
  2025. <:s>5    26    122    10    1002    1342177281    "static"    "Lotus Development Corporation"    0 
  2026.  
  2027. <:s>5    36    122    10    1003    1342177281    "static"    "WordPerfect by"    0 
  2028.  
  2029. <:s>5    46    122    10    1004    1342177281    "static"    "WordPerfect Corporation"    0 
  2030.  
  2031. <:s>5    56    122    10    1007    1342177281    "static"    "All rights Reserved."    0 
  2032.  
  2033. <:s>47    70    40    14    1    1342373889    "button"    "OK"    0 
  2034.  
  2035. <:s>END DIALOG
  2036.  
  2037. <:s>
  2038.  
  2039. <:s>
  2040. >
  2041.  
  2042. [Embedded]
  2043. 00038983
  2044. >
  2045. [macsum4] 33 313
  2046. LoadMenu 0 0 10 31
  2047. getprofile 1113 2 3 61
  2048. LoadOnKeys 1523 0 2 73
  2049. skmain 2502 0 6 120
  2050. Initialize 3335 3 1 152
  2051. LoadOnKeyKS 3502 0 8 162
  2052. packstr 4057 1 6 181
  2053. unpackstr 4615 1 6 205
  2054. test 5177 1 4 228
  2055. test2 5714 3 3 252
  2056. FillBox 6009 2 1 264
  2057. GetHotKeyOld 6109 1 3 269
  2058. GetHotKey 6387 1 2 280
  2059. RemoveAmpersand 6649 1 6 291
  2060. mainmenu 7269 0 1 315
  2061. ReadTopLevel 7464 1 10 329
  2062. GetTitle 8684 0 4 371
  2063. WriteToBox 8907 3 10 381
  2064. LoadKS 10132 2 2 435
  2065. LoadText 10438 2 3 447
  2066. StripIt 10816 1 1 460
  2067. LoadDlgKeyInterupts 11007 1 3 468
  2068. DlgTst 11190 2 2 476
  2069. DlgKeyProc 11403 2 5 490
  2070. L9003 11851 3 3 507
  2071. L9000 12030 3 5 519
  2072. EnterKeyProc 12551 3 5 548
  2073. DoNextLevel 13099 2 7 574
  2074. Off 13566 0 9 592
  2075. GetOnkeyEquiv 14610 1 2 627
  2076. aboutsk 19143 0 2 767
  2077. SK 19244 0 65535 774
  2078. about 19835 0 65535 794
  2079. [macse]
  2080. 14 LoadMenu
  2081. 29 0 LoadMenu
  2082. 17 1
  2083. 0 296 1
  2084. 17 2
  2085. 29 1 g_hgloss
  2086. 0 16 "hgloss" "amiskwp5.sam"
  2087. 13
  2088. 8 1
  2089. 17 3
  2090. 0 271 "{1}" 1
  2091. 17 4
  2092. 0 265 "{1}"
  2093. 13
  2094. 7 ""
  2095. 18 0
  2096. 11 00000276
  2097. 17 5
  2098. 29 2 hgloss
  2099. 0 798
  2100. 13
  2101. 0 16 [X] "amiskwp5.sam"
  2102. 13
  2103. 0 302 [X]
  2104. 13
  2105. 8 2
  2106. 17 6
  2107. 0 264 "{1}" "{2}"
  2108. 17 8
  2109. 29 3 menu
  2110. 16 getprofile "Menus" "Menu"
  2111. 13
  2112. 8 3
  2113. 17 9
  2114. 29 4 item
  2115. 16 getprofile "Menus" "Menuitem"
  2116. 13
  2117. 8 4
  2118. 17 10
  2119. 29 5 item1
  2120. 16 getprofile "Menus" "Item1"
  2121. 13
  2122. 8 5
  2123. 17 11
  2124. 29 6 item2
  2125. 16 getprofile "Menus" "Item2"
  2126. 13
  2127. 8 6
  2128. 17 12
  2129. 29 7 item3
  2130. 16 getprofile "Menus" "Item3"
  2131. 13
  2132. 8 7
  2133. 17 13
  2134. 29 8 item4
  2135. 16 getprofile "Menus" "Item4"
  2136. 13
  2137. 8 8
  2138. 17 15
  2139. 0 271 "SKON" 1
  2140. 17 16
  2141. 29 9 macfile
  2142. 0 802
  2143. 13
  2144. 8 9
  2145. 17 17
  2146. 0 520 1 "{3}" "{4}"
  2147. 17 18
  2148. 0 528 1 "{3}" 7 "{4}"
  2149. 17 20
  2150. 0 525 1 "{3}" "{4}" "{5}" "{9}!SKMain()" ""
  2151. 17 21
  2152. 0 525 1 "{3}" "{4}" "{6}" "{9}!Off()" ""
  2153. 17 22
  2154. 0 525 1 "{3}" "{4}" "-" "" ""
  2155. 17 23
  2156. 0 525 1 "{3}" "{4}" "{8}" "{9}!MainMenu" ""
  2157. 17 24
  2158. 0 525 1 "{3}" "{4}" "-" "" ""
  2159. 17 25
  2160. 0 525 1 "{3}" "{4}" "&About SwitchKit..." "{9}!aboutsk" ""
  2161. 17 26
  2162. 0 518 1 "{3}" "{4}" "{6}" 1
  2163. 17 27
  2164. 0 296 0
  2165. 6 0
  2166. 15
  2167. 17 28
  2168. 9
  2169. 14 getprofile
  2170. 29 0 section
  2171. 29 1 key
  2172. 29 2 getprofile
  2173. 17 1
  2174. 29 3 data
  2175. 0 16 "hgloss" "amiskwp5.sam"
  2176. 13
  2177. 0 265 [X]
  2178. 13
  2179. 0 16 "{0}" "{1}"
  2180. 13
  2181. 0 303 [X] [X]
  2182. 13
  2183. 8 3
  2184. 17 2
  2185. 29 4 q
  2186. 0 806 """" 1
  2187. 13
  2188. 8 4
  2189. 17 3
  2190. 0 806 "{3}" 1
  2191. 13
  2192. 6 4
  2193. 18 0
  2194. 11 00000289
  2195. 17 4
  2196. 0 20 "{3}" 2 "{4}"
  2197. 13
  2198. 8 3
  2199. 17 6
  2200. 0 807 "{3}" 1
  2201. 13
  2202. 6 4
  2203. 18 0
  2204. 11 00000373
  2205. 17 7
  2206. 0 20 "{3}" 1 "{4}"
  2207. 13
  2208. 8 3
  2209. 17 9
  2210. 6 3
  2211. 15
  2212. 9
  2213. 6 2
  2214. 15
  2215. 17 10
  2216. 9
  2217. 14 LoadOnKeys
  2218. 29 0 LoadOnKeys
  2219. 17 1
  2220. 0 32 1
  2221. 17 2
  2222. 0 296 1
  2223. 17 3
  2224. 29 1 macfile
  2225. 0 802
  2226. 13
  2227. 8 1
  2228. 17 6
  2229. 32 2 101 32854 7  "{1}!ReadTopLevel(F1)" 112 0 1
  2230. 17 10
  2231. 32 2 101 32854 7  "{1}!ReadTopLevel(F5)" 116 0 1
  2232. 17 17
  2233. 32 2 101 32854 7  "{1}!ReadTopLevel(sf1)" 4208 0 1
  2234. 17 21
  2235. 32 2 101 32854 7  "{1}!ReadTopLevel(sf5)" 4212 0 1
  2236. 17 23
  2237. 32 2 101 32854 7  "{1}!ReadTopLevel(sf7)" 4214 0 1
  2238. 17 24
  2239. 32 2 101 32854 7  "{1}!ReadTopLevel(sf8)" 4215 0 1
  2240. 17 28
  2241. 32 2 101 32854 7  "{1}!ReadTopLevel(ctrlf1)" 16496 0 1
  2242. 17 29
  2243. 32 2 101 32854 7  "{1}!ReadTopLevel(ctrlf3)" 16498 0 1
  2244. 17 30
  2245. 32 2 101 32854 7  "{1}!ReadTopLevel(ctrlf5)" 16500 0 1
  2246. 17 31
  2247. 32 2 101 32854 7  "{1}!ReadTopLevel(ctrlf8)" 16503 0 1
  2248. 17 32
  2249. 32 2 101 32854 7  "{1}!ReadTopLevel(ctrlf9)" 16504 0 1
  2250. 17 39
  2251. 32 2 101 32854 7  "{1}!ReadTopLevel(altf7)" 8310 0 1
  2252. 17 40
  2253. 32 2 101 32854 7  "{1}!ReadTopLevel(altf8)" 8311 0 1
  2254. 17 41
  2255. 32 2 101 32854 7  "{1}!ReadTopLevel(altf9)" 8312 0 1
  2256. 17 43
  2257. 0 296 0
  2258. 6 0
  2259. 15
  2260. 17 45
  2261. 9
  2262. 14 skmain
  2263. 29 0 skmain
  2264. 17 1
  2265. 0 32 1
  2266. 17 2
  2267. 0 296 1
  2268. 17 4
  2269. 0 1050
  2270. 13
  2271. 5 1
  2272. 18 5
  2273. 11 00000154
  2274. 17 5
  2275. 16 getprofile "Msg" "msg1"
  2276. 13
  2277. 0 3 [X]
  2278. 6 0
  2279. 15
  2280. 9
  2281. 17 9
  2282. 0 264 "SKON" 1
  2283. 17 11
  2284. 29 1 menu
  2285. 16 getprofile "Menus" "Menu"
  2286. 13
  2287. 8 1
  2288. 17 12
  2289. 29 2 item
  2290. 16 getprofile "Menus" "Menuitem"
  2291. 13
  2292. 8 2
  2293. 17 13
  2294. 29 3 item1
  2295. 16 getprofile "Menus" "Item1"
  2296. 13
  2297. 8 3
  2298. 17 14
  2299. 29 4 item2
  2300. 16 getprofile "Menus" "Item2"
  2301. 13
  2302. 8 4
  2303. 17 16
  2304. 0 518 1 "{1}" "{2}" "{3}" 1
  2305. 17 17
  2306. 0 518 1 "{1}" "{2}" "{4}" 0
  2307. 17 18
  2308. 0 271 "AccKeys" 130
  2309. 17 19
  2310. 0 271 "levelflag" 1
  2311. 17 20
  2312. 0 264 "levelflag" 1
  2313. 17 21
  2314. 29 5 macfile
  2315. 0 802
  2316. 13
  2317. 8 5
  2318. 17 22
  2319. 0 41 0 "{5}!Initialize"
  2320. 17 23
  2321. 0 41 25 "{5}!EnterKeyProc"
  2322. 17 24
  2323. 0 41 9000 "{5}!L9000"
  2324. 17 25
  2325. 0 41 9003 "{5}!L9003"
  2326. 17 26
  2327. 16 LoadOnKeys
  2328. 17 27
  2329. 16 LoadOnKeyKS
  2330. 17 28
  2331. 0 266 "hDlg"
  2332. 17 29
  2333. 0 296 0
  2334. 6 0
  2335. 15
  2336. 17 30
  2337. 9
  2338. 14 Initialize
  2339. 29 0 hDlg
  2340. 29 1 id
  2341. 29 2 val
  2342. 29 3 Initialize
  2343. 17 1
  2344. 0 32 1
  2345. 17 2
  2346. 0 271 "hDlg" 1
  2347. 17 3
  2348. 0 264 "hDlg" "{0}"
  2349. 17 6
  2350. 0 53 "{0}" 9003 0
  2351. 6 3
  2352. 15
  2353. 17 7
  2354. 9
  2355. 14 LoadOnKeyKS
  2356. 29 0 LoadOnKeyKS
  2357. 17 1
  2358. 0 32 1
  2359. 17 2
  2360. 0 296 1
  2361. 17 3
  2362. 29 1 macfile
  2363. 0 802
  2364. 13
  2365. 8 1
  2366. 17 4
  2367. 29 2 stat
  2368. 17 5
  2369. 29 3 ct
  2370. 5 1
  2371. 8 3
  2372. 17 6
  2373. 7 ""
  2374. 16 Getprofile "KeyboardShortcuts" "{3}"
  2375. 13
  2376. 0 805 &2 [X]
  2377. 13
  2378. 18 1
  2379. 11 00000505
  2380. 17 7
  2381. 29 4 keysc
  2382. 0 20 "{2}" 1 "~"
  2383. 13
  2384. 8 4
  2385. 17 8
  2386. 29 5 section
  2387. 0 20 "{2}" 2 "~"
  2388. 13
  2389. 8 5
  2390. 17 9
  2391. 29 6 newkeysc
  2392. 16 GetOnkeyEquiv "{4}"
  2393. 13
  2394. 8 6
  2395. 17 10
  2396. 29 7 text
  2397. 6 5
  2398. 8 7
  2399. 17 12
  2400. 32 2 101 32854 7  "{1}!test(""{7}"")" "{6}" 0 1
  2401. 17 13
  2402. 6 3
  2403. 5 1
  2404. 3 0
  2405. 8 3
  2406. 10 00000141
  2407. 17 15
  2408. 0 32 0
  2409. 17 16
  2410. 0 296 0
  2411. 6 0
  2412. 15
  2413. 17 17
  2414. 9
  2415. 14 packstr
  2416. 29 0 str
  2417. 29 1 packstr
  2418. 17 1
  2419. 0 32 1
  2420. 17 2
  2421. 0 296 1
  2422. 17 3
  2423. 29 2 newstr
  2424. 7 ""
  2425. 8 2
  2426. 17 4
  2427. 29 3 l
  2428. 0 14 "{0}"
  2429. 13
  2430. 8 3
  2431. 17 5
  2432. 29 4 hit
  2433. 5 0
  2434. 8 4
  2435. 29 5 i
  2436. 5 1
  2437. 8 5
  2438. 17 6
  2439. 6 3
  2440. 6 5
  2441. 18 2
  2442. 12 00000255
  2443. 10 00000420
  2444. 5 1
  2445. 6 5
  2446. 3 0
  2447. 8 5
  2448. 10 00000174
  2449. 17 7
  2450. 29 6 char
  2451. 0 15 "{0}" "{5}" 1
  2452. 13
  2453. 8 6
  2454. 17 8
  2455. 6 6
  2456. 7 " "
  2457. 18 0
  2458. 11 00000373
  2459. 17 9
  2460. 7 "_"
  2461. 8 6
  2462. 17 10
  2463. 5 1
  2464. 8 4
  2465. 17 12
  2466. 0 16 "{2}" "{6}"
  2467. 13
  2468. 8 2
  2469. 10 00000222
  2470. 17 15
  2471. 6 4
  2472. 5 1
  2473. 18 0
  2474. 11 00000504
  2475. 17 16
  2476. 0 296 0
  2477. 17 17
  2478. 6 2
  2479. 15
  2480. 9
  2481. 10 00000539
  2482. 17 19
  2483. 0 296 0
  2484. 17 20
  2485. 6 0
  2486. 15
  2487. 9
  2488. 6 1
  2489. 15
  2490. 17 22
  2491. 9
  2492. 14 unpackstr
  2493. 29 0 str
  2494. 29 1 unpackstr
  2495. 17 1
  2496. 0 32 1
  2497. 17 2
  2498. 0 296 1
  2499. 17 3
  2500. 29 2 newstr
  2501. 7 ""
  2502. 8 2
  2503. 17 4
  2504. 29 3 l
  2505. 0 14 "{0}"
  2506. 13
  2507. 8 3
  2508. 17 5
  2509. 29 4 hit
  2510. 5 0
  2511. 8 4
  2512. 29 5 i
  2513. 5 1
  2514. 8 5
  2515. 17 6
  2516. 6 3
  2517. 6 5
  2518. 18 2
  2519. 12 00000259
  2520. 10 00000424
  2521. 5 1
  2522. 6 5
  2523. 3 0
  2524. 8 5
  2525. 10 00000178
  2526. 17 7
  2527. 29 6 char
  2528. 0 15 "{0}" "{5}" 1
  2529. 13
  2530. 8 6
  2531. 17 8
  2532. 6 6
  2533. 7 "_"
  2534. 18 0
  2535. 11 00000377
  2536. 17 9
  2537. 7 " "
  2538. 8 6
  2539. 17 10
  2540. 5 1
  2541. 8 4
  2542. 17 12
  2543. 0 16 "{2}" "{6}"
  2544. 13
  2545. 8 2
  2546. 10 00000226
  2547. 17 14
  2548. 6 4
  2549. 5 1
  2550. 18 0
  2551. 11 00000508
  2552. 17 15
  2553. 0 296 0
  2554. 17 16
  2555. 6 2
  2556. 15
  2557. 9
  2558. 10 00000543
  2559. 17 18
  2560. 0 296 0
  2561. 17 19
  2562. 6 0
  2563. 15
  2564. 9
  2565. 6 1
  2566. 15
  2567. 17 21
  2568. 9
  2569. 14 test
  2570. 29 0 param
  2571. 29 1 test
  2572. 17 1
  2573. 0 32 1
  2574. 17 2
  2575. 0 296 1
  2576. 17 4
  2577. 29 2 macfile
  2578. 0 802
  2579. 13
  2580. 8 2
  2581. 17 5
  2582. 0 41 0 "{2}!test2"
  2583. 17 6
  2584. 0 41 25 "{2}!EnterKeyProc"
  2585. 17 7
  2586. 0 41 9000 "{2}!L9000"
  2587. 17 8
  2588. 0 41 9003 "{2}!L9003"
  2589. 17 9
  2590. 0 271 "section" 1
  2591. 17 11
  2592. 29 3 section
  2593. 6 0
  2594. 8 3
  2595. 17 12
  2596. 0 264 "section" "{3}"
  2597. 17 13
  2598. 0 296 0
  2599. 17 14
  2600. 29 4 box
  2601. 0 26 "." "SK"
  2602. 13
  2603. 8 4
  2604. 17 15
  2605. 6 4
  2606. 5 0
  2607. 18 0
  2608. 11 00000422
  2609. 17 16
  2610. 0 264 "levelflag" 1
  2611. 17 18
  2612. 0 41 9000 "{2}!L9000"
  2613. 17 19
  2614. 0 41 25 "{2}!EnterKeyProc"
  2615. 17 20
  2616. 0 32 0
  2617. 17 21
  2618. 0 296 0
  2619. 6 1
  2620. 15
  2621. 17 22
  2622. 9
  2623. 14 test2
  2624. 29 0 hDlg
  2625. 29 1 id
  2626. 29 2 val
  2627. 29 3 test2
  2628. 17 1
  2629. 0 32 1
  2630. 17 2
  2631. 0 296 1
  2632. 17 3
  2633. 5 0
  2634. 8 1
  2635. 17 4
  2636. 29 4 section
  2637. 0 265 "section"
  2638. 13
  2639. 8 4
  2640. 17 5
  2641. 29 5 level
  2642. 16 WriteToBox "{0}" 0 "{4}"
  2643. 13
  2644. 8 5
  2645. 17 6
  2646. 6 5
  2647. 5 0
  2648. 18 0
  2649. 11 00000261
  2650. 17 7
  2651. 0 264 "levelflag" 0
  2652. 17 9
  2653. 0 296 0
  2654. 6 3
  2655. 15
  2656. 17 10
  2657. 9
  2658. 14 FillBox
  2659. 29 0 id
  2660. 29 1 array
  2661. 29 2 FillBox
  2662. 17 1
  2663. 0 32 1
  2664. 17 2
  2665. 0 31 "{0}" &1
  2666. 6 2
  2667. 15
  2668. 17 3
  2669. 9
  2670. 14 GetHotKeyOld
  2671. 29 0 strdata
  2672. 29 1 GetHotKeyOld
  2673. 17 1
  2674. 0 32 1
  2675. 17 2
  2676. 29 2 hotkeypos
  2677. 0 13 1 "{0}" "&"
  2678. 13
  2679. 8 2
  2680. 17 3
  2681. 29 3 hotkey
  2682. 6 2
  2683. 5 1
  2684. 3 0
  2685. 0 15 "{0}" [X] 1
  2686. 13
  2687. 8 3
  2688. 17 4
  2689. 6 3
  2690. 7 ""
  2691. 18 0
  2692. 11 00000242
  2693. 17 5
  2694. 5 -1
  2695. 15
  2696. 9
  2697. 10 00000260
  2698. 17 7
  2699. 6 3
  2700. 15
  2701. 9
  2702. 6 1
  2703. 15
  2704. 17 9
  2705. 9
  2706. 14 GetHotKey
  2707. 29 0 strdata
  2708. 29 1 GetHotKey
  2709. 17 1
  2710. 29 2 hotkey
  2711. 0 20 "{0}" 1 "-"
  2712. 13
  2713. 8 2
  2714. 17 2
  2715. 6 2
  2716. 7 ""
  2717. 18 0
  2718. 11 00000158
  2719. 17 3
  2720. 7 ""
  2721. 15
  2722. 9
  2723. 10 00000244
  2724. 17 4
  2725. 6 2
  2726. 5 -1
  2727. 18 0
  2728. 11 00000226
  2729. 17 5
  2730. 7 ""
  2731. 15
  2732. 9
  2733. 10 00000244
  2734. 17 7
  2735. 6 2
  2736. 15
  2737. 9
  2738. 6 1
  2739. 15
  2740. 17 9
  2741. 9
  2742. 14 RemoveAmpersand
  2743. 29 0 showntext
  2744. 29 1 RemoveAmpersand
  2745. 17 1
  2746. 0 32 1
  2747. 17 2
  2748. 29 2 badchars
  2749. 7 "&"
  2750. 8 2
  2751. 17 3
  2752. 29 3 char
  2753. 6 2
  2754. 8 3
  2755. 17 4
  2756. 0 13 1 "{0}" "{3}"
  2757. 13
  2758. 5 -1
  2759. 18 0
  2760. 11 00000218
  2761. 17 5
  2762. 6 0
  2763. 15
  2764. 9
  2765. 10 00000601
  2766. 17 7
  2767. 5 20
  2768. 29 4 part
  2769. 21 4 [X]
  2770. 17 8
  2771. 0 806 "{0}" 1
  2772. 13
  2773. 6 2
  2774. 18 0
  2775. 11 00000378
  2776. 17 9
  2777. 29 5 newtext
  2778. 0 15 "{0}" 2 30
  2779. 13
  2780. 8 5
  2781. 17 10
  2782. 6 5
  2783. 15
  2784. 9
  2785. 10 00000601
  2786. 17 12
  2787. 29 6 x
  2788. 5 1
  2789. 8 6
  2790. 17 13
  2791. 6 6
  2792. 0 20 "{0}" "{6}" "{3}"
  2793. 13
  2794. 23 4
  2795. 17 14
  2796. 6 6
  2797. 22 4
  2798. 5 -1
  2799. 18 0
  2800. 6 6
  2801. 22 4
  2802. 7 ""
  2803. 18 0
  2804. 1 2
  2805. 11 00000539
  2806. 17 15
  2807. 6 0
  2808. 15
  2809. 9
  2810. 17 17
  2811. 6 6
  2812. 22 4
  2813. 0 16 "{5}" [X]
  2814. 13
  2815. 8 5
  2816. 17 18
  2817. 6 0
  2818. 15
  2819. 9
  2820. 6 1
  2821. 15
  2822. 17 21
  2823. 9
  2824. 14 mainmenu
  2825. 29 0 mainmenu
  2826. 17 1
  2827. 0 32 1
  2828. 17 3
  2829. 0 265 "SKON"
  2830. 13
  2831. 5 1
  2832. 18 1
  2833. 11 00000148
  2834. 17 4
  2835. 16 skmain
  2836. 17 5
  2837. 16 ReadTopLevel "MM"
  2838. 10 00000176
  2839. 17 7
  2840. 16 ReadTopLevel "MM"
  2841. 6 0
  2842. 15
  2843. 17 10
  2844. 9
  2845. 14 ReadTopLevel
  2846. 29 0 key
  2847. 29 1 ReadTopLevel
  2848. 17 1
  2849. 0 32 1
  2850. 17 2
  2851. 0 296 1
  2852. 17 3
  2853. 29 2 macfile
  2854. 0 802
  2855. 13
  2856. 8 2
  2857. 17 4
  2858. 0 41 0 "{2}!Initialize"
  2859. 17 5
  2860. 0 41 9000 "{2}!L9000"
  2861. 17 6
  2862. 0 41 25 "{2}!EnterKeyProc"
  2863. 17 7
  2864. 0 41 9003 "{2}!L9003"
  2865. 17 9
  2866. 0 271 "gkey" 1
  2867. 17 10
  2868. 0 264 "gkey" "{0}"
  2869. 17 11
  2870. 0 264 "levelflag" 1
  2871. 17 12
  2872. 0 18 "{0}"
  2873. 13
  2874. 8 0
  2875. 17 14
  2876. 29 3 strdata
  2877. 16 Getprofile "OnKeys" "{0}"
  2878. 13
  2879. 8 3
  2880. 17 16
  2881. 6 0
  2882. 7 "MM"
  2883. 18 0
  2884. 11 00000504
  2885. 17 17
  2886. 16 Getprofile "OnKeys" "MM2"
  2887. 13
  2888. 0 16 "{3}" [X]
  2889. 13
  2890. 8 3
  2891. 17 19
  2892. 29 4 stat
  2893. 17 20
  2894. 29 5 ct
  2895. 5 2
  2896. 8 5
  2897. 17 21
  2898. 5 40
  2899. 29 6 strtok
  2900. 21 6 [X]
  2901. 17 22
  2902. 5 40
  2903. 29 7 dlgkeys
  2904. 21 7 [X]
  2905. 17 23
  2906. 5 -1
  2907. 0 20 "{3}" "{5}" "~"
  2908. 13
  2909. 0 805 &4 [X]
  2910. 13
  2911. 18 1
  2912. 11 00000896
  2913. 17 24
  2914. 29 8 hotkey
  2915. 16 GetHotKey "{4}"
  2916. 13
  2917. 8 8
  2918. 17 25
  2919. 6 5
  2920. 5 1
  2921. 3 1
  2922. 0 272 "AccKeys" [X] "{8}"
  2923. 17 26
  2924. 6 5
  2925. 5 1
  2926. 3 1
  2927. 0 31 9003 [X]
  2928. 17 27
  2929. 6 5
  2930. 5 1
  2931. 3 0
  2932. 8 5
  2933. 17 28
  2934. 0 31 9000 "{4}"
  2935. 10 00000621
  2936. 17 30
  2937. 29 9 title
  2938. 16 gettitle
  2939. 13
  2940. 8 9
  2941. 17 31
  2942. 0 265 "gkey"
  2943. 13
  2944. 0 16 [X] ":  " "{9}"
  2945. 13
  2946. 8 9
  2947. 17 32
  2948. 0 31 1000 "{9}"
  2949. 17 33
  2950. 0 296 0
  2951. 17 34
  2952. 29 10 box
  2953. 0 26 "." "SK"
  2954. 13
  2955. 8 10
  2956. 17 35
  2957. 6 10
  2958. 5 1
  2959. 18 1
  2960. 11 00001113
  2961. 17 37
  2962. 0 802
  2963. 13
  2964. 8 2
  2965. 17 38
  2966. 0 41 9000 "{2}!L9000"
  2967. 17 39
  2968. 0 41 25 "{2}!EnterKeyProc"
  2969. 6 1
  2970. 15
  2971. 17 40
  2972. 9
  2973. 14 GetTitle
  2974. 29 0 GetTitle
  2975. 17 1
  2976. 0 32 1
  2977. 17 2
  2978. 29 1 key
  2979. 0 265 "gkey"
  2980. 13
  2981. 8 1
  2982. 17 3
  2983. 29 2 strdata
  2984. 16 Getprofile "OnKeys" "{1}"
  2985. 13
  2986. 8 2
  2987. 17 4
  2988. 29 3 section
  2989. 0 20 "{2}" 1 "~"
  2990. 13
  2991. 8 3
  2992. 17 5
  2993. 6 3
  2994. 15
  2995. 9
  2996. 6 0
  2997. 15
  2998. 17 6
  2999. 9
  3000. 14 WriteToBox
  3001. 29 0 hDlg
  3002. 29 1 key2
  3003. 29 2 section
  3004. 29 3 WriteToBox
  3005. 17 1
  3006. 0 32 1
  3007. 17 2
  3008. 0 296 1
  3009. 17 8
  3010. 0 54 "{0}" 9004
  3011. 17 9
  3012. 29 4 stat
  3013. 17 10
  3014. 0 39 "{1}"
  3015. 13
  3016. 8 1
  3017. 17 11
  3018. 5 85
  3019. 29 5 data
  3020. 21 5 [X]
  3021. 17 12
  3022. 29 6 ct
  3023. 5 1
  3024. 8 6
  3025. 17 13
  3026. 16 LoadText "{2}" &5
  3027. 17 14
  3028. 29 7 asize
  3029. 0 1046 &5
  3030. 13
  3031. 8 7
  3032. 17 15
  3033. 29 8 level
  3034. 16 Getprofile "{2}" "level"
  3035. 13
  3036. 8 8
  3037. 17 17
  3038. 6 8
  3039. 5 0
  3040. 18 0
  3041. 11 00000807
  3042. 17 20
  3043. 0 54 "{0}" 9000
  3044. 17 21
  3045. 0 54 "{0}" 9003
  3046. 29 9 i
  3047. 5 1
  3048. 8 9
  3049. 17 22
  3050. 6 7
  3051. 6 9
  3052. 18 2
  3053. 12 00000534
  3054. 10 00000759
  3055. 5 1
  3056. 6 9
  3057. 3 0
  3058. 8 9
  3059. 10 00000452
  3060. 17 23
  3061. 6 9
  3062. 22 5
  3063. 7 ""
  3064. 18 1
  3065. 11 00000729
  3066. 17 24
  3067. 6 9
  3068. 22 5
  3069. 0 43 "{0}" 9000 [X]
  3070. 17 25
  3071. 0 43 "{0}" 9003 "{6}"
  3072. 17 26
  3073. 29 10 dlgnum
  3074. 5 48
  3075. 6 6
  3076. 3 0
  3077. 8 10
  3078. 17 28
  3079. 6 6
  3080. 5 1
  3081. 3 0
  3082. 8 6
  3083. 10 00000746
  3084. 17 30
  3085. 6 7
  3086. 8 9
  3087. 10 00000501
  3088. 17 33
  3089. 0 296 0
  3090. 17 34
  3091. 5 1
  3092. 15
  3093. 9
  3094. 10 00001206
  3095. 17 36
  3096. 29 11 stuff
  3097. 7 ""
  3098. 8 11
  3099. 17 37
  3100. 16 LoadKS "{0}" "{2}"
  3101. 5 1
  3102. 8 9
  3103. 17 38
  3104. 6 7
  3105. 6 9
  3106. 18 2
  3107. 12 00000961
  3108. 10 00001171
  3109. 5 1
  3110. 6 9
  3111. 3 0
  3112. 8 9
  3113. 10 00000879
  3114. 17 39
  3115. 6 9
  3116. 22 5
  3117. 7 ""
  3118. 18 1
  3119. 11 00001141
  3120. 17 42
  3121. 29 12 sectiontext
  3122. 16 stripit "{2}"
  3123. 13
  3124. 8 12
  3125. 17 43
  3126. 0 43 "{0}" 1000 "{12}"
  3127. 17 44
  3128. 6 9
  3129. 22 5
  3130. 0 43 "{0}" 9004 [X]
  3131. 10 00001158
  3132. 17 46
  3133. 6 7
  3134. 8 9
  3135. 10 00000928
  3136. 17 49
  3137. 0 296 0
  3138. 17 50
  3139. 5 0
  3140. 15
  3141. 9
  3142. 6 3
  3143. 15
  3144. 17 52
  3145. 9
  3146. 14 LoadKS
  3147. 29 0 hdlg
  3148. 29 1 section
  3149. 29 2 LoadKS
  3150. 17 1
  3151. 0 32 1
  3152. 17 2
  3153. 0 43 "{0}" 1008 ""
  3154. 17 3
  3155. 29 3 ks
  3156. 16 Getprofile "{1}" "KS"
  3157. 13
  3158. 8 3
  3159. 17 4
  3160. 6 3
  3161. 7 ""
  3162. 18 1
  3163. 11 00000261
  3164. 17 5
  3165. 0 43 "{0}" 1008 "{3}"
  3166. 17 6
  3167. 0 43 "{0}" 1001 "Keyboard Shortcut-"
  3168. 10 00000287
  3169. 17 8
  3170. 0 43 "{0}" 1001 ""
  3171. 6 2
  3172. 15
  3173. 17 10
  3174. 9
  3175. 14 LoadText
  3176. 29 0 section
  3177. 29 1 data
  3178. 29 2 LoadText
  3179. 17 1
  3180. 0 32 1
  3181. 17 2
  3182. 29 3 stat
  3183. 17 3
  3184. 29 4 ct
  3185. 5 1
  3186. 8 4
  3187. 17 4
  3188. 0 806 "{0}" 1
  3189. 13
  3190. 7 " "
  3191. 18 0
  3192. 11 00000218
  3193. 17 5
  3194. 0 14 "{0}"
  3195. 13
  3196. 5 1
  3197. 3 1
  3198. 0 807 "{0}" [X]
  3199. 13
  3200. 8 0
  3201. 17 7
  3202. 7 ""
  3203. 16 Getprofile "{0}" "{4}"
  3204. 13
  3205. 0 805 &3 [X]
  3206. 13
  3207. 18 1
  3208. 11 00000359
  3209. 17 8
  3210. 6 4
  3211. 6 3
  3212. 23 1
  3213. 17 9
  3214. 6 4
  3215. 5 1
  3216. 3 0
  3217. 8 4
  3218. 10 00000218
  3219. 6 2
  3220. 15
  3221. 17 11
  3222. 9
  3223. 14 StripIt
  3224. 29 0 text
  3225. 29 1 StripIt
  3226. 17 1
  3227. 0 808 0 "{0}" "tag"
  3228. 13
  3229. 11 00000155
  3230. 17 2
  3231. 0 14 "{0}"
  3232. 13
  3233. 5 2
  3234. 3 1
  3235. 0 15 "{0}" 4 [X]
  3236. 13
  3237. 15
  3238. 9
  3239. 10 00000173
  3240. 17 4
  3241. 6 0
  3242. 15
  3243. 9
  3244. 6 1
  3245. 15
  3246. 17 6
  3247. 9
  3248. 14 LoadDlgKeyInterupts
  3249. 29 0 dlgnum
  3250. 29 1 LoadDlgKeyInterupts
  3251. 17 1
  3252. 0 32 1
  3253. 17 2
  3254. 29 2 stat
  3255. 17 3
  3256. 29 3 macfile
  3257. 0 802
  3258. 13
  3259. 8 3
  3260. 17 5
  3261. 0 47 "{0}" "{3}!dlgkeyproc"
  3262. 6 1
  3263. 15
  3264. 17 6
  3265. 9
  3266. 14 DlgTst
  3267. 29 0 hDlg
  3268. 29 1 key
  3269. 29 2 DlgTst
  3270. 17 1
  3271. 0 32 1
  3272. 17 2
  3273. 29 3 selstring
  3274. 17 3
  3275. 6 1
  3276. 5 48
  3277. 3 1
  3278. 8 1
  3279. 17 7
  3280. 6 1
  3281. 5 1
  3282. 3 1
  3283. 8 1
  3284. 17 10
  3285. 0 62 "{0}" 9000 "{1}"
  3286. 17 11
  3287. 0 62 "{0}" 9003 "{1}"
  3288. 6 2
  3289. 15
  3290. 17 12
  3291. 9
  3292. 14 DlgKeyProc
  3293. 29 0 hDlg
  3294. 29 1 key
  3295. 29 2 DlgKeyProc
  3296. 17 1
  3297. 0 32 1
  3298. 17 2
  3299. 5 2
  3300. 29 3 point
  3301. 21 3 [X]
  3302. 17 3
  3303. 29 4 selstring
  3304. 17 4
  3305. 0 39 "{1}"
  3306. 13
  3307. 8 1
  3308. 29 5 x
  3309. 5 1
  3310. 8 5
  3311. 17 6
  3312. 5 30
  3313. 6 5
  3314. 18 2
  3315. 12 00000249
  3316. 10 00000386
  3317. 5 1
  3318. 6 5
  3319. 3 0
  3320. 8 5
  3321. 10 00000167
  3322. 17 7
  3323. 29 6 hit
  3324. 0 273 "AccKeys" "{5}"
  3325. 13
  3326. 8 6
  3327. 17 8
  3328. 0 18 "{6}"
  3329. 13
  3330. 0 18 "{1}"
  3331. 13
  3332. 18 0
  3333. 11 00000373
  3334. 17 9
  3335. 10 00000386
  3336. 10 00000216
  3337. 17 14
  3338. 6 5
  3339. 5 1
  3340. 3 1
  3341. 0 62 "{0}" 9000 [X]
  3342. 6 2
  3343. 15
  3344. 17 15
  3345. 9
  3346. 14 L9003
  3347. 29 0 hDlg
  3348. 29 1 id
  3349. 29 2 val
  3350. 29 3 L9003
  3351. 17 1
  3352. 0 32 1
  3353. 17 2
  3354. 29 4 selstring
  3355. 17 6
  3356. 29 5 indx
  3357. 0 61 "{0}" 9003
  3358. 13
  3359. 8 5
  3360. 17 9
  3361. 0 62 "{0}" 9000 "{5}"
  3362. 6 3
  3363. 15
  3364. 17 10
  3365. 9
  3366. 14 L9000
  3367. 29 0 hDlg
  3368. 29 1 id
  3369. 29 2 val
  3370. 29 3 L9000
  3371. 17 1
  3372. 0 32 1
  3373. 17 2
  3374. 29 4 selstring
  3375. 17 3
  3376. 29 5 stat
  3377. 17 7
  3378. 29 6 indx
  3379. 0 61 "{0}" 9000
  3380. 13
  3381. 8 6
  3382. 17 10
  3383. 0 62 "{0}" 9003 "{6}"
  3384. 17 14
  3385. 0 63 "{0}" 9000 "{6}"
  3386. 13
  3387. 8 4
  3388. 17 16
  3389. 0 20 "{4}" 2 "-"
  3390. 13
  3391. 8 4
  3392. 17 18
  3393. 0 806 "{4}" 1
  3394. 13
  3395. 7 " "
  3396. 18 0
  3397. 11 00000362
  3398. 17 19
  3399. 0 14 "{4}"
  3400. 13
  3401. 5 1
  3402. 3 1
  3403. 0 807 "{4}" [X]
  3404. 13
  3405. 8 4
  3406. 17 22
  3407. 29 7 level
  3408. 16 WriteToBox "{0}" "{1}" "{4}"
  3409. 13
  3410. 8 7
  3411. 17 23
  3412. 6 7
  3413. 5 0
  3414. 18 0
  3415. 11 00000487
  3416. 17 24
  3417. 0 264 "levelflag" 0
  3418. 17 26
  3419. 0 32 0
  3420. 6 3
  3421. 15
  3422. 17 27
  3423. 9
  3424. 14 EnterKeyProc
  3425. 29 0 hDlg
  3426. 29 1 Id
  3427. 29 2 val
  3428. 29 3 EnterKeyProc
  3429. 17 1
  3430. 0 3 "hit me"
  3431. 17 2
  3432. 5 1
  3433. 15
  3434. 9
  3435. 17 3
  3436. 0 32 1
  3437. 17 4
  3438. 29 4 selstring
  3439. 17 5
  3440. 29 5 stat
  3441. 17 6
  3442. 0 265 "levelflag"
  3443. 13
  3444. 5 0
  3445. 18 0
  3446. 11 00000249
  3447. 17 8
  3448. 0 264 "levelflag" 1
  3449. 6 3
  3450. 15
  3451. 9
  3452. 17 13
  3453. 29 6 indx
  3454. 0 61 "{0}" 9000
  3455. 13
  3456. 8 6
  3457. 17 15
  3458. 6 6
  3459. 5 -1
  3460. 18 1
  3461. 11 00000465
  3462. 17 17
  3463. 0 63 "{0}" "{1}" "{6}"
  3464. 13
  3465. 8 4
  3466. 17 18
  3467. 0 20 "{4}" 2 "-"
  3468. 13
  3469. 8 4
  3470. 17 19
  3471. 29 7 level
  3472. 16 WriteToBox "{0}" "{1}" "{4}"
  3473. 13
  3474. 8 7
  3475. 17 21
  3476. 6 7
  3477. 5 0
  3478. 18 0
  3479. 11 00000529
  3480. 17 22
  3481. 0 264 "levelflag" 0
  3482. 6 3
  3483. 15
  3484. 17 24
  3485. 9
  3486. 14 DoNextLevel
  3487. 29 0 section
  3488. 29 1 newdata
  3489. 29 2 DoNextLevel
  3490. 17 1
  3491. 0 32 1
  3492. 17 2
  3493. 29 3 nextlevel
  3494. 16 Getprofile "{0}" "{3}"
  3495. 13
  3496. 8 3
  3497. 17 3
  3498. 29 4 stat
  3499. 17 4
  3500. 29 5 ct
  3501. 5 2
  3502. 8 5
  3503. 17 5
  3504. 5 20
  3505. 29 6 strtok
  3506. 21 6 [X]
  3507. 17 6
  3508. 5 20
  3509. 29 7 dlgkeys
  3510. 21 7 [X]
  3511. 17 8
  3512. 6 5
  3513. 6 4
  3514. 23 6
  3515. 17 10
  3516. 29 8 dlgnum
  3517. 5 49
  3518. 6 5
  3519. 5 2
  3520. 3 1
  3521. 3 0
  3522. 8 8
  3523. 17 11
  3524. 16 LoadDlgKeyInterupts "{8}"
  3525. 17 12
  3526. 6 5
  3527. 5 1
  3528. 3 0
  3529. 8 5
  3530. 17 13
  3531. 6 5
  3532. 5 2
  3533. 3 1
  3534. 0 31 9003 [X]
  3535. 17 15
  3536. 16 FillBox 9000 &6
  3537. 6 2
  3538. 15
  3539. 17 16
  3540. 9
  3541. 14 Off
  3542. 29 0 Off
  3543. 17 1
  3544. 0 32 1
  3545. 17 2
  3546. 29 1 menu
  3547. 16 getprofile "Menus" "Menu"
  3548. 13
  3549. 8 1
  3550. 17 3
  3551. 29 2 item
  3552. 16 getprofile "Menus" "Menuitem"
  3553. 13
  3554. 8 2
  3555. 17 4
  3556. 29 3 item1
  3557. 16 getprofile "Menus" "Item1"
  3558. 13
  3559. 8 3
  3560. 17 5
  3561. 29 4 item2
  3562. 16 getprofile "Menus" "Item2"
  3563. 13
  3564. 8 4
  3565. 17 9
  3566. 29 5 stat
  3567. 17 10
  3568. 0 264 "SKON" 0
  3569. 17 12
  3570. 0 518 1 "{1}" "{2}" "{3}" 0
  3571. 17 13
  3572. 0 518 1 "{1}" "{2}" "{4}" 1
  3573. 17 14
  3574. 32 2 101 32854 7  "" 113 0 1
  3575. 17 15
  3576. 32 2 101 32854 7  "" 114 0 1
  3577. 17 16
  3578. 32 2 101 32854 7  "" 115 0 1
  3579. 17 17
  3580. 32 2 101 32854 7  "" 116 0 1
  3581. 17 18
  3582. 32 2 101 32854 7  "" 117 0 1
  3583. 17 19
  3584. 32 2 101 32854 7  "" 118 0 1
  3585. 17 20
  3586. 32 2 101 32854 7  "" 119 0 1
  3587. 17 21
  3588. 32 2 101 32854 7  "" 120 0 1
  3589. 17 22
  3590. 32 2 101 32854 7  "" 121 0 1
  3591. 17 23
  3592. 29 6 ct
  3593. 5 1
  3594. 8 6
  3595. 17 24
  3596. 7 ""
  3597. 16 Getprofile "KeyboardShortcuts" "{6}"
  3598. 13
  3599. 0 805 &5 [X]
  3600. 13
  3601. 18 1
  3602. 11 00001010
  3603. 17 25
  3604. 29 7 keysc
  3605. 0 20 "{5}" 1 "~"
  3606. 13
  3607. 8 7
  3608. 17 26
  3609. 29 8 newkeysc
  3610. 16 GetOnkeyEquiv "{7}"
  3611. 13
  3612. 8 8
  3613. 17 27
  3614. 32 2 101 32854 7  "" "{8}" 0 1
  3615. 17 28
  3616. 6 6
  3617. 5 1
  3618. 3 0
  3619. 8 6
  3620. 10 00000735
  3621. 17 31
  3622. 0 32 0
  3623. 6 0
  3624. 15
  3625. 17 32
  3626. 9
  3627. 14 GetOnkeyEquiv
  3628. 29 0 keysc
  3629. 29 1 GetOnkeyEquiv
  3630. 17 1
  3631. 0 32 1
  3632. 17 2
  3633. 29 2 upper
  3634. 0 18 "{0}"
  3635. 13
  3636. 8 2
  3637. 17 3
  3638. 7 "ALT1"
  3639. 6 2
  3640. 18 0
  3641. 11 00000177
  3642. 17 5
  3643. 5 8241
  3644. 15
  3645. 9
  3646. 10 00004513
  3647. 7 "ALT2"
  3648. 6 2
  3649. 18 0
  3650. 11 00000245
  3651. 17 7
  3652. 5 8242
  3653. 15
  3654. 9
  3655. 10 00004513
  3656. 7 "ALT7"
  3657. 6 2
  3658. 18 0
  3659. 11 00000313
  3660. 17 9
  3661. 5 8247
  3662. 15
  3663. 9
  3664. 10 00004513
  3665. 7 "ALT8"
  3666. 6 2
  3667. 18 0
  3668. 11 00000382
  3669. 17 11
  3670. 5 8248
  3671. 15
  3672. 9
  3673. 10 00004513
  3674. 7 "ALTF1"
  3675. 6 2
  3676. 18 0
  3677. 11 00000452
  3678. 17 14
  3679. 5 8304
  3680. 15
  3681. 9
  3682. 10 00004513
  3683. 7 "ALTF2"
  3684. 6 2
  3685. 18 0
  3686. 11 00000522
  3687. 17 16
  3688. 5 8305
  3689. 15
  3690. 9
  3691. 10 00004513
  3692. 7 "ALTF3"
  3693. 6 2
  3694. 18 0
  3695. 11 00000592
  3696. 17 18
  3697. 5 8306
  3698. 15
  3699. 9
  3700. 10 00004513
  3701. 7 "ALTF4"
  3702. 6 2
  3703. 18 0
  3704. 11 00000662
  3705. 17 20
  3706. 5 8307
  3707. 15
  3708. 9
  3709. 10 00004513
  3710. 7 "ALTF5"
  3711. 6 2
  3712. 18 0
  3713. 11 00000732
  3714. 17 22
  3715. 5 8308
  3716. 15
  3717. 9
  3718. 10 00004513
  3719. 7 "ALTF6"
  3720. 6 2
  3721. 18 0
  3722. 11 00000802
  3723. 17 24
  3724. 5 8309
  3725. 15
  3726. 9
  3727. 10 00004513
  3728. 7 "ALTF10"
  3729. 6 2
  3730. 18 0
  3731. 11 00000873
  3732. 17 26
  3733. 5 8313
  3734. 15
  3735. 9
  3736. 10 00004513
  3737. 7 "CTRLA"
  3738. 6 2
  3739. 18 0
  3740. 11 00000944
  3741. 17 29
  3742. 5 16449
  3743. 15
  3744. 9
  3745. 10 00004513
  3746. 7 "CTRLB"
  3747. 6 2
  3748. 18 0
  3749. 11 00001015
  3750. 17 31
  3751. 5 16450
  3752. 15
  3753. 9
  3754. 10 00004513
  3755. 7 "CTRLC"
  3756. 6 2
  3757. 18 0
  3758. 11 00001086
  3759. 17 33
  3760. 5 16451
  3761. 15
  3762. 9
  3763. 10 00004513
  3764. 7 "CTRLD"
  3765. 6 2
  3766. 18 0
  3767. 11 00001157
  3768. 17 35
  3769. 5 16452
  3770. 15
  3771. 9
  3772. 10 00004513
  3773. 7 "CTRLE"
  3774. 6 2
  3775. 18 0
  3776. 11 00001228
  3777. 17 37
  3778. 5 16453
  3779. 15
  3780. 9
  3781. 10 00004513
  3782. 7 "CTRLF"
  3783. 6 2
  3784. 18 0
  3785. 11 00001299
  3786. 17 39
  3787. 5 16454
  3788. 15
  3789. 9
  3790. 10 00004513
  3791. 7 "CTRLG"
  3792. 6 2
  3793. 18 0
  3794. 11 00001370
  3795. 17 41
  3796. 5 16455
  3797. 15
  3798. 9
  3799. 10 00004513
  3800. 7 "CTRLH"
  3801. 6 2
  3802. 18 0
  3803. 11 00001441
  3804. 17 43
  3805. 5 16456
  3806. 15
  3807. 9
  3808. 10 00004513
  3809. 7 "CTRLI"
  3810. 6 2
  3811. 18 0
  3812. 11 00001512
  3813. 17 45
  3814. 5 16457
  3815. 15
  3816. 9
  3817. 10 00004513
  3818. 7 "CTRLJ"
  3819. 6 2
  3820. 18 0
  3821. 11 00001583
  3822. 17 47
  3823. 5 16458
  3824. 15
  3825. 9
  3826. 10 00004513
  3827. 7 "CTRLK"
  3828. 6 2
  3829. 18 0
  3830. 11 00001654
  3831. 17 49
  3832. 5 16459
  3833. 15
  3834. 9
  3835. 10 00004513
  3836. 7 "CTRLL"
  3837. 6 2
  3838. 18 0
  3839. 11 00001725
  3840. 17 51
  3841. 5 16460
  3842. 15
  3843. 9
  3844. 10 00004513
  3845. 7 "CTRLM"
  3846. 6 2
  3847. 18 0
  3848. 11 00001796
  3849. 17 53
  3850. 5 16461
  3851. 15
  3852. 9
  3853. 10 00004513
  3854. 7 "CTRLN"
  3855. 6 2
  3856. 18 0
  3857. 11 00001867
  3858. 17 55
  3859. 5 16462
  3860. 15
  3861. 9
  3862. 10 00004513
  3863. 7 "CTRLO"
  3864. 6 2
  3865. 18 0
  3866. 11 00001938
  3867. 17 57
  3868. 5 16463
  3869. 15
  3870. 9
  3871. 10 00004513
  3872. 7 "CTRLP"
  3873. 6 2
  3874. 18 0
  3875. 11 00002009
  3876. 17 59
  3877. 5 16464
  3878. 15
  3879. 9
  3880. 10 00004513
  3881. 7 "CTRLQ"
  3882. 6 2
  3883. 18 0
  3884. 11 00002080
  3885. 17 61
  3886. 5 16465
  3887. 15
  3888. 9
  3889. 10 00004513
  3890. 7 "CTRLR"
  3891. 6 2
  3892. 18 0
  3893. 11 00002151
  3894. 17 63
  3895. 5 16466
  3896. 15
  3897. 9
  3898. 10 00004513
  3899. 7 "CTRLS"
  3900. 6 2
  3901. 18 0
  3902. 11 00002222
  3903. 17 65
  3904. 5 16467
  3905. 15
  3906. 9
  3907. 10 00004513
  3908. 7 "CTRLT"
  3909. 6 2
  3910. 18 0
  3911. 11 00002293
  3912. 17 67
  3913. 5 16468
  3914. 15
  3915. 9
  3916. 10 00004513
  3917. 7 "CTRLU"
  3918. 6 2
  3919. 18 0
  3920. 11 00002364
  3921. 17 69
  3922. 5 16469
  3923. 15
  3924. 9
  3925. 10 00004513
  3926. 7 "CTRLV"
  3927. 6 2
  3928. 18 0
  3929. 11 00002435
  3930. 17 71
  3931. 5 16470
  3932. 15
  3933. 9
  3934. 10 00004513
  3935. 7 "CTRLW"
  3936. 6 2
  3937. 18 0
  3938. 11 00002506
  3939. 17 73
  3940. 5 16471
  3941. 15
  3942. 9
  3943. 10 00004513
  3944. 7 "CTRLX"
  3945. 6 2
  3946. 18 0
  3947. 11 00002577
  3948. 17 75
  3949. 5 16472
  3950. 15
  3951. 9
  3952. 10 00004513
  3953. 7 "CTRLY"
  3954. 6 2
  3955. 18 0
  3956. 11 00002648
  3957. 17 77
  3958. 5 16473
  3959. 15
  3960. 9
  3961. 10 00004513
  3962. 7 "CTRLF1"
  3963. 6 2
  3964. 18 0
  3965. 11 00002720
  3966. 17 80
  3967. 5 16496
  3968. 15
  3969. 9
  3970. 10 00004513
  3971. 7 "CTRLF2"
  3972. 6 2
  3973. 18 0
  3974. 11 00002792
  3975. 17 82
  3976. 5 16497
  3977. 15
  3978. 9
  3979. 10 00004513
  3980. 7 "CTRLF3"
  3981. 6 2
  3982. 18 0
  3983. 11 00002864
  3984. 17 84
  3985. 5 16498
  3986. 15
  3987. 9
  3988. 10 00004513
  3989. 7 "CTRLF4"
  3990. 6 2
  3991. 18 0
  3992. 11 00002936
  3993. 17 86
  3994. 5 16499
  3995. 15
  3996. 9
  3997. 10 00004513
  3998. 7 "CTRLF5"
  3999. 6 2
  4000. 18 0
  4001. 11 00003008
  4002. 17 88
  4003. 5 16500
  4004. 15
  4005. 9
  4006. 10 00004513
  4007. 7 "CTRLF6"
  4008. 6 2
  4009. 18 0
  4010. 11 00003080
  4011. 17 90
  4012. 5 16501
  4013. 15
  4014. 9
  4015. 10 00004513
  4016. 7 "CTRLF7"
  4017. 6 2
  4018. 18 0
  4019. 11 00003152
  4020. 17 92
  4021. 5 16502
  4022. 15
  4023. 9
  4024. 10 00004513
  4025. 7 "CTRLF8"
  4026. 6 2
  4027. 18 0
  4028. 11 00003224
  4029. 17 94
  4030. 5 16503
  4031. 15
  4032. 9
  4033. 10 00004513
  4034. 7 "CTRLF9"
  4035. 6 2
  4036. 18 0
  4037. 11 00003296
  4038. 17 96
  4039. 5 16504
  4040. 15
  4041. 9
  4042. 10 00004513
  4043. 7 "CTRLF10"
  4044. 6 2
  4045. 18 0
  4046. 11 00003369
  4047. 17 98
  4048. 5 16505
  4049. 15
  4050. 9
  4051. 10 00004513
  4052. 7 "F2"
  4053. 6 2
  4054. 18 0
  4055. 11 00003436
  4056. 17 101
  4057. 5 113
  4058. 15
  4059. 9
  4060. 10 00004513
  4061. 7 "F3"
  4062. 6 2
  4063. 18 0
  4064. 11 00003503
  4065. 17 103
  4066. 5 114
  4067. 15
  4068. 9
  4069. 10 00004513
  4070. 7 "F4"
  4071. 6 2
  4072. 18 0
  4073. 11 00003570
  4074. 17 105
  4075. 5 115
  4076. 15
  4077. 9
  4078. 10 00004513
  4079. 7 "F6"
  4080. 6 2
  4081. 18 0
  4082. 11 00003637
  4083. 17 107
  4084. 5 117
  4085. 15
  4086. 9
  4087. 10 00004513
  4088. 7 "F7"
  4089. 6 2
  4090. 18 0
  4091. 11 00003704
  4092. 17 109
  4093. 5 118
  4094. 15
  4095. 9
  4096. 10 00004513
  4097. 7 "F8"
  4098. 6 2
  4099. 18 0
  4100. 11 00003771
  4101. 17 111
  4102. 5 119
  4103. 15
  4104. 9
  4105. 10 00004513
  4106. 7 "F9"
  4107. 6 2
  4108. 18 0
  4109. 11 00003838
  4110. 17 113
  4111. 5 120
  4112. 15
  4113. 9
  4114. 10 00004513
  4115. 7 "F10"
  4116. 6 2
  4117. 18 0
  4118. 11 00003906
  4119. 17 115
  4120. 5 121
  4121. 15
  4122. 9
  4123. 10 00004513
  4124. 7 "F11"
  4125. 6 2
  4126. 18 0
  4127. 11 00003974
  4128. 17 117
  4129. 5 122
  4130. 15
  4131. 9
  4132. 10 00004513
  4133. 7 "F12"
  4134. 6 2
  4135. 18 0
  4136. 11 00004042
  4137. 17 119
  4138. 5 123
  4139. 15
  4140. 9
  4141. 10 00004513
  4142. 7 "SF1"
  4143. 6 2
  4144. 18 0
  4145. 11 00004111
  4146. 17 122
  4147. 5 4208
  4148. 15
  4149. 9
  4150. 10 00004513
  4151. 7 "SF2"
  4152. 6 2
  4153. 18 0
  4154. 11 00004180
  4155. 17 124
  4156. 5 4209
  4157. 15
  4158. 9
  4159. 10 00004513
  4160. 7 "SF3"
  4161. 6 2
  4162. 18 0
  4163. 11 00004249
  4164. 17 126
  4165. 5 4210
  4166. 15
  4167. 9
  4168. 10 00004513
  4169. 7 "SF4"
  4170. 6 2
  4171. 18 0
  4172. 11 00004318
  4173. 17 128
  4174. 5 4211
  4175. 15
  4176. 9
  4177. 10 00004513
  4178. 7 "SF6"
  4179. 6 2
  4180. 18 0
  4181. 11 00004387
  4182. 17 130
  4183. 5 4213
  4184. 15
  4185. 9
  4186. 10 00004513
  4187. 7 "SF9"
  4188. 6 2
  4189. 18 0
  4190. 11 00004456
  4191. 17 132
  4192. 5 4216
  4193. 15
  4194. 9
  4195. 10 00004513
  4196. 7 "SF10"
  4197. 6 2
  4198. 18 0
  4199. 11 00004513
  4200. 17 134
  4201. 5 4217
  4202. 15
  4203. 9
  4204. 6 1
  4205. 15
  4206. 17 137
  4207. 9
  4208. 14 aboutsk
  4209. 29 0 aboutsk
  4210. 17 1
  4211. 0 32 1
  4212. 17 2
  4213. 29 1 box
  4214. 0 26 "." "about"
  4215. 13
  4216. 8 1
  4217. 6 0
  4218. 15
  4219. 17 3
  4220. 9
  4221. DIALOG SK
  4222. -2134376448 10 24 38 300 123 "" "" "WordPerfect SwitchKit" 
  4223. FONT 8 "Helv" 
  4224. 26 22 99 79 9000 1352728577 "listbox" "" 0 
  4225. 217 200 33 13 25 1342308353 "button" "Default" 0 
  4226. 7 22 16 79 9003 1352663041 "listbox" "" 0 
  4227. 195 104 17 12 1006 1342177290 "static" "filename.bmp" 0 
  4228. 7 11 40 8 1004 1342177280 "static" "Options:" 0 
  4229. 127 11 45 8 1005 1342177280 "static" "Ami Pro Help:" 0 
  4230. 132 22 166 79 9004 1352728577 "listbox" "" 0 
  4231. 6 107 64 8 1001 1342177280 "static" "Keyboard Shortcut-" 0 
  4232. 72 107 38 10 1008 1342177280 "static" "" 0 
  4233. 260 5 34 13 1 1342373888 "button" "Done" 0 
  4234. DIALOG about
  4235. -2134376448 7 84 26 134 90 "" "" "Ami Pro" 
  4236. FONT 8 "Helv" 
  4237. 5 6 122 10 1000 1342177281 "static" "Ami Pro SwitchKit" 0 
  4238. 5 16 122 10 1001 1342177281 "static" "for WordPerfect Users" 0 
  4239. 5 26 122 10 1002 1342177281 "static" "Lotus Development Corporation" 0 
  4240. 5 36 122 10 1003 1342177281 "static" "WordPerfect by" 0 
  4241. 5 46 122 10 1004 1342177281 "static" "WordPerfect Corporation" 0 
  4242. 5 56 122 10 1007 1342177281 "static" "All rights Reserved." 0 
  4243. 47 70 40 14 1 1342373889 "button" "OK" 0 
  4244. 00039008
  4245.