NSD dddArial segment7–í¥=vul de array segmentscode met de 7-segments-codes van 0 t/m 9-„.schakel PA7 t/m PA0 en PB7 t/m PB0 als outputs-A„/! en schakel PC7 t/m PC0 als inputAU„C teller:=0Ui„W totdat PC0=0iõ„ã REPEAT-dummyii„*PA7 t/m PA0 := segmentscode[teller mod 10]i}„k*PB7 t/m PB0 := segmentscode[teller div 10]}‘„teller:=teller+1‘¥„“ teller=100¥Í„°¥ THEN dummy¥¹Í teller:=0¹ÍÍ»ÿ ELSE dummy¥Í¹„ÿwacht op een return: readlnÍá„Ïÿÿ