home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 14 / 14.iso / s / s005 / 53.ddi / 123SMM.LIB / AMI123A.SMM next >
Encoding:
INI File  |  1993-09-18  |  7.3 KB  |  663 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _default.sty
  5. [charset]
  6.     82
  7.     ANSI (Windows, IBM CP 1252)
  8. [PanoseFontTable]
  9.     4
  10.     5
  11.     Arial MT
  12.     257
  13.     257
  14.     257
  15.     257
  16.     257
  17.     TimesNewRomanPS
  18.     257
  19.     257
  20.     257
  21.     257
  22.     257
  23.     Helv
  24.     2818
  25.     1029
  26.     514
  27.     770
  28.     1026
  29.     Times New Roman
  30.     514
  31.     774
  32.     1029
  33.     517
  34.     1027
  35. [revisions]
  36.     0
  37. [recfile]
  38.     
  39.     
  40.     1
  41.     1
  42.     3
  43.     8
  44.     0
  45.     0
  46. [lang]
  47.     2
  48. [desc]
  49.     
  50.     
  51.     
  52.     
  53.     
  54.     748386649
  55.     0
  56.     746758596
  57.     116
  58.     0
  59.     0
  60.     0
  61.     0
  62.     0
  63.     
  64.     
  65.     
  66.     
  67.     
  68.     
  69.     0
  70. [prn]
  71.     HP LaserJet IIISi PostScript
  72. [port]
  73.     LPT3:
  74. [fopts]
  75.     0
  76.     1
  77.     0
  78.     0
  79. [lnopts]
  80.     2
  81.     Body Text
  82.     1
  83. [docopts]
  84.     5
  85.     2
  86. [GramStyle]
  87.     
  88. [tag]
  89.     Body Text
  90.     2
  91.     [fnt]
  92.         TimesNewRomanPS
  93.         240
  94.         0
  95.         0
  96.     [algn]
  97.         1
  98.         1
  99.         0
  100.         0
  101.         0
  102.     [spc]
  103.         33
  104.         0
  105.         1
  106.         0
  107.         0
  108.         1
  109.         100
  110.     [brk]
  111.         4
  112.     [line]
  113.         8
  114.         0
  115.         1
  116.         0
  117.         0
  118.         1
  119.         1
  120.         144
  121.         144
  122.         1
  123.     [spec]
  124.         0
  125.         0
  126.         
  127.         0
  128.         1
  129.         1
  130.         0
  131.         0
  132.         0
  133.         0
  134.     [nfmt]
  135.         280
  136.         1
  137.         2
  138.         .
  139.         ,
  140.         $
  141.     Body Text
  142.     0
  143.     0
  144. [lay]
  145.     Standard
  146.     513
  147.     [rght]
  148.         15840
  149.         12240
  150.         1
  151.         1440
  152.         1440
  153.         1
  154.         1440
  155.         1440
  156.         0
  157.         0
  158.         0
  159.         0
  160.         0
  161.         1
  162.         1
  163.         1440
  164.         10800
  165.         0
  166.     [frght]
  167.     [lyfrm]
  168.         0
  169.         13184
  170.         0
  171.         14400
  172.         12240
  173.         15840
  174.         0
  175.         1
  176.         1
  177.         0 0 0 0 0 0 0
  178.         0
  179.         16777215
  180.         0
  181.     [frmlay]
  182.         15840
  183.         12240
  184.         1
  185.         1440
  186.         648
  187.         1
  188.         14472
  189.         1440
  190.         0
  191.         0
  192.         16777215
  193.         0
  194.         0
  195.         0
  196.         1
  197.         1440
  198.         10800
  199.         0
  200.     [txt]
  201. <:s>
  202.  
  203. >
  204.     [hrght]
  205.     [lyfrm]
  206.         0
  207.         11136
  208.         0
  209.         0
  210.         12240
  211.         1440
  212.         0
  213.         1
  214.         1
  215.         0 0 0 0 0 0 0
  216.         0
  217.         16777215
  218.         0
  219.     [frmlay]
  220.         1440
  221.         12240
  222.         1
  223.         1440
  224.         72
  225.         1
  226.         648
  227.         1440
  228.         0
  229.         0
  230.         16777215
  231.         0
  232.         0
  233.         0
  234.         1
  235.         1440
  236.         10800
  237.         0
  238.     [txt]
  239. <:s>
  240.  
  241. >
  242. [elay]
  243. [lay]
  244.     1
  245.     513
  246.     [rght]
  247.         15840
  248.         12240
  249.         1
  250.         648
  251.         1440
  252.         1
  253.         1440
  254.         432
  255.         0
  256.         0
  257.         16777215
  258.         1
  259.         0
  260.         2
  261.         1
  262.         648
  263.         11808
  264.         12
  265.         1
  266.         720
  267.         1
  268.         1440
  269.         1
  270.         2160
  271.         1
  272.         2880
  273.         1
  274.         3600
  275.         1
  276.         4320
  277.         1
  278.         5040
  279.         1
  280.         5760
  281.         1
  282.         6480
  283.         1
  284.         7200
  285.         1
  286.         7920
  287.         1
  288.         8640
  289.     [hrght]
  290.     [lyfrm]
  291.         0
  292.         11136
  293.         0
  294.         0
  295.         12240
  296.         1440
  297.         0
  298.         1
  299.         1
  300.         0 0 0 0 0 0 0
  301.         0
  302.         16777215
  303.         0
  304.     [frmlay]
  305.         1440
  306.         12240
  307.         1
  308.         1440
  309.         72
  310.         1
  311.         792
  312.         1440
  313.         0
  314.         0
  315.         16777215
  316.         0
  317.         0
  318.         0
  319.         1
  320.         1440
  321.         10800
  322.         1
  323.         3
  324.         9360
  325.     [txt]
  326. <:s><:#P30670848,P927989>
  327.  
  328. >
  329.     [frght]
  330.     [lyfrm]
  331.         0
  332.         13184
  333.         0
  334.         14400
  335.         12240
  336.         15840
  337.         0
  338.         1
  339.         1
  340.         0 0 0 0 0 0 0
  341.         0
  342.         16777215
  343.         0
  344.     [frmlay]
  345.         15840
  346.         12240
  347.         1
  348.         1440
  349.         792
  350.         1
  351.         14472
  352.         1440
  353.         0
  354.         0
  355.         16777215
  356.         0
  357.         0
  358.         0
  359.         1
  360.         1440
  361.         10800
  362.         2
  363.         2
  364.         4680
  365.         3
  366.         9360
  367.     [txt]
  368. <:s><:#P30670848,P927989>
  369.  
  370. >
  371. [elay]
  372. [l1]
  373.     1
  374. [edoc]
  375. <:s><:#P36569088,P927989>FUNCTION MainDialog()
  376.  
  377. <:s><:#P36569088,P927989>    IgnoreKeyboard(2)                    '/* Turn off keyboard interruptions */
  378.  
  379. <:s><:#P36569088,P927989>    returnvalue = 0
  380.  
  381. <:s><:#P36569088,P927989>    SetDlgCallback(8000, "WatchBox")
  382.  
  383. <:s><:#P36569088,P927989>    SetDlgCallback(24, "WatchBox")
  384.  
  385. <:s><:#P36569088,P927989>    SetDlgCallback(23, "WatchBox")
  386.  
  387. <:s><:#P36569088,P927989>    SetDlgCallback(20, "WatchBox")
  388.  
  389. <:s><:#P36569088,P927989><:ZDDE_BookMark1>    FillEdit(24, TRUE)
  390.  
  391. <:s><:#P36569088,P927989>    dlgretval = dialogBox("","ami123a.dlg")<:Z~DDE_BookMark1>
  392.  
  393. <:s><:#P36569088,P927989>    if (dlgretval = -1)                    '/* Major problem */
  394.  
  395. <:s><:#P36569088,P927989>        password = -1
  396.  
  397. <:s><:#P36569088,P927989>    else    
  398.  
  399. <:s><:#P36569088,P927989>        if (dlgretval = 1)                '/* Success*/
  400.  
  401. <:s><:#P36569088,P927989>            entirefile = GetDialogField$(24)
  402.  
  403. <:s><:#P36569088,P927989>            activewrk = GetDialogField$(23)
  404.  
  405. <:s><:#P36569088,P927989>            range = GetDialogField$(20)
  406.  
  407. <:s><:#P36569088,P927989>            if (entirefile = TRUE)
  408.  
  409. <:s><:#P36569088,P927989>                .UserInterface.Macro.NamedSetProperty("button","entire")
  410.  
  411. <:s><:#P36569088,P927989>                returnvalue = 1
  412.  
  413. <:s><:#P36569088,P927989>            else
  414.  
  415. <:s><:#P36569088,P927989>                if (activewrk = TRUE)
  416.  
  417. <:s><:#P36569088,P927989>                    .UserInterface.Macro.NamedSetProperty("button","active")
  418.  
  419. <:s><:#P36569088,P927989>                    returnvalue = 1
  420.  
  421. <:s><:#P36569088,P927989>                else
  422.  
  423. <:s><:#P36569088,P927989>                    if (range = TRUE)
  424.  
  425. <:s><:#P36569088,P927989>                        .UserInterface.Macro.NamedSetProperty("button","selected")
  426.  
  427. <:s><:#P36569088,P927989>                        fields = GetDialogField$(8000)
  428.  
  429. <:s><:#P36569088,P927989>                        .UserInterface.Macro.NamedSetProperty("fields",fields)
  430.  
  431. <:s><:#P36569088,P927989>                        returnvalue = 1
  432.  
  433. <:s><:#P36569088,P927989>                    else                '/* Paranoia */
  434.  
  435. <:s><:#P36569088,P927989>                        returnvalue = 0
  436.  
  437. <:s><:#P36569088,P927989>                    endif
  438.  
  439. <:s><:#P36569088,P927989>                endif
  440.  
  441. <:s><:#P36569088,P927989>            endif
  442.  
  443. <:s><:#P36569088,P927989>        else                        '/*Canceled*/
  444.  
  445. <:s><:#P36569088,P927989>            returnvalue = 0
  446.  
  447. <:s><:#P36569088,P927989>        endif
  448.  
  449. <:s><:#P36569088,P927989>    endif
  450.  
  451. <:s><:#P36569088,P927989>    IgnoreKeyboard(0)        ' Put keyboard back!
  452.  
  453. <:s><:#P36569088,P927989>    return returnvalue
  454.  
  455. <:s><:#P36569088,P927989>END FUNCTION
  456.  
  457. <:s><:p<* >>
  458.  
  459. <:s><:#P36569088,P927989>
  460.  
  461. <:s><:#P36569088,P927989>FUNCTION WatchBox(hdlg, id, text)
  462.  
  463. <:s><:#P36569088,P927989>    IgnoreKeyboard(2)                    '/* Turn off keyboard interruptions */
  464.  
  465. <:s><:#P36569088,P927989>    SWITCH id
  466.  
  467. <:s><:#P36569088,P927989>        CASE (24)
  468.  
  469. <:s><:#P36569088,P927989>            DlgEnableControl(hdlg, 1, TRUE)
  470.  
  471. <:s><:#P36569088,P927989>            DlgClearControl(hdlg, 8000)
  472.  
  473. <:s><:#P36569088,P927989>        CASE (23)
  474.  
  475. <:s><:#P36569088,P927989>            DlgEnableControl(hdlg, 1, TRUE)
  476.  
  477. <:s><:#P36569088,P927989>            DlgClearControl(hdlg, 8000)
  478.  
  479. <:s><:#P36569088,P927989>        CASE (20)
  480.  
  481. <:s><:#P36569088,P927989>            DlgEnableControl(hdlg, 1, FALSE)
  482.  
  483. <:s><:#P36569088,P927989>        CASE (8000)
  484.  
  485. <:s><:#P36569088,P927989>            SetDlgItemText(hdlg, 20,TRUE)
  486.  
  487. <:s><:#P36569088,P927989>            DlgEnableControl(hdlg, 1, TRUE)
  488.  
  489. <:s><:#P36569088,P927989>    ENDSWITCH
  490.  
  491. <:s><:#P36569088,P927989>    IgnoreKeyboard(0)        ' Put keyboard back!
  492.  
  493. <:s><:#P36569088,P927989>END FUNCTION
  494.  
  495. <:s><:#P36569088,P927989>
  496. >
  497.  
  498. [Embedded]
  499. 00005937
  500. >
  501. [macsum4] 2 20
  502. MainDialog 0 0 8 0
  503. WatchBox 1000 3 1 43
  504. [macse]
  505. 14 MainDialog
  506. 29 0 MainDialog
  507. 17 1
  508. 0 32 2
  509. 17 2
  510. 29 1 returnvalue
  511. 5 0
  512. 8 1
  513. 17 3
  514. 0 41 8000 "WatchBox"
  515. 17 4
  516. 0 41 24 "WatchBox"
  517. 17 5
  518. 0 41 23 "WatchBox"
  519. 17 6
  520. 0 41 20 "WatchBox"
  521. 17 7
  522. 0 31 24 1
  523. 17 8
  524. 29 2 dlgretval
  525. 0 26 "" "ami123a.dlg"
  526. 13
  527. 8 2
  528. 17 9
  529. 6 2
  530. 5 -1
  531. 18 0
  532. 11 00000339
  533. 17 10
  534. 29 3 password
  535. 5 -1
  536. 8 3
  537. 10 00000947
  538. 17 12
  539. 6 2
  540. 5 1
  541. 18 0
  542. 11 00000930
  543. 17 13
  544. 29 4 entirefile
  545. 0 27 24
  546. 13
  547. 8 4
  548. 17 14
  549. 29 5 activewrk
  550. 0 27 23
  551. 13
  552. 8 5
  553. 17 15
  554. 29 6 range
  555. 0 27 20
  556. 13
  557. 8 6
  558. 17 16
  559. 6 4
  560. 5 1
  561. 18 0
  562. 11 00000603
  563. 17 17
  564. 32 2 101 57 96  "button" "entire"
  565. 17 18
  566. 5 1
  567. 8 1
  568. 10 00000917
  569. 17 20
  570. 6 5
  571. 5 1
  572. 18 0
  573. 11 00000711
  574. 17 21
  575. 32 2 101 57 96  "button" "active"
  576. 17 22
  577. 5 1
  578. 8 1
  579. 10 00000917
  580. 17 24
  581. 6 6
  582. 5 1
  583. 18 0
  584. 11 00000900
  585. 17 25
  586. 32 2 101 57 96  "button" "selected"
  587. 17 26
  588. 29 7 fields
  589. 0 27 8000
  590. 13
  591. 8 7
  592. 17 27
  593. 32 2 101 57 96  "fields" "{7}"
  594. 17 28
  595. 5 1
  596. 8 1
  597. 10 00000917
  598. 17 30
  599. 5 0
  600. 8 1
  601. 10 00000947
  602. 17 35
  603. 5 0
  604. 8 1
  605. 17 38
  606. 0 32 0
  607. 17 39
  608. 6 1
  609. 15
  610. 9
  611. 6 0
  612. 15
  613. 17 40
  614. 9
  615. 14 WatchBox
  616. 29 0 hdlg
  617. 29 1 id
  618. 29 2 text
  619. 29 3 WatchBox
  620. 17 1
  621. 0 32 2
  622. 17 2
  623. 5 24
  624. 6 1
  625. 18 0
  626. 11 00000167
  627. 17 4
  628. 0 53 "{0}" 1 1
  629. 17 5
  630. 0 54 "{0}" 8000
  631. 10 00000400
  632. 5 23
  633. 6 1
  634. 18 0
  635. 11 00000255
  636. 17 7
  637. 0 53 "{0}" 1 1
  638. 17 8
  639. 0 54 "{0}" 8000
  640. 10 00000400
  641. 5 20
  642. 6 1
  643. 18 0
  644. 11 00000321
  645. 17 10
  646. 0 53 "{0}" 1 0
  647. 10 00000400
  648. 5 8000
  649. 6 1
  650. 18 0
  651. 11 00000400
  652. 17 12
  653. 0 43 "{0}" 20 1
  654. 17 13
  655. 0 53 "{0}" 1 1
  656. 17 15
  657. 0 32 0
  658. 6 3
  659. 15
  660. 17 16
  661. 9
  662. 00005962
  663.