100 DATA 169,0,141,178,3,24,165,47,105,7,133,34,165,48,105,0
110 DATA 133,35,160,0,177,34,141,179,3,32,167,3,165,38,133,36
120 DATA 165,39,133,37,24,165,34,105,3,133,34,165,35,105,0
130 DATA 133,35,160,0,177,34,205,179,3,208,43,32,167,3,164,40
140 DATA 177,38,209,36,144,9,208,213,200,196,41,144,243,176,206
150 DATA 160,0,177,36,170,177,38,145,36,138,145,38,200,204,179,3
160 DATA 144,240,140,178,3,176,183,173,178,3,208,150,96
170 DATA 200,177,34,133,38,200,177,34,133,39,96
200 FOR J=828 TO 945
210 READ X:T=T+X
220 POKE J,X
230 NEXT J
240 IF T<>12739 THEN STOP
300 REM:  M/L BUBBLE SORT  64 ONLY
310 REM:  JIM BUTTERFIELD  1994
400 DIM F$(300)
410 PRINT "[144]READING DATA ON HEIGHT OF WATERFALLS:"
420 OPEN 1,8,2,"0:FALLS"
430 N=0
440 INPUT#1,F$(N)
450 PRINT F$(N)
460 IF LEN(F$(N))<>30 THEN PRINT " *** FILE RECORD IS WRONG LENGTH!"
470 N=N+1
480 IF ST=0 GOTO 440
490 CLOSE 1
500 PRINT
510 PRINT "SORT WATERFALL DATA BY:"
520 PRINT "1. NAME"
530 PRINT "2. COUNTRY"
540 PRINT "3. HEIGHT"
550 PRINT "4. QUIT"
560 GET X$
570 IF X$<"1" OR X$>"4" GOTO 560
580 X=VAL(X$)
590 IF X=4 THEN END
600 IF X=1 THEN A=0:B=14
610 IF X=2 THEN A=14:B=26
630 IF X=3 THEN A=26:B=30
640 POKE 40,A:POKE 41,B:SYS 828
650 FOR J=0 TO N
660 PRINT F$(J)
670 NEXT J
672 PRINT"PRESS ANY KEY..."
675 GETA$:IF A$=""THEN675
680 GOTO 500