INIT
WANTSTATE
WANTSCREEN

RESET

PUSH "\e#8"

PUSH "\e[9;10H\e[1J"
PUSH "\e[18;60H\e[0J\e[1K"
PUSH "\e[9;71H\e[0K"

$SEQ 10 16: PUSH "\e[\#;10H\e[1K\e[\#;71H\e[0K"

PUSH "\e[17;30H\e[2K"

$SEQ 1 80: PUSH "\e[24;\#f*\e[1;\#f*"

PUSH "\e[2;2H"

$REP 22: PUSH "+\e[1D\eD"

PUSH "\e[23;79H"
$REP 22: PUSH "+\e[1D\eM"

PUSH "\e[2;1H"
$SEQ 2 23: PUSH "*\e[\#;80H*\e[10D\eE"

PUSH "\e[2;10H\e[42D\e[2C"
$REP 76: PUSH "+\e[0C\e[2D\e[1C"

PUSH "\e[23;70H\e[42C\e[2D"

$REP 76: PUSH "+\e[1D\e[1C\e[0D\b"

PUSH "\e[1;1H"
PUSH "\e[10A"
PUSH "\e[1A"
PUSH "\e[0A"
PUSH "\e[24;80H"
PUSH "\e[10B"
PUSH "\e[1B"
PUSH "\e[0B"
PUSH "\e[10;12H"

$REP 58: PUSH " "
PUSH "\e[1B\e[58D"

$REP 58: PUSH " "
PUSH "\e[1B\e[58D"

$REP 58: PUSH " "
PUSH "\e[1B\e[58D"

$REP 58: PUSH " "
PUSH "\e[1B\e[58D"

$REP 58: PUSH " "
PUSH "\e[1B\e[58D"

$REP 58: PUSH " "
PUSH "\e[1B\e[58D"

PUSH "\e[5A\e[1CThe screen should be cleared,  and have an unbroken bor-"
PUSH "\e[12;13Hder of *'s and +'s around the edge,   and exactly in the"
PUSH "\e[13;13Hmiddle  there should be a frame of E's around this  text"
PUSH "\e[14;13Hwith  one (1) free position around it.    Push <RETURN>"

# And the result is...

!Output
            ?screen_row  0 = "********************************************************************************"
            ?screen_row  1 = "*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*"
$SEQ  2  7: ?screen_row \# = "*+                                                                            +*"
            ?screen_row  8 = "*+        EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE        +*"
            ?screen_row  9 = "*+        E                                                          E        +*"
            ?screen_row 10 = "*+        E The screen should be cleared,  and have an unbroken bor- E        +*"
            ?screen_row 11 = "*+        E der of *'s and +'s around the edge,   and exactly in the E        +*"
            ?screen_row 12 = "*+        E middle  there should be a frame of E's around this  text E        +*"
            ?screen_row 13 = "*+        E with  one (1) free position around it.    Push <RETURN>  E        +*"
            ?screen_row 14 = "*+        E                                                          E        +*"
            ?screen_row 15 = "*+        EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE        +*"
$SEQ 16 21: ?screen_row \# = "*+                                                                            +*"
            ?screen_row 22 = "*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*"
            ?screen_row 23 = "********************************************************************************"

?cursor = 13,67
