| Bram Moolenaar | e4f25e4 | 2017-07-07 11:54:15 +0200 | [diff] [blame^] | 1 | INIT |
| 2 | WANTSTATE |
| 3 | WANTSCREEN |
| 4 | |
| 5 | RESET |
| 6 | |
| 7 | PUSH "\e#8" |
| 8 | |
| 9 | PUSH "\e[9;10H\e[1J" |
| 10 | PUSH "\e[18;60H\e[0J\e[1K" |
| 11 | PUSH "\e[9;71H\e[0K" |
| 12 | |
| 13 | $SEQ 10 16: PUSH "\e[\#;10H\e[1K\e[\#;71H\e[0K" |
| 14 | |
| 15 | PUSH "\e[17;30H\e[2K" |
| 16 | |
| 17 | $SEQ 1 80: PUSH "\e[24;\#f*\e[1;\#f*" |
| 18 | |
| 19 | PUSH "\e[2;2H" |
| 20 | |
| 21 | $REP 22: PUSH "+\e[1D\eD" |
| 22 | |
| 23 | PUSH "\e[23;79H" |
| 24 | $REP 22: PUSH "+\e[1D\eM" |
| 25 | |
| 26 | PUSH "\e[2;1H" |
| 27 | $SEQ 2 23: PUSH "*\e[\#;80H*\e[10D\eE" |
| 28 | |
| 29 | PUSH "\e[2;10H\e[42D\e[2C" |
| 30 | $REP 76: PUSH "+\e[0C\e[2D\e[1C" |
| 31 | |
| 32 | PUSH "\e[23;70H\e[42C\e[2D" |
| 33 | |
| 34 | $REP 76: PUSH "+\e[1D\e[1C\e[0D\b" |
| 35 | |
| 36 | PUSH "\e[1;1H" |
| 37 | PUSH "\e[10A" |
| 38 | PUSH "\e[1A" |
| 39 | PUSH "\e[0A" |
| 40 | PUSH "\e[24;80H" |
| 41 | PUSH "\e[10B" |
| 42 | PUSH "\e[1B" |
| 43 | PUSH "\e[0B" |
| 44 | PUSH "\e[10;12H" |
| 45 | |
| 46 | $REP 58: PUSH " " |
| 47 | PUSH "\e[1B\e[58D" |
| 48 | |
| 49 | $REP 58: PUSH " " |
| 50 | PUSH "\e[1B\e[58D" |
| 51 | |
| 52 | $REP 58: PUSH " " |
| 53 | PUSH "\e[1B\e[58D" |
| 54 | |
| 55 | $REP 58: PUSH " " |
| 56 | PUSH "\e[1B\e[58D" |
| 57 | |
| 58 | $REP 58: PUSH " " |
| 59 | PUSH "\e[1B\e[58D" |
| 60 | |
| 61 | $REP 58: PUSH " " |
| 62 | PUSH "\e[1B\e[58D" |
| 63 | |
| 64 | PUSH "\e[5A\e[1CThe screen should be cleared, and have an unbroken bor-" |
| 65 | PUSH "\e[12;13Hder of *'s and +'s around the edge, and exactly in the" |
| 66 | PUSH "\e[13;13Hmiddle there should be a frame of E's around this text" |
| 67 | PUSH "\e[14;13Hwith one (1) free position around it. Push <RETURN>" |
| 68 | |
| 69 | # And the result is... |
| 70 | |
| 71 | !Output |
| 72 | ?screen_row 0 = "********************************************************************************" |
| 73 | ?screen_row 1 = "*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*" |
| 74 | $SEQ 2 7: ?screen_row \# = "*+ +*" |
| 75 | ?screen_row 8 = "*+ EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE +*" |
| 76 | ?screen_row 9 = "*+ E E +*" |
| 77 | ?screen_row 10 = "*+ E The screen should be cleared, and have an unbroken bor- E +*" |
| 78 | ?screen_row 11 = "*+ E der of *'s and +'s around the edge, and exactly in the E +*" |
| 79 | ?screen_row 12 = "*+ E middle there should be a frame of E's around this text E +*" |
| 80 | ?screen_row 13 = "*+ E with one (1) free position around it. Push <RETURN> E +*" |
| 81 | ?screen_row 14 = "*+ E E +*" |
| 82 | ?screen_row 15 = "*+ EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE +*" |
| 83 | $SEQ 16 21: ?screen_row \# = "*+ +*" |
| 84 | ?screen_row 22 = "*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*" |
| 85 | ?screen_row 23 = "********************************************************************************" |
| 86 | |
| 87 | ?cursor = 13,67 |