FGH 2000 Series - Page 18

SERIES 2000 COMMUNICATIONS MANUAL 17
M41 Issue 1.1
5040 IF (LEFT$(VALUE$,1))>"-" THEN VALUE$=RIGHT$(VALUE$,4)
5050 PRINT TAB(48)" = ";
5060 IF (RX$="TIMEOUT") OR (LEFT$(RX$,1)<>"*") THEN GOTO 5090
5070 PRINT VAL(VALUE$)/PRMMUL(I);PRMUNITS$(I);" ";
5080 GOTO 5100
5090 PRINT " ERROR"SPACE$(10);
5100 LOCATE CSRLIN,1:PRINT " ";
5110 RETURN
6000 REM ***** ERROR HANDLER *************
6010 GOSUB 13000 'Position cursor
6020 PRINT " Error Type " ERR "At line "ERL
6030 LOCATE CURY,CURX:RESUME NEXT
7000 REM ***** WRITE TO CONTROLLER ******
7010 GOSUB 13000 'Position cursor
7020 PRINT "Write Parameter ? ";
7030 WPRAM$=INKEY$:IF LEN(WPRAM$)=0 THEN 7030
7040 PRINT WPRAM$;
7050 LINE INPUT;" New Data [-]NNNN ";WDAT$
7060 WTX$="W"+ADDRESS$+WPRAM$+WDAT$
7070 PRINT #1,WTX$+CHR$(13);
7080 GOSUB 8000 'GET RESPONSE RX$
7090 PRINT " "WTX$" = "RX$;
7100 LOCATE CURY,CURX
7110 RETURN
8000 REM ***** GET RESPONSE RX$ *****
8010 RX$="":IN$=""
8020 TIMLIMIT=300 'TIMEOUT LIMIT
8030 TIM=0:TIMOUT=0:RXEND=0
8040 WHILE (RXEND=0) AND (TIMOUT=0)
8050 WHILE NOT EOF(1)
8060 IN$=INPUT$(1,#1)
8070 IF IN$=CHR$(13) THEN RXEND=1 ELSE RX$=RX$+IN$
8080 TIM=0
8090 WEND
8100 TIM=TIM+1
8110 IF TIM>TIMLIMIT THEN TIMOUT=1
8120 WEND
8130 IF TIMOUT <>0 THEN RX$="TIMEOUT"
8140 RETURN
9000 REM *******BREAK - KEY 10 ************
9010 LOCATE 23,1:END
10000 REM ***** CHANGE ADDRESS ***********
10010 GOSUB 13000 'Position cursor
10020 LINE INPUT;" New Address NN ";ADDRESS$
10030 LOCATE CURY,CURX
10040 RETURN
11000 REM ***** PAUSE **********************
11010 GOSUB 13000 'Position cursor
11020 PAUSED=1:PRINT " ** Paused ** "
11030 LOCATE CURY,CURX:RETURN
12000 REM ***** CONT ***********************
12010 GOSUB 13000 'Position cursor
12020 PAUSED=0:PRINT " ** Continue ** "
12030 LOCATE CURY,CURX:RETURN
13000 REM ***** TALK WITH OPERATOR *******
13010 CURX=POS(0):CURY=CSRLIN 'Current curser posn
13020 LOCATE 22,2:PRINT STRING$(77,32):LOCATE 22,2
13030 RETURN