00080: Conversion: BASIC 4 2000 3000 4000 data files

Title:

Conversion: BASIC 4 2000 3000 4000 data files

Description:

Some versions of BASIC 4 on the 2000, 3000 and the 4000 Series machines used pointers in the key after there were over 32767 records in the file. Following are four variations of line 6490 in BXSND that might work. Try each line to see which works best for your version of the operating system: 

6490 IF F$(1,1)=$02$ THEN LET F$(2,1)=CHR(ASC(F$(2))-4); IF DEC(F$(3,4))>32767 THEN LET F$(2,1)=CHR(ASC(F$(2))-2) 

6490 IF F$(1,1)=$02$ THEN LET F$(2,1)=CHR(ASC(F$(2))); REM IF … 

6490 IF F$(1,1)=$02$ THEN LET F$(2,1)=CHR(ASC(F$(2))); IF DEC(F$(3,4))>32767 THEN LET F$(2,1)=CHR(ASC(F$(2))) 

6490 IF F$(1,1)=$02$ THEN LET F$(2,1)=CHR(ASC(F$(2))); IF DEC(F$(3,4))>32767 THEN LET F$(2,1)=CHR(ASC(F$(2))+6); REM this version was for BB86 and BB90 

Last Modified: 12/18/1997 Product: PRO/5 Operating System: All platforms

BASIS structures five components of their technology into the BBx Generations.