E Q R Q T O W Y T E T I O U O E W E

The unfortunate nature of the keyboard is that zero is higher than nine. But, that's the way it goes.

list
    5   point 15
   10   A=str(atan(1)*4)
   20   print A
   30   for I=1 to len(A)
   35    if mid(A,I,1)<>" " and mid(A,I,1)<>"." then
   40    :J=val(mid(A,I,1))
   50    :print mid("PQWERTYUIO",J+1,1);
   55   :else print " ";
   60   next
   70   print
OK
run

 3.141592653589793238462643383279502884197169399375105820974944592307816404
 E QRQTOWYTETIOUOEWEIRYWYREEIEWUOTPWIIRQOUQYOEOOEUTQPTIWPOURORRTOWEPUIQYRPR

A code based on the numerical sequence 0-9 = Q...P would look like this:

list
    5   point 15
   10   A=str(atan(1)*4)
   20   print A
   30   for I=1 to len(A)
   35    if mid(A,I,1)<>" " and mid(A,I,1)<>"." then
   40    :J=val(mid(A,I,1))
   50    :print mid("QWERTYUIOP",J+1,1);
   55   :else print " ";
   60   next
   70   print
OK
run

 3.141592653589793238462643383279502884197169399375105820974944592307816404
 R WTWYPEUYRYOPIPREROTUEUTRROREIPYQEOOTWPIWUPRPPRIYWQYOEQPITPTTYPERQIOWUTQT

which has "PI" (97) spelled out three times in the 72 positions after the decimal point.