Tandy TRS-80 Owner Manual & Programming Manual page 82
Color computer disk system
Hide thumbs
Also See for TRS-80:
- Technical reference manual (204 pages) ,
- Service manual (60 pages) ,
- Owner's manual (16 pages)
Table of Contents
Advertisement
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
Advertisement
Table of Contents
