10 A$="  Double-size Text"
100 LPRINTCHR$(27)"A"CHR$(8);:FORSE=0TO1:BI=2^(4*SE):CH=12*LEN(A$):LPRINTCHR$(27)"K"CHR$(CHAND255)CHR$(CH\256);
110 FORCH=1TOLEN(A$):CS=30320+5*ASC(MID$(A$,CH)):FORBY=1TO5:B=PEEK(CS+BY)
120 B=-3*((BAND8*BI)>0)-12*((BAND4*BI)>0)-48*((BAND2*BI)>0)-192*((BANDBI)>0):CALL5232,B:CALL5232,B
130 NEXTBY:LPRINTSTRING$(2,0);:NEXTCH:LPRINT:NEXTSE
140 LPRINT:LPRINTCHR$(27)"2";