w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-12-24 11:40:31 -05:00
Code Issues Packages Projects Releases Wiki Activity

Allow upper or lower case for "A" and "L" commands.

Browse Source
This commit is contained in:
Joe Taylor 2019-01-16 13:16:10 -05:00
parent f194621695
commit 12463451e2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/ft2/ft2.f90
View File

@ -102,8 +102,8 @@ subroutine update(total_time,ic1,ic2)
endif
endif
if(ic1.eq.13 .and. ic2.eq.0) hiscall=hiscall_next
if(ic1.eq.97 .and. ic2.eq.0) autoseq=.not.autoseq
if(ic1.eq.108 .and. ic2.eq.0) level=.not.level
if((ic1.eq.97 .or. ic1.eq.65) .and. ic2.eq.0) autoseq=.not.autoseq
if((ic1.eq.108 .or. ic1.eq.76) .and. ic2.eq.0) level=.not.level
endif
if(ntransmitting.eq.1) transmitted=.true.