WRITE ROBOT REGISTERS TO MC CARD

Can anyone help me to write a Karel Programm? I want to write Robot registers to MC Card.

Need one example programm. I get to many errors whilie building...

PROGRAM WriteRegistersToMC
%NOLOCKGROUP
%COMMENT = 'Schreibt Registerwerte auf Memory Card'

VAR
reg_value : REAL
reg_number : INTEGER
file_id : INTEGER
file_name : STRING[30]

BEGIN
-- Dateiname definieren
file_name = 'mc:register.txt'

-- Datei öffnen
OPEN FILE file_id (file_name, WRITE)

IF file_id < 0 THEN
WRITE('Datei konnte nicht geöffnet werden', CR)
ABORT
ENDIF

-- Registerwerte auslesen und in die Datei schreiben
FOR reg_number = 1 TO 10 DO
-- Wert des Registers auslesen
GET_REG(reg_number, reg_value)

-- Wert in die Datei schreiben
WRITE file_id ('Register ', reg_number, ': ', reg_value, CR)
ENDFOR

-- Datei schließen
CLOSE FILE file_id

-- Bestätigungsmeldung ausgeben
WRITE('Registerwerte erfolgreich auf Memory Card geschrieben', CR)
END WriteRegistersToMC

---->>> ERROR

----------------------------------------------------------------------
Translating C:\Users\t.virnich\Desktop\write_registers.kl

KTRANS Version V9.30 (Build 25 9/14/2023)
Copyright (C) FANUC America Corporation, 1985 through 2019.
All Rights Reserved.

C:\Users\t.virnich\Desktop\write_registers.kl(16)
16 OPEN FILE file_id (file_name, WRITE)
^ ERROR
Id or quoted string expected.

C:\Users\t.virnich\Desktop\write_registers.kl(16)
16 OPEN FILE file_id (file_name, WRITE)
^ ERROR
")" expected.

C:\Users\t.virnich\Desktop\write_registers.kl(16)
16 OPEN FILE file_id (file_name, WRITE)
^ ERROR
Invalid statement. ";" or new line expected.

===============Translation not successful===============
Build Failed: Error translating program: Code: 0xFFFFFFFF:
----------------------------------------------------------------------

Can anyone Help?

Thank U very much! I will test.

Br. Tomasz

Thank You very much. Program works!!!!!

Can you help me adapt the program so that the values are added to each stat by the program?

Do You have some sampe KAREL Programms for me? Just to get a better undeerstanding of the Karel stuff.

Thank U

Hallo Yakaw,

I modified the programm. Now is working like i wanted. Thanks a lot!
Below new Code:

PROGRAM CVS_Write_V5
%COMMENT='CVS_Write'
%NOLOCKGROUP
%NOPAUSE= ERROR+COMMAND+TPENABLE
%INCLUDE KLEVCCDF

VAR
CVS_File: FILE
Status: INTEGER
reg_value1: REAL
reg_value2: REAL
reg_value3: REAL
reg_string1: STRING[10]
reg_string2: STRING[10]
reg_string3: STRING[10]
reg_value : REAL
int_value : INTEGER
real_flag : BOOLEAN
reg_number : INTEGER
file_name : STRING[30]
OutStr : STRING[30]
RegFile : FILE
SAT : INTEGER
   
ROUTINE Clr_Scr

BEGIN
WRITE TPDISPLAY(CHR(cc_clear_win), CHR(cc_home))
WRITE TPERROR(CHR(cc_clear_win))
WRITE TPSTATUS(CHR(cc_clear_win))
WRITE TPPROMPT(CHR(cc_clear_win))
WRITE TPFUNC(CHR(cc_clear_win))
FORCE_SPMENU(TP_PANEL, SPI_TPUSER, 1)
END Clr_Scr

BEGIN
Clr_Scr
   
OPEN FILE CVS_File('AP', 'test_out.csv')
Status = IO_STATUS(CVS_File)
IF Status <> 0 THEN
WRITE TPDISPLAY('Open File failed', Status, CR)
ELSE
   
-- Registerwerte auslesen und in die Datei schreiben
FOR reg_number = 1 TO 10 DO
-- Wert des Registers auslesen
GET_REG(reg_number, real_flag, int_value, reg_value, SAT)
   
-- Wert in String umwandeln
IF (real_flag=TRUE) THEN
CNV_REAL_STR(reg_value,16,6,OutStr)
ELSE
CNV_INT_STR(int_value,16,10,OutStr)
ENDIF
   
-- Schreibregisterwerte in die CSV-Datei
WRITE CVS_File('Register ', reg_number, ': ', OutStr, CR)
Status = IO_STATUS(CVS_File)
IF Status <> 0 THEN
WRITE TPDISPLAY('Write File failed', Status, CR)
               
                            
            
ENDIF
ENDFOR

CLOSE FILE CVS_File
WRITE TPDISPLAY('Done', CR)
ENDIF
END CVS_Write_V5