LOC Data_Segment
            GREG @
adr         IS   @
array       OCTA 10,20,30,40,50
nr          IS (@-adr)/8

buffer      BYTE 0,0
newline     BYTE #a,0

            LOC #100
summe       IS  $0
mittel      IS  $1
no          IS  $2
array_adr   IS  $3
i           IS  $4
offset      IS  $5

Main        SET summe,0
            SET i,nr
            LDA array_adr,array

            TRAP 0,Halt,0