100  DIM A$[72],B$[72]
102  PRINT "ENTER: 1=72 CHARS; 2=118 CHARS 3=132 CHARS"
104  INPUT L9
105  GOTO L9 OF 110,110,110
106  GOTO 102
110  A$="!#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ["'92"]"
120  I=1
130  B$=A$[I,61]
140  IF I=1 THEN 155
150  B$[LEN(B$)+1,60]=A$[1,I-1]
155  GOTO L9 OF 158,162,170
158  PRINT  USING 159;B$,B$[1,12]
159  IMAGE 60A,12A
160  GOTO 180
162  PRINT  USING 163;B$,B$[1,58]
163  IMAGE 60A,58A
164  GOTO 180
170  PRINT  USING 171;B$,B$,B$[12]
171  IMAGE 60A,60A,12A
180  I=I+1
190  IF I<61 THEN 130
200  GOTO 120
210  END 
