September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Caesar-cipher/Sinclair-ZX81-BASIC/caesar-cipher.sinclair
+++ b/Task/Caesar-cipher/Sinclair-ZX81-BASIC/caesar-cipher.sinclair
@ -0,0 +1,12 @@
+ 10 INPUT KEY
+ 20 INPUT T$
+ 30 LET C$=""
+ 40 FOR I=1 TO LEN T$
+ 50 LET L$=T$(I)
+ 60 IF L$<"A" OR L$>"Z" THEN GOTO 100
+ 70 LET L$=CHR$ (CODE L$+KEY)
+ 80 IF L$>"Z" THEN LET L$=CHR$ (CODE L$-26)
+ 90 IF L$<"A" THEN LET L$=CHR$ (CODE L$+26)
+100 LET C$=C$+L$
+110 NEXT I
+120 PRINT C$