00090 print "Letter-Number Cypher Coder/Decoder"
00095 print
00110 print "Plaintext or cypher (Q to quit)";
00120 input u$
00130 if u$="q" or u$="Q" then stop
01010 for l=65 to 90
01020 print chr$(l)+ "  ";
01030 next l
01040 print
09900 goto 95
09999 end