Had a play with colors -I found that reducing the drive in the MODE REGISTER, BIT M5, from 6dB to 0dB improved the colours, so M5 needs to be a 0, this will depend on how good the monitor is..
If you mofify the fillscreen to the following you should get lines of ifferent colors.
Code:FILLSCREEN: 'character=$0B 'SPACE TEMP1=0 ' LINECOUNTER TEMP =0 'CHARCOUNTER loop2a: WDATA = 0 ' LINECOUNTER*256 + CHARCOUNTER ADDRESS GOSUB Send LOOP3a: ' :CHARACTERS 100011 WDATA = %0001011100100011 ' X CHARACTER ' WDATA = %0001011101110111 ' if temp1 =0 then WDATA = %0001011101110111 if temp1 =1 then WDATA = %0001000001100011 if temp1 =2 then WDATA = %0001000101100011 if temp1 =3 then WDATA = %0001001001100011 if temp1 =4 then WDATA = %0001001101100011 if temp1 =5 then WDATA = %0001010001100011 if temp1 =6 then WDATA = %0001010101100011 if temp1 =7 then WDATA = %0001011001100011 if temp1 >=8 then WDATA = %0001011101100011 GOSUB Send TEMP = TEMP + 1 IF TEMP >= 28 THEN TEMP = 0 TEMP1=TEMP1 + 1 ENDIF IF TEMP1 >= 11 THEN SCREENBLANKA GOTO LOOP3A SCREENBLANKA: RETURN




Bookmarks