10310 DIM TCA(14,2),TCO(14),TEX(14),TWE(14),TPO1(14),TPO2(14),CCA(14,2),CON(3,6),CON1(3,6),SPD(4),EKI(3),ZEKI(3),ENU(3),ZENU(3),EDI(3),VWT(4),ZVWT(4),VWTS(4),GD(3),ZGD(3),GDI(3),GA(3),ZGA(3),X(3,6),Y(3,6),CNG1(4),CNG2(4),SF(2),SN(6),ANG(2),D(9)
10320 DIM TNA$(14),TCO$(8),CNA$(14),ANA$(2,6),BNA$(4),DNA$(3),ENA$(3),SNA$(1),EKIF$(3),EDIF$(6),D$(3),M$(9)
10330 AJ=2:WA=1
10340 DIM G(500*AJ)
10350 '
10360 '
10370 SYMBOL(80,80*AJ),"FINAL WINNER II",4,7,7
10380 FOR I=84 TO 552 STEP 2:LINE(I,80*AJ)-(I,128*AJ),PRESET:NEXT I
10390 FOR I=80*AJ TO 128*AJ STEP 3:LINE(84,I)-(552,I),AND,6:NEXT I
10400 FOR I=79*AJ TO 127*AJ STEP 3:LINE(84,I)-(552,I),AND,4:NEXT I
10500 FOR I=1 TO 14:TEX(I)=80:NEXT I:COLOR=(1,1):PALETTE 9,0
10510 COLOR 1:FOR I=1 TO 18:I$=MID$("1C2 Maison Project",I,1)
10520 PRINT@(I*14+290,125*AJ),&H2121;
10530 IF I$=" " THEN PRINT@ &H2121:GOTO 10570
10540 IF I$="1" THEN PRINT@ &H214A:GOTO 10570
10550 IF I$="2" THEN PRINT@ &H214B:GOTO 10570
10560 PRINT@ ASC(I$)+&H2300;
10570 NEXT I
10580 COLOR=(2,5)
10590 FOR I=0 TO 16*AJ STEP 2:FOR J=0 TO 16*AJ-1-I*2 STEP 16*AJ-1-I*2:GET@(304,125*AJ+I+J)-(570,125*AJ+I+J),G:PUT@(304,160*AJ+I+J)-(570,160*AJ+I+J),G,PSET,2:NEXT J,I
10940 READ J:IF J>0 THEN I=I+J:LINE(I*8+4,8*AJ)-(I*8+4,148*AJ),PSET,1:GOTO 10940
10950 FOR I=8 TO 148 STEP 10:LINE(308,I*AJ)-(635,I*AJ),PSET,1:NEXT I
10960 '
10970 FOR W=1 TO 300*WA:NEXT W
10980 '
10990 FOR I=0 TO 15:FOR J=304 TO 574 STEP 16:LINE(I+J,160*AJ)-(I+J,175*AJ),PRESET:NEXT J
11000 IF I<9 THEN FOR K=I*3 TO I*3+2:NEXT K,I
11010 NEXT I
11020 FOR I=0 TO 8:READ TCO$(I):NEXT I
11030 '
11040 FOR I=1 TO 2:FOR J=1 TO 6:READ ANA$(I,J):NEXT J,I
11050 FOR I=1 TO 9:READ J:FOR J=1 TO J:READ I$:M$(I)=M$(I)+CHR$(VAL("&H"+LEFT$(I$,2)))+CHR$(VAL("&H"+RIGHT$(I$,2))):NEXT J,I:M$(0)=CNA$(5)
11060 FOR I=1 TO 4:READ BNA$(I):NEXT I
11070 FOR I=1 TO 3:READ DNA$(I):NEXT I
11080 FOR I=0 TO 3:READ ENA$(I):NEXT I
11090 FOR I=1 TO 4:READ X(0,I),Y(0,I):NEXT I
11100 FOR I=1 TO 3:READ L:FOR J=1 TO 3:FOR K=0 TO 1:X(J,I+K*3)=L:NEXT K,J,I:FOR I=1 TO 3:FOR J=0 TO 1:READ L:FOR K=1 TO 3:Y(I,K+J*3)=L:NEXT K,J,I:FOR I=0 TO 3:FOR J=1 TO 6:Y(I,J)=Y(I,J)*AJ:NEXT J,I
11110 TIM=7
11120 COLOR=(7,3)
11130 COLOR 5:LOCATE 2,5:PRINT"傾斜: ---- --- ---- -- 速力:30Knot":CONNECT(9,54*AJ)-(5,54*AJ)-(5,42*AJ),2,PSET:CONNECT(300,42*AJ)-(300,54*AJ)-(298,54*AJ),2,PSET
11240 COLOR 6:LOCATE 38,15:PRINT"- - ";:COLOR 5:PRINT"8:00(16:00) 朝"
11250 COLOR 5:LOCATE 69,17:PRINT"航行: 0":LOCATE 69,18:PRINT"更迭:";B$;:LOCATE 68,15:PRINT"第3警戒配備":LOCATE 69,16:PRINT"変更後:----":COLOR 7:
11260 COLOR 6:LOCATE 1,15:PRINT"- 敵情報告 -":':::::::::::FOR I=0 TO 3:FOR J=1 TO 6:PAINT(X(I,J),Y(I,J)),-7*(I>0 OR J<5),4:WHILE INKEY$="" AND (I>0 OR J<5):W=-(W+.5!)*(W<30000):COLOR=(7,(W MOD 7)+1):WEND:COLOR=(7,7):NEXT J,I:END
11720 IF TIME>J THEN J=TIME:FOR I!=0 TO &HFFFF:NEXT I!:I!=65/(TIME-J):PRINT"WA=";I!:END ELSE 11720
11730 '
11740 '
11750 I=0:READ A$
11760 WHILE A$<>"/"
11770 IF LEFT$(A$,1)="*" THEN FOR J=1 TO VAL(MID$(A$,2)):G(I)=0:I=I+1:NEXT ELSE G$=RIGHT$("000"+HEX$(VAL(A$)),4):G&=VAL("&h"+RIGHT$(G$,2)+LEFT$(G$,2)):G(I)=G&+(G&>32767)*65536:I=I+1