ICS ELECTRONICS 4863 Manual page 39

100
110
120
130
140
150
160
170
180
2 190
200
210
220
230
240
250
260
270
280
290
300
310
320
330
340
350
360
370
380
390
400
410
420
430
440
450
460
470
480
490
500
510
Figure 2-2
REM 4863 COMMAND ENTRY / READOUT PROGRAM
PRINT ""
PRINT ""
PRINT "4863 COMMAND ENTRY PROGRAM"
DIM A$[100]
DIM B$[200]
Devadr=4
Adr=704
ON TIMEOUT 7,5 GOTO 820
ON INTR 7 GOSUB 620
Mask=2
ENABLE INTR 7;Mask
GOSUB 470
CLEAR Adr
WAIT .1
GOSUB 770
WAIT .1
CLEAR Adr
GOSUB 520
PRINT "Device address = ";Devadr,
LINPUT "ENTER COMMAND STRING, or HELP for Directions",A$
IF A$="HELP" THEN GOSUB 520
IF A$="SPOL!" THEN GOSUB 650
IF A$="DATA!" THEN GOSUB 720
IF A$="CMD!" THEN GOSUB 770
IF (A$<>"ENTER" AND A$<>"XXX") THEN
PRINT "OUTPUTTING->",A$
OUTPUT Adr;A$ END
END IF
IF POS(A$,"ENTER")>0 THEN GOSUB 420
IF POS(A$,"?")>0 THEN GOSUB 420
GOTO 290
REM GET ENTER DATA
PRINT " WAITING FOR DATA..."
ENTER Adr;B$
PRINT " DATA STRING ->",B$
RETURN
REM Change address
INPUT "Enter Device Address (0-30) : ",Devadr
Adr=Devadr+700
A$="XXX"
RETURN
HP BASIC Command Entry/Readout Program
1
2-10