5 3 4 2 4 3
var pageNumber : int := 0 procedure newPage cls pageNumber := pageNumber + 1 put "Page ", pageNumber end newPage