Mr. McNeill's extended entrance

[bplus]

Here is where the 22 is coming from but I haven't a clue what you are trying to do with this new code.

Code: QB64: [Select]

1. _TITLE "Qbasic 64"
2. SCREEN _NEWIMAGE(600, 600, 256)
3. _DELAY .25
4. _SCREENMOVE 50, 50
5.  
6.  
7. _CONTROLCHR OFF
8. 'PRINT ExtendedInput$
9.  
10. LOCATE 2, 14: PRINT "_______________________________"
11. LOCATE 2, 3: PRINT "Dozens => ";
12. a$ = ExtendedInput$
13.  
14. h = 4
15. j = 2
16. 'K$ = INKEY$   '<<<<<<<<<<<<<<<<<<<<<<<<<< what is this for?
17. K$ = "Ola Mundo"  ' >>>> see how it effects your code?
18. DO
19.     FOR e = 1 TO 100
20.         h = h + 1
21.         IF h > 10 THEN
22.             COLOR 30: LOCATE 30, 3: PRINT "Press Enter to continue ..."
23.             DO
24.                 _LIMIT 30
25.             LOOP UNTIL INKEY$ = CHR$(13)
26.             h = 5: j = 25
27.         END IF
28.  
29.         FOR i = 1 TO 30 STEP 2
30.             x$ = x$ + MID$(a$, i, 2) + " "
31.         NEXT
32.  
33.         x$ = _TRIM$(x$)
34.  
35.         _LIMIT 60
36.  
37.         LOCATE h, j: PRINT "test"; e; " k$ = "; k$; ASC(k$)
38.     NEXT
39.     Scrn$ = INKEY$
40. LOOP UNTIL Scrn$ = CHR$(27)
41.  
42. END
43.  
44. FUNCTION ExtendedInput$
45.     PCOPY 0, 1
46.     A = _AUTODISPLAY: X = POS(0): Y = CSRLIN
47.     CP = 0: OldCP = 0 'Cursor Position
48.     _KEYCLEAR
49.     DO
50.         PCOPY 1, 0
51.         IF _KEYDOWN(100307) OR _KEYDOWN(100308) THEN AltDown = -1 ELSE AltDown = 0
52.         k = _KEYHIT
53.         IF AltDown THEN
54.             SELECT CASE k 'ignore all keypresses except ALT-number presses
55.                 CASE 48 TO 57: AltWasDown = -1: alt$ = alt$ + CHR$(k)
56.             END SELECT
57.         ELSE
58.             SELECT CASE k 'without alt, add any keypresses to our input
59.                 CASE 8
60.                     oldin$ = in$
61.                     IF CP > 0 THEN OldCP = CP: CP = CP - 1
62.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2) 'backspace to erase input
63.                 CASE 9
64.                     oldin$ = in$
65.                     in$ = LEFT$(in$, CP) + SPACE$(4) + MID$(in$, CP + 1) 'four spaces for any TAB entered
66.                     OldCP = CP
67.                     CP = CP + 4
68.                 CASE 32 TO 128
69.                     IF _KEYDOWN(100305) OR _KEYDOWN(100306) THEN
70.                         IF k = 118 OR k = 86 THEN
71.                             oldin$ = in$
72.                             in$ = LEFT$(in$, CP) + _CLIPBOARD$ + MID$(in$, CP + 1) 'ctrl-v paste
73.                             'CTRL-V leaves cursor in position before the paste, without moving it after.
74.                             'Feel free to modify that behavior here, if you want it to move to after the paste.
75.                             CP = CP + LEN(_CLIPBOARD$)
76.                         END IF
77.                         IF k = 122 OR k = 90 THEN SWAP in$, oldin$: SWAP OldCP, CP 'ctrl-z undo
78.                     ELSE
79.                         oldin$ = in$
80.                         in$ = LEFT$(in$, CP) + CHR$(k) + MID$(in$, CP + 1) 'add input to our string
81.                         OldCP = CP
82.                         CP = CP + 1
83.                     END IF
84.                 CASE 18176 'Home
85.                     CP = 0
86.                 CASE 20224 'End
87.                     CP = LEN(in$)
88.                 CASE 21248 'Delete
89.                     oldin$ = in$
90.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2)
91.                 CASE 19200 'Left
92.                     CP = CP - 1
93.                     IF CP < 0 THEN CP = 0
94.                 CASE 19712 'Right
95.                     CP = CP + 1
96.                     IF CP > LEN(in$) THEN CP = LEN(in$)
97.             END SELECT
98.         END IF
99.         alt$ = RIGHT$(alt$, 3)
100.         IF AltWasDown = -1 AND AltDown = 0 THEN
101.             v = VAL(alt$)
102.             IF v >= 0 AND v <= 255 THEN in$ = in$ + CHR$(v)
103.             alt$ = "": AltWasDown = 0
104.         END IF
105.         blink = (blink + 1) MOD 30
106.         LOCATE Y, X
107.         PRINT LEFT$(in$, CP);
108.         IF blink \ 15 THEN PRINT " "; ELSE PRINT "_";
109.         PRINT MID$(in$, CP + 1)
110.  
111.         _DISPLAY
112.         _LIMIT 30
113.     LOOP UNTIL k = 13
114.  
115.     PCOPY 1, 0
116.     LOCATE Y, X: PRINT in$
117.     ExtendedInput$ = in$
118.     IF A THEN _AUTODISPLAY
119. END FUNCTION
120.  

Why aren't you printing x$ or something that makes more sense? Why the repeating K$?

What's this suppose to look like when correct?

[carloscordeiro]

Hi Carlos,

I'm still here but this looks to me a note addressed to Steve, so I let it alone.
 .

Yes, it was addressed to Steve.
But I think I bothered him.
I didn't get an answer even though it was within the 3 days he gave.

I put the K $ to print the 22.

K $ is not part of the code

Bplus, see the complete code so as not to confuse you.

I will delete the k $. He will still skip line 78. IF h> 41 THEN stop.

The loop takes two turns before stopping.

Dezenas para testar
010204080910121314151617182023

Code: QB64: [Select]

1. _TITLE "Qbasic 64"
2. SCREEN _NEWIMAGE(700, 740, 256)
3. _DELAY .25
4. _SCREENMOVE 20, 30
5.  
6. 'Moldura...
7. LINE (0, 0)-(699, 739), 11, B 'Moldura inteira
8. LINE (1, 1)-(698, 738), 11, B
9. LINE (2, 2)-(697, 737), 11, B
10. LINE (3, 3)-(696, 736), 11, B
11. LINE (4, 4)-(695, 735), 11, B
12.  
13. LINE (699, 43)-(2, 43), 11, B 'Linha Horizontal
14. LINE (699, 44)-(2, 44), 11, B
15.  
16. LINE (536, 737)-(536, 44), 11, B 'Linha Vertical
17. LINE (535, 737)-(535, 44), 11, B
18.  
19. 'Mostra Data
20. d$ = MID$(DATE$, 1, 3)
21. c$ = MID$(DATE$, 4, 3)
22. e$ = MID$(DATE$, 7, 4)
23. f$ = c$ + d$ + e$
24.  
25. COLOR 11: LOCATE 2, 35: PRINT "* * * LOTOFACIL * * *"
26. LOCATE 2, 78: PRINT TIME$
27. LOCATE 2, 4: PRINT f$: COLOR 7
28.  
29. '------------------------------------------------------------------------
30. DIM cor1(80) AS _INTEGER64
31. DIM nt(1 TO 3000) AS STRING
32. DIM pesquisa AS LONG
33.  
34. _CONTROLCHR OFF
35.  
36. OPEN "loto.txt" FOR INPUT AS #1
37. pesquisa = LOF(1) \ 46
38. FOR t = 1 TO pesquisa
39.     LINE INPUT #1, nt$(t)
40. NEXT
41. CLOSE
42.  
43. COLOR 15: LOCATE 4, 3: PRINT "N" + CHR$(163); "meros de concursos =>"; pesquisa
44.  
45. DO
46.     COLOR 30
47.     'PRINT ExtendedInput$
48.     LOCATE 6, 14: PRINT "_______________________________"
49.     LOCATE 6, 3: PRINT "Dezenas => ";
50.     a$ = ExtendedInput$
51.  
52.     'K$ = INKEY$ ' ASCII code number
53.  
54.     FOR i = 1 TO 30 STEP 2
55.         x$ = x$ + MID$(a$, i, 2) + " "
56.     NEXT
57.     Pes$ = _TRIM$(x$)
58.  
59.     IF LEN(Pes$) = 44 THEN
60.         LOCATE 8, 3: PRINT "Dezenas => "; Pes$; " ="; LEN(Pes$)
61.         g = 0
62.         h = 9
63.         onze = 0
64.         doze = 0
65.         trez = 0
66.         quat = 0
67.  
68.         'COLOR 13: LOCATE 44, 3: PRINT "Digite [ S ] para SAIR..."
69.         ' COLOR 15
70.         'LOCATE 44, 34: PRINT "                                 "
71.         'LOCATE 6, 14: PRINT "____________________________________________"
72.         ' LOCATE 6, 3: INPUT "Dezenas => ", pes$
73.         'COLOR 13: LOCATE 44, 3: PRINT "                         "
74.  
75.         '---------------------------------------------------------------------------
76.  
77.         FOR rs = 1 TO pesquisa
78.             IF h > 41 THEN
79.                 COLOR 13: LOCATE 44, 34: PRINT "Pressione Enter para continuar..."
80.                 DO
81.                     _LIMIT 30
82.                 LOOP UNTIL INKEY$ = CHR$(13)
83.                 FOR S = 9 TO 43
84.                     LOCATE S, 2: PRINT "                                                                 "
85.                     LOCATE S, 70: PRINT "                "
86.                 NEXT S
87.                 h = 9
88.             END IF
89.             h = h + 1
90.             x = 3
91.             COLOR 15: LOCATE h, x: PRINT RIGHT$("0000" + LTRIM$(STR$(rs)), 4); " => "
92.  
93.             FOR i = 1 TO 44 STEP 3
94.                 x = x + 3
95.                 tt$ = MID$(nt$(rs), i, 2)
96.                 FOR r = 1 TO LEN(Pes$) STEP 3
97.                     O$ = MID$(Pes$, r, 2)
98.                     IF tt$ = O$ THEN
99.                         g = g + 1
100.                         cor1(g) = i
101.                         EXIT FOR
102.                     ELSE
103.                         COLOR 7: LOCATE h, x + 5: PRINT tt$
104.                     END IF
105.                 NEXT r
106.             NEXT i
107.  
108.             IF g <= 10 THEN
109.                 LOCATE h, 2: PRINT "                                                        "
110.                 h = h - 1
111.                 g = 0
112.             END IF
113.  
114.             IF g = 11 THEN
115.                 onze = onze + 1
116.                 COLOR 48
117.                 LOCATE h, x + 8: PRINT "=>";: PRINT " Onze"
118.                 FOR ag = 1 TO 11
119.                     LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(rs), cor1(ag), 2)
120.                 NEXT ag
121.                 COLOR 7
122.             END IF
123.  
124.             IF g = 12 THEN
125.                 doze = doze + 1
126.                 COLOR 52
127.                 LOCATE h, x + 8: PRINT "=>";: PRINT " Doze"
128.                 FOR ag = 1 TO 12
129.                     LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(rs), cor1(ag), 2)
130.                 NEXT ag
131.                 COLOR 7
132.             END IF
133.  
134.             IF g = 13 THEN
135.                 trez = trez + 1
136.                 COLOR 36
137.                 LOCATE h, x + 8: PRINT "=>";: PRINT " Treze"
138.                 FOR ag = 1 TO 13
139.                     LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(rs), cor1(ag), 2)
140.                 NEXT ag
141.                 COLOR 7
142.             END IF
143.  
144.             IF g = 14 THEN
145.                 quat = quat + 1
146.                 COLOR 40
147.                 LOCATE h, x + 8: PRINT "=>";: PRINT " Quatorze"
148.                 FOR ag = 1 TO 14
149.                     LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(rs), cor1(ag), 2)
150.                 NEXT ag
151.                 COLOR 7
152.             END IF
153.  
154.             IF g = 15 THEN
155.                 COLOR 68
156.                 LOCATE h, x + 8: PRINT "=>";: PRINT " Quinze"
157.                 FOR ag = 1 TO 15
158.                     LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(rs), cor1(ag), 2)
159.                 NEXT ag
160.                 COLOR 7
161.             END IF
162.  
163.             g = 0
164.  
165.  
166.             'LOCATE 18, 69: PRINT "k$ ASCII code "; K$ 'ASCII code
167.             ' LOCATE 20, 69: PRINT "k$ ASCII code "; ASC(K$) 'Shows ASCII code number
168.  
169.  
170.             COLOR 48
171.             LOCATE 8, 70: PRINT "N11:"; RIGHT$("000" + LTRIM$(STR$(onze)), 3); " - Vezes"
172.             COLOR 52
173.             LOCATE 10, 70: PRINT "N12:"; RIGHT$("000" + LTRIM$(STR$(doze)), 3); " - Vezes"
174.             COLOR 36
175.             LOCATE 12, 70: PRINT "N13:"; RIGHT$("000" + LTRIM$(STR$(trez)), 3); " - Vezes"
176.             COLOR 40
177.             LOCATE 14, 70: PRINT "N13:"; RIGHT$("000" + LTRIM$(STR$(quat)), 3); " - Vezes"
178.         NEXT
179.     ELSE
180.         BEEP
181.     END IF
182.     x$ = ""
183.     Scrn$ = INKEY$
184. LOOP UNTIL Scrn$ = CHR$(27)
185.  
186.  
187. '--------------------------------------------------------------------------------
188.  
189. FUNCTION ExtendedInput$
190.     PCOPY 0, 1
191.     A = _AUTODISPLAY: X = POS(0): Y = CSRLIN
192.     CP = 0: OldCP = 0 'Cursor Position
193.     _KEYCLEAR
194.     DO
195.         PCOPY 1, 0
196.         IF _KEYDOWN(100307) OR _KEYDOWN(100308) THEN AltDown = -1 ELSE AltDown = 0
197.         k = _KEYHIT
198.         IF AltDown THEN
199.             SELECT CASE k 'ignore all keypresses except ALT-number presses
200.                 CASE 48 TO 57: AltWasDown = -1: alt$ = alt$ + CHR$(k)
201.             END SELECT
202.         ELSE
203.             SELECT CASE k 'without alt, add any keypresses to our input
204.                 CASE 8
205.                     oldin$ = in$
206.                     IF CP > 0 THEN OldCP = CP: CP = CP - 1
207.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2) 'backspace to erase input
208.                 CASE 9
209.                     oldin$ = in$
210.                     in$ = LEFT$(in$, CP) + SPACE$(4) + MID$(in$, CP + 1) 'four spaces for any TAB entered
211.                     OldCP = CP
212.                     CP = CP + 4
213.                 CASE 32 TO 128
214.                     IF _KEYDOWN(100305) OR _KEYDOWN(100306) THEN
215.                         IF k = 118 OR k = 86 THEN
216.                             oldin$ = in$
217.                             in$ = LEFT$(in$, CP) + _CLIPBOARD$ + MID$(in$, CP + 1) 'ctrl-v paste
218.                             'CTRL-V leaves cursor in position before the paste, without moving it after.
219.                             'Feel free to modify that behavior here, if you want it to move to after the paste.
220.                             CP = CP + LEN(_CLIPBOARD$)
221.                         END IF
222.                         IF k = 122 OR k = 90 THEN SWAP in$, oldin$: SWAP OldCP, CP 'ctrl-z undo
223.                     ELSE
224.                         oldin$ = in$
225.                         in$ = LEFT$(in$, CP) + CHR$(k) + MID$(in$, CP + 1) 'add input to our string
226.                         OldCP = CP
227.                         CP = CP + 1
228.                     END IF
229.                 CASE 18176 'Home
230.                     CP = 0
231.                 CASE 20224 'End
232.                     CP = LEN(in$)
233.                 CASE 21248 'Delete
234.                     oldin$ = in$
235.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2)
236.                 CASE 19200 'Left
237.                     CP = CP - 1
238.                     IF CP < 0 THEN CP = 0
239.                 CASE 19712 'Right
240.                     CP = CP + 1
241.                     IF CP > LEN(in$) THEN CP = LEN(in$)
242.             END SELECT
243.         END IF
244.         alt$ = RIGHT$(alt$, 3)
245.         IF AltWasDown = -1 AND AltDown = 0 THEN
246.             v = VAL(alt$)
247.             IF v >= 0 AND v <= 255 THEN in$ = in$ + CHR$(v)
248.             alt$ = "": AltWasDown = 0
249.         END IF
250.         blink = (blink + 1) MOD 30
251.         LOCATE Y, X
252.         PRINT LEFT$(in$, CP);
253.         IF blink \ 15 THEN PRINT " "; ELSE PRINT "_";
254.         PRINT MID$(in$, CP + 1)
255.  
256.         _DISPLAY
257.         _LIMIT 30
258.     LOOP UNTIL k = 13
259.  
260.     PCOPY 1, 0
261.     LOCATE Y, X: PRINT in$
262.     ExtendedInput$ = in$
263.     IF A THEN _AUTODISPLAY
264. END FUNCTION

[bplus]

Try h > 40

[SMcNeill]

First, and most obvious question to ask, is it a CHR$ that you’re copying when you copy the contents into the clipboard?  Check length of  _clipboard$ And only take the LEFT$(_CLIPBOARD$,desired_number_of_digits) and see if that gets rid of any stray, extra input.

[carloscordeiro]

Verifique o comprimento do _clipboard $ E apenas pegue o LEFT $ (_ CLIPBOARD $, needed_number_of_digits) e veja se isso se livra de qualquer entrada extra perdida.

Good evening, Mr. SMcNeill.

This is exactly what may be happening

This time I'm taking great care not to confuse you.

I didn't enter my code, just leave the space for the 30 digits.

I did what you asked for, but always keep the character 22 which I don't know where it is being copied from.

 typed the 30 tens, no extra lost characters.

Only when I copy.

I followed your suggestion with an image.

010203050708091112141516212325

Thank you for responding.

Carlos

Code: QB64: [Select]

1. _TITLE "Qbasic 64"
2. SCREEN _NEWIMAGE(600, 600, 256)
3. _DELAY .25
4. _SCREENMOVE 50, 50
5.  
6. _CONTROLCHR OFF
7. 'PRINT ExtendedInput$
8.  
9. LOCATE 2, 14: PRINT "_______________________________"
10. LOCATE 2, 3: PRINT "Dozens => ";
11. a$ = ExtendedInput$
12.  
13. PRINT
14. K$ = INKEY$
15.  
16. PRINT
17. PRINT LEN(_CLIPBOARD$)
18.  
19.  
20.  
21. PRINT
22. PRINT LEFT$(_CLIPBOARD$, 30)
23.  
24.  
25. PRINT
26. PRINT K$
27.  
28. PRINT
29. PRINT ASC(K$)
30.  
31. END
32.  
33.  
34. FUNCTION ExtendedInput$
35.     PCOPY 0, 1
36.     A = _AUTODISPLAY: X = POS(0): Y = CSRLIN
37.     CP = 0: OldCP = 0 'Cursor Position
38.     _KEYCLEAR
39.     DO
40.         PCOPY 1, 0
41.         IF _KEYDOWN(100307) OR _KEYDOWN(100308) THEN AltDown = -1 ELSE AltDown = 0
42.         k = _KEYHIT
43.         IF AltDown THEN
44.             SELECT CASE k 'ignore all keypresses except ALT-number presses
45.                 CASE 48 TO 57: AltWasDown = -1: alt$ = alt$ + CHR$(k)
46.             END SELECT
47.         ELSE
48.             SELECT CASE k 'without alt, add any keypresses to our input
49.                 CASE 8
50.                     oldin$ = in$
51.                     IF CP > 0 THEN OldCP = CP: CP = CP - 1
52.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2) 'backspace to erase input
53.                 CASE 9
54.                     oldin$ = in$
55.                     in$ = LEFT$(in$, CP) + SPACE$(4) + MID$(in$, CP + 1) 'four spaces for any TAB entered
56.                     OldCP = CP
57.                     CP = CP + 4
58.                 CASE 32 TO 128
59.                     IF _KEYDOWN(100305) OR _KEYDOWN(100306) THEN
60.                         IF k = 118 OR k = 86 THEN
61.                             oldin$ = in$
62.                             in$ = LEFT$(in$, CP) + _CLIPBOARD$ + MID$(in$, CP + 1) 'ctrl-v paste
63.                             'CTRL-V leaves cursor in position before the paste, without moving it after.
64.                             'Feel free to modify that behavior here, if you want it to move to after the paste.
65.                             CP = CP + LEN(_CLIPBOARD$)
66.                         END IF
67.                         IF k = 122 OR k = 90 THEN SWAP in$, oldin$: SWAP OldCP, CP 'ctrl-z undo
68.                     ELSE
69.                         oldin$ = in$
70.                         in$ = LEFT$(in$, CP) + CHR$(k) + MID$(in$, CP + 1) 'add input to our string
71.                         OldCP = CP
72.                         CP = CP + 1
73.                     END IF
74.                 CASE 18176 'Home
75.                     CP = 0
76.                 CASE 20224 'End
77.                     CP = LEN(in$)
78.                 CASE 21248 'Delete
79.                     oldin$ = in$
80.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2)
81.                 CASE 19200 'Left
82.                     CP = CP - 1
83.                     IF CP < 0 THEN CP = 0
84.                 CASE 19712 'Right
85.                     CP = CP + 1
86.                     IF CP > LEN(in$) THEN CP = LEN(in$)
87.             END SELECT
88.         END IF
89.         alt$ = RIGHT$(alt$, 3)
90.         IF AltWasDown = -1 AND AltDown = 0 THEN
91.             v = VAL(alt$)
92.             IF v >= 0 AND v <= 255 THEN in$ = in$ + CHR$(v)
93.             alt$ = "": AltWasDown = 0
94.         END IF
95.         blink = (blink + 1) MOD 30
96.         LOCATE Y, X
97.         PRINT LEFT$(in$, CP);
98.         IF blink \ 15 THEN PRINT " "; ELSE PRINT "_";
99.         PRINT MID$(in$, CP + 1)
100.  
101.         _DISPLAY
102.         _LIMIT 30
103.     LOOP UNTIL k = 13
104.  
105.     PCOPY 1, 0
106.     LOCATE Y, X: PRINT in$
107.     ExtendedInput$ = in$
108.     IF A THEN _AUTODISPLAY
109. END FUNCTION

[bplus]

Well I know where 22 is coming from :) I showed.

Why line 14 and why all the printing of K$ ?  22 is coming from INKEY$ you can clear INKEY$ if you want with _KEYCLEAR but then ASC(K$) will error.

[carloscordeiro]

Why line 14 and why all the printing of K$ ?  22 is coming from INKEY$ you can clear INKEY$ if you want with _KEYCLEAR but then ASC(K$) will error.

The K $ impression is sybolic.

just to show the reason for the Loop to go twice.

_KEYCLEAR solved the problem of the intrusive ASCII code 22.

I didn't want to give up on Mr. SMcNeill's wonderful code.

Thanks again Bplus.

Carlos

Code: QB64: [Select]

1. _TITLE "Qbasic 64"
2. SCREEN _NEWIMAGE(600, 600, 256)
3. _DELAY .25
4. _SCREENMOVE 50, 50
5.  
6.  
7. _CONTROLCHR OFF
8. 'PRINT ExtendedInput$
9.  
10. LOCATE 2, 14: PRINT "_______________________________"
11. LOCATE 2, 3: PRINT "Dozens => ";
12. a$ = ExtendedInput$
13.  
14. _KEYCLEAR '_KEYCLEAR solved the problem of the intrusive ASCII code 22.
15.  
16. h = 4
17. j = 2
18. K$ = INKEY$
19. DO
20.     FOR e = 1 TO 100
21.         h = h + 1
22.         IF h > 10 THEN
23.             COLOR 30: LOCATE 30, 3: PRINT "Press Enter to continue ..."
24.             DO
25.                 _LIMIT 30
26.             LOOP UNTIL INKEY$ = CHR$(13)
27.             h = 5: j = j + 20
28.         END IF
29.         FOR i = 1 TO 30 STEP 2
30.             x$ = x$ + MID$(a$, i, 2) + " "
31.         NEXT
32.         x$ = _TRIM$(x$)
33.         _LIMIT 60
34.         LOCATE h, j: PRINT e; "_KEYCLEAR" ' ASC(K$)
35.     NEXT
36.     Scrn$ = INKEY$
37. LOOP UNTIL Scrn$ = CHR$(27)
38.  
39. END
40.  
41. FUNCTION ExtendedInput$
42.     PCOPY 0, 1
43.     A = _AUTODISPLAY: X = POS(0): Y = CSRLIN
44.     CP = 0: OldCP = 0 'Cursor Position
45.     _KEYCLEAR
46.     DO
47.         PCOPY 1, 0
48.         IF _KEYDOWN(100307) OR _KEYDOWN(100308) THEN AltDown = -1 ELSE AltDown = 0
49.         k = _KEYHIT
50.         IF AltDown THEN
51.             SELECT CASE k 'ignore all keypresses except ALT-number presses
52.                 CASE 48 TO 57: AltWasDown = -1: alt$ = alt$ + CHR$(k)
53.             END SELECT
54.         ELSE
55.             SELECT CASE k 'without alt, add any keypresses to our input
56.                 CASE 8
57.                     oldin$ = in$
58.                     IF CP > 0 THEN OldCP = CP: CP = CP - 1
59.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2) 'backspace to erase input
60.                 CASE 9
61.                     oldin$ = in$
62.                     in$ = LEFT$(in$, CP) + SPACE$(4) + MID$(in$, CP + 1) 'four spaces for any TAB entered
63.                     OldCP = CP
64.                     CP = CP + 4
65.                 CASE 32 TO 128
66.                     IF _KEYDOWN(100305) OR _KEYDOWN(100306) THEN
67.                         IF k = 118 OR k = 86 THEN
68.                             oldin$ = in$
69.                             in$ = LEFT$(in$, CP) + _CLIPBOARD$ + MID$(in$, CP + 1) 'ctrl-v paste
70.                             'CTRL-V leaves cursor in position before the paste, without moving it after.
71.                             'Feel free to modify that behavior here, if you want it to move to after the paste.
72.                             CP = CP + LEN(_CLIPBOARD$)
73.                         END IF
74.                         IF k = 122 OR k = 90 THEN SWAP in$, oldin$: SWAP OldCP, CP 'ctrl-z undo
75.                     ELSE
76.                         oldin$ = in$
77.                         in$ = LEFT$(in$, CP) + CHR$(k) + MID$(in$, CP + 1) 'add input to our string
78.                         OldCP = CP
79.                         CP = CP + 1
80.                     END IF
81.                 CASE 18176 'Home
82.                     CP = 0
83.                 CASE 20224 'End
84.                     CP = LEN(in$)
85.                 CASE 21248 'Delete
86.                     oldin$ = in$
87.                     in$ = LEFT$(in$, CP) + MID$(in$, CP + 2)
88.                 CASE 19200 'Left
89.                     CP = CP - 1
90.                     IF CP < 0 THEN CP = 0
91.                 CASE 19712 'Right
92.                     CP = CP + 1
93.                     IF CP > LEN(in$) THEN CP = LEN(in$)
94.             END SELECT
95.         END IF
96.         alt$ = RIGHT$(alt$, 3)
97.         IF AltWasDown = -1 AND AltDown = 0 THEN
98.             v = VAL(alt$)
99.             IF v >= 0 AND v <= 255 THEN in$ = in$ + CHR$(v)
100.             alt$ = "": AltWasDown = 0
101.         END IF
102.         blink = (blink + 1) MOD 30
103.         LOCATE Y, X
104.         PRINT LEFT$(in$, CP);
105.         IF blink \ 15 THEN PRINT " "; ELSE PRINT "_";
106.         PRINT MID$(in$, CP + 1)
107.  
108.         _DISPLAY
109.         _LIMIT 30
110.     LOOP UNTIL k = 13
111.  
112.     PCOPY 1, 0
113.     LOCATE Y, X: PRINT in$
114.     ExtendedInput$ = in$
115.     IF A THEN _AUTODISPLAY
116. END FUNCTION

[carloscordeiro]

First, and most obvious question to ask, is it a CHR$ that you’re copying when you copy the contents into the clipboard?  Check length of  _clipboard$ And only take the LEFT$(_CLIPBOARD$,desired_number_of_digits) and see if that gets rid of any stray, extra input.

I understand now, Mr. SMcNeill.

I'm copying CHR $ from "Ctrl + V"

After searching the wiki, I found out what you meant.

According to the attached table

_KEYCLEAR solved CHR $.

however, it left me without CH $ (27) to leave.

Sc $ = INKEY $
LOOP UNTIL Sc $ = CHR $ (27) "press to exit"

As I understand it, the "LEFT $ (_ CLIPBOARD $, needed_number_of_digits)".

It would be here. "in $ = LEFT $ (in $, CP) + LEFT $ (_ CLIPBOARD $, 30) + MID $ (in $, CP + 1)"?

Mr. SMcNeill. how to eliminate CHR $ (22)?

I would very much like you to respond.

I believe I am at the limit of 3 days

Carlos

[bplus]

Carlos man! you are pointing exactly where 22 is coming from!

That is what you press to copy / paste the clipboard!

That gets stuck in INKEY$ buffer and use _KEYCLEAR to remove it.

[carloscordeiro]

Carlos man! you are pointing exactly where 22 is coming from!

That is what you press to copy / paste the clipboard!

That gets stuck in INKEY$ buffer and use _KEYCLEAR to remove it.

I added _KEYCLEAR Bplus,

however, that left me without CH $ (27) to leave.

Sc $ = INKEY $
LOOP UNTIL Sc $ = CHR $ (27) "press to exit"

[bplus]

I added _KEYCLEAR Bplus,

however, that left me without CH $ (27) to leave.

Sc $ = INKEY $
LOOP UNTIL Sc $ = CHR $ (27) "press to exit"

Use

Code: QB64: [Select]

1. Loop Until _Keydown(27)  ' then don't need INKEY$

Steve might tuck _Keyclear into his ExtendedInput Sub or Function. ;-)) or Carlos could :)

[SMcNeill]

ExtendedInput has nothing to do with you being stuck in the loop, and neither does the CHR$(22).

That 22 is coming from you hitting CTRL-V, with INKEY$.  The ExtendedInput uses _KEYHIT exclusively and doesn't touch INKEY$ at all, so all those keypresses you type when using KEYHIT are still stored in the INKEY$ buffer -- which in this case is CHR$(22) or CTRL-V...

_KEYCLEAR clears those buffers, and eliminates that problem completely, but, as  you can see from the below, you're still stuck in an endless loop which you can't break out of:

Code: QB64: [Select]

1. _TITLE "Qbasic 64"
2. SCREEN _NEWIMAGE(600, 600, 256)
3.  
4. DO
5.     FOR e = 1 TO 100
6.         h = h + 1
7.         IF h > 10 THEN
8.             COLOR 30: LOCATE 30, 3: PRINT "Press Enter to continue ..."
9.             DO
10.                 _LIMIT 30
11.             LOOP UNTIL INKEY$ = CHR$(13)
12.             h = 5: j = j + 20
13.         END IF
14.         FOR i = 1 TO 30 STEP 2
15.             x$ = x$ + MID$(a$, i, 2) + " "
16.         NEXT
17.         x$ = _TRIM$(x$)
18.         _LIMIT 60
19.         LOCATE h, j: PRINT e; "_KEYCLEAR" ' ASC(K$)
20.     NEXT
21.     Scrn$ = INKEY$
22. LOOP UNTIL Scrn$ = CHR$(27)
23.  
24.  

Now the reason for this is really rather simple -- you're clearing your INKEY$ buffer here:

Code: [Select]

            DO
                _LIMIT 30
            LOOP UNTIL INKEY$ = CHR$(13)
So it's going to be impossible for that buffer to key any keypresses to read here:

Code: [Select]

    Scrn$ = INKEY$ 

Now, I don't know what you're trying to do with your example here, but that's the issue -- one INKEY$ call clearing the buffer so the other one can only read a blank nothing.

As bplus suggests, swap over to something independent to INKEY$ as your exit, or do something like this:

Code: QB64: [Select]

1. _TITLE "Qbasic 64"
2. SCREEN _NEWIMAGE(600, 600, 256)
3.  
4. j = 1
5. DO
6.     FOR e = 1 TO 100
7.         h = h + 1
8.         IF h > 10 THEN
9.             COLOR 30: LOCATE 30, 3: PRINT "Press Enter to continue ..."
10.             DO
11.                 _LIMIT 30
12.                 Scrn$ = INKEY$
13.                 IF Scrn$ = CHR$(27) THEN GOTO outside_loop
14.             LOOP UNTIL Scrn$ = CHR$(13)
15.             h = 5: j = j + 20
16.         END IF
17.         FOR i = 1 TO 30 STEP 2
18.             x$ = x$ + MID$(a$, i, 2) + " "
19.         NEXT
20.         x$ = _TRIM$(x$)
21.         _LIMIT 60
22.         LOCATE h, j: PRINT e; "_KEYCLEAR" ' ASC(K$)
23.     NEXT
24.     Scrn$ = INKEY$
25. LOOP UNTIL Scrn$ = CHR$(27)
26.  
27. outside_loop:
28. PRINT "I'm free!  I'm free!  I'm outta those loops!"
29.  

[bplus]

Steve recheck your line #24 & #25

I meant

Code: QB64: [Select]

1. Loop Until _Keydown(27)  'you don't need INKEY$
2.  

[carloscordeiro]

ou Carlos poderia :)

you are very funny, Bplus

the Loop until _Keydown (27) didn't work.

The code I'm using with your extended entry code

[SMcNeill]

you are very funny, Bplus

the Loop until _Keydown (27) didn't work.

It's not working as it can't be triggered while within the INKEY$ loop...  You have to clear the INKEY$ loop and then hit 27 in the millisecond where you're between falling into it again.

You have to put your exit condition inside that central loop, if ENTER is going to be your only way to stop that manual pause.