A little HELP!!

[aerostar]

Actually the zoom was already set at minimum.

Not played with colour oops sorry color!! but Never Twice Same Color sets have a HUE/TINT control that you can alter on the screen.

I now have worked out getting all lines on screen, it is combined with position and line characteristics. Removed the border area around the characters

Here are the values I have used to get the attached picture.

WDATA Values to be changed to values below

In init routine

'-------------------------------------------------------------
WDATA = %0001001100001111 ' was %0001 011111 001111
GOSUB Send ' Position ADDRESS 15 *****
'-------------------------------------------------------------

and in this

FOR ICOUNT = 0 TO 10
WDATA = %0001000010000001 '<<<<<$10c4 originally
' WDATA =%0001000010000111
GOSUB Send
NEXT ICOUNT

that should! sort the screen out.



Quick and dirty code to do screen fill as a subroutine - modified CLS routine

Run it with no external video input

This is where I put the call, once it has done the Xs it will not go further remeber to comment out GOSUB HEADER.

LOOPER:
    'GOSUB HEADER    ' LINE 3 RIGHT HAND SIDE TEST.
    GOSUB FILLSCREEN
STOPHERE:
    GOTO STOPHERE

I put this at the very bottom of current code.

'----------------------debug fills screen with X------------------

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
    GOSUB Send
	TEMP = TEMP + 1
	IF TEMP >= 28 THEN
    TEMP = 0
    TEMP1=TEMP1 + 1
	ENDIF
	IF TEMP1 >= 11 THEN SCREENBLANKA
 	
    GOTO LOOP3A
    
SCREENBLANKA:
	RETURN