mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-28 11:17:47 +00:00
48 lines
1.2 KiB
Markdown
48 lines
1.2 KiB
Markdown
|
The [LPOS](LPOS) function returns the current LPT printer head position.
|
||
|
|
||
|
## Syntax
|
||
|
|
||
|
> result% = [LPOS](LPOS)(index%)
|
||
|
|
||
|
## Description
|
||
|
|
||
|
* index% is the index of the printer, which can have the following values:
|
||
|
* 0 - LPT1:
|
||
|
* 1 - LPT1:
|
||
|
* 2 - LPT2:
|
||
|
* 3 - LPT3:
|
||
|
* The LPOS function does not necessarily give the physical position of the print head because it does not expand tab characters. In addition, some printers may buffer characters.
|
||
|
|
||
|
## Example(s)
|
||
|
|
||
|
> Prompts the user for team names and the names of players on each team. It then prints the players and their teams on the printer.
|
||
|
|
||
|
```vb
|
||
|
|
||
|
CLS
|
||
|
LPRINT "Team Members"; TAB(76); "TEAM" : LPRINT
|
||
|
INPUT "How many teams"; TEAMS
|
||
|
INPUT "How many players per team";PPT
|
||
|
PRINT
|
||
|
FOR T = 1 TO TEAMS
|
||
|
INPUT "Team name: ", TEAM$
|
||
|
FOR P = 1 TO PPT
|
||
|
INPUT " Enter player name: ", PLAYER$
|
||
|
LPRINT PLAYER$;
|
||
|
IF P < PPT THEN
|
||
|
IF LPOS(0) > 55 THEN ' Print a new line if print head past column 55.
|
||
|
LPRINT : LPRINT SPACE$(5);
|
||
|
ELSE
|
||
|
LPRINT ", "; 'Otherwise, print a comma.
|
||
|
END IF
|
||
|
END IF
|
||
|
NEXT P
|
||
|
LPRINT STRING$(80 - LPOS(0) - LEN(TEAM$),"."); TEAM$
|
||
|
NEXT T
|
||
|
|
||
|
```
|
||
|
|
||
|
## See Also
|
||
|
|
||
|
* [LPRINT](LPRINT)
|