'CHR$-Demo

DIM ASCIICode AS INTEGER                     'Wer Power Basic verwendet, kann
                                             'hier auch BYTE schreiben.
COLOR , 1

DO
 CLS
 COLOR 15
 PRINT "Gib eine Zahl von 0 bis 255 ein!"
 COLOR 14
 INPUT ASCIICode
LOOP UNTIL ASCIICode >= 0 AND ASCIICode <= 255

COLOR 15
PRINT "Das Zeichen mit diesem ASCII-Code ist ";
COLOR 14
PRINT CHR$(ASCIICode);
COLOR 15
PRINT "."