TI99 Environment

# CALL_CHARSET

Syntax

CALL_CHARSET()

Description

The CHARSET function restores the standard ASCII character patterns and standard colors for characters 32 through 127 (The standard TI-99 characters). It also resets the patterns for sprites using the same characters, but not their colors. Custom characters 128 and up, and sprites using those characters are not affected.

Example Code

    call_clear()
    call_magnify(2)
    randomize hitimer()
    ti_print(1,"**** HELLO WORLD ****")
    call_char(128,rpt$("f",16))           ` Create block for sprite
    call_sprite(1,128,7,96,128,rnd(60)-30,rnd(70)-35) ` Display sprite
    tiwaitkey()
    for i = 33 to 95
        call_char(i,"ff00ff00ff00ff00")   ` Change char pattern
    next
    for i = 2 to 8
        call_color(i,rnd(14)+2,rnd(14)+2)
    NEXT
    tiwaitkey()
    CALL_CHARSET()
    tiwaitkey()
    end

The above program redefines ASCII characters 33 to 95 with a custom graphic, assigns random fore and background colors to the corresponding character sets 2 to 8 and displays a moving block sprite (char 128, out of CHARSET range). The printed text will change to the graphic character with random colors. After a key is pressed the Charset() function resets every character except the sprite to their original pattern. The fore and background colors of the chars are also reset. The sprite color remains unchanged.

Go back to ...

TI99E Commands Menu
Main Menu

Copyright © Carlos Santiago Lebron - TI99 Environment 2020