Advertisement
You can rename SORT.DO with
the NAME command described
in Chapter 2.
10
CLEAR 1000:DIM
N$(100)
20
CLS:I=1
30
OPEN "ADRS.DO" FOR
INPUT AS 1
40
IF EOF(l) THEN 80
50
LINE INPUT #1, N$(I)
60
1 = 1 + 1
70
GOTO 40
80
CLOSE #1
90
OPEN "SORT.DO" FOR
OUTPUT AS 1
100 CLS
110 PRINT
137,
I = 1-1
X = 0
X = X + 1
IF X > I THEN 230
IF N$(X) = "ZZ" THEN
1 TO I
"SORTING
120
130
140
150
160
140
170 FOR Y =
180 IF N$(Y) < N$(X) THEN
X = Y
190 NEXT Y
200 PRINT #1, N$(X)
210 N$(X) = "ZZ"
220 GOTO 130
230 CLOSE #1
240 PRINT @ 137,
"FINISHED"
250 END
BAR.BA
This program lets you input 12
numbers, then displays a simple
bar chart of the numbers. (When
you have finished running the
program, press (SHIFT]
(BREAK).)
10
CLEAR 1000: DIM D(12)
20
FOR 1 = 1 TO 12
30
PRINT "DATA FOR
MONTH " LINPUT D(I)
40
IF D(I) > YH THEN YH
50
NEXT I
60
YL = YH
70
FOR I = 1 TO 12
80
IF D(I) < YL THEN YL
= D(I):NEXT I
90
CLS: M = 1: XA = 562
100 FOR I = 1 TO 12
110 PRINT @ XA, M;
120 XA = XA + 3:M = M
+ 1
130
140
16
150
160
170
NEXT I
P = (YH + YL)/55:X1 =
FOR I = 1 TO 12
Yl = 55-(D(I)/P)
LINE (XI,Yl)-
180 X l = X l + 18:Yl=0
190 NEXT I
200 GOTO 200
Reference / 57
Advertisement
