ウイルス感染シミュレータ 5

プログラム F1

100 'F1_VIRUS V.6.2　Beta
110 CLS :OK2 :CLV :N=0 :P=0 :C=0
115 GSB 440
120 GSB 500
230 LC 27,12 :?P
240 WAIT 50
250 LC 9,10 :?" ";
260 '
280 FOR J=1 TO 40
290 IF J>(40-P) [J+40]=22
300 ' IF J<(41-P) [J]=J+24
310 X=RND(18)+2 :Y=RND(18)+2
320 V=VPEEK(X,Y)
330 IF V<>0 GOTO 310
350 G=[J+40]
360 LC X,Y :?CHR$(G)
370 WAIT 25
390 D=100*X+Y
410 [J]=D
420 NEXT
425 LC0,22
430 LRUN2
435 '
440 REM_INIT
450 FOR J=41 TO 80
460 [J]=J+24
465 NEXT
470 RTN
480 '
500 REM_FRAME and DISP
520 DRAW 0,0,42,0
530 DRAW 0,42,42,42
540 DRAW 42,0,42,42
550 DRAW 0,0,0,42
560 LC 23,1 :?"F1_VIRUS"
570 LC 23,20 :?"positive"
580 LC 26,19 :? CHR$(22);
590 LC 23,10 :?"DAY";
600 LC 27,10 :?C;
610 LC 9,10 :INPUT"P? ",P
620 LC 23,12:?"PTV";
630 LC 0,22
635 RTN
637 '
640 LRUN2
900 ‘F1_VIRUS