Tandy TRS-80 - Page 74

APPENDIX A.
PROGRAMMING
EXERCISE
ANSWERS
PROGRAMMING
EXERCISE
#5-1
10 PRINT:
PRINT "CHECKS
FOR CAR
EXPENSES"
20 OPEN "I" ,*1
."CHECKS"
30 IF E0F( 1)
=
-1
THEN 100
40 INPUT *1
,A$,B,C$
50
IF C$
=
"CAR"
THEN 70
60
GOTO 90
70
PRINT:
PRINT
"CHECK PAYABLE
T0:"iA$
80 PRINT
"AMOUNT:" SB
90 GOTO 30
100
CLOSE
*1
PROGRAMMING
EXERCISE
#6.1
10
OPEN "I" , «1 t
"ANIMALS/DAT"
20
OPEN "0"
t
»2
> "NEW/DAT"
30 IF
EOF(l)
= -1
THEN 70
40
INPUT
*1
. A*
50
WRITE «2i
A*
G0 GOTO
30
70 CLOSE «1:
CLS
80 PRINT
"INPUT ANIMALS
YOU WANT TO
ADD"
90
PRINT
"PRESS
<ENTER>
WHEN FINISHED"
100 INPUT
A*
110 IF A*
=
""
THEN
140
120
WRITE «2,
A$
130
GOTO 80
140 CLOSE
*2
150 KILL
"ANIMALS/DAT"
160
RENAME
"NEW/DAT"
TO "ANIMALS/DAT"
PROGRAMMING
EXERCISE
#6.2
10 OPEN "I" .
*1
, "ANIMALS/DAT"
20 OPEN
"0"
,
#2.
"NEW/DAT"
30 IF EOF(l)
=
-
1 THEN
100
40 INPUT
*1
, A$
50 PRINT:
PRINT
A$
60 INPUT
"DO YOU
WISH TO
DELET
70
IF R$
=
"
YES" THEN
90
80 WRITE
*2,
A$
90
GOTO 30
1021
CLOSE
*1
HE1 CLOSE
*2
120
1
KILL
"ANIMALS/DAT"
1301 RENAME
"1
NEW/DAT" TO
"ANIMA
THIS"
R$
PROGRAMMING
EXERCISE
#6.3
10 CLS:
PRINT
20 PRINT
"(1)
"DO
YOU WISH TO
--
STORE
A NEW
FILE"
30 PRINT
"(2)
SEE THE
FILE"
40
PRINT
"
(3) END"
50
INPUT 01
60 ON 01 GOTO
80. 130, 420
70 GOTO
10
80 OPEN
"0".
tli
"MEMBERS/DAT"
90
1
:OSUB
430
100
IF N$
=
""
THEN
CLOSE
*1:
GOTO 10
110 WRITE *1
, N$,
A$. P$
120 GOTO
90
130
OPEN
"I" ,
*1
,
"MEMBERS/DAT"
140 OPEN
"0"
i
*2i "TEMP/DAT"
150
CLS
: INPUT "DO
YOU WANT
TO CHANGE THE
FILE"! 02$
160 IF
EOF(l)
=
-1
THEN 320
170
INPUT
*li N$.
A* , P$
180 PRINT:
PRINT "NAME
:"
N$
190 PRINT
"ADDRESS
:"
A$
200
PRINT
"TELEPHONE
:"
P$
210 IF 02$
=
"NO"
THEN 300
220
PRINT: PRINT
"DO YOU
WISH
TO:"
230 PRINT
"1)
CHANGE
THE ADDRESS?"
240 PRINT
"2)
DELETE THE
MEMBER?"
250 PRINT
"3)
GO ON TO
THE NEXT MEMBER?"
2G0 INPUT
N
270 ON N
GOTO 290.
160, 300
280
GOTO 230
290 INPUT
"INPUT
NEW ADDRESS"!
A$
300 WRITE *2,
N$» A$, P$
310 GOTO
160
320 PRINT:
INPUT
"DO YOU WISH
TO ADD A NEW
MEMBER"
i 03$
330
IF 03$
=
"NO" THEN
380
340 GOSUB
430
350 IF N$
=
""
THEN
380
360 WRITE
#2,
N$, A$,
P$
370 GOTO
340
380 CLOSE *1
.
*2
390 KILL
"MEMBERS/DAT"
400
RENAME
"TEMP/DAT" TO
"MEMBERS/DAT"
410
GOTO 10
420 END
430 CLS:
PRINT
"PRESS
<ENTER> WHEN FINISHED
: PRINT
440
INPUT "NAME
OF MEMBER:"
i N$
450 IF N$
=
""
THEN 480
460 INPUT "ADDRESS:"!
A$
470 INPUT
"PHONE
NUMBER:"
i P$
480 RETURN
PROGRAMMING
EXERCISE
7.1
10 OPEN
"D"
.
«1.
"NAMES/DAT
20 WRITE «1
, "J.
DOE"
30 PUT
*1
, 2
31 WRITE
*1
, "BILL
SMITH"
32 PUT *1
,
3
34 GET
«1
, 3
36 INPUT *1
. A$
38 PRINT
A$
40
CLOSE
*1
64