HP Data Entry and Forms Management System (VPLUS) Reference Manual (32209-90024)

418 AppendixA
SAMPLE PROGRAMS
SPL
<< 7, GET’LANGID >>
MOVE MESSAGE’BUF :=(" ENTER LANGUAGE ID NUMBER AND PRESS",
"RETURN: "),2;
<< 8, NOT’CONFIG >>
MOVE MESSAGE’BUF := " Specified language is not configured ",2;
<< 9, NOT’INSTALL >>
MOVE MESSAGE’BUF := " Native language Software not installed",2
;
END; << CASE >>
MSGLEN := TOS - @MESSAGE’BUF;
PRINT (MESSAGE’WBUF, -MSGLEN, CCTL);
IF <> THEN
HANDLE’PROMPT’ERR (2);
END; << PRINT’TO’TERM >>
INTEGER SUBROUTINE READ’FROM’TERM (READBUF, READLEN);
VALUE READLEN;
BYTE ARRAY READBUF;
INTEGER READLEN;
BEGIN
<< BLANK BUF FIRST >>
READBUF := " ";
MOVE READBUF (1) := READBUF (0), (READLEN-1);
READ’FROM’TERM := READ (READBUF, -READLEN);
IF <> THEN
HANDLE’PROMPT’ERR (3);
END; << READ’FROM’TERM >>