DATA &H00,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&H00,&H16,&H09,&H95,&HA9,&H2B,&H51,&H00,&H00
DATA &H2D,&H0B,&H01,&H02,&H68,&H24,&H1B,&H78,&H2A,&H4F,&H29,&HA0,&H57,&H49,&H9B,&H26
DATA &H10,&H48,&H4C,&HA4,&H43,&H00,&H31,&H59,&H45,&H59,&H61,&H59,&H81,&H59,&H81,&H99
DATA &HA9,&H4F,&H01,&H01,&H01,&H01,&H86,&H3D,&H00,&HC0,&H51,&H00,&H30,&H40,&H40,&HA0
DATA &H13,&H00,&H68,&H0E,&H11,&H00,&H00,&H1E,&H00,&H00,&H00,&HFC,&H00,&H45,&H4E,&H56
DATA &H49,&H53,&H49,&H4F,&H4E,&H20,&H0A,&H20,&H20,&H20,&H00,&H00,&H00,&HFC,&H00,&H45
DATA &H4E,&H2D,&H39,&H31,&H30,&H65,&H0A,&H20,&H20,&H20,&H20,&H20,&H00,&H00,&H00,&HFD
DATA &H00,&H32,&HA0,&H1E,&H5F,&H14,&H00,&H0A,&H20,&H20,&H20,&H20,&H20,&H20,&H00,&H77

sum = 0

FOR i = 1 TO 128
READ a
sum = sum + a
NEXT i

PRINT "checksum = "; HEX$(sum)