'Requires 8 param file, ignores final param (time)
'only looks at first valid 10000 events
'Takes output from lldata.exe and creates a subset for
'loading into Adrian's macro spreadsheet
'specifying the same output file allows data to be appended
'for different organism types. An identifier is prepended as
'the first item in each row. The output is tab separated.


CLS
DO
REDIM DataArray1%(1 TO 10000)
REDIM DataArray2%(1 TO 10000)
REDIM DataArray3%(1 TO 10000)
REDIM DataArray4%(1 TO 10000)
REDIM DataArray5%(1 TO 10000)
REDIM DataArray6%(1 TO 10000)
REDIM DataArray7%(1 TO 10000)

INPUT "LLDATA output file"; LMDfile$
INPUT "Sample identifier"; SampleID$
INPUT "Output file"; OUTfile$

INPUT "Discriminator (1-7)"; Discrim%
INPUT "Discrim. value (0-1023)"; Dvalue%
OPEN LMDfile$ FOR INPUT AS #1
Count% = 1
DO UNTIL EOF(1)
   INPUT #1, DataArray1%(Count%)
   INPUT #1, DataArray2%(Count%)
   INPUT #1, DataArray3%(Count%)
   INPUT #1, DataArray4%(Count%)
   INPUT #1, DataArray5%(Count%)
   INPUT #1, DataArray6%(Count%)
   INPUT #1, DataArray7%(Count%)
   INPUT #1, Dummy%
   
   SELECT CASE Discrim%
  
   CASE 1
   IF DataArray1%(Count%) > Dvalue% THEN
      Count% = Count% + 1
      IF Count% > 10000 THEN EXIT DO
   END IF

   CASE 2
   IF DataArray2%(Count%) > Dvalue% THEN
      Count% = Count% + 1
      IF Count% > 10000 THEN EXIT DO
   END IF

   CASE 3
   IF DataArray3%(Count%) > Dvalue% THEN
      Count% = Count% + 1
      IF Count% > 10000 THEN EXIT DO
   END IF

   CASE 4
   IF DataArray4%(Count%) > Dvalue% THEN
      Count% = Count% + 1
      IF Count% > 10000 THEN EXIT DO
   END IF

   CASE 5
   IF DataArray5%(Count%) > Dvalue% THEN
      Count% = Count% + 1
      IF Count% > 10000 THEN EXIT DO
   END IF

   CASE 6
   IF DataArray6%(Count%) > Dvalue% THEN
      Count% = Count% + 1
      IF Count% > 10000 THEN EXIT DO
   END IF

   CASE 7
   IF DataArray7%(Count%) > Dvalue% THEN
      Count% = Count% + 1
      IF Count% > 10000 THEN EXIT DO
   END IF
   END SELECT

LOOP
CLOSE #1

TOTevents% = Count% - 1


PRINT "Total Valid Events = "; TOTevents%
INPUT "Subset Size"; Tset%
Freq% = INT(TOTevents% / Tset%)


OPEN OUTfile$ FOR APPEND AS #1
GetOut% = 0
FOR Count% = Freq% TO TOTevents% STEP Freq%
   A! = DataArray1%(Count%)
   B! = DataArray2%(Count%)
   C! = DataArray3%(Count%)
   D! = DataArray4%(Count%)
   E! = DataArray5%(Count%)
   F! = DataArray6%(Count%)
   G! = DataArray7%(Count%)
   PRINT #1, Count%, SampleID$, A!, B!, C!, D!, E!, F!, G!
   GetOut% = GetOut% + 1
   IF GetOut% >= Tset% THEN EXIT FOR
NEXT Count%
CLOSE #1
PRINT "Press ctrl-c to quit"
CLEAR
LOOP
END