>The point isn't what kind of non--QBasic software/software does one need to maintain a cell phone address book.
I figure one would look for the easiest or best solution to a problem rather than restricting oneself to QBASIC solutions.
>The point is to show what one can do with QBasic.
That didn't seem to be the point. The point seemed to be that you have trouble entering contacts into your cell phone, and came up with a "solution". You then decided to post the "solution", in part, to "help" others with the same "problem". I pointed out a solution which seems very probably better (depending on the user's circumstances).
I have no problem with writing useful utilities in QBASIC. But why ignore other solutions? Further, your "solution" does not seem especially helpful or necessary. It seems more of an exercise than a serious program.
>No. Do not continue on this thread
Are you telling me not to respond in that thread? That is stupid. You start a thread, then close it out of irrational paranoia? Afraid someone will criticize your "solution"?
You're not a QBASIC zealot, are you? Why else would you look for a QBASIC only solution, which by itself isn't so bad, but then jump on someone who offers a better solution to the "problem"? You think your "solution" is the best or only? Go jump in a lake, Mac. Were you seeking flattery? Your reaction to my post is illogical otherwise.
Even Clippy pointed out something noteworthy, that the "5" key has a raised bump. This is a useful fact. Was that post off topic, because it didn't flatter you? To answer Clippy, I think that allows non-blind people to use the keypad in darkness, with the screen being illuminated so they can read it, but they can't see the keypad.
my post was on topic. A "problem" was stated. I mentioned a possible solution.
Here is a QBASIC program which imitates Mac's, but designed for my cellphone. (As I stated, I have not yet read the manual... this is from just playing with it.) However, as I have no problem with seeing my keypad, this is a useless "solution" to a non-existent problem.
'public domain 2008 Michael Calkins
DIM mode, cap, n, i, first, num, times, a
DIM t AS STRING, z AS STRING * 53
LINE INPUT "Text? "; t
IF LEN(t) = 0 THEN EXIT DO
mode = 0
cap = -1
first = -1
FOR i = 1 TO LEN(t)
n = ASC(MID$(t, i, 1))
IF n = &H20 THEN
PRINT "#", ;
IF mode = 0 THEN cap = -1
first = -1
SELECT CASE n
CASE &H61 TO &H7A
IF cap THEN
PRINT STRING$(2 - mode, &H2A);
mode = 2
cap = 0
CASE &H41 TO &H5A
n = n OR &H20
IF NOT cap THEN
IF first THEN
PRINT STRING$(3 - mode, &H2A);
mode = 0
PRINT STRING$((4 - mode) MOD 3, &H2A);
mode = 1
cap = -1
num = 0
times = 0
FOR a = 1 TO 54
IF a = 54 THEN PRINT : PRINT "invalid": EXIT DO
times = times + 1
SELECT CASE ASC(MID$(z, a, 1))
CASE n: EXIT FOR
CASE &H20: num = num + 1: times = 0
PRINT STRING$(times, num + &H30); ,
IF mode = 0 THEN cap = 0
first = 0
I will write a pure assembly version when I get a chance, so as to provide another non-QBASIC "solution" to this "problem". Mac can choke on it.
This message has been edited by MCalkins on Apr 8, 2008 1:52 PM