Directory of image this file is from
This file as a plain text file
'BEGIN' 'COMENT' ARITHMETIC DEMO;
'REAL' A,B,RSUM,RDIF,RPRD,RQUO;
'INTEGER' I,J,ISUM,IDIFF,IPRD,IQUO;
WRITE (1, "TYPE TWO REAL NUMBERS");SKIP;
READ (1, A,B);SKIP;
RSUM:=A+B; WRITE (1,A," PLUS ",B,"=",RSUM);SKIP;
RDIF:=A-B; WRITE (1,A," MINUS ",B,"=",RDIF);SKIP;
RPRD:=A*B; WRITE (1,A," TIMES ",B,"=",RPRD);SKIP;
RQUO:=A/B; WRITE (1,A," DIVIDED BY",B,"=",RQUO);SKIP;
WRITE (1, "TYPE TWO INTEGERS");SKIP;
READ (1, I,J);SKIP;
ISUM:=I+J; WRITE (1,I," PLUS ",J,"=",ISUM);SKIP;
IDIF:=I-J; WRITE (1,I," MINUS ",J,"=",IDIF);SKIP;
IPRD:=I*J; WRITE (1,I," TIMES ",J,"=",IPRD);SKIP;
IQUO:=I/J; WRITE (1,I," DIVIDED BY",J,"=",IQUO);SKIP;
'END'
$