DIM GUTS%(732)
DEF SEG = VARSEG(GUTS%(0))
BLOAD "GUTS.EPC", VARPTR(GUTS%(0))
BLOAD "HEART.EPC", VARPTR(GUTS%(122))
BLOAD "BRAIN.EPC", VARPTR(GUTS%(244))
BLOAD "GUTSP.EPC", VARPTR(GUTS%(366))
BLOAD "HEARTP.EPC", VARPTR(GUTS%(488))
BLOAD "BRAINP.EPC", VARPTR(GUTS%(610))
SCREEN 7: PAINT (15, 15), 1, 1
FOR I = 1 TO 3
PUT (15 * I, 20), GUTS%((I + 2) * 122), AND
PUT (15 * I, 20), GUTS%((I - 1) * 122), XOR
NEXT I
BSAVE "SEMAJ.PIC", VARPTR(GUTS%(0)), 1465