// var ru ; function seradit ( l , x , y ) ; begin
   0: LD_INT 0
   2: PPUSH
// commovexy ( l [ 1 ] , x + 0 , y + 0 ) ;
   3: LD_VAR 0 1
   7: PUSH
   8: LD_INT 1
  10: ARRAY
  11: PPUSH
  12: LD_VAR 0 2
  16: PUSH
  17: LD_INT 0
  19: PLUS
  20: PPUSH
  21: LD_VAR 0 3
  25: PUSH
  26: LD_INT 0
  28: PLUS
  29: PPUSH
  30: CALL_OW 111
// addcomturnxy ( l [ 1 ] , 76 , 39 ) ;
  34: LD_VAR 0 1
  38: PUSH
  39: LD_INT 1
  41: ARRAY
  42: PPUSH
  43: LD_INT 76
  45: PPUSH
  46: LD_INT 39
  48: PPUSH
  49: CALL_OW 178
// commovexy ( l [ 2 ] , x + 1 , y + 1 ) ;
  53: LD_VAR 0 1
  57: PUSH
  58: LD_INT 2
  60: ARRAY
  61: PPUSH
  62: LD_VAR 0 2
  66: PUSH
  67: LD_INT 1
  69: PLUS
  70: PPUSH
  71: LD_VAR 0 3
  75: PUSH
  76: LD_INT 1
  78: PLUS
  79: PPUSH
  80: CALL_OW 111
// addcomturnxy ( l [ 2 ] , 76 , 39 ) ;
  84: LD_VAR 0 1
  88: PUSH
  89: LD_INT 2
  91: ARRAY
  92: PPUSH
  93: LD_INT 76
  95: PPUSH
  96: LD_INT 39
  98: PPUSH
  99: CALL_OW 178
// commovexy ( l [ 3 ] , x + 0 , y + 1 ) ;
 103: LD_VAR 0 1
 107: PUSH
 108: LD_INT 3
 110: ARRAY
 111: PPUSH
 112: LD_VAR 0 2
 116: PUSH
 117: LD_INT 0
 119: PLUS
 120: PPUSH
 121: LD_VAR 0 3
 125: PUSH
 126: LD_INT 1
 128: PLUS
 129: PPUSH
 130: CALL_OW 111
// addcomturnxy ( l [ 3 ] , 76 , 39 ) ;
 134: LD_VAR 0 1
 138: PUSH
 139: LD_INT 3
 141: ARRAY
 142: PPUSH
 143: LD_INT 76
 145: PPUSH
 146: LD_INT 39
 148: PPUSH
 149: CALL_OW 178
// commovexy ( l [ 4 ] , x + 1 , y + 2 ) ;
 153: LD_VAR 0 1
 157: PUSH
 158: LD_INT 4
 160: ARRAY
 161: PPUSH
 162: LD_VAR 0 2
 166: PUSH
 167: LD_INT 1
 169: PLUS
 170: PPUSH
 171: LD_VAR 0 3
 175: PUSH
 176: LD_INT 2
 178: PLUS
 179: PPUSH
 180: CALL_OW 111
// addcomturnxy ( l [ 4 ] , 76 , 39 ) ;
 184: LD_VAR 0 1
 188: PUSH
 189: LD_INT 4
 191: ARRAY
 192: PPUSH
 193: LD_INT 76
 195: PPUSH
 196: LD_INT 39
 198: PPUSH
 199: CALL_OW 178
// commovexy ( l [ 5 ] , x + 0 , y + 2 ) ;
 203: LD_VAR 0 1
 207: PUSH
 208: LD_INT 5
 210: ARRAY
 211: PPUSH
 212: LD_VAR 0 2
 216: PUSH
 217: LD_INT 0
 219: PLUS
 220: PPUSH
 221: LD_VAR 0 3
 225: PUSH
 226: LD_INT 2
 228: PLUS
 229: PPUSH
 230: CALL_OW 111
// addcomturnxy ( l [ 5 ] , 76 , 39 ) ;
 234: LD_VAR 0 1
 238: PUSH
 239: LD_INT 5
 241: ARRAY
 242: PPUSH
 243: LD_INT 76
 245: PPUSH
 246: LD_INT 39
 248: PPUSH
 249: CALL_OW 178
// commovexy ( l [ 6 ] , x + 1 , y + 3 ) ;
 253: LD_VAR 0 1
 257: PUSH
 258: LD_INT 6
 260: ARRAY
 261: PPUSH
 262: LD_VAR 0 2
 266: PUSH
 267: LD_INT 1
 269: PLUS
 270: PPUSH
 271: LD_VAR 0 3
 275: PUSH
 276: LD_INT 3
 278: PLUS
 279: PPUSH
 280: CALL_OW 111
// addcomturnxy ( l [ 6 ] , 76 , 39 ) ;
 284: LD_VAR 0 1
 288: PUSH
 289: LD_INT 6
 291: ARRAY
 292: PPUSH
 293: LD_INT 76
 295: PPUSH
 296: LD_INT 39
 298: PPUSH
 299: CALL_OW 178
// commovexy ( l [ 7 ] , x + 1 , y + 4 ) ;
 303: LD_VAR 0 1
 307: PUSH
 308: LD_INT 7
 310: ARRAY
 311: PPUSH
 312: LD_VAR 0 2
 316: PUSH
 317: LD_INT 1
 319: PLUS
 320: PPUSH
 321: LD_VAR 0 3
 325: PUSH
 326: LD_INT 4
 328: PLUS
 329: PPUSH
 330: CALL_OW 111
// addcomturnxy ( l [ 7 ] , 76 , 39 ) ;
 334: LD_VAR 0 1
 338: PUSH
 339: LD_INT 7
 341: ARRAY
 342: PPUSH
 343: LD_INT 76
 345: PPUSH
 346: LD_INT 39
 348: PPUSH
 349: CALL_OW 178
// end ;
 353: LD_VAR 0 4
 357: RET
// var g1 , g2 , g3 , g4 ; starting begin game_speed := 5 ;
 358: LD_ADDR_OWVAR 65
 362: PUSH
 363: LD_INT 5
 365: ST_TO_ADDR
// music_class = 5 ;
 366: LD_ADDR_OWVAR 72
 370: PUSH
 371: LD_INT 5
 373: ST_TO_ADDR
// ru = 3 ;
 374: LD_ADDR_LOC 1
 378: PUSH
 379: LD_INT 3
 381: ST_TO_ADDR
// g1 = [ s01 , s02 , s14 , s15 , m01 , m02 , c04 ] ;
 382: LD_ADDR_LOC 2
 386: PUSH
 387: LD_INT 33
 389: PUSH
 390: LD_INT 32
 392: PUSH
 393: LD_INT 20
 395: PUSH
 396: LD_INT 19
 398: PUSH
 399: LD_INT 17
 401: PUSH
 402: LD_INT 16
 404: PUSH
 405: LD_INT 6
 407: PUSH
 408: EMPTY
 409: LIST
 410: LIST
 411: LIST
 412: LIST
 413: LIST
 414: LIST
 415: LIST
 416: ST_TO_ADDR
// g2 = [ s13 , s03 , s16 , s12 , m03 , m08 , c03 ] ;
 417: LD_ADDR_LOC 3
 421: PUSH
 422: LD_INT 21
 424: PUSH
 425: LD_INT 31
 427: PUSH
 428: LD_INT 18
 430: PUSH
 431: LD_INT 22
 433: PUSH
 434: LD_INT 15
 436: PUSH
 437: LD_INT 10
 439: PUSH
 440: LD_INT 7
 442: PUSH
 443: EMPTY
 444: LIST
 445: LIST
 446: LIST
 447: LIST
 448: LIST
 449: LIST
 450: LIST
 451: ST_TO_ADDR
// g3 = [ s04 , s05 , s11 , s10 , m04 , m07 , c02 ] ;
 452: LD_ADDR_LOC 4
 456: PUSH
 457: LD_INT 30
 459: PUSH
 460: LD_INT 29
 462: PUSH
 463: LD_INT 23
 465: PUSH
 466: LD_INT 24
 468: PUSH
 469: LD_INT 14
 471: PUSH
 472: LD_INT 11
 474: PUSH
 475: LD_INT 8
 477: PUSH
 478: EMPTY
 479: LIST
 480: LIST
 481: LIST
 482: LIST
 483: LIST
 484: LIST
 485: LIST
 486: ST_TO_ADDR
// g4 = [ s06 , s07 , s09 , s08 , m05 , m06 , c01 ] ;
 487: LD_ADDR_LOC 5
 491: PUSH
 492: LD_INT 28
 494: PUSH
 495: LD_INT 27
 497: PUSH
 498: LD_INT 25
 500: PUSH
 501: LD_INT 26
 503: PUSH
 504: LD_INT 13
 506: PUSH
 507: LD_INT 12
 509: PUSH
 510: LD_INT 9
 512: PUSH
 513: EMPTY
 514: LIST
 515: LIST
 516: LIST
 517: LIST
 518: LIST
 519: LIST
 520: LIST
 521: ST_TO_ADDR
// comhold ( [ s01 , s02 , s03 , s04 , s05 , s06 , s07 , s08 , s09 , s10 , s11 , s12 , s13 , s14 , s15 , s16 , m01 , m02 , m03 , m04 , m05 , m06 , m07 , m08 , c01 , c02 , c03 , c04 ] ) ;
 522: LD_INT 33
 524: PUSH
 525: LD_INT 32
 527: PUSH
 528: LD_INT 31
 530: PUSH
 531: LD_INT 30
 533: PUSH
 534: LD_INT 29
 536: PUSH
 537: LD_INT 28
 539: PUSH
 540: LD_INT 27
 542: PUSH
 543: LD_INT 26
 545: PUSH
 546: LD_INT 25
 548: PUSH
 549: LD_INT 24
 551: PUSH
 552: LD_INT 23
 554: PUSH
 555: LD_INT 22
 557: PUSH
 558: LD_INT 21
 560: PUSH
 561: LD_INT 20
 563: PUSH
 564: LD_INT 19
 566: PUSH
 567: LD_INT 18
 569: PUSH
 570: LD_INT 17
 572: PUSH
 573: LD_INT 16
 575: PUSH
 576: LD_INT 15
 578: PUSH
 579: LD_INT 14
 581: PUSH
 582: LD_INT 13
 584: PUSH
 585: LD_INT 12
 587: PUSH
 588: LD_INT 11
 590: PUSH
 591: LD_INT 10
 593: PUSH
 594: LD_INT 9
 596: PUSH
 597: LD_INT 8
 599: PUSH
 600: LD_INT 7
 602: PUSH
 603: LD_INT 6
 605: PUSH
 606: EMPTY
 607: LIST
 608: LIST
 609: LIST
 610: LIST
 611: LIST
 612: LIST
 613: LIST
 614: LIST
 615: LIST
 616: LIST
 617: LIST
 618: LIST
 619: LIST
 620: LIST
 621: LIST
 622: LIST
 623: LIST
 624: LIST
 625: LIST
 626: LIST
 627: LIST
 628: LIST
 629: LIST
 630: LIST
 631: LIST
 632: LIST
 633: LIST
 634: LIST
 635: PPUSH
 636: CALL_OW 140
// comhold ( [ off1 , off2 ] ) ;
 640: LD_INT 35
 642: PUSH
 643: LD_INT 38
 645: PUSH
 646: EMPTY
 647: LIST
 648: LIST
 649: PPUSH
 650: CALL_OW 140
// comturnxy ( [ s01 , s02 , s03 , s04 , s05 , s06 , s07 , s08 , s09 , s10 , s11 , s12 , s13 , s14 , s15 , s16 , m01 , m02 , m03 , m04 , m05 , m06 , m07 , m08 , c01 , c02 , c03 , c04 ] , 76 , 39 ) ;
 654: LD_INT 33
 656: PUSH
 657: LD_INT 32
 659: PUSH
 660: LD_INT 31
 662: PUSH
 663: LD_INT 30
 665: PUSH
 666: LD_INT 29
 668: PUSH
 669: LD_INT 28
 671: PUSH
 672: LD_INT 27
 674: PUSH
 675: LD_INT 26
 677: PUSH
 678: LD_INT 25
 680: PUSH
 681: LD_INT 24
 683: PUSH
 684: LD_INT 23
 686: PUSH
 687: LD_INT 22
 689: PUSH
 690: LD_INT 21
 692: PUSH
 693: LD_INT 20
 695: PUSH
 696: LD_INT 19
 698: PUSH
 699: LD_INT 18
 701: PUSH
 702: LD_INT 17
 704: PUSH
 705: LD_INT 16
 707: PUSH
 708: LD_INT 15
 710: PUSH
 711: LD_INT 14
 713: PUSH
 714: LD_INT 13
 716: PUSH
 717: LD_INT 12
 719: PUSH
 720: LD_INT 11
 722: PUSH
 723: LD_INT 10
 725: PUSH
 726: LD_INT 9
 728: PUSH
 729: LD_INT 8
 731: PUSH
 732: LD_INT 7
 734: PUSH
 735: LD_INT 6
 737: PUSH
 738: EMPTY
 739: LIST
 740: LIST
 741: LIST
 742: LIST
 743: LIST
 744: LIST
 745: LIST
 746: LIST
 747: LIST
 748: LIST
 749: LIST
 750: LIST
 751: LIST
 752: LIST
 753: LIST
 754: LIST
 755: LIST
 756: LIST
 757: LIST
 758: LIST
 759: LIST
 760: LIST
 761: LIST
 762: LIST
 763: LIST
 764: LIST
 765: LIST
 766: LIST
 767: PPUSH
 768: LD_INT 76
 770: PPUSH
 771: LD_INT 39
 773: PPUSH
 774: CALL_OW 118
// comturnxy ( [ off1 , off2 ] , 66 , 39 ) ;
 778: LD_INT 35
 780: PUSH
 781: LD_INT 38
 783: PUSH
 784: EMPTY
 785: LIST
 786: LIST
 787: PPUSH
 788: LD_INT 66
 790: PPUSH
 791: LD_INT 39
 793: PPUSH
 794: CALL_OW 118
// wait ( 0 0$0.5 ) ;
 798: LD_INT 18
 800: PPUSH
 801: CALL_OW 67
// centernowonxy ( 27 , 43 ) ;
 805: LD_INT 27
 807: PPUSH
 808: LD_INT 43
 810: PPUSH
 811: CALL_OW 86
// wait ( 0 0$0.5 ) ;
 815: LD_INT 18
 817: PPUSH
 818: CALL_OW 67
// centeronxy ( 28 , 32 ) ;
 822: LD_INT 28
 824: PPUSH
 825: LD_INT 32
 827: PPUSH
 828: CALL_OW 84
// wait ( 0 0$0.7 ) ;
 832: LD_INT 24
 834: PPUSH
 835: CALL_OW 67
// centeronxy ( 30 , 23 ) ;
 839: LD_INT 30
 841: PPUSH
 842: LD_INT 23
 844: PPUSH
 845: CALL_OW 84
// wait ( 0 0$0.7 ) ;
 849: LD_INT 24
 851: PPUSH
 852: CALL_OW 67
// centeronxy ( 37 , 19 ) ;
 856: LD_INT 37
 858: PPUSH
 859: LD_INT 19
 861: PPUSH
 862: CALL_OW 84
// wait ( 0 0$0.7 ) ;
 866: LD_INT 24
 868: PPUSH
 869: CALL_OW 67
// centeronxy ( 43 , 20 ) ;
 873: LD_INT 43
 875: PPUSH
 876: LD_INT 20
 878: PPUSH
 879: CALL_OW 84
// wait ( 0 0$1.5 ) ;
 883: LD_INT 52
 885: PPUSH
 886: CALL_OW 67
// centeronxy ( 54 , 25 ) ;
 890: LD_INT 54
 892: PPUSH
 893: LD_INT 25
 895: PPUSH
 896: CALL_OW 84
// wait ( 0 0$0.7 ) ;
 900: LD_INT 24
 902: PPUSH
 903: CALL_OW 67
// centeronxy ( 62 , 32 ) ;
 907: LD_INT 62
 909: PPUSH
 910: LD_INT 32
 912: PPUSH
 913: CALL_OW 84
// wait ( 0 0$0.7 ) ;
 917: LD_INT 24
 919: PPUSH
 920: CALL_OW 67
// centeronxy ( 69 , 41 ) ;
 924: LD_INT 69
 926: PPUSH
 927: LD_INT 41
 929: PPUSH
 930: CALL_OW 84
// ingameon ;
 934: CALL_OW 8
// say ( off1 , D1i-Off1-1 ) ;
 938: LD_INT 35
 940: PPUSH
 941: LD_STRING D1i-Off1-1
 943: PPUSH
 944: CALL_OW 88
// say ( off2 , D1i-Off2-1 ) ;
 948: LD_INT 38
 950: PPUSH
 951: LD_STRING D1i-Off2-1
 953: PPUSH
 954: CALL_OW 88
// say ( off1 , D1i-Off1-2 ) ;
 958: LD_INT 35
 960: PPUSH
 961: LD_STRING D1i-Off1-2
 963: PPUSH
 964: CALL_OW 88
// wait ( 2 ) ;
 968: LD_INT 2
 970: PPUSH
 971: CALL_OW 67
// seradit ( g1 , 65 , 36 ) ;
 975: LD_LOC 2
 979: PPUSH
 980: LD_INT 65
 982: PPUSH
 983: LD_INT 36
 985: PPUSH
 986: CALL 0 0 3
// wait ( 0 0$2 ) ;
 990: LD_INT 70
 992: PPUSH
 993: CALL_OW 67
// seradit ( g2 , 68 , 39 ) ;
 997: LD_LOC 3
1001: PPUSH
1002: LD_INT 68
1004: PPUSH
1005: LD_INT 39
1007: PPUSH
1008: CALL 0 0 3
// wait ( 0 0$3 ) ;
1012: LD_INT 105
1014: PPUSH
1015: CALL_OW 67
// seradit ( g3 , 71 , 42 ) ;
1019: LD_LOC 4
1023: PPUSH
1024: LD_INT 71
1026: PPUSH
1027: LD_INT 42
1029: PPUSH
1030: CALL 0 0 3
// wait ( 0 0$4 ) ;
1034: LD_INT 140
1036: PPUSH
1037: CALL_OW 67
// seradit ( g4 , 74 , 45 ) ;
1041: LD_LOC 5
1045: PPUSH
1046: LD_INT 74
1048: PPUSH
1049: LD_INT 45
1051: PPUSH
1052: CALL 0 0 3
// wait ( 0 0$11 ) ;
1056: LD_INT 385
1058: PPUSH
1059: CALL_OW 67
// say ( off2 , D1i-Off2-2 ) ;
1063: LD_INT 38
1065: PPUSH
1066: LD_STRING D1i-Off2-2
1068: PPUSH
1069: CALL_OW 88
// say ( off1 , D1i-Off1-3 ) ;
1073: LD_INT 35
1075: PPUSH
1076: LD_STRING D1i-Off1-3
1078: PPUSH
1079: CALL_OW 88
// commoveunit ( g1 , eon ) ;
1083: LD_LOC 2
1087: PPUSH
1088: LD_INT 34
1090: PPUSH
1091: CALL_OW 112
// wait ( 0 0$7 ) ;
1095: LD_INT 245
1097: PPUSH
1098: CALL_OW 67
// commoveunit ( g2 , eon ) ;
1102: LD_LOC 3
1106: PPUSH
1107: LD_INT 34
1109: PPUSH
1110: CALL_OW 112
// end ;
1114: END
// on enterbuilding ( b , un ) do if b = eon then
1115: LD_VAR 0 1
1119: PUSH
1120: LD_INT 34
1122: EQUAL
1123: IFFALSE 1146
// begin wait ( 0 0$9 ) ;
1125: LD_INT 315
1127: PPUSH
1128: CALL_OW 67
// ingameoff ;
1132: CALL_OW 9
// changemap ( 1 , %_cont ) ;
1136: LD_STRING 1
1138: PPUSH
1139: LD_STRING %_cont
1141: PPUSH
1142: CALL_OW 340
// end ;
1146: PPOPN 2
1148: END
