DECLARE THE NEW VARIABLE VAR1
DECLARE THE NEW VARIABLE VAR2
DECLARE THE NEW VARIABLE OPERATOR
DECLARE THE NEW VARIABLE NEGONE
OPEN THE VARIABLE NEGONE
ASSIGN -1 TO THE OPEN VARIABLE
DECLARE THE NEW VARIABLE SUBTRACT
OPEN THE VARIABLE SUBTRACT
ASSIGN 45 TO THE OPEN VARIABLE
DEFINE THE NEW LABEL DOITAGAIN
OPEN THE VARIABLE VAR1
GET INPUT AND STORE INTO OPEN VARIABLE AS A NUMBER
OPEN THE VARIABLE OPERATOR
GET INPUT AND STORE INTO OPEN VARIABLE AS A CHARACTER
OPEN THE VARIABLE VAR2
GET INPUT AND STORE INTO OPEN VARIABLE AS A NUMBER
JUMP TO SUBVALS IF SUBTRACT IS EQUAL TO OPERATOR
DEFINE THE NEW LABEL ADDVALS
OPEN THE VARIABLE VAR1
ADD VAR2 TO THE OPEN VARIABLE
PRINT THE OPEN VARIABLE'S VALUE
PRINT THE CHARACTER WITH THE ASCII VALUE 10
PRINT THE CHARACTER WITH THE ASCII VALUE 10
JUMP TO DOITAGAIN IF SUBTRACT IS EQUAL TO SUBTRACT
DEFINE THE NEW LABEL SUBVALS
OPEN THE VARIABLE VAR2
MULTIPLY THE OPEN VARIABLE BY NEGONE
JUMP TO ADDVALS IF SUBTRACT IS EQUAL TO SUBTRACT
END THIS PROGRAM

