The following program installs a task which
display all the possible characters:
DECIMAL
"
" STRING S_MATRICE ( ! spaces )
TACHE:
T_MATRICIELS
S_MATRICE 1+ DUP MATRICE DUP C@
IF
( Left characters shifting )
DUP >R 1+ C@
DUP R@ C! DUP 127 = OVER 0= OR
IF
( Progressive clearing of the string when the
character 127
was displayed )
DUP XOR
ELSE
1+
THEN
R> 1+ C!
ELSE
( Initialization of
the string and task removing )
2 32 FILL
T_MATRICIELS T_RETIRE
THEN
;