+ "<SELECT NAME=\"room\" SIZE=1>\n");
+
+ serv_puts("LPRM");
+ serv_gets(buf);
+ if (buf[0] == '1') {
+ while (serv_gets(buf), strcmp(buf, "000")) {
+ extract(sroom, buf, 0);
+ self = extract_int(buf, 4) & QR2_SELFLIST ;
+ if (self) {
+ wprintf("<OPTION VALUE=\"");
+ urlescputs(sroom);
+ wprintf("\">");
+ escputs(sroom);
+ wprintf("</OPTION>\n");
+ }
+ }
+ }
+ wprintf("</SELECT>"
+ "</TD></TR>\n");