BR Forum

I would try the program Gordon uploaded to see if it works in your specific BR Version. Here is a function we use to use "Keys" instead of "Delete Rec=" The program figures out the proper index based on the file handle passed, and then uses the key to read comparing record #s. Pl...

00005 DIM Key$*8,Data$*100 00010 OPEN #1: "Name=[Temp]Datafile.int,kfname=[temp]datafile.idx,Replace,RECL=128,KPS=1,KLN=8",INTERNAL,OUTIN,KEYED 00015 ! Write Blank Records & Keys 00020 FOR _Write_Loop=1 TO 10 00030 WRITE #1,USING 40: "","" 00040 FORM Pos 1,C 8,C 80...

I think you are remembering ISAM. OPTION 5 is OFF - default to ISAM indexes. As I remember, if you don't specify indexing the file in the new BR will convert to the "new Index Format." Some people used to actually open an ISAM index as it was a "Special internal file" that contai...

My WAG: Provide user full administrator rights. Disable UAC I remember in the compatibility settings one of the options is "Run as Administrator" use that too! BR did a pretty good job of creating "Options" that make the most current release work much like BR 3.91, there are many...

We have been using Zoom for almost a year now. One of the things that I really enjoy is that besides having a "Paid Tier" they have a very functional free tier. Everyone at our office has a Zoom account. Most have the free tier that limits their multi-attendee (3 or more) meetings to 40 mi...

You can better see the results using formated output: pr using "form n 30.28":5.15-2.55-2.6 Returns: 0.000000000000000444 You can see that there are 15 0's after the decimal place. Loop 1 million times: 00001 PRINT Newpage 00010 FOR Loop=1 TO 1000000 00020 LET A+=(5.15-2.55-2.6) 00030 NEXT...

00010 PRINT Newpage 00019 EXECUTE "config attribute [Playbill],font=Playbill" 00020 PRINT FIELDS "10,1,80/C 1000,[PlayBill]": Rpt$("|",80) 00021 PRINT FIELDS "11,1,80/C 1000,[PlayBill]": Rpt$("-",80) 00029 EXECUTE 'config attribute [3of9],font=3 of 9...

When I have a problem shelling to a program, I usually start by testing it at a command line. I make a small "Test.cmd" script (I call it something like t.cmd) The script will contain the actual command that you want to run In your case: c:\Program Files\atlantis\atlantis.exe /pt C:\BRLOCA...

I am sure that a good function should never close all open files!

I think the user-defined function will be fantastic! I also give my +1 to file handle changes. As libraries start to call libraries, and sometimes those libraries are other peoples code (like screenio), I am finding that file handles that were set by the "Main Program" are being replaced b...

I updated the BR Wiki with information about Floating Point Numbers:

http://brwiki2.brulescorp.com/index.php ... nt_Numbers

Ultimately, you get 16 digits of preceision.

This looked nifty, I decided to assign Line #'s and give it a try. Fnepochtime is probably simple, but I didn't try to figure it out. PRINT "Bitcoin Price:";Fngetprice("BTC",0,Time$,"") You can remove line 60, see how quickly it returns a value, but the program loops an...

I don't know if this will help, but from Windows 10 run * Secpol.msc This will load the local security policy. Local Policies --> User Right Assignment --> Allow log on Locally I think the bad news is that on my system, Administrators, Users & Guest are on the list. On the other hand, if you are...

Good to know about the login information!

With your additional feedback I noticed that your write statement has a "Form Statement"
With SQL, you just write the fields without any FORM Statement:

Using SYSERR$ should help to return the last actual SQL error. You might need to enable logging in BR since sometimes you get multiple errors. This is the connection string that I use: CONFIG database SQL-Query connectstring="DRIVER=SQL Server;Initial Catalog=vExchange;Persist Security Info=Tru...