program fiat money (output);
var
oil: crude;
dollar: paper;
begin
if oil = 4..12 then status$ = print more!;
if oil = 13..25 then status$ = speed up! we need more!;
if oil = 26..70 then status$ = buy more printers! hurry up!!;
if oil = 71..199 then status$ = check the green color tank and don’t forget to start more wars!;
end;
