diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2020-05-21 15:51:22 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2020-05-21 15:51:22 -0400 |
| commit | 11a07d703b2ee9f7dbb9f3e311a1f034b4c71a20 (patch) | |
| tree | d65629335f1453678b05aee482d0f243b21e69f8 /protocol.f90 | |
| parent | 17623b0805ec074d8fb4aa026f97d8f4abfd0da1 (diff) | |
| download | LR-87-11a07d703b2ee9f7dbb9f3e311a1f034b4c71a20.tar.gz LR-87-11a07d703b2ee9f7dbb9f3e311a1f034b4c71a20.zip | |
Fixed first lines being removed after changes to status line handling. Window title on AppGraphics now resets on new pages.
Diffstat (limited to 'protocol.f90')
| -rw-r--r-- | protocol.f90 | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/protocol.f90 b/protocol.f90 index 49d8fc5..b0699a6 100644 --- a/protocol.f90 +++ b/protocol.f90 @@ -191,7 +191,9 @@ contains write(binary_unit) buffer(i) - else if(.not. binary_file) then + end if + + if(.not. binary_file) then write(unit_number, '(A1)', advance='no') buffer(i) |