Proggies

[bplus]

Code: (Select All)

_TITLE"Carnivore's Text Message"' b+ 2024-07-01

SCREEN _NEWIMAGE(4, 1, 0) 'Steve mod for SCREEN 0

f& = _LOADFONT("arial.ttf", 128, "MONOSPACE")

_FONT f&

COLOR 31: LOCATE 1, 1: PRINT "M";

COLOR 15: LOCATE 1, 2: PRINT "EAT";

a$ = INPUT$(1)

---

(I've got to say, that's one of the oddest ways I've seen for a Toggle for some time.  Usually it's just "Toggle = NOT Toggle".)

that's very interesting as well, I did try screen 0 first, nothing but trouble

Code: (Select All)

_Title "Carnivore message" ' b+ 2024-07-01
'Screen _NewImage(500, 130, 32)
f& = _LoadFont("arial.ttf", 128, "MONOSPACE")
_Font f&
While _KeyDown(27) = 0
    Cls
    toggle = 1 - toggle
    If toggle = 0 Then Print " EAT"; Else Print "MEAT";
    _Display
    _Limit 1
Wend

do not attempt above code unless you know Alt+F4, apparently the font changes the default screen size to gigantic.

Here's what you were looking for, with the above:

Code: (Select All)

_TITLE "Carnivore message" ' b+ 2024-07-01

'Screen _NewImage(500, 130, 32)

WIDTH 4, 1

f& = _LOADFONT("arial.ttf", 128, "MONOSPACE")

_FONT f&

WHILE _KEYDOWN(27) = 0

    CLS

    toggle = 1 - toggle

    LOCATE 1, 1

    IF toggle = 0 THEN PRINT " EAT"; ELSE PRINT "MEAT";

    _DISPLAY

    _LIMIT 1

WEND

Curious why I need a LOCATE 1, 1 each time after a CLS?