Trying to make a library. Demo using TYPE for variables...

[Pete]

Code: QB64: [Select]

1. main:
2.  
3. DIM prompt$(4)
4. prompt$(0) = "abc: "
5. prompt$(1) = "def: "
6. prompt$(2) = "ghi: "
7. prompt$(3) = "jkl: "
8.  
9. PromptColumn% = 10
10. PromptTopRow% = 5
11. PromptRowSpacing% = 2
12. MaxLengthResponse% = 40
13. ForegroundColor% = 0
14. BackgroundColor% = 7
15. HighlightForgroundColor% = 15
16. HighlightBackgroundColor% = 1
17.  
18. CALL ConsoleLibrary(prompt$(), PromptColumn%, PromptTopRow%, PromptRowSpacing%, MaxLengthResponse%, ForegroundColor%, BackgroundColor%, HighlightForgroundColor%, HighlightBackgroundColor%)
19. END
20.  
21. SUB ConsoleLibrary (ConsoleInput_prompt$(), ConsoleInput.prompt_column, ConsoleInput.vertpos, ConsoleInput.yyseparator, ConsoleInput.MAX_SIZE, ConsoleInput.c1f, ConsoleInput.c1b, ConsoleInput.c2f, ConsoleInput.c2b)
22.  
23.     PALETTE 7, 63
24.  
25.     TYPE ConsoleInput
26.         ii AS INTEGER
27.         vmax AS INTEGER
28.         MAX_SIZE AS INTEGER
29.         vertpos AS INTEGER
30.         yyseparator AS INTEGER
31.         prompt_column AS INTEGER
32.         c1f AS INTEGER
33.         c1b AS INTEGER
34.         c2f AS INTEGER
35.         c2b AS INTEGER
36.     END TYPE
37.  
38.     DO UNTIL ConsoleInput_prompt$(ConsoleInput.vmax) = ""
39.         ConsoleInput.vmax = ConsoleInput.vmax + 1
40.     LOOP
41.  
42.     CALL ConsoleInput_demo(ConsoleInput_prompt$(), ConsoleInput.prompt_column, ConsoleInput.vmax, ConsoleInput.MAX_SIZE, ConsoleInput.vertpos, ConsoleInput.yyseparator, ConsoleInput.c1f, ConsoleInput.c1b, ConsoleInput.c2f, ConsoleInput.c2b)
43. END SUB
44.  
45. SUB ConsoleInput_demo (ConsoleInput_prompt$(), ConsoleInput.prompt_column, ConsoleInput.vmax, ConsoleInput.MAX_SIZE, ConsoleInput.vertpos, ConsoleInput.yyseparator, ConsoleInput.c1f, ConsoleInput.c1b, ConsoleInput.c2f, ConsoleInput.c2b)
46.     COLOR ConsoleInput.c1f, ConsoleInput.c1b
47.     CLS
48.     CALL b(ConsoleInput_prompt$(), ConsoleInput.prompt_column, ConsoleInput.vmax, ConsoleInput.MAX_SIZE, ConsoleInput.vertpos, ConsoleInput.yyseparator, ConsoleInput.c1f, ConsoleInput.c1b, ConsoleInput.c2f, ConsoleInput.c2b)
49.  
50. END SUB
51.  
52. SUB b (ConsoleInput_prompt$(), ConsoleInput.prompt_column, ConsoleInput.vmax, ConsoleInput.MAX_SIZE, ConsoleInput.vertpos, ConsoleInput.yyseparator, ConsoleInput.c1f, ConsoleInput.c1b, ConsoleInput.c2f, ConsoleInput.c2b)
53.     FOR ConsoleInput.ii = 0 TO ConsoleInput.vmax - 1
54.         LOCATE ConsoleInput.vertpos + ConsoleInput.ii * ConsoleInput.yyseparator, ConsoleInput.prompt_column
55.         PRINT ConsoleInput.ii, ConsoleInput_prompt$(ConsoleInput.ii)
56.     NEXT
57.  
58. END SUB
59.  

By using TYPE, I can get unique variables, which helps conflicts with other users global variables.

I read this in the Wiki: "Type variables must be defined in every SUB or FUNCTION unless the type variable is DIMensioned as SHARED."

Really? I tried that, but I couldn't could up with a way to use SHARED in the initial SUB to pass the TYPE variables to other subs. Here is the code, without SHARED anywhere.

Code: QB64: [Select]

1. main:
2. ' I don't want to use this and otehrs like this in the main - DIM SHARED ConsoleInput.c1b AS INTEGER
3.  
4. DIM ConsoleInput_prompt$(4)
5. ConsoleInput_prompt$(0) = "abc: "
6. ConsoleInput_prompt$(1) = "def: "
7. ConsoleInput_prompt$(2) = "ghi: "
8. ConsoleInput_prompt$(3) = "jkl: "
9.  
10. ConsoleInput.promtp_column% = 10
11. ConsoleInput.vertpos% = 5
12. ConsoleInput.yyseparator% = 2
13. ConsoleInput.MAX_SIZE% = 40
14. ConsoleInput.c1f% = 0
15. ConsoleInput.c1b% = 7
16. ConsoleInput.c2f% = 15
17. ConsoleInput.c2b% = 1
18.  
19. CALL ConsoleLibrary(ConsoleInput_prompt$())
20. END
21.  
22. SUB ConsoleLibrary (ConsoleInput_prompt$())
23.  
24.     PALETTE 7, 63
25.  
26.     TYPE ConsoleInput
27.         ii AS INTEGER
28.         vmax AS INTEGER
29.         MAX_SIZE AS INTEGER
30.         vertpos AS INTEGER
31.         yyseparator AS INTEGER
32.         prompt_column AS INTEGER
33.         c1f AS INTEGER
34.         c1b AS INTEGER
35.         c2f AS INTEGER
36.         c2b AS INTEGER
37.     END TYPE
38.  
39.     DO UNTIL ConsoleInput_prompt$(ConsoleInput.vmax) = ""
40.         ConsoleInput.vmax = ConsoleInput.vmax + 1
41.     LOOP
42.  
43.     CALL ConsoleInput_demo(ConsoleInput_prompt$())
44. END SUB
45.  
46. SUB ConsoleInput_demo (ConsoleInput_promt$())
47.     COLOR ConsoleInput.c1f, ConsoleInput.c1b
48.     CLS
49.  
50.     CALL b(ConsoleInput_prompt$())
51.  
52. END SUB
53.  
54. SUB b (ConsoleInput_prompt$())
55.     FOR ConsoleInput.ii = 0 TO ConsoleInput.vmax - 1
56.         LOCATE ConsoleInput.vertpos + ConsoleInput.ii * ConsoleInput.yyseparator, ConsoleInput.prompt_column
57.         PRINT ConsoleInput.ii, ConsoleInput_prompt$(ConsoleInput.ii)
58.     NEXT
59.  
60. END SUB
61.  

Since this is a library, I don't want to use DIM SHARED or COMMON SHARED in the main. Is there a way to use SHARED to share the typ variable, or am I misunderstanding the Wiki information?

This post pertains to what I'm working on in: https://www.qb64.org/forum/index.php?topic=1524.msg107407#msg107407
Pete

[SMcNeill]

Is something like this what you're looking for?

Code: [Select]

main:
' I don't want to use this and otehrs like this in the main - DIM SHARED ConsoleInput.c1b AS INTEGER


CALL InitConsoleLibrary
CALL ConsoleLibrary(ConsoleInput_prompt$())
END

SUB InitConsoleLibrary
    SHARED ConsoleInput AS ConsoleInput
    SHARED ConsoleInput_prompt$()

    ConsoleInput_prompt$(0) = "abc: "
    ConsoleInput_prompt$(1) = "def: "
    ConsoleInput_prompt$(2) = "ghi: "
    ConsoleInput_prompt$(3) = "jkl: "

    ConsoleInput.prompt_column% = 10
    ConsoleInput.vertpos% = 5
    ConsoleInput.yyseparator% = 2
    ConsoleInput.MAX_SIZE% = 40
    ConsoleInput.c1f% = 0
    ConsoleInput.c1b% = 7
    ConsoleInput.c2f% = 15
    ConsoleInput.c2b% = 1

END SUB


SUB ConsoleLibrary (ConsoleInput_prompt$())
    SHARED ConsoleInput AS ConsoleInput
    SHARED ConsoleInput_prompt$()
    PALETTE 7, 63

    TYPE ConsoleInput
        ii AS INTEGER
        vmax AS INTEGER
        MAX_SIZE AS INTEGER
        vertpos AS INTEGER
        yyseparator AS INTEGER
        prompt_column AS INTEGER
        c1f AS INTEGER
        c1b AS INTEGER
        c2f AS INTEGER
        c2b AS INTEGER
    END TYPE

    DO UNTIL ConsoleInput_prompt$(ConsoleInput.vmax) = ""
        ConsoleInput.vmax = ConsoleInput.vmax + 1
    LOOP

    CALL ConsoleInput_demo(ConsoleInput_prompt$())
END SUB

SUB ConsoleInput_demo (ConsoleInput_prompt$())
    SHARED ConsoleInput AS ConsoleInput
    SHARED ConsoleInput_prompt$()
    COLOR ConsoleInput.c1f, ConsoleInput.c1b
    CLS

    CALL b(ConsoleInput_prompt$())

END SUB

SUB b (ConsoleInput_prompt$())
    SHARED ConsoleInput AS ConsoleInput
    SHARED ConsoleInput_prompt$()
    FOR ConsoleInput.ii = 0 TO ConsoleInput.vmax - 1
        LOCATE ConsoleInput.vertpos + ConsoleInput.ii * ConsoleInput.yyseparator, ConsoleInput.prompt_column
        PRINT ConsoleInput.ii, ConsoleInput_prompt$(ConsoleInput.ii)
    NEXT

END SUB

[Pete]

Aha! That's how it's done. I tried a lot of SHARED combos in a few places, but I didn't think of that one.. SHARED ConsoleInput AS ConsoleInput

Thank you. This cuts down on the long lines of passing variables to subs. Other things I will be changing will be the names of the subs, so there is some consistency to associate the names with the library.

OK, so here is something strange I noticed with the SHARED approach. Did you know that the array gets shared with the main, as does the additional testing variable I created, called Pete%; however, the SHARED TYPE variables only get shared with the child subs, and not the main. Of course, I prefer this, but I'm surprised there is a difference as how shared type variables and shared string and numeric variables are handled by QB64. Anyway, here is the code, with comments, to illustrate this, and again, thank you for providing e with the way to share a TYPE variable. Maybe someday your example will make it into the Wiki and QB64 help....

Code: QB64: [Select]

1. CALL InitConsoleLibrary
2. CALL ConsoleLibrary(ConsoleInput_prompt$())
3. PRINT: PRINT "Prompt$(0) = "; ConsoleInput_prompt$(0): PRINT: PRINT "Highlight Color (Consoleinput.c2f) should be 15, but ="; Consoleinput.c2f
4. PRINT "Variable in SUB b, Pete% ="; Pete%
5. END
6.  
7. SUB InitConsoleLibrary
8.     SHARED ConsoleInput AS ConsoleInput
9.     SHARED ConsoleInput_prompt$()
10.  
11.     ConsoleInput_prompt$(0) = "abc: "
12.     ConsoleInput_prompt$(1) = "def: "
13.     ConsoleInput_prompt$(2) = "ghi: "
14.     ConsoleInput_prompt$(3) = "jkl: "
15.  
16.     ConsoleInput.prompt_column% = 10
17.     ConsoleInput.vertpos% = 5
18.     ConsoleInput.yyseparator% = 2
19.     ConsoleInput.MAX_SIZE% = 40
20.     ConsoleInput.c1f% = 0
21.     ConsoleInput.c1b% = 7
22.     ConsoleInput.c2f% = 15
23.     ConsoleInput.c2b% = 1
24.  
25. END SUB
26.  
27.  
28. SUB ConsoleLibrary (ConsoleInput_prompt$())
29.     SHARED ConsoleInput AS ConsoleInput ' Shared with child subs, BUT NOT main.
30.     SHARED ConsoleInput_prompt$() ' Shared with child subs AND main.
31.     PALETTE 7, 63
32.  
33.     TYPE ConsoleInput
34.         ii AS INTEGER
35.         vmax AS INTEGER
36.         MAX_SIZE AS INTEGER
37.         vertpos AS INTEGER
38.         yyseparator AS INTEGER
39.         prompt_column AS INTEGER
40.         c1f AS INTEGER
41.         c1b AS INTEGER
42.         c2f AS INTEGER
43.         c2b AS INTEGER
44.     END TYPE
45.  
46.     DO UNTIL ConsoleInput_prompt$(ConsoleInput.vmax) = ""
47.         ConsoleInput.vmax = ConsoleInput.vmax + 1
48.     LOOP
49.  
50.     CALL ConsoleInput_demo(ConsoleInput_prompt$())
51. END SUB
52.  
53. SUB ConsoleInput_demo (ConsoleInput_prompt$())
54.     SHARED ConsoleInput AS ConsoleInput
55.     SHARED ConsoleInput_prompt$()
56.     COLOR ConsoleInput.c1f, ConsoleInput.c1b
57.     CLS
58.  
59.     CALL b(ConsoleInput_prompt$())
60.  
61. END SUB
62.  
63. SUB b (ConsoleInput_prompt$())
64.     SHARED ConsoleInput AS ConsoleInput
65.     SHARED ConsoleInput_prompt$()
66.     SHARED Pete%: Pete% = 100 ' This will also get shared in main. So will the string, ConsoleInput_promt$(), but NOT the shared TYPE variables.
67.     FOR ConsoleInput.ii = 0 TO ConsoleInput.vmax - 1
68.         LOCATE ConsoleInput.vertpos + ConsoleInput.ii * ConsoleInput.yyseparator, ConsoleInput.prompt_column
69.         PRINT ConsoleInput.ii, ConsoleInput_prompt$(ConsoleInput.ii)
70.     NEXT
71.  
72. END SUB
73.  

Pete

[SMcNeill]

Did you know that the array gets shared with the main, as does the additional testing variable I created, called Pete%; however, the SHARED TYPE variables only get shared with the child subs, and not the main.

That’s only because you don’t have a corresponding variable to share the info with.  At the top of your code put a:

DIM ConsoleInput AS ConsoleInput

Then you can print/change any of the values in the main sub as you wish, and have those changes affect the relevant SUB/FUNCTIONS.

[Pete]

Sure, but then why don't we need to do the same in the main with Pete% and prompt$()? As in...

DIM Pete%
DIM SHARED ConsoleInput_prompt$(14)

We don't need those to get the values they represent back to the main at all. Simply having them shared in the subs is all that is ineeded, but TYPE acts differently. TYPE has to be DIM in the main. I just don't understand why TYPE is treated the same as the numeric, presumably string, and string arrays are treated and passed to the main without the need to be DIM in the main.

Also, and this is a biggie. QB64 allows for 10 elements to be in an array, before the array needs to be dimensioned, 11, actually, if you use zero to 1. Anyway, let's say we need 15 elements in the code as posted. So now we need...

    DIM ConsoleInput_prompt$(14)

... in the initial sub, but  adding the DIM here prevents SHARED from returning the values assigned to prompt$() in any of the other subs, and the main. Again, that's fine, it's just worth noting DIM also changes the behavior, because the variable is being further defined while in a SUB. Now, if we did want it back in the main, but not DIM in the main, all we would have to do is pass it by reference as...

CALL ConsoleLibrary(ConsoleInput_prompt$()) 

and do that for all of the subs; however, if we tried to pass it back to the main, we'd end up with a Duplicate Definition error.

Pete

[Pete]

Since I can't figure out a way to deal with keeping a DIM for the string array out of the main with the two library sub calls, I decided to go back to the single sub call, and start designing a way for the user to input the variables. This demo works, so I'll use this as a start and see where it takes me...

Code: QB64: [Select]

1. main:
2. CALL ConsoleInputLibrary
3. END
4.  
5. SUB ConsoleInputLibrary
6.     SHARED ConsoleInput AS ConsoleInput
7.  
8.     ConsoleInput_Data:
9.     'Place Prompts as DATA statement, here...
10.     DATA 1,2,3,4,5,6,7,8,9,10,11,12
11.     DATA "EOF"
12.  
13.     TYPE ConsoleInput
14.         i AS INTEGER ' Generic counter variable
15.         vmax AS INTEGER ' Maximum number of prompts / responses. Must fit within the screen height, including spearator spaces.
16.         MAX_SIZE AS INTEGER ' Maximum length of the reply to prompt. Must be within the screen width.
17.         vertpos AS INTEGER ' Margin top (Number of spaces from the top to display the first prompt.)
18.         yyseparator AS INTEGER ' The vertical row spacing between prompts. 1 to (n).
19.         prompt_column AS INTEGER ' Margin left. The column to begin displaying prompts. Must be within screen width including maximum length of response.
20.         mypalette AS INTEGER ' Only use to modify standard screen colors. -1 means this option is turned off.
21.         c1f AS INTEGER ' Foreground text color (0 - 15)
22.         c1b AS INTEGER ' Background text color (0 - 15)
23.         c2f AS INTEGER ' Foreground highlight text color (0 - 15)
24.         c2b AS INTEGER ' Background highlight text color (0 - 15)
25.     END TYPE
26.  
27.     ' Assign your variables here...
28.     ConsoleInput.MAX_SIZE = 40
29.     ConsoleInput.vertpos = 5
30.     ConsoleInput.yyseparator = 1
31.     ConsoleInput.prompt_column = 10
32.     ConsoleInput.mypalette = 63
33.     ConsoleInput.c1f = 0
34.     ConsoleInput.c1b = 7
35.     ConsoleInput.c2f = 15
36.     ConsoleInput.c2b = 1
37.     '------------------------------
38.  
39.     IF ConsoleInput.mypalette <> -1 THEN
40.         PALETTE ConsoleInput.c1b, ConsoleInput.mypalette
41.     END IF
42.  
43.     COLOR c1f, c1b
44.     CLS
45.  
46.     ' Get the number of prompts to assign to prompt$() array.
47.     RESTORE ConsoleInput_Data
48.     ConsoleInput.vmax = 0
49.     DO
50.         READ ConsoleInput_Data$
51.         IF ConsoleInput_Data$ = "EOF" THEN EXIT DO
52.         ConsoleInput.vmax = ConsoleInput.vmax + 1
53.     LOOP
54.  
55.     DIM ConsoleInput_prompt$(ConsoleInput.vmax)
56.  
57.     RESTORE ConsoleInput_Data
58.     ConsoleInput.i = 0
59.     DO
60.         READ ConsoleInput_Data$
61.         IF ConsoleInput_Data$ = "EOF" THEN EXIT DO
62.         ConsoleInput_prompt$(ConsoleInput.i) = ConsoleInput_Data$
63.         ConsoleInput.i = ConsoleInput.i + 1
64.     LOOP
65.  
66.     CALL ConsoleInput_demo(ConsoleInput_prompt$())
67.  
68. END SUB
69.  
70. SUB ConsoleInput_demo (ConsoleInput_prompt$())
71.     SHARED ConsoleInput AS ConsoleInput
72.     COLOR ConsoleInput.c1f, ConsoleInput.c1b
73.     CLS
74.  
75.     CALL ConsoleInputDisplay(ConsoleInput_prompt$())
76.  
77. END SUB
78.  
79. SUB ConsoleInputDisplay (ConsoleInput_prompt$())
80.     SHARED ConsoleInput AS ConsoleInput
81.  
82.     FOR ConsoleInput.i = 0 TO ConsoleInput.vmax - 1
83.         LOCATE ConsoleInput.vertpos + ConsoleInput.i * ConsoleInput.yyseparator, ConsoleInput.prompt_column
84.         PRINT ConsoleInput.i, ConsoleInput_prompt$(ConsoleInput.i)
85.     NEXT
86.  
87. END SUB
88.  

I also need to make some better variable names. I have used very short non-descriptive names in the distant past, especially when I had to save memory space in QuickBASIC. Now, I think I'll try longer, more descriptive names, so if anyone wants to alter the library, it will be easier to understand. I could get a lot better at names, that's for sure. Well, I'll see how it goes...

Pete

[TempodiBasic]

Hi
about SHARED and TYPE in QBASIC vs QB64


declaring a TYPE into a SUB and then using it in another SUB or in the main is NOT possible in QBASIC....

See wiki content

SHARED (without DIM) can share a list of variables inside of SUB or FUNCTION procedures with the main module only.
Note: SHARED variables in sub-procedures will not be passed to other sub-procedures, only the main module.

"Type variables must be defined in every SUB or FUNCTION unless the type variable is DIMensioned as SHARED."

TYPE definitions should be placed in the main module before the start of the program code execution.
TYPE definitions CAN be placed in SUB or FUNCTION procedures using QB64 only!

please run the code examples both in Qbasic both in QB64

Code: QB64: [Select]

1. DECLARE SUB inizializza ()
2. DECLARE SUB mostra ()
3. TYPE s
4.  a AS STRING * 3
5.  b AS INTEGER
6.  c AS DOUBLE
7. END TYPE
8.  
9. RANDOMIZE TIMER
10. SCREEN 0
11. WHILE 1
12. inizializza
13. mostra
14. SLEEP 1
15. IF INKEY$ = CHR$(27) THEN END
16. WEND
17. END
18.  
19. SUB inizializza
20. SHARED tipo AS s
21. COLOR 0, INT(RND * 14) + 1
22. CLS
23. tipo.a = STRING$(3, INT(RND * 25) + 65)
24. tipo.b = INT(RND * 1000) + 1
25. tipo.c = (RND * 150) + 5.7
26. END SUB
27.  
28. SUB mostra
29. SHARED tipo AS s
30. PRINT tipo.a, tipo.b, tipo.c
31. END SUB
32.  

Code: QB64: [Select]

1. DECLARE SUB dichiara ()
2. DECLARE SUB inizializza ()
3. DECLARE SUB mostra ()
4.  
5. RANDOMIZE TIMER
6. SCREEN 0
7. WHILE 1
8. dichiara
9. inizializza
10. mostra
11. SLEEP 1
12. IF INKEY$ = CHR$(27) THEN END
13. WEND
14. END
15.  
16. SUB dichiara
17. TYPE s
18.  a AS STRING * 3
19.  b AS INTEGER
20.  c AS DOUBLE
21. END TYPE
22.  
23. END SUB
24.  
25. SUB inizializza
26. SHARED tipo AS s
27. COLOR 0, INT(RND * 14) + 1
28. CLS
29. tipo.a = STRING$(3, INT(RND * 25) + 65)
30. tipo.b = INT(RND * 1000) + 1
31. tipo.c = (RND * 150) + 5.7
32. END SUB
33.  
34. SUB mostra
35. SHARED tipo AS s
36. PRINT tipo.a, tipo.b, tipo.c
37. END SUB
38.  
39.  

we consider this characteristic as a powered feature of SHARED of Qbasic.


About

Sure, but then why don't we need to do the same in the main with Pete% and prompt$()? As in...

DIM Pete%
DIM SHARED ConsoleInput_prompt$(14)

We don't need those to get the values they represent back to the main at all. Simply having them shared in the subs is all that is ineeded, but TYPE acts differently. TYPE has to be DIM in the main.

IMHO there is some overlapping declarations as these two examples show that Wiki info are right

Code: QB64: [Select]

1. DECLARE SUB dichiara ()
2. DECLARE SUB inizializza ()
3. DECLARE SUB mostra ()
4.  
5. RANDOMIZE TIMER
6. SCREEN 0
7. WHILE 1
8.     dichiara
9.     inizializza
10.     mostra
11.     PRINT copia, intero, "from main"
12.     SLEEP 1
13.     IF INKEY$ = CHR$(27) THEN END
14. WEND
15. END
16.  
17. SUB dichiara
18.     TYPE s
19.         a AS STRING * 3
20.         b AS INTEGER
21.         c AS DOUBLE
22.     END TYPE
23.  
24. END SUB
25.  
26. SUB inizializza
27.     SHARED tipo AS s, Copia AS STRING, Intero AS INTEGER
28.     COLOR 0, INT(RND * 14) + 1
29.     CLS
30.     tipo.a = STRING$(3, INT(RND * 25) + 65)
31.     tipo.b = INT(RND * 1000) + 1
32.     tipo.c = (RND * 150) + 5.7
33.     Copia = tipo.a
34.     Intero = tipo.b
35. END SUB
36.  
37. SUB mostra
38.     SHARED tipo AS s
39.     PRINT tipo.a, tipo.b, tipo.c
40.     PRINT copia, intero, "from SUB"
41. END SUB
42.  
43.  

Code: QB64: [Select]

1. DECLARE SUB dichiara ()
2. DECLARE SUB inizializza ()
3. DECLARE SUB mostra ()
4.  
5. RANDOMIZE TIMER
6. SCREEN 0
7. WHILE 1
8.     dichiara
9.     inizializza
10.     mostra
11.     PRINT copia, intero, "from main"
12.     SLEEP 1
13.     IF INKEY$ = CHR$(27) THEN END
14. WEND
15. END
16.  
17. SUB dichiara
18.     TYPE s
19.         a AS STRING * 3
20.         b AS INTEGER
21.         c AS DOUBLE
22.     END TYPE
23.  
24. END SUB
25.  
26. SUB inizializza
27.     SHARED tipo AS s, Copia AS STRING, Intero AS INTEGER
28.     COLOR 0, INT(RND * 14) + 1
29.     CLS
30.     tipo.a = STRING$(3, INT(RND * 25) + 65)
31.     tipo.b = INT(RND * 1000) + 1
32.     tipo.c = (RND * 150) + 5.7
33.     Copia = tipo.a
34.     Intero = tipo.b
35. END SUB
36.  
37. SUB mostra
38.     SHARED tipo AS s, Copia AS STRING, Intero AS INTEGER
39.     PRINT tipo.a, tipo.b, tipo.c
40.     PRINT Copia, Intero, "from SUB"
41. END SUB
42.  
43.  

and the visibility of each variable is defined by its declaration as the picture shows
  [ You are not allowed to view this attachment ]  

[Pete]

What I concluded is QB64 will pass default variables, single for numeric variables and any string with $ instead of DIM x as string, if you use SHARED in the subs with no DIM in the main. Now if you define those variables as SINGLE and STRING in the subs, then it will not pass them back to the main. Since TYPE variables are defined in the type, they don't get passed back to the main, unless they are defined in the main, as well.

Pete

[TempodiBasic]

Thanks Pete
now I can duplicate your experience.

Code: QB64: [Select]

1. DECLARE SUB dichiara ()
2. DECLARE SUB inizializza ()
3. DECLARE SUB mostra ()
4.  
5. RANDOMIZE TIMER
6. SCREEN 0
7. WHILE 1
8.     dichiara
9.     inizializza
10.     mostra
11.     PRINT copia$, intero%, "from main"
12.     SLEEP 1
13.     IF INKEY$ = CHR$(27) THEN END
14. WEND
15. END
16.  
17. SUB dichiara
18.     TYPE s
19.         a AS STRING * 3
20.         b AS INTEGER
21.         c AS DOUBLE
22.     END TYPE
23.  
24. END SUB
25.  
26. SUB inizializza
27.     SHARED tipo AS s, copia$, intero%
28.     COLOR 0, INT(RND * 14) + 1
29.     CLS
30.     tipo.a = STRING$(3, INT(RND * 25) + 65)
31.     tipo.b = INT(RND * 1000) + 1
32.     tipo.c = (RND * 150) + 5.7
33.     copia$ = tipo.a
34.     intero% = tipo.b
35. END SUB
36.  
37. SUB mostra
38.     SHARED tipo AS s, copia$, intero%
39.     PRINT tipo.a, tipo.b, tipo.c
40.     PRINT copia$, intero%, "from SUB"
41. END SUB
42.  
43.  

moreover it seems that Qb64 and QBASIC are identical about not use of %$!# for defining variables into TYPE ...END TYPE structure!

[Pete]

Made some progress with the TYPE variable structure. Got the sub names and variable names changed. I do need to add some more user variable descriptions. This is new method seems to be proving out to be a winner. Now, I need to figure out how I want to call this from the main.

Code: QB64: [Select]

1. main:
2. ' The next two lines can be removed to use this library with other programs.
3. LINE INPUT "Input 1 for debug mode with variable display, any other to keep debug off. "; a$
4. IF a$ = "1" THEN DIM SHARED ConsoleInput_debug: ConsoleInput_debug = -1
5.  
6. ' Place the routine that will use this library above and/or ConsoleInput.CursorAppearanceide this loop...
7. WHILE (1)
8.     CALL ConsoleInputLibrary
9. WEND
10.  
11. '=============================CONSOLE INPUT LIBRARY===========================
12.  
13. SUB ConsoleInputLibrary
14.     STATIC UserInputSetup AS INTEGER
15.     STATIC ConsoleInput_prompt$(), entry$(), ConsoleInput_entryrow() AS INTEGER
16.  
17.     SHARED ConsoleInput AS ConsoleInput
18.  
19.     IF UserInputSetup = 0 THEN
20.         TYPE ConsoleInput
21.             ' User Defined Variable Types--------------------------------------------------------
22.             MarginTop AS INTEGER ' Margin top (Number of spaces from the top to display the first prompt.)
23.             PromptMarginLeft AS INTEGER ' Margin left. The column to begin displaying prompts. Must be within screen width including maximum length of response.
24.             PromptSpacing AS INTEGER ' The vertical row spacing between prompts. 1 to (n).
25.             ResponseLength AS INTEGER ' Maximum length of the reply to prompt. Must be within the screen width.
26.             MyPalette AS INTEGER ' Only use to modify standard screen colors. -1 means this option is turned off.
27.             ColorTextForeground AS INTEGER ' Foreground text color (0 - 15)
28.             ColorTextBackground AS INTEGER ' Background text color (0 - 15)
29.             ColorHighlightForeground AS INTEGER ' Foreground highlight text color (0 - 15)
30.             ColorHighlightBackground AS INTEGER ' Background highlight text color (0 - 15)
31.             CursorAppearance AS INTEGER ' Default is 7 for text insert and 30 for text overwrite. Insert key changes mode.
32.             ' ------------------------------------------------------------------------------------
33.  
34.             PromptLength AS INTEGER ' Automatically determined by library function.
35.             PromptsDisplayed AS INTEGER ' Automatically determined by library function.
36.             ResponsemarginLeft AS INTEGER ' Automatically determined by library function.
37.             ResponseMarginRight AS INTEGER ' Automatically determined by library function.
38.             yy AS INTEGER
39.             xx AS INTEGER
40.             drag AS INTEGER
41.             dir AS INTEGER
42.             hl AS INTEGER
43.             shift AS INTEGER
44.             ctrl AS INTEGER
45.             hmrk AS INTEGER
46.         END TYPE
47.  
48.         ConsoleInput_Data:
49.         ' User Defined Prompts Go Here. Leave the DATA EOF.--------------------------------
50.         DATA "Example Prompt 1: ","Example Prompt 2: ","Example Prompt 3: "
51.         ' ---------------------------------------------------------------------------------
52.         DATA EOF
53.  
54.         ' User Defined Prompts Go Here. Keep DATA EOF.-------------------------------------
55.         ConsoleInput.MarginTop = 5
56.         ConsoleInput.PromptMarginLeft = 10
57.         ConsoleInput.PromptSpacing = 2 'Number of blank rows, less 1, between prompts. Do not set lower than 1.
58.         ConsoleInput.ResponseLength = 50
59.         ConsoleInput_MyPalette = 63
60.         ConsoleInput.ColorTextForeground = 0
61.         ConsoleInput.ColorTextBackground = 7
62.         ConsoleInput.ColorHighlightForeground = 7
63.         ConsoleInput.ColorHighlightBackground = 1
64.         ConsoleInput.CursorAppearance = 7 'Cursor vertical height for default ConsoleInput.CursorAppearanceert text mode.
65.         ' ---------------------------------------------------------------------------------
66.  
67.         IF ConsoleInput_MyPalette >= 0 THEN
68.             PALETTE ConsoleInput.ColorTextBackground, ConsoleInput_MyPalette
69.         END IF
70.  
71.         COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
72.         CLS
73.  
74.         CALL ConsoleInputGetPrompts(ConsoleInput_entryrow(), ConsoleInput_prompt$())
75.  
76.         DIM entry$(ConsoleInput.PromptsDisplayed) 'Text entry array.
77.         LOCATE , , 1, 7, ConsoleInput.CursorAppearance
78.  
79.         UserInputSetup = -1
80.     END IF
81.  
82.     CALL ConsoleInputResponse(ConsoleInput_entryrow(), entry$())
83.  
84. END SUB
85.  
86. SUB ConsoleInputGetPrompts (ConsoleInput_entryrow() AS INTEGER, ConsoleInput_prompt$())
87.     SHARED ConsoleInput AS ConsoleInput
88.  
89.     ' Get the number of prompts to assign to ConsoleInput_prompt$() array.
90.     RESTORE ConsoleInput_Data
91.     ConsoleInput.PromptsDisplayed = 0
92.     DO
93.         READ ConsoleInput_Data$
94.         IF ConsoleInput_Data$ = "EOF" THEN EXIT DO
95.         IF LEN(ConsoleInput_Data$) > ConsoleInput.PromptLength THEN ConsoleInput.PromptLength = LEN(ConsoleInput_Data$)
96.         ConsoleInput.PromptsDisplayed = ConsoleInput.PromptsDisplayed + 1
97.     LOOP
98.  
99.     REDIM ConsoleInput_prompt$(ConsoleInput.PromptsDisplayed)
100.     REDIM ConsoleInput_prompt$(ConsoleInput.PromptsDisplayed) 'Prompt array.
101.     REDIM ConsoleInput_entryrow(ConsoleInput.PromptsDisplayed) AS INTEGER 'Tracks row location of each prompt.
102.  
103.     ConsoleInput.ResponsemarginLeft = ConsoleInput.PromptMarginLeft + ConsoleInput.PromptLength
104.     ConsoleInput.ResponseMarginRight = ConsoleInput.ResponsemarginLeft + ConsoleInput.ResponseLength
105.  
106.     RESTORE ConsoleInput_Data
107.     ConsoleInput_i = 0
108.     DO
109.         READ ConsoleInput_Data$
110.         IF ConsoleInput_Data$ = "EOF" THEN EXIT DO
111.         ConsoleInput_prompt$(ConsoleInput_i) = ConsoleInput_Data$
112.         ConsoleInput_i = ConsoleInput_i + 1
113.     LOOP
114.  
115.     ConsoleInput.xx = ConsoleInput.ResponsemarginLeft
116.     ConsoleInput.yy = ConsoleInput.MarginTop
117.  
118.     FOR ConsoleInput_i = 0 TO ConsoleInput.PromptsDisplayed - 1
119.         LOCATE ConsoleInput.yy, ConsoleInput.PromptMarginLeft
120.         PRINT ConsoleInput_prompt$(ConsoleInput_i);
121.         ConsoleInput_entryrow(ConsoleInput_i) = ConsoleInput.yy
122.         ConsoleInput.yy = ConsoleInput.yy + ConsoleInput.PromptSpacing
123.     NEXT
124.  
125.     LOCATE ConsoleInput.MarginTop, ConsoleInput.ResponsemarginLeft
126.     ConsoleInput.xx = ConsoleInput.ResponsemarginLeft
127.     ConsoleInput.yy = ConsoleInput.MarginTop
128. END SUB
129.  
130. SUB ConsoleInputCopyText (ConsoleInput_xntry$, entry$())
131.     DIM ConsoleInput_m1 AS INTEGER, ConsoleInput_m2 AS INTEGER
132.  
133.     SHARED ConsoleInput AS ConsoleInput
134.  
135.     IF ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1 < ConsoleInput.hmrk THEN
136.         ConsoleInput_m2 = ConsoleInput.hmrk
137.         ConsoleInput_m1 = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
138.     ELSE
139.         ConsoleInput_m1 = ConsoleInput.hmrk
140.         ConsoleInput_m2 = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
141.     END IF
142.     ConsoleInput_xntry$ = MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput_m1, ConsoleInput_m2 - ConsoleInput_m1)
143. END SUB
144.  
145. SUB ConsoleInputReplace (entry$())
146.     DIM ConsoleInput_j AS INTEGER, ConsoleInput_m1 AS INTEGER, ConsoleInput_m2 AS INTEGER
147.  
148.     SHARED ConsoleInput AS ConsoleInput
149.  
150.     ConsoleInput_j = LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing))
151.     COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
152.     IF ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1 < ConsoleInput.hmrk THEN
153.         ConsoleInput_m2 = ConsoleInput.hmrk
154.         ConsoleInput_m1 = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft
155.     ELSE
156.         ConsoleInput_m1 = ConsoleInput.hmrk - 1
157.         ConsoleInput_m2 = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
158.     END IF
159.     entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing) = MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), 1, ConsoleInput_m1) + MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput_m2)
160.     LOCATE ConsoleInput.yy, ConsoleInput.ResponsemarginLeft
161.     PRINT entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing);
162.     PRINT STRING$(ConsoleInput_j - LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)), 32);
163.     IF ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1 > ConsoleInput.hmrk THEN
164.         ConsoleInput.xx = ConsoleInput.hmrk - 1 + ConsoleInput.ResponsemarginLeft
165.     END IF
166.     LOCATE ConsoleInput.yy, ConsoleInput.xx
167.     ConsoleInput.hmrk = 0
168.     ConsoleInput.hl = 0
169.     ConsoleInput.dir = 0
170. END SUB
171.  
172. SUB ConsoleInputResponse (ConsoleInput_entryrow() AS INTEGER, entry$())
173.     STATIC ConsoleInput_xntry$
174.     SHARED ConsoleInput AS ConsoleInput
175.  
176.     DIM ConsoleInput_oldyy AS INTEGER
177.  
178.     IF ConsoleInput.ctrl THEN ConsoleInput.ctrl = 0
179.     IF ConsoleInput.shift < 0 THEN ConsoleInput.shift = 0
180.     DEF SEG = 0
181.     ConsoleInput_i = PEEK(&H417) MOD 16
182.     SELECT CASE ConsoleInput_i
183.         CASE 1, 2
184.             ConsoleInput.shift = -1
185.         CASE 4
186.             ConsoleInput.ctrl = -1
187.     END SELECT
188.     DEF SEG
189.  
190.     ConsoleInput_oldyy = ConsoleInput.yy
191.  
192.     IF ConsoleInput.drag = 0 THEN
193.         IF ConsoleInput.hl AND ConsoleInput.shift = 0 AND ConsoleInput.hmrk = 0 THEN
194.             ConsoleInput.hl = 0 ' Disable ConsoleInput.hl so character value isn't printed after a shift / release event without highlighting.
195.         END IF
196.     END IF
197.  
198.     CALL ConsoleInputMouse(ConsoleInput_entryrow(), entry$(), ConsoleInput_ch$)
199.  
200.     IF ConsoleInput.drag = 0 THEN
201.         IF ConsoleInput_ch$ = "" THEN ConsoleInput_ch$ = INKEY$
202.         IF ConsoleInput_ch$ <> "" THEN
203.             IF ConsoleInput.ctrl THEN
204.                 SELECT CASE LCASE$(ConsoleInput_ch$)
205.                     CASE CHR$(1) ' Select All
206.                         LOCATE ConsoleInput.yy, ConsoleInput.ResponsemarginLeft
207.                         COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
208.                         PRINT entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing);
209.                         COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
210.                         ConsoleInput.hmrk = 1
211.                         ConsoleInput.hl = -1
212.                         ConsoleInput.dir = LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing))
213.                         ConsoleInput.xx = ConsoleInput.ResponsemarginLeft + ConsoleInput.dir
214.                         LOCATE ConsoleInput.yy, ConsoleInput.xx
215.  
216.                     CASE CHR$(3) ' Copy
217.                         IF ConsoleInput.hmrk THEN
218.                             CALL ConsoleInputCopyText(ConsoleInput_xntry$, entry$())
219.                         END IF
220.  
221.                     CASE CHR$(24) ' Cut
222.                         IF ConsoleInput.hmrk THEN
223.                             CALL ConsoleInputCopyText(ConsoleInput_xntry$, entry$())
224.                             CALL ConsoleInputReplace(entry$())
225.                         END IF
226.  
227.                     CASE CHR$(22) ' Paste
228.                         IF ConsoleInput_xntry$ <> "" THEN
229.                             IF ConsoleInput.hmrk THEN
230.                                 CALL ConsoleInputReplace(entry$())
231.                             END IF
232.                             ConsoleInput_m1 = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft
233.                             ConsoleInput_m2 = ConsoleInput_m1 + 1
234.                             IF LEN(ConsoleInput_xntry$) + LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) - (ConsoleInput_m2 - ConsoleInput_m1) <= ConsoleInput.ResponseLength - 1 THEN
235.                                 entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing) = MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), 1, ConsoleInput_m1) + ConsoleInput_xntry$ + MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput_m2)
236.                                 LOCATE ConsoleInput.yy, ConsoleInput.ResponsemarginLeft
237.                                 COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
238.                                 PRINT entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing);
239.                                 ConsoleInput.xx = ConsoleInput.xx + LEN(ConsoleInput_xntry$)
240.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
241.                             ELSE
242.                                 BEEP ' Contents too large to paste.
243.                             END IF
244.                         END IF
245.                 END SELECT
246.             ELSE
247.                 SELECT CASE ConsoleInput_ch$
248.                     CASE CHR$(8) ' Backspace
249.                         ConsoleInput_ch$ = CHR$(0)
250.                         IF ConsoleInput.hmrk > 0 THEN
251.                             CALL ConsoleInputReplace(entry$())
252.                         ELSE
253.                             IF ConsoleInput.xx > ConsoleInput.ResponsemarginLeft THEN
254.                                 ConsoleInput.xx = ConsoleInput.xx - 1
255.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
256.                                 PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 2); " ";
257.                                 entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing) = MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), 1, ConsoleInput.xx - ConsoleInput.ResponsemarginLeft) + MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 2)
258.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
259.                             END IF
260.                         END IF
261.                     CASE CHR$(0) + "S" ' Delete
262.                         IF ConsoleInput.shift THEN
263.                             IF ConsoleInput.hmrk THEN
264.                                 CALL ConsoleInputCopyText(ConsoleInput_xntry$, entry$())
265.                                 CALL ConsoleInputReplace(entry$())
266.                             END IF
267.                         ELSE
268.                             ConsoleInput_ch$ = CHR$(0)
269.                             IF ConsoleInput.hmrk > 0 THEN
270.                                 CALL ConsoleInputReplace(entry$())
271.                             ELSE
272.                                 IF LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) > 0 AND ConsoleInput.xx - ConsoleInput.ResponsemarginLeft <= LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) THEN
273.                                     PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 2); " ";
274.                                     entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing) = MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), 1, ConsoleInput.xx - ConsoleInput.ResponsemarginLeft) + MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 2)
275.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
276.                                 END IF
277.                             END IF
278.                         END IF
279.  
280.                     CASE CHR$(0) + "H" ' Arrow up
281.                         ConsoleInput_ch$ = CHR$(0)
282.                         IF ConsoleInput.yy > ConsoleInput.MarginTop THEN
283.                             ConsoleInput.yy = ConsoleInput.yy - ConsoleInput.PromptSpacing
284.                             ConsoleInput.xx = ConsoleInput.ResponsemarginLeft
285.                             LOCATE ConsoleInput.yy, ConsoleInput.xx
286.                         END IF
287.  
288.                     CASE CHR$(0) + "P", CHR$(13) ' Arrow down, Enter
289.                         ConsoleInput_ch$ = CHR$(0)
290.                         IF (ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing + 1 < ConsoleInput.PromptsDisplayed THEN
291.                             ConsoleInput.yy = ConsoleInput.yy + ConsoleInput.PromptSpacing
292.                             ConsoleInput.xx = ConsoleInput.ResponsemarginLeft
293.                             LOCATE ConsoleInput.yy, ConsoleInput.xx
294.                         END IF
295.  
296.                     CASE CHR$(0) + "K" ' Arrow left
297.                         ConsoleInput_ch$ = CHR$(0)
298.                         IF ConsoleInput.xx > ConsoleInput.ResponsemarginLeft THEN
299.                             IF ConsoleInput.shift THEN
300.                                 IF ConsoleInput.dir <= 0 THEN
301.                                     IF ConsoleInput.dir = 0 THEN
302.                                         ConsoleInput.hmrk = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
303.                                         ConsoleInput.hl = -1
304.                                     END IF
305.                                     ConsoleInput.xx = ConsoleInput.xx - 1
306.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
307.                                     COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
308.                                     PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
309.                                     ConsoleInput.dir = ConsoleInput.dir - 1
310.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
311.                                 ELSE
312.                                     ConsoleInput.xx = ConsoleInput.xx - 1
313.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
314.                                     COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
315.                                     PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
316.                                     ConsoleInput.dir = ConsoleInput.dir - 1
317.                                     IF ConsoleInput.dir = 0 THEN
318.                                         ConsoleInput.hmrk = 0
319.                                     END IF
320.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
321.                                 END IF
322.  
323.                             ELSE
324.                                 ConsoleInput.xx = ConsoleInput.xx - 1
325.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
326.                             END IF
327.                         END IF
328.  
329.                     CASE CHR$(0) + "M" ' Arrow right
330.                         ConsoleInput_ch$ = CHR$(0)
331.                         IF ConsoleInput.xx < ConsoleInput.ResponseMarginRight - 1 AND ConsoleInput.xx - ConsoleInput.ResponsemarginLeft < LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) THEN
332.                             IF ConsoleInput.shift THEN
333.                                 IF ConsoleInput.dir >= 0 THEN
334.                                     IF ConsoleInput.dir = 0 THEN
335.                                         ConsoleInput.hmrk = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
336.                                         ConsoleInput.hl = -1
337.                                     END IF
338.                                     COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
339.                                     PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
340.                                     ConsoleInput.xx = ConsoleInput.xx + 1
341.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
342.                                     ConsoleInput.dir = ConsoleInput.dir + 1
343.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
344.                                 ELSE
345.                                     COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
346.                                     PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
347.                                     ConsoleInput.xx = ConsoleInput.xx + 1
348.                                     ConsoleInput.dir = ConsoleInput.dir + 1
349.                                     IF ConsoleInput.dir = 0 THEN
350.                                         ConsoleInput.hmrk = 0
351.                                         ConsoleInput.hl = 0
352.                                     END IF
353.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
354.                                 END IF
355.                             ELSE
356.                                 ConsoleInput.xx = ConsoleInput.xx + 1
357.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
358.                             END IF
359.                         END IF
360.  
361.                     CASE CHR$(0) + "G" ' Home
362.                         ConsoleInput_ch$ = CHR$(0)
363.                         IF ConsoleInput.xx > ConsoleInput.ResponsemarginLeft THEN
364.                             IF ConsoleInput.shift THEN
365.                                 WHILE ConsoleInput.xx > ConsoleInput.ResponsemarginLeft
366.                                     IF ConsoleInput.dir <= 0 THEN
367.                                         IF ConsoleInput.dir = 0 THEN
368.                                             ConsoleInput.hmrk = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
369.                                             ' ConsoleInput.hl is already set.
370.                                         END IF
371.                                         ConsoleInput.xx = ConsoleInput.xx - 1
372.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
373.                                         COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
374.                                         PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1);
375.                                         ConsoleInput.dir = ConsoleInput.dir - 1
376.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
377.                                     ELSE
378.                                         ConsoleInput.xx = ConsoleInput.xx - 1
379.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
380.                                         COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
381.                                         PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1);
382.                                         ConsoleInput.dir = ConsoleInput.dir - 1
383.                                         IF ConsoleInput.dir = 0 THEN
384.                                             ConsoleInput.hmrk = 0
385.                                             ConsoleInput.hl = 0
386.                                         END IF
387.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
388.                                     END IF
389.                                 WEND
390.                             ELSE
391.                                 ConsoleInput.xx = ConsoleInput.ResponsemarginLeft
392.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
393.                             END IF
394.                         END IF
395.  
396.                     CASE CHR$(0) + "O" ' End
397.                         ConsoleInput_ch$ = CHR$(0)
398.                         IF ConsoleInput.xx < ConsoleInput.ResponseMarginRight - 1 THEN
399.                             IF ConsoleInput.shift THEN
400.                                 WHILE ConsoleInput.xx - ConsoleInput.ResponsemarginLeft < LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing))
401.                                     IF ConsoleInput.dir >= 0 THEN
402.                                         IF ConsoleInput.dir = 0 THEN
403.                                             ConsoleInput.hmrk = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
404.                                             ConsoleInput.hl = -1
405.                                         END IF
406.                                         COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
407.                                         PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1);
408.                                         ConsoleInput.xx = ConsoleInput.xx + 1
409.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
410.                                         ConsoleInput.dir = ConsoleInput.dir + 1
411.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
412.                                     ELSE
413.                                         COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
414.                                         PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1);
415.                                         ConsoleInput.xx = ConsoleInput.xx + 1
416.                                         ConsoleInput.dir = ConsoleInput.dir + 1
417.                                         IF ConsoleInput.dir = 0 THEN
418.                                             ConsoleInput.hmrk = 0
419.                                         END IF
420.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
421.                                     END IF
422.                                 WEND
423.                             ELSE
424.                                 ConsoleInput.xx = ConsoleInput.ResponsemarginLeft + LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing))
425.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
426.                             END IF
427.                         END IF
428.  
429.                     CASE CHR$(27)
430.                         ConsoleInput_ch$ = CHR$(0)
431.                         SYSTEM
432.  
433.                     CASE CHR$(0) + CHR$(82) ' ConsoleInput.CursorAppearanceert
434.                         ConsoleInput_ch$ = CHR$(0)
435.                         IF ConsoleInput.CursorAppearance = 7 THEN ConsoleInput.CursorAppearance = 30 ELSE ConsoleInput.CursorAppearance = 7
436.                         LOCATE , , 1, 7, ConsoleInput.CursorAppearance
437.  
438.                     CASE CHR$(32) TO CHR$(126)
439.                         IF ConsoleInput.hmrk > 0 THEN
440.                             CALL ConsoleInputReplace(entry$())
441.                         END IF
442.                         IF ConsoleInput.CursorAppearance = 30 THEN
443.                             IF ConsoleInput.xx - ConsoleInput.ResponsemarginLeft < ConsoleInput.ResponseLength - 1 THEN
444.                                 MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1) = ConsoleInput_ch$
445.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
446.                                 PRINT ConsoleInput_ch$;
447.                                 ConsoleInput.xx = ConsoleInput.xx + 1
448.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
449.                             END IF
450.                         ELSE
451.                             IF LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) < ConsoleInput.ResponseLength - 1 THEN
452.                                 PRINT ConsoleInput_ch$ + MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1);
453.                                 entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing) = MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), 1, ConsoleInput.xx - ConsoleInput.ResponsemarginLeft) + ConsoleInput_ch$ + MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1)
454.                                 ConsoleInput.xx = ConsoleInput.xx + 1
455.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
456.                             END IF
457.                         END IF
458.                 END SELECT
459.             END IF
460.         END IF
461.  
462.         IF ConsoleInput.shift THEN
463.             IF ConsoleInput.hl = 0 AND ConsoleInput.dir <> 0 THEN
464.                 ConsoleInput.hl = -1 ' When ConsoleInput.dir <> 0 the first character has been highlighted.
465.             END IF
466.         ELSE
467.             IF ConsoleInput_ch$ <> "" THEN
468.                 IF ConsoleInput.hl AND ConsoleInput.shift = 0 AND LCASE$(ConsoleInput_ch$) <> "x" AND ConsoleInput.ctrl = 0 AND ConsoleInput_ch$ <> CHR$(8) AND ConsoleInput_ch$ <> CHR$(0) + "S" THEN
469.                     ' ROutine to remove highlighting from text.
470.                     COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
471.                     LOCATE ConsoleInput_oldyy, ConsoleInput.ResponsemarginLeft
472.                     IF ConsoleInput_ch$ <> CHR$(0) THEN
473.                         PRINT ConsoleInput_ch$;
474.                     END IF
475.                     PRINT entry$((ConsoleInput_oldyy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing);
476.                     LOCATE ConsoleInput.yy, ConsoleInput.xx
477.                     ConsoleInput.hmrk = 0
478.                     ConsoleInput.hl = 0
479.                     ConsoleInput.dir = 0
480.                 END IF
481.             END IF
482.         END IF
483.         ConsoleInput_ch$ = ""
484.     END IF
485. END SUB
486.  
487. SUB ConsoleInputMouse (ConsoleInput_entryrow() AS INTEGER, entry$(), ConsoleInput_ch$)
488.     STATIC ConsoleInput_doubleclick AS INTEGER, ConsoleInput_lb AS INTEGER, ConsoleInput_lbdn AS INTEGER, ConsoleInput_z1
489.     STATIC ConsoleInput_mx AS INTEGER, ConsoleInput_my AS INTEGER, ConsoleInput_oldmx AS INTEGER, ConsoleInput_oldmy AS INTEGER, ConsoleInput_mhl AS INTEGER
490.  
491.     SHARED ConsoleInput AS ConsoleInput
492.  
493.     IF ConsoleInput_debug THEN
494.         LOCATE 18, 1
495.         COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
496.         PRINT " oldmx"; ConsoleInput_oldmx; "  oldmy"; ConsoleInput_oldmy; "  mx"; ConsoleInput_mx; "  my"; ConsoleInput_my; "  xx"; ConsoleInput.xx; "  yy"; ConsoleInput.yy; "  lb"; ConsoleInput_lb; "  lbdn"; ConsoleInput_lbdn; "      "
497.         PRINT " shift"; ConsoleInput.shift; "  drag"; ConsoleInput.drag; "  mhl"; mhl; "  hmrk"; ConsoleInput.hmrk; "  dir"; ConsoleInput.dir; "  dblclk"; ConsoleInput_doubleclick; "        "
498.         PRINT " mx"; ConsoleInput_mx - ConsoleInput.ResponsemarginLeft + 1; "  my"; (ConsoleInput_my - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing; "  xx"; ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1; "  yy"; (ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing; " hl"; ConsoleInput.hl; "  Response Margin"; ConsoleInput.ResponsemarginLeft; "     ";
499.         LOCATE ConsoleInput.yy, ConsoleInput.xx
500.     END IF
501.  
502.     WHILE _MOUSEINPUT: WEND
503.     ConsoleInput_mx = _MOUSEX
504.     ConsoleInput_my = _MOUSEY
505.     ConsoleInput_lb = _MOUSEBUTTON(1)
506.  
507.     IF ConsoleInput_lb AND ConsoleInput.hl AND ConsoleInput.shift = 0 AND ConsoleInput.drag = 0 AND ConsoleInput_mhl = 0 THEN ' Allows highlighting caused by mouse click to be removed in parent sub.
508.         ConsoleInput_ch$ = CHR$(0)
509.         EXIT SUB
510.     END IF
511.  
512.     IF ConsoleInput.shift AND ConsoleInput_lb AND ConsoleInput.drag = 0 OR ConsoleInput_mhl THEN
513.         IF ConsoleInput_mhl = 0 THEN ' Shift + click highlighting.
514.             IF ConsoleInput_my = ConsoleInput.yy AND ConsoleInput_mx <> ConsoleInput.xx AND ConsoleInput_mx >= ConsoleInput.ResponsemarginLeft AND ConsoleInput_mx - ConsoleInput.ResponsemarginLeft <= LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) THEN
515.                 ConsoleInput_mhl = ConsoleInput_mx - ConsoleInput.ResponsemarginLeft + 1
516.             END IF
517.         ELSE ' Terminal point reached, end highlighting.
518.             IF ConsoleInput_mhl = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1 THEN ConsoleInput_mhl = 0: ConsoleInput.drag = 0: EXIT SUB
519.         END IF
520.     END IF
521.  
522.     IF LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) THEN
523.         IF ConsoleInput_lbdn AND ConsoleInput.xx <> ConsoleInput_mx AND ConsoleInput.shift = 0 OR ConsoleInput_mhl THEN ' Combined drag and shift + click highlighting.
524.             IF ConsoleInput_my = ConsoleInput.yy THEN ' Restrict to active text line.
525.                 IF ConsoleInput_lb OR ConsoleInput_mhl THEN
526.                     IF ConsoleInput.xx > ConsoleInput_mx THEN
527.                         ConsoleInput.drag = -1
528.                     ELSE
529.                         ConsoleInput.drag = 1
530.                     END IF
531.                     GOSUB mouseConsoleInput.drag
532.                     EXIT SUB
533.                 ELSE
534.                     ConsoleInput.drag = 0
535.                 END IF
536.             END IF
537.         END IF
538.     END IF
539.  
540.     IF ConsoleInput_lb THEN
541.         IF ConsoleInput_debug THEN COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground: LOCATE 2, 1: PRINT "left button down    "
542.         IF ConsoleInput_lbdn = 0 THEN ConsoleInput_lbdn = -1
543.         IF ConsoleInput_my = ConsoleInput.yy THEN
544.             IF ConsoleInput_mx >= ConsoleInput.ResponsemarginLeft AND ConsoleInput_mx - ConsoleInput.ResponsemarginLeft <= LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) THEN
545.                 IF ConsoleInput.drag = 0 AND ConsoleInput.shift = 0 THEN ConsoleInput.yy = ConsoleInput_my ' Prevents changing rows if a ConsoleInput.drag is in progress.
546.                 ConsoleInput.xx = ConsoleInput_mx
547.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
548.                 ConsoleInput_oldmx = ConsoleInput_mx: ConsoleInput_oldmy = ConsoleInput_my
549.             END IF
550.         ELSEIF ConsoleInput.shift = 0 THEN
551.             FOR ConsoleInput_i = 0 TO ConsoleInput.PromptsDisplayed - 1
552.                 IF ConsoleInput_my = ConsoleInput_entryrow(ConsoleInput_i) THEN EXIT FOR
553.             NEXT
554.  
555.             IF ConsoleInput_my = ConsoleInput_entryrow(ConsoleInput_i) AND ConsoleInput.drag = 0 THEN
556.                 IF ConsoleInput_mx >= ConsoleInput.PromptMarginLeft AND ConsoleInput_mx - ConsoleInput.ResponsemarginLeft <= ConsoleInput.ResponseLength THEN
557.                     IF ConsoleInput_mx - ConsoleInput.ResponsemarginLeft > 0 AND ConsoleInput_mx - ConsoleInput.ResponsemarginLeft <= LEN(entry$(ConsoleInput_i)) THEN
558.                         ConsoleInput.yy = ConsoleInput_my: ConsoleInput.xx = ConsoleInput_mx
559.                     ELSE
560.                         ConsoleInput.yy = ConsoleInput_my: ConsoleInput.xx = ConsoleInput.ResponsemarginLeft
561.                     END IF
562.                     LOCATE ConsoleInput.yy, ConsoleInput.xx
563.                 END IF
564.             END IF
565.         END IF
566.     ELSE
567.         IF ConsoleInput_lbdn THEN
568.             ConsoleInput_z1 = TIMER
569.             IF ConsoleInput_debug THEN COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground: LOCATE 2, 1: PRINT "left button released"
570.             ConsoleInput_doubleclick = ConsoleInput_doubleclick + 1
571.             ConsoleInput_lbdn = 0
572.             ConsoleInput.drag = 0
573.         END IF
574.     END IF
575.  
576.     IF ConsoleInput_doubleclick = 1 THEN
577.         IF ABS(ConsoleInput_z1 - TIMER) > .33 THEN ConsoleInput_doubleclick = 0
578.     END IF
579.  
580.     IF ConsoleInput_doubleclick = 2 THEN
581.         ' Any double click events go here...
582.         IF ConsoleInput_debug THEN LOCATE 2, 1: PRINT "double click         ";
583.         ConsoleInput_doubleclick = 0
584.     END IF
585.     LOCATE ConsoleInput.yy, ConsoleInput.xx
586.  
587.     EXIT SUB
588.  
589.     mouseConsoleInput.drag:
590.     SELECT CASE ConsoleInput.drag
591.         CASE IS < 0
592.             IF ConsoleInput.dir <= 0 THEN ' highlight to left
593.                 IF ConsoleInput.dir = 0 THEN
594.                     ConsoleInput.hmrk = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
595.                     ' Do not emulate shift here.
596.                     ConsoleInput.hl = -1
597.                 END IF
598.                 ConsoleInput.xx = ConsoleInput.xx - 1
599.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
600.                 COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
601.                 PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
602.                 ConsoleInput.dir = ConsoleInput.dir - 1
603.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
604.             ELSE ' unhighlight to left
605.                 ConsoleInput.xx = ConsoleInput.xx - 1
606.                 ConsoleInput.dir = ConsoleInput.dir - 1
607.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
608.                 COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
609.                 PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
610.                 IF ConsoleInput.dir = 0 THEN
611.                     ConsoleInput.hmrk = 0
612.                     ConsoleInput.hl = 0
613.                     ConsoleInput.shift = 0
614.                 END IF
615.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
616.             END IF
617.         CASE IS > 0
618.             IF ConsoleInput.dir >= 0 THEN
619.                 COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
620.                 PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
621.                 IF ConsoleInput.dir = 0 THEN
622.                     ConsoleInput.hmrk = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
623.                     ConsoleInput.hl = -1
624.                     ' Do not emulate shift here.
625.                 END IF
626.                 ConsoleInput.xx = ConsoleInput.xx + 1
627.                 ConsoleInput.dir = ConsoleInput.dir + 1
628.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
629.             ELSE
630.                 COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
631.                 PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
632.                 ConsoleInput.xx = ConsoleInput.xx + 1
633.                 ConsoleInput.dir = ConsoleInput.dir + 1
634.                 IF ConsoleInput.dir = 0 THEN
635.                     ConsoleInput.hmrk = 0
636.                     ConsoleInput.hl = 0
637.                     ConsoleInput.shift = 0
638.                 END IF
639.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
640.             END IF
641.     END SELECT
642.     RETURN
643. END SUB
644.  
645.  

Pete

[Pete]

OK, which method is better? Method 1 is pretty standard. You pass variables to the library and add your own prompts in the main. Method 2 is the same, except you place your prompts as DATA statements.

Method 1

Code: QB64: [Select]

1. 'DIM SHARED ConsoleInput_debug AS INTEGER: ConsoleInput_debug = 1
2. main:
3. 'PARAMETERS------------------------------------------------------------------
4. 'Prompts.
5. 'Margin top.
6. 'Margin left.
7. 'Spacing.
8. 'Response length.
9. 'Palette screen color modifier. Set to -1 for none.
10. 'Foreground text color.
11. 'Screen color.
12. 'Highlight text foreground.
13. 'Highlight text background.
14. '-----------------------------------------------------------------------------
15. DIM CI_Prompt$(3)
16. CI_Prompt$(0) = "Example 1: "
17. CI_Prompt$(1) = "Example 2: "
18. CI_Prompt$(2) = "Example 3: "
19. WHILE (1)
20.     CALL ConsoleInputLibrary(CI_Prompt$(), 10, 15, 2, 50, 63, 0, 7, 7, 1, 7)
21. WEND
22.  
23. '=============================CONSOLE INPUT LIBRARY===========================
24.  
25. SUB ConsoleInputLibrary (ConsoleInput_Prompt$(), CI_1 AS INTEGER, CI_2 AS INTEGER, CI_3 AS INTEGER, CI_4 AS INTEGER, CI_5 AS INTEGER, CI_6 AS INTEGER, CI_7 AS INTEGER, CI_8 AS INTEGER, CI_9 AS INTEGER, CI_10 AS INTEGER)
26.     STATIC UserInputSetup AS INTEGER
27.     STATIC entry$(), ConsoleInput_entryrow() AS INTEGER
28.  
29.     SHARED ConsoleInput AS ConsoleInput
30.  
31.     IF UserInputSetup = 0 THEN
32.         TYPE ConsoleInput
33.             ' User Defined Variable Types--------------------------------------------------------
34.             MarginTop AS INTEGER ' Margin top (Number of spaces from the top to display the first prompt.)
35.             PromptMarginLeft AS INTEGER ' Margin left. The column to begin displaying prompts. Must be within screen width including maximum length of response.
36.             PromptSpacing AS INTEGER ' The vertical row spacing between prompts. 1 to (n).
37.             ResponseLength AS INTEGER ' Maximum length of the reply to prompt. Must be within the screen width.
38.             MyPalette AS INTEGER ' Only use to modify standard screen colors. -1 means this option is turned off.
39.             ColorTextForeground AS INTEGER ' Foreground text color (0 - 15)
40.             ColorTextBackground AS INTEGER ' Background text color (0 - 15)
41.             ColorHighlightForeground AS INTEGER ' Foreground highlight text color (0 - 15)
42.             ColorHighlightBackground AS INTEGER ' Background highlight text color (0 - 15)
43.             CursorAppearance AS INTEGER ' Default is 7 for text insert and 30 for text overwrite. Insert key changes mode.
44.             ' ------------------------------------------------------------------------------------
45.             PromptLength AS INTEGER ' Automatically determined by library function.
46.             PromptsDisplayed AS INTEGER ' Automatically determined by library function.
47.             ResponsemarginLeft AS INTEGER ' Automatically determined by library function.
48.             ResponseMarginRight AS INTEGER ' Automatically determined by library function.
49.             yy AS INTEGER
50.             xx AS INTEGER
51.             drag AS INTEGER
52.             dir AS INTEGER
53.             hl AS INTEGER
54.             shift AS INTEGER
55.             ctrl AS INTEGER
56.             hmrk AS INTEGER
57.         END TYPE
58.  
59.         ConsoleInput.MarginTop = CI_1
60.         ConsoleInput.PromptMarginLeft = CI_2
61.         ConsoleInput.PromptSpacing = CI_3
62.         ConsoleInput.ResponseLength = CI_4
63.         ConsoleInput_MyPalette = CI_5
64.         ConsoleInput.ColorTextForeground = CI_6
65.         ConsoleInput.ColorTextBackground = CI_7
66.         ConsoleInput.ColorHighlightForeground = CI_8
67.         ConsoleInput.ColorHighlightBackground = CI_9
68.         ConsoleInput.CursorAppearance = CI_10
69.  
70.         ConsoleInput.PromptsDisplayed = UBOUND(ConsoleInput_Prompt$)
71.  
72.         FOR ConsoleInput_i = 0 TO ConsoleInput.PromptsDisplayed
73.             IF LEN(ConsoleInput_Prompt$(ConsoleInput_i)) > ConsoleInput.PromptLength THEN ConsoleInput.PromptLength = LEN(ConsoleInput_Prompt$(ConsoleInput_i))
74.         NEXT
75.  
76.         IF ConsoleInput_MyPalette >= 0 THEN
77.             PALETTE ConsoleInput.ColorTextBackground, ConsoleInput_MyPalette
78.         END IF
79.  
80.         COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
81.         CLS
82.  
83.         CALL ConsoleInputGetPrompts(ConsoleInput_entryrow(), ConsoleInput_Prompt$())
84.  
85.         DIM entry$(ConsoleInput.PromptsDisplayed) 'Text entry array.
86.         LOCATE , , 1, 7, ConsoleInput.CursorAppearance
87.  
88.         UserInputSetup = -1
89.     END IF
90.  
91.     CALL ConsoleInputResponse(ConsoleInput_entryrow(), entry$())
92.  
93. END SUB
94.  
95. SUB ConsoleInputGetPrompts (ConsoleInput_entryrow() AS INTEGER, ConsoleInput_prompt$())
96.     SHARED ConsoleInput AS ConsoleInput
97.  
98.     REDIM ConsoleInput_entryrow(ConsoleInput.PromptsDisplayed) AS INTEGER 'Tracks row location of each prompt.
99.  
100.     ConsoleInput.ResponsemarginLeft = ConsoleInput.PromptMarginLeft + ConsoleInput.PromptLength
101.     ConsoleInput.ResponseMarginRight = ConsoleInput.ResponsemarginLeft + ConsoleInput.ResponseLength
102.     ConsoleInput.xx = ConsoleInput.ResponsemarginLeft
103.     ConsoleInput.yy = ConsoleInput.MarginTop
104.  
105.     FOR ConsoleInput_i = 0 TO ConsoleInput.PromptsDisplayed - 1
106.         LOCATE ConsoleInput.yy, ConsoleInput.PromptMarginLeft
107.         PRINT ConsoleInput_prompt$(ConsoleInput_i);
108.         ConsoleInput_entryrow(ConsoleInput_i) = ConsoleInput.yy
109.         ConsoleInput.yy = ConsoleInput.yy + ConsoleInput.PromptSpacing
110.     NEXT
111.  
112.     LOCATE ConsoleInput.MarginTop, ConsoleInput.ResponsemarginLeft
113.     ConsoleInput.xx = ConsoleInput.ResponsemarginLeft
114.     ConsoleInput.yy = ConsoleInput.MarginTop
115. END SUB
116.  
117. SUB ConsoleInputCopyText (ConsoleInput_xntry$, entry$())
118.     DIM ConsoleInput_m1 AS INTEGER, ConsoleInput_m2 AS INTEGER
119.  
120.     SHARED ConsoleInput AS ConsoleInput
121.  
122.     IF ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1 < ConsoleInput.hmrk THEN
123.         ConsoleInput_m2 = ConsoleInput.hmrk
124.         ConsoleInput_m1 = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
125.     ELSE
126.         ConsoleInput_m1 = ConsoleInput.hmrk
127.         ConsoleInput_m2 = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
128.     END IF
129.     ConsoleInput_xntry$ = MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput_m1, ConsoleInput_m2 - ConsoleInput_m1)
130. END SUB
131.  
132. SUB ConsoleInputReplace (entry$())
133.     DIM ConsoleInput_j AS INTEGER, ConsoleInput_m1 AS INTEGER, ConsoleInput_m2 AS INTEGER
134.  
135.     SHARED ConsoleInput AS ConsoleInput
136.  
137.     ConsoleInput_j = LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing))
138.     COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
139.     IF ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1 < ConsoleInput.hmrk THEN
140.         ConsoleInput_m2 = ConsoleInput.hmrk
141.         ConsoleInput_m1 = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft
142.     ELSE
143.         ConsoleInput_m1 = ConsoleInput.hmrk - 1
144.         ConsoleInput_m2 = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
145.     END IF
146.     entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing) = MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), 1, ConsoleInput_m1) + MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput_m2)
147.     LOCATE ConsoleInput.yy, ConsoleInput.ResponsemarginLeft
148.     PRINT entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing);
149.     PRINT STRING$(ConsoleInput_j - LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)), 32);
150.     IF ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1 > ConsoleInput.hmrk THEN
151.         ConsoleInput.xx = ConsoleInput.hmrk - 1 + ConsoleInput.ResponsemarginLeft
152.     END IF
153.     LOCATE ConsoleInput.yy, ConsoleInput.xx
154.     ConsoleInput.hmrk = 0
155.     ConsoleInput.hl = 0
156.     ConsoleInput.dir = 0
157. END SUB
158.  
159. SUB ConsoleInputResponse (ConsoleInput_entryrow() AS INTEGER, entry$())
160.     STATIC ConsoleInput_xntry$
161.     SHARED ConsoleInput AS ConsoleInput
162.  
163.     DIM ConsoleInput_oldyy AS INTEGER
164.  
165.     IF ConsoleInput.ctrl THEN ConsoleInput.ctrl = 0
166.     IF ConsoleInput.shift < 0 THEN ConsoleInput.shift = 0
167.     DEF SEG = 0
168.     ConsoleInput_i = PEEK(&H417) MOD 16
169.     SELECT CASE ConsoleInput_i
170.         CASE 1, 2
171.             ConsoleInput.shift = -1
172.         CASE 4
173.             ConsoleInput.ctrl = -1
174.     END SELECT
175.     DEF SEG
176.  
177.     ConsoleInput_oldyy = ConsoleInput.yy
178.  
179.     IF ConsoleInput.drag = 0 THEN
180.         IF ConsoleInput.hl AND ConsoleInput.shift = 0 AND ConsoleInput.hmrk = 0 THEN
181.             ConsoleInput.hl = 0 ' Disable ConsoleInput.hl so character value isn't printed after a shift / release event without highlighting.
182.         END IF
183.     END IF
184.  
185.     CALL ConsoleInputMouse(ConsoleInput_entryrow(), entry$(), ConsoleInput_ch$)
186.  
187.     IF ConsoleInput.drag = 0 THEN
188.         IF ConsoleInput_ch$ = "" THEN ConsoleInput_ch$ = INKEY$
189.         IF ConsoleInput_ch$ <> "" THEN
190.             IF ConsoleInput.ctrl THEN
191.                 SELECT CASE LCASE$(ConsoleInput_ch$)
192.                     CASE CHR$(1) ' Select All
193.                         LOCATE ConsoleInput.yy, ConsoleInput.ResponsemarginLeft
194.                         COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
195.                         PRINT entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing);
196.                         COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
197.                         ConsoleInput.hmrk = 1
198.                         ConsoleInput.hl = -1
199.                         ConsoleInput.dir = LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing))
200.                         ConsoleInput.xx = ConsoleInput.ResponsemarginLeft + ConsoleInput.dir
201.                         LOCATE ConsoleInput.yy, ConsoleInput.xx
202.  
203.                     CASE CHR$(3) ' Copy
204.                         IF ConsoleInput.hmrk THEN
205.                             CALL ConsoleInputCopyText(ConsoleInput_xntry$, entry$())
206.                         END IF
207.  
208.                     CASE CHR$(24) ' Cut
209.                         IF ConsoleInput.hmrk THEN
210.                             CALL ConsoleInputCopyText(ConsoleInput_xntry$, entry$())
211.                             CALL ConsoleInputReplace(entry$())
212.                         END IF
213.  
214.                     CASE CHR$(22) ' Paste
215.                         IF ConsoleInput_xntry$ <> "" THEN
216.                             IF ConsoleInput.hmrk THEN
217.                                 CALL ConsoleInputReplace(entry$())
218.                             END IF
219.                             ConsoleInput_m1 = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft
220.                             ConsoleInput_m2 = ConsoleInput_m1 + 1
221.                             IF LEN(ConsoleInput_xntry$) + LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) - (ConsoleInput_m2 - ConsoleInput_m1) <= ConsoleInput.ResponseLength - 1 THEN
222.                                 entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing) = MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), 1, ConsoleInput_m1) + ConsoleInput_xntry$ + MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput_m2)
223.                                 LOCATE ConsoleInput.yy, ConsoleInput.ResponsemarginLeft
224.                                 COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
225.                                 PRINT entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing);
226.                                 ConsoleInput.xx = ConsoleInput.xx + LEN(ConsoleInput_xntry$)
227.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
228.                             ELSE
229.                                 BEEP ' Contents too large to paste.
230.                             END IF
231.                         END IF
232.                 END SELECT
233.             ELSE
234.                 SELECT CASE ConsoleInput_ch$
235.                     CASE CHR$(8) ' Backspace
236.                         ConsoleInput_ch$ = CHR$(0)
237.                         IF ConsoleInput.hmrk > 0 THEN
238.                             CALL ConsoleInputReplace(entry$())
239.                         ELSE
240.                             IF ConsoleInput.xx > ConsoleInput.ResponsemarginLeft THEN
241.                                 ConsoleInput.xx = ConsoleInput.xx - 1
242.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
243.                                 PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 2); " ";
244.                                 entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing) = MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), 1, ConsoleInput.xx - ConsoleInput.ResponsemarginLeft) + MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 2)
245.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
246.                             END IF
247.                         END IF
248.                     CASE CHR$(0) + "S" ' Delete
249.                         IF ConsoleInput.shift THEN
250.                             IF ConsoleInput.hmrk THEN
251.                                 CALL ConsoleInputCopyText(ConsoleInput_xntry$, entry$())
252.                                 CALL ConsoleInputReplace(entry$())
253.                             END IF
254.                         ELSE
255.                             ConsoleInput_ch$ = CHR$(0)
256.                             IF ConsoleInput.hmrk > 0 THEN
257.                                 CALL ConsoleInputReplace(entry$())
258.                             ELSE
259.                                 IF LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) > 0 AND ConsoleInput.xx - ConsoleInput.ResponsemarginLeft <= LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) THEN
260.                                     PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 2); " ";
261.                                     entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing) = MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), 1, ConsoleInput.xx - ConsoleInput.ResponsemarginLeft) + MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 2)
262.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
263.                                 END IF
264.                             END IF
265.                         END IF
266.  
267.                     CASE CHR$(0) + "H" ' Arrow up
268.                         ConsoleInput_ch$ = CHR$(0)
269.                         IF ConsoleInput.yy > ConsoleInput.MarginTop THEN
270.                             ConsoleInput.yy = ConsoleInput.yy - ConsoleInput.PromptSpacing
271.                             ConsoleInput.xx = ConsoleInput.ResponsemarginLeft
272.                             LOCATE ConsoleInput.yy, ConsoleInput.xx
273.                         END IF
274.  
275.                     CASE CHR$(0) + "P", CHR$(13) ' Arrow down, Enter
276.                         ConsoleInput_ch$ = CHR$(0)
277.                         IF (ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing + 1 < ConsoleInput.PromptsDisplayed THEN
278.                             ConsoleInput.yy = ConsoleInput.yy + ConsoleInput.PromptSpacing
279.                             ConsoleInput.xx = ConsoleInput.ResponsemarginLeft
280.                             LOCATE ConsoleInput.yy, ConsoleInput.xx
281.                         END IF
282.  
283.                     CASE CHR$(0) + "K" ' Arrow left
284.                         ConsoleInput_ch$ = CHR$(0)
285.                         IF ConsoleInput.xx > ConsoleInput.ResponsemarginLeft THEN
286.                             IF ConsoleInput.shift THEN
287.                                 IF ConsoleInput.dir <= 0 THEN
288.                                     IF ConsoleInput.dir = 0 THEN
289.                                         ConsoleInput.hmrk = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
290.                                         ConsoleInput.hl = -1
291.                                     END IF
292.                                     ConsoleInput.xx = ConsoleInput.xx - 1
293.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
294.                                     COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
295.                                     PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
296.                                     ConsoleInput.dir = ConsoleInput.dir - 1
297.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
298.                                 ELSE
299.                                     ConsoleInput.xx = ConsoleInput.xx - 1
300.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
301.                                     COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
302.                                     PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
303.                                     ConsoleInput.dir = ConsoleInput.dir - 1
304.                                     IF ConsoleInput.dir = 0 THEN
305.                                         ConsoleInput.hmrk = 0
306.                                     END IF
307.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
308.                                 END IF
309.  
310.                             ELSE
311.                                 ConsoleInput.xx = ConsoleInput.xx - 1
312.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
313.                             END IF
314.                         END IF
315.  
316.                     CASE CHR$(0) + "M" ' Arrow right
317.                         ConsoleInput_ch$ = CHR$(0)
318.                         IF ConsoleInput.xx < ConsoleInput.ResponseMarginRight - 1 AND ConsoleInput.xx - ConsoleInput.ResponsemarginLeft < LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) THEN
319.                             IF ConsoleInput.shift THEN
320.                                 IF ConsoleInput.dir >= 0 THEN
321.                                     IF ConsoleInput.dir = 0 THEN
322.                                         ConsoleInput.hmrk = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
323.                                         ConsoleInput.hl = -1
324.                                     END IF
325.                                     COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
326.                                     PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
327.                                     ConsoleInput.xx = ConsoleInput.xx + 1
328.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
329.                                     ConsoleInput.dir = ConsoleInput.dir + 1
330.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
331.                                 ELSE
332.                                     COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
333.                                     PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
334.                                     ConsoleInput.xx = ConsoleInput.xx + 1
335.                                     ConsoleInput.dir = ConsoleInput.dir + 1
336.                                     IF ConsoleInput.dir = 0 THEN
337.                                         ConsoleInput.hmrk = 0
338.                                         ConsoleInput.hl = 0
339.                                     END IF
340.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
341.                                 END IF
342.                             ELSE
343.                                 ConsoleInput.xx = ConsoleInput.xx + 1
344.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
345.                             END IF
346.                         END IF
347.  
348.                     CASE CHR$(0) + "G" ' Home
349.                         ConsoleInput_ch$ = CHR$(0)
350.                         IF ConsoleInput.xx > ConsoleInput.ResponsemarginLeft THEN
351.                             IF ConsoleInput.shift THEN
352.                                 WHILE ConsoleInput.xx > ConsoleInput.ResponsemarginLeft
353.                                     IF ConsoleInput.dir <= 0 THEN
354.                                         IF ConsoleInput.dir = 0 THEN
355.                                             ConsoleInput.hmrk = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
356.                                             ' ConsoleInput.hl is already set.
357.                                         END IF
358.                                         ConsoleInput.xx = ConsoleInput.xx - 1
359.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
360.                                         COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
361.                                         PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1);
362.                                         ConsoleInput.dir = ConsoleInput.dir - 1
363.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
364.                                     ELSE
365.                                         ConsoleInput.xx = ConsoleInput.xx - 1
366.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
367.                                         COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
368.                                         PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1);
369.                                         ConsoleInput.dir = ConsoleInput.dir - 1
370.                                         IF ConsoleInput.dir = 0 THEN
371.                                             ConsoleInput.hmrk = 0
372.                                             ConsoleInput.hl = 0
373.                                         END IF
374.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
375.                                     END IF
376.                                 WEND
377.                             ELSE
378.                                 ConsoleInput.xx = ConsoleInput.ResponsemarginLeft
379.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
380.                             END IF
381.                         END IF
382.  
383.                     CASE CHR$(0) + "O" ' End
384.                         ConsoleInput_ch$ = CHR$(0)
385.                         IF ConsoleInput.xx < ConsoleInput.ResponseMarginRight - 1 THEN
386.                             IF ConsoleInput.shift THEN
387.                                 WHILE ConsoleInput.xx - ConsoleInput.ResponsemarginLeft < LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing))
388.                                     IF ConsoleInput.dir >= 0 THEN
389.                                         IF ConsoleInput.dir = 0 THEN
390.                                             ConsoleInput.hmrk = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
391.                                             ConsoleInput.hl = -1
392.                                         END IF
393.                                         COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
394.                                         PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1);
395.                                         ConsoleInput.xx = ConsoleInput.xx + 1
396.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
397.                                         ConsoleInput.dir = ConsoleInput.dir + 1
398.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
399.                                     ELSE
400.                                         COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
401.                                         PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1);
402.                                         ConsoleInput.xx = ConsoleInput.xx + 1
403.                                         ConsoleInput.dir = ConsoleInput.dir + 1
404.                                         IF ConsoleInput.dir = 0 THEN
405.                                             ConsoleInput.hmrk = 0
406.                                         END IF
407.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
408.                                     END IF
409.                                 WEND
410.                             ELSE
411.                                 ConsoleInput.xx = ConsoleInput.ResponsemarginLeft + LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing))
412.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
413.                             END IF
414.                         END IF
415.  
416.                     CASE CHR$(27)
417.                         ConsoleInput_ch$ = CHR$(0)
418.                         SYSTEM
419.  
420.                     CASE CHR$(0) + CHR$(82) ' ConsoleInput.CursorAppearanceert
421.                         ConsoleInput_ch$ = CHR$(0)
422.                         IF ConsoleInput.CursorAppearance = 7 THEN ConsoleInput.CursorAppearance = 30 ELSE ConsoleInput.CursorAppearance = 7
423.                         LOCATE , , 1, 7, ConsoleInput.CursorAppearance
424.  
425.                     CASE CHR$(32) TO CHR$(126)
426.                         IF ConsoleInput.hmrk > 0 THEN
427.                             CALL ConsoleInputReplace(entry$())
428.                         END IF
429.                         IF ConsoleInput.CursorAppearance = 30 THEN
430.                             IF ConsoleInput.xx - ConsoleInput.ResponsemarginLeft < ConsoleInput.ResponseLength - 1 THEN
431.                                 MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1) = ConsoleInput_ch$
432.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
433.                                 PRINT ConsoleInput_ch$;
434.                                 ConsoleInput.xx = ConsoleInput.xx + 1
435.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
436.                             END IF
437.                         ELSE
438.                             IF LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) < ConsoleInput.ResponseLength - 1 THEN
439.                                 PRINT ConsoleInput_ch$ + MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1);
440.                                 entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing) = MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), 1, ConsoleInput.xx - ConsoleInput.ResponsemarginLeft) + ConsoleInput_ch$ + MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1)
441.                                 ConsoleInput.xx = ConsoleInput.xx + 1
442.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
443.                             END IF
444.                         END IF
445.                 END SELECT
446.             END IF
447.         END IF
448.  
449.         IF ConsoleInput.shift THEN
450.             IF ConsoleInput.hl = 0 AND ConsoleInput.dir <> 0 THEN
451.                 ConsoleInput.hl = -1 ' When ConsoleInput.dir <> 0 the first character has been highlighted.
452.             END IF
453.         ELSE
454.             IF ConsoleInput_ch$ <> "" THEN
455.                 IF ConsoleInput.hl AND ConsoleInput.shift = 0 AND LCASE$(ConsoleInput_ch$) <> "x" AND ConsoleInput.ctrl = 0 AND ConsoleInput_ch$ <> CHR$(8) AND ConsoleInput_ch$ <> CHR$(0) + "S" THEN
456.                     ' ROutine to remove highlighting from text.
457.                     COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
458.                     LOCATE ConsoleInput_oldyy, ConsoleInput.ResponsemarginLeft
459.                     IF ConsoleInput_ch$ <> CHR$(0) THEN
460.                         PRINT ConsoleInput_ch$;
461.                     END IF
462.                     PRINT entry$((ConsoleInput_oldyy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing);
463.                     LOCATE ConsoleInput.yy, ConsoleInput.xx
464.                     ConsoleInput.hmrk = 0
465.                     ConsoleInput.hl = 0
466.                     ConsoleInput.dir = 0
467.                 END IF
468.             END IF
469.         END IF
470.         ConsoleInput_ch$ = ""
471.     END IF
472. END SUB
473.  
474. SUB ConsoleInputMouse (ConsoleInput_entryrow() AS INTEGER, entry$(), ConsoleInput_ch$)
475.     STATIC ConsoleInput_doubleclick AS INTEGER, ConsoleInput_lb AS INTEGER, ConsoleInput_lbdn AS INTEGER, ConsoleInput_z1
476.     STATIC ConsoleInput_mx AS INTEGER, ConsoleInput_my AS INTEGER, ConsoleInput_oldmx AS INTEGER, ConsoleInput_oldmy AS INTEGER, ConsoleInput_mhl AS INTEGER
477.  
478.     SHARED ConsoleInput AS ConsoleInput
479.  
480.     IF ConsoleInput_debug THEN
481.         LOCATE 18, 1
482.         COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
483.         PRINT " oldmx"; ConsoleInput_oldmx; "  oldmy"; ConsoleInput_oldmy; "  mx"; ConsoleInput_mx; "  my"; ConsoleInput_my; "  xx"; ConsoleInput.xx; "  yy"; ConsoleInput.yy; "  lb"; ConsoleInput_lb; "  lbdn"; ConsoleInput_lbdn; "      "
484.         PRINT " shift"; ConsoleInput.shift; "  drag"; ConsoleInput.drag; "  mhl"; mhl; "  hmrk"; ConsoleInput.hmrk; "  dir"; ConsoleInput.dir; "  dblclk"; ConsoleInput_doubleclick; "        "
485.         PRINT " mx"; ConsoleInput_mx - ConsoleInput.ResponsemarginLeft + 1; "  my"; (ConsoleInput_my - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing; "  xx"; ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1; "  yy"; (ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing; " hl"; ConsoleInput.hl; "  Response Margin"; ConsoleInput.ResponsemarginLeft; "     ";
486.         LOCATE ConsoleInput.yy, ConsoleInput.xx
487.     END IF
488.  
489.     WHILE _MOUSEINPUT: WEND
490.     ConsoleInput_mx = _MOUSEX
491.     ConsoleInput_my = _MOUSEY
492.     ConsoleInput_lb = _MOUSEBUTTON(1)
493.  
494.     IF ConsoleInput_lb AND ConsoleInput.hl AND ConsoleInput.shift = 0 AND ConsoleInput.drag = 0 AND ConsoleInput_mhl = 0 THEN ' Allows highlighting caused by mouse click to be removed in parent sub.
495.         ConsoleInput_ch$ = CHR$(0)
496.         EXIT SUB
497.     END IF
498.  
499.     IF ConsoleInput.shift AND ConsoleInput_lb AND ConsoleInput.drag = 0 OR ConsoleInput_mhl THEN
500.         IF ConsoleInput_mhl = 0 THEN ' Shift + click highlighting.
501.             IF ConsoleInput_my = ConsoleInput.yy AND ConsoleInput_mx <> ConsoleInput.xx AND ConsoleInput_mx >= ConsoleInput.ResponsemarginLeft AND ConsoleInput_mx - ConsoleInput.ResponsemarginLeft <= LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) THEN
502.                 ConsoleInput_mhl = ConsoleInput_mx - ConsoleInput.ResponsemarginLeft + 1
503.             END IF
504.         ELSE ' Terminal point reached, end highlighting.
505.             IF ConsoleInput_mhl = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1 THEN ConsoleInput_mhl = 0: ConsoleInput.drag = 0: EXIT SUB
506.         END IF
507.     END IF
508.  
509.     IF LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) THEN
510.         IF ConsoleInput_lbdn AND ConsoleInput.xx <> ConsoleInput_mx AND ConsoleInput.shift = 0 OR ConsoleInput_mhl THEN ' Combined drag and shift + click highlighting.
511.             IF ConsoleInput_my = ConsoleInput.yy THEN ' Restrict to active text line.
512.                 IF ConsoleInput_lb OR ConsoleInput_mhl THEN
513.                     IF ConsoleInput.xx > ConsoleInput_mx THEN
514.                         ConsoleInput.drag = -1
515.                     ELSE
516.                         ConsoleInput.drag = 1
517.                     END IF
518.                     GOSUB mouseConsoleInput.drag
519.                     EXIT SUB
520.                 ELSE
521.                     ConsoleInput.drag = 0
522.                 END IF
523.             END IF
524.         END IF
525.     END IF
526.  
527.     IF ConsoleInput_lb THEN
528.         IF ConsoleInput_debug THEN COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground: LOCATE 2, 1: PRINT "left button down    "
529.         IF ConsoleInput_lbdn = 0 THEN ConsoleInput_lbdn = -1
530.         IF ConsoleInput_my = ConsoleInput.yy THEN
531.             IF ConsoleInput_mx >= ConsoleInput.ResponsemarginLeft AND ConsoleInput_mx - ConsoleInput.ResponsemarginLeft <= LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) THEN
532.                 IF ConsoleInput.drag = 0 AND ConsoleInput.shift = 0 THEN ConsoleInput.yy = ConsoleInput_my ' Prevents changing rows if a ConsoleInput.drag is in progress.
533.                 ConsoleInput.xx = ConsoleInput_mx
534.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
535.                 ConsoleInput_oldmx = ConsoleInput_mx: ConsoleInput_oldmy = ConsoleInput_my
536.             END IF
537.         ELSEIF ConsoleInput.shift = 0 THEN
538.             FOR ConsoleInput_i = 0 TO ConsoleInput.PromptsDisplayed - 1
539.                 IF ConsoleInput_my = ConsoleInput_entryrow(ConsoleInput_i) THEN EXIT FOR
540.             NEXT
541.  
542.             IF ConsoleInput_my = ConsoleInput_entryrow(ConsoleInput_i) AND ConsoleInput.drag = 0 THEN
543.                 IF ConsoleInput_mx >= ConsoleInput.PromptMarginLeft AND ConsoleInput_mx - ConsoleInput.ResponsemarginLeft <= ConsoleInput.ResponseLength THEN
544.                     IF ConsoleInput_mx - ConsoleInput.ResponsemarginLeft > 0 AND ConsoleInput_mx - ConsoleInput.ResponsemarginLeft <= LEN(entry$(ConsoleInput_i)) THEN
545.                         ConsoleInput.yy = ConsoleInput_my: ConsoleInput.xx = ConsoleInput_mx
546.                     ELSE
547.                         ConsoleInput.yy = ConsoleInput_my: ConsoleInput.xx = ConsoleInput.ResponsemarginLeft
548.                     END IF
549.                     LOCATE ConsoleInput.yy, ConsoleInput.xx
550.                 END IF
551.             END IF
552.         END IF
553.     ELSE
554.         IF ConsoleInput_lbdn THEN
555.             ConsoleInput_z1 = TIMER
556.             IF ConsoleInput_debug THEN COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground: LOCATE 2, 1: PRINT "left button released"
557.             ConsoleInput_doubleclick = ConsoleInput_doubleclick + 1
558.             ConsoleInput_lbdn = 0
559.             ConsoleInput.drag = 0
560.         END IF
561.     END IF
562.  
563.     IF ConsoleInput_doubleclick = 1 THEN
564.         IF ABS(ConsoleInput_z1 - TIMER) > .33 THEN ConsoleInput_doubleclick = 0
565.     END IF
566.  
567.     IF ConsoleInput_doubleclick = 2 THEN
568.         ' Any double click events go here...
569.         IF ConsoleInput_debug THEN LOCATE 2, 1: PRINT "double click         ";
570.         ConsoleInput_doubleclick = 0
571.     END IF
572.     LOCATE ConsoleInput.yy, ConsoleInput.xx
573.  
574.     EXIT SUB
575.  
576.     mouseConsoleInput.drag:
577.     SELECT CASE ConsoleInput.drag
578.         CASE IS < 0
579.             IF ConsoleInput.dir <= 0 THEN ' highlight to left
580.                 IF ConsoleInput.dir = 0 THEN
581.                     ConsoleInput.hmrk = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
582.                     ' Do not emulate shift here.
583.                     ConsoleInput.hl = -1
584.                 END IF
585.                 ConsoleInput.xx = ConsoleInput.xx - 1
586.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
587.                 COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
588.                 PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
589.                 ConsoleInput.dir = ConsoleInput.dir - 1
590.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
591.             ELSE ' unhighlight to left
592.                 ConsoleInput.xx = ConsoleInput.xx - 1
593.                 ConsoleInput.dir = ConsoleInput.dir - 1
594.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
595.                 COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
596.                 PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
597.                 IF ConsoleInput.dir = 0 THEN
598.                     ConsoleInput.hmrk = 0
599.                     ConsoleInput.hl = 0
600.                     ConsoleInput.shift = 0
601.                 END IF
602.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
603.             END IF
604.         CASE IS > 0
605.             IF ConsoleInput.dir >= 0 THEN
606.                 COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
607.                 PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
608.                 IF ConsoleInput.dir = 0 THEN
609.                     ConsoleInput.hmrk = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
610.                     ConsoleInput.hl = -1
611.                     ' Do not emulate shift here.
612.                 END IF
613.                 ConsoleInput.xx = ConsoleInput.xx + 1
614.                 ConsoleInput.dir = ConsoleInput.dir + 1
615.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
616.             ELSE
617.                 COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
618.                 PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
619.                 ConsoleInput.xx = ConsoleInput.xx + 1
620.                 ConsoleInput.dir = ConsoleInput.dir + 1
621.                 IF ConsoleInput.dir = 0 THEN
622.                     ConsoleInput.hmrk = 0
623.                     ConsoleInput.hl = 0
624.                     ConsoleInput.shift = 0
625.                 END IF
626.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
627.             END IF
628.     END SELECT
629.     RETURN
630. END SUB
631.  

Method 2

Code: QB64: [Select]

1. main:
2. ConsoleInput_Data:
3. ' User Defined Prompts Go Here. Leave the DATA EOF.--------------------------------
4. DATA "Example Prompt 1: ","Example Prompt 2: ","Example Prompt 3: "
5. DATA EOF
6. 'PARAMETERS------------------------------------------------------------------
7. 'Margin top.
8. 'Margin left.
9. 'Spacing.
10. 'Response length.
11. 'Palette screen color modifier. Set to -1 for none.
12. 'Foreground text color.
13. 'Screen color.
14. 'Highlight text foreground.
15. 'Highlight text background.
16. '-----------------------------------------------------------------------------
17. WHILE (1)
18.     CALL ConsoleInputLibrary(10, 15, 2, 50, 63, 0, 7, 7, 1, 7)
19. WEND
20.  
21. '=============================CONSOLE INPUT LIBRARY===========================
22.  
23. SUB ConsoleInputLibrary (CI_1 AS INTEGER, CI_2 AS INTEGER, CI_3 AS INTEGER, CI_4 AS INTEGER, CI_5 AS INTEGER, CI_6 AS INTEGER, CI_7 AS INTEGER, CI_8 AS INTEGER, CI_9 AS INTEGER, CI_10 AS INTEGER)
24.     STATIC UserInputSetup AS INTEGER
25.     STATIC ConsoleInput_prompt$(), entry$(), ConsoleInput_entryrow() AS INTEGER
26.  
27.     SHARED ConsoleInput AS ConsoleInput
28.  
29.     IF UserInputSetup = 0 THEN
30.         TYPE ConsoleInput
31.             ' User Defined Variable Types--------------------------------------------------------
32.             MarginTop AS INTEGER ' Margin top (Number of spaces from the top to display the first prompt.)
33.             PromptMarginLeft AS INTEGER ' Margin left. The column to begin displaying prompts. Must be within screen width including maximum length of response.
34.             PromptSpacing AS INTEGER ' The vertical row spacing between prompts. 1 to (n).
35.             ResponseLength AS INTEGER ' Maximum length of the reply to prompt. Must be within the screen width.
36.             MyPalette AS INTEGER ' Only use to modify standard screen colors. -1 means this option is turned off.
37.             ColorTextForeground AS INTEGER ' Foreground text color (0 - 15)
38.             ColorTextBackground AS INTEGER ' Background text color (0 - 15)
39.             ColorHighlightForeground AS INTEGER ' Foreground highlight text color (0 - 15)
40.             ColorHighlightBackground AS INTEGER ' Background highlight text color (0 - 15)
41.             CursorAppearance AS INTEGER ' Default is 7 for text insert and 30 for text overwrite. Insert key changes mode.
42.             ' ------------------------------------------------------------------------------------
43.             PromptLength AS INTEGER ' Automatically determined by library function.
44.             PromptsDisplayed AS INTEGER ' Automatically determined by library function.
45.             ResponsemarginLeft AS INTEGER ' Automatically determined by library function.
46.             ResponseMarginRight AS INTEGER ' Automatically determined by library function.
47.             yy AS INTEGER
48.             xx AS INTEGER
49.             drag AS INTEGER
50.             dir AS INTEGER
51.             hl AS INTEGER
52.             shift AS INTEGER
53.             ctrl AS INTEGER
54.             hmrk AS INTEGER
55.         END TYPE
56.  
57.         ConsoleInput.MarginTop = CI_1
58.         ConsoleInput.PromptMarginLeft = CI_2
59.         ConsoleInput.PromptSpacing = CI_3
60.         ConsoleInput.ResponseLength = CI_4
61.         ConsoleInput_MyPalette = CI_5
62.         ConsoleInput.ColorTextForeground = CI_6
63.         ConsoleInput.ColorTextBackground = CI_7
64.         ConsoleInput.ColorHighlightForeground = CI_8
65.         ConsoleInput.ColorHighlightBackground = CI_9
66.         ConsoleInput.CursorAppearance = CI_10
67.  
68.         IF ConsoleInput_MyPalette >= 0 THEN
69.             PALETTE ConsoleInput.ColorTextBackground, ConsoleInput_MyPalette
70.         END IF
71.  
72.         COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
73.         CLS
74.  
75.         CALL ConsoleInputGetPrompts(ConsoleInput_entryrow(), ConsoleInput_prompt$())
76.  
77.         DIM entry$(ConsoleInput.PromptsDisplayed) 'Text entry array.
78.         LOCATE , , 1, 7, ConsoleInput.CursorAppearance
79.  
80.         UserInputSetup = -1
81.     END IF
82.  
83.     CALL ConsoleInputResponse(ConsoleInput_entryrow(), entry$())
84.  
85. END SUB
86.  
87. SUB ConsoleInputGetPrompts (ConsoleInput_entryrow() AS INTEGER, ConsoleInput_prompt$())
88.     SHARED ConsoleInput AS ConsoleInput
89.  
90.     ' Get the number of prompts to assign to ConsoleInput_prompt$() array.
91.     RESTORE ConsoleInput_Data
92.     ConsoleInput.PromptsDisplayed = 0
93.     DO
94.         READ ConsoleInput_Data$
95.         IF ConsoleInput_Data$ = "EOF" THEN EXIT DO
96.         IF LEN(ConsoleInput_Data$) > ConsoleInput.PromptLength THEN ConsoleInput.PromptLength = LEN(ConsoleInput_Data$)
97.         ConsoleInput.PromptsDisplayed = ConsoleInput.PromptsDisplayed + 1
98.     LOOP
99.  
100.     REDIM ConsoleInput_prompt$(ConsoleInput.PromptsDisplayed) 'Prompt array.
101.     REDIM ConsoleInput_entryrow(ConsoleInput.PromptsDisplayed) AS INTEGER 'Tracks row location of each prompt.
102.  
103.     ConsoleInput.ResponsemarginLeft = ConsoleInput.PromptMarginLeft + ConsoleInput.PromptLength
104.     ConsoleInput.ResponseMarginRight = ConsoleInput.ResponsemarginLeft + ConsoleInput.ResponseLength
105.  
106.     RESTORE ConsoleInput_Data
107.     ConsoleInput_i = 0
108.     DO
109.         READ ConsoleInput_Data$
110.         IF ConsoleInput_Data$ = "EOF" THEN EXIT DO
111.         ConsoleInput_prompt$(ConsoleInput_i) = ConsoleInput_Data$
112.         ConsoleInput_i = ConsoleInput_i + 1
113.     LOOP
114.  
115.     ConsoleInput.xx = ConsoleInput.ResponsemarginLeft
116.     ConsoleInput.yy = ConsoleInput.MarginTop
117.  
118.     FOR ConsoleInput_i = 0 TO ConsoleInput.PromptsDisplayed - 1
119.         LOCATE ConsoleInput.yy, ConsoleInput.PromptMarginLeft
120.         PRINT ConsoleInput_prompt$(ConsoleInput_i);
121.         ConsoleInput_entryrow(ConsoleInput_i) = ConsoleInput.yy
122.         ConsoleInput.yy = ConsoleInput.yy + ConsoleInput.PromptSpacing
123.     NEXT
124.  
125.     LOCATE ConsoleInput.MarginTop, ConsoleInput.ResponsemarginLeft
126.     ConsoleInput.xx = ConsoleInput.ResponsemarginLeft
127.     ConsoleInput.yy = ConsoleInput.MarginTop
128. END SUB
129.  
130. SUB ConsoleInputCopyText (ConsoleInput_xntry$, entry$())
131.     DIM ConsoleInput_m1 AS INTEGER, ConsoleInput_m2 AS INTEGER
132.  
133.     SHARED ConsoleInput AS ConsoleInput
134.  
135.     IF ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1 < ConsoleInput.hmrk THEN
136.         ConsoleInput_m2 = ConsoleInput.hmrk
137.         ConsoleInput_m1 = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
138.     ELSE
139.         ConsoleInput_m1 = ConsoleInput.hmrk
140.         ConsoleInput_m2 = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
141.     END IF
142.     ConsoleInput_xntry$ = MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput_m1, ConsoleInput_m2 - ConsoleInput_m1)
143. END SUB
144.  
145. SUB ConsoleInputReplace (entry$())
146.     DIM ConsoleInput_j AS INTEGER, ConsoleInput_m1 AS INTEGER, ConsoleInput_m2 AS INTEGER
147.  
148.     SHARED ConsoleInput AS ConsoleInput
149.  
150.     ConsoleInput_j = LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing))
151.     COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
152.     IF ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1 < ConsoleInput.hmrk THEN
153.         ConsoleInput_m2 = ConsoleInput.hmrk
154.         ConsoleInput_m1 = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft
155.     ELSE
156.         ConsoleInput_m1 = ConsoleInput.hmrk - 1
157.         ConsoleInput_m2 = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
158.     END IF
159.     entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing) = MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), 1, ConsoleInput_m1) + MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput_m2)
160.     LOCATE ConsoleInput.yy, ConsoleInput.ResponsemarginLeft
161.     PRINT entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing);
162.     PRINT STRING$(ConsoleInput_j - LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)), 32);
163.     IF ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1 > ConsoleInput.hmrk THEN
164.         ConsoleInput.xx = ConsoleInput.hmrk - 1 + ConsoleInput.ResponsemarginLeft
165.     END IF
166.     LOCATE ConsoleInput.yy, ConsoleInput.xx
167.     ConsoleInput.hmrk = 0
168.     ConsoleInput.hl = 0
169.     ConsoleInput.dir = 0
170. END SUB
171.  
172. SUB ConsoleInputResponse (ConsoleInput_entryrow() AS INTEGER, entry$())
173.     STATIC ConsoleInput_xntry$
174.     SHARED ConsoleInput AS ConsoleInput
175.  
176.     DIM ConsoleInput_oldyy AS INTEGER
177.  
178.     IF ConsoleInput.ctrl THEN ConsoleInput.ctrl = 0
179.     IF ConsoleInput.shift < 0 THEN ConsoleInput.shift = 0
180.     DEF SEG = 0
181.     ConsoleInput_i = PEEK(&H417) MOD 16
182.     SELECT CASE ConsoleInput_i
183.         CASE 1, 2
184.             ConsoleInput.shift = -1
185.         CASE 4
186.             ConsoleInput.ctrl = -1
187.     END SELECT
188.     DEF SEG
189.  
190.     ConsoleInput_oldyy = ConsoleInput.yy
191.  
192.     IF ConsoleInput.drag = 0 THEN
193.         IF ConsoleInput.hl AND ConsoleInput.shift = 0 AND ConsoleInput.hmrk = 0 THEN
194.             ConsoleInput.hl = 0 ' Disable ConsoleInput.hl so character value isn't printed after a shift / release event without highlighting.
195.         END IF
196.     END IF
197.  
198.     CALL ConsoleInputMouse(ConsoleInput_entryrow(), entry$(), ConsoleInput_ch$)
199.  
200.     IF ConsoleInput.drag = 0 THEN
201.         IF ConsoleInput_ch$ = "" THEN ConsoleInput_ch$ = INKEY$
202.         IF ConsoleInput_ch$ <> "" THEN
203.             IF ConsoleInput.ctrl THEN
204.                 SELECT CASE LCASE$(ConsoleInput_ch$)
205.                     CASE CHR$(1) ' Select All
206.                         LOCATE ConsoleInput.yy, ConsoleInput.ResponsemarginLeft
207.                         COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
208.                         PRINT entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing);
209.                         COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
210.                         ConsoleInput.hmrk = 1
211.                         ConsoleInput.hl = -1
212.                         ConsoleInput.dir = LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing))
213.                         ConsoleInput.xx = ConsoleInput.ResponsemarginLeft + ConsoleInput.dir
214.                         LOCATE ConsoleInput.yy, ConsoleInput.xx
215.  
216.                     CASE CHR$(3) ' Copy
217.                         IF ConsoleInput.hmrk THEN
218.                             CALL ConsoleInputCopyText(ConsoleInput_xntry$, entry$())
219.                         END IF
220.  
221.                     CASE CHR$(24) ' Cut
222.                         IF ConsoleInput.hmrk THEN
223.                             CALL ConsoleInputCopyText(ConsoleInput_xntry$, entry$())
224.                             CALL ConsoleInputReplace(entry$())
225.                         END IF
226.  
227.                     CASE CHR$(22) ' Paste
228.                         IF ConsoleInput_xntry$ <> "" THEN
229.                             IF ConsoleInput.hmrk THEN
230.                                 CALL ConsoleInputReplace(entry$())
231.                             END IF
232.                             ConsoleInput_m1 = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft
233.                             ConsoleInput_m2 = ConsoleInput_m1 + 1
234.                             IF LEN(ConsoleInput_xntry$) + LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) - (ConsoleInput_m2 - ConsoleInput_m1) <= ConsoleInput.ResponseLength - 1 THEN
235.                                 entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing) = MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), 1, ConsoleInput_m1) + ConsoleInput_xntry$ + MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput_m2)
236.                                 LOCATE ConsoleInput.yy, ConsoleInput.ResponsemarginLeft
237.                                 COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
238.                                 PRINT entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing);
239.                                 ConsoleInput.xx = ConsoleInput.xx + LEN(ConsoleInput_xntry$)
240.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
241.                             ELSE
242.                                 BEEP ' Contents too large to paste.
243.                             END IF
244.                         END IF
245.                 END SELECT
246.             ELSE
247.                 SELECT CASE ConsoleInput_ch$
248.                     CASE CHR$(8) ' Backspace
249.                         ConsoleInput_ch$ = CHR$(0)
250.                         IF ConsoleInput.hmrk > 0 THEN
251.                             CALL ConsoleInputReplace(entry$())
252.                         ELSE
253.                             IF ConsoleInput.xx > ConsoleInput.ResponsemarginLeft THEN
254.                                 ConsoleInput.xx = ConsoleInput.xx - 1
255.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
256.                                 PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 2); " ";
257.                                 entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing) = MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), 1, ConsoleInput.xx - ConsoleInput.ResponsemarginLeft) + MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 2)
258.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
259.                             END IF
260.                         END IF
261.                     CASE CHR$(0) + "S" ' Delete
262.                         IF ConsoleInput.shift THEN
263.                             IF ConsoleInput.hmrk THEN
264.                                 CALL ConsoleInputCopyText(ConsoleInput_xntry$, entry$())
265.                                 CALL ConsoleInputReplace(entry$())
266.                             END IF
267.                         ELSE
268.                             ConsoleInput_ch$ = CHR$(0)
269.                             IF ConsoleInput.hmrk > 0 THEN
270.                                 CALL ConsoleInputReplace(entry$())
271.                             ELSE
272.                                 IF LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) > 0 AND ConsoleInput.xx - ConsoleInput.ResponsemarginLeft <= LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) THEN
273.                                     PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 2); " ";
274.                                     entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing) = MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), 1, ConsoleInput.xx - ConsoleInput.ResponsemarginLeft) + MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 2)
275.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
276.                                 END IF
277.                             END IF
278.                         END IF
279.  
280.                     CASE CHR$(0) + "H" ' Arrow up
281.                         ConsoleInput_ch$ = CHR$(0)
282.                         IF ConsoleInput.yy > ConsoleInput.MarginTop THEN
283.                             ConsoleInput.yy = ConsoleInput.yy - ConsoleInput.PromptSpacing
284.                             ConsoleInput.xx = ConsoleInput.ResponsemarginLeft
285.                             LOCATE ConsoleInput.yy, ConsoleInput.xx
286.                         END IF
287.  
288.                     CASE CHR$(0) + "P", CHR$(13) ' Arrow down, Enter
289.                         ConsoleInput_ch$ = CHR$(0)
290.                         IF (ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing + 1 < ConsoleInput.PromptsDisplayed THEN
291.                             ConsoleInput.yy = ConsoleInput.yy + ConsoleInput.PromptSpacing
292.                             ConsoleInput.xx = ConsoleInput.ResponsemarginLeft
293.                             LOCATE ConsoleInput.yy, ConsoleInput.xx
294.                         END IF
295.  
296.                     CASE CHR$(0) + "K" ' Arrow left
297.                         ConsoleInput_ch$ = CHR$(0)
298.                         IF ConsoleInput.xx > ConsoleInput.ResponsemarginLeft THEN
299.                             IF ConsoleInput.shift THEN
300.                                 IF ConsoleInput.dir <= 0 THEN
301.                                     IF ConsoleInput.dir = 0 THEN
302.                                         ConsoleInput.hmrk = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
303.                                         ConsoleInput.hl = -1
304.                                     END IF
305.                                     ConsoleInput.xx = ConsoleInput.xx - 1
306.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
307.                                     COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
308.                                     PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
309.                                     ConsoleInput.dir = ConsoleInput.dir - 1
310.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
311.                                 ELSE
312.                                     ConsoleInput.xx = ConsoleInput.xx - 1
313.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
314.                                     COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
315.                                     PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
316.                                     ConsoleInput.dir = ConsoleInput.dir - 1
317.                                     IF ConsoleInput.dir = 0 THEN
318.                                         ConsoleInput.hmrk = 0
319.                                     END IF
320.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
321.                                 END IF
322.  
323.                             ELSE
324.                                 ConsoleInput.xx = ConsoleInput.xx - 1
325.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
326.                             END IF
327.                         END IF
328.  
329.                     CASE CHR$(0) + "M" ' Arrow right
330.                         ConsoleInput_ch$ = CHR$(0)
331.                         IF ConsoleInput.xx < ConsoleInput.ResponseMarginRight - 1 AND ConsoleInput.xx - ConsoleInput.ResponsemarginLeft < LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) THEN
332.                             IF ConsoleInput.shift THEN
333.                                 IF ConsoleInput.dir >= 0 THEN
334.                                     IF ConsoleInput.dir = 0 THEN
335.                                         ConsoleInput.hmrk = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
336.                                         ConsoleInput.hl = -1
337.                                     END IF
338.                                     COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
339.                                     PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
340.                                     ConsoleInput.xx = ConsoleInput.xx + 1
341.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
342.                                     ConsoleInput.dir = ConsoleInput.dir + 1
343.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
344.                                 ELSE
345.                                     COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
346.                                     PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
347.                                     ConsoleInput.xx = ConsoleInput.xx + 1
348.                                     ConsoleInput.dir = ConsoleInput.dir + 1
349.                                     IF ConsoleInput.dir = 0 THEN
350.                                         ConsoleInput.hmrk = 0
351.                                         ConsoleInput.hl = 0
352.                                     END IF
353.                                     LOCATE ConsoleInput.yy, ConsoleInput.xx
354.                                 END IF
355.                             ELSE
356.                                 ConsoleInput.xx = ConsoleInput.xx + 1
357.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
358.                             END IF
359.                         END IF
360.  
361.                     CASE CHR$(0) + "G" ' Home
362.                         ConsoleInput_ch$ = CHR$(0)
363.                         IF ConsoleInput.xx > ConsoleInput.ResponsemarginLeft THEN
364.                             IF ConsoleInput.shift THEN
365.                                 WHILE ConsoleInput.xx > ConsoleInput.ResponsemarginLeft
366.                                     IF ConsoleInput.dir <= 0 THEN
367.                                         IF ConsoleInput.dir = 0 THEN
368.                                             ConsoleInput.hmrk = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
369.                                             ' ConsoleInput.hl is already set.
370.                                         END IF
371.                                         ConsoleInput.xx = ConsoleInput.xx - 1
372.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
373.                                         COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
374.                                         PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1);
375.                                         ConsoleInput.dir = ConsoleInput.dir - 1
376.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
377.                                     ELSE
378.                                         ConsoleInput.xx = ConsoleInput.xx - 1
379.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
380.                                         COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
381.                                         PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1);
382.                                         ConsoleInput.dir = ConsoleInput.dir - 1
383.                                         IF ConsoleInput.dir = 0 THEN
384.                                             ConsoleInput.hmrk = 0
385.                                             ConsoleInput.hl = 0
386.                                         END IF
387.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
388.                                     END IF
389.                                 WEND
390.                             ELSE
391.                                 ConsoleInput.xx = ConsoleInput.ResponsemarginLeft
392.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
393.                             END IF
394.                         END IF
395.  
396.                     CASE CHR$(0) + "O" ' End
397.                         ConsoleInput_ch$ = CHR$(0)
398.                         IF ConsoleInput.xx < ConsoleInput.ResponseMarginRight - 1 THEN
399.                             IF ConsoleInput.shift THEN
400.                                 WHILE ConsoleInput.xx - ConsoleInput.ResponsemarginLeft < LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing))
401.                                     IF ConsoleInput.dir >= 0 THEN
402.                                         IF ConsoleInput.dir = 0 THEN
403.                                             ConsoleInput.hmrk = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
404.                                             ConsoleInput.hl = -1
405.                                         END IF
406.                                         COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
407.                                         PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1);
408.                                         ConsoleInput.xx = ConsoleInput.xx + 1
409.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
410.                                         ConsoleInput.dir = ConsoleInput.dir + 1
411.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
412.                                     ELSE
413.                                         COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
414.                                         PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1);
415.                                         ConsoleInput.xx = ConsoleInput.xx + 1
416.                                         ConsoleInput.dir = ConsoleInput.dir + 1
417.                                         IF ConsoleInput.dir = 0 THEN
418.                                             ConsoleInput.hmrk = 0
419.                                         END IF
420.                                         LOCATE ConsoleInput.yy, ConsoleInput.xx
421.                                     END IF
422.                                 WEND
423.                             ELSE
424.                                 ConsoleInput.xx = ConsoleInput.ResponsemarginLeft + LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing))
425.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
426.                             END IF
427.                         END IF
428.  
429.                     CASE CHR$(27)
430.                         ConsoleInput_ch$ = CHR$(0)
431.                         SYSTEM
432.  
433.                     CASE CHR$(0) + CHR$(82) ' ConsoleInput.CursorAppearanceert
434.                         ConsoleInput_ch$ = CHR$(0)
435.                         IF ConsoleInput.CursorAppearance = 7 THEN ConsoleInput.CursorAppearance = 30 ELSE ConsoleInput.CursorAppearance = 7
436.                         LOCATE , , 1, 7, ConsoleInput.CursorAppearance
437.  
438.                     CASE CHR$(32) TO CHR$(126)
439.                         IF ConsoleInput.hmrk > 0 THEN
440.                             CALL ConsoleInputReplace(entry$())
441.                         END IF
442.                         IF ConsoleInput.CursorAppearance = 30 THEN
443.                             IF ConsoleInput.xx - ConsoleInput.ResponsemarginLeft < ConsoleInput.ResponseLength - 1 THEN
444.                                 MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1) = ConsoleInput_ch$
445.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
446.                                 PRINT ConsoleInput_ch$;
447.                                 ConsoleInput.xx = ConsoleInput.xx + 1
448.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
449.                             END IF
450.                         ELSE
451.                             IF LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) < ConsoleInput.ResponseLength - 1 THEN
452.                                 PRINT ConsoleInput_ch$ + MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1);
453.                                 entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing) = MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), 1, ConsoleInput.xx - ConsoleInput.ResponsemarginLeft) + ConsoleInput_ch$ + MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1)
454.                                 ConsoleInput.xx = ConsoleInput.xx + 1
455.                                 LOCATE ConsoleInput.yy, ConsoleInput.xx
456.                             END IF
457.                         END IF
458.                 END SELECT
459.             END IF
460.         END IF
461.  
462.         IF ConsoleInput.shift THEN
463.             IF ConsoleInput.hl = 0 AND ConsoleInput.dir <> 0 THEN
464.                 ConsoleInput.hl = -1 ' When ConsoleInput.dir <> 0 the first character has been highlighted.
465.             END IF
466.         ELSE
467.             IF ConsoleInput_ch$ <> "" THEN
468.                 IF ConsoleInput.hl AND ConsoleInput.shift = 0 AND LCASE$(ConsoleInput_ch$) <> "x" AND ConsoleInput.ctrl = 0 AND ConsoleInput_ch$ <> CHR$(8) AND ConsoleInput_ch$ <> CHR$(0) + "S" THEN
469.                     ' ROutine to remove highlighting from text.
470.                     COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
471.                     LOCATE ConsoleInput_oldyy, ConsoleInput.ResponsemarginLeft
472.                     IF ConsoleInput_ch$ <> CHR$(0) THEN
473.                         PRINT ConsoleInput_ch$;
474.                     END IF
475.                     PRINT entry$((ConsoleInput_oldyy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing);
476.                     LOCATE ConsoleInput.yy, ConsoleInput.xx
477.                     ConsoleInput.hmrk = 0
478.                     ConsoleInput.hl = 0
479.                     ConsoleInput.dir = 0
480.                 END IF
481.             END IF
482.         END IF
483.         ConsoleInput_ch$ = ""
484.     END IF
485. END SUB
486.  
487. SUB ConsoleInputMouse (ConsoleInput_entryrow() AS INTEGER, entry$(), ConsoleInput_ch$)
488.     STATIC ConsoleInput_doubleclick AS INTEGER, ConsoleInput_lb AS INTEGER, ConsoleInput_lbdn AS INTEGER, ConsoleInput_z1
489.     STATIC ConsoleInput_mx AS INTEGER, ConsoleInput_my AS INTEGER, ConsoleInput_oldmx AS INTEGER, ConsoleInput_oldmy AS INTEGER, ConsoleInput_mhl AS INTEGER
490.  
491.     SHARED ConsoleInput AS ConsoleInput
492.  
493.     IF ConsoleInput_debug THEN
494.         LOCATE 18, 1
495.         COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
496.         PRINT " oldmx"; ConsoleInput_oldmx; "  oldmy"; ConsoleInput_oldmy; "  mx"; ConsoleInput_mx; "  my"; ConsoleInput_my; "  xx"; ConsoleInput.xx; "  yy"; ConsoleInput.yy; "  lb"; ConsoleInput_lb; "  lbdn"; ConsoleInput_lbdn; "      "
497.         PRINT " shift"; ConsoleInput.shift; "  drag"; ConsoleInput.drag; "  mhl"; mhl; "  hmrk"; ConsoleInput.hmrk; "  dir"; ConsoleInput.dir; "  dblclk"; ConsoleInput_doubleclick; "        "
498.         PRINT " mx"; ConsoleInput_mx - ConsoleInput.ResponsemarginLeft + 1; "  my"; (ConsoleInput_my - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing; "  xx"; ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1; "  yy"; (ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing; " hl"; ConsoleInput.hl; "  Response Margin"; ConsoleInput.ResponsemarginLeft; "     ";
499.         LOCATE ConsoleInput.yy, ConsoleInput.xx
500.     END IF
501.  
502.     WHILE _MOUSEINPUT: WEND
503.     ConsoleInput_mx = _MOUSEX
504.     ConsoleInput_my = _MOUSEY
505.     ConsoleInput_lb = _MOUSEBUTTON(1)
506.  
507.     IF ConsoleInput_lb AND ConsoleInput.hl AND ConsoleInput.shift = 0 AND ConsoleInput.drag = 0 AND ConsoleInput_mhl = 0 THEN ' Allows highlighting caused by mouse click to be removed in parent sub.
508.         ConsoleInput_ch$ = CHR$(0)
509.         EXIT SUB
510.     END IF
511.  
512.     IF ConsoleInput.shift AND ConsoleInput_lb AND ConsoleInput.drag = 0 OR ConsoleInput_mhl THEN
513.         IF ConsoleInput_mhl = 0 THEN ' Shift + click highlighting.
514.             IF ConsoleInput_my = ConsoleInput.yy AND ConsoleInput_mx <> ConsoleInput.xx AND ConsoleInput_mx >= ConsoleInput.ResponsemarginLeft AND ConsoleInput_mx - ConsoleInput.ResponsemarginLeft <= LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) THEN
515.                 ConsoleInput_mhl = ConsoleInput_mx - ConsoleInput.ResponsemarginLeft + 1
516.             END IF
517.         ELSE ' Terminal point reached, end highlighting.
518.             IF ConsoleInput_mhl = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1 THEN ConsoleInput_mhl = 0: ConsoleInput.drag = 0: EXIT SUB
519.         END IF
520.     END IF
521.  
522.     IF LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) THEN
523.         IF ConsoleInput_lbdn AND ConsoleInput.xx <> ConsoleInput_mx AND ConsoleInput.shift = 0 OR ConsoleInput_mhl THEN ' Combined drag and shift + click highlighting.
524.             IF ConsoleInput_my = ConsoleInput.yy THEN ' Restrict to active text line.
525.                 IF ConsoleInput_lb OR ConsoleInput_mhl THEN
526.                     IF ConsoleInput.xx > ConsoleInput_mx THEN
527.                         ConsoleInput.drag = -1
528.                     ELSE
529.                         ConsoleInput.drag = 1
530.                     END IF
531.                     GOSUB mouseConsoleInput.drag
532.                     EXIT SUB
533.                 ELSE
534.                     ConsoleInput.drag = 0
535.                 END IF
536.             END IF
537.         END IF
538.     END IF
539.  
540.     IF ConsoleInput_lb THEN
541.         IF ConsoleInput_debug THEN COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground: LOCATE 2, 1: PRINT "left button down    "
542.         IF ConsoleInput_lbdn = 0 THEN ConsoleInput_lbdn = -1
543.         IF ConsoleInput_my = ConsoleInput.yy THEN
544.             IF ConsoleInput_mx >= ConsoleInput.ResponsemarginLeft AND ConsoleInput_mx - ConsoleInput.ResponsemarginLeft <= LEN(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing)) THEN
545.                 IF ConsoleInput.drag = 0 AND ConsoleInput.shift = 0 THEN ConsoleInput.yy = ConsoleInput_my ' Prevents changing rows if a ConsoleInput.drag is in progress.
546.                 ConsoleInput.xx = ConsoleInput_mx
547.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
548.                 ConsoleInput_oldmx = ConsoleInput_mx: ConsoleInput_oldmy = ConsoleInput_my
549.             END IF
550.         ELSEIF ConsoleInput.shift = 0 THEN
551.             FOR ConsoleInput_i = 0 TO ConsoleInput.PromptsDisplayed - 1
552.                 IF ConsoleInput_my = ConsoleInput_entryrow(ConsoleInput_i) THEN EXIT FOR
553.             NEXT
554.  
555.             IF ConsoleInput_my = ConsoleInput_entryrow(ConsoleInput_i) AND ConsoleInput.drag = 0 THEN
556.                 IF ConsoleInput_mx >= ConsoleInput.PromptMarginLeft AND ConsoleInput_mx - ConsoleInput.ResponsemarginLeft <= ConsoleInput.ResponseLength THEN
557.                     IF ConsoleInput_mx - ConsoleInput.ResponsemarginLeft > 0 AND ConsoleInput_mx - ConsoleInput.ResponsemarginLeft <= LEN(entry$(ConsoleInput_i)) THEN
558.                         ConsoleInput.yy = ConsoleInput_my: ConsoleInput.xx = ConsoleInput_mx
559.                     ELSE
560.                         ConsoleInput.yy = ConsoleInput_my: ConsoleInput.xx = ConsoleInput.ResponsemarginLeft
561.                     END IF
562.                     LOCATE ConsoleInput.yy, ConsoleInput.xx
563.                 END IF
564.             END IF
565.         END IF
566.     ELSE
567.         IF ConsoleInput_lbdn THEN
568.             ConsoleInput_z1 = TIMER
569.             IF ConsoleInput_debug THEN COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground: LOCATE 2, 1: PRINT "left button released"
570.             ConsoleInput_doubleclick = ConsoleInput_doubleclick + 1
571.             ConsoleInput_lbdn = 0
572.             ConsoleInput.drag = 0
573.         END IF
574.     END IF
575.  
576.     IF ConsoleInput_doubleclick = 1 THEN
577.         IF ABS(ConsoleInput_z1 - TIMER) > .33 THEN ConsoleInput_doubleclick = 0
578.     END IF
579.  
580.     IF ConsoleInput_doubleclick = 2 THEN
581.         ' Any double click events go here...
582.         IF ConsoleInput_debug THEN LOCATE 2, 1: PRINT "double click         ";
583.         ConsoleInput_doubleclick = 0
584.     END IF
585.     LOCATE ConsoleInput.yy, ConsoleInput.xx
586.  
587.     EXIT SUB
588.  
589.     mouseConsoleInput.drag:
590.     SELECT CASE ConsoleInput.drag
591.         CASE IS < 0
592.             IF ConsoleInput.dir <= 0 THEN ' highlight to left
593.                 IF ConsoleInput.dir = 0 THEN
594.                     ConsoleInput.hmrk = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
595.                     ' Do not emulate shift here.
596.                     ConsoleInput.hl = -1
597.                 END IF
598.                 ConsoleInput.xx = ConsoleInput.xx - 1
599.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
600.                 COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
601.                 PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
602.                 ConsoleInput.dir = ConsoleInput.dir - 1
603.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
604.             ELSE ' unhighlight to left
605.                 ConsoleInput.xx = ConsoleInput.xx - 1
606.                 ConsoleInput.dir = ConsoleInput.dir - 1
607.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
608.                 COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
609.                 PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
610.                 IF ConsoleInput.dir = 0 THEN
611.                     ConsoleInput.hmrk = 0
612.                     ConsoleInput.hl = 0
613.                     ConsoleInput.shift = 0
614.                 END IF
615.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
616.             END IF
617.         CASE IS > 0
618.             IF ConsoleInput.dir >= 0 THEN
619.                 COLOR ConsoleInput.ColorHighlightForeground, ConsoleInput.ColorHighlightBackground
620.                 PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
621.                 IF ConsoleInput.dir = 0 THEN
622.                     ConsoleInput.hmrk = ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1
623.                     ConsoleInput.hl = -1
624.                     ' Do not emulate shift here.
625.                 END IF
626.                 ConsoleInput.xx = ConsoleInput.xx + 1
627.                 ConsoleInput.dir = ConsoleInput.dir + 1
628.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
629.             ELSE
630.                 COLOR ConsoleInput.ColorTextForeground, ConsoleInput.ColorTextBackground
631.                 PRINT MID$(entry$((ConsoleInput.yy - ConsoleInput.MarginTop) \ ConsoleInput.PromptSpacing), ConsoleInput.xx - ConsoleInput.ResponsemarginLeft + 1, 1)
632.                 ConsoleInput.xx = ConsoleInput.xx + 1
633.                 ConsoleInput.dir = ConsoleInput.dir + 1
634.                 IF ConsoleInput.dir = 0 THEN
635.                     ConsoleInput.hmrk = 0
636.                     ConsoleInput.hl = 0
637.                     ConsoleInput.shift = 0
638.                 END IF
639.                 LOCATE ConsoleInput.yy, ConsoleInput.xx
640.             END IF
641.     END SELECT
642.     RETURN
643. END SUB
644.  

Pete