$INCLUDE "BIOSPORT.INC" $INCLUDE "MEMORY.INC" $LINK "BIOSPORT.PBU" GetCursor 0, Bottom%, Top%, Column%, Row% PutStr Column%, Row%, "Base memory:" + STR$(Memory) + "KB" + CHR$(10, 13), 1, 10, 0 GetCursor 0, Bottom%, Top%, Column%, Row% PutStr Column%, Row%, CHR$(10, 13), 1, 10, 0 GetCursor 0, Bottom%, Top%, Column%, Row% PutStr Column%, Row%, "Port adresses:" + CHR$(10, 13), 1, 10, 0 GetCursor 0, Bottom%, Top%, Column%, Row% PutStr Column%, Row%, "COM1:" + STR$(PortAddress(%COM1)) + CHR$(10, 13), 1, 10, 0 GetCursor 0, Bottom%, Top%, Column%, Row% PutStr Column%, Row%, "COM2:" + STR$(PortAddress(%COM2)) + CHR$(10, 13), 1, 10, 0 GetCursor 0, Bottom%, Top%, Column%, Row% PutStr Column%, Row%, "COM3:" + STR$(PortAddress(%COM3)) + CHR$(10, 13), 1, 10, 0 GetCursor 0, Bottom%, Top%, Column%, Row% PutStr Column%, Row%, "COM4:" + STR$(PortAddress(%COM4)) + CHR$(10, 13), 1, 10, 0 GetCursor 0, Bottom%, Top%, Column%, Row% PutStr Column%, Row%, "LPT1:" + STR$(PortAddress(%LPT1)) + CHR$(10, 13), 1, 10, 0 GetCursor 0, Bottom%, Top%, Column%, Row% PutStr Column%, Row%, "LPT2:" + STR$(PortAddress(%LPT2)) + CHR$(10, 13), 1, 10, 0 GetCursor 0, Bottom%, Top%, Column%, Row% PutStr Column%, Row%, "LPT3:" + STR$(PortAddress(%LPT3)) + CHR$(10, 13), 1, 10, 0 GetCursor 0, Bottom%, Top%, Column%, Row% PutStr Column%, Row%, "LPT4:" + STR$(PortAddress(%LPT4)) + CHR$(10, 13), 1, 10, 0