#include #include extern char styear[]; extern char stmonth[]; extern char stissue[]; extern end_page(); extern FILE* out; coverpage() { FILE* ffp=out; /* if ((ffp=fopen("cover.ps","w"))==NULL) { printf("Can't open output file - cover.ps\n"); exit(1); } */ fprintf(ffp,"%%!PS-Adobe-1.0\n%%%%Creator: W. SUN, ANU\n\ /endpage {showpage restore} def\n\ /G /grestore load def\n\ /I /imagemask load def\n\ /T {580 moveto gsave currentpoint translate 55 70 scale 24 24 true [24 0 0 -24 0 24]}def\n\ /C {454 moveto gsave currentpoint translate 10 10 scale 24 24 true [24 0 0 -24 0 24]}def\n\ /TA {520 moveto gsave currentpoint translate 10 20 scale 24 24 true [24 0 0 -24 0 24]}def\n\ /A {520 moveto gsave currentpoint translate 10 20 scale 12 24 true [24 0 0 -24 0 24]}def\n\ /A1 {150 moveto}def\n\ /C1 {150 moveto gsave currentpoint translate 20 50 scale 24 24 true [24 0 0 -24 0 24]}def\n\ /ii 200 def\n\ /inc {/det exch def ii /ii ii det 10 mul add def A1} def\n\ /inc1 {ii /ii ii 20 add def C1} def\n\ %%%%EndProlog\n\ %%%%Page: 0\n/XS 8.37 2 mul def\n\ /YS 15 5 mul def\n\ /Courier findfont [XS 0 0 YS 0 0] makefont setfont\n\ save\n\ 103 T {<01040001c7000186000186200306780386e00707800f06041b0e043336044306040307fe0303fc021000001c0000180c7ffffe001800001800001800001800001800001800001000>} I G\n\ 204 T {<0000000000183ffffc0030000420c007fff00600c007ffc00600c007ffc00600c00600c007ffc006e0c001800003ff800683000c4600102c00201c000077c001c1ff0e0038700000>} I G\n\ 314 T {<002000001800001c0000080000080c7ffffe01018001018001018000830000830000c300004600006600002400001800001c0000360000638000c1f00300fe0c0020300000000000>} I G\n\ 414 T {<0806000e03000c01800c010c0cfffe0d08207f0c700c444c0c7ffe0c610c0d610c0e614c1c6fec7c610c2c654c0c67ec0c644c0c644c0c67cc0c644c0c600c7c607c184018100010>} I G\n\ 143 A {<00000000072018E030603020600060006000600060006000600060006000600060003020302018C00700000000000000>} I G\n\ 148 A {<00000000F1E060C060C060C060C060C060C060C060C07FC060C060C060C060C060C060C060C060C0F1E0000000000000>} I G\n\ 153 A {<000000003F000C000C000C000C000C000C000C000C000C000C000C000C000C000C000C000C000C003F00000000000000>} I G\n\ 158 A {<00000000E0E06040704070407040584058404C404C404640464043404340434041C041C040C040C0E040000000000000>} I G\n\ 163 A {<000000000600060006000B000B000B00098011801180118020C020C03FC020C04060406040604060E0F0000000000000>} I G\n\ 178 A {<00000000E0E06040704070407040584058404C404C404640464043404340434041C041C040C040C0E040000000000000>} I G\n\ 183 A {<00000000FFC060C060406020600060006100610063007F00630061006100600060006020604060C0FFC0000000000000>} I G\n\ 188 A {<00000000E060C020C020C020C020C020C620C620C620C620C620CF20CB206B406B40714071C031803180000000000000>} I G\n\ 193 A {<000000001E4061C0C0C0C040C000C000E00070003E000F8001C000E00060006000608060C0C0E1809E00000000000000>} I G\n\ 208 A {<00000000FC006300618060C060C060606060606060606060606060606060606060C060C061806300FC00000000000000>} I G\n\ 213 A {<000000003F000C000C000C000C000C000C000C000C000C000C000C000C000C000C000C000C000C003F00000000000000>} I G\n\ 219 A {<000000000E4031C060C06040C000C000C000C000C000C000C3E0C0C0C0C0C0C0C0C060C060C031C00E40000000000000>} I G\n\ 224 A {<00000000FFC060C060406020600060006100610063007F00630061006100600060006020604060C0FFC0000000000000>} I G\n\ 229 A {<000000001E4061C0C0C0C040C000C000E00070003E000F8001C000E00060006000608060C0C0E1809E00000000000000>} I G\n\ 234 A {<00000000FFC0CCC08C408C408C400C000C000C000C000C000C000C000C000C000C000C000C000C001E00000000000000>} I G\n\ 249 TA {<0000000000000000000000000000000000000000000000000000000000000000001ffff8000000000000000000000000000000000000000000000000000000000000000000000000>} I G\n\ 269 A {<00000000072018E030603020600060006000600060006000600060006000600060003020302018C00700000000000000>} I G\n\ 274 A {<00000000F1E060C060C060C060C060C060C060C060C07FC060C060C060C060C060C060C060C060C0F1E0000000000000>} I G\n\ 279 A {<000000003F000C000C000C000C000C000C000C000C000C000C000C000C000C000C000C000C000C003F00000000000000>} I G\n\ 284 A {<00000000E0E06040704070407040584058404C404C404640464043404340434041C041C040C040C0E040000000000000>} I G\n\ 289 A {<00000000FFC060C060406020600060006100610063007F00630061006100600060006020604060C0FFC0000000000000>} I G\n\ 294 A {<000000001E4061C0C0C0C040C000C000E00070003E000F8001C000E00060006000608060C0C0E1809E00000000000000>} I G\n\ 299 A {<00000000FFC060C060406020600060006100610063007F00630061006100600060006020604060C0FFC0000000000000>} I G\n\ 314 A {<00000000E070606060E070E070E07160596059605B604E604E604E60446044604060406040604060E0F0000000000000>} I G\n\ 319 A {<000000000600060006000B000B000B00098011801180118020C020C03FC020C04060406040604060E0F0000000000000>} I G\n\ 324 A {<000000000E4031C060C06040C000C000C000C000C000C000C3E0C0C0C0C0C0C0C0C060C060C031C00E40000000000000>} I G\n\ 329 A {<000000007FE040C040C081800180030003000600060006000C000C001800180030003020604060C0FFC0000000000000>} I G\n\ 334 A {<000000003F000C000C000C000C000C000C000C000C000C000C000C000C000C000C000C000C000C003F00000000000000>} I G\n\ 339 A {<00000000E0E06040704070407040584058404C404C404640464043404340434041C041C040C040C0E040000000000000>} I G\n\ 344 A {<00000000FFC060C060406020600060006100610063007F00630061006100600060006020604060C0FFC0000000000000>} I G\n\ 359 TA {<0000000000000000080000300000600000c00001800001800003000003000003000003000003000003000003000003000001800001800000c0000060000030000008000000000000>} I G\n\ 370 A {<00000000072018E030603020600060006000600060006000600060006000600060003020302018C00700000000000000>} I G\n\ 375 A {<00000000E0E06040704070407040584058404C404C404640464043404340434041C041C040C040C0E040000000000000>} I G\n\ 380 A {<00000000FC006300618060C060C060606060606060606060606060606060606060C060C061806300FC00000000000000>} I G\n\ 385 TA {<0000000000000000000000000000000000000000000000000000000000000000000ffff0000000000000000000000000000000000000000000000000000000000000000000000000>} I G\n\ 395 A {<00000000072018E030603020600060006000600060006000600060006000600060003020302018C00700000000000000>} I G\n\ 400 A {<00000000E070606060E070E070E07160596059605B604E604E604E60446044604060406040604060E0F0000000000000>} I G\n\ 405 TA {<0000000000001000000c000006000003000001800001800000c00000c00000c00000c00000c00000c00000c00000c0000180000180000300000600000c0000100000000000000000>} I G\n\ 83 C {<000000000000000000000000000000000000000000000000000000000000001800003c00003c00001800000000000000000000000000000000000000000000000000000000000000>} I G\n\ 93 C {<0000000000000000000000000000000000000000000000000000000000000000001ffff8000000000000000000000000000000000000000000000000000000000000000000000000>} I G\n\ 103 C {<000000000000000000000000000000000000000000000000000000000000001800003c00003c00001800000000000000000000000000000000000000000000000000000000000000>} I G\n\ 113 C {<0000000000000000000000000000000000000000000000000000000000000000001ffff8000000000000000000000000000000000000000000000000000000000000000000000000>} I G\n\ 123 C {<000000000000000000000000000000000000000000000000000000000000001800003c00003c00001800000000000000000000000000000000000000000000000000000000000000>} I G\n\ 143 C {<001000001c0000180000340000640000c2000181800300c00600700c013e13ffd86018000018000018000018c007ffe00018000018000018000018000018183ffffc000000000000>} I G\n\ 153 C {<0002000003800003300183187fc3100c03040c7ffe0c03000c03800d23887fb34e0c1b580c13600c03400c03200c07200d9b300e331c7ce30f304304200300001f00000600000400>} I G\n\ 163 C {<0101000081c000c18000630000420c7ffffe00300000200004406007fff006006006006006006007ffe006006006006006006007ffe006006006006006006007ffe0060060040040>} I G\n\ 173 C {<003000001800101c0010080c1ffffe30000c30005027ffe000300000602001a0700331c00c6b0030ce00018d00031d000c3c80306cc001cc60010c38020c1e0cfc08303800001000>} I G\n\ 183 C {<001000001c000018000018000018001018181ffffc1818181818181818181818181818181818181ffff8181818101810001800001800001800001800001800001800001800001000>} I G\n\ 193 C {<002000001800001c0000080000080c7ffffe01018001018001018000830000830000c300004600006600002400001800001c0000360000638000c1f00300fe0c0020300000000000>} I G\n\ 203 C {<0020000038000030000030001030601ffff01830601830601830601830601fffe01830601830601830601830601fffe0183040103004003004003004003006003ffe001ffc000000>} I G\n\ 213 C {<0002002303003f818033018033010c337ffe3300003304403f2268333ace3332cc33318c33318c3f318c3333cc3332cc33346c33346c33384c23300c23300c4f7ffc46200c040000>} I G\n\ 224 C {<0840000e720c0c63fe0c6b0c7ffb0c0c630c0c630c0fe30c0c63fc0c630c0c630c0fe30c0c630c0c630c0c6bfc7ffb0c04830c06460c0c660c182c0c300c0c4018fc002038004010>} I G\n\ 234 C {<00000000001000301c3ff818030218030398030318030318030318030b187fff180303180303180303180303180303180303180303180302180300180300180301f8030070020020>} I G\n\ 264 C {<001000001c000018000018000018001018181ffffc1818181818181818181818181818181818181ffff8181818101810001800001800001800001800001800001800001800001000>} I G\n\ 274 C {<0000002000183ffffc30001830001830019837ffd830301830301830301830331833ff983030183036183033183032183030d837ffd83000183000183000183ffff8300018200010>} I G\n\ 284 C {<04000002000c03043e0227c07ff6001046000866000cc6000c860c0127fe7ff6300306300306300326303ff6301306301b46301b2630333630232430430c301f1830061030042020>} I G\n\ 294 C {<1800000c00180efffc0400181000181c00981bffd818c31818c31818ff1818c31818c31818ff1818c31818c35818dff81be3181803181803181803181802181800f8100030000020>} I G\n\ 304 C {<0020000038000030000030001030601ffff01830601830601830601830601fffe01830601830601830601830601fffe0183040103004003004003004003006003ffe001ffc000000>} I G\n\ 314 C {<0002002303003f818033018033010c337ffe3300003304403f2268333ace3332cc33318c33318c3f318c3333cc3332cc33346c33346c33384c23300c23300c4f7ffc46200c040000>} I G\n\ 324 C {<0000002000183ffffc3000183000183060983460d83268d831659831c59830c31831c3183163983166983324d83228d83408983010183000183000183000183001f8200070000020>} I G\n\ 334 C {<040800070e00060c000c0c300c1ff819186011b4602324c07f43802643800c06c0180c7020183e7f3008305ff80098300018300318301c1830701830201ff0001830001020000000>} I G\n\ 344 C {<0000000000000000080000300000600000c00001800001800003000003000003000003000003000003000003000003000001800001800000c0000060000030000008000000000000>} I G\n\ 354 C {<000000003f2000c0e001806003002006002006000006000006000006000006000006000006001806001806001003003001806000c0c0003f00000000000000000000000000000000>} I G\n\ 365 C {<0000000f01f003804003804002c040026040026040023040021840020c40020c400206400206400203400201c00201c00200c00200400f8040000000000000000000000000000000>} I G\n\ 375 C {<0000000ffc000303000301800300c00300c00300600300600300600300600300600300600300600300600300c00300c00301800303000ffc00000000000000000000000000000000>} I G\n\ 385 C {<0000000000001000000c000006000003000001800001800000c00000c00000c00000c00000c00000c00000c00000c0000180000180000300000600000c0000100000000000000000>} I G\n\ 395 C {<006000003800001c00000c000008100000381ffffc0018000018000018000018000018000018301ffff800180000180000180000180000180000180800181c7ffffe000000000000>} I G\n\ 405 C {<0040000070000060000060000060000061801fffc00061800061800061a008619008619818618c38c18c70c18600c1860181840181800303000603000c7f00300e00400400000000>} I G\n\ 425 C {<000000000000000000000000000000000000000000000000000000000000001800003c00003c00001800000000000000000000000000000000000000000000000000000000000000>} I G\n\ 435 C {<0000000000000000000000000000000000000000000000000000000000000000001ffff8000000000000000000000000000000000000000000000000000000000000000000000000>} I G\n\ 445 C {<000000000000000000000000000000000000000000000000000000000000001800003c00003c00001800000000000000000000000000000000000000000000000000000000000000>} I G\n\ 455 C {<0000000000000000000000000000000000000000000000000000000000000000001ffff8000000000000000000000000000000000000000000000000000000000000000000000000>} I G\n\ 465 C {<000000000000000000000000000000000000000000000000000000000000001800003c00003c00001800000000000000000000000000000000000000000000000000000000000000>} I G\n"); fprintf(ffp,"%d inc (%s) show\n",strlen(styear),styear); fprintf(ffp,"inc1\n\ {<01000001c00001801003003803fffc060c000c0c00080c001a0c6033fff0230c00430c00030c00030c08030c1c7ffffe000c00000c00000c00000c00000c00000c00000c00000800>} I G\n"); fprintf(ffp,"%d inc (%s) show\n",strlen(stmonth),stmonth); fprintf(ffp,"inc1\n\ {<00000001006001fff001806001806001806001806001ffe001806001806001806001806001806001ffe00180600180600180600100600300600300600600600c07e00801c0100080>} I G\n\ inc1\n\ {<0804000e06000c4c181feffc1a09003190c04120a00ffff00018600018600818600fffe00c18400c18000c18181ffffc08d8180198180318180618f80c1830301820401800001000>} I G\n"); fprintf(ffp,"%d inc (%s) show\n",strlen(stissue),stissue); fprintf(ffp,"inc1\n\ {<0840000e720c0c63fe0c6b0c7ffb0c0c630c0c630c0fe30c0c63fc0c630c0c630c0fe30c0c630c0c630c0c6bfc7ffb0c04830c06460c0c660c182c0c300c0c4018fc002038004010>} I G\n\ "); end_page(); /*endpage\n"); fprintf(ffp,"%%%%Trailer\n"); fclose(ffp);*/ }