LPOS - QB64 Wiki

LPOS

From QB64 Wiki

Revision as of 15:14, 28 April 2011 by Clippy (Talk | contribs)
(diff) ← Older revision | Current revision (diff) | Newer revision → (diff)
Jump to: navigation, search

The LPOS function returns the current LPT printer head position.


Syntax:

result% = 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.


Code Examples:

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.

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:



Navigation:
Go to Keyword Reference - Alphabetical
Go to Keyword Reference - By usage
Go to Main WIKI Page