[SAMPLE26] SAMPLE
10 REM SAMPLE26
100 OPEN "rdata.dat" AS #1
110 FIELD #1,2 AS A$,4 AS B$,8 AS C$
120 A%=987:A!=123.456:A#=1234567891234#
130 LSET A$=MKI$(A%)
140 LSET B$=MKS$(A!)
150 LSET C$=MKD$(A#)
160 PUT #1
170 PRINT "このプログラムで書き込むデータは"
180 PRINT "次のプログラム(SAMPLE27.BAS)で読み出せます"
190 CLOSE:END