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