Anonymous user
Align columns: Difference between revisions
m
→{{header|Action!}}
(Added solution for Action!) |
|||
Line 443:
DEFINE BUFFER_SIZE="2000"
DEFINE LINE_WIDTH="40"
DEFINE PTR="CARD"
BYTE ARRAY wordStart(WORDS_COUNT)
BYTE ARRAY wordLen(WORDS_COUNT)
Line 526 ⟶ 527:
RETURN (c)
PROC GenerateLine(BYTE index BYTE align BYTE POINTER p)
BYTE wordIndex,last,left,right,start,len,colW
INT i,j
Line 539:
colW=colWidths(i)
IF wordIndex<=last THEN
start=wordStart(wordIndex)
Line 555:
FI
for j=start TO start+len-1
DO
OD
ELSE
FI
wordIndex==+1
OD
RETURN
PROC FillBuffer(BYTE lineWidth)
BYTE i,align
BYTE POINTER
Zero(
FOR align=0 TO 2
DO
FOR i=0 TO lineCount-1
DO
GenerateLine(i,align,
OD
OD
Line 645:
FI
OD
RETURN</lang>
{{out}}
| |||