'Array-Demo

DIM Summand(1 TO 3) AS SINGLE
DIM Summe AS SINGLE
DIM Zaehler AS INTEGER

COLOR 14, 1
CLS

FOR Zaehler = 1 TO 3
 PRINT "Summand"; Zaehler;
 INPUT Summand(Zaehler)
 Summe = Summe + Summand(Zaehler)
NEXT

PRINT
PRINT Summand(1); "+"; Summand(2); "+"; Summand(3); "="; Summe