Sequence

[bplus]

I didn't do Bplus, this is just a drawing I did on the windows paintd

I just added the columns in to be displayed

Insert the counter to be able to draw, so you would have an idea of what I want

* Sequencia_20 Forum.bas (5.97 kB - downloaded 1 times.)

It must be an oversight, my _title on your code :(

[carloscordeiro]

Hi Bplus
Good night, here in Brazil
Since September 8, 2020, your last post, I've been trying to modify your code for my sequence. But I couldn't, because your code is very advanced.
I decided to take a few lines of your code and try to make my sequence. Today I managed to show the sequences from 3 on the screen. However, my code was not perfect, it has an “X = X + 1” counter to identify the strings, but in some lines of the file, seque.txt adds an extra digit in the “X”, causing an inadequate count to occur.
To minimize the error, I made a patch that I don't like.
I spent nights trying to figure out why he counts too much and I couldn't find out.
I read several posts where you can modify a code for the better or fix it.

I come in the hope that you will analyze my code and find out where it does the wrong count.

See lines from the patch I made:
(((IF cor1 (x) = 0 OR VAL (n $) <> cor1 (x) THEN
         x = x - 1
     ELSE
         IF cor1 (x) = 0 OR VAL (n $) = cor1 (x) AND seq <= 2 THEN x = x - 1
     END IF)))

Thanks again, for answering all my posts

Carlos,
 

[bplus]

Sorry @carloscordeiro

I can't make sense of what you are doing or are after. Your screen is too big for my laptop and Windows is complaining there is something malicious in the exe I made from your code and won't run anymore. (WTH? It did run at least once.)

One thing I would never do is start taking VAL of these digit strings, I recommend avoiding that. Compare strings of digits with strings of digits.

Make sure counters are reset to 0 at all possible places of restart.

Only advance a counter if the seq > 2 I think is what you want to do, because you don't want to track seq length of 1 or 2.

[carloscordeiro]

I will decrease the screen size
Here is a picture of what I want, I mean, I did it, but it has bugs

[bplus]

Ha ha! I confess I can't even make sense of my own code!

Are you trying to get a count of sequences of the whole page farthest to right?

[carloscordeiro]

Bplus, I decrease the screen size.
I have already reviewed everything and did not find the fault, even so it continues on some lines if you delete this patch that I made. This patch does not happen bub
(((Patch: IF cor1 (x) = 0 OR VAL (n $) <> cor1 (x) THEN
         x = x - 1
     ELSE
         IF cor1 (x) = 0 OR VAL (n $) = cor1 (x) AND seq <= 2 THEN x = x - 1
     END IF)))

[carloscordeiro]

Yes, exactly that

[bplus]

Ohhhh  I ran a preliminary program to process the lines and made the file "seque analysis.txt" It had the counts of each line in a 15 character middle column and running totals for the current line through the whole file!

Code: QB64: [Select]

1. OPEN "Seque.txt" FOR INPUT AS #1
2. OPEN "seque analysis.txt" FOR OUTPUT AS #2 'counts seq and start position
3. DIM sq(1 TO 15) AS INTEGER
4. WHILE NOT EOF(1)
5.     seq = 1: starts = 1: saveseq = 0: lineNum = lineNum + 1: lc$ = SPACE$(15)
6.     LINE INPUT #1, fl$
7.     FOR i = 1 TO 15 'going through the 15 numbers in a line
8.         n = VAL(MID$(fl$, i * 3 - 2, 3)) ' oh hell I did take val of string so I could compare current number with last
9.         PRINT n;
10.         IF i > 1 THEN 'if past the first number we can start comparing to last
11.             IF n = lastn + 1 THEN 'start counting seq length
12.                 seq = seq + 1
13.             ELSE 'seq ended (if it even started)
14.                 sq(seq) = sq(seq) + 1  'for seq of 1 to seq of 15
15.                 MID$(lc$, starts, seq) = STRING$(seq, HEX$(seq))
16.                 seq = 1
17.                 starts = i
18.             END IF
19.         END IF
20.         lastn = n
21.     NEXT
22.     sq(seq) = sq(seq) + 1
23.     MID$(lc$, starts, seq) = STRING$(seq, HEX$(seq))
24.     PRINT lc$
25.     b$ = ""
26.     FOR i = 1 TO 15
27.         b$ = b$ + STR$(sq(i))
28.     NEXT
29.     PRINT #2, fl$ + " " + lc$ + b$
30.     'PRINT "asleep"
31.     'SLEEP
32. WEND
33. 'PRINT #2, "Highest sequence is " + _TRIM$(STR$(highseq)) + " on line #" + _TRIM$(STR$(saveLineNum))
34. CLOSE
35. PRINT "File: seque analysis.txt is ready!"
36.  
37. 'hint
38. 'FOR i = 0 TO 15
39. '    PRINT HEX$(i), VAL("&H" + HEX$(i))
40. 'NEXT
41.  
42.  

Here is output while analysis is working:
 

The numbers on left are just copies of the data, the numbers on right in a string of 15 are the sequence lengths each of the 15 data numbers belong to, also used for QB4.5 color codes this makes display of color coded numbers easy as eating pie.

From analysis file written you can display the numbers anyway you please! :) problem solved again ;-))


Here is a snippet of the analysis txt file:

02 03 05 06 09 10 11 13 14 16 18 20 23 24 25 222233322111333 3 3 2 0 0 0 0 0 0 0 0 0 0 0 0
01 04 05 06 07 09 11 12 13 15 16 19 20 23 24 144441333222222 5 6 3 1 0 0 0 0 0 0 0 0 0 0 0
01 04 06 07 08 09 10 11 12 14 16 17 20 23 24 117777777122122 9 8 3 1 0 0 1 0 0 0 0 0 0 0 0
01 02 04 05 08 10 12 13 16 17 18 19 23 24 25 222211224444333 11 11 4 2 0 0 1 0 0 0 0 0 0 0 0
01 02 04 08 09 11 12 13 15 16 19 20 23 24 25 221223332222333 12 15 6 2 0 0 1 0 0 0 0 0 0 0 0
01 02 04 05 06 07 10 12 15 16 17 19 21 23 25 224444113331111 18 16 7 3 0 0 1 0 0 0 0 0 0 0 0
01 04 07 08 10 12 14 15 16 18 19 21 22 23 25 112211333223331 23 18 9 3 0 0 1 0 0 0 0 0 0 0 0
01 05 06 08 09 10 13 15 16 17 18 19 20 22 25 122333166666611 27 19 10 3 0 1 1 0 0 0 0 0 0 0 0
03 04 05 09 10 11 13 15 16 17 19 20 21 24 25 333333133333322 28 20 14 3 0 1 1 0 0 0 0 0 0 0 0
02 03 04 05 06 08 09 10 11 12 14 19 20 23 24 555555555512222 29 22 14 3 2 1 1 0 0 0 0 0 0 0 0
02 06 07 08 09 10 11 12 16 19 20 22 23 24 25 177777771224444 31 23 14 4 2 1 2 0 0 0 0 0 0 0 0
01 02 04 05 07 08 09 10 11 12 14 16 17 24 25 222266666612222 32 27 14 4 2 2 2 0 0 0 0 0 0 0 0
03 05 06 07 08 09 10 11 13 14 15 16 17 19 23 177777775555511 35 27 14 4 3 2 3 0 0 0 0 0 0 0 0
01 02 05 06 07 09 13 14 15 18 19 20 21 23 25 223331333444411 38 28 16 5 3 2 3 0 0 0 0 0 0 0 0
01 02 04 06 08 10 12 15 16 18 19 21 23 24 25 221111122221333 44 31 17 5 3 2 3 0 0 0 0 0 0 0 0
02 05 06 07 08 10 12 13 15 17 19 21 23 24 25 144441221111333 50 32 18 6 3 2 3 0 0 0 0 0 0 0 0
01 02 03 05 06 07 09 13 14 16 17 18 19 20 21 333333122666666 51 33 20 6 3 3 3 0 0 0 0 0 0 0 0
02 06 07 08 10 11 14 15 17 18 19 20 22 23 24 133322224444333 52 35 22 7 3 3 3 0 0 0 0 0 0 0 0
02 05 06 07 08 10 11 13 14 15 16 17 20 23 24 144442255555122 54 37 22 8 4 3 3 0 0 0 0 0 0 0 0
03 04 06 07 08 09 10 14 16 17 18 19 20 23 24 225555515555522 55 39 22 8 6 3 3 0 0 0 0 0 0 0 0
01 02 04 05 08 11 14 16 18 19 20 22 23 24 25 222211113334444 59 41 23 9 6 3 3 0 0 0 0 0 0 0 0
01 02 03 04 05 06 07 09 10 12 13 14 15 22 25 777777722444411 61 42 23 10 6 3 4 0 0 0 0 0 0 0 0
01 03 04 05 06 08 10 11 12 14 16 17 18 19 20 144441333155555 64 42 24 11 7 3 4 0 0 0 0 0 0 0 0
01 02 03 05 07 10 11 14 17 19 20 21 23 24 25 333112211333333 68 43 27 11 7 3 4 0 0 0 0 0 0 0 0
01 02 03 04 05 06 07 09 13 14 16 20 22 23 24 777777712211333 71 44 28 11 7 3 5 0 0 0 0 0 0 0 0
05 07 08 09 10 11 13 14 16 17 19 20 21 22 23 155555222255555 72 46 28 11 9 3 5 0 0 0 0 0 0 0 0
03 06 08 10 11 12 13 14 15 18 20 21 22 24 25 111666666133322 76 47 29 11 9 4 5 0 0 0 0 0 0 0 0
01 03 07 09 10 11 12 13 14 16 17 18 19 20 21 111666666666666 79 47 29 11 9 6 5 0 0 0 0 0 0 0 0

On the far right I was keeping a running total of all the sequence numbers so if you wanted to know about the current line sequence counts just take the current line total and subtract the last line's current total.

So to do your seq counts, do that, subtract current line running totals from previous line and ignore the sequences of 1 or 2 because you don't seem to care about those, and print seq 3 = 2 seq 5 = 1 or whatever...

And while doing that, add the sequence counts for the page of how many ever lines you are doing for the page for printing onto the screen your own show.

Yes so in summary, use the analysis code to get the numbers you need for showing your data, then write your own show of the data in whatever way you desire to see the data.

[carloscordeiro]

Bplus, are you talking about these underlined numbers? I see it gets easier. My difficulty is to extract from your file that you created to insert in my show code.

You are very excited, so I always thank you for all your attention.
Could you in a few lines like I do to extract the ready-made sequence from the file you created?

[bplus]

Carlos, I have written my Show Mod #2 with comments to make it easy to follow and I included comments to show how you might modify the code to show what you want to show:

Code: QB64: [Select]

1. _TITLE "sequence show mod #2" ' b+ 2020=09-07
2. DIM d(1 TO 2029) AS STRING
3. SCREEN _NEWIMAGE(700, 740, 12)
4. _DELAY .25
5. _SCREENMOVE 200, 0
6. OPEN "seque analysis.txt" FOR INPUT AS #1 '  <  load all the lines from analysis into d() string array
7. FOR i = 1 TO 2029
8.     LINE INPUT #1, d(i)
9. NEXT
10. CLOSE #1
11. 'PRINT d(2029)  ' good
12. page = 0 ' <  I am showing pages of 40 lines at a time  starting at page 0
13. nextPage:
14. CLS
15.  
16. ' !!! carlos redim seqPage(1 to 15)   'to save running total of seq length counts
17.  
18. FOR p = 1 TO 40 ' <<                      each line is p added to page (a multiple of 40)
19.  
20.     '!!! carlos redim seqLength( 1 to 15)
21.  
22.     IF page + p < 2030 THEN
23.         n$ = _TRIM$(STR$(page + p)) ' this is the line number in the data file ready to display
24.         blank$ = SPACE$(6)
25.         MID$(blank$, 2, LEN(n$)) = n$ '<  i insert the line number into a blank of 6 spaces
26.         COLOR 15
27.         PRINT blank$; ' <  OK there is the line number on screen
28.  
29.         ' now the data line has 3 parts
30.         fl$ = MID$(d(page + p), 1, 45) '   <<< this is the 15 2 digit numbers
31.         cs$ = MID$(d(page + p), 46, 15) '  <<< this is the 15 color codes for those numbers
32.         sc$ = MID$(d(page + p), 62) '      <<< this is the running total of each sequence lenth count
33.  
34.  
35.         'get the previous running total of each sequence lenth count
36.         IF page = 0 AND p = 1 THEN ' no previous line
37.             sc2$ = ""
38.         ELSE
39.             sc2$ = MID$(d(page + p - 1), 62) ' this section of the previous line contains the running totals
40.         END IF
41.  
42.         ' now we will show the 15 numbers color coded with QB4.5 numbers
43.         FOR i = 1 TO 15
44.             COLOR VAL("&H" + MID$(cs$, i, 1)) ' set the color
45.             PRINT MID$(fl$, i * 3 - 2, 3); ' print the number
46.         NEXT
47.  
48.  
49.         'Now to figure the sequence length counts for the line.
50.  
51.         '                         We will be using Split a powerful parsing tool!
52.  
53.         REDIM dat$(0), dat2$(0) ' this sets up 2 dynamic arrays to contain numbers of running totals
54.  
55.         Split sc$, " ", dat$() ' this splits sc$ section into an array of numbers the current line running totals here
56.  
57.         IF sc2$ <> "" THEN Split sc2$, " ", dat2$() ' this splits the previous line running totals into an array of numbers
58.  
59.  
60.         PRINT SPACE$(3); ' just separate the line with some space
61.  
62.  
63.         FOR i = LBOUND(dat$) TO UBOUND(dat$) ' current line running totals
64.             COLOR i + 1 ' set color code for sequence
65.  
66.  
67.             '                             carlos you would want to skip this next block
68.  
69.             ' now subtract from current line running totals the previous line if there was one
70.             blank$ = SPACE$(2) '  load our arithmatic into a 2 space blank
71.             IF sc2$ <> "" THEN
72.                 diff$ = _TRIM$(STR$(VAL(dat$(i)) - VAL(dat2$(i)))) ' do subraction and convert number to string
73.                 MID$(blank$, 1, LEN(diff$)) = diff$ ' < the diffence of the running total for a given seq length
74.             ELSE
75.                 MID$(blank$, 1, LEN(dat$(i))) = dat$(i)
76.             END IF
77.             PRINT blank$; ' and here is goes onto our line
78.  
79.  
80.             '                                  Carlos here is where you want to do something different
81.             ' i = 1 and i = 2 you dont want
82.             ' You need to setup:
83.             'different diff calcs
84.             ' if sc2$ <> "" then
85.             'diff = VAL(dat$(i)) - VAL(dat2$(i))
86.             'ELSE
87.             ' diff =val( dat$(i))
88.             'end if
89.  
90.             ' an array (cleared for each line) to hold the maybe:               seqLength(i) = seqLength(i) + diff
91.             ' and array for the page to hold the running totals for the page:   seqPage(i) = seqPage(i) + diff
92.  
93.         NEXT
94.  
95.         ' !!! Carlos from seqLength build a line that list the seq length and counts for seqLength() array
96.       [s] ' b$ = ""  ' start a build string[/s]
97.         ' for i = 3 to 15
98.             ' color i
99.        '        if seqLength(i) then ? "seq Length"; str$(i); " amount = " ; str$(seqLength(i));
100.         '  next
101.         ' !!! and print it to finish your lines
102.       [s]  ' print b$   'finish your data line [/s]
103.  
104.         PRINT ' line is finished finally !
105.     ELSE
106.         COLOR 15
107.         PRINT SPACE$(34) + "*** End of Data ***"
108.         EXIT FOR
109.     END IF
110. NEXT
111.  
112. ' !!!!!!!!!! Carlos locate and print the data from the seqPage() totals now
113. '  remember the QB color is same as i
114. 'FOR i = 3 TO 15
115. '      color i
116. '       if seqPage(i) then locate i, someX past already written stuff : print total i lengths this page = seqPage(i)
117. 'next
118.  
119. PRINT
120. FOR i = 1 TO 15 'this is color code legend I write at bottom of screen
121.     COLOR i
122.     blank$ = SPACE$(10)
123.     s$ = "seq of " + _TRIM$(STR$(i))
124.     MID$(blank$, 2, LEN(s$)) = s$
125.     PRINT blank$;
126.     IF i = 8 THEN PRINT
127. NEXT
128.  
129. 'last bit of instruction for page
130. PRINT: PRINT
131. PRINT SPACE$(25) + "press u for page Up, d for page Down ";
132. _DISPLAY
133.  
134.  
135.  
136. ' now wait for keypress to page up or page down   and handle it
137. getpage:
138. pageDir$ = ""
139. WHILE UCASE$(pageDir$) <> "U" AND UCASE$(pageDir$) <> "D"
140.     pageDir$ = INKEY$
141.     _LIMIT 60
142. WEND
143. IF UCASE$(pageDir$) = "U" THEN
144.     IF page - 40 >= 0 THEN page = page - 40 ELSE BEEP
145. ELSEIF UCASE$(pageDir$) = "D" THEN
146.     IF page + 40 <= 2040 THEN page = page + 40 ELSE BEEP
147. ELSE
148.     IF pageDir$ <> "" THEN BEEP
149.     GOTO getpage
150. END IF
151. GOTO nextPage
152.  
153.  
154.  
155. '                a very powerful parsing tool!!!
156.  
157. SUB Split (SplitMeString AS STRING, delim AS STRING, loadMeArray() AS STRING)
158.     DIM curpos AS LONG, arrpos AS LONG, LD AS LONG, dpos AS LONG 'fix use the Lbound the array already has
159.     curpos = 1: arrpos = LBOUND(loadMeArray): LD = LEN(delim)
160.     dpos = INSTR(curpos, SplitMeString, delim)
161.     DO UNTIL dpos = 0
162.         loadMeArray(arrpos) = MID$(SplitMeString, curpos, dpos - curpos)
163.         arrpos = arrpos + 1
164.         IF arrpos > UBOUND(loadMeArray) THEN REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO UBOUND(loadMeArray) + 1000) AS STRING
165.         curpos = dpos + LD
166.         dpos = INSTR(curpos, SplitMeString, delim)
167.     LOOP
168.     loadMeArray(arrpos) = MID$(SplitMeString, curpos)
169.     REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO arrpos) AS STRING 'get the ubound correct
170. END SUB
171.  
172.  
173.  
174. 'hint   to color code writing
175. 'FOR i = 0 TO 15
176. '    PRINT HEX$(i), VAL("&H" + HEX$(i))
177. 'NEXT
178.  
179.  

[bplus]

I am testing my ideas and found something important to change:

Code: QB64: [Select]

1. REDIM dat$(0), dat2$(0)
2.  

to
 

Code: QB64: [Select]

1. REDIM dat$(1 to 1), dat2$(1 to 1)  'make lower bound of dat$ 1 not 0 for ease of code changes further on.
2.  

[bplus]

Yep other than REDIM Dat$(1 to 1) arrays, it ran with few corrections:

Code: QB64: [Select]

1. _TITLE "sequence show mod #2" ' b+ 2020=09-07
2. DIM d(1 TO 2029) AS STRING
3. SCREEN _NEWIMAGE(1180, 740, 12)
4. _DELAY .25
5. _SCREENMOVE _MIDDLE
6. OPEN "seque analysis.txt" FOR INPUT AS #1 '  <  load all the lines from analysis into d() string array
7. FOR i = 1 TO 2029
8.     LINE INPUT #1, d(i)
9. NEXT
10. CLOSE #1
11. 'PRINT d(2029)  ' good
12. page = 0 ' <  I am showing pages of 40 lines at a time  starting at page 0
13. nextPage:
14. CLS
15.  
16. ' !!! carlos redim seqPage(1 to 15)   'to save running total of seq length counts
17. REDIM seqPage(1 TO 15)
18. FOR p = 1 TO 40 ' <<                      each line is p added to page (a multiple of 40)
19.  
20.     '!!! carlos redim seqLength( 1 to 15)
21.     REDIM seqLength(1 TO 15)
22.  
23.     IF page + p < 2030 THEN
24.         n$ = _TRIM$(STR$(page + p)) ' this is the line number in the data file ready to display
25.         blank$ = SPACE$(6)
26.         MID$(blank$, 2, LEN(n$)) = n$ '<  i insert the line number into a blank of 6 spaces
27.         COLOR 15
28.         PRINT blank$; ' <  OK there is the line number on screen
29.  
30.         ' now the data line has 3 parts
31.         fl$ = MID$(d(page + p), 1, 45) '   <<< this is the 15 2 digit numbers
32.         cs$ = MID$(d(page + p), 46, 15) '  <<< this is the 15 color codes for those numbers
33.         sc$ = MID$(d(page + p), 62) '      <<< this is the running total of each sequence lenth count
34.  
35.  
36.         'get the previous running total of each sequence lenth count
37.         IF page = 0 AND p = 1 THEN ' no previous line
38.             sc2$ = ""
39.         ELSE
40.             sc2$ = MID$(d(page + p - 1), 62) ' this section of the previous line contains the running totals
41.         END IF
42.  
43.         ' now we will show the 15 numbers color coded with QB4.5 numbers
44.         FOR i = 1 TO 15
45.             COLOR VAL("&H" + MID$(cs$, i, 1)) ' set the color
46.             PRINT MID$(fl$, i * 3 - 2, 3); ' print the number
47.         NEXT
48.  
49.  
50.         'Now to figure the sequence length counts for the line.
51.  
52.         '                         We will be using Split a powerful parsing tool!
53.  
54.         REDIM dat$(1 TO 1), dat2$(1 TO 1) ' this sets up 2 dynamic arrays to contain numbers of running totals
55.  
56.         Split sc$, " ", dat$() ' this splits sc$ section into and array of numbers  the currnet line running totals here
57.  
58.         IF sc2$ <> "" THEN Split sc2$, " ", dat2$() ' this splits the previous line running totals into an array of numbers
59.  
60.  
61.         PRINT SPACE$(3); ' just separate the line with some space
62.  
63.         'PRINT LBOUND(dat$), UBOUND(dat$)
64.         'END
65.  
66.         FOR i = LBOUND(dat$) TO UBOUND(dat$) ' current line running totals
67.  
68.             COLOR i ' set color code for sequence
69.  
70.             ' now subtract from current line running totals the previous line if there was one
71.             'blank$ = SPACE$(2) '  load our arithmatic into a 2 space blank
72.             'IF sc2$ <> "" THEN
73.             '    diff$ = _TRIM$(STR$(VAL(dat$(i)) - VAL(dat2$(i)))) ' do subraction and convert number to string
74.             '    MID$(blank$, 1, LEN(diff$)) = diff$ ' < the diffence of the running total for a given seq length
75.             'ELSE
76.             '    MID$(blank$, 1, LEN(dat$(i))) = dat$(i)
77.             'END IF
78.             'PRINT blank$; ' and here is goes onto our line
79.  
80.  
81.             'Carlos here is where you want to do something different
82.             ' i = 1 and i = 2 you dont want
83.             ' You need to setup:
84.             'different diff calcs
85.             IF sc2$ <> "" THEN
86.                 diff = VAL(dat$(i)) - VAL(dat2$(i))
87.             ELSE
88.                 diff = VAL(dat$(i))
89.             END IF
90.  
91.             ' an array (cleared for each line) to hold the maybe:               seqLength(i) = seqLength(i) + diff
92.             ' and array for the page to hold the running totals for the page:   seqPage(i) = seqPage(i) + diff
93.             seqLength(i) = seqLength(i) + diff
94.             seqPage(i) = seqPage(i) + diff
95.         NEXT
96.  
97.         ' !!! Carlos from seqLength build a line that list the seq length and counts for seqLength() array
98.         ' !!! and print it to finish your lines
99.         FOR i = 3 TO 15
100.             COLOR i
101.             IF seqLength(i) THEN PRINT "  seq"; i; "="; seqLength(i);
102.         NEXT
103.         '!!! and print it to finish your lines
104.  
105.  
106.         PRINT ' my line is finished finally !
107.     ELSE
108.         COLOR 15
109.         PRINT SPACE$(34) + "*** End of Data ***"
110.         EXIT FOR
111.     END IF
112. NEXT
113.  
114. ' !!!!!!!!!! Carlos locate and print the data from the seqPage() totals now
115. '  remember the QB color is same as i
116. FOR i = 3 TO 15
117.     COLOR i
118.     IF seqPage(i) THEN LOCATE i, 100: PRINT "Total"; i; "lengths this page ="; seqPage(i)
119. NEXT
120.  
121. PRINT
122. LOCATE 42, 1
123. FOR i = 1 TO 15 'this is color code legend I write at bottom of screen
124.     COLOR i
125.     blank$ = SPACE$(10)
126.     s$ = "seq of " + _TRIM$(STR$(i))
127.     MID$(blank$, 2, LEN(s$)) = s$
128.     PRINT blank$;
129.     IF i = 8 THEN PRINT
130. NEXT
131.  
132. 'ast bit of instruction for page
133. PRINT: PRINT
134. PRINT SPACE$(25) + "press u for page Up, d for page Down ";
135. _DISPLAY
136.  
137.  
138.  
139. ' now wait for keypress to page up or page down   and handle it
140. getpage:
141. pageDir$ = ""
142. WHILE UCASE$(pageDir$) <> "U" AND UCASE$(pageDir$) <> "D"
143.     pageDir$ = INKEY$
144.     _LIMIT 60
145. WEND
146. IF UCASE$(pageDir$) = "U" THEN
147.     IF page - 40 >= 0 THEN page = page - 40 ELSE BEEP
148. ELSEIF UCASE$(pageDir$) = "D" THEN
149.     IF page + 40 <= 2040 THEN page = page + 40 ELSE BEEP
150. ELSE
151.     IF pageDir$ <> "" THEN BEEP
152.     GOTO getpage
153. END IF
154. GOTO nextPage
155.  
156.  
157.  
158. '                a very powerful parsing tool!!!
159.  
160. SUB Split (SplitMeString AS STRING, delim AS STRING, loadMeArray() AS STRING)
161.     DIM curpos AS LONG, arrpos AS LONG, LD AS LONG, dpos AS LONG 'fix use the Lbound the array already has
162.     curpos = 1: arrpos = LBOUND(loadMeArray): LD = LEN(delim)
163.     dpos = INSTR(curpos, SplitMeString, delim)
164.     DO UNTIL dpos = 0
165.         loadMeArray(arrpos) = MID$(SplitMeString, curpos, dpos - curpos)
166.         arrpos = arrpos + 1
167.         IF arrpos > UBOUND(loadMeArray) THEN REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO UBOUND(loadMeArray) + 1000) AS STRING
168.         curpos = dpos + LD
169.         dpos = INSTR(curpos, SplitMeString, delim)
170.     LOOP
171.     loadMeArray(arrpos) = MID$(SplitMeString, curpos)
172.     REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO arrpos) AS STRING 'get the ubound correct
173. END SUB
174.  
175.  
176.  
177. 'hint   to color code writing
178. 'FOR i = 0 TO 15
179. '    PRINT HEX$(i), VAL("&H" + HEX$(i))
180. 'NEXT
181.  
182.  

 

[carloscordeiro]

Hi Bplus, that's exactly what I want, now I made a big mistake. I was not careful to mention that the file seque.txt is cumulative. You've done a lot, I'm ashamed to ask you for something more.

I'll leave it as is, with two steps.

From the beginning, I really liked the scroll bar "u for Up" and "d for page Down" that you inserted in your code.
At night I will put the frame with lines.

Thank you very much

Carlos

[bplus]

Hi Bplus, that's exactly what I want, now I made a big mistake. I was not careful to mention that the file seque.txt is cumulative. You've done a lot, I'm ashamed to ask you for something more.

I'll leave it as is, with two steps.

From the beginning, I really liked the scroll bar "u for Up" and "d for page Down" that you inserted in your code.
At night I will put the frame with lines.

Thank you very much

Carlos

If you are asking for cumulative totals on the sequence lengths, they are already there in the analysis file. It is from that that I find the totals for the line (though I could do it from the color coding 15 character string that's more work).

This solution done in 2 steps makes it easier to follow the coding logic. After the analysis is done, you don't need original data file and you can then concentrate on how you want the data displayed.

[carloscordeiro]

Okay, thanks again for your attention and dedication to helping.