[Coco] Access to 225 lines in Basic

[Nick Marentes]

On 21/10/2014 9:08 AM, Robert Gault wrote:
> Nick,
>
> You may be able to improve on this by finding a better way to get 
> Basic to accept the new Task1 and HCLS values. Try removing REM from 
> line 50 to see if it will crash your system if lines 100-101 are REMed 
> out.
>
>
> 2 ONBRK GOTO 400
> 10 WIDTH80:RGB
> 20 POKE&HE06D,&H7E: REM HSCREEN2 320X225X16
> 30 POKE&HE0EE,&H34: REM EXTEND TASK1 FOR SCREEN
> 40 POKE&HE6C0,112: REM NEW VERTICAL MIDPOINT
> 49 REM NEXT WOULD CAUSE CRASH IF USED HERE
> 50 REM POKE&HE6E7,&HAC:POKE&HE6E8,&HA0
> 59 REM NEW MAXIMUM Y VALUES
> 60 POKE&HE7BA,225:POKE&HE7BE,225-1
> 70 POKE&HEB75,225-1:POKE&HEF8F,28-1
> 80 POKE&HF526,225-1
> 90 REM TRICK BASIC INTO USING NEW HCLR VALUES
> 92 REM BY TOGGLING TASK1
> 100 HSCREEN2:HSCREEN0:WIDTH32
> 101 WIDTH80:POKE&HE6E7,&HAC:POKE&HE6E8,&HA0:HSCREEN2
> 110 HCIRCLE(160,112),112,4
> 112 PALETTE13,54:HCOLOR13,0
> 120 HLINE(0,0)-(319,224),PSET
> 122 PALETTE9,40:HCOLOR9,0
> 130 HLINE(319,0)-(0,224),PSET
> 140 PALETTE 4,45:HCOLOR4,0:HLINE(0,191)-(319,191),PSET
> 150 HPRINT(8,28),"THE ABOVE LINE IS Y=192"
> 200 GOTO200
> 400 RGB
>
> Robert


Absolute genius!

Works perfectly! RS-DOS can draw the full 225 scanlines!

I'll try implementing this into my program and see how we go.

And Robert Gault continues to amaze me!   :)

Nick