Dennis, try this….
1 DATA 46,72,47,105,49,68,50,101,51,110,52,110,53,105,54,115,55,44,57,87,58
2 DATA 97,59,116,60,99,61,104,63,116,64,104,65,105,66,115,68,115,69,112,70
3 DATA 111,71,116,72,33,177,154,181,155,179,0
4 X=26:CLS:FORA=1TOX:READB,C:PRINT@B,CHR$(C);:NEXT:Q$=INPUT$(1)