10 FOR zeile=1 TO 8
20 PRINT"Bitte Matrix der Zeile "zeile"eingeben : ";
30 INPUT "",a$(zeile):IF LEN(a$(zeile))<>8 THEN 20 
40 NEXT zeile
50 FOR zeile=1 TO 8
60 RESTORE 130
70 alle=0
80 FOR a=1 TO 8
90 READ b:IF MID$(a$(zeile),a,1)="1" THEN alle=alle+b
100 NEXT a
110 PRINT "Die Summe der "zeile;". Zeile ergibt Dez.";alle;"umgerechnet hex. &"HEX$(alle)
120 NEXT zeile
130 DATA 128,64,32,16,8,4,2,1