home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 3.0 / TESTDRIVE_3.ISO / amipro / macros / builder.sam (.txt) < prev    next >
Encoding:
Ami Pro/Word Pro document  |  1993-05-17  |  18.6 KB  |  587 lines
  1. [ver]
  2. [sty]
  3. [files]
  4. [charset]
  5.     ANSI (Windows, IBM CP 1252)
  6. [revisions]
  7. [prn]
  8.     QMS-PS 810
  9. [port]
  10.     LPT1:
  11. [lang]
  12. [desc]
  13.     This is the template for the build.smm macro.
  14.     737753952
  15.     736633139
  16. [fopts]
  17. [lnopts]
  18.     Body Text
  19. [docopts]
  20. [GramStyle]
  21. [ParaNum]
  22. [tag]
  23.     Body Text
  24.     [fnt]
  25.         Times New Roman
  26.         240
  27.         49152
  28.     [algn]
  29.     [spc]
  30.         273
  31.         100
  32.     [brk]
  33.     [line]
  34.     [spec]
  35.     [nfmt]
  36.         280
  37.     Body Text
  38. [tag]
  39.     Body Single
  40.     [fnt]
  41.         Times New Roman
  42.         240
  43.         49152
  44.     [algn]
  45.     [spc]
  46.         273
  47.         100
  48.     [brk]
  49.     [line]
  50.     [spec]
  51.     [nfmt]
  52.         280
  53.     Body Single
  54. [tag]
  55.     Bullet
  56.     [fnt]
  57.         Times New Roman
  58.         240
  59.         49152
  60.     [algn]
  61.         288
  62.         288
  63.     [spc]
  64.         273
  65.         100
  66.     [brk]
  67.     [line]
  68.     [spec]
  69.         <*0>
  70.         360
  71.     [nfmt]
  72.         272
  73.     Bullet
  74. [tag]
  75.     Bullet 1
  76.     [fnt]
  77.         Times New Roman
  78.         240
  79.         49152
  80.     [algn]
  81.         288
  82.         288
  83.         288
  84.     [spc]
  85.         273
  86.         100
  87.     [brk]
  88.     [line]
  89.     [spec]
  90.         <*5>
  91.     [nfmt]
  92.         280
  93.     Bullet 1
  94. [tag]
  95.     Number List
  96.     [fnt]
  97.         Times New Roman
  98.         240
  99.         49152
  100.     [algn]
  101.         360
  102.         360
  103.         360
  104.     [spc]
  105.         273
  106.         100
  107.     [brk]
  108.     [line]
  109.     [spec]
  110.         <*:>.
  111.         360
  112.     [nfmt]
  113.         272
  114.     Number List
  115. [tag]
  116.     Subhead
  117.     [fnt]
  118.         Times New Roman
  119.         240
  120.         49155
  121.     [algn]
  122.     [spc]
  123.         273
  124.         100
  125.     [brk]
  126.     [line]
  127.     [spec]
  128.     [nfmt]
  129.         272
  130.     Body Text
  131. [tag]
  132.     Title
  133.     [fnt]
  134.         Arial
  135.         360
  136.         16385
  137.     [algn]
  138.     [spc]
  139.         446
  140.         144
  141.         100
  142.     [brk]
  143.     [line]
  144.     [spec]
  145.     [nfmt]
  146.         272
  147.     Title
  148. [tag]
  149.     Header
  150.     [fnt]
  151.         Times New Roman
  152.         240
  153.         49152
  154.     [algn]
  155.     [spc]
  156.         273
  157.         100
  158.     [brk]
  159.     [line]
  160.     [spec]
  161.     [nfmt]
  162.         280
  163.     Header
  164. [tag]
  165.     Footer
  166.     [fnt]
  167.         Times New Roman
  168.         240
  169.         49152
  170.     [algn]
  171.     [spc]
  172.         273
  173.         100
  174.     [brk]
  175.     [line]
  176.     [spec]
  177.     [nfmt]
  178.         280
  179.     Footer
  180. [lay]
  181.     Standard
  182.     [rght]
  183.         15840
  184.         12240
  185.         576
  186.         720
  187.         1080
  188.         576
  189.         576
  190.         11664
  191.         720
  192.         1440
  193.         2160
  194.         2880
  195.         3600
  196.         4320
  197.         5040
  198.         5760
  199.         6480
  200.         7200
  201.         7920
  202.         8640
  203.     [hrght]
  204.     [lyfrm]
  205.         11200
  206.         12240
  207.         1080
  208.         1 0 0 0 0 0 0
  209.     [frmlay]
  210.         1080
  211.         12240
  212.         1440
  213.         792
  214.         1440
  215.         1440
  216.         10800
  217.         4680
  218.         9360
  219.     [txt]
  220.     [frght]
  221.     [lyfrm]
  222.         13248
  223.         15120
  224.         12240
  225.         15840
  226.         1 0 0 0 0 0 0
  227.     [frmlay]
  228.         15840
  229.         12240
  230.         1440
  231.         648
  232.         15192
  233.         1440
  234.         1440
  235.         10800
  236.         4680
  237.         9360
  238.     [txt]
  239. [elay]
  240.     48 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  241.     96 0 14 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  242.     144 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  243.     170 0 5 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  244.     218 0 38 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
  245.     264 0 39 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
  246.     312 0 49 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
  247.     337 0 10 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  248. [edoc]
  249. <:#284,11088>
  250. <:#284,11088>
  251. <:#284,11088>
  252. <:#284,11088>
  253. <:#284,11088>' Declare functions
  254. <:#284,11088>Declare    FontDlg(Action, Hdlg, id)
  255. <:#284,11088>Declare    CellEngine(action,Form)
  256. <:#284,11088>Declare    StrPath(Filename)
  257. <:#284,11088>Declare    SizeBox(Hdlg, NumberEditControls)
  258. <:#284,11088>Declare GetFormats(Action)
  259. <:#284,11088>
  260. <:#284,11088>' WinApi defines
  261. <:#284,11088>Define SetWindowText(hwnd, text)    DllCall("user,SetWindowText,IHC", %1, %2)
  262. <:#284,11088>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)
  263. <:#284,11088>DEFINE GetWindowRect()    DllCall("user,GetWindowRect,HHN",%1,%2)
  264. <:#284,11088>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)
  265. <:#284,11088>Define getsystemmetrics() dllcall("user,getsystemmetrics,HH", %1)
  266. <:#284,11088>
  267. <:#284,11088>
  268. <:#284,11088>Define    GetPrefix()    GetGlobalVar$("Prefix")
  269. <:#284,11088>Define    GetSuffix()    GetGlobalVar$("Suffix")
  270. <:#284,11088>
  271. <:#284,11088>
  272. @Subhead@<:#284,11088>Function Main()
  273. <:#284,11088>DefStr hInstance;
  274. <:#284,11088>
  275. <:#284,11088>
  276. <:#284,11088>Mac = GetRunningMacroFile$()
  277. <:#284,11088>MacPath = StrPath(Mac)
  278. <:#284,11088>FontDlg(1,0,0)
  279. <:#284,11088>CellEngine(1,0)
  280. <:#284,11088>GetFormats(1)
  281. <:#284,11088>FillEdit(1000, HelpText)
  282. <:#284,11088>SetDlgCallBack(0,"{Mac}!InitDlg")
  283. <:#284,11088>For Id = 8001 to 8009
  284. <:#284,11088>    SetDlgCallBack(Id, "{Mac}!DataChange")
  285. <:#284,11088>Next
  286. <:#284,11088>
  287. <:#284,11088>FillEdit(1001, Value1Text)
  288. <:#284,11088>FillEdit(1002, Value2Text)
  289. <:#284,11088>FillEdit(1003, Value3Text)
  290. <:#284,11088>FillEdit(1004, Value4Text)
  291. <:#284,11088>FillEdit(1005, Value5Text)
  292. <:#284,11088>FillEdit(1006, Value6Text)
  293. <:#284,11088>FillEdit(1007, Value7Text)
  294. <:#284,11088>FillEdit(1008, Value8Text)
  295. <:#284,11088>FillEdit(1009, Value9Text)
  296. <:#284,11088>
  297. <:#284,11088>
  298. <:#284,11088>Box = DialogBox(".","Deprec")
  299. <:#284,11088>If Box = 3
  300. <:#284,11088>    ' box closed with the copy button
  301. <:#284,11088>    Answer = GetDialogField$(8010)
  302. <:#284,11088>    ClipBoardWrite(Answer,1)
  303. <:#284,11088>Endif
  304. <:#284,11088>
  305. <:#284,11088>FontDlg(4,0,0)
  306. <:#284,11088>CellEngine(0,0)
  307. <:#284,11088>GetFormats(0)
  308. <:#284,11088>End function
  309. <:#284,11088>
  310. <:#284,11088>
  311. @Subhead@<:#284,11088>Function DataChange(Hdlg, id, value)
  312. <:#284,11088>IgnoreKeyBoard(2)
  313. <:#284,11088>DefStr Allowance;
  314. <:#284,11088>Value1 = GetDlgItemText(hDlg, 8001) * 1
  315. <:#284,11088>Value2 = GetDlgItemText(hDlg, 8002) * 1
  316. <:#284,11088>value3 = GetDlgItemText(hDlg, 8003) * 1
  317. <:#284,11088>value4 = GetDlgItemText(hDlg, 8004) * 1
  318. <:#284,11088>value5 = GetDlgItemText(hDlg, 8005) * 1
  319. <:#284,11088>value6 = GetDlgItemText(hdlg, 8006) * 1
  320. <:#284,11088>value7 = GetDlgItemText(hdlg, 8007) * 1
  321. <:#284,11088>value8 = GetDlgItemText(hdlg, 8008) * 1
  322. <:#284,11088>value9 = GetDlgItemText(hdlg, 8009) * 1
  323. <:#284,11088>Answer = CellEngine(3,Formula)      
  324. <:#284,11088>Answer = FormatNum$("","",2,Answer )
  325. <:#284,11088>SetDlgItemText(hDlg, 8010, Answer)
  326. <:#284,11088>End Function
  327. <:#284,11088>
  328. @Subhead@<:#284,11088>Function InitDlg(hDlg, id, value)
  329. <:#284,11088>' use the fontdlg function to display the following control with a small font
  330. <:#284,11088>HourGlass(on)
  331. <:#284,11088>SetWindowText(Hdlg, DialogTitle)
  332. <:#284,11088>FontDlg(3, Hdlg, 1000)
  333. <:#284,11088>For Id = 1 to 9
  334. <:#284,11088>    FontDlg(3, Hdlg, id + 1000)
  335. <:#284,11088>    FontDlg(3, Hdlg, id + 8000)
  336. <:#284,11088>    If Id <;> NumberItems
  337. <:#284,11088>        ShowWindow(GetDlgItem(Hdlg, id + 1000), 0)
  338. <:#284,11088>        ShowWindow(GetDlgItem(Hdlg, id + 8000), 0)
  339. <:#284,11088>    Endif
  340. <:#284,11088>Next
  341. <:#284,11088>FontDlg(3, Hdlg, 8010)
  342. <:#284,11088>FontDlg(3, Hdlg, 8011)
  343. <:#284,11088>SizeBox(Hdlg, NumberItems)
  344. <:#284,11088>HourGlass(off)
  345. <:#284,11088>
  346. <:#284,11088>End Function
  347. <:#284,11088>
  348. <:#284,11088>
  349. @Subhead@<:#284,11088>Function SizeBox(Hdlg, NumberEditControls)
  350. <:#284,11088>Define    Repaint 1
  351. <:#284,11088>Dim Rect(4)
  352. Stat = GetSystemMetrics(4)
  353. GetWindowRect(Hdlg, &Rect)
  354. <:#284,11088>DeltaX = Rect(3) - Rect(1);
  355. <:#284,11088>NumberIncrease = (NumberEditControls - 3);    
  356. <:#284,11088>If NumberIncrease <<0
  357. <:#284,11088>    NumberIncrease = 0
  358. <:#284,11088>Endif
  359. If Stat = 20
  360.     DeltaY = (20 * NumberIncrease) + 140;
  361.     DeltaY = (26 * NumberIncrease) + 190;
  362. Endif
  363. MoveWindow(Hdlg, Rect(1), Rect(2), DeltaX, DeltaY, Repaint)
  364. <:#284,11088>End Function
  365. <:#284,11088>
  366. <:#284,11088>
  367. @Subhead@<:#284,11088>Function GetFormats(Action)
  368. <:#284,11088>iCurrency = GetProfileString$("Intl","iCurrency","Win.ini")
  369. <:#284,11088>currency = GetProfileString$("Intl","sCurrency","Win.ini")
  370. <:#284,11088>AllocGlobalVar("Prefix",1)
  371. <:#284,11088>AllocGlobalVar("Suffix",1)
  372. <:#284,11088>
  373. <:#284,11088>Switch Action
  374. <:#284,11088>    Case 1     ' turn this on
  375. <:#284,11088>        Switch iCurrency
  376. <:#284,11088>            Case 0
  377. <:#284,11088>                Prefix = Currency
  378. <:#284,11088>                Suffix = ""
  379. <:#284,11088>            Case 1
  380. <:#284,11088>                Prefix = ""
  381. <:#284,11088>                Suffix = Currency
  382. <:#284,11088>            Case 2
  383. <:#284,11088>                Prefix = StrCat$(Currency," ")
  384. <:#284,11088>                Suffix = ""
  385. <:#284,11088>            Case 3
  386. <:#284,11088>                Prefix = ""
  387. <:#284,11088>                Suffix = StrCat$(" ",Currency)
  388. <:#284,11088>        endSwitch
  389. <:#284,11088>        SetGlobalVar("Suffix",Suffix)
  390. <:#284,11088>        SetGlobalVar("Prefix",Prefix)
  391. <:#284,11088>
  392. <:#284,11088>    Case 0    ' free globals
  393. <:#284,11088>        FreeGlobalVar("Suffix")
  394. <:#284,11088>        FreeGlobalVar("Prefix")
  395. <:#284,11088>        
  396. <:#284,11088>EndSwitch
  397. <:#284,11088>End Function
  398. <:#284,11088>
  399. <:#284,11088>
  400. <:#284,11088>
  401. @Subhead@<:#284,11088>function strpath(filename)
  402. <:#284,11088>defstr char;
  403. <:#284,11088>Length = len(FileName)
  404. <:#284,11088>WHILE "\" != Assign(&Char, MID$(FileName, Length, 1))
  405. <:#284,11088>    Length = Length - 1
  406. <:#284,11088>WEND
  407. <:#284,11088>InFileName = Right$(FileName, (len(FileName) - Length))
  408. <:#284,11088>InDir = Left$(FileName, Length - 1) 
  409. <:#284,11088>if right$(indir, 1) <<<;> "\"
  410. <:#284,11088>    indir = strcat$(indir, "\")
  411. <:#284,11088>endif
  412. <:#284,11088>return indir
  413. <:#284,11088>end function
  414. <:#284,11088>
  415. <:#284,11088>
  416. <:#284,11088>
  417. <:p<* >>
  418. @Subhead@<:#284,11088>Function CellEngine(Action,Form)
  419. <:#284,11088>'Available Actions
  420. <:#284,11088>'    1         Start the engine and allocate globalvar
  421. <:#284,11088>'    2        Return the handle to the instance of the sheet
  422. <:#284,11088>'    3        Pass the formula as the second param
  423. <:#284,11088>'    0        Shut everything down
  424. <:#284,11088>'    Default    Expect a formula and return an answer
  425. <:#284,11088>
  426. <:#284,11088>' these defines may be useful at the beginning of your macro
  427. <:#284,11088>Define StartEngine    1
  428. <:#284,11088>Define GetInstance    2
  429. <:#284,11088>Define CloseEngine    0
  430. <:#284,11088>
  431. <:#284,11088>Define    CECREATEINSTANCE(LPHANDLE)    DllCall("LTSCE01.DLL,CECREATEINSTANCE,HO",%1)
  432. <:#284,11088>Define    CEDESTROYINSTANCE(HANDLE)    DllCall("LTSCE01.DLL,CEDESTROYINSTANCE,HH",%1)
  433. <:#568,11088>Define    CECALCNOW(HINSTANCE, lpFormula, lpOutPut)    DllCall("LTSCE01.DLL,CECALCNOW,HHCC",%1,%2,%3)
  434. <:#284,11088>
  435. <:#284,11088>DefStr hInstance, Answer, Var;
  436. <:#284,11088>Mac = GetRunningMacroFile$()
  437. <:#284,11088>GlobalInstance = StrCat$(Mac,"hIstance")
  438. <:#284,11088>AmiDir = GetAmiDirectory$()
  439. <:#284,11088>
  440. <:#284,11088>Switch Action
  441. <:#284,11088>    Case 1
  442. <:#284,11088>        ' start the engine
  443. <:#284,11088>        LibId = DLLLoadLib("{AmiDir}LTSCE01.DLL","CECreateInstance","HO")
  444. <:#284,11088>        If LibId = 0
  445. <:#284,11088>            Message("LTSCE01.DLL not found.  Copy the dll to your Ami Pro Directory.")    
  446. <:#284,11088>            Return -1;
  447. <:#284,11088>        Endif
  448. <:#284,11088>        RetVal = CECREATEINSTANCE(&hInstance)
  449. <:#284,11088>        AllocGlobalVar("{GlobalInstance}",1)
  450. <:#284,11088>        AllocGlobalVar("{Mac}LibId",1)
  451. <:#284,11088>        SetGlobalVar("{Mac}Libid",LibId)
  452. <:#284,11088>        SetGlobalVar("{GlobalInstance}",hInstance)
  453. <:#284,11088>        Return hInstance;
  454. <:#284,11088>        Break;
  455. <:#284,11088>
  456. <:#284,11088>    Case 2
  457. <:#284,11088>        ' return the handle to the instance of the sheet
  458. <:#284,11088>        AllocGlobalVar("{GlobalInstance}",1)
  459. <:#284,11088>        hInstance = GetGlobalVar$("{GlobalInstance}")
  460. <:#284,11088>        Return hInstance;
  461. <:#284,11088>        Break;
  462. <:#284,11088>
  463. <:#284,11088>    Case 3
  464. <:#284,11088>        ' Calculate the formula and return the answer
  465. <:#284,11088>        AllocGlobalVar("{GlobalInstance}",1)
  466. <:#284,11088>        hInstance = GetGlobalVar$("{GlobalInstance}")
  467. <:#284,11088>        CECalcNow(hInstance,"{Form}",&Answer)
  468. <:#284,11088>        Return Answer;
  469. <:#284,11088>        Break;
  470. <:#284,11088>    
  471. <:#284,11088>
  472. <:#284,11088>    Case 0
  473. <:#284,11088>        ' destroy the instance of the sheet and free the global var and libid
  474. <:#284,11088>        AllocGlobalVar("{GlobalInstance}",1)
  475. <:#284,11088>        AllocGlobalVar("{Mac}LibId",1)
  476. <:#284,11088>        hInstance = GetGlobalVar$("{GlobalInstance}")
  477. <:#284,11088>        LibId = GetGlobalVar$("{Mac}LibId")
  478. <:#284,11088>        If hInstance
  479. <:#284,11088>            CEDestroyInstance(hInstance)
  480. <:#284,11088>            DllFreeLib(Libid)
  481. <:#284,11088>        Endif
  482. <:#284,11088>        FreeGlobalVar("{GlobalInstance}")
  483. <:#284,11088>        FreeGlobalVar("{Mac}LibId")
  484. <:#284,11088>        Break;
  485. <:#284,11088>
  486. <:#284,11088>    Default
  487. <:#284,11088>EndSwitch
  488. <:#284,11088>End Function
  489. <:#284,11088>
  490. <:#284,11088>
  491. <:#284,11088>
  492. <:#284,11088>
  493. <:#284,11088>
  494. @Subhead@<:#284,11088>Function FontDlg(Action, Hdlg, id)
  495. <:#284,11088>' 1    Create a font and allocvar
  496. <:#284,11088>' 2    Return the handle of the create font 
  497. <:#284,11088>' 3    Set the id specified to the font
  498. <:#284,11088>' 4    Freeglobalvar and delete created object
  499. <:#284,11088>
  500. @Outline2@<:#568,11088>define    CreateFontDLG()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  501. @Outline2@<:#284,11088>define    DeleteObjectDLG(handle)    DllCall("gdi,DeleteObject,HH", %1)
  502. @Outline2@<:#568,11088>define    SendMessageDLG(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  503. @Outline2@<:#284,11088>
  504. @Outline2@<:#284,11088>Mac = GetRunningMacroFile$()
  505. @Outline2@<:#284,11088>
  506. <:#284,11088>Switch Action
  507. <:#284,11088>    Case 1    ' Create the font and store it
  508. @Outline2@<:#284,11088>        Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
  509. <:#284,11088>        AllocGlobalVar("{Mac}FontHandle",1)
  510. <:#284,11088>        If Font
  511. <:#284,11088>            SetGlobalVar("{Mac}FontHandle",Font)
  512. <:#284,11088>            Return Font
  513. <:#284,11088>        Else
  514. <:#284,11088>            Return 0;    ' no font
  515. <:#284,11088>        Endif
  516. <:#284,11088>        Break;
  517. <:#284,11088>    Case 2    ' Return the handle to the font
  518. <:#284,11088>        Handle = GetGlobalVar$("{Mac}FontHandle")
  519. <:#284,11088>        If Handle 
  520. <:#284,11088>            Return Handle
  521. <:#284,11088>        Else
  522. <:#284,11088>            Return 0
  523. <:#284,11088>        Endif
  524. <:#284,11088>
  525. <:#284,11088>    Case 3    ' Set the id to the font
  526. <:#284,11088>        Handle = GetGlobalVar$("{Mac}FontHandle")
  527. <:#284,11088>        If Handle 
  528. <:#284,11088>            IdControl = GetDlgITem(Hdlg, id)
  529. <:#284,11088>            SendMessageDlg(idControl, 0x30, Handle, 0)
  530. <:#284,11088>            Return 1
  531. <:#284,11088>        Else
  532. <:#284,11088>            Return 0
  533. <:#284,11088>        Endif
  534. <:#284,11088>        Break;        
  535. <:#284,11088>        
  536. <:#284,11088>    Case 4    ' Delete the font and clear the var
  537. <:#284,11088>        Handle = GetGlobalVar$("{Mac}FontHandle")
  538. <:#284,11088>        If Handle
  539. <:#284,11088>            DeleteObjectDLG(Handle)
  540. <:#284,11088>            Stat = 1    
  541. <:#284,11088>        Else
  542. <:#284,11088>            Stat = 0
  543. <:#284,11088>        Endif
  544. <:#284,11088>        FreeGlobalVar("{Mac}FontHandle")
  545. <:#284,11088>        Return Stat        
  546. <:#284,11088>    Default
  547. <:#284,11088>        Message("Fontdlg received an invalid parameter {Action}")
  548. <:#284,11088>EndSwitch    
  549. <:#284,11088>
  550. <:#284,11088>End Function
  551. <:#284,11088>
  552. @Subhead@<:#284,11088>
  553. <:#284,11088>
  554. <:#284,11088>
  555. <:#284,11088>
  556. <:#284,11088>
  557. <:#284,11088>
  558. <:#284,11088>DIALOG    Deprec
  559. <:#284,11088>-2134376448    23    78    50    158    159    ""    ""    "Dialog Title"
  560. <:#284,11088>FONT    8    "Helv"
  561. <:#284,11088>60    28    33    12    8001    1350631552    "edit"    ""    0 
  562. <:#284,11088>60    42    33    12    8002    1350631552    "edit"    ""    0 
  563. <:#284,11088>60    56    33    12    8003    1350631552    "edit"    ""    0 
  564. <:#284,11088>60    70    33    12    8004    1350631552    "edit"    ""    0 
  565. <:#284,11088>60    84    33    12    8005    1350631552    "edit"    ""    0 
  566. <:#284,11088>60    98    33    12    8006    1350631552    "edit"    ""    0 
  567. <:#284,11088>60    112    33    12    8007    1350631552    "edit"    ""    0 
  568. <:#284,11088>60    126    33    12    8008    1350631552    "edit"    ""    0 
  569. <:#284,11088>60    140    33    12    8009    1350631552    "edit"    ""    0 
  570. <:#284,11088>114    3    40    14    1    1342373889    "button"    "OK"    0 
  571. <:#284,11088>114    19    40    14    3    1342373888    "button"    "Copy"    0 
  572. <:#284,11088>106    52    38    8    8010    1342177282    "static"    ""    0 
  573. <:#284,11088>98    39    57    29    20    1342177287    "button"    "Answer"    0 
  574. <:#284,11088>4    2    103    24    1000    1342177280    "static"    ""    0 
  575. <:#284,11088>4    30    56    8    1001    1342177280    "static"    "value1text"    0 
  576. <:#284,11088>4    44    56    8    1002    1342177280    "static"    "value2text"    0 
  577. <:#284,11088>4    58    56    8    1003    1342177280    "static"    "value3text"    0 
  578. <:#284,11088>4    72    56    8    1004    1342177280    "static"    "value4text"    0 
  579. <:#284,11088>4    86    56    8    1005    1342177280    "static"    "value5text"    0 
  580. <:#284,11088>3    99    56    8    1006    1342177280    "static"    "value6text"    0 
  581. <:#284,11088>3    111    56    8    1007    1342177280    "static"    "value7text"    0 
  582. <:#284,11088>2    123    56    8    1008    1342177280    "static"    "value8text"    0 
  583. <:#284,11088>1    141    56    8    1009    1342177280    "static"    "value9text"    0 
  584. <:#284,11088>END DIALOG
  585. [Embedded]
  586. 00019011
  587.