API tools faq
paste
ZoriaRPG

Rebonakku Global ZASM

ZoriaRPG
Sep 9th, 2017
190
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ASM (NASM) 306.14 KB
raw download clone embed print report
  1. GhostZHActiveScript
  2.   SETV D2, 0
  3.   PUSHR D3
  4.   SETR D4, SP
  5.   PUSHR D4
  6.   SETV D2, 8
  7.   PUSHR D2
  8.   GOTO 15026
  9.   POP D4
  10.   SETV D2, 0
  11.   SETV D2, 0.0001
  12.   COMPAREV D2, 0
  13.   GOTOTRUE 33
  14.   PUSHR D4
  15.   SETV D2, 17
  16.   PUSHR D2
  17.   GOTO 15036
  18.   POP D4
  19.   PUSHR D4
  20.   SETV D2, 22
  21.   PUSHR D2
  22.   GOTO 21816
  23.   POP D4
  24.   PUSHR D4
  25.   SETV D2, 27
  26.   PUSHR D2
  27.   GOTO 15056
  28.   POP D4
  29.   PUSHR D4
  30.   SETV D2, 32
  31.   PUSHR D2
  32.   GOTO 21813
  33.   POP D4
  34.   GOTO 8
  35.   SETV D2, 0
  36.   SETV D3, 0
  37.   QUIT
  38.   SETV D2, 0
  39.   SETR D4, SP
  40.   SETR D6, D4
  41.   ADDV D6, 0
  42.   LOADI D2, D6
  43.   PUSHR D2
  44.   SETV D2, 0
  45.   POP D3
  46.   COMPARER D3, D2
  47.   SETMORE D2
  48.   PUSHR D2
  49.   SETR D6, D4
  50.   ADDV D6, 0
  51.   LOADI D2, D6
  52.   PUSHR D2
  53.   SETV D2, 7
  54.   POP D3
  55.   COMPARER D3, D2
  56.   SETLESS D2
  57.   POP D3
  58.   COMPAREV D2, 0
  59.   SETFALSE D2
  60.   COMPAREV D3, 0
  61.   SETFALSE D3
  62.   ADDR D2, D3
  63.   COMPAREV D2, 0.0002
  64.   SETMORE D2
  65.   COMPAREV D2, 0
  66.   GOTOTRUE 69
  67.   SETR D6, D4
  68.   ADDV D6, 0
  69.   LOADI D2, D6
  70.   GOTO 176
  71.   SETV D2, 0
  72.   SETR D6, D4
  73.   ADDV D6, 0
  74.   LOADI D2, D6
  75.   PUSHR D2
  76.   SETV D2, 8
  77.   POP D3
  78.   COMPARER D2, D3
  79.   SETTRUE D2
  80.   COMPAREV D2, 0
  81.   GOTOTRUE 82
  82.   SETV D2, 0
  83.   GOTO 176
  84.   SETV D2, 0
  85.   SETR D6, D4
  86.   ADDV D6, 0
  87.   LOADI D2, D6
  88.   PUSHR D2
  89.   SETV D2, 9
  90.   POP D3
  91.   COMPARER D2, D3
  92.   SETTRUE D2
  93.   COMPAREV D2, 0
  94.   GOTOTRUE 95
  95.   SETV D2, 5
  96.   GOTO 176
  97.   SETV D2, 0
  98.   SETR D6, D4
  99.   ADDV D6, 0
  100.   LOADI D2, D6
  101.   PUSHR D2
  102.   SETV D2, 10
  103.   POP D3
  104.   COMPARER D2, D3
  105.   SETTRUE D2
  106.   COMPAREV D2, 0
  107.   GOTOTRUE 108
  108.   SETV D2, 3
  109.   GOTO 176
  110.   SETV D2, 0
  111.   SETR D6, D4
  112.   ADDV D6, 0
  113.   LOADI D2, D6
  114.   PUSHR D2
  115.   SETV D2, 11
  116.   POP D3
  117.   COMPARER D2, D3
  118.   SETTRUE D2
  119.   COMPAREV D2, 0
  120.   GOTOTRUE 121
  121.   SETV D2, 7
  122.   GOTO 176
  123.   SETV D2, 0
  124.   SETR D6, D4
  125.   ADDV D6, 0
  126.   LOADI D2, D6
  127.   PUSHR D2
  128.   SETV D2, 12
  129.   POP D3
  130.   COMPARER D2, D3
  131.   SETTRUE D2
  132.   COMPAREV D2, 0
  133.   GOTOTRUE 134
  134.   SETV D2, 1
  135.   GOTO 176
  136.   SETV D2, 0
  137.   SETR D6, D4
  138.   ADDV D6, 0
  139.   LOADI D2, D6
  140.   PUSHR D2
  141.   SETV D2, 13
  142.   POP D3
  143.   COMPARER D2, D3
  144.   SETTRUE D2
  145.   COMPAREV D2, 0
  146.   GOTOTRUE 147
  147.   SETV D2, 6
  148.   GOTO 176
  149.   SETV D2, 0
  150.   SETR D6, D4
  151.   ADDV D6, 0
  152.   LOADI D2, D6
  153.   PUSHR D2
  154.   SETV D2, 14
  155.   POP D3
  156.   COMPARER D2, D3
  157.   SETTRUE D2
  158.   COMPAREV D2, 0
  159.   GOTOTRUE 160
  160.   SETV D2, 2
  161.   GOTO 176
  162.   SETV D2, 0
  163.   SETR D6, D4
  164.   ADDV D6, 0
  165.   LOADI D2, D6
  166.   PUSHR D2
  167.   SETV D2, 15
  168.   POP D3
  169.   COMPARER D2, D3
  170.   SETTRUE D2
  171.   COMPAREV D2, 0
  172.   GOTOTRUE 173
  173.   SETV D2, 4
  174.   GOTO 176
  175.   SETV D2, 0
  176.   SETV D2, 0
  177.   GOTO 176
  178.   SETV D3, 0
  179.   POP D3
  180.   POP D3
  181.   GOTOR D3
  182.   SETV D2, 0
  183.   PUSHR D2
  184.   SETR D4, SP
  185.   PUSHR D4
  186.   SETV D2, 194
  187.   PUSHR D2
  188.   SETR D6, D4
  189.   ADDV D6, 1
  190.   LOADI D2, D6
  191.   PUSHR D2
  192.   SETV D2, 15
  193.   PUSHR D2
  194.   GOTO 22184
  195.   POP D4
  196.   PUSHR D2
  197.   SETV D2, 65536
  198.   POP D3
  199.   ANDR D2, D3
  200.   PUSHR D2
  201.   SETV D2, 0
  202.   POP D3
  203.   COMPARER D2, D3
  204.   SETTRUE D2
  205.   COMPAREV D2, 0
  206.   GOTOTRUE 207
  207.   SETV D2, 0
  208.   GOTO 254
  209.   SETV D2, 0
  210.   PUSHR D4
  211.   SETV D2, 219
  212.   PUSHR D2
  213.   SETR D6, D4
  214.   ADDV D6, 1
  215.   LOADI D2, D6
  216.   PUSHR D2
  217.   SETV D2, 15
  218.   PUSHR D2
  219.   GOTO 22184
  220.   POP D4
  221.   PUSHR D2
  222.   SETV D2, 65535
  223.   POP D3
  224.   ANDR D2, D3
  225.   SETR D6, D4
  226.   ADDV D6, 0
  227.   STOREI D2, D6
  228.   SETR D6, D4
  229.   ADDV D6, 0
  230.   LOADI D2, D6
  231.   PUSHR D2
  232.   SETV D2, 0
  233.   POP D3
  234.   COMPARER D2, D3
  235.   SETTRUE D2
  236.   COMPAREV D2, 0
  237.   GOTOTRUE 238
  238.   SETV D2, 0
  239.   GOTO 254
  240.   SETV D2, 0
  241.   SETR D6, D4
  242.   ADDV D6, 0
  243.   LOADI D2, D6
  244.   PUSHR D2
  245.   SETV D2, 23
  246.   POP D0
  247.   SETR D1, D2
  248.   SETR D2, SCRIPTRAM
  249.   SETR D6, D4
  250.   ADDV D6, 0
  251.   STOREI D2, D6
  252.   SETR D6, D4
  253.   ADDV D6, 0
  254.   LOADI D2, D6
  255.   GOTO 254
  256.   SETV D3, 0
  257.   POP D3
  258.   POP D3
  259.   POP D3
  260.   GOTOR D3
  261.   SETV D2, 0
  262.   PUSHR D2
  263.   PUSHR D2
  264.   PUSHR D2
  265.   PUSHR D2
  266.   PUSHR D2
  267.   PUSHR D2
  268.   PUSHR D2
  269.   PUSHR D2
  270.   PUSHR D2
  271.   SETR D4, SP
  272.   PUSHR D4
  273.   SETV D2, 279
  274.   PUSHR D2
  275.   SETR D2, GD0
  276.   PUSHR D2
  277.   SETV D2, 1
  278.   PUSHR D2
  279.   GOTO 22091
  280.   POP D4
  281.   PUSHR D2
  282.   SETV D2, 4
  283.   POP D3
  284.   ANDR D2, D3
  285.   PUSHR D2
  286.   SETV D2, 0
  287.   POP D3
  288.   COMPARER D2, D3
  289.   SETFALSE D2
  290.   COMPAREV D2, 0
  291.   GOTOTRUE 301
  292.   PUSHR D4
  293.   SETV D2, 295
  294.   PUSHR D2
  295.   GOTO 18339
  296.   POP D4
  297.   COMPAREV D2, 0
  298.   SETTRUE D2
  299.   COMPAREV D2, 0
  300.   GOTOTRUE 300
  301.   GOTO 773
  302.   SETV D2, 0
  303.   SETV D2, 0
  304.   SETR D6, D4
  305.   ADDV D6, 8
  306.   SETV D2, 0
  307.   STOREI D2, D6
  308.   SETR D6, D4
  309.   ADDV D6, 7
  310.   SETV D2, 0
  311.   STOREI D2, D6
  312.   SETR D6, D4
  313.   ADDV D6, 6
  314.   SETV D2, 0
  315.   STOREI D2, D6
  316.   SETR D6, D4
  317.   ADDV D6, 5
  318.   SETV D2, 0
  319.   STOREI D2, D6
  320.   SETR D6, D4
  321.   ADDV D6, 4
  322.   SETV D2, 0
  323.   STOREI D2, D6
  324.   SETR D6, D4
  325.   ADDV D6, 3
  326.   SETV D2, 0
  327.   STOREI D2, D6
  328.   SETR D6, D4
  329.   ADDV D6, 2
  330.   SETV D2, 0
  331.   STOREI D2, D6
  332.   SETV D2, 1
  333.   PUSHR D2
  334.   SETV D2, 0
  335.   POP D3
  336.   COMPARER D2, D3
  337.   SETFALSE D2
  338.   COMPAREV D2, 0
  339.   GOTOTRUE 374
  340.   PUSHR D4
  341.   SETV D2, 347
  342.   PUSHR D2
  343.   SETR D2, GD0
  344.   PUSHR D2
  345.   SETV D2, 1
  346.   PUSHR D2
  347.   GOTO 22085
  348.   POP D4
  349.   PUSHR D2
  350.   SETV D2, 16
  351.   POP D3
  352.   ANDR D2, D3
  353.   PUSHR D2
  354.   SETV D2, 0
  355.   POP D3
  356.   COMPARER D2, D3
  357.   SETFALSE D2
  358.   COMPAREV D2, 0
  359.   GOTOTRUE 363
  360.   SETV D2, 1
  361.   SETR D6, D4
  362.   ADDV D6, 3
  363.   STOREI D2, D6
  364.   GOTO 368
  365.   SETV D3, 0
  366.   SETV D2, 2
  367.   SETR D6, D4
  368.   ADDV D6, 3
  369.   STOREI D2, D6
  370.   SETV D3, 0
  371.   SETV D2, 4
  372.   SETR D6, D4
  373.   ADDV D6, 2
  374.   STOREI D2, D6
  375.   GOTO 383
  376.   SETV D3, 0
  377.   SETV D2, 1
  378.   SETR D6, D4
  379.   ADDV D6, 3
  380.   STOREI D2, D6
  381.   SETV D2, 5
  382.   SETR D6, D4
  383.   ADDV D6, 2
  384.   STOREI D2, D6
  385.   SETV D3, 0
  386.   SETV D2, 1
  387.   SETR D6, D4
  388.   ADDV D6, 1
  389.   STOREI D2, D6
  390.   SETV D2, 0
  391.   SETR D6, D4
  392.   ADDV D6, 1
  393.   LOADI D2, D6
  394.   PUSHR D2
  395.   PUSHR D4
  396.   SETV D2, 400
  397.   PUSHR D2
  398.   SETR D2, GD0
  399.   PUSHR D2
  400.   GOTO 22010
  401.   POP D4
  402.   POP D3
  403.   COMPARER D3, D2
  404.   SETLESS D2
  405.   COMPAREV D2, 0
  406.   GOTOTRUE 772
  407.   PUSHR D4
  408.   SETV D2, 416
  409.   PUSHR D2
  410.   SETR D2, GD0
  411.   PUSHR D2
  412.   SETR D6, D4
  413.   ADDV D6, 1
  414.   LOADI D2, D6
  415.   PUSHR D2
  416.   GOTO 22015
  417.   POP D4
  418.   SETR D6, D4
  419.   ADDV D6, 6
  420.   STOREI D2, D6
  421.   PUSHR D4
  422.   SETV D2, 428
  423.   PUSHR D2
  424.   SETR D6, D4
  425.   ADDV D6, 6
  426.   LOADI D2, D6
  427.   PUSHR D2
  428.   GOTO 180
  429.   POP D4
  430.   SETR D6, D4
  431.   ADDV D6, 8
  432.   STOREI D2, D6
  433.   SETR D6, D4
  434.   ADDV D6, 8
  435.   LOADI D2, D6
  436.   PUSHR D2
  437.   SETV D2, 0
  438.   POP D3
  439.   COMPARER D2, D3
  440.   SETTRUE D2
  441.   COMPAREV D2, 0
  442.   GOTOTRUE 442
  443.   GOTO 761
  444.   SETV D2, 0
  445.   SETR D2, GD26
  446.   PUSHR D2
  447.   SETV D2, 0
  448.   POP D0
  449.   SETR D1, D2
  450.   SETR D2, GLOBALRAM
  451.   PUSHR D2
  452.   SETV D2, 1
  453.   POP D3
  454.   ANDR D2, D3
  455.   PUSHR D2
  456.   SETV D2, 0
  457.   POP D3
  458.   COMPARER D2, D3
  459.   SETFALSE D2
  460.   COMPAREV D2, 0
  461.   GOTOTRUE 481
  462.   SETR D6, D4
  463.   ADDV D6, 8
  464.   LOADI D2, D6
  465.   PUSHR D2
  466.   SETV D2, 2
  467.   POP D0
  468.   SETR D1, D2
  469.   SETR D2, SCRIPTRAM
  470.   PUSHR D2
  471.   SETV D2, 2
  472.   POP D3
  473.   ANDR D2, D3
  474.   PUSHR D2
  475.   SETV D2, 0
  476.   POP D3
  477.   COMPARER D2, D3
  478.   SETFALSE D2
  479.   COMPAREV D2, 0
  480.   GOTOTRUE 480
  481.   GOTO 761
  482.   SETV D2, 0
  483.   SETV D2, 0
  484.   SETR D6, D4
  485.   ADDV D6, 8
  486.   LOADI D2, D6
  487.   PUSHR D2
  488.   SETV D2, 2
  489.   POP D0
  490.   SETR D1, D2
  491.   SETR D2, SCRIPTRAM
  492.   PUSHR D2
  493.   SETV D2, 1
  494.   POP D3
  495.   ANDR D2, D3
  496.   PUSHR D2
  497.   SETV D2, 0
  498.   POP D3
  499.   COMPARER D2, D3
  500.   SETFALSE D2
  501.   COMPAREV D2, 0
  502.   GOTOTRUE 506
  503.   SETV D2, 64
  504.   SETR D6, D4
  505.   ADDV D6, 5
  506.   STOREI D2, D6
  507.   GOTO 511
  508.   SETV D3, 0
  509.   SETV D2, 128
  510.   SETR D6, D4
  511.   ADDV D6, 5
  512.   STOREI D2, D6
  513.   SETV D3, 0
  514.   SETR D6, D4
  515.   ADDV D6, 8
  516.   LOADI D2, D6
  517.   PUSHR D2
  518.   SETV D2, 2
  519.   POP D0
  520.   SETR D1, D2
  521.   SETR D2, SCRIPTRAM
  522.   PUSHR D2
  523.   SETV D2, 4
  524.   POP D3
  525.   ANDR D2, D3
  526.   PUSHR D2
  527.   SETV D2, 0
  528.   POP D3
  529.   COMPARER D2, D3
  530.   SETFALSE D2
  531.   COMPAREV D2, 0
  532.   GOTOTRUE 538
  533.   SETR D6, D4
  534.   ADDV D6, 2
  535.   LOADI D2, D6
  536.   SETR D6, D4
  537.   ADDV D6, 4
  538.   STOREI D2, D6
  539.   GOTO 545
  540.   SETV D3, 0
  541.   SETR D6, D4
  542.   ADDV D6, 3
  543.   LOADI D2, D6
  544.   SETR D6, D4
  545.   ADDV D6, 4
  546.   STOREI D2, D6
  547.   SETV D3, 0
  548.   SETV D2, 3
  549.   SETR D6, D4
  550.   ADDV D6, 7
  551.   STOREI D2, D6
  552.   SETV D2, 0
  553.   SETR D6, D4
  554.   ADDV D6, 0
  555.   STOREI D2, D6
  556.   SETV D2, 0
  557.   SETR D6, D4
  558.   ADDV D6, 0
  559.   LOADI D2, D6
  560.   PUSHR D2
  561.   SETR D6, D4
  562.   ADDV D6, 8
  563.   LOADI D2, D6
  564.   PUSHR D2
  565.   SETV D2, 0
  566.   POP D0
  567.   SETR D1, D2
  568.   SETR D2, SCRIPTRAM
  569.   POP D3
  570.   COMPARER D3, D2
  571.   SETMORE D2
  572.   COMPAREV D2, 0
  573.   SETTRUE D2
  574.   COMPAREV D2, 0
  575.   GOTOTRUE 760
  576.   SETR D6, D4
  577.   ADDV D6, 8
  578.   LOADI D2, D6
  579.   PUSHR D2
  580.   SETR D6, D4
  581.   ADDV D6, 7
  582.   LOADI D2, D6
  583.   PUSHR D2
  584.   SETV D2, 0
  585.   POP D3
  586.   ADDR D2, D3
  587.   POP D0
  588.   SETR D1, D2
  589.   SETR D2, SCRIPTRAM
  590.   PUSHR D2
  591.   SETV D2, 1
  592.   POP D3
  593.   COMPARER D2, D3
  594.   SETFALSE D2
  595.   PUSHR D2
  596.   SETR D6, D4
  597.   ADDV D6, 8
  598.   LOADI D2, D6
  599.   PUSHR D2
  600.   SETR D6, D4
  601.   ADDV D6, 7
  602.   LOADI D2, D6
  603.   PUSHR D2
  604.   SETV D2, 0
  605.   POP D3
  606.   ADDR D2, D3
  607.   POP D0
  608.   SETR D1, D2
  609.   SETR D2, SCRIPTRAM
  610.   PUSHR D2
  611.   SETV D2, 0
  612.   POP D3
  613.   COMPARER D2, D3
  614.   SETFALSE D2
  615.   POP D3
  616.   COMPAREV D2, 0
  617.   SETFALSE D2
  618.   COMPAREV D3, 0
  619.   SETFALSE D3
  620.   ADDR D2, D3
  621.   COMPAREV D2, 0.0002
  622.   SETMORE D2
  623.   COMPAREV D2, 0
  624.   GOTOTRUE 738
  625.   PUSHR D4
  626.   SETV D2, 738
  627.   PUSHR D2
  628.   SETR D2, GD0
  629.   PUSHR D2
  630.   SETR D6, D4
  631.   ADDV D6, 4
  632.   LOADI D2, D6
  633.   PUSHR D2
  634.   SETR D6, D4
  635.   ADDV D6, 8
  636.   LOADI D2, D6
  637.   PUSHR D2
  638.   SETR D6, D4
  639.   ADDV D6, 7
  640.   LOADI D2, D6
  641.   PUSHR D2
  642.   SETV D2, 1
  643.   POP D3
  644.   ADDR D2, D3
  645.   POP D0
  646.   SETR D1, D2
  647.   SETR D2, SCRIPTRAM
  648.   PUSHR D2
  649.   SETR D6, D4
  650.   ADDV D6, 8
  651.   LOADI D2, D6
  652.   PUSHR D2
  653.   SETR D6, D4
  654.   ADDV D6, 7
  655.   LOADI D2, D6
  656.   PUSHR D2
  657.   SETV D2, 2
  658.   POP D3
  659.   ADDR D2, D3
  660.   POP D0
  661.   SETR D1, D2
  662.   SETR D2, SCRIPTRAM
  663.   PUSHR D2
  664.   SETR D6, D4
  665.   ADDV D6, 8
  666.   LOADI D2, D6
  667.   PUSHR D2
  668.   SETR D6, D4
  669.   ADDV D6, 7
  670.   LOADI D2, D6
  671.   PUSHR D2
  672.   SETV D2, 0
  673.   POP D3
  674.   ADDR D2, D3
  675.   POP D0
  676.   SETR D1, D2
  677.   SETR D2, SCRIPTRAM
  678.   PUSHR D2
  679.   SETR D6, D4
  680.   ADDV D6, 8
  681.   LOADI D2, D6
  682.   PUSHR D2
  683.   SETR D6, D4
  684.   ADDV D6, 7
  685.   LOADI D2, D6
  686.   PUSHR D2
  687.   SETV D2, 3
  688.   POP D3
  689.   ADDR D2, D3
  690.   POP D0
  691.   SETR D1, D2
  692.   SETR D2, SCRIPTRAM
  693.   PUSHR D2
  694.   SETR D6, D4
  695.   ADDV D6, 8
  696.   LOADI D2, D6
  697.   PUSHR D2
  698.   SETR D6, D4
  699.   ADDV D6, 7
  700.   LOADI D2, D6
  701.   PUSHR D2
  702.   SETV D2, 4
  703.   POP D3
  704.   ADDR D2, D3
  705.   POP D0
  706.   SETR D1, D2
  707.   SETR D2, SCRIPTRAM
  708.   PUSHR D2
  709.   SETR D6, D4
  710.   ADDV D6, 8
  711.   LOADI D2, D6
  712.   PUSHR D2
  713.   SETV D2, 1
  714.   POP D0
  715.   SETR D1, D2
  716.   SETR D2, SCRIPTRAM
  717.   PUSHR D2
  718.   SETV D2, -1
  719.   PUSHR D2
  720.   SETV D2, -1
  721.   PUSHR D2
  722.   SETV D2, 0
  723.   PUSHR D2
  724.   SETV D2, 0
  725.   PUSHR D2
  726.   SETV D2, 0
  727.   PUSHR D2
  728.   SETV D2, 0
  729.   PUSHR D2
  730.   SETV D2, 0
  731.   PUSHR D2
  732.   SETV D2, 0.0001
  733.   PUSHR D2
  734.   SETR D6, D4
  735.   ADDV D6, 5
  736.   LOADI D2, D6
  737.   PUSHR D2
  738.   GOTO 22047
  739.   POP D4
  740.   SETV D2, 0
  741.   SETR D6, D4
  742.   ADDV D6, 7
  743.   LOADI D2, D6
  744.   PUSHR D2
  745.   SETV D2, 6
  746.   POP D3
  747.   ADDR D2, D3
  748.   SETR D6, D4
  749.   ADDV D6, 7
  750.   STOREI D2, D6
  751.   SETV D3, 0
  752.   SETR D6, D4
  753.   ADDV D6, 0
  754.   LOADI D2, D6
  755.   PUSHR D2
  756.   ADDV D2, 1
  757.   SETR D6, D4
  758.   ADDV D6, 0
  759.   STOREI D2, D6
  760.   POP D2
  761.   GOTO 554
  762.   SETV D3, 0
  763.   SETV D3, 0
  764.   SETR D6, D4
  765.   ADDV D6, 1
  766.   LOADI D2, D6
  767.   PUSHR D2
  768.   ADDV D2, 1
  769.   SETR D6, D4
  770.   ADDV D6, 1
  771.   STOREI D2, D6
  772.   POP D2
  773.   GOTO 388
  774.   SETV D3, 0
  775.   SETV D3, 0
  776.   POP D3
  777.   POP D3
  778.   POP D3
  779.   POP D3
  780.   POP D3
  781.   POP D3
  782.   POP D3
  783.   POP D3
  784.   POP D3
  785.   POP D3
  786.   GOTOR D3
  787.   SETV D2, 0
  788.   PUSHR D2
  789.   SETR D4, SP
  790.   SETR D6, D4
  791.   ADDV D6, 3
  792.   LOADI D2, D6
  793.   PUSHR D2
  794.   SETV D2, 0
  795.   POP D3
  796.   COMPARER D3, D2
  797.   SETMORE D2
  798.   COMPAREV D2, 0
  799.   SETTRUE D2
  800.   COMPAREV D2, 0
  801.   GOTOTRUE 812
  802.   PUSHR D4
  803.   SETV D2, 809
  804.   PUSHR D2
  805.   SETR D6, D4
  806.   ADDV D6, 9
  807.   LOADI D2, D6
  808.   PUSHR D2
  809.   GOTO 4914
  810.   POP D4
  811.   SETR D6, D4
  812.   ADDV D6, 3
  813.   STOREI D2, D6
  814.   SETV D2, 0
  815.   SETR D6, D4
  816.   ADDV D6, 2
  817.   LOADI D2, D6
  818.   PUSHR D2
  819.   SETV D2, 0
  820.   POP D3
  821.   COMPARER D3, D2
  822.   SETMORE D2
  823.   COMPAREV D2, 0
  824.   SETTRUE D2
  825.   COMPAREV D2, 0
  826.   GOTOTRUE 837
  827.   PUSHR D4
  828.   SETV D2, 834
  829.   PUSHR D2
  830.   SETR D6, D4
  831.   ADDV D6, 9
  832.   LOADI D2, D6
  833.   PUSHR D2
  834.   GOTO 5282
  835.   POP D4
  836.   SETR D6, D4
  837.   ADDV D6, 2
  838.   STOREI D2, D6
  839.   SETV D2, 0
  840.   PUSHR D4
  841.   SETV D2, 849
  842.   PUSHR D2
  843.   SETR D2, GD0
  844.   PUSHR D2
  845.   SETR D6, D4
  846.   ADDV D6, 9
  847.   LOADI D2, D6
  848.   PUSHR D2
  849.   GOTO 22079
  850.   POP D4
  851.   SETR D6, D4
  852.   ADDV D6, 0
  853.   STOREI D2, D6
  854.   SETR D6, D4
  855.   ADDV D6, 8
  856.   LOADI D2, D6
  857.   PUSHR D4
  858.   SETV D3, 867
  859.   PUSHR D3
  860.   PUSHR D2
  861.   SETR D6, D4
  862.   ADDV D6, 0
  863.   LOADI D2, D6
  864.   POP D3
  865.   PUSHR D2
  866.   PUSHR D3
  867.   GOTO 22213
  868.   POP D4
  869.   SETR D6, D4
  870.   ADDV D6, 7
  871.   LOADI D2, D6
  872.   PUSHR D4
  873.   SETV D3, 882
  874.   PUSHR D3
  875.   PUSHR D2
  876.   SETR D6, D4
  877.   ADDV D6, 0
  878.   LOADI D2, D6
  879.   POP D3
  880.   PUSHR D2
  881.   PUSHR D3
  882.   GOTO 22224
  883.   POP D4
  884.   SETR D6, D4
  885.   ADDV D6, 5
  886.   LOADI D2, D6
  887.   PUSHR D4
  888.   SETV D3, 897
  889.   PUSHR D3
  890.   PUSHR D2
  891.   SETR D6, D4
  892.   ADDV D6, 0
  893.   LOADI D2, D6
  894.   POP D3
  895.   PUSHR D2
  896.   PUSHR D3
  897.   GOTO 22274
  898.   POP D4
  899.   SETR D6, D4
  900.   ADDV D6, 4
  901.   LOADI D2, D6
  902.   PUSHR D4
  903.   SETV D3, 912
  904.   PUSHR D3
  905.   PUSHR D2
  906.   SETR D6, D4
  907.   ADDV D6, 0
  908.   LOADI D2, D6
  909.   POP D3
  910.   PUSHR D2
  911.   PUSHR D3
  912.   GOTO 22285
  913.   POP D4
  914.   SETV D2, 0
  915.   PUSHR D4
  916.   SETV D3, 925
  917.   PUSHR D3
  918.   PUSHR D2
  919.   SETR D6, D4
  920.   ADDV D6, 0
  921.   LOADI D2, D6
  922.   POP D3
  923.   PUSHR D2
  924.   PUSHR D3
  925.   GOTO 22301
  926.   POP D4
  927.   SETR D6, D4
  928.   ADDV D6, 1
  929.   LOADI D2, D6
  930.   PUSHR D2
  931.   SETV D2, 1
  932.   POP D3
  933.   ANDR D2, D3
  934.   PUSHR D2
  935.   SETV D2, 0
  936.   POP D3
  937.   COMPARER D2, D3
  938.   SETFALSE D2
  939.   COMPAREV D2, 0
  940.   GOTOTRUE 961
  941.   PUSHR D4
  942.   SETV D2, 948
  943.   PUSHR D2
  944.   SETR D6, D4
  945.   ADDV D6, 6
  946.   LOADI D2, D6
  947.   PUSHR D2
  948.   GOTO 6235
  949.   POP D4
  950.   PUSHR D4
  951.   SETV D3, 960
  952.   PUSHR D3
  953.   PUSHR D2
  954.   SETR D6, D4
  955.   ADDV D6, 0
  956.   LOADI D2, D6
  957.   POP D3
  958.   PUSHR D2
  959.   PUSHR D3
  960.   GOTO 22252
  961.   POP D4
  962.   GOTO 977
  963.   SETV D3, 0
  964.   SETR D6, D4
  965.   ADDV D6, 6
  966.   LOADI D2, D6
  967.   PUSHR D4
  968.   SETV D3, 977
  969.   PUSHR D3
  970.   PUSHR D2
  971.   SETR D6, D4
  972.   ADDV D6, 0
  973.   LOADI D2, D6
  974.   POP D3
  975.   PUSHR D2
  976.   PUSHR D3
  977.   GOTO 22252
  978.   POP D4
  979.   SETV D3, 0
  980.   SETR D6, D4
  981.   ADDV D6, 3
  982.   LOADI D2, D6
  983.   PUSHR D2
  984.   SETV D2, 0
  985.   POP D3
  986.   COMPARER D3, D2
  987.   SETMORE D2
  988.   COMPAREV D2, 0
  989.   GOTOTRUE 1001
  990.   PUSHR D4
  991.   SETV D2, 1001
  992.   PUSHR D2
  993.   SETR D6, D4
  994.   ADDV D6, 0
  995.   LOADI D2, D6
  996.   PUSHR D2
  997.   SETR D6, D4
  998.   ADDV D6, 3
  999.   LOADI D2, D6
  1000.   PUSHR D2
  1001.   GOTO 22416
  1002.   POP D4
  1003.   SETV D2, 0
  1004.   SETR D6, D4
  1005.   ADDV D6, 1
  1006.   LOADI D2, D6
  1007.   PUSHR D2
  1008.   SETV D2, 32
  1009.   POP D3
  1010.   ANDR D2, D3
  1011.   PUSHR D2
  1012.   SETV D2, 0
  1013.   POP D3
  1014.   COMPARER D2, D3
  1015.   SETFALSE D2
  1016.   COMPAREV D2, 0
  1017.   GOTOTRUE 1029
  1018.   SETV D2, 0
  1019.   PUSHR D4
  1020.   SETV D3, 1029
  1021.   PUSHR D3
  1022.   PUSHR D2
  1023.   SETR D6, D4
  1024.   ADDV D6, 0
  1025.   LOADI D2, D6
  1026.   POP D3
  1027.   PUSHR D2
  1028.   PUSHR D3
  1029.   GOTO 22435
  1030.   POP D4
  1031.   SETV D2, 0
  1032.   SETR D6, D4
  1033.   ADDV D6, 1
  1034.   LOADI D2, D6
  1035.   PUSHR D2
  1036.   SETV D2, 2
  1037.   POP D3
  1038.   ANDR D2, D3
  1039.   PUSHR D2
  1040.   SETV D2, 0
  1041.   POP D3
  1042.   COMPARER D2, D3
  1043.   SETFALSE D2
  1044.   COMPAREV D2, 0
  1045.   GOTOTRUE 1053
  1046.   PUSHR D4
  1047.   SETV D2, 1053
  1048.   PUSHR D2
  1049.   SETR D6, D4
  1050.   ADDV D6, 0
  1051.   LOADI D2, D6
  1052.   PUSHR D2
  1053.   GOTO 4136
  1054.   POP D4
  1055.   SETV D2, 0
  1056.   SETR D6, D4
  1057.   ADDV D6, 1
  1058.   LOADI D2, D6
  1059.   PUSHR D2
  1060.   SETV D2, 512
  1061.   POP D3
  1062.   ORR D2, D3
  1063.   PUSHR D4
  1064.   SETV D3, 1075
  1065.   PUSHR D3
  1066.   PUSHR D2
  1067.   SETR D6, D4
  1068.   ADDV D6, 0
  1069.   LOADI D2, D6
  1070.   POP D3
  1071.   PUSHR D2
  1072.   PUSHR D3
  1073.   SETV D2, 15
  1074.   PUSHR D2
  1075.   GOTO 22428
  1076.   POP D4
  1077.   PUSHR D4
  1078.   SETV D2, 1086
  1079.   PUSHR D2
  1080.   SETR D2, GD0
  1081.   PUSHR D2
  1082.   SETR D6, D4
  1083.   ADDV D6, 2
  1084.   LOADI D2, D6
  1085.   PUSHR D2
  1086.   GOTO 22113
  1087.   POP D4
  1088.   SETR D6, D4
  1089.   ADDV D6, 0
  1090.   LOADI D2, D6
  1091.   GOTO 1090
  1092.   SETV D3, 0
  1093.   POP D3
  1094.   POP D3
  1095.   POP D3
  1096.   POP D3
  1097.   POP D3
  1098.   POP D3
  1099.   POP D3
  1100.   POP D3
  1101.   POP D3
  1102.   POP D3
  1103.   POP D3
  1104.   GOTOR D3
  1105.   SETV D2, 0
  1106.   PUSHR D2
  1107.   PUSHR D2
  1108.   PUSHR D2
  1109.   PUSHR D2
  1110.   PUSHR D2
  1111.   PUSHR D2
  1112.   PUSHR D2
  1113.   PUSHR D2
  1114.   SETR D4, SP
  1115.   SETR D2, GD26
  1116.   PUSHR D2
  1117.   SETV D2, 0
  1118.   POP D0
  1119.   SETR D1, D2
  1120.   SETR D2, GLOBALRAM
  1121.   PUSHR D2
  1122.   SETV D2, 2
  1123.   POP D3
  1124.   ANDR D2, D3
  1125.   PUSHR D2
  1126.   SETV D2, 0
  1127.   POP D3
  1128.   COMPARER D2, D3
  1129.   SETFALSE D2
  1130.   COMPAREV D2, 0
  1131.   GOTOTRUE 1131
  1132.   GOTO 3282
  1133.   SETV D2, 0
  1134.   PUSHR D4
  1135.   SETV D2, 1141
  1136.   PUSHR D2
  1137.   SETR D6, D4
  1138.   ADDV D6, 8
  1139.   LOADI D2, D6
  1140.   PUSHR D2
  1141.   GOTO 22208
  1142.   POP D4
  1143.   SETR D6, D4
  1144.   ADDV D6, 7
  1145.   STOREI D2, D6
  1146.   PUSHR D4
  1147.   SETV D2, 1153
  1148.   PUSHR D2
  1149.   SETR D6, D4
  1150.   ADDV D6, 8
  1151.   LOADI D2, D6
  1152.   PUSHR D2
  1153.   GOTO 22219
  1154.   POP D4
  1155.   SETR D6, D4
  1156.   ADDV D6, 6
  1157.   STOREI D2, D6
  1158.   SETV D2, 0.0001
  1159.   SETR D6, D4
  1160.   ADDV D6, 5
  1161.   STOREI D2, D6
  1162.   PUSHR D4
  1163.   SETV D2, 1171
  1164.   PUSHR D2
  1165.   SETR D6, D4
  1166.   ADDV D6, 8
  1167.   LOADI D2, D6
  1168.   PUSHR D2
  1169.   SETV D2, 15
  1170.   PUSHR D2
  1171.   GOTO 22422
  1172.   POP D4
  1173.   PUSHR D2
  1174.   SETV D2, 128
  1175.   POP D3
  1176.   ANDR D2, D3
  1177.   PUSHR D2
  1178.   SETV D2, 0
  1179.   POP D3
  1180.   COMPARER D2, D3
  1181.   SETTRUE D2
  1182.   COMPAREV D2, 0
  1183.   GOTOTRUE 1855
  1184.   PUSHR D4
  1185.   SETV D2, 1193
  1186.   PUSHR D2
  1187.   SETR D6, D4
  1188.   ADDV D6, 8
  1189.   LOADI D2, D6
  1190.   PUSHR D2
  1191.   SETV D2, 8
  1192.   PUSHR D2
  1193.   GOTO 22422
  1194.   POP D4
  1195.   PUSHR D2
  1196.   SETV D2, 0
  1197.   POP D3
  1198.   COMPARER D2, D3
  1199.   SETFALSE D2
  1200.   COMPAREV D2, 0
  1201.   GOTOTRUE 1575
  1202.   PUSHR D4
  1203.   SETV D2, 1211
  1204.   PUSHR D2
  1205.   SETR D6, D4
  1206.   ADDV D6, 8
  1207.   LOADI D2, D6
  1208.   PUSHR D2
  1209.   SETV D2, 8
  1210.   PUSHR D2
  1211.   GOTO 22422
  1212.   POP D4
  1213.   PUSHR D2
  1214.   SETV D2, 6
  1215.   POP D3
  1216.   COMPARER D3, D2
  1217.   SETLESS D2
  1218.   COMPAREV D2, 0
  1219.   GOTOTRUE 1348
  1220.   PUSHR D4
  1221.   SETV D2, 1229
  1222.   PUSHR D2
  1223.   SETR D6, D4
  1224.   ADDV D6, 8
  1225.   LOADI D2, D6
  1226.   PUSHR D2
  1227.   SETV D2, 8
  1228.   PUSHR D2
  1229.   GOTO 22422
  1230.   POP D4
  1231.   PUSHR D2
  1232.   SETV D2, 1
  1233.   POP D3
  1234.   COMPARER D2, D3
  1235.   SETTRUE D2
  1236.   COMPAREV D2, 0
  1237.   GOTOTRUE 1246
  1238.   PUSHR D4
  1239.   SETV D2, 1245
  1240.   PUSHR D2
  1241.   SETR D6, D4
  1242.   ADDV D6, 8
  1243.   LOADI D2, D6
  1244.   PUSHR D2
  1245.   GOTO 9795
  1246.   POP D4
  1247.   GOTO 1346
  1248.   SETV D3, 0
  1249.   PUSHR D4
  1250.   SETV D2, 1258
  1251.   PUSHR D2
  1252.   SETR D6, D4
  1253.   ADDV D6, 8
  1254.   LOADI D2, D6
  1255.   PUSHR D2
  1256.   SETV D2, 8
  1257.   PUSHR D2
  1258.   GOTO 22422
  1259.   POP D4
  1260.   PUSHR D2
  1261.   SETV D2, 3
  1262.   POP D3
  1263.   COMPARER D2, D3
  1264.   SETTRUE D2
  1265.   COMPAREV D2, 0
  1266.   GOTOTRUE 1275
  1267.   PUSHR D4
  1268.   SETV D2, 1274
  1269.   PUSHR D2
  1270.   SETR D6, D4
  1271.   ADDV D6, 8
  1272.   LOADI D2, D6
  1273.   PUSHR D2
  1274.   GOTO 10102
  1275.   POP D4
  1276.   GOTO 1345
  1277.   SETV D3, 0
  1278.   PUSHR D4
  1279.   SETV D2, 1287
  1280.   PUSHR D2
  1281.   SETR D6, D4
  1282.   ADDV D6, 8
  1283.   LOADI D2, D6
  1284.   PUSHR D2
  1285.   SETV D2, 8
  1286.   PUSHR D2
  1287.   GOTO 22422
  1288.   POP D4
  1289.   PUSHR D2
  1290.   SETV D2, 4
  1291.   POP D3
  1292.   COMPARER D2, D3
  1293.   SETTRUE D2
  1294.   COMPAREV D2, 0
  1295.   GOTOTRUE 1304
  1296.   PUSHR D4
  1297.   SETV D2, 1303
  1298.   PUSHR D2
  1299.   SETR D6, D4
  1300.   ADDV D6, 8
  1301.   LOADI D2, D6
  1302.   PUSHR D2
  1303.   GOTO 10506
  1304.   POP D4
  1305.   GOTO 1344
  1306.   SETV D3, 0
  1307.   PUSHR D4
  1308.   SETV D2, 1316
  1309.   PUSHR D2
  1310.   SETR D6, D4
  1311.   ADDV D6, 8
  1312.   LOADI D2, D6
  1313.   PUSHR D2
  1314.   SETV D2, 8
  1315.   PUSHR D2
  1316.   GOTO 22422
  1317.   POP D4
  1318.   PUSHR D2
  1319.   SETV D2, 5
  1320.   POP D3
  1321.   COMPARER D2, D3
  1322.   SETTRUE D2
  1323.   COMPAREV D2, 0
  1324.   GOTOTRUE 1333
  1325.   PUSHR D4
  1326.   SETV D2, 1332
  1327.   PUSHR D2
  1328.   SETR D6, D4
  1329.   ADDV D6, 8
  1330.   LOADI D2, D6
  1331.   PUSHR D2
  1332.   GOTO 11095
  1333.   POP D4
  1334.   GOTO 1343
  1335.   SETV D3, 0
  1336.   PUSHR D4
  1337.   SETV D2, 1343
  1338.   PUSHR D2
  1339.   SETR D6, D4
  1340.   ADDV D6, 8
  1341.   LOADI D2, D6
  1342.   PUSHR D2
  1343.   GOTO 11279
  1344.   POP D4
  1345.   SETV D3, 0
  1346.   SETV D3, 0
  1347.   SETV D3, 0
  1348.   SETV D3, 0
  1349.   GOTO 1574
  1350.   SETV D3, 0
  1351.   PUSHR D4
  1352.   SETV D2, 1360
  1353.   PUSHR D2
  1354.   SETR D6, D4
  1355.   ADDV D6, 8
  1356.   LOADI D2, D6
  1357.   PUSHR D2
  1358.   SETV D2, 8
  1359.   PUSHR D2
  1360.   GOTO 22422
  1361.   POP D4
  1362.   PUSHR D2
  1363.   SETV D2, 7
  1364.   POP D3
  1365.   COMPARER D2, D3
  1366.   SETTRUE D2
  1367.   COMPAREV D2, 0
  1368.   GOTOTRUE 1409
  1369.   PUSHR D4
  1370.   SETV D2, 1378
  1371.   PUSHR D2
  1372.   SETR D6, D4
  1373.   ADDV D6, 8
  1374.   LOADI D2, D6
  1375.   PUSHR D2
  1376.   SETV D2, 4
  1377.   PUSHR D2
  1378.   GOTO 22422
  1379.   POP D4
  1380.   SETR D6, D4
  1381.   ADDV D6, 7
  1382.   STOREI D2, D6
  1383.   PUSHR D4
  1384.   SETV D2, 1392
  1385.   PUSHR D2
  1386.   SETR D6, D4
  1387.   ADDV D6, 8
  1388.   LOADI D2, D6
  1389.   PUSHR D2
  1390.   SETV D2, 5
  1391.   PUSHR D2
  1392.   GOTO 22422
  1393.   POP D4
  1394.   SETR D6, D4
  1395.   ADDV D6, 6
  1396.   STOREI D2, D6
  1397.   PUSHR D4
  1398.   SETV D2, 1404
  1399.   PUSHR D2
  1400.   SETR D6, D4
  1401.   ADDV D6, 8
  1402.   LOADI D2, D6
  1403.   PUSHR D2
  1404.   GOTO 11814
  1405.   POP D4
  1406.   SETV D2, 0
  1407.   SETR D6, D4
  1408.   ADDV D6, 5
  1409.   STOREI D2, D6
  1410.   GOTO 1573
  1411.   SETV D3, 0
  1412.   PUSHR D4
  1413.   SETV D2, 1421
  1414.   PUSHR D2
  1415.   SETR D6, D4
  1416.   ADDV D6, 8
  1417.   LOADI D2, D6
  1418.   PUSHR D2
  1419.   SETV D2, 8
  1420.   PUSHR D2
  1421.   GOTO 22422
  1422.   POP D4
  1423.   PUSHR D2
  1424.   SETV D2, 15
  1425.   POP D3
  1426.   COMPARER D2, D3
  1427.   SETTRUE D2
  1428.   COMPAREV D2, 0
  1429.   GOTOTRUE 1438
  1430.   PUSHR D4
  1431.   SETV D2, 1437
  1432.   PUSHR D2
  1433.   SETR D6, D4
  1434.   ADDV D6, 8
  1435.   LOADI D2, D6
  1436.   PUSHR D2
  1437.   GOTO 12638
  1438.   POP D4
  1439.   GOTO 1572
  1440.   SETV D3, 0
  1441.   PUSHR D4
  1442.   SETV D2, 1450
  1443.   PUSHR D2
  1444.   SETR D6, D4
  1445.   ADDV D6, 8
  1446.   LOADI D2, D6
  1447.   PUSHR D2
  1448.   SETV D2, 8
  1449.   PUSHR D2
  1450.   GOTO 22422
  1451.   POP D4
  1452.   PUSHR D2
  1453.   SETV D2, 19
  1454.   POP D3
  1455.   COMPARER D2, D3
  1456.   SETTRUE D2
  1457.   COMPAREV D2, 0
  1458.   GOTOTRUE 1467
  1459.   PUSHR D4
  1460.   SETV D2, 1466
  1461.   PUSHR D2
  1462.   SETR D6, D4
  1463.   ADDV D6, 8
  1464.   LOADI D2, D6
  1465.   PUSHR D2
  1466.   GOTO 13072
  1467.   POP D4
  1468.   GOTO 1571
  1469.   SETV D3, 0
  1470.   PUSHR D4
  1471.   SETV D2, 1479
  1472.   PUSHR D2
  1473.   SETR D6, D4
  1474.   ADDV D6, 8
  1475.   LOADI D2, D6
  1476.   PUSHR D2
  1477.   SETV D2, 8
  1478.   PUSHR D2
  1479.   GOTO 22422
  1480.   POP D4
  1481.   PUSHR D2
  1482.   SETV D2, 20
  1483.   POP D3
  1484.   COMPARER D2, D3
  1485.   SETTRUE D2
  1486.   COMPAREV D2, 0
  1487.   GOTOTRUE 1528
  1488.   PUSHR D4
  1489.   SETV D2, 1497
  1490.   PUSHR D2
  1491.   SETR D6, D4
  1492.   ADDV D6, 8
  1493.   LOADI D2, D6
  1494.   PUSHR D2
  1495.   SETV D2, 4
  1496.   PUSHR D2
  1497.   GOTO 22422
  1498.   POP D4
  1499.   SETR D6, D4
  1500.   ADDV D6, 7
  1501.   STOREI D2, D6
  1502.   PUSHR D4
  1503.   SETV D2, 1511
  1504.   PUSHR D2
  1505.   SETR D6, D4
  1506.   ADDV D6, 8
  1507.   LOADI D2, D6
  1508.   PUSHR D2
  1509.   SETV D2, 5
  1510.   PUSHR D2
  1511.   GOTO 22422
  1512.   POP D4
  1513.   SETR D6, D4
  1514.   ADDV D6, 6
  1515.   STOREI D2, D6
  1516.   PUSHR D4
  1517.   SETV D2, 1523
  1518.   PUSHR D2
  1519.   SETR D6, D4
  1520.   ADDV D6, 8
  1521.   LOADI D2, D6
  1522.   PUSHR D2
  1523.   GOTO 13407
  1524.   POP D4
  1525.   SETV D2, 0
  1526.   SETR D6, D4
  1527.   ADDV D6, 5
  1528.   STOREI D2, D6
  1529.   GOTO 1570
  1530.   SETV D3, 0
  1531.   PUSHR D4
  1532.   SETV D2, 1540
  1533.   PUSHR D2
  1534.   SETR D6, D4
  1535.   ADDV D6, 8
  1536.   LOADI D2, D6
  1537.   PUSHR D2
  1538.   SETV D2, 4
  1539.   PUSHR D2
  1540.   GOTO 22422
  1541.   POP D4
  1542.   SETR D6, D4
  1543.   ADDV D6, 7
  1544.   STOREI D2, D6
  1545.   PUSHR D4
  1546.   SETV D2, 1554
  1547.   PUSHR D2
  1548.   SETR D6, D4
  1549.   ADDV D6, 8
  1550.   LOADI D2, D6
  1551.   PUSHR D2
  1552.   SETV D2, 5
  1553.   PUSHR D2
  1554.   GOTO 22422
  1555.   POP D4
  1556.   SETR D6, D4
  1557.   ADDV D6, 6
  1558.   STOREI D2, D6
  1559.   PUSHR D4
  1560.   SETV D2, 1566
  1561.   PUSHR D2
  1562.   SETR D6, D4
  1563.   ADDV D6, 8
  1564.   LOADI D2, D6
  1565.   PUSHR D2
  1566.   GOTO 14192
  1567.   POP D4
  1568.   SETV D2, 0
  1569.   SETR D6, D4
  1570.   ADDV D6, 5
  1571.   STOREI D2, D6
  1572.   SETV D3, 0
  1573.   SETV D3, 0
  1574.   SETV D3, 0
  1575.   SETV D3, 0
  1576.   SETV D3, 0
  1577.   SETV D2, 0
  1578.   PUSHR D4
  1579.   SETV D2, 1587
  1580.   PUSHR D2
  1581.   SETR D6, D4
  1582.   ADDV D6, 8
  1583.   LOADI D2, D6
  1584.   PUSHR D2
  1585.   SETV D2, 11
  1586.   PUSHR D2
  1587.   GOTO 22422
  1588.   POP D4
  1589.   PUSHR D2
  1590.   SETV D2, 0
  1591.   POP D3
  1592.   COMPARER D2, D3
  1593.   SETFALSE D2
  1594.   COMPAREV D2, 0
  1595.   GOTOTRUE 1853
  1596.   PUSHR D4
  1597.   SETV D2, 1605
  1598.   PUSHR D2
  1599.   SETR D6, D4
  1600.   ADDV D6, 8
  1601.   LOADI D2, D6
  1602.   PUSHR D2
  1603.   SETV D2, 11
  1604.   PUSHR D2
  1605.   GOTO 22422
  1606.   POP D4
  1607.   PUSHR D2
  1608.   SETV D2, 1
  1609.   POP D3
  1610.   COMPARER D2, D3
  1611.   SETTRUE D2
  1612.   COMPAREV D2, 0
  1613.   GOTOTRUE 1671
  1614.   PUSHR D4
  1615.   SETV D2, 1623
  1616.   PUSHR D2
  1617.   SETR D6, D4
  1618.   ADDV D6, 8
  1619.   LOADI D2, D6
  1620.   PUSHR D2
  1621.   SETV D2, 12
  1622.   PUSHR D2
  1623.   GOTO 22422
  1624.   POP D4
  1625.   PUSHR D2
  1626.   SETV D2, 1
  1627.   POP D3
  1628.   SUBR D3, D2
  1629.   SETR D2, D3
  1630.   PUSHR D4
  1631.   SETV D3, 1642
  1632.   PUSHR D3
  1633.   PUSHR D2
  1634.   SETR D6, D4
  1635.   ADDV D6, 8
  1636.   LOADI D2, D6
  1637.   POP D3
  1638.   PUSHR D2
  1639.   PUSHR D3
  1640.   SETV D2, 12
  1641.   PUSHR D2
  1642.   GOTO 22428
  1643.   POP D4
  1644.   PUSHR D4
  1645.   SETV D2, 1653
  1646.   PUSHR D2
  1647.   SETR D6, D4
  1648.   ADDV D6, 8
  1649.   LOADI D2, D6
  1650.   PUSHR D2
  1651.   SETV D2, 12
  1652.   PUSHR D2
  1653.   GOTO 22422
  1654.   POP D4
  1655.   PUSHR D2
  1656.   SETV D2, 0
  1657.   POP D3
  1658.   COMPARER D3, D2
  1659.   SETLESS D2
  1660.   COMPAREV D2, 0
  1661.   GOTOTRUE 1669
  1662.   PUSHR D4
  1663.   SETV D2, 1669
  1664.   PUSHR D2
  1665.   SETR D6, D4
  1666.   ADDV D6, 8
  1667.   LOADI D2, D6
  1668.   PUSHR D2
  1669.   GOTO 4633
  1670.   POP D4
  1671.   SETV D2, 0
  1672.   GOTO 1852
  1673.   SETV D3, 0
  1674.   PUSHR D4
  1675.   SETV D2, 1683
  1676.   PUSHR D2
  1677.   SETR D6, D4
  1678.   ADDV D6, 8
  1679.   LOADI D2, D6
  1680.   PUSHR D2
  1681.   SETV D2, 11
  1682.   PUSHR D2
  1683.   GOTO 22422
  1684.   POP D4
  1685.   PUSHR D2
  1686.   SETV D2, 2
  1687.   POP D3
  1688.   COMPARER D2, D3
  1689.   SETTRUE D2
  1690.   COMPAREV D2, 0
  1691.   GOTOTRUE 1761
  1692.   PUSHR D4
  1693.   SETV D2, 1731
  1694.   PUSHR D2
  1695.   PUSHR D4
  1696.   SETV D2, 1702
  1697.   PUSHR D2
  1698.   SETR D6, D4
  1699.   ADDV D6, 8
  1700.   LOADI D2, D6
  1701.   PUSHR D2
  1702.   GOTO 22208
  1703.   POP D4
  1704.   PUSHR D2
  1705.   PUSHR D4
  1706.   SETV D2, 1712
  1707.   PUSHR D2
  1708.   SETR D6, D4
  1709.   ADDV D6, 8
  1710.   LOADI D2, D6
  1711.   PUSHR D2
  1712.   GOTO 22219
  1713.   POP D4
  1714.   PUSHR D2
  1715.   PUSHR D4
  1716.   SETV D2, 1720
  1717.   PUSHR D2
  1718.   SETR D2, GD0
  1719.   PUSHR D2
  1720.   GOTO 21979
  1721.   POP D4
  1722.   PUSHR D2
  1723.   PUSHR D4
  1724.   SETV D2, 1728
  1725.   PUSHR D2
  1726.   SETR D2, GD0
  1727.   PUSHR D2
  1728.   GOTO 21984
  1729.   POP D4
  1730.   PUSHR D2
  1731.   GOTO 21664
  1732.   POP D4
  1733.   PUSHR D2
  1734.   PUSHR D4
  1735.   SETV D2, 1743
  1736.   PUSHR D2
  1737.   SETR D6, D4
  1738.   ADDV D6, 8
  1739.   LOADI D2, D6
  1740.   PUSHR D2
  1741.   SETV D2, 12
  1742.   PUSHR D2
  1743.   GOTO 22422
  1744.   POP D4
  1745.   POP D3
  1746.   COMPARER D3, D2
  1747.   SETMORE D2
  1748.   COMPAREV D2, 0
  1749.   SETTRUE D2
  1750.   COMPAREV D2, 0
  1751.   GOTOTRUE 1759
  1752.   PUSHR D4
  1753.   SETV D2, 1759
  1754.   PUSHR D2
  1755.   SETR D6, D4
  1756.   ADDV D6, 8
  1757.   LOADI D2, D6
  1758.   PUSHR D2
  1759.   GOTO 4633
  1760.   POP D4
  1761.   SETV D2, 0
  1762.   GOTO 1851
  1763.   SETV D3, 0
  1764.   PUSHR D4
  1765.   SETV D2, 1773
  1766.   PUSHR D2
  1767.   SETR D6, D4
  1768.   ADDV D6, 8
  1769.   LOADI D2, D6
  1770.   PUSHR D2
  1771.   SETV D2, 11
  1772.   PUSHR D2
  1773.   GOTO 22422
  1774.   POP D4
  1775.   PUSHR D2
  1776.   SETV D2, 3
  1777.   POP D3
  1778.   COMPARER D2, D3
  1779.   SETTRUE D2
  1780.   COMPAREV D2, 0
  1781.   GOTOTRUE 1850
  1782.   PUSHR D4
  1783.   SETV D2, 1812
  1784.   PUSHR D2
  1785.   SETV D2, 0
  1786.   PUSHR D2
  1787.   PUSHR D4
  1788.   SETV D2, 1794
  1789.   PUSHR D2
  1790.   SETR D6, D4
  1791.   ADDV D6, 8
  1792.   LOADI D2, D6
  1793.   PUSHR D2
  1794.   GOTO 22269
  1795.   POP D4
  1796.   PUSHR D2
  1797.   PUSHR D4
  1798.   SETV D2, 1806
  1799.   PUSHR D2
  1800.   SETR D6, D4
  1801.   ADDV D6, 8
  1802.   LOADI D2, D6
  1803.   PUSHR D2
  1804.   SETV D2, 12
  1805.   PUSHR D2
  1806.   GOTO 22422
  1807.   POP D4
  1808.   POP D3
  1809.   SUBR D3, D2
  1810.   SETR D2, D3
  1811.   PUSHR D2
  1812.   GOTO 21849
  1813.   POP D4
  1814.   PUSHR D4
  1815.   SETV D3, 1824
  1816.   PUSHR D3
  1817.   PUSHR D2
  1818.   SETR D6, D4
  1819.   ADDV D6, 8
  1820.   LOADI D2, D6
  1821.   POP D3
  1822.   PUSHR D2
  1823.   PUSHR D3
  1824.   GOTO 22274
  1825.   POP D4
  1826.   PUSHR D4
  1827.   SETV D2, 1833
  1828.   PUSHR D2
  1829.   SETR D6, D4
  1830.   ADDV D6, 8
  1831.   LOADI D2, D6
  1832.   PUSHR D2
  1833.   GOTO 22269
  1834.   POP D4
  1835.   PUSHR D2
  1836.   SETV D2, 0
  1837.   POP D3
  1838.   COMPARER D3, D2
  1839.   SETLESS D2
  1840.   COMPAREV D2, 0
  1841.   GOTOTRUE 1849
  1842.   PUSHR D4
  1843.   SETV D2, 1849
  1844.   PUSHR D2
  1845.   SETR D6, D4
  1846.   ADDV D6, 8
  1847.   LOADI D2, D6
  1848.   PUSHR D2
  1849.   GOTO 4633
  1850.   POP D4
  1851.   SETV D2, 0
  1852.   SETV D2, 0
  1853.   SETV D3, 0
  1854.   SETV D3, 0
  1855.   SETV D2, 0
  1856.   GOTO 2409
  1857.   SETV D3, 0
  1858.   PUSHR D4
  1859.   SETV D2, 1867
  1860.   PUSHR D2
  1861.   SETR D6, D4
  1862.   ADDV D6, 8
  1863.   LOADI D2, D6
  1864.   PUSHR D2
  1865.   SETV D2, 13
  1866.   PUSHR D2
  1867.   GOTO 22422
  1868.   POP D4
  1869.   PUSHR D2
  1870.   SETV D2, 0
  1871.   POP D3
  1872.   COMPARER D2, D3
  1873.   SETFALSE D2
  1874.   PUSHR D2
  1875.   PUSHR D4
  1876.   SETV D2, 1884
  1877.   PUSHR D2
  1878.   SETR D6, D4
  1879.   ADDV D6, 8
  1880.   LOADI D2, D6
  1881.   PUSHR D2
  1882.   SETV D2, 15
  1883.   PUSHR D2
  1884.   GOTO 22422
  1885.   POP D4
  1886.   PUSHR D2
  1887.   SETV D2, 1024
  1888.   POP D3
  1889.   ANDR D2, D3
  1890.   PUSHR D2
  1891.   SETV D2, 0
  1892.   POP D3
  1893.   COMPARER D2, D3
  1894.   SETTRUE D2
  1895.   POP D3
  1896.   COMPAREV D2, 0
  1897.   SETFALSE D2
  1898.   COMPAREV D3, 0
  1899.   SETFALSE D3
  1900.   ADDR D2, D3
  1901.   COMPAREV D2, 0.0002
  1902.   SETMORE D2
  1903.   COMPAREV D2, 0
  1904.   GOTOTRUE 2408
  1905.   PUSHR D4
  1906.   SETV D2, 1914
  1907.   PUSHR D2
  1908.   SETR D6, D4
  1909.   ADDV D6, 8
  1910.   LOADI D2, D6
  1911.   PUSHR D2
  1912.   SETV D2, 13
  1913.   PUSHR D2
  1914.   GOTO 22422
  1915.   POP D4
  1916.   PUSHR D2
  1917.   SETV D2, 0
  1918.   POP D3
  1919.   COMPARER D3, D2
  1920.   SETMORE D2
  1921.   COMPAREV D2, 0
  1922.   SETTRUE D2
  1923.   COMPAREV D2, 0
  1924.   GOTOTRUE 1933
  1925.   PUSHR D4
  1926.   SETV D2, 1932
  1927.   PUSHR D2
  1928.   SETR D6, D4
  1929.   ADDV D6, 8
  1930.   LOADI D2, D6
  1931.   PUSHR D2
  1932.   GOTO 6349
  1933.   POP D4
  1934.   GOTO 2407
  1935.   SETV D3, 0
  1936.   PUSHR D4
  1937.   SETV D2, 1945
  1938.   PUSHR D2
  1939.   SETR D6, D4
  1940.   ADDV D6, 8
  1941.   LOADI D2, D6
  1942.   PUSHR D2
  1943.   SETV D2, 13
  1944.   PUSHR D2
  1945.   GOTO 22422
  1946.   POP D4
  1947.   PUSHR D2
  1948.   SETV D2, 8
  1949.   POP D3
  1950.   COMPARER D3, D2
  1951.   SETMORE D2
  1952.   COMPAREV D2, 0
  1953.   SETTRUE D2
  1954.   COMPAREV D2, 0
  1955.   GOTOTRUE 2167
  1956.   PUSHR D4
  1957.   SETV D2, 1965
  1958.   PUSHR D2
  1959.   SETR D6, D4
  1960.   ADDV D6, 8
  1961.   LOADI D2, D6
  1962.   PUSHR D2
  1963.   SETV D2, 13
  1964.   PUSHR D2
  1965.   GOTO 22422
  1966.   POP D4
  1967.   PUSHR D2
  1968.   SETV D2, 1
  1969.   POP D3
  1970.   COMPARER D2, D3
  1971.   SETTRUE D2
  1972.   COMPAREV D2, 0
  1973.   GOTOTRUE 1986
  1974.   SETV D2, 0
  1975.   PUSHR D4
  1976.   SETV D3, 1985
  1977.   PUSHR D3
  1978.   PUSHR D2
  1979.   SETR D6, D4
  1980.   ADDV D6, 8
  1981.   LOADI D2, D6
  1982.   POP D3
  1983.   PUSHR D2
  1984.   PUSHR D3
  1985.   GOTO 22315
  1986.   POP D4
  1987.   GOTO 2165
  1988.   SETV D3, 0
  1989.   PUSHR D4
  1990.   SETV D2, 1998
  1991.   PUSHR D2
  1992.   SETR D6, D4
  1993.   ADDV D6, 8
  1994.   LOADI D2, D6
  1995.   PUSHR D2
  1996.   SETV D2, 13
  1997.   PUSHR D2
  1998.   GOTO 22422
  1999.   POP D4
  2000.   PUSHR D2
  2001.   SETV D2, 2
  2002.   POP D3
  2003.   COMPARER D2, D3
  2004.   SETTRUE D2
  2005.   COMPAREV D2, 0
  2006.   GOTOTRUE 2015
  2007.   PUSHR D4
  2008.   SETV D2, 2014
  2009.   PUSHR D2
  2010.   SETR D6, D4
  2011.   ADDV D6, 8
  2012.   LOADI D2, D6
  2013.   PUSHR D2
  2014.   GOTO 7350
  2015.   POP D4
  2016.   GOTO 2164
  2017.   SETV D3, 0
  2018.   PUSHR D4
  2019.   SETV D2, 2027
  2020.   PUSHR D2
  2021.   SETR D6, D4
  2022.   ADDV D6, 8
  2023.   LOADI D2, D6
  2024.   PUSHR D2
  2025.   SETV D2, 13
  2026.   PUSHR D2
  2027.   GOTO 22422
  2028.   POP D4
  2029.   PUSHR D2
  2030.   SETV D2, 3
  2031.   POP D3
  2032.   COMPARER D2, D3
  2033.   SETTRUE D2
  2034.   COMPAREV D2, 0
  2035.   GOTOTRUE 2044
  2036.   PUSHR D4
  2037.   SETV D2, 2043
  2038.   PUSHR D2
  2039.   SETR D6, D4
  2040.   ADDV D6, 8
  2041.   LOADI D2, D6
  2042.   PUSHR D2
  2043.   GOTO 7716
  2044.   POP D4
  2045.   GOTO 2163
  2046.   SETV D3, 0
  2047.   PUSHR D4
  2048.   SETV D2, 2056
  2049.   PUSHR D2
  2050.   SETR D6, D4
  2051.   ADDV D6, 8
  2052.   LOADI D2, D6
  2053.   PUSHR D2
  2054.   SETV D2, 13
  2055.   PUSHR D2
  2056.   GOTO 22422
  2057.   POP D4
  2058.   PUSHR D2
  2059.   SETV D2, 4
  2060.   POP D3
  2061.   COMPARER D2, D3
  2062.   SETTRUE D2
  2063.   COMPAREV D2, 0
  2064.   GOTOTRUE 2073
  2065.   PUSHR D4
  2066.   SETV D2, 2072
  2067.   PUSHR D2
  2068.   SETR D6, D4
  2069.   ADDV D6, 8
  2070.   LOADI D2, D6
  2071.   PUSHR D2
  2072.   GOTO 7802
  2073.   POP D4
  2074.   GOTO 2162
  2075.   SETV D3, 0
  2076.   PUSHR D4
  2077.   SETV D2, 2085
  2078.   PUSHR D2
  2079.   SETR D6, D4
  2080.   ADDV D6, 8
  2081.   LOADI D2, D6
  2082.   PUSHR D2
  2083.   SETV D2, 13
  2084.   PUSHR D2
  2085.   GOTO 22422
  2086.   POP D4
  2087.   PUSHR D2
  2088.   SETV D2, 5
  2089.   POP D3
  2090.   COMPARER D2, D3
  2091.   SETTRUE D2
  2092.   COMPAREV D2, 0
  2093.   GOTOTRUE 2102
  2094.   PUSHR D4
  2095.   SETV D2, 2101
  2096.   PUSHR D2
  2097.   SETR D6, D4
  2098.   ADDV D6, 8
  2099.   LOADI D2, D6
  2100.   PUSHR D2
  2101.   GOTO 7888
  2102.   POP D4
  2103.   GOTO 2161
  2104.   SETV D3, 0
  2105.   PUSHR D4
  2106.   SETV D2, 2114
  2107.   PUSHR D2
  2108.   SETR D6, D4
  2109.   ADDV D6, 8
  2110.   LOADI D2, D6
  2111.   PUSHR D2
  2112.   SETV D2, 13
  2113.   PUSHR D2
  2114.   GOTO 22422
  2115.   POP D4
  2116.   PUSHR D2
  2117.   SETV D2, 6
  2118.   POP D3
  2119.   COMPARER D2, D3
  2120.   SETTRUE D2
  2121.   COMPAREV D2, 0
  2122.   GOTOTRUE 2131
  2123.   PUSHR D4
  2124.   SETV D2, 2130
  2125.   PUSHR D2
  2126.   SETR D6, D4
  2127.   ADDV D6, 8
  2128.   LOADI D2, D6
  2129.   PUSHR D2
  2130.   GOTO 8012
  2131.   POP D4
  2132.   GOTO 2160
  2133.   SETV D3, 0
  2134.   PUSHR D4
  2135.   SETV D2, 2143
  2136.   PUSHR D2
  2137.   SETR D6, D4
  2138.   ADDV D6, 8
  2139.   LOADI D2, D6
  2140.   PUSHR D2
  2141.   SETV D2, 13
  2142.   PUSHR D2
  2143.   GOTO 22422
  2144.   POP D4
  2145.   PUSHR D2
  2146.   SETV D2, 7
  2147.   POP D3
  2148.   COMPARER D2, D3
  2149.   SETTRUE D2
  2150.   COMPAREV D2, 0
  2151.   GOTOTRUE 2159
  2152.   PUSHR D4
  2153.   SETV D2, 2159
  2154.   PUSHR D2
  2155.   SETR D6, D4
  2156.   ADDV D6, 8
  2157.   LOADI D2, D6
  2158.   PUSHR D2
  2159.   GOTO 8136
  2160.   POP D4
  2161.   SETV D2, 0
  2162.   SETV D3, 0
  2163.   SETV D3, 0
  2164.   SETV D3, 0
  2165.   SETV D3, 0
  2166.   SETV D3, 0
  2167.   SETV D3, 0
  2168.   GOTO 2406
  2169.   SETV D3, 0
  2170.   PUSHR D4
  2171.   SETV D2, 2179
  2172.   PUSHR D2
  2173.   SETR D6, D4
  2174.   ADDV D6, 8
  2175.   LOADI D2, D6
  2176.   PUSHR D2
  2177.   SETV D2, 13
  2178.   PUSHR D2
  2179.   GOTO 22422
  2180.   POP D4
  2181.   PUSHR D2
  2182.   SETV D2, 8
  2183.   POP D3
  2184.   COMPARER D2, D3
  2185.   SETTRUE D2
  2186.   COMPAREV D2, 0
  2187.   GOTOTRUE 2196
  2188.   PUSHR D4
  2189.   SETV D2, 2195
  2190.   PUSHR D2
  2191.   SETR D6, D4
  2192.   ADDV D6, 8
  2193.   LOADI D2, D6
  2194.   PUSHR D2
  2195.   GOTO 8382
  2196.   POP D4
  2197.   GOTO 2405
  2198.   SETV D3, 0
  2199.   PUSHR D4
  2200.   SETV D2, 2208
  2201.   PUSHR D2
  2202.   SETR D6, D4
  2203.   ADDV D6, 8
  2204.   LOADI D2, D6
  2205.   PUSHR D2
  2206.   SETV D2, 13
  2207.   PUSHR D2
  2208.   GOTO 22422
  2209.   POP D4
  2210.   PUSHR D2
  2211.   SETV D2, 9
  2212.   POP D3
  2213.   COMPARER D2, D3
  2214.   SETTRUE D2
  2215.   COMPAREV D2, 0
  2216.   GOTOTRUE 2225
  2217.   PUSHR D4
  2218.   SETV D2, 2224
  2219.   PUSHR D2
  2220.   SETR D6, D4
  2221.   ADDV D6, 8
  2222.   LOADI D2, D6
  2223.   PUSHR D2
  2224.   GOTO 8506
  2225.   POP D4
  2226.   GOTO 2404
  2227.   SETV D3, 0
  2228.   PUSHR D4
  2229.   SETV D2, 2237
  2230.   PUSHR D2
  2231.   SETR D6, D4
  2232.   ADDV D6, 8
  2233.   LOADI D2, D6
  2234.   PUSHR D2
  2235.   SETV D2, 13
  2236.   PUSHR D2
  2237.   GOTO 22422
  2238.   POP D4
  2239.   PUSHR D2
  2240.   SETV D2, 10
  2241.   POP D3
  2242.   COMPARER D2, D3
  2243.   SETTRUE D2
  2244.   COMPAREV D2, 0
  2245.   GOTOTRUE 2254
  2246.   PUSHR D4
  2247.   SETV D2, 2253
  2248.   PUSHR D2
  2249.   SETR D6, D4
  2250.   ADDV D6, 8
  2251.   LOADI D2, D6
  2252.   PUSHR D2
  2253.   GOTO 8639
  2254.   POP D4
  2255.   GOTO 2403
  2256.   SETV D3, 0
  2257.   PUSHR D4
  2258.   SETV D2, 2266
  2259.   PUSHR D2
  2260.   SETR D6, D4
  2261.   ADDV D6, 8
  2262.   LOADI D2, D6
  2263.   PUSHR D2
  2264.   SETV D2, 13
  2265.   PUSHR D2
  2266.   GOTO 22422
  2267.   POP D4
  2268.   PUSHR D2
  2269.   SETV D2, 11
  2270.   POP D3
  2271.   COMPARER D2, D3
  2272.   SETTRUE D2
  2273.   COMPAREV D2, 0
  2274.   GOTOTRUE 2283
  2275.   PUSHR D4
  2276.   SETV D2, 2282
  2277.   PUSHR D2
  2278.   SETR D6, D4
  2279.   ADDV D6, 8
  2280.   LOADI D2, D6
  2281.   PUSHR D2
  2282.   GOTO 8772
  2283.   POP D4
  2284.   GOTO 2402
  2285.   SETV D3, 0
  2286.   PUSHR D4
  2287.   SETV D2, 2295
  2288.   PUSHR D2
  2289.   SETR D6, D4
  2290.   ADDV D6, 8
  2291.   LOADI D2, D6
  2292.   PUSHR D2
  2293.   SETV D2, 13
  2294.   PUSHR D2
  2295.   GOTO 22422
  2296.   POP D4
  2297.   PUSHR D2
  2298.   SETV D2, 12
  2299.   POP D3
  2300.   COMPARER D2, D3
  2301.   SETTRUE D2
  2302.   COMPAREV D2, 0
  2303.   GOTOTRUE 2312
  2304.   PUSHR D4
  2305.   SETV D2, 2311
  2306.   PUSHR D2
  2307.   SETR D6, D4
  2308.   ADDV D6, 8
  2309.   LOADI D2, D6
  2310.   PUSHR D2
  2311.   GOTO 9027
  2312.   POP D4
  2313.   GOTO 2401
  2314.   SETV D3, 0
  2315.   PUSHR D4
  2316.   SETV D2, 2324
  2317.   PUSHR D2
  2318.   SETR D6, D4
  2319.   ADDV D6, 8
  2320.   LOADI D2, D6
  2321.   PUSHR D2
  2322.   SETV D2, 13
  2323.   PUSHR D2
  2324.   GOTO 22422
  2325.   POP D4
  2326.   PUSHR D2
  2327.   SETV D2, 13
  2328.   POP D3
  2329.   COMPARER D2, D3
  2330.   SETTRUE D2
  2331.   COMPAREV D2, 0
  2332.   GOTOTRUE 2341
  2333.   PUSHR D4
  2334.   SETV D2, 2340
  2335.   PUSHR D2
  2336.   SETR D6, D4
  2337.   ADDV D6, 8
  2338.   LOADI D2, D6
  2339.   PUSHR D2
  2340.   GOTO 9373
  2341.   POP D4
  2342.   GOTO 2400
  2343.   SETV D3, 0
  2344.   PUSHR D4
  2345.   SETV D2, 2353
  2346.   PUSHR D2
  2347.   SETR D6, D4
  2348.   ADDV D6, 8
  2349.   LOADI D2, D6
  2350.   PUSHR D2
  2351.   SETV D2, 13
  2352.   PUSHR D2
  2353.   GOTO 22422
  2354.   POP D4
  2355.   PUSHR D2
  2356.   SETV D2, 14
  2357.   POP D3
  2358.   COMPARER D2, D3
  2359.   SETTRUE D2
  2360.   COMPAREV D2, 0
  2361.   GOTOTRUE 2370
  2362.   PUSHR D4
  2363.   SETV D2, 2369
  2364.   PUSHR D2
  2365.   SETR D6, D4
  2366.   ADDV D6, 8
  2367.   LOADI D2, D6
  2368.   PUSHR D2
  2369.   GOTO 9265
  2370.   POP D4
  2371.   GOTO 2399
  2372.   SETV D3, 0
  2373.   PUSHR D4
  2374.   SETV D2, 2382
  2375.   PUSHR D2
  2376.   SETR D6, D4
  2377.   ADDV D6, 8
  2378.   LOADI D2, D6
  2379.   PUSHR D2
  2380.   SETV D2, 13
  2381.   PUSHR D2
  2382.   GOTO 22422
  2383.   POP D4
  2384.   PUSHR D2
  2385.   SETV D2, 15
  2386.   POP D3
  2387.   COMPARER D2, D3
  2388.   SETTRUE D2
  2389.   COMPAREV D2, 0
  2390.   GOTOTRUE 2398
  2391.   PUSHR D4
  2392.   SETV D2, 2398
  2393.   PUSHR D2
  2394.   SETR D6, D4
  2395.   ADDV D6, 8
  2396.   LOADI D2, D6
  2397.   PUSHR D2
  2398.   GOTO 9458
  2399.   POP D4
  2400.   SETV D2, 0
  2401.   SETV D3, 0
  2402.   SETV D3, 0
  2403.   SETV D3, 0
  2404.   SETV D3, 0
  2405.   SETV D3, 0
  2406.   SETV D3, 0
  2407.   SETV D3, 0
  2408.   SETV D3, 0
  2409.   SETV D3, 0
  2410.   SETV D2, 0
  2411.   SETV D3, 0
  2412.   PUSHR D4
  2413.   SETV D2, 2421
  2414.   PUSHR D2
  2415.   SETR D6, D4
  2416.   ADDV D6, 8
  2417.   LOADI D2, D6
  2418.   PUSHR D2
  2419.   SETV D2, 15
  2420.   PUSHR D2
  2421.   GOTO 22422
  2422.   POP D4
  2423.   PUSHR D2
  2424.   SETV D2, 8
  2425.   POP D3
  2426.   ANDR D2, D3
  2427.   PUSHR D2
  2428.   SETV D2, 0
  2429.   POP D3
  2430.   COMPARER D2, D3
  2431.   SETFALSE D2
  2432.   COMPAREV D2, 0
  2433.   GOTOTRUE 2460
  2434.   PUSHR D4
  2435.   SETV D2, 2441
  2436.   PUSHR D2
  2437.   SETR D6, D4
  2438.   ADDV D6, 8
  2439.   LOADI D2, D6
  2440.   PUSHR D2
  2441.   GOTO 22230
  2442.   POP D4
  2443.   PUSHR D2
  2444.   SETV D2, 0
  2445.   POP D3
  2446.   COMPARER D3, D2
  2447.   SETLESS D2
  2448.   COMPAREV D2, 0
  2449.   SETTRUE D2
  2450.   COMPAREV D2, 0
  2451.   GOTOTRUE 2459
  2452.   PUSHR D4
  2453.   SETV D2, 2459
  2454.   PUSHR D2
  2455.   SETR D6, D4
  2456.   ADDV D6, 8
  2457.   LOADI D2, D6
  2458.   PUSHR D2
  2459.   GOTO 4668
  2460.   POP D4
  2461.   SETV D2, 0
  2462.   SETV D2, 0
  2463.   PUSHR D4
  2464.   SETV D2, 2472
  2465.   PUSHR D2
  2466.   SETR D6, D4
  2467.   ADDV D6, 8
  2468.   LOADI D2, D6
  2469.   PUSHR D2
  2470.   SETV D2, 15
  2471.   PUSHR D2
  2472.   GOTO 22422
  2473.   POP D4
  2474.   PUSHR D2
  2475.   SETV D2, 4
  2476.   POP D3
  2477.   ANDR D2, D3
  2478.   PUSHR D2
  2479.   SETV D2, 0
  2480.   POP D3
  2481.   COMPARER D2, D3
  2482.   SETFALSE D2
  2483.   COMPAREV D2, 0
  2484.   GOTOTRUE 3073
  2485.   SETV D2, 1000
  2486.   PUSHR D4
  2487.   SETV D3, 2496
  2488.   PUSHR D3
  2489.   PUSHR D2
  2490.   SETR D6, D4
  2491.   ADDV D6, 8
  2492.   LOADI D2, D6
  2493.   POP D3
  2494.   PUSHR D2
  2495.   PUSHR D3
  2496.   GOTO 22382
  2497.   POP D4
  2498.   PUSHR D4
  2499.   SETV D2, 2503
  2500.   PUSHR D2
  2501.   SETR D2, GD0
  2502.   PUSHR D2
  2503.   GOTO 21989
  2504.   POP D4
  2505.   PUSHR D2
  2506.   SETV D2, 0
  2507.   POP D3
  2508.   COMPARER D3, D2
  2509.   SETLESS D2
  2510.   COMPAREV D2, 0
  2511.   GOTOTRUE 2511
  2512.   GOTO 3282
  2513.   SETV D2, 0
  2514.   PUSHR D4
  2515.   SETV D2, 2523
  2516.   PUSHR D2
  2517.   SETR D6, D4
  2518.   ADDV D6, 8
  2519.   LOADI D2, D6
  2520.   PUSHR D2
  2521.   SETV D2, 15
  2522.   PUSHR D2
  2523.   GOTO 22422
  2524.   POP D4
  2525.   PUSHR D2
  2526.   SETV D2, 16
  2527.   POP D3
  2528.   ANDR D2, D3
  2529.   PUSHR D2
  2530.   SETV D2, 0
  2531.   POP D3
  2532.   COMPARER D2, D3
  2533.   SETFALSE D2
  2534.   PUSHR D2
  2535.   SETR D2, GD26
  2536.   PUSHR D2
  2537.   SETV D2, 0
  2538.   POP D0
  2539.   SETR D1, D2
  2540.   SETR D2, GLOBALRAM
  2541.   PUSHR D2
  2542.   SETV D2, 1
  2543.   POP D3
  2544.   ANDR D2, D3
  2545.   PUSHR D2
  2546.   SETV D2, 0
  2547.   POP D3
  2548.   COMPARER D2, D3
  2549.   SETFALSE D2
  2550.   POP D3
  2551.   COMPAREV D2, 0
  2552.   SETFALSE D2
  2553.   COMPAREV D3, 0
  2554.   SETFALSE D3
  2555.   ADDR D2, D3
  2556.   COMPAREV D2, 0.0002
  2557.   SETMORE D2
  2558.   COMPAREV D2, 0
  2559.   GOTOTRUE 2559
  2560.   GOTO 3282
  2561.   SETV D2, 0
  2562.   SETR D6, D4
  2563.   ADDV D6, 4
  2564.   SETV D2, 0
  2565.   STOREI D2, D6
  2566.   SETR D6, D4
  2567.   ADDV D6, 3
  2568.   SETV D2, 0
  2569.   STOREI D2, D6
  2570.   SETR D6, D4
  2571.   ADDV D6, 2
  2572.   SETV D2, 0
  2573.   STOREI D2, D6
  2574.   PUSHR D4
  2575.   SETV D2, 2581
  2576.   PUSHR D2
  2577.   SETR D6, D4
  2578.   ADDV D6, 8
  2579.   LOADI D2, D6
  2580.   PUSHR D2
  2581.   GOTO 22296
  2582.   POP D4
  2583.   COMPAREV D2, 0
  2584.   GOTOTRUE 2602
  2585.   PUSHR D4
  2586.   SETV D2, 2598
  2587.   PUSHR D2
  2588.   PUSHR D4
  2589.   SETV D2, 2595
  2590.   PUSHR D2
  2591.   SETR D6, D4
  2592.   ADDV D6, 8
  2593.   LOADI D2, D6
  2594.   PUSHR D2
  2595.   GOTO 22258
  2596.   POP D4
  2597.   PUSHR D2
  2598.   GOTO 21544
  2599.   POP D4
  2600.   SETR D6, D4
  2601.   ADDV D6, 2
  2602.   STOREI D2, D6
  2603.   GOTO 2744
  2604.   SETV D3, 0
  2605.   PUSHR D4
  2606.   SETV D2, 2618
  2607.   PUSHR D2
  2608.   PUSHR D4
  2609.   SETV D2, 2615
  2610.   PUSHR D2
  2611.   SETR D6, D4
  2612.   ADDV D6, 8
  2613.   LOADI D2, D6
  2614.   PUSHR D2
  2615.   GOTO 22247
  2616.   POP D4
  2617.   PUSHR D2
  2618.   GOTO 36
  2619.   POP D4
  2620.   SETR D6, D4
  2621.   ADDV D6, 1
  2622.   STOREI D2, D6
  2623.   SETR D6, D4
  2624.   ADDV D6, 1
  2625.   LOADI D2, D6
  2626.   PUSHR D2
  2627.   SETV D2, 0
  2628.   POP D3
  2629.   COMPARER D2, D3
  2630.   SETTRUE D2
  2631.   COMPAREV D2, 0
  2632.   GOTOTRUE 2636
  2633.   SETV D2, -90
  2634.   SETR D6, D4
  2635.   ADDV D6, 2
  2636.   STOREI D2, D6
  2637.   GOTO 2743
  2638.   SETV D3, 0
  2639.   SETR D6, D4
  2640.   ADDV D6, 1
  2641.   LOADI D2, D6
  2642.   PUSHR D2
  2643.   SETV D2, 5
  2644.   POP D3
  2645.   COMPARER D2, D3
  2646.   SETTRUE D2
  2647.   COMPAREV D2, 0
  2648.   GOTOTRUE 2652
  2649.   SETV D2, -45
  2650.   SETR D6, D4
  2651.   ADDV D6, 2
  2652.   STOREI D2, D6
  2653.   GOTO 2742
  2654.   SETV D3, 0
  2655.   SETR D6, D4
  2656.   ADDV D6, 1
  2657.   LOADI D2, D6
  2658.   PUSHR D2
  2659.   SETV D2, 3
  2660.   POP D3
  2661.   COMPARER D2, D3
  2662.   SETTRUE D2
  2663.   COMPAREV D2, 0
  2664.   GOTOTRUE 2668
  2665.   SETV D2, 0
  2666.   SETR D6, D4
  2667.   ADDV D6, 2
  2668.   STOREI D2, D6
  2669.   GOTO 2741
  2670.   SETV D3, 0
  2671.   SETR D6, D4
  2672.   ADDV D6, 1
  2673.   LOADI D2, D6
  2674.   PUSHR D2
  2675.   SETV D2, 7
  2676.   POP D3
  2677.   COMPARER D2, D3
  2678.   SETTRUE D2
  2679.   COMPAREV D2, 0
  2680.   GOTOTRUE 2684
  2681.   SETV D2, 45
  2682.   SETR D6, D4
  2683.   ADDV D6, 2
  2684.   STOREI D2, D6
  2685.   GOTO 2740
  2686.   SETV D3, 0
  2687.   SETR D6, D4
  2688.   ADDV D6, 1
  2689.   LOADI D2, D6
  2690.   PUSHR D2
  2691.   SETV D2, 1
  2692.   POP D3
  2693.   COMPARER D2, D3
  2694.   SETTRUE D2
  2695.   COMPAREV D2, 0
  2696.   GOTOTRUE 2700
  2697.   SETV D2, 90
  2698.   SETR D6, D4
  2699.   ADDV D6, 2
  2700.   STOREI D2, D6
  2701.   GOTO 2739
  2702.   SETV D3, 0
  2703.   SETR D6, D4
  2704.   ADDV D6, 1
  2705.   LOADI D2, D6
  2706.   PUSHR D2
  2707.   SETV D2, 6
  2708.   POP D3
  2709.   COMPARER D2, D3
  2710.   SETTRUE D2
  2711.   COMPAREV D2, 0
  2712.   GOTOTRUE 2716
  2713.   SETV D2, 135
  2714.   SETR D6, D4
  2715.   ADDV D6, 2
  2716.   STOREI D2, D6
  2717.   GOTO 2738
  2718.   SETV D3, 0
  2719.   SETR D6, D4
  2720.   ADDV D6, 1
  2721.   LOADI D2, D6
  2722.   PUSHR D2
  2723.   SETV D2, 2
  2724.   POP D3
  2725.   COMPARER D2, D3
  2726.   SETTRUE D2
  2727.   COMPAREV D2, 0
  2728.   GOTOTRUE 2732
  2729.   SETV D2, 180
  2730.   SETR D6, D4
  2731.   ADDV D6, 2
  2732.   STOREI D2, D6
  2733.   GOTO 2737
  2734.   SETV D3, 0
  2735.   SETV D2, -135
  2736.   SETR D6, D4
  2737.   ADDV D6, 2
  2738.   STOREI D2, D6
  2739.   SETV D3, 0
  2740.   SETV D3, 0
  2741.   SETV D3, 0
  2742.   SETV D3, 0
  2743.   SETV D3, 0
  2744.   SETV D3, 0
  2745.   SETV D3, 0
  2746.   SETV D3, 0
  2747.   SETR D6, D4
  2748.   ADDV D6, 5
  2749.   LOADI D2, D6
  2750.   COMPAREV D2, 0
  2751.   GOTOTRUE 2833
  2752.   PUSHR D4
  2753.   SETV D2, 2759
  2754.   PUSHR D2
  2755.   SETR D6, D4
  2756.   ADDV D6, 8
  2757.   LOADI D2, D6
  2758.   PUSHR D2
  2759.   GOTO 22208
  2760.   POP D4
  2761.   PUSHR D2
  2762.   PUSHR D4
  2763.   SETV D2, 2769
  2764.   PUSHR D2
  2765.   SETR D6, D4
  2766.   ADDV D6, 8
  2767.   LOADI D2, D6
  2768.   PUSHR D2
  2769.   GOTO 22269
  2770.   POP D4
  2771.   PUSHR D2
  2772.   SETV D2, 100
  2773.   POP D3
  2774.   DIVR D3, D2
  2775.   SETR D2, D3
  2776.   PUSHR D2
  2777.   PUSHR D4
  2778.   SETV D2, 2784
  2779.   PUSHR D2
  2780.   SETR D6, D4
  2781.   ADDV D6, 2
  2782.   LOADI D2, D6
  2783.   PUSHR D2
  2784.   GOTO 21835
  2785.   POP D4
  2786.   POP D3
  2787.   MULTR D2, D3
  2788.   POP D3
  2789.   ADDR D2, D3
  2790.   SETR D6, D4
  2791.   ADDV D6, 4
  2792.   STOREI D2, D6
  2793.   PUSHR D4
  2794.   SETV D2, 2800
  2795.   PUSHR D2
  2796.   SETR D6, D4
  2797.   ADDV D6, 8
  2798.   LOADI D2, D6
  2799.   PUSHR D2
  2800.   GOTO 22219
  2801.   POP D4
  2802.   PUSHR D2
  2803.   PUSHR D4
  2804.   SETV D2, 2810
  2805.   PUSHR D2
  2806.   SETR D6, D4
  2807.   ADDV D6, 8
  2808.   LOADI D2, D6
  2809.   PUSHR D2
  2810.   GOTO 22269
  2811.   POP D4
  2812.   PUSHR D2
  2813.   SETV D2, 100
  2814.   POP D3
  2815.   DIVR D3, D2
  2816.   SETR D2, D3
  2817.   PUSHR D2
  2818.   PUSHR D4
  2819.   SETV D2, 2825
  2820.   PUSHR D2
  2821.   SETR D6, D4
  2822.   ADDV D6, 2
  2823.   LOADI D2, D6
  2824.   PUSHR D2
  2825.   GOTO 21826
  2826.   POP D4
  2827.   POP D3
  2828.   MULTR D2, D3
  2829.   POP D3
  2830.   ADDR D2, D3
  2831.   SETR D6, D4
  2832.   ADDV D6, 3
  2833.   STOREI D2, D6
  2834.   GOTO 2862
  2835.   SETV D3, 0
  2836.   PUSHR D4
  2837.   SETV D2, 2845
  2838.   PUSHR D2
  2839.   SETR D6, D4
  2840.   ADDV D6, 8
  2841.   LOADI D2, D6
  2842.   PUSHR D2
  2843.   SETV D2, 4
  2844.   PUSHR D2
  2845.   GOTO 22422
  2846.   POP D4
  2847.   SETR D6, D4
  2848.   ADDV D6, 4
  2849.   STOREI D2, D6
  2850.   PUSHR D4
  2851.   SETV D2, 2859
  2852.   PUSHR D2
  2853.   SETR D6, D4
  2854.   ADDV D6, 8
  2855.   LOADI D2, D6
  2856.   PUSHR D2
  2857.   SETV D2, 5
  2858.   PUSHR D2
  2859.   GOTO 22422
  2860.   POP D4
  2861.   SETR D6, D4
  2862.   ADDV D6, 3
  2863.   STOREI D2, D6
  2864.   SETV D3, 0
  2865.   SETR D6, D4
  2866.   ADDV D6, 7
  2867.   LOADI D2, D6
  2868.   PUSHR D2
  2869.   SETR D6, D4
  2870.   ADDV D6, 4
  2871.   LOADI D2, D6
  2872.   POP D3
  2873.   COMPARER D2, D3
  2874.   SETTRUE D2
  2875.   PUSHR D2
  2876.   SETR D6, D4
  2877.   ADDV D6, 6
  2878.   LOADI D2, D6
  2879.   PUSHR D2
  2880.   SETR D6, D4
  2881.   ADDV D6, 3
  2882.   LOADI D2, D6
  2883.   POP D3
  2884.   COMPARER D2, D3
  2885.   SETTRUE D2
  2886.   POP D3
  2887.   COMPAREV D2, 0
  2888.   SETFALSE D2
  2889.   COMPAREV D3, 0
  2890.   SETFALSE D3
  2891.   ADDR D2, D3
  2892.   COMPAREV D2, 0.0002
  2893.   SETMORE D2
  2894.   COMPAREV D2, 0
  2895.   SETTRUE D2
  2896.   COMPAREV D2, 0
  2897.   GOTOTRUE 2920
  2898.   PUSHR D4
  2899.   SETV D2, 2917
  2900.   PUSHR D2
  2901.   SETR D6, D4
  2902.   ADDV D6, 7
  2903.   LOADI D2, D6
  2904.   PUSHR D2
  2905.   SETR D6, D4
  2906.   ADDV D6, 6
  2907.   LOADI D2, D6
  2908.   PUSHR D2
  2909.   SETR D6, D4
  2910.   ADDV D6, 4
  2911.   LOADI D2, D6
  2912.   PUSHR D2
  2913.   SETR D6, D4
  2914.   ADDV D6, 3
  2915.   LOADI D2, D6
  2916.   PUSHR D2
  2917.   GOTO 21731
  2918.   POP D4
  2919.   SETR D6, D4
  2920.   ADDV D6, 2
  2921.   STOREI D2, D6
  2922.   SETV D2, 0
  2923.   SETR D6, D4
  2924.   ADDV D6, 0
  2925.   SETV D2, 0
  2926.   STOREI D2, D6
  2927.   SETR D6, D4
  2928.   ADDV D6, 2
  2929.   LOADI D2, D6
  2930.   PUSHR D2
  2931.   SETV D2, 0
  2932.   POP D3
  2933.   COMPARER D3, D2
  2934.   SETMORE D2
  2935.   PUSHR D2
  2936.   SETR D6, D4
  2937.   ADDV D6, 2
  2938.   LOADI D2, D6
  2939.   PUSHR D2
  2940.   SETV D2, 180
  2941.   POP D3
  2942.   COMPARER D3, D2
  2943.   SETMORE D2
  2944.   COMPAREV D2, 0
  2945.   SETTRUE D2
  2946.   POP D3
  2947.   COMPAREV D2, 0
  2948.   SETFALSE D2
  2949.   COMPAREV D3, 0
  2950.   SETFALSE D3
  2951.   ADDR D2, D3
  2952.   COMPAREV D2, 0.0002
  2953.   SETMORE D2
  2954.   COMPAREV D2, 0
  2955.   GOTOTRUE 2959
  2956.   SETV D2, 0
  2957.   SETR D6, D4
  2958.   ADDV D6, 0
  2959.   STOREI D2, D6
  2960.   GOTO 2964
  2961.   SETV D3, 0
  2962.   SETV D2, 2
  2963.   SETR D6, D4
  2964.   ADDV D6, 0
  2965.   STOREI D2, D6
  2966.   SETV D3, 0
  2967.   PUSHR D4
  2968.   SETV D2, 3072
  2969.   PUSHR D2
  2970.   SETR D2, GD0
  2971.   PUSHR D2
  2972.   SETV D2, 4
  2973.   PUSHR D2
  2974.   SETR D6, D4
  2975.   ADDV D6, 4
  2976.   LOADI D2, D6
  2977.   PUSHR D2
  2978.   SETR D6, D4
  2979.   ADDV D6, 3
  2980.   LOADI D2, D6
  2981.   PUSHR D2
  2982.   PUSHR D4
  2983.   SETV D2, 2989
  2984.   PUSHR D2
  2985.   SETR D6, D4
  2986.   ADDV D6, 8
  2987.   LOADI D2, D6
  2988.   PUSHR D2
  2989.   GOTO 22230
  2990.   POP D4
  2991.   POP D3
  2992.   SUBR D3, D2
  2993.   SETR D2, D3
  2994.   PUSHR D2
  2995.   PUSHR D4
  2996.   SETV D2, 3002
  2997.   PUSHR D2
  2998.   SETR D6, D4
  2999.   ADDV D6, 8
  3000.   LOADI D2, D6
  3001.   PUSHR D2
  3002.   GOTO 22310
  3003.   POP D4
  3004.   PUSHR D2
  3005.   PUSHR D4
  3006.   SETV D2, 3012
  3007.   PUSHR D2
  3008.   SETR D6, D4
  3009.   ADDV D6, 8
  3010.   LOADI D2, D6
  3011.   PUSHR D2
  3012.   GOTO 22355
  3013.   POP D4
  3014.   PUSHR D2
  3015.   PUSHR D4
  3016.   SETV D2, 3022
  3017.   PUSHR D2
  3018.   SETR D6, D4
  3019.   ADDV D6, 8
  3020.   LOADI D2, D6
  3021.   PUSHR D2
  3022.   GOTO 22366
  3023.   POP D4
  3024.   PUSHR D2
  3025.   PUSHR D4
  3026.   SETV D2, 3032
  3027.   PUSHR D2
  3028.   SETR D6, D4
  3029.   ADDV D6, 8
  3030.   LOADI D2, D6
  3031.   PUSHR D2
  3032.   GOTO 22321
  3033.   POP D4
  3034.   PUSHR D2
  3035.   SETV D2, -1
  3036.   PUSHR D2
  3037.   SETV D2, -1
  3038.   PUSHR D2
  3039.   SETR D6, D4
  3040.   ADDV D6, 4
  3041.   LOADI D2, D6
  3042.   PUSHR D2
  3043.   SETR D6, D4
  3044.   ADDV D6, 3
  3045.   LOADI D2, D6
  3046.   PUSHR D2
  3047.   PUSHR D4
  3048.   SETV D2, 3054
  3049.   PUSHR D2
  3050.   SETR D6, D4
  3051.   ADDV D6, 8
  3052.   LOADI D2, D6
  3053.   PUSHR D2
  3054.   GOTO 22230
  3055.   POP D4
  3056.   POP D3
  3057.   SUBR D3, D2
  3058.   SETR D2, D3
  3059.   PUSHR D2
  3060.   SETR D6, D4
  3061.   ADDV D6, 2
  3062.   LOADI D2, D6
  3063.   PUSHR D2
  3064.   SETR D6, D4
  3065.   ADDV D6, 0
  3066.   LOADI D2, D6
  3067.   PUSHR D2
  3068.   SETV D2, 0.0001
  3069.   PUSHR D2
  3070.   SETV D2, 128
  3071.   PUSHR D2
  3072.   GOTO 22028
  3073.   POP D4
  3074.   GOTO 3175
  3075.   SETV D3, 0
  3076.   PUSHR D4
  3077.   SETV D2, 3085
  3078.   PUSHR D2
  3079.   SETR D6, D4
  3080.   ADDV D6, 8
  3081.   LOADI D2, D6
  3082.   PUSHR D2
  3083.   SETV D2, 15
  3084.   PUSHR D2
  3085.   GOTO 22422
  3086.   POP D4
  3087.   PUSHR D2
  3088.   SETV D2, 16
  3089.   POP D3
  3090.   ANDR D2, D3
  3091.   PUSHR D2
  3092.   SETV D2, 0
  3093.   POP D3
  3094.   COMPARER D2, D3
  3095.   SETFALSE D2
  3096.   COMPAREV D2, 0
  3097.   GOTOTRUE 3142
  3098.   SETR D2, GD26
  3099.   PUSHR D2
  3100.   SETV D2, 0
  3101.   POP D0
  3102.   SETR D1, D2
  3103.   SETR D2, GLOBALRAM
  3104.   PUSHR D2
  3105.   SETV D2, 1
  3106.   POP D3
  3107.   ANDR D2, D3
  3108.   PUSHR D2
  3109.   SETV D2, 0
  3110.   POP D3
  3111.   COMPARER D2, D3
  3112.   SETFALSE D2
  3113.   COMPAREV D2, 0
  3114.   GOTOTRUE 3127
  3115.   SETV D2, 1000
  3116.   PUSHR D4
  3117.   SETV D3, 3126
  3118.   PUSHR D3
  3119.   PUSHR D2
  3120.   SETR D6, D4
  3121.   ADDV D6, 8
  3122.   LOADI D2, D6
  3123.   POP D3
  3124.   PUSHR D2
  3125.   PUSHR D3
  3126.   GOTO 22382
  3127.   POP D4
  3128.   GOTO 3141
  3129.   SETV D3, 0
  3130.   SETV D2, 0
  3131.   PUSHR D4
  3132.   SETV D3, 3141
  3133.   PUSHR D3
  3134.   PUSHR D2
  3135.   SETR D6, D4
  3136.   ADDV D6, 8
  3137.   LOADI D2, D6
  3138.   POP D3
  3139.   PUSHR D2
  3140.   PUSHR D3
  3141.   GOTO 22382
  3142.   POP D4
  3143.   SETV D3, 0
  3144.   SETV D2, 0
  3145.   PUSHR D4
  3146.   SETV D2, 3154
  3147.   PUSHR D2
  3148.   SETR D6, D4
  3149.   ADDV D6, 8
  3150.   LOADI D2, D6
  3151.   PUSHR D2
  3152.   SETV D2, 15
  3153.   PUSHR D2
  3154.   GOTO 22422
  3155.   POP D4
  3156.   PUSHR D2
  3157.   SETV D2, 2
  3158.   POP D3
  3159.   ANDR D2, D3
  3160.   PUSHR D2
  3161.   SETV D2, 0
  3162.   POP D3
  3163.   COMPARER D2, D3
  3164.   SETFALSE D2
  3165.   COMPAREV D2, 0
  3166.   GOTOTRUE 3174
  3167.   PUSHR D4
  3168.   SETV D2, 3174
  3169.   PUSHR D2
  3170.   SETR D6, D4
  3171.   ADDV D6, 8
  3172.   LOADI D2, D6
  3173.   PUSHR D2
  3174.   GOTO 4136
  3175.   POP D4
  3176.   SETV D2, 0
  3177.   SETV D3, 0
  3178.   PUSHR D4
  3179.   SETV D2, 3187
  3180.   PUSHR D2
  3181.   SETR D6, D4
  3182.   ADDV D6, 8
  3183.   LOADI D2, D6
  3184.   PUSHR D2
  3185.   SETV D2, 15
  3186.   PUSHR D2
  3187.   GOTO 22422
  3188.   POP D4
  3189.   PUSHR D2
  3190.   SETV D2, 64
  3191.   POP D3
  3192.   ANDR D2, D3
  3193.   PUSHR D2
  3194.   SETV D2, 0
  3195.   POP D3
  3196.   COMPARER D2, D3
  3197.   SETFALSE D2
  3198.   PUSHR D2
  3199.   SETV D2, 0
  3200.   PUSHR D2
  3201.   SETV D2, 0
  3202.   POP D3
  3203.   COMPARER D2, D3
  3204.   SETFALSE D2
  3205.   POP D3
  3206.   ADDR D2, D3
  3207.   COMPAREV D2, 0.0001
  3208.   SETMORE D2
  3209.   COMPAREV D2, 0
  3210.   GOTOTRUE 3281
  3211.   PUSHR D4
  3212.   SETV D2, 3218
  3213.   PUSHR D2
  3214.   SETR D6, D4
  3215.   ADDV D6, 8
  3216.   LOADI D2, D6
  3217.   PUSHR D2
  3218.   GOTO 22230
  3219.   POP D4
  3220.   SETV D3, 0
  3221.   SUBR D3, D2
  3222.   SETR D2, D3
  3223.   PUSHR D4
  3224.   SETV D3, 3233
  3225.   PUSHR D3
  3226.   PUSHR D2
  3227.   SETR D6, D4
  3228.   ADDV D6, 8
  3229.   LOADI D2, D6
  3230.   POP D3
  3231.   PUSHR D2
  3232.   PUSHR D3
  3233.   GOTO 22404
  3234.   POP D4
  3235.   PUSHR D4
  3236.   SETV D2, 3242
  3237.   PUSHR D2
  3238.   SETR D6, D4
  3239.   ADDV D6, 8
  3240.   LOADI D2, D6
  3241.   PUSHR D2
  3242.   GOTO 22230
  3243.   POP D4
  3244.   SETV D3, 0
  3245.   SUBR D3, D2
  3246.   SETR D2, D3
  3247.   PUSHR D4
  3248.   SETV D3, 3257
  3249.   PUSHR D3
  3250.   PUSHR D2
  3251.   SETR D6, D4
  3252.   ADDV D6, 8
  3253.   LOADI D2, D6
  3254.   POP D3
  3255.   PUSHR D2
  3256.   PUSHR D3
  3257.   GOTO 22410
  3258.   POP D4
  3259.   PUSHR D4
  3260.   SETV D2, 3266
  3261.   PUSHR D2
  3262.   SETR D6, D4
  3263.   ADDV D6, 8
  3264.   LOADI D2, D6
  3265.   PUSHR D2
  3266.   GOTO 22230
  3267.   POP D4
  3268.   SETV D3, 0
  3269.   SUBR D3, D2
  3270.   SETR D2, D3
  3271.   PUSHR D4
  3272.   SETV D3, 3281
  3273.   PUSHR D3
  3274.   PUSHR D2
  3275.   SETR D6, D4
  3276.   ADDV D6, 8
  3277.   LOADI D2, D6
  3278.   POP D3
  3279.   PUSHR D2
  3280.   PUSHR D3
  3281.   GOTO 22393
  3282.   POP D4
  3283.   SETV D2, 0
  3284.   SETV D3, 0
  3285.   POP D3
  3286.   POP D3
  3287.   POP D3
  3288.   POP D3
  3289.   POP D3
  3290.   POP D3
  3291.   POP D3
  3292.   POP D3
  3293.   POP D3
  3294.   POP D3
  3295.   GOTOR D3
  3296.   SETV D2, 0
  3297.   PUSHR D2
  3298.   PUSHR D2
  3299.   PUSHR D2
  3300.   SETR D4, SP
  3301.   PUSHR D4
  3302.   SETV D2, 3310
  3303.   PUSHR D2
  3304.   SETR D6, D4
  3305.   ADDV D6, 3
  3306.   LOADI D2, D6
  3307.   PUSHR D2
  3308.   SETV D2, 15
  3309.   PUSHR D2
  3310.   GOTO 22422
  3311.   POP D4
  3312.   PUSHR D2
  3313.   SETV D2, 8
  3314.   POP D3
  3315.   ANDR D2, D3
  3316.   PUSHR D2
  3317.   SETV D2, 0
  3318.   POP D3
  3319.   COMPARER D2, D3
  3320.   SETFALSE D2
  3321.   COMPAREV D2, 0
  3322.   GOTOTRUE 3349
  3323.   PUSHR D4
  3324.   SETV D2, 3330
  3325.   PUSHR D2
  3326.   SETR D6, D4
  3327.   ADDV D6, 3
  3328.   LOADI D2, D6
  3329.   PUSHR D2
  3330.   GOTO 22230
  3331.   POP D4
  3332.   PUSHR D2
  3333.   SETV D2, 0
  3334.   POP D3
  3335.   COMPARER D3, D2
  3336.   SETLESS D2
  3337.   COMPAREV D2, 0
  3338.   SETTRUE D2
  3339.   COMPAREV D2, 0
  3340.   GOTOTRUE 3348
  3341.   PUSHR D4
  3342.   SETV D2, 3348
  3343.   PUSHR D2
  3344.   SETR D6, D4
  3345.   ADDV D6, 3
  3346.   LOADI D2, D6
  3347.   PUSHR D2
  3348.   GOTO 4668
  3349.   POP D4
  3350.   SETV D2, 0
  3351.   SETV D2, 0
  3352.   PUSHR D4
  3353.   SETV D2, 3361
  3354.   PUSHR D2
  3355.   SETR D6, D4
  3356.   ADDV D6, 3
  3357.   LOADI D2, D6
  3358.   PUSHR D2
  3359.   SETV D2, 15
  3360.   PUSHR D2
  3361.   GOTO 22422
  3362.   POP D4
  3363.   PUSHR D2
  3364.   SETV D2, 4
  3365.   POP D3
  3366.   ANDR D2, D3
  3367.   PUSHR D2
  3368.   SETV D2, 0
  3369.   POP D3
  3370.   COMPARER D2, D3
  3371.   SETFALSE D2
  3372.   COMPAREV D2, 0
  3373.   GOTOTRUE 3770
  3374.   SETV D2, 1000
  3375.   PUSHR D4
  3376.   SETV D3, 3385
  3377.   PUSHR D3
  3378.   PUSHR D2
  3379.   SETR D6, D4
  3380.   ADDV D6, 3
  3381.   LOADI D2, D6
  3382.   POP D3
  3383.   PUSHR D2
  3384.   PUSHR D3
  3385.   GOTO 22382
  3386.   POP D4
  3387.   PUSHR D4
  3388.   SETV D2, 3396
  3389.   PUSHR D2
  3390.   SETR D6, D4
  3391.   ADDV D6, 3
  3392.   LOADI D2, D6
  3393.   PUSHR D2
  3394.   SETV D2, 15
  3395.   PUSHR D2
  3396.   GOTO 22422
  3397.   POP D4
  3398.   PUSHR D2
  3399.   SETV D2, 16
  3400.   POP D3
  3401.   ANDR D2, D3
  3402.   PUSHR D2
  3403.   SETV D2, 0
  3404.   POP D3
  3405.   COMPARER D2, D3
  3406.   SETFALSE D2
  3407.   PUSHR D2
  3408.   SETR D2, GD26
  3409.   PUSHR D2
  3410.   SETV D2, 0
  3411.   POP D0
  3412.   SETR D1, D2
  3413.   SETR D2, GLOBALRAM
  3414.   PUSHR D2
  3415.   SETV D2, 1
  3416.   POP D3
  3417.   ANDR D2, D3
  3418.   PUSHR D2
  3419.   SETV D2, 0
  3420.   POP D3
  3421.   COMPARER D2, D3
  3422.   SETFALSE D2
  3423.   POP D3
  3424.   COMPAREV D2, 0
  3425.   SETFALSE D2
  3426.   COMPAREV D3, 0
  3427.   SETFALSE D3
  3428.   ADDR D2, D3
  3429.   COMPAREV D2, 0.0002
  3430.   SETMORE D2
  3431.   COMPAREV D2, 0
  3432.   GOTOTRUE 3432
  3433.   GOTO 3873
  3434.   SETV D2, 0
  3435.   SETR D6, D4
  3436.   ADDV D6, 2
  3437.   SETV D2, 0
  3438.   STOREI D2, D6
  3439.   PUSHR D4
  3440.   SETV D2, 3446
  3441.   PUSHR D2
  3442.   SETR D6, D4
  3443.   ADDV D6, 3
  3444.   LOADI D2, D6
  3445.   PUSHR D2
  3446.   GOTO 22296
  3447.   POP D4
  3448.   COMPAREV D2, 0
  3449.   GOTOTRUE 3467
  3450.   PUSHR D4
  3451.   SETV D2, 3463
  3452.   PUSHR D2
  3453.   PUSHR D4
  3454.   SETV D2, 3460
  3455.   PUSHR D2
  3456.   SETR D6, D4
  3457.   ADDV D6, 3
  3458.   LOADI D2, D6
  3459.   PUSHR D2
  3460.   GOTO 22258
  3461.   POP D4
  3462.   PUSHR D2
  3463.   GOTO 21544
  3464.   POP D4
  3465.   SETR D6, D4
  3466.   ADDV D6, 2
  3467.   STOREI D2, D6
  3468.   GOTO 3609
  3469.   SETV D3, 0
  3470.   PUSHR D4
  3471.   SETV D2, 3483
  3472.   PUSHR D2
  3473.   PUSHR D4
  3474.   SETV D2, 3480
  3475.   PUSHR D2
  3476.   SETR D6, D4
  3477.   ADDV D6, 3
  3478.   LOADI D2, D6
  3479.   PUSHR D2
  3480.   GOTO 22247
  3481.   POP D4
  3482.   PUSHR D2
  3483.   GOTO 36
  3484.   POP D4
  3485.   SETR D6, D4
  3486.   ADDV D6, 1
  3487.   STOREI D2, D6
  3488.   SETR D6, D4
  3489.   ADDV D6, 1
  3490.   LOADI D2, D6
  3491.   PUSHR D2
  3492.   SETV D2, 0
  3493.   POP D3
  3494.   COMPARER D2, D3
  3495.   SETTRUE D2
  3496.   COMPAREV D2, 0
  3497.   GOTOTRUE 3501
  3498.   SETV D2, -90
  3499.   SETR D6, D4
  3500.   ADDV D6, 2
  3501.   STOREI D2, D6
  3502.   GOTO 3608
  3503.   SETV D3, 0
  3504.   SETR D6, D4
  3505.   ADDV D6, 1
  3506.   LOADI D2, D6
  3507.   PUSHR D2
  3508.   SETV D2, 5
  3509.   POP D3
  3510.   COMPARER D2, D3
  3511.   SETTRUE D2
  3512.   COMPAREV D2, 0
  3513.   GOTOTRUE 3517
  3514.   SETV D2, -45
  3515.   SETR D6, D4
  3516.   ADDV D6, 2
  3517.   STOREI D2, D6
  3518.   GOTO 3607
  3519.   SETV D3, 0
  3520.   SETR D6, D4
  3521.   ADDV D6, 1
  3522.   LOADI D2, D6
  3523.   PUSHR D2
  3524.   SETV D2, 3
  3525.   POP D3
  3526.   COMPARER D2, D3
  3527.   SETTRUE D2
  3528.   COMPAREV D2, 0
  3529.   GOTOTRUE 3533
  3530.   SETV D2, 0
  3531.   SETR D6, D4
  3532.   ADDV D6, 2
  3533.   STOREI D2, D6
  3534.   GOTO 3606
  3535.   SETV D3, 0
  3536.   SETR D6, D4
  3537.   ADDV D6, 1
  3538.   LOADI D2, D6
  3539.   PUSHR D2
  3540.   SETV D2, 7
  3541.   POP D3
  3542.   COMPARER D2, D3
  3543.   SETTRUE D2
  3544.   COMPAREV D2, 0
  3545.   GOTOTRUE 3549
  3546.   SETV D2, 45
  3547.   SETR D6, D4
  3548.   ADDV D6, 2
  3549.   STOREI D2, D6
  3550.   GOTO 3605
  3551.   SETV D3, 0
  3552.   SETR D6, D4
  3553.   ADDV D6, 1
  3554.   LOADI D2, D6
  3555.   PUSHR D2
  3556.   SETV D2, 1
  3557.   POP D3
  3558.   COMPARER D2, D3
  3559.   SETTRUE D2
  3560.   COMPAREV D2, 0
  3561.   GOTOTRUE 3565
  3562.   SETV D2, 90
  3563.   SETR D6, D4
  3564.   ADDV D6, 2
  3565.   STOREI D2, D6
  3566.   GOTO 3604
  3567.   SETV D3, 0
  3568.   SETR D6, D4
  3569.   ADDV D6, 1
  3570.   LOADI D2, D6
  3571.   PUSHR D2
  3572.   SETV D2, 6
  3573.   POP D3
  3574.   COMPARER D2, D3
  3575.   SETTRUE D2
  3576.   COMPAREV D2, 0
  3577.   GOTOTRUE 3581
  3578.   SETV D2, 135
  3579.   SETR D6, D4
  3580.   ADDV D6, 2
  3581.   STOREI D2, D6
  3582.   GOTO 3603
  3583.   SETV D3, 0
  3584.   SETR D6, D4
  3585.   ADDV D6, 1
  3586.   LOADI D2, D6
  3587.   PUSHR D2
  3588.   SETV D2, 2
  3589.   POP D3
  3590.   COMPARER D2, D3
  3591.   SETTRUE D2
  3592.   COMPAREV D2, 0
  3593.   GOTOTRUE 3597
  3594.   SETV D2, 180
  3595.   SETR D6, D4
  3596.   ADDV D6, 2
  3597.   STOREI D2, D6
  3598.   GOTO 3602
  3599.   SETV D3, 0
  3600.   SETV D2, -135
  3601.   SETR D6, D4
  3602.   ADDV D6, 2
  3603.   STOREI D2, D6
  3604.   SETV D3, 0
  3605.   SETV D3, 0
  3606.   SETV D3, 0
  3607.   SETV D3, 0
  3608.   SETV D3, 0
  3609.   SETV D3, 0
  3610.   SETV D3, 0
  3611.   SETV D3, 0
  3612.   SETR D6, D4
  3613.   ADDV D6, 0
  3614.   SETV D2, 0
  3615.   STOREI D2, D6
  3616.   SETR D6, D4
  3617.   ADDV D6, 2
  3618.   LOADI D2, D6
  3619.   PUSHR D2
  3620.   SETV D2, 0
  3621.   POP D3
  3622.   COMPARER D3, D2
  3623.   SETMORE D2
  3624.   PUSHR D2
  3625.   SETR D6, D4
  3626.   ADDV D6, 2
  3627.   LOADI D2, D6
  3628.   PUSHR D2
  3629.   SETV D2, 180
  3630.   POP D3
  3631.   COMPARER D3, D2
  3632.   SETMORE D2
  3633.   COMPAREV D2, 0
  3634.   SETTRUE D2
  3635.   POP D3
  3636.   COMPAREV D2, 0
  3637.   SETFALSE D2
  3638.   COMPAREV D3, 0
  3639.   SETFALSE D3
  3640.   ADDR D2, D3
  3641.   COMPAREV D2, 0.0002
  3642.   SETMORE D2
  3643.   COMPAREV D2, 0
  3644.   GOTOTRUE 3648
  3645.   SETV D2, 0
  3646.   SETR D6, D4
  3647.   ADDV D6, 0
  3648.   STOREI D2, D6
  3649.   GOTO 3653
  3650.   SETV D3, 0
  3651.   SETV D2, 2
  3652.   SETR D6, D4
  3653.   ADDV D6, 0
  3654.   STOREI D2, D6
  3655.   SETV D3, 0
  3656.   PUSHR D4
  3657.   SETV D2, 3769
  3658.   PUSHR D2
  3659.   SETR D2, GD0
  3660.   PUSHR D2
  3661.   SETV D2, 4
  3662.   PUSHR D2
  3663.   PUSHR D4
  3664.   SETV D2, 3670
  3665.   PUSHR D2
  3666.   SETR D6, D4
  3667.   ADDV D6, 3
  3668.   LOADI D2, D6
  3669.   PUSHR D2
  3670.   GOTO 22208
  3671.   POP D4
  3672.   PUSHR D2
  3673.   PUSHR D4
  3674.   SETV D2, 3680
  3675.   PUSHR D2
  3676.   SETR D6, D4
  3677.   ADDV D6, 3
  3678.   LOADI D2, D6
  3679.   PUSHR D2
  3680.   GOTO 22219
  3681.   POP D4
  3682.   PUSHR D2
  3683.   PUSHR D4
  3684.   SETV D2, 3690
  3685.   PUSHR D2
  3686.   SETR D6, D4
  3687.   ADDV D6, 3
  3688.   LOADI D2, D6
  3689.   PUSHR D2
  3690.   GOTO 22230
  3691.   POP D4
  3692.   POP D3
  3693.   SUBR D3, D2
  3694.   SETR D2, D3
  3695.   PUSHR D2
  3696.   PUSHR D4
  3697.   SETV D2, 3703
  3698.   PUSHR D2
  3699.   SETR D6, D4
  3700.   ADDV D6, 3
  3701.   LOADI D2, D6
  3702.   PUSHR D2
  3703.   GOTO 22310
  3704.   POP D4
  3705.   PUSHR D2
  3706.   SETV D2, 1
  3707.   PUSHR D2
  3708.   SETV D2, 1
  3709.   PUSHR D2
  3710.   PUSHR D4
  3711.   SETV D2, 3717
  3712.   PUSHR D2
  3713.   SETR D6, D4
  3714.   ADDV D6, 3
  3715.   LOADI D2, D6
  3716.   PUSHR D2
  3717.   GOTO 22321
  3718.   POP D4
  3719.   PUSHR D2
  3720.   SETV D2, -1
  3721.   PUSHR D2
  3722.   SETV D2, -1
  3723.   PUSHR D2
  3724.   PUSHR D4
  3725.   SETV D2, 3731
  3726.   PUSHR D2
  3727.   SETR D6, D4
  3728.   ADDV D6, 3
  3729.   LOADI D2, D6
  3730.   PUSHR D2
  3731.   GOTO 22208
  3732.   POP D4
  3733.   PUSHR D2
  3734.   PUSHR D4
  3735.   SETV D2, 3741
  3736.   PUSHR D2
  3737.   SETR D6, D4
  3738.   ADDV D6, 3
  3739.   LOADI D2, D6
  3740.   PUSHR D2
  3741.   GOTO 22219
  3742.   POP D4
  3743.   PUSHR D2
  3744.   PUSHR D4
  3745.   SETV D2, 3751
  3746.   PUSHR D2
  3747.   SETR D6, D4
  3748.   ADDV D6, 3
  3749.   LOADI D2, D6
  3750.   PUSHR D2
  3751.   GOTO 22230
  3752.   POP D4
  3753.   POP D3
  3754.   SUBR D3, D2
  3755.   SETR D2, D3
  3756.   PUSHR D2
  3757.   SETR D6, D4
  3758.   ADDV D6, 2
  3759.   LOADI D2, D6
  3760.   PUSHR D2
  3761.   SETR D6, D4
  3762.   ADDV D6, 0
  3763.   LOADI D2, D6
  3764.   PUSHR D2
  3765.   SETV D2, 0.0001
  3766.   PUSHR D2
  3767.   SETV D2, 128
  3768.   PUSHR D2
  3769.   GOTO 22028
  3770.   POP D4
  3771.   GOTO 3872
  3772.   SETV D3, 0
  3773.   PUSHR D4
  3774.   SETV D2, 3782
  3775.   PUSHR D2
  3776.   SETR D6, D4
  3777.   ADDV D6, 3
  3778.   LOADI D2, D6
  3779.   PUSHR D2
  3780.   SETV D2, 15
  3781.   PUSHR D2
  3782.   GOTO 22422
  3783.   POP D4
  3784.   PUSHR D2
  3785.   SETV D2, 16
  3786.   POP D3
  3787.   ANDR D2, D3
  3788.   PUSHR D2
  3789.   SETV D2, 0
  3790.   POP D3
  3791.   COMPARER D2, D3
  3792.   SETFALSE D2
  3793.   COMPAREV D2, 0
  3794.   GOTOTRUE 3839
  3795.   SETR D2, GD26
  3796.   PUSHR D2
  3797.   SETV D2, 0
  3798.   POP D0
  3799.   SETR D1, D2
  3800.   SETR D2, GLOBALRAM
  3801.   PUSHR D2
  3802.   SETV D2, 1
  3803.   POP D3
  3804.   ANDR D2, D3
  3805.   PUSHR D2
  3806.   SETV D2, 0
  3807.   POP D3
  3808.   COMPARER D2, D3
  3809.   SETFALSE D2
  3810.   COMPAREV D2, 0
  3811.   GOTOTRUE 3824
  3812.   SETV D2, 1000
  3813.   PUSHR D4
  3814.   SETV D3, 3823
  3815.   PUSHR D3
  3816.   PUSHR D2
  3817.   SETR D6, D4
  3818.   ADDV D6, 3
  3819.   LOADI D2, D6
  3820.   POP D3
  3821.   PUSHR D2
  3822.   PUSHR D3
  3823.   GOTO 22382
  3824.   POP D4
  3825.   GOTO 3838
  3826.   SETV D3, 0
  3827.   SETV D2, 0
  3828.   PUSHR D4
  3829.   SETV D3, 3838
  3830.   PUSHR D3
  3831.   PUSHR D2
  3832.   SETR D6, D4
  3833.   ADDV D6, 3
  3834.   LOADI D2, D6
  3835.   POP D3
  3836.   PUSHR D2
  3837.   PUSHR D3
  3838.   GOTO 22382
  3839.   POP D4
  3840.   SETV D3, 0
  3841.   SETV D2, 0
  3842.   PUSHR D4
  3843.   SETV D2, 3851
  3844.   PUSHR D2
  3845.   SETR D6, D4
  3846.   ADDV D6, 3
  3847.   LOADI D2, D6
  3848.   PUSHR D2
  3849.   SETV D2, 15
  3850.   PUSHR D2
  3851.   GOTO 22422
  3852.   POP D4
  3853.   PUSHR D2
  3854.   SETV D2, 2
  3855.   POP D3
  3856.   ANDR D2, D3
  3857.   PUSHR D2
  3858.   SETV D2, 0
  3859.   POP D3
  3860.   COMPARER D2, D3
  3861.   SETFALSE D2
  3862.   COMPAREV D2, 0
  3863.   GOTOTRUE 3871
  3864.   PUSHR D4
  3865.   SETV D2, 3871
  3866.   PUSHR D2
  3867.   SETR D6, D4
  3868.   ADDV D6, 3
  3869.   LOADI D2, D6
  3870.   PUSHR D2
  3871.   GOTO 4136
  3872.   POP D4
  3873.   SETV D2, 0
  3874.   SETV D3, 0
  3875.   SETV D3, 0
  3876.   POP D3
  3877.   POP D3
  3878.   POP D3
  3879.   POP D3
  3880.   POP D3
  3881.   GOTOR D3
  3882.   SETV D2, 0
  3883.   PUSHR D2
  3884.   PUSHR D2
  3885.   SETR D4, SP
  3886.   PUSHR D4
  3887.   SETV D2, 3893
  3888.   PUSHR D2
  3889.   SETR D6, D4
  3890.   ADDV D6, 2
  3891.   LOADI D2, D6
  3892.   PUSHR D2
  3893.   GOTO 22258
  3894.   POP D4
  3895.   PUSHR D2
  3896.   SETV D2, 6.2832
  3897.   POP D3
  3898.   MODR D3, D2
  3899.   SETR D2, D3
  3900.   SETR D6, D4
  3901.   ADDV D6, 1
  3902.   STOREI D2, D6
  3903.   SETR D6, D4
  3904.   ADDV D6, 0
  3905.   SETV D2, 0
  3906.   STOREI D2, D6
  3907.   SETR D6, D4
  3908.   ADDV D6, 1
  3909.   LOADI D2, D6
  3910.   PUSHR D2
  3911.   SETV D2, 0
  3912.   POP D3
  3913.   COMPARER D3, D2
  3914.   SETMORE D2
  3915.   COMPAREV D2, 0
  3916.   SETTRUE D2
  3917.   COMPAREV D2, 0
  3918.   GOTOTRUE 3927
  3919.   SETR D6, D4
  3920.   ADDV D6, 1
  3921.   LOADI D2, D6
  3922.   PUSHR D2
  3923.   SETV D2, 6.2832
  3924.   POP D3
  3925.   ADDR D2, D3
  3926.   SETR D6, D4
  3927.   ADDV D6, 1
  3928.   STOREI D2, D6
  3929.   SETV D2, 0
  3930.   SETR D6, D4
  3931.   ADDV D6, 1
  3932.   LOADI D2, D6
  3933.   PUSHR D2
  3934.   SETV D2, 0.3927
  3935.   POP D3
  3936.   COMPARER D3, D2
  3937.   SETMORE D2
  3938.   COMPAREV D2, 0
  3939.   SETTRUE D2
  3940.   PUSHR D2
  3941.   SETR D6, D4
  3942.   ADDV D6, 1
  3943.   LOADI D2, D6
  3944.   PUSHR D2
  3945.   SETV D2, 5.8905
  3946.   POP D3
  3947.   COMPARER D3, D2
  3948.   SETLESS D2
  3949.   COMPAREV D2, 0
  3950.   SETTRUE D2
  3951.   POP D3
  3952.   ADDR D2, D3
  3953.   COMPAREV D2, 0.0001
  3954.   SETMORE D2
  3955.   COMPAREV D2, 0
  3956.   GOTOTRUE 3960
  3957.   SETV D2, 3
  3958.   SETR D6, D4
  3959.   ADDV D6, 0
  3960.   STOREI D2, D6
  3961.   GOTO 4079
  3962.   SETV D3, 0
  3963.   SETR D6, D4
  3964.   ADDV D6, 1
  3965.   LOADI D2, D6
  3966.   PUSHR D2
  3967.   SETV D2, 1.1781
  3968.   POP D3
  3969.   COMPARER D3, D2
  3970.   SETMORE D2
  3971.   COMPAREV D2, 0
  3972.   SETTRUE D2
  3973.   COMPAREV D2, 0
  3974.   GOTOTRUE 3978
  3975.   SETV D2, 7
  3976.   SETR D6, D4
  3977.   ADDV D6, 0
  3978.   STOREI D2, D6
  3979.   GOTO 4078
  3980.   SETV D3, 0
  3981.   SETR D6, D4
  3982.   ADDV D6, 1
  3983.   LOADI D2, D6
  3984.   PUSHR D2
  3985.   SETV D2, 1.9635
  3986.   POP D3
  3987.   COMPARER D3, D2
  3988.   SETMORE D2
  3989.   COMPAREV D2, 0
  3990.   SETTRUE D2
  3991.   COMPAREV D2, 0
  3992.   GOTOTRUE 3996
  3993.   SETV D2, 1
  3994.   SETR D6, D4
  3995.   ADDV D6, 0
  3996.   STOREI D2, D6
  3997.   GOTO 4077
  3998.   SETV D3, 0
  3999.   SETR D6, D4
  4000.   ADDV D6, 1
  4001.   LOADI D2, D6
  4002.   PUSHR D2
  4003.   SETV D2, 2.7489
  4004.   POP D3
  4005.   COMPARER D3, D2
  4006.   SETMORE D2
  4007.   COMPAREV D2, 0
  4008.   SETTRUE D2
  4009.   COMPAREV D2, 0
  4010.   GOTOTRUE 4014
  4011.   SETV D2, 6
  4012.   SETR D6, D4
  4013.   ADDV D6, 0
  4014.   STOREI D2, D6
  4015.   GOTO 4076
  4016.   SETV D3, 0
  4017.   SETR D6, D4
  4018.   ADDV D6, 1
  4019.   LOADI D2, D6
  4020.   PUSHR D2
  4021.   SETV D2, 3.5343
  4022.   POP D3
  4023.   COMPARER D3, D2
  4024.   SETMORE D2
  4025.   COMPAREV D2, 0
  4026.   SETTRUE D2
  4027.   COMPAREV D2, 0
  4028.   GOTOTRUE 4032
  4029.   SETV D2, 2
  4030.   SETR D6, D4
  4031.   ADDV D6, 0
  4032.   STOREI D2, D6
  4033.   GOTO 4075
  4034.   SETV D3, 0
  4035.   SETR D6, D4
  4036.   ADDV D6, 1
  4037.   LOADI D2, D6
  4038.   PUSHR D2
  4039.   SETV D2, 4.3197
  4040.   POP D3
  4041.   COMPARER D3, D2
  4042.   SETMORE D2
  4043.   COMPAREV D2, 0
  4044.   SETTRUE D2
  4045.   COMPAREV D2, 0
  4046.   GOTOTRUE 4050
  4047.   SETV D2, 4
  4048.   SETR D6, D4
  4049.   ADDV D6, 0
  4050.   STOREI D2, D6
  4051.   GOTO 4074
  4052.   SETV D3, 0
  4053.   SETR D6, D4
  4054.   ADDV D6, 1
  4055.   LOADI D2, D6
  4056.   PUSHR D2
  4057.   SETV D2, 5.1051
  4058.   POP D3
  4059.   COMPARER D3, D2
  4060.   SETMORE D2
  4061.   COMPAREV D2, 0
  4062.   SETTRUE D2
  4063.   COMPAREV D2, 0
  4064.   GOTOTRUE 4068
  4065.   SETV D2, 0
  4066.   SETR D6, D4
  4067.   ADDV D6, 0
  4068.   STOREI D2, D6
  4069.   GOTO 4073
  4070.   SETV D3, 0
  4071.   SETV D2, 5
  4072.   SETR D6, D4
  4073.   ADDV D6, 0
  4074.   STOREI D2, D6
  4075.   SETV D3, 0
  4076.   SETV D3, 0
  4077.   SETV D3, 0
  4078.   SETV D3, 0
  4079.   SETV D3, 0
  4080.   SETV D3, 0
  4081.   SETV D3, 0
  4082.   PUSHR D4
  4083.   SETV D2, 4091
  4084.   PUSHR D2
  4085.   SETR D6, D4
  4086.   ADDV D6, 2
  4087.   LOADI D2, D6
  4088.   PUSHR D2
  4089.   SETV D2, 15
  4090.   PUSHR D2
  4091.   GOTO 22422
  4092.   POP D4
  4093.   PUSHR D2
  4094.   SETV D2, 1
  4095.   POP D3
  4096.   ANDR D2, D3
  4097.   PUSHR D2
  4098.   SETV D2, 0
  4099.   POP D3
  4100.   COMPARER D2, D3
  4101.   SETFALSE D2
  4102.   COMPAREV D2, 0
  4103.   GOTOTRUE 4114
  4104.   PUSHR D4
  4105.   SETV D2, 4111
  4106.   PUSHR D2
  4107.   SETR D6, D4
  4108.   ADDV D6, 0
  4109.   LOADI D2, D6
  4110.   PUSHR D2
  4111.   GOTO 6235
  4112.   POP D4
  4113.   SETR D6, D4
  4114.   ADDV D6, 0
  4115.   STOREI D2, D6
  4116.   SETV D2, 0
  4117.   SETR D6, D4
  4118.   ADDV D6, 0
  4119.   LOADI D2, D6
  4120.   PUSHR D4
  4121.   SETV D3, 4130
  4122.   PUSHR D3
  4123.   PUSHR D2
  4124.   SETR D6, D4
  4125.   ADDV D6, 2
  4126.   LOADI D2, D6
  4127.   POP D3
  4128.   PUSHR D2
  4129.   PUSHR D3
  4130.   GOTO 22252
  4131.   POP D4
  4132.   SETV D3, 0
  4133.   POP D3
  4134.   POP D3
  4135.   POP D3
  4136.   POP D3
  4137.   GOTOR D3
  4138.   SETV D2, 0
  4139.   PUSHR D2
  4140.   PUSHR D2
  4141.   SETR D4, SP
  4142.   PUSHR D4
  4143.   SETV D2, 4149
  4144.   PUSHR D2
  4145.   SETR D6, D4
  4146.   ADDV D6, 2
  4147.   LOADI D2, D6
  4148.   PUSHR D2
  4149.   GOTO 22296
  4150.   POP D4
  4151.   COMPAREV D2, 0
  4152.   GOTOTRUE 4302
  4153.   PUSHR D4
  4154.   SETV D2, 4160
  4155.   PUSHR D2
  4156.   SETR D6, D4
  4157.   ADDV D6, 2
  4158.   LOADI D2, D6
  4159.   PUSHR D2
  4160.   GOTO 22258
  4161.   POP D4
  4162.   PUSHR D2
  4163.   SETV D2, 6.2832
  4164.   POP D3
  4165.   MODR D3, D2
  4166.   SETR D2, D3
  4167.   SETR D6, D4
  4168.   ADDV D6, 1
  4169.   STOREI D2, D6
  4170.   SETR D6, D4
  4171.   ADDV D6, 1
  4172.   LOADI D2, D6
  4173.   PUSHR D2
  4174.   SETV D2, 0
  4175.   POP D3
  4176.   COMPARER D3, D2
  4177.   SETMORE D2
  4178.   COMPAREV D2, 0
  4179.   SETTRUE D2
  4180.   COMPAREV D2, 0
  4181.   GOTOTRUE 4190
  4182.   SETR D6, D4
  4183.   ADDV D6, 1
  4184.   LOADI D2, D6
  4185.   PUSHR D2
  4186.   SETV D2, 6.2832
  4187.   POP D3
  4188.   ADDR D2, D3
  4189.   SETR D6, D4
  4190.   ADDV D6, 1
  4191.   STOREI D2, D6
  4192.   SETV D2, 0
  4193.   SETR D6, D4
  4194.   ADDV D6, 1
  4195.   LOADI D2, D6
  4196.   PUSHR D2
  4197.   SETV D2, 0.7854
  4198.   POP D3
  4199.   COMPARER D3, D2
  4200.   SETMORE D2
  4201.   COMPAREV D2, 0
  4202.   SETTRUE D2
  4203.   PUSHR D2
  4204.   SETR D6, D4
  4205.   ADDV D6, 1
  4206.   LOADI D2, D6
  4207.   PUSHR D2
  4208.   SETV D2, 5.4978
  4209.   POP D3
  4210.   COMPARER D3, D2
  4211.   SETLESS D2
  4212.   COMPAREV D2, 0
  4213.   SETTRUE D2
  4214.   POP D3
  4215.   ADDR D2, D3
  4216.   COMPAREV D2, 0.0001
  4217.   SETMORE D2
  4218.   COMPAREV D2, 0
  4219.   GOTOTRUE 4232
  4220.   SETV D2, 4
  4221.   PUSHR D4
  4222.   SETV D3, 4231
  4223.   PUSHR D3
  4224.   PUSHR D2
  4225.   SETR D6, D4
  4226.   ADDV D6, 2
  4227.   LOADI D2, D6
  4228.   POP D3
  4229.   PUSHR D2
  4230.   PUSHR D3
  4231.   GOTO 22326
  4232.   POP D4
  4233.   GOTO 4300
  4234.   SETV D3, 0
  4235.   SETR D6, D4
  4236.   ADDV D6, 1
  4237.   LOADI D2, D6
  4238.   PUSHR D2
  4239.   SETV D2, 2.3562
  4240.   POP D3
  4241.   COMPARER D3, D2
  4242.   SETLESS D2
  4243.   COMPAREV D2, 0
  4244.   GOTOTRUE 4257
  4245.   SETV D2, 3
  4246.   PUSHR D4
  4247.   SETV D3, 4256
  4248.   PUSHR D3
  4249.   PUSHR D2
  4250.   SETR D6, D4
  4251.   ADDV D6, 2
  4252.   LOADI D2, D6
  4253.   POP D3
  4254.   PUSHR D2
  4255.   PUSHR D3
  4256.   GOTO 22326
  4257.   POP D4
  4258.   GOTO 4299
  4259.   SETV D3, 0
  4260.   SETR D6, D4
  4261.   ADDV D6, 1
  4262.   LOADI D2, D6
  4263.   PUSHR D2
  4264.   SETV D2, 3.9270
  4265.   POP D3
  4266.   COMPARER D3, D2
  4267.   SETMORE D2
  4268.   COMPAREV D2, 0
  4269.   SETTRUE D2
  4270.   COMPAREV D2, 0
  4271.   GOTOTRUE 4284
  4272.   SETV D2, 7
  4273.   PUSHR D4
  4274.   SETV D3, 4283
  4275.   PUSHR D3
  4276.   PUSHR D2
  4277.   SETR D6, D4
  4278.   ADDV D6, 2
  4279.   LOADI D2, D6
  4280.   POP D3
  4281.   PUSHR D2
  4282.   PUSHR D3
  4283.   GOTO 22326
  4284.   POP D4
  4285.   GOTO 4298
  4286.   SETV D3, 0
  4287.   SETV D2, 0
  4288.   PUSHR D4
  4289.   SETV D3, 4298
  4290.   PUSHR D3
  4291.   PUSHR D2
  4292.   SETR D6, D4
  4293.   ADDV D6, 2
  4294.   LOADI D2, D6
  4295.   POP D3
  4296.   PUSHR D2
  4297.   PUSHR D3
  4298.   GOTO 22326
  4299.   POP D4
  4300.   SETV D3, 0
  4301.   SETV D3, 0
  4302.   SETV D3, 0
  4303.   GOTO 4464
  4304.   SETV D3, 0
  4305.   PUSHR D4
  4306.   SETV D2, 4318
  4307.   PUSHR D2
  4308.   PUSHR D4
  4309.   SETV D2, 4315
  4310.   PUSHR D2
  4311.   SETR D6, D4
  4312.   ADDV D6, 2
  4313.   LOADI D2, D6
  4314.   PUSHR D2
  4315.   GOTO 22247
  4316.   POP D4
  4317.   PUSHR D2
  4318.   GOTO 36
  4319.   POP D4
  4320.   SETR D6, D4
  4321.   ADDV D6, 0
  4322.   STOREI D2, D6
  4323.   SETR D6, D4
  4324.   ADDV D6, 0
  4325.   LOADI D2, D6
  4326.   PUSHR D2
  4327.   SETV D2, 0
  4328.   POP D3
  4329.   COMPARER D2, D3
  4330.   SETTRUE D2
  4331.   PUSHR D2
  4332.   SETR D6, D4
  4333.   ADDV D6, 0
  4334.   LOADI D2, D6
  4335.   PUSHR D2
  4336.   SETV D2, 5
  4337.   POP D3
  4338.   COMPARER D2, D3
  4339.   SETTRUE D2
  4340.   POP D3
  4341.   ADDR D2, D3
  4342.   COMPAREV D2, 0.0001
  4343.   SETMORE D2
  4344.   PUSHR D2
  4345.   SETR D6, D4
  4346.   ADDV D6, 0
  4347.   LOADI D2, D6
  4348.   PUSHR D2
  4349.   SETV D2, 4
  4350.   POP D3
  4351.   COMPARER D2, D3
  4352.   SETTRUE D2
  4353.   POP D3
  4354.   ADDR D2, D3
  4355.   COMPAREV D2, 0.0001
  4356.   SETMORE D2
  4357.   COMPAREV D2, 0
  4358.   GOTOTRUE 4371
  4359.   SETV D2, 0
  4360.   PUSHR D4
  4361.   SETV D3, 4370
  4362.   PUSHR D3
  4363.   PUSHR D2
  4364.   SETR D6, D4
  4365.   ADDV D6, 2
  4366.   LOADI D2, D6
  4367.   POP D3
  4368.   PUSHR D2
  4369.   PUSHR D3
  4370.   GOTO 22326
  4371.   POP D4
  4372.   GOTO 4463
  4373.   SETV D3, 0
  4374.   SETR D6, D4
  4375.   ADDV D6, 0
  4376.   LOADI D2, D6
  4377.   PUSHR D2
  4378.   SETV D2, 1
  4379.   POP D3
  4380.   COMPARER D2, D3
  4381.   SETTRUE D2
  4382.   PUSHR D2
  4383.   SETR D6, D4
  4384.   ADDV D6, 0
  4385.   LOADI D2, D6
  4386.   PUSHR D2
  4387.   SETV D2, 7
  4388.   POP D3
  4389.   COMPARER D2, D3
  4390.   SETTRUE D2
  4391.   POP D3
  4392.   ADDR D2, D3
  4393.   COMPAREV D2, 0.0001
  4394.   SETMORE D2
  4395.   PUSHR D2
  4396.   SETR D6, D4
  4397.   ADDV D6, 0
  4398.   LOADI D2, D6
  4399.   PUSHR D2
  4400.   SETV D2, 6
  4401.   POP D3
  4402.   COMPARER D2, D3
  4403.   SETTRUE D2
  4404.   POP D3
  4405.   ADDR D2, D3
  4406.   COMPAREV D2, 0.0001
  4407.   SETMORE D2
  4408.   COMPAREV D2, 0
  4409.   GOTOTRUE 4422
  4410.   SETV D2, 3
  4411.   PUSHR D4
  4412.   SETV D3, 4421
  4413.   PUSHR D3
  4414.   PUSHR D2
  4415.   SETR D6, D4
  4416.   ADDV D6, 2
  4417.   LOADI D2, D6
  4418.   POP D3
  4419.   PUSHR D2
  4420.   PUSHR D3
  4421.   GOTO 22326
  4422.   POP D4
  4423.   GOTO 4462
  4424.   SETV D3, 0
  4425.   SETR D6, D4
  4426.   ADDV D6, 0
  4427.   LOADI D2, D6
  4428.   PUSHR D2
  4429.   SETV D2, 2
  4430.   POP D3
  4431.   COMPARER D2, D3
  4432.   SETTRUE D2
  4433.   COMPAREV D2, 0
  4434.   GOTOTRUE 4447
  4435.   SETV D2, 7
  4436.   PUSHR D4
  4437.   SETV D3, 4446
  4438.   PUSHR D3
  4439.   PUSHR D2
  4440.   SETR D6, D4
  4441.   ADDV D6, 2
  4442.   LOADI D2, D6
  4443.   POP D3
  4444.   PUSHR D2
  4445.   PUSHR D3
  4446.   GOTO 22326
  4447.   POP D4
  4448.   GOTO 4461
  4449.   SETV D3, 0
  4450.   SETV D2, 4
  4451.   PUSHR D4
  4452.   SETV D3, 4461
  4453.   PUSHR D3
  4454.   PUSHR D2
  4455.   SETR D6, D4
  4456.   ADDV D6, 2
  4457.   LOADI D2, D6
  4458.   POP D3
  4459.   PUSHR D2
  4460.   PUSHR D3
  4461.   GOTO 22326
  4462.   POP D4
  4463.   SETV D3, 0
  4464.   SETV D3, 0
  4465.   SETV D3, 0
  4466.   SETV D3, 0
  4467.   SETV D3, 0
  4468.   POP D3
  4469.   POP D3
  4470.   POP D3
  4471.   POP D3
  4472.   GOTOR D3
  4473.   SETV D2, 0
  4474.   SETR D4, SP
  4475.   PUSHR D4
  4476.   SETV D2, 4482
  4477.   PUSHR D2
  4478.   SETR D6, D4
  4479.   ADDV D6, 0
  4480.   LOADI D2, D6
  4481.   PUSHR D2
  4482.   GOTO 36
  4483.   POP D4
  4484.   SETR D6, D4
  4485.   ADDV D6, 0
  4486.   STOREI D2, D6
  4487.   SETR D6, D4
  4488.   ADDV D6, 0
  4489.   LOADI D2, D6
  4490.   PUSHR D2
  4491.   SETV D2, 0
  4492.   POP D3
  4493.   COMPARER D2, D3
  4494.   SETTRUE D2
  4495.   PUSHR D2
  4496.   SETR D6, D4
  4497.   ADDV D6, 0
  4498.   LOADI D2, D6
  4499.   PUSHR D2
  4500.   SETV D2, 5
  4501.   POP D3
  4502.   COMPARER D2, D3
  4503.   SETTRUE D2
  4504.   POP D3
  4505.   ADDR D2, D3
  4506.   COMPAREV D2, 0.0001
  4507.   SETMORE D2
  4508.   PUSHR D2
  4509.   SETR D6, D4
  4510.   ADDV D6, 0
  4511.   LOADI D2, D6
  4512.   PUSHR D2
  4513.   SETV D2, 4
  4514.   POP D3
  4515.   COMPARER D2, D3
  4516.   SETTRUE D2
  4517.   POP D3
  4518.   ADDR D2, D3
  4519.   COMPAREV D2, 0.0001
  4520.   SETMORE D2
  4521.   COMPAREV D2, 0
  4522.   GOTOTRUE 4535
  4523.   SETV D2, 0
  4524.   PUSHR D4
  4525.   SETV D3, 4534
  4526.   PUSHR D3
  4527.   PUSHR D2
  4528.   SETR D6, D4
  4529.   ADDV D6, 1
  4530.   LOADI D2, D6
  4531.   POP D3
  4532.   PUSHR D2
  4533.   PUSHR D3
  4534.   GOTO 22326
  4535.   POP D4
  4536.   GOTO 4627
  4537.   SETV D3, 0
  4538.   SETR D6, D4
  4539.   ADDV D6, 0
  4540.   LOADI D2, D6
  4541.   PUSHR D2
  4542.   SETV D2, 1
  4543.   POP D3
  4544.   COMPARER D2, D3
  4545.   SETTRUE D2
  4546.   PUSHR D2
  4547.   SETR D6, D4
  4548.   ADDV D6, 0
  4549.   LOADI D2, D6
  4550.   PUSHR D2
  4551.   SETV D2, 7
  4552.   POP D3
  4553.   COMPARER D2, D3
  4554.   SETTRUE D2
  4555.   POP D3
  4556.   ADDR D2, D3
  4557.   COMPAREV D2, 0.0001
  4558.   SETMORE D2
  4559.   PUSHR D2
  4560.   SETR D6, D4
  4561.   ADDV D6, 0
  4562.   LOADI D2, D6
  4563.   PUSHR D2
  4564.   SETV D2, 6
  4565.   POP D3
  4566.   COMPARER D2, D3
  4567.   SETTRUE D2
  4568.   POP D3
  4569.   ADDR D2, D3
  4570.   COMPAREV D2, 0.0001
  4571.   SETMORE D2
  4572.   COMPAREV D2, 0
  4573.   GOTOTRUE 4586
  4574.   SETV D2, 3
  4575.   PUSHR D4
  4576.   SETV D3, 4585
  4577.   PUSHR D3
  4578.   PUSHR D2
  4579.   SETR D6, D4
  4580.   ADDV D6, 1
  4581.   LOADI D2, D6
  4582.   POP D3
  4583.   PUSHR D2
  4584.   PUSHR D3
  4585.   GOTO 22326
  4586.   POP D4
  4587.   GOTO 4626
  4588.   SETV D3, 0
  4589.   SETR D6, D4
  4590.   ADDV D6, 0
  4591.   LOADI D2, D6
  4592.   PUSHR D2
  4593.   SETV D2, 2
  4594.   POP D3
  4595.   COMPARER D2, D3
  4596.   SETTRUE D2
  4597.   COMPAREV D2, 0
  4598.   GOTOTRUE 4611
  4599.   SETV D2, 7
  4600.   PUSHR D4
  4601.   SETV D3, 4610
  4602.   PUSHR D3
  4603.   PUSHR D2
  4604.   SETR D6, D4
  4605.   ADDV D6, 1
  4606.   LOADI D2, D6
  4607.   POP D3
  4608.   PUSHR D2
  4609.   PUSHR D3
  4610.   GOTO 22326
  4611.   POP D4
  4612.   GOTO 4625
  4613.   SETV D3, 0
  4614.   SETV D2, 4
  4615.   PUSHR D4
  4616.   SETV D3, 4625
  4617.   PUSHR D3
  4618.   PUSHR D2
  4619.   SETR D6, D4
  4620.   ADDV D6, 1
  4621.   LOADI D2, D6
  4622.   POP D3
  4623.   PUSHR D2
  4624.   PUSHR D3
  4625.   GOTO 22326
  4626.   POP D4
  4627.   SETV D3, 0
  4628.   SETV D3, 0
  4629.   SETV D3, 0
  4630.   SETV D3, 0
  4631.   POP D3
  4632.   POP D3
  4633.   POP D3
  4634.   GOTOR D3
  4635.   SETV D2, 0
  4636.   SETR D4, SP
  4637.   PUSHR D4
  4638.   SETV D2, 4646
  4639.   PUSHR D2
  4640.   SETR D6, D4
  4641.   ADDV D6, 0
  4642.   LOADI D2, D6
  4643.   PUSHR D2
  4644.   SETV D2, 15
  4645.   PUSHR D2
  4646.   GOTO 22422
  4647.   POP D4
  4648.   PUSHR D2
  4649.   SETV D2, 128
  4650.   POP D3
  4651.   ORR D2, D3
  4652.   PUSHR D4
  4653.   SETV D3, 4664
  4654.   PUSHR D3
  4655.   PUSHR D2
  4656.   SETR D6, D4
  4657.   ADDV D6, 0
  4658.   LOADI D2, D6
  4659.   POP D3
  4660.   PUSHR D2
  4661.   PUSHR D3
  4662.   SETV D2, 15
  4663.   PUSHR D2
  4664.   GOTO 22428
  4665.   POP D4
  4666.   SETV D3, 0
  4667.   POP D3
  4668.   POP D3
  4669.   GOTOR D3
  4670.   SETV D2, 0
  4671.   PUSHR D2
  4672.   PUSHR D2
  4673.   SETR D4, SP
  4674.   SETV D2, 0
  4675.   PUSHR D2
  4676.   SETV D2, 0
  4677.   POP D3
  4678.   COMPARER D3, D2
  4679.   SETLESS D2
  4680.   COMPAREV D2, 0
  4681.   SETTRUE D2
  4682.   PUSHR D2
  4683.   SETR D2, GD26
  4684.   PUSHR D2
  4685.   SETV D2, 0
  4686.   POP D0
  4687.   SETR D1, D2
  4688.   SETR D2, GLOBALRAM
  4689.   PUSHR D2
  4690.   SETV D2, 1
  4691.   POP D3
  4692.   ANDR D2, D3
  4693.   PUSHR D2
  4694.   SETV D2, 0
  4695.   POP D3
  4696.   COMPARER D2, D3
  4697.   SETFALSE D2
  4698.   POP D3
  4699.   COMPAREV D2, 0
  4700.   SETFALSE D2
  4701.   COMPAREV D3, 0
  4702.   SETFALSE D3
  4703.   ADDR D2, D3
  4704.   COMPAREV D2, 0.0002
  4705.   SETMORE D2
  4706.   COMPAREV D2, 0
  4707.   GOTOTRUE 4707
  4708.   GOTO 4908
  4709.   SETV D2, 0
  4710.   PUSHR D4
  4711.   SETV D2, 4717
  4712.   PUSHR D2
  4713.   SETR D6, D4
  4714.   ADDV D6, 2
  4715.   LOADI D2, D6
  4716.   PUSHR D2
  4717.   GOTO 21600
  4718.   POP D4
  4719.   PUSHR D2
  4720.   SETV D2, 8
  4721.   POP D3
  4722.   SUBR D3, D2
  4723.   SETR D2, D3
  4724.   PUSHR D2
  4725.   PUSHR D4
  4726.   SETV D2, 4732
  4727.   PUSHR D2
  4728.   SETR D6, D4
  4729.   ADDV D6, 2
  4730.   LOADI D2, D6
  4731.   PUSHR D2
  4732.   GOTO 22377
  4733.   POP D4
  4734.   POP D3
  4735.   ADDR D2, D3
  4736.   SETR D6, D4
  4737.   ADDV D6, 1
  4738.   STOREI D2, D6
  4739.   PUSHR D4
  4740.   SETV D2, 4746
  4741.   PUSHR D2
  4742.   SETR D6, D4
  4743.   ADDV D6, 2
  4744.   LOADI D2, D6
  4745.   PUSHR D2
  4746.   GOTO 22219
  4747.   POP D4
  4748.   PUSHR D2
  4749.   PUSHR D4
  4750.   SETV D2, 4756
  4751.   PUSHR D2
  4752.   SETR D6, D4
  4753.   ADDV D6, 2
  4754.   LOADI D2, D6
  4755.   PUSHR D2
  4756.   GOTO 22366
  4757.   POP D4
  4758.   PUSHR D2
  4759.   SETV D2, 1
  4760.   POP D3
  4761.   SUBR D3, D2
  4762.   SETR D2, D3
  4763.   PUSHR D2
  4764.   SETV D2, 16
  4765.   POP D3
  4766.   MULTR D2, D3
  4767.   POP D3
  4768.   ADDR D2, D3
  4769.   PUSHR D2
  4770.   PUSHR D4
  4771.   SETV D2, 4777
  4772.   PUSHR D2
  4773.   SETR D6, D4
  4774.   ADDV D6, 2
  4775.   LOADI D2, D6
  4776.   PUSHR D2
  4777.   GOTO 22388
  4778.   POP D4
  4779.   POP D3
  4780.   ADDR D2, D3
  4781.   PUSHR D2
  4782.   PUSHR D4
  4783.   SETV D2, 4789
  4784.   PUSHR D2
  4785.   SETR D6, D4
  4786.   ADDV D6, 2
  4787.   LOADI D2, D6
  4788.   PUSHR D2
  4789.   GOTO 22399
  4790.   POP D4
  4791.   POP D3
  4792.   SUBR D3, D2
  4793.   SETR D2, D3
  4794.   SETR D6, D4
  4795.   ADDV D6, 0
  4796.   STOREI D2, D6
  4797.   SETV D2, 1
  4798.   PUSHR D2
  4799.   SETV D2, 0
  4800.   POP D3
  4801.   COMPARER D3, D2
  4802.   SETLESS D2
  4803.   COMPAREV D2, 0
  4804.   SETTRUE D2
  4805.   COMPAREV D2, 0
  4806.   GOTOTRUE 4856
  4807.   PUSHR D4
  4808.   SETV D2, 4855
  4809.   PUSHR D2
  4810.   SETR D2, GD0
  4811.   PUSHR D2
  4812.   SETV D2, 1
  4813.   PUSHR D2
  4814.   SETR D6, D4
  4815.   ADDV D6, 1
  4816.   LOADI D2, D6
  4817.   PUSHR D2
  4818.   SETR D6, D4
  4819.   ADDV D6, 0
  4820.   LOADI D2, D6
  4821.   PUSHR D2
  4822.   SETV D2, 27400
  4823.   PUSHR D2
  4824.   SETR D2, GD26
  4825.   PUSHR D2
  4826.   SETV D2, 2
  4827.   POP D0
  4828.   SETR D1, D2
  4829.   SETR D2, GLOBALRAM
  4830.   POP D3
  4831.   ADDR D2, D3
  4832.   PUSHR D2
  4833.   SETV D2, 1
  4834.   PUSHR D2
  4835.   SETV D2, 1
  4836.   PUSHR D2
  4837.   SETV D2, 7
  4838.   PUSHR D2
  4839.   SETV D2, -1
  4840.   PUSHR D2
  4841.   SETV D2, -1
  4842.   PUSHR D2
  4843.   SETV D2, 0
  4844.   PUSHR D2
  4845.   SETV D2, 0
  4846.   PUSHR D2
  4847.   SETV D2, 0
  4848.   PUSHR D2
  4849.   SETV D2, 0
  4850.   PUSHR D2
  4851.   SETV D2, 0.0001
  4852.   PUSHR D2
  4853.   SETV D2, 64
  4854.   PUSHR D2
  4855.   GOTO 22028
  4856.   POP D4
  4857.   GOTO 4907
  4858.   SETV D3, 0
  4859.   PUSHR D4
  4860.   SETV D2, 4907
  4861.   PUSHR D2
  4862.   SETR D2, GD0
  4863.   PUSHR D2
  4864.   SETV D2, 1
  4865.   PUSHR D2
  4866.   SETR D6, D4
  4867.   ADDV D6, 1
  4868.   LOADI D2, D6
  4869.   PUSHR D2
  4870.   SETR D6, D4
  4871.   ADDV D6, 0
  4872.   LOADI D2, D6
  4873.   PUSHR D2
  4874.   SETV D2, 27400
  4875.   PUSHR D2
  4876.   SETR D2, GD26
  4877.   PUSHR D2
  4878.   SETV D2, 2
  4879.   POP D0
  4880.   SETR D1, D2
  4881.   SETR D2, GLOBALRAM
  4882.   POP D3
  4883.   ADDR D2, D3
  4884.   PUSHR D2
  4885.   SETV D2, 1
  4886.   PUSHR D2
  4887.   SETV D2, 1
  4888.   PUSHR D2
  4889.   SETV D2, 7
  4890.   PUSHR D2
  4891.   SETV D2, -1
  4892.   PUSHR D2
  4893.   SETV D2, -1
  4894.   PUSHR D2
  4895.   SETV D2, 0
  4896.   PUSHR D2
  4897.   SETV D2, 0
  4898.   PUSHR D2
  4899.   SETV D2, 0
  4900.   PUSHR D2
  4901.   SETV D2, 0
  4902.   PUSHR D2
  4903.   SETV D2, 0.0001
  4904.   PUSHR D2
  4905.   SETV D2, 128
  4906.   PUSHR D2
  4907.   GOTO 22028
  4908.   POP D4
  4909.   SETV D3, 0
  4910.   SETV D3, 0
  4911.   POP D3
  4912.   POP D3
  4913.   POP D3
  4914.   POP D3
  4915.   GOTOR D3
  4916.   SETV D2, 0
  4917.   PUSHR D2
  4918.   PUSHR D2
  4919.   PUSHR D2
  4920.   SETR D4, SP
  4921.   SETR D6, D4
  4922.   ADDV D6, 3
  4923.   LOADI D2, D6
  4924.   PUSHR D2
  4925.   SETV D2, 129
  4926.   POP D3
  4927.   COMPARER D2, D3
  4928.   SETTRUE D2
  4929.   PUSHR D2
  4930.   SETR D6, D4
  4931.   ADDV D6, 3
  4932.   LOADI D2, D6
  4933.   PUSHR D2
  4934.   SETV D2, 145
  4935.   POP D3
  4936.   COMPARER D2, D3
  4937.   SETTRUE D2
  4938.   POP D3
  4939.   ADDR D2, D3
  4940.   COMPAREV D2, 0.0001
  4941.   SETMORE D2
  4942.   COMPAREV D2, 0
  4943.   GOTOTRUE 4945
  4944.   SETV D2, 17
  4945.   GOTO 5275
  4946.   GOTO 5274
  4947.   SETV D3, 0
  4948.   SETR D6, D4
  4949.   ADDV D6, 3
  4950.   LOADI D2, D6
  4951.   PUSHR D2
  4952.   SETV D2, 133
  4953.   POP D3
  4954.   COMPARER D2, D3
  4955.   SETTRUE D2
  4956.   COMPAREV D2, 0
  4957.   GOTOTRUE 4959
  4958.   SETV D2, 18
  4959.   GOTO 5275
  4960.   GOTO 5273
  4961.   SETV D3, 0
  4962.   SETR D6, D4
  4963.   ADDV D6, 3
  4964.   LOADI D2, D6
  4965.   PUSHR D2
  4966.   SETV D2, 130
  4967.   POP D3
  4968.   COMPARER D2, D3
  4969.   SETTRUE D2
  4970.   COMPAREV D2, 0
  4971.   GOTOTRUE 4973
  4972.   SETV D2, 19
  4973.   GOTO 5275
  4974.   GOTO 5272
  4975.   SETV D3, 0
  4976.   SETR D6, D4
  4977.   ADDV D6, 3
  4978.   LOADI D2, D6
  4979.   PUSHR D2
  4980.   SETV D2, 140
  4981.   POP D3
  4982.   COMPARER D2, D3
  4983.   SETTRUE D2
  4984.   COMPAREV D2, 0
  4985.   GOTOTRUE 4987
  4986.   SETV D2, 35
  4987.   GOTO 5275
  4988.   GOTO 5271
  4989.   SETV D3, 0
  4990.   SETR D6, D4
  4991.   ADDV D6, 3
  4992.   LOADI D2, D6
  4993.   PUSHR D2
  4994.   SETV D2, 142
  4995.   POP D3
  4996.   COMPARER D2, D3
  4997.   SETTRUE D2
  4998.   COMPAREV D2, 0
  4999.   GOTOTRUE 5001
  5000.   SETV D2, 81
  5001.   GOTO 5275
  5002.   GOTO 5270
  5003.   SETV D3, 0
  5004.   SETR D6, D4
  5005.   ADDV D6, 3
  5006.   LOADI D2, D6
  5007.   PUSHR D2
  5008.   SETV D2, 139
  5009.   POP D3
  5010.   COMPARER D2, D3
  5011.   SETTRUE D2
  5012.   COMPAREV D2, 0
  5013.   GOTOTRUE 5015
  5014.   SETV D2, 80
  5015.   GOTO 5275
  5016.   GOTO 5269
  5017.   SETV D3, 0
  5018.   SETR D6, D4
  5019.   ADDV D6, 3
  5020.   LOADI D2, D6
  5021.   PUSHR D2
  5022.   SETV D2, 134
  5023.   POP D3
  5024.   COMPARER D2, D3
  5025.   SETTRUE D2
  5026.   COMPAREV D2, 0
  5027.   GOTOTRUE 5029
  5028.   SETV D2, 21
  5029.   GOTO 5275
  5030.   GOTO 5268
  5031.   SETV D3, 0
  5032.   SETR D6, D4
  5033.   ADDV D6, 3
  5034.   LOADI D2, D6
  5035.   PUSHR D2
  5036.   SETV D2, 132
  5037.   POP D3
  5038.   COMPARER D2, D3
  5039.   SETTRUE D2
  5040.   COMPAREV D2, 0
  5041.   GOTOTRUE 5043
  5042.   SETV D2, 20
  5043.   GOTO 5275
  5044.   GOTO 5267
  5045.   SETV D3, 0
  5046.   SETR D6, D4
  5047.   ADDV D6, 3
  5048.   LOADI D2, D6
  5049.   PUSHR D2
  5050.   SETV D2, 141
  5051.   POP D3
  5052.   COMPARER D2, D3
  5053.   SETTRUE D2
  5054.   COMPAREV D2, 0
  5055.   GOTOTRUE 5057
  5056.   SETV D2, 36
  5057.   GOTO 5275
  5058.   GOTO 5266
  5059.   SETV D3, 0
  5060.   SETR D6, D4
  5061.   ADDV D6, 3
  5062.   LOADI D2, D6
  5063.   PUSHR D2
  5064.   SETV D2, 137
  5065.   POP D3
  5066.   COMPARER D2, D3
  5067.   SETTRUE D2
  5068.   COMPAREV D2, 0
  5069.   GOTOTRUE 5071
  5070.   SETV D2, 76
  5071.   GOTO 5275
  5072.   GOTO 5265
  5073.   SETV D3, 0
  5074.   SETR D6, D4
  5075.   ADDV D6, 3
  5076.   LOADI D2, D6
  5077.   PUSHR D2
  5078.   SETV D2, 138
  5079.   POP D3
  5080.   COMPARER D2, D3
  5081.   SETTRUE D2
  5082.   COMPAREV D2, 0
  5083.   GOTOTRUE 5085
  5084.   SETV D2, 77
  5085.   GOTO 5275
  5086.   GOTO 5264
  5087.   SETV D3, 0
  5088.   SETR D6, D4
  5089.   ADDV D6, 3
  5090.   LOADI D2, D6
  5091.   PUSHR D2
  5092.   SETV D2, 131
  5093.   POP D3
  5094.   COMPARER D2, D3
  5095.   SETTRUE D2
  5096.   COMPAREV D2, 0
  5097.   GOTOTRUE 5260
  5098.   SETV D2, 0
  5099.   SETR D6, D4
  5100.   ADDV D6, 2
  5101.   STOREI D2, D6
  5102.   SETR D6, D4
  5103.   ADDV D6, 1
  5104.   SETV D2, 0
  5105.   STOREI D2, D6
  5106.   SETV D2, 0
  5107.   SETR D6, D4
  5108.   ADDV D6, 0
  5109.   STOREI D2, D6
  5110.   SETV D2, 0
  5111.   SETR D6, D4
  5112.   ADDV D6, 0
  5113.   LOADI D2, D6
  5114.   PUSHR D2
  5115.   SETV D2, 256
  5116.   POP D3
  5117.   COMPARER D3, D2
  5118.   SETMORE D2
  5119.   COMPAREV D2, 0
  5120.   SETTRUE D2
  5121.   COMPAREV D2, 0
  5122.   GOTOTRUE 5226
  5123.   PUSHR D4
  5124.   SETV D2, 5132
  5125.   PUSHR D2
  5126.   SETR D2, GD0
  5127.   PUSHR D2
  5128.   SETR D6, D4
  5129.   ADDV D6, 0
  5130.   LOADI D2, D6
  5131.   PUSHR D2
  5132.   GOTO 21999
  5133.   POP D4
  5134.   COMPAREV D2, 0
  5135.   SETTRUE D2
  5136.   COMPAREV D2, 0
  5137.   GOTOTRUE 5137
  5138.   GOTO 5215
  5139.   SETV D2, 0
  5140.   PUSHR D4
  5141.   SETV D2, 5149
  5142.   PUSHR D2
  5143.   SETR D2, GD0
  5144.   PUSHR D2
  5145.   SETR D6, D4
  5146.   ADDV D6, 0
  5147.   LOADI D2, D6
  5148.   PUSHR D2
  5149.   GOTO 22107
  5150.   POP D4
  5151.   SETR D6, D4
  5152.   ADDV D6, 1
  5153.   STOREI D2, D6
  5154.   PUSHR D4
  5155.   SETV D2, 5161
  5156.   PUSHR D2
  5157.   SETR D6, D4
  5158.   ADDV D6, 1
  5159.   LOADI D2, D6
  5160.   PUSHR D2
  5161.   GOTO 21969
  5162.   POP D4
  5163.   PUSHR D2
  5164.   SETV D2, 1
  5165.   POP D3
  5166.   COMPARER D2, D3
  5167.   SETFALSE D2
  5168.   COMPAREV D2, 0
  5169.   GOTOTRUE 5169
  5170.   GOTO 5215
  5171.   SETV D2, 0
  5172.   PUSHR D4
  5173.   SETV D2, 5179
  5174.   PUSHR D2
  5175.   SETR D6, D4
  5176.   ADDV D6, 1
  5177.   LOADI D2, D6
  5178.   PUSHR D2
  5179.   GOTO 21974
  5180.   POP D4
  5181.   PUSHR D2
  5182.   SETR D6, D4
  5183.   ADDV D6, 2
  5184.   LOADI D2, D6
  5185.   POP D3
  5186.   COMPARER D3, D2
  5187.   SETLESS D2
  5188.   COMPAREV D2, 0
  5189.   SETTRUE D2
  5190.   COMPAREV D2, 0
  5191.   GOTOTRUE 5214
  5192.   PUSHR D4
  5193.   SETV D2, 5199
  5194.   PUSHR D2
  5195.   SETR D6, D4
  5196.   ADDV D6, 1
  5197.   LOADI D2, D6
  5198.   PUSHR D2
  5199.   GOTO 21974
  5200.   POP D4
  5201.   SETR D6, D4
  5202.   ADDV D6, 2
  5203.   STOREI D2, D6
  5204.   SETR D6, D4
  5205.   ADDV D6, 2
  5206.   LOADI D2, D6
  5207.   PUSHR D2
  5208.   SETV D2, 3
  5209.   POP D3
  5210.   COMPARER D3, D2
  5211.   SETMORE D2
  5212.   COMPAREV D2, 0
  5213.   GOTOTRUE 5213
  5214.   GOTO 5226
  5215.   SETV D2, 0
  5216.   SETV D2, 0
  5217.   SETV D3, 0
  5218.   SETR D6, D4
  5219.   ADDV D6, 0
  5220.   LOADI D2, D6
  5221.   PUSHR D2
  5222.   ADDV D2, 1
  5223.   SETR D6, D4
  5224.   ADDV D6, 0
  5225.   STOREI D2, D6
  5226.   POP D2
  5227.   GOTO 5108
  5228.   SETV D3, 0
  5229.   SETR D6, D4
  5230.   ADDV D6, 2
  5231.   LOADI D2, D6
  5232.   PUSHR D2
  5233.   SETV D2, 1
  5234.   POP D3
  5235.   COMPARER D3, D2
  5236.   SETLESS D2
  5237.   COMPAREV D2, 0
  5238.   GOTOTRUE 5240
  5239.   SETV D2, 4
  5240.   GOTO 5275
  5241.   GOTO 5258
  5242.   SETV D3, 0
  5243.   SETR D6, D4
  5244.   ADDV D6, 2
  5245.   LOADI D2, D6
  5246.   PUSHR D2
  5247.   SETV D2, 2
  5248.   POP D3
  5249.   COMPARER D2, D3
  5250.   SETTRUE D2
  5251.   COMPAREV D2, 0
  5252.   GOTOTRUE 5254
  5253.   SETV D2, 5
  5254.   GOTO 5275
  5255.   GOTO 5257
  5256.   SETV D3, 0
  5257.   SETV D2, 6
  5258.   GOTO 5275
  5259.   SETV D3, 0
  5260.   SETV D3, 0
  5261.   GOTO 5263
  5262.   SETV D3, 0
  5263.   SETV D2, 0
  5264.   GOTO 5275
  5265.   SETV D3, 0
  5266.   SETV D3, 0
  5267.   SETV D3, 0
  5268.   SETV D3, 0
  5269.   SETV D3, 0
  5270.   SETV D3, 0
  5271.   SETV D3, 0
  5272.   SETV D3, 0
  5273.   SETV D3, 0
  5274.   SETV D3, 0
  5275.   SETV D3, 0
  5276.   SETV D3, 0
  5277.   SETV D3, 0
  5278.   POP D3
  5279.   POP D3
  5280.   POP D3
  5281.   POP D3
  5282.   POP D3
  5283.   GOTOR D3
  5284.   SETV D2, 0
  5285.   SETR D4, SP
  5286.   SETR D6, D4
  5287.   ADDV D6, 0
  5288.   LOADI D2, D6
  5289.   PUSHR D2
  5290.   SETV D2, 129
  5291.   POP D3
  5292.   COMPARER D2, D3
  5293.   SETTRUE D2
  5294.   PUSHR D2
  5295.   SETR D6, D4
  5296.   ADDV D6, 0
  5297.   LOADI D2, D6
  5298.   PUSHR D2
  5299.   SETV D2, 145
  5300.   POP D3
  5301.   COMPARER D2, D3
  5302.   SETTRUE D2
  5303.   POP D3
  5304.   ADDR D2, D3
  5305.   COMPAREV D2, 0.0001
  5306.   SETMORE D2
  5307.   COMPAREV D2, 0
  5308.   GOTOTRUE 5310
  5309.   SETV D2, 40
  5310.   GOTO 5398
  5311.   GOTO 5397
  5312.   SETV D3, 0
  5313.   SETR D6, D4
  5314.   ADDV D6, 0
  5315.   LOADI D2, D6
  5316.   PUSHR D2
  5317.   SETV D2, 134
  5318.   POP D3
  5319.   COMPARER D2, D3
  5320.   SETTRUE D2
  5321.   PUSHR D2
  5322.   SETR D6, D4
  5323.   ADDV D6, 0
  5324.   LOADI D2, D6
  5325.   PUSHR D2
  5326.   SETV D2, 141
  5327.   POP D3
  5328.   COMPARER D2, D3
  5329.   SETTRUE D2
  5330.   POP D3
  5331.   ADDR D2, D3
  5332.   COMPAREV D2, 0.0001
  5333.   SETMORE D2
  5334.   COMPAREV D2, 0
  5335.   GOTOTRUE 5337
  5336.   SETV D2, 32
  5337.   GOTO 5398
  5338.   GOTO 5396
  5339.   SETV D3, 0
  5340.   SETR D6, D4
  5341.   ADDV D6, 0
  5342.   LOADI D2, D6
  5343.   PUSHR D2
  5344.   SETV D2, 140
  5345.   POP D3
  5346.   COMPARER D2, D3
  5347.   SETTRUE D2
  5348.   PUSHR D2
  5349.   SETR D6, D4
  5350.   ADDV D6, 0
  5351.   LOADI D2, D6
  5352.   PUSHR D2
  5353.   SETV D2, 142
  5354.   POP D3
  5355.   COMPARER D2, D3
  5356.   SETTRUE D2
  5357.   POP D3
  5358.   ADDR D2, D3
  5359.   COMPAREV D2, 0.0001
  5360.   SETMORE D2
  5361.   PUSHR D2
  5362.   SETR D6, D4
  5363.   ADDV D6, 0
  5364.   LOADI D2, D6
  5365.   PUSHR D2
  5366.   SETV D2, 139
  5367.   POP D3
  5368.   COMPARER D2, D3
  5369.   SETTRUE D2
  5370.   POP D3
  5371.   ADDR D2, D3
  5372.   COMPAREV D2, 0.0001
  5373.   SETMORE D2
  5374.   COMPAREV D2, 0
  5375.   GOTOTRUE 5377
  5376.   SETV D2, 13
  5377.   GOTO 5398
  5378.   GOTO 5395
  5379.   SETV D3, 0
  5380.   SETR D6, D4
  5381.   ADDV D6, 0
  5382.   LOADI D2, D6
  5383.   PUSHR D2
  5384.   SETV D2, 133
  5385.   POP D3
  5386.   COMPARER D2, D3
  5387.   SETTRUE D2
  5388.   COMPAREV D2, 0
  5389.   GOTOTRUE 5391
  5390.   SETV D2, 51
  5391.   GOTO 5398
  5392.   GOTO 5394
  5393.   SETV D3, 0
  5394.   SETV D2, 0
  5395.   GOTO 5398
  5396.   SETV D3, 0
  5397.   SETV D3, 0
  5398.   SETV D3, 0
  5399.   SETV D3, 0
  5400.   SETV D3, 0
  5401.   POP D3
  5402.   POP D3
  5403.   GOTOR D3
  5404.   SETV D2, 0
  5405.   PUSHR D2
  5406.   PUSHR D2
  5407.   SETR D4, SP
  5408.   PUSHR D4
  5409.   SETV D2, 5423
  5410.   PUSHR D2
  5411.   SETR D2, GD0
  5412.   PUSHR D2
  5413.   PUSHR D4
  5414.   SETV D2, 5420
  5415.   PUSHR D2
  5416.   SETR D6, D4
  5417.   ADDV D6, 5
  5418.   LOADI D2, D6
  5419.   PUSHR D2
  5420.   GOTO 22291
  5421.   POP D4
  5422.   PUSHR D2
  5423.   GOTO 22079
  5424.   POP D4
  5425.   SETR D6, D4
  5426.   ADDV D6, 1
  5427.   STOREI D2, D6
  5428.   PUSHR D4
  5429.   SETV D2, 5437
  5430.   PUSHR D2
  5431.   SETR D6, D4
  5432.   ADDV D6, 5
  5433.   LOADI D2, D6
  5434.   PUSHR D2
  5435.   SETV D2, 5
  5436.   PUSHR D2
  5437.   GOTO 22422
  5438.   POP D4
  5439.   PUSHR D2
  5440.   SETV D2, 0
  5441.   POP D3
  5442.   COMPARER D3, D2
  5443.   SETLESS D2
  5444.   COMPAREV D2, 0
  5445.   SETTRUE D2
  5446.   COMPAREV D2, 0
  5447.   GOTOTRUE 5467
  5448.   PUSHR D4
  5449.   SETV D2, 5467
  5450.   PUSHR D2
  5451.   SETR D6, D4
  5452.   ADDV D6, 1
  5453.   LOADI D2, D6
  5454.   PUSHR D2
  5455.   PUSHR D4
  5456.   SETV D2, 5464
  5457.   PUSHR D2
  5458.   SETR D6, D4
  5459.   ADDV D6, 5
  5460.   LOADI D2, D6
  5461.   PUSHR D2
  5462.   SETV D2, 5
  5463.   PUSHR D2
  5464.   GOTO 22422
  5465.   POP D4
  5466.   PUSHR D2
  5467.   GOTO 22416
  5468.   POP D4
  5469.   SETV D2, 0
  5470.   PUSHR D4
  5471.   SETV D2, 5477
  5472.   PUSHR D2
  5473.   SETR D6, D4
  5474.   ADDV D6, 5
  5475.   LOADI D2, D6
  5476.   PUSHR D2
  5477.   GOTO 22332
  5478.   POP D4
  5479.   PUSHR D2
  5480.   SETV D2, 3
  5481.   POP D3
  5482.   COMPARER D2, D3
  5483.   SETTRUE D2
  5484.   COMPAREV D2, 0
  5485.   GOTOTRUE 5654
  5486.   SETV D2, 3
  5487.   PUSHR D4
  5488.   SETV D3, 5497
  5489.   PUSHR D3
  5490.   PUSHR D2
  5491.   SETR D6, D4
  5492.   ADDV D6, 1
  5493.   LOADI D2, D6
  5494.   POP D3
  5495.   PUSHR D2
  5496.   PUSHR D3
  5497.   GOTO 22337
  5498.   POP D4
  5499.   PUSHR D4
  5500.   SETV D2, 5506
  5501.   PUSHR D2
  5502.   SETR D6, D4
  5503.   ADDV D6, 5
  5504.   LOADI D2, D6
  5505.   PUSHR D2
  5506.   GOTO 22355
  5507.   POP D4
  5508.   PUSHR D4
  5509.   SETV D3, 5518
  5510.   PUSHR D3
  5511.   PUSHR D2
  5512.   SETR D6, D4
  5513.   ADDV D6, 1
  5514.   LOADI D2, D6
  5515.   POP D3
  5516.   PUSHR D2
  5517.   PUSHR D3
  5518.   GOTO 22360
  5519.   POP D4
  5520.   PUSHR D4
  5521.   SETV D2, 5527
  5522.   PUSHR D2
  5523.   SETR D6, D4
  5524.   ADDV D6, 5
  5525.   LOADI D2, D6
  5526.   PUSHR D2
  5527.   GOTO 22366
  5528.   POP D4
  5529.   PUSHR D4
  5530.   SETV D3, 5539
  5531.   PUSHR D3
  5532.   PUSHR D2
  5533.   SETR D6, D4
  5534.   ADDV D6, 1
  5535.   LOADI D2, D6
  5536.   POP D3
  5537.   PUSHR D2
  5538.   PUSHR D3
  5539.   GOTO 22371
  5540.   POP D4
  5541.   SETV D2, 16
  5542.   PUSHR D2
  5543.   PUSHR D4
  5544.   SETV D2, 5550
  5545.   PUSHR D2
  5546.   SETR D6, D4
  5547.   ADDV D6, 5
  5548.   LOADI D2, D6
  5549.   PUSHR D2
  5550.   GOTO 22355
  5551.   POP D4
  5552.   POP D3
  5553.   MULTR D2, D3
  5554.   PUSHR D4
  5555.   SETV D3, 5564
  5556.   PUSHR D3
  5557.   PUSHR D2
  5558.   SETR D6, D4
  5559.   ADDV D6, 1
  5560.   LOADI D2, D6
  5561.   POP D3
  5562.   PUSHR D2
  5563.   PUSHR D3
  5564.   GOTO 22343
  5565.   POP D4
  5566.   SETV D2, 16
  5567.   PUSHR D2
  5568.   PUSHR D4
  5569.   SETV D2, 5575
  5570.   PUSHR D2
  5571.   SETR D6, D4
  5572.   ADDV D6, 5
  5573.   LOADI D2, D6
  5574.   PUSHR D2
  5575.   GOTO 22366
  5576.   POP D4
  5577.   POP D3
  5578.   MULTR D2, D3
  5579.   PUSHR D4
  5580.   SETV D3, 5589
  5581.   PUSHR D3
  5582.   PUSHR D2
  5583.   SETR D6, D4
  5584.   ADDV D6, 1
  5585.   LOADI D2, D6
  5586.   POP D3
  5587.   PUSHR D2
  5588.   PUSHR D3
  5589.   GOTO 22349
  5590.   POP D4
  5591.   SETR D6, D4
  5592.   ADDV D6, 4
  5593.   LOADI D2, D6
  5594.   PUSHR D2
  5595.   SETV D2, 8
  5596.   PUSHR D2
  5597.   PUSHR D4
  5598.   SETV D2, 5604
  5599.   PUSHR D2
  5600.   SETR D6, D4
  5601.   ADDV D6, 1
  5602.   LOADI D2, D6
  5603.   PUSHR D2
  5604.   GOTO 22355
  5605.   POP D4
  5606.   POP D3
  5607.   MULTR D2, D3
  5608.   POP D3
  5609.   SUBR D3, D2
  5610.   SETR D2, D3
  5611.   PUSHR D4
  5612.   SETV D3, 5621
  5613.   PUSHR D3
  5614.   PUSHR D2
  5615.   SETR D6, D4
  5616.   ADDV D6, 1
  5617.   LOADI D2, D6
  5618.   POP D3
  5619.   PUSHR D2
  5620.   PUSHR D3
  5621.   GOTO 22213
  5622.   POP D4
  5623.   SETR D6, D4
  5624.   ADDV D6, 3
  5625.   LOADI D2, D6
  5626.   PUSHR D2
  5627.   SETV D2, 8
  5628.   PUSHR D2
  5629.   PUSHR D4
  5630.   SETV D2, 5636
  5631.   PUSHR D2
  5632.   SETR D6, D4
  5633.   ADDV D6, 1
  5634.   LOADI D2, D6
  5635.   PUSHR D2
  5636.   GOTO 22355
  5637.   POP D4
  5638.   POP D3
  5639.   MULTR D2, D3
  5640.   POP D3
  5641.   SUBR D3, D2
  5642.   SETR D2, D3
  5643.   PUSHR D4
  5644.   SETV D3, 5653
  5645.   PUSHR D3
  5646.   PUSHR D2
  5647.   SETR D6, D4
  5648.   ADDV D6, 1
  5649.   LOADI D2, D6
  5650.   POP D3
  5651.   PUSHR D2
  5652.   PUSHR D3
  5653.   GOTO 22224
  5654.   POP D4
  5655.   GOTO 5695
  5656.   SETV D3, 0
  5657.   SETR D6, D4
  5658.   ADDV D6, 4
  5659.   LOADI D2, D6
  5660.   PUSHR D2
  5661.   SETV D2, 8
  5662.   POP D3
  5663.   SUBR D3, D2
  5664.   SETR D2, D3
  5665.   PUSHR D4
  5666.   SETV D3, 5675
  5667.   PUSHR D3
  5668.   PUSHR D2
  5669.   SETR D6, D4
  5670.   ADDV D6, 1
  5671.   LOADI D2, D6
  5672.   POP D3
  5673.   PUSHR D2
  5674.   PUSHR D3
  5675.   GOTO 22213
  5676.   POP D4
  5677.   SETR D6, D4
  5678.   ADDV D6, 3
  5679.   LOADI D2, D6
  5680.   PUSHR D2
  5681.   SETV D2, 8
  5682.   POP D3
  5683.   SUBR D3, D2
  5684.   SETR D2, D3
  5685.   PUSHR D4
  5686.   SETV D3, 5695
  5687.   PUSHR D3
  5688.   PUSHR D2
  5689.   SETR D6, D4
  5690.   ADDV D6, 1
  5691.   LOADI D2, D6
  5692.   POP D3
  5693.   PUSHR D2
  5694.   PUSHR D3
  5695.   GOTO 22224
  5696.   POP D4
  5697.   SETV D3, 0
  5698.   PUSHR D4
  5699.   SETV D2, 5707
  5700.   PUSHR D2
  5701.   SETR D6, D4
  5702.   ADDV D6, 5
  5703.   LOADI D2, D6
  5704.   PUSHR D2
  5705.   SETV D2, 4
  5706.   PUSHR D2
  5707.   GOTO 22422
  5708.   POP D4
  5709.   PUSHR D4
  5710.   SETV D3, 5719
  5711.   PUSHR D3
  5712.   PUSHR D2
  5713.   SETR D6, D4
  5714.   ADDV D6, 1
  5715.   LOADI D2, D6
  5716.   POP D3
  5717.   PUSHR D2
  5718.   PUSHR D3
  5719.   GOTO 22274
  5720.   POP D4
  5721.   PUSHR D4
  5722.   SETV D2, 5728
  5723.   PUSHR D2
  5724.   SETR D6, D4
  5725.   ADDV D6, 5
  5726.   LOADI D2, D6
  5727.   PUSHR D2
  5728.   GOTO 22280
  5729.   POP D4
  5730.   PUSHR D4
  5731.   SETV D3, 5740
  5732.   PUSHR D3
  5733.   PUSHR D2
  5734.   SETR D6, D4
  5735.   ADDV D6, 1
  5736.   LOADI D2, D6
  5737.   POP D3
  5738.   PUSHR D2
  5739.   PUSHR D3
  5740.   GOTO 22285
  5741.   POP D4
  5742.   SETV D2, 0.0001
  5743.   PUSHR D4
  5744.   SETV D3, 5753
  5745.   PUSHR D3
  5746.   PUSHR D2
  5747.   SETR D6, D4
  5748.   ADDV D6, 1
  5749.   LOADI D2, D6
  5750.   POP D3
  5751.   PUSHR D2
  5752.   PUSHR D3
  5753.   GOTO 22301
  5754.   POP D4
  5755.   SETR D6, D4
  5756.   ADDV D6, 2
  5757.   LOADI D2, D6
  5758.   PUSHR D4
  5759.   SETV D3, 5768
  5760.   PUSHR D3
  5761.   PUSHR D2
  5762.   SETR D6, D4
  5763.   ADDV D6, 1
  5764.   LOADI D2, D6
  5765.   POP D3
  5766.   PUSHR D2
  5767.   PUSHR D3
  5768.   GOTO 22263
  5769.   POP D4
  5770.   PUSHR D4
  5771.   SETV D2, 5777
  5772.   PUSHR D2
  5773.   SETR D6, D4
  5774.   ADDV D6, 1
  5775.   LOADI D2, D6
  5776.   PUSHR D2
  5777.   GOTO 3880
  5778.   POP D4
  5779.   PUSHR D4
  5780.   SETV D2, 5786
  5781.   PUSHR D2
  5782.   SETR D6, D4
  5783.   ADDV D6, 1
  5784.   LOADI D2, D6
  5785.   PUSHR D2
  5786.   GOTO 22208
  5787.   POP D4
  5788.   PUSHR D4
  5789.   SETV D3, 5800
  5790.   PUSHR D3
  5791.   PUSHR D2
  5792.   SETR D6, D4
  5793.   ADDV D6, 1
  5794.   LOADI D2, D6
  5795.   POP D3
  5796.   PUSHR D2
  5797.   PUSHR D3
  5798.   SETV D2, 4
  5799.   PUSHR D2
  5800.   GOTO 22428
  5801.   POP D4
  5802.   PUSHR D4
  5803.   SETV D2, 5809
  5804.   PUSHR D2
  5805.   SETR D6, D4
  5806.   ADDV D6, 1
  5807.   LOADI D2, D6
  5808.   PUSHR D2
  5809.   GOTO 22219
  5810.   POP D4
  5811.   PUSHR D4
  5812.   SETV D3, 5823
  5813.   PUSHR D3
  5814.   PUSHR D2
  5815.   SETR D6, D4
  5816.   ADDV D6, 1
  5817.   LOADI D2, D6
  5818.   POP D3
  5819.   PUSHR D2
  5820.   PUSHR D3
  5821.   SETV D2, 5
  5822.   PUSHR D2
  5823.   GOTO 22428
  5824.   POP D4
  5825.   PUSHR D4
  5826.   SETV D2, 5834
  5827.   PUSHR D2
  5828.   SETR D6, D4
  5829.   ADDV D6, 5
  5830.   LOADI D2, D6
  5831.   PUSHR D2
  5832.   SETV D2, 8
  5833.   PUSHR D2
  5834.   GOTO 22422
  5835.   POP D4
  5836.   PUSHR D4
  5837.   SETV D3, 5848
  5838.   PUSHR D3
  5839.   PUSHR D2
  5840.   SETR D6, D4
  5841.   ADDV D6, 1
  5842.   LOADI D2, D6
  5843.   POP D3
  5844.   PUSHR D2
  5845.   PUSHR D3
  5846.   SETV D2, 8
  5847.   PUSHR D2
  5848.   GOTO 22428
  5849.   POP D4
  5850.   PUSHR D4
  5851.   SETV D2, 5859
  5852.   PUSHR D2
  5853.   SETR D6, D4
  5854.   ADDV D6, 5
  5855.   LOADI D2, D6
  5856.   PUSHR D2
  5857.   SETV D2, 10
  5858.   PUSHR D2
  5859.   GOTO 22422
  5860.   POP D4
  5861.   PUSHR D4
  5862.   SETV D3, 5873
  5863.   PUSHR D3
  5864.   PUSHR D2
  5865.   SETR D6, D4
  5866.   ADDV D6, 1
  5867.   LOADI D2, D6
  5868.   POP D3
  5869.   PUSHR D2
  5870.   PUSHR D3
  5871.   SETV D2, 10
  5872.   PUSHR D2
  5873.   GOTO 22428
  5874.   POP D4
  5875.   PUSHR D4
  5876.   SETV D2, 5884
  5877.   PUSHR D2
  5878.   SETR D6, D4
  5879.   ADDV D6, 5
  5880.   LOADI D2, D6
  5881.   PUSHR D2
  5882.   SETV D2, 8
  5883.   PUSHR D2
  5884.   GOTO 22422
  5885.   POP D4
  5886.   PUSHR D2
  5887.   SETV D2, 15
  5888.   POP D3
  5889.   COMPARER D2, D3
  5890.   SETTRUE D2
  5891.   PUSHR D2
  5892.   PUSHR D4
  5893.   SETV D2, 5901
  5894.   PUSHR D2
  5895.   SETR D6, D4
  5896.   ADDV D6, 5
  5897.   LOADI D2, D6
  5898.   PUSHR D2
  5899.   SETV D2, 9
  5900.   PUSHR D2
  5901.   GOTO 22422
  5902.   POP D4
  5903.   PUSHR D2
  5904.   SETV D2, -1
  5905.   POP D3
  5906.   COMPARER D2, D3
  5907.   SETTRUE D2
  5908.   POP D3
  5909.   COMPAREV D2, 0
  5910.   SETFALSE D2
  5911.   COMPAREV D3, 0
  5912.   SETFALSE D3
  5913.   ADDR D2, D3
  5914.   COMPAREV D2, 0.0002
  5915.   SETMORE D2
  5916.   COMPAREV D2, 0
  5917.   GOTOTRUE 6001
  5918.   PUSHR D4
  5919.   SETV D2, 5953
  5920.   PUSHR D2
  5921.   SETR D6, D4
  5922.   ADDV D6, 4
  5923.   LOADI D2, D6
  5924.   PUSHR D2
  5925.   SETR D6, D4
  5926.   ADDV D6, 3
  5927.   LOADI D2, D6
  5928.   PUSHR D2
  5929.   PUSHR D4
  5930.   SETV D2, 5934
  5931.   PUSHR D2
  5932.   SETR D2, GD0
  5933.   PUSHR D2
  5934.   GOTO 21979
  5935.   POP D4
  5936.   PUSHR D2
  5937.   SETV D2, 8
  5938.   POP D3
  5939.   ADDR D2, D3
  5940.   PUSHR D2
  5941.   PUSHR D4
  5942.   SETV D2, 5946
  5943.   PUSHR D2
  5944.   SETR D2, GD0
  5945.   PUSHR D2
  5946.   GOTO 21984
  5947.   POP D4
  5948.   PUSHR D2
  5949.   SETV D2, 8
  5950.   POP D3
  5951.   ADDR D2, D3
  5952.   PUSHR D2
  5953.   GOTO 21664
  5954.   POP D4
  5955.   PUSHR D2
  5956.   PUSHR D4
  5957.   SETV D2, 5963
  5958.   PUSHR D2
  5959.   SETR D6, D4
  5960.   ADDV D6, 1
  5961.   LOADI D2, D6
  5962.   PUSHR D2
  5963.   GOTO 22269
  5964.   POP D4
  5965.   PUSHR D2
  5966.   SETV D2, 100
  5967.   POP D3
  5968.   DIVR D3, D2
  5969.   SETR D2, D3
  5970.   POP D3
  5971.   DIVR D3, D2
  5972.   SETR D2, D3
  5973.   SETR D6, D4
  5974.   ADDV D6, 0
  5975.   STOREI D2, D6
  5976.   SETV D2, 0.1600
  5977.   PUSHR D2
  5978.   SETR D6, D4
  5979.   ADDV D6, 0
  5980.   LOADI D2, D6
  5981.   POP D3
  5982.   MULTR D2, D3
  5983.   PUSHR D2
  5984.   SETV D2, 2
  5985.   POP D3
  5986.   DIVR D3, D2
  5987.   SETR D2, D3
  5988.   PUSHR D4
  5989.   SETV D3, 6000
  5990.   PUSHR D3
  5991.   PUSHR D2
  5992.   SETR D6, D4
  5993.   ADDV D6, 1
  5994.   LOADI D2, D6
  5995.   POP D3
  5996.   PUSHR D2
  5997.   PUSHR D3
  5998.   SETV D2, 9
  5999.   PUSHR D2
  6000.   GOTO 22428
  6001.   POP D4
  6002.   GOTO 6027
  6003.   SETV D3, 0
  6004.   PUSHR D4
  6005.   SETV D2, 6013
  6006.   PUSHR D2
  6007.   SETR D6, D4
  6008.   ADDV D6, 5
  6009.   LOADI D2, D6
  6010.   PUSHR D2
  6011.   SETV D2, 9
  6012.   PUSHR D2
  6013.   GOTO 22422
  6014.   POP D4
  6015.   PUSHR D4
  6016.   SETV D3, 6027
  6017.   PUSHR D3
  6018.   PUSHR D2
  6019.   SETR D6, D4
  6020.   ADDV D6, 1
  6021.   LOADI D2, D6
  6022.   POP D3
  6023.   PUSHR D2
  6024.   PUSHR D3
  6025.   SETV D2, 9
  6026.   PUSHR D2
  6027.   GOTO 22428
  6028.   POP D4
  6029.   SETV D3, 0
  6030.   PUSHR D4
  6031.   SETV D2, 6039
  6032.   PUSHR D2
  6033.   SETR D6, D4
  6034.   ADDV D6, 5
  6035.   LOADI D2, D6
  6036.   PUSHR D2
  6037.   SETV D2, 11
  6038.   PUSHR D2
  6039.   GOTO 22422
  6040.   POP D4
  6041.   PUSHR D4
  6042.   SETV D3, 6053
  6043.   PUSHR D3
  6044.   PUSHR D2
  6045.   SETR D6, D4
  6046.   ADDV D6, 1
  6047.   LOADI D2, D6
  6048.   POP D3
  6049.   PUSHR D2
  6050.   PUSHR D3
  6051.   SETV D2, 11
  6052.   PUSHR D2
  6053.   GOTO 22428
  6054.   POP D4
  6055.   PUSHR D4
  6056.   SETV D2, 6064
  6057.   PUSHR D2
  6058.   SETR D6, D4
  6059.   ADDV D6, 5
  6060.   LOADI D2, D6
  6061.   PUSHR D2
  6062.   SETV D2, 12
  6063.   PUSHR D2
  6064.   GOTO 22422
  6065.   POP D4
  6066.   PUSHR D4
  6067.   SETV D3, 6078
  6068.   PUSHR D3
  6069.   PUSHR D2
  6070.   SETR D6, D4
  6071.   ADDV D6, 1
  6072.   LOADI D2, D6
  6073.   POP D3
  6074.   PUSHR D2
  6075.   PUSHR D3
  6076.   SETV D2, 12
  6077.   PUSHR D2
  6078.   GOTO 22428
  6079.   POP D4
  6080.   PUSHR D4
  6081.   SETV D2, 6089
  6082.   PUSHR D2
  6083.   SETR D6, D4
  6084.   ADDV D6, 5
  6085.   LOADI D2, D6
  6086.   PUSHR D2
  6087.   SETV D2, 13
  6088.   PUSHR D2
  6089.   GOTO 22422
  6090.   POP D4
  6091.   PUSHR D4
  6092.   SETV D3, 6103
  6093.   PUSHR D3
  6094.   PUSHR D2
  6095.   SETR D6, D4
  6096.   ADDV D6, 1
  6097.   LOADI D2, D6
  6098.   POP D3
  6099.   PUSHR D2
  6100.   PUSHR D3
  6101.   SETV D2, 13
  6102.   PUSHR D2
  6103.   GOTO 22428
  6104.   POP D4
  6105.   PUSHR D4
  6106.   SETV D2, 6114
  6107.   PUSHR D2
  6108.   SETR D6, D4
  6109.   ADDV D6, 5
  6110.   LOADI D2, D6
  6111.   PUSHR D2
  6112.   SETV D2, 14
  6113.   PUSHR D2
  6114.   GOTO 22422
  6115.   POP D4
  6116.   PUSHR D4
  6117.   SETV D3, 6128
  6118.   PUSHR D3
  6119.   PUSHR D2
  6120.   SETR D6, D4
  6121.   ADDV D6, 1
  6122.   LOADI D2, D6
  6123.   POP D3
  6124.   PUSHR D2
  6125.   PUSHR D3
  6126.   SETV D2, 14
  6127.   PUSHR D2
  6128.   GOTO 22428
  6129.   POP D4
  6130.   PUSHR D4
  6131.   SETV D2, 6139
  6132.   PUSHR D2
  6133.   SETR D6, D4
  6134.   ADDV D6, 5
  6135.   LOADI D2, D6
  6136.   PUSHR D2
  6137.   SETV D2, 15
  6138.   PUSHR D2
  6139.   GOTO 22422
  6140.   POP D4
  6141.   PUSHR D2
  6142.   SETV D2, 256
  6143.   BITNOT D2
  6144.   POP D3
  6145.   ANDR D2, D3
  6146.   PUSHR D4
  6147.   SETV D3, 6158
  6148.   PUSHR D3
  6149.   PUSHR D2
  6150.   SETR D6, D4
  6151.   ADDV D6, 1
  6152.   LOADI D2, D6
  6153.   POP D3
  6154.   PUSHR D2
  6155.   PUSHR D3
  6156.   SETV D2, 15
  6157.   PUSHR D2
  6158.   GOTO 22428
  6159.   POP D4
  6160.   PUSHR D4
  6161.   SETV D2, 6169
  6162.   PUSHR D2
  6163.   SETR D6, D4
  6164.   ADDV D6, 1
  6165.   LOADI D2, D6
  6166.   PUSHR D2
  6167.   SETV D2, 15
  6168.   PUSHR D2
  6169.   GOTO 22422
  6170.   POP D4
  6171.   PUSHR D2
  6172.   SETV D2, 32
  6173.   POP D3
  6174.   ANDR D2, D3
  6175.   PUSHR D2
  6176.   SETV D2, 0
  6177.   POP D3
  6178.   COMPARER D2, D3
  6179.   SETFALSE D2
  6180.   COMPAREV D2, 0
  6181.   GOTOTRUE 6193
  6182.   SETV D2, 0
  6183.   PUSHR D4
  6184.   SETV D3, 6193
  6185.   PUSHR D3
  6186.   PUSHR D2
  6187.   SETR D6, D4
  6188.   ADDV D6, 1
  6189.   LOADI D2, D6
  6190.   POP D3
  6191.   PUSHR D2
  6192.   PUSHR D3
  6193.   GOTO 22435
  6194.   POP D4
  6195.   SETV D2, 0
  6196.   PUSHR D4
  6197.   SETV D2, 6205
  6198.   PUSHR D2
  6199.   SETR D6, D4
  6200.   ADDV D6, 1
  6201.   LOADI D2, D6
  6202.   PUSHR D2
  6203.   SETV D2, 15
  6204.   PUSHR D2
  6205.   GOTO 22422
  6206.   POP D4
  6207.   PUSHR D2
  6208.   SETV D2, 2
  6209.   POP D3
  6210.   ANDR D2, D3
  6211.   PUSHR D2
  6212.   SETV D2, 0
  6213.   POP D3
  6214.   COMPARER D2, D3
  6215.   SETFALSE D2
  6216.   COMPAREV D2, 0
  6217.   GOTOTRUE 6225
  6218.   PUSHR D4
  6219.   SETV D2, 6225
  6220.   PUSHR D2
  6221.   SETR D6, D4
  6222.   ADDV D6, 1
  6223.   LOADI D2, D6
  6224.   PUSHR D2
  6225.   GOTO 4136
  6226.   POP D4
  6227.   SETV D2, 0
  6228.   SETV D3, 0
  6229.   POP D3
  6230.   POP D3
  6231.   POP D3
  6232.   POP D3
  6233.   POP D3
  6234.   POP D3
  6235.   POP D3
  6236.   GOTOR D3
  6237.   SETV D2, 0
  6238.   SETR D4, SP
  6239.   SETR D6, D4
  6240.   ADDV D6, 0
  6241.   LOADI D2, D6
  6242.   PUSHR D2
  6243.   SETV D2, 0
  6244.   POP D3
  6245.   COMPARER D2, D3
  6246.   SETTRUE D2
  6247.   COMPAREV D2, 0
  6248.   GOTOTRUE 6249
  6249.   SETV D2, 8
  6250.   GOTO 6345
  6251.   SETV D2, 0
  6252.   SETR D6, D4
  6253.   ADDV D6, 0
  6254.   LOADI D2, D6
  6255.   PUSHR D2
  6256.   SETV D2, 1
  6257.   POP D3
  6258.   COMPARER D2, D3
  6259.   SETTRUE D2
  6260.   COMPAREV D2, 0
  6261.   GOTOTRUE 6262
  6262.   SETV D2, 12
  6263.   GOTO 6345
  6264.   SETV D2, 0
  6265.   SETR D6, D4
  6266.   ADDV D6, 0
  6267.   LOADI D2, D6
  6268.   PUSHR D2
  6269.   SETV D2, 2
  6270.   POP D3
  6271.   COMPARER D2, D3
  6272.   SETTRUE D2
  6273.   COMPAREV D2, 0
  6274.   GOTOTRUE 6275
  6275.   SETV D2, 14
  6276.   GOTO 6345
  6277.   SETV D2, 0
  6278.   SETR D6, D4
  6279.   ADDV D6, 0
  6280.   LOADI D2, D6
  6281.   PUSHR D2
  6282.   SETV D2, 3
  6283.   POP D3
  6284.   COMPARER D2, D3
  6285.   SETTRUE D2
  6286.   COMPAREV D2, 0
  6287.   GOTOTRUE 6288
  6288.   SETV D2, 10
  6289.   GOTO 6345
  6290.   SETV D2, 0
  6291.   SETR D6, D4
  6292.   ADDV D6, 0
  6293.   LOADI D2, D6
  6294.   PUSHR D2
  6295.   SETV D2, 4
  6296.   POP D3
  6297.   COMPARER D2, D3
  6298.   SETTRUE D2
  6299.   COMPAREV D2, 0
  6300.   GOTOTRUE 6301
  6301.   SETV D2, 15
  6302.   GOTO 6345
  6303.   SETV D2, 0
  6304.   SETR D6, D4
  6305.   ADDV D6, 0
  6306.   LOADI D2, D6
  6307.   PUSHR D2
  6308.   SETV D2, 5
  6309.   POP D3
  6310.   COMPARER D2, D3
  6311.   SETTRUE D2
  6312.   COMPAREV D2, 0
  6313.   GOTOTRUE 6314
  6314.   SETV D2, 9
  6315.   GOTO 6345
  6316.   SETV D2, 0
  6317.   SETR D6, D4
  6318.   ADDV D6, 0
  6319.   LOADI D2, D6
  6320.   PUSHR D2
  6321.   SETV D2, 6
  6322.   POP D3
  6323.   COMPARER D2, D3
  6324.   SETTRUE D2
  6325.   COMPAREV D2, 0
  6326.   GOTOTRUE 6327
  6327.   SETV D2, 13
  6328.   GOTO 6345
  6329.   SETV D2, 0
  6330.   SETR D6, D4
  6331.   ADDV D6, 0
  6332.   LOADI D2, D6
  6333.   PUSHR D2
  6334.   SETV D2, 7
  6335.   POP D3
  6336.   COMPARER D2, D3
  6337.   SETTRUE D2
  6338.   COMPAREV D2, 0
  6339.   GOTOTRUE 6340
  6340.   SETV D2, 11
  6341.   GOTO 6345
  6342.   SETV D2, 0
  6343.   SETR D6, D4
  6344.   ADDV D6, 0
  6345.   LOADI D2, D6
  6346.   GOTO 6345
  6347.   SETV D3, 0
  6348.   POP D3
  6349.   POP D3
  6350.   GOTOR D3
  6351.   SETV D2, 0
  6352.   PUSHR D2
  6353.   PUSHR D2
  6354.   PUSHR D2
  6355.   PUSHR D2
  6356.   PUSHR D2
  6357.   PUSHR D2
  6358.   PUSHR D2
  6359.   PUSHR D2
  6360.   PUSHR D2
  6361.   PUSHR D2
  6362.   PUSHR D2
  6363.   PUSHR D2
  6364.   PUSHR D2
  6365.   PUSHR D2
  6366.   SETR D4, SP
  6367.   SETR D6, D4
  6368.   ADDV D6, 13
  6369.   SETV D2, 0
  6370.   STOREI D2, D6
  6371.   SETR D6, D4
  6372.   ADDV D6, 12
  6373.   SETV D2, 0
  6374.   STOREI D2, D6
  6375.   SETR D6, D4
  6376.   ADDV D6, 11
  6377.   SETV D2, 0
  6378.   STOREI D2, D6
  6379.   SETR D6, D4
  6380.   ADDV D6, 10
  6381.   SETV D2, 0
  6382.   STOREI D2, D6
  6383.   SETR D6, D4
  6384.   ADDV D6, 9
  6385.   SETV D2, 0
  6386.   STOREI D2, D6
  6387.   SETR D6, D4
  6388.   ADDV D6, 8
  6389.   SETV D2, 0
  6390.   STOREI D2, D6
  6391.   SETR D6, D4
  6392.   ADDV D6, 7
  6393.   SETV D2, 0
  6394.   STOREI D2, D6
  6395.   SETR D6, D4
  6396.   ADDV D6, 6
  6397.   SETV D2, 0
  6398.   STOREI D2, D6
  6399.   SETR D6, D4
  6400.   ADDV D6, 5
  6401.   SETV D2, 0
  6402.   STOREI D2, D6
  6403.   PUSHR D4
  6404.   SETV D2, 6418
  6405.   PUSHR D2
  6406.   PUSHR D4
  6407.   SETV D2, 6415
  6408.   PUSHR D2
  6409.   SETR D6, D4
  6410.   ADDV D6, 14
  6411.   LOADI D2, D6
  6412.   PUSHR D2
  6413.   SETV D2, 13
  6414.   PUSHR D2
  6415.   GOTO 22422
  6416.   POP D4
  6417.   PUSHR D2
  6418.   GOTO 21477
  6419.   POP D4
  6420.   SETR D6, D4
  6421.   ADDV D6, 13
  6422.   STOREI D2, D6
  6423.   PUSHR D4
  6424.   SETV D2, 6428
  6425.   PUSHR D2
  6426.   SETR D2, GD0
  6427.   PUSHR D2
  6428.   GOTO 22067
  6429.   POP D4
  6430.   SETR D6, D4
  6431.   ADDV D6, 5
  6432.   STOREI D2, D6
  6433.   SETV D2, 0
  6434.   SETR D6, D4
  6435.   ADDV D6, 5
  6436.   LOADI D2, D6
  6437.   PUSHR D2
  6438.   SETV D2, 0
  6439.   POP D3
  6440.   COMPARER D3, D2
  6441.   SETLESS D2
  6442.   COMPAREV D2, 0
  6443.   SETTRUE D2
  6444.   COMPAREV D2, 0
  6445.   GOTOTRUE 6515
  6446.   PUSHR D4
  6447.   SETV D2, 6455
  6448.   PUSHR D2
  6449.   SETR D2, GD0
  6450.   PUSHR D2
  6451.   SETR D6, D4
  6452.   ADDV D6, 5
  6453.   LOADI D2, D6
  6454.   PUSHR D2
  6455.   GOTO 22072
  6456.   POP D4
  6457.   SETR D6, D4
  6458.   ADDV D6, 12
  6459.   STOREI D2, D6
  6460.   PUSHR D4
  6461.   SETV D2, 6469
  6462.   PUSHR D2
  6463.   SETR D6, D4
  6464.   ADDV D6, 12
  6465.   LOADI D2, D6
  6466.   PUSHR D2
  6467.   SETV D2, 15
  6468.   PUSHR D2
  6469.   GOTO 22422
  6470.   POP D4
  6471.   PUSHR D2
  6472.   SETV D2, 768
  6473.   POP D3
  6474.   ANDR D2, D3
  6475.   PUSHR D2
  6476.   SETV D2, 768
  6477.   POP D3
  6478.   COMPARER D2, D3
  6479.   SETFALSE D2
  6480.   COMPAREV D2, 0
  6481.   GOTOTRUE 6481
  6482.   GOTO 6504
  6483.   SETV D2, 0
  6484.   PUSHR D4
  6485.   SETV D2, 6493
  6486.   PUSHR D2
  6487.   SETR D6, D4
  6488.   ADDV D6, 12
  6489.   LOADI D2, D6
  6490.   PUSHR D2
  6491.   SETV D2, 3
  6492.   PUSHR D2
  6493.   GOTO 22422
  6494.   POP D4
  6495.   PUSHR D2
  6496.   SETR D6, D4
  6497.   ADDV D6, 13
  6498.   LOADI D2, D6
  6499.   POP D3
  6500.   COMPARER D2, D3
  6501.   SETTRUE D2
  6502.   COMPAREV D2, 0
  6503.   GOTOTRUE 6503
  6504.   GOTO 6515
  6505.   SETV D2, 0
  6506.   SETV D3, 0
  6507.   SETR D6, D4
  6508.   ADDV D6, 5
  6509.   LOADI D2, D6
  6510.   PUSHR D2
  6511.   SUBV D2, 1
  6512.   SETR D6, D4
  6513.   ADDV D6, 5
  6514.   STOREI D2, D6
  6515.   POP D2
  6516.   GOTO 6431
  6517.   SETV D3, 0
  6518.   SETR D6, D4
  6519.   ADDV D6, 5
  6520.   LOADI D2, D6
  6521.   PUSHR D2
  6522.   SETV D2, 0
  6523.   POP D3
  6524.   COMPARER D2, D3
  6525.   SETTRUE D2
  6526.   COMPAREV D2, 0
  6527.   GOTOTRUE 6697
  6528.   ALLOCATEMEMV D2, 43
  6529.   SETR D6, D4
  6530.   ADDV D6, 4
  6531.   STOREI D2, D6
  6532.   SETR D0, D2
  6533.   SETV D1, -1
  6534.   ADDV D1, 1
  6535.   SETV D2, 103
  6536.   SETR SCRIPTRAM, D2
  6537.   ADDV D1, 1
  6538.   SETV D2, 104
  6539.   SETR SCRIPTRAM, D2
  6540.   ADDV D1, 1
  6541.   SETV D2, 111
  6542.   SETR SCRIPTRAM, D2
  6543.   ADDV D1, 1
  6544.   SETV D2, 115
  6545.   SETR SCRIPTRAM, D2
  6546.   ADDV D1, 1
  6547.   SETV D2, 116
  6548.   SETR SCRIPTRAM, D2
  6549.   ADDV D1, 1
  6550.   SETV D2, 46
  6551.   SETR SCRIPTRAM, D2
  6552.   ADDV D1, 1
  6553.   SETV D2, 122
  6554.   SETR SCRIPTRAM, D2
  6555.   ADDV D1, 1
  6556.   SETV D2, 104
  6557.   SETR SCRIPTRAM, D2
  6558.   ADDV D1, 1
  6559.   SETV D2, 58
  6560.   SETR SCRIPTRAM, D2
  6561.   ADDV D1, 1
  6562.   SETV D2, 32
  6563.   SETR SCRIPTRAM, D2
  6564.   ADDV D1, 1
  6565.   SETV D2, 70
  6566.   SETR SCRIPTRAM, D2
  6567.   ADDV D1, 1
  6568.   SETV D2, 97
  6569.   SETR SCRIPTRAM, D2
  6570.   ADDV D1, 1
  6571.   SETV D2, 105
  6572.   SETR SCRIPTRAM, D2
  6573.   ADDV D1, 1
  6574.   SETV D2, 108
  6575.   SETR SCRIPTRAM, D2
  6576.   ADDV D1, 1
  6577.   SETV D2, 101
  6578.   SETR SCRIPTRAM, D2
  6579.   ADDV D1, 1
  6580.   SETV D2, 100
  6581.   SETR SCRIPTRAM, D2
  6582.   ADDV D1, 1
  6583.   SETV D2, 32
  6584.   SETR SCRIPTRAM, D2
  6585.   ADDV D1, 1
  6586.   SETV D2, 116
  6587.   SETR SCRIPTRAM, D2
  6588.   ADDV D1, 1
  6589.   SETV D2, 111
  6590.   SETR SCRIPTRAM, D2
  6591.   ADDV D1, 1
  6592.   SETV D2, 32
  6593.   SETR SCRIPTRAM, D2
  6594.   ADDV D1, 1
  6595.   SETV D2, 102
  6596.   SETR SCRIPTRAM, D2
  6597.   ADDV D1, 1
  6598.   SETV D2, 105
  6599.   SETR SCRIPTRAM, D2
  6600.   ADDV D1, 1
  6601.   SETV D2, 110
  6602.   SETR SCRIPTRAM, D2
  6603.   ADDV D1, 1
  6604.   SETV D2, 100
  6605.   SETR SCRIPTRAM, D2
  6606.   ADDV D1, 1
  6607.   SETV D2, 32
  6608.   SETR SCRIPTRAM, D2
  6609.   ADDV D1, 1
  6610.   SETV D2, 112
  6611.   SETR SCRIPTRAM, D2
  6612.   ADDV D1, 1
  6613.   SETV D2, 114
  6614.   SETR SCRIPTRAM, D2
  6615.   ADDV D1, 1
  6616.   SETV D2, 111
  6617.   SETR SCRIPTRAM, D2
  6618.   ADDV D1, 1
  6619.   SETV D2, 116
  6620.   SETR SCRIPTRAM, D2
  6621.   ADDV D1, 1
  6622.   SETV D2, 111
  6623.   SETR SCRIPTRAM, D2
  6624.   ADDV D1, 1
  6625.   SETV D2, 116
  6626.   SETR SCRIPTRAM, D2
  6627.   ADDV D1, 1
  6628.   SETV D2, 121
  6629.   SETR SCRIPTRAM, D2
  6630.   ADDV D1, 1
  6631.   SETV D2, 112
  6632.   SETR SCRIPTRAM, D2
  6633.   ADDV D1, 1
  6634.   SETV D2, 101
  6635.   SETR SCRIPTRAM, D2
  6636.   ADDV D1, 1
  6637.   SETV D2, 32
  6638.   SETR SCRIPTRAM, D2
  6639.   ADDV D1, 1
  6640.   SETV D2, 101
  6641.   SETR SCRIPTRAM, D2
  6642.   ADDV D1, 1
  6643.   SETV D2, 119
  6644.   SETR SCRIPTRAM, D2
  6645.   ADDV D1, 1
  6646.   SETV D2, 101
  6647.   SETR SCRIPTRAM, D2
  6648.   ADDV D1, 1
  6649.   SETV D2, 97
  6650.   SETR SCRIPTRAM, D2
  6651.   ADDV D1, 1
  6652.   SETV D2, 112
  6653.   SETR SCRIPTRAM, D2
  6654.   ADDV D1, 1
  6655.   SETV D2, 111
  6656.   SETR SCRIPTRAM, D2
  6657.   ADDV D1, 1
  6658.   SETV D2, 110
  6659.   SETR SCRIPTRAM, D2
  6660.   ADDV D1, 1
  6661.   SETV D2, 0
  6662.   SETR SCRIPTRAM, D2
  6663.   PUSHR D4
  6664.   SETV D2, 6670
  6665.   PUSHR D2
  6666.   SETR D6, D4
  6667.   ADDV D6, 4
  6668.   LOADI D2, D6
  6669.   PUSHR D2
  6670.   GOTO 21819
  6671.   POP D4
  6672.   PUSHR D4
  6673.   SETV D2, 6675
  6674.   PUSHR D2
  6675.   GOTO 21823
  6676.   POP D4
  6677.   SETV D2, 0
  6678.   PUSHR D4
  6679.   SETV D3, 6688
  6680.   PUSHR D3
  6681.   PUSHR D2
  6682.   SETR D6, D4
  6683.   ADDV D6, 14
  6684.   LOADI D2, D6
  6685.   POP D3
  6686.   PUSHR D2
  6687.   PUSHR D3
  6688.   GOTO 22315
  6689.   POP D4
  6690.   SETR D6, D4
  6691.   ADDV D6, 4
  6692.   LOADI D3, D6
  6693.   DEALLOCATEMEMR D3
  6694.   GOTO 7332
  6695.   SETR D6, D4
  6696.   ADDV D6, 4
  6697.   LOADI D3, D6
  6698.   DEALLOCATEMEMR D3
  6699.   SETV D2, 0
  6700.   PUSHR D4
  6701.   SETV D2, 6709
  6702.   PUSHR D2
  6703.   SETR D6, D4
  6704.   ADDV D6, 14
  6705.   LOADI D2, D6
  6706.   PUSHR D2
  6707.   SETV D2, 14
  6708.   PUSHR D2
  6709.   GOTO 22422
  6710.   POP D4
  6711.   PUSHR D2
  6712.   SETV D2, 10
  6713.   POP D3
  6714.   MODR D3, D2
  6715.   SETR D2, D3
  6716.   PUSHR D2
  6717.   SETV D2, 6.2832
  6718.   POP D3
  6719.   SUBR D3, D2
  6720.   SETR D2, D3
  6721.   SETR D6, D4
  6722.   ADDV D6, 7
  6723.   STOREI D2, D6
  6724.   PUSHR D4
  6725.   SETV D2, 6733
  6726.   PUSHR D2
  6727.   SETR D6, D4
  6728.   ADDV D6, 14
  6729.   LOADI D2, D6
  6730.   PUSHR D2
  6731.   SETV D2, 13
  6732.   PUSHR D2
  6733.   GOTO 22422
  6734.   POP D4
  6735.   PUSHR D2
  6736.   SETR D6, D4
  6737.   ADDV D6, 13
  6738.   LOADI D2, D6
  6739.   POP D3
  6740.   SUBR D3, D2
  6741.   SETR D2, D3
  6742.   PUSHR D2
  6743.   SETV D2, 10000
  6744.   POP D3
  6745.   MULTR D2, D3
  6746.   SETR D6, D4
  6747.   ADDV D6, 6
  6748.   STOREI D2, D6
  6749.   PUSHR D4
  6750.   SETV D2, 6758
  6751.   PUSHR D2
  6752.   SETR D6, D4
  6753.   ADDV D6, 14
  6754.   LOADI D2, D6
  6755.   PUSHR D2
  6756.   SETV D2, 14
  6757.   PUSHR D2
  6758.   GOTO 22422
  6759.   POP D4
  6760.   PUSHR D2
  6761.   SETR D6, D4
  6762.   ADDV D6, 7
  6763.   LOADI D2, D6
  6764.   POP D3
  6765.   SUBR D3, D2
  6766.   SETR D2, D3
  6767.   PUSHR D2
  6768.   SETV D2, 100
  6769.   POP D3
  6770.   DIVR D3, D2
  6771.   SETR D2, D3
  6772.   PUSHR D2
  6773.   SETV D2, 0
  6774.   POP D3
  6775.   RSHIFTR D3, D2
  6776.   SETR D2, D3
  6777.   SETR D6, D4
  6778.   ADDV D6, 10
  6779.   STOREI D2, D6
  6780.   PUSHR D4
  6781.   SETV D2, 6787
  6782.   PUSHR D2
  6783.   SETR D6, D4
  6784.   ADDV D6, 14
  6785.   LOADI D2, D6
  6786.   PUSHR D2
  6787.   GOTO 22332
  6788.   POP D4
  6789.   PUSHR D2
  6790.   SETV D2, 3
  6791.   POP D3
  6792.   COMPARER D2, D3
  6793.   SETTRUE D2
  6794.   COMPAREV D2, 0
  6795.   GOTOTRUE 6851
  6796.   PUSHR D4
  6797.   SETV D2, 6803
  6798.   PUSHR D2
  6799.   SETR D6, D4
  6800.   ADDV D6, 14
  6801.   LOADI D2, D6
  6802.   PUSHR D2
  6803.   GOTO 22208
  6804.   POP D4
  6805.   PUSHR D2
  6806.   SETV D2, 8
  6807.   PUSHR D2
  6808.   PUSHR D4
  6809.   SETV D2, 6815
  6810.   PUSHR D2
  6811.   SETR D6, D4
  6812.   ADDV D6, 14
  6813.   LOADI D2, D6
  6814.   PUSHR D2
  6815.   GOTO 22355
  6816.   POP D4
  6817.   POP D3
  6818.   MULTR D2, D3
  6819.   POP D3
  6820.   ADDR D2, D3
  6821.   SETR D6, D4
  6822.   ADDV D6, 9
  6823.   STOREI D2, D6
  6824.   PUSHR D4
  6825.   SETV D2, 6831
  6826.   PUSHR D2
  6827.   SETR D6, D4
  6828.   ADDV D6, 14
  6829.   LOADI D2, D6
  6830.   PUSHR D2
  6831.   GOTO 22219
  6832.   POP D4
  6833.   PUSHR D2
  6834.   SETV D2, 8
  6835.   PUSHR D2
  6836.   PUSHR D4
  6837.   SETV D2, 6843
  6838.   PUSHR D2
  6839.   SETR D6, D4
  6840.   ADDV D6, 14
  6841.   LOADI D2, D6
  6842.   PUSHR D2
  6843.   GOTO 22366
  6844.   POP D4
  6845.   POP D3
  6846.   MULTR D2, D3
  6847.   POP D3
  6848.   ADDR D2, D3
  6849.   SETR D6, D4
  6850.   ADDV D6, 8
  6851.   STOREI D2, D6
  6852.   GOTO 6884
  6853.   SETV D3, 0
  6854.   PUSHR D4
  6855.   SETV D2, 6861
  6856.   PUSHR D2
  6857.   SETR D6, D4
  6858.   ADDV D6, 14
  6859.   LOADI D2, D6
  6860.   PUSHR D2
  6861.   GOTO 22208
  6862.   POP D4
  6863.   PUSHR D2
  6864.   SETV D2, 8
  6865.   POP D3
  6866.   ADDR D2, D3
  6867.   SETR D6, D4
  6868.   ADDV D6, 9
  6869.   STOREI D2, D6
  6870.   PUSHR D4
  6871.   SETV D2, 6877
  6872.   PUSHR D2
  6873.   SETR D6, D4
  6874.   ADDV D6, 14
  6875.   LOADI D2, D6
  6876.   PUSHR D2
  6877.   GOTO 22219
  6878.   POP D4
  6879.   PUSHR D2
  6880.   SETV D2, 8
  6881.   POP D3
  6882.   ADDR D2, D3
  6883.   SETR D6, D4
  6884.   ADDV D6, 8
  6885.   STOREI D2, D6
  6886.   SETV D3, 0
  6887.   SETR D6, D4
  6888.   ADDV D6, 10
  6889.   LOADI D2, D6
  6890.   PUSHR D2
  6891.   SETV D2, 1
  6892.   POP D3
  6893.   COMPARER D2, D3
  6894.   SETTRUE D2
  6895.   COMPAREV D2, 0
  6896.   GOTOTRUE 6984
  6897.   SETV D2, 0
  6898.   SETR D6, D4
  6899.   ADDV D6, 3
  6900.   STOREI D2, D6
  6901.   SETV D2, 0
  6902.   SETR D6, D4
  6903.   ADDV D6, 3
  6904.   LOADI D2, D6
  6905.   PUSHR D2
  6906.   SETR D6, D4
  6907.   ADDV D6, 6
  6908.   LOADI D2, D6
  6909.   POP D3
  6910.   COMPARER D3, D2
  6911.   SETMORE D2
  6912.   COMPAREV D2, 0
  6913.   SETTRUE D2
  6914.   COMPAREV D2, 0
  6915.   GOTOTRUE 6963
  6916.   PUSHR D4
  6917.   SETV D2, 6952
  6918.   PUSHR D2
  6919.   SETR D6, D4
  6920.   ADDV D6, 12
  6921.   LOADI D2, D6
  6922.   PUSHR D2
  6923.   SETR D6, D4
  6924.   ADDV D6, 9
  6925.   LOADI D2, D6
  6926.   PUSHR D2
  6927.   SETR D6, D4
  6928.   ADDV D6, 8
  6929.   LOADI D2, D6
  6930.   PUSHR D2
  6931.   SETR D6, D4
  6932.   ADDV D6, 7
  6933.   LOADI D2, D6
  6934.   PUSHR D2
  6935.   SETV D2, 6.2832
  6936.   PUSHR D2
  6937.   SETR D6, D4
  6938.   ADDV D6, 3
  6939.   LOADI D2, D6
  6940.   POP D3
  6941.   MULTR D2, D3
  6942.   PUSHR D2
  6943.   SETR D6, D4
  6944.   ADDV D6, 6
  6945.   LOADI D2, D6
  6946.   POP D3
  6947.   DIVR D3, D2
  6948.   SETR D2, D3
  6949.   POP D3
  6950.   ADDR D2, D3
  6951.   PUSHR D2
  6952.   GOTO 5402
  6953.   POP D4
  6954.   SETV D3, 0
  6955.   SETR D6, D4
  6956.   ADDV D6, 3
  6957.   LOADI D2, D6
  6958.   PUSHR D2
  6959.   ADDV D2, 1
  6960.   SETR D6, D4
  6961.   ADDV D6, 3
  6962.   STOREI D2, D6
  6963.   POP D2
  6964.   GOTO 6899
  6965.   SETV D3, 0
  6966.   PUSHR D4
  6967.   SETV D2, 6983
  6968.   PUSHR D2
  6969.   SETR D2, GD0
  6970.   PUSHR D2
  6971.   PUSHR D4
  6972.   SETV D2, 6980
  6973.   PUSHR D2
  6974.   SETR D6, D4
  6975.   ADDV D6, 12
  6976.   LOADI D2, D6
  6977.   PUSHR D2
  6978.   SETV D2, 2
  6979.   PUSHR D2
  6980.   GOTO 22422
  6981.   POP D4
  6982.   PUSHR D2
  6983.   GOTO 22113
  6984.   POP D4
  6985.   GOTO 7318
  6986.   SETV D3, 0
  6987.   SETR D6, D4
  6988.   ADDV D6, 10
  6989.   LOADI D2, D6
  6990.   PUSHR D2
  6991.   SETV D2, 2
  6992.   POP D3
  6993.   COMPARER D2, D3
  6994.   SETTRUE D2
  6995.   COMPAREV D2, 0
  6996.   GOTOTRUE 7076
  6997.   SETV D2, 0
  6998.   SETR D6, D4
  6999.   ADDV D6, 2
  7000.   STOREI D2, D6
  7001.   SETV D2, 0
  7002.   SETR D6, D4
  7003.   ADDV D6, 2
  7004.   LOADI D2, D6
  7005.   PUSHR D2
  7006.   SETR D6, D4
  7007.   ADDV D6, 6
  7008.   LOADI D2, D6
  7009.   POP D3
  7010.   COMPARER D3, D2
  7011.   SETMORE D2
  7012.   COMPAREV D2, 0
  7013.   SETTRUE D2
  7014.   COMPAREV D2, 0
  7015.   GOTOTRUE 7055
  7016.   PUSHR D4
  7017.   SETV D2, 7044
  7018.   PUSHR D2
  7019.   SETR D6, D4
  7020.   ADDV D6, 12
  7021.   LOADI D2, D6
  7022.   PUSHR D2
  7023.   SETR D6, D4
  7024.   ADDV D6, 9
  7025.   LOADI D2, D6
  7026.   PUSHR D2
  7027.   SETR D6, D4
  7028.   ADDV D6, 8
  7029.   LOADI D2, D6
  7030.   PUSHR D2
  7031.   PUSHR D4
  7032.   SETV D2, 7036
  7033.   PUSHR D2
  7034.   SETV D2, 31416
  7035.   PUSHR D2
  7036.   GOTO 21809
  7037.   POP D4
  7038.   PUSHR D2
  7039.   SETV D2, 5000
  7040.   POP D3
  7041.   DIVR D3, D2
  7042.   SETR D2, D3
  7043.   PUSHR D2
  7044.   GOTO 5402
  7045.   POP D4
  7046.   SETV D3, 0
  7047.   SETR D6, D4
  7048.   ADDV D6, 2
  7049.   LOADI D2, D6
  7050.   PUSHR D2
  7051.   ADDV D2, 1
  7052.   SETR D6, D4
  7053.   ADDV D6, 2
  7054.   STOREI D2, D6
  7055.   POP D2
  7056.   GOTO 6999
  7057.   SETV D3, 0
  7058.   PUSHR D4
  7059.   SETV D2, 7075
  7060.   PUSHR D2
  7061.   SETR D2, GD0
  7062.   PUSHR D2
  7063.   PUSHR D4
  7064.   SETV D2, 7072
  7065.   PUSHR D2
  7066.   SETR D6, D4
  7067.   ADDV D6, 12
  7068.   LOADI D2, D6
  7069.   PUSHR D2
  7070.   SETV D2, 2
  7071.   PUSHR D2
  7072.   GOTO 22422
  7073.   POP D4
  7074.   PUSHR D2
  7075.   GOTO 22113
  7076.   POP D4
  7077.   GOTO 7317
  7078.   SETV D3, 0
  7079.   SETR D6, D4
  7080.   ADDV D6, 6
  7081.   LOADI D2, D6
  7082.   PUSHR D2
  7083.   SETV D2, 1
  7084.   POP D3
  7085.   COMPARER D3, D2
  7086.   SETLESS D2
  7087.   COMPAREV D2, 0
  7088.   SETTRUE D2
  7089.   COMPAREV D2, 0
  7090.   GOTOTRUE 7224
  7091.   PUSHR D4
  7092.   SETV D2, 7132
  7093.   PUSHR D2
  7094.   PUSHR D4
  7095.   SETV D2, 7099
  7096.   PUSHR D2
  7097.   SETR D2, GD0
  7098.   PUSHR D2
  7099.   GOTO 21979
  7100.   POP D4
  7101.   PUSHR D2
  7102.   SETV D2, 8
  7103.   POP D3
  7104.   ADDR D2, D3
  7105.   PUSHR D2
  7106.   SETR D6, D4
  7107.   ADDV D6, 9
  7108.   LOADI D2, D6
  7109.   POP D3
  7110.   SUBR D3, D2
  7111.   SETR D2, D3
  7112.   PUSHR D2
  7113.   PUSHR D4
  7114.   SETV D2, 7118
  7115.   PUSHR D2
  7116.   SETR D2, GD0
  7117.   PUSHR D2
  7118.   GOTO 21984
  7119.   POP D4
  7120.   PUSHR D2
  7121.   SETV D2, 8
  7122.   POP D3
  7123.   ADDR D2, D3
  7124.   PUSHR D2
  7125.   SETR D6, D4
  7126.   ADDV D6, 8
  7127.   LOADI D2, D6
  7128.   POP D3
  7129.   SUBR D3, D2
  7130.   SETR D2, D3
  7131.   PUSHR D2
  7132.   GOTO 21844
  7133.   POP D4
  7134.   PUSHR D2
  7135.   SETR D6, D4
  7136.   ADDV D6, 7
  7137.   LOADI D2, D6
  7138.   PUSHR D2
  7139.   SETV D2, 2
  7140.   POP D3
  7141.   DIVR D3, D2
  7142.   SETR D2, D3
  7143.   POP D3
  7144.   SUBR D3, D2
  7145.   SETR D2, D3
  7146.   SETR D6, D4
  7147.   ADDV D6, 1
  7148.   STOREI D2, D6
  7149.   SETV D2, 0
  7150.   SETR D6, D4
  7151.   ADDV D6, 0
  7152.   STOREI D2, D6
  7153.   SETV D2, 0
  7154.   SETR D6, D4
  7155.   ADDV D6, 0
  7156.   LOADI D2, D6
  7157.   PUSHR D2
  7158.   SETR D6, D4
  7159.   ADDV D6, 6
  7160.   LOADI D2, D6
  7161.   POP D3
  7162.   COMPARER D3, D2
  7163.   SETMORE D2
  7164.   COMPAREV D2, 0
  7165.   SETTRUE D2
  7166.   COMPAREV D2, 0
  7167.   GOTOTRUE 7222
  7168.   PUSHR D4
  7169.   SETV D2, 7211
  7170.   PUSHR D2
  7171.   SETR D6, D4
  7172.   ADDV D6, 12
  7173.   LOADI D2, D6
  7174.   PUSHR D2
  7175.   SETR D6, D4
  7176.   ADDV D6, 9
  7177.   LOADI D2, D6
  7178.   PUSHR D2
  7179.   SETR D6, D4
  7180.   ADDV D6, 8
  7181.   LOADI D2, D6
  7182.   PUSHR D2
  7183.   SETR D6, D4
  7184.   ADDV D6, 1
  7185.   LOADI D2, D6
  7186.   PUSHR D2
  7187.   SETR D6, D4
  7188.   ADDV D6, 7
  7189.   LOADI D2, D6
  7190.   PUSHR D2
  7191.   SETR D6, D4
  7192.   ADDV D6, 0
  7193.   LOADI D2, D6
  7194.   POP D3
  7195.   MULTR D2, D3
  7196.   PUSHR D2
  7197.   SETR D6, D4
  7198.   ADDV D6, 6
  7199.   LOADI D2, D6
  7200.   PUSHR D2
  7201.   SETV D2, 1
  7202.   POP D3
  7203.   SUBR D3, D2
  7204.   SETR D2, D3
  7205.   POP D3
  7206.   DIVR D3, D2
  7207.   SETR D2, D3
  7208.   POP D3
  7209.   ADDR D2, D3
  7210.   PUSHR D2
  7211.   GOTO 5402
  7212.   POP D4
  7213.   SETV D3, 0
  7214.   SETR D6, D4
  7215.   ADDV D6, 0
  7216.   LOADI D2, D6
  7217.   PUSHR D2
  7218.   ADDV D2, 1
  7219.   SETR D6, D4
  7220.   ADDV D6, 0
  7221.   STOREI D2, D6
  7222.   POP D2
  7223.   GOTO 7151
  7224.   SETV D3, 0
  7225.   GOTO 7297
  7226.   SETV D3, 0
  7227.   SETR D6, D4
  7228.   ADDV D6, 6
  7229.   LOADI D2, D6
  7230.   PUSHR D2
  7231.   SETV D2, 1
  7232.   POP D3
  7233.   COMPARER D2, D3
  7234.   SETTRUE D2
  7235.   COMPAREV D2, 0
  7236.   GOTOTRUE 7296
  7237.   PUSHR D4
  7238.   SETV D2, 7296
  7239.   PUSHR D2
  7240.   SETR D6, D4
  7241.   ADDV D6, 12
  7242.   LOADI D2, D6
  7243.   PUSHR D2
  7244.   SETR D6, D4
  7245.   ADDV D6, 9
  7246.   LOADI D2, D6
  7247.   PUSHR D2
  7248.   SETR D6, D4
  7249.   ADDV D6, 8
  7250.   LOADI D2, D6
  7251.   PUSHR D2
  7252.   PUSHR D4
  7253.   SETV D2, 7293
  7254.   PUSHR D2
  7255.   PUSHR D4
  7256.   SETV D2, 7260
  7257.   PUSHR D2
  7258.   SETR D2, GD0
  7259.   PUSHR D2
  7260.   GOTO 21979
  7261.   POP D4
  7262.   PUSHR D2
  7263.   SETV D2, 8
  7264.   POP D3
  7265.   ADDR D2, D3
  7266.   PUSHR D2
  7267.   SETR D6, D4
  7268.   ADDV D6, 9
  7269.   LOADI D2, D6
  7270.   POP D3
  7271.   SUBR D3, D2
  7272.   SETR D2, D3
  7273.   PUSHR D2
  7274.   PUSHR D4
  7275.   SETV D2, 7279
  7276.   PUSHR D2
  7277.   SETR D2, GD0
  7278.   PUSHR D2
  7279.   GOTO 21984
  7280.   POP D4
  7281.   PUSHR D2
  7282.   SETV D2, 8
  7283.   POP D3
  7284.   ADDR D2, D3
  7285.   PUSHR D2
  7286.   SETR D6, D4
  7287.   ADDV D6, 8
  7288.   LOADI D2, D6
  7289.   POP D3
  7290.   SUBR D3, D2
  7291.   SETR D2, D3
  7292.   PUSHR D2
  7293.   GOTO 21844
  7294.   POP D4
  7295.   PUSHR D2
  7296.   GOTO 5402
  7297.   POP D4
  7298.   SETV D2, 0
  7299.   SETV D3, 0
  7300.   PUSHR D4
  7301.   SETV D2, 7317
  7302.   PUSHR D2
  7303.   SETR D2, GD0
  7304.   PUSHR D2
  7305.   PUSHR D4
  7306.   SETV D2, 7314
  7307.   PUSHR D2
  7308.   SETR D6, D4
  7309.   ADDV D6, 12
  7310.   LOADI D2, D6
  7311.   PUSHR D2
  7312.   SETV D2, 2
  7313.   PUSHR D2
  7314.   GOTO 22422
  7315.   POP D4
  7316.   PUSHR D2
  7317.   GOTO 22113
  7318.   POP D4
  7319.   SETV D3, 0
  7320.   SETV D3, 0
  7321.   SETV D2, 0
  7322.   PUSHR D4
  7323.   SETV D3, 7332
  7324.   PUSHR D3
  7325.   PUSHR D2
  7326.   SETR D6, D4
  7327.   ADDV D6, 14
  7328.   LOADI D2, D6
  7329.   POP D3
  7330.   PUSHR D2
  7331.   PUSHR D3
  7332.   GOTO 22315
  7333.   POP D4
  7334.   SETV D3, 0
  7335.   POP D3
  7336.   POP D3
  7337.   POP D3
  7338.   POP D3
  7339.   POP D3
  7340.   POP D3
  7341.   POP D3
  7342.   POP D3
  7343.   POP D3
  7344.   POP D3
  7345.   POP D3
  7346.   POP D3
  7347.   POP D3
  7348.   POP D3
  7349.   POP D3
  7350.   POP D3
  7351.   GOTOR D3
  7352.   SETV D2, 0
  7353.   PUSHR D2
  7354.   SETR D4, SP
  7355.   SETV D2, 0
  7356.   PUSHR D4
  7357.   SETV D3, 7366
  7358.   PUSHR D3
  7359.   PUSHR D2
  7360.   SETR D6, D4
  7361.   ADDV D6, 1
  7362.   LOADI D2, D6
  7363.   POP D3
  7364.   PUSHR D2
  7365.   PUSHR D3
  7366.   GOTO 22274
  7367.   POP D4
  7368.   PUSHR D4
  7369.   SETV D2, 7377
  7370.   PUSHR D2
  7371.   SETR D6, D4
  7372.   ADDV D6, 1
  7373.   LOADI D2, D6
  7374.   PUSHR D2
  7375.   SETV D2, 14
  7376.   PUSHR D2
  7377.   GOTO 22422
  7378.   POP D4
  7379.   PUSHR D2
  7380.   SETV D2, 1
  7381.   POP D3
  7382.   SUBR D3, D2
  7383.   SETR D2, D3
  7384.   PUSHR D4
  7385.   SETV D3, 7396
  7386.   PUSHR D3
  7387.   PUSHR D2
  7388.   SETR D6, D4
  7389.   ADDV D6, 1
  7390.   LOADI D2, D6
  7391.   POP D3
  7392.   PUSHR D2
  7393.   PUSHR D3
  7394.   SETV D2, 14
  7395.   PUSHR D2
  7396.   GOTO 22428
  7397.   POP D4
  7398.   PUSHR D4
  7399.   SETV D2, 7407
  7400.   PUSHR D2
  7401.   SETR D6, D4
  7402.   ADDV D6, 1
  7403.   LOADI D2, D6
  7404.   PUSHR D2
  7405.   SETV D2, 14
  7406.   PUSHR D2
  7407.   GOTO 22422
  7408.   POP D4
  7409.   PUSHR D2
  7410.   SETV D2, 0
  7411.   POP D3
  7412.   COMPARER D3, D2
  7413.   SETLESS D2
  7414.   COMPAREV D2, 0
  7415.   GOTOTRUE 7504
  7416.   PUSHR D4
  7417.   SETV D2, 7455
  7418.   PUSHR D2
  7419.   PUSHR D4
  7420.   SETV D2, 7426
  7421.   PUSHR D2
  7422.   SETR D6, D4
  7423.   ADDV D6, 1
  7424.   LOADI D2, D6
  7425.   PUSHR D2
  7426.   GOTO 22208
  7427.   POP D4
  7428.   PUSHR D2
  7429.   PUSHR D4
  7430.   SETV D2, 7436
  7431.   PUSHR D2
  7432.   SETR D6, D4
  7433.   ADDV D6, 1
  7434.   LOADI D2, D6
  7435.   PUSHR D2
  7436.   GOTO 22219
  7437.   POP D4
  7438.   PUSHR D2
  7439.   PUSHR D4
  7440.   SETV D2, 7444
  7441.   PUSHR D2
  7442.   SETR D2, GD0
  7443.   PUSHR D2
  7444.   GOTO 21979
  7445.   POP D4
  7446.   PUSHR D2
  7447.   PUSHR D4
  7448.   SETV D2, 7452
  7449.   PUSHR D2
  7450.   SETR D2, GD0
  7451.   PUSHR D2
  7452.   GOTO 21984
  7453.   POP D4
  7454.   PUSHR D2
  7455.   GOTO 21772
  7456.   POP D4
  7457.   PUSHR D4
  7458.   SETV D3, 7467
  7459.   PUSHR D3
  7460.   PUSHR D2
  7461.   SETR D6, D4
  7462.   ADDV D6, 1
  7463.   LOADI D2, D6
  7464.   POP D3
  7465.   PUSHR D2
  7466.   PUSHR D3
  7467.   GOTO 22263
  7468.   POP D4
  7469.   PUSHR D4
  7470.   SETV D2, 7476
  7471.   PUSHR D2
  7472.   SETR D6, D4
  7473.   ADDV D6, 1
  7474.   LOADI D2, D6
  7475.   PUSHR D2
  7476.   GOTO 3880
  7477.   POP D4
  7478.   SETV D2, 300
  7479.   PUSHR D4
  7480.   SETV D3, 7489
  7481.   PUSHR D3
  7482.   PUSHR D2
  7483.   SETR D6, D4
  7484.   ADDV D6, 1
  7485.   LOADI D2, D6
  7486.   POP D3
  7487.   PUSHR D2
  7488.   PUSHR D3
  7489.   GOTO 22274
  7490.   POP D4
  7491.   SETV D2, 0
  7492.   PUSHR D4
  7493.   SETV D3, 7504
  7494.   PUSHR D3
  7495.   PUSHR D2
  7496.   SETR D6, D4
  7497.   ADDV D6, 1
  7498.   LOADI D2, D6
  7499.   POP D3
  7500.   PUSHR D2
  7501.   PUSHR D3
  7502.   SETV D2, 13
  7503.   PUSHR D2
  7504.   GOTO 22428
  7505.   POP D4
  7506.   SETV D2, 0
  7507.   PUSHR D4
  7508.   SETV D2, 7514
  7509.   PUSHR D2
  7510.   SETR D6, D4
  7511.   ADDV D6, 1
  7512.   LOADI D2, D6
  7513.   PUSHR D2
  7514.   GOTO 22258
  7515.   POP D4
  7516.   PUSHR D2
  7517.   SETV D2, 0.3000
  7518.   POP D3
  7519.   ADDR D2, D3
  7520.   PUSHR D4
  7521.   SETV D3, 7530
  7522.   PUSHR D3
  7523.   PUSHR D2
  7524.   SETR D6, D4
  7525.   ADDV D6, 1
  7526.   LOADI D2, D6
  7527.   POP D3
  7528.   PUSHR D2
  7529.   PUSHR D3
  7530.   GOTO 22263
  7531.   POP D4
  7532.   GOTO 7711
  7533.   PUSHR D4
  7534.   SETV D2, 7542
  7535.   PUSHR D2
  7536.   SETR D6, D4
  7537.   ADDV D6, 1
  7538.   LOADI D2, D6
  7539.   PUSHR D2
  7540.   SETV D2, 15
  7541.   PUSHR D2
  7542.   GOTO 22422
  7543.   POP D4
  7544.   PUSHR D2
  7545.   SETV D2, 4
  7546.   POP D3
  7547.   ANDR D2, D3
  7548.   PUSHR D2
  7549.   SETV D2, 0
  7550.   POP D3
  7551.   COMPARER D2, D3
  7552.   SETFALSE D2
  7553.   PUSHR D2
  7554.   PUSHR D4
  7555.   SETV D2, 7563
  7556.   PUSHR D2
  7557.   SETR D6, D4
  7558.   ADDV D6, 1
  7559.   LOADI D2, D6
  7560.   PUSHR D2
  7561.   SETV D2, 15
  7562.   PUSHR D2
  7563.   GOTO 22422
  7564.   POP D4
  7565.   PUSHR D2
  7566.   SETV D2, 2
  7567.   POP D3
  7568.   ANDR D2, D3
  7569.   PUSHR D2
  7570.   SETV D2, 0
  7571.   POP D3
  7572.   COMPARER D2, D3
  7573.   SETFALSE D2
  7574.   POP D3
  7575.   ADDR D2, D3
  7576.   COMPAREV D2, 0.0001
  7577.   SETMORE D2
  7578.   COMPAREV D2, 0
  7579.   GOTOTRUE 7604
  7580.   PUSHR D4
  7581.   SETV D2, 7587
  7582.   PUSHR D2
  7583.   SETR D6, D4
  7584.   ADDV D6, 1
  7585.   LOADI D2, D6
  7586.   PUSHR D2
  7587.   GOTO 22258
  7588.   POP D4
  7589.   PUSHR D2
  7590.   SETV D2, 0.3000
  7591.   POP D3
  7592.   ADDR D2, D3
  7593.   PUSHR D4
  7594.   SETV D3, 7603
  7595.   PUSHR D3
  7596.   PUSHR D2
  7597.   SETR D6, D4
  7598.   ADDV D6, 1
  7599.   LOADI D2, D6
  7600.   POP D3
  7601.   PUSHR D2
  7602.   PUSHR D3
  7603.   GOTO 22263
  7604.   POP D4
  7605.   GOTO 7710
  7606.   SETV D3, 0
  7607.   SETV D2, 0
  7608.   COMPAREV D2, 0
  7609.   GOTOTRUE 7709
  7610.   PUSHR D4
  7611.   SETV D2, 7619
  7612.   PUSHR D2
  7613.   SETR D6, D4
  7614.   ADDV D6, 1
  7615.   LOADI D2, D6
  7616.   PUSHR D2
  7617.   SETV D2, 14
  7618.   PUSHR D2
  7619.   GOTO 22422
  7620.   POP D4
  7621.   PUSHR D2
  7622.   SETV D2, 6
  7623.   POP D3
  7624.   ANDR D2, D3
  7625.   SETR D6, D4
  7626.   ADDV D6, 0
  7627.   STOREI D2, D6
  7628.   SETR D6, D4
  7629.   ADDV D6, 0
  7630.   LOADI D2, D6
  7631.   PUSHR D2
  7632.   SETV D2, 6
  7633.   POP D3
  7634.   COMPARER D2, D3
  7635.   SETTRUE D2
  7636.   COMPAREV D2, 0
  7637.   GOTOTRUE 7648
  7638.   PUSHR D4
  7639.   SETV D2, 7647
  7640.   PUSHR D2
  7641.   SETR D6, D4
  7642.   ADDV D6, 1
  7643.   LOADI D2, D6
  7644.   PUSHR D2
  7645.   SETV D2, 0
  7646.   PUSHR D2
  7647.   GOTO 4471
  7648.   POP D4
  7649.   GOTO 7708
  7650.   SETV D3, 0
  7651.   SETR D6, D4
  7652.   ADDV D6, 0
  7653.   LOADI D2, D6
  7654.   PUSHR D2
  7655.   SETV D2, 4
  7656.   POP D3
  7657.   COMPARER D2, D3
  7658.   SETTRUE D2
  7659.   COMPAREV D2, 0
  7660.   GOTOTRUE 7671
  7661.   PUSHR D4
  7662.   SETV D2, 7670
  7663.   PUSHR D2
  7664.   SETR D6, D4
  7665.   ADDV D6, 1
  7666.   LOADI D2, D6
  7667.   PUSHR D2
  7668.   SETV D2, 3
  7669.   PUSHR D2
  7670.   GOTO 4471
  7671.   POP D4
  7672.   GOTO 7707
  7673.   SETV D3, 0
  7674.   SETR D6, D4
  7675.   ADDV D6, 0
  7676.   LOADI D2, D6
  7677.   PUSHR D2
  7678.   SETV D2, 2
  7679.   POP D3
  7680.   COMPARER D2, D3
  7681.   SETTRUE D2
  7682.   COMPAREV D2, 0
  7683.   GOTOTRUE 7694
  7684.   PUSHR D4
  7685.   SETV D2, 7693
  7686.   PUSHR D2
  7687.   SETR D6, D4
  7688.   ADDV D6, 1
  7689.   LOADI D2, D6
  7690.   PUSHR D2
  7691.   SETV D2, 1
  7692.   PUSHR D2
  7693.   GOTO 4471
  7694.   POP D4
  7695.   GOTO 7706
  7696.   SETV D3, 0
  7697.   PUSHR D4
  7698.   SETV D2, 7706
  7699.   PUSHR D2
  7700.   SETR D6, D4
  7701.   ADDV D6, 1
  7702.   LOADI D2, D6
  7703.   PUSHR D2
  7704.   SETV D2, 2
  7705.   PUSHR D2
  7706.   GOTO 4471
  7707.   POP D4
  7708.   SETV D3, 0
  7709.   SETV D3, 0
  7710.   SETV D3, 0
  7711.   SETV D2, 0
  7712.   SETV D3, 0
  7713.   SETV D3, 0
  7714.   POP D3
  7715.   POP D3
  7716.   POP D3
  7717.   GOTOR D3
  7718.   SETV D2, 0
  7719.   SETR D4, SP
  7720.   PUSHR D4
  7721.   SETV D2, 7785
  7722.   PUSHR D2
  7723.   SETV D2, 135
  7724.   PUSHR D2
  7725.   PUSHR D4
  7726.   SETV D2, 7732
  7727.   PUSHR D2
  7728.   SETR D6, D4
  7729.   ADDV D6, 0
  7730.   LOADI D2, D6
  7731.   PUSHR D2
  7732.   GOTO 21600
  7733.   POP D4
  7734.   PUSHR D2
  7735.   SETV D2, 8
  7736.   POP D3
  7737.   SUBR D3, D2
  7738.   SETR D2, D3
  7739.   PUSHR D2
  7740.   PUSHR D4
  7741.   SETV D2, 7747
  7742.   PUSHR D2
  7743.   SETR D6, D4
  7744.   ADDV D6, 0
  7745.   LOADI D2, D6
  7746.   PUSHR D2
  7747.   GOTO 21632
  7748.   POP D4
  7749.   PUSHR D2
  7750.   SETV D2, 8
  7751.   POP D3
  7752.   SUBR D3, D2
  7753.   SETR D2, D3
  7754.   PUSHR D2
  7755.   PUSHR D4
  7756.   SETV D2, 7762
  7757.   PUSHR D2
  7758.   SETR D6, D4
  7759.   ADDV D6, 0
  7760.   LOADI D2, D6
  7761.   PUSHR D2
  7762.   GOTO 22247
  7763.   POP D4
  7764.   PUSHR D2
  7765.   SETV D2, 0
  7766.   PUSHR D2
  7767.   PUSHR D4
  7768.   SETV D2, 7776
  7769.   PUSHR D2
  7770.   SETR D6, D4
  7771.   ADDV D6, 0
  7772.   LOADI D2, D6
  7773.   PUSHR D2
  7774.   SETV D2, 14
  7775.   PUSHR D2
  7776.   GOTO 22422
  7777.   POP D4
  7778.   PUSHR D2
  7779.   SETV D2, -1
  7780.   PUSHR D2
  7781.   SETV D2, 0
  7782.   PUSHR D2
  7783.   SETV D2, 0
  7784.   PUSHR D2
  7785.   GOTO 785
  7786.   POP D4
  7787.   SETV D2, 0
  7788.   PUSHR D4
  7789.   SETV D3, 7798
  7790.   PUSHR D3
  7791.   PUSHR D2
  7792.   SETR D6, D4
  7793.   ADDV D6, 0
  7794.   LOADI D2, D6
  7795.   POP D3
  7796.   PUSHR D2
  7797.   PUSHR D3
  7798.   GOTO 22315
  7799.   POP D4
  7800.   SETV D3, 0
  7801.   POP D3
  7802.   POP D3
  7803.   GOTOR D3
  7804.   SETV D2, 0
  7805.   SETR D4, SP
  7806.   PUSHR D4
  7807.   SETV D2, 7871
  7808.   PUSHR D2
  7809.   SETV D2, 136
  7810.   PUSHR D2
  7811.   PUSHR D4
  7812.   SETV D2, 7818
  7813.   PUSHR D2
  7814.   SETR D6, D4
  7815.   ADDV D6, 0
  7816.   LOADI D2, D6
  7817.   PUSHR D2
  7818.   GOTO 21600
  7819.   POP D4
  7820.   PUSHR D2
  7821.   SETV D2, 8
  7822.   POP D3
  7823.   SUBR D3, D2
  7824.   SETR D2, D3
  7825.   PUSHR D2
  7826.   PUSHR D4
  7827.   SETV D2, 7833
  7828.   PUSHR D2
  7829.   SETR D6, D4
  7830.   ADDV D6, 0
  7831.   LOADI D2, D6
  7832.   PUSHR D2
  7833.   GOTO 21632
  7834.   POP D4
  7835.   PUSHR D2
  7836.   SETV D2, 8
  7837.   POP D3
  7838.   SUBR D3, D2
  7839.   SETR D2, D3
  7840.   PUSHR D2
  7841.   PUSHR D4
  7842.   SETV D2, 7848
  7843.   PUSHR D2
  7844.   SETR D6, D4
  7845.   ADDV D6, 0
  7846.   LOADI D2, D6
  7847.   PUSHR D2
  7848.   GOTO 22247
  7849.   POP D4
  7850.   PUSHR D2
  7851.   SETV D2, 0
  7852.   PUSHR D2
  7853.   PUSHR D4
  7854.   SETV D2, 7862
  7855.   PUSHR D2
  7856.   SETR D6, D4
  7857.   ADDV D6, 0
  7858.   LOADI D2, D6
  7859.   PUSHR D2
  7860.   SETV D2, 14
  7861.   PUSHR D2
  7862.   GOTO 22422
  7863.   POP D4
  7864.   PUSHR D2
  7865.   SETV D2, -1
  7866.   PUSHR D2
  7867.   SETV D2, 0
  7868.   PUSHR D2
  7869.   SETV D2, 0
  7870.   PUSHR D2
  7871.   GOTO 785
  7872.   POP D4
  7873.   SETV D2, 0
  7874.   PUSHR D4
  7875.   SETV D3, 7884
  7876.   PUSHR D3
  7877.   PUSHR D2
  7878.   SETR D6, D4
  7879.   ADDV D6, 0
  7880.   LOADI D2, D6
  7881.   POP D3
  7882.   PUSHR D2
  7883.   PUSHR D3
  7884.   GOTO 22315
  7885.   POP D4
  7886.   SETV D3, 0
  7887.   POP D3
  7888.   POP D3
  7889.   GOTOR D3
  7890.   SETV D2, 0
  7891.   PUSHR D2
  7892.   SETR D4, SP
  7893.   SETV D2, 0
  7894.   SETR D6, D4
  7895.   ADDV D6, 0
  7896.   STOREI D2, D6
  7897.   SETV D2, 0
  7898.   SETR D6, D4
  7899.   ADDV D6, 0
  7900.   LOADI D2, D6
  7901.   PUSHR D2
  7902.   SETV D2, 4
  7903.   POP D3
  7904.   COMPARER D3, D2
  7905.   SETMORE D2
  7906.   COMPAREV D2, 0
  7907.   SETTRUE D2
  7908.   COMPAREV D2, 0
  7909.   GOTOTRUE 7993
  7910.   PUSHR D4
  7911.   SETV D2, 7982
  7912.   PUSHR D2
  7913.   SETV D2, 129
  7914.   PUSHR D2
  7915.   PUSHR D4
  7916.   SETV D2, 7922
  7917.   PUSHR D2
  7918.   SETR D6, D4
  7919.   ADDV D6, 1
  7920.   LOADI D2, D6
  7921.   PUSHR D2
  7922.   GOTO 21600
  7923.   POP D4
  7924.   PUSHR D2
  7925.   SETV D2, 8
  7926.   POP D3
  7927.   SUBR D3, D2
  7928.   SETR D2, D3
  7929.   PUSHR D2
  7930.   PUSHR D4
  7931.   SETV D2, 7937
  7932.   PUSHR D2
  7933.   SETR D6, D4
  7934.   ADDV D6, 1
  7935.   LOADI D2, D6
  7936.   PUSHR D2
  7937.   GOTO 21632
  7938.   POP D4
  7939.   PUSHR D2
  7940.   SETV D2, 8
  7941.   POP D3
  7942.   SUBR D3, D2
  7943.   SETR D2, D3
  7944.   PUSHR D2
  7945.   SETR D6, D4
  7946.   ADDV D6, 0
  7947.   LOADI D2, D6
  7948.   PUSHR D2
  7949.   SETV D2, 200
  7950.   PUSHR D2
  7951.   PUSHR D4
  7952.   SETV D2, 7958
  7953.   PUSHR D2
  7954.   SETR D6, D4
  7955.   ADDV D6, 1
  7956.   LOADI D2, D6
  7957.   PUSHR D2
  7958.   GOTO 22280
  7959.   POP D4
  7960.   PUSHR D2
  7961.   SETV D2, 2
  7962.   POP D3
  7963.   DIVR D3, D2
  7964.   SETR D2, D3
  7965.   PUSHR D2
  7966.   PUSHR D4
  7967.   SETV D2, 7975
  7968.   PUSHR D2
  7969.   SETR D6, D4
  7970.   ADDV D6, 1
  7971.   LOADI D2, D6
  7972.   PUSHR D2
  7973.   SETV D2, 14
  7974.   PUSHR D2
  7975.   GOTO 22422
  7976.   POP D4
  7977.   PUSHR D2
  7978.   SETV D2, 0
  7979.   PUSHR D2
  7980.   SETV D2, 0
  7981.   PUSHR D2
  7982.   GOTO 785
  7983.   POP D4
  7984.   SETV D3, 0
  7985.   SETR D6, D4
  7986.   ADDV D6, 0
  7987.   LOADI D2, D6
  7988.   PUSHR D2
  7989.   ADDV D2, 1
  7990.   SETR D6, D4
  7991.   ADDV D6, 0
  7992.   STOREI D2, D6
  7993.   POP D2
  7994.   GOTO 7895
  7995.   SETV D3, 0
  7996.   SETV D2, 0
  7997.   PUSHR D4
  7998.   SETV D3, 8007
  7999.   PUSHR D3
  8000.   PUSHR D2
  8001.   SETR D6, D4
  8002.   ADDV D6, 1
  8003.   LOADI D2, D6
  8004.   POP D3
  8005.   PUSHR D2
  8006.   PUSHR D3
  8007.   GOTO 22315
  8008.   POP D4
  8009.   SETV D3, 0
  8010.   POP D3
  8011.   POP D3
  8012.   POP D3
  8013.   GOTOR D3
  8014.   SETV D2, 0
  8015.   PUSHR D2
  8016.   SETR D4, SP
  8017.   SETV D2, 4
  8018.   SETR D6, D4
  8019.   ADDV D6, 0
  8020.   STOREI D2, D6
  8021.   SETV D2, 0
  8022.   SETR D6, D4
  8023.   ADDV D6, 0
  8024.   LOADI D2, D6
  8025.   PUSHR D2
  8026.   SETV D2, 8
  8027.   POP D3
  8028.   COMPARER D3, D2
  8029.   SETMORE D2
  8030.   COMPAREV D2, 0
  8031.   SETTRUE D2
  8032.   COMPAREV D2, 0
  8033.   GOTOTRUE 8117
  8034.   PUSHR D4
  8035.   SETV D2, 8106
  8036.   PUSHR D2
  8037.   SETV D2, 129
  8038.   PUSHR D2
  8039.   PUSHR D4
  8040.   SETV D2, 8046
  8041.   PUSHR D2
  8042.   SETR D6, D4
  8043.   ADDV D6, 1
  8044.   LOADI D2, D6
  8045.   PUSHR D2
  8046.   GOTO 21600
  8047.   POP D4
  8048.   PUSHR D2
  8049.   SETV D2, 8
  8050.   POP D3
  8051.   SUBR D3, D2
  8052.   SETR D2, D3
  8053.   PUSHR D2
  8054.   PUSHR D4
  8055.   SETV D2, 8061
  8056.   PUSHR D2
  8057.   SETR D6, D4
  8058.   ADDV D6, 1
  8059.   LOADI D2, D6
  8060.   PUSHR D2
  8061.   GOTO 21632
  8062.   POP D4
  8063.   PUSHR D2
  8064.   SETV D2, 8
  8065.   POP D3
  8066.   SUBR D3, D2
  8067.   SETR D2, D3
  8068.   PUSHR D2
  8069.   SETR D6, D4
  8070.   ADDV D6, 0
  8071.   LOADI D2, D6
  8072.   PUSHR D2
  8073.   SETV D2, 200
  8074.   PUSHR D2
  8075.   PUSHR D4
  8076.   SETV D2, 8082
  8077.   PUSHR D2
  8078.   SETR D6, D4
  8079.   ADDV D6, 1
  8080.   LOADI D2, D6
  8081.   PUSHR D2
  8082.   GOTO 22280
  8083.   POP D4
  8084.   PUSHR D2
  8085.   SETV D2, 2
  8086.   POP D3
  8087.   DIVR D3, D2
  8088.   SETR D2, D3
  8089.   PUSHR D2
  8090.   PUSHR D4
  8091.   SETV D2, 8099
  8092.   PUSHR D2
  8093.   SETR D6, D4
  8094.   ADDV D6, 1
  8095.   LOADI D2, D6
  8096.   PUSHR D2
  8097.   SETV D2, 14
  8098.   PUSHR D2
  8099.   GOTO 22422
  8100.   POP D4
  8101.   PUSHR D2
  8102.   SETV D2, 0
  8103.   PUSHR D2
  8104.   SETV D2, 0
  8105.   PUSHR D2
  8106.   GOTO 785
  8107.   POP D4
  8108.   SETV D3, 0
  8109.   SETR D6, D4
  8110.   ADDV D6, 0
  8111.   LOADI D2, D6
  8112.   PUSHR D2
  8113.   ADDV D2, 1
  8114.   SETR D6, D4
  8115.   ADDV D6, 0
  8116.   STOREI D2, D6
  8117.   POP D2
  8118.   GOTO 8019
  8119.   SETV D3, 0
  8120.   SETV D2, 0
  8121.   PUSHR D4
  8122.   SETV D3, 8131
  8123.   PUSHR D3
  8124.   PUSHR D2
  8125.   SETR D6, D4
  8126.   ADDV D6, 1
  8127.   LOADI D2, D6
  8128.   POP D3
  8129.   PUSHR D2
  8130.   PUSHR D3
  8131.   GOTO 22315
  8132.   POP D4
  8133.   SETV D3, 0
  8134.   POP D3
  8135.   POP D3
  8136.   POP D3
  8137.   GOTOR D3
  8138.   SETV D2, 0
  8139.   PUSHR D2
  8140.   PUSHR D2
  8141.   SETR D4, SP
  8142.   PUSHR D4
  8143.   SETV D2, 8147
  8144.   PUSHR D2
  8145.   SETV D2, 2
  8146.   PUSHR D2
  8147.   GOTO 21809
  8148.   POP D4
  8149.   PUSHR D2
  8150.   SETV D2, 0
  8151.   POP D3
  8152.   COMPARER D2, D3
  8153.   SETTRUE D2
  8154.   COMPAREV D2, 0
  8155.   GOTOTRUE 8258
  8156.   SETV D2, 0
  8157.   SETR D6, D4
  8158.   ADDV D6, 1
  8159.   STOREI D2, D6
  8160.   SETV D2, 0
  8161.   SETR D6, D4
  8162.   ADDV D6, 1
  8163.   LOADI D2, D6
  8164.   PUSHR D2
  8165.   SETV D2, 4
  8166.   POP D3
  8167.   COMPARER D3, D2
  8168.   SETMORE D2
  8169.   COMPAREV D2, 0
  8170.   SETTRUE D2
  8171.   COMPAREV D2, 0
  8172.   GOTOTRUE 8256
  8173.   PUSHR D4
  8174.   SETV D2, 8245
  8175.   PUSHR D2
  8176.   SETV D2, 129
  8177.   PUSHR D2
  8178.   PUSHR D4
  8179.   SETV D2, 8185
  8180.   PUSHR D2
  8181.   SETR D6, D4
  8182.   ADDV D6, 2
  8183.   LOADI D2, D6
  8184.   PUSHR D2
  8185.   GOTO 21600
  8186.   POP D4
  8187.   PUSHR D2
  8188.   SETV D2, 8
  8189.   POP D3
  8190.   SUBR D3, D2
  8191.   SETR D2, D3
  8192.   PUSHR D2
  8193.   PUSHR D4
  8194.   SETV D2, 8200
  8195.   PUSHR D2
  8196.   SETR D6, D4
  8197.   ADDV D6, 2
  8198.   LOADI D2, D6
  8199.   PUSHR D2
  8200.   GOTO 21632
  8201.   POP D4
  8202.   PUSHR D2
  8203.   SETV D2, 8
  8204.   POP D3
  8205.   SUBR D3, D2
  8206.   SETR D2, D3
  8207.   PUSHR D2
  8208.   SETR D6, D4
  8209.   ADDV D6, 1
  8210.   LOADI D2, D6
  8211.   PUSHR D2
  8212.   SETV D2, 200
  8213.   PUSHR D2
  8214.   PUSHR D4
  8215.   SETV D2, 8221
  8216.   PUSHR D2
  8217.   SETR D6, D4
  8218.   ADDV D6, 2
  8219.   LOADI D2, D6
  8220.   PUSHR D2
  8221.   GOTO 22280
  8222.   POP D4
  8223.   PUSHR D2
  8224.   SETV D2, 2
  8225.   POP D3
  8226.   DIVR D3, D2
  8227.   SETR D2, D3
  8228.   PUSHR D2
  8229.   PUSHR D4
  8230.   SETV D2, 8238
  8231.   PUSHR D2
  8232.   SETR D6, D4
  8233.   ADDV D6, 2
  8234.   LOADI D2, D6
  8235.   PUSHR D2
  8236.   SETV D2, 14
  8237.   PUSHR D2
  8238.   GOTO 22422
  8239.   POP D4
  8240.   PUSHR D2
  8241.   SETV D2, 0
  8242.   PUSHR D2
  8243.   SETV D2, 0
  8244.   PUSHR D2
  8245.   GOTO 785
  8246.   POP D4
  8247.   SETV D3, 0
  8248.   SETR D6, D4
  8249.   ADDV D6, 1
  8250.   LOADI D2, D6
  8251.   PUSHR D2
  8252.   ADDV D2, 1
  8253.   SETR D6, D4
  8254.   ADDV D6, 1
  8255.   STOREI D2, D6
  8256.   POP D2
  8257.   GOTO 8158
  8258.   SETV D3, 0
  8259.   GOTO 8362
  8260.   SETV D3, 0
  8261.   SETV D2, 4
  8262.   SETR D6, D4
  8263.   ADDV D6, 0
  8264.   STOREI D2, D6
  8265.   SETV D2, 0
  8266.   SETR D6, D4
  8267.   ADDV D6, 0
  8268.   LOADI D2, D6
  8269.   PUSHR D2
  8270.   SETV D2, 8
  8271.   POP D3
  8272.   COMPARER D3, D2
  8273.   SETMORE D2
  8274.   COMPAREV D2, 0
  8275.   SETTRUE D2
  8276.   COMPAREV D2, 0
  8277.   GOTOTRUE 8361
  8278.   PUSHR D4
  8279.   SETV D2, 8350
  8280.   PUSHR D2
  8281.   SETV D2, 129
  8282.   PUSHR D2
  8283.   PUSHR D4
  8284.   SETV D2, 8290
  8285.   PUSHR D2
  8286.   SETR D6, D4
  8287.   ADDV D6, 2
  8288.   LOADI D2, D6
  8289.   PUSHR D2
  8290.   GOTO 21600
  8291.   POP D4
  8292.   PUSHR D2
  8293.   SETV D2, 8
  8294.   POP D3
  8295.   SUBR D3, D2
  8296.   SETR D2, D3
  8297.   PUSHR D2
  8298.   PUSHR D4
  8299.   SETV D2, 8305
  8300.   PUSHR D2
  8301.   SETR D6, D4
  8302.   ADDV D6, 2
  8303.   LOADI D2, D6
  8304.   PUSHR D2
  8305.   GOTO 21632
  8306.   POP D4
  8307.   PUSHR D2
  8308.   SETV D2, 8
  8309.   POP D3
  8310.   SUBR D3, D2
  8311.   SETR D2, D3
  8312.   PUSHR D2
  8313.   SETR D6, D4
  8314.   ADDV D6, 0
  8315.   LOADI D2, D6
  8316.   PUSHR D2
  8317.   SETV D2, 200
  8318.   PUSHR D2
  8319.   PUSHR D4
  8320.   SETV D2, 8326
  8321.   PUSHR D2
  8322.   SETR D6, D4
  8323.   ADDV D6, 2
  8324.   LOADI D2, D6
  8325.   PUSHR D2
  8326.   GOTO 22280
  8327.   POP D4
  8328.   PUSHR D2
  8329.   SETV D2, 2
  8330.   POP D3
  8331.   DIVR D3, D2
  8332.   SETR D2, D3
  8333.   PUSHR D2
  8334.   PUSHR D4
  8335.   SETV D2, 8343
  8336.   PUSHR D2
  8337.   SETR D6, D4
  8338.   ADDV D6, 2
  8339.   LOADI D2, D6
  8340.   PUSHR D2
  8341.   SETV D2, 14
  8342.   PUSHR D2
  8343.   GOTO 22422
  8344.   POP D4
  8345.   PUSHR D2
  8346.   SETV D2, 0
  8347.   PUSHR D2
  8348.   SETV D2, 0
  8349.   PUSHR D2
  8350.   GOTO 785
  8351.   POP D4
  8352.   SETV D3, 0
  8353.   SETR D6, D4
  8354.   ADDV D6, 0
  8355.   LOADI D2, D6
  8356.   PUSHR D2
  8357.   ADDV D2, 1
  8358.   SETR D6, D4
  8359.   ADDV D6, 0
  8360.   STOREI D2, D6
  8361.   POP D2
  8362.   GOTO 8263
  8363.   SETV D3, 0
  8364.   SETV D3, 0
  8365.   SETV D2, 0
  8366.   PUSHR D4
  8367.   SETV D3, 8376
  8368.   PUSHR D3
  8369.   PUSHR D2
  8370.   SETR D6, D4
  8371.   ADDV D6, 2
  8372.   LOADI D2, D6
  8373.   POP D3
  8374.   PUSHR D2
  8375.   PUSHR D3
  8376.   GOTO 22315
  8377.   POP D4
  8378.   SETV D3, 0
  8379.   POP D3
  8380.   POP D3
  8381.   POP D3
  8382.   POP D3
  8383.   GOTOR D3
  8384.   SETV D2, 0
  8385.   PUSHR D2
  8386.   SETR D4, SP
  8387.   SETV D2, 0
  8388.   SETR D6, D4
  8389.   ADDV D6, 0
  8390.   STOREI D2, D6
  8391.   SETV D2, 0
  8392.   SETR D6, D4
  8393.   ADDV D6, 0
  8394.   LOADI D2, D6
  8395.   PUSHR D2
  8396.   SETV D2, 8
  8397.   POP D3
  8398.   COMPARER D3, D2
  8399.   SETMORE D2
  8400.   COMPAREV D2, 0
  8401.   SETTRUE D2
  8402.   COMPAREV D2, 0
  8403.   GOTOTRUE 8487
  8404.   PUSHR D4
  8405.   SETV D2, 8476
  8406.   PUSHR D2
  8407.   SETV D2, 129
  8408.   PUSHR D2
  8409.   PUSHR D4
  8410.   SETV D2, 8416
  8411.   PUSHR D2
  8412.   SETR D6, D4
  8413.   ADDV D6, 1
  8414.   LOADI D2, D6
  8415.   PUSHR D2
  8416.   GOTO 21600
  8417.   POP D4
  8418.   PUSHR D2
  8419.   SETV D2, 8
  8420.   POP D3
  8421.   SUBR D3, D2
  8422.   SETR D2, D3
  8423.   PUSHR D2
  8424.   PUSHR D4
  8425.   SETV D2, 8431
  8426.   PUSHR D2
  8427.   SETR D6, D4
  8428.   ADDV D6, 1
  8429.   LOADI D2, D6
  8430.   PUSHR D2
  8431.   GOTO 21632
  8432.   POP D4
  8433.   PUSHR D2
  8434.   SETV D2, 8
  8435.   POP D3
  8436.   SUBR D3, D2
  8437.   SETR D2, D3
  8438.   PUSHR D2
  8439.   SETR D6, D4
  8440.   ADDV D6, 0
  8441.   LOADI D2, D6
  8442.   PUSHR D2
  8443.   SETV D2, 200
  8444.   PUSHR D2
  8445.   PUSHR D4
  8446.   SETV D2, 8452
  8447.   PUSHR D2
  8448.   SETR D6, D4
  8449.   ADDV D6, 1
  8450.   LOADI D2, D6
  8451.   PUSHR D2
  8452.   GOTO 22280
  8453.   POP D4
  8454.   PUSHR D2
  8455.   SETV D2, 2
  8456.   POP D3
  8457.   DIVR D3, D2
  8458.   SETR D2, D3
  8459.   PUSHR D2
  8460.   PUSHR D4
  8461.   SETV D2, 8469
  8462.   PUSHR D2
  8463.   SETR D6, D4
  8464.   ADDV D6, 1
  8465.   LOADI D2, D6
  8466.   PUSHR D2
  8467.   SETV D2, 14
  8468.   PUSHR D2
  8469.   GOTO 22422
  8470.   POP D4
  8471.   PUSHR D2
  8472.   SETV D2, 0
  8473.   PUSHR D2
  8474.   SETV D2, 0
  8475.   PUSHR D2
  8476.   GOTO 785
  8477.   POP D4
  8478.   SETV D3, 0
  8479.   SETR D6, D4
  8480.   ADDV D6, 0
  8481.   LOADI D2, D6
  8482.   PUSHR D2
  8483.   ADDV D2, 1
  8484.   SETR D6, D4
  8485.   ADDV D6, 0
  8486.   STOREI D2, D6
  8487.   POP D2
  8488.   GOTO 8389
  8489.   SETV D3, 0
  8490.   SETV D2, 0
  8491.   PUSHR D4
  8492.   SETV D3, 8501
  8493.   PUSHR D3
  8494.   PUSHR D2
  8495.   SETR D6, D4
  8496.   ADDV D6, 1
  8497.   LOADI D2, D6
  8498.   POP D3
  8499.   PUSHR D2
  8500.   PUSHR D3
  8501.   GOTO 22315
  8502.   POP D4
  8503.   SETV D3, 0
  8504.   POP D3
  8505.   POP D3
  8506.   POP D3
  8507.   GOTOR D3
  8508.   SETV D2, 0
  8509.   PUSHR D2
  8510.   SETR D4, SP
  8511.   SETV D2, 0
  8512.   SETR D6, D4
  8513.   ADDV D6, 0
  8514.   STOREI D2, D6
  8515.   SETV D2, 0
  8516.   SETR D6, D4
  8517.   ADDV D6, 0
  8518.   LOADI D2, D6
  8519.   PUSHR D2
  8520.   SETV D2, 4
  8521.   POP D3
  8522.   COMPARER D3, D2
  8523.   SETMORE D2
  8524.   COMPAREV D2, 0
  8525.   SETTRUE D2
  8526.   COMPAREV D2, 0
  8527.   GOTOTRUE 8611
  8528.   PUSHR D4
  8529.   SETV D2, 8600
  8530.   PUSHR D2
  8531.   SETV D2, 140
  8532.   PUSHR D2
  8533.   PUSHR D4
  8534.   SETV D2, 8540
  8535.   PUSHR D2
  8536.   SETR D6, D4
  8537.   ADDV D6, 1
  8538.   LOADI D2, D6
  8539.   PUSHR D2
  8540.   GOTO 21600
  8541.   POP D4
  8542.   PUSHR D2
  8543.   SETV D2, 8
  8544.   POP D3
  8545.   SUBR D3, D2
  8546.   SETR D2, D3
  8547.   PUSHR D2
  8548.   PUSHR D4
  8549.   SETV D2, 8555
  8550.   PUSHR D2
  8551.   SETR D6, D4
  8552.   ADDV D6, 1
  8553.   LOADI D2, D6
  8554.   PUSHR D2
  8555.   GOTO 21632
  8556.   POP D4
  8557.   PUSHR D2
  8558.   SETV D2, 8
  8559.   POP D3
  8560.   SUBR D3, D2
  8561.   SETR D2, D3
  8562.   PUSHR D2
  8563.   SETR D6, D4
  8564.   ADDV D6, 0
  8565.   LOADI D2, D6
  8566.   PUSHR D2
  8567.   SETV D2, 100
  8568.   PUSHR D2
  8569.   PUSHR D4
  8570.   SETV D2, 8576
  8571.   PUSHR D2
  8572.   SETR D6, D4
  8573.   ADDV D6, 1
  8574.   LOADI D2, D6
  8575.   PUSHR D2
  8576.   GOTO 22280
  8577.   POP D4
  8578.   PUSHR D2
  8579.   SETV D2, 2
  8580.   POP D3
  8581.   DIVR D3, D2
  8582.   SETR D2, D3
  8583.   PUSHR D2
  8584.   PUSHR D4
  8585.   SETV D2, 8593
  8586.   PUSHR D2
  8587.   SETR D6, D4
  8588.   ADDV D6, 1
  8589.   LOADI D2, D6
  8590.   PUSHR D2
  8591.   SETV D2, 14
  8592.   PUSHR D2
  8593.   GOTO 22422
  8594.   POP D4
  8595.   PUSHR D2
  8596.   SETV D2, 0
  8597.   PUSHR D2
  8598.   SETV D2, 0
  8599.   PUSHR D2
  8600.   GOTO 785
  8601.   POP D4
  8602.   SETV D3, 0
  8603.   SETR D6, D4
  8604.   ADDV D6, 0
  8605.   LOADI D2, D6
  8606.   PUSHR D2
  8607.   ADDV D2, 1
  8608.   SETR D6, D4
  8609.   ADDV D6, 0
  8610.   STOREI D2, D6
  8611.   POP D2
  8612.   GOTO 8513
  8613.   SETV D3, 0
  8614.   PUSHR D4
  8615.   SETV D2, 8621
  8616.   PUSHR D2
  8617.   SETR D2, GD0
  8618.   PUSHR D2
  8619.   SETV D2, 13
  8620.   PUSHR D2
  8621.   GOTO 22113
  8622.   POP D4
  8623.   SETV D2, 0
  8624.   PUSHR D4
  8625.   SETV D3, 8634
  8626.   PUSHR D3
  8627.   PUSHR D2
  8628.   SETR D6, D4
  8629.   ADDV D6, 1
  8630.   LOADI D2, D6
  8631.   POP D3
  8632.   PUSHR D2
  8633.   PUSHR D3
  8634.   GOTO 22315
  8635.   POP D4
  8636.   SETV D3, 0
  8637.   POP D3
  8638.   POP D3
  8639.   POP D3
  8640.   GOTOR D3
  8641.   SETV D2, 0
  8642.   PUSHR D2
  8643.   SETR D4, SP
  8644.   SETV D2, 4
  8645.   SETR D6, D4
  8646.   ADDV D6, 0
  8647.   STOREI D2, D6
  8648.   SETV D2, 0
  8649.   SETR D6, D4
  8650.   ADDV D6, 0
  8651.   LOADI D2, D6
  8652.   PUSHR D2
  8653.   SETV D2, 8
  8654.   POP D3
  8655.   COMPARER D3, D2
  8656.   SETMORE D2
  8657.   COMPAREV D2, 0
  8658.   SETTRUE D2
  8659.   COMPAREV D2, 0
  8660.   GOTOTRUE 8744
  8661.   PUSHR D4
  8662.   SETV D2, 8733
  8663.   PUSHR D2
  8664.   SETV D2, 140
  8665.   PUSHR D2
  8666.   PUSHR D4
  8667.   SETV D2, 8673
  8668.   PUSHR D2
  8669.   SETR D6, D4
  8670.   ADDV D6, 1
  8671.   LOADI D2, D6
  8672.   PUSHR D2
  8673.   GOTO 21600
  8674.   POP D4
  8675.   PUSHR D2
  8676.   SETV D2, 8
  8677.   POP D3
  8678.   SUBR D3, D2
  8679.   SETR D2, D3
  8680.   PUSHR D2
  8681.   PUSHR D4
  8682.   SETV D2, 8688
  8683.   PUSHR D2
  8684.   SETR D6, D4
  8685.   ADDV D6, 1
  8686.   LOADI D2, D6
  8687.   PUSHR D2
  8688.   GOTO 21632
  8689.   POP D4
  8690.   PUSHR D2
  8691.   SETV D2, 8
  8692.   POP D3
  8693.   SUBR D3, D2
  8694.   SETR D2, D3
  8695.   PUSHR D2
  8696.   SETR D6, D4
  8697.   ADDV D6, 0
  8698.   LOADI D2, D6
  8699.   PUSHR D2
  8700.   SETV D2, 71
  8701.   PUSHR D2
  8702.   PUSHR D4
  8703.   SETV D2, 8709
  8704.   PUSHR D2
  8705.   SETR D6, D4
  8706.   ADDV D6, 1
  8707.   LOADI D2, D6
  8708.   PUSHR D2
  8709.   GOTO 22280
  8710.   POP D4
  8711.   PUSHR D2
  8712.   SETV D2, 2
  8713.   POP D3
  8714.   DIVR D3, D2
  8715.   SETR D2, D3
  8716.   PUSHR D2
  8717.   PUSHR D4
  8718.   SETV D2, 8726
  8719.   PUSHR D2
  8720.   SETR D6, D4
  8721.   ADDV D6, 1
  8722.   LOADI D2, D6
  8723.   PUSHR D2
  8724.   SETV D2, 14
  8725.   PUSHR D2
  8726.   GOTO 22422
  8727.   POP D4
  8728.   PUSHR D2
  8729.   SETV D2, 0
  8730.   PUSHR D2
  8731.   SETV D2, 0
  8732.   PUSHR D2
  8733.   GOTO 785
  8734.   POP D4
  8735.   SETV D3, 0
  8736.   SETR D6, D4
  8737.   ADDV D6, 0
  8738.   LOADI D2, D6
  8739.   PUSHR D2
  8740.   ADDV D2, 1
  8741.   SETR D6, D4
  8742.   ADDV D6, 0
  8743.   STOREI D2, D6
  8744.   POP D2
  8745.   GOTO 8646
  8746.   SETV D3, 0
  8747.   PUSHR D4
  8748.   SETV D2, 8754
  8749.   PUSHR D2
  8750.   SETR D2, GD0
  8751.   PUSHR D2
  8752.   SETV D2, 13
  8753.   PUSHR D2
  8754.   GOTO 22113
  8755.   POP D4
  8756.   SETV D2, 0
  8757.   PUSHR D4
  8758.   SETV D3, 8767
  8759.   PUSHR D3
  8760.   PUSHR D2
  8761.   SETR D6, D4
  8762.   ADDV D6, 1
  8763.   LOADI D2, D6
  8764.   POP D3
  8765.   PUSHR D2
  8766.   PUSHR D3
  8767.   GOTO 22315
  8768.   POP D4
  8769.   SETV D3, 0
  8770.   POP D3
  8771.   POP D3
  8772.   POP D3
  8773.   GOTOR D3
  8774.   SETV D2, 0
  8775.   PUSHR D2
  8776.   PUSHR D2
  8777.   SETR D4, SP
  8778.   PUSHR D4
  8779.   SETV D2, 8783
  8780.   PUSHR D2
  8781.   SETV D2, 2
  8782.   PUSHR D2
  8783.   GOTO 21809
  8784.   POP D4
  8785.   PUSHR D2
  8786.   SETV D2, 0
  8787.   POP D3
  8788.   COMPARER D2, D3
  8789.   SETTRUE D2
  8790.   COMPAREV D2, 0
  8791.   GOTOTRUE 8894
  8792.   SETV D2, 0
  8793.   SETR D6, D4
  8794.   ADDV D6, 1
  8795.   STOREI D2, D6
  8796.   SETV D2, 0
  8797.   SETR D6, D4
  8798.   ADDV D6, 1
  8799.   LOADI D2, D6
  8800.   PUSHR D2
  8801.   SETV D2, 4
  8802.   POP D3
  8803.   COMPARER D3, D2
  8804.   SETMORE D2
  8805.   COMPAREV D2, 0
  8806.   SETTRUE D2
  8807.   COMPAREV D2, 0
  8808.   GOTOTRUE 8892
  8809.   PUSHR D4
  8810.   SETV D2, 8881
  8811.   PUSHR D2
  8812.   SETV D2, 140
  8813.   PUSHR D2
  8814.   PUSHR D4
  8815.   SETV D2, 8821
  8816.   PUSHR D2
  8817.   SETR D6, D4
  8818.   ADDV D6, 2
  8819.   LOADI D2, D6
  8820.   PUSHR D2
  8821.   GOTO 21600
  8822.   POP D4
  8823.   PUSHR D2
  8824.   SETV D2, 8
  8825.   POP D3
  8826.   SUBR D3, D2
  8827.   SETR D2, D3
  8828.   PUSHR D2
  8829.   PUSHR D4
  8830.   SETV D2, 8836
  8831.   PUSHR D2
  8832.   SETR D6, D4
  8833.   ADDV D6, 2
  8834.   LOADI D2, D6
  8835.   PUSHR D2
  8836.   GOTO 21632
  8837.   POP D4
  8838.   PUSHR D2
  8839.   SETV D2, 8
  8840.   POP D3
  8841.   SUBR D3, D2
  8842.   SETR D2, D3
  8843.   PUSHR D2
  8844.   SETR D6, D4
  8845.   ADDV D6, 1
  8846.   LOADI D2, D6
  8847.   PUSHR D2
  8848.   SETV D2, 100
  8849.   PUSHR D2
  8850.   PUSHR D4
  8851.   SETV D2, 8857
  8852.   PUSHR D2
  8853.   SETR D6, D4
  8854.   ADDV D6, 2
  8855.   LOADI D2, D6
  8856.   PUSHR D2
  8857.   GOTO 22280
  8858.   POP D4
  8859.   PUSHR D2
  8860.   SETV D2, 2
  8861.   POP D3
  8862.   DIVR D3, D2
  8863.   SETR D2, D3
  8864.   PUSHR D2
  8865.   PUSHR D4
  8866.   SETV D2, 8874
  8867.   PUSHR D2
  8868.   SETR D6, D4
  8869.   ADDV D6, 2
  8870.   LOADI D2, D6
  8871.   PUSHR D2
  8872.   SETV D2, 14
  8873.   PUSHR D2
  8874.   GOTO 22422
  8875.   POP D4
  8876.   PUSHR D2
  8877.   SETV D2, 0
  8878.   PUSHR D2
  8879.   SETV D2, 0
  8880.   PUSHR D2
  8881.   GOTO 785
  8882.   POP D4
  8883.   SETV D3, 0
  8884.   SETR D6, D4
  8885.   ADDV D6, 1
  8886.   LOADI D2, D6
  8887.   PUSHR D2
  8888.   ADDV D2, 1
  8889.   SETR D6, D4
  8890.   ADDV D6, 1
  8891.   STOREI D2, D6
  8892.   POP D2
  8893.   GOTO 8794
  8894.   SETV D3, 0
  8895.   GOTO 8998
  8896.   SETV D3, 0
  8897.   SETV D2, 4
  8898.   SETR D6, D4
  8899.   ADDV D6, 0
  8900.   STOREI D2, D6
  8901.   SETV D2, 0
  8902.   SETR D6, D4
  8903.   ADDV D6, 0
  8904.   LOADI D2, D6
  8905.   PUSHR D2
  8906.   SETV D2, 8
  8907.   POP D3
  8908.   COMPARER D3, D2
  8909.   SETMORE D2
  8910.   COMPAREV D2, 0
  8911.   SETTRUE D2
  8912.   COMPAREV D2, 0
  8913.   GOTOTRUE 8997
  8914.   PUSHR D4
  8915.   SETV D2, 8986
  8916.   PUSHR D2
  8917.   SETV D2, 140
  8918.   PUSHR D2
  8919.   PUSHR D4
  8920.   SETV D2, 8926
  8921.   PUSHR D2
  8922.   SETR D6, D4
  8923.   ADDV D6, 2
  8924.   LOADI D2, D6
  8925.   PUSHR D2
  8926.   GOTO 21600
  8927.   POP D4
  8928.   PUSHR D2
  8929.   SETV D2, 8
  8930.   POP D3
  8931.   SUBR D3, D2
  8932.   SETR D2, D3
  8933.   PUSHR D2
  8934.   PUSHR D4
  8935.   SETV D2, 8941
  8936.   PUSHR D2
  8937.   SETR D6, D4
  8938.   ADDV D6, 2
  8939.   LOADI D2, D6
  8940.   PUSHR D2
  8941.   GOTO 21632
  8942.   POP D4
  8943.   PUSHR D2
  8944.   SETV D2, 8
  8945.   POP D3
  8946.   SUBR D3, D2
  8947.   SETR D2, D3
  8948.   PUSHR D2
  8949.   SETR D6, D4
  8950.   ADDV D6, 0
  8951.   LOADI D2, D6
  8952.   PUSHR D2
  8953.   SETV D2, 71
  8954.   PUSHR D2
  8955.   PUSHR D4
  8956.   SETV D2, 8962
  8957.   PUSHR D2
  8958.   SETR D6, D4
  8959.   ADDV D6, 2
  8960.   LOADI D2, D6
  8961.   PUSHR D2
  8962.   GOTO 22280
  8963.   POP D4
  8964.   PUSHR D2
  8965.   SETV D2, 2
  8966.   POP D3
  8967.   DIVR D3, D2
  8968.   SETR D2, D3
  8969.   PUSHR D2
  8970.   PUSHR D4
  8971.   SETV D2, 8979
  8972.   PUSHR D2
  8973.   SETR D6, D4
  8974.   ADDV D6, 2
  8975.   LOADI D2, D6
  8976.   PUSHR D2
  8977.   SETV D2, 14
  8978.   PUSHR D2
  8979.   GOTO 22422
  8980.   POP D4
  8981.   PUSHR D2
  8982.   SETV D2, 0
  8983.   PUSHR D2
  8984.   SETV D2, 0
  8985.   PUSHR D2
  8986.   GOTO 785
  8987.   POP D4
  8988.   SETV D3, 0
  8989.   SETR D6, D4
  8990.   ADDV D6, 0
  8991.   LOADI D2, D6
  8992.   PUSHR D2
  8993.   ADDV D2, 1
  8994.   SETR D6, D4
  8995.   ADDV D6, 0
  8996.   STOREI D2, D6
  8997.   POP D2
  8998.   GOTO 8899
  8999.   SETV D3, 0
  9000.   SETV D3, 0
  9001.   PUSHR D4
  9002.   SETV D2, 9008
  9003.   PUSHR D2
  9004.   SETR D2, GD0
  9005.   PUSHR D2
  9006.   SETV D2, 13
  9007.   PUSHR D2
  9008.   GOTO 22113
  9009.   POP D4
  9010.   SETV D2, 0
  9011.   PUSHR D4
  9012.   SETV D3, 9021
  9013.   PUSHR D3
  9014.   PUSHR D2
  9015.   SETR D6, D4
  9016.   ADDV D6, 2
  9017.   LOADI D2, D6
  9018.   POP D3
  9019.   PUSHR D2
  9020.   PUSHR D3
  9021.   GOTO 22315
  9022.   POP D4
  9023.   SETV D3, 0
  9024.   POP D3
  9025.   POP D3
  9026.   POP D3
  9027.   POP D3
  9028.   GOTOR D3
  9029.   SETV D2, 0
  9030.   PUSHR D2
  9031.   PUSHR D2
  9032.   SETR D4, SP
  9033.   SETV D2, 0
  9034.   SETR D6, D4
  9035.   ADDV D6, 1
  9036.   STOREI D2, D6
  9037.   SETV D2, 0
  9038.   SETR D6, D4
  9039.   ADDV D6, 1
  9040.   LOADI D2, D6
  9041.   PUSHR D2
  9042.   SETV D2, 4
  9043.   POP D3
  9044.   COMPARER D3, D2
  9045.   SETMORE D2
  9046.   COMPAREV D2, 0
  9047.   SETTRUE D2
  9048.   COMPAREV D2, 0
  9049.   GOTOTRUE 9133
  9050.   PUSHR D4
  9051.   SETV D2, 9122
  9052.   PUSHR D2
  9053.   SETV D2, 140
  9054.   PUSHR D2
  9055.   PUSHR D4
  9056.   SETV D2, 9062
  9057.   PUSHR D2
  9058.   SETR D6, D4
  9059.   ADDV D6, 2
  9060.   LOADI D2, D6
  9061.   PUSHR D2
  9062.   GOTO 21600
  9063.   POP D4
  9064.   PUSHR D2
  9065.   SETV D2, 8
  9066.   POP D3
  9067.   SUBR D3, D2
  9068.   SETR D2, D3
  9069.   PUSHR D2
  9070.   PUSHR D4
  9071.   SETV D2, 9077
  9072.   PUSHR D2
  9073.   SETR D6, D4
  9074.   ADDV D6, 2
  9075.   LOADI D2, D6
  9076.   PUSHR D2
  9077.   GOTO 21632
  9078.   POP D4
  9079.   PUSHR D2
  9080.   SETV D2, 8
  9081.   POP D3
  9082.   SUBR D3, D2
  9083.   SETR D2, D3
  9084.   PUSHR D2
  9085.   SETR D6, D4
  9086.   ADDV D6, 1
  9087.   LOADI D2, D6
  9088.   PUSHR D2
  9089.   SETV D2, 100
  9090.   PUSHR D2
  9091.   PUSHR D4
  9092.   SETV D2, 9098
  9093.   PUSHR D2
  9094.   SETR D6, D4
  9095.   ADDV D6, 2
  9096.   LOADI D2, D6
  9097.   PUSHR D2
  9098.   GOTO 22280
  9099.   POP D4
  9100.   PUSHR D2
  9101.   SETV D2, 2
  9102.   POP D3
  9103.   DIVR D3, D2
  9104.   SETR D2, D3
  9105.   PUSHR D2
  9106.   PUSHR D4
  9107.   SETV D2, 9115
  9108.   PUSHR D2
  9109.   SETR D6, D4
  9110.   ADDV D6, 2
  9111.   LOADI D2, D6
  9112.   PUSHR D2
  9113.   SETV D2, 14
  9114.   PUSHR D2
  9115.   GOTO 22422
  9116.   POP D4
  9117.   PUSHR D2
  9118.   SETV D2, 0
  9119.   PUSHR D2
  9120.   SETV D2, 0
  9121.   PUSHR D2
  9122.   GOTO 785
  9123.   POP D4
  9124.   SETV D3, 0
  9125.   SETR D6, D4
  9126.   ADDV D6, 1
  9127.   LOADI D2, D6
  9128.   PUSHR D2
  9129.   ADDV D2, 1
  9130.   SETR D6, D4
  9131.   ADDV D6, 1
  9132.   STOREI D2, D6
  9133.   POP D2
  9134.   GOTO 9035
  9135.   SETV D3, 0
  9136.   SETV D2, 4
  9137.   SETR D6, D4
  9138.   ADDV D6, 0
  9139.   STOREI D2, D6
  9140.   SETV D2, 0
  9141.   SETR D6, D4
  9142.   ADDV D6, 0
  9143.   LOADI D2, D6
  9144.   PUSHR D2
  9145.   SETV D2, 8
  9146.   POP D3
  9147.   COMPARER D3, D2
  9148.   SETMORE D2
  9149.   COMPAREV D2, 0
  9150.   SETTRUE D2
  9151.   COMPAREV D2, 0
  9152.   GOTOTRUE 9236
  9153.   PUSHR D4
  9154.   SETV D2, 9225
  9155.   PUSHR D2
  9156.   SETV D2, 140
  9157.   PUSHR D2
  9158.   PUSHR D4
  9159.   SETV D2, 9165
  9160.   PUSHR D2
  9161.   SETR D6, D4
  9162.   ADDV D6, 2
  9163.   LOADI D2, D6
  9164.   PUSHR D2
  9165.   GOTO 21600
  9166.   POP D4
  9167.   PUSHR D2
  9168.   SETV D2, 8
  9169.   POP D3
  9170.   SUBR D3, D2
  9171.   SETR D2, D3
  9172.   PUSHR D2
  9173.   PUSHR D4
  9174.   SETV D2, 9180
  9175.   PUSHR D2
  9176.   SETR D6, D4
  9177.   ADDV D6, 2
  9178.   LOADI D2, D6
  9179.   PUSHR D2
  9180.   GOTO 21632
  9181.   POP D4
  9182.   PUSHR D2
  9183.   SETV D2, 8
  9184.   POP D3
  9185.   SUBR D3, D2
  9186.   SETR D2, D3
  9187.   PUSHR D2
  9188.   SETR D6, D4
  9189.   ADDV D6, 0
  9190.   LOADI D2, D6
  9191.   PUSHR D2
  9192.   SETV D2, 71
  9193.   PUSHR D2
  9194.   PUSHR D4
  9195.   SETV D2, 9201
  9196.   PUSHR D2
  9197.   SETR D6, D4
  9198.   ADDV D6, 2
  9199.   LOADI D2, D6
  9200.   PUSHR D2
  9201.   GOTO 22280
  9202.   POP D4
  9203.   PUSHR D2
  9204.   SETV D2, 2
  9205.   POP D3
  9206.   DIVR D3, D2
  9207.   SETR D2, D3
  9208.   PUSHR D2
  9209.   PUSHR D4
  9210.   SETV D2, 9218
  9211.   PUSHR D2
  9212.   SETR D6, D4
  9213.   ADDV D6, 2
  9214.   LOADI D2, D6
  9215.   PUSHR D2
  9216.   SETV D2, 14
  9217.   PUSHR D2
  9218.   GOTO 22422
  9219.   POP D4
  9220.   PUSHR D2
  9221.   SETV D2, 0
  9222.   PUSHR D2
  9223.   SETV D2, 0
  9224.   PUSHR D2
  9225.   GOTO 785
  9226.   POP D4
  9227.   SETV D3, 0
  9228.   SETR D6, D4
  9229.   ADDV D6, 0
  9230.   LOADI D2, D6
  9231.   PUSHR D2
  9232.   ADDV D2, 1
  9233.   SETR D6, D4
  9234.   ADDV D6, 0
  9235.   STOREI D2, D6
  9236.   POP D2
  9237.   GOTO 9138
  9238.   SETV D3, 0
  9239.   PUSHR D4
  9240.   SETV D2, 9246
  9241.   PUSHR D2
  9242.   SETR D2, GD0
  9243.   PUSHR D2
  9244.   SETV D2, 13
  9245.   PUSHR D2
  9246.   GOTO 22113
  9247.   POP D4
  9248.   SETV D2, 0
  9249.   PUSHR D4
  9250.   SETV D3, 9259
  9251.   PUSHR D3
  9252.   PUSHR D2
  9253.   SETR D6, D4
  9254.   ADDV D6, 2
  9255.   LOADI D2, D6
  9256.   POP D3
  9257.   PUSHR D2
  9258.   PUSHR D3
  9259.   GOTO 22315
  9260.   POP D4
  9261.   SETV D3, 0
  9262.   POP D3
  9263.   POP D3
  9264.   POP D3
  9265.   POP D3
  9266.   GOTOR D3
  9267.   SETV D2, 0
  9268.   SETR D4, SP
  9269.   PUSHR D4
  9270.   SETV D2, 9347
  9271.   PUSHR D2
  9272.   SETV D2, 140
  9273.   PUSHR D2
  9274.   PUSHR D4
  9275.   SETV D2, 9281
  9276.   PUSHR D2
  9277.   SETR D6, D4
  9278.   ADDV D6, 0
  9279.   LOADI D2, D6
  9280.   PUSHR D2
  9281.   GOTO 21600
  9282.   POP D4
  9283.   PUSHR D2
  9284.   SETV D2, 8
  9285.   POP D3
  9286.   SUBR D3, D2
  9287.   SETR D2, D3
  9288.   PUSHR D2
  9289.   PUSHR D4
  9290.   SETV D2, 9296
  9291.   PUSHR D2
  9292.   SETR D6, D4
  9293.   ADDV D6, 0
  9294.   LOADI D2, D6
  9295.   PUSHR D2
  9296.   GOTO 21632
  9297.   POP D4
  9298.   PUSHR D2
  9299.   SETV D2, 8
  9300.   POP D3
  9301.   SUBR D3, D2
  9302.   SETR D2, D3
  9303.   PUSHR D2
  9304.   PUSHR D4
  9305.   SETV D2, 9311
  9306.   PUSHR D2
  9307.   SETR D6, D4
  9308.   ADDV D6, 0
  9309.   LOADI D2, D6
  9310.   PUSHR D2
  9311.   GOTO 22247
  9312.   POP D4
  9313.   PUSHR D2
  9314.   SETV D2, 0
  9315.   PUSHR D2
  9316.   PUSHR D4
  9317.   SETV D2, 9323
  9318.   PUSHR D2
  9319.   SETR D6, D4
  9320.   ADDV D6, 0
  9321.   LOADI D2, D6
  9322.   PUSHR D2
  9323.   GOTO 22280
  9324.   POP D4
  9325.   PUSHR D2
  9326.   SETV D2, 2
  9327.   POP D3
  9328.   DIVR D3, D2
  9329.   SETR D2, D3
  9330.   PUSHR D2
  9331.   PUSHR D4
  9332.   SETV D2, 9340
  9333.   PUSHR D2
  9334.   SETR D6, D4
  9335.   ADDV D6, 0
  9336.   LOADI D2, D6
  9337.   PUSHR D2
  9338.   SETV D2, 14
  9339.   PUSHR D2
  9340.   GOTO 22422
  9341.   POP D4
  9342.   PUSHR D2
  9343.   SETV D2, 0
  9344.   PUSHR D2
  9345.   SETV D2, 0
  9346.   PUSHR D2
  9347.   GOTO 785
  9348.   POP D4
  9349.   PUSHR D4
  9350.   SETV D2, 9356
  9351.   PUSHR D2
  9352.   SETR D2, GD0
  9353.   PUSHR D2
  9354.   SETV D2, 13
  9355.   PUSHR D2
  9356.   GOTO 22113
  9357.   POP D4
  9358.   SETV D2, 0
  9359.   PUSHR D4
  9360.   SETV D3, 9369
  9361.   PUSHR D3
  9362.   PUSHR D2
  9363.   SETR D6, D4
  9364.   ADDV D6, 0
  9365.   LOADI D2, D6
  9366.   POP D3
  9367.   PUSHR D2
  9368.   PUSHR D3
  9369.   GOTO 22315
  9370.   POP D4
  9371.   SETV D3, 0
  9372.   POP D3
  9373.   POP D3
  9374.   GOTOR D3
  9375.   SETV D2, 0
  9376.   PUSHR D2
  9377.   SETR D4, SP
  9378.   PUSHR D4
  9379.   SETV D2, 9395
  9380.   PUSHR D2
  9381.   SETR D2, GD0
  9382.   PUSHR D2
  9383.   PUSHR D4
  9384.   SETV D2, 9392
  9385.   PUSHR D2
  9386.   SETR D6, D4
  9387.   ADDV D6, 1
  9388.   LOADI D2, D6
  9389.   PUSHR D2
  9390.   SETV D2, 14
  9391.   PUSHR D2
  9392.   GOTO 22422
  9393.   POP D4
  9394.   PUSHR D2
  9395.   GOTO 22022
  9396.   POP D4
  9397.   SETR D6, D4
  9398.   ADDV D6, 0
  9399.   STOREI D2, D6
  9400.   PUSHR D4
  9401.   SETV D2, 9407
  9402.   PUSHR D2
  9403.   SETR D6, D4
  9404.   ADDV D6, 1
  9405.   LOADI D2, D6
  9406.   PUSHR D2
  9407.   GOTO 22208
  9408.   POP D4
  9409.   PUSHR D4
  9410.   SETV D3, 9419
  9411.   PUSHR D3
  9412.   PUSHR D2
  9413.   SETR D6, D4
  9414.   ADDV D6, 0
  9415.   LOADI D2, D6
  9416.   POP D3
  9417.   PUSHR D2
  9418.   PUSHR D3
  9419.   GOTO 22128
  9420.   POP D4
  9421.   PUSHR D4
  9422.   SETV D2, 9428
  9423.   PUSHR D2
  9424.   SETR D6, D4
  9425.   ADDV D6, 1
  9426.   LOADI D2, D6
  9427.   PUSHR D2
  9428.   GOTO 22219
  9429.   POP D4
  9430.   PUSHR D4
  9431.   SETV D3, 9440
  9432.   PUSHR D3
  9433.   PUSHR D2
  9434.   SETR D6, D4
  9435.   ADDV D6, 0
  9436.   LOADI D2, D6
  9437.   POP D3
  9438.   PUSHR D2
  9439.   PUSHR D3
  9440.   GOTO 22139
  9441.   POP D4
  9442.   SETV D2, 0
  9443.   PUSHR D4
  9444.   SETV D3, 9453
  9445.   PUSHR D3
  9446.   PUSHR D2
  9447.   SETR D6, D4
  9448.   ADDV D6, 1
  9449.   LOADI D2, D6
  9450.   POP D3
  9451.   PUSHR D2
  9452.   PUSHR D3
  9453.   GOTO 22315
  9454.   POP D4
  9455.   SETV D3, 0
  9456.   POP D3
  9457.   POP D3
  9458.   POP D3
  9459.   GOTOR D3
  9460.   SETV D2, 0
  9461.   PUSHR D2
  9462.   PUSHR D2
  9463.   PUSHR D2
  9464.   PUSHR D2
  9465.   PUSHR D2
  9466.   SETR D4, SP
  9467.   SETR D6, D4
  9468.   ADDV D6, 4
  9469.   SETV D2, 0
  9470.   STOREI D2, D6
  9471.   SETR D6, D4
  9472.   ADDV D6, 3
  9473.   SETV D2, 0
  9474.   STOREI D2, D6
  9475.   SETR D6, D4
  9476.   ADDV D6, 2
  9477.   SETV D2, 0
  9478.   STOREI D2, D6
  9479.   SETR D6, D4
  9480.   ADDV D6, 1
  9481.   SETV D2, 0
  9482.   STOREI D2, D6
  9483.   PUSHR D4
  9484.   SETV D2, 9486
  9485.   PUSHR D2
  9486.   GOTO 18170
  9487.   POP D4
  9488.   SETR D6, D4
  9489.   ADDV D6, 4
  9490.   STOREI D2, D6
  9491.   SETR D6, D4
  9492.   ADDV D6, 4
  9493.   LOADI D2, D6
  9494.   PUSHR D2
  9495.   SETV D2, 0
  9496.   POP D3
  9497.   COMPARER D2, D3
  9498.   SETTRUE D2
  9499.   COMPAREV D2, 0
  9500.   GOTOTRUE 9513
  9501.   SETV D2, 0
  9502.   PUSHR D4
  9503.   SETV D3, 9512
  9504.   PUSHR D3
  9505.   PUSHR D2
  9506.   SETR D6, D4
  9507.   ADDV D6, 5
  9508.   LOADI D2, D6
  9509.   POP D3
  9510.   PUSHR D2
  9511.   PUSHR D3
  9512.   GOTO 22315
  9513.   POP D4
  9514.   GOTO 9786
  9515.   SETV D2, 0
  9516.   PUSHR D4
  9517.   SETV D2, 9525
  9518.   PUSHR D2
  9519.   SETR D2, GD0
  9520.   PUSHR D2
  9521.   SETR D6, D4
  9522.   ADDV D6, 4
  9523.   LOADI D2, D6
  9524.   PUSHR D2
  9525.   GOTO 22005
  9526.   POP D4
  9527.   SETR D6, D4
  9528.   ADDV D6, 3
  9529.   STOREI D2, D6
  9530.   PUSHR D4
  9531.   SETV D2, 9535
  9532.   PUSHR D2
  9533.   SETR D2, GD0
  9534.   PUSHR D2
  9535.   GOTO 22067
  9536.   POP D4
  9537.   SETR D6, D4
  9538.   ADDV D6, 0
  9539.   STOREI D2, D6
  9540.   SETV D2, 0
  9541.   SETR D6, D4
  9542.   ADDV D6, 0
  9543.   LOADI D2, D6
  9544.   PUSHR D2
  9545.   SETV D2, 0
  9546.   POP D3
  9547.   COMPARER D3, D2
  9548.   SETLESS D2
  9549.   COMPAREV D2, 0
  9550.   SETTRUE D2
  9551.   COMPAREV D2, 0
  9552.   GOTOTRUE 9624
  9553.   PUSHR D4
  9554.   SETV D2, 9562
  9555.   PUSHR D2
  9556.   SETR D2, GD0
  9557.   PUSHR D2
  9558.   SETR D6, D4
  9559.   ADDV D6, 0
  9560.   LOADI D2, D6
  9561.   PUSHR D2
  9562.   GOTO 22072
  9563.   POP D4
  9564.   SETR D6, D4
  9565.   ADDV D6, 2
  9566.   STOREI D2, D6
  9567.   PUSHR D4
  9568.   SETV D2, 9576
  9569.   PUSHR D2
  9570.   SETR D6, D4
  9571.   ADDV D6, 2
  9572.   LOADI D2, D6
  9573.   PUSHR D2
  9574.   SETV D2, 15
  9575.   PUSHR D2
  9576.   GOTO 22422
  9577.   POP D4
  9578.   PUSHR D2
  9579.   SETV D2, 768
  9580.   POP D3
  9581.   ANDR D2, D3
  9582.   PUSHR D2
  9583.   SETV D2, 512
  9584.   POP D3
  9585.   COMPARER D2, D3
  9586.   SETFALSE D2
  9587.   COMPAREV D2, 0
  9588.   GOTOTRUE 9588
  9589.   GOTO 9613
  9590.   SETV D2, 0
  9591.   PUSHR D4
  9592.   SETV D2, 9610
  9593.   PUSHR D2
  9594.   SETR D6, D4
  9595.   ADDV D6, 1
  9596.   LOADI D2, D6
  9597.   PUSHR D2
  9598.   PUSHR D4
  9599.   SETV D2, 9607
  9600.   PUSHR D2
  9601.   SETR D6, D4
  9602.   ADDV D6, 2
  9603.   LOADI D2, D6
  9604.   PUSHR D2
  9605.   SETV D2, 3
  9606.   PUSHR D2
  9607.   GOTO 22422
  9608.   POP D4
  9609.   PUSHR D2
  9610.   GOTO 21854
  9611.   POP D4
  9612.   SETR D6, D4
  9613.   ADDV D6, 1
  9614.   STOREI D2, D6
  9615.   SETV D3, 0
  9616.   SETR D6, D4
  9617.   ADDV D6, 0
  9618.   LOADI D2, D6
  9619.   PUSHR D2
  9620.   SUBV D2, 1
  9621.   SETR D6, D4
  9622.   ADDV D6, 0
  9623.   STOREI D2, D6
  9624.   POP D2
  9625.   GOTO 9538
  9626.   SETV D3, 0
  9627.   SETR D6, D4
  9628.   ADDV D6, 1
  9629.   LOADI D2, D6
  9630.   PUSHR D2
  9631.   SETV D2, 1
  9632.   POP D3
  9633.   SUBR D3, D2
  9634.   SETR D2, D3
  9635.   PUSHR D4
  9636.   SETV D3, 9647
  9637.   PUSHR D3
  9638.   PUSHR D2
  9639.   SETR D6, D4
  9640.   ADDV D6, 5
  9641.   LOADI D2, D6
  9642.   POP D3
  9643.   PUSHR D2
  9644.   PUSHR D3
  9645.   SETV D2, 3
  9646.   PUSHR D2
  9647.   GOTO 22428
  9648.   POP D4
  9649.   PUSHR D4
  9650.   SETV D2, 9658
  9651.   PUSHR D2
  9652.   SETR D6, D4
  9653.   ADDV D6, 5
  9654.   LOADI D2, D6
  9655.   PUSHR D2
  9656.   SETV D2, 15
  9657.   PUSHR D2
  9658.   GOTO 22422
  9659.   POP D4
  9660.   PUSHR D2
  9661.   SETV D2, 1024
  9662.   POP D3
  9663.   ORR D2, D3
  9664.   PUSHR D4
  9665.   SETV D3, 9676
  9666.   PUSHR D3
  9667.   PUSHR D2
  9668.   SETR D6, D4
  9669.   ADDV D6, 5
  9670.   LOADI D2, D6
  9671.   POP D3
  9672.   PUSHR D2
  9673.   PUSHR D3
  9674.   SETV D2, 15
  9675.   PUSHR D2
  9676.   GOTO 22428
  9677.   POP D4
  9678.   SETV D2, 1
  9679.   PUSHR D4
  9680.   SETV D3, 9689
  9681.   PUSHR D3
  9682.   PUSHR D2
  9683.   SETR D6, D4
  9684.   ADDV D6, 3
  9685.   LOADI D2, D6
  9686.   POP D3
  9687.   PUSHR D2
  9688.   PUSHR D3
  9689.   GOTO 21885
  9690.   POP D4
  9691.   PUSHR D4
  9692.   SETV D2, 9698
  9693.   PUSHR D2
  9694.   SETR D6, D4
  9695.   ADDV D6, 5
  9696.   LOADI D2, D6
  9697.   PUSHR D2
  9698.   GOTO 21600
  9699.   POP D4
  9700.   PUSHR D2
  9701.   SETV D2, 8
  9702.   POP D3
  9703.   SUBR D3, D2
  9704.   SETR D2, D3
  9705.   PUSHR D4
  9706.   SETV D3, 9715
  9707.   PUSHR D3
  9708.   PUSHR D2
  9709.   SETR D6, D4
  9710.   ADDV D6, 3
  9711.   LOADI D2, D6
  9712.   POP D3
  9713.   PUSHR D2
  9714.   PUSHR D3
  9715.   GOTO 21908
  9716.   POP D4
  9717.   PUSHR D4
  9718.   SETV D2, 9724
  9719.   PUSHR D2
  9720.   SETR D6, D4
  9721.   ADDV D6, 5
  9722.   LOADI D2, D6
  9723.   PUSHR D2
  9724.   GOTO 21632
  9725.   POP D4
  9726.   PUSHR D2
  9727.   SETV D2, 8
  9728.   POP D3
  9729.   SUBR D3, D2
  9730.   SETR D2, D3
  9731.   PUSHR D4
  9732.   SETV D3, 9741
  9733.   PUSHR D3
  9734.   PUSHR D2
  9735.   SETR D6, D4
  9736.   ADDV D6, 3
  9737.   LOADI D2, D6
  9738.   POP D3
  9739.   PUSHR D2
  9740.   PUSHR D3
  9741.   GOTO 21914
  9742.   POP D4
  9743.   PUSHR D4
  9744.   SETV D2, 9752
  9745.   PUSHR D2
  9746.   SETR D6, D4
  9747.   ADDV D6, 5
  9748.   LOADI D2, D6
  9749.   PUSHR D2
  9750.   SETV D2, 14
  9751.   PUSHR D2
  9752.   GOTO 22422
  9753.   POP D4
  9754.   PUSHR D4
  9755.   SETV D3, 9764
  9756.   PUSHR D3
  9757.   PUSHR D2
  9758.   SETR D6, D4
  9759.   ADDV D6, 3
  9760.   LOADI D2, D6
  9761.   POP D3
  9762.   PUSHR D2
  9763.   PUSHR D3
  9764.   GOTO 21896
  9765.   POP D4
  9766.   SETR D6, D4
  9767.   ADDV D6, 1
  9768.   LOADI D2, D6
  9769.   PUSHR D2
  9770.   SETV D2, 1
  9771.   POP D3
  9772.   SUBR D3, D2
  9773.   SETR D2, D3
  9774.   PUSHR D4
  9775.   SETV D3, 9786
  9776.   PUSHR D3
  9777.   PUSHR D2
  9778.   SETR D6, D4
  9779.   ADDV D6, 3
  9780.   LOADI D2, D6
  9781.   POP D3
  9782.   PUSHR D2
  9783.   PUSHR D3
  9784.   SETV D2, 0
  9785.   PUSHR D2
  9786.   GOTO 21962
  9787.   POP D4
  9788.   SETV D3, 0
  9789.   POP D3
  9790.   POP D3
  9791.   POP D3
  9792.   POP D3
  9793.   POP D3
  9794.   POP D3
  9795.   POP D3
  9796.   GOTOR D3
  9797.   SETV D2, 0
  9798.   PUSHR D2
  9799.   SETR D4, SP
  9800.   SETR D6, D4
  9801.   ADDV D6, 0
  9802.   SETV D2, 0
  9803.   STOREI D2, D6
  9804.   PUSHR D4
  9805.   SETV D2, 9813
  9806.   PUSHR D2
  9807.   SETR D6, D4
  9808.   ADDV D6, 1
  9809.   LOADI D2, D6
  9810.   PUSHR D2
  9811.   SETV D2, 6
  9812.   PUSHR D2
  9813.   GOTO 22422
  9814.   POP D4
  9815.   PUSHR D2
  9816.   PUSHR D4
  9817.   SETV D2, 9825
  9818.   PUSHR D2
  9819.   SETR D6, D4
  9820.   ADDV D6, 1
  9821.   LOADI D2, D6
  9822.   PUSHR D2
  9823.   SETV D2, 10
  9824.   PUSHR D2
  9825.   GOTO 22422
  9826.   POP D4
  9827.   POP D3
  9828.   ADDR D2, D3
  9829.   PUSHR D4
  9830.   SETV D3, 9841
  9831.   PUSHR D3
  9832.   PUSHR D2
  9833.   SETR D6, D4
  9834.   ADDV D6, 1
  9835.   LOADI D2, D6
  9836.   POP D3
  9837.   PUSHR D2
  9838.   PUSHR D3
  9839.   SETV D2, 6
  9840.   PUSHR D2
  9841.   GOTO 22428
  9842.   POP D4
  9843.   PUSHR D4
  9844.   SETV D2, 9852
  9845.   PUSHR D2
  9846.   SETR D6, D4
  9847.   ADDV D6, 1
  9848.   LOADI D2, D6
  9849.   PUSHR D2
  9850.   SETV D2, 9
  9851.   PUSHR D2
  9852.   GOTO 22422
  9853.   POP D4
  9854.   PUSHR D2
  9855.   PUSHR D4
  9856.   SETV D2, 9870
  9857.   PUSHR D2
  9858.   PUSHR D4
  9859.   SETV D2, 9867
  9860.   PUSHR D2
  9861.   SETR D6, D4
  9862.   ADDV D6, 1
  9863.   LOADI D2, D6
  9864.   PUSHR D2
  9865.   SETV D2, 6
  9866.   PUSHR D2
  9867.   GOTO 22422
  9868.   POP D4
  9869.   PUSHR D2
  9870.   GOTO 21826
  9871.   POP D4
  9872.   POP D3
  9873.   MULTR D2, D3
  9874.   SETR D6, D4
  9875.   ADDV D6, 0
  9876.   STOREI D2, D6
  9877.   PUSHR D4
  9878.   SETV D2, 9886
  9879.   PUSHR D2
  9880.   SETR D6, D4
  9881.   ADDV D6, 1
  9882.   LOADI D2, D6
  9883.   PUSHR D2
  9884.   SETV D2, 4
  9885.   PUSHR D2
  9886.   GOTO 22422
  9887.   POP D4
  9888.   PUSHR D2
  9889.   PUSHR D4
  9890.   SETV D2, 9896
  9891.   PUSHR D2
  9892.   SETR D6, D4
  9893.   ADDV D6, 1
  9894.   LOADI D2, D6
  9895.   PUSHR D2
  9896.   GOTO 22269
  9897.   POP D4
  9898.   PUSHR D2
  9899.   SETV D2, 100
  9900.   POP D3
  9901.   DIVR D3, D2
  9902.   SETR D2, D3
  9903.   PUSHR D2
  9904.   PUSHR D4
  9905.   SETV D2, 9917
  9906.   PUSHR D2
  9907.   PUSHR D4
  9908.   SETV D2, 9914
  9909.   PUSHR D2
  9910.   SETR D6, D4
  9911.   ADDV D6, 1
  9912.   LOADI D2, D6
  9913.   PUSHR D2
  9914.   GOTO 22258
  9915.   POP D4
  9916.   PUSHR D2
  9917.   GOTO 21839
  9918.   POP D4
  9919.   POP D3
  9920.   MULTR D2, D3
  9921.   POP D3
  9922.   ADDR D2, D3
  9923.   PUSHR D4
  9924.   SETV D3, 9935
  9925.   PUSHR D3
  9926.   PUSHR D2
  9927.   SETR D6, D4
  9928.   ADDV D6, 1
  9929.   LOADI D2, D6
  9930.   POP D3
  9931.   PUSHR D2
  9932.   PUSHR D3
  9933.   SETV D2, 4
  9934.   PUSHR D2
  9935.   GOTO 22428
  9936.   POP D4
  9937.   PUSHR D4
  9938.   SETV D2, 9946
  9939.   PUSHR D2
  9940.   SETR D6, D4
  9941.   ADDV D6, 1
  9942.   LOADI D2, D6
  9943.   PUSHR D2
  9944.   SETV D2, 5
  9945.   PUSHR D2
  9946.   GOTO 22422
  9947.   POP D4
  9948.   PUSHR D2
  9949.   PUSHR D4
  9950.   SETV D2, 9956
  9951.   PUSHR D2
  9952.   SETR D6, D4
  9953.   ADDV D6, 1
  9954.   LOADI D2, D6
  9955.   PUSHR D2
  9956.   GOTO 22269
  9957.   POP D4
  9958.   PUSHR D2
  9959.   SETV D2, 100
  9960.   POP D3
  9961.   DIVR D3, D2
  9962.   SETR D2, D3
  9963.   PUSHR D2
  9964.   PUSHR D4
  9965.   SETV D2, 9977
  9966.   PUSHR D2
  9967.   PUSHR D4
  9968.   SETV D2, 9974
  9969.   PUSHR D2
  9970.   SETR D6, D4
  9971.   ADDV D6, 1
  9972.   LOADI D2, D6
  9973.   PUSHR D2
  9974.   GOTO 22258
  9975.   POP D4
  9976.   PUSHR D2
  9977.   GOTO 21830
  9978.   POP D4
  9979.   POP D3
  9980.   MULTR D2, D3
  9981.   POP D3
  9982.   ADDR D2, D3
  9983.   PUSHR D4
  9984.   SETV D3, 9995
  9985.   PUSHR D3
  9986.   PUSHR D2
  9987.   SETR D6, D4
  9988.   ADDV D6, 1
  9989.   LOADI D2, D6
  9990.   POP D3
  9991.   PUSHR D2
  9992.   PUSHR D3
  9993.   SETV D2, 5
  9994.   PUSHR D2
  9995.   GOTO 22428
  9996.   POP D4
  9997.   PUSHR D4
  9998.   SETV D2, 10006
  9999.   PUSHR D2
  10000.   SETR D6, D4
  10001.   ADDV D6, 1
  10002.   LOADI D2, D6
  10003.   PUSHR D2
  10004.   SETV D2, 4
  10005.   PUSHR D2
  10006.   GOTO 22422
  10007.   POP D4
  10008.   PUSHR D2
  10009.   SETR D6, D4
  10010.   ADDV D6, 0
  10011.   LOADI D2, D6
  10012.   PUSHR D2
  10013.   PUSHR D4
  10014.   SETV D2, 10030
  10015.   PUSHR D2
  10016.   PUSHR D4
  10017.   SETV D2, 10023
  10018.   PUSHR D2
  10019.   SETR D6, D4
  10020.   ADDV D6, 1
  10021.   LOADI D2, D6
  10022.   PUSHR D2
  10023.   GOTO 22258
  10024.   POP D4
  10025.   PUSHR D2
  10026.   SETV D2, 1.5708
  10027.   POP D3
  10028.   ADDR D2, D3
  10029.   PUSHR D2
  10030.   GOTO 21839
  10031.   POP D4
  10032.   POP D3
  10033.   MULTR D2, D3
  10034.   POP D3
  10035.   ADDR D2, D3
  10036.   PUSHR D4
  10037.   SETV D3, 10046
  10038.   PUSHR D3
  10039.   PUSHR D2
  10040.   SETR D6, D4
  10041.   ADDV D6, 1
  10042.   LOADI D2, D6
  10043.   POP D3
  10044.   PUSHR D2
  10045.   PUSHR D3
  10046.   GOTO 22213
  10047.   POP D4
  10048.   PUSHR D4
  10049.   SETV D2, 10057
  10050.   PUSHR D2
  10051.   SETR D6, D4
  10052.   ADDV D6, 1
  10053.   LOADI D2, D6
  10054.   PUSHR D2
  10055.   SETV D2, 5
  10056.   PUSHR D2
  10057.   GOTO 22422
  10058.   POP D4
  10059.   PUSHR D2
  10060.   SETR D6, D4
  10061.   ADDV D6, 0
  10062.   LOADI D2, D6
  10063.   PUSHR D2
  10064.   PUSHR D4
  10065.   SETV D2, 10081
  10066.   PUSHR D2
  10067.   PUSHR D4
  10068.   SETV D2, 10074
  10069.   PUSHR D2
  10070.   SETR D6, D4
  10071.   ADDV D6, 1
  10072.   LOADI D2, D6
  10073.   PUSHR D2
  10074.   GOTO 22258
  10075.   POP D4
  10076.   PUSHR D2
  10077.   SETV D2, 1.5708
  10078.   POP D3
  10079.   ADDR D2, D3
  10080.   PUSHR D2
  10081.   GOTO 21830
  10082.   POP D4
  10083.   POP D3
  10084.   MULTR D2, D3
  10085.   POP D3
  10086.   ADDR D2, D3
  10087.   PUSHR D4
  10088.   SETV D3, 10097
  10089.   PUSHR D3
  10090.   PUSHR D2
  10091.   SETR D6, D4
  10092.   ADDV D6, 1
  10093.   LOADI D2, D6
  10094.   POP D3
  10095.   PUSHR D2
  10096.   PUSHR D3
  10097.   GOTO 22224
  10098.   POP D4
  10099.   SETV D3, 0
  10100.   POP D3
  10101.   POP D3
  10102.   POP D3
  10103.   GOTOR D3
  10104.   SETV D2, 0
  10105.   PUSHR D2
  10106.   PUSHR D2
  10107.   PUSHR D2
  10108.   SETR D4, SP
  10109.   PUSHR D4
  10110.   SETV D2, 10116
  10111.   PUSHR D2
  10112.   SETR D6, D4
  10113.   ADDV D6, 3
  10114.   LOADI D2, D6
  10115.   PUSHR D2
  10116.   GOTO 22258
  10117.   POP D4
  10118.   PUSHR D2
  10119.   SETV D2, 6.2832
  10120.   POP D3
  10121.   MODR D3, D2
  10122.   SETR D2, D3
  10123.   SETR D6, D4
  10124.   ADDV D6, 2
  10125.   STOREI D2, D6
  10126.   SETR D6, D4
  10127.   ADDV D6, 2
  10128.   LOADI D2, D6
  10129.   PUSHR D2
  10130.   SETV D2, 0
  10131.   POP D3
  10132.   COMPARER D3, D2
  10133.   SETMORE D2
  10134.   COMPAREV D2, 0
  10135.   SETTRUE D2
  10136.   COMPAREV D2, 0
  10137.   GOTOTRUE 10146
  10138.   SETR D6, D4
  10139.   ADDV D6, 2
  10140.   LOADI D2, D6
  10141.   PUSHR D2
  10142.   SETV D2, 6.2832
  10143.   POP D3
  10144.   ADDR D2, D3
  10145.   SETR D6, D4
  10146.   ADDV D6, 2
  10147.   STOREI D2, D6
  10148.   SETV D2, 0
  10149.   PUSHR D4
  10150.   SETV D2, 10188
  10151.   PUSHR D2
  10152.   PUSHR D4
  10153.   SETV D2, 10159
  10154.   PUSHR D2
  10155.   SETR D6, D4
  10156.   ADDV D6, 3
  10157.   LOADI D2, D6
  10158.   PUSHR D2
  10159.   GOTO 22208
  10160.   POP D4
  10161.   PUSHR D2
  10162.   PUSHR D4
  10163.   SETV D2, 10169
  10164.   PUSHR D2
  10165.   SETR D6, D4
  10166.   ADDV D6, 3
  10167.   LOADI D2, D6
  10168.   PUSHR D2
  10169.   GOTO 22219
  10170.   POP D4
  10171.   PUSHR D2
  10172.   PUSHR D4
  10173.   SETV D2, 10177
  10174.   PUSHR D2
  10175.   SETR D2, GD0
  10176.   PUSHR D2
  10177.   GOTO 21979
  10178.   POP D4
  10179.   PUSHR D2
  10180.   PUSHR D4
  10181.   SETV D2, 10185
  10182.   PUSHR D2
  10183.   SETR D2, GD0
  10184.   PUSHR D2
  10185.   GOTO 21984
  10186.   POP D4
  10187.   PUSHR D2
  10188.   GOTO 21772
  10189.   POP D4
  10190.   SETR D6, D4
  10191.   ADDV D6, 1
  10192.   STOREI D2, D6
  10193.   SETR D6, D4
  10194.   ADDV D6, 1
  10195.   LOADI D2, D6
  10196.   PUSHR D2
  10197.   SETV D2, 0
  10198.   POP D3
  10199.   COMPARER D3, D2
  10200.   SETMORE D2
  10201.   COMPAREV D2, 0
  10202.   SETTRUE D2
  10203.   COMPAREV D2, 0
  10204.   GOTOTRUE 10213
  10205.   SETR D6, D4
  10206.   ADDV D6, 1
  10207.   LOADI D2, D6
  10208.   PUSHR D2
  10209.   SETV D2, 6.2832
  10210.   POP D3
  10211.   ADDR D2, D3
  10212.   SETR D6, D4
  10213.   ADDV D6, 1
  10214.   STOREI D2, D6
  10215.   SETV D2, 0
  10216.   PUSHR D4
  10217.   SETV D2, 10230
  10218.   PUSHR D2
  10219.   SETR D6, D4
  10220.   ADDV D6, 2
  10221.   LOADI D2, D6
  10222.   PUSHR D2
  10223.   SETR D6, D4
  10224.   ADDV D6, 1
  10225.   LOADI D2, D6
  10226.   POP D3
  10227.   SUBR D3, D2
  10228.   SETR D2, D3
  10229.   PUSHR D2
  10230.   GOTO 21864
  10231.   POP D4
  10232.   SETR D6, D4
  10233.   ADDV D6, 0
  10234.   STOREI D2, D6
  10235.   SETR D6, D4
  10236.   ADDV D6, 0
  10237.   LOADI D2, D6
  10238.   PUSHR D2
  10239.   PUSHR D4
  10240.   SETV D2, 10248
  10241.   PUSHR D2
  10242.   SETR D6, D4
  10243.   ADDV D6, 3
  10244.   LOADI D2, D6
  10245.   PUSHR D2
  10246.   SETV D2, 9
  10247.   PUSHR D2
  10248.   GOTO 22422
  10249.   POP D4
  10250.   POP D3
  10251.   COMPARER D3, D2
  10252.   SETMORE D2
  10253.   COMPAREV D2, 0
  10254.   SETTRUE D2
  10255.   PUSHR D2
  10256.   SETR D6, D4
  10257.   ADDV D6, 0
  10258.   LOADI D2, D6
  10259.   PUSHR D2
  10260.   SETV D2, 6.2832
  10261.   PUSHR D2
  10262.   PUSHR D4
  10263.   SETV D2, 10271
  10264.   PUSHR D2
  10265.   SETR D6, D4
  10266.   ADDV D6, 3
  10267.   LOADI D2, D6
  10268.   PUSHR D2
  10269.   SETV D2, 9
  10270.   PUSHR D2
  10271.   GOTO 22422
  10272.   POP D4
  10273.   POP D3
  10274.   SUBR D3, D2
  10275.   SETR D2, D3
  10276.   POP D3
  10277.   COMPARER D3, D2
  10278.   SETLESS D2
  10279.   COMPAREV D2, 0
  10280.   SETTRUE D2
  10281.   POP D3
  10282.   ADDR D2, D3
  10283.   COMPAREV D2, 0.0001
  10284.   SETMORE D2
  10285.   COMPAREV D2, 0
  10286.   GOTOTRUE 10301
  10287.   SETR D6, D4
  10288.   ADDV D6, 1
  10289.   LOADI D2, D6
  10290.   PUSHR D4
  10291.   SETV D3, 10300
  10292.   PUSHR D3
  10293.   PUSHR D2
  10294.   SETR D6, D4
  10295.   ADDV D6, 3
  10296.   LOADI D2, D6
  10297.   POP D3
  10298.   PUSHR D2
  10299.   PUSHR D3
  10300.   GOTO 22263
  10301.   POP D4
  10302.   GOTO 10412
  10303.   SETV D3, 0
  10304.   PUSHR D4
  10305.   SETV D2, 10318
  10306.   PUSHR D2
  10307.   SETR D6, D4
  10308.   ADDV D6, 2
  10309.   LOADI D2, D6
  10310.   PUSHR D2
  10311.   SETR D6, D4
  10312.   ADDV D6, 1
  10313.   LOADI D2, D6
  10314.   POP D3
  10315.   SUBR D3, D2
  10316.   SETR D2, D3
  10317.   PUSHR D2
  10318.   GOTO 21558
  10319.   POP D4
  10320.   PUSHR D2
  10321.   PUSHR D4
  10322.   SETV D2, 10333
  10323.   PUSHR D2
  10324.   SETR D6, D4
  10325.   ADDV D6, 0
  10326.   LOADI D2, D6
  10327.   PUSHR D2
  10328.   SETV D2, 3.1416
  10329.   POP D3
  10330.   SUBR D3, D2
  10331.   SETR D2, D3
  10332.   PUSHR D2
  10333.   GOTO 21558
  10334.   POP D4
  10335.   POP D3
  10336.   COMPARER D2, D3
  10337.   SETTRUE D2
  10338.   COMPAREV D2, 0
  10339.   GOTOTRUE 10374
  10340.   PUSHR D4
  10341.   SETV D2, 10347
  10342.   PUSHR D2
  10343.   SETR D6, D4
  10344.   ADDV D6, 3
  10345.   LOADI D2, D6
  10346.   PUSHR D2
  10347.   GOTO 22258
  10348.   POP D4
  10349.   PUSHR D2
  10350.   PUSHR D4
  10351.   SETV D2, 10359
  10352.   PUSHR D2
  10353.   SETR D6, D4
  10354.   ADDV D6, 3
  10355.   LOADI D2, D6
  10356.   PUSHR D2
  10357.   SETV D2, 9
  10358.   PUSHR D2
  10359.   GOTO 22422
  10360.   POP D4
  10361.   POP D3
  10362.   ADDR D2, D3
  10363.   PUSHR D4
  10364.   SETV D3, 10373
  10365.   PUSHR D3
  10366.   PUSHR D2
  10367.   SETR D6, D4
  10368.   ADDV D6, 3
  10369.   LOADI D2, D6
  10370.   POP D3
  10371.   PUSHR D2
  10372.   PUSHR D3
  10373.   GOTO 22263
  10374.   POP D4
  10375.   GOTO 10411
  10376.   SETV D3, 0
  10377.   PUSHR D4
  10378.   SETV D2, 10384
  10379.   PUSHR D2
  10380.   SETR D6, D4
  10381.   ADDV D6, 3
  10382.   LOADI D2, D6
  10383.   PUSHR D2
  10384.   GOTO 22258
  10385.   POP D4
  10386.   PUSHR D2
  10387.   PUSHR D4
  10388.   SETV D2, 10396
  10389.   PUSHR D2
  10390.   SETR D6, D4
  10391.   ADDV D6, 3
  10392.   LOADI D2, D6
  10393.   PUSHR D2
  10394.   SETV D2, 9
  10395.   PUSHR D2
  10396.   GOTO 22422
  10397.   POP D4
  10398.   POP D3
  10399.   SUBR D3, D2
  10400.   SETR D2, D3
  10401.   PUSHR D4
  10402.   SETV D3, 10411
  10403.   PUSHR D3
  10404.   PUSHR D2
  10405.   SETR D6, D4
  10406.   ADDV D6, 3
  10407.   LOADI D2, D6
  10408.   POP D3
  10409.   PUSHR D2
  10410.   PUSHR D3
  10411.   GOTO 22263
  10412.   POP D4
  10413.   SETV D3, 0
  10414.   SETV D3, 0
  10415.   PUSHR D4
  10416.   SETV D2, 10422
  10417.   PUSHR D2
  10418.   SETR D6, D4
  10419.   ADDV D6, 3
  10420.   LOADI D2, D6
  10421.   PUSHR D2
  10422.   GOTO 3880
  10423.   POP D4
  10424.   PUSHR D4
  10425.   SETV D2, 10433
  10426.   PUSHR D2
  10427.   SETR D6, D4
  10428.   ADDV D6, 3
  10429.   LOADI D2, D6
  10430.   PUSHR D2
  10431.   SETV D2, 10
  10432.   PUSHR D2
  10433.   GOTO 22422
  10434.   POP D4
  10435.   PUSHR D2
  10436.   SETV D2, 0
  10437.   POP D3
  10438.   COMPARER D3, D2
  10439.   SETLESS D2
  10440.   COMPAREV D2, 0
  10441.   SETTRUE D2
  10442.   COMPAREV D2, 0
  10443.   GOTOTRUE 10498
  10444.   PUSHR D4
  10445.   SETV D2, 10453
  10446.   PUSHR D2
  10447.   SETR D6, D4
  10448.   ADDV D6, 3
  10449.   LOADI D2, D6
  10450.   PUSHR D2
  10451.   SETV D2, 10
  10452.   PUSHR D2
  10453.   GOTO 22422
  10454.   POP D4
  10455.   PUSHR D2
  10456.   SUBV D2, 1
  10457.   PUSHR D4
  10458.   SETV D3, 10469
  10459.   PUSHR D3
  10460.   PUSHR D2
  10461.   SETR D6, D4
  10462.   ADDV D6, 3
  10463.   LOADI D2, D6
  10464.   POP D3
  10465.   PUSHR D2
  10466.   PUSHR D3
  10467.   SETV D2, 10
  10468.   PUSHR D2
  10469.   GOTO 22428
  10470.   POP D4
  10471.   POP D2
  10472.   PUSHR D4
  10473.   SETV D2, 10481
  10474.   PUSHR D2
  10475.   SETR D6, D4
  10476.   ADDV D6, 3
  10477.   LOADI D2, D6
  10478.   PUSHR D2
  10479.   SETV D2, 10
  10480.   PUSHR D2
  10481.   GOTO 22422
  10482.   POP D4
  10483.   PUSHR D2
  10484.   SETV D2, 0
  10485.   POP D3
  10486.   COMPARER D3, D2
  10487.   SETLESS D2
  10488.   COMPAREV D2, 0
  10489.   GOTOTRUE 10497
  10490.   PUSHR D4
  10491.   SETV D2, 10497
  10492.   PUSHR D2
  10493.   SETR D6, D4
  10494.   ADDV D6, 3
  10495.   LOADI D2, D6
  10496.   PUSHR D2
  10497.   GOTO 4633
  10498.   POP D4
  10499.   SETV D2, 0
  10500.   SETV D2, 0
  10501.   SETV D3, 0
  10502.   POP D3
  10503.   POP D3
  10504.   POP D3
  10505.   POP D3
  10506.   POP D3
  10507.   GOTOR D3
  10508.   SETV D2, 0
  10509.   PUSHR D2
  10510.   SETR D4, SP
  10511.   PUSHR D4
  10512.   SETV D2, 10520
  10513.   PUSHR D2
  10514.   SETR D6, D4
  10515.   ADDV D6, 1
  10516.   LOADI D2, D6
  10517.   PUSHR D2
  10518.   SETV D2, 6
  10519.   PUSHR D2
  10520.   GOTO 22422
  10521.   POP D4
  10522.   PUSHR D2
  10523.   SETV D2, 0
  10524.   POP D3
  10525.   COMPARER D2, D3
  10526.   SETTRUE D2
  10527.   COMPAREV D2, 0
  10528.   GOTOTRUE 10552
  10529.   PUSHR D4
  10530.   SETV D2, 10538
  10531.   PUSHR D2
  10532.   SETR D6, D4
  10533.   ADDV D6, 1
  10534.   LOADI D2, D6
  10535.   PUSHR D2
  10536.   SETV D2, 10
  10537.   PUSHR D2
  10538.   GOTO 22422
  10539.   POP D4
  10540.   PUSHR D4
  10541.   SETV D3, 10552
  10542.   PUSHR D3
  10543.   PUSHR D2
  10544.   SETR D6, D4
  10545.   ADDV D6, 1
  10546.   LOADI D2, D6
  10547.   POP D3
  10548.   PUSHR D2
  10549.   PUSHR D3
  10550.   SETV D2, 6
  10551.   PUSHR D2
  10552.   GOTO 22428
  10553.   POP D4
  10554.   SETV D2, 0
  10555.   PUSHR D4
  10556.   SETV D2, 10564
  10557.   PUSHR D2
  10558.   SETR D6, D4
  10559.   ADDV D6, 1
  10560.   LOADI D2, D6
  10561.   PUSHR D2
  10562.   SETV D2, 6
  10563.   PUSHR D2
  10564.   GOTO 22422
  10565.   POP D4
  10566.   PUSHR D2
  10567.   SETV D2, 0
  10568.   POP D3
  10569.   COMPARER D3, D2
  10570.   SETLESS D2
  10571.   COMPAREV D2, 0
  10572.   SETTRUE D2
  10573.   COMPAREV D2, 0
  10574.   GOTOTRUE 10707
  10575.   PUSHR D4
  10576.   SETV D2, 10584
  10577.   PUSHR D2
  10578.   SETR D6, D4
  10579.   ADDV D6, 1
  10580.   LOADI D2, D6
  10581.   PUSHR D2
  10582.   SETV D2, 6
  10583.   PUSHR D2
  10584.   GOTO 22422
  10585.   POP D4
  10586.   PUSHR D2
  10587.   SUBV D2, 1
  10588.   PUSHR D4
  10589.   SETV D3, 10600
  10590.   PUSHR D3
  10591.   PUSHR D2
  10592.   SETR D6, D4
  10593.   ADDV D6, 1
  10594.   LOADI D2, D6
  10595.   POP D3
  10596.   PUSHR D2
  10597.   PUSHR D3
  10598.   SETV D2, 6
  10599.   PUSHR D2
  10600.   GOTO 22428
  10601.   POP D4
  10602.   POP D2
  10603.   PUSHR D4
  10604.   SETV D2, 10612
  10605.   PUSHR D2
  10606.   SETR D6, D4
  10607.   ADDV D6, 1
  10608.   LOADI D2, D6
  10609.   PUSHR D2
  10610.   SETV D2, 6
  10611.   PUSHR D2
  10612.   GOTO 22422
  10613.   POP D4
  10614.   PUSHR D2
  10615.   SETV D2, 0
  10616.   POP D3
  10617.   COMPARER D2, D3
  10618.   SETTRUE D2
  10619.   COMPAREV D2, 0
  10620.   GOTOTRUE 10705
  10621.   PUSHR D4
  10622.   SETV D2, 10630
  10623.   PUSHR D2
  10624.   SETR D6, D4
  10625.   ADDV D6, 1
  10626.   LOADI D2, D6
  10627.   PUSHR D2
  10628.   SETV D2, 9
  10629.   PUSHR D2
  10630.   GOTO 22422
  10631.   POP D4
  10632.   PUSHR D2
  10633.   SETV D2, 0
  10634.   POP D3
  10635.   COMPARER D3, D2
  10636.   SETLESS D2
  10637.   COMPAREV D2, 0
  10638.   GOTOTRUE 10647
  10639.   PUSHR D4
  10640.   SETV D2, 10646
  10641.   PUSHR D2
  10642.   SETR D6, D4
  10643.   ADDV D6, 1
  10644.   LOADI D2, D6
  10645.   PUSHR D2
  10646.   GOTO 4633
  10647.   POP D4
  10648.   GOTO 10704
  10649.   SETV D3, 0
  10650.   PUSHR D4
  10651.   SETV D2, 10659
  10652.   PUSHR D2
  10653.   SETR D6, D4
  10654.   ADDV D6, 1
  10655.   LOADI D2, D6
  10656.   PUSHR D2
  10657.   SETV D2, 9
  10658.   PUSHR D2
  10659.   GOTO 22422
  10660.   POP D4
  10661.   PUSHR D2
  10662.   SUBV D2, 1
  10663.   PUSHR D4
  10664.   SETV D3, 10675
  10665.   PUSHR D3
  10666.   PUSHR D2
  10667.   SETR D6, D4
  10668.   ADDV D6, 1
  10669.   LOADI D2, D6
  10670.   POP D3
  10671.   PUSHR D2
  10672.   PUSHR D3
  10673.   SETV D2, 9
  10674.   PUSHR D2
  10675.   GOTO 22428
  10676.   POP D4
  10677.   POP D2
  10678.   SETV D2, 0
  10679.   PUSHR D4
  10680.   SETV D3, 10689
  10681.   PUSHR D3
  10682.   PUSHR D2
  10683.   SETR D6, D4
  10684.   ADDV D6, 1
  10685.   LOADI D2, D6
  10686.   POP D3
  10687.   PUSHR D2
  10688.   PUSHR D3
  10689.   GOTO 22274
  10690.   POP D4
  10691.   SETV D2, -20
  10692.   PUSHR D4
  10693.   SETV D3, 10704
  10694.   PUSHR D3
  10695.   PUSHR D2
  10696.   SETR D6, D4
  10697.   ADDV D6, 1
  10698.   LOADI D2, D6
  10699.   POP D3
  10700.   PUSHR D2
  10701.   PUSHR D3
  10702.   SETV D2, 6
  10703.   PUSHR D2
  10704.   GOTO 22428
  10705.   POP D4
  10706.   SETV D3, 0
  10707.   SETV D2, 0
  10708.   GOTO 11089
  10709.   SETV D3, 0
  10710.   PUSHR D4
  10711.   SETV D2, 10719
  10712.   PUSHR D2
  10713.   SETR D6, D4
  10714.   ADDV D6, 1
  10715.   LOADI D2, D6
  10716.   PUSHR D2
  10717.   SETV D2, 6
  10718.   PUSHR D2
  10719.   GOTO 22422
  10720.   POP D4
  10721.   PUSHR D2
  10722.   ADDV D2, 1
  10723.   PUSHR D4
  10724.   SETV D3, 10735
  10725.   PUSHR D3
  10726.   PUSHR D2
  10727.   SETR D6, D4
  10728.   ADDV D6, 1
  10729.   LOADI D2, D6
  10730.   POP D3
  10731.   PUSHR D2
  10732.   PUSHR D3
  10733.   SETV D2, 6
  10734.   PUSHR D2
  10735.   GOTO 22428
  10736.   POP D4
  10737.   POP D2
  10738.   PUSHR D4
  10739.   SETV D2, 10747
  10740.   PUSHR D2
  10741.   SETR D6, D4
  10742.   ADDV D6, 1
  10743.   LOADI D2, D6
  10744.   PUSHR D2
  10745.   SETV D2, 6
  10746.   PUSHR D2
  10747.   GOTO 22422
  10748.   POP D4
  10749.   PUSHR D2
  10750.   SETV D2, 0
  10751.   POP D3
  10752.   COMPARER D2, D3
  10753.   SETTRUE D2
  10754.   COMPAREV D2, 0
  10755.   GOTOTRUE 10886
  10756.   SETV D2, 45
  10757.   PUSHR D4
  10758.   SETV D3, 10769
  10759.   PUSHR D3
  10760.   PUSHR D2
  10761.   SETR D6, D4
  10762.   ADDV D6, 1
  10763.   LOADI D2, D6
  10764.   POP D3
  10765.   PUSHR D2
  10766.   PUSHR D3
  10767.   SETV D2, 6
  10768.   PUSHR D2
  10769.   GOTO 22428
  10770.   POP D4
  10771.   PUSHR D4
  10772.   SETV D2, 10810
  10773.   PUSHR D2
  10774.   PUSHR D4
  10775.   SETV D2, 10781
  10776.   PUSHR D2
  10777.   SETR D6, D4
  10778.   ADDV D6, 1
  10779.   LOADI D2, D6
  10780.   PUSHR D2
  10781.   GOTO 22208
  10782.   POP D4
  10783.   PUSHR D2
  10784.   PUSHR D4
  10785.   SETV D2, 10791
  10786.   PUSHR D2
  10787.   SETR D6, D4
  10788.   ADDV D6, 1
  10789.   LOADI D2, D6
  10790.   PUSHR D2
  10791.   GOTO 22219
  10792.   POP D4
  10793.   PUSHR D2
  10794.   PUSHR D4
  10795.   SETV D2, 10799
  10796.   PUSHR D2
  10797.   SETR D2, GD0
  10798.   PUSHR D2
  10799.   GOTO 21979
  10800.   POP D4
  10801.   PUSHR D2
  10802.   PUSHR D4
  10803.   SETV D2, 10807
  10804.   PUSHR D2
  10805.   SETR D2, GD0
  10806.   PUSHR D2
  10807.   GOTO 21984
  10808.   POP D4
  10809.   PUSHR D2
  10810.   GOTO 21772
  10811.   POP D4
  10812.   PUSHR D4
  10813.   SETV D3, 10822
  10814.   PUSHR D3
  10815.   PUSHR D2
  10816.   SETR D6, D4
  10817.   ADDV D6, 1
  10818.   LOADI D2, D6
  10819.   POP D3
  10820.   PUSHR D2
  10821.   PUSHR D3
  10822.   GOTO 22263
  10823.   POP D4
  10824.   PUSHR D4
  10825.   SETV D2, 10833
  10826.   PUSHR D2
  10827.   SETR D6, D4
  10828.   ADDV D6, 1
  10829.   LOADI D2, D6
  10830.   PUSHR D2
  10831.   SETV D2, 7
  10832.   PUSHR D2
  10833.   GOTO 22422
  10834.   POP D4
  10835.   PUSHR D4
  10836.   SETV D3, 10845
  10837.   PUSHR D3
  10838.   PUSHR D2
  10839.   SETR D6, D4
  10840.   ADDV D6, 1
  10841.   LOADI D2, D6
  10842.   POP D3
  10843.   PUSHR D2
  10844.   PUSHR D3
  10845.   GOTO 22274
  10846.   POP D4
  10847.   PUSHR D4
  10848.   SETV D2, 10854
  10849.   PUSHR D2
  10850.   SETR D6, D4
  10851.   ADDV D6, 1
  10852.   LOADI D2, D6
  10853.   PUSHR D2
  10854.   GOTO 3880
  10855.   POP D4
  10856.   PUSHR D4
  10857.   SETV D2, 10865
  10858.   PUSHR D2
  10859.   SETR D6, D4
  10860.   ADDV D6, 1
  10861.   LOADI D2, D6
  10862.   PUSHR D2
  10863.   SETV D2, 15
  10864.   PUSHR D2
  10865.   GOTO 22422
  10866.   POP D4
  10867.   PUSHR D2
  10868.   SETV D2, 2
  10869.   POP D3
  10870.   ANDR D2, D3
  10871.   PUSHR D2
  10872.   SETV D2, 0
  10873.   POP D3
  10874.   COMPARER D2, D3
  10875.   SETFALSE D2
  10876.   COMPAREV D2, 0
  10877.   GOTOTRUE 10885
  10878.   PUSHR D4
  10879.   SETV D2, 10885
  10880.   PUSHR D2
  10881.   SETR D6, D4
  10882.   ADDV D6, 1
  10883.   LOADI D2, D6
  10884.   PUSHR D2
  10885.   GOTO 4136
  10886.   POP D4
  10887.   SETV D2, 0
  10888.   SETV D2, 0
  10889.   PUSHR D4
  10890.   SETV D2, 10898
  10891.   PUSHR D2
  10892.   SETR D6, D4
  10893.   ADDV D6, 1
  10894.   LOADI D2, D6
  10895.   PUSHR D2
  10896.   SETV D2, 15
  10897.   PUSHR D2
  10898.   GOTO 22422
  10899.   POP D4
  10900.   PUSHR D2
  10901.   SETV D2, 4
  10902.   POP D3
  10903.   ANDR D2, D3
  10904.   PUSHR D2
  10905.   SETV D2, 0
  10906.   POP D3
  10907.   COMPARER D2, D3
  10908.   SETFALSE D2
  10909.   COMPAREV D2, 0
  10910.   GOTOTRUE 10935
  10911.   PUSHR D4
  10912.   SETV D2, 10918
  10913.   PUSHR D2
  10914.   SETR D6, D4
  10915.   ADDV D6, 1
  10916.   LOADI D2, D6
  10917.   PUSHR D2
  10918.   GOTO 22258
  10919.   POP D4
  10920.   PUSHR D2
  10921.   SETV D2, 0.3000
  10922.   POP D3
  10923.   ADDR D2, D3
  10924.   PUSHR D4
  10925.   SETV D3, 10934
  10926.   PUSHR D3
  10927.   PUSHR D2
  10928.   SETR D6, D4
  10929.   ADDV D6, 1
  10930.   LOADI D2, D6
  10931.   POP D3
  10932.   PUSHR D2
  10933.   PUSHR D3
  10934.   GOTO 22263
  10935.   POP D4
  10936.   GOTO 11088
  10937.   SETV D3, 0
  10938.   PUSHR D4
  10939.   SETV D2, 10947
  10940.   PUSHR D2
  10941.   SETR D6, D4
  10942.   ADDV D6, 1
  10943.   LOADI D2, D6
  10944.   PUSHR D2
  10945.   SETV D2, 15
  10946.   PUSHR D2
  10947.   GOTO 22422
  10948.   POP D4
  10949.   PUSHR D2
  10950.   SETV D2, 2
  10951.   POP D3
  10952.   ANDR D2, D3
  10953.   PUSHR D2
  10954.   SETV D2, 0
  10955.   POP D3
  10956.   COMPARER D2, D3
  10957.   SETFALSE D2
  10958.   COMPAREV D2, 0
  10959.   GOTOTRUE 11087
  10960.   PUSHR D4
  10961.   SETV D2, 10967
  10962.   PUSHR D2
  10963.   SETR D6, D4
  10964.   ADDV D6, 1
  10965.   LOADI D2, D6
  10966.   PUSHR D2
  10967.   GOTO 22258
  10968.   POP D4
  10969.   PUSHR D2
  10970.   SETV D2, 0.2000
  10971.   POP D3
  10972.   ADDR D2, D3
  10973.   PUSHR D4
  10974.   SETV D3, 10983
  10975.   PUSHR D3
  10976.   PUSHR D2
  10977.   SETR D6, D4
  10978.   ADDV D6, 1
  10979.   LOADI D2, D6
  10980.   POP D3
  10981.   PUSHR D2
  10982.   PUSHR D3
  10983.   GOTO 22263
  10984.   POP D4
  10985.   PUSHR D4
  10986.   SETV D2, 10994
  10987.   PUSHR D2
  10988.   SETR D6, D4
  10989.   ADDV D6, 1
  10990.   LOADI D2, D6
  10991.   PUSHR D2
  10992.   SETV D2, 6
  10993.   PUSHR D2
  10994.   GOTO 22422
  10995.   POP D4
  10996.   SETV D3, 0
  10997.   SUBR D3, D2
  10998.   SETR D2, D3
  10999.   PUSHR D2
  11000.   SETV D2, 6
  11001.   POP D3
  11002.   ANDR D2, D3
  11003.   SETR D6, D4
  11004.   ADDV D6, 0
  11005.   STOREI D2, D6
  11006.   SETR D6, D4
  11007.   ADDV D6, 0
  11008.   LOADI D2, D6
  11009.   PUSHR D2
  11010.   SETV D2, 6
  11011.   POP D3
  11012.   COMPARER D2, D3
  11013.   SETTRUE D2
  11014.   COMPAREV D2, 0
  11015.   GOTOTRUE 11026
  11016.   PUSHR D4
  11017.   SETV D2, 11025
  11018.   PUSHR D2
  11019.   SETR D6, D4
  11020.   ADDV D6, 1
  11021.   LOADI D2, D6
  11022.   PUSHR D2
  11023.   SETV D2, 0
  11024.   PUSHR D2
  11025.   GOTO 4471
  11026.   POP D4
  11027.   GOTO 11086
  11028.   SETV D3, 0
  11029.   SETR D6, D4
  11030.   ADDV D6, 0
  11031.   LOADI D2, D6
  11032.   PUSHR D2
  11033.   SETV D2, 4
  11034.   POP D3
  11035.   COMPARER D2, D3
  11036.   SETTRUE D2
  11037.   COMPAREV D2, 0
  11038.   GOTOTRUE 11049
  11039.   PUSHR D4
  11040.   SETV D2, 11048
  11041.   PUSHR D2
  11042.   SETR D6, D4
  11043.   ADDV D6, 1
  11044.   LOADI D2, D6
  11045.   PUSHR D2
  11046.   SETV D2, 3
  11047.   PUSHR D2
  11048.   GOTO 4471
  11049.   POP D4
  11050.   GOTO 11085
  11051.   SETV D3, 0
  11052.   SETR D6, D4
  11053.   ADDV D6, 0
  11054.   LOADI D2, D6
  11055.   PUSHR D2
  11056.   SETV D2, 2
  11057.   POP D3
  11058.   COMPARER D2, D3
  11059.   SETTRUE D2
  11060.   COMPAREV D2, 0
  11061.   GOTOTRUE 11072
  11062.   PUSHR D4
  11063.   SETV D2, 11071
  11064.   PUSHR D2
  11065.   SETR D6, D4
  11066.   ADDV D6, 1
  11067.   LOADI D2, D6
  11068.   PUSHR D2
  11069.   SETV D2, 1
  11070.   PUSHR D2
  11071.   GOTO 4471
  11072.   POP D4
  11073.   GOTO 11084
  11074.   SETV D3, 0
  11075.   PUSHR D4
  11076.   SETV D2, 11084
  11077.   PUSHR D2
  11078.   SETR D6, D4
  11079.   ADDV D6, 1
  11080.   LOADI D2, D6
  11081.   PUSHR D2
  11082.   SETV D2, 2
  11083.   PUSHR D2
  11084.   GOTO 4471
  11085.   POP D4
  11086.   SETV D3, 0
  11087.   SETV D3, 0
  11088.   SETV D3, 0
  11089.   SETV D2, 0
  11090.   SETV D3, 0
  11091.   SETV D3, 0
  11092.   SETV D3, 0
  11093.   POP D3
  11094.   POP D3
  11095.   POP D3
  11096.   GOTOR D3
  11097.   SETV D2, 0
  11098.   SETR D4, SP
  11099.   PUSHR D4
  11100.   SETV D2, 11106
  11101.   PUSHR D2
  11102.   SETR D6, D4
  11103.   ADDV D6, 0
  11104.   LOADI D2, D6
  11105.   PUSHR D2
  11106.   GOTO 22258
  11107.   POP D4
  11108.   PUSHR D2
  11109.   PUSHR D4
  11110.   SETV D2, 11128
  11111.   PUSHR D2
  11112.   SETV D2, 2
  11113.   PUSHR D2
  11114.   PUSHR D4
  11115.   SETV D2, 11123
  11116.   PUSHR D2
  11117.   SETR D6, D4
  11118.   ADDV D6, 0
  11119.   LOADI D2, D6
  11120.   PUSHR D2
  11121.   SETV D2, 9
  11122.   PUSHR D2
  11123.   GOTO 22422
  11124.   POP D4
  11125.   POP D3
  11126.   MULTR D2, D3
  11127.   PUSHR D2
  11128.   GOTO 21519
  11129.   POP D4
  11130.   PUSHR D2
  11131.   PUSHR D4
  11132.   SETV D2, 11140
  11133.   PUSHR D2
  11134.   SETR D6, D4
  11135.   ADDV D6, 0
  11136.   LOADI D2, D6
  11137.   PUSHR D2
  11138.   SETV D2, 9
  11139.   PUSHR D2
  11140.   GOTO 22422
  11141.   POP D4
  11142.   POP D3
  11143.   SUBR D3, D2
  11144.   SETR D2, D3
  11145.   POP D3
  11146.   ADDR D2, D3
  11147.   PUSHR D4
  11148.   SETV D3, 11157
  11149.   PUSHR D3
  11150.   PUSHR D2
  11151.   SETR D6, D4
  11152.   ADDV D6, 0
  11153.   LOADI D2, D6
  11154.   POP D3
  11155.   PUSHR D2
  11156.   PUSHR D3
  11157.   GOTO 22263
  11158.   POP D4
  11159.   PUSHR D4
  11160.   SETV D2, 11166
  11161.   PUSHR D2
  11162.   SETR D6, D4
  11163.   ADDV D6, 0
  11164.   LOADI D2, D6
  11165.   PUSHR D2
  11166.   GOTO 3880
  11167.   POP D4
  11168.   PUSHR D4
  11169.   SETV D2, 11177
  11170.   PUSHR D2
  11171.   SETR D6, D4
  11172.   ADDV D6, 0
  11173.   LOADI D2, D6
  11174.   PUSHR D2
  11175.   SETV D2, 15
  11176.   PUSHR D2
  11177.   GOTO 22422
  11178.   POP D4
  11179.   PUSHR D2
  11180.   SETV D2, 2
  11181.   POP D3
  11182.   ANDR D2, D3
  11183.   PUSHR D2
  11184.   SETV D2, 0
  11185.   POP D3
  11186.   COMPARER D2, D3
  11187.   SETFALSE D2
  11188.   COMPAREV D2, 0
  11189.   GOTOTRUE 11197
  11190.   PUSHR D4
  11191.   SETV D2, 11197
  11192.   PUSHR D2
  11193.   SETR D6, D4
  11194.   ADDV D6, 0
  11195.   LOADI D2, D6
  11196.   PUSHR D2
  11197.   GOTO 4136
  11198.   POP D4
  11199.   SETV D2, 0
  11200.   PUSHR D4
  11201.   SETV D2, 11209
  11202.   PUSHR D2
  11203.   SETR D6, D4
  11204.   ADDV D6, 0
  11205.   LOADI D2, D6
  11206.   PUSHR D2
  11207.   SETV D2, 10
  11208.   PUSHR D2
  11209.   GOTO 22422
  11210.   POP D4
  11211.   PUSHR D2
  11212.   SETV D2, 0
  11213.   POP D3
  11214.   COMPARER D3, D2
  11215.   SETLESS D2
  11216.   COMPAREV D2, 0
  11217.   SETTRUE D2
  11218.   COMPAREV D2, 0
  11219.   GOTOTRUE 11274
  11220.   PUSHR D4
  11221.   SETV D2, 11229
  11222.   PUSHR D2
  11223.   SETR D6, D4
  11224.   ADDV D6, 0
  11225.   LOADI D2, D6
  11226.   PUSHR D2
  11227.   SETV D2, 10
  11228.   PUSHR D2
  11229.   GOTO 22422
  11230.   POP D4
  11231.   PUSHR D2
  11232.   SUBV D2, 1
  11233.   PUSHR D4
  11234.   SETV D3, 11245
  11235.   PUSHR D3
  11236.   PUSHR D2
  11237.   SETR D6, D4
  11238.   ADDV D6, 0
  11239.   LOADI D2, D6
  11240.   POP D3
  11241.   PUSHR D2
  11242.   PUSHR D3
  11243.   SETV D2, 10
  11244.   PUSHR D2
  11245.   GOTO 22428
  11246.   POP D4
  11247.   POP D2
  11248.   PUSHR D4
  11249.   SETV D2, 11257
  11250.   PUSHR D2
  11251.   SETR D6, D4
  11252.   ADDV D6, 0
  11253.   LOADI D2, D6
  11254.   PUSHR D2
  11255.   SETV D2, 10
  11256.   PUSHR D2
  11257.   GOTO 22422
  11258.   POP D4
  11259.   PUSHR D2
  11260.   SETV D2, 0
  11261.   POP D3
  11262.   COMPARER D3, D2
  11263.   SETLESS D2
  11264.   COMPAREV D2, 0
  11265.   GOTOTRUE 11273
  11266.   PUSHR D4
  11267.   SETV D2, 11273
  11268.   PUSHR D2
  11269.   SETR D6, D4
  11270.   ADDV D6, 0
  11271.   LOADI D2, D6
  11272.   PUSHR D2
  11273.   GOTO 4633
  11274.   POP D4
  11275.   SETV D2, 0
  11276.   SETV D2, 0
  11277.   SETV D3, 0
  11278.   POP D3
  11279.   POP D3
  11280.   GOTOR D3
  11281.   SETV D2, 0
  11282.   PUSHR D2
  11283.   SETR D4, SP
  11284.   PUSHR D4
  11285.   SETV D2, 11293
  11286.   PUSHR D2
  11287.   SETR D6, D4
  11288.   ADDV D6, 1
  11289.   LOADI D2, D6
  11290.   PUSHR D2
  11291.   SETV D2, 6
  11292.   PUSHR D2
  11293.   GOTO 22422
  11294.   POP D4
  11295.   PUSHR D2
  11296.   SETV D2, 0
  11297.   POP D3
  11298.   COMPARER D2, D3
  11299.   SETTRUE D2
  11300.   COMPAREV D2, 0
  11301.   GOTOTRUE 11325
  11302.   PUSHR D4
  11303.   SETV D2, 11311
  11304.   PUSHR D2
  11305.   SETR D6, D4
  11306.   ADDV D6, 1
  11307.   LOADI D2, D6
  11308.   PUSHR D2
  11309.   SETV D2, 10
  11310.   PUSHR D2
  11311.   GOTO 22422
  11312.   POP D4
  11313.   PUSHR D4
  11314.   SETV D3, 11325
  11315.   PUSHR D3
  11316.   PUSHR D2
  11317.   SETR D6, D4
  11318.   ADDV D6, 1
  11319.   LOADI D2, D6
  11320.   POP D3
  11321.   PUSHR D2
  11322.   PUSHR D3
  11323.   SETV D2, 6
  11324.   PUSHR D2
  11325.   GOTO 22428
  11326.   POP D4
  11327.   SETV D2, 0
  11328.   PUSHR D4
  11329.   SETV D2, 11337
  11330.   PUSHR D2
  11331.   SETR D6, D4
  11332.   ADDV D6, 1
  11333.   LOADI D2, D6
  11334.   PUSHR D2
  11335.   SETV D2, 6
  11336.   PUSHR D2
  11337.   GOTO 22422
  11338.   POP D4
  11339.   PUSHR D2
  11340.   SETV D2, 0
  11341.   POP D3
  11342.   COMPARER D3, D2
  11343.   SETLESS D2
  11344.   COMPAREV D2, 0
  11345.   SETTRUE D2
  11346.   COMPAREV D2, 0
  11347.   GOTOTRUE 11480
  11348.   PUSHR D4
  11349.   SETV D2, 11357
  11350.   PUSHR D2
  11351.   SETR D6, D4
  11352.   ADDV D6, 1
  11353.   LOADI D2, D6
  11354.   PUSHR D2
  11355.   SETV D2, 6
  11356.   PUSHR D2
  11357.   GOTO 22422
  11358.   POP D4
  11359.   PUSHR D2
  11360.   SUBV D2, 1
  11361.   PUSHR D4
  11362.   SETV D3, 11373
  11363.   PUSHR D3
  11364.   PUSHR D2
  11365.   SETR D6, D4
  11366.   ADDV D6, 1
  11367.   LOADI D2, D6
  11368.   POP D3
  11369.   PUSHR D2
  11370.   PUSHR D3
  11371.   SETV D2, 6
  11372.   PUSHR D2
  11373.   GOTO 22428
  11374.   POP D4
  11375.   POP D2
  11376.   PUSHR D4
  11377.   SETV D2, 11385
  11378.   PUSHR D2
  11379.   SETR D6, D4
  11380.   ADDV D6, 1
  11381.   LOADI D2, D6
  11382.   PUSHR D2
  11383.   SETV D2, 6
  11384.   PUSHR D2
  11385.   GOTO 22422
  11386.   POP D4
  11387.   PUSHR D2
  11388.   SETV D2, 0
  11389.   POP D3
  11390.   COMPARER D2, D3
  11391.   SETTRUE D2
  11392.   COMPAREV D2, 0
  11393.   GOTOTRUE 11478
  11394.   PUSHR D4
  11395.   SETV D2, 11403
  11396.   PUSHR D2
  11397.   SETR D6, D4
  11398.   ADDV D6, 1
  11399.   LOADI D2, D6
  11400.   PUSHR D2
  11401.   SETV D2, 9
  11402.   PUSHR D2
  11403.   GOTO 22422
  11404.   POP D4
  11405.   PUSHR D2
  11406.   SETV D2, 0
  11407.   POP D3
  11408.   COMPARER D3, D2
  11409.   SETLESS D2
  11410.   COMPAREV D2, 0
  11411.   GOTOTRUE 11420
  11412.   PUSHR D4
  11413.   SETV D2, 11419
  11414.   PUSHR D2
  11415.   SETR D6, D4
  11416.   ADDV D6, 1
  11417.   LOADI D2, D6
  11418.   PUSHR D2
  11419.   GOTO 4633
  11420.   POP D4
  11421.   GOTO 11477
  11422.   SETV D3, 0
  11423.   PUSHR D4
  11424.   SETV D2, 11432
  11425.   PUSHR D2
  11426.   SETR D6, D4
  11427.   ADDV D6, 1
  11428.   LOADI D2, D6
  11429.   PUSHR D2
  11430.   SETV D2, 9
  11431.   PUSHR D2
  11432.   GOTO 22422
  11433.   POP D4
  11434.   PUSHR D2
  11435.   SUBV D2, 1
  11436.   PUSHR D4
  11437.   SETV D3, 11448
  11438.   PUSHR D3
  11439.   PUSHR D2
  11440.   SETR D6, D4
  11441.   ADDV D6, 1
  11442.   LOADI D2, D6
  11443.   POP D3
  11444.   PUSHR D2
  11445.   PUSHR D3
  11446.   SETV D2, 9
  11447.   PUSHR D2
  11448.   GOTO 22428
  11449.   POP D4
  11450.   POP D2
  11451.   SETV D2, 0
  11452.   PUSHR D4
  11453.   SETV D3, 11462
  11454.   PUSHR D3
  11455.   PUSHR D2
  11456.   SETR D6, D4
  11457.   ADDV D6, 1
  11458.   LOADI D2, D6
  11459.   POP D3
  11460.   PUSHR D2
  11461.   PUSHR D3
  11462.   GOTO 22274
  11463.   POP D4
  11464.   SETV D2, -20
  11465.   PUSHR D4
  11466.   SETV D3, 11477
  11467.   PUSHR D3
  11468.   PUSHR D2
  11469.   SETR D6, D4
  11470.   ADDV D6, 1
  11471.   LOADI D2, D6
  11472.   POP D3
  11473.   PUSHR D2
  11474.   PUSHR D3
  11475.   SETV D2, 6
  11476.   PUSHR D2
  11477.   GOTO 22428
  11478.   POP D4
  11479.   SETV D3, 0
  11480.   SETV D2, 0
  11481.   GOTO 11808
  11482.   SETV D3, 0
  11483.   PUSHR D4
  11484.   SETV D2, 11492
  11485.   PUSHR D2
  11486.   SETR D6, D4
  11487.   ADDV D6, 1
  11488.   LOADI D2, D6
  11489.   PUSHR D2
  11490.   SETV D2, 6
  11491.   PUSHR D2
  11492.   GOTO 22422
  11493.   POP D4
  11494.   PUSHR D2
  11495.   ADDV D2, 1
  11496.   PUSHR D4
  11497.   SETV D3, 11508
  11498.   PUSHR D3
  11499.   PUSHR D2
  11500.   SETR D6, D4
  11501.   ADDV D6, 1
  11502.   LOADI D2, D6
  11503.   POP D3
  11504.   PUSHR D2
  11505.   PUSHR D3
  11506.   SETV D2, 6
  11507.   PUSHR D2
  11508.   GOTO 22428
  11509.   POP D4
  11510.   POP D2
  11511.   PUSHR D4
  11512.   SETV D2, 11520
  11513.   PUSHR D2
  11514.   SETR D6, D4
  11515.   ADDV D6, 1
  11516.   LOADI D2, D6
  11517.   PUSHR D2
  11518.   SETV D2, 6
  11519.   PUSHR D2
  11520.   GOTO 22422
  11521.   POP D4
  11522.   PUSHR D2
  11523.   SETV D2, 0
  11524.   POP D3
  11525.   COMPARER D2, D3
  11526.   SETTRUE D2
  11527.   COMPAREV D2, 0
  11528.   GOTOTRUE 11630
  11529.   SETV D2, 45
  11530.   PUSHR D4
  11531.   SETV D3, 11542
  11532.   PUSHR D3
  11533.   PUSHR D2
  11534.   SETR D6, D4
  11535.   ADDV D6, 1
  11536.   LOADI D2, D6
  11537.   POP D3
  11538.   PUSHR D2
  11539.   PUSHR D3
  11540.   SETV D2, 6
  11541.   PUSHR D2
  11542.   GOTO 22428
  11543.   POP D4
  11544.   PUSHR D4
  11545.   SETV D2, 11549
  11546.   PUSHR D2
  11547.   SETV D2, 31416
  11548.   PUSHR D2
  11549.   GOTO 21809
  11550.   POP D4
  11551.   PUSHR D2
  11552.   SETV D2, 5000
  11553.   POP D3
  11554.   DIVR D3, D2
  11555.   SETR D2, D3
  11556.   PUSHR D4
  11557.   SETV D3, 11566
  11558.   PUSHR D3
  11559.   PUSHR D2
  11560.   SETR D6, D4
  11561.   ADDV D6, 1
  11562.   LOADI D2, D6
  11563.   POP D3
  11564.   PUSHR D2
  11565.   PUSHR D3
  11566.   GOTO 22263
  11567.   POP D4
  11568.   PUSHR D4
  11569.   SETV D2, 11577
  11570.   PUSHR D2
  11571.   SETR D6, D4
  11572.   ADDV D6, 1
  11573.   LOADI D2, D6
  11574.   PUSHR D2
  11575.   SETV D2, 7
  11576.   PUSHR D2
  11577.   GOTO 22422
  11578.   POP D4
  11579.   PUSHR D4
  11580.   SETV D3, 11589
  11581.   PUSHR D3
  11582.   PUSHR D2
  11583.   SETR D6, D4
  11584.   ADDV D6, 1
  11585.   LOADI D2, D6
  11586.   POP D3
  11587.   PUSHR D2
  11588.   PUSHR D3
  11589.   GOTO 22274
  11590.   POP D4
  11591.   PUSHR D4
  11592.   SETV D2, 11598
  11593.   PUSHR D2
  11594.   SETR D6, D4
  11595.   ADDV D6, 1
  11596.   LOADI D2, D6
  11597.   PUSHR D2
  11598.   GOTO 3880
  11599.   POP D4
  11600.   PUSHR D4
  11601.   SETV D2, 11609
  11602.   PUSHR D2
  11603.   SETR D6, D4
  11604.   ADDV D6, 1
  11605.   LOADI D2, D6
  11606.   PUSHR D2
  11607.   SETV D2, 15
  11608.   PUSHR D2
  11609.   GOTO 22422
  11610.   POP D4
  11611.   PUSHR D2
  11612.   SETV D2, 2
  11613.   POP D3
  11614.   ANDR D2, D3
  11615.   PUSHR D2
  11616.   SETV D2, 0
  11617.   POP D3
  11618.   COMPARER D2, D3
  11619.   SETFALSE D2
  11620.   COMPAREV D2, 0
  11621.   GOTOTRUE 11629
  11622.   PUSHR D4
  11623.   SETV D2, 11629
  11624.   PUSHR D2
  11625.   SETR D6, D4
  11626.   ADDV D6, 1
  11627.   LOADI D2, D6
  11628.   PUSHR D2
  11629.   GOTO 4136
  11630.   POP D4
  11631.   SETV D2, 0
  11632.   SETV D2, 0
  11633.   PUSHR D4
  11634.   SETV D2, 11642
  11635.   PUSHR D2
  11636.   SETR D6, D4
  11637.   ADDV D6, 1
  11638.   LOADI D2, D6
  11639.   PUSHR D2
  11640.   SETV D2, 15
  11641.   PUSHR D2
  11642.   GOTO 22422
  11643.   POP D4
  11644.   PUSHR D2
  11645.   SETV D2, 4
  11646.   POP D3
  11647.   ANDR D2, D3
  11648.   PUSHR D2
  11649.   SETV D2, 0
  11650.   POP D3
  11651.   COMPARER D2, D3
  11652.   SETFALSE D2
  11653.   COMPAREV D2, 0
  11654.   GOTOTRUE 11679
  11655.   PUSHR D4
  11656.   SETV D2, 11662
  11657.   PUSHR D2
  11658.   SETR D6, D4
  11659.   ADDV D6, 1
  11660.   LOADI D2, D6
  11661.   PUSHR D2
  11662.   GOTO 22258
  11663.   POP D4
  11664.   PUSHR D2
  11665.   SETV D2, 0.3000
  11666.   POP D3
  11667.   ADDR D2, D3
  11668.   PUSHR D4
  11669.   SETV D3, 11678
  11670.   PUSHR D3
  11671.   PUSHR D2
  11672.   SETR D6, D4
  11673.   ADDV D6, 1
  11674.   LOADI D2, D6
  11675.   POP D3
  11676.   PUSHR D2
  11677.   PUSHR D3
  11678.   GOTO 22263
  11679.   POP D4
  11680.   GOTO 11807
  11681.   SETV D3, 0
  11682.   PUSHR D4
  11683.   SETV D2, 11691
  11684.   PUSHR D2
  11685.   SETR D6, D4
  11686.   ADDV D6, 1
  11687.   LOADI D2, D6
  11688.   PUSHR D2
  11689.   SETV D2, 15
  11690.   PUSHR D2
  11691.   GOTO 22422
  11692.   POP D4
  11693.   PUSHR D2
  11694.   SETV D2, 2
  11695.   POP D3
  11696.   ANDR D2, D3
  11697.   PUSHR D2
  11698.   SETV D2, 0
  11699.   POP D3
  11700.   COMPARER D2, D3
  11701.   SETFALSE D2
  11702.   COMPAREV D2, 0
  11703.   GOTOTRUE 11806
  11704.   PUSHR D4
  11705.   SETV D2, 11713
  11706.   PUSHR D2
  11707.   SETR D6, D4
  11708.   ADDV D6, 1
  11709.   LOADI D2, D6
  11710.   PUSHR D2
  11711.   SETV D2, 6
  11712.   PUSHR D2
  11713.   GOTO 22422
  11714.   POP D4
  11715.   SETV D3, 0
  11716.   SUBR D3, D2
  11717.   SETR D2, D3
  11718.   PUSHR D2
  11719.   SETV D2, 6
  11720.   POP D3
  11721.   ANDR D2, D3
  11722.   SETR D6, D4
  11723.   ADDV D6, 0
  11724.   STOREI D2, D6
  11725.   SETR D6, D4
  11726.   ADDV D6, 0
  11727.   LOADI D2, D6
  11728.   PUSHR D2
  11729.   SETV D2, 6
  11730.   POP D3
  11731.   COMPARER D2, D3
  11732.   SETTRUE D2
  11733.   COMPAREV D2, 0
  11734.   GOTOTRUE 11745
  11735.   PUSHR D4
  11736.   SETV D2, 11744
  11737.   PUSHR D2
  11738.   SETR D6, D4
  11739.   ADDV D6, 1
  11740.   LOADI D2, D6
  11741.   PUSHR D2
  11742.   SETV D2, 0
  11743.   PUSHR D2
  11744.   GOTO 4471
  11745.   POP D4
  11746.   GOTO 11805
  11747.   SETV D3, 0
  11748.   SETR D6, D4
  11749.   ADDV D6, 0
  11750.   LOADI D2, D6
  11751.   PUSHR D2
  11752.   SETV D2, 4
  11753.   POP D3
  11754.   COMPARER D2, D3
  11755.   SETTRUE D2
  11756.   COMPAREV D2, 0
  11757.   GOTOTRUE 11768
  11758.   PUSHR D4
  11759.   SETV D2, 11767
  11760.   PUSHR D2
  11761.   SETR D6, D4
  11762.   ADDV D6, 1
  11763.   LOADI D2, D6
  11764.   PUSHR D2
  11765.   SETV D2, 3
  11766.   PUSHR D2
  11767.   GOTO 4471
  11768.   POP D4
  11769.   GOTO 11804
  11770.   SETV D3, 0
  11771.   SETR D6, D4
  11772.   ADDV D6, 0
  11773.   LOADI D2, D6
  11774.   PUSHR D2
  11775.   SETV D2, 2
  11776.   POP D3
  11777.   COMPARER D2, D3
  11778.   SETTRUE D2
  11779.   COMPAREV D2, 0
  11780.   GOTOTRUE 11791
  11781.   PUSHR D4
  11782.   SETV D2, 11790
  11783.   PUSHR D2
  11784.   SETR D6, D4
  11785.   ADDV D6, 1
  11786.   LOADI D2, D6
  11787.   PUSHR D2
  11788.   SETV D2, 1
  11789.   PUSHR D2
  11790.   GOTO 4471
  11791.   POP D4
  11792.   GOTO 11803
  11793.   SETV D3, 0
  11794.   PUSHR D4
  11795.   SETV D2, 11803
  11796.   PUSHR D2
  11797.   SETR D6, D4
  11798.   ADDV D6, 1
  11799.   LOADI D2, D6
  11800.   PUSHR D2
  11801.   SETV D2, 2
  11802.   PUSHR D2
  11803.   GOTO 4471
  11804.   POP D4
  11805.   SETV D3, 0
  11806.   SETV D3, 0
  11807.   SETV D3, 0
  11808.   SETV D2, 0
  11809.   SETV D3, 0
  11810.   SETV D3, 0
  11811.   SETV D3, 0
  11812.   POP D3
  11813.   POP D3
  11814.   POP D3
  11815.   GOTOR D3
  11816.   SETV D2, 0
  11817.   PUSHR D2
  11818.   SETR D4, SP
  11819.   PUSHR D4
  11820.   SETV D2, 11828
  11821.   PUSHR D2
  11822.   SETR D6, D4
  11823.   ADDV D6, 1
  11824.   LOADI D2, D6
  11825.   PUSHR D2
  11826.   SETV D2, 9
  11827.   PUSHR D2
  11828.   GOTO 22422
  11829.   POP D4
  11830.   SETR D6, D4
  11831.   ADDV D6, 0
  11832.   STOREI D2, D6
  11833.   PUSHR D4
  11834.   SETV D2, 11842
  11835.   PUSHR D2
  11836.   SETR D6, D4
  11837.   ADDV D6, 1
  11838.   LOADI D2, D6
  11839.   PUSHR D2
  11840.   SETV D2, 4
  11841.   PUSHR D2
  11842.   GOTO 22422
  11843.   POP D4
  11844.   PUSHR D2
  11845.   PUSHR D4
  11846.   SETV D2, 11852
  11847.   PUSHR D2
  11848.   SETR D6, D4
  11849.   ADDV D6, 1
  11850.   LOADI D2, D6
  11851.   PUSHR D2
  11852.   GOTO 22269
  11853.   POP D4
  11854.   PUSHR D2
  11855.   SETV D2, 100
  11856.   POP D3
  11857.   DIVR D3, D2
  11858.   SETR D2, D3
  11859.   PUSHR D2
  11860.   PUSHR D4
  11861.   SETV D2, 11873
  11862.   PUSHR D2
  11863.   PUSHR D4
  11864.   SETV D2, 11870
  11865.   PUSHR D2
  11866.   SETR D6, D4
  11867.   ADDV D6, 1
  11868.   LOADI D2, D6
  11869.   PUSHR D2
  11870.   GOTO 22258
  11871.   POP D4
  11872.   PUSHR D2
  11873.   GOTO 21839
  11874.   POP D4
  11875.   POP D3
  11876.   MULTR D2, D3
  11877.   POP D3
  11878.   ADDR D2, D3
  11879.   PUSHR D4
  11880.   SETV D3, 11891
  11881.   PUSHR D3
  11882.   PUSHR D2
  11883.   SETR D6, D4
  11884.   ADDV D6, 1
  11885.   LOADI D2, D6
  11886.   POP D3
  11887.   PUSHR D2
  11888.   PUSHR D3
  11889.   SETV D2, 4
  11890.   PUSHR D2
  11891.   GOTO 22428
  11892.   POP D4
  11893.   PUSHR D4
  11894.   SETV D2, 11902
  11895.   PUSHR D2
  11896.   SETR D6, D4
  11897.   ADDV D6, 1
  11898.   LOADI D2, D6
  11899.   PUSHR D2
  11900.   SETV D2, 5
  11901.   PUSHR D2
  11902.   GOTO 22422
  11903.   POP D4
  11904.   PUSHR D2
  11905.   PUSHR D4
  11906.   SETV D2, 11912
  11907.   PUSHR D2
  11908.   SETR D6, D4
  11909.   ADDV D6, 1
  11910.   LOADI D2, D6
  11911.   PUSHR D2
  11912.   GOTO 22269
  11913.   POP D4
  11914.   PUSHR D2
  11915.   SETV D2, 100
  11916.   POP D3
  11917.   DIVR D3, D2
  11918.   SETR D2, D3
  11919.   PUSHR D2
  11920.   PUSHR D4
  11921.   SETV D2, 11933
  11922.   PUSHR D2
  11923.   PUSHR D4
  11924.   SETV D2, 11930
  11925.   PUSHR D2
  11926.   SETR D6, D4
  11927.   ADDV D6, 1
  11928.   LOADI D2, D6
  11929.   PUSHR D2
  11930.   GOTO 22258
  11931.   POP D4
  11932.   PUSHR D2
  11933.   GOTO 21830
  11934.   POP D4
  11935.   POP D3
  11936.   MULTR D2, D3
  11937.   POP D3
  11938.   ADDR D2, D3
  11939.   PUSHR D4
  11940.   SETV D3, 11951
  11941.   PUSHR D3
  11942.   PUSHR D2
  11943.   SETR D6, D4
  11944.   ADDV D6, 1
  11945.   LOADI D2, D6
  11946.   POP D3
  11947.   PUSHR D2
  11948.   PUSHR D3
  11949.   SETV D2, 5
  11950.   PUSHR D2
  11951.   GOTO 22428
  11952.   POP D4
  11953.   SETR D6, D4
  11954.   ADDV D6, 0
  11955.   LOADI D2, D6
  11956.   PUSHR D2
  11957.   SETV D2, 0
  11958.   POP D3
  11959.   COMPARER D2, D3
  11960.   SETTRUE D2
  11961.   COMPAREV D2, 0
  11962.   GOTOTRUE 12002
  11963.   PUSHR D4
  11964.   SETV D2, 11972
  11965.   PUSHR D2
  11966.   SETR D6, D4
  11967.   ADDV D6, 1
  11968.   LOADI D2, D6
  11969.   PUSHR D2
  11970.   SETV D2, 5
  11971.   PUSHR D2
  11972.   GOTO 22422
  11973.   POP D4
  11974.   PUSHR D2
  11975.   PUSHR D4
  11976.   SETV D2, 11984
  11977.   PUSHR D2
  11978.   SETR D6, D4
  11979.   ADDV D6, 1
  11980.   LOADI D2, D6
  11981.   PUSHR D2
  11982.   SETV D2, 6
  11983.   PUSHR D2
  11984.   GOTO 22422
  11985.   POP D4
  11986.   POP D3
  11987.   SUBR D3, D2
  11988.   SETR D2, D3
  11989.   PUSHR D4
  11990.   SETV D3, 12001
  11991.   PUSHR D3
  11992.   PUSHR D2
  11993.   SETR D6, D4
  11994.   ADDV D6, 1
  11995.   LOADI D2, D6
  11996.   POP D3
  11997.   PUSHR D2
  11998.   PUSHR D3
  11999.   SETV D2, 5
  12000.   PUSHR D2
  12001.   GOTO 22428
  12002.   POP D4
  12003.   GOTO 12547
  12004.   SETV D3, 0
  12005.   SETR D6, D4
  12006.   ADDV D6, 0
  12007.   LOADI D2, D6
  12008.   PUSHR D2
  12009.   SETV D2, 1
  12010.   POP D3
  12011.   COMPARER D2, D3
  12012.   SETTRUE D2
  12013. &nbs