Measurement Computing Serial488A - Manual (Page 84)

A.1
Sample Programs
10 REM *** DUMB TERMINAL PROGRAM FOR THE Serial488A
20 REM *** Running under IBM Basica
30 REM *** This Program allows direct interaction between the
40 REM *** IBM-PC and an IEEE bus device through the Serial488A.
50 REM *** The Serial488A must be configured as the IEEE bus
60 REM *** controller and have talk back on terminator enabled.
70 REM ***
80 REM ***
90 REM ***
100 CLS
110 ' Open the serial communications port and set the serial parameters
120 OPEN "COM1: 9600,n,8,2,cs,ds" AS 1
130 ' Display any characters received from the COM1 port
140 IF LOC(1) THEN PRINT INPUT$(LOC(1),1);
150 ' Transmit any key presses from keyboard to the COM1 port and to the screen
160 K$=INKEY$
170 PRINT #1,K$; : PRINT K$;
180 GOTO 140 ' Do it again