help my

[bplus]

an array would be a variable containing more content

only variable that can hold multiple values

Si Una variabile con molti valori indicizzati
yes, a variable with many indexed values

can I contain how many contents? is there a limit?

DIM ilMioArray(1 TO 20)  ' this allows the array ilMioArray() to hold 20 integers
questo permette all'array ilMioArray() di contenere 20 numeri interi

DIM ilMioArray(1 to 1000) 'this allows 1000 elements or integer
'questo permette 1000 elementi o numeri interi

You access each by the index in between ( ), the 5th one is ilMioArray(5)
Si accede ciascuno dall'indice in mezzo ( ), il quinto è ilMioArray(5)

To assign the 5th integer in ilMioArray() like this:
ilMioArray(5) = some integer say for instance 7
Per assegnare il quinto numero intero in ilMioArray() in questo modo:
ilMioArray(5) - alcuni numeri interi dicono per esempio 7

Assigning many values at once to many array variables is done usually with FOR loops and i for indice.
L'assegnazione di più valori contemporaneamente a molte variabili di matrice viene eseguita in genere con cicli FOR e i per l'indice.
For i = 1 to 20
    ilMioArray(i) = i  'this puts the i value into the array(i) variable
Next

like this:

index          variable      =  value
i = 1 then ilMioArray(1) = 1
i = 2 then ilMioArray(2) = 2
i = 3 then ilMioArray(3) = 3
i = 4 then ilMioArray(3) = 4
.
.
.
i = 19 then ilMioArray(19) = 19
i = 20 then ilMioArray(20) = 20

those on the right in the image what are they?

PRINT "modificare il contenuto della mia matrice  'modify my array contents"
FOR i = 1 to 20
    ilMioArray(i) = ilMioArray(i) ^ 2 + 1 ' al quadrato piu (+) 1   'squared plus 1
NEXT

x^2 = x * x  or 3^2 = 3*3 = 9  or 5^2 = 5*5 = 25  or 12^2 = 12*12 =144
       
index         variable       = value
i = 1 then ilMioArray(1) = 1^2 + 1 = 2
i = 2 then ilMioArray(2) = 2^2 + 1 = 5
i = 3 then ilMioArray(3) = 3^2 + 1 = 10
i = 4 then ilMioArray(3) = 4^2 + 1 = 17
.
.
.
i = 19 then ilMioArray(19) = 19^2 + 1 = 362
i = 20 then ilMioArray(20) = 20^2 + 1 = 401

[SMcNeill]

One of the easiest ways for beginners to think of arrays is to think of them as variables with the same name, but different numbers.

Let's say I give you homework of:  "Ask 5 people to enter their name, and then tell them all hello in a single uninterrupted sentence."

Now, you could go this route:

Code: [Select]

INPUT "Please tell me your name"; name1$
INPUT "Please tell me your name"; name2$
INPUT "Please tell me your name"; name3$
INPUT "Please tell me your name"; name4$
INPUT "Please tell me your name"; name5$

PRINT "Hello"; name1$; "," ; name2$; ","; name3$; ","; name4$; ","; name5$
OR, you could use an array to store the names.

Code: [Select]

DIM nam(1 TO 5) AS STRING
FOR I = 1 TO 5
   INPUT "Please tell me your name"; nam(I)
NEXT

PRINT "Hello ";
FOR I = 1 TO 5
    PRINT ","; nam(I);
NEXT
Now, with just 5 names, the code isn't very different in size or complexity, but change that to, "Get 500 people to give you their names"....

Arrays basically are nothing more than just a simple way to stick numbers to the end of variables, to allow for ease of mass handling them.  name1, name2, name3, name4, name5, nameN all are handled in one simple DIM nam(1 TO N) statement.  ;)

[bplus]

later you said to load a file into an array

how can i upload it?

Code: QB64: [Select]

1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
2.  
3. DEFINT A-Z 'everything is integer unless DIM or suffix
4.  
5. DIM a AS STRING, count, i, lineNum, Q$, num AS INTEGER
6.  
7. 'count lines in file  contare le righe nel file
8. OPEN "lotto.dat" FOR INPUT AS #1
9. WHILE NOT EOF(1)
10.     INPUT #1, a
11.     'PRINT a
12.     'INPUT " OK enter "; w$
13.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
14. WEND
15. CLOSE #1
16.  
17. 'now we know the size of the file so we are ready to DIM an array
18. 'ora sappiamo la dimensione del file in modo da essere pronti a DIM un array
19. DIM fileDAT(1 TO count) AS STRING
20. OPEN "lotto.dat" FOR INPUT AS #1
21. FOR i = 1 TO count
22.     INPUT #1, a
23.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
24. NEXT
25. CLOSE #1
26.  

[bplus]

There is light at end of tunnel but it's a little advanced.
  [ You are not allowed to view this attachment ]  

[Kiara87]

thanks to you too good explanation

One of the easiest ways for beginners to think of arrays is to think of them as variables with the same name, but different numbers.

Let's say I give you homework of:  "Ask 5 people to enter their name, and then tell them all hello in a single uninterrupted sentence."

Now, you could go this route:

Code: [Select]

INPUT "Please tell me your name"; name1$
INPUT "Please tell me your name"; name2$
INPUT "Please tell me your name"; name3$
INPUT "Please tell me your name"; name4$
INPUT "Please tell me your name"; name5$

PRINT "Hello"; name1$; "," ; name2$; ","; name3$; ","; name4$; ","; name5$
OR, you could use an array to store the names.

Code: [Select]

DIM nam(1 TO 5) AS STRING
FOR I = 1 TO 5
   INPUT "Please tell me your name"; nam(I)
NEXT

PRINT "Hello ";
FOR I = 1 TO 5
    PRINT ","; nam(I);
NEXT
Now, with just 5 names, the code isn't very different in size or complexity, but change that to, "Get 500 people to give you their names"....

Arrays basically are nothing more than just a simple way to stick numbers to the end of variables, to allow for ease of mass handling them.  name1, name2, name3, name4, name5, nameN all are handled in one simple DIM nam(1 TO N) statement.  ;)

[Kiara87]

now I am entering the variable you are a true master of qb64

Code: QB64: [Select]

1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
2.  
3. DEFINT A-Z 'everything is integer unless DIM or suffix
4.  
5. DIM a AS STRING, count, i, lineNum, Q$, num AS INTEGER
6.  
7. 'count lines in file  contare le righe nel file
8. OPEN "lotto.dat" FOR INPUT AS #1
9. WHILE NOT EOF(1)
10.     INPUT #1, a
11.     'PRINT a
12.     'INPUT " OK enter "; w$
13.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
14. WEND
15. CLOSE #1
16.  
17. 'now we know the size of the file so we are ready to DIM an array
18. 'ora sappiamo la dimensione del file in modo da essere pronti a DIM un array
19. DIM fileDAT(1 TO count) AS STRING
20. OPEN "lotto.dat" FOR INPUT AS #1
21. FOR i = 1 TO count
22.     INPUT #1, a
23.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
24. NEXT
25. CLOSE #1
26.  

[Kiara87]

gives me an error where am I wrong I inserted the arrays wrong?

where am i wrong?

Code: QB64: [Select]

1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
2.  
3. DEFINT A-Z 'everything is integer unless DIM or suffix
4.  
5. DIM a AS STRING, count, i, lineNum, Q$, num AS INTEGER
6.  
7. 'count lines in file  contare le righe nel file
8. OPEN "lotto.dat" FOR INPUT AS #1
9. WHILE NOT EOF(1)
10.     INPUT #1, a
11.     'PRINT a
12.     'INPUT " OK enter "; w$
13.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
14. WEND
15. CLOSE #1
16.  
17. 'now we know the size of the file so we are ready to DIM an array
18. 'ora sappiamo la dimensione del file in modo da essere pronti a DIM un array
19. DIM fileDAT(1 TO count) AS STRING
20. OPEN "lotto.dat" FOR INPUT AS #1
21. FOR i = 1 TO count
22.     INPUT #1, a
23.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
24. NEXT
25. CLOSE #1
26. 'CLS: PRINT count '480 lines
27. 'END
28. 'CLS
29.  
30. LOCATE 1, 1
31. PRINT "BARI"
32. LOCATE 3, 1
33. PRINT "CAGLIARI"
34. LOCATE 5, 1
35. PRINT "FIRENZE"
36. LOCATE 7, 1
37. PRINT "GENOVA"
38. LOCATE 9, 1
39. PRINT "MILANO"
40. LOCATE 11, 1
41. PRINT "NAPOLI"
42. LOCATE 13, 1
43. PRINT "PALERMO"
44. LOCATE 15, 1
45. PRINT "ROMA"
46. LOCATE 17, 1
47. PRINT "TORINO"
48. LOCATE 19, 1
49. PRINT "VENEZIA"
50. LOCATE 21, 1
51. PRINT "NAZIONALE"
52.  
53.  
54. LOCATE 23, 1: COLOR 4
55. PRINT " + to move on"
56. LOCATE 23, 16: COLOR 3
57. PRINT "- to back"
58.  
59. lineNum = 1
60. GOSUB get_a
61.  
62.  
63. DO
64.  
65.     Q$ = INKEY$
66.     IF Q$ = "+" THEN lineNum = lineNum + 1
67.     IF lineNum > count THEN lineNum = 1
68.  
69.     IF Q$ = "-" THEN lineNum = lineNum - 1
70.     IF lineNum < 1 THEN lineNum = count
71.  
72.     GOSUB get_a
73.  
74.  
75.     LOCATE 1, 34
76.     PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
77.  
78.     REM bari
79.     LOCATE 1, 13
80.     PRINT fileDAT(i)
81.     LOCATE 1, 16
82.     PRINT fileDAT(i)
83.     LOCATE 1, 19
84.     PRINT fileDAT(i)
85.     LOCATE 1, 22
86.     PRINT fileDAT(i)
87.     LOCATE 1, 25
88.     PRINT fileDAT(i)
89.  
90.     REM cagliari
91.     LOCATE 3, 13
92.     PRINT fileDAT(i)
93.     LOCATE 3, 16
94.     PRINT fileDAT(i)
95.     LOCATE 3, 19
96.     PRINT fileDAT(i)
97.     LOCATE 3, 22
98.     PRINT fileDAT(i)
99.     LOCATE 3, 25
100.     PRINT fileDAT(i)
101.  
102.     REM firenze
103.     LOCATE 5, 13
104.     PRINT fileDAT(i)
105.     LOCATE 5, 16
106.     PRINT fileDAT(i)
107.     LOCATE 5, 19
108.     PRINT fileDAT(i)
109.     LOCATE 5, 22
110.     PRINT fileDAT(i)
111.     LOCATE 5, 25
112.     PRINT fileDAT(i)
113.  
114.     REM genova
115.     LOCATE 7, 13
116.     PRINT fileDAT(i)
117.     LOCATE 7, 16
118.     PRINT fileDAT(i)
119.     LOCATE 7, 19
120.     PRINT fileDAT(i)
121.     LOCATE 7, 22
122.     PRINT fileDAT(i)
123.     LOCATE 7, 25
124.     PRINT fileDAT(i)
125.  
126.     REM milano
127.     LOCATE 9, 13
128.     PRINT fileDAT(i)
129.     LOCATE 9, 16
130.     PRINT fileDAT(i)
131.     LOCATE 9, 19
132.     PRINT fileDAT(i)
133.     LOCATE 9, 22
134.     PRINT fileDAT(i)
135.     LOCATE 9, 25
136.     PRINT fileDAT(i)
137.  
138.     REM napoli
139.     LOCATE 11, 13
140.     PRINT fileDAT(i)
141.     LOCATE 11, 16
142.     PRINT fileDAT(i)
143.     LOCATE 11, 19
144.     PRINT fileDAT(i)
145.     LOCATE 11, 22
146.     PRINT fileDAT(i)
147.     LOCATE 11, 25
148.     PRINT fileDAT(i)
149.  
150.     REM palermo
151.     LOCATE 13, 13
152.     PRINT fileDAT(i)
153.     LOCATE 13, 16
154.     PRINT fileDAT(i)
155.     LOCATE 13, 19
156.     PRINT fileDAT(i)
157.     LOCATE 13, 22
158.     PRINT fileDAT(i)
159.     LOCATE 13, 25
160.     PRINT fileDAT(i)
161.  
162.     REM roma
163.     LOCATE 15, 13
164.     PRINT fileDAT(i)
165.     LOCATE 15, 16
166.     PRINT fileDAT(i)
167.     LOCATE 15, 19
168.     PRINT fileDAT(i)
169.     LOCATE 15, 22
170.     PRINT fileDAT(i)
171.     LOCATE 15, 25
172.     PRINT fileDAT(i)
173.  
174.     REM torino
175.     LOCATE 17, 13
176.     PRINT fileDAT(i)
177.     LOCATE 17, 16
178.     PRINT fileDAT(i)
179.     LOCATE 17, 19
180.     PRINT fileDAT(i)
181.     LOCATE 17, 22
182.     PRINT fileDAT(i)
183.     LOCATE 17, 25
184.     PRINT fileDAT(i)
185.  
186.     REM venezia
187.     LOCATE 19, 13
188.     PRINT fileDAT(i)
189.     LOCATE 19, 16
190.     PRINT fileDAT(i)
191.     LOCATE 19, 19
192.     PRINT fileDAT(i)
193.     LOCATE 19, 22
194.     PRINT fileDAT(i)
195.     LOCATE 19, 25
196.     PRINT fileDAT(i)
197.  
198.     REM nazionale
199.     LOCATE 21, 13
200.     PRINT fileDAT(i)
201.     LOCATE 21, 16
202.     PRINT fileDAT(i)
203.     LOCATE 21, 19
204.     PRINT fileDAT(i)
205.     LOCATE 21, 22
206.     PRINT fileDAT(i)
207.     LOCATE 21, 25
208.     PRINT fileDAT(i)
209.  
210.     _LIMIT 30
211. LOOP
212. END
213.  
214.  
215. 'this sub retrieves a line number from file  the hard way
216. get_a:
217. num = 0
218. OPEN "lotto.dat" FOR INPUT AS #1
219. WHILE NOT EOF(1)
220.     INPUT #1, a
221.     IF LEN(_TRIM$(a)) THEN num = num + 1
222.     IF num = lineNum THEN EXIT WHILE 'a is set on line we want
223. WEND
224. CLOSE #1
225.  
226. RETURN
227.  
228.  
229.  
230.  
231.  
232.  

[TempodiBasic]

Hi Kiara87
fine exercise to write a lotto program.

about

gives me an error where am I wrong I inserted the arrays wrong?

where am i wrong?

can you be more specific?
In the bottom part of window of QB64 IDE there is a feedback message about the error? Or do you get error on runtime after pressing F5?
thanks for clearer informations

[Kiara87]

I leave the image as an attachment
putting this code gives me error inserting array

Code: QB64: [Select]

1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
2.  
3. DEFINT A-Z 'everything is integer unless DIM or suffix
4.  
5. DIM a AS STRING, count, i, lineNum, Q$, num AS INTEGER
6.  
7. 'count lines in file  contare le righe nel file
8. OPEN "lotto.dat" FOR INPUT AS #1
9. WHILE NOT EOF(1)
10.     INPUT #1, a
11.     'PRINT a
12.     'INPUT " OK enter "; w$
13.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
14. WEND
15. CLOSE #1
16.  
17. 'now we know the size of the file so we are ready to DIM an array
18. 'ora sappiamo la dimensione del file in modo da essere pronti a DIM un array
19. DIM fileDAT(1 TO count) AS STRING
20. OPEN "lotto.dat" FOR INPUT AS #1
21. FOR i = 1 TO count
22.     INPUT #1, a
23.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
24. NEXT
25. CLOSE #1
26. 'CLS: PRINT count '480 lines
27. 'END
28. 'CLS
29.  
30. LOCATE 1, 1
31. PRINT "BARI"
32. LOCATE 3, 1
33. PRINT "CAGLIARI"
34. LOCATE 5, 1
35. PRINT "FIRENZE"
36. LOCATE 7, 1
37. PRINT "GENOVA"
38. LOCATE 9, 1
39. PRINT "MILANO"
40. LOCATE 11, 1
41. PRINT "NAPOLI"
42. LOCATE 13, 1
43. PRINT "PALERMO"
44. LOCATE 15, 1
45. PRINT "ROMA"
46. LOCATE 17, 1
47. PRINT "TORINO"
48. LOCATE 19, 1
49. PRINT "VENEZIA"
50. LOCATE 21, 1
51. PRINT "NAZIONALE"
52.  
53.  
54. LOCATE 23, 1: COLOR 4
55. PRINT " + to move on"
56. LOCATE 23, 16: COLOR 3
57. PRINT "- to back"
58.  
59. lineNum = 1
60. GOSUB get_a
61.  
62.  
63. DO
64.  
65.     Q$ = INKEY$
66.     IF Q$ = "+" THEN lineNum = lineNum + 1
67.     IF lineNum > count THEN lineNum = 1
68.  
69.     IF Q$ = "-" THEN lineNum = lineNum - 1
70.     IF lineNum < 1 THEN lineNum = count
71.  
72.     GOSUB get_a
73.  
74.  
75.     LOCATE 1, 34
76.     PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
77.  
78.     REM bari
79.     LOCATE 1, 13
80.     PRINT fileDAT(i)
81.     LOCATE 1, 16
82.     PRINT fileDAT(i)
83.     LOCATE 1, 19
84.     PRINT fileDAT(i)
85.     LOCATE 1, 22
86.     PRINT fileDAT(i)
87.     LOCATE 1, 25
88.     PRINT fileDAT(i)
89.  
90.     REM cagliari
91.     LOCATE 3, 13
92.     PRINT fileDAT(i)
93.     LOCATE 3, 16
94.     PRINT fileDAT(i)
95.     LOCATE 3, 19
96.     PRINT fileDAT(i)
97.     LOCATE 3, 22
98.     PRINT fileDAT(i)
99.     LOCATE 3, 25
100.     PRINT fileDAT(i)
101.  
102.     REM firenze
103.     LOCATE 5, 13
104.     PRINT fileDAT(i)
105.     LOCATE 5, 16
106.     PRINT fileDAT(i)
107.     LOCATE 5, 19
108.     PRINT fileDAT(i)
109.     LOCATE 5, 22
110.     PRINT fileDAT(i)
111.     LOCATE 5, 25
112.     PRINT fileDAT(i)
113.  
114.     REM genova
115.     LOCATE 7, 13
116.     PRINT fileDAT(i)
117.     LOCATE 7, 16
118.     PRINT fileDAT(i)
119.     LOCATE 7, 19
120.     PRINT fileDAT(i)
121.     LOCATE 7, 22
122.     PRINT fileDAT(i)
123.     LOCATE 7, 25
124.     PRINT fileDAT(i)
125.  
126.     REM milano
127.     LOCATE 9, 13
128.     PRINT fileDAT(i)
129.     LOCATE 9, 16
130.     PRINT fileDAT(i)
131.     LOCATE 9, 19
132.     PRINT fileDAT(i)
133.     LOCATE 9, 22
134.     PRINT fileDAT(i)
135.     LOCATE 9, 25
136.     PRINT fileDAT(i)
137.  
138.     REM napoli
139.     LOCATE 11, 13
140.     PRINT fileDAT(i)
141.     LOCATE 11, 16
142.     PRINT fileDAT(i)
143.     LOCATE 11, 19
144.     PRINT fileDAT(i)
145.     LOCATE 11, 22
146.     PRINT fileDAT(i)
147.     LOCATE 11, 25
148.     PRINT fileDAT(i)
149.  
150.     REM palermo
151.     LOCATE 13, 13
152.     PRINT fileDAT(i)
153.     LOCATE 13, 16
154.     PRINT fileDAT(i)
155.     LOCATE 13, 19
156.     PRINT fileDAT(i)
157.     LOCATE 13, 22
158.     PRINT fileDAT(i)
159.     LOCATE 13, 25
160.     PRINT fileDAT(i)
161.  
162.     REM roma
163.     LOCATE 15, 13
164.     PRINT fileDAT(i)
165.     LOCATE 15, 16
166.     PRINT fileDAT(i)
167.     LOCATE 15, 19
168.     PRINT fileDAT(i)
169.     LOCATE 15, 22
170.     PRINT fileDAT(i)
171.     LOCATE 15, 25
172.     PRINT fileDAT(i)
173.  
174.     REM torino
175.     LOCATE 17, 13
176.     PRINT fileDAT(i)
177.     LOCATE 17, 16
178.     PRINT fileDAT(i)
179.     LOCATE 17, 19
180.     PRINT fileDAT(i)
181.     LOCATE 17, 22
182.     PRINT fileDAT(i)
183.     LOCATE 17, 25
184.     PRINT fileDAT(i)
185.  
186.     REM venezia
187.     LOCATE 19, 13
188.     PRINT fileDAT(i)
189.     LOCATE 19, 16
190.     PRINT fileDAT(i)
191.     LOCATE 19, 19
192.     PRINT fileDAT(i)
193.     LOCATE 19, 22
194.     PRINT fileDAT(i)
195.     LOCATE 19, 25
196.     PRINT fileDAT(i)
197.  
198.     REM nazionale
199.     LOCATE 21, 13
200.     PRINT fileDAT(i)
201.     LOCATE 21, 16
202.     PRINT fileDAT(i)
203.     LOCATE 21, 19
204.     PRINT fileDAT(i)
205.     LOCATE 21, 22
206.     PRINT fileDAT(i)
207.     LOCATE 21, 25
208.     PRINT fileDAT(i)
209.  
210.     _LIMIT 30
211. LOOP
212. END
213.  
214.  
215. 'this sub retrieves a line number from file  the hard way
216. get_a:
217. num = 0
218. OPEN "lotto.dat" FOR INPUT AS #1
219. WHILE NOT EOF(1)
220.     INPUT #1, a
221.     IF LEN(_TRIM$(a)) THEN num = num + 1
222.     IF num = lineNum THEN EXIT WHILE 'a is set on line we want
223. WEND
224. CLOSE #1
225.  
226. RETURN
227.  
228.  
229.  
230.  
231.  
232.  

Hi Kiara87
fine exercise to write a lotto program.

about
can you be more specific?
In the bottom part of window of QB64 IDE there is a feedback message about the error? Or do you get error on runtime after pressing F5?
thanks for clearer informations

[bplus]

I leave the image as an attachment
putting this code gives me error inserting array

Code: QB64: [Select]

1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
2.  
3. DEFINT A-Z 'everything is integer unless DIM or suffix
4.  
5. DIM a AS STRING, count, i, lineNum, Q$, num AS INTEGER
6.  
7. 'count lines in file  contare le righe nel file
8. OPEN "lotto.dat" FOR INPUT AS #1
9. WHILE NOT EOF(1)
10.     INPUT #1, a
11.     'PRINT a
12.     'INPUT " OK enter "; w$
13.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
14. WEND
15. CLOSE #1
16.  
17. 'now we know the size of the file so we are ready to DIM an array
18. 'ora sappiamo la dimensione del file in modo da essere pronti a DIM un array
19. DIM fileDAT(1 TO count) AS STRING
20. OPEN "lotto.dat" FOR INPUT AS #1
21. FOR i = 1 TO count
22.     INPUT #1, a
23.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
24. NEXT
25. CLOSE #1
26. 'CLS: PRINT count '480 lines
27. 'END
28. 'CLS
29.  
30. LOCATE 1, 1
31. PRINT "BARI"
32. LOCATE 3, 1
33. PRINT "CAGLIARI"
34. LOCATE 5, 1
35. PRINT "FIRENZE"
36. LOCATE 7, 1
37. PRINT "GENOVA"
38. LOCATE 9, 1
39. PRINT "MILANO"
40. LOCATE 11, 1
41. PRINT "NAPOLI"
42. LOCATE 13, 1
43. PRINT "PALERMO"
44. LOCATE 15, 1
45. PRINT "ROMA"
46. LOCATE 17, 1
47. PRINT "TORINO"
48. LOCATE 19, 1
49. PRINT "VENEZIA"
50. LOCATE 21, 1
51. PRINT "NAZIONALE"
52.  
53.  
54. LOCATE 23, 1: COLOR 4
55. PRINT " + to move on"
56. LOCATE 23, 16: COLOR 3
57. PRINT "- to back"
58.  
59. lineNum = 1
60. GOSUB get_a
61.  
62.  
63. DO
64.  
65.     Q$ = INKEY$
66.     IF Q$ = "+" THEN lineNum = lineNum + 1
67.     IF lineNum > count THEN lineNum = 1
68.  
69.     IF Q$ = "-" THEN lineNum = lineNum - 1
70.     IF lineNum < 1 THEN lineNum = count
71.  
72.     GOSUB get_a
73.  
74.  
75.     LOCATE 1, 34
76.     PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
77.  
78.     REM bari
79.     LOCATE 1, 13
80.     PRINT fileDAT(i)
81.     LOCATE 1, 16
82.     PRINT fileDAT(i)
83.     LOCATE 1, 19
84.     PRINT fileDAT(i)
85.     LOCATE 1, 22
86.     PRINT fileDAT(i)
87.     LOCATE 1, 25
88.     PRINT fileDAT(i)
89.  
90.     REM cagliari
91.     LOCATE 3, 13
92.     PRINT fileDAT(i)
93.     LOCATE 3, 16
94.     PRINT fileDAT(i)
95.     LOCATE 3, 19
96.     PRINT fileDAT(i)
97.     LOCATE 3, 22
98.     PRINT fileDAT(i)
99.     LOCATE 3, 25
100.     PRINT fileDAT(i)
101.  
102.     REM firenze
103.     LOCATE 5, 13
104.     PRINT fileDAT(i)
105.     LOCATE 5, 16
106.     PRINT fileDAT(i)
107.     LOCATE 5, 19
108.     PRINT fileDAT(i)
109.     LOCATE 5, 22
110.     PRINT fileDAT(i)
111.     LOCATE 5, 25
112.     PRINT fileDAT(i)
113.  
114.     REM genova
115.     LOCATE 7, 13
116.     PRINT fileDAT(i)
117.     LOCATE 7, 16
118.     PRINT fileDAT(i)
119.     LOCATE 7, 19
120.     PRINT fileDAT(i)
121.     LOCATE 7, 22
122.     PRINT fileDAT(i)
123.     LOCATE 7, 25
124.     PRINT fileDAT(i)
125.  
126.     REM milano
127.     LOCATE 9, 13
128.     PRINT fileDAT(i)
129.     LOCATE 9, 16
130.     PRINT fileDAT(i)
131.     LOCATE 9, 19
132.     PRINT fileDAT(i)
133.     LOCATE 9, 22
134.     PRINT fileDAT(i)
135.     LOCATE 9, 25
136.     PRINT fileDAT(i)
137.  
138.     REM napoli
139.     LOCATE 11, 13
140.     PRINT fileDAT(i)
141.     LOCATE 11, 16
142.     PRINT fileDAT(i)
143.     LOCATE 11, 19
144.     PRINT fileDAT(i)
145.     LOCATE 11, 22
146.     PRINT fileDAT(i)
147.     LOCATE 11, 25
148.     PRINT fileDAT(i)
149.  
150.     REM palermo
151.     LOCATE 13, 13
152.     PRINT fileDAT(i)
153.     LOCATE 13, 16
154.     PRINT fileDAT(i)
155.     LOCATE 13, 19
156.     PRINT fileDAT(i)
157.     LOCATE 13, 22
158.     PRINT fileDAT(i)
159.     LOCATE 13, 25
160.     PRINT fileDAT(i)
161.  
162.     REM roma
163.     LOCATE 15, 13
164.     PRINT fileDAT(i)
165.     LOCATE 15, 16
166.     PRINT fileDAT(i)
167.     LOCATE 15, 19
168.     PRINT fileDAT(i)
169.     LOCATE 15, 22
170.     PRINT fileDAT(i)
171.     LOCATE 15, 25
172.     PRINT fileDAT(i)
173.  
174.     REM torino
175.     LOCATE 17, 13
176.     PRINT fileDAT(i)
177.     LOCATE 17, 16
178.     PRINT fileDAT(i)
179.     LOCATE 17, 19
180.     PRINT fileDAT(i)
181.     LOCATE 17, 22
182.     PRINT fileDAT(i)
183.     LOCATE 17, 25
184.     PRINT fileDAT(i)
185.  
186.     REM venezia
187.     LOCATE 19, 13
188.     PRINT fileDAT(i)
189.     LOCATE 19, 16
190.     PRINT fileDAT(i)
191.     LOCATE 19, 19
192.     PRINT fileDAT(i)
193.     LOCATE 19, 22
194.     PRINT fileDAT(i)
195.     LOCATE 19, 25
196.     PRINT fileDAT(i)
197.  
198.     REM nazionale
199.     LOCATE 21, 13
200.     PRINT fileDAT(i)
201.     LOCATE 21, 16
202.     PRINT fileDAT(i)
203.     LOCATE 21, 19
204.     PRINT fileDAT(i)
205.     LOCATE 21, 22
206.     PRINT fileDAT(i)
207.     LOCATE 21, 25
208.     PRINT fileDAT(i)
209.  
210.     _LIMIT 30
211. LOOP
212. END
213.  
214.  
215. 'this sub retrieves a line number from file  the hard way
216. get_a:
217. num = 0
218. OPEN "lotto.dat" FOR INPUT AS #1
219. WHILE NOT EOF(1)
220.     INPUT #1, a
221.     IF LEN(_TRIM$(a)) THEN num = num + 1
222.     IF num = lineNum THEN EXIT WHILE 'a is set on line we want
223. WEND
224. CLOSE #1
225.  
226. RETURN
227.  
228.  

Oh no! hai sostituito l'intero fileDAT(i) in tutte le istruzioni PRINT! Yikes!!!
Oh no! you replaced the whole fileDAT(i) in all the PRINT statements! Yikes!!!
Ecco il piano generale:
1. contare il numero di righe nel file, ottenere il conteggio
2. DIM una matrice di stringhe alla dimensione del conteggio fileDAT(1 per contare)
3. Caricare i dati del file nel file di arrayDAT

Here is the general plan:
1. count number of lines in the file, get count
2. DIM an string array to the size of count fileDAT(1 to count)
3. Load the file data into the array fileDAT

Now understand each line, each index of fileDAT is just 1 line = the a string variable you use to display the lottery data on screen. We have it all worked out for the variable a string just set:
Ora capire ogni riga, ogni indice di fileDAT è solo 1 riga - la variabile di stringa che si utilizza per visualizzare i dati della lotteria sullo schermo. Abbiamo tutto elaborato per la variabile una stringa appena impostato

Code: QB64: [Select]

1. a = lineDAT(lineNum)

Questa parte ottiene i dati di linea dal file, ma ora abbiamo il file caricato in un array
This part gets the line data out of the file but now we have the file loaded into an array

Code: QB64: [Select]

1.     Q$ = INKEY$
2.     IF Q$ = "+" THEN lineNum = lineNum + 1
3.     IF lineNum > count THEN lineNum = 1
4.  
5.     IF Q$ = "-" THEN lineNum = lineNum - 1
6.     IF lineNum < 1 THEN lineNum = count
7.  
8.     'GOSUB get_a  ' >>>>>>>>>>>>>>>>   this gets the line data from file don't need any more!!!
9.  
10.  

Non ho più bisogno di questo:
Don't need this any more:

Code: QB64: [Select]

1. 'this sub retrieves a line number from file  the hard way
2. get_a:
3. num = 0
4. OPEN "lotto.dat" FOR INPUT AS #1
5. WHILE NOT EOF(1)
6.     INPUT #1, a
7.     IF LEN(_TRIM$(a)) THEN num = num + 1
8.     IF num = lineNum THEN EXIT WHILE 'a is set on line we want
9. WEND
10. CLOSE #1
11.  
12. RETURN

Ora con file caricato in un array tutto ciò che serve è questo:
Now with file loaded into an array all we need is this:

Code: QB64: [Select]

1.     Q$ = INKEY$
2.     IF Q$ = "+" THEN lineNum = lineNum + 1
3.     IF lineNum > count THEN lineNum = 1
4.  
5.     IF Q$ = "-" THEN lineNum = lineNum - 1
6.     IF lineNum < 1 THEN lineNum = count
7.  
8.     'GOSUB get_a  ' >>>>>>>>>>>>>>>>   this gets the line data from file don't need any more!!!
9.    
10.      a = fileDAT(lineNum)  ' <<<< we now get the file line out of the array!!!! yeah, hurrah, applause please ;-))
11.  

Here is my working copy:
Ecco la mia copia di lavoro:

Code: QB64: [Select]

1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
2.  
3. DEFINT A-Z 'everything is integer unless DIM or suffix
4.  
5. DIM a AS STRING, count, i, lineNum, Q$, num AS INTEGER
6.  
7. 'count lines in file  contare le righe nel file
8. OPEN "lotto.dat" FOR INPUT AS #1
9. WHILE NOT EOF(1)
10.     INPUT #1, a
11.     'PRINT a
12.     'INPUT " OK enter "; w$
13.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
14. WEND
15. CLOSE #1
16.  
17. 'now we now size of file so ready an array to load file Data, we know what size we need
18. 'ora sappiamo la dimensione del file in modo da essere pronti a DIM un array
19. DIM fileDAT(1 TO count) AS STRING
20. OPEN "lotto.dat" FOR INPUT AS #1
21. FOR i = 1 TO count
22.     INPUT #1, a
23.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
24. NEXT
25. CLOSE #1
26.  
27.  
28. ' setup screen labels for reporting data
29. LOCATE 1, 1
30. PRINT "BARI"
31. LOCATE 3, 1
32. PRINT "CAGLIARI"
33. LOCATE 5, 1
34. PRINT "FIRENZE"
35. LOCATE 7, 1
36. PRINT "GENOVA"
37. LOCATE 9, 1
38. PRINT "MILANO"
39. LOCATE 11, 1
40. PRINT "NAPOLI"
41. LOCATE 13, 1
42. PRINT "PALERMO"
43. LOCATE 15, 1
44. PRINT "ROMA"
45. LOCATE 17, 1
46. PRINT "TORINO"
47. LOCATE 19, 1
48. PRINT "VENEZIA"
49. LOCATE 21, 1
50. PRINT "NAZIONALE"
51. 'some directions
52. LOCATE 23, 1
53. PRINT " + to move on"
54. LOCATE 23, 16
55. PRINT "- to back"
56.  
57. 'set first line and get a data string from the FileDAT array
58. lineNum = 1
59. a = fileDAT(lineNum)
60. DO
61.     Q$ = INKEY$
62.     IF Q$ = "+" THEN lineNum = lineNum + 1
63.     IF lineNum > count THEN lineNum = 1
64.     IF Q$ = "-" THEN lineNum = lineNum - 1
65.     IF lineNum < 1 THEN lineNum = count
66.     'get new data line
67.     a = fileDAT(lineNum)
68.  
69.     'print out the data from the new line
70.  
71.  
72.     LOCATE 1, 34
73.     PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
74.  
75.     REM bari
76.     LOCATE 1, 13
77.     PRINT VAL(MID$(a, 5, 2))
78.     LOCATE 1, 16
79.     PRINT VAL(MID$(a, 7, 2))
80.     LOCATE 1, 19
81.     PRINT VAL(MID$(a, 9, 2))
82.     LOCATE 1, 22
83.     PRINT VAL(MID$(a, 11, 2))
84.     LOCATE 1, 25
85.     PRINT VAL(MID$(a, 13, 2))
86.  
87.     REM cagliari
88.     LOCATE 3, 13
89.     PRINT VAL(MID$(a, 15, 2))
90.     LOCATE 3, 16
91.     PRINT VAL(MID$(a, 17, 2))
92.     LOCATE 3, 19
93.     PRINT VAL(MID$(a, 19, 2))
94.     LOCATE 3, 22
95.     PRINT VAL(MID$(a, 21, 2))
96.     LOCATE 3, 25
97.     PRINT VAL(MID$(a, 23, 2))
98.  
99.     REM firenze
100.     LOCATE 5, 13
101.     PRINT VAL(MID$(a, 25, 2))
102.     LOCATE 5, 16
103.     PRINT VAL(MID$(a, 27, 2))
104.     LOCATE 5, 19
105.     PRINT VAL(MID$(a, 29, 2))
106.     LOCATE 5, 22
107.     PRINT VAL(MID$(a, 31, 2))
108.     LOCATE 5, 25
109.     PRINT VAL(MID$(a, 33, 2))
110.  
111.     REM genova
112.     LOCATE 7, 13
113.     PRINT VAL(MID$(a, 35, 2))
114.     LOCATE 7, 16
115.     PRINT VAL(MID$(a, 37, 2))
116.     LOCATE 7, 19
117.     PRINT VAL(MID$(a, 39, 2))
118.     LOCATE 7, 22
119.     PRINT VAL(MID$(a, 41, 2))
120.     LOCATE 7, 25
121.     PRINT VAL(MID$(a, 43, 2))
122.  
123.     REM milano
124.     LOCATE 9, 13
125.     PRINT VAL(MID$(a, 45, 2))
126.     LOCATE 9, 16
127.     PRINT VAL(MID$(a, 47, 2))
128.     LOCATE 9, 19
129.     PRINT VAL(MID$(a, 49, 2))
130.     LOCATE 9, 22
131.     PRINT VAL(MID$(a, 51, 2))
132.     LOCATE 9, 25
133.     PRINT VAL(MID$(a, 53, 2))
134.  
135.     REM napoli
136.     LOCATE 11, 13
137.     PRINT VAL(MID$(a, 55, 2))
138.     LOCATE 11, 16
139.     PRINT VAL(MID$(a, 57, 2))
140.     LOCATE 11, 19
141.     PRINT VAL(MID$(a, 59, 2))
142.     LOCATE 11, 22
143.     PRINT VAL(MID$(a, 61, 2))
144.     LOCATE 11, 25
145.     PRINT VAL(MID$(a, 63, 2))
146.  
147.     REM palermo
148.     LOCATE 13, 13
149.     PRINT VAL(MID$(a, 65, 2))
150.     LOCATE 13, 16
151.     PRINT VAL(MID$(a, 67, 2))
152.     LOCATE 13, 19
153.     PRINT VAL(MID$(a, 69, 2))
154.     LOCATE 13, 22
155.     PRINT VAL(MID$(a, 71, 2))
156.     LOCATE 13, 25
157.     PRINT VAL(MID$(a, 73, 2))
158.  
159.     REM roma
160.     LOCATE 15, 13
161.     PRINT VAL(MID$(a, 75, 2))
162.     LOCATE 15, 16
163.     PRINT VAL(MID$(a, 77, 2))
164.     LOCATE 15, 19
165.     PRINT VAL(MID$(a, 79, 2))
166.     LOCATE 15, 22
167.     PRINT VAL(MID$(a, 81, 2))
168.     LOCATE 15, 25
169.     PRINT VAL(MID$(a, 83, 2))
170.  
171.     REM torino
172.     LOCATE 17, 13
173.     PRINT VAL(MID$(a, 85, 2))
174.     LOCATE 17, 16
175.     PRINT VAL(MID$(a, 87, 2))
176.     LOCATE 17, 19
177.     PRINT VAL(MID$(a, 89, 2))
178.     LOCATE 17, 22
179.     PRINT VAL(MID$(a, 91, 2))
180.     LOCATE 17, 25
181.     PRINT VAL(MID$(a, 93, 2))
182.  
183.     REM venezia
184.     LOCATE 19, 13
185.     PRINT VAL(MID$(a, 95, 2))
186.     LOCATE 19, 16
187.     PRINT VAL(MID$(a, 97, 2))
188.     LOCATE 19, 19
189.     PRINT VAL(MID$(a, 99, 2))
190.     LOCATE 19, 22
191.     PRINT VAL(MID$(a, 101, 2))
192.     LOCATE 19, 25
193.     PRINT VAL(MID$(a, 103, 2))
194.  
195.     REM nazionale
196.     LOCATE 21, 13
197.     PRINT VAL(MID$(a, 105, 2))
198.     LOCATE 21, 16
199.     PRINT VAL(MID$(a, 107, 2))
200.     LOCATE 21, 19
201.     PRINT VAL(MID$(a, 109, 2))
202.     LOCATE 21, 22
203.     PRINT VAL(MID$(a, 111, 2))
204.     LOCATE 21, 25
205.     PRINT VAL(MID$(a, 113, 2))
206.  
207.     _LIMIT 30
208. LOOP
209. END
210.  
211. FUNCTION diff30in90 (a, b) 'default integers a-z
212.     DIM hi, lo
213.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
214.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
215.     IF hi - lo = 30 THEN
216.         diff30in90 = -1
217.     ELSE
218.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
219.     END IF
220. END FUNCTION
221.  
222.  
223.  
224.  

It may not seem like a great advancement but it is! It is a great real example of getting file contents into an array which is allot easier to work with that opening the file accessing a line and then closing again, doing that every time you hit the plus or minus key, yikes!

Potrebbe non sembrare un grande progresso, ma lo è! È un grande vero esempio di ottenere il contenuto del file in una matrice che è più facile lavorare con quella che apre il file accedendo a una riga e poi chiude di nuovo, facendo lo stesso tempo che si preme il tasto più o meno, yikes!

😊 I like the Italian translation for yikes!

[bplus]

Then I made this into a GOSUB to get it out of way when reading main programming execution:
Poi ho fatto questo in un GOSUB per farlo fuori strada durante la lettura di esecuzione di programmazione principale:

Code: QB64: [Select]

1. ' setup screen labels for reporting data
2. LOCATE 1, 1
3. PRINT "BARI"
4. LOCATE 3, 1
5. PRINT "CAGLIARI"
6. LOCATE 5, 1
7. PRINT "FIRENZE"
8. LOCATE 7, 1
9. PRINT "GENOVA"
10. LOCATE 9, 1
11. PRINT "MILANO"
12. LOCATE 11, 1
13. PRINT "NAPOLI"
14. LOCATE 13, 1
15. PRINT "PALERMO"
16. LOCATE 15, 1
17. PRINT "ROMA"
18. LOCATE 17, 1
19. PRINT "TORINO"
20. LOCATE 19, 1
21. PRINT "VENEZIA"
22. LOCATE 21, 1
23. PRINT "NAZIONALE"
24. 'some directions
25. LOCATE 23, 1
26. PRINT " + to move on"
27. LOCATE 23, 16
28. PRINT "- to back"
29.  

Appena aggiunto "labelScreen:" all'inizio e "RETURN" nella parte inferiore e spostato il blocco di codice sotto l'istruzione end line.
Just added "labelScreen:" to the top and "RETURN" at the bottom and moved the code block under the END line statement.


Did the same move out of the way trick with this section:
Ha fatto lo stesso mossa fuori del trucco modo con questa sezione:

Code: QB64: [Select]

1.     'print out the data from the new line
2.     LOCATE 1, 34
3.     PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
4.  
5.     REM bari
6.     LOCATE 1, 13
7.     PRINT VAL(MID$(a, 5, 2))
8.     LOCATE 1, 16
9.     PRINT VAL(MID$(a, 7, 2))
10.     LOCATE 1, 19
11.     PRINT VAL(MID$(a, 9, 2))
12.     LOCATE 1, 22
13.     PRINT VAL(MID$(a, 11, 2))
14.     LOCATE 1, 25
15.     PRINT VAL(MID$(a, 13, 2))
16.  
17.     REM cagliari
18.     LOCATE 3, 13
19.     PRINT VAL(MID$(a, 15, 2))
20.     LOCATE 3, 16
21.     PRINT VAL(MID$(a, 17, 2))
22.     LOCATE 3, 19
23.     PRINT VAL(MID$(a, 19, 2))
24.     LOCATE 3, 22
25.     PRINT VAL(MID$(a, 21, 2))
26.     LOCATE 3, 25
27.     PRINT VAL(MID$(a, 23, 2))
28.  
29.     REM firenze
30.     LOCATE 5, 13
31.     PRINT VAL(MID$(a, 25, 2))
32.     LOCATE 5, 16
33.     PRINT VAL(MID$(a, 27, 2))
34.     LOCATE 5, 19
35.     PRINT VAL(MID$(a, 29, 2))
36.     LOCATE 5, 22
37.     PRINT VAL(MID$(a, 31, 2))
38.     LOCATE 5, 25
39.     PRINT VAL(MID$(a, 33, 2))
40.  
41.     REM genova
42.     LOCATE 7, 13
43.     PRINT VAL(MID$(a, 35, 2))
44.     LOCATE 7, 16
45.     PRINT VAL(MID$(a, 37, 2))
46.     LOCATE 7, 19
47.     PRINT VAL(MID$(a, 39, 2))
48.     LOCATE 7, 22
49.     PRINT VAL(MID$(a, 41, 2))
50.     LOCATE 7, 25
51.     PRINT VAL(MID$(a, 43, 2))
52.  
53.     REM milano
54.     LOCATE 9, 13
55.     PRINT VAL(MID$(a, 45, 2))
56.     LOCATE 9, 16
57.     PRINT VAL(MID$(a, 47, 2))
58.     LOCATE 9, 19
59.     PRINT VAL(MID$(a, 49, 2))
60.     LOCATE 9, 22
61.     PRINT VAL(MID$(a, 51, 2))
62.     LOCATE 9, 25
63.     PRINT VAL(MID$(a, 53, 2))
64.  
65.     REM napoli
66.     LOCATE 11, 13
67.     PRINT VAL(MID$(a, 55, 2))
68.     LOCATE 11, 16
69.     PRINT VAL(MID$(a, 57, 2))
70.     LOCATE 11, 19
71.     PRINT VAL(MID$(a, 59, 2))
72.     LOCATE 11, 22
73.     PRINT VAL(MID$(a, 61, 2))
74.     LOCATE 11, 25
75.     PRINT VAL(MID$(a, 63, 2))
76.  
77.     REM palermo
78.     LOCATE 13, 13
79.     PRINT VAL(MID$(a, 65, 2))
80.     LOCATE 13, 16
81.     PRINT VAL(MID$(a, 67, 2))
82.     LOCATE 13, 19
83.     PRINT VAL(MID$(a, 69, 2))
84.     LOCATE 13, 22
85.     PRINT VAL(MID$(a, 71, 2))
86.     LOCATE 13, 25
87.     PRINT VAL(MID$(a, 73, 2))
88.  
89.     REM roma
90.     LOCATE 15, 13
91.     PRINT VAL(MID$(a, 75, 2))
92.     LOCATE 15, 16
93.     PRINT VAL(MID$(a, 77, 2))
94.     LOCATE 15, 19
95.     PRINT VAL(MID$(a, 79, 2))
96.     LOCATE 15, 22
97.     PRINT VAL(MID$(a, 81, 2))
98.     LOCATE 15, 25
99.     PRINT VAL(MID$(a, 83, 2))
100.  
101.     REM torino
102.     LOCATE 17, 13
103.     PRINT VAL(MID$(a, 85, 2))
104.     LOCATE 17, 16
105.     PRINT VAL(MID$(a, 87, 2))
106.     LOCATE 17, 19
107.     PRINT VAL(MID$(a, 89, 2))
108.     LOCATE 17, 22
109.     PRINT VAL(MID$(a, 91, 2))
110.     LOCATE 17, 25
111.     PRINT VAL(MID$(a, 93, 2))
112.  
113.     REM venezia
114.     LOCATE 19, 13
115.     PRINT VAL(MID$(a, 95, 2))
116.     LOCATE 19, 16
117.     PRINT VAL(MID$(a, 97, 2))
118.     LOCATE 19, 19
119.     PRINT VAL(MID$(a, 99, 2))
120.     LOCATE 19, 22
121.     PRINT VAL(MID$(a, 101, 2))
122.     LOCATE 19, 25
123.     PRINT VAL(MID$(a, 103, 2))
124.  
125.     REM nazionale
126.     LOCATE 21, 13
127.     PRINT VAL(MID$(a, 105, 2))
128.     LOCATE 21, 16
129.     PRINT VAL(MID$(a, 107, 2))
130.     LOCATE 21, 19
131.     PRINT VAL(MID$(a, 109, 2))
132.     LOCATE 21, 22
133.     PRINT VAL(MID$(a, 111, 2))
134.     LOCATE 21, 25
135.     PRINT VAL(MID$(a, 113, 2))
136.  

I labeled it screenDataLine: and put RETURN at the bottom of it and moved it below END.
L'ho etichettato screenDataLine: e mettere RETURN nella parte inferiore di esso e spostato sotto END.

Then I called these two GOSUBs at same place in main code where they were before the move:
Poi ho chiamato questi due GOSUB nello stesso posto nel codice principale dove erano prima dello spostamento:

Code: QB64: [Select]

1.     CLS
2.     GOSUB labelScreen
3.     GOSUB screenDataLine
4.  

Oh I found out I had to CLS between call so old lineNum data gets cleared for next line of data.
Oh ho scoperto che ho dovuto CLS tra chiamata così vecchi dati lineNum viene cancellata per la prossima linea di dati.

[bplus]

Here is the part of mastery of Basic, I converted the commented out code to the block of code above it in the GOSUB routine. I needed to do that to make it easy to process the 30's stuff.
Ecco la parte della padronanza di Basic, ho convertito il codice commentato al blocco di codice sopra di esso nella routine GOSUB. Avevo bisogno di farlo per rendere più facile l'elaborazione della roba degli anni '30.

Code: QB64: [Select]

1. screenDataLine:
2. COLOR 15
3. LOCATE 1, 34
4. PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum);
5. aPlace = 5
6. FOR row = 1 TO 11
7.     FOR col = 1 TO 5
8.         LOCATE row * 2, col * 3 - 2: PRINT MID$(a, aPlace, 2);
9.         aPlace = aPlace + 2
10.     NEXT
11. NEXT
12.  
13. '=========================== the above does this ==============================
14. 'LOCATE 1, 34
15. 'PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
16.  
17. 'REM bari
18. 'LOCATE 1, 13
19. 'PRINT VAL(MID$(a, 5, 2))
20. 'LOCATE 1, 16
21. 'PRINT VAL(MID$(a, 7, 2))
22. 'LOCATE 1, 19
23. 'PRINT VAL(MID$(a, 9, 2))
24. 'LOCATE 1, 22
25. 'PRINT VAL(MID$(a, 11, 2))
26. 'LOCATE 1, 25
27. 'PRINT VAL(MID$(a, 13, 2))
28.  
29. 'REM cagliari
30. 'LOCATE 3, 13
31. 'PRINT VAL(MID$(a, 15, 2))
32. 'LOCATE 3, 16
33. 'PRINT VAL(MID$(a, 17, 2))
34. 'LOCATE 3, 19
35. 'PRINT VAL(MID$(a, 19, 2))
36. 'LOCATE 3, 22
37. 'PRINT VAL(MID$(a, 21, 2))
38. 'LOCATE 3, 25
39. 'PRINT VAL(MID$(a, 23, 2))
40.  
41. 'REM firenze
42. 'LOCATE 5, 13
43. 'PRINT VAL(MID$(a, 25, 2))
44. 'LOCATE 5, 16
45. 'PRINT VAL(MID$(a, 27, 2))
46. 'LOCATE 5, 19
47. 'PRINT VAL(MID$(a, 29, 2))
48. 'LOCATE 5, 22
49. 'PRINT VAL(MID$(a, 31, 2))
50. 'LOCATE 5, 25
51. 'PRINT VAL(MID$(a, 33, 2))
52.  
53. 'REM genova
54. 'LOCATE 7, 13
55. 'PRINT VAL(MID$(a, 35, 2))
56. 'LOCATE 7, 16
57. 'PRINT VAL(MID$(a, 37, 2))
58. 'LOCATE 7, 19
59. 'PRINT VAL(MID$(a, 39, 2))
60. 'LOCATE 7, 22
61. 'PRINT VAL(MID$(a, 41, 2))
62. 'LOCATE 7, 25
63. 'PRINT VAL(MID$(a, 43, 2))
64.  
65. 'REM milano
66. 'LOCATE 9, 13
67. 'PRINT VAL(MID$(a, 45, 2))
68. 'LOCATE 9, 16
69. 'PRINT VAL(MID$(a, 47, 2))
70. 'LOCATE 9, 19
71. 'PRINT VAL(MID$(a, 49, 2))
72. 'LOCATE 9, 22
73. 'PRINT VAL(MID$(a, 51, 2))
74. 'LOCATE 9, 25
75. 'PRINT VAL(MID$(a, 53, 2))
76.  
77. 'REM napoli
78. 'LOCATE 11, 13
79. 'PRINT VAL(MID$(a, 55, 2))
80. 'LOCATE 11, 16
81. 'PRINT VAL(MID$(a, 57, 2))
82. 'LOCATE 11, 19
83. 'PRINT VAL(MID$(a, 59, 2))
84. 'LOCATE 11, 22
85. 'PRINT VAL(MID$(a, 61, 2))
86. 'LOCATE 11, 25
87. 'PRINT VAL(MID$(a, 63, 2))
88.  
89. 'REM palermo
90. 'LOCATE 13, 13
91. 'PRINT VAL(MID$(a, 65, 2))
92. 'LOCATE 13, 16
93. 'PRINT VAL(MID$(a, 67, 2))
94. 'LOCATE 13, 19
95. 'PRINT VAL(MID$(a, 69, 2))
96. 'LOCATE 13, 22
97. 'PRINT VAL(MID$(a, 71, 2))
98. 'LOCATE 13, 25
99. 'PRINT VAL(MID$(a, 73, 2))
100.  
101. 'REM roma
102. 'LOCATE 15, 13
103. 'PRINT VAL(MID$(a, 75, 2))
104. 'LOCATE 15, 16
105. 'PRINT VAL(MID$(a, 77, 2))
106. 'LOCATE 15, 19
107. 'PRINT VAL(MID$(a, 79, 2))
108. 'LOCATE 15, 22
109. 'PRINT VAL(MID$(a, 81, 2))
110. 'LOCATE 15, 25
111. 'PRINT VAL(MID$(a, 83, 2))
112.  
113. 'REM torino
114. 'LOCATE 17, 13
115. 'PRINT VAL(MID$(a, 85, 2))
116. 'LOCATE 17, 16
117. 'PRINT VAL(MID$(a, 87, 2))
118. 'LOCATE 17, 19
119. 'PRINT VAL(MID$(a, 89, 2))
120. 'LOCATE 17, 22
121. 'PRINT VAL(MID$(a, 91, 2))
122. 'LOCATE 17, 25
123. 'PRINT VAL(MID$(a, 93, 2))
124.  
125. 'REM venezia
126. 'LOCATE 19, 13
127. 'PRINT VAL(MID$(a, 95, 2))
128. 'LOCATE 19, 16
129. 'PRINT VAL(MID$(a, 97, 2))
130. 'LOCATE 19, 19
131. 'PRINT VAL(MID$(a, 99, 2))
132. 'LOCATE 19, 22
133. 'PRINT VAL(MID$(a, 101, 2))
134. 'LOCATE 19, 25
135. 'PRINT VAL(MID$(a, 103, 2))
136.  
137. 'REM nazionale
138. 'LOCATE 21, 13
139. 'PRINT VAL(MID$(a, 105, 2))
140. 'LOCATE 21, 16
141. 'PRINT VAL(MID$(a, 107, 2))
142. 'LOCATE 21, 19
143. 'PRINT VAL(MID$(a, 109, 2))
144. 'LOCATE 21, 22
145. 'PRINT VAL(MID$(a, 111, 2))
146. 'LOCATE 21, 25
147. 'PRINT VAL(MID$(a, 113, 2))
148. '========================================================================
149. RETURN
150.  
151.  

[bplus]

So far, functionally, I changed absolutely nothing BUT NOW I am setup to put the screened data into a 5 column X 11 row array to process the 30's.
Finora, funzionalmente, ho cambiato assolutamente nulla MA ora sono configurato per mettere i dati schermati in un array di righe X 11 di 5 colonne per elaborare il 30.


Put this at the top part of main code with the other DIM statements, make room for another array:
Mettere questo nella parte superiore del codice principale con le altre istruzioni DIM, fare spazio per un altro array:

Code: QB64: [Select]

1. CONST nRows = 11
2. DIM lineDAT(1 TO 5, 1 TO nRows) AS INTEGER 'an  array to load from each line from DAT

This code loads that array (might take a little more than Beginner skills) and uses it to get the 30's in a GOSUB:
Questo codice carica tale matrice (potrebbe richiedere un po 'più di abilità principianti) e lo usa per ottenere il 30's in un GOSUB:

Code: QB64: [Select]

1. loadLineDAT_Mark30s: 'this  loads the lineDAT array, so we can sweep through the columes and mark 30's
2. rowCnt = 1: y = 1
3. FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
4.     lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
5.     rowCnt = rowCnt + 1 ' increase column if at 6 start new row
6.     IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
7. NEXT
8. COLOR 9 'blue marker  seacrh through columes for  30's
9. FOR col = 1 TO 5 'for each of the columes of data
10.     FOR row = 1 TO 10 'for each of the rows of dat
11.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
12.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
13.                 LOCATE row * 2, col * 3 - 2: PRINT DD$(lineDAT(col, row));
14.                 LOCATE rowPlus * 2, col * 3 - 2: PRINT DD$(lineDAT(col, rowPlus));
15.             END IF
16.         NEXT
17.     NEXT
18. NEXT
19. RETURN
20.  

Ho dovuto fare un FUNCTION per convertire il numero intero di nuovo in un 2 caratteri String:
I had to make a FUNCTION to convert the integer back to a 2 character String:

Code: QB64: [Select]

1. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
2.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
3. END FUNCTION

and this FUNCTION you've seen before:
e questa FUNCTION che avete visto prima:

Code: QB64: [Select]

1. FUNCTION diff30in90 (a, b) 'default integers a-z
2.     DIM hi, lo
3.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
4.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
5.     IF hi - lo = 30 THEN
6.         diff30in90 = -1
7.     ELSE
8.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
9.     END IF
10. END FUNCTION
11.  

[bplus]

Put altogether we get this:

Code: QB64: [Select]

1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
2.  
3. DEFINT A-Z ' everything is integer unless DIM or suffix
4. CONST nRows = 11 'rows of 5 data points in each line of fileDat
5. DIM a AS STRING, count, i, lineNum ' for file and array access
6. DIM Q$ '                             for INKEY$
7. DIM row, col, aPlace '               for screening Data from a string
8. DIM rowCnt, x, y, d, rowPlus '       for loading lineDAT() from a file string
9. DIM lineDAT(1 TO 5, 1 TO nRows) AS INTEGER 'an  array to load from each line from DAT
10.  
11. 'count lines in file
12. OPEN "lotto.dat" FOR INPUT AS #1
13. WHILE NOT EOF(1)
14.     INPUT #1, a
15.     '          debug check inputs from file
16.     'PRINT a
17.     'INPUT " OK enter "; w$
18.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
19. WEND
20. CLOSE #1
21.  
22. 'now we now size of file so ready an array to load file Data
23. DIM fileDAT(1 TO count) AS STRING
24. OPEN "lotto.dat" FOR INPUT AS #1
25. FOR i = 1 TO count
26.     INPUT #1, a
27.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
28. NEXT
29. CLOSE #1
30.  
31. ' NOW all the data if loaded into fileDAT() array, 480 strings of Lottory data
32.  
33. GOSUB labelScreen
34.  
35. 'set first line and get a data string from the FileDAT array
36. lineNum = 1
37. a = fileDAT(lineNum)
38. DO
39.     Q$ = INKEY$
40.     IF Q$ = "+" THEN lineNum = lineNum + 1
41.     IF lineNum > count THEN lineNum = 1
42.     IF Q$ = "-" THEN lineNum = lineNum - 1
43.     IF lineNum < 1 THEN lineNum = count
44.  
45.     'get new data line
46.     a = fileDAT(lineNum)
47.  
48.     'print out the data from the new line
49.     CLS
50.     GOSUB labelScreen
51.     GOSUB screenDataLine
52.     GOSUB loadLineDAT_Mark30s
53.     _DISPLAY
54.     _LIMIT 30
55. LOOP
56. END
57.  
58.  
59. loadLineDAT_Mark30s: 'this  loads the lineDAT array, so we can sweep through the columes and mark 30's
60. rowCnt = 1: y = 1
61. FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
62.     lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
63.     rowCnt = rowCnt + 1 ' increase column if at 6 start new row
64.     IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
65. NEXT
66. COLOR 9 'blue marker  seacrh through columes for  30's
67. FOR col = 1 TO 5 'for each of the columes of data
68.     FOR row = 1 TO 10 'for each of the rows of dat
69.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
70.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
71.                 LOCATE row * 2, col * 3 - 2: PRINT DD$(lineDAT(col, row));
72.                 LOCATE rowPlus * 2, col * 3 - 2: PRINT DD$(lineDAT(col, rowPlus));
73.             END IF
74.         NEXT
75.     NEXT
76. NEXT
77. RETURN
78.  
79.  
80. screenDataLine:
81. COLOR 15
82. LOCATE 1, 34
83. PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum);
84. aPlace = 5
85. FOR row = 1 TO 11
86.     FOR col = 1 TO 5
87.         LOCATE row * 2, col * 3 - 2: PRINT MID$(a, aPlace, 2);
88.         aPlace = aPlace + 2
89.     NEXT
90. NEXT
91.  
92. '=========================== the above does this ==============================
93. 'LOCATE 1, 34
94. 'PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
95.  
96. 'REM bari
97. 'LOCATE 1, 13
98. 'PRINT VAL(MID$(a, 5, 2))
99. 'LOCATE 1, 16
100. 'PRINT VAL(MID$(a, 7, 2))
101. 'LOCATE 1, 19
102. 'PRINT VAL(MID$(a, 9, 2))
103. 'LOCATE 1, 22
104. 'PRINT VAL(MID$(a, 11, 2))
105. 'LOCATE 1, 25
106. 'PRINT VAL(MID$(a, 13, 2))
107.  
108. 'REM cagliari
109. 'LOCATE 3, 13
110. 'PRINT VAL(MID$(a, 15, 2))
111. 'LOCATE 3, 16
112. 'PRINT VAL(MID$(a, 17, 2))
113. 'LOCATE 3, 19
114. 'PRINT VAL(MID$(a, 19, 2))
115. 'LOCATE 3, 22
116. 'PRINT VAL(MID$(a, 21, 2))
117. 'LOCATE 3, 25
118. 'PRINT VAL(MID$(a, 23, 2))
119.  
120. 'REM firenze
121. 'LOCATE 5, 13
122. 'PRINT VAL(MID$(a, 25, 2))
123. 'LOCATE 5, 16
124. 'PRINT VAL(MID$(a, 27, 2))
125. 'LOCATE 5, 19
126. 'PRINT VAL(MID$(a, 29, 2))
127. 'LOCATE 5, 22
128. 'PRINT VAL(MID$(a, 31, 2))
129. 'LOCATE 5, 25
130. 'PRINT VAL(MID$(a, 33, 2))
131.  
132. 'REM genova
133. 'LOCATE 7, 13
134. 'PRINT VAL(MID$(a, 35, 2))
135. 'LOCATE 7, 16
136. 'PRINT VAL(MID$(a, 37, 2))
137. 'LOCATE 7, 19
138. 'PRINT VAL(MID$(a, 39, 2))
139. 'LOCATE 7, 22
140. 'PRINT VAL(MID$(a, 41, 2))
141. 'LOCATE 7, 25
142. 'PRINT VAL(MID$(a, 43, 2))
143.  
144. 'REM milano
145. 'LOCATE 9, 13
146. 'PRINT VAL(MID$(a, 45, 2))
147. 'LOCATE 9, 16
148. 'PRINT VAL(MID$(a, 47, 2))
149. 'LOCATE 9, 19
150. 'PRINT VAL(MID$(a, 49, 2))
151. 'LOCATE 9, 22
152. 'PRINT VAL(MID$(a, 51, 2))
153. 'LOCATE 9, 25
154. 'PRINT VAL(MID$(a, 53, 2))
155.  
156. 'REM napoli
157. 'LOCATE 11, 13
158. 'PRINT VAL(MID$(a, 55, 2))
159. 'LOCATE 11, 16
160. 'PRINT VAL(MID$(a, 57, 2))
161. 'LOCATE 11, 19
162. 'PRINT VAL(MID$(a, 59, 2))
163. 'LOCATE 11, 22
164. 'PRINT VAL(MID$(a, 61, 2))
165. 'LOCATE 11, 25
166. 'PRINT VAL(MID$(a, 63, 2))
167.  
168. 'REM palermo
169. 'LOCATE 13, 13
170. 'PRINT VAL(MID$(a, 65, 2))
171. 'LOCATE 13, 16
172. 'PRINT VAL(MID$(a, 67, 2))
173. 'LOCATE 13, 19
174. 'PRINT VAL(MID$(a, 69, 2))
175. 'LOCATE 13, 22
176. 'PRINT VAL(MID$(a, 71, 2))
177. 'LOCATE 13, 25
178. 'PRINT VAL(MID$(a, 73, 2))
179.  
180. 'REM roma
181. 'LOCATE 15, 13
182. 'PRINT VAL(MID$(a, 75, 2))
183. 'LOCATE 15, 16
184. 'PRINT VAL(MID$(a, 77, 2))
185. 'LOCATE 15, 19
186. 'PRINT VAL(MID$(a, 79, 2))
187. 'LOCATE 15, 22
188. 'PRINT VAL(MID$(a, 81, 2))
189. 'LOCATE 15, 25
190. 'PRINT VAL(MID$(a, 83, 2))
191.  
192. 'REM torino
193. 'LOCATE 17, 13
194. 'PRINT VAL(MID$(a, 85, 2))
195. 'LOCATE 17, 16
196. 'PRINT VAL(MID$(a, 87, 2))
197. 'LOCATE 17, 19
198. 'PRINT VAL(MID$(a, 89, 2))
199. 'LOCATE 17, 22
200. 'PRINT VAL(MID$(a, 91, 2))
201. 'LOCATE 17, 25
202. 'PRINT VAL(MID$(a, 93, 2))
203.  
204. 'REM venezia
205. 'LOCATE 19, 13
206. 'PRINT VAL(MID$(a, 95, 2))
207. 'LOCATE 19, 16
208. 'PRINT VAL(MID$(a, 97, 2))
209. 'LOCATE 19, 19
210. 'PRINT VAL(MID$(a, 99, 2))
211. 'LOCATE 19, 22
212. 'PRINT VAL(MID$(a, 101, 2))
213. 'LOCATE 19, 25
214. 'PRINT VAL(MID$(a, 103, 2))
215.  
216. 'REM nazionale
217. 'LOCATE 21, 13
218. 'PRINT VAL(MID$(a, 105, 2))
219. 'LOCATE 21, 16
220. 'PRINT VAL(MID$(a, 107, 2))
221. 'LOCATE 21, 19
222. 'PRINT VAL(MID$(a, 109, 2))
223. 'LOCATE 21, 22
224. 'PRINT VAL(MID$(a, 111, 2))
225. 'LOCATE 21, 25
226. 'PRINT VAL(MID$(a, 113, 2))
227. '========================================================================
228. RETURN
229.  
230. labelScreen:
231. COLOR 15
232. ' setup screen labels for reporting data
233. LOCATE 1, 1
234. PRINT "BARI"
235. LOCATE 3, 1
236. PRINT "CAGLIARI"
237. LOCATE 5, 1
238. PRINT "FIRENZE"
239. LOCATE 7, 1
240. PRINT "GENOVA"
241. LOCATE 9, 1
242. PRINT "MILANO"
243. LOCATE 11, 1
244. PRINT "NAPOLI"
245. LOCATE 13, 1
246. PRINT "PALERMO"
247. LOCATE 15, 1
248. PRINT "ROMA"
249. LOCATE 17, 1
250. PRINT "TORINO"
251. LOCATE 19, 1
252. PRINT "VENEZIA"
253. LOCATE 21, 1
254. PRINT "NAZIONALE"
255. 'some directions
256. LOCATE 24, 1
257. PRINT " + to move on";
258. LOCATE 24, 16
259. PRINT "- to back";
260. RETURN
261.  
262. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
263.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
264. END FUNCTION
265.  
266. FUNCTION diff30in90 (a, b) 'default integers a-z
267.     DIM hi, lo
268.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
269.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
270.     IF hi - lo = 30 THEN
271.         diff30in90 = -1
272.     ELSE
273.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
274.     END IF
275. END FUNCTION
276.  

And line 470 looks like this:
  [ You are not allowed to view this attachment ]  

[TempodiBasic]

@bplus
great job to modularize the code!

I think that this can be a good help to kiara87 to see and to understand the tecnique behind this code.
More modular more flexible!

About italian translator... 6- in top rating 0-10, otherwise D  in english rating.