Alan Cave wrote:

>> if anyone knows how to get LPT addresses using QBASIC
>> on any computer running DOS or non-NT windows I would
>> be very interested in the exact code to do that.

Hi Alan,

(re: getting LPT addresses programmatically on non-Win NT based machines)

This should get you going again -- you probably did something like this
yourself since you said you were able to do this in the past. I had
reservations about answering the original poster's thread because I feel
that his time would be better spent learning a new language. I'm not trying
to be holier than anyone here -- it sounds like he will be learning C. This
will be very good for his skill set. I'm wondering if people are still
getting paid doing QBASIC/QuickBasic work out there.

I dug this snippet out of an old project I had done. It's been lifted out of
context so you will have to declare the variables used in the snippet. It's
from a Visual Basic for DOS 1.0 project I wrote, but should work with QBASIC
or QuickBasic 4.5. Gosh, I have not used this stuff in years and I don't
miss it one bit -- but VBDOS was fun compared to QuickBasic 4.5!

I look back at this code and it is embarrassing! Look at all of those
hard-coded constants, global variables, and worst of all, no comments!
Definitely nothing to be proud of. Not a good way to write code, but I was
young and wet behind the ears. Twenty lashes with a wet noodle for me and a
fish around the neck!

Hope this helps you out.

Best regards,

Ken Pergola



(snippet taken out of context of entire project)


DefInt A-Z

    DEF SEG = 64
    LPT1_Base = PEEK(8) + (PEEK(9)) * 256
    LPT2_Base = PEEK(10) + (PEEK(11)) * 256
    LPT3_Base = PEEK(12) + (PEEK(13)) * 256

    Open "PORTS.INI" For Output As #1
    Print #1, Right$("000" + Hex$(LPT1_Base), 3)
    Print #1, Right$("000" + Hex$(LPT2_Base), 3)
    Print #1, Right$("000" + Hex$(LPT3_Base), 3)
    Close #1
End

--
http://www.piclist.com#nomail Going offline? Don't AutoReply us!
email listserv@mitvma.mit.edu with SET PICList DIGEST in the body