home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 14 / 14.iso / s / s005 / 53.ddi / 123SMM.LIB / AMI123B.SMM < prev   
Encoding:
INI File  |  1993-09-18  |  6.5 KB  |  616 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.     748386626
  55.     0
  56.     746758596
  57.     123
  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.     [frght]
  290.     [lyfrm]
  291.         0
  292.         13184
  293.         0
  294.         14400
  295.         12240
  296.         15840
  297.         0
  298.         1
  299.         1
  300.         0 0 0 0 0 0 0
  301.         0
  302.         16777215
  303.         0
  304.     [frmlay]
  305.         15840
  306.         12240
  307.         1
  308.         1440
  309.         792
  310.         1
  311.         14472
  312.         1440
  313.         0
  314.         0
  315.         16777215
  316.         0
  317.         0
  318.         0
  319.         1
  320.         1440
  321.         10800
  322.         2
  323.         2
  324.         4680
  325.         3
  326.         9360
  327.     [txt]
  328. <:s><:#P30670848,P927989>
  329.  
  330. >
  331.     [hrght]
  332.     [lyfrm]
  333.         0
  334.         11136
  335.         0
  336.         0
  337.         12240
  338.         1440
  339.         0
  340.         1
  341.         1
  342.         0 0 0 0 0 0 0
  343.         0
  344.         16777215
  345.         0
  346.     [frmlay]
  347.         1440
  348.         12240
  349.         1
  350.         1440
  351.         72
  352.         1
  353.         792
  354.         1440
  355.         0
  356.         0
  357.         16777215
  358.         0
  359.         0
  360.         0
  361.         1
  362.         1440
  363.         10800
  364.         1
  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(20, "WatchBox")
  386.  
  387. <:s><:#P36569088,P927989><:ZDDE_BookMark1>    FillEdit(24, TRUE)
  388.  
  389. <:s><:#P36569088,P927989>    dlgretval = dialogBox("","ami123b.dlg")<:Z~DDE_BookMark1>
  390.  
  391. <:s><:#P36569088,P927989>    if (dlgretval = -1)                    '/* Major problem */
  392.  
  393. <:s><:#P36569088,P927989>        password = -1
  394.  
  395. <:s><:#P36569088,P927989>    else    
  396.  
  397. <:s><:#P36569088,P927989>        if (dlgretval = 1)                '/* Success*/
  398.  
  399. <:s><:#P36569088,P927989>            entirefile = GetDialogField$(24)
  400.  
  401. <:s><:#P36569088,P927989>            range = GetDialogField$(20)
  402.  
  403. <:s><:#P36569088,P927989>            if (entirefile = TRUE)
  404.  
  405. <:s><:#P36569088,P927989>                .UserInterface.Macro.NamedSetProperty("button","entire")
  406.  
  407. <:s><:#P36569088,P927989>                returnvalue = 1
  408.  
  409. <:s><:#P36569088,P927989>            else
  410.  
  411. <:s><:#P36569088,P927989>                if (range = TRUE)
  412.  
  413. <:s><:#P36569088,P927989>                    .UserInterface.Macro.NamedSetProperty("button","selected")
  414.  
  415. <:s><:#P36569088,P927989>                    fields = GetDialogField$(8000)
  416.  
  417. <:s><:#P36569088,P927989>                    .UserInterface.Macro.NamedSetProperty("fields",fields)
  418.  
  419. <:s><:#P36569088,P927989>                    returnvalue = 1
  420.  
  421. <:s><:#P36569088,P927989>                else                '/* Paranoia */
  422.  
  423. <:s><:#P36569088,P927989>                    returnvalue = 0
  424.  
  425. <:s><:#P36569088,P927989>                endif
  426.  
  427. <:s><:#P36569088,P927989>            endif
  428.  
  429. <:s><:#P36569088,P927989>        else                        '/*Canceled*/
  430.  
  431. <:s><:#P36569088,P927989>            returnvalue = 0
  432.  
  433. <:s><:#P36569088,P927989>        endif
  434.  
  435. <:s><:#P36569088,P927989>    endif
  436.  
  437. <:s><:#P36569088,P927989>    IgnoreKeyboard(0)        ' Put keyboard back!
  438.  
  439. <:s><:#P36569088,P927989>    return returnvalue
  440.  
  441. <:s><:#P36569088,P927989>END FUNCTION
  442.  
  443. <:s><:p<* >>
  444.  
  445. <:s><:#P36569088,P927989>
  446.  
  447. <:s><:#P36569088,P927989>FUNCTION WatchBox(hdlg, id, text)
  448.  
  449. <:s><:#P36569088,P927989>    IgnoreKeyboard(2)                    '/* Turn off keyboard interruptions */
  450.  
  451. <:s><:#P36569088,P927989>    SWITCH id
  452.  
  453. <:s><:#P36569088,P927989>        CASE (24)
  454.  
  455. <:s><:#P36569088,P927989>            DlgEnableControl(hdlg, 1, TRUE)
  456.  
  457. <:s><:#P36569088,P927989>            DlgClearControl(hdlg, 8000)
  458.  
  459. <:s><:#P36569088,P927989>        CASE (20)
  460.  
  461. <:s><:#P36569088,P927989>            DlgEnableControl(hdlg, 1, FALSE)
  462.  
  463. <:s><:#P36569088,P927989>        CASE (8000)
  464.  
  465. <:s><:#P36569088,P927989>            SetDlgItemText(hdlg, 20,TRUE)
  466.  
  467. <:s><:#P36569088,P927989>            DlgEnableControl(hdlg, 1, TRUE)
  468.  
  469. <:s><:#P36569088,P927989>    ENDSWITCH
  470.  
  471. <:s><:#P36569088,P927989>    IgnoreKeyboard(0)        ' Put keyboard back!
  472.  
  473. <:s><:#P36569088,P927989>END FUNCTION
  474.  
  475. <:s><:#P36569088,P927989>
  476. >
  477.  
  478. [Embedded]
  479. 00005376
  480. >
  481. [macsum4] 2 20
  482. MainDialog 0 0 7 0
  483. WatchBox 824 3 1 36
  484. [macse]
  485. 14 MainDialog
  486. 29 0 MainDialog
  487. 17 1
  488. 0 32 2
  489. 17 2
  490. 29 1 returnvalue
  491. 5 0
  492. 8 1
  493. 17 3
  494. 0 41 8000 "WatchBox"
  495. 17 4
  496. 0 41 24 "WatchBox"
  497. 17 5
  498. 0 41 20 "WatchBox"
  499. 17 6
  500. 0 31 24 1
  501. 17 7
  502. 29 2 dlgretval
  503. 0 26 "" "ami123b.dlg"
  504. 13
  505. 8 2
  506. 17 8
  507. 6 2
  508. 5 -1
  509. 18 0
  510. 11 00000312
  511. 17 9
  512. 29 3 password
  513. 5 -1
  514. 8 3
  515. 10 00000771
  516. 17 11
  517. 6 2
  518. 5 1
  519. 18 0
  520. 11 00000754
  521. 17 12
  522. 29 4 entirefile
  523. 0 27 24
  524. 13
  525. 8 4
  526. 17 13
  527. 29 5 range
  528. 0 27 20
  529. 13
  530. 8 5
  531. 17 14
  532. 6 4
  533. 5 1
  534. 18 0
  535. 11 00000535
  536. 17 15
  537. 32 2 101 57 96  "button" "entire"
  538. 17 16
  539. 5 1
  540. 8 1
  541. 10 00000741
  542. 17 18
  543. 6 5
  544. 5 1
  545. 18 0
  546. 11 00000724
  547. 17 19
  548. 32 2 101 57 96  "button" "selected"
  549. 17 20
  550. 29 6 fields
  551. 0 27 8000
  552. 13
  553. 8 6
  554. 17 21
  555. 32 2 101 57 96  "fields" "{6}"
  556. 17 22
  557. 5 1
  558. 8 1
  559. 10 00000741
  560. 17 24
  561. 5 0
  562. 8 1
  563. 10 00000771
  564. 17 28
  565. 5 0
  566. 8 1
  567. 17 31
  568. 0 32 0
  569. 17 32
  570. 6 1
  571. 15
  572. 9
  573. 6 0
  574. 15
  575. 17 33
  576. 9
  577. 14 WatchBox
  578. 29 0 hdlg
  579. 29 1 id
  580. 29 2 text
  581. 29 3 WatchBox
  582. 17 1
  583. 0 32 2
  584. 17 2
  585. 5 24
  586. 6 1
  587. 18 0
  588. 11 00000167
  589. 17 4
  590. 0 53 "{0}" 1 1
  591. 17 5
  592. 0 54 "{0}" 8000
  593. 10 00000310
  594. 5 20
  595. 6 1
  596. 18 0
  597. 11 00000232
  598. 17 7
  599. 0 53 "{0}" 1 0
  600. 10 00000310
  601. 5 8000
  602. 6 1
  603. 18 0
  604. 11 00000310
  605. 17 9
  606. 0 43 "{0}" 20 1
  607. 17 10
  608. 0 53 "{0}" 1 1
  609. 17 12
  610. 0 32 0
  611. 6 3
  612. 15
  613. 17 13
  614. 9
  615. 00005401
  616.