Post using your bad English pet peeve.

Biden is going to loose the next election.
Good, he needs to loose it


All quite on the Western Front!
Wait for the red badge of kerage.

to-too-two used incorrectly
You stuttering?

Your an idiot.
I now you are but whut am I?

Its going to rain!
Who cars?

I payed the bill.
Whut bill?
 
At least when I make a grammar mistake in this language, my app won't work.

c-plus-plus_code-100790020-large.jpg
 
At least when I make a grammar mistake in this language, my app won't work.

View attachment 695935
I do it in this one.

$COMPILE EXE

DEFINT a-z

clp$ = COMMAND$

IF RTRIM$(clp$) = "" THEN

CLS

PRINT

PRINT "USAGE:"

PRINT "PHONLTR + The letters or words comprising the phone number."

PRINT "EXAMPLE: PHONLTR deliver"

PRINT

END

END IF



strlen% = LEN(clp$)

IF LEFT$(clp$,1) = "1" THEN clp$ = RIGHT$(clp$,strlen%-1)



FOR j% = 1 TO LEN(clp$)

letter$ = MID$(clp$,j%,1)

get_number letter$

NEXT



result$ = RTRIM$(result$)



SELECT CASE LEN(result$)

CASE 7

result$ = LEFT$(result$,3)+"-"+RIGHT$(result$,4)

CASE 10

result$ ="1-"+ LEFT$(result$,3)+"-"+MID$(result$,4,3)+"-"+RIGHT$(result$,4)

CASE ELSE

FOR j% = 1 TO LEN(result$)

t$ = MID$(result$,j%,1)

IF j% <> LEN(result$) THEN

target$ = target$+t$+"-"

ELSE

target$ = target$+t$

END IF

NEXT

result$ = target$

PRINT "The phone letters used generate a non-standard phone number length."

END SELECT



PRINT

PRINT "The number is ";result$

PRINT "--------------"+STRING$(LEN(result$),"-")



END



SUB get_number(letter$)



SHARED result$

letter$ = UCASE$(letter$)



SELECT CASE letter$

CASE "-"

EXIT SUB

CASE "1","2","3","4","5","6","7","8","9","0"

number$ = letter$

CASE "A","B","C"

number$ = "2"

CASE "D","E","F"

number$ = "3"

CASE "G","H","I"

number$ = "4"

CASE "J","K","L"

number$ = "5"

CASE "M","N","O"

number$ = "6"

CASE "P","Q","R","S"

number$ = "7"

CASE "T","U","V"

number$ = "8"

CASE "W","X","Y","Z"

number$ = "9"

CASE ELSE

number$ = number$

END SELECT

result$ = result$ + number$

EXIT SUB



END SUB
 
How about people who get locked into using that wonderful little phrase: "Know what I mean..."

Over, and over, and...
 

Forum List

Back
Top