FreeWare Collection 3/FreeSoftwareCollection3pd199x-jp.img/oh_fm/final/final2/f2op.bas

BASIC Source File | 1980-01-02 | 17KB | 304 lines

10000 '===================================
10010 '  "ＦＩＮＡＬ ＷＩＮＮＥＲ II"
10020 '       Against the Evil Current
10030 '
10040 '     file name : "F2-OP"
10050 '     file code : 1990-001-001
10060 '       version : 1.00
10070 '
10080 '   produced by
10090 '       "Maison Project"
10100 '
10110 '   created on
10120 '       "F-BASIC V3.0 Levelε"
10130 '       "N88-日本語 BASIC FA V2.1"
10140 '       "C-DOS 7" version 2.05
10150 '       "GE-8" version 1.000
10160 '
10170 '                 and
10180 '         FM-77 D2 / PC-8801 FA
10190 '
10200 '===================================
10210 '
10220 FOR I=0 TO 7:COLOR=(I,I):NEXT I
10230 COLOR 7,0:SCREEN @0:WINDOW:VIEW
10240 WIDTH 80,20:CLS
10250 CONSOLE 0,20,0
10260 '
10270 ON ERROR GOTO 11660
10280 PRINT CHR$(&H1B)+"g"
10290 DEFINT A-V,Z:RANDOMIZE TIME/3
10300 '
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
10410 FOR I=1 TO 3:COLOR=(2^(I-1),7):NEXT I
10420 FOR I=1 TO 3:FOR W=0 TO 40*WA:NEXT W:NEXT I
10430 LINE(84,80*AJ)-(552,128*AJ),AND,4,BF:COLOR=(5,3)
10440 FOR I=0 TO 14:FOR J=0 TO 2:READ CCA(I,J):NEXT J,I
10450 FOR I=0 TO 1:FOR J=0 TO 1:LINE(72,(74+I*2+J*58)*AJ)-(564,(74+I*2+J*58)*AJ),PSET,5:NEXT J,I
10460 FOR I=0 TO 2:LOCATE 79,24:ROLL -16,,1:NEXT I
10470 SYMBOL(38*8,18*16),"Against the Evil Current",1,1,4
10480 '
10490 'LOCATE 1,19:PRINT"｢F.W. 2｣ ｦ RUN ｻｾﾃ ﾓﾗｲﾏ｡ ｾﾞﾋ ﾌﾟﾚｲｼﾃｵｸﾚﾔｽ｡ ﾅﾆ､ﾌﾟﾚｲｼﾄｳﾅｲ? ｢ﾅﾆｲｳﾃﾝﾈﾝ｣(ﾀｹﾓﾄﾁｴ)";
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
10600 LINE(304,125*AJ)-(570,145*AJ),PSET,0,BF:PALETTE 9,[0,0,255]
10610 FOR I=0 TO 14:READ CNA$(I):NEXT I
10620 FOR I=1 TO 14:FOR J=0 TO 2:READ K:TCA(I,J)=K*(1-.1!*RND):NEXT J,I
10630 FOR I=1 TO 14:TNA$(I)=CHR$(&H82)+CHR$(&H5F+I)+"班":NEXT I
10640 FOR I=1 TO 14:TCO(I)=2:NEXT I
10650 FOR I=1 TO 4:CNG1(I)=5-I:NEXT I
10660 FOR I=1 TO 4:CNG2(I)=I*2-1+(I>2):NEXT I
10670 FOR I=1 TO 3:READ EKIF$(I):NEXT I
10680 FOR I=1 TO 3:EDIF$(I)="右舷":EDIF$(I+3)="左舷":NEXT I
10690 FOR I=1 TO 4 STEP 3:EDIF$(I)=EDIF$(I)+"前方":EDIF$(I+2)=EDIF$(I+2)+"後方":NEXT I
10700 F1=2:F2=1:F3=1:F4=1:F5=1:F7=2:F8=1:F9=1:F12=1:F13=1
10710 LNG1=-30:LNG2=1000+200*RND:AD=RND
10720 ZNUM=1:CON=8:CAU=1:PT=5:A$="より 連絡":B$="------":SNA$(0)="排水":SNA$(1)="排熱"
10730 GD(1)=3:GD(2)=3:GD(3)=2:SP=3:SPT=1:TD=2:HCM=2:SPD(1)=3:SPD(2)=3:SPD(3)=1:SPD(4)=1:SPDM=30:SF(0)=94
10740 KYOKO=-(RND*5>4)
10750 FOR I=1 TO 3:GA(I)=2:NEXT I
10760 FOR W=1 TO 200*WA:NEXT W
10770 FOR I=0 TO 9:FOR J=40*AJ TO 150*AJ STEP 10:LINE(72,I+J)-(564,I+J),PRESET,5,BF:NEXT:NEXT:FOR WI=0 TO 10000:NEXT
10780 FOR I=1 TO 7:COLOR=(I,VAL(MID$("1524467",I,1))):NEXT I
10790 COLOR 4:WINDOW(0,0)-(639,399):VIEW(0,0)-(639,479):CLS
10800 '
10810 LINE(5,40*AJ)-(300,48*AJ),PSET,2,BF
10820 RESTORE 11810:GOSUB 11740:PUT@(7,80)-(294,111),G,PSET,4
10830 PAINT(158,90),0,4
10840 PAINT(221,90),0,4
10850 PAINT( 86,90),0,4
10860             PUT@(  7, 80)-(294,111),G,PSET,4
10870 GOSUB 11740:PUT@(134, 57)-(229, 80),G,PSET,4
10880 GOSUB 11740:PUT@(  7,150)-(294,203),G,PSET,4
10890 GOSUB 11740:PUT@(  7,220)-(294,273),G,PSET,4
10900 GOSUB 11740:PUT@(  7,300)-(294,337),G,PSET,4
10910 ERASE G:RESTORE 11390
10920 LOCATE 39,0:COLOR 1:PRINT"班名 指揮官 人員 疲労 状況 位置 St/Wa/Te"
10930 I=37
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
11140 LOCATE 15,0:PRINT"上空直衛:  0":LOCATE 7,1:PRINT"発艦上限: 40   着艦上限: 40":LOCATE 2,2:PRINT"整備完了:  0":LOCATE 27,2:PRINT"未整備: 94"
11150 READ I:IF I>-1 THEN READ J:LINE(123,I*AJ)-(123,J*AJ),PSET,5:LINE(203,I*AJ)-(203,J*AJ),PSET,5:GOTO 11150
11160 READ I:IF I>-1 THEN READ J,K:LINE(J,I*AJ)-(K,I*AJ),PSET,5:GOTO 11160
11170 READ I:IF I=-2 THEN 11190 ELSE IF I=-1 THEN READ I,J,K,L ELSE READ J:SWAP I,K:SWAP J,L
11180 LINE(I,J*AJ)-(K,L*AJ),PSET,1:GOTO 11170
11190 '
11200 LINE(0,58*AJ)-(302,148*AJ),PSET,1,B:LINE(0,88*AJ)-(302,118*AJ),PSET,1,B
11210 LINE(539,188*AJ)-(639,188*AJ),PSET,1
11220 LINE(539,160*AJ)-(539,188*AJ),PSET,1
11230 '
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"第３警戒配備":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
11270 CHAIN MERGE "F2MAIN.bas",20000,ALL,DELETE -13020
11280 'DATA
11290 'commander's ability
11300 DATA 0,0,0,27,65,84,62,92,83,66,49,96,66,70,93,85,25,79,94,98,95,56,29,34,88,76,93,68,42,56,88,54,67,41,94,80,34,85,70,37,41,72,75,30,20
11310 'DATA 0,0,0,97,64,54,92,21,17,30,94,37,98,44,29,92,85,73,32,88,97,21,99,23,55,48,55,79,77,47,85,89,60,56,61,73,60,38,31,28,51,38,35,66,92
11320 'commander's name
11330 DATA ------,Kruger,Plato,Takaya,Amano,Godai,Holmes,Watson,Spock,Scott,Peary,Volta,Boyle,Weber,Handel
11340 'team data
11350 DATA 97,64,54,92,21,17,30,94,37,98,44,29,92,85,73,32,88,97,21,99,23,55,48,55,79,77,47,85,89,60,56,61,73,60,38,31,28,51,38,35,66,92
11360 '敵機機種
11370 DATA 急降下爆撃機,水平爆撃機,雷撃機
11380 'vartical line
11390 DATA 1,5,7,5,5,5,5,9,0
11400 'condition data
11410 DATA ----,仮眠,待機,対空,監視,復旧,整備,伝令,仮眠
11420 'area name
11430 DATA 第１機銃群,第１艦橋,第２機銃群,左舷艦首甲板,,左舷艦尾甲板,,第２艦橋,,第３高角砲群,,第４高角砲群
11440 ' ???
11450 DATA 06,82A9,82C1,8141,8ACD,92B7,8141
11460 DATA 10,838D,8393,834F,8377,8341,815B,82CC,8F97,90AB,82AA
11470 DATA 05,8CBB,82EA,82DC,82B5,82BD
11480 DATA 08,89BD,82A9,8CBE,82C1,82C4,82A2,82DC,82B7
11490 DATA 13,8175,82A8,8AE8,82A2,8164,8140,88EA,93FA,82C5,82A2,82A2,82A9,82E7
11500 DATA 12,82A0,82BD,82B5,82E6,82E8,92B7,90B6,82AB,82B5,82C4,8164,8176
11510 DATA 12,8351,8351,837B,8149,8140,90ED,8E80,82B5,82BD,82CD,82B8,82CC
11520 DATA 09,82AA,8140,90B6,82AB,95D4,82E8,82DC,82B5,82BD
11530 DATA 04,8AEF,90D5,82BE,8164
11540 'area name
11550 DATA 左舷,艦首,艦尾,右舷
11560 DATA 左舷,蛇行,右舷
11570 DATA ゼロ,停止,半速,全速
11580 'paint (point data)
11590 DATA 155,139,86,45,221,45,155,126::'注排水区画
11600 DATA 114,130,217::'  X
11610 DATA 70,78,98,108,128,138::'  Y
11620 'line data
11630 DATA 64,82,93,111,125,140,-1::' 11150 行に 対応
11640 DATA 73,10,280,103,22,291,133,36,259,-1::' 11160 行に 対応
11650 DATA -1,0,160,0,188,302,188,302,160,-1,27,17,27,3,116,3,-1,221,3,288,3,288,17,-2::' 11170 行に 対応
11660 'error trap
11670 LOCATE 38,19:COLOR 7:COLOR=(7,7):BEEP::PRINT"ERROR";ERR;"in";ERL:END
11680 '11700,11710,11720 行 skip
11690 GOTO 11730
11700 'wait 設定
11710 IF TIME>86219! THEN 11710 ELSE J=TIME
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
11780  READ A$
11790 WEND
11800 RETURN
11810 '
11820 DATA  0, 3072, *3, 1008, *2, 20480, 30720, 3096, 0, 16444, 7680
11830 DATA  *3, 64, 0, 3072, *3, 1008, *2, 20480, 30720, 3096, 0, 16444
11840 DATA  7680, *3, 64, 8191,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
11850 DATA -1,-1,-1,-1,-1,-8120, 7936, 5,-32761,-8192, 4032, 63
11860 DATA -32768, 0, 20480, 16384, 816, 0, 16384, *3, 5, 72,-256
11870 DATA  5,-32761,-8192, 4032, 63,-32768, 0, 20480, 16384, 816
11880 DATA  0, 16384, *3, 5, 200, 0, 5,-32764, 8192, 2112, 32,-32768
11890 DATA  0, 20480, 16384, 816, 0, 16384, *3, 5, 200, 63,-1
11900 DATA -56, 13311,-28569,-192, 20479,-1,-1,-1,-1,-1,-194,-993
11910 DATA  32263,-8320, 16132,-32312, 12, 0, 72, 12800,-28572, 320
11920 DATA  18432, *5, 258,-31743, 16896, 20608, 8452,-32312, 12
11930 DATA  0, 127,-512,-4, 511,-2048, *5, 129, 1024,-32256, 8320
11940 DATA  16895,-4, 4, *11, 129, 1024,-32256, 8320, 16384, 8
11950 DATA  3,-32768, *5, 7,-1,-1,-1,-4096, 127,-1,-1,-1,-32768, 8
11960 DATA  0,-32768, *15, 8, 0,-8192, *15, 8176, 0, 8192, *15, 4096, 0, 12288
11970 DATA  *14, 1,-8192, 0, 4096, *14, 1, *2, 3072, *14, 1, *2, 1024
11980 DATA  *14, 1, *2, 1792, *14, 1009,-8192, 0, 256, *14, 528, 8192
11990 DATA  0, 384, *13, 120, 32272, 8192, 0, 256, *13, 72, 28688
12000 DATA  8192, 0, 768, *13, 5004, 28703,-8192, 0, 512, *13, 4612, 4096
12010 DATA  *2, 1024, *2, 511,-256, *6, 7,-2, 15,-1020, 3584, *2, 1024
12020 DATA  *2, 256, 256, *6, 4, 2, 0, 4100, 512, *2, 3072, 0, 255
12030 DATA -512, 128, *6, 8, 1, 0, 4228, 512, *2, 1024, 0, 128, 0, 128
12040 DATA  *6, 8, 1, 0, 4228, 512, *2, 1536, 0, 256, 0, 64, *6, 16
12050 DATA  0,-32768, 32707,-512, *2, 512, 0, 256, 0, 64, *6, 16, 0,-32768
12060 DATA  16512, *3, 511,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
12070 DATA -1,-16256, *20,/
12080 '
12090 DATA  *8, 512, *5, 512, *5, 544, *5, 544, *5, 544, *5, 544, *4, 8191
12100 DATA -15840, 0, 24576, *2, 4096, 16928, 0, 24576, *2, 4096, 32544
12110 DATA  12288, 24576, *2, 4096, 288, 12288, 24576, *2, 8064, 288
12120 DATA -1,-4096, *2, 128, 288,-32768, 4096, 0, 6144, 128, 481
12130 DATA -32768, 4096, 0, 6144, 128, 257, 0, 4096, 0, 6144, 16256
12140 DATA  257, 0, 4096, 0, 6144, 8192, 257, 0, 4096, 0,-253,-16384
12150 DATA  515, 0, 4096, 0, 6146, 0, 514, 0, 4096, 0, 6146, 0, 1026
12160 DATA  0, 4096, 0, 6146, 0, 1026, 0, 4096, 0, 6147,-64, 2054
12170 DATA  0, 8192, 0, 6144, 960, 2052, 0, 8192, 0, 10240, 960
12180 DATA  3076, 0, 8192, *1,/
12190 '
12200 DATA  *9, 8191,-16384, 0, 127,-128, *13, 8128,-16384, 0, 64
12210 DATA  128, *12, 1,-64,-20473,-1,-32640, 64, *12, 1, 24576,-28668
12220 DATA -32768,-32640, 64, *4, 8191,-1,-1,-1,-1,-1,-1,-2, 8698
12230 DATA  24576,-29672,-32768, 24352, 2111,-32768, *3, 4096, *6, 2
12240 DATA  8458, 0, 1040,-32768, 20512, 2048,-32768, *3, 4096, *6, 1
12250 DATA -508, 0, 2017, 0, 8254, 3968,-1,-64, *2, 4096, *7, 8196, 0, 1057
12260 DATA  0, 8224, 2048, 0, 64, *2, 4096, 0, 1, 2, 4, 8, *2, 8194, 24576
12270 DATA -29672,-32768, 16416, 2048, 0, 127,-1,-16384, 4096, 0, 1
12280 DATA  2, 4, 8, *2, 2, 24576,-30712,-32768, 16384, *4, 16384, 4096
12290 DATA  0, 31, 62, 124, 248, *2, 1,-64,-20473,-1,-31743, 64
12300 DATA  *3, 8192, 4096, 0, 1, 2, 4, 8, *3, 8128,-24576, 0, 1025
12310 DATA  64, *3, 8192, 4096, 0, 1, 2, 4, 8, *3, 8191,-16384, 0, 1985
12320 DATA -3972, *3, 8192, 4096, *11, 1025, 64, *3, 8192, 12288, *11, 1025
12330 DATA  64, *3, 8192, 8192, *16, 8192, 8192, *16, 14336, 8192
12340 DATA  *16, 10240, 8192, *11, 4, 512, *3, 9984, 8192, *11, 4, 512
12350 DATA  *3, 8448,-24576, *11, 4, 512, *3, 8384,-24576, *11, 4, 512
12360 DATA  *3, 8256,-24576, *11, 4, 512, *3, 8240,-24576, *11, 4, 512
12370 DATA  *3, 8208,-8192, *11, 4, 512, *3, 8200,-8192, *11, 4, 512
12380 DATA  *3, 8200,-8192, *4, 1008, *6, 60, 7680, *3, 8652,-8192
12390 DATA  *11, 4, 512, *3, 8200,-8192, *11, 4, 512, *3, 8200,-24576
12400 DATA  *11, 4, 512, *3, 8200,-24576, *11, 4, 512, *3, 8240,-24576
12410 DATA  *11, 4, 512, *3, 8224,-24576, *11, 4, 512, *3, 8384, 8192
12420 DATA  *11, 4, 512, *3, 8320, 8192, *11, 4, 512, *3, 9984, 8192
12430 DATA  *16, 9216, 8192, *16, 14336, 8192, *16, 8192, 12288, *16, 8192
12440 DATA  4096, *16, 8192, 4096, 1024, *15, 8192, 4096, 1024, *15, 8192
12450 DATA  4096, 3072, *15, 8192, 4096, 1024, *15, 8192, 4096, 1024
12460 DATA  *13, 127,-1,-16384, 4096, *14, 64, 8192, 0, 4096, *13,-1
12470 DATA -64, 8192, 0, 4096, *13,-32768, 0, 8192, 0, 8191,-1
12480 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, *2, 16384, *3, 71,-3584
12490 DATA -28700, 287,-14336, *5, 127,-1, *2, 16384, *3, 71,-3584
12500 DATA -28700, 287,-14336, *5, 127,-1,-1,-1,-32768, *3, 71,-3584
12510 DATA -28700, 287,-14336, *13, 63,-1024, 32760, 255,-4096, *29,/
12520 '
12530 DATA  *9, 8191,-16384, *16, 4096, 16384, *15, 1,-8192, 12295
12540 DATA -1,-32768, *13, 1, 0, 4100, 0,-32768, *11, 2047,-2
12550 DATA -9222, 0, 3096, 0, 24575,-1,-512, *9, 1024, 2,-9718, 0, 1040
12560 DATA  0, 20480, 0, 512, *8, 2047,-2048, 1, 9220, 0, 2016, 0, 8192
12570 DATA  0, 511,-64, *7, 1024, 0, 1, 9220, 0, 1056, 0, 8192, *2, 64
12580 DATA  *6, 127,-2048, *2,-10238, 0, 3096, 0, 16384, *2, 63,-512
12590 DATA  *5, 64, *3, 2, 0, 2056, 0, 16384, *3, 512, *4, 7,-128
12600 DATA  *3, 1,-8192, 12295,-1,-32768, *3, 480, *4, 4, *5, 8192, 8192
12610 DATA  *5, 32, *4, 16376, *5, 8191,-16384, *5, 30, *4, 8192, *12, 2
12620 DATA  *3, 127,-16384, *12, 1,-8192, *2, 64, *14, 8192, *2, 32640
12630 DATA  *14, 6144, *2, 16384, *14, 2048, 0, 31,-32768, *14, 1792, 0, 16
12640 DATA  *15, 256, 0, 992, *15, 192, 0, 512, *15, 64, 0, 15360, *15, 48
12650 DATA  0, 8192, *15, 16, 3,-16384, *15, 8, 2, *16, 8, 60, *16, 460
12660 DATA  4, *16, 8, 3,-16384, *15, 8, 0, 16384, *15, 8, 0, 15360, *15, 48
12670 DATA  0, 1024, *15, 32, 0, 992, *15, 192, 0, 32, *15, 128, 0, 31
12680 DATA -32768, *14, 1792, *2,-32768, *14, 1024, *2, 32671,-1024
12690 DATA  16368, 127,-8192, *10, 6144, *2, 128, 1024, *13, 4096, *2, 64
12700 DATA  512,-32764, 256, 2048, *9, 1,-8192, *2, 64, 512,-32764
12710 DATA  256, 2048, *9, 1, *3, 79,-3080,-24604, 319,-14336, *9, 30
12720 DATA  *3, 68, 8712,-30652, 272,-30720, *9, 16, *3, 68, 8711
12730 DATA -30652, 272,-30720, *9, 480, *3, 68, 8704,-30652, 272
12740 DATA -30720, *9, 256, *3, 67,-15872,-30841,-1777, 2048, 3
12750 DATA -1,-1,-1,-8192, *4, 7680, *3, 66, 16896,-31612, 2313, 2048
12760 DATA  2, *3, 8192, *4, 4096, *3, 66, 16896,-31612, 1801, 2048
12770 DATA  4, *3, 4096, *4, 8192, *3, 66, 16896,-31612, 265, 2048
12780 DATA  4, *3, 4096, *4, 8192, *3, 66, 16896,-31612, 265, 4095
12790 DATA -8, *3, 4095,-128, *3, 16384, *3, 64, 512,-32764, 256
12800 DATA  2048, *5, 128, *3, 16384, *3, 64, 512,-32764, 256, 2048
12810 DATA  *5, 127,-1,-1,-1,-32768, *3, 64, 512,-32764, 256, 2048
12820 DATA  *13, 63,-1024, 32760, 255,-4096, *29,/
12830 '
12840 DATA  *6, 2047,-1,-1,-1,-1,-1,-1,-2, *10, 1024, 0, 64, 2
12850 DATA  *3, 2, *9, 511,-2048, 0, 64, 2, *3, 1,-512, 4096, *7, 256
12860 DATA  *2, 64, 2, *4, 512, 4096, *6, 63,-512, *2, 64, 2, *4, 511
12870 DATA -2048, *6, 32, *3, 64, 2, *4, 31, 4096, *5, 3,-64, *3, 32
12880 DATA  4, *4, 31, 4096, *5, 2, *4, 32, 4, *4, 1, 4096, *5, 8188
12890 DATA  *4, 63,-4, *5,-8064, *5, 4096, *11, 8320, *4, 15,-8192
12900 DATA  *11, 8128, *4, 8, *12, 1152, *4, 1008, *12, 1152, *4, 512
12910 DATA  *12, 1152, *4, 31744, *12, 768, *4, 16384, *12, 256, *3, 15
12920 DATA -32768, *12, 252, *3, 8, *13, 4, *3, 240, *13, 3,-481
12930 DATA -8192, 0, 16, *13, 2, *3, 15,-32768, *12, 252, *4,-32768, *12, 128
12940 DATA  *4, 31744, *12, 768, *4, 1024, *12, 768, *4, 1008, *12, 1152
12950 DATA  *4, 16, *12, 1152, *4, 15,-8192, *11, 8128, *5, 8192, *11, 4224
12960 DATA  *5, 8188, *4, 63,-4, *5,-8064, *5, 4, *4, 32, 4, *5,-24576
12970 DATA  *5, 3,-64, *3, 32, 4, *4, 31, 4096, *6, 64, *3, 32, 4
12980 DATA  *4, 31, 4096, *6, 63,-512, *2, 64, 2, *4, 511,-2048, *7, 512
12990 DATA  *2, 64, 2, *4, 256, 4096, *7, 511,-2048, 0, 64, 2
13000 DATA  *3, 1,-512, 4096, *8, 2048, 0, 64, 2, *3, 1, *10, 2047,-1
13010 DATA -1,-1,-1,-1,-1,-2, *22,/
13020 '