








3100 GOSUB 10600:OPENIN"s":FOR b=1 TO 19:FOR t=1 TO 25:INPUT #9,s(b,t):NEXT:NEXT:FOR b=1 TO 7:INPUT #9,v(b):NEXT:FOR b=1 TO 35:FOR t=1 TO 10:INPUT #9,f(b,t):NEXT:NEXT:FOR b=1 TO 20:INPUT #9,C(b):NEXT:INPUT #9,s,xs,ys,im,vm,in,ie,cf,w,ww,mm,mb,pp:CLOSEIN