* fixed some email addresses

[qbasicapps.git] / system / CMOS string / savecmos.bas

diff --git a/system/CMOS string/savecmos.bas b/system/CMOS string/savecmos.bas
old mode 100755 (executable)
new mode 100644 (file)
index 0d87a2c..1eb13ad
--- a/system/CMOS string/savecmos.bas
+++ b/system/CMOS string/savecmos.bas
@@ -14,12 +14,12 @@ PRINT "1 - to enter new string"
 PRINT "2 - to quit"\r
 a$ = INPUT$(1)\r
 SELECT CASE a$\r
-CASE "1"\r
-newstring\r
-CASE "2"\r
-SYSTEM\r
-CASE ELSE\r
-PRINT "unrecognized command"\r
+    CASE "1"\r
+        newstring\r
+    CASE "2"\r
+        SYSTEM\r
+    CASE ELSE\r
+        PRINT "unrecognized command"\r
 END SELECT\r
 \r
 GOTO 2\r
@@ -32,8 +32,8 @@ l = INP(&H71)
 IF l > maxlen THEN PRINT "<empty>": GOTO 1\r
 COLOR 0, 15\r
 FOR a = 1 TO l\r
-OUT &H70, adr + a\r
-PRINT CHR$(INP(&H71));\r
+    OUT &H70, adr + a\r
+    PRINT CHR$(INP(&H71));\r
 NEXT a\r
 COLOR 7, 0\r
 PRINT " "\r
@@ -50,9 +50,9 @@ OUT &H70, adr
 OUT &H71, LEN(a$)\r
 \r
 FOR b = 1 TO LEN(a$)\r
-c = ASC(RIGHT$(LEFT$(a$, b), 1))\r
-OUT &H70, adr + b\r
-OUT &H71, c\r
+    c = ASC(RIGHT$(LEFT$(a$, b), 1))\r
+    OUT &H70, adr + b\r
+    OUT &H71, c\r
 NEXT b\r
 \r
 3\r
@@ -64,7 +64,7 @@ maxlen = 8
 \r
 CLS\r
 PRINT "Svjatoslav Agejenko"\r
-PRINT "s@ttk17.edu.ee"\r
+PRINT "svjatoslav@svjatoslav.eu"\r
 PRINT "2002.10.07"\r
 PRINT " "\r
 PRINT "Utility to store max"; maxlen; "character long string in CMOS memory."\r