Using HP Instrument BASIC
Control from External Computer
To Upload a Program from HP 4155A/4156A
To upload a program from the HP 4155A/4156A to external computer, you
need to use the :PROGram[:SELected]:DEFine? command.
Example
The following is an example of an HP BASIC program (running on external
computer) that uploads an HP Instrument BASIC program from HP 4156A and
stores the program on a disk drive that is connected to external computer.
10 OPTION BASE 1
20 !
30 DIM Num_dig$[2]
40 INTEGER Byte
50 !
60 ASSIGN @Hp4156 TO 717
70 !
80 OUTPUT @Hp4156;":PROG:DEF?"
90 ENTER @Hp4156 USING "%,2A";Num_dig$
100 PRINT Num_dig$
110 !
120 Byte=VAL(Num_dig$[2])
130 !
140 ALLOCATE Data_byt$[Byte]
150 !
160 FOR I=1 TO Byte
170 ENTER @Hp4156 USING "#,A";Data_byt$[I;1] ! Enter length of program
180 NEXT I
190 !
200 D=VAL(Data_byt$)
210 PRINT D
220 ALLOCATE Prog$[D]
230 PRINTER IS CRT;WIDTH D
240 ENTER @Hp4156 USING "-K";Prog$ ! Enter the program into Prog$
250 PRINT Prog$
260 ENTER @Hp4156;B$
270 PRINT B$
280 !
290 CREATE "prog",1
300 ASSIGN @File TO "prog";FORMAT ON
310 OUTPUT @File;Prog$
320 ASSIGN @File TO *
330 !
340 END
1-38