53280,0:53281,0:30000?" PLEASE WAIT"l:" WHILE I SET UP CHARACTER TABLE"x(142) 52,48:56,48:56334,(56334)2541,(1)251(I0511:I12288,(I53248):21,(1)4<56334,(56334)1 A4,6:3,6,3:2,6,2:3,0:2,0& F70001 PZPC8< ZX18O _N(X12287Z)r N128NN128:B(X,1)1:1020 B(X,1)0 N 64NN 64:B(X,2)1:1030 B(X,2)0 N 32NN 32:B(X,3)1:1040 B(X,3)0 N 16NN 16:B(X,4)1:1050 B(X,4)02 N 8NN 8:B(X,5)1:1060? B(X,5)0b $N 4NN 4:B(X,6)1:1070o )B(X,6)0 .N 2NN 2:B(X,7)1:1080 3B(X,7)0 8N1NN1:B(X,8)1:2000 =B(X,8)0 X H1Z5 CCZ6 J11 J12 XWI11 V11C62 J11B(X,H)14,CS$;N B(X,H)14,CS$;:3025Z 4,C6$;m J11 4,C6$;u V1 X:4,"" J11J C12550 C0 H L X20000 ]"(ANY LETTERS NUMBERS & MOST PUNCTUATION)"# ^"ENTER BANNER STATEMENT";Q$9 _" STANDBY"H bL1(Q$)Z lP1$(Q$,L,1)u vW$,I:W$"-1":7030 W$P1$PCI:80 7030 '"A",1,"B",2,"C",3,"D",4,"E",5,"F",6,"G",7,"H",8,"I",9,"J",10,"K",11( '"L",12,"M",13,"N",14,"O",15,"P",16,"Q",17,"R",18,"S",19,"T",20,"U",21s $'"V",22,"W",23,"X",24,"Y",25,"Z",26,"[",27,"\",28,"]",29,"^",30,"_",31 .'" ",32,"!",33,"'",39,"#",35,"$",36,"%",37,"&",38,"'",39,"(",40,")",41 8'"*",42,"+",43,",",44,"-",45,".",46,"/",47,"0",48,"1",49,"2",50,"3",51TB'"4",52,"5",53,"6",54,"7",55,"8",56,"9",57,":",58,";",59,"<",60,"=",61L'">",62,"?",63,"6",54,"7",55,"8",56,"9",57,":",58,";",59,"<",60,"=",61V'"-1",-1 N53281,6: " (RETURN =  )"!N"ENTER BASE CHARACTER";BC$:BC$""BC$""P"NBC(BC$):"";:53281,0:" SELECT CHARACTER SIZE"]#N""q%N" **"&N" ****"'N" ****"(N" ** ** *")N" ** ** ***"*N" ****** ** ** *"%+N" ** ** ***** * *"L,N" ** ** ** ** ***"s-N" ** ** ** ** * *"y.N/N" 1 2 3"0N::::::1NCS$:CS(CS$):CS$""200172NCS1CS3"OUT OF RANGE":200173N"":53281,614N50000:CS21000,22000,23000@R**C6=TALL|RCS$(BC):Z58:Z61:WI8:C64:C6$" ":24000: C6 WAS 4UCS$(BC):Z58:Z61:WI8:C62:C6$" ":24000YCS$(BC):Z58:Z62:WI8:C61:C6$" ":24000]0u"" 1uM)"***** ** ** ** ** ** **** ****"T2uM)"****** **** ** ** ** ** **** ** **";3uM)"** ** ** ** *** ** *** ** ** ** **";4uM)"***** ****** **** ** **** ** *** ** **";5uM)"***** ****** ** **** ** **** *** ****""6uM)"** ** ** ** ** *** ** *** ** ** **";V7uM)"****** ** ** ** ** ** ** **** ** **";8uM)"***** ** ** ** ** ** ** **** ** **";9u"BY J. BLESSING 2/23/84":u"MODIFIED FOR USE WITH 1520 ON 3/19/87"DuTM11500:TM:"":PÙ"":"SELECT DENSITY:"9ZÙ" 1 40 COLUMN"TdÙ" 2 80 COLUMN"ynÙ"NOTE: 40 COLUMN:FAST PRINT"xÙ" 80 COLUMN:DARKER,TAKES LONGER"Ù" (BOTH ARE SAME SIZE)"áD1$:D1$"1"D1$"2"50070É50060 ËD1$"1"J10:3,1"ËD1$"2"J11:3,0H8Ǚ"":53281,11: "SELECT COLOR:"bBǙ" 0 BLACK"yLǙ" 1 BLUE"VǙ" 2 GREEN"`Ǚ" 3 RED"jǡZ10$:Z10(Z10$):Z10$""51050tNjZ10051050yNjZ10351050 ~ǘ2,Z10:"":53281,14`