1 CLS:CLEAR1000,MAXRAM:CLEAR:DEFSTRA-F:GOSUB12 2 CLS:OK$="N":PRINT@45,"What would you like printed ?":PRINT@205,"(Remember ALL caps and NO *'s)": PRINT@120,"";:INPUTE:X=LEN(E):IFX>23THENBEEP:PRINT@120,"Sorry, the maximum is 23 characters":GOTO3ELSEGOSUB7 3 PRINT@295,"MORE Y/n";:INPUTOK$:IFOK$="Y"OROK$="y"THEN2ELSEMENU 4 LPRINTCHR$(27);"A";CHR$(8);:X3=42+(X*21):IFX3<256THENX1=X3:X2=0ELSEX1=X3MOD256:X2=INT(X3/256) 5 FORZ=1TO4: LPRINTCHR$(07);"L";CHR$(X1);CHR$(X2):LPRINTF;:FORY=1TOX:LPRINTD(INSTR(A,MID$(E,Y,1)));B(0);:NEXT:LPRINTF:NEXT 6 LPRINTCHR$(27);"2";:LPRINT:RETURN 7 FORY=1TOX:W=INSTR(A,MID$(E,Y,1)):IFWMOD42=0THENY=X+5 8 NEXT:F=D(42)+B(0):GOSUB4:LPRINTSPACE$(2+X/2);E:RETURN 9 DIMA(2),B(2),D(44):A(0)=STRING$(4,X):A(2)=STRING$(3,V):B(0)=STRING$(2,X):B(2)=CHR$(V):PRINT@85,"Imagining code for":FORS=1TOLEN(A):PRINT@104,MID$(A,S,1):READZ:T=1:Y=T:X=0:FORW=0TO7:IFZANDTTHENX=X+1:D(S)=D(S)+A(Y+1)ELSED(S)=D(S)+B(Y+1) 10 Y=-Y:T=T+T:NEXT:IFX<3THEND(S)=D(S)+A(2)ELSED(S)=D(S)+B(2) 11 NEXT:RETURN:DATA9,12,13,24,25,28,72,73,76,88,66,42,67,162,33,36,37,48,49,52,96,97,100,112,129,132,133,144,145,148,192,193,196,208,3,6,7,18,19,22,70,82,138,168 12 A="1234567890-$.+ABCDEFGHIJKLMNOPQRSTUVWXYZ */%":X=0:V=255:GOSUB9:RETURN END