This link application (Quick-Basic) below has an "ENTRADA" subprogram that receives input from the keyboard. Accepts only one line no longer than 79 characters.
The ENTRADA subprogram requires the CMND, MOUSE, CLICK subprograms.
https://1drv.ms/u/s!AiHVG0VYRSnqhR-V1N5x_D42GjGh
Quick-Basic should be called with the lib library (QBX/L).
Legend of variables:
DECLARE SUB ENTRADA (LNH%, CLN%, TMNH!, TIPO$, COR!, IMPT$, CRT$, AB!, CMD%, CJ$)
LNH% → Cursor line
CLN% → Cursor column
TMNH! → Input Size
TIPO$ → Input type (& = alphanumeric, ± = numeric (+ and -), + = numeric (+), D = date Six-digit date with no separator signs.)
COR! → Character and background color (x.y)
IMPT$ → Returns the content entered
CRT$ → Returns the last command key pressed
AB! → Base year to verify legitimacy of dates (Last 2 digits). If the date entered is greater than the base year, then the "ENTRADA" understands that the century is the previous one, but if the date entered is equal to or less than the base year, then the "ENTRADA" understands that the century is the current . This was done on the occasion of the millennium bug, because the year is referred to with only two digits.
CMD% → Number of the line of function keys that will be displayed at the bottom of the screen. These functions are declared in the CMND subroutine.
CJ$ → Rectangles for mouse click. This is the upper-left corner and the lower right-hand corner of rectangles, which must be declared by four pairs of two digits and one digit that corresponds to the return of the mouse if it is clicked in the rectangle and which at the same time corresponds to the return of each, preceded by the zero character, If they are pressed.
; <F1>
< <F2>
= <F3>
> <F4>
? <F5>
@ <F6>
A <F7>
B <F8>
C <F9>
D <F10>
à <F11>
å <F12>
Sorry for the bad English, because I used the translator google, since I do not speak this language.
