home *** CD-ROM | disk | FTP | other *** search
/ Program Metropolis - Software Boutique 95 / SOFTWARECD.iso / camipro3 / macros2.cmz / BUILDER.SAM (.txt) < prev    next >
Encoding:
Ami Pro/Word Pro document  |  1994-08-14  |  18.7 KB  |  590 lines
  1. [ver]
  2. [sty]
  3. [files]
  4. [charset]
  5.     CHINESEBIG5 (Windows)
  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.     774575884
  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 26 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 22 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 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.     172 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.     220 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.     266 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.     314 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.     339 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>Define        ErrorMessage    "LTSCE01.DLL not found.  Copy the dll to your Ami Pro Directory."
  254. <:#284,11088>
  255. <:#284,11088>' Declare functions
  256. <:#284,11088>Declare    FontDlg(Action, Hdlg, id)
  257. <:#284,11088>Declare    CellEngine(action,Form)
  258. <:#284,11088>Declare    StrPath(Filename)
  259. <:#284,11088>Declare    SizeBox(Hdlg, NumberEditControls)
  260. <:#284,11088>Declare GetFormats(Action)
  261. <:#284,11088>
  262. <:#284,11088>' WinApi defines
  263. <:#284,11088>Define SetWindowText(hwnd, text)    DllCall("user,SetWindowText,IHC", %1, %2)
  264. <:#284,11088>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)
  265. <:#284,11088>DEFINE GetWindowRect()    DllCall("user,GetWindowRect,HHN",%1,%2)
  266. <:#284,11088>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)
  267. <:#284,11088>Define getsystemmetrics() dllcall("user,getsystemmetrics,HH", %1)
  268. <:#284,11088>
  269. <:#284,11088>
  270. <:#284,11088>Define    GetPrefix()    GetGlobalVar$("Prefix")
  271. <:#284,11088>Define    GetSuffix()    GetGlobalVar$("Suffix")
  272. <:#284,11088>
  273. <:#284,11088>
  274. @Subhead@<:#284,11088>Function Main()
  275. <:#284,11088>DefStr hInstance;
  276. <:#284,11088>
  277. <:#284,11088>
  278. <:#284,11088>Mac = GetRunningMacroFile$()
  279. <:#284,11088>MacPath = StrPath(Mac)
  280. <:#284,11088>FontDlg(1,0,0)
  281. <:#284,11088>CellEngine(1,0)
  282. <:#284,11088>GetFormats(1)
  283. <:#284,11088>FillEdit(1000, HelpText)
  284. <:#284,11088>SetDlgCallBack(0,"{Mac}!InitDlg")
  285. <:#284,11088>For Id = 8001 to 8009
  286. <:#284,11088>    SetDlgCallBack(Id, "{Mac}!DataChange")
  287. <:#284,11088>Next
  288. <:#284,11088>
  289. <:#284,11088>FillEdit(1001, Value1Text)
  290. <:#284,11088>FillEdit(1002, Value2Text)
  291. <:#284,11088>FillEdit(1003, Value3Text)
  292. <:#284,11088>FillEdit(1004, Value4Text)
  293. <:#284,11088>FillEdit(1005, Value5Text)
  294. <:#284,11088>FillEdit(1006, Value6Text)
  295. <:#284,11088>FillEdit(1007, Value7Text)
  296. <:#284,11088>FillEdit(1008, Value8Text)
  297. <:#284,11088>FillEdit(1009, Value9Text)
  298. <:#284,11088>
  299. <:#284,11088>
  300. <:#284,11088>Box = DialogBox(".","Deprec")
  301. <:#284,11088>If Box = 3
  302. <:#284,11088>    ' box closed with the copy button
  303. <:#284,11088>    Answer = GetDialogField$(8010)
  304. <:#284,11088>    ClipBoardWrite(Answer,1)
  305. <:#284,11088>Endif
  306. <:#284,11088>
  307. <:#284,11088>FontDlg(4,0,0)
  308. <:#284,11088>CellEngine(0,0)
  309. <:#284,11088>GetFormats(0)
  310. <:#284,11088>End function
  311. <:#284,11088>
  312. <:#284,11088>
  313. @Subhead@<:#284,11088>Function DataChange(Hdlg, id, value)
  314. <:#284,11088>IgnoreKeyBoard(2)
  315. <:#284,11088>DefStr Allowance;
  316. <:#284,11088>Value1 = GetDlgItemText(hDlg, 8001) 
  317. <:#284,11088>Value2 = GetDlgItemText(hDlg, 8002)
  318. <:#284,11088>value3 = GetDlgItemText(hDlg, 8003)
  319. <:#284,11088>value4 = GetDlgItemText(hDlg, 8004)
  320. <:#284,11088>value5 = GetDlgItemText(hDlg, 8005)
  321. <:#284,11088>value6 = GetDlgItemText(hdlg, 8006)
  322. <:#284,11088>value7 = GetDlgItemText(hdlg, 8007)
  323. <:#284,11088>value8 = GetDlgItemText(hdlg, 8008)
  324. <:#284,11088>value9 = GetDlgItemText(hdlg, 8009)
  325. <:#284,11088>Answer = CellEngine(3,Formula)      
  326. <:#284,11088>Answer = FormatNum$("","",2,Answer * 1)
  327. <:#284,11088>SetDlgItemText(hDlg, 8010, Answer)
  328. <:#284,11088>End Function
  329. <:#284,11088>
  330. @Subhead@<:#284,11088>Function InitDlg(hDlg, id, value)
  331. <:#284,11088>' use the fontdlg function to display the following control with a small font
  332. <:#284,11088>HourGlass(on)
  333. <:#284,11088>SetWindowText(Hdlg, DialogTitle)
  334. <:#284,11088>FontDlg(3, Hdlg, 1000)
  335. <:#284,11088>For Id = 1 to 9
  336. <:#284,11088>    FontDlg(3, Hdlg, id + 1000)
  337. <:#284,11088>    FontDlg(3, Hdlg, id + 8000)
  338. <:#284,11088>    If Id <;> NumberItems
  339. <:#284,11088>        ShowWindow(GetDlgItem(Hdlg, id + 1000), 0)
  340. <:#284,11088>        ShowWindow(GetDlgItem(Hdlg, id + 8000), 0)
  341. <:#284,11088>    Endif
  342. <:#284,11088>Next
  343. <:#284,11088>FontDlg(3, Hdlg, 8010)
  344. <:#284,11088>FontDlg(3, Hdlg, 8011)
  345. <:#284,11088>SizeBox(Hdlg, NumberItems)
  346. <:#284,11088>HourGlass(off)
  347. <:#284,11088>
  348. <:#284,11088>End Function
  349. <:#284,11088>
  350. <:#284,11088>
  351. @Subhead@<:#284,11088>Function SizeBox(Hdlg, NumberEditControls)
  352. <:#284,11088>Define    Repaint 1
  353. <:#284,11088>Dim Rect(4)
  354. <:#284,11088>Stat = GetSystemMetrics(4)
  355. <:#284,11088>GetWindowRect(Hdlg, &Rect)
  356. <:#284,11088>DeltaX = Rect(3) - Rect(1);
  357. <:#284,11088>NumberIncrease = (NumberEditControls - 3);    
  358. <:#284,11088>If NumberIncrease <<0
  359. <:#284,11088>    NumberIncrease = 0
  360. <:#284,11088>Endif
  361. <:#284,11088>If Stat = 20
  362. <:#284,11088>    DeltaY = (20 * NumberIncrease) + 140;
  363. <:#284,11088>Else
  364. <:#284,11088>    DeltaY = (26 * NumberIncrease) + 190;
  365. <:#284,11088>Endif
  366. <:#284,11088>MoveWindow(Hdlg, Rect(1), Rect(2), DeltaX, DeltaY, Repaint)
  367. <:#284,11088>End Function
  368. <:#284,11088>
  369. <:#284,11088>
  370. @Subhead@<:#284,11088>Function GetFormats(Action)
  371. <:#284,11088>iCurrency = GetProfileString$("Intl","iCurrency","Win.ini")
  372. <:#284,11088>currency = GetProfileString$("Intl","sCurrency","Win.ini")
  373. <:#284,11088>AllocGlobalVar("Prefix",1)
  374. <:#284,11088>AllocGlobalVar("Suffix",1)
  375. <:#284,11088>
  376. <:#284,11088>Switch Action
  377. <:#284,11088>    Case 1     ' turn this on
  378. <:#284,11088>        Switch iCurrency
  379. <:#284,11088>            Case 0
  380. <:#284,11088>                Prefix = Currency
  381. <:#284,11088>                Suffix = ""
  382. <:#284,11088>            Case 1
  383. <:#284,11088>                Prefix = ""
  384. <:#284,11088>                Suffix = Currency
  385. <:#284,11088>            Case 2
  386. <:#284,11088>                Prefix = StrCat$(Currency," ")
  387. <:#284,11088>                Suffix = ""
  388. <:#284,11088>            Case 3
  389. <:#284,11088>                Prefix = ""
  390. <:#284,11088>                Suffix = StrCat$(" ",Currency)
  391. <:#284,11088>        endSwitch
  392. <:#284,11088>        SetGlobalVar("Suffix",Suffix)
  393. <:#284,11088>        SetGlobalVar("Prefix",Prefix)
  394. <:#284,11088>
  395. <:#284,11088>    Case 0    ' free globals
  396. <:#284,11088>        FreeGlobalVar("Suffix")
  397. <:#284,11088>        FreeGlobalVar("Prefix")
  398. <:#284,11088>        
  399. <:#284,11088>EndSwitch
  400. <:#284,11088>End Function
  401. <:#284,11088>
  402. <:#284,11088>
  403. <:#284,11088>
  404. @Subhead@<:#284,11088>function strpath(filename)
  405. <:#284,11088>defstr char;
  406. Length = tlen(FileName)
  407. <:#284,11088>WHILE "\" != Assign(&Char, MID$(FileName, Length, 1))
  408. <:#284,11088>    Length = Length - 1
  409. <:#284,11088>WEND
  410. InFileName = Right$(FileName, (tlen(FileName) - Length))
  411. <:#284,11088>InDir = kmid$(FileName,1, Length - 1) 
  412. <:#284,11088>if right$(indir, 1) <<<;> "\"
  413. <:#284,11088>    indir = strcat$(indir, "\")
  414. <:#284,11088>endif
  415. <:#284,11088>return indir
  416. <:#284,11088>end function
  417. <:#284,11088>
  418. <:#284,11088>
  419. <:#284,11088>
  420. <:p<* >>
  421. @Subhead@<:#284,11088>Function CellEngine(Action,Form)
  422. <:#284,11088>'Available Actions
  423. <:#284,11088>'    1         Start the engine and allocate globalvar
  424. <:#284,11088>'    2        Return the handle to the instance of the sheet
  425. <:#284,11088>'    3        Pass the formula as the second param
  426. <:#284,11088>'    0        Shut everything down
  427. <:#284,11088>'    Default    Expect a formula and return an answer
  428. <:#284,11088>
  429. <:#284,11088>' these defines may be useful at the beginning of your macro
  430. <:#284,11088>Define StartEngine    1
  431. <:#284,11088>Define GetInstance    2
  432. <:#284,11088>Define CloseEngine    0
  433. <:#284,11088>
  434. <:#284,11088>Define    CECREATEINSTANCE(LPHANDLE)    DllCall("LTSCE01.DLL,CECREATEINSTANCE,HO",%1)
  435. <:#284,11088>Define    CEDESTROYINSTANCE(HANDLE)    DllCall("LTSCE01.DLL,CEDESTROYINSTANCE,HH",%1)
  436. <:#568,11088>Define    CECALCNOW(HINSTANCE, lpFormula, lpOutPut)    DllCall("LTSCE01.DLL,CECALCNOW,HHCC",%1,%2,%3)
  437. <:#284,11088>
  438. <:#284,11088>DefStr hInstance, Answer, Var;
  439. <:#284,11088>Mac = GetRunningMacroFile$()
  440. <:#284,11088>GlobalInstance = StrCat$(Mac,"hIstance")
  441. <:#284,11088>AmiDir = GetAmiDirectory$()
  442. <:#284,11088>
  443. <:#284,11088>Switch Action
  444. <:#284,11088>    Case 1
  445. <:#284,11088>        ' start the engine
  446. <:#284,11088>        LibId = DLLLoadLib("{AmiDir}LTSCE01.DLL","CECreateInstance","HO")
  447. <:#284,11088>        If LibId = 0
  448. <:#284,11088>            Message(ErrorMessage)    
  449. <:#284,11088>            Return -1;
  450. <:#284,11088>        Endif
  451. <:#284,11088>        RetVal = CECREATEINSTANCE(&hInstance)
  452. <:#284,11088>        AllocGlobalVar("{GlobalInstance}",1)
  453. <:#284,11088>        AllocGlobalVar("{Mac}LibId",1)
  454. <:#284,11088>        SetGlobalVar("{Mac}Libid",LibId)
  455. <:#284,11088>        SetGlobalVar("{GlobalInstance}",hInstance)
  456. <:#284,11088>        Return hInstance;
  457. <:#284,11088>        Break;
  458. <:#284,11088>
  459. <:#284,11088>    Case 2
  460. <:#284,11088>        ' return the handle to the instance of the sheet
  461. <:#284,11088>        AllocGlobalVar("{GlobalInstance}",1)
  462. <:#284,11088>        hInstance = GetGlobalVar$("{GlobalInstance}")
  463. <:#284,11088>        Return hInstance;
  464. <:#284,11088>        Break;
  465. <:#284,11088>
  466. <:#284,11088>    Case 3
  467. <:#284,11088>        ' Calculate the formula and return the answer
  468. <:#284,11088>        AllocGlobalVar("{GlobalInstance}",1)
  469. <:#284,11088>        hInstance = GetGlobalVar$("{GlobalInstance}")
  470. <:#284,11088>        CECalcNow(hInstance,"{Form}",&Answer)
  471. <:#284,11088>        Return Answer;
  472. <:#284,11088>        Break;
  473. <:#284,11088>    
  474. <:#284,11088>
  475. <:#284,11088>    Case 0
  476. <:#284,11088>        ' destroy the instance of the sheet and free the global var and libid
  477. <:#284,11088>        AllocGlobalVar("{GlobalInstance}",1)
  478. <:#284,11088>        AllocGlobalVar("{Mac}LibId",1)
  479. <:#284,11088>        hInstance = GetGlobalVar$("{GlobalInstance}")
  480. <:#284,11088>        LibId = GetGlobalVar$("{Mac}LibId")
  481. <:#284,11088>        If hInstance
  482. <:#284,11088>            CEDestroyInstance(hInstance)
  483. <:#284,11088>            DllFreeLib(Libid)
  484. <:#284,11088>        Endif
  485. <:#284,11088>        FreeGlobalVar("{GlobalInstance}")
  486. <:#284,11088>        FreeGlobalVar("{Mac}LibId")
  487. <:#284,11088>        Break;
  488. <:#284,11088>
  489. <:#284,11088>    Default
  490. <:#284,11088>EndSwitch
  491. <:#284,11088>End Function
  492. <:#284,11088>
  493. <:#284,11088>
  494. <:#284,11088>
  495. <:#284,11088>
  496. <:#284,11088>
  497. @Subhead@<:#284,11088>Function FontDlg(Action, Hdlg, id)
  498. <:#284,11088>' 1    Create a font and allocvar
  499. <:#284,11088>' 2    Return the handle of the create font 
  500. <:#284,11088>' 3    Set the id specified to the font
  501. <:#284,11088>' 4    Freeglobalvar and delete created object
  502. <:#284,11088>
  503. @Outline2@<:#568,11088>define    CreateFontDLG()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  504. @Outline2@<:#284,11088>define    DeleteObjectDLG(handle)    DllCall("gdi,DeleteObject,HH", %1)
  505. @Outline2@<:#568,11088>define    SendMessageDLG(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  506. @Outline2@<:#284,11088>
  507. @Outline2@<:#284,11088>Mac = GetRunningMacroFile$()
  508. @Outline2@<:#284,11088>
  509. <:#284,11088>Switch Action
  510. <:#284,11088>    Case 1    ' Create the font and store it
  511. @Outline2@<:#284,11088>        Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
  512. <:#284,11088>        AllocGlobalVar("{Mac}FontHandle",1)
  513. <:#284,11088>        If Font
  514. <:#284,11088>            SetGlobalVar("{Mac}FontHandle",Font)
  515. <:#284,11088>            Return Font
  516. <:#284,11088>        Else
  517. <:#284,11088>            Return 0;    ' no font
  518. <:#284,11088>        Endif
  519. <:#284,11088>        Break;
  520. <:#284,11088>    Case 2    ' Return the handle to the font
  521. <:#284,11088>        Handle = GetGlobalVar$("{Mac}FontHandle")
  522. <:#284,11088>        If Handle 
  523. <:#284,11088>            Return Handle
  524. <:#284,11088>        Else
  525. <:#284,11088>            Return 0
  526. <:#284,11088>        Endif
  527. <:#284,11088>
  528. <:#284,11088>    Case 3    ' Set the id to the font
  529. <:#284,11088>        Handle = GetGlobalVar$("{Mac}FontHandle")
  530. <:#284,11088>        If Handle 
  531. <:#284,11088>            IdControl = GetDlgITem(Hdlg, id)
  532. <:#284,11088>            SendMessageDlg(idControl, 0x30, Handle, 0)
  533. <:#284,11088>            Return 1
  534. <:#284,11088>        Else
  535. <:#284,11088>            Return 0
  536. <:#284,11088>        Endif
  537. <:#284,11088>        Break;        
  538. <:#284,11088>        
  539. <:#284,11088>    Case 4    ' Delete the font and clear the var
  540. <:#284,11088>        Handle = GetGlobalVar$("{Mac}FontHandle")
  541. <:#284,11088>        If Handle
  542. <:#284,11088>            DeleteObjectDLG(Handle)
  543. <:#284,11088>            Stat = 1    
  544. <:#284,11088>        Else
  545. <:#284,11088>            Stat = 0
  546. <:#284,11088>        Endif
  547. <:#284,11088>        FreeGlobalVar("{Mac}FontHandle")
  548. <:#284,11088>        Return Stat        
  549. <:#284,11088>    Default
  550. <:#284,11088>        Message("Fontdlg received an invalid parameter {Action}")
  551. <:#284,11088>EndSwitch    
  552. <:#284,11088>
  553. <:#284,11088>End Function
  554. <:#284,11088>
  555. @Subhead@<:#284,11088>
  556. <:#284,11088>
  557. <:#284,11088>
  558. <:#284,11088>
  559. <:#284,11088>
  560. <:#284,11088>
  561. <:#284,11088>DIALOG    Deprec
  562. <:#284,11088>-2134376448    23    78    50    158    159    ""    ""    "Dialog Title"
  563. <:#284,11088>FONT    8    "Helv"
  564. <:#284,11088>60    28    33    12    8001    1350631552    "edit"    ""    0 
  565. <:#284,11088>60    42    33    12    8002    1350631552    "edit"    ""    0 
  566. <:#284,11088>60    56    33    12    8003    1350631552    "edit"    ""    0 
  567. <:#284,11088>60    70    33    12    8004    1350631552    "edit"    ""    0 
  568. <:#284,11088>60    84    33    12    8005    1350631552    "edit"    ""    0 
  569. <:#284,11088>60    98    33    12    8006    1350631552    "edit"    ""    0 
  570. <:#284,11088>60    112    33    12    8007    1350631552    "edit"    ""    0 
  571. <:#284,11088>60    126    33    12    8008    1350631552    "edit"    ""    0 
  572. <:#284,11088>60    140    33    12    8009    1350631552    "edit"    ""    0 
  573. <:#284,11088>114    3    40    14    1    1342373889    "button"    "OK"    0 
  574. <:#284,11088>114    19    40    14    3    1342373888    "button"    "Copy"    0 
  575. <:#284,11088>106    52    38    8    8010    1342177282    "static"    ""    0 
  576. <:#284,11088>98    39    57    29    20    1342177287    "button"    "Answer"    0 
  577. <:#284,11088>4    2    103    24    1000    1342177280    "static"    ""    0 
  578. <:#284,11088>4    30    56    8    1001    1342177280    "static"    "value1text"    0 
  579. <:#284,11088>4    44    56    8    1002    1342177280    "static"    "value2text"    0 
  580. <:#284,11088>4    58    56    8    1003    1342177280    "static"    "value3text"    0 
  581. <:#284,11088>4    72    56    8    1004    1342177280    "static"    "value4text"    0 
  582. <:#284,11088>4    86    56    8    1005    1342177280    "static"    "value5text"    0 
  583. <:#284,11088>3    99    56    8    1006    1342177280    "static"    "value6text"    0 
  584. <:#284,11088>3    111    56    8    1007    1342177280    "static"    "value7text"    0 
  585. <:#284,11088>2    123    56    8    1008    1342177280    "static"    "value8text"    0 
  586. <:#284,11088>1    141    56    8    1009    1342177280    "static"    "value9text"    0 
  587. <:#284,11088>END DIALOG
  588. [Embedded]
  589. 00019125
  590.