1 CLV:CLS:F=80:G=3
2 INPUT "Æݽ޳(1-100)   N=",N
3 INPUT "¶Ý¾Ý¼¬½³(1-N)  E=",E
4 INPUT "¶Ý¾Ý¶¸ØÂ(0-100)A=",A
5 INPUT "²ÄÞ³¶¸ØÂ(0-100)M=",M
6 ?:?"PUSH SPACE"
7 IF !BTN(32) CONT
8 WAIT 30
9 CLS
10 LC 10,23:?"N=";N;" E=";E;" A=";A;" M=";M;
11 FOR I=1 TO N
12 X=RND(31):Y=RND(23)
13 Z=0:IF I<=E Z=1
14 GSB 43
15 [I]=X+Y*32+Z*1024
16 NEXT
17 CLK:D=D+1:LC 0,23:?"DAY=";D;
18 FOR I=1 TO N
19 X=[I]&31:Y=[I]/32&31:Z=[I]/1024
20 IF Z>0 && Z<25 GSB 26
21 IF RND(100)<=M GSB 30
22 [I]=X+Y*32+Z*1024
23 NEXT
24 IF INKEY()!=32 CONT
25 GOTO 17
26 Z=Z+1:IF Z<25 RTN
27 R=RND(100):IF R>F Z=0
28 IF R>99-G Z=26
29 RTN
30 IF Z>=15 && Z<=24 || Z=26 GSB 43:RTN
31 U=X+RND(3)-1
32 V=Y+RND(3)-1
33 IF U<0 U=30
34 IF U>30 U=0
35 IF V<0 V=22
36 IF V>22 V=0
37 H=SCR(U,V)
38 IF H=236 && Z=0 && RND(100)<A Z=1
39 LC X,Y:?CHR$(0)
40 X=U:Y=V
41 GSB 43
42 RTN
43 LC X,Y
44 IF Z=0 C=249
45 IF Z>=1 && Z<=14 C=236
46 IF Z>=15 && Z<=24 C=246
47 IF Z=25 C=255
48 IF Z=26 C=43
49 ?CHR$(C)
50 RTN