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

Page 102
Image 102
GE GFK-0804B manual Sample Basic Program