Заключение

При разработке курсового проекта была разработана корпоративная сеть для банка. Работу сети можно оценить по результатам моделирования в среде GPSS (в Приложениях). При увеличении нагрузок, с расчетом на 7 лет, сеть сохранила свою работоспособность. Но все нагрузки сети условны, поскольку для реальной оценки работы сети нужно следить за трафиком непосредственно при ее работе.

Список использованной литературы

1. Суконщиков, А.А. Сети ЭВМ и телекоммуникации: Методические указания к курсовому проекту. – Вологда: ВоГТУ, 2006. – 22с.

2. Алиев Т.И. Сети ЭВМ и телекоммуникации. - СПб:СПбГУ ИТМО,2011. – 400с.

Интернет источники:

http://www.mark5.ru

http://ru.wikipedia.org

http://www.dlink.ru

http://ru.asus.com

http://www.hughes.com

Приложения Приложение 1

Имитационная программа корпоративной сети на языке программирования GPSS

1 ADR1 FUNCTION RN1,D1 1,22

2 ADR2 FUNCTION RN1,D4

0.25,11/0.5,22/0.75,33/1,44

3 ADR3 FUNCTION RN1,D4

0.25,11/0.5,22/0.75,33/1,44

4 ADR4 FUNCTION RN1,D4

0.25,11/0.5,22/0.75,33/1,44

5 ADR5 FUNCTION RN1,D4

0.25,11/0.5,22/0.75,33/1,44

6 ADR6 FUNCTION RN1,D4

0.25,11/0.5,22/0.75,33/1,44

7 ADR7 FUNCTION RN1,D3

0.33,11/0.66,22/1,33

8 ADR8 FUNCTION RN1,D3

0.33,11/0.66,22/1,33

9 ADR9 FUNCTION RN1,D3

0.33,11/0.66,22/1,33

10 ADR10 FUNCTION RN1,D4

0.25,11/0.5,22/0.75,33/1,44

11 ADRFS1 FUNCTION RN1,D2

0.4,33/1,44

12 ADRFS4 FUNCTION RN1,D2

0.5,11/1,22

14 APR1 FUNCTION RN1,D4; for departments

0.1,1/0.6,2/0.8,3/1,4

15 APR2 FUNCTION RN1,D3; for security

0.2,1/0.7,2/1,3

16 APR3 FUNCTION RN1,D3; for branches

0.2,2/0.8,3/1,4

17 APR4 FUNCTION RN1,D2; for Servers

0.4,1/1,3

;--Security--

20 generate 2900,100

30 seize pc1

40 advance 101,10

50 release pc1

60 assign 1,1

70 assign 2,FN$ADR1

80 assign 3,0

90 assign 4,FN$APR2

100 seize k1_1

110 advance 80,5

120 release k1_1

130 transfer ,sw1

;--Administration--

140 generate 2300,100

150 seize pc2

160 advance 101,10

170 release pc2

180 assign 1,2

190 assign 2,FN$ADR2

200 assign 3,0

210 assign 4,FN$APR1

220 seize k2_2

230 advance 80,5

240 release k2_2

250 transfer ,sw2

;--Otdel kadrov--

260 generate 24000,1000

270 seize pc3

280 advance 101,10

290 release pc3

300 assign 1,3

310 assign 2,FN$ADR3

320 assign 3,0

340 assign 4,FN$APR1

350 seize k3_3

360 advance 80,5

370 release k3_3

380 transfer ,sw3

;--IT otdel--

390 generate 3600,100

400 seize pc4

410 advance 101,10

420 release pc4

430 assign 1,4

440 assign 2,FN$ADR4

450 assign 3,0

460 assign 4,FN$APR1

470 seize k4_4

480 advance 80,5

490 release k4_4

500 transfer ,sw4

;--Buhgalteriya--

510 generate 2300,100

520 seize pc5

530 advance 101,10

540 release pc5

550 assign 1,5

560 assign 2,FN$ADR5

570 assign 3,0

580 assign 4,FN$APR1

590 seize k5_5

600 advance 80,5

610 release k5_5

620 transfer ,sw5

;--Kass--

630 generate 4300,100

640 seize pc6

650 advance 101,10

660 release pc6

670 assign 1,6

680 assign 2,FN$ADR6

690 assign 3,0

700 assign 4,FN$APR1

710 seize k6_6

720 advance 80,5

730 release k6_6

740 transfer ,sw6

;--Sklad--

750 generate 4900,100

760 seize pc7

770 advance 101,10

780 release pc7

790 assign 1,7

800 assign 2,FN$ADR7

810 assign 3,0

820 assign 4,FN$APR1

830 seize k7_7

840 advance 80,5

850 release k7_7

860 transfer ,sw7

;--Marketing--

870 generate 4300,100

880 seize pc8

890 advance 101,10

900 release pc8

910 assign 1,8

920 assign 2,FN$ADR8

930 assign 3,0

940 assign 4,FN$APR1

950 seize k8_8

960 advance 80,5

970 release k8_8

980 transfer ,sw8

;--Postavki--

990 generate 4900,100

1000 seize pc9

1010 advance 101,10

1020 release pc9

1030 assign 1,9

1040 assign 2,FN$ADR9

1050 assign 3,0

1060 assign 4,FN$APR1

1070 seize k9_9

1080 advance 80,5

1090 release k9_9

1110 transfer ,sw9

;--Rabota s personalom

1120 generate 6000,100

1130 seize pc10

1140 advance 101,10

1150 release pc10

1160 assign 1,10

1170 assign 2,FN$ADR10

1180 assign 3,0

1190 assign 4,FN$APR1

1200 seize k10_10

1210 advance 80,5

1220 release k10_10

1230 transfer ,sw10

;--branch1--

1240 generate 80000,1000

1250 seize br1

1260 advance 101,10

1270 release br1

1280

1290 assign 1,111

1300 assign 2,44

1310 assign 3,0

1320 assign 4,FN$APR3

1330 seize kf1

1340 advance 4000,100

1350 release kf1

1360 transfer ,rt

;--branch2--

1370 generate 40000,1000

1380 seize br2

1390 advance 101,10

1400 release br2

1410 assign 1,222

1420 assign 2,44

1430 assign 3,0

1440 assign 4,FN$APR3

1450 seize kf2

1460 advance 4000,100

1470 release kf2

1480 transfer ,rt

;--switch1--

1490 sw1 seize swi1

1500 advance 4,1

1510 release swi1

1520 test ne p4,1,qsw11

1530 test ne p4,2,qsw12

1540 test ne p4,3,qsw13

1550 test ne p4,4,qsw14

1560 jsw1 test ne p2,1,a1

1570 seize k1_11

1580 advance 80,5

1590 release k1_11

1600 transfer ,sw11

1610 a1 seize k1_1

1620 advance 80,5

1630 release k1_1

1640 seize pc1

1650 advance 101,10

1660 release pc1

1670 terminate

;--queue for switch1--

1680 qsw11 link que11,FIFO

1690 qsw12 link que12,FIFO

1700 qsw13 link que13,FIFO

1710 qsw14 link que14,FIFO

1720 generate 200

1730 test ne ch$que11,0,l12

1740 unlink que11,jsw1,1

1750 terminate

1760 l12 test ne ch$que12,0,l13

1770 unlink que12,jsw1,1

1780 terminate

1790 l13 test ne ch$que13,0,l14

1800 unlink que13,jsw1,1

1810 terminate

1820 l14 test ne ch$que14,0,l15

1830 unlink que14,jsw1,1

1840 l15 terminate

;--switch2--

1860 sw2 seize swi2

1870 advance 4,1

1880 release swi2

1890 test ne p4,1,qsw21

1900 test ne p4,2,qsw22

1910 test ne p4,3,qsw23

1920 test ne p4,4,qsw24

1930 jsw2 test ne p2,2,a2

1940 seize k2_11

1950 advance 80,5

1960 release k2_11

1970 transfer ,sw11

1980 a2 seize k2_2

1990 advance 80,5

2000 release k2_2

2010 seize pc2

2020 advance 101,10

2030 release pc2

2040 terminate

;--queue for switch2--

2060 qsw21 link que21,FIFO

2070 qsw22 link que22,FIFO

2080 qsw23 link que23,FIFO

2090 qsw24 link que24,FIFO

2100 generate 200

2110 test ne ch$que21,0,l22

2120 unlink que21,jsw2,1

2130 terminate

2140 l22 test ne ch$que22,0,l23

2150 unlink que22,jsw2,1

2160 terminate

2180 l23 test ne ch$que23,0,l24

2190 unlink que23,jsw2,1

2200 terminate

2210 l24 test ne ch$que24,0,l25

2220 unlink que24,jsw2,1

2230 l25 terminate

;--switch3--

2240 sw3 seize swi3

2250 advance 4,1

2260 release swi3

2270 test ne p4,1,qsw31

2280 test ne p4,2,qsw32

2290 test ne p4,3,qsw33

2300 jsw3 test ne p2,3,a3

2310 seize k3_17

2320 advance 80,5

2330 release k3_17

2340 transfer ,sw17

2350 a3 seize k3_3

2360 advance 80,5

2370 release k3_3

2380 seize pc3

2390 advance 101,10

2400 release pc3

2410 terminate

;--queue for switch3--

2420 qsw31 link que31,FIFO

2430 qsw32 link que32,FIFO

2440 qsw33 link que33,FIFO

2450 generate 200

2460 test ne ch$que31,0,l32

2470 unlink que31,jsw3,1

2480 terminate

2490 l32 test ne ch$que32,0,l33

2500 unlink que32,jsw3,1

2510 terminate

2520 l33 test ne ch$que33,0,l34

2530 unlink que33,jsw3,1

2540 l34 terminate

;--switch4--

2550 sw4 seize swi4

2560 advance 4,1

2570 release swi4

2580 test ne p4,1,qsw41

2590 test ne p4,2,qsw42

2600 test ne p4,3,qsw43

2610 test ne p4,4,qsw44

2620 jsw4 test ne p2,4,a4

2630 seize k4_17

2640 advance 80,5

2650 release k4_17

2660 transfer ,sw17

2670 a4 seize k4_4

2680 advance 80,5

2690 release k4_4

2700 seize pc4

2710 advance 101,10

2720 release pc4

2735 terminate

;--queue for switch4--

2740 qsw41 link que41,FIFO

2750 qsw42 link que42,FIFO

2760 qsw43 link que43,FIFO

2770 qsw44 link que44,FIFO

2780 generate 200

2790 test ne ch$que41,0,l42

2800 unlink que41,jsw4,1

2810 terminate

2820 l42 test ne ch$que42,0,l43

2830 unlink que42,jsw4,1

2840 terminate

2850 l43 test ne ch$que43,0,l44

2860 unlink que43,jsw4,1

2870 terminate

2880 l44 test ne ch$que44,0,l45

2890 unlink que44,jsw4,1

2900 l45 terminate

;--switch5--

2910 sw5 seize swi5

2920 advance 4,1

2930 release swi5

2940 test ne p4,1,qsw51

2950 test ne p4,2,qsw52

2960 test ne p4,3,qsw53

2970 test ne p4,4,qsw54

2980 jsw5 test ne p2,5,a5

2990 seize k5_17

3000 advance 80,5

3010 release k5_17

3020 transfer ,sw17

3030 a5 seize k5_5

3040 advance 80,5

3050 release k5_5

3060 seize pc5

3070 advance 101,10

3080 release pc5

3090 terminate

;--queue for switch5--

3100 qsw51 link que51,FIFO

3110 qsw52 link que52,FIFO

3120 qsw53 link que53,FIFO

3130 qsw54 link que54,FIFO

3140 generate 200

3150 test ne ch$que51,0,l52

3160 unlink que51,jsw5,1

3170 terminate

3180 l52 test ne ch$que52,0,l53

3190 unlink que52,jsw5,1

3200 terminate

3210 l53 test ne ch$que53,0,l54

3220 unlink que53,jsw5,1

3230 terminate

3240 l54 test ne ch$que54,0,l55

3250 unlink que54,jsw5,1

3260 l55 terminate

;--switch6--

3270 sw6 seize swi6

3280 advance 4,1

3290 release swi6

3300 test ne p4,1,qsw61

3310 test ne p4,2,qsw62

3320 test ne p4,3,qsw63

3330 test ne p4,4,qsw64

3340 jsw6 test ne p2,6,a6

3350 seize k6_21

3360 advance 80,5

3370 release k6_21

3380 transfer ,sw21

3390 a6 seize k6_6

3400 advance 80,5

3410 release k6_6

3420 seize pc6

3430 advance 101,10

3440 release pc6

3450 terminate

;--queue for switch6--

3460 qsw61 link que61,FIFO

3470 qsw62 link que62,FIFO

3480 qsw63 link que63,FIFO

3490 qsw64 link que64,FIFO

3500 generate 200

3510 test ne ch$que61,0,l62

3520 unlink que61,jsw6,1

3530 terminate

3540 l62 test ne ch$que62,0,l63

3550 unlink que62,jsw6,1

3560 terminate

3570 l63 test ne ch$que63,0,l64

3580 unlink que63,jsw6,1

3590 terminate

3600 l64 test ne ch$que64,0,l65

3610 unlink que64,jsw6,1

3620 l65 terminate

;--switch7--

3740 sw7 seize swi7

3750 advance 4,1

3760 release swi7

3770 test ne p4,1,qsw71

3780 test ne p4,2,qsw72

3790 test ne p4,3,qsw73

3800 test ne p4,4,qsw74

3810 jsw7 test ne p2,7,a7

3820 seize k7_21

3830 advance 80,5

3840 release k7_21

3850 transfer ,sw21

3860 a7 seize k7_7

3870 advance 80,5

3880 release k7_7

3890 seize pc7

3900 advance 101,10

3910 release pc7

3920 terminate

;--queue for switch7--

3940 qsw71 link que71,FIFO

3950 qsw72 link que72,FIFO

3960 qsw73 link que73,FIFO

3970 qsw74 link que74,FIFO

3980 generate 200

3990 test ne ch$que71,0,l72

4000 unlink que71,jsw7,1

4010 terminate

4020 l72 test ne ch$que72,0,l73

4030 unlink que72,jsw7,1

4040 terminate

4050 l73 test ne ch$que73,0,l74

4060 unlink que73,jsw7,1

4070 terminate

4080 l74 test ne ch$que74,0,l75

4090 unlink que74,jsw7,1

4100 l75 terminate

;--switch8--

4110 sw8 seize swi8

4120 advance 4,1

4130 release swi8

4140 test ne p4,1,qsw81

4150 test ne p4,2,qsw82

4160 test ne p4,3,qsw83

4170 test ne p4,4,qsw84

4180 jsw8 test ne p2,8,a8

4190 seize k8_11

4200 advance 80,5

4210 release k8_11

4220 transfer ,sw11

4230 a8 seize k8_8

4240 advance 80,5

4250 release k8_8

4260 seize pc8

4270 advance 101,10

4280 release pc8

4290 terminate

;--queue for switch8--

4300 qsw81 link que81,FIFO

4310 qsw82 link que82,FIFO

4320 qsw83 link que83,FIFO

4330 qsw84 link que84,FIFO

4340 generate 200

4350 test ne ch$que81,0,l82

4360 unlink que81,jsw8,1

4370 terminate

4380 l82 test ne ch$que82,0,l83

4390 unlink que82,jsw8,1

4400 terminate

4410 l83 test ne ch$que83,0,l84

4420 unlink que83,jsw8,1

4430 terminate

4440 l84 test ne ch$que84,0,l85

4450 unlink que84,jsw8,1

4460 l85 terminate

;--switch9--

4470 sw9 seize swi9

4480 advance 4,1

4490 release swi9

4500 test ne p4,1,qsw91

4510 test ne p4,2,qsw92

4520 test ne p4,3,qsw93

4530 test ne p4,4,qsw94

4540 jsw9 test ne p2,9,a9

4550 seize k9_13

4560 advance 80,5

4570 release k9_13

4580 transfer ,sw13

4590 a9 seize k9_9

4600 advance 80,5

4610 release k9_9

4620 seize pc9

4630 advance 101,10

4640 release pc9

4650 terminate

;--queue for switch9--

4660 qsw91 link que91,FIFO

4670 qsw92 link que92,FIFO

4680 qsw93 link que93,FIFO

4690 qsw94 link que94,FIFO

4700 generate 200

4710 test ne ch$que91,0,l92

4720 unlink que91,jsw9,1

4730 terminate

4740 l92 test ne ch$que92,0,l93

4750 unlink que92,jsw9,1

4760 terminate

4770 l93 test ne ch$que93,0,l94

4780 unlink que93,jsw9,1

4790 terminate

4800 l94 test ne ch$que94,0,l95

4810 unlink que94,jsw9,1

4820 l95 terminate

;--switch10--

4830 sw10 seize swi10

4840 advance 4,1

4850 release swi10

4860 test ne p4,1,qsw101

4870 test ne p4,2,qsw102

4880 test ne p4,3,qsw103

4890 test ne p4,4,qsw104

4900 jsw10 test ne p2,10,a10

4910 seize k10_13

4920 advance 80,5

4930 release k10_13

4940 transfer ,sw13

4950 a10 seize k10_10

4960 advance 80,5

4970 release k10_10

4980 seize pc10

4990 advance 101,10

5000 release pc10

5010 terminate

;--queue for switch10-

5030 qsw101 link que101,FIFO

5040 qsw102 link que102,FIFO

5050 qsw103 link que103,FIFO

5060 qsw104 link que104,FIFO

5070 generate 800

5080 test ne ch$que101,0,l102

5090 unlink que101,jsw10,1

5100 terminate

5110 l102 test ne ch$que102,0,l103

5120 unlink que102,jsw10,1

5130 terminate

5140 l103 test ne ch$que103,0,l104

5150 unlink que103,jsw10,1

5160 terminate

5170 l104 test ne ch$que104,0,l105

5180 unlink que104,jsw10,1

5190 l105 terminate

;--switch11--

5200 sw11 seize swi11

5210 advance 4,1

5220 release swi11

5230 test ne p4,1,qsw111

5240 test ne p4,2,qsw112

5250 test ne p4,3,qsw113

5260 test ne p4,4,qsw114

5270 jsw11 test ne p2,1,asw1

5280 test ne p2,2,asw2

5290 test ne p2,3,aa17

5300 test ne p2,4,aa17

5310 test ne p2,5,aa17

5320 test ne p2,6,aa21

5330 test ne p2,7,aa21

5340 test ne p2,8,asw8

5350 test ne p2,9,aa21

5360 test ne p2,10,aa21

5370 test ne p2,11,a11

5380 test ne p2,22,a22

5390 test ne p2,33,a33

5400 test ne p2,44,rtk

5410 test ne p2,55,a55

;--answers--

5440 asw1 seize k1_11

5450 advance 80,5

5460 release k1_11

5470 transfer ,sw1

5480 asw2 seize k2_11

5490 advance 80,5

5600 release k2_11

5610 transfer ,sw2

5620 asw8 seize k8_11

5630 advance 80,5

5640 release k8_11

5650 transfer ,sw8

;-------------

5660 aa17 seize k11_17

5670 advance 80,5

5680 release k11_17

5690 transfer ,sw17

5700 aa21 seize k11_21

5710 advance 8,1

5720 release k11_21

5730 transfer ,sw21

;--queue for switch11-

5740 qsw111 link que111,FIFO

5750 qsw112 link que112,FIFO

5760 qsw113 link que113,FIFO

5770 qsw114 link que114,FIFO

5780 generate 50

5790 test ne ch$que111,0,l112

5800 unlink que111,jsw11,1

5810 terminate

5820 l112 test ne ch$que112,0,l113

5830 unlink que112,jsw11,1

5840 terminate

5850 l113 test ne ch$que113,0,l114

5860 unlink que113,jsw11,1

5870 terminate

5880 l114 test ne ch$que114,0,l115

5890 unlink que114,jsw11,1

5900 l115 terminate

;--switch12--

5910 sw12 seize swi12

5920 advance 1

5930 release swi12

5940 test ne p4,1,qsw171

5950 test ne p4,2,qsw122

5960 test ne p4,3,qsw123

5970 test ne p4,4,qsw124

5980 jsw12 test ne p2,3,asw3

5990 test ne p2,4,asw4

6000 test ne p2,5,asw5

6071 seize k11_12

6072 advance 80,5

6073 release k11_12

6074 transfer ,sw11

;--answers--

6080 asw3 seize k3_12

6090 advance 80,5

6100 release k3_12

6110 transfer ,sw3

6120 asw4 seize k4_12

6130 advance 80,5

6140 release k4_12

6150 transfer ,sw4

6160 asw5 seize k5_17

6170 advance 80,5

6180 release k5_12

6190 transfer ,sw5

;--queue for switch12-

6240 qsw121 link que121,FIFO

6250 qsw122 link que122,FIFO

6260 qsw123 link que173,FIFO

6270 qsw124 link que124,FIFO

6280 generate 100

6290 test ne ch$que121,0,l122

6300 unlink que121,jsw12,1

6310 terminate

6320 l122 test ne ch$que122,0,l123

6330 unlink que122,jsw12,1

6340 terminate

6350 l123 test ne ch$que123,0,l124

6360 unlink que123,jsw12,1

6370 terminate

6380 l124 test ne ch$que124,0,l125

6390 unlink que124,jsw12,1

6400 l125 terminate

;--switch21--

6410 sw21 seize swi21

6420 advance 4,1

6430 release swi21

6440 test ne p4,1,qsw211

6450 test ne p4,2,qsw212

6460 test ne p4,3,qsw213

6470 test ne p4,4,qsw214

6480 jsw21 test ne p2,6,asw6

6490 test ne p2,7,asw7

6500 test ne p2,9,asw13

6510 test ne p2,10,asw13

6511 seize k11_21

6512 advance 8,1

6513 release k11_21

6514 transfer ,sw11

;--answers--

6520 asw6 seize k6_21

6530 advance 80,5

6540 release k6_21

6550 transfer ,sw6

6551 asw7 seize k7_21

6552 advance 80,5

6553 release k7_21

6554 transfer ,sw7

6555 asw13 seize k21_13

6560 advance 80,5

6570 release k21_13

6580 transfer ,sw13

;--queue for switch21--

6630 qsw211 link que211,FIFO

6640 qsw212 link que212,FIFO

6650 qsw213 link que213,FIFO

6660 qsw214 link que214,FIFO

6670 generate 100

6680 test ne ch$que211,0,l212

6690 unlink que211,jsw21,1

6700 terminate

6710 l212 test ne ch$que212,0,l213

6720 unlink que212,jsw21,1

6730 terminate

6740 l213 test ne ch$que213,0,l214

6750 unlink que213,jsw21,1

6760 terminate

6780 l214 test ne ch$que214,0,l215

6790 unlink que214,jsw21,1

6795 l215 terminate

;--switch13--

6800 sw13 seize swi13

6810 advance 4,1

6820 release swi13

6830 test ne p4,1,qsw131

6840 test ne p4,2,qsw132

6850 test ne p4,3,qsw133

6860 test ne p4,4,qsw134

6870 jsw13 test ne p2,9,asw9

6880 test ne p2,10,asw10

6890 seize k21_13

6900 advance 80,5

6910 release k21_13

6920 transfer ,sw21

6930 asw9 seize k9_13

6940 advance 80,5

6950 release k9_13

6960 transfer ,sw9

6970 asw10 seize k10_13

6980 advance 80,5

6990 release k10_13

7000 transfer ,sw10

;--queue for switch13--

7010 qsw131 link que131,FIFO

7020 qsw132 link que132,FIFO

7030 qsw133 link que133,FIFO

7040 qsw134 link que134,FIFO

7050 generate 200

7060 test ne ch$que131,0,l272

7070 unlink que131,jsw13,1

7080 terminate

7090 l132 test ne ch$que132,0,l133

7100 unlink que132,jsw13,1

7110 terminate

7120 l133 test ne ch$que133,0,l134

7130 unlink que133,jsw13,1

7140 terminate

7150 l134 test ne ch$que134,0,l135

7160 unlink que134,jsw13,1

7120 l135 terminate

;--Router--

7171 rtk seize kr11

7172 advance 80,5

7172 release kr11

7180 rt seize rout

7190 advance 80,5

7200 release rout

7210 test ne p2,111,art1

7220 test ne p2,222,art2

7221 test ne p2,44,a44

7230 seize kr11

7240 advance 80,5

7250 release kr11

7260 transfer ,sw11

;--answers--

7130 art1 seize kf1

7280 advance 4000,100

7290 release kf1

7300 seize br1

7310 advance 101,10

7320 release br1

7330 terminate

7340 art2 seize kf2

7350 advance 4000,100

7360 release kf2

7370 seize br2

7380 advance 101,10

7390 release br2

7400 terminate

;--reception on servers--

7410 a11 seize kfs1

7420 advance 80,5

7430 release kfs1

7450 seize fs1

7460 advance 101,10

7470 release fs1

7475 test ne p3,1,end1

7480 assign 3,1

7490 assign 2,p1

7500 seize kfs1

7510 advance 80,5

7520 release kfs1

7530 transfer ,sw11

7540 a22 seize kfs2

7550 advance 80,5

7560 release kfs2

7580 seize fs2

7590 advance 101,10

7600 release fs2

7605 test ne p3,1,end1

7610 assign 3,1

7620 assign 2,p1

7630 seize kfs2

7640 advance 80,5

7650 release kfs2

7660 transfer ,sw11

7670 a33 seize kfs3

7680 advance 80,5

7690 release kfs3

7710 seize fs3

7720 advance 101,10

7730 release fs3

7735 test ne p3,1,end1

7740 assign 3,1

7750 assign 2,p1

7760 seize kfs3

7770 advance 80,5

7780 release kfs3

7790 transfer ,sw11

7800 a44 seize kfs4

7810 advance 80,5

7820 release kfs4

7840 seize fs4

7850 advance 101,10

7860 release fs4

7865 test ne p3,1,end1

7870 assign 3,1

7880 assign 2,p1

7890 seize kfs4

7900 advance 80,5

7910 release kfs4

7920 transfer ,rt

7996 end1 terminate

8000 ja assign 3,1

8010 assign 2,3

8020 seize kfs4

8030 advance 80,5

8040 release kfs4

8050 transfer ,sw11

;--servers bla-bla--

8070 generate 12000,1000

8080 seize fs1

8090 advance 101,10

8100 release fs1

8110 assign 1,11

8120 assign 2,FN$ADRFS1

8130 assign 3,0

8140 assign 4,FN$APR4

8150 seize kfs1

8160 advance 80,5

8170 release kfs1

8180 transfer ,sw11

8190 generate 72000,1000

8200 seize fs2

8210 advance 101,10

8220 release fs2

8230 assign 1,22

8240 assign 2,44

8250 assign 3,0

8260 assign 4,FN$APR4

8270 seize kfs2

8280 advance 80,5

8290 release kfs2

8300 transfer ,sw11

8310 generate 72000,1000

8320 seize fs3

8330 advance 101,10

8340 release fs3

8350 assign 1,33

8360 assign 2,11

8370 assign 3,0

8380 assign 4,FN$APR4

8390 seize kfs3

8400 advance 80,5

8410 release kfs3

8420 transfer ,sw11

8430 generate 36000,1000

8440 seize fs4

8450 advance 101,10

8460 release fs4

8470 assign 1,44

8480 assign 2,FN$ADRFS4

8490 assign 3,0

8500 assign 4,FN$APR4

8510 seize kfs4

8520 advance 80,5

8530 release kfs4

8540 transfer ,sw11

8550 generate 360000

8560 terminate 1

8570 start 1