Mes coses

parser.cpp

@@ -813,7 +813,7 @@ static void parse_statements() {
 			tkn_next(); parse_color(); break;
 		case TOKEN_BORDER:
 			tkn_next(); parse_border(); break;
-		case TOKEN_CLRSCR:
+		case TOKEN_CLS:
 			tkn_next(); parse_clrscr(); break;
 		case TOKEN_WAIT:
 			tkn_next(); parse_wait(); break;

test.bas

@@ -1,6 +1,6 @@
 	BORDER INK_BLACK
 	COLOR INK_WHITE + PAPER_BLACK
-	CLRSCR
+	CLS
 	LOCATE 4 2 PRINT CHR &h87, CHR &h85, CHR &h87, CHR &h85, CHR &h87, CHR &h85, CHR &h87, CHR &h81
 	LOCATE 4 3 PRINT CHR &h85, CHR &h85, CHR &h85, CHR &h85, CHR &h85, CHR &h85, CHR &h85, CHR &h84
 	LOCATE 4 4 PRINT CHR &h87, CHR &h81, CHR &h8D, CHR &h85, CHR &h85, CHR &h85, CHR &h8D, CHR &h85
@@ -24,7 +24,7 @@ MENU_BLINK2:
 	W = 0
 	GOTO MENU_BLINK
 MAIN_GAME:
-	CLRSCR
+	CLS
 	GOSUB PINTA_RED
 	LOCATE 6 1 PRINT "0"
 	LOCATE 9 1 PRINT "0"
@@ -38,3 +38,4 @@ PINTA_RED:
 	PUTCHAR 7 8 &HD1 INK_WHITE + PAPER_BLACK
 	PUTCHAR 7 10 &HD1 INK_WHITE + PAPER_BLACK
 	RETURN
+

tokenizer.cpp

@@ -62,7 +62,7 @@ t_token_op tkn_tokens[] = {
 	{ "updatescr", TOKEN_UPDATESCR },
 	{ "color", TOKEN_COLOR },
 	{ "border", TOKEN_BORDER },
-	{ "clrscr", TOKEN_CLRSCR },
+	{ "cls", TOKEN_CLS },
 	{ "wait", TOKEN_WAIT },
 };
 

tokenizer.h

@@ -67,7 +67,7 @@ enum t_tokentype {
 	TOKEN_UPDATESCR,
 	TOKEN_COLOR,
 	TOKEN_BORDER,
-	TOKEN_CLRSCR,
+	TOKEN_CLS,
 	TOKEN_WAIT,
 };