Radio Shack TRS-80 Trsdos & Disk Basic Reference Manual page 99

DISK BASIC
100
110
126
130
135
140
150
160
170
180
190
200
210
220
230
240
250
260
270
280
290
300
310
320
330
340
350
360
370
PROGRAM: MINMAX
•'
EXAMFLE
OF
DEFFN FEATURE
.••
-
******* DEFINE MIN AND MAX FUNCTIONS *******
DEF FNMIN
(A,
B) = (A +
B
-
ABS
(A -
B)> / 2
DEF FNMAX
(A,
B) = (A
+ B +
ABS
(A - B)> / 2
.•
•-
******* READ 1ST VALUE
-
CALL
IT
THE MIN AND MAX *****
MN
IS
CURRENT MINIMUM VALUE
MX
IS
CURRENT MAXIMUM VALUE
.•
READ
MN: MX
=
MN
<
******* GET NEXT VALUE AND FIND NEW
M
IN/MAX ********
READ
V:
IF V
= 99999 THEN 320
-"V-99999
MEANS ALL DONE
MN
= FNMIN
(MN, V)
'GET
NEW MINIMUM
MX
= FNMAX
(MX,
V> 'GET
NEW MAXIMUM
GOTO 250
•"
******** PRINT RESULTS *******
PRINT "MINIMUM VALUE
=",
MN
PRINT "MAXIMUM VALUE
= H
,
MX
.••
•-
******* DATA FOLLOWS
-
LAST VALUE MUST BE 99999 *******
.••
DATA
1. 2, 2,
3,
4.
7,
5.
332,
0.
314,
6, 7, 8.
3,
9.
57,
99999
mm
Hsmi
MINIMUM VALUE
=
.
314
MAXIMUM VALUE
=
9.
57
READY
>37B
Dfftft
-
jb 9,
&
8, 1. 7,
2, 6,
3,
5, 4,
99999
[IMS
>run
EMUS
MINIMUM VALUE =
-i
MAXIMUM VALUE =
9
READY
7-13