DEFINT A-Z
DIM mainpal(500), harold(50)
DEF SEG = VARSEG(mainpal(0))
FOR i = 0 TO 29: READ nme$
BLOAD nme$ + ".pal", VARPTR(mainpal(0)) + i * 16
NEXT i
BSAVE "bobgraph.pal", VARPTR(mainpal(0)), 480
SYSTEM
DATA hero,plip,bug,shark,shrew,spid,lago,shot,death,cabbage,carrot,sunseed,spam,web,dirt,vlad,fat,worm,fish,turk,hun,grunt,sword,skull,apple,coin,gems,hat,guard,soil