home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS009.DSK / QKQUAD.SMM < prev    next >
INI File  |  1993-06-25  |  18KB  |  1,218 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _DEFAULT.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     QMS-PS 810
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Calculates real solutions for the Quadratic equation.
  19.     
  20.     
  21.     
  22.     
  23.     741042209
  24.     17
  25.     733695425
  26.     537
  27.     5
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Body Text
  57.     2
  58.     [fnt]
  59.         Times New Roman
  60.         200
  61.         0
  62.         49152
  63.     [algn]
  64.         1
  65.         1
  66.         0
  67.         0
  68.         0
  69.     [spc]
  70.         33
  71.         273
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         280
  103.         1
  104.         2
  105.         .
  106.         ,
  107.         $
  108.     Body Text
  109.     0
  110.     0
  111. [lay]
  112.     Standard
  113.     516
  114.     [rght]
  115.         16833
  116.         11908
  117.         1
  118.         1440
  119.         792
  120.         1
  121.         792
  122.         1440
  123.         0
  124.         1
  125.         0
  126.         1
  127.         0
  128.         2
  129.         1
  130.         1440
  131.         10465
  132.         12
  133.         1
  134.         720
  135.         1
  136.         1440
  137.         1
  138.         2160
  139.         1
  140.         2880
  141.         1
  142.         3600
  143.         1
  144.         4320
  145.         1
  146.         5040
  147.         1
  148.         5760
  149.         1
  150.         6480
  151.         1
  152.         7200
  153.         1
  154.         7920
  155.         1
  156.         8640
  157.     [hrght]
  158.     [lyfrm]
  159.         1
  160.         11200
  161.         0
  162.         0
  163.         11908
  164.         792
  165.         0
  166.         1
  167.         3
  168.         1 0 0 0 0 0 0
  169.         0
  170.         0
  171.         1
  172.     [frmlay]
  173.         792
  174.         11908
  175.         1
  176.         1440
  177.         0
  178.         1
  179.         792
  180.         1440
  181.         0
  182.         1
  183.         0
  184.         1
  185.         1
  186.         0
  187.         1
  188.         1440
  189.         10465
  190.         2
  191.         2
  192.         4680
  193.         3
  194.         9360
  195.     [txt]
  196. >
  197.     [frght]
  198.     [lyfrm]
  199.         1
  200.         13248
  201.         0
  202.         16041
  203.         11908
  204.         16833
  205.         0
  206.         1
  207.         3
  208.         1 0 0 0 0 0 0
  209.         0
  210.         0
  211.         2
  212.     [frmlay]
  213.         16833
  214.         11908
  215.         1
  216.         1440
  217.         720
  218.         1
  219.         16113
  220.         1440
  221.         0
  222.         1
  223.         0
  224.         1
  225.         1
  226.         0
  227.         1
  228.         1440
  229.         10465
  230.         2
  231.         2
  232.         4680
  233.         3
  234.         9360
  235.     [txt]
  236. >
  237. [elay]
  238. [l1]
  239.     0
  240. [pg]
  241.     1
  242.     59 0 31 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  243. [edoc]
  244. <:#240,9025>Declare FontDlg(Action, Hdlg, id)
  245.  
  246. <:#240,9025>Declare CellEngine(Action,Formula)
  247.  
  248. <:#240,9025>
  249.  
  250. <:#240,9025><:X3,-32768;Include "Amixlate.sam!qkquad">Define Descript "Enter the coefficients for the second order polynomial above: "
  251.  
  252. @Outline3@<:#240,9025>Define    PositiveRoot    "@SQRT({Det})"
  253.  
  254. @Outline3@<:#240,9025>Define    NegRoot    "@SQRT({-Det})"
  255.  
  256. @Outline3@<:#240,9025>Define    Complex        "Complex root"<:X~3,-32768;Include "Amixlate.sam!qkquad">
  257.  
  258. <:#240,9025><:X3,-32768;Include "Amixlate.sam!common">Define    NotFound    "LTSCE01.DLL not found.  Copy the dll to your windows directory"
  259.  
  260. @Outline3@<:#240,9025>Define    ErrorMessage    "The ltsce01.dll could not be loaded.  Please copy the dll to the Ami Pro directory."<:X~3,-32768;Include "Amixlate.sam!common">
  261.  
  262. <:#240,9025>
  263.  
  264. <:#240,9025>Define AnswerHolder1    1007
  265.  
  266. <:#240,9025>Define AnswerHolder2    1006
  267.  
  268. <:#240,9025>Define DescriptHolder    1008
  269.  
  270. <:#240,9025>
  271.  
  272. <:#240,9025>
  273.  
  274. <:#240,9025>
  275.  
  276. @Subhead@<:#284,9025>Function Main()
  277.  
  278. <:#240,9025>MacName = GetRunningMacroFile$()
  279.  
  280. <:#240,9025>SetDlgCallBack(0, "{MacName}!InitDlg")
  281.  
  282. <:#240,9025>SetDlgCallBack(8001, "{MacName}!CallBack")
  283.  
  284. <:#240,9025>SetDlgCallBack(8000, "{MacName}!CallBack")
  285.  
  286. <:#240,9025>SetDlgCallBack(8002, "{MacName}!CallBack")
  287.  
  288. <:#240,9025>
  289.  
  290. <:#240,9025>FontDlg(1,0,0)    'Create font
  291.  
  292. <:#240,9025>
  293.  
  294. <:#240,9025>CellEngine(1,0)        'loads cell engine
  295.  
  296. <:#240,9025>FillEdit(DescriptHolder,Descript)
  297.  
  298. <:#240,9025>macpath  = GetMacPath$()
  299.  
  300. <:#240,9025>FillEdit(1001,"{macpath}QkQuad.bmt")
  301.  
  302. <:#240,9025>
  303.  
  304. <:#240,9025>FillEdit(20,1)
  305.  
  306. @Outline3@<:#240,9025>DlgKeyInterrupt(112, "{macName}!DisplayHelp")
  307.  
  308. @Outline3@<:#240,9025>
  309.  
  310. <:#240,9025>box = DialogBox(".","QuickQuad")
  311.  
  312. <:#240,9025>'singlestep(1)
  313.  
  314. <:#240,9025>If  box = 3 then    'user wants to copy
  315.  
  316. <:#240,9025>    Answ1 = GetDialogField$(8003)
  317.  
  318. <:#240,9025>    Answ2 = GetDialogField$(8004)
  319.  
  320. <:#240,9025>    If GetDialogField$(20)
  321.  
  322. <:#240,9025>        If (Answ1 <<<;> "") 
  323.  
  324. <:#240,9025>            ClipboardWrite("{Answ1}",1)
  325.  
  326. <:#240,9025>        Else
  327.  
  328. <:#480,9025>            ClipboardWrite("",1)    'if no real answer then clear the clipboard form last real result
  329.  
  330. <:#240,9025>        Endif
  331.  
  332. <:#240,9025>    ElseIf GetDialogField$(21)
  333.  
  334. <:#240,9025>        If (Answ2 <<<;> "") 
  335.  
  336. <:#240,9025>            ClipboardWrite("{Answ2}",1)
  337.  
  338. <:#240,9025>        Else
  339.  
  340. <:#480,9025>            ClipboardWrite("",1)    'if no real answer then clear the clipboard form last real result
  341.  
  342. <:#240,9025>        Endif
  343.  
  344. <:#240,9025>    Endif
  345.  
  346. <:#240,9025>Endif
  347.  
  348. <:#240,9025>
  349.  
  350. <:#240,9025>FontDlg(4,0,0)    'Free font object
  351.  
  352. <:#240,9025>CellEngine(0,0)        'Unload cell engine
  353.  
  354. <:#240,9025>End Function
  355.  
  356. @Subhead@<:#284,9025>Function Callback(hdlg,id,val)
  357.  
  358. <:#240,9025>IgnoreKeyboard(2)
  359.  
  360. <:#240,9025>    A = GetDlgItemText(hDlg, 8001)
  361.  
  362. <:#240,9025>    B = GetDlgItemText(hDlg, 8000)
  363.  
  364. <:#240,9025>    C = GetDlgItemText(hDlg, 8002)
  365.  
  366. <:#240,9025>
  367.  
  368. <:#240,9025>
  369.  
  370. <:#240,9025>    Det =   B*B - (4*A*C) 
  371.  
  372. <:#240,9025>    
  373.  
  374. <:#240,9025>    if Det <;>=  0
  375.  
  376. <:#240,9025>        Det = CellEngine(3, PositiveRoot)
  377.  
  378. <:#240,9025>        iFlag = 0
  379.  
  380. <:#240,9025>        If (a != 0 and a !="") and Isnumeric(a)
  381.  
  382. <:#240,9025>            Ans1  =  (  -1* B - Det )/(2*A)
  383.  
  384. <:#240,9025>            Ans2 =  (  -1* B + Det  )/(2*A)
  385.  
  386. <:#240,9025>        Else
  387.  
  388. <:#240,9025>            Ans1 = ""
  389.  
  390. <:#240,9025>            Ans2 = ""
  391.  
  392. <:#240,9025>        Endif
  393.  
  394. <:#240,9025>
  395.  
  396. <:#240,9025>    Else
  397.  
  398. <:#240,9025>        ' the roots are complex
  399.  
  400. <:#240,9025>        Det = CellEngine(3, NegRoot)
  401.  
  402. <:#240,9025>        iFlag = 1
  403.  
  404. <:#240,9025>        Ans1  =  Complex
  405.  
  406. <:#240,9025>        Ans2 =  Complex
  407.  
  408. <:#240,9025>
  409.  
  410. <:#240,9025>    EndIf
  411.  
  412. <:#240,9025>    SetDlgItemText( hDlg, AnswerHolder1,Ans1)
  413.  
  414. <:#240,9025>    SetDlgItemText( hDlg, 8003,Ans1)
  415.  
  416. <:#240,9025>
  417.  
  418. <:#240,9025>    SetDlgItemText( hDlg, AnswerHolder2,Ans2)
  419.  
  420. <:#240,9025>    SetDlgItemText( hDlg,8004,Ans2)
  421.  
  422. <:#240,9025>
  423.  
  424. <:#240,9025>end function
  425.  
  426. @Subhead@<:#284,9025>
  427.  
  428. @Subhead@<:#284,9025>Function InitDlg(Hdlg, Id, Value)
  429.  
  430. <:#240,9025>For x = 1001 to 1008
  431.  
  432. <:#240,9025>    FontDlg(3, Hdlg, x)
  433.  
  434. <:#240,9025>Next
  435.  
  436. <:#240,9025>FontDlg(3,Hdlg, 20)
  437.  
  438. <:#240,9025>FontDlg(3,Hdlg, 21)
  439.  
  440. <:#240,9025>'SetDlgItemText( hDlg 1011,Descript)
  441.  
  442. <:#240,9025>End Function
  443.  
  444. @Subhead@<:#284,9025>
  445.  
  446. @Subhead@<:#284,9025>function DisplayHelp()
  447.  
  448. @Outline2@<:#240,9025>' two defines needed for help.  The help name and panel number are defined above
  449.  
  450. @Outline2@<:#240,9025>define FindWindowa() DllCall("user,FindWindow,HCC", %1, %2)
  451.  
  452. @Outline2@<:#240,9025>define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  453.  
  454. @Outline2@<:#240,9025>prohWnd = FindWindowa("AmiProWndA", 0)
  455.  
  456. @Outline2@<:#240,9025>helpfile = strcat$(GetAmiDirectory$(), "HelpPack.hlp")
  457.  
  458. @Outline2@<:#240,9025>PanelNum= 90 
  459.  
  460. @Outline2@<:#240,9025>WinHelpa(prohWnd, helpfile, 0x0001, Panelnum)
  461.  
  462. @Outline2@<:#240,9025>end function
  463.  
  464. @Subhead@<:#284,9025>
  465.  
  466. @Subhead@<:#284,9025>
  467.  
  468. @Subhead@<:#284,9025>
  469.  
  470. <:#240,9025>
  471.  
  472. @Subhead@<:#284,9025>Function CellEngine(Action,Formula)
  473.  
  474. <:#240,9025>'Available Actions
  475.  
  476. <:#240,9025>'    1         Start the engine and allocate globalvar
  477.  
  478. <:#240,9025>'    2        Return the handle to the instance of the sheet
  479.  
  480. <:#240,9025>'    3        Pass the formula as the second paramater
  481.  
  482. <:#240,9025>'    0        Shut everything down
  483.  
  484. <:#240,9025>'    Default    Expect a formula and return an answer
  485.  
  486. <:#240,9025>
  487.  
  488. <:#240,9025>' these defines may be useful at the beginning of your macro
  489.  
  490. <:#240,9025>Define StartEngine    1
  491.  
  492. <:#240,9025>Define GetInstance    2
  493.  
  494. <:#240,9025>Define CloseEngine    0
  495.  
  496. <:#240,9025>
  497.  
  498. <:#480,9025>Define    CECREATEINSTANCE(LPHANDLE)    DllCall("LTSCE01.DLL,CECREATEINSTANCE,HO",%1)
  499.  
  500. <:#480,9025>Define    CEDESTROYINSTANCE(HANDLE)    DllCall("LTSCE01.DLL,CEDESTROYINSTANCE,HH",%1)
  501.  
  502. <:#480,9025>Define    CECALCNOW(HINSTANCE, lpFormula, lpOutPut)    DllCall("LTSCE01.DLL,CECALCNOW,HHCC",%1,%2,%3)
  503.  
  504. <:#240,9025>
  505.  
  506. <:#240,9025>DefStr hInstance, Answer, Var;
  507.  
  508. <:#240,9025>Mac = GetRunningMacroFile$()
  509.  
  510. <:#240,9025>GlobalInstance = StrCat$(Mac,"hIstance")
  511.  
  512. <:#240,9025>
  513.  
  514. <:#240,9025>Switch Action
  515.  
  516. <:#240,9025>    Case 1
  517.  
  518. <:#240,9025>        ' start the engine
  519.  
  520. <:#240,9025>        LibId = DLLLoadLib("LTSCE01.DLL","CECreateInstance","HO")
  521.  
  522. <:#240,9025>        If LibId = 0
  523.  
  524. <:#240,9025>            Message(ErrorMessage)    
  525.  
  526. <:#240,9025>            Return -1;
  527.  
  528. <:#240,9025>        Endif
  529.  
  530. <:#240,9025>        RetVal = CECREATEINSTANCE(&hInstance)
  531.  
  532. <:#240,9025>        AllocGlobalVar("{GlobalInstance}",1)
  533.  
  534. <:#240,9025>        AllocGlobalVar("{Mac}LibId",1)
  535.  
  536. <:#240,9025>        SetGlobalVar("{Mac}Libid",LibId)
  537.  
  538. <:#240,9025>        SetGlobalVar("{GlobalInstance}",hInstance)
  539.  
  540. <:#240,9025>        Return hInstance;
  541.  
  542. <:#240,9025>        Break;
  543.  
  544. <:#240,9025>
  545.  
  546. <:#240,9025>    Case 2
  547.  
  548. <:#240,9025>        ' return the handle to the instance of the sheet
  549.  
  550. <:#240,9025>        AllocGlobalVar("{GlobalInstance}",1)
  551.  
  552. <:#240,9025>        hInstance = GetGlobalVar$("{GlobalInstance}")
  553.  
  554. <:#240,9025>        Return hInstance;
  555.  
  556. <:#240,9025>        Break;
  557.  
  558. <:#240,9025>
  559.  
  560. <:#240,9025>    Case 3
  561.  
  562. <:#240,9025>        ' Calculate the formula and return the answer
  563.  
  564. <:#240,9025>            AllocGlobalVar("{GlobalInstance}",1)
  565.  
  566. <:#240,9025>            hInstance = GetGlobalVar$("{GlobalInstance}")
  567.  
  568. <:#240,9025>            CECalcNow(hInstance,"{Formula}",&Answer)
  569.  
  570. <:#240,9025>            Return Answer;
  571.  
  572. <:#240,9025>        Break;
  573.  
  574. <:#240,9025>
  575.  
  576. <:#240,9025>
  577.  
  578. <:#240,9025>    Case 0
  579.  
  580. <:#240,9025>        ' destroy the instance of the sheet and free the global var and libid
  581.  
  582. <:#240,9025>        AllocGlobalVar("{GlobalInstance}",1)
  583.  
  584. <:#240,9025>        AllocGlobalVar("{Mac}LibId",1)
  585.  
  586. <:#240,9025>        hInstance = GetGlobalVar$("{GlobalInstance}")
  587.  
  588. <:#240,9025>        LibId = GetGlobalVar$("{Mac}LibId")
  589.  
  590. <:#240,9025>        If hInstance
  591.  
  592. <:#240,9025>            CEDestroyInstance(hInstance)
  593.  
  594. <:#240,9025>            DllFreeLib(Libid)
  595.  
  596. <:#240,9025>        Endif
  597.  
  598. <:#240,9025>        FreeGlobalVar("{GlobalInstance}")
  599.  
  600. <:#240,9025>        FreeGlobalVar("{Mac}LibId")
  601.  
  602. <:#240,9025>        Break;
  603.  
  604. <:#240,9025>
  605.  
  606. <:#240,9025>    Default
  607.  
  608. <:#240,9025>EndSwitch
  609.  
  610. <:#240,9025>End Function
  611.  
  612. @Subhead@<:#284,9025>
  613.  
  614. @Subhead@<:#284,9025>
  615.  
  616. @Subhead@<:#284,9025>Function FontDlg(Action, Hdlg, id)
  617.  
  618. <:#240,9025>' 1    Create a font and allocvar
  619.  
  620. <:#240,9025>' 2    Return the handle of the create font 
  621.  
  622. <:#240,9025>' 3    Set the id specified to the font
  623.  
  624. <:#240,9025>' 4    Freeglobalvar and delete created object
  625.  
  626. <:#240,9025>
  627.  
  628. @Outline2@<:#480,9025>define    CreateFontDLG()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  629.  
  630. @Outline2@<:#240,9025>define    DeleteObjectDLG(handle)    DllCall("gdi,DeleteObject,HH", %1)
  631.  
  632. @Outline2@<:#480,9025>define    SendMessageDLG(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  633.  
  634. @Outline2@<:#240,9025>
  635.  
  636. @Outline2@<:#240,9025>
  637.  
  638. <:#240,9025>Switch Action
  639.  
  640. <:#240,9025>    Case 1    ' Create the font and store it
  641.  
  642. @Outline2@<:#240,9025>        Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
  643.  
  644. <:#240,9025>        AllocGlobalVar("FontHandle",1)
  645.  
  646. <:#240,9025>        If Font
  647.  
  648. <:#240,9025>            SetGlobalVar("FontHandle",Font)
  649.  
  650. <:#240,9025>            Return Font
  651.  
  652. <:#240,9025>        Else
  653.  
  654. <:#240,9025>            Return 0;    ' no font
  655.  
  656. <:#240,9025>        Endif
  657.  
  658. <:#240,9025>        Break;
  659.  
  660. <:#240,9025>    Case 2    ' Return the handle to the font
  661.  
  662. <:#240,9025>        Handle = GetGlobalVar$("FontHandle")
  663.  
  664. <:#240,9025>        If Handle 
  665.  
  666. <:#240,9025>            Return Handle
  667.  
  668. <:#240,9025>        Else
  669.  
  670. <:#240,9025>            Return 0
  671.  
  672. <:#240,9025>        Endif
  673.  
  674. <:#240,9025>
  675.  
  676. <:#240,9025>    Case 3    ' Set the id to the font
  677.  
  678. <:#240,9025>        Handle = GetGlobalVar$("FontHandle")
  679.  
  680. <:#240,9025>        If Handle 
  681.  
  682. <:#240,9025>            IdControl = GetDlgITem(Hdlg, id)
  683.  
  684. <:#240,9025>            SendMessageDlg(idControl, 0x30, Handle, 0)
  685.  
  686. <:#240,9025>            Return 1
  687.  
  688. <:#240,9025>        Else
  689.  
  690. <:#240,9025>            Return 0
  691.  
  692. <:#240,9025>        Endif
  693.  
  694. <:#240,9025>        Break;        
  695.  
  696. <:#240,9025>        
  697.  
  698. <:#240,9025>    Case 4    ' Delete the font and clear the var
  699.  
  700. <:#240,9025>        Handle = GetGlobalVar$("FontHandle")
  701.  
  702. <:#240,9025>        If Handle
  703.  
  704. <:#240,9025>            DeleteObjectDLG(Handle)
  705.  
  706. <:#240,9025>            Stat = 1    
  707.  
  708. <:#240,9025>        Else
  709.  
  710. <:#240,9025>            Stat = 0
  711.  
  712. <:#240,9025>        Endif
  713.  
  714. <:#240,9025>        FreeGlobalVar("FontHandle")
  715.  
  716. <:#240,9025>        Return Stat        
  717.  
  718. <:#240,9025>    Default
  719.  
  720. <:#240,9025>EndSwitch    
  721.  
  722. <:#240,9025>
  723.  
  724. <:#240,9025>End Function
  725.  
  726. @Subhead@<:#284,9025>
  727.  
  728. <:#240,9025>
  729.  
  730. <:#240,9025>
  731.  
  732. <:#240,9025>
  733.  
  734. <:#240,9025>
  735.  
  736. <:#240,9025>
  737.  
  738. <:#240,9025>
  739.  
  740. <:#240,9025>
  741.  
  742. <:#240,9025>
  743.  
  744. <:#240,9025>
  745.  
  746. <:#240,9025>
  747.  
  748. <:#240,9025>
  749.  
  750. <:#240,9025>
  751.  
  752. <:#240,9025>
  753.  
  754. <:#240,9025>
  755.  
  756. <:#240,9025>
  757.  
  758. <:#240,9025>
  759.  
  760. <:#240,9025>
  761.  
  762. <:#240,9025>
  763.  
  764. <:#240,9025>
  765.  
  766. <:#240,9025>
  767.  
  768. <:#240,9025>
  769.  
  770. <:#240,9025>
  771.  
  772. <:#240,9025>
  773.  
  774. <:#240,9025>
  775.  
  776. <:#240,9025>
  777.  
  778. <:#240,9025>
  779.  
  780. <:#240,9025>
  781.  
  782. <:#240,9025>
  783.  
  784. <:#240,9025>
  785.  
  786. <:#240,9025>
  787.  
  788. <:#240,9025>
  789.  
  790. <:#240,9025>
  791.  
  792. <:#240,9025>
  793.  
  794. <:#240,9025>
  795.  
  796. <:#240,9025>
  797.  
  798. <:#240,9025>
  799.  
  800. <:#240,9025>DIALOG    QuickQuad
  801.  
  802. <:#240,9025>-2134376448    17    59    39    136    91    ""    "AmiDialog"    "QuickQuadratic"
  803.  
  804. <:#240,9025>FONT    8    "Helv"
  805.  
  806. <:#240,9025>19    46    29    11    8001    1350631424    "edit"    ""    0 
  807.  
  808. <:#240,9025>19    60    29    11    8000    1350631424    "edit"    ""    0 
  809.  
  810. <:#240,9025>19    74    29    11    8002    1350631552    "edit"    ""    0 
  811.  
  812. <:#240,9025>93    3    40    14    1    1342373889    "button"    "Done"    0 
  813.  
  814. <:#240,9025>93    19    40    14    3    1342373888    "button"    "Copy"    0 
  815.  
  816. <:#240,9025>61    59    43    8    20    1342242825    "button"    "Answer 1="    0 
  817.  
  818. <:#240,9025>61    68    42    11    21    1342242825    "button"    "Answer 2="    0 
  819.  
  820. <:#240,9025>4    4    63    12    1001    1342177290    "static"    ""    0 
  821.  
  822. <:#240,9025>7    49    9    10    1002    1342177280    "static"    "A:"    0 
  823.  
  824. <:#240,9025>7    63    9    10    1003    1342177280    "static"    "B:"    0 
  825.  
  826. <:#240,9025>7    77    9    10    1004    1342177280    "static"    "C:"    0 
  827.  
  828. <:#240,9025>56    49    40    8    1005    1342177280    "static"    "Solve for x:"    0 
  829.  
  830. <:#240,9025>105    70    23    9    1006    1342177280    "static"    ""    0 
  831.  
  832. <:#240,9025>105    60    23    9    1007    1342177280    "static"    ""    0 
  833.  
  834. <:#240,9025>7    19    62    24    1008    1342177280    "static"    ""    0 
  835.  
  836. <:#240,9025>252    35    40    12    8003    1350631552    "edit"    ""    0 
  837.  
  838. <:#240,9025>292    35    36    12    8004    1350631552    "edit"    ""    0 
  839.  
  840. <:#240,9025>END DIALOG
  841.  
  842. >
  843.  
  844. [Embedded]
  845. 00013757
  846. >
  847. [macsum] 7
  848. Main 0 0 6 16
  849. Callback 678 3 9 56
  850. InitDlg 1333 3 2 92
  851. DisplayHelp 1533 0 4 101
  852. CellEngine 1718 2 8 114
  853. FontDlg 2686 3 5 186
  854. QuickQuad 3483 0 -1 278
  855. [macse]
  856. 14 Main
  857. 0 802
  858. 13
  859. 8 1
  860. 0 41 0 "{1}!InitDlg"
  861. 0 41 8001 "{1}!CallBack"
  862. 0 41 8000 "{1}!CallBack"
  863. 0 41 8002 "{1}!CallBack"
  864. 16 FontDlg 1 0 0
  865. 16 CellEngine 1 0
  866. 0 31 1008 "Enter the coefficients for the second order polynomial above: "
  867. 0 295
  868. 13
  869. 8 2
  870. 0 31 1001 "{2}QkQuad.bmt"
  871. 0 31 20 1
  872. 0 47 112 "{1}!DisplayHelp"
  873. 0 26 "." "QuickQuad"
  874. 13
  875. 8 3
  876. 6 3
  877. 5 3
  878. 18 0
  879. 11 00000629
  880. 0 27 8003
  881. 13
  882. 8 4
  883. 0 27 8004
  884. 13
  885. 8 5
  886. 0 27 20
  887. 13
  888. 11 00000531
  889. 6 4
  890. 7 ""
  891. 18 1
  892. 11 00000505
  893. 0 1038 "{4}" 1
  894. 10 00000518
  895. 0 1038 "" 1
  896. 10 00000629
  897. 0 27 21
  898. 13
  899. 11 00000629
  900. 6 5
  901. 7 ""
  902. 18 1
  903. 11 00000616
  904. 0 1038 "{5}" 1
  905. 10 00000629
  906. 0 1038 "" 1
  907. 16 FontDlg 4 0 0
  908. 16 CellEngine 0 0
  909. 6 0
  910. 15
  911. 9
  912. 14 Callback
  913. 0 32 2
  914. 0 42 "{0}" 8001
  915. 13
  916. 8 4
  917. 0 42 "{0}" 8000
  918. 13
  919. 8 5
  920. 0 42 "{0}" 8002
  921. 13
  922. 8 6
  923. 6 5
  924. 6 5
  925. 4 0
  926. 5 4
  927. 6 4
  928. 4 0
  929. 6 6
  930. 4 0
  931. 3 1
  932. 8 7
  933. 6 7
  934. 5 0
  935. 18 2
  936. 11 00000452
  937. 16 CellEngine 3 "@SQRT({7})"
  938. 13
  939. 8 7
  940. 5 0
  941. 8 8
  942. 6 4
  943. 5 0
  944. 18 1
  945. 6 4
  946. 7 ""
  947. 18 1
  948. 1 1
  949. 0 277 "{4}"
  950. 13
  951. 1 1
  952. 11 00000416
  953. 5 -1
  954. 6 5
  955. 4 0
  956. 6 7
  957. 3 1
  958. 5 2
  959. 6 4
  960. 4 0
  961. 4 1
  962. 8 9
  963. 5 -1
  964. 6 5
  965. 4 0
  966. 6 7
  967. 3 0
  968. 5 2
  969. 6 4
  970. 4 0
  971. 4 1
  972. 8 10
  973. 10 00000439
  974. 7 ""
  975. 8 9
  976. 7 ""
  977. 8 10
  978. 10 00000549
  979. 16 CellEngine 3 "@SQRT({11})"
  980. 13
  981. 8 7
  982. 5 1
  983. 8 8
  984. 7 "Complex root"
  985. 8 9
  986. 7 "Complex root"
  987. 8 10
  988. 0 43 "{0}" 1007 "{9}"
  989. 0 43 "{0}" 8003 "{9}"
  990. 0 43 "{0}" 1006 "{10}"
  991. 0 43 "{0}" 8004 "{10}"
  992. 6 3
  993. 15
  994. 9
  995. 14 InitDlg
  996. 5 1001
  997. 8 4
  998. 5 1008
  999. 6 4
  1000. 18 2
  1001. 12 00000103
  1002. 10 00000142
  1003. 5 1
  1004. 6 4
  1005. 3 0
  1006. 8 4
  1007. 10 00000025
  1008. 16 FontDlg 3 "{0}" "{4}"
  1009. 10 00000070
  1010. 16 FontDlg 3 "{0}" 20
  1011. 16 FontDlg 3 "{0}" 21
  1012. 6 3
  1013. 15
  1014. 9
  1015. 14 DisplayHelp
  1016. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  1017. 13
  1018. 8 1
  1019. 0 798
  1020. 13
  1021. 0 16 [X] "HelpPack.hlp"
  1022. 13
  1023. 8 2
  1024. 5 90
  1025. 8 3
  1026. 0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}"
  1027. 6 0
  1028. 15
  1029. 9
  1030. 14 CellEngine
  1031. 0 802
  1032. 13
  1033. 8 6
  1034. 0 16 "{6}" "hIstance"
  1035. 13
  1036. 8 7
  1037. 5 1
  1038. 6 0
  1039. 18 0
  1040. 11 00000448
  1041. 0 297 "LTSCE01.DLL" "CECreateInstance" "HO"
  1042. 13
  1043. 8 8
  1044. 6 8
  1045. 5 0
  1046. 18 0
  1047. 11 00000279
  1048. 0 3 "The ltsce01.dll could not be loaded.  Please copy the dll to the Ami Pro directory."
  1049. 5 -1
  1050. 15
  1051. 9
  1052. 0 284 "LTSCE01.DLL,CECREATEINSTANCE,HO" &3
  1053. 13
  1054. 8 9
  1055. 0 271 "{7}" 1
  1056. 0 271 "{6}LibId" 1
  1057. 0 264 "{6}Libid" "{8}"
  1058. 0 264 "{7}" "{3}"
  1059. 6 3
  1060. 15
  1061. 9
  1062. 10 00000956
  1063. 10 00000956
  1064. 5 2
  1065. 6 0
  1066. 18 0
  1067. 11 00000552
  1068. 0 271 "{7}" 1
  1069. 0 265 "{7}"
  1070. 13
  1071. 8 3
  1072. 6 3
  1073. 15
  1074. 9
  1075. 10 00000956
  1076. 10 00000956
  1077. 5 3
  1078. 6 0
  1079. 18 0
  1080. 11 00000707
  1081. 0 271 "{7}" 1
  1082. 0 265 "{7}"
  1083. 13
  1084. 8 3
  1085. 0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{3}" "{1}" &4
  1086. 6 4
  1087. 15
  1088. 9
  1089. 10 00000956
  1090. 10 00000956
  1091. 5 0
  1092. 6 0
  1093. 18 0
  1094. 11 00000956
  1095. 0 271 "{7}" 1
  1096. 0 271 "{6}LibId" 1
  1097. 0 265 "{7}"
  1098. 13
  1099. 8 3
  1100. 0 265 "{6}LibId"
  1101. 13
  1102. 8 8
  1103. 6 3
  1104. 11 00000899
  1105. 0 284 "LTSCE01.DLL,CEDESTROYINSTANCE,HH" "{3}"
  1106. 0 298 "{8}"
  1107. 0 266 "{7}"
  1108. 0 266 "{6}LibId"
  1109. 10 00000956
  1110. 10 00000956
  1111. 6 2
  1112. 15
  1113. 9
  1114. 14 FontDlg
  1115. 5 1
  1116. 6 0
  1117. 18 0
  1118. 11 00000255
  1119. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  1120. 13
  1121. 8 4
  1122. 0 271 "FontHandle" 1
  1123. 6 4
  1124. 11 00000217
  1125. 0 264 "FontHandle" "{4}"
  1126. 6 4
  1127. 15
  1128. 9
  1129. 10 00000229
  1130. 5 0
  1131. 15
  1132. 9
  1133. 10 00000785
  1134. 10 00000785
  1135. 5 2
  1136. 6 0
  1137. 18 0
  1138. 11 00000381
  1139. 0 265 "FontHandle"
  1140. 13
  1141. 8 5
  1142. 6 5
  1143. 11 00000356
  1144. 6 5
  1145. 15
  1146. 9
  1147. 10 00000368
  1148. 5 0
  1149. 15
  1150. 9
  1151. 10 00000785
  1152. 5 3
  1153. 6 0
  1154. 18 0
  1155. 11 00000596
  1156. 0 265 "FontHandle"
  1157. 13
  1158. 8 5
  1159. 6 5
  1160. 11 00000558
  1161. 0 44 "{1}" "{2}"
  1162. 13
  1163. 8 6
  1164. 0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{5}" 0
  1165. 5 1
  1166. 15
  1167. 9
  1168. 10 00000570
  1169. 5 0
  1170. 15
  1171. 9
  1172. 10 00000785
  1173. 10 00000785
  1174. 5 4
  1175. 6 0
  1176. 18 0
  1177. 11 00000785
  1178. 0 265 "FontHandle"
  1179. 13
  1180. 8 5
  1181. 6 5
  1182. 11 00000730
  1183. 0 284 "gdi,DeleteObject,HH" "{5}"
  1184. 5 1
  1185. 8 7
  1186. 10 00000740
  1187. 5 0
  1188. 8 7
  1189. 0 266 "FontHandle"
  1190. 6 7
  1191. 15
  1192. 9
  1193. 10 00000785
  1194. 6 3
  1195. 15
  1196. 9
  1197. DIALOG QuickQuad
  1198. -2134376448 17 59 39 136 91 "" "AmiDialog" "QuickQuadratic" 
  1199. FONT 8 "Helv" 
  1200. 19 46 29 11 8001 1350631424 "edit" "" 0 
  1201. 19 60 29 11 8000 1350631424 "edit" "" 0 
  1202. 19 74 29 11 8002 1350631552 "edit" "" 0 
  1203. 93 3 40 14 1 1342373889 "button" "Done" 0 
  1204. 93 19 40 14 3 1342373888 "button" "Copy" 0 
  1205. 61 59 43 8 20 1342242825 "button" "Answer 1=" 0 
  1206. 61 68 42 11 21 1342242825 "button" "Answer 2=" 0 
  1207. 4 4 63 12 1001 1342177290 "static" "" 0 
  1208. 7 49 9 10 1002 1342177280 "static" "A:" 0 
  1209. 7 63 9 10 1003 1342177280 "static" "B:" 0 
  1210. 7 77 9 10 1004 1342177280 "static" "C:" 0 
  1211. 56 49 40 8 1005 1342177280 "static" "Solve for x:" 0 
  1212. 105 70 23 9 1006 1342177280 "static" "" 0 
  1213. 105 60 23 9 1007 1342177280 "static" "" 0 
  1214. 7 19 62 24 1008 1342177280 "static" "" 0 
  1215. 252 35 40 12 8003 1350631552 "edit" "" 0 
  1216. 292 35 36 12 8004 1350631552 "edit" "" 0 
  1217. 00013782
  1218.