Playback:
  FREQOUT 5,2000,4500


  DEBUG CLS, "Logged Data!",TAB,HEX2 Month,"/",HEX2 Date,"/","2007", CR,               'Message and units
             "#",32,"degF",TAB ,"Lux",TAB,"umho",TAB,"wind",TAB,"Time",CR

  SEROUT 4,396,["!NB0W016:","Logged Data!",HEX2 Month,"/",HEX2 Date,"/","2008",CLS]
             '"Time" TAB,  TAB,
             ', CR


  ptr = 0                                     'Point to start of data.

  READ ptr + Log, x                           'Read first record number.
  DO WHILE (x<>0 AND ptr<LogSiz)              'Meanwhile it's not zero or last record

    DEBUG DEC x, " "                          'Show record Number
    READ ptr + 1 + log,Far                  'Read temperature (AD592),
    READ ptr + 2 + log, light               'Read Light,
    READ ptr + 3 + log, umho                'read conductance
    READ ptr + 4 + log,wind
    READ ptr + 5 + log, Hours
    READ ptr + 6 + log, Minutes                  'read conductance
    light = light * 2





    DEBUG DEC Far, TAB, DEC light,TAB,DEC umho,        'Show values
                  TAB, DEC wind, TAB,
              HEX2 Hours,":",HEX2 Minutes, CR

    ptr = ptr + 7                             'Point to next record
    READ ptr + Log, x                         'and read next record number

 SEROUT 4,396,["!NB0W01",DEC Far,32,"F",TAB,32,DEC light,32,"Lux",TAB,32,DEC wind,32,"MPH",
 32,TAB,32,HEX2 Hours,":",HEX2 Minutes,CLS]

 LOOP                                          'Back to check condition

 DO
 'DEBUG REP "-"\31, CR
 'SEROUT  4,396,["!NB0W10:",REP "-"\31,13,CLS]
                                            'Wait for button up
SEROUT 4,396,["!NB0R27"]
SERIN 3,396,[NBVAR]                         'Printing horizontal line
 LOOP UNTIL (NBVAR=51)
'PAUSE 5
'SEROUT 4,396,["!NB0W02:0",CLS]
 RETURN
 