Guardian Programmer's Guide

Table Of Contents
Communicating With Processes
Guardian Programmer’s Guide 421922-014
6 - 41
Programming the Requester
! Prompt for the unit price:
PROMPT^AGAIN1:
SBUFFER ':=' "Enter Unit Price: $" -> @S^PTR;
CALL WRITEREADX(TERMNUM,SBUFFER,@S^PTR '-' @SBUFFER,
BUFSIZE,COUNT^READ);
IF <> THEN CALL FILE^ERRORS(TERMNUM);
IF TYPE = NEW OR COUNT^READ > 0 THEN
BEGIN
SBUFFER[COUNT^READ] := 0;
@NEXT^ADDR := NUMIN(SBUFFER,REQUEST.PART.UNIT^PRICE,10,
STATUS);
IF STATUS OR @NEXT^ADDR <> @SBUFFER[COUNT^READ] THEN
BEGIN
PRINT^STR("Invalid number");
GOTO PROMPT^AGAIN1;
END;
END;
END;