ZX80 4K ROM inverse characters

[Shaun_B]

This routine works with most characters; it uses A$ as the string to be output in inverse characters, as follows:

Code: Select all

10 LET A$="DONKEYSOFT MMXVIII ZX80 4K ROM"
20 GO SUB 1000
30 STOP
1000 REM INVERSE ROUTINE
1001 PRINT CHR$(CODE(A$)+128);
1002     LET A$=TL$(A$)
1003 IF NOT A$="" THEN GO TO 1001
1004 PRINT
1005 RETURN

Enjoy 4K ROM BASIC

Shaun.

[vwbz80a]

This routine works with most characters; it uses A$ as the string to be output in inverse characters, as follows:

Code: Select all

10 LET A$="DONKEYSOFT MMXVIII ZX80 4K ROM"
20 GO SUB 1000
30 STOP
1000 REM INVERSE ROUTINE
1001 PRINT CHR$(CODE(A$)+128);
1002     LET A$=TL$(A$)
1003 IF NOT A$="" THEN GO TO 1001
1004 PRINT
1005 RETURN

Enjoy 4K ROM BASIC

Shaun.

Shaun,
1002 LET A$=TL$(A$)

Does not run on my TS 1000.

What do you think is the problem?

[Moggy]

It's ZX80 BASIC not ZX81/TS1000 BASIC which lacks the TLS function.

[vwbz80a]

trying to edit 1002 in EightyOne :
i get 1002 LET A$=TL ["S"] $(A$) [L]

[vwbz80a]

It's ZX80 BASIC not ZX81/TS1000 BASIC which lacks the TLS function.

Moogy,

thanks, will save me time..

[vwbz80a]

well, what do you know it does run......... on a zx80!!!!

[Shaun_B]

Hi,

Yes, it's much easier to produce inversed characters on the Sinclair ZX81 so this is for the ZX80 only. However, if you want to inverse a string from an un-inversed string in ZX81, the principles are about the same (take the character code and add 128 to it).

Thanks,

Shaun.

[vwbz80a]

Hi,

Yes, it's much easier to produce inversed characters on the Sinclair ZX81 so this is for the ZX80 only. However, if you want to inverse a string from an un-inversed string in ZX81, the principles are about the same (take the character code and add 128 to it).

Thanks,

Shaun.

Thumbs up Shaun.