ウイルスの感染シミュレータ 12
説明
ウイルスのかんせん 改訂版
機種 : IchigoJam BASIC Web 1.4.3 web
・内容
新型コロナウイルスの かんせんを 見ることができます
その日までの かんせん者数の合計が 画面の右にでます
かんせんの しかたがわかれば
かんせんのよぼうに やくにたちます
・遊びかた
プログラムは FILES が
0
1 ‘F1_ウイルス
2 ‘F2_ウゴク
3 ‘F3_カンセン
になるように ロードして F1_ウイルスを RUN します
人口40人の 小さな村で ウイルスのかんせんが おこります
はじめの かんせんしゃの数を 入力すれば
あとはじどうです クラスターなどを かんさつできます
20日がたつと じどうてきに とまります
・もっと改造するには
人口は 40人までです
そのはんい内なら かえられます
プログラムは LRUN めいれいを使って
3つのファイル（F1 F2 F3）がきょうりょくして うごきます
あいている F0 に はたらきを ついかできます
・プログラム 改訂版
20日分のデータを 表示するようにしました
20日たつと プログラムを 自動停止します
F1_ウイルス
100 ‘F1_ｳｲﾙｽ 2021.2.3 完成
110 CLS :OK2 :CLV
120 CLV :N=0 :P=0 :C=0
130 GSB 330
140 GSB 380
160 WAIT 50
162 'LC8,3 :?"ｳｲﾙｽ"
164 'LC6,4 :?"ｶﾝｾﾝ"
170 LC 9,10 :?" ";
180 FOR J=1 TO 40
190 IF J>(40-P) [J+40]=22
210 X=RND(18)+2 :Y=RND(18)+2
220 V=VPEEK(X,Y)
230 IF V<>0 GOTO 210
240 G=[J+40]
250 LC X,Y :?CHR$(G)
260 IF G=22 BEEP
270 WAIT 25
280 D=100*X+Y
290 [J]=D
300 NEXT
310 LC0,22
320 LRUN2
325 END
330 REM_ﾊｼﾞﾒ
340 FOR J=41 TO 80
350 [J]=J+24
360 NEXT
370 RTN
380 REM_ﾜｸ
390 DRAW 0,0,42,0
400 DRAW 0,42,42,42
410 DRAW 42,0,42,42
420 DRAW 0,0,0,42
422 LC 8,3 :?" "
424 LC6,4 :?" "
430 LC 0,22 :?" VIRUS "
440 LC 23,0 :?"ﾋﾆﾁ"
450 LC 9,10 :INPUT"ｶﾝｾﾝ? ",P
460 LC 27,0:?"ｶﾝｾﾝ"
470 LC 23,1:?"--------"
480 LC 24,2 :?C
490 LC 28,2 :?P
510 RTN
520 '
540 'F1_ｳｲﾙｽ
F2_ウゴク
100 ‘F2_ｳｺﾞｸ 2021.2.3 完成
110 LC 0,22:?" MOVE "
130 FOR J=1 TO 40
140 GSB 360:'decode
150 LC X,Y :?" "
160 K=J+40
170 G=[K]
180 [0]=[J]
190 GSB 560
200 M=RND(8)+1
210 IF M=1 [J]=[81]
220 IF M=2 [J]=[82]
230 IF M=3 [J]=[83]
240 IF M=4 [J]=[84]
250 IF M=5 [J]=[85]
260 IF M=6 [J]=[86]
270 IF M=8 [J]=[88]
280 E=[J]
290 A=E/100 :B=E-(100*A)
300 LC A,B : ? CHR$(G)
310 NEXT
320 '
330 LC 0,22
340 LRUN3
350 END
360 REM_ﾃﾞｺｰﾄﾞ
370 D=[J]
380 IF D>0 S=22
390 IF D<0 S=64 :D=D*(-1)
410 X=D/100 :Y=D-(X*100)
420 RTN
430 REM_ｶｷｶｴ
440 D=(A*100)+B
450 IF S=64 D=D*(-1)
460 [J]=D
470 RTN
480 REM_ﾁｮｳｾｲ
490 IF A>19 A=19
500 IF A<2 A=2
510 IF B>19 B=19
520 IF B<2 B=2
530 E=(A*100+B)
540 IF SCR(A,B)<>0 E=[0]
550 RTN
560 REM
570 A=X:B=Y-1:GSB 480:[81]=E
580 A=X+1:B=Y-1:GSB 480:[82]=E
590 A=X+1:B=Y:GSB 480:[83]=E
600 A=X+1:B=Y+1:GSB 480:[84]=E
610 A=X:B=Y+1:GSB 480:[85]=E
620 A=X-1:B=Y+1:GSB 480:[86]=E
630 A=X-1:B=Y:GSB 480:[87]=E
640 A=X-1:B=Y-1:GSB 480:[88]=E
650 RTN
F3_カンセン
110 LC 0,22 :?"KANSEN “; 2021.2.3 完成
130 FOR K=41 TO 80
140 G=[K]
150 IF G=22 GOSUB 230
160 NEXT
170 C=C+1
180 GSB 470
185 IF C=20 THEN GOTO 215
190 WAIT 200
200 LC 0,22
210 LRUN2
212 VIDEO1 :' fordebug
215 LC 17,22:?"End";:STOP
220 END
230 REM
240 J=K-40 :D=[J]
250 X=D/100 :Y=D-(X*100)
260 A=X :B=Y-1
270 E=SCR(A,B)
280 IF 64
