aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/String-length/ZX-Spectrum-Basic/string-length-1.basic Normal file
View file

@ -0,0 +1,2 @@
10 INPUT a$
20 PRINT LEN a$

8
Task/String-length/ZX-Spectrum-Basic/string-length-2.basic Normal file
View file

@ -0,0 +1,8 @@
10 INPUT a$
20 LET b$=""
30 FOR x=1 TO LEN a$
40 LET k=CODE a$(x)
50 IF k<32 OR k>164 THEN GOTO 70
60 LET b$=b$+a$(k)
70 NEXT x
80 PRINT LEN b$

1
Task/String-length/ZX-Spectrum-Basic/string-length-3.basic Normal file
View file

@ -0,0 +1 @@
10 LET a$=CHR$ 111+CHR$ 8+CHR$ 21+CHR$ 1+CHR$ 34

5
Task/String-length/ZX-Spectrum-Basic/string-length-4.basic Normal file
View file

@ -0,0 +1,5 @@
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)