5 dim S(7)
   6 dim J(9),F(9)
  10 input "HORIZONTAL";X
  20 input "VERTICAL";Y
  21 input "CENTERED";L$
  22 G1=0 : if L$>"P" then G1=1
  23 input "CHARACTER (TYPE 'ALL' IF YOU WANT CHARACTER BEING PRINTED)";M$
  29 print "STATEMENT";
  30 input A$
  35 input "SET PAGE";O$
  40 A=ASC(LEFT$(A$,1))
  50 rem
  60 rem
  70 for T=1 to LEN(A$)
  80   P$=MID$(A$,T,1)
  90   for O=1 to 42
  95     read S$,S(1),S(2),S(3),S(4),S(5),S(6),S(7)
  96     if P$=" " then goto 812
 100     if P$=S$ then goto 200
 120   next O
 200   restore
 201   X$=M$
 202   if M$="ALL" then X$=S$
 203   
 205   for U=1 to 7
 210     for K=8 to 0 step -1
 230       if 2^K<S(U) then goto 270
 240       J(9-K)=0
 250       goto 280
 270       J(9-K)=1 : S(U)=S(U)-2^K
 272       if S(U)=1 then goto 815
 280     next K
 445     for T1=1 to X
 447       print tab((63-4.5*Y)*G1/(LEN(X$))+1);
 450       for B=1 to F(U)
 460         if J(B)=0 then goto 500
 465         for I=1 to Y : print X$; : next I
 470         goto 600
 500         for I=1 to Y
 510           for I1=1 to LEN(X$)
 520           print " "; : next I1
 530         next I
 600       next B
 620       print
 630     next T1
 700   next U
 750   for H=1 to 2*X : print : next H
 800 next T
 806 for H=1 to 75 : print : next H
 810 end
 812 for H=1 to 7*X : print : next H
 813 goto 800
 815 F(U)=9-K : goto 445
 899 data " ",0,0,0,0,0,0,0
 900 data "A",505,37,35,34,35,37,505
 901 data "G",125,131,258,258,290,163,101
 902 data "E",512,274,274,274,274,258,258
 903 data "T",2,2,2,512,2,2,2
 904 data "W",256,257,129,65,129,257,256
 905 data "L",512,257,257,257,257,257,257
 906 data "S",69,139,274,274,274,163,69
 907 data "O",125,131,258,258,258,131,125
 908 data "N",512,7,9,17,33,193,512
 909 data "F",512,18,18,18,18,2,2
 910 data "K",512,17,17,41,69,131,258
 911 data "B",512,274,274,274,274,274,239
 912 data "D",512,258,258,258,258,131,125
 913 data "H",512,17,17,17,17,17,512
 914 data "M",512,7,13,25,13,7,512
 915 data "?",5,3,2,354,18,11,5
 916 data "U",128,129,257,257,257,129,128
 917 data "R",512,18,18,50,82,146,271
 918 data "P",512,18,18,18,18,18,15
 919 data "Q",125,131,258,258,322,131,381
 920 data "Y",8,9,17,481,17,9,8
 921 data "V",64,65,129,257,129,65,64
 922 data "X",388,69,41,17,41,69,388
 923 data "Z",386,322,290,274,266,262,260
 924 data "I",258,258,258,512,258,258,258
 925 data "C",125,131,258,258,258,131,69
 926 data "J",65,129,257,257,257,129,128
 927 data "1",0,0,261,259,512,257,257
 928 data "2",261,387,322,290,274,267,261
 929 data "*",69,41,17,512,17,41,69
 930 data "3",66,130,258,274,266,150,100
 931 data "4",33,49,41,37,35,512,33
 932 data "5",160,274,274,274,274,274,226
 933 data "6",194,291,293,297,305,289,193
 934 data "7",258,130,66,34,18,10,8
 935 data "8",69,171,274,274,274,171,69
 936 data "9",263,138,74,42,26,10,7
 937 data "=",41,41,41,41,41,41,41
 938 data "!",1,1,1,384,1,1,1
 939 data "0",57,69,131,258,131,69,57
 940 data ".",1,1,129,449,129,1,1
1000 stop
1002 end