I'm interpolating that the original poster may have not had a chance to respond back at this point... Sorry, I couldn't resist :)
I would imagine that the original poster comes from another language like some previous folks have said. On Mon, Aug 27, 2012 at 12:15 PM, David L. Wasylenko <d...@pickpro.com>wrote: > Or... > 0001 VERB="TRY" ;* Or whatever you called this program > 0002 SENT=@SENTENCE > 0003 PTR=INDEX(SENT,VERB,1) ; LLEN=LEN(SENT)-PTR-LEN(VERB) > 0004 SENT=SENT[PTR+LEN(VERB)+1,LLEN] > 0005 * > 0006 F.FILE=FIELD(SENT," ",1) ; LLEN =LLEN-LEN(F.FILE)-1 > 0007 SENT=SENT[LEN(F.FILE)+2, LLEN] > 0008 * you now have a clean sentence... > 0009 CRT DQUOTE(F.FILE) > 0010 CRT DQUOTE(SENT) > 0011 * > 0012 END > ... david ... > > David L. Wasylenko > President, Pick Professionals, Inc > w) 314 558 1482 > d...@pickpro.com > > > -----Original Message----- > From: u2-users-boun...@listserver.u2ug.org [mailto: > u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson > Sent: Friday, August 24, 2012 5:55 PM > To: u2-users@listserver.u2ug.org; donr_w...@yahoo.com > Subject: Re: [U2] Variable Interpolation > > > Oops there's a bug. > Right after the line that starts OFFSET += 1 should be yet another OFFSET > += 1 so the corrected version should read > > IF VERB = 'RUN' OR VERB = 'RAID' THEN > OFFSET += 1 ; N.FILE = FIELD(SENT,' ',OFFSET) > OFFSET += 1 > END ELSE OFFSET += 2 ; N.FILE = 'BP' > > > -----Original Message----- > From: Wjhonson <wjhon...@aol.com> > To: donr_work <donr_w...@yahoo.com>; u2-users < > u2-users@listserver.u2ug.org> > Sent: Fri, Aug 24, 2012 3:40 pm > Subject: Re: [U2] Variable Interpolation > > > > FFT.BP 'TRY' BASIC 27 lines Level: 9 > * > * Run any BASIC code typed at TCL > * Writen Aug 2012 by Will Johnson based on a comment by Don Robinson > * Released under CC-BY-2.0 license > * > SENT = @SENTENCE > OFFSET = 1 ; VERB = FIELD(SENT,' ',OFFSET) > IF VERB = 'RUN' OR VERB = 'RAID' THEN > OFFSET += 1 ; N.FILE = FIELD(SENT,' ',OFFSET) > END ELSE OFFSET += 2 ; N.FILE = 'BP' > OPEN N.FILE TO F.FILE ELSE > DISPLAY 'Cannot open file "':N.FILE:'"' > END > OFFSET += 1 ; WHAT = FIELD(SENT,' ',OFFSET) ; C.WHAT = COL2()+1 > L.SENT = LEN(SENT) ; WHAT = SENT[C.WHAT,L.SENT] > WRITE WHAT:@AM:"END" ON F.FILE,'TRYCODE' > EXECUTE 'BASIC ':N.FILE:' TRYCODE' > EXECUTE 'RUN ':N.FILE:' TRYCODE' > * > END > > > > -----Original Message----- > From: Don Robinson <donr_w...@yahoo.com> > To: U2 Users List <u2-users@listserver.u2ug.org> > Sent: Fri, Aug 24, 2012 12:20 pm > Subject: Re: [U2] Variable Interpolation > > > Guys, > > I may be way off base but I have a program that takes basic code from the > command line, compiles and runs it. > > For example: > >01 RUNBASIC CRT SYSTEM(2) ; CRT SYSTEM(3) > ==================================================== > 79 > 24 > > > > RUNBASIC is the program and CRT SYSTEM(2) ; CRT SYSTEM(3) is the code in > this example. 79 and 24 are the answers. > > The string of = signs are just for looks. > > This could be EXECUTEd from within a program but why? > It is quite handy for testing bits of code at TCL and might be useful in a > proc. > > RUNBASIC will do anything you can do with one line of code using ; to > separate statements including FOR ... NEXT and LOOP ... REPEAT. > > Code is free as long as you don't critisize it. > > Don Robinson > > From: Wjhonson <wjhon...@aol.com> > To: u2-users@listserver.u2ug.org > Sent: Friday, August 24, 2012 1:38 PM > Subject: Re: [U2] Variable Interpolation > > > The impression I get from this thread is something like > > Oh I've just read on the HELP pages that System(2) tells me the width of > my CRT > screen. > Let me ask my process what it has as the value for System(2). > Oops I have to write a program just to tell me that.... that's too much > trouble. > Why can't it just have a way to *tell* me ? > > > Why!!!! > > > > > -----Original Message----- > From: Martin Phillips <martinphill...@ladybridge.com> > To: 'U2 Users List' <u2-users@listserver.u2ug.org> > Sent: Fri, Aug 24, 2012 10:11 am > Subject: Re: [U2] Variable Interpolation > > > Hi, > > I am intrigued by this thread, mostly because I have not understood why I > would > want it. > > If I can write > CALL @"SUB FOO(X,Y);Y=X+1;RETURN"( 3, VAL ) > as suggested, why don't I just write the code inline in my program. What > have I > missed? > > > Martin Phillips > Ladybridge Systems Ltd > 17b Coldstream Lane, Hardingstone, Northampton NN4 6DB, England > +44 (0)1604-709200 > > _______________________________________________ > U2-Users mailing list > U2-Users@listserver.u2ug.org > http://listserver.u2ug.org/mailman/listinfo/u2-users > > > _______________________________________________ > U2-Users mailing list > U2-Users@listserver.u2ug.org > http://listserver.u2ug.org/mailman/listinfo/u2-users > _______________________________________________ > U2-Users mailing list > U2-Users@listserver.u2ug.org > http://listserver.u2ug.org/mailman/listinfo/u2-users > > > _______________________________________________ > U2-Users mailing list > U2-Users@listserver.u2ug.org > http://listserver.u2ug.org/mailman/listinfo/u2-users > > > _______________________________________________ > U2-Users mailing list > U2-Users@listserver.u2ug.org > http://listserver.u2ug.org/mailman/listinfo/u2-users > _______________________________________________ > U2-Users mailing list > U2-Users@listserver.u2ug.org > http://listserver.u2ug.org/mailman/listinfo/u2-users > -- John Thompson _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
