Table of Contents
Advertisement
Chapter 7, IBASIC Controller
PROGram Subsystem
432
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
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
The :DELete:ALL command is used to delete an IBASIC program
:DELete:ALL
in the Test Set. If the IBASIC program in the Test Set is in the RUN state, an
IBASIC Error: -284 Program currently running
the program is not deleted.
Syntax
PROGram[:SELected]:DELete:ALL
Example
OUTPUT 714;"PROGram:SELected:DELete:ALL"
or
OUTPUT 714;"PROG:DEL:ALL"
name
of
file
to
store
IBASIC
program
error is generated and
Hide quick links:
Advertisement
Table of Contents
