Post using your bad English pet peeve.

I like hate when people like say like all the time.

And I can't stand when people use I as an object as in, My friend invited my wife and I to dinner. It's my wife and ME me not I
/----/ How about using "myself" to begin a sentence as in, "Myself and my friend went out for a beer."
 
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
Is that BASIC?

I haven't seen that in decades.
 
Is that BASIC?

I haven't seen that in decades.
Sort of. It's a compiler called power basic. I used it to write the software i used at my shop. 40,000 lines of code. Took a while. They have a website and offer a Windows version along with a dos version along with many other products.
 
Last edited:
Irregardless.....

That one kills me.


According to the dictionary people, this goes back to 1976.

Irregardless: Regardless
The American Heritage Dictionary of the English Language, Fifth Edition, 2018

Irregardless: In nonstandard or humorous use: regardless.
The Oxford English Dictionary, 2nd edition, 1976

Irregardless: without attention to, or despite the conditions or situation; regardless
Cambridge Dictionary (dictionary.cambridge.org), 2018


 

Forum List

Back
Top