DIFFUSION #1 J ? == T 0 - P 0 1 - J 1 IF > J 0: A 0; BRK A P.NEXT; $ 14; K PN 3 5 IF K: TO.TR.P 2; TO.CV 2 N A J P.NEXT #2 IF ! PN 3 4: BRK TO.CV 1 N P + 32 / % T 32 8 IF BGET P 61 Y: TO.TR.P 1 PROB 10: TO.TR.P 1 PROB 90: BRK DEL 100: TO.TR.P 1 #3 J PN 3 2; K % T 16 IF && J BGET P 62 K: SC.TR.P 3 IF ! PN 3 1: BRK IF || A BGET P 60 Y: TR.P 2 PROB SCL 0 100 90 100 IN: BRK IF ! % T 4: TR.P 2 #4 PROB SCL 0 100 75 9 IN: BRK J P RRND 40 47; K RRND 0 3 IF ! J: BRK TO.CV 3 N + * K 12 J #5 IF || % T 4 ! PN 3 6: BRK PROB SCL 0 100 98 90 IN: BRK SC.TR.P 4 #6 IF ! PN 3 4: BRK PROB SCL 0 100 98 90 IN: BRK J P + 32 / % T 32 8 SC.CV 10 N J SC.TR.P 10 #7 IF ! PN 3 3: BRK J % T 8 IF BGET P 59 J: SC.TR.P 5 #8 IF ! PN 3 7: TO.TR 4 0 IF || ! PN 3 7 % T 4: BRK PROB SCL 0 100 0 70 IN: BRK J WRP + RND 1 + J 1 16 23 IF J: TO.CV 4 N + P J 36 TO.TR 4 ? P J 1 0 #M TR.P 1; Y % T P 63 L 11 13: $ I L 1 8: $ I T + T 1 #I M.ACT 0; M 200; T 0 P.I P.END; CV 1 0; TO.TR 4 0 PARAM.SCALE 0 2 L 1 8: MUTE I 1 IN.SCALE 0 200 #A J % T P 63; K ! % T 2 IF && K < - P 63 J 9: TR.P 4 IF J: BRK L 1 8: PN 3 I ! STATE I IF == P.N PRM: BRK P.N PRM; T 0 #B CV 4 * 30000 % / T P 63 2 #C IF ! PN 3 4: CV 1 0; BRK IF < % T 8 4: CV 1 0; BRK CV.SLEW 1 RND 100 CV 1 * 50 RND IN PROB 90: BRK DEL 100: CV 1 RND 4000 #D PROB SCL 0 100 200 60 IN: BRK A P + 1 * 2 / RND - P.L 3 2 #P 15 15 15 0 1 1 1 1 1 1 1 0 14 14 14 63 0 0 0 0 10 9 9 0 4 4 3 0 2 2 14 0 3 3 3 0 9 10 7 0 5 5 3 1 2 2 12 1 3 3 3 1 7 12 5 0 5 5 3 0 2 2 10 0 3 3 3 0 3 14 3 0 41 41 3 0 0 0 0 0 7 14 14 0 2 15 0 0 9 10 19 0 0 7 0 0 0 0 21 0 14 0 0 0 0 0 22 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 19 15 19 0 19 15 19 0 19 24 15 0 19 15 24 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 14 14 14 0 0 19 15 0 21 21 19 0 22 22 21 0 0 24 22 0 0 0 22 0 0 0 19 0 0 0 14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 68 68 73 0 1 0 0 0 9 9 9 0 16 16 16 0 32 32 21 0 #G 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0