X-Git-Url: http://www2.svjatoslav.eu/gitweb/?p=qbasicapps.git;a=blobdiff_plain;f=system%2FCMOS%20string%2Fsavecmos.bas;h=1eb13ad88e42e47553f2283019e65559b1ee55a2;hp=0d87a2c6bc8af315bfe174f2b2a210aae26e647a;hb=08a50b7a860f6aa39f58108a07e2fc13e46260b9;hpb=68c9ea9c1b1c03a3d38bd585f0bdeee6371cb05b

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