Data update

Task/Determine-sentence-type/FutureBasic/determine-sentence-type.basic

@@ -0,0 +1,16 @@
+local fn SentenceType( sentence as CFStringRef ) as CFStringRef
+  CFStringRef type
+  select ( fn StringCharacterAtIndex( sentence, len(sentence)-1 ) )
+    case _"?" : type = @"Q"
+    case _"." : type = @"S"
+    case _"!" : type = @"E"
+    case else : type = @"N"
+  end select
+end fn = type
+
+print fn SentenceType( @"hi there, how are you today?" )
+print fn SentenceType( @"I'd like to present to you the washing machine 9001." )
+print fn SentenceType( @"You have been nominated to win one of these!" )
+print fn SentenceType( @"Just make sure you don't break it" )
+
+HandleEvents