(*$I+ [Show me the source code] *)
PROGRAM LONGLINE;
CONST
LINESIZE = 80 ;
TYPE
(*---Pascal/Z needs these TYPE definitions---*)
$STRING0 = STRING 0 ;
$STRING255 = STRING 255 ;
VAR
DONE : BOOLEAN ;
LINE : STRING LINESIZE ;
WORD : STRING 80 ;
(*---PASCAL/Z NEEDS THESE STRING FUNCTIONS---*)
FUNCTION LENGTH(X: $STRING255): INTEGER; EXTERNAL;
FUNCTION INDEX(X,Y :$STRING255): INTEGER; EXTERNAL;
PROCEDURE SETLENGTH(VAR X :$STRING0; Y :INTEGER); EXTERNAL;
(*-------------------------------------------*)
PROCEDURE HEADING;
BEGIN
WRITELN('TYPE ONE WORD AT A TIME AND THIS PROGRAM WILL');
WRITELN('ASSEMBLE THE WORDS INTO LINES OF ',LINESIZE:1, ' WORDS EACH');
WRITELN('TYPE ## TO STOP');
WRITELN;
END;
BEGIN(* MAIN PROGRAM *)
HEADING;
SETLENGTH(WORD,0);
DONE := FALSE;
{---ATTEMPT TO READ THE FIRST WORD---}
WRITE('Enter the first word: ');
READLN(WORD);
WHILE NOT DONE DO
BEGIN
SETLENGTH(LINE,0);
WHILE ( (LENGTH(LINE) + LENGTH(WORD)) < LINESIZE )
AND ( INDEX(WORD, '##')=0 ) DO
BEGIN(* Our Line will be composed of -
WORDS/SPACES/WORDS *)
IF LENGTH(WORD) < LINESIZE THEN APPEND(WORD, ' ');
(*---LINE := LINE + WORD---*)
APPEND( LINE, WORD );
WRITE('Enter the next word: ');
READLN(WORD);
IF WORD = '##' THEN DONE := TRUE;
END(*WHILE*);
WRITELN('Here is your Line:');
WRITELN(LINE)
END(* WHILE NOT DONE *)
END.
