Getting a web page from filePro
Jay R. Ashworth
jra at baylink.com
Sun Jan 30 13:27:03 PST 2005
On Sat, Jan 29, 2005 at 04:13:53PM -0500, Bob Stockler wrote:
> | 21 Then: CLS("17","1")
> | 22 Then: END
> | get_trk If:
> | 23 Then: input popup(17,"-1") tracknum "Enter Tracking #\nor Press \kZ-to
> | continue\n\kY- \b4 Cancel \a-\nEnter Option -> "
> | If: @sk = "BRKY"
> | 24 Then: END
> | If: tracknum ne "" and tracking_num = ""
> | 25 Then: tracking_num = tracknum;write
> | 26 Then: RETURN
>
> That looks suspiciously like output from a filePro program I wrote.
> I wish everyone would use it (or whatever you did use) to post code
> here - it makes it very easy to read and follow and doesn't waste space.
It's similar to one I wrote once, in awk, I think. The only thing I
did differently was to completely banish "Then" on lines with no if; my
code looked like:
21 CLS("17","1")
22 END
23 get_trk input popup(17,"-1") tracknum "Enter Tracking #\nor Press \kZ-to
continue\n\kY- \b4 Cancel \a-\nEnter Option -> "
24 IF @sk = "BRKY" THEN END
25 IF tracknum ne "" and tracking_num = "" THEN tracking_num = tracknum;write
26 RETURN
which, of course, looks even less like traditional filePro code, but I,
like some others, consider that a feature. I called the script jcabe,
which, based on what I've seen some other people do, seems to be
traditional.
Cheers,
-- jra
--
Jay R. Ashworth jra at baylink.com
Designer Baylink RFC 2100
Ashworth & Associates The Things I Think '87 e24
St Petersburg FL USA http://baylink.pitas.com +1 727 647 1274
If you can read this... thank a system adminstrator. Or two. --me
More information about the Filepro-list
mailing list