Tandy TRS-80 - Page 75

.APPENDIX A
PROGRAMMING EXERCISE 7.2
This
produces an FD
—
Bad File Data
—
error in line
36. The first field
in record 2 is "FLIES,"
a
string. Line
36
INPUTs it into N,
a
numeric variable.
PROGRAMMING
EXERCISE
7.3
10 OPEN "D" ,
«1
, "NAMES/DAT"
20
GOTO 70
30
FOR X
=
1 TO 10
40 PRINT:
PRINT "RECORD" X
50 GOSUB 180
G0 NEXT X
70 INPUT "WHICH RECORDd-10)"
80 IF X > 10 THEN
170
80 IF X < 1
THEN END
100 GET
#1
i X
110
INPUT *li N*. A*. C»i S$i
120 PRINT: PRINT "RECORD" X
130 PRINT N*, ,A*,.C*,,S*,,Z*
140 INPUT "DO YOU WANT TO CHANGE THIS"! R*
150
IF
R*
=
"YES" THEN GOSUB 180
1B0
GOTO 70
170 CLOSE
«1:
END
180 INPUT "NAME" i N*
"ADDRESS "i A$
'CITY :"i C$
'STATE:
1
'!
S*
'ZIP :"i
Z*
N*. A*. C$i
X
Z$
190 INPUT
200 INPUT
210 INPUT
220
INPUT
230 WRITE
»1
240 PUT
«1
, X
250 RETURN
S*: 1$
PROGRAMMING EXERCISE
#9.1
10 OPEN "D"
,81
, "MAIL/DAT" ,57
20 FIELD
81,15
AS LAST*. 10 AS FIRST*, 15 AS
ADDRESS* .10 AS
CITY*
,2 AS STATE* .5 AS ZIP*
+
130 R
=
R
40 CLS
50 INPUT
G0 INPUT
70 INPUT
80 INPUT
90 INPUT
100 INPUT
110 LSET LAST*
120 LSET FIRST*
LAST NAME'SL*
FIRST NAME" iF*
ADDRESS" !A*
CITY" iC*
STATE"
iS*
"ZIP CODE"iZ*
L*
F*
140 LSET CITY*
=
C*
150 LSET STATE*
=
S*
160 LSET ZIP*
=
Z*
170 PUT
#1
,R
180 PRINT
190 INPUT "MORE DATA(
Y/N) " i AN*
200 IF AN*
=
"Y" THEN 30
210 CLOSE
*1
PROGRAMMING EXERCISE
#9.2
10 OPEN "D"i «1.
"MAIL/DAT". 57
20
FIELD *1.
15 AS LAST*, 10 AS FIRST*:,
15 AS
ADDRESS*.
10 AS CITY*. 2 AS STATE*, 5 AS ZIP*
30 R
=
R
+
1
40 CLS
50 GET
*1
, R
60 PRINT LAST*
"
,"
FIRST*
70 PRINT ADDRESS*
80 PRINT CITY*
"
."
STATE*
90 PRINT ZIP*
100 PRINT
110 IF LOF(l)=R
THEN 140
120 INPUT
"PRESS <ENTER> FOR NEXT NAME"
'!E*
130 GOTO 30
140 CLOSE
#1
PROGRAMMING EXERCISE
#9.3
,5 AS POP*
10 OPEN
'
'D"
,#1
."POP" .15
20
FIELD
*1
,10
AS COUNTRY*
30 R
=
R
+
1
40 CLS
50 INPUT "COUNTRY"
!C*
60 INPUT "POPULATION" !P
70 LSET COUNTRY*
=
C*
80 LSET POP*
=
MKN*(P)
85 PUT
*1
,R
90 PRINT
INPUT "MORE DATA(Y/N)'100
110 IF AN*
=
120 CLOSE
*1
iAN*
"Y" THEN 30
PROGRAMMING EXERCISE
#9.4
10 OPEN "D" ,
#1
, "POP" , 15
20 FIELD
«1
. 10 AS COUNTRY*,
30 R
=
R
+
1
40
GET
81
, R
50 PRINT COUNTRY*,
5 AS POP*
CON (POP*)
130 LSET ADDRESS* A*
60
70
IF LOFUJOR
CLOSE
81
THEN 30
65