DIM stype(39) AS INTEGER
SCREEN 7: SCREEN 0: WIDTH 80: CLS
DEF SEG = VARSEG(stype(30))
BLOAD "saloon.des", VARPTR(stype(0))
INPUT "How many shot types?"; stype(0)
FOR i = 1 TO stype(0)
PRINT "#"; i; ". "; stype(i * 3 - 2), stype(i * 3 - 1), stype(i * 3)
PRINT "shot type "; i
INPUT "type of shot"; stype(i * 3 - 2)
INPUT "#1 things"; stype(i * 3 - 1)
INPUT "#2 things"; stype(i * 3)
NEXT i
DEF SEG = VARSEG(stype(0))
BSAVE "saloon.des", VARPTR(stype(0)), stype(0) * 6 + 2