100 DIM Y(100),W(100) : CLS : WIDTH 80,25
110 COLOR 7 : PRINT : S$=STRING$(16," ") : CONSOLE 0,24,1,1  
120 PRINT S$;"************************************************
130 PRINT S$;"************************************************
140 PRINT S$;"***                                          ***
150 PRINT S$;"***     １次元  ＳＯＲＴＩＮＧプログラム     ***
160 PRINT S$;"***                                          ***
170 PRINT S$;"***             'SORT-1-1.BAS'               ***
180 PRINT S$;"***                                          ***
190 PRINT S$;"***           情報処理練習問題−１         　***
200 PRINT S$;"***              May  27, 1998               ***
210 PRINT S$;"***                                          ***
220 PRINT S$;"***   　　何かキ−を押して下さい　　！！　   ***
230 PRINT S$;"***                                          ***
240 PRINT S$;"************************************************
250 PRINT S$;"************************************************
260 COLOR@(16,1)-(64,14),5 : COLOR@(19,3)-(60,12),7
270 COLOR@(20,4)-(58,4),6  : COLOR@(20,6)-(58,6),4
280 COLOR@(20,8)-(58,8),5  : COLOR@(20,9)-(58,9),1
290 COLOR@(20,11)-(58,11),6 
300 '********************************************************
310 *RABERU : IF INKEY$="" THEN *RABERU ELSE CLS
320 '********************************************************
330 '*************         １次元 並べ変え　      ***********
340 '********************************************************
350 READ ND                                 'デ−タ数読み込み
360 GOSUB *YOMIKOMI                         '配列データ読み込み
370 '
380 print : PRINT SPC(34);"並べ変え前"      'モニタ−表示
390     GOSUB *HYOUJI
400 *SORT                                   '並べ変え実行
410   J=0
420 *A1 : K=J+1
430 *A2
440       IF Y(J)>Y(K) THEN 450 ELSE *A3
450          W(J)=Y(J)
460          Y(J)=Y(K)
470          Y(K)=W(J)
480 *A3
490       K=K+1
500         IF K>=ND+1 THEN 510 else *A2
510       J=J+1
520         IF J>=ND THEN 530 else *A1
530 PRINT SPC(34);"並べ変え後"             'モニタ−表示
540     GOSUB *HYOUJI
550 STOP
560 '********************************************************
570 DATA 19                                'デ−タ数
580 DATA 20,5,13,14,3,1,17,9,18,6,15,2,11,7,19,8,12,10,4,16
590 *YOMIKOMI                              'データ読み込み
600   FOR J=1 TO ND : READ Y(J) : NEXT     'これで可　
620  RETURN
630 '                                                  　　　
640 *HYOUJI : FOR J=0 TO ND                'データ表示
650       PRINT USING "########" ; Y(J) ;
660     NEXT J : PRINT
670  RETURN

課題１−Ａ２：　400-520 行のプログラムを FOR 〜 NEXT 文を
　　　　　　　　用いて書き直して見よ。
注：500,520 行は HTML の制限から、フローチャートと異なる。