MindReaderCall-Dev.mmbas

'MindReaderCall.mmbas 17Jun08 'Enable MindReader o,q,s,m,c commands for v7 for non-gyroq users 'Syntax Examples: '"o mapmap" '"s defaultmap" '"q buy milk" '"m friday" '"c" ' 'Recommend assigning it to File Menu as "&Go MindReader" 'http://creativecommons.org/licenses/by-sa/2.5/ 'http://www.activityowner.com ' Sub Main L$ = InputBox$("Enter o, m, q, c, or s followed by Keyword for Destination Map: (e.g. 'o mapmap' or 'q buy milk'", _ "MindReader","")    If Left(L$,1)="o" Then Call MacroRun(GetPath(mmDirectoryMyMaps)&"mindreaderopen.mmbas","/open"&Right(l$,Len(l$)-2))     If Left(l$,1)="s" Then Call MacroRun(GetPath(mmDirectoryMyMaps)&"mindreaderopen.mmbas","/send"&Right(l$,Len(l$)-2))     If Left(l$,1)="c" Then	Call MacroRun(GetPath(mmDirectoryMyMaps)&"mindreaderNLP.mmbas","")     If Left(l$,1)="m" Then Call MacroRun(GetPath(mmDirectoryMyMaps)&"mindreaderNLP.mmbas",Right(l$,Len(l$)-2))	 If Left(l$,1)="q" Then	    Call MacroRun(GetPath(mmDirectoryMyMaps)&"mindreaderopen.mmbas","/queu"&Right(l$,Len(l$)-2))		Call MacroRun(GetPath(mmDirectoryMyMaps)&"mindreaderNLP.mmbas","")	 End If End Sub