{ **********  Window Management Services Demonstration  ********** }
{ **********           Version 1.0   8/6/84             ********** }

{ (c) Copyright 1984  Timothy E. Ide  All commercial rights reserved }

procedure InitBorder;
begin
  wi_open(BorderPrompt,MenuX,MenuY,BorderPromptW,BorderPromptH,' ');
  wi_putln(BorderPrompt,'  wi_border');
  wi_putln(BorderPrompt,'    window_number:');
  wi_put(BorderPrompt,'    border_string:');
  wi_getpos(BorderPrompt,BorderPos,Row);
  wi_open(BorderParam,(MenuX+BorderPromptW),(MenuY+1),
                                 BorderParamW,BorderParamH,' ');
end;

procedure InitClear;
begin
  wi_open(ClearPrompt,MenuX,MenuY,ClearPromptW,ClearPromptH,' ');
  wi_putln(ClearPrompt,'  wi_clear');
  wi_putln(ClearPrompt,'    window_number:');
  wi_getpos(ClearPrompt,ClearPos,Row);
  wi_open(ClearParam,(MenuX+ClearPromptW),(MenuY+1),
                                 ClearParamW,ClearParamH,' ');
end;

procedure InitClose;
begin
  wi_open(ClosePrompt,MenuX,MenuY,ClosePromptW,ClosePromptH,' ');
  wi_putln(ClosePrompt,'  wi_close');
  wi_putln(ClosePrompt,'    window_number:');
  wi_getpos(ClosePrompt,ClosePos,Row);
  wi_open(CloseParam,(MenuX+ClosePromptW),(MenuY+1),
                                 CloseParamW,CloseParamH,' ');
end;

procedure InitClreol;
begin
  wi_open(ClreolPrompt,MenuX,MenuY,ClreolPromptW,ClreolPromptH,' ');
  wi_putln(ClreolPrompt,'  wi_clreol');
  wi_putln(ClreolPrompt,'    window_number:');
  wi_getpos(ClreolPrompt,ClreolPos,Row);
  wi_open(ClreolParam,(MenuX+ClreolPromptW),(MenuY+1),
                                 ClreolParamW,ClreolParamH,' ');
end;

procedure InitDelln;
begin
  wi_open(DellnPrompt,MenuX,MenuY,DellnPromptW,DellnPromptH,' ');
  wi_putln(DellnPrompt,'  wi_delln');
  wi_putln(DellnPrompt,'    window_number:');
  wi_putln(DellnPrompt,'    window_row:');
  wi_getpos(DellnPrompt,DellnPos,Row);
  wi_open(DellnParam,(MenuX+DellnPromptW),(MenuY+1),
                                 DellnParamW,DellnParamH,' ');
end;

procedure InitErase;
begin
  wi_open(ErasePrompt,MenuX,MenuY,ErasePromptW,ErasePromptH,' ');
  wi_putln(ErasePrompt,'  wi_erase');
  wi_putln(ErasePrompt,'    window_number:');
  wi_getpos(ErasePrompt,ErasePos,Row);
  wi_open(EraseParam,(MenuX+ErasePromptW),(MenuY+1),
                                 EraseParamW,EraseParamH,' ');
end;

procedure InitGet;
begin
  wi_open(GetPrompt,MenuX,MenuY,GetPromptW,GetPromptH,' ');
  wi_putln(GetPrompt,'  wi_get');
  wi_putln(GetPrompt,'    window_number:');
  wi_putln(GetPrompt,'    input_length:');
  wi_putln(GetPrompt,'    input_string:');
  wi_getpos(GetPrompt,GetPos,Row);
  wi_open(GetParam,(MenuX+GetPromptW),(MenuY+1),
                                 GetParamW,GetParamH,' ');
end;

procedure InitGetln;
begin
  wi_open(GetlnPrompt,MenuX,MenuY,GetlnPromptW,GetlnPromptH,' ');
  wi_putln(GetlnPrompt,'  wi_getln');
  wi_putln(GetlnPrompt,'    window_number:');
  wi_putln(GetlnPrompt,'    input_length:');
  wi_putln(GetlnPrompt,'    input_string:');
  wi_getpos(GetlnPrompt,GetlnPos,Row);
  wi_open(GetlnParam,(MenuX+GetlnPromptW),(MenuY+1),
                                 GetlnParamW,GetlnParamH,' ');
end;

procedure InitGetorg;
begin
  wi_open(GetorgPrompt,MenuX,MenuY,GetorgPromptW,GetorgPromptH,' ');
  wi_putln(GetorgPrompt,'  wi_getorg');
  wi_putln(GetorgPrompt,'    window_number:');
  wi_putln(GetorgPrompt,'    screen_column:');
  wi_putln(GetorgPrompt,'    screen_row:');
  wi_getpos(GetorgPrompt,GetorgPos,Row);
  wi_open(GetorgParam,(MenuX+GetorgPromptW),(MenuY+1),
                                 GetorgParamW,GetorgParamH,' ');
 end;

procedure InitGetpos;
begin
  wi_open(GetposPrompt,MenuX,MenuY,GetposPromptW,GetposPromptH,' ');
  wi_putln(GetposPrompt,'  wi_getpos');
  wi_putln(GetposPrompt,'    window_number:');
  wi_putln(GetposPrompt,'    window_column:');
  wi_putln(GetposPrompt,'    window_row:');
  wi_getpos(GetposPrompt,GetposPos,Row);
  wi_open(GetposParam,(MenuX+GetposPromptW),(MenuY+1),
                                 GetposParamW,GetposParamH,' ');
end;

procedure InitHome;
begin
  wi_open(HomePrompt,MenuX,MenuY,HomePromptW,HomePromptH,' ');
  wi_putln(HomePrompt,'  wi_home');
  wi_putln(HomePrompt,'    window_number:');
  wi_getpos(HomePrompt,HomePos,Row);
  wi_open(HomeParam,(MenuX+HomePromptW),(MenuY+1),
                                 HomeParamW,HomeParamH,' ');
end;

procedure InitInsln;
begin
  wi_open(InslnPrompt,MenuX,MenuY,InslnPromptW,InslnPromptH,' ');
  wi_putln(InslnPrompt,'  wi_insln');
  wi_putln(InslnPrompt,'    window_number:');
  wi_putln(InslnPrompt,'    window_row:');
  wi_getpos(InslnPrompt,InslnPos,Row);
  wi_open(InslnParam,(MenuX+InslnPromptW),(MenuY+1),
                                 InslnParamW,InslnParamH,' ');
end;

procedure InitOpen;
begin
  wi_open(OpenPrompt,MenuX,MenuY,OpenPromptW,OpenPromptH,' ');
  wi_putln(OpenPrompt,'  wi_open');
  wi_putln(OpenPrompt,'    window_number:');
  wi_putln(OpenPrompt,'    origin_column:');
  wi_putln(OpenPrompt,'    origin_row:');
  wi_putln(OpenPrompt,'    window_width:');
  wi_putln(OpenPrompt,'    window_height:');
  wi_put(OpenPrompt,'    border_string:');
  wi_getpos(OpenPrompt,OpenPos,Row);
  wi_open(OpenParam,(MenuX+OpenPromptW),(MenuY+1),
                                 OpenParamW,OpenParamH,' ');
end;

procedure InitPut;
begin
  wi_open(PutPrompt,MenuX,MenuY,PutPromptW,PutPromptH,' ');
  wi_putln(PutPrompt,'  wi_put');
  wi_putln(PutPrompt,'    window_number:');
  wi_putln(PutPrompt,'    output_string:');
  wi_getpos(PutPrompt,PutPos,Row);
  wi_open(PutParam,(MenuX+PutPromptW),(MenuY+1),
                                 PutParamW,PutParamH,' ');
end;

procedure InitPutln;
begin
  wi_open(PutlnPrompt,MenuX,MenuY,PutlnPromptW,PutlnPromptH,' ');
  wi_putln(PutlnPrompt,'  wi_putln');
  wi_putln(PutlnPrompt,'    window_number:');
  wi_putln(PutlnPrompt,'    output_string:');
  wi_getpos(PutlnPrompt,PutlnPos,Row);
  wi_open(PutlnParam,(MenuX+PutlnPromptW),(MenuY+1),
                                 PutlnParamW,PutlnParamH,' ');
end;

procedure InitRead;
begin
  wi_open(ReadPrompt,MenuX,MenuY,ReadPromptW,ReadPromptH,' ');
  wi_putln(ReadPrompt,'  wi_read');
  wi_putln(ReadPrompt,'    window_number:');
  wi_putln(ReadPrompt,'    input_length:');
  wi_putln(ReadPrompt,'    input_string:');
  wi_getpos(ReadPrompt,ReadPos,Row);
  wi_open(ReadParam,(MenuX+ReadPromptW),(MenuY+1),
                                 ReadParamW,ReadParamH,' ');
end;

procedure InitReadln;
begin
  wi_open(ReadlnPrompt,MenuX,MenuY,ReadlnPromptW,ReadlnPromptH,' ');
  wi_putln(ReadlnPrompt,'  wi_readln');
  wi_putln(ReadlnPrompt,'    window_number:');
  wi_putln(ReadlnPrompt,'    input_length:');
  wi_putln(ReadlnPrompt,'    input_string:');
  wi_getpos(ReadlnPrompt,ReadlnPos,Row);
  wi_open(ReadlnParam,(MenuX+ReadlnPromptW),(MenuY+1),
                                 ReadlnParamW,ReadlnParamH,' ');
end;

procedure InitSetorg;
begin
  wi_open(SetorgPrompt,MenuX,MenuY,SetorgPromptW,SetorgPromptH,' ');
  wi_putln(SetorgPrompt,'  wi_setorg');
  wi_putln(SetorgPrompt,'    window_number:');
  wi_putln(SetorgPrompt,'    screen_column:');
  wi_putln(SetorgPrompt,'    screen_row:');
  wi_getpos(SetorgPrompt,SetorgPos,Row);
  wi_open(SetorgParam,(MenuX+SetorgPromptW),(MenuY+1),
                                 SetorgParamW,SetorgParamH,' ');
end;

procedure InitSetpos;
begin
  wi_open(SetposPrompt,MenuX,MenuY,SetposPromptW,SetposPromptH,' ');
  wi_putln(SetposPrompt,'  wi_setpos');
  wi_putln(SetposPrompt,'    window_number:');
  wi_putln(SetposPrompt,'    window_column:');
  wi_putln(SetposPrompt,'    window_row:');
  wi_getpos(SetposPrompt,SetposPos,Row);
  wi_open(SetposParam,(MenuX+SetposPromptW),(MenuY+1),
                                 SetposParamW,SetposParamH,' ');
end;

procedure InitShow;
begin
  wi_open(ShowPrompt,MenuX,MenuY,ShowPromptW,ShowPromptH,' ');
  wi_putln(ShowPrompt,'  wi_show');
  wi_putln(ShowPrompt,'    window_number:');
  wi_getpos(ShowPrompt,ShowPos,Row);
  wi_open(ShowParam,(MenuX+ShowPromptW),(MenuY+1),
                                 ShowParamW,ShowParamH,' ');
end;

procedure InitWrite;
begin
  wi_open(WritePrompt,MenuX,MenuY,WritePromptW,WritePromptH,' ');
  wi_putln(WritePrompt,'  wi_write');
  wi_putln(WritePrompt,'    window_number:');
  wi_putln(WritePrompt,'    output_string:');
  wi_getpos(WritePrompt,WritePos,Row);
  wi_open(WriteParam,(MenuX+WritePromptW),(MenuY+1),
                                 WriteParamW,WriteParamH,' ');
end;

procedure InitWriteln;
begin
  wi_open(WritelnPrompt,MenuX,MenuY,WritelnPromptW,WritelnPromptH,' ');
  wi_putln(WritelnPrompt,'  wi_writeln');
  wi_putln(WritelnPrompt,'    window_number:');
  wi_putln(WritelnPrompt,'    output_string:');
  wi_getpos(WritelnPrompt,WritelnPos,Row);
  wi_open(WritelnParam,(MenuX+WritelnPromptW),(MenuY+1),
                                 WritelnParamW,WritelnParamH,' ');
end;