Upload to chd

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"
 	},

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