5 CLR :DIM PPB(7),BPL(7),MXW(7),LPS(7),FL$(20):FL$="D1:SHIP.PIX":GOSUB 4000›4000 FOR I=0 TO 7:READ W,N,C,T:PPB(I)=W:BPL(I)=N:MXW(I)=C:LPS(I)=T:NEXT I›4005 A=PEEK(106):TOP=A-36:SP=TOP+4:SC=SP*256:DL=256*TOP:POKE 106,TOP:GRAPHICS 0:PRINT "}"›4010 X=16:ICCOM=834:ICBADR=836:ICBLEN=840:SCON=PEEK(559):K4=4096›4015 OPEN #1,4,0,FL$:GET #1,M:M8=M-8:GET #1,WIDE:GET #1,LLO:GET #1,LHI:LINE=LLO+256*LHI:SZ=WIDE*LINE›4020 FOR I=708 TO 711:GET #I,N:POKE I,N:NEXT I:POKE I,N›4025 SC=SC+((LINE*WIDE)>K4)*(K4-INT(K4/WIDE)*WIDE):SH=INT(SC/256):SL=SC-256*SH›4030 FOR I=0 TO 2:POKE DL+I,112:NEXT I:N=0›4035 FOR I=DL+3 TO DL+3*LPS(M8) STEP 3:C=SC+N*WIDE:POKE I,64+M:T=INT(C/256)›4040 POKE I+2,T:POKE I+1,C-256*T:N=N+1:NEXT I›4045 POKE I,65:POKE I+1,0:POKE I+2,DL/256›4050 POKE 560,0:POKE 561,DL/256›4055 POKE ICBADR+X+1,SH:POKE ICBADR+X,SL:POKE ICBLEN+X+1,1+INT(SZ/256):POKE ICBLEN+X,0›4060 POKE ICCOM+X,7:I=USR(ADR("hhhͺLVδ"),X):CLOSE #1:RETURN ›4065 DATA 2,10,170,24,1,10,85,48,2,20,85,48,1,20,42,96›4070 DATA 1,20,21,192,2,40,42,96,2,40,40,192,1,40,40,192›