projects
/
qbasicapps.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* 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
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
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
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
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
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
NEXT b
\r
\r
3
\r
@@
-64,7
+64,7
@@
maxlen = 8
\r
CLS
\r
PRINT "Svjatoslav Agejenko"
\r
\r
CLS
\r
PRINT "Svjatoslav Agejenko"
\r
-PRINT "s
@ttk17.edu.ee
"
\r
+PRINT "s
vjatoslav@svjatoslav.eu
"
\r
PRINT "2002.10.07"
\r
PRINT " "
\r
PRINT "Utility to store max"; maxlen; "character long string in CMOS memory."
\r
PRINT "2002.10.07"
\r
PRINT " "
\r
PRINT "Utility to store max"; maxlen; "character long string in CMOS memory."
\r