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
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
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
\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