RosettaCodeData/Task/String-length/ZX-Spectrum-Basic/string-length-4.basic
2023-07-01 13:44:08 -04:00

5 lines
102 B
Text

10 INPUT a$
20 CLS
30 PRINT a$;
40 LET x=PEEK 23688: LET y=PEEK 23689
50 PRINT CHR$ 13;33-x+32*(24-y)