HP 8924C - Page 290

290
S:\HP8924C\USRGUIDE\BOOK\CHAPTERS\ibasic.fb
Chapter 6, 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 program
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=Chars_xferd+LEN(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"
:EXECute <program_command> The :EXECute command is used to execute,
from an external controller, an IBASIC program command in the Test Set’s built-
in IBASIC Controller .
<program_command> is string data representing any legal IBASIC command. If
the string data does not represent a legal IBASIC command, an
IBASIC Error:
-285 Program syntax error
is generated.
Any IBASIC program in the Test Set must be in either the PAUSed or STOPped
state before the external controller issues the :EXECute <program_command>
command. If the IBASIC program is in the RUN state, an
IBASIC Error: -284
Program currently running
is generated.