Updated decoded to use new alphabet. Updated frame packing to use new 72 bit messages

lib/ft8/extractmessage174.f90

@@ -9,7 +9,7 @@ subroutine extractmessage174(decoded,msgreceived,ncrcflag)
   integer*1, target::  i1Dec8BitBytes(11)
   integer*4 i4Dec6BitWords(12)
 
-  alphabet='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-+/?. abcdefghijklmnopqrstuvwxyz'
+  alphabet='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-+/?.'
 
 ! Write decoded bits into cbits: 75-bit message plus 12-bit CRC
   write(cbits,1000) decoded

lib/ft8/genft8.f90

@@ -17,25 +17,14 @@ subroutine genft8(msg,mygrid,bcontest,i3bit,msgsent,msgbits,itone)
   integer icos7(0:6)
   data icos7/2,5,6,0,4,1,3/                   !Costas 7x7 tone pattern
 
-  alphabet='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-+/?. abcdefghijklmnopqrstuvwxyz'
-
+  alphabet='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-+/?.'
+  
   itype=6
   do i=1,12
-    v=index(alphabet, msg(i:i)) - 1
-    i4Msg6BitWords(i)=v
+    v=index(alphabet, msg(i:i))
+    if(v.eq.0) exit
+    i4Msg6BitWords(i)=v - 1
   enddo
-  !i4Msg6BitWords( 1)=index(alphabet, msg( 1: 2))
-  !i4Msg6BitWords( 2)=index(alphabet, msg( 2: 3))
-  !i4Msg6BitWords( 3)=index(alphabet, msg( 3: 4))
-  !i4Msg6BitWords( 4)=index(alphabet, msg( 4: 5))
-  !i4Msg6BitWords( 5)=index(alphabet, msg( 5: 6))
-  !i4Msg6BitWords( 6)=index(alphabet, msg( 6: 7))
-  !i4Msg6BitWords( 7)=index(alphabet, msg( 7: 8))
-  !i4Msg6BitWords( 8)=index(alphabet, msg( 8: 9))
-  !i4Msg6BitWords( 9)=index(alphabet, msg( 9:10))
-  !i4Msg6BitWords(10)=index(alphabet, msg(10:11))
-  !i4Msg6BitWords(11)=index(alphabet, msg(11:12))
-  !i4Msg6BitWords(12)=index(alphabet, msg(12:13))
   msgsent='                      '
   msgsent(1:12)=msg(1:12)