1   OPTION TYPE=EXPLICIT
    !
    !   BASIC_DFLOAT_TEST.BAS
    !
    !   Test program written to create file with
    !   D_float data.  The file will then be read
    !   by a C program to show the conversion effort.
    !
    
    !;;;;;;;;;;
    !	Constants
    !;;;;;;;;;;
    DECLARE BYTE CONSTANT seq_chan% = 6%

    !;;;;;;;;;;
    !	Maps
    !;;;;;;;;;;
    MAP (D_MAP) LONG RECORD_NO%, DOUBLE D_FLT_DBL

    !;;;;;;;;;;
    !	Main Logic
    !;;;;;;;;;;

200 OPEN "D.SEQ" FOR OUTPUT AS FILE # seq_chan%,    &
    ORGANIZATION SEQUENTIAL FIXED,                  &
    RECORDSIZE 12%,                                 &
    ALLOW NONE,                                     &
    MAP D_MAP

300 RECORD_NO%  = 1%
    D_FLT_DBL = 3.33
    PUT #seq_chan%

    RECORD_NO% = 2%
    D_FLT_DBL = 6.66
    PUT #seq_chan%

    RECORD_NO% = 3%
    D_FLT_DBL = 0
    PUT #seq_chan%

    RECORD_NO% = 4%
    D_FLT_DBL = 2.5
    PUT #seq_chan%

    RECORD_NO% = 5%
    D_FLT_DBL = 0.1
    PUT #seq_chan%

    CLOSE #seq_chan%

32767   END