GE GFK-0804B manual Sample Basic Program

B

HSample BASIC Program

100 DIM BUF% (16)

200	PORT%	=	1	REM Port±COM2
210	MEMTYPE%	=	0	REM Analog Input
220	ADDR%	=49		REM Start Address±49
230	COUNT%	=16		REM Length±16 Registers

240CALL BASRreg (PORT%, MEMTYPE%, ADDR%, COUNT%, BUF%(1), ERRSTAT%)

250IF ERRSTAT% <>0 THEN GOTO 900

300	PORT%	=	0	REM Port±COM1
310	MEMTYPE%	=	0	REM Discrete Input
320	ADDR%	=33		REM Start Address±33
330	COUNT%	=16		REM Length±16 Bits
340	BUF$	=SPACE$ (16)

350CALL BASRbit (PORT%, MEMTYPE%, ADDR%, COUNT%, BUF$, ERRSTAT%)

360IF ERRSTAT% <>0 THEN GOTO 900

370FOR I% = 1 TO 16

380 TEMP$=MID$ (BUF$, I%, 1)

390IF TEMP$=ª1º THEN PRINT ªONº ELSE PRINT ªOFFº

400NEXT I%

900

B-14 Micro PLC Programmer's Guide ± Aptil 1994 GFK-0804B