' EndBASIC
' Copyright 2020 Julio Merino
'
' Licensed under the Apache License, Version 2.0 (the "License"); you may not
' use this file except in compliance with the License.  You may obtain a copy
' of the License at:
'
'     http://www.apache.org/licenses/LICENSE-2.0
'
' Unless required by applicable law or agreed to in writing, software
' distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
' WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.  See the
' License for the specific language governing permissions and limitations
' under the License.

' Tests that the background color is used only as the underlying color of new
' text, not the whole line.  Previous versions of EndBASIC used to clear lines
' until the end on every PRINT, but that behavior prevented ASCII drawing.

CLS

A = 5: WHILE A > 0: COLOR A, A - 1: PRINT "Hello": A = A - 1: WEND
COLOR

COLOR 4, 2
INPUT "Number? "; num
123

PRINT "Message"

COLOR , 4
FOR I = 10 TO 14: LOCATE 0, I: PRINT "            ": NEXT
COLOR , 5
LOCATE 4, 12
PRINT "####"

LOCATE 0, 20
COLOR