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