RosettaCodeData/Task/String-length/BASIC/string-length-5.basic

6 lines
102 B
Text
Raw Permalink Normal View History

2020-02-17 23:21:07 -08:00
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)