home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / GEOSApps / PBLASER8GC.CVT (.txt) < prev    next >
GEOS ConVerT  |  2019-04-13  |  26KB  |  143 lines
  1. GEOPUBLASER1.8gc 
  2. PRG formatted GEOS file V1.0
  3. Epson8pin80dpi
  4. `PARENT,w
  5. USparentSyllabus
  6. BLASTER'S CONVERTER V2.5
  7. JESTERnewsTemp,p
  8. Photo Scrap
  9. GEOPUBLASER V1.0
  10. @Tony Requist
  11.  ONLY for use w/Pub files created
  12. w/vers. 10/88 or later (our v. 1.2)
  13. HJJJJ 
  14. Error I:   
  15. *0$j,V
  16. * ;    h
  17. `8` k
  18.  a& g&
  19.  a& !% g& 
  20. saveobj restore
  21.  %,6>G"###########
  22. CHLQ$$$$
  23. /#copies exch def gsave showpage grestore
  24. erasepage
  25. uh`L4
  26. `Parallel mods by Jim Collette - (C) 1991. Jenny & Becky, this one's for you...
  27. JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
  28. LLLLLLLLLLLLLLLLLLLLLLLL
  29. LLLLLLLLLLLLLL
  30. .H B     
  31. H x"h
  32.  LE) 
  33. ` e!L
  34.      |!h
  35. )?L_!
  36. HJJJJ h"h)
  37.  JJJJ
  38. January
  39. February
  40. March
  41. April
  42. August
  43. September
  44. October
  45. November
  46. December
  47. Print...
  48. Smoothing
  49. Thumbnails
  50. From Page
  51. To Page
  52. Copies
  53. Reduce to
  54. geoPubLaser
  55. Current file: 
  56. Initializing LaserWriter...
  57. Publish Doc
  58. Insert new disk into disk drive.
  59. Data file is beyond V1.0
  60. On disk:
  61. opening file
  62.  Printing...
  63. `0 setgray
  64.      F% o%
  65.  V$`h`
  66. ` ^0Lj& }0
  67. & S0h
  68. '''''
  69. `DEFI
  70.  r( !-` 
  71. 2 S0 
  72.  _!h _!
  73. setlinejoin setlinecap
  74. `8`setlinewidth
  75.     `8 div setgray
  76. ( P) 
  77. 1H >+h
  78. h >+h
  79. h ]"h
  80. Ci _!
  81. Bi _! 
  82. <i _!
  83. LA.PSC
  84. H \/hL
  85.       0 )1 Q1
  86. H ^0 Q1h
  87. ki @5 
  88. Mi /5
  89.  JJJJ
  90. Ai)@J    
  91.  b7 w7 b7
  92. IiJJJ
  93. .Ji(nKi
  94. H V: 
  95. 9 o9 
  96. < 9< 
  97. =  =L
  98. ` d; 
  99. ) 0* 
  100. > >+ E)
  101. nYinXinWi
  102.  H '? 
  103. dGEOPUBLASER V1.0
  104. f ,f 
  105. H MehH heh
  106. geoPubLaser
  107. Copyright 1987 Berkeley Softworks
  108. Choose RS-232 Serial Transfer Rate
  109. 1200 Baud (Blanks Screen)
  110. 9600 Baud (Blanks Screen)
  111. [~72 80 div 80 80 div scale 0.25 80 mul 18 translate /ps 1 string def/rs 256 string def statu72 80 div 80 80 div scale 0.25 80 mul 18 translate /ps 1 string def/rs 256 string def statusdict begin /waittimeout 370 def end /PS{mG/PSf exch def/PSj exch def/PSc exch def/PSs 0 def PSj 0 ne{PSc 1 sub -1 0{4 mul/PSt exch def PSt 3 add index PSt 3 add index sF PSt index dup cS PSs add/PSs exch def stringwidth pop PSf exch sub/PSf exch def}for}if
  112. PSj 3 eq{/PSs PSs 0 eq{1}{PSf PSs div}ifelse def}{/PSs 0 def}ifelse PSj 2 eq{PSf 0 rmoveto}if PSj 1 eq{PSf 2 idiv 0 rmoveto}if
  113. PSc 1 sub -1 0{4 mul/PSt exch def PSt 3 add index PSt 3 add index sF PSt 1 add index/PSb exch def 0 PSb neg rmoveto PSt index PSs 0 32 4 -1 roll currentpoint pop/PSx exch def widthshow curFont 128 and 0 ne{gsave currentpoint newpath moveto currentfont begin matrix currentmatrix FontMatrix concat FontInfo begin 0 UnderlinePosition rmoveto UnderlineThickness 0 FontMatrix transform pop setlinewidth end end setmatrix currentpoint pop PSx exch sub 0 rlineto stroke grestore}if 0 PSb rmoveto}for PSc 4 mul{pop}repeat}def
  114. /cS{/cSt 0 def{32 eq{/cSt cSt 1 add def}if}forall cSt}def
  115. /sF{/MSFsize exch def dup 63 and /MSFforeign exch def /MSFfont exch def curSize MSFsize ne curFont 65407 and MSFfont 65407 and ne or {fonts MSFfont -8 bitshift get MSFfont 64 and 0 ne{/sFf mO/sFf}if MSFforeign 0 ne MSFfont -10 bitshift 2 ne and {/sFx MSFforeign mF /sFx }if findfont MSFsize scalefont setfont}if/curFont MSFfont def/curSize MSFsize def}def
  116. /mOd 5 dict def/mO{mOd begin/mOn exch def/mO1 exch def/mO2 mO1 findfont def/mOo mO2 maxlength 1 add dict def mO2{exch dup/FID ne{exch mOo 3 1 roll put}{pop pop}ifelse}forall mOo/FontName mOn put mOo/PaintType 2 put mOo/StrokeWidth 0 put mOn mOo definefont pop end}def
  117. /mF{/mfT exch def exch findfont dup length dict /newdict exch def {1 index /FID ne {newdict 3 1 roll put} {pop pop} ifelse }forall newdict /Encoding mfT 0 eq {AmC}{mfT 1 eq {GeC}{mfT 2 eq {FrC}{mfT 3 eq {DaC}{mfT 4 eq {ItC}{mfT 5 eq {SwC}{mfT 6 eq {SpC}{mfT 7 eq {UkC}{mfT 8 eq {DaC}{mfT 9 eq {DaC}{SeC}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse put newdict definefont pop }def
  118. /mG{gG moveto}def/gG{751 exch sub }def
  119. /gS{currentfile ps readhexstring pop}def/PC{gsave/PCi exch def/PCt exch def/PCs exch def gG translate/PCy exch def/PCx exch def/PCf exch def 0 1 translate PCf 0 ne{PCy 2 div 0 translate}if PCy PCt div PCs mul dup PCx ge{pop PCx}if PCy scale PCs PCt true[PCs 0 0 PCt neg 0 PCi]PCf 0 ne{[1 0 0.57735 1 0 0]matrix concatmatrix}if{gS}imagemask grestore}def
  120. /PP{gsave dR clip newpath gG translate/PPdy exch def/PPdx exch def/PPsy exch def/PPsx exch def 0 PPdy neg translate/PPs 0 def/PPp 0 def PPdx PPdy scale PPsx PPsy true[PPsx 0 0 PPsy neg 0 PPsy]{PPD}imagemask grestore{currentfile read{32 eq{exit}if}{exit}ifelse}loop}def
  121. /PPD{{PPs 127 and 0 eq{/PPs PPG def PPs 220 ge{/PPb PPs 220 sub def/PPc PPb def/PPp PPG def/PPf true def/PPs 0 def}{PPs 128 lt{/PPr PPG def}if}ifelse}{exit}ifelse}loop PPs 128 ge{PPG}{PPr}ifelse/PPs PPs 1 sub def/PPt exch def ps 0 PPt put ps}def
  122. /PPG{PPp 0 ne{PPf{rs PPc gS 0 get put}if rs PPc get/PPc PPc 1 sub def PPc 0 eq{/PPp PPp 1 sub def/PPf false def/PPc PPb def}if}{gS 0 get}ifelse}def
  123. /GC4{gG/y2 exch def/x2 exch def GC2}def
  124. /GC2{gG/y1 exch def/x1 exch def}def
  125. /DL{GC4 newpath x1 y1 moveto x2 y2 lineto x1 y1 moveto closepath stroke }def
  126. /DCL1{GC2 /x3 x1 def /y3 y1 def newpath x1 y1 moveto }def
  127. /DCL2{GC2 x1 y1 lineto }def
  128. /DCL3{0 eq {x3 y3 moveto}{x3 y3 lineto}ifelse closepath stroke}def
  129. /DRF{dR fill}def
  130. /DRS{dR stroke}def
  131. /dR{GC4 newpath x1 y1 moveto x2 y1 lineto x2 y2 lineto x1 y2 lineto closepath }def
  132. /DEFI{dE fill grestore}def
  133. /DES{dE stroke grestore}def
  134. /dE{gsave GC4 newpath x1 x2 eq y1 y2 eq or{x1 y1 moveto x2 y2 lineto}{x1 x2 add 2 div y1 y2 add 2 div translate/xsc x1 x2 sub abs 200 div def/ysc y1 y2 sub abs 200 div def xsc ysc scale currentlinewidth xsc ysc add 2 div div setlinewidth 0 0 100 0 360 arc}ifelse closepath}def
  135. /DCT{newpath gG/y3 exch def/x3 exch def gG/y2 exch def/x2 exch def gG/y1 exch def/x1 exch def gG/y0 exch def/x0 exch def x0 y0 moveto x1 y1 x2 y2 x3 y3 curveto x0 y0 moveto closepath stroke}def
  136. /PSC{sF gsave dR clip newpath /PSCjust exch def /PSCorient exch def /PSCbottom exch def /PSCright exch def /PSCtop exch def /PSCleft exch def 0 0 moveto (AG$(){}?) false charpath flattenpath pathbbox exch pop exch pop exch pop PSCorient 0 eq{PSCleft PSCtop mG/PSCwidth PSCright PSCleft sub def}{/PSCwidth PSCbottom PSCtop sub def PSCorient 1 eq{PSCleft PSCbottom mG 90 rotate}{PSCright PSCtop mG 270 rotate}ifelse}ifelse neg 0 exch rmoveto dup stringwidth pop dup /PSx exch def PSCwidth exch sub dup 0 lt {pop 0} if PSCjust mul 2 div 0 rmoveto show curFont 128 and 0 ne{currentpoint newpath moveto currentfont begin matrix currentmatrix FontMatrix concat FontInfo begin 0 UnderlinePosition rmoveto UnderlineThickness 0 FontMatrix transform pop setlinewidth end end setmatrix PSx neg 0 rlineto closepath stroke }if grestore }def
  137. /SC{newpath 0 0 moveto 640 0 lineto 640 752 lineto 0 752 lineto closepath clip }def
  138. /EB{1 setlinewidth gsave eofill clippath 0 -2 moveto 640 -2 lineto 640 754 lineto 0 754 lineto closepath 1 setgray fill grestore 0.5 setlinewidth newpath 0.25 0 moveto 0.25 -2 lineto 2.25 -2 lineto 638.75 0 moveto 638.75 -2 lineto 636.75 -2 lineto 638.75 751 moveto 638.75 753 lineto 636.75 753 lineto 0.25 751 moveto 0.25 753 lineto 2.25 753 lineto 0 setgray stroke }def
  139. /STP{dup 4 mod .25 mul .015 add 640 mul .22 div exch 4 idiv .25 mul .015 add -752 mul .22 div translate gsave 0 setgray newpath -4 -4 moveto 643 -4 lineto 643 755 lineto -4 755 lineto closepath stroke grestore}def
  140. /PI{/saveobj save def 100 div /PIt exch def 1 PIt sub 72 10.5 mul mul 0 exch translate PIt dup scale 72 10.5 mul PIt div mul exch -80 8 mul PIt div mul exch translate /curFont -1 def/curSize -1 def}def
  141. /fonts[/Times-Roman/Times-Bold/Times-Italic/Times-BoldItalic/Helvetica/Helvetica-Bold/Helvetica-Oblique/Helvetica-BoldOblique/Symbol/Symbol/Symbol/Symbol/Courier/Courier-Bold/Courier-Oblique/Courier-BoldOblique/AvantGarde-Book/AvantGarde-Demi/AvantGarde-BookOblique/AvantGarde-DemiOblique/Bookman-Light/Bookman-Demi/Bookman-LightItalic/Bookman-DemiItalic/Helvetica-Narrow/Helvetica-Narrow-Bold/Helvetica-Narrow-Oblique/Helvetica-Narrow-BoldOblique/NewCenturySchlbk-Roman/NewCenturySchlbk-Bold/NewCenturySchlbk-Italic/NewCenturySchlbk-BoldItalic/Palatino-Roman/Palatino-Bold/Palatino-Italic/Palatino-BoldItalic/ZapfChancery-MediumItalic/ZapfChancery-MediumItalic/ZapfChancery-MediumItalic/ZapfChancery-MediumItalic/ZapfDingbats/ZapfDingbats/ZapfDingbats/ZapfDingbats]def
  142. /AmC 256 array def systemdict begin StandardEncoding AmC copy pop end /GeC 256 array def AmC GeC copy pop/FrC 256 array def AmC FrC copy pop/ItC 256 array def AmC ItC copy pop/SwC 256 array def AmC SwC copy pop/SpC 256 array def AmC SpC copy pop/UkC 256 array def AmC UkC copy pop/DaC 256 array def AmC DaC copy pop/SeC 256 array def AmC SeC copy pop GeC 64 /section put GeC 91 /Adieresis put GeC 92 /Odieresis put GeC 93 /Udieresis put GeC 123 /adieresis put GeC 124 /odieresis put GeC 125 /udieresis put GeC 126 /germandbls put FrC 64 /agrave put FrC 91 /degree put FrC 92 /ccedilla put FrC 93 /section put FrC 123 /eacute put FrC 124 /ugrave put FrC 125 /egrave put FrC 126 /dieresis put ItC 64 /sterling put ItC 91 /egrave put ItC 92 /eacute put ItC 93 /agrave put ItC 123 /ring put ItC 124 /igrave put ItC 125 /ograve put ItC 126 /ugrave put SwC 64 /eacute put SwC 91 /egrave put SwC 92 /ccedilla put SwC 93 /udieresis put SwC 123 /odieresis put SwC 124 /ugrave put SwC 125 /adieresis put SwC 126 /agrave put SpC 91 /Ntilde put SpC 92 /ccedilla put SpC 93 /questiondown put SpC 123 /ntilde put SpC 124 /sterling put SpC 125 /exclamdown put SpC 126 /dieresis put UkC 124 /sterling put DaC 91 /AE put DaC 92 /Oslash put DaC 93 /Aring put DaC 123 /ae put DaC 124 /oslash put DaC 125 /aring put SeC 91 /Adieresis put SeC 92 /Odieresis put SeC 93 /Aring put SeC 123 /adieresis put SeC 124 /odieresis put SeC 125 /aring put 
  143.