Code: Select all

```
1 LET A$=""
2 LET A=38
3 LET A$=A$+CHR$ A
4 LET A=A+1
5 GOTO 3+((A=64)*3)
6 PRINT A$
7 LET A$=A$(2 TO)+A$(1)
8 LET A=(A$(1)="V")
9 IF A=1 THEN SCROLL
10 GOTO 6
```

Okay, it's not exactly code, here's another submission I made to Stack Exchange:

Code: Select all

```
1 LET A$=""
2 LET A=38
3 LET A$=A$+CHR$ A
4 LET A=A+1
5 GOTO 3+((A=64)*3)
6 PRINT A$
7 LET A$=A$(2 TO)+A$(1)
8 LET A=(A$(1)="V")
9 IF A=1 THEN SCROLL
10 GOTO 6
```

Code: Select all

```
1 LET A$=""
2 LET A=38
3 LET A$=A$+CHR$ A
4 LET A=A+1
5 GOTO 3+((A=64)*3)
6 PRINT A$
7 LET A$=A$(2 TO)+A$(1)
8 IF (A$(1)>"V")=1 THEN SCROLL
10 GOTO 6
```

... Sorry!

Less lines, more faster!

Code: Select all

```
2 LET A=38
3 LET A$=A$+CHR$ A
4 LET A=A+1
5 GOTO 3+((A=64)*3)
```

3 line repeated (2-4-5)

Code: Select all

```
3 FOR A=38 TO 64
4 LET A$=A$+CHR$ A
5 NEXT A
```

Only 2 redundant lines (4&5)

Is better...

Less memory used too.

Last edited by XavSnap on Sat Feb 18, 2017 7:51 pm, edited 1 time in total.

Thanks, I've amended my entry to include your codes.

Code Golf is good fun especially on technologies with limited languages like the ZX81.

Regards,

Shaun.

Code Golf is good fun especially on technologies with limited languages like the ZX81.

Regards,

Shaun.