程序如下,(程序不是我编的,是个老外编的,我工作中用到它),我才开始学basic不久(因为要用才现学的),就看了一本谭浩强的<<QBASIC语言教程>>第二版,从头看到尾,但这本书没怎么介绍涉及硬件端口的语句函数等,所以以下程序我没太看懂(看了basic的关于语句函数的帮助也没太懂),
求助各位大虾,帮忙分析分析,以下程序各个语句以及整体都是干什么用的啊,都什么意思啊??对于您的帮助,非常感谢
SUB findportadd
DEF SEG = 0
CLS
prnport% = 0
FOR q% = 1 TO 4
prnport% = prnport% + (PEEK(1036 - q%) * (256 ^ (4 - q%)))
NEXT q%

statport% = prnport% + 1
ctrlport% = prnport% + 2

prnportval% = INP(prnport%)
statportval% = INP(prnport% + 1)
ctrlportval% = INP(prnport% + 2)

DEF SEG

END SUB