The LPOS function returns the current LPT printer head position.
result% = LPOS(index%)
- 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.
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