Confusing Chr$ explanation

[mnrvovrfc]

your same code without an unuseful pause (sleep 1) and an unuseful clearscreen (CLS) plus a better output settings (;" " for PRINT statement you get this output

I was going to point that out earlier but perhaps Phil wanted to see each character alone. A better idea was to switch to a graphics screen and find a way to cause a character to dominate the screen, by printing it much larger.

Code: (Select All)

DIM AS LONG thiscr, charscr

DIM AS INTEGER wx, hy, tx, ty, scale, i, j

wx = 8

hy = 14

tx = 100

ty = 100

scale = 10



SCREEN 12

thiscr = _COPYIMAGE(0)

SCREEN thiscr

_TITLE "Press [ESC] to quit."

charscr = _NEWIMAGE(wx, hy, 12)

COLOR 15

FOR i = 129 TO 255

    _DEST charscr

    LOCATE 1, 1

    PRINT CHR$(i);

    _PUTIMAGE (tx, ty)-(tx + wx * scale - 1, ty + hy * scale - 1), charscr, thiscr, (0, 0)-(wx - 1, hy - 1)

    FOR j = 1 TO 10

        _DELAY 0.1

        IF _KEYDOWN(27) THEN EXIT FOR

    NEXT

    CLS

    IF _KEYDOWN(27) THEN EXIT FOR

NEXT

_DEST 0

SYSTEM