|#| start exhaustive
|H|H1
    |H1|H2,
        pen down,
        dddd,dddd,dddd,dddd,
        dddd,dddd,dddd,dddd
    |H2|H3,
        pen up,
        uuuu,uuuu,
        uuuu,uuuu
    |H3|H4,
        pen down,
        rrrr,
        rrrr
    |H4|H5,
        uuuu,uuuu,
        uuuu,uuuu
    |H5|H6,
        dddd,dddd,dddd,dddd,
        dddd,dddd,dddd,dddd
    |H6|
        pen up,
        uuuu,uuuu,uuuu,uuuu,
        uuuu,uuuu,uuuu,uuuu,
        rrrr
|i|i1
    |i1|i2,
        pen up,
        dddd,dddd,dddd,dddd,
        dddd,dddd,dddd,ddd
    |i2|i3,
        pen down,
        uuuu,uuuu,uuuu,uuu
    |i3|i4,
        pen up,
        uuuu,uuuu
    |i4|i5,
        pen down,
        uuuu,uuuu
    |i5|
        pen up,
        llll,llll,llll

|| start
|start|
    set up the screen,
    pen up,
    rrrr,rrrr,rrrr,rrrr,
    dddd,dddd,dddd,dddd,
    main
|set up the screen|
    @resolution-x += 255,
    @resolution-x += 255,
    @resolution-y += 255,
    @resolution-y += 255,
    set the screen resolution
|set the screen resolution| @set-resolution
|main|
    poll for input,
    clear the screen,
    draw a frame,
    display,
    loop
|poll for input| @poll-input
|clear the screen| @clear-screen
|draw a frame|1
|1|2, H,
|2| , i
|display| @display
|loop, @quit|
|loop| main
|#| end exhaustive