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

プログラム　F3_KANSEN

100 'F3_KANSEN V.6.1 beta
130 LC23,1 :?"F3_KSN ";
135 LC0,22:?" ";
140 FOR K=41 TO 80
150 G=[K]
160 IF G=22 GOSUB 300 :'found +
170 NEXT
174 C=C+1 :'days
175 lC 27,10 :?C
176 WAIT 200
180 LC 0,22
185 LRUN2
190 END
200 '
300 REM_KSN
305 J=K-40 :D=[J]
310 X=D/100 :Y=D-(X*100)
315 '
320 A=X :B=Y-1 :'up
330 E=SCR(A,B)
340 IF 64