'ASC-Demo

DIM Zeichen AS STRING * 1

COLOR 15, 1
CLS

PRINT "Gib ein beliebiges Zeichen ein!"
Zeichen = INPUT$(1)

PRINT
PRINT "Du hast das Zeichen ";
COLOR 14
PRINT Zeichen;
COLOR 15
PRINT " eingegeben. Sein ASCII-Code lautet";
COLOR 14
PRINT ASC(Zeichen);
COLOR 15
PRINT "."