HP 8920B, Programmer'S Manual

Page: 432 / 682

432
Chapter 7, IBASIC Controller
PROGram Subsystem
Example BASIC program to upload an IBASIC program from Test Set
10 DIM Prog_line$[200]!Holds longest program line in Test Set
20 DIM File_name$[10]!Holds the name of file to store IBASIC pro-
gram
30 LINPUT "Enter name of file to store IBASIC program
in:",File_name$
40 OUTPUT 714;"PROG:DEF?"
50 ENTER 714 USING "X,D,#";Count_length !Get length of count field
60 !Get number of characters in program, includes CR/LF on each line
70 ENTER 714 USING VAL$(Count_length)&"D,#";Chars_total
80 !Create ASCII file to hold program, add 5 records for buffer
90 CREATE ASCII File_name$,(Chars_total/256)+5
100 ASSIGN @File TO File_name$
110 LOOP
120 ENTER 714;Prog_line$ !Read in one program line
130 OUTPUT @File;Prog_line$ !Store in file
140 Chars_xferd=CharLEN(Prog_line$)+2 !CR/LF not read
150 EXIT IF Chars_xferd>=Chars_total
160 END LOOP
170 ENTER 714;Msg_terminator$ !Terminate the block data transfer
180 ASSIGN @File TO *
190 END
:DELete:ALL
The :DELete:ALL command is used to delete an IBASIC program
in the Test Set. If the IBASIC program in the Test Set is in the RUN state, an
IBASIC Error: -284 Program currently running
error is generated and
the program is not deleted.
Syntax
PROGram[:SELected]:DELete:ALL
Example
OUTPUT 714;"PROGram:SELected:DELete:ALL"
or
OUTPUT 714;"PROG:DEL:ALL"