Tandy TRS-80 - Page 82

APPENDIX
C.
790
'
800 NM*
=
NM*+"
"
810 GOTO 210
820
NM*
=
LEFT*
(NM*,
24)
830 GOTO 220
SAMPLE
PROGRAM
#5
UPDATE
THE LIST
Update
anything you want in the file you created in
"Sample Program
#3."
You can
do
it in
a
hurry with
this program.
10
'
Edit
your
names
file
20
'
30
'
The
object
of
this
program
is
to edit
the
"NAMES/NOS"
file
40
'
from
"Create
list
and
alpha-
betize"
(Sample
program
#3).
The
50
'
program
can
either
retain
a
record
v
change
one of
the variables
60
'
in that
record?
or delete
the
record
entirely
from
the
file.
70
'
80
CLS
90 PRINT
3
106,
"SELECTIONS:"
100 PRINT
3 I685
" 1)
EDIT
RECORD"
110 PRINT
a
200,
"2)
DELETE
RECORD"
120 PRINT
3
232,
"3)
END
JOB"
130 PRINT
3
298,
"1,2,
OR
3"
140
AN*
=
INKEY*
150
IF
AN*=""
THEN
140
160 ON
VAL(AN*)
GOSUB
180,590,850
170
GOTO
80
1
80
OPEN
"
D
" ,
# 1
,
" NAMES
. NOS
"
, 35
190 FIELD
#1,24
AS NAME*,
3
AS
AREA*,
8 AS
PHONE*
200
FOR
1=1
TO
LOF(l)
210
GET
#1,
I
220
CLS
230 PRINT
3
68,
"RECORD
NUMBER:"
;I
240 PRINT
a
100,
"NAME:"
;NAME*
250
PRINT
a
132,
"AREA
CODE:";
AREA*
260 PRINT
3 164,
"PHONE
NUMBER";
PHONE*
270 PRINT
3
228,
"EDIT
THIS
RECORD?
(Y/N)"
280 AN*
=
INKEY*
290 IF
AN*
~
"Y"
THEN
320
300
IF AN*
=
"N"
THEN
560
310
GOTO
280
320
PRINT
3 260,
"EDIT
NAME?
(Y/N)"
330 AN*=
INKEY*
340 IF
AN*
=
"N"
THEN
NM*
=
NAME*:
GOTO
400
350 IF
AN*
=
"Y"
THEN
370
360
GOTO
330
370 LINE
INPUT
"
NEW
NAME"
;NM*
380 IF
LEN(NM*)
<
24
THEN
NM*
=
NM*+
GOTO
380
ELSE
390
390 IF
LEN(NM*>
>
24
THEN
NM*
=
LEFT*
(NM*,
24)
400
PRINT
3
292,
"EDIT
AREA
CODE?
(Y/N)"
410 AN*
=
INKEY*
420
IF
AN*
=
"Y"
THEN
450
430 IF
AN*
=
"N" THEN
A*
=
AREA*
:
GO
TO 460
440
GOTO
410
450 INPUT
"
NEW
AREA
CODE";
A*
460 PRINT
3
324,
"EDIT
PHONE
NUMBER?
(Y/N)"
470 AN*
=
INKEY*
480
IF
AN*
=
"Y"
THEN
510
490 IF
AN*
=
"N"
THEN
P*
=
PHONE*
:
GOTO
520
500
GO
TO
470
510 INPUT,"
NEW
PHONE
NUMBER"
; P*
520
LSET
NAME*
=
NM*
530
LSET
AREA*
=
A*
540
LSET
PHONE*
=
P*
550 PUT
#1,1
560
NEXT
I
570
CLOSE
#1
580
RETURN
590 OPEN
"D",#l,
"NAMES.
NOS",
35
600 FIELD
#1,24
AS
NAME*,
3
AS AREA*,
8 AS
PHONE*
610 OPEN
"D"
,#2,
"TEMP/FIL",35
620
FIELD
#2,24
AS
TNAME*,3
AS
TARE
A*,
8
AS T
PHONE*
630
FOR
1=1
TO
LOF(
1
)
640
GET
#1,1
650
CLS
6/.0
PRINT
3
68,
"RECORD
#";I
670 PRINT
a
100,
"NAME:
"
5NAMF*
600 PRINT
3 132,
"AREA
CODE:";
AREA*
690 PRINT
a
164,
"PHONE
NUMBER:";
PHONE*
700
PRINT
3
228,
"DELETE
THIS
RECORD?
(Y/N)"
710
AN*
=
INKEY*
720 IF
AN*
=
"Y"
THEN
800
730 IF
AN*
=
"N"
THEN
750
740 GOTO
710
72