10 X=2184
20 Y=PEEK(X):IFY>64ANDY<91THENPRINT"[153]"CHR$(Y);:GOTO40
30 PRINT".";
40 X=X+1:GETR$:IFR$<>""THEN60
50 GOTO20
60 IFR$="Q"THENEND
70 GETR$:IFR$=" "THEN20
80 GOTO60