BBS: Inland Empire Archive
Date: 10-30-92 (16:35) Number: 343
From: BOB PERKINS Refer#: NONE
To: EARL MONTGOMERY Recvd: NO
Subj: Re: Let's get some code b Conf: (2) Quik_Bas
EM> ways. I'll look your code over off-line. I'm sure I'll find improvements.
Not improvements, just different ways of doing things..
:-) DO..LOOP is one of my favorite structures.
Let me present an oddball sort of routine which I had to
write awhile back to read data from a serial device at
work. I had to poll com3 instead of using interrupt drive
communications. Change the addresses to work with a
IF (INP(&H3ED) AND 1) THEN
x% = INP(&H3E8)
IF x% = 10 THEN EXIT DO
z$ = z$ + CHR$(x%)
LOOP WHILE (INP(&H3ED) AND 1)
--- Msg V4.5
* Origin: Reciprocity Failure (1:124/4115.236)