DIM pilot%(6400)
SCREEN 9
FOR i = 0 TO 24
READ a$
DEF SEG = VARSEG(pilot%(0))
BLOAD a$ + ".cap", VARPTR(pilot%(i * 256))
BLOAD a$ + ".tlk", VARPTR(pilot%(i * 256 + 128))
NEXT i
a = 0
a$ = INKEY$
WHILE a$ = ""
a$ = INKEY$
FOR i = 0 TO 24
PUT (i * 20, 200), pilot%(i * 256 + a), PSET
NEXT i
IF a = 0 THEN a = 128 ELSE a = 0
WEND
BSAVE "pilots.dat", VARPTR(pilots%(0)), 12800
DATA redgiant,dart,peace,voyager,tornado,flagship
DATA spleen,esquah,hornet,crab,wolv,empire
DATA leech,spear,blazer,torque,olympus,warship
DATA worm,squid,micro,slug,snail,dragon
DATA bob