CALL drawFireworks(99) PROCEDURE drawFireworks(size : INTEGER) DECLARE midpoint, row, leadingSpaces, middleSpaces : INTEGER midpoint ← (size DIV 2) + 1 leadingSpaces ← 0 middleSpaces ← (size - 3) / 2 FOR row ← 1 TO size IF row < midpoint THEN OUTPUT strRepeat(" ", leadingSpaces), "\\", strRepeat(" ", middleSpaces), "|", strRepeat(" ", middleSpaces), "/", strRepeat(" ", leadingSpaces) middleSpaces ← middleSpaces - 1 leadingSpaces ← leadingSpaces + 1 ELSE IF row = midpoint THEN OUTPUT strRepeat("-", size) middleSpaces ← 0 leadingSpaces ← leadingSpaces - 1 ELSE OUTPUT strRepeat(" ", leadingSpaces), "/", strRepeat(" ", middleSpaces), "|", strRepeat(" ", middleSpaces), "\\", strRepeat(" ", leadingSpaces) middleSpaces ← middleSpaces + 1 leadingSpaces ← leadingSpaces - 1 ENDIF ENDIF NEXT row ENDPROCEDURE FUNCTION strRepeat(str : STRING, count : INTEGER) RETURNS STRING DECLARE index : INTEGER DECLARE out : STRING out ← "" FOR index ← 1 TO count out ← out & str NEXT index RETURN out ENDFUNCTION