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

F2_MOVE

100 ‘F2_MOVE_6.8
110 LC 23,1:?"F2_MOVE ";
150 FOR J=1 TO 40
160 GSB 420:'decode
172 LC X,Y :?" "
174 K=J+40
176 G=[K]
180 [0]=[J]
190 GSB 680 :' move to
200 ' GSB 550 'dec
260 M=RND(8)+1:LC24,6:?M
270 '
271 IF M=1 [J]=[81]
272 IF M=2 [J]=[82]
273 IF M=3 [J]=[83]
274 IF M=4 [J]=[84]
275 IF M=5 [J]=[85]
276 IF M=6 [J]=[86]
278 IF M=8 [J]=[88]
330 E=[J]
340 A=E/100 :B=E-(100*A)
350 LC A,B : ? CHR$(G)
370 'STOP
380 NEXT
385 '
390 LC 0,22
400 ' LRUN3
410 END
420 REM_DEC
430 D=[J]
440 IF D>0 S=22
450 IF D<0 S=64 :D=D*(-1)
455 WAIT 50
460 X=D/100 :Y=D-(X*100)
470 RTN
480 REM_CNG
490 D=(A*100)+B
500 IF S=64 D=D*(-1)
510 [J]=D
520 RTN
600 REM_ADJ
610 IF A>19 A=19
620 IF A<2 A=2
630 IF B>19 B=19
640 IF B<2 B=2
650 E=(A*100+B)
660 IF SCR(A,B)<>0 E=[0]
670 RTN
680 REM_MOVE TO
681 A=X:B=Y-1:GSB 600:[81]=E
682 A=X+1:B=Y-1:GSB 600:[82]=E
683 A=X+1:B=Y:GSB 600:[83]=E
684 A=X+1:B=Y+1:GSB 600:[84]=E
685 A=X:B=Y+1:GSB 600:[85]=E
686 A=X-1:B=Y+1:GSB 600:[86]=E
687 A=X-1:B=Y:GSB 600:[87]=E
688 A=X-1:B=Y-1:GSB 600:[88]=E
690 RTN
900 'F2 MOVE