home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / AMWP-2.ZIP / MACROS.ZIP / FINDMENU.SMM < prev    next >
Encoding:
INI File  |  1990-07-25  |  2.5 KB  |  328 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [prn]
  7.     PCL / HP LaserJet
  8. [lang]
  9.     1
  10. [desc]
  11.     
  12.     
  13.     
  14.     
  15.     
  16.     648925680
  17.     10
  18.     637441587
  19. [fopts]
  20.     0
  21.     1
  22.     0
  23.     0
  24. [lnopts]
  25.     2
  26.     Body Text
  27. [docopts]
  28.     5
  29.     0
  30. [tag]
  31.     Body Text
  32.     2
  33.     [fnt]
  34.         Tms Rmn
  35.         160
  36.         0
  37.         49152
  38.     [algn]
  39.         225
  40.         1
  41.         0
  42.         0
  43.         0
  44.     [spc]
  45.         17
  46.         273
  47.         1
  48.         0
  49.         0
  50.         1
  51.         100
  52.     [brk]
  53.         4
  54.     [line]
  55.         8
  56.         0
  57.         1
  58.         0
  59.         1
  60.         2
  61.         2
  62.         20
  63.         20
  64.         1
  65.     [spec]
  66.         0
  67.         0
  68.         
  69.         0
  70.         1
  71.         0
  72.         0
  73.         1
  74.         0
  75.         0
  76.     [nfmt]
  77.         280
  78.         1
  79.         3
  80.         .
  81.         ,
  82.         $
  83. [tag]
  84.     footer
  85.     3
  86.     [fnt]
  87.         Tms Rmn
  88.         200
  89.         0
  90.         49152
  91.     [algn]
  92.         225
  93.         1
  94.         0
  95.         0
  96.         0
  97.     [spc]
  98.         17
  99.         273
  100.         1
  101.         0
  102.         0
  103.         1
  104.         100
  105.     [brk]
  106.         4
  107.     [line]
  108.         8
  109.         0
  110.         1
  111.         0
  112.         1
  113.         2
  114.         2
  115.         20
  116.         20
  117.         1
  118.     [spec]
  119.         0
  120.         0
  121.         
  122.         0
  123.         1
  124.         0
  125.         0
  126.         1
  127.         0
  128.         0
  129.     [nfmt]
  130.         280
  131.         1
  132.         3
  133.         .
  134.         ,
  135.         $
  136. [lay]
  137.     Standard
  138.     513
  139.     [rght]
  140.         15840
  141.         12240
  142.         1
  143.         1080
  144.         360
  145.         1
  146.         1080
  147.         720
  148.         4
  149.         1
  150.         0
  151.         1
  152.         8
  153.         4
  154.         1
  155.         1080
  156.         11520
  157.         14
  158.         1
  159.         359
  160.         1
  161.         721
  162.         1
  163.         1084
  164.         1
  165.         1446
  166.         1
  167.         1792
  168.         1
  169.         2155
  170.         1
  171.         2517
  172.         1
  173.         2880
  174.         1
  175.         3242
  176.         1
  177.         3605
  178.         1
  179.         3967
  180.         1
  181.         4323
  182.         1
  183.         4683
  184.         1
  185.         5043
  186.     [hrght]
  187.     [lyfrm]
  188.         1
  189.         11200
  190.         0
  191.         0
  192.         12240
  193.         1080
  194.         1
  195.         1
  196.         3
  197.         1
  198.         5
  199.         0
  200.         0
  201.     [frmlay]
  202.         1080
  203.         12240
  204.         1
  205.         360
  206.         0
  207.         1
  208.         0
  209.         0
  210.         2
  211.         1
  212.         0
  213.         1
  214.         1
  215.         0
  216.         1
  217.         360
  218.         12240
  219.         3
  220.         1
  221.         365
  222.         2
  223.         6120
  224.         3
  225.         11162
  226.     [txt]
  227. <+B>
  228.  
  229. <+B>
  230.  
  231. <+B>    <:da<*!><* >>        Date Created:  <:da<*$><* >>
  232.  
  233. <+B>    By Charlie Pappas    Page - <:P11,1,>    Date Last revised:  <:da<*%><* >>
  234.  
  235. <+B>    
  236.  
  237. >
  238.     [frght]
  239.     [lyfrm]
  240.         1
  241.         13248
  242.         0
  243.         15480
  244.         12240
  245.         15840
  246.         1
  247.         1
  248.         3
  249.         1
  250.         5
  251.         0
  252.         0
  253.     [frmlay]
  254.         15840
  255.         12240
  256.         1
  257.         720
  258.         0
  259.         1
  260.         15480
  261.         720
  262.         2
  263.         1
  264.         0
  265.         1
  266.         1
  267.         0
  268.         1
  269.         720
  270.         11520
  271.         0
  272.     [txt]
  273. @footer@
  274. >
  275. [elay]
  276. [l1]
  277.     0
  278. [edoc]
  279. function findmenu()
  280.  
  281. path = getmacpath$()
  282.  
  283. deletemenu(1 "F&ind")
  284.  
  285. addmenu(1 "F&ind")
  286.  
  287. addmenuitem(1 "F&ind" "&Find Files" "{path}findfile!")
  288.  
  289. addmenuitem(1 "F&ind" "&Show Files" "{path}findfiles!showfiles")
  290.  
  291. addmenuitem(1 "F&ind" "-" "")
  292.  
  293. addmenuitem(1 "F&ind" "E&xit Find" "{path}findmenu!rmmenu")
  294.  
  295. end function
  296.  
  297.  
  298. function rmmenu()
  299.  
  300. deletemenu(1 "F&ind")
  301.  
  302. end function
  303.  
  304. >
  305. [macsum] 2
  306. findmenu 0 0 2 0
  307. rmmenu 252 0 1 10
  308. [macse]
  309. 14 findmenu
  310. 0 295
  311. 13
  312. 8 1
  313. 0 521 1 "F&ind"
  314. 0 515 1 "F&ind"
  315. 0 516 1 "F&ind" "&Find Files" "{1}findfile!"
  316. 0 516 1 "F&ind" "&Show Files" "{1}findfiles!showfiles"
  317. 0 516 1 "F&ind" "-" ""
  318. 0 516 1 "F&ind" "E&xit Find" "{1}findmenu!rmmenu"
  319. 6 0
  320. 15
  321. 9
  322. 14 rmmenu
  323. 0 521 1 "F&ind"
  324. 6 0
  325. 15
  326. 9
  327. 00002243
  328.