' BLKBOX.BAS 03-21-2005 (C) WELLOG 2004-2005

'

'

' Receives serial data from Black Box Logger at 57600 baud

' Displays data and writes data to file d:/logger.las

cls

input "How many channels";c

print

print "What are the following channels used for?

print

for l = 1 to c

print "Channel ";l-1

input c$(l-1)

next l

cls

print "Press any key to quit"

print "waiting for encoder..."

open "com1:57600,n,8,1,cs0,ds0,cd0,rs"for random as #1 'com port

open "d:\logger.las" for output as #2 'file output

print #1, c

print #2, " WELLOG BLACK BOX LOGGING SYSTEM"

print #2, date$, time$

print #2, "Channels are assigned as follows:"

print #2, "Channel 0:",ch$(0)

print #2, "Channel 1:",ch$(1)

print #2, "Channel 2:",ch$(2)

print #2, "Channel 3:",ch$(3)

print #2, "Channel 4:",ch$(4)

print #2, "Channel 5:",ch$(5)

print #2, "Channel 6:",ch$(6)

print #2, "Channel 7:",ch$(7)

print #2,

print #2,"time ";" ";"depth";" ";ch$(0);" ";ch$(1);" ";ch$(2);" ";ch$(3);" ";ch$(4);" ";ch$(5);" ";ch$(6);" ";ch$(7)

print #2,

top:

input #1, b$

locate 12,1

print time$;" ";b$

print #2, time$;" ";b$

a$ = inkey$

if a$ = "" then goto top

print #2, "End of logging ";Date$,time$

close #1

close #2

print "press enter"

end