
 %%BeginFont: APL-2741
 % The following font is based Version 1.02 of the APL-2741 PostScript font 
 % created by Adrian Smith :  
 % Adrian Smith, Brook House, Gilling East, York, England
 % Copyright: Adrian Smith, MCMXC
 % 
 % The font may be freely copied and distributed on the understanding
 % that the character design is not modified, and that the font
 % includes this copyright notice.
 
 /newfont 20 dict def
 newfont begin
 % Simple macros for commonly used segments
 /butt  {0 setlinecap 0 setlinejoin} def % butt-end linedrawing chars
 /sf    {3 1 roll moveto 0 rlineto} def % Serifs
 /ring  {newpath 0 360 arc stroke} def
 /dot   {newpath 0 360 arc fill} def
 /stile {325 -145 moveto 0 890 rlineto stroke} def
 /bar   {125 300 400 sf stroke} def
 /usc   {50 -170 550 sf stroke} def
 /quad  {80 -70 moveto 80 700 lineto 570 700 lineto 570 -70 lineto closepath stroke } def
 /del   {325 20 moveto 126 630 lineto 524 630 lineto closepath stroke} def
 /tilde {90 320 moveto 150 550 550 150 570 410 curveto stroke} def
 % End of macros ... now come the required font elements
 /FontType 3 def
 /FontMatrix [1 1200 div 0 0 1 1200 div 0 0] def
 /FontBBox [0 -250 720 950] def
 /Encoding 256 array def
 0 1 255 {Encoding exch /.notdef put} for

% Encoding vector for APL.68000 in RS/6000 font order
Encoding 33 /QUOTEDOT put
Encoding 34 /DOUBLEQUOTE put
Encoding 35 /HASH put
Encoding 36 /DOLLAR put
Encoding 37 /PERCENT put
Encoding 38 /AMPERSAND put
Encoding 39 /QUOTE put
Encoding 40 /LEFTPAREN put
Encoding 41 /RIGHTPAREN put
Encoding 42 /STAR put
Encoding 43 /PLUS put
Encoding 44 /COMMA put
Encoding 45 /BAR put
Encoding 46 /DOT put
Encoding 47 /SLASH put
Encoding 48 /ZERO put
Encoding 49 /ONE put
Encoding 50 /TWO put
Encoding 51 /THREE put
Encoding 52 /FOUR put
Encoding 53 /FIVE put
Encoding 54 /SIX put
Encoding 55 /SEVEN put
Encoding 56 /EIGHT put
Encoding 57 /NINE put
Encoding 58 /COLON put
Encoding 59 /SEMICOLON put
Encoding 60 /LT put
Encoding 61 /EQUAL put
Encoding 62 /GT put
Encoding 63 /QUERY put
Encoding 64 /AT put
Encoding 65 /A put
Encoding 66 /B put
Encoding 67 /C put
Encoding 68 /D put
Encoding 69 /E put
Encoding 70 /F put
Encoding 71 /G put
Encoding 72 /H put
Encoding 73 /I put
Encoding 74 /J put
Encoding 75 /K put
Encoding 76 /L put
Encoding 77 /M put
Encoding 78 /N put
Encoding 79 /O put
Encoding 80 /P put
Encoding 81 /Q put
Encoding 82 /R put
Encoding 83 /S put
Encoding 84 /T put
Encoding 85 /U put
Encoding 86 /V put
Encoding 87 /W put
Encoding 88 /X put
Encoding 89 /Y put
Encoding 90 /Z put
Encoding 91 /LEFTBRACKET put
Encoding 92 /SLOPE put
Encoding 93 /RIGHTBRACKET put
Encoding 94 /AND put
Encoding 95 /UNDERBAR put
Encoding 96 /BACKQUOTE put
Encoding 97 /a put
Encoding 98 /b put
Encoding 99 /c put
Encoding 100 /d put
Encoding 101 /e put
Encoding 102 /f put
Encoding 103 /g put
Encoding 104 /h put
Encoding 105 /i put
Encoding 106 /j put
Encoding 107 /k put
Encoding 108 /l put
Encoding 109 /m put
Encoding 110 /n put
Encoding 111 /o put
Encoding 112 /p put
Encoding 113 /q put
Encoding 114 /r put
Encoding 115 /s put
Encoding 116 /t put
Encoding 117 /u put
Encoding 118 /v put
Encoding 119 /w put
Encoding 120 /x put
Encoding 121 /y put
Encoding 122 /z put
Encoding 123 /LEFTBRACE put
Encoding 124 /SPLITSTILE put
Encoding 125 /RIGHTBRACE put
Encoding 126 /TILDE put
Encoding 127 /DELTA put
Encoding 156 /STERLING put
Encoding 158 /MULTIPLY put
Encoding 159 /QUADUP put
Encoding 166 /QUADDOWN put
Encoding 167 /QUADLEFT put
Encoding 169 /DOMINO put
Encoding 170 /NOR put
Encoding 171 /NAND put
Encoding 172 /LE put
Encoding 174 /NE put
Encoding 175 /ALPHA put
Encoding 176 /BASE put
Encoding 177 /UPSHOE put
Encoding 178 /DOWNSTILE put
Encoding 179 /LD179 put
Encoding 180 /LD180 put
Encoding 184 /LEFTARROW put
Encoding 185 /FORMAT put
Encoding 186 /EXECUTE put
Encoding 187 /OR put
Encoding 188 /DOWNSHOE put
Encoding 189 /EPSILON put
Encoding 190 /DEL put
Encoding 191 /LD191 put
Encoding 192 /LD192 put
Encoding 193 /LD193 put
Encoding 194 /LD194 put
Encoding 195 /LD195 put
Encoding 196 /LD196 put
Encoding 197 /LD197 put
Encoding 200 /IOTA put
Encoding 201 /QUAD put
Encoding 202 /ENCODE put
Encoding 203 /CIRCLE put
Encoding 204 /RHO put
Encoding 205 /UPSTILE put
Encoding 206 /UPARROW put
Encoding 207 /OMEGA put
Encoding 208 /RIGHTSHOE put
Encoding 209 /LEFTSHOE put
Encoding 213 /LEFTTACK put
Encoding 217 /LD217 put
Encoding 218 /LD218 put
Encoding 219 /DIAMOND put
Encoding 220 /RIGHTTACK put
Encoding 221 /COMMABAR put
Encoding 223 /DOWNARROW put
Encoding 224 /NOTMATCH put
Encoding 225 /BETA put
Encoding 226 /FIND put
Encoding 227 /IOTAUNDERBAR put
Encoding 230 /QUADJOT put
Encoding 231 /QUADSLOPE put
Encoding 234 /SQUAD put
Encoding 235 /LOG put
Encoding 236 /DELTILDE put
Encoding 237 /IBEAM put
Encoding 238 /HIGHBAR put
Encoding 239 /DELTASTILE put
Encoding 240 /DELSTILE put
Encoding 241 /QUOTEQUAD put
Encoding 242 /GE put
Encoding 243 /QUADRIGHT put
Encoding 244 /LAMP put
Encoding 245 /SLOPEBAR put
Encoding 246 /DIVIDE put
Encoding 247 /CIRCLESTILE put
Encoding 248 /JOT put
Encoding 249 /DIERESIS put
Encoding 250 /CIRCLEBAR put
Encoding 251 /SLASHBAR put
Encoding 252 /CIRCLESLOPE put
Encoding 253 /RIGHTARROW put
Encoding 254 /MATCH put
Encoding 255 /DELTAUNDERBAR put
 /CharProcs 256 dict def     % for chars
 CharProcs begin
 /.notdef {} def
  
 /NOTMATCH { 125 450 400 sf
    125 300 400 sf
    125 150 400 sf stroke 150 -100 moveto 500 700 lineto stroke
  } def
 /FIND { 490 460 moveto
    30 460 70 20 360 20 curveto
    490 20 lineto
    145 240 moveto 250 0 rlineto
    stroke usc } def
 /DIAMOND { 125 300 moveto 325 550 lineto 525 300 lineto 325 50 lineto
    closepath stroke
  } def
/QUERY { 318 60 60 dot
   204 640 moveto 226 550 124 600 204 640 curveto
   346 710 476 670 500 570 curveto
   534 440 288 380 314 240 curveto
   stroke } def
 /DIERESIS { 175 800 80 dot 475 800 80 dot } def
 /LEFTARROW { 658 350 moveto 70 350 lineto
    182 350 280 392 350 518 curveto
    70 350 moveto
    182 350 280 308 350 182 curveto
    stroke
  } def
 /LEFTSHOE { 532 448 moveto 266 448 lineto
    30 448 30 126 266 126 curveto
    532 126 lineto stroke
  } def
 /RIGHTSHOE { 98 448 moveto 364 448 lineto
    600 448 600 126 364 126 curveto
    98 126 lineto stroke
  } def
/AMPERSAND { 520 20 moveto
   230 480 lineto
   90 750 600 750 460 480 curveto
   430 440 340 360 240 290 curveto
   60 190 100 20 310 20 curveto
   400 20 500 100 550 150 curveto
   stroke } def
 /LOG { 325 300 220 ring 325 300 moveto 0 210 rlineto
    325 300 moveto -196 70 rlineto
    325 300 moveto 196 70 rlineto
    325 300 moveto -126 -168 rlineto
    325 300 moveto 126 -168 rlineto
    stroke
  } def
 /SQUAD { 490 -70 moveto 210 -70 lineto 210 700 lineto 490 700 lineto
    closepath stroke } def
 /IOTAUNDERBAR { 240 440 moveto 340 440 lineto 310 100 lineto
    300 10 380 10 420 60 curveto
    stroke usc } def
 /IBEAM { 325 20 moveto 325 500 lineto
    110 20 430 sf
    stroke 325 20 moveto 325 500 lineto
    110 500 moveto 540 500 lineto
    stroke } def
 /OMEGA { 200 450 moveto
    -100 0 220 -170 340 300 curveto
    220 -170 640 0 530 450 curveto
    stroke } def
 /UPARROW { 325 30 moveto 0 620 rlineto
    325 620 moveto 325 460 225 380 150 350 curveto
    325 620 moveto 325 460 425 380 500 350 curveto
    stroke
  } def
 /DOWNARROW { 325 -10 moveto 0 620 rlineto
    325 10 moveto 325 140 225 250 150 280 curveto
    325 10 moveto 325 140 425 250 500 280 curveto
    stroke
  } def
 /RIGHTARROW { 40 350 590 sf
    340 520 moveto 410 400 500 350 610 350 curveto
    340 180 moveto 410 300 500 350 610 350 curveto
    stroke
  } def
 /RIGHTTACK { 125 300 400 sf
    0 -150 rmoveto 0 300 rlineto
    stroke
  } def
 /LEFTTACK { 125 300 400 sf
    125 150 moveto 0 300 rlineto
    stroke
  } def
 /DELTASTILE { 325 630 moveto 126 20 lineto 524 20 lineto
    closepath stroke stile
  } def
 /DELSTILE { del stile
  } def
 /QUOTEDOT { 367 587 moveto
    325 630 60 -45 235 arc
    300 550 300 450 300 410 curveto
    300 250 350 250 350 410 curveto
    350 450 350 550 367 587 curveto
    fill 325 60 90 dot } def
 /DOLLAR { 100 100 moveto
    600 -100 700 325 325 325 curveto
    0 325 50 700 520 560 curveto
    325 -20 moveto 325 680 lineto
    stroke } def
 /PERCENT { 135 -130 moveto 505 700 lineto stroke
    180 500 80 ring
    480 100 80 ring
  } def
 /QUOTE { 367 587 moveto
    325 630 60 -45 235 arc
    300 550 300 450 300 410 curveto
    300 250 350 250 350 410 curveto
    350 450 350 550 367 587 curveto
    fill } def
/DOUBLEQUOTE { 225 680 moveto 0 -170 rlineto
   425 680 moveto 0 -170 rlineto
   stroke } def
/BACKQUOTE { 367 587 moveto
   325 630 60 -45 235 arc
   300 550 300 450 300 410 curveto
   300 250 350 250 350 410 curveto
   350 450 350 550 367 587 curveto
   fill } def
 /LEFTPAREN { 420 -120 moveto
    180 0 180 580 420 700 curveto
    stroke
  } def
 /RIGHTPAREN { 230 -120 moveto
    470 0 470 580 230 700 curveto
    stroke
  } def
 /STAR { 325 300 moveto 0 210 rlineto
    325 300 moveto -196 70 rlineto
    325 300 moveto 196 70 rlineto
    325 300 moveto -126 -168 rlineto
    325 300 moveto 126 -168 rlineto
    stroke
  } def
 /PLUS { 90 300 470 sf
    325 30 moveto 325 530 lineto
    stroke
  } def
 /COMMA { 350 -20 moveto 200 -30 200 120 330 110 curveto
    450 100 440 -150 240 -150 curveto
    235 -100 lineto
    320 -100 350 -60 350 -20 curveto
    fill
  } def
 /BAR { bar
  } def
 /DOT { 325 60 90 dot } def
 /SLASH { 150 -100 moveto 500 700 lineto stroke
  } def
 /ZERO { 325 630 moveto
    75 630 75 20 325 20 curveto
    575 20 575 630 325 630 curveto
    stroke } def
 /ONE { 170 20 390 sf
    375 20 moveto 375 630 lineto
    350 550 300 500 190 480 curveto
    stroke } def
 /TWO { 140 20 moveto 380 0 rlineto
    140 20 moveto 460 350 lineto
    500 400 510 440 510 460 curveto
    330 460 180 0 180 arc
    stroke } def
 /THREE { 300 350 moveto
    450 350 460 370 480 390 curveto
    620 640 240 720 190 510 curveto
    300 350 moveto
    460 350 530 300 530 170 curveto
    530 -40 175 -40 170 170 curveto
    stroke } def
 /FOUR { 200 630 moveto
    205 550 180 330 150 210 curveto
    570 210 lineto
    430 20 moveto 0 530 rlineto
    stroke } def
 /FIVE { 322 210 194 -155 135 arc
    490 630 moveto 182 630 lineto 182 350 lineto
    stroke
  } def
 /SIX { 500 200 moveto
    320 200 180 0 360 arc
    140 200 moveto 140 420 lineto
    140 670 400 670 460 600 curveto
    stroke
  } def
 /SEVEN { 150 532 moveto 150 630 lineto
    515 630 lineto 225 20 lineto stroke } def
 /EIGHT { 320 340 moveto
    540 340 540 630 320 630 curveto
    100 630 100 340 320 340 curveto
    570 340 570 20 320 20 curveto
    70 20 70 340 320 340 curveto
    stroke } def
 /NINE { 322 448 182 0 360 arc
    504 448 moveto
    504 250 lineto
    510 -10 250 -10 190 60 curveto
    stroke } def
 /COLON { 325 60 80 dot 325 400 80 dot } def
 /SEMICOLON { 350 -20 moveto 200 -30 200 120 330 110 curveto
    450 100 440 -150 240 -150 curveto
    235 -100 lineto
    320 -100 350 -60 350 -20 curveto
    fill
    310 370 80 dot
  } def
/HASH { 130 20 moveto 330 640 lineto
   340 20 moveto 540 640 lineto
   150 450 410 sf 90 230 410 sf stroke } def
 /AT { 430 470 moveto
    90 670 90 20 420 210 curveto % the bulge of the 'a' bit
    440 510 moveto
    400 390 400 250 420 200 curveto % the tail of the 'a'
    480 120 570 240 580 380 curveto % then round the ....
    580 590 520 680 325 680 curveto % bend we go.
    -40 680 -40 20 325 20 curveto
    400 20 480 50 540 90 curveto
    stroke } def
/A { 80 20 96 sf 480 20 96 sf
   128 20 moveto 314 680 lineto 40 0 rlineto 528 20 lineto
   184 215 moveto 474 215 lineto
   stroke } def
/B { 156 20 moveto 0 660 rlineto
   100 20 moveto 280 0 rlineto
   620 20 600 364 330 364 curveto
   154 364 lineto
   330 364 moveto
   560 364 520 680 320 680 curveto
   100 680 lineto stroke } def
/C { 550 480 moveto 520 610 lineto 544 680 lineto
   520 610 moveto
   458 660 414 680 360 680 curveto
   26 670 48 10 364 10 curveto
   458 10 508 60 558 180 curveto
   stroke } def
/D { 156 20 moveto 0 660 rlineto
   88 20 moveto 200 0 rlineto
   640 20 640 680 288 680 curveto
   88 680 lineto
   stroke } def
/E { 114 20 moveto 538 20 lineto 0 100 rlineto
   184 20 moveto 184 680 lineto
   114 680 moveto 524 680 lineto 0 -100 rlineto
   182 350 moveto 368 350 lineto
   368 426 moveto 368 274 lineto
   stroke } def
/F { 128 20 150 sf
   184 20 moveto 184 680 lineto
   120 680 moveto 524 680 lineto 0 -100 rlineto
   184 350 moveto 368 350 lineto
   368 400 moveto 368 300 lineto stroke } def
/G { 510 510 moveto 494 640 lineto 516 670 lineto
   494 640 moveto
   458 660 384 680 344 680 curveto
   -6 680 -2 20 338 10 curveto
   478 10 496 190 498 280 curveto
   498 20 lineto 410 280 160 sf stroke } def
/H { 90 20 100 sf 460 20 100 sf
   140 20 moveto 0 660 rlineto
   510 20 moveto 0 660 rlineto
   90 680 100 sf 460 680 100 sf
   140 356 moveto 510 356 lineto stroke } def
/I { 200 20 250 sf
   325 20 moveto 0 660 rlineto
   200 680 250 sf stroke } def
/J { 198 200 moveto 318 180 280 290 188 220 curveto
   128 140 178 20 328 10 curveto
   408 10 468 80 468 180 curveto
   468 680 lineto 340 680 260 sf
   stroke } def
/K { 108 20 140 sf 438 20 140 sf
   178 20 moveto 0 660 rlineto
   180 270 moveto 296 350 lineto 494 680 lineto
   296 350 moveto 508 20 lineto
   108 680 140 sf 434 680 120 sf stroke } def
/L { 128 20 moveto 558 20 lineto
   214 20 moveto 0 660 rlineto
   558 20 moveto 0 140 rlineto
   128 680 140 sf
   stroke } def
/M { 50 20 120 sf
   480 20 120 sf
   110 20 moveto 0 660 rlineto
   50 680 moveto 140 680 lineto
   325 175 lineto 510 680 lineto 540 680 lineto 540 20 lineto
   540 680 60 sf stroke } def
/N { 98 20 120 sf
   148 20 moveto 0 660 rlineto
   98 680 moveto 194 680 lineto 500 20 lineto 0 660 rlineto
   440 680 120 sf stroke } def
/O { 324 10 moveto
   608 10 608 680 324 680 curveto
   8 680 8 10 324 10 curveto stroke } def
/P { 140 20 200 sf
   228 20 moveto 0 660 rlineto
   230 330 moveto 430 330 lineto
   610 330 614 680 404 680 curveto
   140 680 lineto stroke } def
/Q { 324 10 moveto
   594 10 594 680 324 680 curveto
   320 680 moveto
   14 680 14 20 324 10 curveto
   164 100 moveto
   354 520 420 -350 598 20 curveto
   stroke } def
/R { 116 20 160 sf
   188 20 moveto 0 660 rlineto
   186 350 moveto 336 350 lineto
   556 350 556 680 336 680 curveto 116 680 lineto
   336 350 moveto % down to the right foot.
   410 330 430 170 548 20 curveto 40 0 rlineto
   stroke } def
/S { 505 560 moveto 490 630 lineto 514 680 lineto
   490 630 moveto
   458 660 374 680 324 680 curveto % to summit of top half
   94 680 88 380 414 360 curveto % main bit of top half
   594 320 628 10 318 10 curveto % down to the baseline
   256 10 190 50 148 100 curveto % and back up to the serif
   136 200 lineto 148 100 moveto 116 30 lineto
   stroke } def
/T { 200 20 250 sf
   325 20 moveto 325 680 lineto
   110 500 moveto 110 680 lineto 540 680 lineto 540 500 lineto
   stroke } def
/U { 90 680 140 sf
   150 680 moveto 150 222 lineto
   150 -60 500 -60 500 222 curveto
   500 680 lineto
   430 680 140 sf stroke } def
/V { 80 680 140 sf 430 680 140 sf
   150 680 moveto 325 20 lineto 500 680 lineto
   stroke } def
/W { 40 680 120 sf 90 680 moveto 200 20 lineto
   325 378 lineto 450 20 lineto 560 680 lineto
   490 680 120 sf stroke } def
/X { 80 20 120 sf 450 20 120 sf
   140 20 moveto 510 680 lineto
   510 20 moveto 140 680 lineto
   80 680 120 sf 450 680 120 sf
   stroke } def
/Y { 80 680 120 sf
   140 680 moveto 325 320 lineto
   235 20 180 sf
   325 20 moveto 325 320 lineto 510 680 lineto
   450 680 120 sf stroke } def
/Z { 140 580 moveto 140 680 lineto
   510 680 lineto 140 20 lineto 510 20 lineto 510 120 lineto
   stroke } def
 /LEFTBRACKET { 545 -70 moveto -280 0 rlineto 0 770 rlineto 280 0 rlineto
    stroke } def
 /SLOPE { 150 700 moveto 500 -100 lineto stroke
  } def
 /RIGHTBRACKET { 105 -70 moveto 280 0 rlineto 0 770 rlineto -280 0 rlineto
    stroke } def
 /AND { 125 130 moveto 325 520 lineto 525 130 lineto
    stroke
  } def
 /UNDERBAR { usc } def
/a { 154 480 moveto
   846 670 268 20 618 20 curveto
   510 290 moveto
   -22 460 -52 -150 508 60 curveto stroke } def
/b { 118 20 moveto
   158 20 194 35 206 70 curveto
   206 680 lineto
   146 680 120 sf
   206 70 moveto
   710 -190 690 730 206 450 curveto stroke } def
/c { 518 380 moveto
   478 460 lineto 516 510 lineto
   478 460 moveto
   40 680 40 20 325 20 curveto
   438 20 500 40 540 120 curveto stroke } def
/d { 598 20 moveto
   558 20 522 35 510 70 curveto
   510 680 lineto 440 680 120 sf
   510 70 moveto
   -40 -215 -20 760 510 450 curveto stroke } def
/e { 106 270 moveto 550 270 lineto
   550 400 476 510 336 510 curveto
   -4 510 38 10 325 10 curveto
   400 10 470 15 540 90 curveto stroke } def
/f { 220 20 200 sf
   300 20 moveto 300 530 lineto
   300 640 388 740 538 660 curveto
   206 510 270 sf stroke } def
/g { 174 -200 moveto
   438 -300 488 -180 496 70 curveto
   496 490 500 510 578 500 curveto
   496 70 moveto
   -70 -220 -20 715 510 470 curveto stroke } def
/h { 120 20 120 sf
   180 20 moveto 180 680 lineto
   120 680 120 sf
   180 410 moveto 378 580 520 530 520 320 curveto
   520 20 lineto 460 20 120 sf stroke } def
/i { 225 20 250 sf
   350 20 moveto 350 510 lineto -120 0 rlineto stroke
   340 670 40 dot } def
/j { 188 -220 moveto 334 -200 388 -180 390 0 curveto
   390 510 lineto -160 0 rlineto stroke
   390 670 40 dot } def
/k { 160 20 120 sf
   220 20 moveto 220 680 lineto
   160 680 120 sf
   220 240 moveto 480 510 lineto
   396 510 120 sf
   336 350 moveto 568 20 lineto
   488 20 120 sf stroke } def
/l { 205 20 250 sf
   330 20 moveto 330 680 lineto
   -90 0 rlineto stroke } def
/m { 58 20 110 sf
   104 20 moveto 104 420 lineto
   104 480 66 510 10 510 curveto
   104 420 moveto 146 550 270 530 338 420 curveto
   338 20 lineto 308 20 70 sf
   338 420 moveto 376 590 576 480 576 390 curveto
   576 20 lineto 515 20 100 sf stroke } def
/n { 120 20 120 sf
   180 20 moveto 180 450 lineto
   180 490 136 510 96 510 curveto
   180 450 moveto 304 560 520 540 520 380 curveto
   520 20 lineto 460 20 120 sf stroke } def
/o { 325 10 moveto
   630 10 630 520 325 520 curveto
   10 520 10 10 325 10 curveto
   stroke } def
/p { 140 -230 120 sf
   176 -230 moveto 176 470 lineto
   176 490 126 510 96 510 curveto
   176 70 moveto 734 -200 676 710 176 470 curveto stroke } def
/q { 370 -230 200 sf
   496 -230 moveto 496 470 lineto
   496 490 546 510 576 510 curveto
   496 70 moveto
   -70 -220 -20 715 496 470 curveto stroke } def
/r { 148 20 200 sf
   210 20 moveto 210 470 lineto
   210 500 186 510 146 510 curveto
   210 390 moveto 326 510 418 540 560 490 curveto stroke } def
/s { 148 20 moveto 166 70 lineto 156 150 lineto
   166 70 moveto 216 30 298 20 384 20 curveto
   588 20 606 270 318 280 curveto
   78 300 106 510 336 510 curveto
   386 510 450 490 520 450 curveto
   550 490 lineto
   520 450 moveto 526 390 lineto
   stroke } def
/t { 230 680 moveto 230 160 lineto
   230 -10 446 -50 546 70 curveto
   126 510 320 sf stroke } def
/u { 76 510 70 sf
   146 190 lineto 154 0 478 -60 494 120 curveto
   494 510 lineto -90 0 rlineto
   494 120 moveto 494 40 536 20 578 20 curveto stroke } def
/v { 80 510 120 sf 140 510 moveto
   325 20 lineto 510 510 lineto
   450 510 120 sf stroke } def
/w { 50 510 120 sf 110 510 moveto
   220 20 lineto 240 20 lineto
   325 300 lineto 410 20 lineto 430 20 lineto
   540 510 lineto 480 510 120 sf stroke } def
/x { 90 510 120 sf 150 510 moveto 500 20 lineto
   440 20 120 sf 90 20 120 sf
   150 20 moveto 500 510 lineto
   440 510 120 sf stroke } def
/y { 170 -230 120 sf 235 -230 moveto 526 510 lineto
   460 510 120 sf 345 50 moveto 146 510 lineto
   86 510 120 sf stroke } def
/z { 150 450 moveto 150 510 lineto
   470 510 lineto
   496 510 500 480 486 460 curveto
   174 80 lineto
   154 40 158 20 208 20 curveto
   500 20 lineto 500 100 lineto stroke } def
 /LEFTBRACE { 200 300 moveto
    470 310 200 680 460 680 curveto
    200 300 moveto
    470 290 200 -80 460 -80 curveto
    stroke } def
 /SPLITSTILE { 325 710 moveto 325 370 lineto
    325 -150 moveto 325 230 lineto
    stroke } def
 /RIGHTBRACE { 450 300 moveto
    180 310 450 680 190 680 curveto
    450 300 moveto
    180 290 450 -80 190 -80 curveto
    stroke } def
 /TILDE { tilde
  } def
 /NE { 125 400 400 sf
    125 200 400 sf
    175 80 moveto 475 520 lineto
    stroke
  } def
 /UPSTILE { 300 -70 moveto 0 770 rlineto 260 0 rlineto
    stroke } def
 /DOWNSTILE { 560 -70 moveto -260 0 rlineto 0 770 rlineto
    stroke } def
 /DELTA { 325 630 moveto 126 20 lineto 524 20 lineto
    closepath stroke
  } def
 /MULTIPLY { 168 168 moveto 532 518 lineto
    168 518 moveto 532 168 lineto
    stroke
  } def
 /QUAD { quad
  } def
 /QUOTEQUAD { quad 367 587 moveto
    325 630 60 -45 235 arc
    300 550 300 450 300 410 curveto
    300 250 350 250 350 410 curveto
    350 450 350 550 367 587 curveto
    fill } def
 /DOMINO { quad 125 315 400 sf stroke
    325 515 60 dot 325 115 60 dot } def
 /STERLING { 520 600 moveto
    300 780 160 620 205 350 curveto
    240 220 240 140 230 100 curveto
    80 -150 -40 280 235 100 curveto
    380 10 490 0 540 50 curveto
    150 350 moveto 240 0 rlineto
    stroke } def
 /COMMABAR { 350 -20 moveto 200 -30 200 120 330 110 curveto
    450 100 440 -150 240 -150 curveto
    235 -100 lineto
    320 -100 350 -60 350 -20 curveto
    fill bar
  } def
 /QUADUP { quad
    325 -70 moveto 325 700 lineto
    325 700 moveto 325 460 225 380 150 350 curveto
    325 700 moveto 325 460 425 380 500 350 curveto
    stroke } def
 /QUADDOWN { quad
    325 -70 moveto 325 700 lineto
    325 -70 moveto 325 140 225 250 150 280 curveto
    325 -70 moveto 325 140 425 250 500 280 curveto
    stroke
  } def
 /QUADLEFT { quad
    570 350 moveto 80 350 lineto
    170 350 280 392 350 518 curveto
    80 350 moveto
    170 350 280 308 350 182 curveto
    stroke
  } def
 /QUADRIGHT { quad
    80 350 moveto 570 350 lineto
    340 520 moveto 410 400 500 350 570 350 curveto
    340 180 moveto 410 300 500 350 570 350 curveto
    stroke
  } def
 /QUADSLOPE { quad
    160 700 moveto 490 -70 lineto stroke
  } def
 /QUADJOT { quad 325 300 126 ring
  } def
 /LAMP { 325 348 155 0 360 arc
    170 40 moveto 170 348 lineto
    480 40 moveto 480 348 lineto
    stroke } def
 /FORMAT { 325 20 moveto 325 500 lineto 110 500 moveto 540 500 lineto
    stroke 325 300 126 ring } def
 /EXECUTE { 325 20 moveto 325 500 lineto 110 20 430 sf 
    stroke 325 300 126 ring } def
 /SLOPEBAR { 150 700 moveto 500 -100 lineto stroke bar
  } def
 /DELTILDE {del tilde} def
 /BASE { 325 20 moveto 325 500 lineto 110 20 430 sf stroke} def
 /HIGHBAR { 85 750 480 sf stroke } def
 /DOWNSHOE { 160 518 moveto 160 226 lineto
     150 -30 490 -30 490 226 curveto
     490 518 lineto stroke } def
 /MATCH {125 450 400 sf
     125 300 400 sf
     125 150 400 sf stroke } def
 /SNOUT { 325 20 moveto 325 500 lineto
    110 500 moveto 540 500 lineto
    stroke 175 800 80 dot 475 800 80 dot } def
 /LD179 { butt 325 -250 moveto 325 950 lineto stroke } def
 /LD180 { butt 325 -250 moveto 325 950 lineto % single line left junction
    0 300 moveto 325 0 rlineto stroke } def
 /LD191 { butt 325 -250 moveto 325 300 lineto % single line top right corner
    -325 0 rlineto stroke } def
 /LD192 { butt 325 950 moveto 325 300 lineto % single line lower right corner
    720 300 lineto stroke } def
 /LD193 { butt 325 300 moveto 325 950 lineto % single line t piece
    0 300 moveto 720 0 rlineto stroke } def
 /LD194 { butt 325 -250 moveto 325 300 lineto % single line t piece
    0 300 moveto 720 0 rlineto stroke } def
 /LD195 { butt 325 -250 moveto 325 950 lineto % single line right junction
    325 300 moveto 720 300 lineto stroke } def
 /LD196 { butt 0 300 moveto 720 0 rlineto stroke } def
 /LD197 { butt 325 -250 moveto 325 950 lineto % single line crossover
    0 300 moveto 720 0 rlineto stroke } def
 /LD217 { butt 325 950 moveto 325 300 lineto % single line lower right corner
    -325 0 rlineto stroke } def
 /LD218 { butt 325 -250 moveto 325 300 lineto % single line top left corner
    720 300 lineto stroke } def
 /ALPHA { 504 448 moveto
    508 280 420 20 280 20 curveto
    56 20 56 440 280 440 curveto
    450 442 490 -240 590 130 curveto
    stroke } def
/BETA { 126 -130 moveto 180 350 lineto
   190 540 510 600 480 380 curveto
   470 310 380 280 280 280 curveto
   540 280 580 -90 180 50 curveto
   stroke } def
 /IOTA { 240 440 moveto 340 440 lineto 310 100 lineto
    300 10 380 10 420 60 curveto
    stroke } def
 /NOR { 100 520 moveto 325 130 lineto 550 520 lineto
    stroke tilde
  } def
 /ENCODE { 325 20 moveto 325 500 lineto
    110 500 moveto 540 500 lineto
    stroke } def
 /CIRCLE {325 300 220 ring
  } def
 /CIRCLESTILE { 325 300 220 ring stile
  } def
 /CIRCLEBAR { 325 300 220 ring bar
  } def
 /NAND { 125 130 moveto 325 520 lineto 525 130 lineto
    stroke tilde
  } def
 /SLASHBAR { 150 -100 moveto 500 700 lineto stroke bar
  } def
 /DEL { del
  } def
 /CIRCLESLOPE { 325 300 220 ring 150 700 moveto 500 -100 lineto stroke
  } def
 /EPSILON { 490 460 moveto
    30 460 70 20 360 20 curveto
    490 20 lineto
    145 240 moveto 250 0 rlineto
    stroke } def
 /UPSHOE { 160 40 moveto 160 372 lineto
    160 580 490 580 490 372 curveto
    490 40 lineto
    stroke } def
 /DELTAUNDERBAR { 325 630 moveto 126 20 lineto 524 20 lineto
    closepath stroke usc } def
 /GE { 135 530 moveto 515 350 lineto 135 170 lineto
    135 50 380 sf
    stroke
  } def
 /LE { 515 530 moveto 135 350 lineto 515 170 lineto
    135 50 380 sf
    stroke
  } def
/LT { 515 480 moveto 135 300 lineto 515 120 lineto
   stroke } def
/EQUAL { 125 400 400 sf
   125 200 400 sf stroke } def
/GT { 135 480 moveto 515 300 lineto 135 120 lineto
   stroke } def
 /DIVIDE { 125 315 400 sf stroke
    325 515 60 dot 325 115 60 dot } def
 /JOT { 325 300 126 ring
  } def
 /OR { 100 520 moveto 325 130 lineto 550 520 lineto
    stroke
  } def
 /RHO { 126 -130 moveto 126 260 lineto
    126 550 476 550 476 260 curveto
    476 -70 126 -70 126 260 curveto
    stroke } def
 end                      % ... of character defs
  
 /BuildChar               % Stack: font-dict, char
   { 720 0                % char width
     0 -250 720 950       % bounding box
     setcachedevice
     1 setlinecap 1 setlinejoin
     40 setlinewidth
     newpath
     exch begin           % i.e. font begin
       Encoding exch get
       CharProcs exch get
       exec
     end
   } def                                    
 end                                  % of newfont
 /APL-2741 newfont definefont pop     % Register it!

