Microsoft quick basic program – Max Machinery 120 FLOW RATE & TOTAL INDICATOR User Manual

Page 30

Page 30

PRINT
PRINT “ 1 = PORT 1”
PRINT “ 2 = PORT 2”
PRINT : PRINT “ PICK COMMUNICATION PORT OPTION - “: SELECT$ = INPUT$(1)
REM CHECK FOR VALID KEY
PORTSEL = VAL(SELECT$): IF PORTSEL = 0 OR PORTSEL > 2 THEN GOTO PORT
ON PORTSEL GOSUB PORT1, PORT2
GOSUB SETCOMM
RETURN

PORT1:

REM*****SET PORT 1 ADDRESS*****
COMPORT$ = “COM1:”: PT = &H3FC: PT1 = &H3FD
RETURN

PORT2:

REM*****SET PORT 2 ADDRESS*****
COMPORT$ = “COM2:”: PT = &H2FC: PT1 = &H2FD
RETURN

SETCOMM:

REM*****ASSEMBLE COMM$*****
COMM$ = COMPORT$ + BAUD$ + “,” + PARITY$ + “,” + BITS$ + “,,RS”
RETURN

SENDCOMM:

IF INITFLAG = 1 THEN
KEY(2) ON
CLS
END IF
A$ = “”
INITFLAG = 0
LOCATE , , 1: PRINT
PRINT “ ENTER COMMUNICATION COMMAND - (E = EXIT TO MENU): “;

ENTKEY:

SEND$ = INPUT$(1)
SEND$ = UCASE$(SEND$)
R = CSRLIN: C = POS(0)
IF ASC(SEND$) = 8 THEN
IF LEN(A$) > 0 THEN
A$ = LEFT$(A$, LEN(A$) - 1)
LOCATE , C - 1: PRINT “ “; : LOCATE , C - 1
END IF
GOTO ENTKEY
END IF
REM*****IF A “PERIOD” IS IN THE STRING CHANGE IT TO COMMA*****
IF SEND$ = “.” THEN
A$ = A$ + “,”
PRINT “.”; : LOCATE , , 1
GOTO ENTKEY
END IF
IF ASC(SEND$) <> 13 THEN
A$ = A$ + SEND$: PRINT SEND$; : LOCATE , , 1
GOTO ENTKEY
END IF
IF A$ = “” THEN
IF BUFF$ = “” THEN RETURN
END IF
CLS
REM*****CHECK FOR EXIT TO MAIN MENU*****

MICROSOFT QUICK BASIC PROGRAM