Upload to chd

2025-12-23 09:52:59 -06:00
parent 440f74b27a
commit 3724fe104b
2 changed files with 13 additions and 1 deletions
--- a/static/4690functions.BAS
+++ 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