ウォーゲーム関連総合スレッド Ver.2
10 '**********************
11 '* combat Ver 1.2 *
12 '* for PC-8001 *
13 '* copyright by *
14 '* koei micom system *
15 '* 1982,4,25 Y.E *
16 '**********************
20 CONSOLE0,25,0,0:WIDTH80,25:COLOR0,0,1:CLEAR 200: PRINTCHR$(12):DEFSTR A-C:DEFSTR N:DEFINT H:DEFINT M:AA=" ":BB=CHR$(34):AB=" ･････ ":
DIM H(17,7),A(7),N1(7),D(7),A6(7),H1(7):TM=VAL(RIGHT$(TIME$,1)):IF TM<3 THEN TM=9
22 FOR I=1 TO 7:A6(I)=".": NEXT I:DIM A7(1),A8(7):A7(0)="ﾐｷﾞ":A7(1)="ﾋﾀﾞﾘ":RESTORE27:FOR I=1 TO 6:READ A:A8(I)=A:NEXT I
27 DATA ｶﾀ,ｱｼ,ﾃ,ﾓﾓ,ﾋｻﾞ,ｳﾃﾞ
30 DEF FNR(X)=(RND(X)*TM/10)^.5
35 DIM A4(10):RESTORE36:FOR I=1 TO 9:READ A:A4(I)=A:NEXT I
36 DATA 1/5,1/4,1/3,1/2,1/1,2/1,3/1,4/1,5/1
40 RESTORE 50: FOR I=1 TO 7:READ A:A(I)=A:NEXT I:RESTORE 80:FOR I=1 TO 5:READ A:NH(I)=A:NEXT I:DIM A1(10):RESTORE 90:FOR I=1 TO 10:READ
A:A1(I)=A:NEXT I
42 FOR X=6 TO 7
43 I=INT(FNR(1)*10)+1:NH(X)=A1(I)
44 IF NH(6)=NH(7) THEN 43
45 NEXT X:RESTORE 47:FOR I=1 TO 7:READ A:N1(I)=A:NEXT I
47 DATA 1,2,3,4,5,6,7
50 DATA COMANDO TO ,1.ｺｳｹﾞｷ 2.ﾀﾏｺﾞﾒ 3.ﾀｲｾｲ 4.ｲﾄﾞｳ 5.ﾃｱﾃ 6.ﾎｳｺｸ,NUMBER,1.ﾌｾﾛ 2.ﾀﾃ,ｼｮｳｲ,ﾁｪｯｸﾒｲﾄ ｷﾝｸﾞ,ﾁｪｯｸﾒｲﾄ ｾﾌﾞﾝ
80 DATA ｻﾝﾀﾞｰｽ,ｶｰﾋﾞｰ,ｹｰﾘｰ,ﾘﾄﾙｼﾞｮﾝ,ｾﾝｾｲ
90 DATA ﾋﾞﾘｰ,ﾃﾞｰﾋﾞｯﾄ,ｳｲﾗｰﾄﾞ,ｼﾞｬｯｸ,ｴﾘｯｸ,ﾎﾟｰﾙ,ﾏｲﾙｽﾞ,ｸﾞﾚﾝ,ｼﾞｮﾝ,ｼﾞｮｰｼﾞ
100 GOSUB 27000
11 '* combat Ver 1.2 *
12 '* for PC-8001 *
13 '* copyright by *
14 '* koei micom system *
15 '* 1982,4,25 Y.E *
16 '**********************
20 CONSOLE0,25,0,0:WIDTH80,25:COLOR0,0,1:CLEAR 200: PRINTCHR$(12):DEFSTR A-C:DEFSTR N:DEFINT H:DEFINT M:AA=" ":BB=CHR$(34):AB=" ･････ ":
DIM H(17,7),A(7),N1(7),D(7),A6(7),H1(7):TM=VAL(RIGHT$(TIME$,1)):IF TM<3 THEN TM=9
22 FOR I=1 TO 7:A6(I)=".": NEXT I:DIM A7(1),A8(7):A7(0)="ﾐｷﾞ":A7(1)="ﾋﾀﾞﾘ":RESTORE27:FOR I=1 TO 6:READ A:A8(I)=A:NEXT I
27 DATA ｶﾀ,ｱｼ,ﾃ,ﾓﾓ,ﾋｻﾞ,ｳﾃﾞ
30 DEF FNR(X)=(RND(X)*TM/10)^.5
35 DIM A4(10):RESTORE36:FOR I=1 TO 9:READ A:A4(I)=A:NEXT I
36 DATA 1/5,1/4,1/3,1/2,1/1,2/1,3/1,4/1,5/1
40 RESTORE 50: FOR I=1 TO 7:READ A:A(I)=A:NEXT I:RESTORE 80:FOR I=1 TO 5:READ A:NH(I)=A:NEXT I:DIM A1(10):RESTORE 90:FOR I=1 TO 10:READ
A:A1(I)=A:NEXT I
42 FOR X=6 TO 7
43 I=INT(FNR(1)*10)+1:NH(X)=A1(I)
44 IF NH(6)=NH(7) THEN 43
45 NEXT X:RESTORE 47:FOR I=1 TO 7:READ A:N1(I)=A:NEXT I
47 DATA 1,2,3,4,5,6,7
50 DATA COMANDO TO ,1.ｺｳｹﾞｷ 2.ﾀﾏｺﾞﾒ 3.ﾀｲｾｲ 4.ｲﾄﾞｳ 5.ﾃｱﾃ 6.ﾎｳｺｸ,NUMBER,1.ﾌｾﾛ 2.ﾀﾃ,ｼｮｳｲ,ﾁｪｯｸﾒｲﾄ ｷﾝｸﾞ,ﾁｪｯｸﾒｲﾄ ｾﾌﾞﾝ
80 DATA ｻﾝﾀﾞｰｽ,ｶｰﾋﾞｰ,ｹｰﾘｰ,ﾘﾄﾙｼﾞｮﾝ,ｾﾝｾｲ
90 DATA ﾋﾞﾘｰ,ﾃﾞｰﾋﾞｯﾄ,ｳｲﾗｰﾄﾞ,ｼﾞｬｯｸ,ｴﾘｯｸ,ﾎﾟｰﾙ,ﾏｲﾙｽﾞ,ｸﾞﾚﾝ,ｼﾞｮﾝ,ｼﾞｮｰｼﾞ
100 GOSUB 27000
|
|
|
110 DEF FNR(X)=(RND(X)*TM/10)^.5:FOR I1=1 TO 5:FOR I2=1 TO 7:H(I1,I2)=FNR(1)*11:NEXT I2,I1:FOR I=1 TO 7:H(6,I)=10:H(12,I)=1:NEXT I:FOR I
=2 TO 7:H(9,I)=50:H(13,I)=1:NEXT I:X1=INT(FNR(1)*6+2):FOR I1=10 TO 11:FOR I2=1 TO 7:H(I1,I2)=10:NEXT I2,I1
120 FOR I=2 TO 7:H(0,I)=INT(RND(1)*50)+50:NEXT I:H(0,1)=75:FOR I=1 TO 7:H(7,I)=1:H(8,I)=4:NEXT I
130 RESTORE 140:FOR I=9 TO 13:READ X2:H(I,1)=X2:H(I,X1)=X2:NEXT I:FOR I=1 TO 7:H(14,I)=1:H(15,I)=1:NEXT I:H(15,5)=10:FOR I=1 TO 4:H(I,1)
=10:NEXT I
140 DATA 200,50,50,2,3
145 GOSUB 29000
150 PRINTCHR$(12):LOCATE0,3:PRINT" ﾅﾏｴ ﾈﾝﾚｲ ｹｯｺﾝ ｾｲｶｸ ｹｲｹﾝ ﾁｮｳｼ ｲﾖｸ ﾋﾛｳ ﾌﾞｷ % point":PRINT:RESTORE170:FOR I=1 TO 7:IF
I>5 THEN X1=INT(FNR(1)*20+18):X2=INT(FNR(1)+.5) ELSE READ X1,X2
155 H1=I:GOSUB 9200
160 PRINTUSING" ##. & & ## ## ## ## ## ## ## ## ## ## ### ";I;NH(I);X1;X2;H(1,I);H(2,I);H(3,I);H(4,I);H(5,
I);H(13,I);H(0,I);P1:NEXT I
170 DATA 35,0,31,1,39,1,25,0,26,0
180 PRINT:PRINT:COLOR 2 :PRINT TAB(25);" HIT RETURN KEY"
190 A="":A=INKEY$:IF A=CHR$(13) THEN OUT64,32:GOSUB 15030:OUT64,0: COLOR0:GOTO200 ELSE 190
200 PRINTCHR$(12):LOCATE0,5:PRINTTAB(25);"ﾄﾞｲﾂ ｸﾞﾝ ﾉ ﾂﾖｻ":PRINT:PRINTTAB(25);" 1.NORMAL":PRINTTAB(25);" 2.STRONG":PRINTTAB(25);" 3.VERY
STRONG":PRINTTAB(25);" ":PRINTTAB(25);"INPUT NO.(1-3) "
201 GOSUB 9800:K=VAL(A):IF K<1 AND K>3 THEN 201
202 T=K: IF T=1 THEN T1=10:GOTO 204
203 IF T=2 THEN T1=15 ELSE T1=20
204 DIM M(17,T1)
210 PRINTCHR$(12):GOSUB 9000:COLOR4:FOR I=1 TO 7
215 H(16,I)=INT(FNR(1)*42+2)+2*I:H(17,I)=20:FOR IG=0 TO I-1:IF H(16,I)=H(16,IG) THEN 215 ELSE NEXT IG
216 LOCATE H(16,I),H(17,I):PRINTN1(I)
217 NEXT I
=2 TO 7:H(9,I)=50:H(13,I)=1:NEXT I:X1=INT(FNR(1)*6+2):FOR I1=10 TO 11:FOR I2=1 TO 7:H(I1,I2)=10:NEXT I2,I1
120 FOR I=2 TO 7:H(0,I)=INT(RND(1)*50)+50:NEXT I:H(0,1)=75:FOR I=1 TO 7:H(7,I)=1:H(8,I)=4:NEXT I
130 RESTORE 140:FOR I=9 TO 13:READ X2:H(I,1)=X2:H(I,X1)=X2:NEXT I:FOR I=1 TO 7:H(14,I)=1:H(15,I)=1:NEXT I:H(15,5)=10:FOR I=1 TO 4:H(I,1)
=10:NEXT I
140 DATA 200,50,50,2,3
145 GOSUB 29000
150 PRINTCHR$(12):LOCATE0,3:PRINT" ﾅﾏｴ ﾈﾝﾚｲ ｹｯｺﾝ ｾｲｶｸ ｹｲｹﾝ ﾁｮｳｼ ｲﾖｸ ﾋﾛｳ ﾌﾞｷ % point":PRINT:RESTORE170:FOR I=1 TO 7:IF
I>5 THEN X1=INT(FNR(1)*20+18):X2=INT(FNR(1)+.5) ELSE READ X1,X2
155 H1=I:GOSUB 9200
160 PRINTUSING" ##. & & ## ## ## ## ## ## ## ## ## ## ### ";I;NH(I);X1;X2;H(1,I);H(2,I);H(3,I);H(4,I);H(5,
I);H(13,I);H(0,I);P1:NEXT I
170 DATA 35,0,31,1,39,1,25,0,26,0
180 PRINT:PRINT:COLOR 2 :PRINT TAB(25);" HIT RETURN KEY"
190 A="":A=INKEY$:IF A=CHR$(13) THEN OUT64,32:GOSUB 15030:OUT64,0: COLOR0:GOTO200 ELSE 190
200 PRINTCHR$(12):LOCATE0,5:PRINTTAB(25);"ﾄﾞｲﾂ ｸﾞﾝ ﾉ ﾂﾖｻ":PRINT:PRINTTAB(25);" 1.NORMAL":PRINTTAB(25);" 2.STRONG":PRINTTAB(25);" 3.VERY
STRONG":PRINTTAB(25);" ":PRINTTAB(25);"INPUT NO.(1-3) "
201 GOSUB 9800:K=VAL(A):IF K<1 AND K>3 THEN 201
202 T=K: IF T=1 THEN T1=10:GOTO 204
203 IF T=2 THEN T1=15 ELSE T1=20
204 DIM M(17,T1)
210 PRINTCHR$(12):GOSUB 9000:COLOR4:FOR I=1 TO 7
215 H(16,I)=INT(FNR(1)*42+2)+2*I:H(17,I)=20:FOR IG=0 TO I-1:IF H(16,I)=H(16,IG) THEN 215 ELSE NEXT IG
216 LOCATE H(16,I),H(17,I):PRINTN1(I)
217 NEXT I
220 I2=0:X=INT(FNR(1)*52)+7:DIMT(9,1),Z(8,1),K(10,1):FOR I=1 TO -1 STEP -1:FOR I1=1 TO -1 STEP -1:I2=I2+1:T(I2,1)=X+I:T(I2,0)=5+I1:NEXT
I1,I
225 COLOR0:GOSUB 9010:GOSUB 18000:PRINT"･･･････ ｺﾉ ﾊﾞﾝｸﾞﾐ ﾉ ﾃｲｷｮｳﾊ ･･････"
230 IF X<10 THEN GOSUB 9100:GOTO 260
240 IF X>48 THEN GOSUB 9110:GOTO 260
250 GOSUB 9120
260 COLOR0:FOR I=1 TO 9:LOCATE T(I,1),T(I,0):PRINT" ":NEXT I:COLOR4: FOR I=1 TO 8:LOCATE Z(I,1),Z(I,0):PRINT" ":NEXT I
265 FOR I=1 TO 9 STEP 2
270 X=5+INT(FNR(1)*50):Y=5+INT(FNR(1)*14)
280 IF T(5,1)+4>X AND T(5,1)-4<X THEN IF T(5,0)+4>Y AND T(5,0)-4<Y THEN GOTO 270
290 FOR I1=1 TO 8 STEP 2:IF Z(I1,1)+3>X AND Z(I1,1)-3<X THEN IF Z(I1,0)+3>Y AND Z(I1,0)-3<Y THEN 270
300 NEXT I1:K(I,1)=X:K(I,0)=Y:K(I+1,1)=X+1:K(I+1,0)=Y:LOCATE K(I,1),K(I,0):PRINT"!":LOCATEK(I+1,1),K(I+1,0):PRINT"!":NEXT I
305 COLOR0: GOSUB 9010:GOSUB 18000:PRINT"･････ ﾜｼ ﾉ ﾏｰｸ ﾃﾞ ｵﾅｼﾞﾐﾉ ･････"
310 COLOR0:FOR I=1 TO T1:FOR I1=1 TO 5:M(I1,I)=5+T+INT(FNR(1)*4):NEXT I1:M(7,I)=1:M(6,I)=10:M(12,I)=1:M(14,I)=1:M(15,I)=3:M(0,I)=50+T*10
+INT(FNR(1)*40):NEXT I:FOR I=1 TO 5:M(13,I)=3:M(9,I)=200:M(10,I)=50:M(11,I)=10:NEXT I
320 FOR I=6 TO T1:M(13,I)=1:M(9,I)=50:M(10,I)=10:M(11,I)=10:NEXT I:M(8,1)=1:M(16,1)=T(5,1):M(17,1)=T(5,0):M(8,2)=1:M(16,2)=T(INT(FNR(1)*
2)+7,1):M(17,2)=T(INT(FNR(1)*2)+7,0):FOR I=3 TO 6:M(8,I)=2:M(16,I)=Z((I-3)*2+1,1):M(17,I)=Z((I-3)*2+1,0):NEXT I
330 FOR I=7 TO T1:M(8,I)=4
331 M(16,I)=INT(FNR(1)*60)+3:M(17,I)=INT(FNR(1)*15)+2:X=M(16,I):Y=M(17,I):GOSUB22000:IF IL<4 THEN 331
332 NEXT I
I1,I
225 COLOR0:GOSUB 9010:GOSUB 18000:PRINT"･･･････ ｺﾉ ﾊﾞﾝｸﾞﾐ ﾉ ﾃｲｷｮｳﾊ ･･････"
230 IF X<10 THEN GOSUB 9100:GOTO 260
240 IF X>48 THEN GOSUB 9110:GOTO 260
250 GOSUB 9120
260 COLOR0:FOR I=1 TO 9:LOCATE T(I,1),T(I,0):PRINT" ":NEXT I:COLOR4: FOR I=1 TO 8:LOCATE Z(I,1),Z(I,0):PRINT" ":NEXT I
265 FOR I=1 TO 9 STEP 2
270 X=5+INT(FNR(1)*50):Y=5+INT(FNR(1)*14)
280 IF T(5,1)+4>X AND T(5,1)-4<X THEN IF T(5,0)+4>Y AND T(5,0)-4<Y THEN GOTO 270
290 FOR I1=1 TO 8 STEP 2:IF Z(I1,1)+3>X AND Z(I1,1)-3<X THEN IF Z(I1,0)+3>Y AND Z(I1,0)-3<Y THEN 270
300 NEXT I1:K(I,1)=X:K(I,0)=Y:K(I+1,1)=X+1:K(I+1,0)=Y:LOCATE K(I,1),K(I,0):PRINT"!":LOCATEK(I+1,1),K(I+1,0):PRINT"!":NEXT I
305 COLOR0: GOSUB 9010:GOSUB 18000:PRINT"･････ ﾜｼ ﾉ ﾏｰｸ ﾃﾞ ｵﾅｼﾞﾐﾉ ･････"
310 COLOR0:FOR I=1 TO T1:FOR I1=1 TO 5:M(I1,I)=5+T+INT(FNR(1)*4):NEXT I1:M(7,I)=1:M(6,I)=10:M(12,I)=1:M(14,I)=1:M(15,I)=3:M(0,I)=50+T*10
+INT(FNR(1)*40):NEXT I:FOR I=1 TO 5:M(13,I)=3:M(9,I)=200:M(10,I)=50:M(11,I)=10:NEXT I
320 FOR I=6 TO T1:M(13,I)=1:M(9,I)=50:M(10,I)=10:M(11,I)=10:NEXT I:M(8,1)=1:M(16,1)=T(5,1):M(17,1)=T(5,0):M(8,2)=1:M(16,2)=T(INT(FNR(1)*
2)+7,1):M(17,2)=T(INT(FNR(1)*2)+7,0):FOR I=3 TO 6:M(8,I)=2:M(16,I)=Z((I-3)*2+1,1):M(17,I)=Z((I-3)*2+1,0):NEXT I
330 FOR I=7 TO T1:M(8,I)=4
331 M(16,I)=INT(FNR(1)*60)+3:M(17,I)=INT(FNR(1)*15)+2:X=M(16,I):Y=M(17,I):GOSUB22000:IF IL<4 THEN 331
332 NEXT I
333 GOSUB 9010:GOSUB 18000:PRINT"･････ ｺｳｴｲ ﾏｲｺﾝ ｼｽﾃﾑ ｶﾞ ｵｵｸﾘ ｼﾏｽ ･････"
335 DIM A3(T1),A5(T1):FOR I=1 TO T1:A3(I)=CHR$(64+I):A5(I)=CHR$(96+I):NEXT I
340 I1=0:FOR M1=1 TO T1:GOSUB 9210:LOCATE67,I1:PRINTUSING"&&## # # ###";A3(M1);M(6,M1);M(13,M1);M(8,M1);P2:I1=I1+1
345 LOCATE M(16,M1),M(17,M1):PRINTA3(M1):GOSUB 15050:NEXT M1
350 DIM J(T1,1):FOR I=1 TO T1:J(I,1)=INT(FNR(1)*65)+1:J(I,0)=INT(FNR(1)*2)+18:NEXT I
352 TU=0:GOSUB 19000
355 TU=TU+1:FOR I=1 TO 7:H1(I)=1:NEXT I:SS=0:FOR IM=1 TO 7:IF H(14,IM)=1 THEN SS=SS+1
356 NEXT IM:IF TU>24 THEN 31000
357 GOTO 30000
359 TIME$="00:00:00":SA=0:IF H(14,1)=0 THEN28000
360 GOSUB 9050:IF TIME$>="00:02:00" THEN 500 ELSE GOSUB 9060:GOSUB 9070
370 GOSUB 9050:A="":A=INKEY$
372 IF TIME$>="00:02:00" THEN 500
375 IF A="" THEN 370
376 OUT 64,32:GOSUB 15030:OUT 64,0
377 IF A=CHR$(13) THEN 500
380 D1=VAL(A):IF D1<1 OR D1>7 THEN 370
382 IF H(14,D1)=0 THEN GOSUB 9010:BEEP:PRINT NH(D1);AA;"ｾﾝｼ":GOSUB 9040:GOTO360
384 IF H1(D1)=0 THEN GOSUB 9010:BEEP:PRINT"ALREADY DONE":GOSUB 9040:GOTO 360
385 GOSUB 9080:H1(D1)=0:A6(D1)="*"
386 GOSUB 9050:A="":A=INKEY$:IF A="" THEN 386 :ELSE OUT64,32:GOSUB 15030:OUT64,0
387 D2=VAL(A):IF A=CHR$(13) THEN 400 ELSE IF D2<1 OR D2>6 THEN 386
388 IF D1=5 THEN IF D2>=3 AND D2<=5 THEN 390 ELSE GOSUB 9010:BEEP:PRINTNH(D1);AA;BB;"ﾜﾀｼ ﾊ ﾋｾﾝﾄｳｲﾝ ﾃﾞｽ !!";BB:GOSUB 9040:GOTO 400
390 ON D2 GOSUB 1000,2000,3000,4000,5000,6000,7000
392 IF H(14,1)=0 THEN 28000
395 SA=SA+1:IF SA=SS THEN 500
400 GOSUB 9050:GOTO 360
500 GOSUB 10000
335 DIM A3(T1),A5(T1):FOR I=1 TO T1:A3(I)=CHR$(64+I):A5(I)=CHR$(96+I):NEXT I
340 I1=0:FOR M1=1 TO T1:GOSUB 9210:LOCATE67,I1:PRINTUSING"&&## # # ###";A3(M1);M(6,M1);M(13,M1);M(8,M1);P2:I1=I1+1
345 LOCATE M(16,M1),M(17,M1):PRINTA3(M1):GOSUB 15050:NEXT M1
350 DIM J(T1,1):FOR I=1 TO T1:J(I,1)=INT(FNR(1)*65)+1:J(I,0)=INT(FNR(1)*2)+18:NEXT I
352 TU=0:GOSUB 19000
355 TU=TU+1:FOR I=1 TO 7:H1(I)=1:NEXT I:SS=0:FOR IM=1 TO 7:IF H(14,IM)=1 THEN SS=SS+1
356 NEXT IM:IF TU>24 THEN 31000
357 GOTO 30000
359 TIME$="00:00:00":SA=0:IF H(14,1)=0 THEN28000
360 GOSUB 9050:IF TIME$>="00:02:00" THEN 500 ELSE GOSUB 9060:GOSUB 9070
370 GOSUB 9050:A="":A=INKEY$
372 IF TIME$>="00:02:00" THEN 500
375 IF A="" THEN 370
376 OUT 64,32:GOSUB 15030:OUT 64,0
377 IF A=CHR$(13) THEN 500
380 D1=VAL(A):IF D1<1 OR D1>7 THEN 370
382 IF H(14,D1)=0 THEN GOSUB 9010:BEEP:PRINT NH(D1);AA;"ｾﾝｼ":GOSUB 9040:GOTO360
384 IF H1(D1)=0 THEN GOSUB 9010:BEEP:PRINT"ALREADY DONE":GOSUB 9040:GOTO 360
385 GOSUB 9080:H1(D1)=0:A6(D1)="*"
386 GOSUB 9050:A="":A=INKEY$:IF A="" THEN 386 :ELSE OUT64,32:GOSUB 15030:OUT64,0
387 D2=VAL(A):IF A=CHR$(13) THEN 400 ELSE IF D2<1 OR D2>6 THEN 386
388 IF D1=5 THEN IF D2>=3 AND D2<=5 THEN 390 ELSE GOSUB 9010:BEEP:PRINTNH(D1);AA;BB;"ﾜﾀｼ ﾊ ﾋｾﾝﾄｳｲﾝ ﾃﾞｽ !!";BB:GOSUB 9040:GOTO 400
390 ON D2 GOSUB 1000,2000,3000,4000,5000,6000,7000
392 IF H(14,1)=0 THEN 28000
395 SA=SA+1:IF SA=SS THEN 500
400 GOSUB 9050:GOTO 360
500 GOSUB 10000
501 FOR I=1 TO 7:A6(I)=".":NEXT I
510 FOR I=1 TO T1
520 IF M(14,I)=0 THEN 900
525 LOCATE67,I-1:COLOR 4:PRINTA3(I):COLOR 0:D3=I
530 IF M(6,I)<6 AND M(15,I)=>1 THEN M(15,I)=M(15,I)-1:M(6,I)=M(6,I)+2:M1=I:GOSUB 9210:LOCATE76,I-1:PRINTUSING"###";P2:GOTO 900
535 IF M(6,I)<6 AND M(15,I)<1 THEN 900
540 IF M(11,I)=0 AND M(9,I)>=M(10,I) THEN M(9,I)=M(9,I)-M(10,I):M(11,I)=M(10,I):GOTO 900
545 IF M(11,I)=0 AND M(9,I)=0 THEN 900
550 M1=I:KA=5:KK=0:FOR I0=1 TO 7:H1=I0:GOSUB9300:IF KR<=5 THEN IF KA>=KR THEN KK=I0:KA=KR
560 NEXT I0:IF KK=0 THEN700
565 '
566 '
570 KR=KA:H1=KK:GOSUB 9200:GOSUB 9210:GOSUB9010:PRINTA3(I);"/";:COLOR4:PRINTN1(H1);:COLOR0:PRINTNH(H1);"=";P2;"/";P1;AA;AA;"ｷｮﾘ=";KR;AA;
AA;"RATE=";:D1=KK:D3=I: GOSUB9330:GOSUB 9340:GOSUB 10010:PRINTI9;AA;AA;"% / %=";
575 GOSUB 9400:GOSUB 9500:PRINTP5;"/";P4:GOSUB 9040:GOSUB 1205
580 H(2,H1)=H(2,H1)+1:M(2,I)=M(2,I)+1:D=INT(RND(1)*100)+1:D8=0:FOR I1=1 TO 7:D8=D(I1)+D8:IF D<D8 THEN 600
590 NEXT I1
600 IF M(13,I)=3 THEN GOSUB 9010:PRINT"ﾀﾞ ﾀﾞ ﾀﾞ ﾀﾞ ﾀﾞ":GOSUB 15000:GOSUB 9044 :M(11,I)=M(11,I)-5 ELSE GOSUB 9010:PRINT"ﾊﾞｷｭｰｰﾝ":GOSUB15020 :GOSUB 9044:M(11,I)=M(11,I)-1
605 IF P5<INT(RND(1)*100)+1 THEN 630
610 IF I1=1 THEN H(14,H1)=0:GOSUB 9010:BEEP:PRINTNH(H1);AA;BB;"ﾔﾗﾚ ﾏｼﾀ....ﾊﾞﾀﾝ":X=H(16,H1):Y=H(17,H1):GOSUB 22000:GOSUB 23000:GOSUB 9320:H(16,H1)=1000:H(17,H1)=1000:M(4,I)=M(4,I)+20:GOSUB 9040:GOTO640
615 IF I1=1 AND H1=1 THEN 28000
620 IF I1=2 THEN BEEP: H(6,H1)=H(6,H1)-5:H(4,H1)=H(4,H1)-10:H(3,H1)=H(3,H1)-5:H(5,H1)=H(5,H1)-5:M(4,I)=M(4,I)+10:GOSUB 9010:PRINTNH(H1
);AA;BB;A7(INT(RND(1)+.5));A8(INT(RND(1)*6+1));"ｦ ｳﾀﾚﾀ｡｡｡｡｡｡｡ｲﾃﾃﾃﾃﾃﾃ";BB:GOSUB 9040:GOSUB 9320:GOTO 640
625 IF I1=3 THEN BEEP:H(6,H1)=H(6,H1)-2:H(4,H1)=H(4,H1)-5:H(3,H1)=H(3,H1)-2:H(5,H1)=H(5,H1)-2:M(4,I)=M(4,I)+5:GOSUB 9010:PRINTNH(H1);AA
;BB;"ｲﾀｲ･････ ｶｽﾘｷｽﾞﾀﾞ";BB:GOSUB 9040:GOSUB 9320:GOTO 640
510 FOR I=1 TO T1
520 IF M(14,I)=0 THEN 900
525 LOCATE67,I-1:COLOR 4:PRINTA3(I):COLOR 0:D3=I
530 IF M(6,I)<6 AND M(15,I)=>1 THEN M(15,I)=M(15,I)-1:M(6,I)=M(6,I)+2:M1=I:GOSUB 9210:LOCATE76,I-1:PRINTUSING"###";P2:GOTO 900
535 IF M(6,I)<6 AND M(15,I)<1 THEN 900
540 IF M(11,I)=0 AND M(9,I)>=M(10,I) THEN M(9,I)=M(9,I)-M(10,I):M(11,I)=M(10,I):GOTO 900
545 IF M(11,I)=0 AND M(9,I)=0 THEN 900
550 M1=I:KA=5:KK=0:FOR I0=1 TO 7:H1=I0:GOSUB9300:IF KR<=5 THEN IF KA>=KR THEN KK=I0:KA=KR
560 NEXT I0:IF KK=0 THEN700
565 '
566 '
570 KR=KA:H1=KK:GOSUB 9200:GOSUB 9210:GOSUB9010:PRINTA3(I);"/";:COLOR4:PRINTN1(H1);:COLOR0:PRINTNH(H1);"=";P2;"/";P1;AA;AA;"ｷｮﾘ=";KR;AA;
AA;"RATE=";:D1=KK:D3=I: GOSUB9330:GOSUB 9340:GOSUB 10010:PRINTI9;AA;AA;"% / %=";
575 GOSUB 9400:GOSUB 9500:PRINTP5;"/";P4:GOSUB 9040:GOSUB 1205
580 H(2,H1)=H(2,H1)+1:M(2,I)=M(2,I)+1:D=INT(RND(1)*100)+1:D8=0:FOR I1=1 TO 7:D8=D(I1)+D8:IF D<D8 THEN 600
590 NEXT I1
600 IF M(13,I)=3 THEN GOSUB 9010:PRINT"ﾀﾞ ﾀﾞ ﾀﾞ ﾀﾞ ﾀﾞ":GOSUB 15000:GOSUB 9044 :M(11,I)=M(11,I)-5 ELSE GOSUB 9010:PRINT"ﾊﾞｷｭｰｰﾝ":GOSUB15020 :GOSUB 9044:M(11,I)=M(11,I)-1
605 IF P5<INT(RND(1)*100)+1 THEN 630
610 IF I1=1 THEN H(14,H1)=0:GOSUB 9010:BEEP:PRINTNH(H1);AA;BB;"ﾔﾗﾚ ﾏｼﾀ....ﾊﾞﾀﾝ":X=H(16,H1):Y=H(17,H1):GOSUB 22000:GOSUB 23000:GOSUB 9320:H(16,H1)=1000:H(17,H1)=1000:M(4,I)=M(4,I)+20:GOSUB 9040:GOTO640
615 IF I1=1 AND H1=1 THEN 28000
620 IF I1=2 THEN BEEP: H(6,H1)=H(6,H1)-5:H(4,H1)=H(4,H1)-10:H(3,H1)=H(3,H1)-5:H(5,H1)=H(5,H1)-5:M(4,I)=M(4,I)+10:GOSUB 9010:PRINTNH(H1
);AA;BB;A7(INT(RND(1)+.5));A8(INT(RND(1)*6+1));"ｦ ｳﾀﾚﾀ｡｡｡｡｡｡｡ｲﾃﾃﾃﾃﾃﾃ";BB:GOSUB 9040:GOSUB 9320:GOTO 640
625 IF I1=3 THEN BEEP:H(6,H1)=H(6,H1)-2:H(4,H1)=H(4,H1)-5:H(3,H1)=H(3,H1)-2:H(5,H1)=H(5,H1)-2:M(4,I)=M(4,I)+5:GOSUB 9010:PRINTNH(H1);AA
;BB;"ｲﾀｲ･････ ｶｽﾘｷｽﾞﾀﾞ";BB:GOSUB 9040:GOSUB 9320:GOTO 640
630 GOSUB 16000:IF H1=5 THEN 640
631 IF H(11,H1)=0 THEN GOSUB 9010:PRINTNH(H1);AA;BB;"ﾊﾝｹﾞｷｼﾀｲｶﾞ ﾀﾏｷﾞﾚﾀﾞ ..... ﾏｯﾀｸ ﾓｳ";BB:GOSUB 9040:GOTO 640
632 IF H(14,H1)=0 OR H(6,H1)<6 THEN 640
633 GOSUB 9010:COLOR4:PRINTN1(H1);:COLOR0:PRINTNH(H1);" ﾉ ﾊﾝｹﾞｷ";" ......";:IF H(13,H1)=3 THEN H(11,H1)=H(11,H1)-5:PRINT"ﾀﾞ ﾀﾞ ﾀﾞ ﾀﾞ ﾀﾞ"
:GOSUB 15000:GOSUB 9044 ELSE H(11,H1)=H(11,H1)-1:PRINT "ﾊﾞｷｭｰｰﾝ":GOSUB15020:GOSUB9044
634 IF P4<INT(RND(1)*100)+1 THEN638
635 IF I1=5 THEN H(4,H1)=H(4,H1)+5:M(6,I)=M(6,I)-2:M(4,I)=M(4,I)-5:M(3,I)=M(3,I)-2:M(5,I)=M(5,I)-2:GOSUB 9320:GOSUB 9010:PRINT NH(H1);A
A;BB;" ｱﾀｯﾀ･･････ ｼｶｼ ﾃｷ ﾊ ｶｽﾘｷｽﾞｶ";BB:GOSUB 9044:GOTO 640
636 IF I1=6 THEN H(4,H1)=H(4,H1)+10:M(6,I)=M(6,I)-5:M(4,I)=M(4,I)-10:M(3,I)=M(3,I)-5:M(5,I)=M(5,I)-5:GOSUB 9320:GOSUB 9010:PRINT NH(H1)
;AA;BB;"ﾃｷﾉ";A7(INT(RND(1)+.5));A8(INT(RND(1)*6+1));"ｦ ｳﾁﾇｷﾏｼﾀ----";BB:GOSUB 9044:GOTO 640
637 IF I1=7 THEN H(4,H1)=H(4,H1)+20:M(14,I)=0:GOSUB 9320:GOSUB 9010:PRINT NH(D1);AA;BB;" ﾔｯﾀｰ ﾃｷｦ ﾀｵｼﾏｼﾀ ";BB:GOSUB 9044:GOTO 640
638 GOSUB 9010:PRINT"･････････ ････ ･･ ･":GOSUB 9044
640 IF H(6,H1)<1 THEN GOSUB 9010:BEEP:PRINTNH(H1);AA;"ｷｽﾞ ｶﾞ ｵｵｸ ｾﾝｼ":GOSUB 9044:H(14,H1)=0:X=H(16,H1):Y=H(17,H1):GOSUB 22000:GOSUB
23000:H(16,H1)=1000:H(17,H1)=1000
645 GOSUB 19000
650 GOTO900
631 IF H(11,H1)=0 THEN GOSUB 9010:PRINTNH(H1);AA;BB;"ﾊﾝｹﾞｷｼﾀｲｶﾞ ﾀﾏｷﾞﾚﾀﾞ ..... ﾏｯﾀｸ ﾓｳ";BB:GOSUB 9040:GOTO 640
632 IF H(14,H1)=0 OR H(6,H1)<6 THEN 640
633 GOSUB 9010:COLOR4:PRINTN1(H1);:COLOR0:PRINTNH(H1);" ﾉ ﾊﾝｹﾞｷ";" ......";:IF H(13,H1)=3 THEN H(11,H1)=H(11,H1)-5:PRINT"ﾀﾞ ﾀﾞ ﾀﾞ ﾀﾞ ﾀﾞ"
:GOSUB 15000:GOSUB 9044 ELSE H(11,H1)=H(11,H1)-1:PRINT "ﾊﾞｷｭｰｰﾝ":GOSUB15020:GOSUB9044
634 IF P4<INT(RND(1)*100)+1 THEN638
635 IF I1=5 THEN H(4,H1)=H(4,H1)+5:M(6,I)=M(6,I)-2:M(4,I)=M(4,I)-5:M(3,I)=M(3,I)-2:M(5,I)=M(5,I)-2:GOSUB 9320:GOSUB 9010:PRINT NH(H1);A
A;BB;" ｱﾀｯﾀ･･････ ｼｶｼ ﾃｷ ﾊ ｶｽﾘｷｽﾞｶ";BB:GOSUB 9044:GOTO 640
636 IF I1=6 THEN H(4,H1)=H(4,H1)+10:M(6,I)=M(6,I)-5:M(4,I)=M(4,I)-10:M(3,I)=M(3,I)-5:M(5,I)=M(5,I)-5:GOSUB 9320:GOSUB 9010:PRINT NH(H1)
;AA;BB;"ﾃｷﾉ";A7(INT(RND(1)+.5));A8(INT(RND(1)*6+1));"ｦ ｳﾁﾇｷﾏｼﾀ----";BB:GOSUB 9044:GOTO 640
637 IF I1=7 THEN H(4,H1)=H(4,H1)+20:M(14,I)=0:GOSUB 9320:GOSUB 9010:PRINT NH(D1);AA;BB;" ﾔｯﾀｰ ﾃｷｦ ﾀｵｼﾏｼﾀ ";BB:GOSUB 9044:GOTO 640
638 GOSUB 9010:PRINT"･････････ ････ ･･ ･":GOSUB 9044
640 IF H(6,H1)<1 THEN GOSUB 9010:BEEP:PRINTNH(H1);AA;"ｷｽﾞ ｶﾞ ｵｵｸ ｾﾝｼ":GOSUB 9044:H(14,H1)=0:X=H(16,H1):Y=H(17,H1):GOSUB 22000:GOSUB
23000:H(16,H1)=1000:H(17,H1)=1000
645 GOSUB 19000
650 GOTO900
700 '
702 IF M(8,I)<=2 THEN 900
705 FOR R=1 TO 2:IF M(8,I)<=2 THEN 850
707 IF M(17,I)>H(17,1) THEN 708 ELSE 710
708 IF ABS(M(17,I)-M(17,1))<4 THEN 710 ELSE 750
710 IF ABS(M(16,I)-H(16,1))<4 THEN 750
720 IF M(16,I)>H(16,1) THEN IR=-1 ELSE IR=1
722 X=M(16,I):Y=M(17,I):IL=M(8,I):GOSUB 23000
725 X=M(16,I)+IR:Y=M(17,I):GOSUB 21000
730 IF YX=1 THEN Y=Y+1:GOSUB 21000 ELSE 735
731 IF YX=1 THEN Y=Y-2
735 GOSUB 26000:GOSUB18000:LOCATEX,Y:PRINTA3(I)
736 GOTO 850
750 IF ABS(M(17,I)-H(17,1))<3 THEN 850
760 IF M(17,I)>H(17,1) THEN IR=-1 ELSE IR=1
765 X=M(16,I):Y=M(17,I): GOSUB 22000:GOSUB 23000
770 X=M(16,I):Y=M(17,I)+IR:GOSUB 21000
780 IF YX=1 THEN X=X+1:GOSUB 21000 ELSE 790
785 IF YX=1 THEN X=X-2
790 GOSUB 26000:GOSUB18000: LOCATEX,Y:PRINTA3(I)
850 NEXT R
702 IF M(8,I)<=2 THEN 900
705 FOR R=1 TO 2:IF M(8,I)<=2 THEN 850
707 IF M(17,I)>H(17,1) THEN 708 ELSE 710
708 IF ABS(M(17,I)-M(17,1))<4 THEN 710 ELSE 750
710 IF ABS(M(16,I)-H(16,1))<4 THEN 750
720 IF M(16,I)>H(16,1) THEN IR=-1 ELSE IR=1
722 X=M(16,I):Y=M(17,I):IL=M(8,I):GOSUB 23000
725 X=M(16,I)+IR:Y=M(17,I):GOSUB 21000
730 IF YX=1 THEN Y=Y+1:GOSUB 21000 ELSE 735
731 IF YX=1 THEN Y=Y-2
735 GOSUB 26000:GOSUB18000:LOCATEX,Y:PRINTA3(I)
736 GOTO 850
750 IF ABS(M(17,I)-H(17,1))<3 THEN 850
760 IF M(17,I)>H(17,1) THEN IR=-1 ELSE IR=1
765 X=M(16,I):Y=M(17,I): GOSUB 22000:GOSUB 23000
770 X=M(16,I):Y=M(17,I)+IR:GOSUB 21000
780 IF YX=1 THEN X=X+1:GOSUB 21000 ELSE 790
785 IF YX=1 THEN X=X-2
790 GOSUB 26000:GOSUB18000: LOCATEX,Y:PRINTA3(I)
850 NEXT R
900 M1=I:D3=I:COLOR0:GOSUB11000:OUT64,32:OUT64,0:GOSUB10000:NEXTI:GOTO355
1000 GOSUB 9050:IF H(6,D1)<6 THEN GOSUB 9010:BEEP:PRINTNH(D1);AA;BB;"ｷｽﾞ ｶﾞ ﾋﾄﾞｸﾃ ｳﾃﾏｾﾝ !!";BB:GOSUB9040:RETURN
1010 GOSUB 9050:IF H(11,D1)<1 THEN GOSUB 9010:BEEP:PRINTNH(D1);AA;BB;"ｳﾜｰ ﾀﾏｷﾞﾚﾀﾞｰ";BB:GOSUB 9040:RETURN
1020 GOSUB 9050:IF TIME$>"00:03:00" THEN GOSUB 9010:BEEP:PRINT"TIME OVER":GOSUB 9040:RETURN
1030 GOSUB 9050:GOSUB 9010:PRINT"WHO ? "
1040 GOSUB 9050:A="":A=INKEY$:IF A="" THEN 1040 ELSE OUT64,32:GOSUB 15030:OUT 64,0
1050 FOR I=1 TO T1:IF A=A5(I) THEN D3=I:M1=D3:IF M(14,D3)=0 THEN 1425 ELSE COLOR4:GOSUB 11000:GOTO 1100
1060 GOSUB 9050:NEXT I:GOTO 1040
1100 GOSUB 9050:GOSUB 9010:H1=D1:M1=D3:GOSUB 9200:GOSUB 9210
1110 GOSUB 9050:GOSUB 9010:PRINT"POINT";AA;:COLOR4:PRINTN1(D1);:COLOR0:PRINTNH(D1);"/";A3(D3);"=";P1;"/";P2;:GOSUB9300:PRINTAA;"ｷｮﾘ=";KR
;
1120 GOSUB 9330:GOSUB 9340:GOSUB 9310:PRINTAA;"RATE=";I9;AA;AA;"% / % =";:GOSUB 9400:GOSUB 9500:PRINTP4;"/";P5
1125 IF KR>5 THEN BEEP:GOSUB 9010:PRINT"ｼｬﾃｲ ｷｮﾘ ｶﾞｲ ﾃﾞｽ":GOSUB 9040:COLOR0:GOSUB11000:RETURN
1130 GOSUB 9050:A="":A=INKEY$:IF A="" THEN 1130
1140 IF A=CHR$(13) THEN 1200
1150 IF A=" " THEN 1425 ELSE GOTO 1130
1000 GOSUB 9050:IF H(6,D1)<6 THEN GOSUB 9010:BEEP:PRINTNH(D1);AA;BB;"ｷｽﾞ ｶﾞ ﾋﾄﾞｸﾃ ｳﾃﾏｾﾝ !!";BB:GOSUB9040:RETURN
1010 GOSUB 9050:IF H(11,D1)<1 THEN GOSUB 9010:BEEP:PRINTNH(D1);AA;BB;"ｳﾜｰ ﾀﾏｷﾞﾚﾀﾞｰ";BB:GOSUB 9040:RETURN
1020 GOSUB 9050:IF TIME$>"00:03:00" THEN GOSUB 9010:BEEP:PRINT"TIME OVER":GOSUB 9040:RETURN
1030 GOSUB 9050:GOSUB 9010:PRINT"WHO ? "
1040 GOSUB 9050:A="":A=INKEY$:IF A="" THEN 1040 ELSE OUT64,32:GOSUB 15030:OUT 64,0
1050 FOR I=1 TO T1:IF A=A5(I) THEN D3=I:M1=D3:IF M(14,D3)=0 THEN 1425 ELSE COLOR4:GOSUB 11000:GOTO 1100
1060 GOSUB 9050:NEXT I:GOTO 1040
1100 GOSUB 9050:GOSUB 9010:H1=D1:M1=D3:GOSUB 9200:GOSUB 9210
1110 GOSUB 9050:GOSUB 9010:PRINT"POINT";AA;:COLOR4:PRINTN1(D1);:COLOR0:PRINTNH(D1);"/";A3(D3);"=";P1;"/";P2;:GOSUB9300:PRINTAA;"ｷｮﾘ=";KR
;
1120 GOSUB 9330:GOSUB 9340:GOSUB 9310:PRINTAA;"RATE=";I9;AA;AA;"% / % =";:GOSUB 9400:GOSUB 9500:PRINTP4;"/";P5
1125 IF KR>5 THEN BEEP:GOSUB 9010:PRINT"ｼｬﾃｲ ｷｮﾘ ｶﾞｲ ﾃﾞｽ":GOSUB 9040:COLOR0:GOSUB11000:RETURN
1130 GOSUB 9050:A="":A=INKEY$:IF A="" THEN 1130
1140 IF A=CHR$(13) THEN 1200
1150 IF A=" " THEN 1425 ELSE GOTO 1130
何がしたいのかは聞かんが、TEXTファイルでアップしたが速いのでは?
1200 '
1202 GOSUB 1205:GOTO 1320
1205 I7=1
1210 IF KR<2 THEN I7=2
1220 IF I9=1 THEN RESTORE 1900:FOR U=1 TO 7:READ D:D(U)=D:NEXT U:GOTO 1310
1230 IF I9=2 THEN RESTORE 1910:FOR U=1 TO 7:READ D:D(U)=D:NEXT U:GOTO 1310
1240 IF I9=3 THEN RESTORE 1920:FOR U=1 TO 7:READ D:D(U)=D:NEXT U:GOTO 1310
1250 IF I9=4 THEN RESTORE 1930:FOR U=1 TO 7:READ D:D(U)=D:NEXT U:GOTO 1310
1260 IF I9=5 THEN RESTORE 1940:FOR U=1 TO 7:READ D:D(U)=D:NEXT U:GOTO 1310
1270 IF I9=6 THEN RESTORE 1950:FOR U=1 TO 7:READ D:D(U)=D:NEXT U:GOTO 1310
1280 IF I9=7 THEN RESTORE 1960:FOR U=1 TO 7:READ D:D(U)=D:NEXT U:GOTO 1310
1290 IF I9=8 THEN RESTORE 1970:FOR U=1 TO 7:READ D:D(U)=D:NEXT U:GOTO 1310
1300 IF I9=9 THEN RESTORE 1980:FOR U=1 TO 7:READ D:D(U)=D:NEXT U:GOTO 1310
1310 RETURN
1320 FOR I=1 TO I7:H(2,D1)=H(2,D1)+1:M(2,D3)=M(2,D3)+1:D=INT(RND(1)*100)+1:D8=0:FOR I1=1 TO 7:D8=D(I1)+D8:IF D<=D8 THEN 1340
1330 NEXT I1
1340 IF H(11,D1)=0 THEN GOSUB 9010:PRINTNH(D1);AA;BB;"ﾀﾏｶﾞ ﾓｳ ｱﾘﾏｾﾝ!!";BB:GOSUB 9040:GOSUB9360:GOTO1425
1345 IF H(13,D1)=3 THEN GOSUB 9010:PRINT"ﾀﾞ ﾀﾞ ﾀﾞ ﾀﾞ ﾀﾞ":H(11,D1)=H(11,D1)-5 :GOSUB 15000 :GOSUB 9043 ELSE GOSUB 9010:PRINT"ﾊﾞｷｭｰｰﾝ":
H(11,D1)=H(11,D1)-1:GOSUB 15020:GOSUB 9043
1346 IF INT(RND(1)*100)+1>P4 THEN GOSUB 9600:GOTO 1380
1350 IF I1=1 THEN M(14,D3)=0:GOSUB 9050:GOSUB9010:PRINTNH(D1);AA;BB;"ﾒｲﾁｭｳ ﾀﾞ ﾄﾞｲﾂﾍｲ ｶﾞ ﾀｵﾚﾀｿﾞ";BB:LOCATE67,D3-1:PRINTSPACE$(12):GOSUB
9900:H(4,D1)=H(4,D1)+20:GOSUB 9040:GOSUB9320:GOTO 1425
1360 IF I1=2 THEN M(6,D3)=M(6,D3)-5:M(4,D3)=M(4,D3)-10:M(3,D3)=M(3,D3)-5:M(5,D3)=M(5,D3)-5:H(4,D1)=H(4,D1)+10:GOSUB 9010:PRINTNH(D1);AA;
BB"ｱﾀｯﾀ ﾖｳﾀﾞ｡ ﾃｷ ﾊ ";A7(INT(RND(1)+.5));A8(INT(RND(1)*6+1));" ｦ ｵｻｴ ﾃﾙｿﾞ";BB:GOSUB9040:GOSUB 9320:GOSUB9360:GOTO 1425
1370 IF I1=3 THEN M(6,D3)=M(6,D3)-2:M(4,D3)=M(4,D3)-5:M(3,D3)=M(3,D3)-2:M(5,D3)=M(5,D3)-2:H(4,D1)=H(4,D1)+5:GOSUB 9010:PRINTNH(D1);AA;BB
;"ｳﾝ ? ﾃｺﾞﾀｴ ｱｯﾀｿﾞ... ";BB:GOSUB 9040:GOSUB 9320:GOSUB9360:GOTO 1425
1376 GOSUB 16000
1202 GOSUB 1205:GOTO 1320
1205 I7=1
1210 IF KR<2 THEN I7=2
1220 IF I9=1 THEN RESTORE 1900:FOR U=1 TO 7:READ D:D(U)=D:NEXT U:GOTO 1310
1230 IF I9=2 THEN RESTORE 1910:FOR U=1 TO 7:READ D:D(U)=D:NEXT U:GOTO 1310
1240 IF I9=3 THEN RESTORE 1920:FOR U=1 TO 7:READ D:D(U)=D:NEXT U:GOTO 1310
1250 IF I9=4 THEN RESTORE 1930:FOR U=1 TO 7:READ D:D(U)=D:NEXT U:GOTO 1310
1260 IF I9=5 THEN RESTORE 1940:FOR U=1 TO 7:READ D:D(U)=D:NEXT U:GOTO 1310
1270 IF I9=6 THEN RESTORE 1950:FOR U=1 TO 7:READ D:D(U)=D:NEXT U:GOTO 1310
1280 IF I9=7 THEN RESTORE 1960:FOR U=1 TO 7:READ D:D(U)=D:NEXT U:GOTO 1310
1290 IF I9=8 THEN RESTORE 1970:FOR U=1 TO 7:READ D:D(U)=D:NEXT U:GOTO 1310
1300 IF I9=9 THEN RESTORE 1980:FOR U=1 TO 7:READ D:D(U)=D:NEXT U:GOTO 1310
1310 RETURN
1320 FOR I=1 TO I7:H(2,D1)=H(2,D1)+1:M(2,D3)=M(2,D3)+1:D=INT(RND(1)*100)+1:D8=0:FOR I1=1 TO 7:D8=D(I1)+D8:IF D<=D8 THEN 1340
1330 NEXT I1
1340 IF H(11,D1)=0 THEN GOSUB 9010:PRINTNH(D1);AA;BB;"ﾀﾏｶﾞ ﾓｳ ｱﾘﾏｾﾝ!!";BB:GOSUB 9040:GOSUB9360:GOTO1425
1345 IF H(13,D1)=3 THEN GOSUB 9010:PRINT"ﾀﾞ ﾀﾞ ﾀﾞ ﾀﾞ ﾀﾞ":H(11,D1)=H(11,D1)-5 :GOSUB 15000 :GOSUB 9043 ELSE GOSUB 9010:PRINT"ﾊﾞｷｭｰｰﾝ":
H(11,D1)=H(11,D1)-1:GOSUB 15020:GOSUB 9043
1346 IF INT(RND(1)*100)+1>P4 THEN GOSUB 9600:GOTO 1380
1350 IF I1=1 THEN M(14,D3)=0:GOSUB 9050:GOSUB9010:PRINTNH(D1);AA;BB;"ﾒｲﾁｭｳ ﾀﾞ ﾄﾞｲﾂﾍｲ ｶﾞ ﾀｵﾚﾀｿﾞ";BB:LOCATE67,D3-1:PRINTSPACE$(12):GOSUB
9900:H(4,D1)=H(4,D1)+20:GOSUB 9040:GOSUB9320:GOTO 1425
1360 IF I1=2 THEN M(6,D3)=M(6,D3)-5:M(4,D3)=M(4,D3)-10:M(3,D3)=M(3,D3)-5:M(5,D3)=M(5,D3)-5:H(4,D1)=H(4,D1)+10:GOSUB 9010:PRINTNH(D1);AA;
BB"ｱﾀｯﾀ ﾖｳﾀﾞ｡ ﾃｷ ﾊ ";A7(INT(RND(1)+.5));A8(INT(RND(1)*6+1));" ｦ ｵｻｴ ﾃﾙｿﾞ";BB:GOSUB9040:GOSUB 9320:GOSUB9360:GOTO 1425
1370 IF I1=3 THEN M(6,D3)=M(6,D3)-2:M(4,D3)=M(4,D3)-5:M(3,D3)=M(3,D3)-2:M(5,D3)=M(5,D3)-2:H(4,D1)=H(4,D1)+5:GOSUB 9010:PRINTNH(D1);AA;BB
;"ｳﾝ ? ﾃｺﾞﾀｴ ｱｯﾀｿﾞ... ";BB:GOSUB 9040:GOSUB 9320:GOSUB9360:GOTO 1425
1376 GOSUB 16000
496 ：名無しさんの野望：03/10/27 22:02 ID:biOqgdTH
なんだこりゃ。
晒しage
晒しage
497 ：名無しさんの野望：03/10/27 22:04 ID:rltBovmP
まだ〜？
>>457
SCHWERPUNKT PC Software for the Serious Historian-War Gamer
ttp://www.ghg.net/schwerpt/
Schwerpunkt - Russo-German War Screen Shots
ttp://www.ghg.net/schwerpt/rgwshots.htm
これのことでしょ
Storm in the West ってどうなんだろ？
SCHWERPUNKT PC Software for the Serious Historian-War Gamer
ttp://www.ghg.net/schwerpt/
Schwerpunkt - Russo-German War Screen Shots
ttp://www.ghg.net/schwerpt/rgwshots.htm
これのことでしょ
Storm in the West ってどうなんだろ？
最近の割れはソースまで割るのか？
N-BASIC にソースという概念は無いのだよ…
しかし今思えば Pentium の L1キャッシュに全部収まってしまうサイズのプログラムだよな
しかし今思えば Pentium の L1キャッシュに全部収まってしまうサイズのプログラムだよな
10 '**********************
11 '* combat Ver 1.2 *
12 '* for PC-8001 *
13 '* copyright by *
14 '* koei micom system *
15 '* 1982,4,25 Y.E *
16 '**********************
光栄ってしかも1982
すげぇ古っ
11 '* combat Ver 1.2 *
12 '* for PC-8001 *
13 '* copyright by *
14 '* koei micom system *
15 '* 1982,4,25 Y.E *
16 '**********************
光栄ってしかも1982
すげぇ古っ
ID:Yv2hw7sF氏とお友達になりたいな（ｗ
>>501 >すげぇ古っ
俺らにはついこの前の様に感じるが?
>koei micom system
で思い出した
マイコンの語源が、my computer なのか micro compute なのか力説していた香具師がいた・・・
当時のNHK教育だったと思う
俺らにはついこの前の様に感じるが?
>koei micom system
で思い出した
マイコンの語源が、my computer なのか micro compute なのか力説していた香具師がいた・・・
当時のNHK教育だったと思う