%!PS % Available PostScript Acrobat Fonts % ======================================= % by Don Lancaster /fontsizea 24 store % font size /fonts_per_column 29 store % fonts per column /left_margin 3 store % left margin (gonzo 10 scale) /top_margin 10.5 store % top margin (gonzo 10 scale ) /vfontspacing 24 store % vertical font spacing /pageheight 11 72 mul 10 div store % page height in Gonzo 10 /Fontlist [ % Listing includes both Adove and TrueType fonts. % types of fonts can be read in PDF asfile/properties/fonts /AdobeArabic-Bold (Adobe Arabic Bold) /AdobeArabic-BoldItalic (Adobe Arabic Bold Italic) /AdobeArabic-Italic (Adobe Arabic Italic) /AdobeArabic-Regular (Adobe Arabic Regular) % /AdobeFangsongStd-Regular % /AdobeFanHeitiStd-Bold % /AdobeGothicStd-Bold /AdobeHebrew-Bold (Adobe Hewbrew Bold) /AdobeHebrew-BoldItalic (Adobe Hewbrew Bold Italic) /AdobeHebrew-Italic (Adobe Hewbrew Italic) /AdobeHebrew-Regular (Adobe Hewbrew Regular) %/AdobePiStd /AdobeThai-Bold (Adobe Thai Bold) /AdobeThai-BoldItalic (Adobe Thai Bold Italic) /AdobeThai-Italic (Adobe Thai Italic) /AdobeThai-Regular (Adobe Thai Regular) % /AdobeHeitiStd-Regular % /AdobeKaitiStd-Regular % /AdobeMingStd-Light % /AdobeMyungjoStd-Medium % /AdobeSongStd-Ligh % /AGaramondAlt-Italic (Adobe Garamond Alternate Italic) % /AGaramondAlt-Regular (Adobe Garamond Alternate Regular) % /AGaramondExp-BoldItalic (Acobe Garamond Exp Bold Italic) % /AGaramondExp-Bold (Adobe Garamond Exp Bold ) % /AGaramondExp-Italic (Adobe Garamond Exp Italic) % /AGaramondExp-Regular (Adobe Garamond Exp Regular) % /AGaramondExp-SemiboldItalic (Adobe Garamond Exp Semibold Italic) % /AGaramondExp-Semibold (Adobe Garamond Exp Semibold) % /AGaramond-ItalicOsF (Adobe Garamond Italic OSF) % /AGaramondPro-Bold (Adobe Gramond Pro Bold) % /AGaramondPro-BoldItalic (Adobe Garamond Pro Bold Italic) % /AGaramondPro-Italic (Adobe Garamond Pro Italic) % /AGaramondPro-Regular (Adobe Garamond Pro Regular) % /AGaramond-Regular (Adobe Garamond Regular) % /AGaramond-RegularSC (Adobe Garamond Regular SC) % /AGaramond-SemiboldItalic (Adobe Garamond Semibold Italic) % /AGaramond-SemiboldItalicOsF (Adobe Garamond Semibold Italic OSF) % /AGaramond-Semibold (Adobe Garamond Semibold) % /AGaramond-SemiboldSC (Adobe Garamond Semibold SC) % /AGaramond-Titling (Adobe Garamond Titling) /AgencyFB-Bold (Agency FB Bold) /AgencyFB-Reg (Agency FB Regular) /Algerian (Algerian) % /Anna (Anna) % /Arial-BlackItalic (Arial Black Italic) /ArialMT (Arial MT) /Arial-BoldMT (Arial Bold MT) /Arial-BoldItalicMT (Arial Bold Italic MT) /Arial-ItalicMT (Arial Italic MT) /ArialNarrow (Arial Narrow) /ArialNarrow-Bold (Arial Narrow Bold) /ArialNarrow-BoldItalic (Arial Narrow Bold Italic) /ArialNarrow-Italic (Arial Narrow Italic) % /ArialUnicodeMS /Arial-Black (Arial Black) /ArialRoundedMTBold (Arial Rounded MT Bold) /BaskOldFace (Bask Old Face) /Bauhaus93 (Bauhaus 93) /BellMT (Bell MT) /BellMTBold (Bell MT Bold) /BellMTItalic (Bell MT Italic) /BernardMT-Condensed (Bernard MT Condensed) /BirchStd (Birch Standard) /BlackadderITC-Regular (Blackadder ITC Regular) /BlackoakStd (Blackoak Standard) /BodoniMT-Bold (Bodini MT Bold) /BodoniMT-BoldItalic (Bodoni MT Bold Italic) /BodoniMTBlack-Italic (Bodoni MT Black Itlic) /BodoniMTBlack (Bodoni MT Black) /BodoniMTCondensed-Bold (Bodoni MT Condensed Bold) /BodoniMTCondensed-BoldItalic (Bodoni MT Condensed Bold Italic) /BodoniMTCondensed-Italic (Bodoni MT Condensed Italic) /BodoniMTCondensed (Bodoni MT Condensed) /BodoniMT-Italic (Bodoni MT Italic) /BodoniMTPosterCompressed (Bodoni MT Poster Condensed) /BodoniMT (Bodoni MT) /BookAntiqua (Book Antiqua) /BookAntiqua-Bold (Book Anqiqua Bold) /BookAntiqua-BoldItalic (Book Antiqua Bold Italic) /BookAntiqua-Italic (Book Antiqua Italic) /BookmanOldStyle (Bookman Old Style) /BookmanOldStyle-Bold (Bookman Old Style Bold) /BookmanOldStyle-BoldItalic (Bookman Old Style Bold Italic) /BookmanOldStyle-Italic (Bookman Old Style Italic) % /Boulevard (Boulevard) /BradleyHandITC (Bradley Hand ITC) /BritannicBold (Britannic Bold) /BerlinSansFB-Bold (Berlin Sans FB Bold) /BerlinSansFBDemi-Bold (Berlin Sans FB Demi Bold) /BerlinSansFB-Reg (Berlin Sans FB Regular) /Broadway (Broadway) /BrushScriptMT (Brush Script MT Standard) /BrushScriptStd (Brush Script Standard) /BookshelfSymbolSeven (Bookshelf Symbol Seven) /CalifornianFB-Bold (California FB Bold) /CalifornianFB-Italic (California FB Italic) /CalifornianFB-Reg (California FB Regular) /CalistoMT (Calisto MT) % /CalistoMTBold (Calisto MT Bold) /CalistoMT-BoldItalic (Calisto MT Bold Italic) /CalistoMT-Italic (Calisto MT Italic) /ACaslonPro-Bold (Caslon Pro Bold) /ACaslonPro-BoldItalic (Caslon Pro Bold Italic) /ACaslonPro-Italic (Caslon Pro Italic) /ACaslonPro-Regular (Caslon Pro Regular) /ACaslonPro-Semibold (Caslon Pro Semibold) /ACaslonPro-SemiboldItalic (Caslon Pro Semibold Italic) /Castellar (Castellar) /CenturySchoolbook (Century School Book) /Centaur (Centaur) /Century (Century) /CenturyGothic (Century Gothic) /CenturyGothic-Bold (Century Gothic Bold) /CenturyGothic-BoldItalic (Century Gothic Bold Italic) /CenturyGothic-Italic (Century Gothic Italic) /CenturySchoolbook-Bold (Century School Book Bold) /CenturySchoolbook-BoldItalic (Century School Book Bold Italic) /CenturySchoolbook-Italic (Century School Book Italic) /ChaparralPro-Bold (Chaparral Pro Bold) /ChaparralPro-BoldIt (Chaparral Pro Bold Italic) /ChaparralPro-Italic (Chaparral Pro Italic) /ChaparralPro-Regular (Chaparral Pro Regular) /CharlemagneStd-Bold (Charkenage Standard Bold) /Chiller-Regular (Chiller Regular) /ColonnaMT (Colonna MT) /ComicSansMS (Comic Sans MS) /ComicSansMS-Bold (Comic Sans MS Bold) /CooperBlack (Cooper Black) /CooperBlackStd-Italic (Cooper Black Standard Italic) /CooperBlackStd (Cooper Black Standard) /CopperplateGothic-Bold (Copperplate Gothic Bold) /CopperplateGothic-Light (Copperplate Gothic Light) /CourierNewPSMT (Courier New PS MT) /CourierNewPS-BoldMT (Courier New PS Bold Mt) /CourierNewPS-BoldItalicMT (Courier New PS Bold Italic MT) /CourierNewPS-ItalicMT (Courier New PS Italic MT) /CourierStd-Bold (Courier Standard Bold) /CourierStd-BoldOblique (Courier Standard Bold Oblique) /CourierStd-Oblique (Courier Standard Oblique) /CourierStd (Courier Standard) /CurlzMT (Curls MT) % /DS-Digital PRESENT BUT NOT EMBEDDABLE /EdwardianScriptITC (Edwardian Script ITC) /Elephant-Regular (Elephant Regular) /Elephant-Italic (Elephant Italic) /EngraversMT (Engravers MT) % /EngraversMT-Bold (Engravers MT Bold) /ErasITC-Bold (Eras ITC Bold) /ErasITC-Demi (Eras ITC Demi) /ErasITC-Light (Eras ITC Light) /ErasITC-Medium (Eras ITC Medium) /EstrangeloEdessa (Estrangelo Edessa?) % /EurostileRegular (Eurostyle Regular) % /EurostileBold (Eurostyle Bold) /FelixTitlingMT (Felix Titling MT) /ForteMT (Forte MT) /FranklinGothic-Book (Franklin Gothic Book) /FranklinGothic-BookItalic (Franklin Gothic Book Italic) /FranklinGothic-Demi (Franklin Gothic Demi) /FranklinGothic-DemiCond (Franklin Gothic Demi Condensed) /FranklinGothic-DemiItalic (Franklin Gothic Demi Italic) /FranklinGothic-Heavy (Franklin Gothic Heavy) /FranklinGothic-HeavyItalic (Franklin Gothic Heavy Italic) /FranklinGothic-Medium (Franklin Gothic Medium) /FranklinGothic-MediumCond (Franklin Gothic Medium Condensed) /FranklinGothic-MediumItalic (Franklin Gothic Medium Italic) /FreestyleScript-Regular (Freestyle Script Regular) /FrenchScriptMT (French Script MT) /FootlightMTLight (Footlight MT Light) /Garamond (Garamond) /Garamond-Bold (Garamond Bold) /Garamond-Italic (Garamond Italic) /Gautami (Gautami) /Georgia (Georgia) /Georgia-Bold (Georgia Bold) /Georgia-Italic (Georgia Italic) /Georgia-BoldItalic (Georgia Bold Italic) /GiddyupStd (Giddyup Standard) /Gigi-Regular (Gigi Regular) % /GillSans-BoldExtraCondensed (Gill Sans Bold Extra Condensed) % /GillSans-LightShadowed (Gill Sans Light Shadowed) % /GillSans-Shadowed (Gill Sans Shadowed) % /GillSans-ExtraBoldDisplay (Gill Sans Extra bold Display) /GillSansMT-BoldItalic (Gill Sans MT Bold Italic) /GillSansMT-Bold (Gill Sans Mt Bold) /GillSansMT-Condensed (Gill Sans MT Condensed) /GillSansMT-Italic (Gill Sans MT Italic) /GillSans-UltraBoldCondensed (Gill Sans Ultrabold Condensed) /GillSans-UltraBold (Gill Sans Ultra Bold) /GillSansMT (Gill Sans MT) /GloucesterMT-ExtraCondensed (Glouchester MT Extra Condensed) /GillSansMT-ExtraCondensedBold (Gill Sans MT Extra Condensed Bold) /GoudyOldStyleT-Regular (Goudy Old Style T Regular) /GoudyOldStyleT-Bold (Goudy Old Style T Bold) /GoudyOldStyleT-Italic (Goudy Old Style T Italic) /GoudyStout (Goudy Stout) /HarlowSolid (Harlow Solid) /Harrington (Harrington) /Haettenschweiler (Haettenschweiler) % /Helvetica (Helvetica) % /Helvetica-Bold (Helvetica Bold) % /Helvetica-BoldOblique (Helvetica Bold Oblique) % /Helvetica-Oblique (Helvetica Oblique) /HoboStd (Hobo Standard) /HighTowerText-Reg (Hightower Text Regular) /HighTowerText-Italic (Hightower Text Italic) /Impact (Impact) /ImprintMT-Shadow (Impact MT Shadow) /InformalRoman-Regular (Informal Roman Regular) /Jokerman-Regular (Jokerman Reqular) /JuiceITC-Regular (Juice ITC Regular) /Kartika (Kartica) % /KozGoPr6N-Bold % /KozGoPr6N-ExtraLight % /KozGoPr6N-Heavy % /KozGoPr6N-Light % /KozGoPr6N-Medium % /KozGoPr6N-Regular % /KozGoPro-Bold % /KozGoPro-ExtraLight % /KozGoPro-Heavy % /KozGoPro-Light % /KozGoPro-Medium % /KozGoPro-Regular % /KozMinPr6N-Bold % /KozMinPr6N-ExtraLight % /KozMinPr6N-Heavy % /KozMinPr6N-Light % /KozMinPr6N-Medium % /KozMinPr6N-Regular % /KozMinPro-Bold % /KozMinPro-ExtraLight % /KozMinPro-Heavy % /KozMinPro-Light % /KozMinPro-Medium % /KozMinPro-Regular /KristenITC-Regular (Kristen ITC Regular) /KunstlerScript (Kunstler Script) /Latha (Latha) /LatinWide (Latin Wide) /LucidaBright (Lucida Bright) /LucidaBright-Demi (Lucida Bright Demi) /LucidaBright-DemiItalic (Lucida Bright Demi Italic) /LucidaBright-Italic (Lucida Bright Italic) /LucidaCalligraphy-Italic (Lucida Calligraphy Italic) /LetterGothicStd-Bold (Letter Gothic Standard Bold) /LetterGothicStd-BoldSlanted (Letter Gothic Standard Bold Slanted) /LetterGothicStd-Slanted (Letter Gothic Standard Slanted) /LetterGothicStd (Letter Gothic Standard) /LucidaFax (Lucida Fax) /LucidaFax-Demi (Lucida Fax Demi) /LucidaFax-DemiItalic (Lucida Fax Demi Italic) /LucidaFax-Italic (Lucida Fax Italic) /LucidaHandwriting-Italic (Lucida Handwriting Italic) /LithosPro-Black (Lithos Pro Black) /LithosPro-Regular (Lithos Pro Regulator) /LucidaSans (Lucida Sans) /LucidaSans-Demi (Lucida Sans Demi) /LucidaSans-DemiItalic (Lucida Sand Demi Italic) /LucidaSans-Italic (Lucida Sans Italic) /LucidaSans-Typewriter (Lucida Sans Typewriter) /LucidaSans-TypewriterBold (Lucida Sans Typewriter Bold) /LucidaSans-TypewriterBoldOblique (Lucida Sans Typewriter Bold Oblique) /LucidaSans-TypewriterOblique (Lucida Sans Typewriter Oblique) /LucidaConsole (Lucida Console) /LucidaSansUnicode (Lucida Sans Unicode) /Magneto-Bold (Magneto Bold) /MaiandraGD-Regular (Miandra GD Regular) % /MaiandraGD-DemiBold (Miandra GD Demibold) % /MaiandraGD-Italic (Miandra GD Italic) % /Mangal-Regular (Mangal Regular) % /MatisseITC-Regular (Matisse Regular) /MaturaMTScriptCapitals (Mature MT Script Capitals) % /MaxiCode (MaxiCode) /MesquiteStd (Mesquite Standard) /MicrosoftSansSerif (Microsoft Sans Serif) /MinionPro-Bold (Minion Pro Bold) /MinionPro-BoldCn (Minion Pro Bold Condensed) /MinionPro-BoldCnIt (Minion Pro Bold Condensed Italic) /MinionPro-BoldIt (Minion Pro Bold Italic) /MinionPro-It (Minion Pro Italic) /MinionPro-Medium (Minion Pro Medium) /MinionPro-MediumIt (Minion Pro Medium Italic) /MinionPro-Regular (Minion Pro Regular) /MinionPro-Semibold (Minion Pro Semibold) /MinionPro-SemiboldIt (Minion Pro Semicold Italic) /Mistral (Mistral) /Modern-Regular (Modern Regular) % /MSReference1 (MS Reference 1) % /MSReference2 (MS Reference 2) /MonotypeCorsiva (Monotype Corsiva) % /MotterCorpusMM (Motter Corpus MM) /MSReferenceSansSerif (MS Reference San Serif) % /MSReferenceSansSerif-Bold (MS Reference San Serif Bold) % /MSReferenceSansSerif-BoldItalic (MS Reference Sans Serif Bold Italic) % /MSReferenceSansSerif-Italic (MS Reference San Serif Italic) /MSReferenceSpecialty (MS Reference Specialty) /MT-Extra (Mt Extra) /MVBoli (MV Boli) /MyriadPro-Bold (Myriad Pro Bold) /MyriadPro-BoldCond (Myriad Pro Bold Condensed) /MyriadPro-BoldCondIt (Myriad Pro Bold Condensed Italic) /MyriadPro-BoldIt (Myriad Pro Bold Italic) /MyriadPro-Cond (Myriad Pro Condensed) /MyriadPro-CondIt (Myriad Pro Condensed Italic) /MyriadPro-It (Myriad Pro Italic) /MyriadPro-Regular (Myriad Pro Regular) /MyriadPro-Semibold (Myriad Pro Semibold) /MyriadPro-SemiboldIt (Myriad Pro Semibold Italic) % /MyriadWebPro-Bold (Myriad Web Pro Semibold Italic) % /MyriadWebPro-Condensed (Myriad Web Pro Condensed) % /MyriadWebPro-CondensedItalic (Myriad Web Pro Condensed Italic) % /MyriadWebPro-Italic (Myriad Web Pro Italic) % /MyriadWebPro (Myriad Web Pro) /NiagaraEngraved-Reg (Niagra Engraved Regular) /NiagaraSolid-Reg (Niagra Solid Regular) /NuevaStd-BoldCond (Nueva Standard Bold Condensed) /NuevaStd-BoldItalic (Nueva Standard Bold Italic) /NuevaStd-BoldCondItalic (Nueva Standard Bold Condensed Italic) /NuevaStd-Cond (Nueva Standard Condensed) /NuevaStd-CondItalic (Nueva Standard Condensed Italic) /NuevaStd-Italic (Nueva Standard Italic) /NuevaStd-Regular (Nueva Standard Regular) % /NuptialScript (Nuptia Script) /OCRAExtended (OCRA Extended) /OCRAStd (OCRA Standard) % /OfficinaSerif-BoldItalic (Officiana Serif Bold Italic) % /OfficinaSerif-Book (Officiana Serif Book) % /OfficinaSerif-Bold (Officiana Serif Bold) %/OfficinaSerif-BookItalic (Officiana Serif Book Italic) % /OfficinaSans-BoldItalic (Officiana Sans Book) % /OfficinaSans-Book (Officiana Sans Book) % /OfficinaSans-Bold (Officiana Sans Bold) % /OfficinaSans-BookItalic (Officiana Sans Book Italic) /OldEnglishTextMT (Old English Text MT) /Onyx (Onyx) /OratorStd-Slanted (Orator Standard Slanted) /OratorStd (Orator Standard) /MSOutlook (MS Outlook) /PalatinoLinotype-Roman (Palatino Linotype Roman) /PalatinoLinotype-Bold (Palatino Linotype Bold) /PalatinoLinotype-BoldItalic (Palatino Linotype Bold Italic) /PalatinoLinotype-Italic (Palatino Linotype Italic) /PalaceScriptMT (Palace Script MT) /Papyrus-Regular (Paparus Regular) /Parchment-Regular (Parchment Regular) /Perpetua-BoldItalic (Perpetua Bold Italic) /Perpetua-Bold (Perpetua Bold) /Perpetua-Italic (Perpetua Italic) /PerpetuaTitlingMT-Bold (Perpetua Titling MT Bold) /PerpetuaTitlingMT-Light (PerpetuaTitling MT Light) /Perpetua (Perpetua) /Playbill (Playbill) % /PopplLaudatio-Italic (Poppl Laudatio Italic) % /PopplLaudatio-MediumItalic (Poppl Laudatio Medium Italic) % /PopplLaudatio-Medium (Poppl Laudatio Medium) % /PopplLaudatio-Regular (Poppl Laudatio Regular) /PoorRichard-Regular (Poor Richard Regular) /PoplarStd (Popular Standard) % /PrestigeEliteStd (Prestige Elite Standard) % /PrestigeEliteStd-Bd (Prestige Elite Standard Bold) % /PrestigeEliteStd-BdSlanted (Prestige Elite Standard Bold Slanted) % /PrestigeEliteStd-Slanted (Prestige Elite Standard Slanted) /Pristina-Regular (Prustina Regular) /Raavi (Raavi) /RageItalic (Rage Italic) /Ravie (Ravie) % /Revue (Revue) /Rockwell-CondensedBold (Rockwell Condensed Bold) /Rockwell-Condensed (Rockwell Condensed) /Rockwell (Rockwell) /Rockwell-Bold (Rockwell Bold) /Rockwell-BoldItalic (Rockwell Bold Italic) /Rockwell-ExtraBold (Rockwell Extra Bold) /Rockwell-Italic (Rockwell Italic) /RosewoodStd-Regular (Rosewood Regular) /ScriptMTBold (Script MT Bold) /ShowcardGothic-Reg (Showcard Gothic Regular) /Shruti (Shruti) /SnapITC-Regular (Snap ITC Regular) /Stencil (Stencil) /StencilStd (Stencil Standard) /StoneSerif-Bold (Stone Serif Bold) /StoneSerif (Stone Serif) /StoneSans-Bold (Stone Sans Bold) /StoneSans (Stone Sans) /Sylfaen (Sylfaen) /Symbol (Symbol) /SymbolMT (Symbol MT) /Tahoma (Tahoma) /Tahoma-Bold (Tahoma Bold) /TwCenMT-BoldItalic (TwCen MT Bold Italic) /TwCenMT-Bold (TwCen MT Bold) /TwCenMT-CondensedBold (TwCen MT Condensed Bold) /TwCenMT-CondensedExtraBold (TwCen MT Condensed Extra Bold) /TwCenMT-Condensed (TwCen MT Condensed) /TwCenMT-Italic (TwCen MT Italic) /TwCenMT-Regular (TwCen MT Regular) /TektonPro-Bold (Tekton Pro Bold) /TektonPro-BoldCond (Tekton Pro Bold Condensed) /TektonPro-BoldExt (Tekton Pro Bold Extended) /TektonPro-BoldObl (Tekton Pro Bold Oblique) /TempusSansITC (Tempus Sans ITC) % /TektonPro-Obl (Tektron Pro Oblique) % /TektonPro-Regular (Tektron Pro Regular) % /Times-BoldItalic (Times Bold Italic) % /Times-Bold (Times Bold) % /Times-Italic (Times Italic) % /Times-Roman (Times Roman) /TimesNewRomanPSMT (Times New Roman PS MT) /TimesNewRomanPS-BoldMT (Times New Roman PS Bold MT) /TimesNewRomanPS-BoldItalicMT (Times New roman PS Bold Italic MT) /TimesNewRomanPS-ItalicMT (Times New Roman PS Italic MT) /TrajanPro-Bold (Trajan Pro Bold) /TrajanPro-Regular (Trajan) /TrebuchetMS (Trebuchet MS) /TrebuchetMS-Bold (Trebuchet MS Bold) /Trebuchet-BoldItalic (Trebuchet MS Bold Italic) /TrebuchetMS-Italic (Trebuchet MS Italic) % /Tunga-Regular (Tunga Regular) %/URWPalladioL-Roma (URW Palladio L Roman) %/URWPalladioL-Bold (URW Palladio L Bold) % /VAGRounded-Black (VAG Rounded Black) % /VAGRounded-Bold (VAG Rounded Bold) % /VAGRounded-Light (VAG Rounded Light) %/VAGRounded-Thin (VAG Rounded Thin) /Verdana (Verdana) /Verdana-Bold (Verdana Bold) /Verdana-Italic (Verdana Italic) /Verdana-BoldItalic (Verdana Bold Italic) % /VerdanaRef (Verdanna Ref?) /VinerHandITC (Viner Hand ITC) /Vivaldii (Vivaldii) /VladimirScript (Vladmir Script) /Vrinda (Vrinda) /Webdings (Weblings) /Wingdings-Regular (Wingdings Regular) /Wingdings2 (Wingdings 2) /Wingdings3 (Wingdings 3) % /WoodtypeOrnaments-One (Wood Type Ornaments One) % /ZapfDingbats (Zapf Dingbats) % /ZSD-BarCode % /ZSD-BarCode /ZWAdobeF (ZW Adobe F?) ] store /dolowcolumns { /totalfullcolumns Fontlist length 2 div fonts_per_column div cvi store % find number of full columns needed /fullcolumnfonts {fonts_per_column totalfullcolumns mul cvi } store % fonts in full columns /totalfontstolist {Fontlist length 2 div cvi} store % total fonts to list /residueshortfonts {totalfontstolist fullcolumnfonts sub } store % last page font residue 0 1 totalfullcolumns 1 sub { /currentcol exch store % current column number /currentFontlist Fontlist currentcol fonts_per_column mul 2 mul fonts_per_column 2 mul getinterval store % currentFontlist == (\n\n) == do_one_column } for } store (C:\\Users\\Don\\Desktop\\Ghost\\gonzo.ps) run % use internal /do_one_column { save /colsnap exch store 25 25 10 setgrid 56 72 showgrid /cstretch 0.01 store /sstretch 0.01 store 0 2 currentFontlist length 1 sub {/curfontpos exch store /curfontPSname currentFontlist curfontpos get store /curfontstringname currentFontlist curfontpos 1 add get store left_margin pageheight top_margin sub curfontpos 2 div vfontspacing 10 div mul sub /Font1 curfontPSname fontsizea 10 div gonzofont curfontstringname cl } for showpage colsnap restore } store /dolastcolumn { save /colsnap exch store 25 25 10 setgrid 56 72 showgrid /cstretch 0.01 store /sstretch 0.01 store 0 1 residueshortfonts 2 sub { /curfontb exch store /residuallocation { fullcolumnfonts 1 add curfontb add 2 mul } store /curfontPSname { Fontlist residuallocation get} store /curfontstringname {Fontlist residuallocation 1 add get} store left_margin % hpos pageheight top_margin sub curfontb vfontspacing 10 div mul sub % vpos /Font1 curfontPSname fontsizea 10 div gonzofont curfontstringname cl } for showpage } store dolowcolumns dolastcolumn % EOF