Tegam 3550 - Page 104

5-24
3550 LCR Meter Instruction Manual Programming and Interfacing
RS-232C
Sample programs for RS-232C
SAMPLE.BAS
1000 REM sample.bas
1010 OPEN "COM:N81" AS #1 : CLS
1030 ON COM GOSUB *RECIEVE
1040 COM ON:KAN = 0
1050 '
1055 *LABEL
1060 GOSUB *WAIT10
1070 IF KAN = 0 THEN GOTO *LABEL
1080 '
1100 *LABEL2
1110 PRINT#1,"VER"
1115 F = 0
1120 GOSUB *WAIT10
1125 IF F = 0 THEN GOTO 1120
1130 PRINT "end"
1140 COM OFF
1150 END
1160 '
1170 *RECIEVE
1180 IF LOC(1) <> 0 THEN GOTO 1200
1190 GOTO 1290
1200 GOSUB *WAIT10
1210 W$ = INPUT$(LOC(1),#1)
1220 D$ = LEFT$(W$,6):F = 1
1230 IF(D$ = "3550" AND KAN = 0)THEN GOTO 1260
1240 PRINT LEFT$(W$,LEN(W$)-3)
1250 GOTO 1290
1260 PRINT#1,"E3 REN O1"
1270 PRINT D$
1280 KAN = 1:GOSUB *WAIT10
1290 RETURN
1299 '
1300 *WAIT10
1310 FOR I=0 TO 1000:NEXT I
1320 RETURN