REM. Utility to configure the Tab key in the SDLIDE Program Editor
      REM. to move the text cursor (caret) to a particular column number
      REM. Version 1.0, RTR, 03-Nov-2023; requires BBC BASIC for SDL 2.0
      
      INSTALL @lib$ + "stringlib"
      
      Home_Key$ = "|!|B"
      Right_Key$ = "|!|I"
      
      REPEAT
        INPUT "Enter column number to which Tab should move: "column%
      UNTIL column% < 2304
      
      IF column% = 0 THEN QUIT
      
      Macro$ = Home_Key$ + STRING$(column%, Right_Key$)
      
      PROCputINIstring(@usr$ + "sdlide.ini", "macro11", Macro$)
      END
      
      DEF PROCputINIstring(f$, k$, v$)
      LOCAL I%, P%, a$, d$
      PRIVATE F% : IF F% ENDPROC
      F% = OPENUP(f$)
      IF F% = 0 F% = OPENOUT(f$)
      IF F% = 0 ERROR 100, "Couldn't create INI file"
      k$ = FN_lower(FN_trim(k$))
      WHILE NOT EOF#F%
        P% = PTR#F%
        a$ = GET$#F%
        I% = INSTR(a$, "=")
        IF I% IF FN_lower(FN_trim(LEFT$(a$,I%-1))) = k$ d$ = MID$(a$,I%+1) : EXIT WHILE
        IF a$ = ""  THEN PTR#F% = P% : IF BGET#F% = 0 THEN PTR#F% = P% : EXIT WHILE
      ENDWHILE
      IF d$ <> v$ THEN
        a$ = GET$#F% TO 0
        PTR#F% = P%
        BPUT #F%, k$ + "=" + v$
        BPUT #F%, a$ + CHR$0 ;
        WHILE PTR#F% < EXT#F% BPUT#F%,0 : ENDWHILE
      ENDIF
      CLOSE #F%
      F% = FALSE
      ENDPROC