16
SERIES 2000 COMMUNICATIONS MANUAL
M41 Issue 1.1
APPENDIX A - BASIC COMMUNICATIONS PROGRAM
1000 REM DEMO PROGRAM FOR S2000 COMMUNICATIONS (GW-BASIC V3.23)
1010 ON ERROR GOTO 6000
1020 GOSUB 2000 'INITIALISE
1030 GOSUB 3000 'DRAW SCREEN
1040 WHILE PAUSED=0 'Main loop
1050 KEY (7) STOP:KEY (8) STOP
1060 FOR I=1 TO MAXPRM
1070 KEY (5) STOP:KEY (6) STOP
1080 LOCATE 5+I,1
1090 GOSUB 4000 'Send read question and get answer
1100 GOSUB 5000 'Display answer
1110 KEY (5) ON:KEY (6) ON
1120 NEXT I
1130 KEY (7) ON:KEY (8) ON
1140 WEND
1150 GOTO 1040
2000 REM ***** INITIALISE *************
2010 ON KEY (5) GOSUB 7000 : KEY (5) ON 'Write
2020 ON KEY (6) GOSUB 10000 : KEY (6) ON 'Address
2030 ON KEY (7) GOSUB 11000 : KEY (7) ON 'Pause
2040 ON KEY (8) GOSUB 12000 : KEY (8) ON 'Cont
2050 ON KEY (10) GOSUB 9000 : KEY (10) ON 'Break
2060 WHILE PRAM$(MAXPRM) <>"END"
2070 MAXPRM = 1
2080 READ PRAM$(MAXPRM)
2090 READ PRMCODE$(MAXPRM)
2100 READ PRMMUL(MAXPRM)
2110 READ PRMUNITS$(MAXPRM)
2120 WEND
2130 MAXPRM = MAXPRM-1
2140 OPEN "COM1:1200,O,7,1,DS0,CS0,CD0" AS #1
2150 ADDRESS$= "55" 'Initial controller address
2160 RETURN
2170 REM DATA TABLE. TEXT(18 MAX),PARAMETER LETTER,1/UNIT VALUE,UNITS
2180 DATA "MEASURED VALUE","A",1,"DEG"
2190 DATA "OUTPUT","B",10,"%"
2200 DATA "LOCAL SET POINT","C",1,"DEG"
2210 DATA "PROPBAND","D",10,"%"
2220 DATA "INT ACTION TIME","E",1,"SEC"
2230 DATA "DER ACTION TIME","F",1,"SEC"
2240 DATA "DER APPROACH BAND","G",10,"XP"
2250 DATA "END","",0,""
2260 RETURN
3000 REM ***** DRAW SCREEN ************
3010 SCREEN 0,0:WIDTH 80
3020 CLS
3030 KEY 5,"WRITE"
3040 KEY 6,"ADDR'S"
3050 KEY 7,"PAUSE"
3060 KEY 8,"CONT"
3070 KEY 9,""
3080 KEY 10,"QUIT"
3090 LOCATE 2,24
3100 PRINT "F:G:H S2000 SERIES COMMS DEMO"
3110 LOCATE 4,1
3120 PRINT TAB(4)"Parameter"TAB(23)"Question"TAB(33)"Answer" TAB(52)"Result"
3130 RETURN
4000 REM ***** READ AND GET ANSWER ***
4010 PRINT "->";
4020 TX$="R"+APRMCODE$(I)+CHR$(13)
4030 PRINT #1,TX$;
4040 GOSUB 8000 'GET RX$
4050 RETURN
5000 REM ***** DISPLAY QUESTION AND ANSWER
5010 PRINT TAB(4) PRAM$(I); 'Text parameter title
5020 PRINT TAB(23) "R"APRMCODE$(I);" = ";RX$ SPACE$(5);
5030 VALUE$=RIGHT$(RX$,5)
