From 3724fe104b2bbba3e5d97693b8b7b66997087b41 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Kevin=20Iv=C3=A1n=20Dom=C3=ADnguez=20Jim=C3=A9nez?= Date: Tue, 23 Dec 2025 09:52:59 -0600 Subject: [PATCH] Upload to chd --- package.json | 2 +- static/4690functions.BAS | 12 ++++++++++++ 2 files changed, 13 insertions(+), 1 deletion(-) create mode 100644 static/4690functions.BAS diff --git a/package.json b/package.json index 3d20d9f..ff99634 100644 --- a/package.json +++ b/package.json @@ -2,7 +2,7 @@ "name": "format-4690", "displayName": "format-4690", "description": "Formatter for 4690 BASIC", - "version": "0.0.2", + "version": "1.0.0", "repository": { "url": "https://git.kidj.dev/IvanovichRU/4690-BASIC-Language-Support.git" }, diff --git a/static/4690functions.BAS b/static/4690functions.BAS new file mode 100644 index 0000000..b174301 --- /dev/null +++ b/static/4690functions.BAS @@ -0,0 +1,12 @@ +!! Función `valor absoluto`, devuelve un `REAL` que +!! contiene el valor absoluto de la expresión numérica +!! `NUM%`. +FUNCTION ABS(NUM%) + REAL ABS + REAL NUM% +END FUNCTION + +FUNCTION ASC(STR$) + INTEGER*2 ASC + STRING STR$ +END FUNCTION \ No newline at end of file