'<PCODE "1BIGPRI">

<PACKAGE "BIGPRINT"> 

<ENTRY BIGPRINT 5X7-MASK> 

<SETG REP-PRINC  %<RSUBR!- '[ %<PCODE!- "1BIGPRI" 0> REP-PRINC #DECL ("VALUE" 
ANY ANY "OPTIONAL" FIX) OUTCHAN "" "
" " " "  " BAD-ASCII-CHARACTER 5X7 %<RGLOC 5X7TB T>]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,REP-PRINC PGLUE ![1073725440!]>> 


<SETG BIGPRINT %<RSUBR-ENTRY '[REP-PRINC BIGPRINT #DECL ("VALUE" STRING STRING 
"OPTIONAL" FIX FIX)] 36>> 

<SETG 5X7-MASK %<RSUBR-ENTRY '[REP-PRINC 5X7-MASK #DECL ("VALUE" FIX CHARACTER)]
226>> 

<SETG 5BY7MASKGEN %<RSUBR-ENTRY '[REP-PRINC 5BY7MASKGEN #DECL ("VALUE" FIX FIX 
FIX FIX FIX FIX FIX FIX)] 264>> 

"5x7 matrix for ASCII non-control characters" 

<GDECL (5X7TB) <UVECTOR [REST FIX]>> 

<SETG 5X7TB <UVECTOR 0 4433514500 11083448320 11105828170 4819720132 33053352547
4634990157 4433379328 2290360450 8726317192 720222880 5083136 12424 458752 396 
35791360 15623448110 4701950094 15603929375 15604057646 2360313922 33854359086 
15620589102 33321787920 15618065966 15621129774 415248768 415248520 71569472 
32537600 272699648 15605043204 498789824 15621670449 32801506878 15620129326 
32801080894 33840644639 33840644624 15620132398 18842895921 15170932878 
7550830126 18879498801 17734058527 19182175793 18850958897 15621211694 
32801505808 15621215821 32801506865 15620048430 33424543876 18842437166 
18842436932 18842437290 18834663985 18834657412 33357762847 6580998278 545392672
13023449228 4786884740 143630464 8726249472 15288941 17748772414 16269839 
1123599919 15261199 6753755400 14267438 17748772401 4299296900 2149648972 
17735177041 4433514638 29017649 23905841 15255086 23910928 13187139 23904784 
15218734 8888000806 18400877 18400580 18400938 18157905 18127000 32575775 
3359903875 138547328 25908285592 290521088 34359738367>> 

<ENDPACKAGE>