Family Day update

This commit is contained in:
Ingy döt Net 2020-02-17 23:21:07 -08:00
parent aac6731f2c
commit 9ad63ea473
2442 changed files with 39761 additions and 8255 deletions

View file

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

View file

@ -1,2 +1,8 @@
10 INPUT A$
20 PRINT LEN(A$)
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$

View file

@ -1,2 +1 @@
100 INPUT PROMPT "String: ":TX$
110 PRINT LEN(TX$)
10 LET a$=CHR$ 111+CHR$ 8+CHR$ 21+CHR$ 1+CHR$ 34

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)

View file

@ -0,0 +1,2 @@
10 INPUT A$
20 PRINT LEN(A$)

View file

@ -0,0 +1,2 @@
100 INPUT PROMPT "String: ":TX$
110 PRINT LEN(TX$)