1 DECLARE SUB displayit ()
\r
2 DECLARE SUB newstring ()
\r
13 PRINT "1 - to enter new string"
\r
22 PRINT "unrecognized command"
\r
28 PRINT "Current CMOS contains: ";
\r
32 IF l > maxlen THEN PRINT "<empty>": GOTO 1
\r
36 PRINT CHR$(INP(&H71));
\r
45 PRINT " max length |" + SPACE$(maxlen) + "|"
\r
46 INPUT "Enter new string:", a$
\r
47 IF LEN(a$) > maxlen THEN PRINT "too long, max"; maxlen: GOTO 3
\r
52 FOR b = 1 TO LEN(a$)
\r
53 c = ASC(RIGHT$(LEFT$(a$, b), 1))
\r
66 PRINT "Svjatoslav Agejenko"
\r
67 PRINT "svjatoslav@svjatoslav.eu"
\r
70 PRINT "Utility to store max"; maxlen; "character long string in CMOS memory."
\r
71 PRINT "beginning CMOS address: 0x"; HEX$(adr)
\r