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.
Code:
LOOPER:
'GOSUB HEADER ' LINE 3 RIGHT HAND SIDE TEST.
GOSUB FILLSCREEN
STOPHERE:
GOTO STOPHERE
I put this at the very bottom of current code.
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
Bookmarks