cell pop 4 / ;
data align cell 100 , 200 , 300 , 400 , 500 ,
get n- data + @ ;
put nn- 5 and data + ! ;
display 4 for i get . cr -next ;
sum 0 4 for i get + -next cr . ;
line 10 for 35 emit next ;
wipe 4 for 0 i put -next ;
ok show black screen text display line sum keyboard ;

macro
1@ 8a 2, ; forth
byte pop ;
data byte 68 1, 4 1, 12 1, 12 1, 3 1, 0 1, 15 1, 3 1, 1 1, 12 1, 16 1, 42 1,
get n- data + 1@ ff and ;
display 12 dup for dup i negate + get emit -next drop ;
ok show black screen text display keyboard ;

tv 16
t! n- tv ! ;
.tv 50 emit 65 emit space tv @ . ;
d tv @ 72 + emit ;
la 53 emit ;
lb 67 emit ;
lc 58 emit ;
ld 64 emit ;
le 52 emit ;
lf 62 emit ;
oor 0 emit ;
decide tv @ 10 min jump d d d d d d d d d d la lb lc ld le lf oor
ok show red screen text .tv decide keyboard ;