Owner`s manual

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 Xl=Xl + 18:Yl=0
190 NEXT I
200 GOTO 200
Reference / 57