NEW
10 REM SIODEMO.BAS
20 REM READ SIO-1000 ON PORT 2
30 REM CHANGE TO SERIAL PORT 2
40 SELPORT2=9600
50 REM READ SIO ANALOG INPUT 0
60 PRINT "A";CHR(13);
70 PAUSE 50
80 REM CHANGE TO SERIAL PORT 1
90 SELPORT1=9600
100 REM ZERO OUT DECIMAL VALUE
110 V=0
120 REM GET 6 CHARS FROM BUFFER
130 FOR C=1 TO 6
140 REM GET CHAR FROM BUFFER
150 I=INKEY
160 REM CONVERT HEX CHAR TO DEC
170 IF I>=65 GOTO 190
180 I=I-48:GOTO 200
190 I=I-55
200 REM BUILD DECIMAL VALUE
210 IF C=2 THEN V=V+(I*256)
220 IF C=3 THEN V=V+(I*16)
230 IF C=4 THEN V=V+I
240 NEXT C
250 PRINT V
260 GOTO 10