PHONE LETTERS.bas.basd_PARCDA))CAlb`TEXTSmBaH@p@p`lnch1.0	PHONE LETTERS.basH  6YETFX5P	M劥bs, sparecarkey,HTHT~BT~VT
T&
R<
SMain%U_(U` UXU_(U```' PhoneLetters.bas
PEN ON
OPEN "phoneno" FOR OUTPUT AS #1 
1 CLS: AT 0, 150: ? CAT(87); "Input Letters:"
AT 4, 269: ? "END     CLEAR    SAVE"
RECT 2, 306, 50, 262
RECT 60, 306, 140, 262
RECT 150, 306, 218, 262
x = 5
4 WHILE 1
z = inkey
'z = LCASE$(y) 
IF z = "l" 
GOTO 4
ELIF LEN(z) 
AT x, 190: ? z
x = x + 20
FI
IF z = "a" OR z = "b" OR z = "c" 
AT x-20, 220: ? "2": ? #1,"2";
ELIF z = "d" OR z = "e" OR z = "f"
AT x-20, 220: ? "3": ?  #1,"3";
ELIF z = "g" OR z = "h" OR z = "i"
AT x-20, 220: ? "4": ? #1,"4";
ELIF z = "j" OR z = "k" OR z = "L"
AT x-20, 220: ? "5": ? #1,"5";
ELIF z = "m" OR z = "n" OR z = "o"
AT x-20, 220:? "6": ? #1,"6";
ELIF z = "p" OR z = "q" OR z = "r" OR z = "s"
AT x-20, 220: ? "7": ? #1,"7";
ELIF z = "t" OR z = "u" OR z = "v"
AT x-20, 220: ? "8": ? #1,"8";
ELIF z = "w" OR z = "x" OR z = "y" OR z = "z"
AT x-20, 220: ? "9": ? #1,"9";
ELIF PEN(1)>58 AND PEN(1)<134 AND PEN(2)>262 AND PEN(3)=1 THEN
RECT 58, 306, 134, 262 COLOR 0 FILLED
DELAY 100: GOTO 1
ELIF PEN(1)>4 AND PEN(1)<42 AND PEN(2)>262 AND PEN(3)=1
RECT 3, 306, 48, 262 COLOR 0 FILLED
DELAY 100: CLS
AT 0, 210: ? CAT(87); "'UserFile' DELETED"
GOTO 3
ELIF PEN(1)>144 AND PEN(1)<216 AND PEN(2)>262 AND PEN(3)=1
RECT 144, 304, 216, 264 COLOR 0 FILLED
DELAY 100: CLS: AT 0, 210
? CAT(87); "OUTPUT SAVED TO 'UserFile'"
GOTO 2
ELSE : ? #1, z;
FI
WEND
3 CLOSE #1
KILL "phoneno"
PEN OFF: END
2 CLOSE #1
PEN OFF
1
PEN OFF
F
OFF
L "phoneno.bas"
2 END

PRINT z(n);
FI
NEXT
CLOSE #1
GOTO 1
3 KILL "phoneno.bas"
2 END

 = "V" OR z(n) = "v"
PRINT #1,"8";
PRINT "8";
ELSEIF z(n) = "W" OR z(n) = "w"
PRINT #1,"9";
PRINT "9";
ELSEIF z(n) = "X" OR z(n) = "x"
PRINT #1,"9";
PRINT "9";
ELSEIF z(n) = "Y" OR z(n) = "y"
PRINT #1,"9";
PRINT "9";
ELSEIF z(n) = "Z" OR z(n) = "z"
PRINT #1,"9";
PRINT "9";
ELSE
PRINT #1, z(n);
PRINT z(n);
FI
NEXT
CLOSE #1
GOTO 1
3 KILL "phoneno.bas"
2 END

    Source: geocities.com/renwand