6-7
DATA
BANK
Commands
* In d), when a branching line number does
not
exist, or when a program
does
not
exist in the program area, an error (Error
4)
occurs.
*If
a parameter
is
assigned, the appropriate data will
be
searched from the data
and on to
be
read
by
the next
READ#
statement. Enter
RESTORE#
:
RESTORE#
"searched character string" when desiring to search from the first
data.
Example:
<Memo
Data>
Record Smith, 03-347-4811, San Diego
Record 2 Jones, 075-351-1161, Princeton
Record 3 Williams, 06-314-2681 ,
Cleveland
Record 4 Edwards, 045-211-0821, Cambridge
<Program>
10
RESTORE:j::j:
20
GOSUB
1000
30
RESTORE:j::j:''J''
40
GOSUB
1000
50
RESTORE:j::j:"
Cl''
, 1
60
GOSUB
1000
7 0 R E S T 0 R E
:j::j:"
Aa " ,
80
GOSUB
1000
90
END
}
Displays memo data stored at
the
beginning
of
the DATA BANK.
}
Displays data having
the
first
character
J.
}
Searches data having
the
first
two
characters
Cl
and displays the first
data
on
that line.
, 2 0 0 }
Jumps
to
line 200
if
d.ata with
the
first two characters Aa does
not
exist.
2 0 0 B E E P : P R I
NT
"
Memo
End ''
2
10
END
1 0 0 0
RE
AD:j::j:$
:
PR
I
NT$
} Subroutine
that
reads and dis-
1 0 1 0
RE
TURN
plays memo data.
< Execution Example >
RUN~
. .Jones
t=1
e
rn
c=
E n d
173
To Next Page
Loading...