home *** CD-ROM | disk | FTP | other *** search
/ Program Metropolis - Software Boutique 95 / SOFTWARECD.iso / camipro3 / macros.cmz / CHGFONT.SMM < prev    next >
Encoding:
INI File  |  1994-08-14  |  18.0 KB  |  1,173 lines

  1. [ver]
  2.     4
  3. [sty]
  4.     _default.sty
  5. [files]
  6. [charset]
  7.     82
  8.     CHINESEBIG5 (Windows)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PCL / HP LaserJet
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     º∩┼▄╝╦ªí¬φªr½¼
  19.     Lotus WPD Technical Support
  20.     Advanced
  21.     DllCalls, Arrays
  22.     No Autorun
  23.     775683256
  24.     128
  25.     674351641
  26.     1189
  27.     6
  28.     933
  29.     6453
  30.     18
  31.     22
  32.     Fonts, 
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  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. [lay]
  54.     Standard
  55.     513
  56.     [rght]
  57.         15840
  58.         12240
  59.         1
  60.         720
  61.         1440
  62.         1
  63.         1440
  64.         720
  65.         2
  66.         1
  67.         0
  68.         1
  69.         1
  70.         2
  71.         1
  72.         720
  73.         11520
  74.         7
  75.         1
  76.         720
  77.         1
  78.         1440
  79.         1
  80.         2160
  81.         1
  82.         2880
  83.         1
  84.         3600
  85.         1
  86.         4320
  87.         3
  88.         10800
  89.     [hrght]
  90.     [lyfrm]
  91.         1
  92.         11200
  93.         0
  94.         0
  95.         12240
  96.         1440
  97.         0
  98.         1
  99.         3
  100.         1 0 0 0 0 0 0
  101.         0
  102.         0
  103.         1
  104.     [frmlay]
  105.         1440
  106.         12240
  107.         1
  108.         720
  109.         72
  110.         1
  111.         144
  112.         720
  113.         0
  114.         1
  115.         0
  116.         1
  117.         1
  118.         0
  119.         1
  120.         720
  121.         11520
  122.         1
  123.         3
  124.         10601
  125.     [txt]
  126. ChangeFonts by John McDaniel, Modified 4/23/92 Peyton McMAnus    July 13, 1991
  127.  
  128. Customer Support Department    Page <:P11,1,>
  129.  
  130. Lotus Development Corporation WPD    CHGFONT.SMM
  131.  
  132. >
  133.     [frght]
  134.     [lyfrm]
  135.         1
  136.         13248
  137.         0
  138.         14400
  139.         12240
  140.         15840
  141.         0
  142.         1
  143.         3
  144.         1 0 0 0 0 0 0
  145.         0
  146.         0
  147.         2
  148.     [frmlay]
  149.         15840
  150.         12240
  151.         1
  152.         1440
  153.         360
  154.         1
  155.         14472
  156.         1440
  157.         0
  158.         1
  159.         0
  160.         1
  161.         1
  162.         0
  163.         1
  164.         1440
  165.         10800
  166.         0
  167.     [txt]
  168. >
  169. [elay]
  170. [l1]
  171.     0
  172. [pg]
  173.     6
  174.     45 0 15 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
  175.     90 0 16 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
  176.     135 0 7 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
  177.     180 0 5 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
  178.     225 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
  179.     260 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
  180. [edoc]
  181. <:#284,10800>Declare Embedded(FileName)
  182.  
  183. <:#284,10800>Declare    GetFonts(FontNames)
  184.  
  185. <:#284,10800>
  186.  
  187. @Function@<:#284,10800>FUNCTION chgfont() '    This macro calls FONTDLL.EXE which returns
  188.  
  189. <:#284,10800>IF IsNewWave()
  190.  
  191. <:#284,10800>    Message("Macro not available while running under HP NewWave.")
  192.  
  193. <:#284,10800>    Exit Function
  194.  
  195. <:#284,10800>ENDIF
  196.  
  197. <:#284,10800>DefStr Stat;
  198.  
  199. <:#284,10800>DIM files(1) '    all of the available typefaces for your
  200.  
  201. <:#284,10800>DIM BaseFonts(1) '    change any typeface to an available typeface
  202.  
  203. <:#284,10800>DIM nface(200) '    for all of your style sheets, and also sets the
  204.  
  205. <:#284,10800>DIM oface(200) '    style sheet for your default printer
  206.  
  207. <:#284,10800>Dim Detect(1)
  208.  
  209. <:#284,10800>IF GetOpenFileCount() << 1
  210.  
  211. <:#284,10800>    defstyle = getprofilestring$("amipro", "defstyle", "amipro.ini")
  212.  
  213. <:#284,10800>    IF defstyle = "" THEN
  214.  
  215. <:#284,10800>        defstyle = "_cdefaul.sty"
  216.  
  217. <:#284,10800>    ENDIF
  218.  
  219. <:#284,10800>    new(defstyle, 0, 0)
  220.  
  221. <:#284,10800>ENDIF
  222.  
  223. <:#284,10800><:><:><:Z|><:Z~|>ONCANCEL endit
  224.  
  225. <:#284,10800>ONERROR endit
  226.  
  227. <:#284,10800>IgnoreKeyboard(1)
  228.  
  229. <:#284,10800>mpath = GetMacPath$()
  230.  
  231. <:#284,10800>stypath = GetStylePath$()
  232.  
  233. <:#284,10800>q = 2
  234.  
  235. <:#284,10800>If 0 = GetFonts(&BaseFonts)
  236.  
  237. <:#284,10800>    Else
  238.  
  239. <:#284,10800>        Message("Font Could not be retrieved")
  240.  
  241. <:#284,10800>        Exit Function
  242.  
  243. <:#284,10800>Endif
  244.  
  245. <:#284,10800>
  246.  
  247. <:#284,10800>defprtr = GetProfileString$("windows","device","WIN.INI") 
  248.  
  249. <:#284,10800>IF defprtr = "" THEN
  250.  
  251. <:#284,10800>    Message("Unable to locate your default printer. Exiting Macro")
  252.  
  253. <:#284,10800>    Exit Function
  254.  
  255. <:#284,10800>ENDIF
  256.  
  257. <:#284,10800>endofprt = Instr(0,defprtr,",")
  258.  
  259. <:#284,10800>IF endofprt <<<;> 0 THEN
  260.  
  261. <:#284,10800>    defprtr = Left$(defprtr,(endofprt - 1))
  262.  
  263. <:#284,10800>ENDIF
  264.  
  265. <:#284,10800>
  266.  
  267. <:#284,10800>DOSchdir(Left$(stypath,(Len(stypath) - 1))) '    Choose style sheets to modify
  268.  
  269. <:#284,10800>FillEdit(110,1)
  270.  
  271. <:#284,10800>FillEdit(9001,"*.sty")
  272.  
  273. <:#284,10800>box3 = DialogBox(".","PICKFILE")
  274.  
  275. <:#284,10800>IF box3 <<<;>1
  276.  
  277. <:#284,10800>        Exit function
  278.  
  279. <:#284,10800>ENDIF
  280.  
  281. <:#284,10800>stypath=GetCurrentDir$()
  282.  
  283. <:#284,10800>IF GetDialogField$(110)=1 THEN '    Check for select one option
  284.  
  285. <:#284,10800>    Files(1) = GetDialogField$(9001)
  286.  
  287. <:#284,10800>    If Files(1) = ""
  288.  
  289. <:#284,10800>        Exit Function
  290.  
  291. <:#284,10800>    ENDIF
  292.  
  293. <:#284,10800>    t = 1
  294.  
  295. <:#284,10800>    GOTO loop3
  296.  
  297. <:#284,10800>ENDIF
  298.  
  299. <:#284,10800>file = FindFirst$("{stypath}*.sty" 0) '    Look for first style sheet
  300.  
  301. <:#284,10800>files(1) = file
  302.  
  303. <:#284,10800>t = 1
  304.  
  305. <:#284,10800>WHILE (file <<<;> "")
  306.  
  307. <:#284,10800>    t = t + 1
  308.  
  309. <:#284,10800>    file = FindNext$()
  310.  
  311. <:#284,10800>    ArrayInsert(&Files,t,File) '     load array with styles
  312.  
  313. <:#284,10800>WEND
  314.  
  315. <:#284,10800>t = t - 1
  316.  
  317. <:#284,10800>loop3:
  318.  
  319. <:#284,10800>FOR x = 1 TO t '                Open style sheet as ASCII
  320.  
  321. <:#284,10800>    HourGlass(on)
  322.  
  323. <:#284,10800>    file = files(x)
  324.  
  325. <:#284,10800>    Stat = Embedded(File)
  326.  
  327. <:#284,10800>    If Stat = 0
  328.  
  329. <:#284,10800>    Else
  330.  
  331. <:#284,10800>            StatusBarMsg("Graphic Detected in {File}")
  332.  
  333. <:#284,10800>            ' A graphic was detected
  334.  
  335. <:#284,10800>            ArrayInsertByKey(&Detect,File,1)
  336.  
  337. <:#284,10800>            Goto Loopem
  338.  
  339. <:#284,10800>    Endif
  340.  
  341. <:#284,10800>    Longfile = strcat$(stypath,"{file}")
  342.  
  343. <:#284,10800>    AsciiOptions(16)
  344.  
  345. <:#284,10800>    If 1 != FileOpen(longfile,144,"ASCII")
  346.  
  347. <:#284,10800>        GOTO skipfile
  348.  
  349. <:#284,10800>    ENDIF
  350.  
  351. <:#284,10800>    StatusBarMsg("Analyzing {longfile}...{x} of {T}")
  352.  
  353. <:#284,10800>    If 1 = Replace(0,0,4,"prn","prn")
  354.  
  355. <:#284,10800>        TYPE("<[>down]<[>shiftctrldown]{defprtr}")
  356.  
  357. <:#284,10800>    Else
  358.  
  359. <:#284,10800>            GOTO skipfile
  360.  
  361. <:#284,10800>    ENDIF
  362.  
  363. <:#284,10800>    again:
  364.  
  365. <:#284,10800>    WHILE(1= Replace(0,0,4,"fnt","fnt")) 'Find typeface for paragraph style
  366.  
  367. <:#284,10800>        TYPE("<[>down]<[>home]<[>right]<[>right]<[>shiftend]")
  368.  
  369. <:#284,10800>        txt = curshade$()
  370.  
  371. <:#284,10800>        k = ArraySize(&Basefonts)
  372.  
  373. <:#284,10800>        If 0 !=Assign(&Stat,ArraySearch(&BaseFonts,Txt))
  374.  
  375. <:#284,10800>            cg = 1    'We have a match for our font
  376.  
  377. <:#284,10800>        Else
  378.  
  379. <:#284,10800>                ' No match for font in our base set
  380.  
  381. <:#284,10800>        Endif
  382.  
  383. <:#284,10800>        FOR u = 1 TO (q - 1) '    Check to see if font has already been changed
  384.  
  385. <:#284,10800>            IF txt = oface(u) THEN
  386.  
  387. <:#284,10800>                newface = nface(u)
  388.  
  389. <:#284,10800>                TYPE("{newface}")
  390.  
  391. <:#284,10800>                GOTO loop2
  392.  
  393. <:#284,10800>            ENDIF
  394.  
  395. <:#284,10800>        NEXT
  396.  
  397. <:#284,10800>        IF cg = 1 THEN
  398.  
  399. <:#284,10800>            dc = Decide("""{txt}"" is available on your default printer.  Do you want to change it?")
  400.  
  401. <:#284,10800>            IF dc = 0 THEN
  402.  
  403. <:#284,10800>                dbox2 = 0
  404.  
  405. <:#284,10800>                GOTO loop5
  406.  
  407. <:#284,10800>            ENDIF
  408.  
  409. <:#284,10800>        ENDIF
  410.  
  411. <:#284,10800>        FillEdit(8050,"""{txt}""")
  412.  
  413. <:#284,10800>        FillEdit(8060,"{file}")
  414.  
  415. <:#284,10800>        IF cg = 1 THEN
  416.  
  417. <:#284,10800>            FillEdit(8070,"will be changed.  Please select an  available typeface to replace it.")
  418.  
  419. <:#284,10800>            cg = 0
  420.  
  421. <:#284,10800>            GOTO loop4
  422.  
  423. <:#284,10800>        ENDIF
  424.  
  425. <:#284,10800>        FillEdit(8070,"is not available on your default printer. Please select an available typeface")
  426.  
  427. <:#284,10800>        loop4:
  428.  
  429. <:#284,10800>            FillEdit(9000,&Basefonts)
  430.  
  431. <:#284,10800>        dbox2 = DialogBox(".","CHNGFONT")
  432.  
  433. <:#284,10800>        newface = GetDialogField$(9000)
  434.  
  435. <:#284,10800>        loop5:
  436.  
  437. <:#284,10800>        IF dbox2 = 0 THEN
  438.  
  439. <:#284,10800>            newface = txt
  440.  
  441. <:#284,10800>            cg = 0
  442.  
  443. <:#284,10800>        ENDIF
  444.  
  445. <:#284,10800>        oface(q) = txt
  446.  
  447. <:#284,10800>        nface(q) = newface
  448.  
  449. <:#284,10800>        q=q+1
  450.  
  451. <:#284,10800>        TYPE("{newface}")
  452.  
  453. <:#284,10800>        StatusBarMsg("Analyzing {longfile}")
  454.  
  455. <:#284,10800>loop2:
  456.  
  457. <:#284,10800>    WEND
  458.  
  459. <:#284,10800>skipfile:
  460.  
  461. <:#284,10800>StatusBarMsg("")
  462.  
  463. <:#284,10800>AnswerMsgBox(Yes)
  464.  
  465. <:#284,10800>ImportExport(Export,longfile,"ASCII",FALSE,"PARA","ANSI")
  466.  
  467. <:#284,10800>FileChanged(1,0)
  468.  
  469. <:#284,10800>Loopem:
  470.  
  471. @Body Single@<:#284,10800>
  472.  
  473. @Body Single@<:#284,10800>NEXT
  474.  
  475. <:#284,10800>defsty = getprofilestring$("AmiPro" "defstyle" "AMIPRO.INI")
  476.  
  477. <:#284,10800>IF defsty = "" THEN
  478.  
  479.     defsty = "_cdefaul.sty"
  480.  
  481. <:#284,10800>ENDIF
  482.  
  483. <:#284,10800>New(defsty,0,128)
  484.  
  485. <:#284,10800>endit:
  486.  
  487. @Body Single@<:#284,10800>StatusBarMsg("")
  488.  
  489. <:#284,10800>NotModified = ArraySize(&Detect)
  490.  
  491. <:#284,10800>If NotModified <;>1
  492.  
  493. <:#284,10800>    Filledit(9000,&Detect)
  494.  
  495. <:#284,10800>    Box = DialogBox(".","Graphics")
  496.  
  497. <:#284,10800>Endif
  498.  
  499. <:#284,10800>end function
  500.  
  501. <:#284,10800>
  502.  
  503. @Function@<:#284,10800>Function Embedded(FileName)
  504.  
  505. <:#284,10800>DefStr FileId;
  506.  
  507. <:#284,10800>Dir = GetStylePath$()
  508.  
  509. <:#284,10800>If 0 != Assign(&FileId,Fopen("{Dir}{FileName}","r"))
  510.  
  511. <:#284,10800>    Else
  512.  
  513. <:#284,10800>        Message("Could not open file")
  514.  
  515. <:#284,10800>        Return -1
  516.  
  517. <:#284,10800>Endif
  518.  
  519. <:#284,10800>Fseek(FileId,0,Fend) ' move to end of file
  520.  
  521. <:#284,10800>TotalBytes = FTell(FileId)
  522.  
  523. <:#284,10800>GetNumber = TotalBytes - 10
  524.  
  525. <:#284,10800>Fseek(FileId,GetNumber,0)
  526.  
  527. <:#284,10800>FindEmbedLocation = Fread(FileId, 10)    ' Read where to move file pointer
  528.  
  529. <:#284,10800>If IsNumeric(FindEmbedLocation)
  530.  
  531. <:#284,10800>    Else
  532.  
  533. <:#284,10800>        'Message("Not Numeric")
  534.  
  535. <:#284,10800>        FClose(FileId)
  536.  
  537. <:#284,10800>        Return -1
  538.  
  539. <:#284,10800>Endif
  540.  
  541. <:#284,10800>If FindEmbedLocation + 17 << GetNumber
  542.  
  543. <:#284,10800>        ' Embedded graphic here 
  544.  
  545. <:#284,10800>        Status = -1
  546.  
  547. <:#284,10800>    Else
  548.  
  549. <:#284,10800>        ' File is ok
  550.  
  551. <:#284,10800>        Status = 0
  552.  
  553. <:#284,10800>Endif
  554.  
  555. <:#284,10800>FClose(FileId)
  556.  
  557. <:#284,10800>Return Status
  558.  
  559. <:#284,10800>End Function
  560.  
  561. <:#284,10800>
  562.  
  563. <:#284,10800>
  564.  
  565. @Function@<:#284,10800>Function GetFonts(BaseFonts)
  566.  
  567. <:#284,10800>mpath = GetMacPath$()
  568.  
  569. <:#284,10800>{fdll} = "{mpath}fontdll.exe" '    Find FONTDLL.EXE
  570.  
  571. <:#284,10800>StatusBarMsg("Checking For Available Fonts...")
  572.  
  573. <:#284,10800>dllfile = FindFirst$(fdll 0)
  574.  
  575. <:#284,10800>IF dllfile <<<;> "FONTDLL.EXE" THEN
  576.  
  577. <:#284,10800>    Message("Can't Find File Fontdll.exe, Exiting Macro")
  578.  
  579. <:#284,10800>    Return -1
  580.  
  581. <:#284,10800>ENDIF
  582.  
  583. <:#284,10800>
  584.  
  585. <:#284,10800>Idi = DLLLoadLib(fdll, "FNT_FontInit", "A")
  586.  
  587. <:#284,10800>DLLCALL(Idi)
  588.  
  589. <:#284,10800>Idf = DLLLoadLib(fdll, "FNT_FontFace", "F")
  590.  
  591. <:#284,10800>DEFSTR face, i
  592.  
  593. <:#284,10800>i = 0
  594.  
  595. <:#284,10800>face = "a" '                    just a non null value
  596.  
  597. <:#284,10800>WHILE (face <<<;> "")
  598.  
  599. <:#284,10800>    face = DLLCALL(Idf)
  600.  
  601. <:#284,10800>    i = i + 1
  602.  
  603. <:#284,10800>    ArrayInsertByKey(&BaseFonts,Face,0)'Load typefaces into an array
  604.  
  605. <:#284,10800>WEND
  606.  
  607. <:#284,10800>Idc = DLLLoadLib(fdll, "FNT_FontClose", "I")
  608.  
  609. <:#284,10800>result = DLLCALL(Idc)
  610.  
  611. <:#284,10800>DllFreeLib(Idc)
  612.  
  613. <:#284,10800>DllFreeLib(Idf)
  614.  
  615. <:#284,10800>DllFreeLib(Idi)
  616.  
  617. <:#284,10800>StatusBarMsg("")
  618.  
  619. <:#284,10800>End Function
  620.  
  621. <:#284,10800>
  622.  
  623. <:#284,10800>
  624.  
  625. <:#284,10800>
  626.  
  627. <:#284,10800>
  628.  
  629. <:#284,10800>
  630.  
  631. <:#284,10800>------------------------------------------------------------------------------------------
  632.  
  633. <:#284,10800>
  634.  
  635. <:#284,10800>DIALOG CHNGFONT
  636.  
  637. <:#284,10800>-2134376448 9 109 78 165 128 "" "" "Select New Typeface"
  638.  
  639. <:#284,10800>FONT 8 "Helv"
  640.  
  641. <:#284,10800>118 6 40 14 1 1342242817 "button" "OK" 0 
  642.  
  643. <:#284,10800>118 23 40 14 2 1342242816 "button" "Cancel" 0 
  644.  
  645. <:#284,10800>9 89 35 10 1000 1342177280 "static" "The font" 0 
  646.  
  647. <:#284,10800>39 89 89 9 8050 1342177280 "static" "" 0 
  648.  
  649. <:#284,10800>9 97 138 19 8070 1342177280 "static" "" 0 
  650.  
  651. <:#284,10800>10 24 86 63 9000 1352728579 "listbox" "" 0 
  652.  
  653. <:#284,10800>11 11 78 10 1006 1342177280 "static" "Available printer fonts:" 0 
  654.  
  655. <:#284,10800>104 46 47 10 1001 1342177280 "static" "Style Sheet:" 0 
  656.  
  657. <:#284,10800>104 57 57 10 8060 1342177280 "static" "" 0 
  658.  
  659. <:#284,10800>END DIALOG
  660.  
  661. <:#284,10800>
  662.  
  663. <:#284,10800>DIALOG PICKFILE
  664.  
  665. <:#284,10800>-2134376448 7 123 58 160 105 "" "" "Select style sheets"
  666.  
  667. <:#284,10800>FONT 8 "Helv"
  668.  
  669. <:#284,10800>5 15 62 83 9001 1352728579 "listbox" "" 0 
  670.  
  671. <:#284,10800>110 5 43 14 1 1342242817 "button" "OK" 0 
  672.  
  673. <:#284,10800>5 4 73 10 7999 1342177280 "static" "text" 0 
  674.  
  675. <:#284,10800>110 20 43 14 2 1342242816 "button" "Cancel" 0 
  676.  
  677. <:#284,10800>72 60 81 37 79 1342177287 "button" "Options:" 0 
  678.  
  679. <:#284,10800>77 71 71 12 110 1342177289 "button" "Single style sheet" 0 
  680.  
  681. <:#284,10800>77 81 71 12 111 1342177289 "button" "Entire directory" 0 
  682.  
  683. <:#284,10800>END DIALOG
  684.  
  685. <:#284,10800>
  686.  
  687. <:#284,10800>DIALOG Graphics
  688.  
  689. <:#284,10800>-2134376448 3 55 29 145 94 "" "" "Unmodified Style Sheets"
  690.  
  691. <:#284,10800>FONT 8 "Helv"
  692.  
  693. <:#284,10800>101 4 40 14 1 1342373889 "button" "OK" 0 
  694.  
  695. <:#284,10800>5 35 93 53 9000 1352728579 "listbox" "" 0 
  696.  
  697. <:#284,10800>4 3 94 27 1000 1342177280 "static" "These style sheets were not modified.due to embedded graphics" 0 
  698.  
  699. <:#284,10800>END DIALOG
  700.  
  701. >
  702.  
  703. [Embedded]
  704. 00012809
  705. >
  706. [macsum] 6
  707. chgfont 0 0 28 3
  708. Embedded 3189 1 7 161
  709. GetFonts 3623 1 10 192
  710. CHNGFONT 4193 0 -1 227
  711. PICKFILE 4729 0 -1 241
  712. Graphics 5172 0 -1 253
  713. [macse]
  714. 14 chgfont
  715. 0 1317
  716. 13
  717. 11 00000108
  718. 0 3 "Macro not available while running under HP NewWave."
  719. 6 0
  720. 15
  721. 9
  722. 5 1
  723. 21 2 [X]
  724. 5 1
  725. 21 3 [X]
  726. 5 200
  727. 21 4 [X]
  728. 5 200
  729. 21 5 [X]
  730. 5 1
  731. 21 6 [X]
  732. 0 1050
  733. 13
  734. 5 1
  735. 18 5
  736. 11 00000344
  737. 0 286 "amipro" "defstyle" "amipro.ini"
  738. 13
  739. 8 7
  740. 6 7
  741. 7 ""
  742. 18 0
  743. 11 00000325
  744. 7 "_cdefaul.sty"
  745. 8 7
  746. 2 101 1 "{7}" 0 0
  747. 19 00003071
  748. 20 00003071
  749. 0 32 1
  750. 0 295
  751. 13
  752. 8 8
  753. 0 269
  754. 13
  755. 8 9
  756. 5 2
  757. 8 10
  758. 5 0
  759. 16 GetFonts &3
  760. 13
  761. 18 0
  762. 11 00000478
  763. 10 00000525
  764. 0 3 "Font Could not be retrieved"
  765. 6 0
  766. 15
  767. 9
  768. 0 286 "windows" "device" "WIN.INI"
  769. 13
  770. 8 11
  771. 6 11
  772. 7 ""
  773. 18 0
  774. 11 00000674
  775. 0 3 "Unable to locate your default printer. Exiting Macro"
  776. 6 0
  777. 15
  778. 9
  779. 0 808 0 "{11}" ","
  780. 13
  781. 8 12
  782. 6 12
  783. 5 0
  784. 18 1
  785. 11 00000778
  786. 6 12
  787. 5 1
  788. 3 1
  789. 0 806 "{11}" [X]
  790. 13
  791. 8 11
  792. 0 14 "{9}"
  793. 13
  794. 5 1
  795. 3 1
  796. 0 806 "{9}" [X]
  797. 13
  798. 0 781 [X]
  799. 0 31 110 1
  800. 0 31 9001 "*.sty"
  801. 0 26 "." "PICKFILE"
  802. 13
  803. 8 13
  804. 6 13
  805. 5 1
  806. 18 1
  807. 11 00000940
  808. 6 0
  809. 15
  810. 9
  811. 0 290
  812. 13
  813. 8 9
  814. 0 27 110
  815. 13
  816. 5 1
  817. 18 0
  818. 11 00001092
  819. 5 1
  820. 0 27 9001
  821. 13
  822. 23 2
  823. 5 1
  824. 22 2
  825. 7 ""
  826. 18 0
  827. 11 00001068
  828. 6 0
  829. 15
  830. 9
  831. 5 1
  832. 8 14
  833. 10 00001280
  834. 0 280 "{9}*.sty" 0
  835. 13
  836. 8 15
  837. 5 1
  838. 6 15
  839. 23 2
  840. 5 1
  841. 8 14
  842. 6 15
  843. 7 ""
  844. 18 1
  845. 11 00001258
  846. 6 14
  847. 5 1
  848. 3 0
  849. 8 14
  850. 0 281
  851. 13
  852. 8 15
  853. 0 1041 &2 "{14}" "{15}"
  854. 10 00001150
  855. 6 14
  856. 5 1
  857. 3 1
  858. 8 14
  859. 5 1
  860. 8 16
  861. 6 14
  862. 6 16
  863. 18 2
  864. 12 00001370
  865. 10 00002944
  866. 5 1
  867. 6 16
  868. 3 0
  869. 8 16
  870. 10 00001291
  871. 0 296 1
  872. 6 16
  873. 22 2
  874. 8 15
  875. 16 Embedded "{15}"
  876. 13
  877. 8 1
  878. 6 1
  879. 5 0
  880. 18 0
  881. 11 00001468
  882. 10 00001535
  883. 0 789 "Graphic Detected in {15}"
  884. 0 1045 &6 "{15}" 1
  885. 10 00002931
  886. 0 16 "{9}" "{15}"
  887. 13
  888. 8 17
  889. 2 123 1 16
  890. 5 1
  891. 2 102 1 "{17}" 144 "ASCII"
  892. 13
  893. 18 1
  894. 11 00001645
  895. 10 00002860
  896. 0 789 "Analyzing {17}...{16} of {14}"
  897. 5 1
  898. 2 488 1 0 0 4 "prn" "prn"
  899. 13
  900. 18 0
  901. 11 00001775
  902. 0 6 "[40][20520]{11}"
  903. 10 00001788
  904. 10 00002860
  905. 5 1
  906. 2 488 1 0 0 4 "fnt" "fnt"
  907. 13
  908. 18 0
  909. 11 00002860
  910. 0 6 "[40][36][39][39][4131]"
  911. 0 24
  912. 13
  913. 8 18
  914. 0 1046 &3
  915. 13
  916. 8 19
  917. 5 0
  918. 0 1044 &3 "{18}"
  919. 13
  920. 0 805 &1 [X]
  921. 13
  922. 18 1
  923. 11 00001998
  924. 5 1
  925. 8 20
  926. 10 00001998
  927. 5 1
  928. 8 21
  929. 6 10
  930. 5 1
  931. 3 1
  932. 6 21
  933. 18 2
  934. 12 00002098
  935. 10 00002191
  936. 5 1
  937. 6 21
  938. 3 0
  939. 8 21
  940. 10 00002009
  941. 6 18
  942. 6 21
  943. 22 5
  944. 18 0
  945. 11 00002178
  946. 6 21
  947. 22 4
  948. 8 22
  949. 0 6 "{22}"
  950. 10 00002847
  951. 10 00002063
  952. 6 20
  953. 5 1
  954. 18 0
  955. 11 00002366
  956. 0 2 """{18}"" is available on your default printer.  Do you want to change it?"
  957. 13
  958. 8 23
  959. 6 23
  960. 5 0
  961. 18 0
  962. 11 00002366
  963. 5 0
  964. 8 24
  965. 10 00002700
  966. 0 31 8050 """{18}"""
  967. 0 31 8060 "{15}"
  968. 6 20
  969. 5 1
  970. 18 0
  971. 11 00002543
  972. 0 31 8070 "will be changed.  Please select an  available typeface to replace it."
  973. 5 0
  974. 8 20
  975. 10 00002634
  976. 0 31 8070 "is not available on your default printer. Please select an available typeface"
  977. 0 31 9000 &3
  978. 0 26 "." "CHNGFONT"
  979. 13
  980. 8 24
  981. 0 27 9000
  982. 13
  983. 8 22
  984. 6 24
  985. 5 0
  986. 18 0
  987. 11 00002753
  988. 6 18
  989. 8 22
  990. 5 0
  991. 8 20
  992. 6 10
  993. 6 18
  994. 23 5
  995. 6 10
  996. 6 22
  997. 23 4
  998. 6 10
  999. 5 1
  1000. 3 0
  1001. 8 10
  1002. 0 6 "{22}"
  1003. 0 789 "Analyzing {17}"
  1004. 10 00001788
  1005. 0 789 ""
  1006. 0 291 6
  1007. 2 107 1 1 "{17}" "ASCII" 0 "PARA" "ANSI"
  1008. 0 34 1 0
  1009. 10 00001335
  1010. 0 286 "AmiPro" "defstyle" "AMIPRO.INI"
  1011. 13
  1012. 8 25
  1013. 6 25
  1014. 7 ""
  1015. 18 0
  1016. 11 00003049
  1017. 7 "_cdefaul.STY"
  1018. 8 25
  1019. 2 101 1 "{25}" 0 128
  1020. 0 789 ""
  1021. 0 1046 &6
  1022. 13
  1023. 8 26
  1024. 6 26
  1025. 5 1
  1026. 18 3
  1027. 11 00003177
  1028. 0 31 9000 &6
  1029. 0 26 "." "Graphics"
  1030. 13
  1031. 8 27
  1032. 6 0
  1033. 15
  1034. 9
  1035. 14 Embedded
  1036. 0 269
  1037. 13
  1038. 8 3
  1039. 5 0
  1040. 0 259 "{3}{0}" "r"
  1041. 13
  1042. 0 805 &2 [X]
  1043. 13
  1044. 18 1
  1045. 11 00000108
  1046. 10 00000148
  1047. 0 3 "Could not open file"
  1048. 5 -1
  1049. 15
  1050. 9
  1051. 0 263 "{2}" 0 2
  1052. 0 262 "{2}"
  1053. 13
  1054. 8 4
  1055. 6 4
  1056. 5 10
  1057. 3 1
  1058. 8 5
  1059. 0 263 "{2}" "{5}" 0
  1060. 0 782 "{2}" 10
  1061. 13
  1062. 8 6
  1063. 0 277 "{6}"
  1064. 13
  1065. 11 00000297
  1066. 10 00000323
  1067. 0 260 "{2}"
  1068. 5 -1
  1069. 15
  1070. 9
  1071. 6 6
  1072. 5 17
  1073. 3 0
  1074. 6 5
  1075. 18 5
  1076. 11 00000387
  1077. 5 -1
  1078. 8 7
  1079. 10 00000397
  1080. 5 0
  1081. 8 7
  1082. 0 260 "{2}"
  1083. 6 7
  1084. 15
  1085. 9
  1086. 6 1
  1087. 15
  1088. 9
  1089. 14 GetFonts
  1090. 0 295
  1091. 13
  1092. 8 2
  1093. 7 "{2}fontdll.exe"
  1094. 8 3
  1095. 0 789 "Checking For Available Fonts..."
  1096. 0 280 "{3}" 0
  1097. 13
  1098. 8 4
  1099. 6 4
  1100. 7 "FONTDLL.EXE"
  1101. 18 1
  1102. 11 00000223
  1103. 0 3 "Can't Find File Fontdll.exe, Exiting Macro"
  1104. 5 -1
  1105. 15
  1106. 9
  1107. 0 297 "{3}" "FNT_FontInit" "A"
  1108. 13
  1109. 8 5
  1110. 0 284 "{5}"
  1111. 0 297 "{3}" "FNT_FontFace" "F"
  1112. 13
  1113. 8 6
  1114. 5 0
  1115. 8 8
  1116. 7 "a"
  1117. 8 7
  1118. 6 7
  1119. 7 ""
  1120. 18 1
  1121. 11 00000444
  1122. 0 284 "{6}"
  1123. 13
  1124. 8 7
  1125. 6 8
  1126. 5 1
  1127. 3 0
  1128. 8 8
  1129. 0 1045 &0 "{7}" 0
  1130. 10 00000340
  1131. 0 297 "{3}" "FNT_FontClose" "I"
  1132. 13
  1133. 8 9
  1134. 0 284 "{9}"
  1135. 13
  1136. 8 10
  1137. 0 298 "{9}"
  1138. 0 298 "{6}"
  1139. 0 298 "{5}"
  1140. 0 789 ""
  1141. 6 1
  1142. 15
  1143. 9
  1144. DIALOG CHNGFONT
  1145. -2134376448 9 109 78 165 128 "" "" "Select New Typeface" 
  1146. FONT 8 "Helv" 
  1147. 118 6 40 14 1 1342242817 "button" "OK" 0 
  1148. 118 23 40 14 2 1342242816 "button" "Cancel" 0 
  1149. 9 89 35 10 1000 1342177280 "static" "The font" 0 
  1150. 39 89 89 9 8050 1342177280 "static" "" 0 
  1151. 9 97 138 19 8070 1342177280 "static" "" 0 
  1152. 10 24 86 63 9000 1352728579 "listbox" "" 0 
  1153. 11 11 78 10 1006 1342177280 "static" "Available printer fonts:" 0 
  1154. 104 46 47 10 1001 1342177280 "static" "Style Sheet:" 0 
  1155. 104 57 57 10 8060 1342177280 "static" "" 0 
  1156. DIALOG PICKFILE
  1157. -2134376448 7 123 58 160 105 "" "" "Select style sheets" 
  1158. FONT 8 "Helv" 
  1159. 5 15 62 83 9001 1352728579 "listbox" "" 0 
  1160. 110 5 43 14 1 1342242817 "button" "OK" 0 
  1161. 5 4 73 10 7999 1342177280 "static" "text" 0 
  1162. 110 20 43 14 2 1342242816 "button" "Cancel" 0 
  1163. 72 60 81 37 79 1342177287 "button" "Options:" 0 
  1164. 77 71 71 12 110 1342177289 "button" "Single style sheet" 0 
  1165. 77 81 71 12 111 1342177289 "button" "Entire directory" 0 
  1166. DIALOG Graphics
  1167. -2134376448 3 55 29 145 94 "" "" "Unmodified Style Sheets" 
  1168. FONT 8 "Helv" 
  1169. 101 4 40 14 1 1342373889 "button" "OK" 0 
  1170. 5 35 93 53 9000 1352728579 "listbox" "" 0 
  1171. 4 3 94 27 1000 1342177280 "static" "These style sheets were not modified.due to embedded graphics" 0 
  1172. 00012834
  1173.