Commodore 128 Alive!

10 FAST:POKE 2604,30:POKE 217,4 REM character set is now at 12288
20 BSAVE "CHARCTER ROM",B14,P53248 TO 55295:REM save the existing character set
30 BLOAD "CHARACTER ROM",B0,P12288: REM and now move it to 12288
40 A1=12288:A2=A1+1024:REM defines start of character set & where to find reverse characters
50 FOR I=0 TO 1023
60 N=PEEK(A1+1):REM read the new values for the characters
70 IF (I AND 4)=0 THEN N=N+2:ELSE 90:REM check rows 1 to 4
80 POKE A2+I,N:REM shift the top row one space right
90 NEXT
100 SLOW:GRAPHIC 0
110 PRINT "Normal characters"
120 PRINT CHR$(9);"Italic charcters"
Now anything printed in REV (chr$(9)) will be italicised.

This same trick can be used on the VDC as well.

Now there's one I never heard of about at all ;-).

Where does all this come from? hehe.  They're way cool.

Quote from: mystikshadowsNow there's one I never heard of about at all ;-).

Where does all this come from? hehe.  They're way cool.

A rather overly large magazine collection I've been carting around for the best part of three decades - I suspect I have every computer magazine I've ever bought......

cheers,

Lance

Quote from: admin

Code Select Expand

60 N=PEEK(A1+1):REM read the new values for the characters
70 OF (I AND 4)=0 THEN N=N+2:ELSE 90:REM check rows 1 to 4
80 POKE A2+I,N:REM shift the top row one space right[/quote]

Shouldn't it be:
60 N=PEEK(A1+I):REM read the new values for the characters
70 IF (I AND 4)=0 THEN N=N/2:ELSE 90:REM check rows 1 to 4
80 POKE A2+I,N:REM shift the top row one space right
I haven't run it and just looking at the code I can't decide if the POKE is always needed. If it's not then you could just do this.

60 IF (I AND 4)=0 THEN POKE A2+I,PEEK(A1+I)/2
70
80
If it is needed then you'll need to do this:
60 N=PEEK(A1+I):REM read the new values for the characters
70 IF (I AND 4)=0 THEN N=N/2:REM check rows 1 to 4
80 POKE A2+I,N:REM shift the top row one space right

Quote from: smf

Quote from: admin

Code Select Expand

60 N=PEEK(A1+1):REM read the new values for the characters
70 OF (I AND 4)=0 THEN N=N+2:ELSE 90:REM check rows 1 to 4
80 POKE A2+I,N:REM shift the top row one space right[/quote]

Shouldn't it be:

Code Select Expand

60 N=PEEK(A1+I):REM read the new values for the characters
70 IF (I AND 4)=0 THEN N=N/2:ELSE 90:REM check rows 1 to 4
80 POKE A2+I,N:REM shift the top row one space right

Corrected in the original post :)

Quote from: admin

Quote from: smf

Quote from: admin

Code Select Expand

60 N=PEEK(A1+1):REM read the new values for the characters
70 OF (I AND 4)=0 THEN N=N+2:ELSE 90:REM check rows 1 to 4
80 POKE A2+I,N:REM shift the top row one space right[/quote]

Shouldn't it be:

Code Select Expand

60 N=PEEK(A1+I):REM read the new values for the characters
70 IF (I AND 4)=0 THEN N=N/2:ELSE 90:REM check rows 1 to 4
80 POKE A2+I,N:REM shift the top row one space right

Corrected in the original post :)

The original post doesn't look different to me.