/*	demonstrate printing of variable fields
	and line continuation with print at(0)

	The user enters a name and day, and optional time,
	for an appointment.  We skip to a new page and print a
	sentence with that information in it.
 */

"Name:",v,20	/* person's name */
"Day:",v,20	/* day of appointment */
"Time:",v,20	/* time of appointment */
"",v,20		/* empty field for comparison */

input () output ()

/*	the variable F tells the "get field" subroutine which
	field to collect.
 */

begin:
	clear;
	F = 1;
loop:
	if F < 4	/* then we haven't got 'em all yet */
		call get field;
		F = F + 1;
		goto loop;
	endif
	skip 5;
	print at(1) 'Dear ' 0,1 ','; skip;
	print at(6) 'You have an appointment on ' 0,2 ' at ';
	if 0,3 = 0,4
		print at(0) 'some random time.';
	else
		print at(0) 0,3;
	endif
	skip;
	print 'Please show up on time.';
	goto begin;

get field:
	curse F,1;	/* collect field 1 on line 1, etc. */
	display h(0,F);
	enter 0,F;
	return;
end;