[SAMPLE2] SAMPLE

10 REM SAMPLE2 プログラムの連結(2)
100 COMMON IDENT(),COUNT
110 PRINT:PRINT
120 FIELD #1,4 AS I$,20 AS N$,50 AS A$
130 IF COUNT=0 THEN PRINT "END":END
140 GET #1,IDENT(COUNT)
150 PRINT "会員番号 ";CVS(I$)
160 PRINT "氏名 ";N$
170 PRINT "住所 ";A$
180 COUNT=COUNT -1
190 PRINT:GOTO 130


このプログラムはSAMPLE1によりCHAINで連結されます。
100で引き渡される変数を宣言。
120で各フィールド変数を定義します。
 データファイル"DATA.DAT"はOPEN状態のままCHAINされるので,
 新たにOPENしなくてよい。
140で実際に書き出されているレコードのみを読み込む。