API tools faq
paste
Advertisement
ZoriaRPG

Rebonakku Global ZASM

ZoriaRPG
Sep 9th, 2017
480
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ASM (NASM) 306.14 KB | None | 0 0
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.   COMPAREV D2, 0
  12014.   GOTOTRUE 12053
  12015.   PUSHR D4
  12016.   SETV D2, 12024
  12017.   PUSHR D2
  12018.   SETR D6, D4
  12019.   ADDV D6, 1
  12020.   LOADI D2, D6
  12021.   PUSHR D2
  12022.   SETV D2, 5
  12023.   PUSHR D2
  12024.   GOTO 22422
  12025.   POP D4
  12026.   PUSHR D2
  12027.   PUSHR D4
  12028.   SETV D2, 12036
  12029.   PUSHR D2
  12030.   SETR D6, D4
  12031.   ADDV D6, 1
  12032.   LOADI D2, D6
  12033.   PUSHR D2
  12034.   SETV D2, 6
  12035.   PUSHR D2
  12036.   GOTO 22422
  12037.   POP D4
  12038.   POP D3
  12039.   ADDR D2, D3
  12040.   PUSHR D4
  12041.   SETV D3, 12052
  12042.   PUSHR D3
  12043.   PUSHR D2
  12044.   SETR D6, D4
  12045.   ADDV D6, 1
  12046.   LOADI D2, D6
  12047.   POP D3
  12048.   PUSHR D2
  12049.   PUSHR D3
  12050.   SETV D2, 5
  12051.   PUSHR D2
  12052.   GOTO 22428
  12053.   POP D4
  12054.   GOTO 12546
  12055.   SETV D3, 0
  12056.   SETR D6, D4
  12057.   ADDV D6, 0
  12058.   LOADI D2, D6
  12059.   PUSHR D2
  12060.   SETV D2, 2
  12061.   POP D3
  12062.   COMPARER D2, D3
  12063.   SETTRUE D2
  12064.   COMPAREV D2, 0
  12065.   GOTOTRUE 12105
  12066.   PUSHR D4
  12067.   SETV D2, 12075
  12068.   PUSHR D2
  12069.   SETR D6, D4
  12070.   ADDV D6, 1
  12071.   LOADI D2, D6
  12072.   PUSHR D2
  12073.   SETV D2, 4
  12074.   PUSHR D2
  12075.   GOTO 22422
  12076.   POP D4
  12077.   PUSHR D2
  12078.   PUSHR D4
  12079.   SETV D2, 12087
  12080.   PUSHR D2
  12081.   SETR D6, D4
  12082.   ADDV D6, 1
  12083.   LOADI D2, D6
  12084.   PUSHR D2
  12085.   SETV D2, 6
  12086.   PUSHR D2
  12087.   GOTO 22422
  12088.   POP D4
  12089.   POP D3
  12090.   SUBR D3, D2
  12091.   SETR D2, D3
  12092.   PUSHR D4
  12093.   SETV D3, 12104
  12094.   PUSHR D3
  12095.   PUSHR D2
  12096.   SETR D6, D4
  12097.   ADDV D6, 1
  12098.   LOADI D2, D6
  12099.   POP D3
  12100.   PUSHR D2
  12101.   PUSHR D3
  12102.   SETV D2, 4
  12103.   PUSHR D2
  12104.   GOTO 22428
  12105.   POP D4
  12106.   GOTO 12545
  12107.   SETV D3, 0
  12108.   SETR D6, D4
  12109.   ADDV D6, 0
  12110.   LOADI D2, D6
  12111.   PUSHR D2
  12112.   SETV D2, 3
  12113.   POP D3
  12114.   COMPARER D2, D3
  12115.   SETTRUE D2
  12116.   COMPAREV D2, 0
  12117.   GOTOTRUE 12156
  12118.   PUSHR D4
  12119.   SETV D2, 12127
  12120.   PUSHR D2
  12121.   SETR D6, D4
  12122.   ADDV D6, 1
  12123.   LOADI D2, D6
  12124.   PUSHR D2
  12125.   SETV D2, 4
  12126.   PUSHR D2
  12127.   GOTO 22422
  12128.   POP D4
  12129.   PUSHR D2
  12130.   PUSHR D4
  12131.   SETV D2, 12139
  12132.   PUSHR D2
  12133.   SETR D6, D4
  12134.   ADDV D6, 1
  12135.   LOADI D2, D6
  12136.   PUSHR D2
  12137.   SETV D2, 6
  12138.   PUSHR D2
  12139.   GOTO 22422
  12140.   POP D4
  12141.   POP D3
  12142.   ADDR D2, D3
  12143.   PUSHR D4
  12144.   SETV D3, 12155
  12145.   PUSHR D3
  12146.   PUSHR D2
  12147.   SETR D6, D4
  12148.   ADDV D6, 1
  12149.   LOADI D2, D6
  12150.   POP D3
  12151.   PUSHR D2
  12152.   PUSHR D3
  12153.   SETV D2, 4
  12154.   PUSHR D2
  12155.   GOTO 22428
  12156.   POP D4
  12157.   GOTO 12544
  12158.   SETV D3, 0
  12159.   SETR D6, D4
  12160.   ADDV D6, 0
  12161.   LOADI D2, D6
  12162.   PUSHR D2
  12163.   SETV D2, 4
  12164.   POP D3
  12165.   COMPARER D2, D3
  12166.   SETTRUE D2
  12167.   COMPAREV D2, 0
  12168.   GOTOTRUE 12256
  12169.   PUSHR D4
  12170.   SETV D2, 12178
  12171.   PUSHR D2
  12172.   SETR D6, D4
  12173.   ADDV D6, 1
  12174.   LOADI D2, D6
  12175.   PUSHR D2
  12176.   SETV D2, 4
  12177.   PUSHR D2
  12178.   GOTO 22422
  12179.   POP D4
  12180.   PUSHR D2
  12181.   PUSHR D4
  12182.   SETV D2, 12190
  12183.   PUSHR D2
  12184.   SETR D6, D4
  12185.   ADDV D6, 1
  12186.   LOADI D2, D6
  12187.   PUSHR D2
  12188.   SETV D2, 6
  12189.   PUSHR D2
  12190.   GOTO 22422
  12191.   POP D4
  12192.   PUSHR D2
  12193.   SETV D2, 0.7071
  12194.   POP D3
  12195.   MULTR D2, D3
  12196.   POP D3
  12197.   SUBR D3, D2
  12198.   SETR D2, D3
  12199.   PUSHR D4
  12200.   SETV D3, 12211
  12201.   PUSHR D3
  12202.   PUSHR D2
  12203.   SETR D6, D4
  12204.   ADDV D6, 1
  12205.   LOADI D2, D6
  12206.   POP D3
  12207.   PUSHR D2
  12208.   PUSHR D3
  12209.   SETV D2, 4
  12210.   PUSHR D2
  12211.   GOTO 22428
  12212.   POP D4
  12213.   PUSHR D4
  12214.   SETV D2, 12222
  12215.   PUSHR D2
  12216.   SETR D6, D4
  12217.   ADDV D6, 1
  12218.   LOADI D2, D6
  12219.   PUSHR D2
  12220.   SETV D2, 5
  12221.   PUSHR D2
  12222.   GOTO 22422
  12223.   POP D4
  12224.   PUSHR D2
  12225.   PUSHR D4
  12226.   SETV D2, 12234
  12227.   PUSHR D2
  12228.   SETR D6, D4
  12229.   ADDV D6, 1
  12230.   LOADI D2, D6
  12231.   PUSHR D2
  12232.   SETV D2, 6
  12233.   PUSHR D2
  12234.   GOTO 22422
  12235.   POP D4
  12236.   PUSHR D2
  12237.   SETV D2, 0.7071
  12238.   POP D3
  12239.   MULTR D2, D3
  12240.   POP D3
  12241.   SUBR D3, D2
  12242.   SETR D2, D3
  12243.   PUSHR D4
  12244.   SETV D3, 12255
  12245.   PUSHR D3
  12246.   PUSHR D2
  12247.   SETR D6, D4
  12248.   ADDV D6, 1
  12249.   LOADI D2, D6
  12250.   POP D3
  12251.   PUSHR D2
  12252.   PUSHR D3
  12253.   SETV D2, 5
  12254.   PUSHR D2
  12255.   GOTO 22428
  12256.   POP D4
  12257.   GOTO 12543
  12258.   SETV D3, 0
  12259.   SETR D6, D4
  12260.   ADDV D6, 0
  12261.   LOADI D2, D6
  12262.   PUSHR D2
  12263.   SETV D2, 5
  12264.   POP D3
  12265.   COMPARER D2, D3
  12266.   SETTRUE D2
  12267.   COMPAREV D2, 0
  12268.   GOTOTRUE 12355
  12269.   PUSHR D4
  12270.   SETV D2, 12278
  12271.   PUSHR D2
  12272.   SETR D6, D4
  12273.   ADDV D6, 1
  12274.   LOADI D2, D6
  12275.   PUSHR D2
  12276.   SETV D2, 4
  12277.   PUSHR D2
  12278.   GOTO 22422
  12279.   POP D4
  12280.   PUSHR D2
  12281.   PUSHR D4
  12282.   SETV D2, 12290
  12283.   PUSHR D2
  12284.   SETR D6, D4
  12285.   ADDV D6, 1
  12286.   LOADI D2, D6
  12287.   PUSHR D2
  12288.   SETV D2, 6
  12289.   PUSHR D2
  12290.   GOTO 22422
  12291.   POP D4
  12292.   PUSHR D2
  12293.   SETV D2, 0.7071
  12294.   POP D3
  12295.   MULTR D2, D3
  12296.   POP D3
  12297.   ADDR D2, D3
  12298.   PUSHR D4
  12299.   SETV D3, 12310
  12300.   PUSHR D3
  12301.   PUSHR D2
  12302.   SETR D6, D4
  12303.   ADDV D6, 1
  12304.   LOADI D2, D6
  12305.   POP D3
  12306.   PUSHR D2
  12307.   PUSHR D3
  12308.   SETV D2, 4
  12309.   PUSHR D2
  12310.   GOTO 22428
  12311.   POP D4
  12312.   PUSHR D4
  12313.   SETV D2, 12321
  12314.   PUSHR D2
  12315.   SETR D6, D4
  12316.   ADDV D6, 1
  12317.   LOADI D2, D6
  12318.   PUSHR D2
  12319.   SETV D2, 5
  12320.   PUSHR D2
  12321.   GOTO 22422
  12322.   POP D4
  12323.   PUSHR D2
  12324.   PUSHR D4
  12325.   SETV D2, 12333
  12326.   PUSHR D2
  12327.   SETR D6, D4
  12328.   ADDV D6, 1
  12329.   LOADI D2, D6
  12330.   PUSHR D2
  12331.   SETV D2, 6
  12332.   PUSHR D2
  12333.   GOTO 22422
  12334.   POP D4
  12335.   PUSHR D2
  12336.   SETV D2, 0.7071
  12337.   POP D3
  12338.   MULTR D2, D3
  12339.   POP D3
  12340.   SUBR D3, D2
  12341.   SETR D2, D3
  12342.   PUSHR D4
  12343.   SETV D3, 12354
  12344.   PUSHR D3
  12345.   PUSHR D2
  12346.   SETR D6, D4
  12347.   ADDV D6, 1
  12348.   LOADI D2, D6
  12349.   POP D3
  12350.   PUSHR D2
  12351.   PUSHR D3
  12352.   SETV D2, 5
  12353.   PUSHR D2
  12354.   GOTO 22428
  12355.   POP D4
  12356.   GOTO 12542
  12357.   SETV D3, 0
  12358.   SETR D6, D4
  12359.   ADDV D6, 0
  12360.   LOADI D2, D6
  12361.   PUSHR D2
  12362.   SETV D2, 6
  12363.   POP D3
  12364.   COMPARER D2, D3
  12365.   SETTRUE D2
  12366.   COMPAREV D2, 0
  12367.   GOTOTRUE 12454
  12368.   PUSHR D4
  12369.   SETV D2, 12377
  12370.   PUSHR D2
  12371.   SETR D6, D4
  12372.   ADDV D6, 1
  12373.   LOADI D2, D6
  12374.   PUSHR D2
  12375.   SETV D2, 4
  12376.   PUSHR D2
  12377.   GOTO 22422
  12378.   POP D4
  12379.   PUSHR D2
  12380.   PUSHR D4
  12381.   SETV D2, 12389
  12382.   PUSHR D2
  12383.   SETR D6, D4
  12384.   ADDV D6, 1
  12385.   LOADI D2, D6
  12386.   PUSHR D2
  12387.   SETV D2, 6
  12388.   PUSHR D2
  12389.   GOTO 22422
  12390.   POP D4
  12391.   PUSHR D2
  12392.   SETV D2, 0.7071
  12393.   POP D3
  12394.   MULTR D2, D3
  12395.   POP D3
  12396.   SUBR D3, D2
  12397.   SETR D2, D3
  12398.   PUSHR D4
  12399.   SETV D3, 12410
  12400.   PUSHR D3
  12401.   PUSHR D2
  12402.   SETR D6, D4
  12403.   ADDV D6, 1
  12404.   LOADI D2, D6
  12405.   POP D3
  12406.   PUSHR D2
  12407.   PUSHR D3
  12408.   SETV D2, 4
  12409.   PUSHR D2
  12410.   GOTO 22428
  12411.   POP D4
  12412.   PUSHR D4
  12413.   SETV D2, 12421
  12414.   PUSHR D2
  12415.   SETR D6, D4
  12416.   ADDV D6, 1
  12417.   LOADI D2, D6
  12418.   PUSHR D2
  12419.   SETV D2, 5
  12420.   PUSHR D2
  12421.   GOTO 22422
  12422.   POP D4
  12423.   PUSHR D2
  12424.   PUSHR D4
  12425.   SETV D2, 12433
  12426.   PUSHR D2
  12427.   SETR D6, D4
  12428.   ADDV D6, 1
  12429.   LOADI D2, D6
  12430.   PUSHR D2
  12431.   SETV D2, 6
  12432.   PUSHR D2
  12433.   GOTO 22422
  12434.   POP D4
  12435.   PUSHR D2
  12436.   SETV D2, 0.7071
  12437.   POP D3
  12438.   MULTR D2, D3
  12439.   POP D3
  12440.   ADDR D2, D3
  12441.   PUSHR D4
  12442.   SETV D3, 12453
  12443.   PUSHR D3
  12444.   PUSHR D2
  12445.   SETR D6, D4
  12446.   ADDV D6, 1
  12447.   LOADI D2, D6
  12448.   POP D3
  12449.   PUSHR D2
  12450.   PUSHR D3
  12451.   SETV D2, 5
  12452.   PUSHR D2
  12453.   GOTO 22428
  12454.   POP D4
  12455.   GOTO 12541
  12456.   SETV D3, 0
  12457.   PUSHR D4
  12458.   SETV D2, 12466
  12459.   PUSHR D2
  12460.   SETR D6, D4
  12461.   ADDV D6, 1
  12462.   LOADI D2, D6
  12463.   PUSHR D2
  12464.   SETV D2, 4
  12465.   PUSHR D2
  12466.   GOTO 22422
  12467.   POP D4
  12468.   PUSHR D2
  12469.   PUSHR D4
  12470.   SETV D2, 12478
  12471.   PUSHR D2
  12472.   SETR D6, D4
  12473.   ADDV D6, 1
  12474.   LOADI D2, D6
  12475.   PUSHR D2
  12476.   SETV D2, 6
  12477.   PUSHR D2
  12478.   GOTO 22422
  12479.   POP D4
  12480.   PUSHR D2
  12481.   SETV D2, 0.7071
  12482.   POP D3
  12483.   MULTR D2, D3
  12484.   POP D3
  12485.   ADDR D2, D3
  12486.   PUSHR D4
  12487.   SETV D3, 12498
  12488.   PUSHR D3
  12489.   PUSHR D2
  12490.   SETR D6, D4
  12491.   ADDV D6, 1
  12492.   LOADI D2, D6
  12493.   POP D3
  12494.   PUSHR D2
  12495.   PUSHR D3
  12496.   SETV D2, 4
  12497.   PUSHR D2
  12498.   GOTO 22428
  12499.   POP D4
  12500.   PUSHR D4
  12501.   SETV D2, 12509
  12502.   PUSHR D2
  12503.   SETR D6, D4
  12504.   ADDV D6, 1
  12505.   LOADI D2, D6
  12506.   PUSHR D2
  12507.   SETV D2, 5
  12508.   PUSHR D2
  12509.   GOTO 22422
  12510.   POP D4
  12511.   PUSHR D2
  12512.   PUSHR D4
  12513.   SETV D2, 12521
  12514.   PUSHR D2
  12515.   SETR D6, D4
  12516.   ADDV D6, 1
  12517.   LOADI D2, D6
  12518.   PUSHR D2
  12519.   SETV D2, 6
  12520.   PUSHR D2
  12521.   GOTO 22422
  12522.   POP D4
  12523.   PUSHR D2
  12524.   SETV D2, 0.7071
  12525.   POP D3
  12526.   MULTR D2, D3
  12527.   POP D3
  12528.   ADDR D2, D3
  12529.   PUSHR D4
  12530.   SETV D3, 12541
  12531.   PUSHR D3
  12532.   PUSHR D2
  12533.   SETR D6, D4
  12534.   ADDV D6, 1
  12535.   LOADI D2, D6
  12536.   POP D3
  12537.   PUSHR D2
  12538.   PUSHR D3
  12539.   SETV D2, 5
  12540.   PUSHR D2
  12541.   GOTO 22428
  12542.   POP D4
  12543.   SETV D3, 0
  12544.   SETV D3, 0
  12545.   SETV D3, 0
  12546.   SETV D3, 0
  12547.   SETV D3, 0
  12548.   SETV D3, 0
  12549.   SETV D3, 0
  12550.   PUSHR D4
  12551.   SETV D2, 12559
  12552.   PUSHR D2
  12553.   SETR D6, D4
  12554.   ADDV D6, 1
  12555.   LOADI D2, D6
  12556.   PUSHR D2
  12557.   SETV D2, 4
  12558.   PUSHR D2
  12559.   GOTO 22422
  12560.   POP D4
  12561.   PUSHR D4
  12562.   SETV D3, 12571
  12563.   PUSHR D3
  12564.   PUSHR D2
  12565.   SETR D6, D4
  12566.   ADDV D6, 1
  12567.   LOADI D2, D6
  12568.   POP D3
  12569.   PUSHR D2
  12570.   PUSHR D3
  12571.   GOTO 22213
  12572.   POP D4
  12573.   PUSHR D4
  12574.   SETV D2, 12582
  12575.   PUSHR D2
  12576.   SETR D6, D4
  12577.   ADDV D6, 1
  12578.   LOADI D2, D6
  12579.   PUSHR D2
  12580.   SETV D2, 5
  12581.   PUSHR D2
  12582.   GOTO 22422
  12583.   POP D4
  12584.   PUSHR D4
  12585.   SETV D3, 12594
  12586.   PUSHR D3
  12587.   PUSHR D2
  12588.   SETR D6, D4
  12589.   ADDV D6, 1
  12590.   LOADI D2, D6
  12591.   POP D3
  12592.   PUSHR D2
  12593.   PUSHR D3
  12594.   GOTO 22224
  12595.   POP D4
  12596.   PUSHR D4
  12597.   SETV D2, 12605
  12598.   PUSHR D2
  12599.   SETR D6, D4
  12600.   ADDV D6, 1
  12601.   LOADI D2, D6
  12602.   PUSHR D2
  12603.   SETV D2, 6
  12604.   PUSHR D2
  12605.   GOTO 22422
  12606.   POP D4
  12607.   PUSHR D2
  12608.   PUSHR D4
  12609.   SETV D2, 12617
  12610.   PUSHR D2
  12611.   SETR D6, D4
  12612.   ADDV D6, 1
  12613.   LOADI D2, D6
  12614.   PUSHR D2
  12615.   SETV D2, 10
  12616.   PUSHR D2
  12617.   GOTO 22422
  12618.   POP D4
  12619.   POP D3
  12620.   ADDR D2, D3
  12621.   PUSHR D4
  12622.   SETV D3, 12633
  12623.   PUSHR D3
  12624.   PUSHR D2
  12625.   SETR D6, D4
  12626.   ADDV D6, 1
  12627.   LOADI D2, D6
  12628.   POP D3
  12629.   PUSHR D2
  12630.   PUSHR D3
  12631.   SETV D2, 6
  12632.   PUSHR D2
  12633.   GOTO 22428
  12634.   POP D4
  12635.   SETV D3, 0
  12636.   POP D3
  12637.   POP D3
  12638.   POP D3
  12639.   GOTOR D3
  12640.   SETV D2, 0
  12641.   PUSHR D2
  12642.   SETR D4, SP
  12643.   SETV D2, 0
  12644.   PUSHR D4
  12645.   SETV D3, 12654
  12646.   PUSHR D3
  12647.   PUSHR D2
  12648.   SETR D6, D4
  12649.   ADDV D6, 1
  12650.   LOADI D2, D6
  12651.   POP D3
  12652.   PUSHR D2
  12653.   PUSHR D3
  12654.   GOTO 22241
  12655.   POP D4
  12656.   PUSHR D4
  12657.   SETV D2, 12665
  12658.   PUSHR D2
  12659.   SETR D6, D4
  12660.   ADDV D6, 1
  12661.   LOADI D2, D6
  12662.   PUSHR D2
  12663.   SETV D2, 6
  12664.   PUSHR D2
  12665.   GOTO 22422
  12666.   POP D4
  12667.   PUSHR D2
  12668.   SETV D2, 0
  12669.   POP D3
  12670.   COMPARER D2, D3
  12671.   SETTRUE D2
  12672.   PUSHR D2
  12673.   PUSHR D4
  12674.   SETV D2, 12682
  12675.   PUSHR D2
  12676.   SETR D6, D4
  12677.   ADDV D6, 1
  12678.   LOADI D2, D6
  12679.   PUSHR D2
  12680.   SETV D2, 9
  12681.   PUSHR D2
  12682.   GOTO 22422
  12683.   POP D4
  12684.   PUSHR D2
  12685.   SETV D2, 0
  12686.   POP D3
  12687.   COMPARER D2, D3
  12688.   SETFALSE D2
  12689.   POP D3
  12690.   COMPAREV D2, 0
  12691.   SETFALSE D2
  12692.   COMPAREV D3, 0
  12693.   SETFALSE D3
  12694.   ADDR D2, D3
  12695.   COMPAREV D2, 0.0002
  12696.   SETMORE D2
  12697.   COMPAREV D2, 0
  12698.   GOTOTRUE 12737
  12699.   PUSHR D4
  12700.   SETV D2, 12708
  12701.   PUSHR D2
  12702.   SETR D6, D4
  12703.   ADDV D6, 1
  12704.   LOADI D2, D6
  12705.   PUSHR D2
  12706.   SETV D2, 9
  12707.   PUSHR D2
  12708.   GOTO 22422
  12709.   POP D4
  12710.   PUSHR D4
  12711.   SETV D3, 12722
  12712.   PUSHR D3
  12713.   PUSHR D2
  12714.   SETR D6, D4
  12715.   ADDV D6, 1
  12716.   LOADI D2, D6
  12717.   POP D3
  12718.   PUSHR D2
  12719.   PUSHR D3
  12720.   SETV D2, 6
  12721.   PUSHR D2
  12722.   GOTO 22428
  12723.   POP D4
  12724.   SETV D2, 0
  12725.   PUSHR D4
  12726.   SETV D3, 12737
  12727.   PUSHR D3
  12728.   PUSHR D2
  12729.   SETR D6, D4
  12730.   ADDV D6, 1
  12731.   LOADI D2, D6
  12732.   POP D3
  12733.   PUSHR D2
  12734.   PUSHR D3
  12735.   SETV D2, 9
  12736.   PUSHR D2
  12737.   GOTO 22428
  12738.   POP D4
  12739.   SETV D2, 0
  12740.   PUSHR D4
  12741.   SETV D2, 12771
  12742.   PUSHR D2
  12743.   PUSHR D4
  12744.   SETV D2, 12752
  12745.   PUSHR D2
  12746.   SETR D6, D4
  12747.   ADDV D6, 1
  12748.   LOADI D2, D6
  12749.   PUSHR D2
  12750.   SETV D2, 7
  12751.   PUSHR D2
  12752.   GOTO 22422
  12753.   POP D4
  12754.   PUSHR D2
  12755.   PUSHR D4
  12756.   SETV D2, 12764
  12757.   PUSHR D2
  12758.   SETR D6, D4
  12759.   ADDV D6, 1
  12760.   LOADI D2, D6
  12761.   PUSHR D2
  12762.   SETV D2, 6
  12763.   PUSHR D2
  12764.   GOTO 22422
  12765.   POP D4
  12766.   POP D3
  12767.   ADDR D2, D3
  12768.   PUSHR D2
  12769.   SETV D2, 0
  12770.   PUSHR D2
  12771.   GOTO 21849
  12772.   POP D4
  12773.   PUSHR D4
  12774.   SETV D3, 12785
  12775.   PUSHR D3
  12776.   PUSHR D2
  12777.   SETR D6, D4
  12778.   ADDV D6, 1
  12779.   LOADI D2, D6
  12780.   POP D3
  12781.   PUSHR D2
  12782.   PUSHR D3
  12783.   SETV D2, 7
  12784.   PUSHR D2
  12785.   GOTO 22428
  12786.   POP D4
  12787.   PUSHR D4
  12788.   SETV D2, 12796
  12789.   PUSHR D2
  12790.   SETR D6, D4
  12791.   ADDV D6, 1
  12792.   LOADI D2, D6
  12793.   PUSHR D2
  12794.   SETV D2, 7
  12795.   PUSHR D2
  12796.   GOTO 22422
  12797.   POP D4
  12798.   PUSHR D4
  12799.   SETV D3, 12808
  12800.   PUSHR D3
  12801.   PUSHR D2
  12802.   SETR D6, D4
  12803.   ADDV D6, 1
  12804.   LOADI D2, D6
  12805.   POP D3
  12806.   PUSHR D2
  12807.   PUSHR D3
  12808.   GOTO 22235
  12809.   POP D4
  12810.   PUSHR D4
  12811.   SETV D2, 12819
  12812.   PUSHR D2
  12813.   SETR D6, D4
  12814.   ADDV D6, 1
  12815.   LOADI D2, D6
  12816.   PUSHR D2
  12817.   SETV D2, 7
  12818.   PUSHR D2
  12819.   GOTO 22422
  12820.   POP D4
  12821.   PUSHR D2
  12822.   SETV D2, 0
  12823.   POP D3
  12824.   COMPARER D3, D2
  12825.   SETLESS D2
  12826.   COMPAREV D2, 0
  12827.   SETTRUE D2
  12828.   COMPAREV D2, 0
  12829.   GOTOTRUE 12870
  12830.   PUSHR D4
  12831.   SETV D2, 12855
  12832.   PUSHR D2
  12833.   PUSHR D4
  12834.   SETV D2, 12842
  12835.   PUSHR D2
  12836.   SETR D6, D4
  12837.   ADDV D6, 1
  12838.   LOADI D2, D6
  12839.   PUSHR D2
  12840.   SETV D2, 6
  12841.   PUSHR D2
  12842.   GOTO 22422
  12843.   POP D4
  12844.   PUSHR D2
  12845.   SETV D2, 0.1600
  12846.   POP D3
  12847.   SUBR D3, D2
  12848.   SETR D2, D3
  12849.   PUSHR D2
  12850.   SETV D2, 3.2000
  12851.   SETV D3, 0
  12852.   SUBR D3, D2
  12853.   SETR D2, D3
  12854.   PUSHR D2
  12855.   GOTO 21849
  12856.   POP D4
  12857.   PUSHR D4
  12858.   SETV D3, 12869
  12859.   PUSHR D3
  12860.   PUSHR D2
  12861.   SETR D6, D4
  12862.   ADDV D6, 1
  12863.   LOADI D2, D6
  12864.   POP D3
  12865.   PUSHR D2
  12866.   PUSHR D3
  12867.   SETV D2, 6
  12868.   PUSHR D2
  12869.   GOTO 22428
  12870.   POP D4
  12871.   GOTO 13066
  12872.   SETV D3, 0
  12873.   SETV D2, 0
  12874.   SETR D6, D4
  12875.   ADDV D6, 0
  12876.   STOREI D2, D6
  12877.   PUSHR D4
  12878.   SETV D2, 12886
  12879.   PUSHR D2
  12880.   SETR D6, D4
  12881.   ADDV D6, 1
  12882.   LOADI D2, D6
  12883.   PUSHR D2
  12884.   SETV D2, 10
  12885.   PUSHR D2
  12886.   GOTO 22422
  12887.   POP D4
  12888.   PUSHR D2
  12889.   SETV D2, 2
  12890.   POP D3
  12891.   ANDR D2, D3
  12892.   PUSHR D2
  12893.   SETV D2, 0
  12894.   POP D3
  12895.   COMPARER D2, D3
  12896.   SETFALSE D2
  12897.   COMPAREV D2, 0
  12898.   GOTOTRUE 12979
  12899.   PUSHR D4
  12900.   SETV D2, 12908
  12901.   PUSHR D2
  12902.   SETR D6, D4
  12903.   ADDV D6, 1
  12904.   LOADI D2, D6
  12905.   PUSHR D2
  12906.   SETV D2, 6
  12907.   PUSHR D2
  12908.   GOTO 22422
  12909.   POP D4
  12910.   PUSHR D2
  12911.   SETV D2, -0.5000
  12912.   POP D3
  12913.   COMPARER D3, D2
  12914.   SETMORE D2
  12915.   COMPAREV D2, 0
  12916.   SETTRUE D2
  12917.   COMPAREV D2, 0
  12918.   GOTOTRUE 12972
  12919.   PUSHR D4
  12920.   SETV D2, 12928
  12921.   PUSHR D2
  12922.   SETR D6, D4
  12923.   ADDV D6, 1
  12924.   LOADI D2, D6
  12925.   PUSHR D2
  12926.   SETV D2, 6
  12927.   PUSHR D2
  12928.   GOTO 22422
  12929.   POP D4
  12930.   PUSHR D2
  12931.   SETV D2, -0.5000
  12932.   POP D3
  12933.   MULTR D2, D3
  12934.   PUSHR D4
  12935.   SETV D3, 12946
  12936.   PUSHR D3
  12937.   PUSHR D2
  12938.   SETR D6, D4
  12939.   ADDV D6, 1
  12940.   LOADI D2, D6
  12941.   POP D3
  12942.   PUSHR D2
  12943.   PUSHR D3
  12944.   SETV D2, 6
  12945.   PUSHR D2
  12946.   GOTO 22428
  12947.   POP D4
  12948.   PUSHR D4
  12949.   SETV D2, 12955
  12950.   PUSHR D2
  12951.   SETR D6, D4
  12952.   ADDV D6, 1
  12953.   LOADI D2, D6
  12954.   PUSHR D2
  12955.   GOTO 22269
  12956.   POP D4
  12957.   PUSHR D2
  12958.   SETV D2, 0.7500
  12959.   POP D3
  12960.   MULTR D2, D3
  12961.   PUSHR D4
  12962.   SETV D3, 12971
  12963.   PUSHR D3
  12964.   PUSHR D2
  12965.   SETR D6, D4
  12966.   ADDV D6, 1
  12967.   LOADI D2, D6
  12968.   POP D3
  12969.   PUSHR D2
  12970.   PUSHR D3
  12971.   GOTO 22274
  12972.   POP D4
  12973.   GOTO 12977
  12974.   SETV D3, 0
  12975.   SETV D2, 0.0001
  12976.   SETR D6, D4
  12977.   ADDV D6, 0
  12978.   STOREI D2, D6
  12979.   SETV D3, 0
  12980.   GOTO 12984
  12981.   SETV D3, 0
  12982.   SETV D2, 0.0001
  12983.   SETR D6, D4
  12984.   ADDV D6, 0
  12985.   STOREI D2, D6
  12986.   SETV D3, 0
  12987.   SETR D6, D4
  12988.   ADDV D6, 0
  12989.   LOADI D2, D6
  12990.   COMPAREV D2, 0
  12991.   GOTOTRUE 13065
  12992.   PUSHR D4
  12993.   SETV D2, 13001
  12994.   PUSHR D2
  12995.   SETR D6, D4
  12996.   ADDV D6, 1
  12997.   LOADI D2, D6
  12998.   PUSHR D2
  12999.   SETV D2, 10
  13000.   PUSHR D2
  13001.   GOTO 22422
  13002.   POP D4
  13003.   PUSHR D2
  13004.   SETV D2, 1
  13005.   POP D3
  13006.   ANDR D2, D3
  13007.   PUSHR D2
  13008.   SETV D2, 0
  13009.   POP D3
  13010.   COMPARER D2, D3
  13011.   SETFALSE D2
  13012.   COMPAREV D2, 0
  13013.   GOTOTRUE 13035
  13014.   SETV D2, 0
  13015.   PUSHR D4
  13016.   SETV D3, 13025
  13017.   PUSHR D3
  13018.   PUSHR D2
  13019.   SETR D6, D4
  13020.   ADDV D6, 1
  13021.   LOADI D2, D6
  13022.   POP D3
  13023.   PUSHR D2
  13024.   PUSHR D3
  13025.   GOTO 22235
  13026.   POP D4
  13027.   PUSHR D4
  13028.   SETV D2, 13034
  13029.   PUSHR D2
  13030.   SETR D6, D4
  13031.   ADDV D6, 1
  13032.   LOADI D2, D6
  13033.   PUSHR D2
  13034.   GOTO 4633
  13035.   POP D4
  13036.   GOTO 13064
  13037.   SETV D3, 0
  13038.   SETV D2, 0
  13039.   PUSHR D4
  13040.   SETV D3, 13051
  13041.   PUSHR D3
  13042.   PUSHR D2
  13043.   SETR D6, D4
  13044.   ADDV D6, 1
  13045.   LOADI D2, D6
  13046.   POP D3
  13047.   PUSHR D2
  13048.   PUSHR D3
  13049.   SETV D2, 8
  13050.   PUSHR D2
  13051.   GOTO 22428
  13052.   POP D4
  13053.   SETV D2, 0
  13054.   PUSHR D4
  13055.   SETV D3, 13064
  13056.   PUSHR D3
  13057.   PUSHR D2
  13058.   SETR D6, D4
  13059.   ADDV D6, 1
  13060.   LOADI D2, D6
  13061.   POP D3
  13062.   PUSHR D2
  13063.   PUSHR D3
  13064.   GOTO 22274
  13065.   POP D4
  13066.   SETV D3, 0
  13067.   SETV D2, 0
  13068.   SETV D3, 0
  13069.   SETV D3, 0
  13070.   POP D3
  13071.   POP D3
  13072.   POP D3
  13073.   GOTOR D3
  13074.   SETV D2, 0
  13075.   PUSHR D2
  13076.   SETR D4, SP
  13077.   SETV D2, 0
  13078.   PUSHR D4
  13079.   SETV D3, 13088
  13080.   PUSHR D3
  13081.   PUSHR D2
  13082.   SETR D6, D4
  13083.   ADDV D6, 1
  13084.   LOADI D2, D6
  13085.   POP D3
  13086.   PUSHR D2
  13087.   PUSHR D3
  13088.   GOTO 22241
  13089.   POP D4
  13090.   PUSHR D4
  13091.   SETV D2, 13099
  13092.   PUSHR D2
  13093.   SETR D6, D4
  13094.   ADDV D6, 1
  13095.   LOADI D2, D6
  13096.   PUSHR D2
  13097.   SETV D2, 7
  13098.   PUSHR D2
  13099.   GOTO 22422
  13100.   POP D4
  13101.   PUSHR D2
  13102.   PUSHR D4
  13103.   SETV D2, 13111
  13104.   PUSHR D2
  13105.   SETR D6, D4
  13106.   ADDV D6, 1
  13107.   LOADI D2, D6
  13108.   PUSHR D2
  13109.   SETV D2, 6
  13110.   PUSHR D2
  13111.   GOTO 22422
  13112.   POP D4
  13113.   POP D3
  13114.   SUBR D3, D2
  13115.   SETR D2, D3
  13116.   PUSHR D4
  13117.   SETV D3, 13128
  13118.   PUSHR D3
  13119.   PUSHR D2
  13120.   SETR D6, D4
  13121.   ADDV D6, 1
  13122.   LOADI D2, D6
  13123.   POP D3
  13124.   PUSHR D2
  13125.   PUSHR D3
  13126.   SETV D2, 7
  13127.   PUSHR D2
  13128.   GOTO 22428
  13129.   POP D4
  13130.   PUSHR D4
  13131.   SETV D2, 13139
  13132.   PUSHR D2
  13133.   SETR D6, D4
  13134.   ADDV D6, 1
  13135.   LOADI D2, D6
  13136.   PUSHR D2
  13137.   SETV D2, 7
  13138.   PUSHR D2
  13139.   GOTO 22422
  13140.   POP D4
  13141.   PUSHR D4
  13142.   SETV D3, 13151
  13143.   PUSHR D3
  13144.   PUSHR D2
  13145.   SETR D6, D4
  13146.   ADDV D6, 1
  13147.   LOADI D2, D6
  13148.   POP D3
  13149.   PUSHR D2
  13150.   PUSHR D3
  13151.   GOTO 22235
  13152.   POP D4
  13153.   PUSHR D4
  13154.   SETV D2, 13174
  13155.   PUSHR D2
  13156.   PUSHR D4
  13157.   SETV D2, 13165
  13158.   PUSHR D2
  13159.   SETR D6, D4
  13160.   ADDV D6, 1
  13161.   LOADI D2, D6
  13162.   PUSHR D2
  13163.   SETV D2, 6
  13164.   PUSHR D2
  13165.   GOTO 22422
  13166.   POP D4
  13167.   PUSHR D2
  13168.   SETV D2, 0.1600
  13169.   POP D3
  13170.   ADDR D2, D3
  13171.   PUSHR D2
  13172.   SETV D2, 3.2000
  13173.   PUSHR D2
  13174.   GOTO 21854
  13175.   POP D4
  13176.   PUSHR D4
  13177.   SETV D3, 13188
  13178.   PUSHR D3
  13179.   PUSHR D2
  13180.   SETR D6, D4
  13181.   ADDV D6, 1
  13182.   LOADI D2, D6
  13183.   POP D3
  13184.   PUSHR D2
  13185.   PUSHR D3
  13186.   SETV D2, 6
  13187.   PUSHR D2
  13188.   GOTO 22428
  13189.   POP D4
  13190.   PUSHR D4
  13191.   SETV D2, 13199
  13192.   PUSHR D2
  13193.   SETR D6, D4
  13194.   ADDV D6, 1
  13195.   LOADI D2, D6
  13196.   PUSHR D2
  13197.   SETV D2, 7
  13198.   PUSHR D2
  13199.   GOTO 22422
  13200.   POP D4
  13201.   PUSHR D2
  13202.   SETV D2, 0
  13203.   POP D3
  13204.   COMPARER D3, D2
  13205.   SETLESS D2
  13206.   COMPAREV D2, 0
  13207.   GOTOTRUE 13401
  13208.   SETV D2, 0
  13209.   SETR D6, D4
  13210.   ADDV D6, 0
  13211.   STOREI D2, D6
  13212.   PUSHR D4
  13213.   SETV D2, 13221
  13214.   PUSHR D2
  13215.   SETR D6, D4
  13216.   ADDV D6, 1
  13217.   LOADI D2, D6
  13218.   PUSHR D2
  13219.   SETV D2, 10
  13220.   PUSHR D2
  13221.   GOTO 22422
  13222.   POP D4
  13223.   PUSHR D2
  13224.   SETV D2, 2
  13225.   POP D3
  13226.   ANDR D2, D3
  13227.   PUSHR D2
  13228.   SETV D2, 0
  13229.   POP D3
  13230.   COMPARER D2, D3
  13231.   SETFALSE D2
  13232.   COMPAREV D2, 0
  13233.   GOTOTRUE 13314
  13234.   PUSHR D4
  13235.   SETV D2, 13243
  13236.   PUSHR D2
  13237.   SETR D6, D4
  13238.   ADDV D6, 1
  13239.   LOADI D2, D6
  13240.   PUSHR D2
  13241.   SETV D2, 6
  13242.   PUSHR D2
  13243.   GOTO 22422
  13244.   POP D4
  13245.   PUSHR D2
  13246.   SETV D2, -0.5000
  13247.   POP D3
  13248.   COMPARER D3, D2
  13249.   SETMORE D2
  13250.   COMPAREV D2, 0
  13251.   SETTRUE D2
  13252.   COMPAREV D2, 0
  13253.   GOTOTRUE 13307
  13254.   PUSHR D4
  13255.   SETV D2, 13263
  13256.   PUSHR D2
  13257.   SETR D6, D4
  13258.   ADDV D6, 1
  13259.   LOADI D2, D6
  13260.   PUSHR D2
  13261.   SETV D2, 6
  13262.   PUSHR D2
  13263.   GOTO 22422
  13264.   POP D4
  13265.   PUSHR D2
  13266.   SETV D2, -0.5000
  13267.   POP D3
  13268.   MULTR D2, D3
  13269.   PUSHR D4
  13270.   SETV D3, 13281
  13271.   PUSHR D3
  13272.   PUSHR D2
  13273.   SETR D6, D4
  13274.   ADDV D6, 1
  13275.   LOADI D2, D6
  13276.   POP D3
  13277.   PUSHR D2
  13278.   PUSHR D3
  13279.   SETV D2, 6
  13280.   PUSHR D2
  13281.   GOTO 22428
  13282.   POP D4
  13283.   PUSHR D4
  13284.   SETV D2, 13290
  13285.   PUSHR D2
  13286.   SETR D6, D4
  13287.   ADDV D6, 1
  13288.   LOADI D2, D6
  13289.   PUSHR D2
  13290.   GOTO 22269
  13291.   POP D4
  13292.   PUSHR D2
  13293.   SETV D2, 0.7500
  13294.   POP D3
  13295.   MULTR D2, D3
  13296.   PUSHR D4
  13297.   SETV D3, 13306
  13298.   PUSHR D3
  13299.   PUSHR D2
  13300.   SETR D6, D4
  13301.   ADDV D6, 1
  13302.   LOADI D2, D6
  13303.   POP D3
  13304.   PUSHR D2
  13305.   PUSHR D3
  13306.   GOTO 22274
  13307.   POP D4
  13308.   GOTO 13312
  13309.   SETV D3, 0
  13310.   SETV D2, 0.0001
  13311.   SETR D6, D4
  13312.   ADDV D6, 0
  13313.   STOREI D2, D6
  13314.   SETV D3, 0
  13315.   GOTO 13319
  13316.   SETV D3, 0
  13317.   SETV D2, 0.0001
  13318.   SETR D6, D4
  13319.   ADDV D6, 0
  13320.   STOREI D2, D6
  13321.   SETV D3, 0
  13322.   SETR D6, D4
  13323.   ADDV D6, 0
  13324.   LOADI D2, D6
  13325.   COMPAREV D2, 0
  13326.   GOTOTRUE 13400
  13327.   PUSHR D4
  13328.   SETV D2, 13336
  13329.   PUSHR D2
  13330.   SETR D6, D4
  13331.   ADDV D6, 1
  13332.   LOADI D2, D6
  13333.   PUSHR D2
  13334.   SETV D2, 10
  13335.   PUSHR D2
  13336.   GOTO 22422
  13337.   POP D4
  13338.   PUSHR D2
  13339.   SETV D2, 1
  13340.   POP D3
  13341.   ANDR D2, D3
  13342.   PUSHR D2
  13343.   SETV D2, 0
  13344.   POP D3
  13345.   COMPARER D2, D3
  13346.   SETFALSE D2
  13347.   COMPAREV D2, 0
  13348.   GOTOTRUE 13370
  13349.   SETV D2, 0
  13350.   PUSHR D4
  13351.   SETV D3, 13360
  13352.   PUSHR D3
  13353.   PUSHR D2
  13354.   SETR D6, D4
  13355.   ADDV D6, 1
  13356.   LOADI D2, D6
  13357.   POP D3
  13358.   PUSHR D2
  13359.   PUSHR D3
  13360.   GOTO 22235
  13361.   POP D4
  13362.   PUSHR D4
  13363.   SETV D2, 13369
  13364.   PUSHR D2
  13365.   SETR D6, D4
  13366.   ADDV D6, 1
  13367.   LOADI D2, D6
  13368.   PUSHR D2
  13369.   GOTO 4633
  13370.   POP D4
  13371.   GOTO 13399
  13372.   SETV D3, 0
  13373.   SETV D2, 0
  13374.   PUSHR D4
  13375.   SETV D3, 13386
  13376.   PUSHR D3
  13377.   PUSHR D2
  13378.   SETR D6, D4
  13379.   ADDV D6, 1
  13380.   LOADI D2, D6
  13381.   POP D3
  13382.   PUSHR D2
  13383.   PUSHR D3
  13384.   SETV D2, 8
  13385.   PUSHR D2
  13386.   GOTO 22428
  13387.   POP D4
  13388.   SETV D2, 0
  13389.   PUSHR D4
  13390.   SETV D3, 13399
  13391.   PUSHR D3
  13392.   PUSHR D2
  13393.   SETR D6, D4
  13394.   ADDV D6, 1
  13395.   LOADI D2, D6
  13396.   POP D3
  13397.   PUSHR D2
  13398.   PUSHR D3
  13399.   GOTO 22274
  13400.   POP D4
  13401.   SETV D3, 0
  13402.   SETV D2, 0
  13403.   SETV D2, 0
  13404.   SETV D3, 0
  13405.   POP D3
  13406.   POP D3
  13407.   POP D3
  13408.   GOTOR D3
  13409.   SETV D2, 0
  13410.   PUSHR D2
  13411.   SETR D4, SP
  13412.   PUSHR D4
  13413.   SETV D2, 13421
  13414.   PUSHR D2
  13415.   SETR D6, D4
  13416.   ADDV D6, 1
  13417.   LOADI D2, D6
  13418.   PUSHR D2
  13419.   SETV D2, 9
  13420.   PUSHR D2
  13421.   GOTO 22422
  13422.   POP D4
  13423.   SETR D6, D4
  13424.   ADDV D6, 0
  13425.   STOREI D2, D6
  13426.   PUSHR D4
  13427.   SETV D2, 13435
  13428.   PUSHR D2
  13429.   SETR D6, D4
  13430.   ADDV D6, 1
  13431.   LOADI D2, D6
  13432.   PUSHR D2
  13433.   SETV D2, 4
  13434.   PUSHR D2
  13435.   GOTO 22422
  13436.   POP D4
  13437.   PUSHR D2
  13438.   PUSHR D4
  13439.   SETV D2, 13445
  13440.   PUSHR D2
  13441.   SETR D6, D4
  13442.   ADDV D6, 1
  13443.   LOADI D2, D6
  13444.   PUSHR D2
  13445.   GOTO 22269
  13446.   POP D4
  13447.   PUSHR D2
  13448.   SETV D2, 100
  13449.   POP D3
  13450.   DIVR D3, D2
  13451.   SETR D2, D3
  13452.   PUSHR D2
  13453.   PUSHR D4
  13454.   SETV D2, 13466
  13455.   PUSHR D2
  13456.   PUSHR D4
  13457.   SETV D2, 13463
  13458.   PUSHR D2
  13459.   SETR D6, D4
  13460.   ADDV D6, 1
  13461.   LOADI D2, D6
  13462.   PUSHR D2
  13463.   GOTO 22258
  13464.   POP D4
  13465.   PUSHR D2
  13466.   GOTO 21839
  13467.   POP D4
  13468.   POP D3
  13469.   MULTR D2, D3
  13470.   POP D3
  13471.   ADDR D2, D3
  13472.   PUSHR D4
  13473.   SETV D3, 13484
  13474.   PUSHR D3
  13475.   PUSHR D2
  13476.   SETR D6, D4
  13477.   ADDV D6, 1
  13478.   LOADI D2, D6
  13479.   POP D3
  13480.   PUSHR D2
  13481.   PUSHR D3
  13482.   SETV D2, 4
  13483.   PUSHR D2
  13484.   GOTO 22428
  13485.   POP D4
  13486.   PUSHR D4
  13487.   SETV D2, 13495
  13488.   PUSHR D2
  13489.   SETR D6, D4
  13490.   ADDV D6, 1
  13491.   LOADI D2, D6
  13492.   PUSHR D2
  13493.   SETV D2, 5
  13494.   PUSHR D2
  13495.   GOTO 22422
  13496.   POP D4
  13497.   PUSHR D2
  13498.   PUSHR D4
  13499.   SETV D2, 13505
  13500.   PUSHR D2
  13501.   SETR D6, D4
  13502.   ADDV D6, 1
  13503.   LOADI D2, D6
  13504.   PUSHR D2
  13505.   GOTO 22269
  13506.   POP D4
  13507.   PUSHR D2
  13508.   SETV D2, 100
  13509.   POP D3
  13510.   DIVR D3, D2
  13511.   SETR D2, D3
  13512.   PUSHR D2
  13513.   PUSHR D4
  13514.   SETV D2, 13526
  13515.   PUSHR D2
  13516.   PUSHR D4
  13517.   SETV D2, 13523
  13518.   PUSHR D2
  13519.   SETR D6, D4
  13520.   ADDV D6, 1
  13521.   LOADI D2, D6
  13522.   PUSHR D2
  13523.   GOTO 22258
  13524.   POP D4
  13525.   PUSHR D2
  13526.   GOTO 21830
  13527.   POP D4
  13528.   POP D3
  13529.   MULTR D2, D3
  13530.   POP D3
  13531.   ADDR D2, D3
  13532.   PUSHR D4
  13533.   SETV D3, 13544
  13534.   PUSHR D3
  13535.   PUSHR D2
  13536.   SETR D6, D4
  13537.   ADDV D6, 1
  13538.   LOADI D2, D6
  13539.   POP D3
  13540.   PUSHR D2
  13541.   PUSHR D3
  13542.   SETV D2, 5
  13543.   PUSHR D2
  13544.   GOTO 22428
  13545.   POP D4
  13546.   SETR D6, D4
  13547.   ADDV D6, 0
  13548.   LOADI D2, D6
  13549.   PUSHR D2
  13550.   SETV D2, 0
  13551.   POP D3
  13552.   COMPARER D2, D3
  13553.   SETTRUE D2
  13554.   COMPAREV D2, 0
  13555.   GOTOTRUE 13595
  13556.   PUSHR D4
  13557.   SETV D2, 13565
  13558.   PUSHR D2
  13559.   SETR D6, D4
  13560.   ADDV D6, 1
  13561.   LOADI D2, D6
  13562.   PUSHR D2
  13563.   SETV D2, 5
  13564.   PUSHR D2
  13565.   GOTO 22422
  13566.   POP D4
  13567.   PUSHR D2
  13568.   PUSHR D4
  13569.   SETV D2, 13577
  13570.   PUSHR D2
  13571.   SETR D6, D4
  13572.   ADDV D6, 1
  13573.   LOADI D2, D6
  13574.   PUSHR D2
  13575.   SETV D2, 10
  13576.   PUSHR D2
  13577.   GOTO 22422
  13578.   POP D4
  13579.   POP D3
  13580.   SUBR D3, D2
  13581.   SETR D2, D3
  13582.   PUSHR D4
  13583.   SETV D3, 13594
  13584.   PUSHR D3
  13585.   PUSHR D2
  13586.   SETR D6, D4
  13587.   ADDV D6, 1
  13588.   LOADI D2, D6
  13589.   POP D3
  13590.   PUSHR D2
  13591.   PUSHR D3
  13592.   SETV D2, 5
  13593.   PUSHR D2
  13594.   GOTO 22428
  13595.   POP D4
  13596.   GOTO 14140
  13597.   SETV D3, 0
  13598.   SETR D6, D4
  13599.   ADDV D6, 0
  13600.   LOADI D2, D6
  13601.   PUSHR D2
  13602.   SETV D2, 1
  13603.   POP D3
  13604.   COMPARER D2, D3
  13605.   SETTRUE D2
  13606.   COMPAREV D2, 0
  13607.   GOTOTRUE 13646
  13608.   PUSHR D4
  13609.   SETV D2, 13617
  13610.   PUSHR D2
  13611.   SETR D6, D4
  13612.   ADDV D6, 1
  13613.   LOADI D2, D6
  13614.   PUSHR D2
  13615.   SETV D2, 5
  13616.   PUSHR D2
  13617.   GOTO 22422
  13618.   POP D4
  13619.   PUSHR D2
  13620.   PUSHR D4
  13621.   SETV D2, 13629
  13622.   PUSHR D2
  13623.   SETR D6, D4
  13624.   ADDV D6, 1
  13625.   LOADI D2, D6
  13626.   PUSHR D2
  13627.   SETV D2, 10
  13628.   PUSHR D2
  13629.   GOTO 22422
  13630.   POP D4
  13631.   POP D3
  13632.   ADDR D2, D3
  13633.   PUSHR D4
  13634.   SETV D3, 13645
  13635.   PUSHR D3
  13636.   PUSHR D2
  13637.   SETR D6, D4
  13638.   ADDV D6, 1
  13639.   LOADI D2, D6
  13640.   POP D3
  13641.   PUSHR D2
  13642.   PUSHR D3
  13643.   SETV D2, 5
  13644.   PUSHR D2
  13645.   GOTO 22428
  13646.   POP D4
  13647.   GOTO 14139
  13648.   SETV D3, 0
  13649.   SETR D6, D4
  13650.   ADDV D6, 0
  13651.   LOADI D2, D6
  13652.   PUSHR D2
  13653.   SETV D2, 2
  13654.   POP D3
  13655.   COMPARER D2, D3
  13656.   SETTRUE D2
  13657.   COMPAREV D2, 0
  13658.   GOTOTRUE 13698
  13659.   PUSHR D4
  13660.   SETV D2, 13668
  13661.   PUSHR D2
  13662.   SETR D6, D4
  13663.   ADDV D6, 1
  13664.   LOADI D2, D6
  13665.   PUSHR D2
  13666.   SETV D2, 4
  13667.   PUSHR D2
  13668.   GOTO 22422
  13669.   POP D4
  13670.   PUSHR D2
  13671.   PUSHR D4
  13672.   SETV D2, 13680
  13673.   PUSHR D2
  13674.   SETR D6, D4
  13675.   ADDV D6, 1
  13676.   LOADI D2, D6
  13677.   PUSHR D2
  13678.   SETV D2, 10
  13679.   PUSHR D2
  13680.   GOTO 22422
  13681.   POP D4
  13682.   POP D3
  13683.   SUBR D3, D2
  13684.   SETR D2, D3
  13685.   PUSHR D4
  13686.   SETV D3, 13697
  13687.   PUSHR D3
  13688.   PUSHR D2
  13689.   SETR D6, D4
  13690.   ADDV D6, 1
  13691.   LOADI D2, D6
  13692.   POP D3
  13693.   PUSHR D2
  13694.   PUSHR D3
  13695.   SETV D2, 4
  13696.   PUSHR D2
  13697.   GOTO 22428
  13698.   POP D4
  13699.   GOTO 14138
  13700.   SETV D3, 0
  13701.   SETR D6, D4
  13702.   ADDV D6, 0
  13703.   LOADI D2, D6
  13704.   PUSHR D2
  13705.   SETV D2, 3
  13706.   POP D3
  13707.   COMPARER D2, D3
  13708.   SETTRUE D2
  13709.   COMPAREV D2, 0
  13710.   GOTOTRUE 13749
  13711.   PUSHR D4
  13712.   SETV D2, 13720
  13713.   PUSHR D2
  13714.   SETR D6, D4
  13715.   ADDV D6, 1
  13716.   LOADI D2, D6
  13717.   PUSHR D2
  13718.   SETV D2, 4
  13719.   PUSHR D2
  13720.   GOTO 22422
  13721.   POP D4
  13722.   PUSHR D2
  13723.   PUSHR D4
  13724.   SETV D2, 13732
  13725.   PUSHR D2
  13726.   SETR D6, D4
  13727.   ADDV D6, 1
  13728.   LOADI D2, D6
  13729.   PUSHR D2
  13730.   SETV D2, 10
  13731.   PUSHR D2
  13732.   GOTO 22422
  13733.   POP D4
  13734.   POP D3
  13735.   ADDR D2, D3
  13736.   PUSHR D4
  13737.   SETV D3, 13748
  13738.   PUSHR D3
  13739.   PUSHR D2
  13740.   SETR D6, D4
  13741.   ADDV D6, 1
  13742.   LOADI D2, D6
  13743.   POP D3
  13744.   PUSHR D2
  13745.   PUSHR D3
  13746.   SETV D2, 4
  13747.   PUSHR D2
  13748.   GOTO 22428
  13749.   POP D4
  13750.   GOTO 14137
  13751.   SETV D3, 0
  13752.   SETR D6, D4
  13753.   ADDV D6, 0
  13754.   LOADI D2, D6
  13755.   PUSHR D2
  13756.   SETV D2, 4
  13757.   POP D3
  13758.   COMPARER D2, D3
  13759.   SETTRUE D2
  13760.   COMPAREV D2, 0
  13761.   GOTOTRUE 13849
  13762.   PUSHR D4
  13763.   SETV D2, 13771
  13764.   PUSHR D2
  13765.   SETR D6, D4
  13766.   ADDV D6, 1
  13767.   LOADI D2, D6
  13768.   PUSHR D2
  13769.   SETV D2, 4
  13770.   PUSHR D2
  13771.   GOTO 22422
  13772.   POP D4
  13773.   PUSHR D2
  13774.   PUSHR D4
  13775.   SETV D2, 13783
  13776.   PUSHR D2
  13777.   SETR D6, D4
  13778.   ADDV D6, 1
  13779.   LOADI D2, D6
  13780.   PUSHR D2
  13781.   SETV D2, 10
  13782.   PUSHR D2
  13783.   GOTO 22422
  13784.   POP D4
  13785.   PUSHR D2
  13786.   SETV D2, 0.7071
  13787.   POP D3
  13788.   MULTR D2, D3
  13789.   POP D3
  13790.   SUBR D3, D2
  13791.   SETR D2, D3
  13792.   PUSHR D4
  13793.   SETV D3, 13804
  13794.   PUSHR D3
  13795.   PUSHR D2
  13796.   SETR D6, D4
  13797.   ADDV D6, 1
  13798.   LOADI D2, D6
  13799.   POP D3
  13800.   PUSHR D2
  13801.   PUSHR D3
  13802.   SETV D2, 4
  13803.   PUSHR D2
  13804.   GOTO 22428
  13805.   POP D4
  13806.   PUSHR D4
  13807.   SETV D2, 13815
  13808.   PUSHR D2
  13809.   SETR D6, D4
  13810.   ADDV D6, 1
  13811.   LOADI D2, D6
  13812.   PUSHR D2
  13813.   SETV D2, 5
  13814.   PUSHR D2
  13815.   GOTO 22422
  13816.   POP D4
  13817.   PUSHR D2
  13818.   PUSHR D4
  13819.   SETV D2, 13827
  13820.   PUSHR D2
  13821.   SETR D6, D4
  13822.   ADDV D6, 1
  13823.   LOADI D2, D6
  13824.   PUSHR D2
  13825.   SETV D2, 10
  13826.   PUSHR D2
  13827.   GOTO 22422
  13828.   POP D4
  13829.   PUSHR D2
  13830.   SETV D2, 0.7071
  13831.   POP D3
  13832.   MULTR D2, D3
  13833.   POP D3
  13834.   SUBR D3, D2
  13835.   SETR D2, D3
  13836.   PUSHR D4
  13837.   SETV D3, 13848
  13838.   PUSHR D3
  13839.   PUSHR D2
  13840.   SETR D6, D4
  13841.   ADDV D6, 1
  13842.   LOADI D2, D6
  13843.   POP D3
  13844.   PUSHR D2
  13845.   PUSHR D3
  13846.   SETV D2, 5
  13847.   PUSHR D2
  13848.   GOTO 22428
  13849.   POP D4
  13850.   GOTO 14136
  13851.   SETV D3, 0
  13852.   SETR D6, D4
  13853.   ADDV D6, 0
  13854.   LOADI D2, D6
  13855.   PUSHR D2
  13856.   SETV D2, 5
  13857.   POP D3
  13858.   COMPARER D2, D3
  13859.   SETTRUE D2
  13860.   COMPAREV D2, 0
  13861.   GOTOTRUE 13948
  13862.   PUSHR D4
  13863.   SETV D2, 13871
  13864.   PUSHR D2
  13865.   SETR D6, D4
  13866.   ADDV D6, 1
  13867.   LOADI D2, D6
  13868.   PUSHR D2
  13869.   SETV D2, 4
  13870.   PUSHR D2
  13871.   GOTO 22422
  13872.   POP D4
  13873.   PUSHR D2
  13874.   PUSHR D4
  13875.   SETV D2, 13883
  13876.   PUSHR D2
  13877.   SETR D6, D4
  13878.   ADDV D6, 1
  13879.   LOADI D2, D6
  13880.   PUSHR D2
  13881.   SETV D2, 10
  13882.   PUSHR D2
  13883.   GOTO 22422
  13884.   POP D4
  13885.   PUSHR D2
  13886.   SETV D2, 0.7071
  13887.   POP D3
  13888.   MULTR D2, D3
  13889.   POP D3
  13890.   ADDR D2, D3
  13891.   PUSHR D4
  13892.   SETV D3, 13903
  13893.   PUSHR D3
  13894.   PUSHR D2
  13895.   SETR D6, D4
  13896.   ADDV D6, 1
  13897.   LOADI D2, D6
  13898.   POP D3
  13899.   PUSHR D2
  13900.   PUSHR D3
  13901.   SETV D2, 4
  13902.   PUSHR D2
  13903.   GOTO 22428
  13904.   POP D4
  13905.   PUSHR D4
  13906.   SETV D2, 13914
  13907.   PUSHR D2
  13908.   SETR D6, D4
  13909.   ADDV D6, 1
  13910.   LOADI D2, D6
  13911.   PUSHR D2
  13912.   SETV D2, 5
  13913.   PUSHR D2
  13914.   GOTO 22422
  13915.   POP D4
  13916.   PUSHR D2
  13917.   PUSHR D4
  13918.   SETV D2, 13926
  13919.   PUSHR D2
  13920.   SETR D6, D4
  13921.   ADDV D6, 1
  13922.   LOADI D2, D6
  13923.   PUSHR D2
  13924.   SETV D2, 10
  13925.   PUSHR D2
  13926.   GOTO 22422
  13927.   POP D4
  13928.   PUSHR D2
  13929.   SETV D2, 0.7071
  13930.   POP D3
  13931.   MULTR D2, D3
  13932.   POP D3
  13933.   SUBR D3, D2
  13934.   SETR D2, D3
  13935.   PUSHR D4
  13936.   SETV D3, 13947
  13937.   PUSHR D3
  13938.   PUSHR D2
  13939.   SETR D6, D4
  13940.   ADDV D6, 1
  13941.   LOADI D2, D6
  13942.   POP D3
  13943.   PUSHR D2
  13944.   PUSHR D3
  13945.   SETV D2, 5
  13946.   PUSHR D2
  13947.   GOTO 22428
  13948.   POP D4
  13949.   GOTO 14135
  13950.   SETV D3, 0
  13951.   SETR D6, D4
  13952.   ADDV D6, 0
  13953.   LOADI D2, D6
  13954.   PUSHR D2
  13955.   SETV D2, 6
  13956.   POP D3
  13957.   COMPARER D2, D3
  13958.   SETTRUE D2
  13959.   COMPAREV D2, 0
  13960.   GOTOTRUE 14047
  13961.   PUSHR D4
  13962.   SETV D2, 13970
  13963.   PUSHR D2
  13964.   SETR D6, D4
  13965.   ADDV D6, 1
  13966.   LOADI D2, D6
  13967.   PUSHR D2
  13968.   SETV D2, 4
  13969.   PUSHR D2
  13970.   GOTO 22422
  13971.   POP D4
  13972.   PUSHR D2
  13973.   PUSHR D4
  13974.   SETV D2, 13982
  13975.   PUSHR D2
  13976.   SETR D6, D4
  13977.   ADDV D6, 1
  13978.   LOADI D2, D6
  13979.   PUSHR D2
  13980.   SETV D2, 10
  13981.   PUSHR D2
  13982.   GOTO 22422
  13983.   POP D4
  13984.   PUSHR D2
  13985.   SETV D2, 0.7071
  13986.   POP D3
  13987.   MULTR D2, D3
  13988.   POP D3
  13989.   SUBR D3, D2
  13990.   SETR D2, D3
  13991.   PUSHR D4
  13992.   SETV D3, 14003
  13993.   PUSHR D3
  13994.   PUSHR D2
  13995.   SETR D6, D4
  13996.   ADDV D6, 1
  13997.   LOADI D2, D6
  13998.   POP D3
  13999.   PUSHR D2
  14000.   PUSHR D3
  14001.   SETV D2, 4
  14002.   PUSHR D2
  14003.   GOTO 22428
  14004.   POP D4
  14005.   PUSHR D4
  14006.   SETV D2, 14014
  14007.   PUSHR D2
  14008.   SETR D6, D4
  14009.   ADDV D6, 1
  14010.   LOADI D2, D6
  14011.   PUSHR D2
  14012.   SETV D2, 5
  14013.   PUSHR D2
  14014.   GOTO 22422
  14015.   POP D4
  14016.   PUSHR D2
  14017.   PUSHR D4
  14018.   SETV D2, 14026
  14019.   PUSHR D2
  14020.   SETR D6, D4
  14021.   ADDV D6, 1
  14022.   LOADI D2, D6
  14023.   PUSHR D2
  14024.   SETV D2, 10
  14025.   PUSHR D2
  14026.   GOTO 22422
  14027.   POP D4
  14028.   PUSHR D2
  14029.   SETV D2, 0.7071
  14030.   POP D3
  14031.   MULTR D2, D3
  14032.   POP D3
  14033.   ADDR D2, D3
  14034.   PUSHR D4
  14035.   SETV D3, 14046
  14036.   PUSHR D3
  14037.   PUSHR D2
  14038.   SETR D6, D4
  14039.   ADDV D6, 1
  14040.   LOADI D2, D6
  14041.   POP D3
  14042.   PUSHR D2
  14043.   PUSHR D3
  14044.   SETV D2, 5
  14045.   PUSHR D2
  14046.   GOTO 22428
  14047.   POP D4
  14048.   GOTO 14134
  14049.   SETV D3, 0
  14050.   PUSHR D4
  14051.   SETV D2, 14059
  14052.   PUSHR D2
  14053.   SETR D6, D4
  14054.   ADDV D6, 1
  14055.   LOADI D2, D6
  14056.   PUSHR D2
  14057.   SETV D2, 4
  14058.   PUSHR D2
  14059.   GOTO 22422
  14060.   POP D4
  14061.   PUSHR D2
  14062.   PUSHR D4
  14063.   SETV D2, 14071
  14064.   PUSHR D2
  14065.   SETR D6, D4
  14066.   ADDV D6, 1
  14067.   LOADI D2, D6
  14068.   PUSHR D2
  14069.   SETV D2, 10
  14070.   PUSHR D2
  14071.   GOTO 22422
  14072.   POP D4
  14073.   PUSHR D2
  14074.   SETV D2, 0.7071
  14075.   POP D3
  14076.   MULTR D2, D3
  14077.   POP D3
  14078.   ADDR D2, D3
  14079.   PUSHR D4
  14080.   SETV D3, 14091
  14081.   PUSHR D3
  14082.   PUSHR D2
  14083.   SETR D6, D4
  14084.   ADDV D6, 1
  14085.   LOADI D2, D6
  14086.   POP D3
  14087.   PUSHR D2
  14088.   PUSHR D3
  14089.   SETV D2, 4
  14090.   PUSHR D2
  14091.   GOTO 22428
  14092.   POP D4
  14093.   PUSHR D4
  14094.   SETV D2, 14102
  14095.   PUSHR D2
  14096.   SETR D6, D4
  14097.   ADDV D6, 1
  14098.   LOADI D2, D6
  14099.   PUSHR D2
  14100.   SETV D2, 5
  14101.   PUSHR D2
  14102.   GOTO 22422
  14103.   POP D4
  14104.   PUSHR D2
  14105.   PUSHR D4
  14106.   SETV D2, 14114
  14107.   PUSHR D2
  14108.   SETR D6, D4
  14109.   ADDV D6, 1
  14110.   LOADI D2, D6
  14111.   PUSHR D2
  14112.   SETV D2, 10
  14113.   PUSHR D2
  14114.   GOTO 22422
  14115.   POP D4
  14116.   PUSHR D2
  14117.   SETV D2, 0.7071
  14118.   POP D3
  14119.   MULTR D2, D3
  14120.   POP D3
  14121.   ADDR D2, D3
  14122.   PUSHR D4
  14123.   SETV D3, 14134
  14124.   PUSHR D3
  14125.   PUSHR D2
  14126.   SETR D6, D4
  14127.   ADDV D6, 1
  14128.   LOADI D2, D6
  14129.   POP D3
  14130.   PUSHR D2
  14131.   PUSHR D3
  14132.   SETV D2, 5
  14133.   PUSHR D2
  14134.   GOTO 22428
  14135.   POP D4
  14136.   SETV D3, 0
  14137.   SETV D3, 0
  14138.   SETV D3, 0
  14139.   SETV D3, 0
  14140.   SETV D3, 0
  14141.   SETV D3, 0
  14142.   SETV D3, 0
  14143.   PUSHR D4
  14144.   SETV D2, 14152
  14145.   PUSHR D2
  14146.   SETR D6, D4
  14147.   ADDV D6, 1
  14148.   LOADI D2, D6
  14149.   PUSHR D2
  14150.   SETV D2, 4
  14151.   PUSHR D2
  14152.   GOTO 22422
  14153.   POP D4
  14154.   PUSHR D4
  14155.   SETV D3, 14164
  14156.   PUSHR D3
  14157.   PUSHR D2
  14158.   SETR D6, D4
  14159.   ADDV D6, 1
  14160.   LOADI D2, D6
  14161.   POP D3
  14162.   PUSHR D2
  14163.   PUSHR D3
  14164.   GOTO 22213
  14165.   POP D4
  14166.   PUSHR D4
  14167.   SETV D2, 14175
  14168.   PUSHR D2
  14169.   SETR D6, D4
  14170.   ADDV D6, 1
  14171.   LOADI D2, D6
  14172.   PUSHR D2
  14173.   SETV D2, 5
  14174.   PUSHR D2
  14175.   GOTO 22422
  14176.   POP D4
  14177.   PUSHR D4
  14178.   SETV D3, 14187
  14179.   PUSHR D3
  14180.   PUSHR D2
  14181.   SETR D6, D4
  14182.   ADDV D6, 1
  14183.   LOADI D2, D6
  14184.   POP D3
  14185.   PUSHR D2
  14186.   PUSHR D3
  14187.   GOTO 22224
  14188.   POP D4
  14189.   SETV D3, 0
  14190.   POP D3
  14191.   POP D3
  14192.   POP D3
  14193.   GOTOR D3
  14194.   SETV D2, 0
  14195.   PUSHR D2
  14196.   SETR D4, SP
  14197.   PUSHR D4
  14198.   SETV D2, 14206
  14199.   PUSHR D2
  14200.   SETR D6, D4
  14201.   ADDV D6, 1
  14202.   LOADI D2, D6
  14203.   PUSHR D2
  14204.   SETV D2, 9
  14205.   PUSHR D2
  14206.   GOTO 22422
  14207.   POP D4
  14208.   SETR D6, D4
  14209.   ADDV D6, 0
  14210.   STOREI D2, D6
  14211.   PUSHR D4
  14212.   SETV D2, 14220
  14213.   PUSHR D2
  14214.   SETR D6, D4
  14215.   ADDV D6, 1
  14216.   LOADI D2, D6
  14217.   PUSHR D2
  14218.   SETV D2, 6
  14219.   PUSHR D2
  14220.   GOTO 22422
  14221.   POP D4
  14222.   PUSHR D2
  14223.   SETV D2, 16
  14224.   POP D3
  14225.   COMPARER D3, D2
  14226.   SETMORE D2
  14227.   COMPAREV D2, 0
  14228.   GOTOTRUE 14348
  14229.   PUSHR D4
  14230.   SETV D2, 14238
  14231.   PUSHR D2
  14232.   SETR D6, D4
  14233.   ADDV D6, 1
  14234.   LOADI D2, D6
  14235.   PUSHR D2
  14236.   SETV D2, 4
  14237.   PUSHR D2
  14238.   GOTO 22422
  14239.   POP D4
  14240.   PUSHR D2
  14241.   PUSHR D4
  14242.   SETV D2, 14248
  14243.   PUSHR D2
  14244.   SETR D6, D4
  14245.   ADDV D6, 1
  14246.   LOADI D2, D6
  14247.   PUSHR D2
  14248.   GOTO 22269
  14249.   POP D4
  14250.   PUSHR D2
  14251.   SETV D2, 100
  14252.   POP D3
  14253.   DIVR D3, D2
  14254.   SETR D2, D3
  14255.   PUSHR D2
  14256.   PUSHR D4
  14257.   SETV D2, 14269
  14258.   PUSHR D2
  14259.   PUSHR D4
  14260.   SETV D2, 14266
  14261.   PUSHR D2
  14262.   SETR D6, D4
  14263.   ADDV D6, 1
  14264.   LOADI D2, D6
  14265.   PUSHR D2
  14266.   GOTO 22258
  14267.   POP D4
  14268.   PUSHR D2
  14269.   GOTO 21839
  14270.   POP D4
  14271.   POP D3
  14272.   MULTR D2, D3
  14273.   POP D3
  14274.   ADDR D2, D3
  14275.   PUSHR D4
  14276.   SETV D3, 14287
  14277.   PUSHR D3
  14278.   PUSHR D2
  14279.   SETR D6, D4
  14280.   ADDV D6, 1
  14281.   LOADI D2, D6
  14282.   POP D3
  14283.   PUSHR D2
  14284.   PUSHR D3
  14285.   SETV D2, 4
  14286.   PUSHR D2
  14287.   GOTO 22428
  14288.   POP D4
  14289.   PUSHR D4
  14290.   SETV D2, 14298
  14291.   PUSHR D2
  14292.   SETR D6, D4
  14293.   ADDV D6, 1
  14294.   LOADI D2, D6
  14295.   PUSHR D2
  14296.   SETV D2, 5
  14297.   PUSHR D2
  14298.   GOTO 22422
  14299.   POP D4
  14300.   PUSHR D2
  14301.   PUSHR D4
  14302.   SETV D2, 14308
  14303.   PUSHR D2
  14304.   SETR D6, D4
  14305.   ADDV D6, 1
  14306.   LOADI D2, D6
  14307.   PUSHR D2
  14308.   GOTO 22269
  14309.   POP D4
  14310.   PUSHR D2
  14311.   SETV D2, 100
  14312.   POP D3
  14313.   DIVR D3, D2
  14314.   SETR D2, D3
  14315.   PUSHR D2
  14316.   PUSHR D4
  14317.   SETV D2, 14329
  14318.   PUSHR D2
  14319.   PUSHR D4
  14320.   SETV D2, 14326
  14321.   PUSHR D2
  14322.   SETR D6, D4
  14323.   ADDV D6, 1
  14324.   LOADI D2, D6
  14325.   PUSHR D2
  14326.   GOTO 22258
  14327.   POP D4
  14328.   PUSHR D2
  14329.   GOTO 21830
  14330.   POP D4
  14331.   POP D3
  14332.   MULTR D2, D3
  14333.   POP D3
  14334.   ADDR D2, D3
  14335.   PUSHR D4
  14336.   SETV D3, 14347
  14337.   PUSHR D3
  14338.   PUSHR D2
  14339.   SETR D6, D4
  14340.   ADDV D6, 1
  14341.   LOADI D2, D6
  14342.   POP D3
  14343.   PUSHR D2
  14344.   PUSHR D3
  14345.   SETV D2, 5
  14346.   PUSHR D2
  14347.   GOTO 22428
  14348.   POP D4
  14349.   GOTO 14377
  14350.   SETV D3, 0
  14351.   PUSHR D4
  14352.   SETV D2, 14360
  14353.   PUSHR D2
  14354.   SETR D6, D4
  14355.   ADDV D6, 1
  14356.   LOADI D2, D6
  14357.   PUSHR D2
  14358.   SETV D2, 6
  14359.   PUSHR D2
  14360.   GOTO 22422
  14361.   POP D4
  14362.   PUSHR D2
  14363.   ADDV D2, 1
  14364.   PUSHR D4
  14365.   SETV D3, 14376
  14366.   PUSHR D3
  14367.   PUSHR D2
  14368.   SETR D6, D4
  14369.   ADDV D6, 1
  14370.   LOADI D2, D6
  14371.   POP D3
  14372.   PUSHR D2
  14373.   PUSHR D3
  14374.   SETV D2, 6
  14375.   PUSHR D2
  14376.   GOTO 22428
  14377.   POP D4
  14378.   POP D2
  14379.   SETV D3, 0
  14380.   SETR D6, D4
  14381.   ADDV D6, 0
  14382.   LOADI D2, D6
  14383.   PUSHR D2
  14384.   SETV D2, 0
  14385.   POP D3
  14386.   COMPARER D2, D3
  14387.   SETTRUE D2
  14388.   COMPAREV D2, 0
  14389.   GOTOTRUE 14429
  14390.   PUSHR D4
  14391.   SETV D2, 14399
  14392.   PUSHR D2
  14393.   SETR D6, D4
  14394.   ADDV D6, 1
  14395.   LOADI D2, D6
  14396.   PUSHR D2
  14397.   SETV D2, 5
  14398.   PUSHR D2
  14399.   GOTO 22422
  14400.   POP D4
  14401.   PUSHR D2
  14402.   PUSHR D4
  14403.   SETV D2, 14411
  14404.   PUSHR D2
  14405.   SETR D6, D4
  14406.   ADDV D6, 1
  14407.   LOADI D2, D6
  14408.   PUSHR D2
  14409.   SETV D2, 10
  14410.   PUSHR D2
  14411.   GOTO 22422
  14412.   POP D4
  14413.   POP D3
  14414.   SUBR D3, D2
  14415.   SETR D2, D3
  14416.   PUSHR D4
  14417.   SETV D3, 14428
  14418.   PUSHR D3
  14419.   PUSHR D2
  14420.   SETR D6, D4
  14421.   ADDV D6, 1
  14422.   LOADI D2, D6
  14423.   POP D3
  14424.   PUSHR D2
  14425.   PUSHR D3
  14426.   SETV D2, 5
  14427.   PUSHR D2
  14428.   GOTO 22428
  14429.   POP D4
  14430.   GOTO 14974
  14431.   SETV D3, 0
  14432.   SETR D6, D4
  14433.   ADDV D6, 0
  14434.   LOADI D2, D6
  14435.   PUSHR D2
  14436.   SETV D2, 1
  14437.   POP D3
  14438.   COMPARER D2, D3
  14439.   SETTRUE D2
  14440.   COMPAREV D2, 0
  14441.   GOTOTRUE 14480
  14442.   PUSHR D4
  14443.   SETV D2, 14451
  14444.   PUSHR D2
  14445.   SETR D6, D4
  14446.   ADDV D6, 1
  14447.   LOADI D2, D6
  14448.   PUSHR D2
  14449.   SETV D2, 5
  14450.   PUSHR D2
  14451.   GOTO 22422
  14452.   POP D4
  14453.   PUSHR D2
  14454.   PUSHR D4
  14455.   SETV D2, 14463
  14456.   PUSHR D2
  14457.   SETR D6, D4
  14458.   ADDV D6, 1
  14459.   LOADI D2, D6
  14460.   PUSHR D2
  14461.   SETV D2, 10
  14462.   PUSHR D2
  14463.   GOTO 22422
  14464.   POP D4
  14465.   POP D3
  14466.   ADDR D2, D3
  14467.   PUSHR D4
  14468.   SETV D3, 14479
  14469.   PUSHR D3
  14470.   PUSHR D2
  14471.   SETR D6, D4
  14472.   ADDV D6, 1
  14473.   LOADI D2, D6
  14474.   POP D3
  14475.   PUSHR D2
  14476.   PUSHR D3
  14477.   SETV D2, 5
  14478.   PUSHR D2
  14479.   GOTO 22428
  14480.   POP D4
  14481.   GOTO 14973
  14482.   SETV D3, 0
  14483.   SETR D6, D4
  14484.   ADDV D6, 0
  14485.   LOADI D2, D6
  14486.   PUSHR D2
  14487.   SETV D2, 2
  14488.   POP D3
  14489.   COMPARER D2, D3
  14490.   SETTRUE D2
  14491.   COMPAREV D2, 0
  14492.   GOTOTRUE 14532
  14493.   PUSHR D4
  14494.   SETV D2, 14502
  14495.   PUSHR D2
  14496.   SETR D6, D4
  14497.   ADDV D6, 1
  14498.   LOADI D2, D6
  14499.   PUSHR D2
  14500.   SETV D2, 4
  14501.   PUSHR D2
  14502.   GOTO 22422
  14503.   POP D4
  14504.   PUSHR D2
  14505.   PUSHR D4
  14506.   SETV D2, 14514
  14507.   PUSHR D2
  14508.   SETR D6, D4
  14509.   ADDV D6, 1
  14510.   LOADI D2, D6
  14511.   PUSHR D2
  14512.   SETV D2, 10
  14513.   PUSHR D2
  14514.   GOTO 22422
  14515.   POP D4
  14516.   POP D3
  14517.   SUBR D3, D2
  14518.   SETR D2, D3
  14519.   PUSHR D4
  14520.   SETV D3, 14531
  14521.   PUSHR D3
  14522.   PUSHR D2
  14523.   SETR D6, D4
  14524.   ADDV D6, 1
  14525.   LOADI D2, D6
  14526.   POP D3
  14527.   PUSHR D2
  14528.   PUSHR D3
  14529.   SETV D2, 4
  14530.   PUSHR D2
  14531.   GOTO 22428
  14532.   POP D4
  14533.   GOTO 14972
  14534.   SETV D3, 0
  14535.   SETR D6, D4
  14536.   ADDV D6, 0
  14537.   LOADI D2, D6
  14538.   PUSHR D2
  14539.   SETV D2, 3
  14540.   POP D3
  14541.   COMPARER D2, D3
  14542.   SETTRUE D2
  14543.   COMPAREV D2, 0
  14544.   GOTOTRUE 14583
  14545.   PUSHR D4
  14546.   SETV D2, 14554
  14547.   PUSHR D2
  14548.   SETR D6, D4
  14549.   ADDV D6, 1
  14550.   LOADI D2, D6
  14551.   PUSHR D2
  14552.   SETV D2, 4
  14553.   PUSHR D2
  14554.   GOTO 22422
  14555.   POP D4
  14556.   PUSHR D2
  14557.   PUSHR D4
  14558.   SETV D2, 14566
  14559.   PUSHR D2
  14560.   SETR D6, D4
  14561.   ADDV D6, 1
  14562.   LOADI D2, D6
  14563.   PUSHR D2
  14564.   SETV D2, 10
  14565.   PUSHR D2
  14566.   GOTO 22422
  14567.   POP D4
  14568.   POP D3
  14569.   ADDR D2, D3
  14570.   PUSHR D4
  14571.   SETV D3, 14582
  14572.   PUSHR D3
  14573.   PUSHR D2
  14574.   SETR D6, D4
  14575.   ADDV D6, 1
  14576.   LOADI D2, D6
  14577.   POP D3
  14578.   PUSHR D2
  14579.   PUSHR D3
  14580.   SETV D2, 4
  14581.   PUSHR D2
  14582.   GOTO 22428
  14583.   POP D4
  14584.   GOTO 14971
  14585.   SETV D3, 0
  14586.   SETR D6, D4
  14587.   ADDV D6, 0
  14588.   LOADI D2, D6
  14589.   PUSHR D2
  14590.   SETV D2, 4
  14591.   POP D3
  14592.   COMPARER D2, D3
  14593.   SETTRUE D2
  14594.   COMPAREV D2, 0
  14595.   GOTOTRUE 14683
  14596.   PUSHR D4
  14597.   SETV D2, 14605
  14598.   PUSHR D2
  14599.   SETR D6, D4
  14600.   ADDV D6, 1
  14601.   LOADI D2, D6
  14602.   PUSHR D2
  14603.   SETV D2, 4
  14604.   PUSHR D2
  14605.   GOTO 22422
  14606.   POP D4
  14607.   PUSHR D2
  14608.   PUSHR D4
  14609.   SETV D2, 14617
  14610.   PUSHR D2
  14611.   SETR D6, D4
  14612.   ADDV D6, 1
  14613.   LOADI D2, D6
  14614.   PUSHR D2
  14615.   SETV D2, 10
  14616.   PUSHR D2
  14617.   GOTO 22422
  14618.   POP D4
  14619.   PUSHR D2
  14620.   SETV D2, 0.7071
  14621.   POP D3
  14622.   MULTR D2, D3
  14623.   POP D3
  14624.   SUBR D3, D2
  14625.   SETR D2, D3
  14626.   PUSHR D4
  14627.   SETV D3, 14638
  14628.   PUSHR D3
  14629.   PUSHR D2
  14630.   SETR D6, D4
  14631.   ADDV D6, 1
  14632.   LOADI D2, D6
  14633.   POP D3
  14634.   PUSHR D2
  14635.   PUSHR D3
  14636.   SETV D2, 4
  14637.   PUSHR D2
  14638.   GOTO 22428
  14639.   POP D4
  14640.   PUSHR D4
  14641.   SETV D2, 14649
  14642.   PUSHR D2
  14643.   SETR D6, D4
  14644.   ADDV D6, 1
  14645.   LOADI D2, D6
  14646.   PUSHR D2
  14647.   SETV D2, 5
  14648.   PUSHR D2
  14649.   GOTO 22422
  14650.   POP D4
  14651.   PUSHR D2
  14652.   PUSHR D4
  14653.   SETV D2, 14661
  14654.   PUSHR D2
  14655.   SETR D6, D4
  14656.   ADDV D6, 1
  14657.   LOADI D2, D6
  14658.   PUSHR D2
  14659.   SETV D2, 10
  14660.   PUSHR D2
  14661.   GOTO 22422
  14662.   POP D4
  14663.   PUSHR D2
  14664.   SETV D2, 0.7071
  14665.   POP D3
  14666.   MULTR D2, D3
  14667.   POP D3
  14668.   SUBR D3, D2
  14669.   SETR D2, D3
  14670.   PUSHR D4
  14671.   SETV D3, 14682
  14672.   PUSHR D3
  14673.   PUSHR D2
  14674.   SETR D6, D4
  14675.   ADDV D6, 1
  14676.   LOADI D2, D6
  14677.   POP D3
  14678.   PUSHR D2
  14679.   PUSHR D3
  14680.   SETV D2, 5
  14681.   PUSHR D2
  14682.   GOTO 22428
  14683.   POP D4
  14684.   GOTO 14970
  14685.   SETV D3, 0
  14686.   SETR D6, D4
  14687.   ADDV D6, 0
  14688.   LOADI D2, D6
  14689.   PUSHR D2
  14690.   SETV D2, 5
  14691.   POP D3
  14692.   COMPARER D2, D3
  14693.   SETTRUE D2
  14694.   COMPAREV D2, 0
  14695.   GOTOTRUE 14782
  14696.   PUSHR D4
  14697.   SETV D2, 14705
  14698.   PUSHR D2
  14699.   SETR D6, D4
  14700.   ADDV D6, 1
  14701.   LOADI D2, D6
  14702.   PUSHR D2
  14703.   SETV D2, 4
  14704.   PUSHR D2
  14705.   GOTO 22422
  14706.   POP D4
  14707.   PUSHR D2
  14708.   PUSHR D4
  14709.   SETV D2, 14717
  14710.   PUSHR D2
  14711.   SETR D6, D4
  14712.   ADDV D6, 1
  14713.   LOADI D2, D6
  14714.   PUSHR D2
  14715.   SETV D2, 10
  14716.   PUSHR D2
  14717.   GOTO 22422
  14718.   POP D4
  14719.   PUSHR D2
  14720.   SETV D2, 0.7071
  14721.   POP D3
  14722.   MULTR D2, D3
  14723.   POP D3
  14724.   ADDR D2, D3
  14725.   PUSHR D4
  14726.   SETV D3, 14737
  14727.   PUSHR D3
  14728.   PUSHR D2
  14729.   SETR D6, D4
  14730.   ADDV D6, 1
  14731.   LOADI D2, D6
  14732.   POP D3
  14733.   PUSHR D2
  14734.   PUSHR D3
  14735.   SETV D2, 4
  14736.   PUSHR D2
  14737.   GOTO 22428
  14738.   POP D4
  14739.   PUSHR D4
  14740.   SETV D2, 14748
  14741.   PUSHR D2
  14742.   SETR D6, D4
  14743.   ADDV D6, 1
  14744.   LOADI D2, D6
  14745.   PUSHR D2
  14746.   SETV D2, 5
  14747.   PUSHR D2
  14748.   GOTO 22422
  14749.   POP D4
  14750.   PUSHR D2
  14751.   PUSHR D4
  14752.   SETV D2, 14760
  14753.   PUSHR D2
  14754.   SETR D6, D4
  14755.   ADDV D6, 1
  14756.   LOADI D2, D6
  14757.   PUSHR D2
  14758.   SETV D2, 10
  14759.   PUSHR D2
  14760.   GOTO 22422
  14761.   POP D4
  14762.   PUSHR D2
  14763.   SETV D2, 0.7071
  14764.   POP D3
  14765.   MULTR D2, D3
  14766.   POP D3
  14767.   SUBR D3, D2
  14768.   SETR D2, D3
  14769.   PUSHR D4
  14770.   SETV D3, 14781
  14771.   PUSHR D3
  14772.   PUSHR D2
  14773.   SETR D6, D4
  14774.   ADDV D6, 1
  14775.   LOADI D2, D6
  14776.   POP D3
  14777.   PUSHR D2
  14778.   PUSHR D3
  14779.   SETV D2, 5
  14780.   PUSHR D2
  14781.   GOTO 22428
  14782.   POP D4
  14783.   GOTO 14969
  14784.   SETV D3, 0
  14785.   SETR D6, D4
  14786.   ADDV D6, 0
  14787.   LOADI D2, D6
  14788.   PUSHR D2
  14789.   SETV D2, 6
  14790.   POP D3
  14791.   COMPARER D2, D3
  14792.   SETTRUE D2
  14793.   COMPAREV D2, 0
  14794.   GOTOTRUE 14881
  14795.   PUSHR D4
  14796.   SETV D2, 14804
  14797.   PUSHR D2
  14798.   SETR D6, D4
  14799.   ADDV D6, 1
  14800.   LOADI D2, D6
  14801.   PUSHR D2
  14802.   SETV D2, 4
  14803.   PUSHR D2
  14804.   GOTO 22422
  14805.   POP D4
  14806.   PUSHR D2
  14807.   PUSHR D4
  14808.   SETV D2, 14816
  14809.   PUSHR D2
  14810.   SETR D6, D4
  14811.   ADDV D6, 1
  14812.   LOADI D2, D6
  14813.   PUSHR D2
  14814.   SETV D2, 10
  14815.   PUSHR D2
  14816.   GOTO 22422
  14817.   POP D4
  14818.   PUSHR D2
  14819.   SETV D2, 0.7071
  14820.   POP D3
  14821.   MULTR D2, D3
  14822.   POP D3
  14823.   SUBR D3, D2
  14824.   SETR D2, D3
  14825.   PUSHR D4
  14826.   SETV D3, 14837
  14827.   PUSHR D3
  14828.   PUSHR D2
  14829.   SETR D6, D4
  14830.   ADDV D6, 1
  14831.   LOADI D2, D6
  14832.   POP D3
  14833.   PUSHR D2
  14834.   PUSHR D3
  14835.   SETV D2, 4
  14836.   PUSHR D2
  14837.   GOTO 22428
  14838.   POP D4
  14839.   PUSHR D4
  14840.   SETV D2, 14848
  14841.   PUSHR D2
  14842.   SETR D6, D4
  14843.   ADDV D6, 1
  14844.   LOADI D2, D6
  14845.   PUSHR D2
  14846.   SETV D2, 5
  14847.   PUSHR D2
  14848.   GOTO 22422
  14849.   POP D4
  14850.   PUSHR D2
  14851.   PUSHR D4
  14852.   SETV D2, 14860
  14853.   PUSHR D2
  14854.   SETR D6, D4
  14855.   ADDV D6, 1
  14856.   LOADI D2, D6
  14857.   PUSHR D2
  14858.   SETV D2, 10
  14859.   PUSHR D2
  14860.   GOTO 22422
  14861.   POP D4
  14862.   PUSHR D2
  14863.   SETV D2, 0.7071
  14864.   POP D3
  14865.   MULTR D2, D3
  14866.   POP D3
  14867.   ADDR D2, D3
  14868.   PUSHR D4
  14869.   SETV D3, 14880
  14870.   PUSHR D3
  14871.   PUSHR D2
  14872.   SETR D6, D4
  14873.   ADDV D6, 1
  14874.   LOADI D2, D6
  14875.   POP D3
  14876.   PUSHR D2
  14877.   PUSHR D3
  14878.   SETV D2, 5
  14879.   PUSHR D2
  14880.   GOTO 22428
  14881.   POP D4
  14882.   GOTO 14968
  14883.   SETV D3, 0
  14884.   PUSHR D4
  14885.   SETV D2, 14893
  14886.   PUSHR D2
  14887.   SETR D6, D4
  14888.   ADDV D6, 1
  14889.   LOADI D2, D6
  14890.   PUSHR D2
  14891.   SETV D2, 4
  14892.   PUSHR D2
  14893.   GOTO 22422
  14894.   POP D4
  14895.   PUSHR D2
  14896.   PUSHR D4
  14897.   SETV D2, 14905
  14898.   PUSHR D2
  14899.   SETR D6, D4
  14900.   ADDV D6, 1
  14901.   LOADI D2, D6
  14902.   PUSHR D2
  14903.   SETV D2, 10
  14904.   PUSHR D2
  14905.   GOTO 22422
  14906.   POP D4
  14907.   PUSHR D2
  14908.   SETV D2, 0.7071
  14909.   POP D3
  14910.   MULTR D2, D3
  14911.   POP D3
  14912.   ADDR D2, D3
  14913.   PUSHR D4
  14914.   SETV D3, 14925
  14915.   PUSHR D3
  14916.   PUSHR D2
  14917.   SETR D6, D4
  14918.   ADDV D6, 1
  14919.   LOADI D2, D6
  14920.   POP D3
  14921.   PUSHR D2
  14922.   PUSHR D3
  14923.   SETV D2, 4
  14924.   PUSHR D2
  14925.   GOTO 22428
  14926.   POP D4
  14927.   PUSHR D4
  14928.   SETV D2, 14936
  14929.   PUSHR D2
  14930.   SETR D6, D4
  14931.   ADDV D6, 1
  14932.   LOADI D2, D6
  14933.   PUSHR D2
  14934.   SETV D2, 5
  14935.   PUSHR D2
  14936.   GOTO 22422
  14937.   POP D4
  14938.   PUSHR D2
  14939.   PUSHR D4
  14940.   SETV D2, 14948
  14941.   PUSHR D2
  14942.   SETR D6, D4
  14943.   ADDV D6, 1
  14944.   LOADI D2, D6
  14945.   PUSHR D2
  14946.   SETV D2, 10
  14947.   PUSHR D2
  14948.   GOTO 22422
  14949.   POP D4
  14950.   PUSHR D2
  14951.   SETV D2, 0.7071
  14952.   POP D3
  14953.   MULTR D2, D3
  14954.   POP D3
  14955.   ADDR D2, D3
  14956.   PUSHR D4
  14957.   SETV D3, 14968
  14958.   PUSHR D3
  14959.   PUSHR D2
  14960.   SETR D6, D4
  14961.   ADDV D6, 1
  14962.   LOADI D2, D6
  14963.   POP D3
  14964.   PUSHR D2
  14965.   PUSHR D3
  14966.   SETV D2, 5
  14967.   PUSHR D2
  14968.   GOTO 22428
  14969.   POP D4
  14970.   SETV D3, 0
  14971.   SETV D3, 0
  14972.   SETV D3, 0
  14973.   SETV D3, 0
  14974.   SETV D3, 0
  14975.   SETV D3, 0
  14976.   SETV D3, 0
  14977.   PUSHR D4
  14978.   SETV D2, 14986
  14979.   PUSHR D2
  14980.   SETR D6, D4
  14981.   ADDV D6, 1
  14982.   LOADI D2, D6
  14983.   PUSHR D2
  14984.   SETV D2, 4
  14985.   PUSHR D2
  14986.   GOTO 22422
  14987.   POP D4
  14988.   PUSHR D4
  14989.   SETV D3, 14998
  14990.   PUSHR D3
  14991.   PUSHR D2
  14992.   SETR D6, D4
  14993.   ADDV D6, 1
  14994.   LOADI D2, D6
  14995.   POP D3
  14996.   PUSHR D2
  14997.   PUSHR D3
  14998.   GOTO 22213
  14999.   POP D4
  15000.   PUSHR D4
  15001.   SETV D2, 15009
  15002.   PUSHR D2
  15003.   SETR D6, D4
  15004.   ADDV D6, 1
  15005.   LOADI D2, D6
  15006.   PUSHR D2
  15007.   SETV D2, 5
  15008.   PUSHR D2
  15009.   GOTO 22422
  15010.   POP D4
  15011.   PUSHR D4
  15012.   SETV D3, 15021
  15013.   PUSHR D3
  15014.   PUSHR D2
  15015.   SETR D6, D4
  15016.   ADDV D6, 1
  15017.   LOADI D2, D6
  15018.   POP D3
  15019.   PUSHR D2
  15020.   PUSHR D3
  15021.   GOTO 22224
  15022.   POP D4
  15023.   SETV D3, 0
  15024.   POP D3
  15025.   POP D3
  15026.   POP D3
  15027.   GOTOR D3
  15028.   SETV D2, 0
  15029.   SETR D4, SP
  15030.   PUSHR D4
  15031.   SETV D2, 15033
  15032.   PUSHR D2
  15033.   GOTO 15076
  15034.   POP D4
  15035.   SETV D3, 0
  15036.   POP D3
  15037.   GOTOR D3
  15038.   SETV D2, 0
  15039.   SETR D4, SP
  15040.   PUSHR D4
  15041.   SETV D2, 15043
  15042.   PUSHR D2
  15043.   GOTO 15461
  15044.   POP D4
  15045.   PUSHR D4
  15046.   SETV D2, 15048
  15047.   PUSHR D2
  15048.   GOTO 15760
  15049.   POP D4
  15050.   PUSHR D4
  15051.   SETV D2, 15053
  15052.   PUSHR D2
  15053.   GOTO 15137
  15054.   POP D4
  15055.   SETV D3, 0
  15056.   POP D3
  15057.   GOTOR D3
  15058.   SETV D2, 0
  15059.   SETR D4, SP
  15060.   PUSHR D4
  15061.   SETV D2, 15063
  15062.   PUSHR D2
  15063.   GOTO 259
  15064.   POP D4
  15065.   PUSHR D4
  15066.   SETV D2, 15068
  15067.   PUSHR D2
  15068.   GOTO 15905
  15069.   POP D4
  15070.   PUSHR D4
  15071.   SETV D2, 15073
  15072.   PUSHR D2
  15073.   GOTO 15237
  15074.   POP D4
  15075.   SETV D3, 0
  15076.   POP D3
  15077.   GOTOR D3
  15078.   SETV D2, 0
  15079.   SETR D4, SP
  15080.   SETV D2, 0
  15081.   SETR D0, GD26
  15082.   SETR D5, D2
  15083.   PUSHR D0
  15084.   SETV D2, 0
  15085.   POP D0
  15086.   SETR D1, D2
  15087.   SETR GLOBALRAM, D5
  15088.   SETV D2, 0
  15089.   SETR D0, GD26
  15090.   SETR D5, D2
  15091.   PUSHR D0
  15092.   SETV D2, 1
  15093.   POP D0
  15094.   SETR D1, D2
  15095.   SETR GLOBALRAM, D5
  15096.   SETV D2, 0
  15097.   SETR D0, GD26
  15098.   SETR D5, D2
  15099.   PUSHR D0
  15100.   SETV D2, 2
  15101.   POP D0
  15102.   SETR D1, D2
  15103.   SETR GLOBALRAM, D5
  15104.   SETV D2, 0
  15105.   SETR D0, GD26
  15106.   SETR D5, D2
  15107.   PUSHR D0
  15108.   SETV D2, 3
  15109.   POP D0
  15110.   SETR D1, D2
  15111.   SETR GLOBALRAM, D5
  15112.   SETV D2, 0
  15113.   SETR D0, GD26
  15114.   SETR D5, D2
  15115.   PUSHR D0
  15116.   SETV D2, 4
  15117.   POP D0
  15118.   SETR D1, D2
  15119.   SETR GLOBALRAM, D5
  15120.   SETV D2, 0
  15121.   SETR D0, GD26
  15122.   SETR D5, D2
  15123.   PUSHR D0
  15124.   SETV D2, 5
  15125.   POP D0
  15126.   SETR D1, D2
  15127.   SETR GLOBALRAM, D5
  15128.   SETV D2, 0
  15129.   SETR D0, GD26
  15130.   SETR D5, D2
  15131.   PUSHR D0
  15132.   SETV D2, 6
  15133.   POP D0
  15134.   SETR D1, D2
  15135.   SETR GLOBALRAM, D5
  15136.   SETV D3, 0
  15137.   POP D3
  15138.   GOTOR D3
  15139.   SETV D2, 0
  15140.   PUSHR D2
  15141.   SETR D4, SP
  15142.   PUSHR D4
  15143.   SETV D2, 15147
  15144.   PUSHR D2
  15145.   SETR D2, GD0
  15146.   PUSHR D2
  15147.   GOTO 22102
  15148.   POP D4
  15149.   PUSHR D2
  15150.   SETV D2, 8
  15151.   POP D3
  15152.   LSHIFTR D3, D2
  15153.   SETR D2, D3
  15154.   PUSHR D2
  15155.   PUSHR D4
  15156.   SETV D2, 15160
  15157.   PUSHR D2
  15158.   SETR D2, GD0
  15159.   PUSHR D2
  15160.   GOTO 22097
  15161.   POP D4
  15162.   POP D3
  15163.   ADDR D2, D3
  15164.   SETR D6, D4
  15165.   ADDV D6, 0
  15166.   STOREI D2, D6
  15167.   SETR D2, GD26
  15168.   PUSHR D2
  15169.   SETV D2, 7
  15170.   POP D0
  15171.   SETR D1, D2
  15172.   SETR D2, GLOBALRAM
  15173.   PUSHR D2
  15174.   SETR D6, D4
  15175.   ADDV D6, 0
  15176.   LOADI D2, D6
  15177.   POP D3
  15178.   COMPARER D2, D3
  15179.   SETFALSE D2
  15180.   COMPAREV D2, 0
  15181.   GOTOTRUE 15199
  15182.   SETV D2, 0
  15183.   SETR D0, GD26
  15184.   SETR D5, D2
  15185.   PUSHR D0
  15186.   SETV D2, 6
  15187.   POP D0
  15188.   SETR D1, D2
  15189.   SETR GLOBALRAM, D5
  15190.   SETR D6, D4
  15191.   ADDV D6, 0
  15192.   LOADI D2, D6
  15193.   SETR D0, GD26
  15194.   SETR D5, D2
  15195.   PUSHR D0
  15196.   SETV D2, 7
  15197.   POP D0
  15198.   SETR D1, D2
  15199.   SETR GLOBALRAM, D5
  15200.   GOTO 15232
  15201.   SETV D3, 0
  15202.   SETR D2, GD26
  15203.   PUSHR D2
  15204.   SETV D2, 6
  15205.   POP D0
  15206.   SETR D1, D2
  15207.   SETR D2, GLOBALRAM
  15208.   PUSHR D2
  15209.   SETV D2, 0
  15210.   POP D3
  15211.   COMPARER D3, D2
  15212.   SETLESS D2
  15213.   COMPAREV D2, 0
  15214.   SETTRUE D2
  15215.   COMPAREV D2, 0
  15216.   GOTOTRUE 15231
  15217.   SETR D2, GD26
  15218.   PUSHR D2
  15219.   SETV D2, 6
  15220.   POP D0
  15221.   SETR D1, D2
  15222.   SETR D2, GLOBALRAM
  15223.   PUSHR D2
  15224.   SUBV D2, 1
  15225.   SETR D0, GD26
  15226.   SETR D5, D2
  15227.   PUSHR D0
  15228.   SETV D2, 6
  15229.   POP D0
  15230.   SETR D1, D2
  15231.   SETR GLOBALRAM, D5
  15232.   POP D2
  15233.   SETV D2, 0
  15234.   SETV D3, 0
  15235.   SETV D3, 0
  15236.   POP D3
  15237.   POP D3
  15238.   GOTOR D3
  15239.   SETV D2, 0
  15240.   SETR D4, SP
  15241.   SETR D2, GD26
  15242.   PUSHR D2
  15243.   SETV D2, 1
  15244.   POP D0
  15245.   SETR D1, D2
  15246.   SETR D2, GLOBALRAM
  15247.   PUSHR D2
  15248.   SETV D2, 1
  15249.   POP D3
  15250.   ADDR D2, D3
  15251.   PUSHR D2
  15252.   SETV D2, 8
  15253.   POP D3
  15254.   MODR D3, D2
  15255.   SETR D2, D3
  15256.   SETR D0, GD26
  15257.   SETR D5, D2
  15258.   PUSHR D0
  15259.   SETV D2, 1
  15260.   POP D0
  15261.   SETR D1, D2
  15262.   SETR GLOBALRAM, D5
  15263.   SETR D2, GD26
  15264.   PUSHR D2
  15265.   SETV D2, 0
  15266.   POP D0
  15267.   SETR D1, D2
  15268.   SETR D2, GLOBALRAM
  15269.   PUSHR D2
  15270.   SETV D2, 1
  15271.   POP D3
  15272.   ANDR D2, D3
  15273.   PUSHR D2
  15274.   SETV D2, 0
  15275.   POP D3
  15276.   COMPARER D2, D3
  15277.   SETTRUE D2
  15278.   COMPAREV D2, 0
  15279.   GOTOTRUE 15296
  15280.   SETR D2, GD26
  15281.   PUSHR D2
  15282.   SETV D2, 0
  15283.   POP D0
  15284.   SETR D1, D2
  15285.   SETR D2, GLOBALRAM
  15286.   PUSHR D2
  15287.   SETV D2, 1
  15288.   POP D3
  15289.   ORR D2, D3
  15290.   SETR D0, GD26
  15291.   SETR D5, D2
  15292.   PUSHR D0
  15293.   SETV D2, 0
  15294.   POP D0
  15295.   SETR D1, D2
  15296.   SETR GLOBALRAM, D5
  15297.   GOTO 15315
  15298.   SETV D3, 0
  15299.   SETR D2, GD26
  15300.   PUSHR D2
  15301.   SETV D2, 0
  15302.   POP D0
  15303.   SETR D1, D2
  15304.   SETR D2, GLOBALRAM
  15305.   PUSHR D2
  15306.   SETV D2, 1
  15307.   BITNOT D2
  15308.   POP D3
  15309.   ANDR D2, D3
  15310.   SETR D0, GD26
  15311.   SETR D5, D2
  15312.   PUSHR D0
  15313.   SETV D2, 0
  15314.   POP D0
  15315.   SETR D1, D2
  15316.   SETR GLOBALRAM, D5
  15317.   SETV D3, 0
  15318.   SETV D2, 4
  15319.   PUSHR D2
  15320.   SETV D2, 1
  15321.   POP D3
  15322.   COMPARER D3, D2
  15323.   SETLESS D2
  15324.   COMPAREV D2, 0
  15325.   SETTRUE D2
  15326.   COMPAREV D2, 0
  15327.   GOTOTRUE 15386
  15328.   SETR D2, GD26
  15329.   PUSHR D2
  15330.   SETV D2, 3
  15331.   POP D0
  15332.   SETR D1, D2
  15333.   SETR D2, GLOBALRAM
  15334.   PUSHR D2
  15335.   ADDV D2, 1
  15336.   SETR D0, GD26
  15337.   SETR D5, D2
  15338.   PUSHR D0
  15339.   SETV D2, 3
  15340.   POP D0
  15341.   SETR D1, D2
  15342.   SETR GLOBALRAM, D5
  15343.   POP D2
  15344.   SETR D2, GD26
  15345.   PUSHR D2
  15346.   SETV D2, 3
  15347.   POP D0
  15348.   SETR D1, D2
  15349.   SETR D2, GLOBALRAM
  15350.   PUSHR D2
  15351.   SETV D2, 8
  15352.   POP D3
  15353.   COMPARER D3, D2
  15354.   SETMORE D2
  15355.   COMPAREV D2, 0
  15356.   GOTOTRUE 15385
  15357.   SETV D2, 0
  15358.   SETR D0, GD26
  15359.   SETR D5, D2
  15360.   PUSHR D0
  15361.   SETV D2, 3
  15362.   POP D0
  15363.   SETR D1, D2
  15364.   SETR GLOBALRAM, D5
  15365.   SETR D2, GD26
  15366.   PUSHR D2
  15367.   SETV D2, 2
  15368.   POP D0
  15369.   SETR D1, D2
  15370.   SETR D2, GLOBALRAM
  15371.   PUSHR D2
  15372.   SETV D2, 1
  15373.   POP D3
  15374.   ADDR D2, D3
  15375.   PUSHR D2
  15376.   SETV D2, 4
  15377.   POP D3
  15378.   MODR D3, D2
  15379.   SETR D2, D3
  15380.   SETR D0, GD26
  15381.   SETR D5, D2
  15382.   PUSHR D0
  15383.   SETV D2, 2
  15384.   POP D0
  15385.   SETR D1, D2
  15386.   SETR GLOBALRAM, D5
  15387.   SETV D2, 0
  15388.   SETV D2, 0
  15389.   SETV D2, 4
  15390.   PUSHR D2
  15391.   SETV D2, 1
  15392.   POP D3
  15393.   COMPARER D3, D2
  15394.   SETLESS D2
  15395.   COMPAREV D2, 0
  15396.   SETTRUE D2
  15397.   COMPAREV D2, 0
  15398.   GOTOTRUE 15457
  15399.   SETR D2, GD26
  15400.   PUSHR D2
  15401.   SETV D2, 5
  15402.   POP D0
  15403.   SETR D1, D2
  15404.   SETR D2, GLOBALRAM
  15405.   PUSHR D2
  15406.   ADDV D2, 1
  15407.   SETR D0, GD26
  15408.   SETR D5, D2
  15409.   PUSHR D0
  15410.   SETV D2, 5
  15411.   POP D0
  15412.   SETR D1, D2
  15413.   SETR GLOBALRAM, D5
  15414.   POP D2
  15415.   SETR D2, GD26
  15416.   PUSHR D2
  15417.   SETV D2, 5
  15418.   POP D0
  15419.   SETR D1, D2
  15420.   SETR D2, GLOBALRAM
  15421.   PUSHR D2
  15422.   SETV D2, 8
  15423.   POP D3
  15424.   COMPARER D3, D2
  15425.   SETMORE D2
  15426.   COMPAREV D2, 0
  15427.   GOTOTRUE 15456
  15428.   SETV D2, 0
  15429.   SETR D0, GD26
  15430.   SETR D5, D2
  15431.   PUSHR D0
  15432.   SETV D2, 5
  15433.   POP D0
  15434.   SETR D1, D2
  15435.   SETR GLOBALRAM, D5
  15436.   SETR D2, GD26
  15437.   PUSHR D2
  15438.   SETV D2, 4
  15439.   POP D0
  15440.   SETR D1, D2
  15441.   SETR D2, GLOBALRAM
  15442.   PUSHR D2
  15443.   SETV D2, 1
  15444.   POP D3
  15445.   ADDR D2, D3
  15446.   PUSHR D2
  15447.   SETV D2, 4
  15448.   POP D3
  15449.   MODR D3, D2
  15450.   SETR D2, D3
  15451.   SETR D0, GD26
  15452.   SETR D5, D2
  15453.   PUSHR D0
  15454.   SETV D2, 4
  15455.   POP D0
  15456.   SETR D1, D2
  15457.   SETR GLOBALRAM, D5
  15458.   SETV D2, 0
  15459.   SETV D2, 0
  15460.   SETV D3, 0
  15461.   POP D3
  15462.   GOTOR D3
  15463.   SETV D2, 0
  15464.   PUSHR D2
  15465.   PUSHR D2
  15466.   PUSHR D2
  15467.   SETR D4, SP
  15468.   SETR D6, D4
  15469.   ADDV D6, 2
  15470.   SETV D2, 0
  15471.   STOREI D2, D6
  15472.   PUSHR D4
  15473.   SETV D2, 15477
  15474.   PUSHR D2
  15475.   SETR D2, GD0
  15476.   PUSHR D2
  15477.   GOTO 21994
  15478.   POP D4
  15479.   PUSHR D2
  15480.   SETV D2, 4
  15481.   POP D3
  15482.   COMPARER D2, D3
  15483.   SETTRUE D2
  15484.   PUSHR D2
  15485.   PUSHR D4
  15486.   SETV D2, 15490
  15487.   PUSHR D2
  15488.   SETR D2, GD0
  15489.   PUSHR D2
  15490.   GOTO 21994
  15491.   POP D4
  15492.   PUSHR D2
  15493.   SETV D2, 5
  15494.   POP D3
  15495.   COMPARER D2, D3
  15496.   SETTRUE D2
  15497.   POP D3
  15498.   ADDR D2, D3
  15499.   COMPAREV D2, 0.0001
  15500.   SETMORE D2
  15501.   PUSHR D2
  15502.   PUSHR D4
  15503.   SETV D2, 15507
  15504.   PUSHR D2
  15505.   SETR D2, GD0
  15506.   PUSHR D2
  15507.   GOTO 21994
  15508.   POP D4
  15509.   PUSHR D2
  15510.   SETV D2, 14
  15511.   POP D3
  15512.   COMPARER D2, D3
  15513.   SETTRUE D2
  15514.   POP D3
  15515.   ADDR D2, D3
  15516.   COMPAREV D2, 0.0001
  15517.   SETMORE D2
  15518.   PUSHR D2
  15519.   PUSHR D4
  15520.   SETV D2, 15524
  15521.   PUSHR D2
  15522.   SETR D2, GD0
  15523.   PUSHR D2
  15524.   GOTO 21994
  15525.   POP D4
  15526.   PUSHR D2
  15527.   SETV D2, 15
  15528.   POP D3
  15529.   COMPARER D2, D3
  15530.   SETTRUE D2
  15531.   POP D3
  15532.   ADDR D2, D3
  15533.   COMPAREV D2, 0.0001
  15534.   SETMORE D2
  15535.   COMPAREV D2, 0
  15536.   SETTRUE D2
  15537.   COMPAREV D2, 0
  15538.   GOTOTRUE 15645
  15539.   PUSHR D4
  15540.   SETV D2, 15544
  15541.   PUSHR D2
  15542.   SETR D2, GD0
  15543.   PUSHR D2
  15544.   GOTO 22067
  15545.   POP D4
  15546.   SETR D6, D4
  15547.   ADDV D6, 1
  15548.   STOREI D2, D6
  15549.   SETV D2, 0
  15550.   SETR D6, D4
  15551.   ADDV D6, 1
  15552.   LOADI D2, D6
  15553.   PUSHR D2
  15554.   SETV D2, 0
  15555.   POP D3
  15556.   COMPARER D3, D2
  15557.   SETLESS D2
  15558.   COMPAREV D2, 0
  15559.   SETTRUE D2
  15560.   COMPAREV D2, 0
  15561.   GOTOTRUE 15643
  15562.   PUSHR D4
  15563.   SETV D2, 15571
  15564.   PUSHR D2
  15565.   SETR D2, GD0
  15566.   PUSHR D2
  15567.   SETR D6, D4
  15568.   ADDV D6, 1
  15569.   LOADI D2, D6
  15570.   PUSHR D2
  15571.   GOTO 22072
  15572.   POP D4
  15573.   SETR D6, D4
  15574.   ADDV D6, 2
  15575.   STOREI D2, D6
  15576.   PUSHR D4
  15577.   SETV D2, 15585
  15578.   PUSHR D2
  15579.   SETR D6, D4
  15580.   ADDV D6, 2
  15581.   LOADI D2, D6
  15582.   PUSHR D2
  15583.   SETV D2, 15
  15584.   PUSHR D2
  15585.   GOTO 22422
  15586.   POP D4
  15587.   PUSHR D2
  15588.   SETV D2, 512
  15589.   POP D3
  15590.   ANDR D2, D3
  15591.   PUSHR D2
  15592.   SETV D2, 0
  15593.   POP D3
  15594.   COMPARER D2, D3
  15595.   SETTRUE D2
  15596.   PUSHR D2
  15597.   PUSHR D4
  15598.   SETV D2, 15606
  15599.   PUSHR D2
  15600.   SETR D6, D4
  15601.   ADDV D6, 2
  15602.   LOADI D2, D6
  15603.   PUSHR D2
  15604.   SETV D2, 15
  15605.   PUSHR D2
  15606.   GOTO 22422
  15607.   POP D4
  15608.   PUSHR D2
  15609.   SETV D2, 256
  15610.   POP D3
  15611.   ANDR D2, D3
  15612.   PUSHR D2
  15613.   SETV D2, 0
  15614.   POP D3
  15615.   COMPARER D2, D3
  15616.   SETFALSE D2
  15617.   POP D3
  15618.   ADDR D2, D3
  15619.   COMPAREV D2, 0.0001
  15620.   SETMORE D2
  15621.   COMPAREV D2, 0
  15622.   GOTOTRUE 15622
  15623.   GOTO 15632
  15624.   SETV D2, 0
  15625.   PUSHR D4
  15626.   SETV D2, 15632
  15627.   PUSHR D2
  15628.   SETR D6, D4
  15629.   ADDV D6, 2
  15630.   LOADI D2, D6
  15631.   PUSHR D2
  15632.   GOTO 1103
  15633.   POP D4
  15634.   SETV D3, 0
  15635.   SETR D6, D4
  15636.   ADDV D6, 1
  15637.   LOADI D2, D6
  15638.   PUSHR D2
  15639.   SUBV D2, 1
  15640.   SETR D6, D4
  15641.   ADDV D6, 1
  15642.   STOREI D2, D6
  15643.   POP D2
  15644.   GOTO 15547
  15645.   SETV D3, 0
  15646.   GOTO 15753
  15647.   SETV D3, 0
  15648.   PUSHR D4
  15649.   SETV D2, 15653
  15650.   PUSHR D2
  15651.   SETR D2, GD0
  15652.   PUSHR D2
  15653.   GOTO 22067
  15654.   POP D4
  15655.   SETR D6, D4
  15656.   ADDV D6, 0
  15657.   STOREI D2, D6
  15658.   SETV D2, 0
  15659.   SETR D6, D4
  15660.   ADDV D6, 0
  15661.   LOADI D2, D6
  15662.   PUSHR D2
  15663.   SETV D2, 0
  15664.   POP D3
  15665.   COMPARER D3, D2
  15666.   SETLESS D2
  15667.   COMPAREV D2, 0
  15668.   SETTRUE D2
  15669.   COMPAREV D2, 0
  15670.   GOTOTRUE 15752
  15671.   PUSHR D4
  15672.   SETV D2, 15680
  15673.   PUSHR D2
  15674.   SETR D2, GD0
  15675.   PUSHR D2
  15676.   SETR D6, D4
  15677.   ADDV D6, 0
  15678.   LOADI D2, D6
  15679.   PUSHR D2
  15680.   GOTO 22072
  15681.   POP D4
  15682.   SETR D6, D4
  15683.   ADDV D6, 2
  15684.   STOREI D2, D6
  15685.   PUSHR D4
  15686.   SETV D2, 15694
  15687.   PUSHR D2
  15688.   SETR D6, D4
  15689.   ADDV D6, 2
  15690.   LOADI D2, D6
  15691.   PUSHR D2
  15692.   SETV D2, 15
  15693.   PUSHR D2
  15694.   GOTO 22422
  15695.   POP D4
  15696.   PUSHR D2
  15697.   SETV D2, 512
  15698.   POP D3
  15699.   ANDR D2, D3
  15700.   PUSHR D2
  15701.   SETV D2, 0
  15702.   POP D3
  15703.   COMPARER D2, D3
  15704.   SETTRUE D2
  15705.   PUSHR D2
  15706.   PUSHR D4
  15707.   SETV D2, 15715
  15708.   PUSHR D2
  15709.   SETR D6, D4
  15710.   ADDV D6, 2
  15711.   LOADI D2, D6
  15712.   PUSHR D2
  15713.   SETV D2, 15
  15714.   PUSHR D2
  15715.   GOTO 22422
  15716.   POP D4
  15717.   PUSHR D2
  15718.   SETV D2, 256
  15719.   POP D3
  15720.   ANDR D2, D3
  15721.   PUSHR D2
  15722.   SETV D2, 0
  15723.   POP D3
  15724.   COMPARER D2, D3
  15725.   SETFALSE D2
  15726.   POP D3
  15727.   ADDR D2, D3
  15728.   COMPAREV D2, 0.0001
  15729.   SETMORE D2
  15730.   COMPAREV D2, 0
  15731.   GOTOTRUE 15731
  15732.   GOTO 15741
  15733.   SETV D2, 0
  15734.   PUSHR D4
  15735.   SETV D2, 15741
  15736.   PUSHR D2
  15737.   SETR D6, D4
  15738.   ADDV D6, 2
  15739.   LOADI D2, D6
  15740.   PUSHR D2
  15741.   GOTO 3294
  15742.   POP D4
  15743.   SETV D3, 0
  15744.   SETR D6, D4
  15745.   ADDV D6, 0
  15746.   LOADI D2, D6
  15747.   PUSHR D2
  15748.   SUBV D2, 1
  15749.   SETR D6, D4
  15750.   ADDV D6, 0
  15751.   STOREI D2, D6
  15752.   POP D2
  15753.   GOTO 15656
  15754.   SETV D3, 0
  15755.   SETV D3, 0
  15756.   SETV D3, 0
  15757.   POP D3
  15758.   POP D3
  15759.   POP D3
  15760.   POP D3
  15761.   GOTOR D3
  15762.   SETV D2, 0
  15763.   PUSHR D2
  15764.   PUSHR D2
  15765.   SETR D4, SP
  15766.   PUSHR D4
  15767.   SETV D2, 15771
  15768.   PUSHR D2
  15769.   SETR D2, GD0
  15770.   PUSHR D2
  15771.   GOTO 21989
  15772.   POP D4
  15773.   PUSHR D2
  15774.   SETV D2, 0
  15775.   POP D3
  15776.   COMPARER D3, D2
  15777.   SETLESS D2
  15778.   PUSHR D2
  15779.   SETV D2, 1
  15780.   PUSHR D2
  15781.   SETV D2, 0
  15782.   POP D3
  15783.   COMPARER D2, D3
  15784.   SETTRUE D2
  15785.   POP D3
  15786.   COMPAREV D2, 0
  15787.   SETFALSE D2
  15788.   COMPAREV D3, 0
  15789.   SETFALSE D3
  15790.   ADDR D2, D3
  15791.   COMPAREV D2, 0.0002
  15792.   SETMORE D2
  15793.   COMPAREV D2, 0
  15794.   GOTOTRUE 15899
  15795.   SETR D6, D4
  15796.   ADDV D6, 1
  15797.   SETV D2, 0
  15798.   STOREI D2, D6
  15799.   SETV D2, 1
  15800.   SETR D6, D4
  15801.   ADDV D6, 0
  15802.   STOREI D2, D6
  15803.   SETV D2, 0
  15804.   SETR D6, D4
  15805.   ADDV D6, 0
  15806.   LOADI D2, D6
  15807.   PUSHR D2
  15808.   SETV D2, 32
  15809.   POP D3
  15810.   COMPARER D3, D2
  15811.   SETLESS D2
  15812.   COMPAREV D2, 0
  15813.   GOTOTRUE 15898
  15814.   PUSHR D4
  15815.   SETV D2, 15823
  15816.   PUSHR D2
  15817.   SETR D2, GD0
  15818.   PUSHR D2
  15819.   SETR D6, D4
  15820.   ADDV D6, 0
  15821.   LOADI D2, D6
  15822.   PUSHR D2
  15823.   GOTO 22005
  15824.   POP D4
  15825.   SETR D6, D4
  15826.   ADDV D6, 1
  15827.   STOREI D2, D6
  15828.   SETR D2, GD24
  15829.   PUSHR D2
  15830.   PUSHR D4
  15831.   SETV D2, 15837
  15832.   PUSHR D2
  15833.   SETR D6, D4
  15834.   ADDV D6, 1
  15835.   LOADI D2, D6
  15836.   PUSHR D2
  15837.   GOTO 21891
  15838.   POP D4
  15839.   PUSHR D2
  15840.   SETV D2, 4
  15841.   POP D3
  15842.   RSHIFTR D3, D2
  15843.   SETR D2, D3
  15844.   POP D0
  15845.   SETR D1, D2
  15846.   SETR D2, GLOBALRAM
  15847.   PUSHR D2
  15848.   SETV D2, 1
  15849.   PUSHR D2
  15850.   PUSHR D4
  15851.   SETV D2, 15857
  15852.   PUSHR D2
  15853.   SETR D6, D4
  15854.   ADDV D6, 1
  15855.   LOADI D2, D6
  15856.   PUSHR D2
  15857.   GOTO 21891
  15858.   POP D4
  15859.   PUSHR D2
  15860.   SETV D2, 15
  15861.   POP D3
  15862.   ANDR D2, D3
  15863.   POP D3
  15864.   LSHIFTR D3, D2
  15865.   SETR D2, D3
  15866.   POP D3
  15867.   ANDR D2, D3
  15868.   PUSHR D2
  15869.   SETV D2, 0
  15870.   POP D3
  15871.   COMPARER D2, D3
  15872.   SETFALSE D2
  15873.   COMPAREV D2, 0
  15874.   GOTOTRUE 15886
  15875.   SETV D2, 0
  15876.   PUSHR D4
  15877.   SETV D3, 15886
  15878.   PUSHR D3
  15879.   PUSHR D2
  15880.   SETR D6, D4
  15881.   ADDV D6, 1
  15882.   LOADI D2, D6
  15883.   POP D3
  15884.   PUSHR D2
  15885.   PUSHR D3
  15886.   GOTO 21885
  15887.   POP D4
  15888.   SETV D2, 0
  15889.   SETV D3, 0
  15890.   SETR D6, D4
  15891.   ADDV D6, 0
  15892.   LOADI D2, D6
  15893.   PUSHR D2
  15894.   ADDV D2, 1
  15895.   SETR D6, D4
  15896.   ADDV D6, 0
  15897.   STOREI D2, D6
  15898.   POP D2
  15899.   GOTO 15801
  15900.   SETV D3, 0
  15901.   SETV D2, 0
  15902.   SETV D3, 0
  15903.   POP D3
  15904.   POP D3
  15905.   POP D3
  15906.   GOTOR D3
  15907.   SETV D2, 0
  15908.   PUSHR D2
  15909.   PUSHR D2
  15910.   PUSHR D2
  15911.   PUSHR D2
  15912.   PUSHR D2
  15913.   PUSHR D2
  15914.   PUSHR D2
  15915.   PUSHR D2
  15916.   SETR D4, SP
  15917.   SETR D2, GD26
  15918.   PUSHR D2
  15919.   SETV D2, 0
  15920.   POP D0
  15921.   SETR D1, D2
  15922.   SETR D2, GLOBALRAM
  15923.   PUSHR D2
  15924.   SETV D2, 2
  15925.   POP D3
  15926.   ANDR D2, D3
  15927.   PUSHR D2
  15928.   SETV D2, 0
  15929.   POP D3
  15930.   COMPARER D2, D3
  15931.   SETFALSE D2
  15932.   COMPAREV D2, 0
  15933.   GOTOTRUE 15933
  15934.   GOTO 16679
  15935.   SETV D2, 0
  15936.   SETR D6, D4
  15937.   ADDV D6, 7
  15938.   SETV D2, 0
  15939.   STOREI D2, D6
  15940.   SETV D2, 0
  15941.   SETR D6, D4
  15942.   ADDV D6, 6
  15943.   STOREI D2, D6
  15944.   SETR D6, D4
  15945.   ADDV D6, 5
  15946.   SETV D2, 0
  15947.   STOREI D2, D6
  15948.   PUSHR D4
  15949.   SETV D2, 15953
  15950.   PUSHR D2
  15951.   SETR D2, GD0
  15952.   PUSHR D2
  15953.   GOTO 22010
  15954.   POP D4
  15955.   SETR D6, D4
  15956.   ADDV D6, 4
  15957.   STOREI D2, D6
  15958.   SETV D2, 0
  15959.   SETR D6, D4
  15960.   ADDV D6, 4
  15961.   LOADI D2, D6
  15962.   PUSHR D2
  15963.   SETV D2, 0
  15964.   POP D3
  15965.   COMPARER D3, D2
  15966.   SETLESS D2
  15967.   COMPAREV D2, 0
  15968.   SETTRUE D2
  15969.   COMPAREV D2, 0
  15970.   GOTOTRUE 16678
  15971.   PUSHR D4
  15972.   SETV D2, 15980
  15973.   PUSHR D2
  15974.   SETR D2, GD0
  15975.   PUSHR D2
  15976.   SETR D6, D4
  15977.   ADDV D6, 4
  15978.   LOADI D2, D6
  15979.   PUSHR D2
  15980.   GOTO 22015
  15981.   POP D4
  15982.   SETR D6, D4
  15983.   ADDV D6, 7
  15984.   STOREI D2, D6
  15985.   PUSHR D4
  15986.   SETV D2, 15992
  15987.   PUSHR D2
  15988.   SETR D6, D4
  15989.   ADDV D6, 7
  15990.   LOADI D2, D6
  15991.   PUSHR D2
  15992.   GOTO 22156
  15993.   POP D4
  15994.   PUSHR D2
  15995.   SETV D2, 20
  15996.   POP D3
  15997.   COMPARER D3, D2
  15998.   SETMORE D2
  15999.   COMPAREV D2, 0
  16000.   SETTRUE D2
  16001.   PUSHR D2
  16002.   PUSHR D4
  16003.   SETV D2, 16009
  16004.   PUSHR D2
  16005.   SETR D6, D4
  16006.   ADDV D6, 7
  16007.   LOADI D2, D6
  16008.   PUSHR D2
  16009.   GOTO 22156
  16010.   POP D4
  16011.   PUSHR D2
  16012.   SETV D2, 511
  16013.   POP D3
  16014.   COMPARER D3, D2
  16015.   SETLESS D2
  16016.   COMPAREV D2, 0
  16017.   SETTRUE D2
  16018.   POP D3
  16019.   ADDR D2, D3
  16020.   COMPAREV D2, 0.0001
  16021.   SETMORE D2
  16022.   COMPAREV D2, 0
  16023.   GOTOTRUE 16023
  16024.   GOTO 16667
  16025.   SETV D2, 0
  16026.   SETV D2, 0
  16027.   PUSHR D2
  16028.   SETV D2, 0
  16029.   POP D3
  16030.   COMPARER D2, D3
  16031.   SETTRUE D2
  16032.   COMPAREV D2, 0
  16033.   GOTOTRUE 16098
  16034.   PUSHR D4
  16035.   SETV D2, 16043
  16036.   PUSHR D2
  16037.   SETR D6, D4
  16038.   ADDV D6, 7
  16039.   LOADI D2, D6
  16040.   PUSHR D2
  16041.   SETV D2, 15
  16042.   PUSHR D2
  16043.   GOTO 22184
  16044.   POP D4
  16045.   PUSHR D2
  16046.   SETV D2, 65536
  16047.   POP D3
  16048.   ANDR D2, D3
  16049.   PUSHR D2
  16050.   SETV D2, 0
  16051.   POP D3
  16052.   COMPARER D2, D3
  16053.   SETFALSE D2
  16054.   COMPAREV D2, 0
  16055.   GOTOTRUE 16055
  16056.   GOTO 16667
  16057.   SETV D2, 0
  16058.   PUSHR D4
  16059.   SETV D2, 16067
  16060.   PUSHR D2
  16061.   SETR D6, D4
  16062.   ADDV D6, 7
  16063.   LOADI D2, D6
  16064.   PUSHR D2
  16065.   SETV D2, 10
  16066.   PUSHR D2
  16067.   GOTO 22197
  16068.   POP D4
  16069.   PUSHR D2
  16070.   SETV D2, 0
  16071.   POP D3
  16072.   COMPARER D2, D3
  16073.   SETTRUE D2
  16074.   PUSHR D2
  16075.   PUSHR D4
  16076.   SETV D2, 16084
  16077.   PUSHR D2
  16078.   SETR D6, D4
  16079.   ADDV D6, 7
  16080.   LOADI D2, D6
  16081.   PUSHR D2
  16082.   SETV D2, 11
  16083.   PUSHR D2
  16084.   GOTO 22197
  16085.   POP D4
  16086.   PUSHR D2
  16087.   SETV D2, 0
  16088.   POP D3
  16089.   COMPARER D2, D3
  16090.   SETTRUE D2
  16091.   POP D3
  16092.   ADDR D2, D3
  16093.   COMPAREV D2, 0.0001
  16094.   SETMORE D2
  16095.   COMPAREV D2, 0
  16096.   GOTOTRUE 16096
  16097.   GOTO 16667
  16098.   SETV D2, 0
  16099.   GOTO 16119
  16100.   SETV D3, 0
  16101.   PUSHR D4
  16102.   SETV D2, 16110
  16103.   PUSHR D2
  16104.   SETR D6, D4
  16105.   ADDV D6, 7
  16106.   LOADI D2, D6
  16107.   PUSHR D2
  16108.   SETV D2, 15
  16109.   PUSHR D2
  16110.   GOTO 22184
  16111.   POP D4
  16112.   PUSHR D2
  16113.   SETV D2, 0
  16114.   POP D3
  16115.   COMPARER D2, D3
  16116.   SETFALSE D2
  16117.   COMPAREV D2, 0
  16118.   GOTOTRUE 16118
  16119.   GOTO 16667
  16120.   SETV D2, 0
  16121.   SETV D3, 0
  16122.   SETR D6, D4
  16123.   ADDV D6, 3
  16124.   SETV D2, 0
  16125.   STOREI D2, D6
  16126.   SETR D6, D4
  16127.   ADDV D6, 2
  16128.   SETV D2, 0
  16129.   STOREI D2, D6
  16130.   SETV D2, 0
  16131.   PUSHR D2
  16132.   SETV D2, 0
  16133.   POP D3
  16134.   COMPARER D2, D3
  16135.   SETTRUE D2
  16136.   COMPAREV D2, 0
  16137.   GOTOTRUE 16208
  16138.   PUSHR D4
  16139.   SETV D2, 16147
  16140.   PUSHR D2
  16141.   SETR D6, D4
  16142.   ADDV D6, 7
  16143.   LOADI D2, D6
  16144.   PUSHR D2
  16145.   SETV D2, 10
  16146.   PUSHR D2
  16147.   GOTO 22197
  16148.   POP D4
  16149.   SETR D6, D4
  16150.   ADDV D6, 2
  16151.   STOREI D2, D6
  16152.   PUSHR D4
  16153.   SETV D2, 16161
  16154.   PUSHR D2
  16155.   SETR D6, D4
  16156.   ADDV D6, 7
  16157.   LOADI D2, D6
  16158.   PUSHR D2
  16159.   SETV D2, 11
  16160.   PUSHR D2
  16161.   GOTO 22197
  16162.   POP D4
  16163.   SETR D6, D4
  16164.   ADDV D6, 3
  16165.   STOREI D2, D6
  16166.   SETR D6, D4
  16167.   ADDV D6, 3
  16168.   LOADI D2, D6
  16169.   PUSHR D2
  16170.   SETV D2, -1
  16171.   POP D3
  16172.   COMPARER D2, D3
  16173.   SETTRUE D2
  16174.   COMPAREV D2, 0
  16175.   GOTOTRUE 16206
  16176.   ALLOCATEMEMV D2, 2
  16177.   SETR D6, D4
  16178.   ADDV D6, 1
  16179.   STOREI D2, D6
  16180.   PUSHR D4
  16181.   SETV D2, 16191
  16182.   PUSHR D2
  16183.   SETR D6, D4
  16184.   ADDV D6, 7
  16185.   LOADI D2, D6
  16186.   PUSHR D2
  16187.   SETR D6, D4
  16188.   ADDV D6, 1
  16189.   LOADI D2, D6
  16190.   PUSHR D2
  16191.   GOTO 16690
  16192.   POP D4
  16193.   SETR D6, D4
  16194.   ADDV D6, 1
  16195.   LOADI D2, D6
  16196.   PUSHR D2
  16197.   SETV D2, 0
  16198.   POP D0
  16199.   SETR D1, D2
  16200.   SETR D2, SCRIPTRAM
  16201.   SETR D6, D4
  16202.   ADDV D6, 3
  16203.   STOREI D2, D6
  16204.   SETR D6, D4
  16205.   ADDV D6, 1
  16206.   LOADI D3, D6
  16207.   DEALLOCATEMEMR D3
  16208.   SETV D2, 0
  16209.   GOTO 16279
  16210.   SETV D3, 0
  16211.   ALLOCATEMEMV D2, 2
  16212.   SETR D6, D4
  16213.   ADDV D6, 0
  16214.   STOREI D2, D6
  16215.   PUSHR D4
  16216.   SETV D2, 16226
  16217.   PUSHR D2
  16218.   SETR D6, D4
  16219.   ADDV D6, 7
  16220.   LOADI D2, D6
  16221.   PUSHR D2
  16222.   SETR D6, D4
  16223.   ADDV D6, 0
  16224.   LOADI D2, D6
  16225.   PUSHR D2
  16226.   GOTO 16690
  16227.   POP D4
  16228.   SETR D6, D4
  16229.   ADDV D6, 0
  16230.   LOADI D2, D6
  16231.   PUSHR D2
  16232.   SETV D2, 0
  16233.   POP D0
  16234.   SETR D1, D2
  16235.   SETR D2, SCRIPTRAM
  16236.   SETR D6, D4
  16237.   ADDV D6, 3
  16238.   STOREI D2, D6
  16239.   SETR D6, D4
  16240.   ADDV D6, 0
  16241.   LOADI D2, D6
  16242.   PUSHR D2
  16243.   SETV D2, 1
  16244.   POP D0
  16245.   SETR D1, D2
  16246.   SETR D2, SCRIPTRAM
  16247.   SETR D6, D4
  16248.   ADDV D6, 2
  16249.   STOREI D2, D6
  16250.   SETV D2, 1
  16251.   PUSHR D4
  16252.   SETV D3, 16263
  16253.   PUSHR D3
  16254.   PUSHR D2
  16255.   SETR D6, D4
  16256.   ADDV D6, 7
  16257.   LOADI D2, D6
  16258.   POP D3
  16259.   PUSHR D2
  16260.   PUSHR D3
  16261.   SETV D2, 15
  16262.   PUSHR D2
  16263.   GOTO 22190
  16264.   POP D4
  16265.   SETR D6, D4
  16266.   ADDV D6, 3
  16267.   LOADI D2, D6
  16268.   PUSHR D2
  16269.   SETV D2, 0
  16270.   POP D3
  16271.   COMPARER D3, D2
  16272.   SETLESS D2
  16273.   COMPAREV D2, 0
  16274.   GOTOTRUE 16274
  16275.   GOTO 16667
  16276.   SETV D2, 0
  16277.   SETR D6, D4
  16278.   ADDV D6, 0
  16279.   LOADI D3, D6
  16280.   DEALLOCATEMEMR D3
  16281.   SETV D3, 0
  16282.   SETR D6, D4
  16283.   ADDV D6, 3
  16284.   LOADI D2, D6
  16285.   PUSHR D2
  16286.   SETV D2, 0
  16287.   POP D3
  16288.   COMPARER D3, D2
  16289.   SETLESS D2
  16290.   PUSHR D2
  16291.   SETR D6, D4
  16292.   ADDV D6, 3
  16293.   LOADI D2, D6
  16294.   PUSHR D2
  16295.   SETV D2, 511
  16296.   POP D3
  16297.   COMPARER D3, D2
  16298.   SETLESS D2
  16299.   COMPAREV D2, 0
  16300.   SETTRUE D2
  16301.   POP D3
  16302.   ADDR D2, D3
  16303.   COMPAREV D2, 0.0001
  16304.   SETMORE D2
  16305.   COMPAREV D2, 0
  16306.   GOTOTRUE 16315
  16307.   PUSHR D4
  16308.   SETV D2, 16314
  16309.   PUSHR D2
  16310.   SETR D6, D4
  16311.   ADDV D6, 7
  16312.   LOADI D2, D6
  16313.   PUSHR D2
  16314.   GOTO 17977
  16315.   POP D4
  16316.   GOTO 16667
  16317.   SETV D2, 0
  16318.   PUSHR D4
  16319.   SETV D2, 16325
  16320.   PUSHR D2
  16321.   SETR D6, D4
  16322.   ADDV D6, 6
  16323.   LOADI D2, D6
  16324.   PUSHR D2
  16325.   GOTO 18183
  16326.   POP D4
  16327.   SETR D6, D4
  16328.   ADDV D6, 6
  16329.   STOREI D2, D6
  16330.   SETR D6, D4
  16331.   ADDV D6, 6
  16332.   LOADI D2, D6
  16333.   PUSHR D2
  16334.   SETV D2, 0
  16335.   POP D3
  16336.   COMPARER D2, D3
  16337.   SETTRUE D2
  16338.   COMPAREV D2, 0
  16339.   GOTOTRUE 16348
  16340.   PUSHR D4
  16341.   SETV D2, 16347
  16342.   PUSHR D2
  16343.   SETR D6, D4
  16344.   ADDV D6, 7
  16345.   LOADI D2, D6
  16346.   PUSHR D2
  16347.   GOTO 17977
  16348.   POP D4
  16349.   GOTO 16667
  16350.   SETV D2, 0
  16351.   PUSHR D4
  16352.   SETV D2, 16360
  16353.   PUSHR D2
  16354.   SETR D2, GD0
  16355.   PUSHR D2
  16356.   SETR D6, D4
  16357.   ADDV D6, 6
  16358.   LOADI D2, D6
  16359.   PUSHR D2
  16360.   GOTO 22005
  16361.   POP D4
  16362.   SETR D6, D4
  16363.   ADDV D6, 5
  16364.   STOREI D2, D6
  16365.   SETV D2, 1
  16366.   PUSHR D4
  16367.   SETV D3, 16376
  16368.   PUSHR D3
  16369.   PUSHR D2
  16370.   SETR D6, D4
  16371.   ADDV D6, 5
  16372.   LOADI D2, D6
  16373.   POP D3
  16374.   PUSHR D2
  16375.   PUSHR D3
  16376.   GOTO 21885
  16377.   POP D4
  16378.   PUSHR D4
  16379.   SETV D2, 16385
  16380.   PUSHR D2
  16381.   SETR D6, D4
  16382.   ADDV D6, 7
  16383.   LOADI D2, D6
  16384.   PUSHR D2
  16385.   GOTO 22167
  16386.   POP D4
  16387.   PUSHR D4
  16388.   SETV D3, 16397
  16389.   PUSHR D3
  16390.   PUSHR D2
  16391.   SETR D6, D4
  16392.   ADDV D6, 5
  16393.   LOADI D2, D6
  16394.   POP D3
  16395.   PUSHR D2
  16396.   PUSHR D3
  16397.   GOTO 21902
  16398.   POP D4
  16399.   SETV D2, 1
  16400.   PUSHR D4
  16401.   SETV D3, 16410
  16402.   PUSHR D3
  16403.   PUSHR D2
  16404.   SETR D6, D4
  16405.   ADDV D6, 5
  16406.   LOADI D2, D6
  16407.   POP D3
  16408.   PUSHR D2
  16409.   PUSHR D3
  16410.   GOTO 21950
  16411.   POP D4
  16412.   SETV D2, 1
  16413.   PUSHR D4
  16414.   SETV D3, 16423
  16415.   PUSHR D3
  16416.   PUSHR D2
  16417.   SETR D6, D4
  16418.   ADDV D6, 5
  16419.   LOADI D2, D6
  16420.   POP D3
  16421.   PUSHR D2
  16422.   PUSHR D3
  16423.   GOTO 21956
  16424.   POP D4
  16425.   PUSHR D4
  16426.   SETV D2, 16432
  16427.   PUSHR D2
  16428.   SETR D6, D4
  16429.   ADDV D6, 7
  16430.   LOADI D2, D6
  16431.   PUSHR D2
  16432.   GOTO 22123
  16433.   POP D4
  16434.   PUSHR D4
  16435.   SETV D3, 16444
  16436.   PUSHR D3
  16437.   PUSHR D2
  16438.   SETR D6, D4
  16439.   ADDV D6, 5
  16440.   LOADI D2, D6
  16441.   POP D3
  16442.   PUSHR D2
  16443.   PUSHR D3
  16444.   GOTO 21908
  16445.   POP D4
  16446.   PUSHR D4
  16447.   SETV D2, 16453
  16448.   PUSHR D2
  16449.   SETR D6, D4
  16450.   ADDV D6, 7
  16451.   LOADI D2, D6
  16452.   PUSHR D2
  16453.   GOTO 22134
  16454.   POP D4
  16455.   PUSHR D2
  16456.   PUSHR D4
  16457.   SETV D2, 16463
  16458.   PUSHR D2
  16459.   SETR D6, D4
  16460.   ADDV D6, 7
  16461.   LOADI D2, D6
  16462.   PUSHR D2
  16463.   GOTO 22145
  16464.   POP D4
  16465.   POP D3
  16466.   SUBR D3, D2
  16467.   SETR D2, D3
  16468.   PUSHR D4
  16469.   SETV D3, 16478
  16470.   PUSHR D3
  16471.   PUSHR D2
  16472.   SETR D6, D4
  16473.   ADDV D6, 5
  16474.   LOADI D2, D6
  16475.   POP D3
  16476.   PUSHR D2
  16477.   PUSHR D3
  16478.   GOTO 21914
  16479.   POP D4
  16480.   SETV D2, 0
  16481.   PUSHR D4
  16482.   SETV D3, 16491
  16483.   PUSHR D3
  16484.   PUSHR D2
  16485.   SETR D6, D4
  16486.   ADDV D6, 5
  16487.   LOADI D2, D6
  16488.   POP D3
  16489.   PUSHR D2
  16490.   PUSHR D3
  16491.   GOTO 21920
  16492.   POP D4
  16493.   SETV D2, 0
  16494.   PUSHR D4
  16495.   SETV D3, 16504
  16496.   PUSHR D3
  16497.   PUSHR D2
  16498.   SETR D6, D4
  16499.   ADDV D6, 5
  16500.   LOADI D2, D6
  16501.   POP D3
  16502.   PUSHR D2
  16503.   PUSHR D3
  16504.   GOTO 21926
  16505.   POP D4
  16506.   SETV D2, 0
  16507.   PUSHR D4
  16508.   SETV D3, 16517
  16509.   PUSHR D3
  16510.   PUSHR D2
  16511.   SETR D6, D4
  16512.   ADDV D6, 5
  16513.   LOADI D2, D6
  16514.   POP D3
  16515.   PUSHR D2
  16516.   PUSHR D3
  16517.   GOTO 21932
  16518.   POP D4
  16519.   SETV D2, 0
  16520.   PUSHR D4
  16521.   SETV D3, 16530
  16522.   PUSHR D3
  16523.   PUSHR D2
  16524.   SETR D6, D4
  16525.   ADDV D6, 5
  16526.   LOADI D2, D6
  16527.   POP D3
  16528.   PUSHR D2
  16529.   PUSHR D3
  16530.   GOTO 21938
  16531.   POP D4
  16532.   SETR D6, D4
  16533.   ADDV D6, 3
  16534.   LOADI D2, D6
  16535.   PUSHR D4
  16536.   SETV D3, 16545
  16537.   PUSHR D3
  16538.   PUSHR D2
  16539.   SETR D6, D4
  16540.   ADDV D6, 5
  16541.   LOADI D2, D6
  16542.   POP D3
  16543.   PUSHR D2
  16544.   PUSHR D3
  16545.   GOTO 21896
  16546.   POP D4
  16547.   PUSHR D4
  16548.   SETV D2, 16554
  16549.   PUSHR D2
  16550.   SETR D6, D4
  16551.   ADDV D6, 7
  16552.   LOADI D2, D6
  16553.   PUSHR D2
  16554.   GOTO 22156
  16555.   POP D4
  16556.   PUSHR D4
  16557.   SETV D3, 16568
  16558.   PUSHR D3
  16559.   PUSHR D2
  16560.   SETR D6, D4
  16561.   ADDV D6, 5
  16562.   LOADI D2, D6
  16563.   POP D3
  16564.   PUSHR D2
  16565.   PUSHR D3
  16566.   SETV D2, 0
  16567.   PUSHR D2
  16568.   GOTO 21962
  16569.   POP D4
  16570.   SETR D6, D4
  16571.   ADDV D6, 2
  16572.   LOADI D2, D6
  16573.   PUSHR D2
  16574.   SETV D2, 1
  16575.   POP D3
  16576.   COMPARER D2, D3
  16577.   SETFALSE D2
  16578.   PUSHR D2
  16579.   SETR D6, D4
  16580.   ADDV D6, 2
  16581.   LOADI D2, D6
  16582.   PUSHR D2
  16583.   SETV D2, -1
  16584.   POP D3
  16585.   COMPARER D2, D3
  16586.   SETFALSE D2
  16587.   POP D3
  16588.   COMPAREV D2, 0
  16589.   SETFALSE D2
  16590.   COMPAREV D3, 0
  16591.   SETFALSE D3
  16592.   ADDR D2, D3
  16593.   COMPAREV D2, 0.0002
  16594.   SETMORE D2
  16595.   COMPAREV D2, 0
  16596.   GOTOTRUE 16621
  16597.   SETV D2, 3
  16598.   PUSHR D4
  16599.   SETV D3, 16608
  16600.   PUSHR D3
  16601.   PUSHR D2
  16602.   SETR D6, D4
  16603.   ADDV D6, 7
  16604.   LOADI D2, D6
  16605.   POP D3
  16606.   PUSHR D2
  16607.   PUSHR D3
  16608.   GOTO 22172
  16609.   POP D4
  16610.   SETV D2, 1024
  16611.   PUSHR D4
  16612.   SETV D3, 16621
  16613.   PUSHR D3
  16614.   PUSHR D2
  16615.   SETR D6, D4
  16616.   ADDV D6, 7
  16617.   LOADI D2, D6
  16618.   POP D3
  16619.   PUSHR D2
  16620.   PUSHR D3
  16621.   GOTO 22178
  16622.   POP D4
  16623.   SETV D2, 0
  16624.   SETR D6, D4
  16625.   ADDV D6, 2
  16626.   LOADI D2, D6
  16627.   PUSHR D2
  16628.   SETV D2, 0
  16629.   POP D3
  16630.   COMPARER D3, D2
  16631.   SETLESS D2
  16632.   COMPAREV D2, 0
  16633.   GOTOTRUE 16648
  16634.   SETV D2, 1
  16635.   PUSHR D4
  16636.   SETV D3, 16647
  16637.   PUSHR D3
  16638.   PUSHR D2
  16639.   SETR D6, D4
  16640.   ADDV D6, 7
  16641.   LOADI D2, D6
  16642.   POP D3
  16643.   PUSHR D2
  16644.   PUSHR D3
  16645.   SETV D2, 15
  16646.   PUSHR D2
  16647.   GOTO 22190
  16648.   POP D4
  16649.   GOTO 16666
  16650.   SETV D3, 0
  16651.   SETR D6, D4
  16652.   ADDV D6, 2
  16653.   LOADI D2, D6
  16654.   PUSHR D4
  16655.   SETV D3, 16666
  16656.   PUSHR D3
  16657.   PUSHR D2
  16658.   SETR D6, D4
  16659.   ADDV D6, 7
  16660.   LOADI D2, D6
  16661.   POP D3
  16662.   PUSHR D2
  16663.   PUSHR D3
  16664.   SETV D2, 15
  16665.   PUSHR D2
  16666.   GOTO 22190
  16667.   POP D4
  16668.   SETV D3, 0
  16669.   SETV D3, 0
  16670.   SETR D6, D4
  16671.   ADDV D6, 4
  16672.   LOADI D2, D6
  16673.   PUSHR D2
  16674.   SUBV D2, 1
  16675.   SETR D6, D4
  16676.   ADDV D6, 4
  16677.   STOREI D2, D6
  16678.   POP D2
  16679.   GOTO 15956
  16680.   SETV D3, 0
  16681.   SETV D3, 0
  16682.   POP D3
  16683.   POP D3
  16684.   POP D3
  16685.   POP D3
  16686.   POP D3
  16687.   POP D3
  16688.   POP D3
  16689.   POP D3
  16690.   POP D3
  16691.   GOTOR D3
  16692.   SETV D2, 0
  16693.   PUSHR D2
  16694.   PUSHR D2
  16695.   PUSHR D2
  16696.   PUSHR D2
  16697.   PUSHR D2
  16698.   PUSHR D2
  16699.   PUSHR D2
  16700.   PUSHR D2
  16701.   PUSHR D2
  16702.   PUSHR D2
  16703.   PUSHR D2
  16704.   SETR D4, SP
  16705.   ALLOCATEMEMV D2, 64
  16706.   SETR D6, D4
  16707.   ADDV D6, 10
  16708.   STOREI D2, D6
  16709.   ALLOCATEMEMV D2, 64
  16710.   SETR D6, D4
  16711.   ADDV D6, 9
  16712.   STOREI D2, D6
  16713.   SETV D2, 1
  16714.   SETR D6, D4
  16715.   ADDV D6, 11
  16716.   LOADI D0, D6
  16717.   SETR D5, D2
  16718.   PUSHR D0
  16719.   SETV D2, 1
  16720.   POP D0
  16721.   SETR D1, D2
  16722.   SETR SCRIPTRAM, D5
  16723.   PUSHR D4
  16724.   SETV D2, 16734
  16725.   PUSHR D2
  16726.   SETR D6, D4
  16727.   ADDV D6, 12
  16728.   LOADI D2, D6
  16729.   PUSHR D2
  16730.   SETR D6, D4
  16731.   ADDV D6, 10
  16732.   LOADI D2, D6
  16733.   PUSHR D2
  16734.   GOTO 22203
  16735.   POP D4
  16736.   SETV D2, 0
  16737.   SETR D6, D4
  16738.   ADDV D6, 8
  16739.   STOREI D2, D6
  16740.   SETV D2, 0
  16741.   SETR D6, D4
  16742.   ADDV D6, 8
  16743.   LOADI D2, D6
  16744.   PUSHR D2
  16745.   SETV D2, 63
  16746.   POP D3
  16747.   COMPARER D3, D2
  16748.   SETMORE D2
  16749.   COMPAREV D2, 0
  16750.   SETTRUE D2
  16751.   COMPAREV D2, 0
  16752.   GOTOTRUE 17458
  16753.   SETR D6, D4
  16754.   ADDV D6, 10
  16755.   LOADI D2, D6
  16756.   PUSHR D2
  16757.   SETR D6, D4
  16758.   ADDV D6, 8
  16759.   LOADI D2, D6
  16760.   POP D0
  16761.   SETR D1, D2
  16762.   SETR D2, SCRIPTRAM
  16763.   PUSHR D2
  16764.   SETV D2, 64
  16765.   POP D3
  16766.   COMPARER D2, D3
  16767.   SETTRUE D2
  16768.   COMPAREV D2, 0
  16769.   GOTOTRUE 17446
  16770.   SETR D6, D4
  16771.   ADDV D6, 10
  16772.   LOADI D2, D6
  16773.   PUSHR D2
  16774.   SETR D6, D4
  16775.   ADDV D6, 8
  16776.   LOADI D2, D6
  16777.   PUSHR D2
  16778.   SETV D2, 1
  16779.   POP D3
  16780.   ADDR D2, D3
  16781.   POP D0
  16782.   SETR D1, D2
  16783.   SETR D2, SCRIPTRAM
  16784.   SETR D6, D4
  16785.   ADDV D6, 7
  16786.   STOREI D2, D6
  16787.   PUSHR D4
  16788.   SETV D2, 16796
  16789.   PUSHR D2
  16790.   SETR D6, D4
  16791.   ADDV D6, 7
  16792.   LOADI D2, D6
  16793.   PUSHR D2
  16794.   SETV D2, 0.0001
  16795.   PUSHR D2
  16796.   GOTO 18050
  16797.   POP D4
  16798.   COMPAREV D2, 0
  16799.   GOTOTRUE 17232
  16800.   SETV D2, 0
  16801.   SETR D6, D4
  16802.   ADDV D6, 6
  16803.   STOREI D2, D6
  16804.   SETR D6, D4
  16805.   ADDV D6, 8
  16806.   LOADI D2, D6
  16807.   PUSHR D2
  16808.   SETV D2, 1
  16809.   POP D3
  16810.   ADDR D2, D3
  16811.   SETR D6, D4
  16812.   ADDV D6, 8
  16813.   STOREI D2, D6
  16814.   SETV D2, 0
  16815.   PUSHR D4
  16816.   SETV D2, 16831
  16817.   PUSHR D2
  16818.   SETR D6, D4
  16819.   ADDV D6, 10
  16820.   LOADI D2, D6
  16821.   PUSHR D2
  16822.   SETR D6, D4
  16823.   ADDV D6, 8
  16824.   LOADI D2, D6
  16825.   POP D0
  16826.   SETR D1, D2
  16827.   SETR D2, SCRIPTRAM
  16828.   PUSHR D2
  16829.   SETV D2, 0
  16830.   PUSHR D2
  16831.   GOTO 18050
  16832.   POP D4
  16833.   COMPAREV D2, 0
  16834.   GOTOTRUE 16874
  16835.   SETR D6, D4
  16836.   ADDV D6, 10
  16837.   LOADI D2, D6
  16838.   PUSHR D2
  16839.   SETR D6, D4
  16840.   ADDV D6, 8
  16841.   LOADI D2, D6
  16842.   POP D0
  16843.   SETR D1, D2
  16844.   SETR D2, SCRIPTRAM
  16845.   SETR D6, D4
  16846.   ADDV D6, 9
  16847.   LOADI D0, D6
  16848.   SETR D5, D2
  16849.   PUSHR D0
  16850.   SETR D6, D4
  16851.   ADDV D6, 6
  16852.   LOADI D2, D6
  16853.   POP D0
  16854.   SETR D1, D2
  16855.   SETR SCRIPTRAM, D5
  16856.   SETR D6, D4
  16857.   ADDV D6, 6
  16858.   LOADI D2, D6
  16859.   PUSHR D2
  16860.   ADDV D2, 1
  16861.   SETR D6, D4
  16862.   ADDV D6, 6
  16863.   STOREI D2, D6
  16864.   POP D2
  16865.   SETV D3, 0
  16866.   SETR D6, D4
  16867.   ADDV D6, 8
  16868.   LOADI D2, D6
  16869.   PUSHR D2
  16870.   ADDV D2, 1
  16871.   SETR D6, D4
  16872.   ADDV D6, 8
  16873.   STOREI D2, D6
  16874.   POP D2
  16875.   GOTO 16812
  16876.   SETV D3, 0
  16877.   SETV D2, 0
  16878.   SETR D6, D4
  16879.   ADDV D6, 9
  16880.   LOADI D0, D6
  16881.   SETR D5, D2
  16882.   PUSHR D0
  16883.   SETR D6, D4
  16884.   ADDV D6, 6
  16885.   LOADI D2, D6
  16886.   POP D0
  16887.   SETR D1, D2
  16888.   SETR SCRIPTRAM, D5
  16889.   PUSHR D4
  16890.   SETV D2, 16898
  16891.   PUSHR D2
  16892.   SETR D2, GD0
  16893.   PUSHR D2
  16894.   SETR D6, D4
  16895.   ADDV D6, 9
  16896.   LOADI D2, D6
  16897.   PUSHR D2
  16898.   GOTO 22118
  16899.   POP D4
  16900.   SETR D6, D4
  16901.   ADDV D6, 11
  16902.   LOADI D0, D6
  16903.   SETR D5, D2
  16904.   PUSHR D0
  16905.   SETV D2, 0
  16906.   POP D0
  16907.   SETR D1, D2
  16908.   SETR SCRIPTRAM, D5
  16909.   SETR D6, D4
  16910.   ADDV D6, 8
  16911.   LOADI D2, D6
  16912.   PUSHR D2
  16913.   SUBV D2, 1
  16914.   SETR D6, D4
  16915.   ADDV D6, 8
  16916.   STOREI D2, D6
  16917.   POP D2
  16918.   SETR D6, D4
  16919.   ADDV D6, 11
  16920.   LOADI D2, D6
  16921.   PUSHR D2
  16922.   SETV D2, 0
  16923.   POP D0
  16924.   SETR D1, D2
  16925.   SETR D2, SCRIPTRAM
  16926.   PUSHR D2
  16927.   SETV D2, 0
  16928.   POP D3
  16929.   COMPARER D3, D2
  16930.   SETLESS D2
  16931.   COMPAREV D2, 0
  16932.   GOTOTRUE 17230
  16933.   ALLOCATEMEMV D2, 60
  16934.   SETR D6, D4
  16935.   ADDV D6, 5
  16936.   STOREI D2, D6
  16937.   SETR D0, D2
  16938.   SETV D1, -1
  16939.   ADDV D1, 1
  16940.   SETV D2, 103
  16941.   SETR SCRIPTRAM, D2
  16942.   ADDV D1, 1
  16943.   SETV D2, 104
  16944.   SETR SCRIPTRAM, D2
  16945.   ADDV D1, 1
  16946.   SETV D2, 111
  16947.   SETR SCRIPTRAM, D2
  16948.   ADDV D1, 1
  16949.   SETV D2, 115
  16950.   SETR SCRIPTRAM, D2
  16951.   ADDV D1, 1
  16952.   SETV D2, 116
  16953.   SETR SCRIPTRAM, D2
  16954.   ADDV D1, 1
  16955.   SETV D2, 46
  16956.   SETR SCRIPTRAM, D2
  16957.   ADDV D1, 1
  16958.   SETV D2, 122
  16959.   SETR SCRIPTRAM, D2
  16960.   ADDV D1, 1
  16961.   SETV D2, 104
  16962.   SETR SCRIPTRAM, D2
  16963.   ADDV D1, 1
  16964.   SETV D2, 58
  16965.   SETR SCRIPTRAM, D2
  16966.   ADDV D1, 1
  16967.   SETV D2, 32
  16968.   SETR SCRIPTRAM, D2
  16969.   ADDV D1, 1
  16970.   SETV D2, 65
  16971.   SETR SCRIPTRAM, D2
  16972.   ADDV D1, 1
  16973.   SETV D2, 117
  16974.   SETR SCRIPTRAM, D2
  16975.   ADDV D1, 1
  16976.   SETV D2, 116
  16977.   SETR SCRIPTRAM, D2
  16978.   ADDV D1, 1
  16979.   SETV D2, 111
  16980.   SETR SCRIPTRAM, D2
  16981.   ADDV D1, 1
  16982.   SETV D2, 71
  16983.   SETR SCRIPTRAM, D2
  16984.   ADDV D1, 1
  16985.   SETV D2, 104
  16986.   SETR SCRIPTRAM, D2
  16987.   ADDV D1, 1
  16988.   SETV D2, 111
  16989.   SETR SCRIPTRAM, D2
  16990.   ADDV D1, 1
  16991.   SETV D2, 115
  16992.   SETR SCRIPTRAM, D2
  16993.   ADDV D1, 1
  16994.   SETV D2, 116
  16995.   SETR SCRIPTRAM, D2
  16996.   ADDV D1, 1
  16997.   SETV D2, 32
  16998.   SETR SCRIPTRAM, D2
  16999.   ADDV D1, 1
  17000.   SETV D2, 115
  17001.   SETR SCRIPTRAM, D2
  17002.   ADDV D1, 1
  17003.   SETV D2, 101
  17004.   SETR SCRIPTRAM, D2
  17005.   ADDV D1, 1
  17006.   SETV D2, 116
  17007.   SETR SCRIPTRAM, D2
  17008.   ADDV D1, 1
  17009.   SETV D2, 117
  17010.   SETR SCRIPTRAM, D2
  17011.   ADDV D1, 1
  17012.   SETV D2, 112
  17013.   SETR SCRIPTRAM, D2
  17014.   ADDV D1, 1
  17015.   SETV D2, 32
  17016.   SETR SCRIPTRAM, D2
  17017.   ADDV D1, 1
  17018.   SETV D2, 102
  17019.   SETR SCRIPTRAM, D2
  17020.   ADDV D1, 1
  17021.   SETV D2, 97
  17022.   SETR SCRIPTRAM, D2
  17023.   ADDV D1, 1
  17024.   SETV D2, 105
  17025.   SETR SCRIPTRAM, D2
  17026.   ADDV D1, 1
  17027.   SETV D2, 108
  17028.   SETR SCRIPTRAM, D2
  17029.   ADDV D1, 1
  17030.   SETV D2, 101
  17031.   SETR SCRIPTRAM, D2
  17032.   ADDV D1, 1
  17033.   SETV D2, 100
  17034.   SETR SCRIPTRAM, D2
  17035.   ADDV D1, 1
  17036.   SETV D2, 32
  17037.   SETR SCRIPTRAM, D2
  17038.   ADDV D1, 1
  17039.   SETV D2, 45
  17040.   SETR SCRIPTRAM, D2
  17041.   ADDV D1, 1
  17042.   SETV D2, 32
  17043.   SETR SCRIPTRAM, D2
  17044.   ADDV D1, 1
  17045.   SETV D2, 115
  17046.   SETR SCRIPTRAM, D2
  17047.   ADDV D1, 1
  17048.   SETV D2, 99
  17049.   SETR SCRIPTRAM, D2
  17050.   ADDV D1, 1
  17051.   SETV D2, 114
  17052.   SETR SCRIPTRAM, D2
  17053.   ADDV D1, 1
  17054.   SETV D2, 105
  17055.   SETR SCRIPTRAM, D2
  17056.   ADDV D1, 1
  17057.   SETV D2, 112
  17058.   SETR SCRIPTRAM, D2
  17059.   ADDV D1, 1
  17060.   SETV D2, 116
  17061.   SETR SCRIPTRAM, D2
  17062.   ADDV D1, 1
  17063.   SETV D2, 32
  17064.   SETR SCRIPTRAM, D2
  17065.   ADDV D1, 1
  17066.   SETV D2, 100
  17067.   SETR SCRIPTRAM, D2
  17068.   ADDV D1, 1
  17069.   SETV D2, 111
  17070.   SETR SCRIPTRAM, D2
  17071.   ADDV D1, 1
  17072.   SETV D2, 101
  17073.   SETR SCRIPTRAM, D2
  17074.   ADDV D1, 1
  17075.   SETV D2, 115
  17076.   SETR SCRIPTRAM, D2
  17077.   ADDV D1, 1
  17078.   SETV D2, 32
  17079.   SETR SCRIPTRAM, D2
  17080.   ADDV D1, 1
  17081.   SETV D2, 110
  17082.   SETR SCRIPTRAM, D2
  17083.   ADDV D1, 1
  17084.   SETV D2, 111
  17085.   SETR SCRIPTRAM, D2
  17086.   ADDV D1, 1
  17087.   SETV D2, 116
  17088.   SETR SCRIPTRAM, D2
  17089.   ADDV D1, 1
  17090.   SETV D2, 32
  17091.   SETR SCRIPTRAM, D2
  17092.   ADDV D1, 1
  17093.   SETV D2, 101
  17094.   SETR SCRIPTRAM, D2
  17095.   ADDV D1, 1
  17096.   SETV D2, 120
  17097.   SETR SCRIPTRAM, D2
  17098.   ADDV D1, 1
  17099.   SETV D2, 105
  17100.   SETR SCRIPTRAM, D2
  17101.   ADDV D1, 1
  17102.   SETV D2, 115
  17103.   SETR SCRIPTRAM, D2
  17104.   ADDV D1, 1
  17105.   SETV D2, 116
  17106.   SETR SCRIPTRAM, D2
  17107.   ADDV D1, 1
  17108.   SETV D2, 46
  17109.   SETR SCRIPTRAM, D2
  17110.   ADDV D1, 1
  17111.   SETV D2, 92
  17112.   SETR SCRIPTRAM, D2
  17113.   ADDV D1, 1
  17114.   SETV D2, 110
  17115.   SETR SCRIPTRAM, D2
  17116.   ADDV D1, 1
  17117.   SETV D2, 0
  17118.   SETR SCRIPTRAM, D2
  17119.   ALLOCATEMEMV D2, 80
  17120.   SETR D6, D4
  17121.   ADDV D6, 4
  17122.   STOREI D2, D6
  17123.   SETR D0, D2
  17124.   SETV D1, -1
  17125.   ADDV D1, 1
  17126.   SETV D2, 32
  17127.   SETR SCRIPTRAM, D2
  17128.   ADDV D1, 1
  17129.   SETV D2, 32
  17130.   SETR SCRIPTRAM, D2
  17131.   ADDV D1, 1
  17132.   SETV D2, 83
  17133.   SETR SCRIPTRAM, D2
  17134.   ADDV D1, 1
  17135.   SETV D2, 99
  17136.   SETR SCRIPTRAM, D2
  17137.   ADDV D1, 1
  17138.   SETV D2, 114
  17139.   SETR SCRIPTRAM, D2
  17140.   ADDV D1, 1
  17141.   SETV D2, 105
  17142.   SETR SCRIPTRAM, D2
  17143.   ADDV D1, 1
  17144.   SETV D2, 112
  17145.   SETR SCRIPTRAM, D2
  17146.   ADDV D1, 1
  17147.   SETV D2, 116
  17148.   SETR SCRIPTRAM, D2
  17149.   ADDV D1, 1
  17150.   SETV D2, 32
  17151.   SETR SCRIPTRAM, D2
  17152.   ADDV D1, 1
  17153.   SETV D2, 110
  17154.   SETR SCRIPTRAM, D2
  17155.   ADDV D1, 1
  17156.   SETV D2, 97
  17157.   SETR SCRIPTRAM, D2
  17158.   ADDV D1, 1
  17159.   SETV D2, 109
  17160.   SETR SCRIPTRAM, D2
  17161.   ADDV D1, 1
  17162.   SETV D2, 101
  17163.   SETR SCRIPTRAM, D2
  17164.   ADDV D1, 1
  17165.   SETV D2, 58
  17166.   SETR SCRIPTRAM, D2
  17167.   ADDV D1, 1
  17168.   SETV D2, 32
  17169.   SETR SCRIPTRAM, D2
  17170.   ADDV D1, 1
  17171.   SETV D2, 37
  17172.   SETR SCRIPTRAM, D2
  17173.   ADDV D1, 1
  17174.   SETV D2, 115
  17175.   SETR SCRIPTRAM, D2
  17176.   ADDV D1, 1
  17177.   SETV D2, 92
  17178.   SETR SCRIPTRAM, D2
  17179.   ADDV D1, 1
  17180.   SETV D2, 110
  17181.   SETR SCRIPTRAM, D2
  17182.   ADDV D1, 1
  17183.   SETV D2, 0
  17184.   SETR SCRIPTRAM, D2
  17185.   PUSHR D4
  17186.   SETV D2, 17192
  17187.   PUSHR D2
  17188.   SETR D6, D4
  17189.   ADDV D6, 5
  17190.   LOADI D2, D6
  17191.   PUSHR D2
  17192.   GOTO 18400
  17193.   POP D4
  17194.   PUSHR D4
  17195.   SETV D2, 17205
  17196.   PUSHR D2
  17197.   SETR D6, D4
  17198.   ADDV D6, 4
  17199.   LOADI D2, D6
  17200.   PUSHR D2
  17201.   SETR D6, D4
  17202.   ADDV D6, 9
  17203.   LOADI D2, D6
  17204.   PUSHR D2
  17205.   GOTO 18447
  17206.   POP D4
  17207.   SETR D6, D4
  17208.   ADDV D6, 4
  17209.   LOADI D3, D6
  17210.   DEALLOCATEMEMR D3
  17211.   SETR D6, D4
  17212.   ADDV D6, 5
  17213.   LOADI D3, D6
  17214.   DEALLOCATEMEMR D3
  17215.   SETR D6, D4
  17216.   ADDV D6, 9
  17217.   LOADI D3, D6
  17218.   DEALLOCATEMEMR D3
  17219.   SETR D6, D4
  17220.   ADDV D6, 10
  17221.   LOADI D3, D6
  17222.   DEALLOCATEMEMR D3
  17223.   GOTO 17961
  17224.   SETR D6, D4
  17225.   ADDV D6, 4
  17226.   LOADI D3, D6
  17227.   DEALLOCATEMEMR D3
  17228.   SETR D6, D4
  17229.   ADDV D6, 5
  17230.   LOADI D3, D6
  17231.   DEALLOCATEMEMR D3
  17232.   SETV D2, 0
  17233.   GOTO 17445
  17234.   SETV D3, 0
  17235.   SETR D6, D4
  17236.   ADDV D6, 7
  17237.   LOADI D2, D6
  17238.   PUSHR D2
  17239.   SETV D2, 48
  17240.   POP D3
  17241.   COMPARER D3, D2
  17242.   SETMORE D2
  17243.   PUSHR D2
  17244.   SETR D6, D4
  17245.   ADDV D6, 7
  17246.   LOADI D2, D6
  17247.   PUSHR D2
  17248.   SETV D2, 57
  17249.   POP D3
  17250.   COMPARER D3, D2
  17251.   SETLESS D2
  17252.   POP D3
  17253.   COMPAREV D2, 0
  17254.   SETFALSE D2
  17255.   COMPAREV D3, 0
  17256.   SETFALSE D3
  17257.   ADDR D2, D3
  17258.   COMPAREV D2, 0.0002
  17259.   SETMORE D2
  17260.   PUSHR D2
  17261.   SETR D6, D4
  17262.   ADDV D6, 7
  17263.   LOADI D2, D6
  17264.   PUSHR D2
  17265.   SETV D2, 45
  17266.   POP D3
  17267.   COMPARER D2, D3
  17268.   SETTRUE D2
  17269.   POP D3
  17270.   ADDR D2, D3
  17271.   COMPAREV D2, 0.0001
  17272.   SETMORE D2
  17273.   COMPAREV D2, 0
  17274.   GOTOTRUE 17444
  17275.   SETV D2, 0
  17276.   SETR D6, D4
  17277.   ADDV D6, 3
  17278.   STOREI D2, D6
  17279.   SETR D6, D4
  17280.   ADDV D6, 7
  17281.   LOADI D2, D6
  17282.   PUSHR D2
  17283.   SETV D2, 45
  17284.   POP D3
  17285.   COMPARER D2, D3
  17286.   SETTRUE D2
  17287.   COMPAREV D2, 0
  17288.   GOTOTRUE 17310
  17289.   SETV D2, 45
  17290.   SETR D6, D4
  17291.   ADDV D6, 9
  17292.   LOADI D0, D6
  17293.   SETR D5, D2
  17294.   PUSHR D0
  17295.   SETV D2, 0
  17296.   POP D0
  17297.   SETR D1, D2
  17298.   SETR SCRIPTRAM, D5
  17299.   SETV D2, 1
  17300.   SETR D6, D4
  17301.   ADDV D6, 3
  17302.   STOREI D2, D6
  17303.   SETR D6, D4
  17304.   ADDV D6, 8
  17305.   LOADI D2, D6
  17306.   PUSHR D2
  17307.   ADDV D2, 1
  17308.   SETR D6, D4
  17309.   ADDV D6, 8
  17310.   STOREI D2, D6
  17311.   POP D2
  17312.   SETV D2, 0
  17313.   SETR D6, D4
  17314.   ADDV D6, 8
  17315.   LOADI D2, D6
  17316.   PUSHR D2
  17317.   SETV D2, 1
  17318.   POP D3
  17319.   ADDR D2, D3
  17320.   SETR D6, D4
  17321.   ADDV D6, 8
  17322.   STOREI D2, D6
  17323.   SETV D2, 0
  17324.   SETR D6, D4
  17325.   ADDV D6, 10
  17326.   LOADI D2, D6
  17327.   PUSHR D2
  17328.   SETR D6, D4
  17329.   ADDV D6, 8
  17330.   LOADI D2, D6
  17331.   POP D0
  17332.   SETR D1, D2
  17333.   SETR D2, SCRIPTRAM
  17334.   PUSHR D2
  17335.   SETV D2, 48
  17336.   POP D3
  17337.   COMPARER D3, D2
  17338.   SETMORE D2
  17339.   PUSHR D2
  17340.   SETR D6, D4
  17341.   ADDV D6, 10
  17342.   LOADI D2, D6
  17343.   PUSHR D2
  17344.   SETR D6, D4
  17345.   ADDV D6, 8
  17346.   LOADI D2, D6
  17347.   POP D0
  17348.   SETR D1, D2
  17349.   SETR D2, SCRIPTRAM
  17350.   PUSHR D2
  17351.   SETV D2, 57
  17352.   POP D3
  17353.   COMPARER D3, D2
  17354.   SETLESS D2
  17355.   POP D3
  17356.   COMPAREV D2, 0
  17357.   SETFALSE D2
  17358.   COMPAREV D3, 0
  17359.   SETFALSE D3
  17360.   ADDR D2, D3
  17361.   COMPAREV D2, 0.0002
  17362.   SETMORE D2
  17363.   COMPAREV D2, 0
  17364.   GOTOTRUE 17404
  17365.   SETR D6, D4
  17366.   ADDV D6, 10
  17367.   LOADI D2, D6
  17368.   PUSHR D2
  17369.   SETR D6, D4
  17370.   ADDV D6, 8
  17371.   LOADI D2, D6
  17372.   POP D0
  17373.   SETR D1, D2
  17374.   SETR D2, SCRIPTRAM
  17375.   SETR D6, D4
  17376.   ADDV D6, 9
  17377.   LOADI D0, D6
  17378.   SETR D5, D2
  17379.   PUSHR D0
  17380.   SETR D6, D4
  17381.   ADDV D6, 3
  17382.   LOADI D2, D6
  17383.   POP D0
  17384.   SETR D1, D2
  17385.   SETR SCRIPTRAM, D5
  17386.   SETR D6, D4
  17387.   ADDV D6, 3
  17388.   LOADI D2, D6
  17389.   PUSHR D2
  17390.   ADDV D2, 1
  17391.   SETR D6, D4
  17392.   ADDV D6, 3
  17393.   STOREI D2, D6
  17394.   POP D2
  17395.   SETV D3, 0
  17396.   SETR D6, D4
  17397.   ADDV D6, 8
  17398.   LOADI D2, D6
  17399.   PUSHR D2
  17400.   ADDV D2, 1
  17401.   SETR D6, D4
  17402.   ADDV D6, 8
  17403.   STOREI D2, D6
  17404.   POP D2
  17405.   GOTO 17321
  17406.   SETV D3, 0
  17407.   SETV D2, 0
  17408.   SETR D6, D4
  17409.   ADDV D6, 9
  17410.   LOADI D0, D6
  17411.   SETR D5, D2
  17412.   PUSHR D0
  17413.   SETR D6, D4
  17414.   ADDV D6, 3
  17415.   LOADI D2, D6
  17416.   POP D0
  17417.   SETR D1, D2
  17418.   SETR SCRIPTRAM, D5
  17419.   PUSHR D4
  17420.   SETV D2, 17426
  17421.   PUSHR D2
  17422.   SETR D6, D4
  17423.   ADDV D6, 9
  17424.   LOADI D2, D6
  17425.   PUSHR D2
  17426.   GOTO 20811
  17427.   POP D4
  17428.   SETR D6, D4
  17429.   ADDV D6, 11
  17430.   LOADI D0, D6
  17431.   SETR D5, D2
  17432.   PUSHR D0
  17433.   SETV D2, 1
  17434.   POP D0
  17435.   SETR D1, D2
  17436.   SETR SCRIPTRAM, D5
  17437.   SETR D6, D4
  17438.   ADDV D6, 8
  17439.   LOADI D2, D6
  17440.   PUSHR D2
  17441.   SUBV D2, 1
  17442.   SETR D6, D4
  17443.   ADDV D6, 8
  17444.   STOREI D2, D6
  17445.   POP D2
  17446.   SETV D2, 0
  17447.   SETV D3, 0
  17448.   SETV D2, 0
  17449.   SETV D3, 0
  17450.   SETR D6, D4
  17451.   ADDV D6, 8
  17452.   LOADI D2, D6
  17453.   PUSHR D2
  17454.   ADDV D2, 1
  17455.   SETR D6, D4
  17456.   ADDV D6, 8
  17457.   STOREI D2, D6
  17458.   POP D2
  17459.   GOTO 16738
  17460.   SETV D3, 0
  17461.   SETV D2, 0
  17462.   PUSHR D2
  17463.   SETV D2, 0
  17464.   POP D3
  17465.   COMPARER D2, D3
  17466.   SETTRUE D2
  17467.   PUSHR D2
  17468.   SETR D6, D4
  17469.   ADDV D6, 11
  17470.   LOADI D2, D6
  17471.   PUSHR D2
  17472.   SETV D2, 0
  17473.   POP D0
  17474.   SETR D1, D2
  17475.   SETR D2, SCRIPTRAM
  17476.   PUSHR D2
  17477.   SETV D2, 0
  17478.   POP D3
  17479.   COMPARER D3, D2
  17480.   SETLESS D2
  17481.   POP D3
  17482.   COMPAREV D2, 0
  17483.   SETFALSE D2
  17484.   COMPAREV D3, 0
  17485.   SETFALSE D3
  17486.   ADDR D2, D3
  17487.   COMPAREV D2, 0.0002
  17488.   SETMORE D2
  17489.   COMPAREV D2, 0
  17490.   GOTOTRUE 17952
  17491.   SETR D6, D4
  17492.   ADDV D6, 11
  17493.   LOADI D2, D6
  17494.   PUSHR D2
  17495.   SETV D2, 0
  17496.   POP D0
  17497.   SETR D1, D2
  17498.   SETR D2, SCRIPTRAM
  17499.   PUSHR D2
  17500.   SETV D2, 0
  17501.   POP D3
  17502.   COMPARER D3, D2
  17503.   SETLESS D2
  17504.   COMPAREV D2, 0
  17505.   GOTOTRUE 17951
  17506.   ALLOCATEMEMV D2, 55
  17507.   SETR D6, D4
  17508.   ADDV D6, 2
  17509.   STOREI D2, D6
  17510.   SETR D0, D2
  17511.   SETV D1, -1
  17512.   ADDV D1, 1
  17513.   SETV D2, 103
  17514.   SETR SCRIPTRAM, D2
  17515.   ADDV D1, 1
  17516.   SETV D2, 104
  17517.   SETR SCRIPTRAM, D2
  17518.   ADDV D1, 1
  17519.   SETV D2, 111
  17520.   SETR SCRIPTRAM, D2
  17521.   ADDV D1, 1
  17522.   SETV D2, 115
  17523.   SETR SCRIPTRAM, D2
  17524.   ADDV D1, 1
  17525.   SETV D2, 116
  17526.   SETR SCRIPTRAM, D2
  17527.   ADDV D1, 1
  17528.   SETV D2, 46
  17529.   SETR SCRIPTRAM, D2
  17530.   ADDV D1, 1
  17531.   SETV D2, 122
  17532.   SETR SCRIPTRAM, D2
  17533.   ADDV D1, 1
  17534.   SETV D2, 104
  17535.   SETR SCRIPTRAM, D2
  17536.   ADDV D1, 1
  17537.   SETV D2, 58
  17538.   SETR SCRIPTRAM, D2
  17539.   ADDV D1, 1
  17540.   SETV D2, 32
  17541.   SETR SCRIPTRAM, D2
  17542.   ADDV D1, 1
  17543.   SETV D2, 65
  17544.   SETR SCRIPTRAM, D2
  17545.   ADDV D1, 1
  17546.   SETV D2, 117
  17547.   SETR SCRIPTRAM, D2
  17548.   ADDV D1, 1
  17549.   SETV D2, 116
  17550.   SETR SCRIPTRAM, D2
  17551.   ADDV D1, 1
  17552.   SETV D2, 111
  17553.   SETR SCRIPTRAM, D2
  17554.   ADDV D1, 1
  17555.   SETV D2, 71
  17556.   SETR SCRIPTRAM, D2
  17557.   ADDV D1, 1
  17558.   SETV D2, 104
  17559.   SETR SCRIPTRAM, D2
  17560.   ADDV D1, 1
  17561.   SETV D2, 111
  17562.   SETR SCRIPTRAM, D2
  17563.   ADDV D1, 1
  17564.   SETV D2, 115
  17565.   SETR SCRIPTRAM, D2
  17566.   ADDV D1, 1
  17567.   SETV D2, 116
  17568.   SETR SCRIPTRAM, D2
  17569.   ADDV D1, 1
  17570.   SETV D2, 32
  17571.   SETR SCRIPTRAM, D2
  17572.   ADDV D1, 1
  17573.   SETV D2, 115
  17574.   SETR SCRIPTRAM, D2
  17575.   ADDV D1, 1
  17576.   SETV D2, 101
  17577.   SETR SCRIPTRAM, D2
  17578.   ADDV D1, 1
  17579.   SETV D2, 116
  17580.   SETR SCRIPTRAM, D2
  17581.   ADDV D1, 1
  17582.   SETV D2, 117
  17583.   SETR SCRIPTRAM, D2
  17584.   ADDV D1, 1
  17585.   SETV D2, 112
  17586.   SETR SCRIPTRAM, D2
  17587.   ADDV D1, 1
  17588.   SETV D2, 32
  17589.   SETR SCRIPTRAM, D2
  17590.   ADDV D1, 1
  17591.   SETV D2, 102
  17592.   SETR SCRIPTRAM, D2
  17593.   ADDV D1, 1
  17594.   SETV D2, 97
  17595.   SETR SCRIPTRAM, D2
  17596.   ADDV D1, 1
  17597.   SETV D2, 105
  17598.   SETR SCRIPTRAM, D2
  17599.   ADDV D1, 1
  17600.   SETV D2, 108
  17601.   SETR SCRIPTRAM, D2
  17602.   ADDV D1, 1
  17603.   SETV D2, 101
  17604.   SETR SCRIPTRAM, D2
  17605.   ADDV D1, 1
  17606.   SETV D2, 100
  17607.   SETR SCRIPTRAM, D2
  17608.   ADDV D1, 1
  17609.   SETV D2, 32
  17610.   SETR SCRIPTRAM, D2
  17611.   ADDV D1, 1
  17612.   SETV D2, 45
  17613.   SETR SCRIPTRAM, D2
  17614.   ADDV D1, 1
  17615.   SETV D2, 32
  17616.   SETR SCRIPTRAM, D2
  17617.   ADDV D1, 1
  17618.   SETV D2, 115
  17619.   SETR SCRIPTRAM, D2
  17620.   ADDV D1, 1
  17621.   SETV D2, 99
  17622.   SETR SCRIPTRAM, D2
  17623.   ADDV D1, 1
  17624.   SETV D2, 114
  17625.   SETR SCRIPTRAM, D2
  17626.   ADDV D1, 1
  17627.   SETV D2, 105
  17628.   SETR SCRIPTRAM, D2
  17629.   ADDV D1, 1
  17630.   SETV D2, 112
  17631.   SETR SCRIPTRAM, D2
  17632.   ADDV D1, 1
  17633.   SETV D2, 116
  17634.   SETR SCRIPTRAM, D2
  17635.   ADDV D1, 1
  17636.   SETV D2, 32
  17637.   SETR SCRIPTRAM, D2
  17638.   ADDV D1, 1
  17639.   SETV D2, 110
  17640.   SETR SCRIPTRAM, D2
  17641.   ADDV D1, 1
  17642.   SETV D2, 111
  17643.   SETR SCRIPTRAM, D2
  17644.   ADDV D1, 1
  17645.   SETV D2, 116
  17646.   SETR SCRIPTRAM, D2
  17647.   ADDV D1, 1
  17648.   SETV D2, 32
  17649.   SETR SCRIPTRAM, D2
  17650.   ADDV D1, 1
  17651.   SETV D2, 102
  17652.   SETR SCRIPTRAM, D2
  17653.   ADDV D1, 1
  17654.   SETV D2, 111
  17655.   SETR SCRIPTRAM, D2
  17656.   ADDV D1, 1
  17657.   SETV D2, 117
  17658.   SETR SCRIPTRAM, D2
  17659.   ADDV D1, 1
  17660.   SETV D2, 110
  17661.   SETR SCRIPTRAM, D2
  17662.   ADDV D1, 1
  17663.   SETV D2, 100
  17664.   SETR SCRIPTRAM, D2
  17665.   ADDV D1, 1
  17666.   SETV D2, 46
  17667.   SETR SCRIPTRAM, D2
  17668.   ADDV D1, 1
  17669.   SETV D2, 92
  17670.   SETR SCRIPTRAM, D2
  17671.   ADDV D1, 1
  17672.   SETV D2, 110
  17673.   SETR SCRIPTRAM, D2
  17674.   ADDV D1, 1
  17675.   SETV D2, 0
  17676.   SETR SCRIPTRAM, D2
  17677.   ALLOCATEMEMV D2, 80
  17678.   SETR D6, D4
  17679.   ADDV D6, 1
  17680.   STOREI D2, D6
  17681.   SETR D0, D2
  17682.   SETV D1, -1
  17683.   ADDV D1, 1
  17684.   SETV D2, 32
  17685.   SETR SCRIPTRAM, D2
  17686.   ADDV D1, 1
  17687.   SETV D2, 32
  17688.   SETR SCRIPTRAM, D2
  17689.   ADDV D1, 1
  17690.   SETV D2, 69
  17691.   SETR SCRIPTRAM, D2
  17692.   ADDV D1, 1
  17693.   SETV D2, 110
  17694.   SETR SCRIPTRAM, D2
  17695.   ADDV D1, 1
  17696.   SETV D2, 101
  17697.   SETR SCRIPTRAM, D2
  17698.   ADDV D1, 1
  17699.   SETV D2, 109
  17700.   SETR SCRIPTRAM, D2
  17701.   ADDV D1, 1
  17702.   SETV D2, 121
  17703.   SETR SCRIPTRAM, D2
  17704.   ADDV D1, 1
  17705.   SETV D2, 32
  17706.   SETR SCRIPTRAM, D2
  17707.   ADDV D1, 1
  17708.   SETV D2, 110
  17709.   SETR SCRIPTRAM, D2
  17710.   ADDV D1, 1
  17711.   SETV D2, 97
  17712.   SETR SCRIPTRAM, D2
  17713.   ADDV D1, 1
  17714.   SETV D2, 109
  17715.   SETR SCRIPTRAM, D2
  17716.   ADDV D1, 1
  17717.   SETV D2, 101
  17718.   SETR SCRIPTRAM, D2
  17719.   ADDV D1, 1
  17720.   SETV D2, 58
  17721.   SETR SCRIPTRAM, D2
  17722.   ADDV D1, 1
  17723.   SETV D2, 32
  17724.   SETR SCRIPTRAM, D2
  17725.   ADDV D1, 1
  17726.   SETV D2, 37
  17727.   SETR SCRIPTRAM, D2
  17728.   ADDV D1, 1
  17729.   SETV D2, 115
  17730.   SETR SCRIPTRAM, D2
  17731.   ADDV D1, 1
  17732.   SETV D2, 92
  17733.   SETR SCRIPTRAM, D2
  17734.   ADDV D1, 1
  17735.   SETV D2, 110
  17736.   SETR SCRIPTRAM, D2
  17737.   ADDV D1, 1
  17738.   SETV D2, 0
  17739.   SETR SCRIPTRAM, D2
  17740.   ALLOCATEMEMV D2, 55
  17741.   SETR D6, D4
  17742.   ADDV D6, 0
  17743.   STOREI D2, D6
  17744.   SETR D0, D2
  17745.   SETV D1, -1
  17746.   ADDV D1, 1
  17747.   SETV D2, 32
  17748.   SETR SCRIPTRAM, D2
  17749.   ADDV D1, 1
  17750.   SETV D2, 32
  17751.   SETR SCRIPTRAM, D2
  17752.   ADDV D1, 1
  17753.   SETV D2, 83
  17754.   SETR SCRIPTRAM, D2
  17755.   ADDV D1, 1
  17756.   SETV D2, 99
  17757.   SETR SCRIPTRAM, D2
  17758.   ADDV D1, 1
  17759.   SETV D2, 114
  17760.   SETR SCRIPTRAM, D2
  17761.   ADDV D1, 1
  17762.   SETV D2, 105
  17763.   SETR SCRIPTRAM, D2
  17764.   ADDV D1, 1
  17765.   SETV D2, 112
  17766.   SETR SCRIPTRAM, D2
  17767.   ADDV D1, 1
  17768.   SETV D2, 116
  17769.   SETR SCRIPTRAM, D2
  17770.   ADDV D1, 1
  17771.   SETV D2, 32
  17772.   SETR SCRIPTRAM, D2
  17773.   ADDV D1, 1
  17774.   SETV D2, 110
  17775.   SETR SCRIPTRAM, D2
  17776.   ADDV D1, 1
  17777.   SETV D2, 97
  17778.   SETR SCRIPTRAM, D2
  17779.   ADDV D1, 1
  17780.   SETV D2, 109
  17781.   SETR SCRIPTRAM, D2
  17782.   ADDV D1, 1
  17783.   SETV D2, 101
  17784.   SETR SCRIPTRAM, D2
  17785.   ADDV D1, 1
  17786.   SETV D2, 32
  17787.   SETR SCRIPTRAM, D2
  17788.   ADDV D1, 1
  17789.   SETV D2, 115
  17790.   SETR SCRIPTRAM, D2
  17791.   ADDV D1, 1
  17792.   SETV D2, 104
  17793.   SETR SCRIPTRAM, D2
  17794.   ADDV D1, 1
  17795.   SETV D2, 111
  17796.   SETR SCRIPTRAM, D2
  17797.   ADDV D1, 1
  17798.   SETV D2, 117
  17799.   SETR SCRIPTRAM, D2
  17800.   ADDV D1, 1
  17801.   SETV D2, 108
  17802.   SETR SCRIPTRAM, D2
  17803.   ADDV D1, 1
  17804.   SETV D2, 100
  17805.   SETR SCRIPTRAM, D2
  17806.   ADDV D1, 1
  17807.   SETV D2, 32
  17808.   SETR SCRIPTRAM, D2
  17809.   ADDV D1, 1
  17810.   SETV D2, 115
  17811.   SETR SCRIPTRAM, D2
  17812.   ADDV D1, 1
  17813.   SETV D2, 116
  17814.   SETR SCRIPTRAM, D2
  17815.   ADDV D1, 1
  17816.   SETV D2, 97
  17817.   SETR SCRIPTRAM, D2
  17818.   ADDV D1, 1
  17819.   SETV D2, 114
  17820.   SETR SCRIPTRAM, D2
  17821.   ADDV D1, 1
  17822.   SETV D2, 116
  17823.   SETR SCRIPTRAM, D2
  17824.   ADDV D1, 1
  17825.   SETV D2, 32
  17826.   SETR SCRIPTRAM, D2
  17827.   ADDV D1, 1
  17828.   SETV D2, 97
  17829.   SETR SCRIPTRAM, D2
  17830.   ADDV D1, 1
  17831.   SETV D2, 102
  17832.   SETR SCRIPTRAM, D2
  17833.   ADDV D1, 1
  17834.   SETV D2, 116
  17835.   SETR SCRIPTRAM, D2
  17836.   ADDV D1, 1
  17837.   SETV D2, 101
  17838.   SETR SCRIPTRAM, D2
  17839.   ADDV D1, 1
  17840.   SETV D2, 114
  17841.   SETR SCRIPTRAM, D2
  17842.   ADDV D1, 1
  17843.   SETV D2, 32
  17844.   SETR SCRIPTRAM, D2
  17845.   ADDV D1, 1
  17846.   SETV D2, 116
  17847.   SETR SCRIPTRAM, D2
  17848.   ADDV D1, 1
  17849.   SETV D2, 104
  17850.   SETR SCRIPTRAM, D2
  17851.   ADDV D1, 1
  17852.   SETV D2, 105
  17853.   SETR SCRIPTRAM, D2
  17854.   ADDV D1, 1
  17855.   SETV D2, 115
  17856.   SETR SCRIPTRAM, D2
  17857.   ADDV D1, 1
  17858.   SETV D2, 32
  17859.   SETR SCRIPTRAM, D2
  17860.   ADDV D1, 1
  17861.   SETV D2, 99
  17862.   SETR SCRIPTRAM, D2
  17863.   ADDV D1, 1
  17864.   SETV D2, 104
  17865.   SETR SCRIPTRAM, D2
  17866.   ADDV D1, 1
  17867.   SETV D2, 97
  17868.   SETR SCRIPTRAM, D2
  17869.   ADDV D1, 1
  17870.   SETV D2, 114
  17871.   SETR SCRIPTRAM, D2
  17872.   ADDV D1, 1
  17873.   SETV D2, 97
  17874.   SETR SCRIPTRAM, D2
  17875.   ADDV D1, 1
  17876.   SETV D2, 99
  17877.   SETR SCRIPTRAM, D2
  17878.   ADDV D1, 1
  17879.   SETV D2, 116
  17880.   SETR SCRIPTRAM, D2
  17881.   ADDV D1, 1
  17882.   SETV D2, 101
  17883.   SETR SCRIPTRAM, D2
  17884.   ADDV D1, 1
  17885.   SETV D2, 114
  17886.   SETR SCRIPTRAM, D2
  17887.   ADDV D1, 1
  17888.   SETV D2, 58
  17889.   SETR SCRIPTRAM, D2
  17890.   ADDV D1, 1
  17891.   SETV D2, 32
  17892.   SETR SCRIPTRAM, D2
  17893.   ADDV D1, 1
  17894.   SETV D2, 37
  17895.   SETR SCRIPTRAM, D2
  17896.   ADDV D1, 1
  17897.   SETV D2, 99
  17898.   SETR SCRIPTRAM, D2
  17899.   ADDV D1, 1
  17900.   SETV D2, 92
  17901.   SETR SCRIPTRAM, D2
  17902.   ADDV D1, 1
  17903.   SETV D2, 110
  17904.   SETR SCRIPTRAM, D2
  17905.   ADDV D1, 1
  17906.   SETV D2, 0
  17907.   SETR SCRIPTRAM, D2
  17908.   PUSHR D4
  17909.   SETV D2, 17915
  17910.   PUSHR D2
  17911.   SETR D6, D4
  17912.   ADDV D6, 2
  17913.   LOADI D2, D6
  17914.   PUSHR D2
  17915.   GOTO 18400
  17916.   POP D4
  17917.   PUSHR D4
  17918.   SETV D2, 17928
  17919.   PUSHR D2
  17920.   SETR D6, D4
  17921.   ADDV D6, 1
  17922.   LOADI D2, D6
  17923.   PUSHR D2
  17924.   SETR D6, D4
  17925.   ADDV D6, 10
  17926.   LOADI D2, D6
  17927.   PUSHR D2
  17928.   GOTO 18447
  17929.   POP D4
  17930.   PUSHR D4
  17931.   SETV D2, 17939
  17932.   PUSHR D2
  17933.   SETR D6, D4
  17934.   ADDV D6, 0
  17935.   LOADI D2, D6
  17936.   PUSHR D2
  17937.   SETV D2, 64
  17938.   PUSHR D2
  17939.   GOTO 18447
  17940.   POP D4
  17941.   SETR D6, D4
  17942.   ADDV D6, 0
  17943.   LOADI D3, D6
  17944.   DEALLOCATEMEMR D3
  17945.   SETR D6, D4
  17946.   ADDV D6, 1
  17947.   LOADI D3, D6
  17948.   DEALLOCATEMEMR D3
  17949.   SETR D6, D4
  17950.   ADDV D6, 2
  17951.   LOADI D3, D6
  17952.   DEALLOCATEMEMR D3
  17953.   SETV D2, 0
  17954.   SETV D2, 0
  17955.   SETR D6, D4
  17956.   ADDV D6, 9
  17957.   LOADI D3, D6
  17958.   DEALLOCATEMEMR D3
  17959.   SETR D6, D4
  17960.   ADDV D6, 10
  17961.   LOADI D3, D6
  17962.   DEALLOCATEMEMR D3
  17963.   SETV D3, 0
  17964.   POP D3
  17965.   POP D3
  17966.   POP D3
  17967.   POP D3
  17968.   POP D3
  17969.   POP D3
  17970.   POP D3
  17971.   POP D3
  17972.   POP D3
  17973.   POP D3
  17974.   POP D3
  17975.   POP D3
  17976.   POP D3
  17977.   POP D3
  17978.   GOTOR D3
  17979.   SETV D2, 0
  17980.   SETR D4, SP
  17981.   SETV D2, 65536
  17982.   PUSHR D4
  17983.   SETV D3, 17994
  17984.   PUSHR D3
  17985.   PUSHR D2
  17986.   SETR D6, D4
  17987.   ADDV D6, 0
  17988.   LOADI D2, D6
  17989.   POP D3
  17990.   PUSHR D2
  17991.   PUSHR D3
  17992.   SETV D2, 15
  17993.   PUSHR D2
  17994.   GOTO 22190
  17995.   POP D4
  17996.   SETV D2, 1024
  17997.   PUSHR D4
  17998.   SETV D3, 18007
  17999.   PUSHR D3
  18000.   PUSHR D2
  18001.   SETR D6, D4
  18002.   ADDV D6, 0
  18003.   LOADI D2, D6
  18004.   POP D3
  18005.   PUSHR D2
  18006.   PUSHR D3
  18007.   GOTO 22128
  18008.   POP D4
  18009.   SETV D2, 1024
  18010.   PUSHR D4
  18011.   SETV D3, 18020
  18012.   PUSHR D3
  18013.   PUSHR D2
  18014.   SETR D6, D4
  18015.   ADDV D6, 0
  18016.   LOADI D2, D6
  18017.   POP D3
  18018.   PUSHR D2
  18019.   PUSHR D3
  18020.   GOTO 22139
  18021.   POP D4
  18022.   SETV D2, -1000
  18023.   PUSHR D4
  18024.   SETV D3, 18033
  18025.   PUSHR D3
  18026.   PUSHR D2
  18027.   SETR D6, D4
  18028.   ADDV D6, 0
  18029.   LOADI D2, D6
  18030.   POP D3
  18031.   PUSHR D2
  18032.   PUSHR D3
  18033.   GOTO 22150
  18034.   POP D4
  18035.   SETV D2, 0
  18036.   PUSHR D4
  18037.   SETV D3, 18046
  18038.   PUSHR D3
  18039.   PUSHR D2
  18040.   SETR D6, D4
  18041.   ADDV D6, 0
  18042.   LOADI D2, D6
  18043.   POP D3
  18044.   PUSHR D2
  18045.   PUSHR D3
  18046.   GOTO 22161
  18047.   POP D4
  18048.   SETV D3, 0
  18049.   POP D3
  18050.   POP D3
  18051.   GOTOR D3
  18052.   SETV D2, 0
  18053.   SETR D4, SP
  18054.   SETR D6, D4
  18055.   ADDV D6, 1
  18056.   LOADI D2, D6
  18057.   PUSHR D2
  18058.   SETV D2, 97
  18059.   POP D3
  18060.   COMPARER D3, D2
  18061.   SETMORE D2
  18062.   PUSHR D2
  18063.   SETR D6, D4
  18064.   ADDV D6, 1
  18065.   LOADI D2, D6
  18066.   PUSHR D2
  18067.   SETV D2, 122
  18068.   POP D3
  18069.   COMPARER D3, D2
  18070.   SETLESS D2
  18071.   POP D3
  18072.   COMPAREV D2, 0
  18073.   SETFALSE D2
  18074.   COMPAREV D3, 0
  18075.   SETFALSE D3
  18076.   ADDR D2, D3
  18077.   COMPAREV D2, 0.0002
  18078.   SETMORE D2
  18079.   COMPAREV D2, 0
  18080.   GOTOTRUE 18081
  18081.   SETV D2, 0.0001
  18082.   GOTO 18165
  18083.   SETV D2, 0
  18084.   SETR D6, D4
  18085.   ADDV D6, 1
  18086.   LOADI D2, D6
  18087.   PUSHR D2
  18088.   SETV D2, 65
  18089.   POP D3
  18090.   COMPARER D3, D2
  18091.   SETMORE D2
  18092.   PUSHR D2
  18093.   SETR D6, D4
  18094.   ADDV D6, 1
  18095.   LOADI D2, D6
  18096.   PUSHR D2
  18097.   SETV D2, 90
  18098.   POP D3
  18099.   COMPARER D3, D2
  18100.   SETLESS D2
  18101.   POP D3
  18102.   COMPAREV D2, 0
  18103.   SETFALSE D2
  18104.   COMPAREV D3, 0
  18105.   SETFALSE D3
  18106.   ADDR D2, D3
  18107.   COMPAREV D2, 0.0002
  18108.   SETMORE D2
  18109.   COMPAREV D2, 0
  18110.   GOTOTRUE 18111
  18111.   SETV D2, 0.0001
  18112.   GOTO 18165
  18113.   SETV D2, 0
  18114.   SETR D6, D4
  18115.   ADDV D6, 1
  18116.   LOADI D2, D6
  18117.   PUSHR D2
  18118.   SETV D2, 95
  18119.   POP D3
  18120.   COMPARER D2, D3
  18121.   SETTRUE D2
  18122.   COMPAREV D2, 0
  18123.   GOTOTRUE 18124
  18124.   SETV D2, 0.0001
  18125.   GOTO 18165
  18126.   SETV D2, 0
  18127.   SETR D6, D4
  18128.   ADDV D6, 0
  18129.   LOADI D2, D6
  18130.   COMPAREV D2, 0
  18131.   SETTRUE D2
  18132.   COMPAREV D2, 0
  18133.   GOTOTRUE 18162
  18134.   SETR D6, D4
  18135.   ADDV D6, 1
  18136.   LOADI D2, D6
  18137.   PUSHR D2
  18138.   SETV D2, 48
  18139.   POP D3
  18140.   COMPARER D3, D2
  18141.   SETMORE D2
  18142.   PUSHR D2
  18143.   SETR D6, D4
  18144.   ADDV D6, 1
  18145.   LOADI D2, D6
  18146.   PUSHR D2
  18147.   SETV D2, 57
  18148.   POP D3
  18149.   COMPARER D3, D2
  18150.   SETLESS D2
  18151.   POP D3
  18152.   COMPAREV D2, 0
  18153.   SETFALSE D2
  18154.   COMPAREV D3, 0
  18155.   SETFALSE D3
  18156.   ADDR D2, D3
  18157.   COMPAREV D2, 0.0002
  18158.   SETMORE D2
  18159.   COMPAREV D2, 0
  18160.   GOTOTRUE 18161
  18161.   SETV D2, 0.0001
  18162.   GOTO 18165
  18163.   SETV D2, 0
  18164.   SETV D2, 0
  18165.   SETV D2, 0
  18166.   GOTO 18165
  18167.   SETV D3, 0
  18168.   POP D3
  18169.   POP D3
  18170.   POP D3
  18171.   GOTOR D3
  18172.   SETV D2, 0
  18173.   SETR D4, SP
  18174.   PUSHR D4
  18175.   SETV D2, 18179
  18176.   PUSHR D2
  18177.   SETV D2, 0
  18178.   PUSHR D2
  18179.   GOTO 18183
  18180.   POP D4
  18181.   GOTO 18180
  18182.   SETV D3, 0
  18183.   POP D3
  18184.   GOTOR D3
  18185.   SETV D2, 0
  18186.   PUSHR D2
  18187.   PUSHR D2
  18188.   SETR D4, SP
  18189.   SETR D6, D4
  18190.   ADDV D6, 1
  18191.   SETV D2, 0
  18192.   STOREI D2, D6
  18193.   PUSHR D4
  18194.   SETV D2, 18206
  18195.   PUSHR D2
  18196.   SETR D6, D4
  18197.   ADDV D6, 2
  18198.   LOADI D2, D6
  18199.   PUSHR D2
  18200.   SETV D2, 1
  18201.   POP D3
  18202.   ADDR D2, D3
  18203.   PUSHR D2
  18204.   SETV D2, 1
  18205.   PUSHR D2
  18206.   GOTO 21849
  18207.   POP D4
  18208.   SETR D6, D4
  18209.   ADDV D6, 0
  18210.   STOREI D2, D6
  18211.   SETV D2, 0
  18212.   SETR D6, D4
  18213.   ADDV D6, 0
  18214.   LOADI D2, D6
  18215.   PUSHR D2
  18216.   SETV D2, 32
  18217.   POP D3
  18218.   COMPARER D3, D2
  18219.   SETLESS D2
  18220.   COMPAREV D2, 0
  18221.   GOTOTRUE 18330
  18222.   PUSHR D4
  18223.   SETV D2, 18231
  18224.   PUSHR D2
  18225.   SETR D2, GD0
  18226.   PUSHR D2
  18227.   SETR D6, D4
  18228.   ADDV D6, 0
  18229.   LOADI D2, D6
  18230.   PUSHR D2
  18231.   GOTO 22005
  18232.   POP D4
  18233.   SETR D6, D4
  18234.   ADDV D6, 1
  18235.   STOREI D2, D6
  18236.   PUSHR D4
  18237.   SETV D2, 18243
  18238.   PUSHR D2
  18239.   SETR D6, D4
  18240.   ADDV D6, 1
  18241.   LOADI D2, D6
  18242.   PUSHR D2
  18243.   GOTO 21880
  18244.   POP D4
  18245.   PUSHR D2
  18246.   SETV D2, 0
  18247.   POP D3
  18248.   COMPARER D2, D3
  18249.   SETTRUE D2
  18250.   PUSHR D2
  18251.   PUSHR D4
  18252.   SETV D2, 18258
  18253.   PUSHR D2
  18254.   SETR D6, D4
  18255.   ADDV D6, 1
  18256.   LOADI D2, D6
  18257.   PUSHR D2
  18258.   GOTO 21880
  18259.   POP D4
  18260.   PUSHR D2
  18261.   SETV D2, 1
  18262.   POP D3
  18263.   COMPARER D2, D3
  18264.   SETTRUE D2
  18265.   POP D3
  18266.   ADDR D2, D3
  18267.   COMPAREV D2, 0.0001
  18268.   SETMORE D2
  18269.   PUSHR D2
  18270.   PUSHR D4
  18271.   SETV D2, 18277
  18272.   PUSHR D2
  18273.   SETR D6, D4
  18274.   ADDV D6, 1
  18275.   LOADI D2, D6
  18276.   PUSHR D2
  18277.   GOTO 21891
  18278.   POP D4
  18279.   PUSHR D2
  18280.   SETV D2, 0
  18281.   POP D3
  18282.   COMPARER D2, D3
  18283.   SETTRUE D2
  18284.   POP D3
  18285.   COMPAREV D2, 0
  18286.   SETFALSE D2
  18287.   COMPAREV D3, 0
  18288.   SETFALSE D3
  18289.   ADDR D2, D3
  18290.   COMPAREV D2, 0.0002
  18291.   SETMORE D2
  18292.   PUSHR D2
  18293.   PUSHR D4
  18294.   SETV D2, 18302
  18295.   PUSHR D2
  18296.   SETR D6, D4
  18297.   ADDV D6, 1
  18298.   LOADI D2, D6
  18299.   PUSHR D2
  18300.   SETV D2, 5
  18301.   PUSHR D2
  18302.   GOTO 21944
  18303.   POP D4
  18304.   COMPAREV D2, 0
  18305.   SETTRUE D2
  18306.   POP D3
  18307.   COMPAREV D2, 0
  18308.   SETFALSE D2
  18309.   COMPAREV D3, 0
  18310.   SETFALSE D3
  18311.   ADDR D2, D3
  18312.   COMPAREV D2, 0.0002
  18313.   SETMORE D2
  18314.   COMPAREV D2, 0
  18315.   GOTOTRUE 18318
  18316.   SETR D6, D4
  18317.   ADDV D6, 0
  18318.   LOADI D2, D6
  18319.   GOTO 18333
  18320.   SETV D2, 0
  18321.   SETV D3, 0
  18322.   SETR D6, D4
  18323.   ADDV D6, 0
  18324.   LOADI D2, D6
  18325.   PUSHR D2
  18326.   ADDV D2, 1
  18327.   SETR D6, D4
  18328.   ADDV D6, 0
  18329.   STOREI D2, D6
  18330.   POP D2
  18331.   GOTO 18209
  18332.   SETV D3, 0
  18333.   SETV D2, 0
  18334.   GOTO 18333
  18335.   SETV D3, 0
  18336.   POP D3
  18337.   POP D3
  18338.   POP D3
  18339.   POP D3
  18340.   GOTOR D3
  18341.   SETV D2, 0
  18342.   SETR D4, SP
  18343.   PUSHR D4
  18344.   SETV D2, 18350
  18345.   PUSHR D2
  18346.   SETR D2, GD0
  18347.   PUSHR D2
  18348.   SETV D2, 50
  18349.   PUSHR D2
  18350.   GOTO 21999
  18351.   POP D4
  18352.   PUSHR D2
  18353.   PUSHR D4
  18354.   SETV D2, 18360
  18355.   PUSHR D2
  18356.   SETR D2, GD0
  18357.   PUSHR D2
  18358.   SETV D2, 63
  18359.   PUSHR D2
  18360.   GOTO 21999
  18361.   POP D4
  18362.   POP D3
  18363.   ADDR D2, D3
  18364.   COMPAREV D2, 0.0001
  18365.   SETMORE D2
  18366.   GOTO 18365
  18367.   SETV D3, 0
  18368.   POP D3
  18369.   GOTOR D3
  18370.   SETV D2, 0
  18371.   SETR D4, SP
  18372.   SETR D6, D4
  18373.   ADDV D6, 1
  18374.   LOADI D2, D6
  18375.   SETR D6, D4
  18376.   ADDV D6, 2
  18377.   LOADI D0, D6
  18378.   SETR D5, D2
  18379.   PUSHR D0
  18380.   SETV D2, 0
  18381.   POP D0
  18382.   SETR D1, D2
  18383.   SETR SCRIPTRAM, D5
  18384.   SETR D6, D4
  18385.   ADDV D6, 0
  18386.   LOADI D2, D6
  18387.   SETR D6, D4
  18388.   ADDV D6, 2
  18389.   LOADI D0, D6
  18390.   SETR D5, D2
  18391.   PUSHR D0
  18392.   SETV D2, 1
  18393.   POP D0
  18394.   SETR D1, D2
  18395.   SETR SCRIPTRAM, D5
  18396.   SETV D3, 0
  18397.   POP D3
  18398.   POP D3
  18399.   POP D3
  18400.   POP D3
  18401.   GOTOR D3
  18402.   SETV D2, 0
  18403.   SETR D4, SP
  18404.   PUSHR D4
  18405.   SETV D2, 18443
  18406.   PUSHR D2
  18407.   SETR D6, D4
  18408.   ADDV D6, 0
  18409.   LOADI D2, D6
  18410.   PUSHR D2
  18411.   SETV D2, 0
  18412.   PUSHR D2
  18413.   SETV D2, 0
  18414.   PUSHR D2
  18415.   SETV D2, 0
  18416.   PUSHR D2
  18417.   SETV D2, 0
  18418.   PUSHR D2
  18419.   SETV D2, 0
  18420.   PUSHR D2
  18421.   SETV D2, 0
  18422.   PUSHR D2
  18423.   SETV D2, 0
  18424.   PUSHR D2
  18425.   SETV D2, 0
  18426.   PUSHR D2
  18427.   SETV D2, 0
  18428.   PUSHR D2
  18429.   SETV D2, 0
  18430.   PUSHR D2
  18431.   SETV D2, 0
  18432.   PUSHR D2
  18433.   SETV D2, 0
  18434.   PUSHR D2
  18435.   SETV D2, 0
  18436.   PUSHR D2
  18437.   SETV D2, 0
  18438.   PUSHR D2
  18439.   SETV D2, 0
  18440.   PUSHR D2
  18441.   SETV D2, 0
  18442.   PUSHR D2
  18443.   GOTO 18757
  18444.   POP D4
  18445.   SETV D3, 0
  18446.   POP D3
  18447.   POP D3
  18448.   GOTOR D3
  18449.   SETV D2, 0
  18450.   SETR D4, SP
  18451.   PUSHR D4
  18452.   SETV D2, 18492
  18453.   PUSHR D2
  18454.   SETR D6, D4
  18455.   ADDV D6, 1
  18456.   LOADI D2, D6
  18457.   PUSHR D2
  18458.   SETR D6, D4
  18459.   ADDV D6, 0
  18460.   LOADI D2, D6
  18461.   PUSHR D2
  18462.   SETV D2, 0
  18463.   PUSHR D2
  18464.   SETV D2, 0
  18465.   PUSHR D2
  18466.   SETV D2, 0
  18467.   PUSHR D2
  18468.   SETV D2, 0
  18469.   PUSHR D2
  18470.   SETV D2, 0
  18471.   PUSHR D2
  18472.   SETV D2, 0
  18473.   PUSHR D2
  18474.   SETV D2, 0
  18475.   PUSHR D2
  18476.   SETV D2, 0
  18477.   PUSHR D2
  18478.   SETV D2, 0
  18479.   PUSHR D2
  18480.   SETV D2, 0
  18481.   PUSHR D2
  18482.   SETV D2, 0
  18483.   PUSHR D2
  18484.   SETV D2, 0
  18485.   PUSHR D2
  18486.   SETV D2, 0
  18487.   PUSHR D2
  18488.   SETV D2, 0
  18489.   PUSHR D2
  18490.   SETV D2, 0
  18491.   PUSHR D2
  18492.   GOTO 18757
  18493.   POP D4
  18494.   SETV D3, 0
  18495.   POP D3
  18496.   POP D3
  18497.   POP D3
  18498.   GOTOR D3
  18499.   SETV D2, 0
  18500.   SETR D4, SP
  18501.   SETR D6, D4
  18502.   ADDV D6, 0
  18503.   LOADI D2, D6
  18504.   PUSHR D2
  18505.   SETV D2, 110
  18506.   POP D3
  18507.   COMPARER D2, D3
  18508.   SETTRUE D2
  18509.   COMPAREV D2, 0
  18510.   GOTOTRUE 18512
  18511.   SETV D2, 0
  18512.   GOTO 18634
  18513.   GOTO 18631
  18514.   SETV D3, 0
  18515.   SETR D6, D4
  18516.   ADDV D6, 0
  18517.   LOADI D2, D6
  18518.   PUSHR D2
  18519.   SETV D2, 105
  18520.   POP D3
  18521.   COMPARER D2, D3
  18522.   SETTRUE D2
  18523.   COMPAREV D2, 0
  18524.   GOTOTRUE 18526
  18525.   SETV D2, 2
  18526.   GOTO 18634
  18527.   GOTO 18630
  18528.   SETV D3, 0
  18529.   SETR D6, D4
  18530.   ADDV D6, 0
  18531.   LOADI D2, D6
  18532.   PUSHR D2
  18533.   SETV D2, 102
  18534.   POP D3
  18535.   COMPARER D2, D3
  18536.   SETTRUE D2
  18537.   COMPAREV D2, 0
  18538.   GOTOTRUE 18540
  18539.   SETV D2, 3
  18540.   GOTO 18634
  18541.   GOTO 18629
  18542.   SETV D3, 0
  18543.   SETR D6, D4
  18544.   ADDV D6, 0
  18545.   LOADI D2, D6
  18546.   PUSHR D2
  18547.   SETV D2, 100
  18548.   POP D3
  18549.   COMPARER D2, D3
  18550.   SETTRUE D2
  18551.   COMPAREV D2, 0
  18552.   GOTOTRUE 18554
  18553.   SETV D2, 4
  18554.   GOTO 18634
  18555.   GOTO 18628
  18556.   SETV D3, 0
  18557.   SETR D6, D4
  18558.   ADDV D6, 0
  18559.   LOADI D2, D6
  18560.   PUSHR D2
  18561.   SETV D2, 115
  18562.   POP D3
  18563.   COMPARER D2, D3
  18564.   SETTRUE D2
  18565.   COMPAREV D2, 0
  18566.   GOTOTRUE 18568
  18567.   SETV D2, 1
  18568.   GOTO 18634
  18569.   GOTO 18627
  18570.   SETV D3, 0
  18571.   SETR D6, D4
  18572.   ADDV D6, 0
  18573.   LOADI D2, D6
  18574.   PUSHR D2
  18575.   SETV D2, 112
  18576.   POP D3
  18577.   COMPARER D2, D3
  18578.   SETTRUE D2
  18579.   COMPAREV D2, 0
  18580.   GOTOTRUE 18582
  18581.   SETV D2, 5
  18582.   GOTO 18634
  18583.   GOTO 18626
  18584.   SETV D3, 0
  18585.   SETR D6, D4
  18586.   ADDV D6, 0
  18587.   LOADI D2, D6
  18588.   PUSHR D2
  18589.   SETV D2, 99
  18590.   POP D3
  18591.   COMPARER D2, D3
  18592.   SETTRUE D2
  18593.   COMPAREV D2, 0
  18594.   GOTOTRUE 18596
  18595.   SETV D2, 6
  18596.   GOTO 18634
  18597.   GOTO 18625
  18598.   SETV D3, 0
  18599.   SETR D6, D4
  18600.   ADDV D6, 0
  18601.   LOADI D2, D6
  18602.   PUSHR D2
  18603.   SETV D2, 120
  18604.   POP D3
  18605.   COMPARER D2, D3
  18606.   SETTRUE D2
  18607.   COMPAREV D2, 0
  18608.   GOTOTRUE 18610
  18609.   SETV D2, 7
  18610.   GOTO 18634
  18611.   GOTO 18624
  18612.   SETV D3, 0
  18613.   SETR D6, D4
  18614.   ADDV D6, 0
  18615.   LOADI D2, D6
  18616.   PUSHR D2
  18617.   SETV D2, 88
  18618.   POP D3
  18619.   COMPARER D2, D3
  18620.   SETTRUE D2
  18621.   COMPAREV D2, 0
  18622.   GOTOTRUE 18623
  18623.   SETV D2, 8
  18624.   GOTO 18634
  18625.   SETV D2, 0
  18626.   SETV D3, 0
  18627.   SETV D3, 0
  18628.   SETV D3, 0
  18629.   SETV D3, 0
  18630.   SETV D3, 0
  18631.   SETV D3, 0
  18632.   SETV D3, 0
  18633.   SETV D3, 0
  18634.   SETV D2, -1
  18635.   GOTO 18634
  18636.   SETV D3, 0
  18637.   POP D3
  18638.   POP D3
  18639.   GOTOR D3
  18640.   SETV D2, 0
  18641.   SETR D4, SP
  18642.   SETR D6, D4
  18643.   ADDV D6, 0
  18644.   LOADI D2, D6
  18645.   PUSHR D2
  18646.   SETV D2, 110
  18647.   POP D3
  18648.   COMPARER D2, D3
  18649.   SETTRUE D2
  18650.   PUSHR D2
  18651.   SETR D6, D4
  18652.   ADDV D6, 0
  18653.   LOADI D2, D6
  18654.   PUSHR D2
  18655.   SETV D2, 115
  18656.   POP D3
  18657.   COMPARER D2, D3
  18658.   SETTRUE D2
  18659.   POP D3
  18660.   ADDR D2, D3
  18661.   COMPAREV D2, 0.0001
  18662.   SETMORE D2
  18663.   PUSHR D2
  18664.   SETR D6, D4
  18665.   ADDV D6, 0
  18666.   LOADI D2, D6
  18667.   PUSHR D2
  18668.   SETV D2, 105
  18669.   POP D3
  18670.   COMPARER D2, D3
  18671.   SETTRUE D2
  18672.   POP D3
  18673.   ADDR D2, D3
  18674.   COMPAREV D2, 0.0001
  18675.   SETMORE D2
  18676.   PUSHR D2
  18677.   SETR D6, D4
  18678.   ADDV D6, 0
  18679.   LOADI D2, D6
  18680.   PUSHR D2
  18681.   SETV D2, 102
  18682.   POP D3
  18683.   COMPARER D2, D3
  18684.   SETTRUE D2
  18685.   POP D3
  18686.   ADDR D2, D3
  18687.   COMPAREV D2, 0.0001
  18688.   SETMORE D2
  18689.   PUSHR D2
  18690.   SETR D6, D4
  18691.   ADDV D6, 0
  18692.   LOADI D2, D6
  18693.   PUSHR D2
  18694.   SETV D2, 100
  18695.   POP D3
  18696.   COMPARER D2, D3
  18697.   SETTRUE D2
  18698.   POP D3
  18699.   ADDR D2, D3
  18700.   COMPAREV D2, 0.0001
  18701.   SETMORE D2
  18702.   PUSHR D2
  18703.   SETR D6, D4
  18704.   ADDV D6, 0
  18705.   LOADI D2, D6
  18706.   PUSHR D2
  18707.   SETV D2, 112
  18708.   POP D3
  18709.   COMPARER D2, D3
  18710.   SETTRUE D2
  18711.   POP D3
  18712.   ADDR D2, D3
  18713.   COMPAREV D2, 0.0001
  18714.   SETMORE D2
  18715.   PUSHR D2
  18716.   SETR D6, D4
  18717.   ADDV D6, 0
  18718.   LOADI D2, D6
  18719.   PUSHR D2
  18720.   SETV D2, 99
  18721.   POP D3
  18722.   COMPARER D2, D3
  18723.   SETTRUE D2
  18724.   POP D3
  18725.   ADDR D2, D3
  18726.   COMPAREV D2, 0.0001
  18727.   SETMORE D2
  18728.   PUSHR D2
  18729.   SETR D6, D4
  18730.   ADDV D6, 0
  18731.   LOADI D2, D6
  18732.   PUSHR D2
  18733.   SETV D2, 120
  18734.   POP D3
  18735.   COMPARER D2, D3
  18736.   SETTRUE D2
  18737.   POP D3
  18738.   ADDR D2, D3
  18739.   COMPAREV D2, 0.0001
  18740.   SETMORE D2
  18741.   PUSHR D2
  18742.   SETR D6, D4
  18743.   ADDV D6, 0
  18744.   LOADI D2, D6
  18745.   PUSHR D2
  18746.   SETV D2, 88
  18747.   POP D3
  18748.   COMPARER D2, D3
  18749.   SETTRUE D2
  18750.   POP D3
  18751.   ADDR D2, D3
  18752.   COMPAREV D2, 0.0001
  18753.   SETMORE D2
  18754.   GOTO 18753
  18755.   SETV D3, 0
  18756.   POP D3
  18757.   POP D3
  18758.   GOTOR D3
  18759.   SETV D2, 0
  18760.   PUSHR D2
  18761.   SETR D4, SP
  18762.   ALLOCATEMEMV D2, 512
  18763.   SETR D6, D4
  18764.   ADDV D6, 0
  18765.   STOREI D2, D6
  18766.   PUSHR D4
  18767.   SETV D2, 18841
  18768.   PUSHR D2
  18769.   SETR D6, D4
  18770.   ADDV D6, 0
  18771.   LOADI D2, D6
  18772.   PUSHR D2
  18773.   SETR D6, D4
  18774.   ADDV D6, 17
  18775.   LOADI D2, D6
  18776.   PUSHR D2
  18777.   SETR D6, D4
  18778.   ADDV D6, 16
  18779.   LOADI D2, D6
  18780.   PUSHR D2
  18781.   SETR D6, D4
  18782.   ADDV D6, 15
  18783.   LOADI D2, D6
  18784.   PUSHR D2
  18785.   SETR D6, D4
  18786.   ADDV D6, 14
  18787.   LOADI D2, D6
  18788.   PUSHR D2
  18789.   SETR D6, D4
  18790.   ADDV D6, 13
  18791.   LOADI D2, D6
  18792.   PUSHR D2
  18793.   SETR D6, D4
  18794.   ADDV D6, 12
  18795.   LOADI D2, D6
  18796.   PUSHR D2
  18797.   SETR D6, D4
  18798.   ADDV D6, 11
  18799.   LOADI D2, D6
  18800.   PUSHR D2
  18801.   SETR D6, D4
  18802.   ADDV D6, 10
  18803.   LOADI D2, D6
  18804.   PUSHR D2
  18805.   SETR D6, D4
  18806.   ADDV D6, 9
  18807.   LOADI D2, D6
  18808.   PUSHR D2
  18809.   SETR D6, D4
  18810.   ADDV D6, 8
  18811.   LOADI D2, D6
  18812.   PUSHR D2
  18813.   SETR D6, D4
  18814.   ADDV D6, 7
  18815.   LOADI D2, D6
  18816.   PUSHR D2
  18817.   SETR D6, D4
  18818.   ADDV D6, 6
  18819.   LOADI D2, D6
  18820.   PUSHR D2
  18821.   SETR D6, D4
  18822.   ADDV D6, 5
  18823.   LOADI D2, D6
  18824.   PUSHR D2
  18825.   SETR D6, D4
  18826.   ADDV D6, 4
  18827.   LOADI D2, D6
  18828.   PUSHR D2
  18829.   SETR D6, D4
  18830.   ADDV D6, 3
  18831.   LOADI D2, D6
  18832.   PUSHR D2
  18833.   SETR D6, D4
  18834.   ADDV D6, 2
  18835.   LOADI D2, D6
  18836.   PUSHR D2
  18837.   SETR D6, D4
  18838.   ADDV D6, 1
  18839.   LOADI D2, D6
  18840.   PUSHR D2
  18841.   GOTO 18875
  18842.   POP D4
  18843.   PUSHR D4
  18844.   SETV D2, 18850
  18845.   PUSHR D2
  18846.   SETR D6, D4
  18847.   ADDV D6, 0
  18848.   LOADI D2, D6
  18849.   PUSHR D2
  18850.   GOTO 21819
  18851.   POP D4
  18852.   SETR D6, D4
  18853.   ADDV D6, 0
  18854.   LOADI D3, D6
  18855.   DEALLOCATEMEMR D3
  18856.   SETV D3, 0
  18857.   POP D3
  18858.   POP D3
  18859.   POP D3
  18860.   POP D3
  18861.   POP D3
  18862.   POP D3
  18863.   POP D3
  18864.   POP D3
  18865.   POP D3
  18866.   POP D3
  18867.   POP D3
  18868.   POP D3
  18869.   POP D3
  18870.   POP D3
  18871.   POP D3
  18872.   POP D3
  18873.   POP D3
  18874.   POP D3
  18875.   POP D3
  18876.   GOTOR D3
  18877.   SETV D2, 0
  18878.   PUSHR D2
  18879.   PUSHR D2
  18880.   PUSHR D2
  18881.   PUSHR D2
  18882.   PUSHR D2
  18883.   PUSHR D2
  18884.   PUSHR D2
  18885.   SETR D4, SP
  18886.   SETV D2, 0
  18887.   SETR D6, D4
  18888.   ADDV D6, 6
  18889.   STOREI D2, D6
  18890.   SETV D2, 0
  18891.   SETR D6, D4
  18892.   ADDV D6, 5
  18893.   STOREI D2, D6
  18894.   ALLOCATEMEMV D2, 16
  18895.   SETR D6, D4
  18896.   ADDV D6, 4
  18897.   STOREI D2, D6
  18898.   PUSHR D4
  18899.   SETV D2, 18969
  18900.   PUSHR D2
  18901.   SETR D6, D4
  18902.   ADDV D6, 4
  18903.   LOADI D2, D6
  18904.   PUSHR D2
  18905.   SETR D6, D4
  18906.   ADDV D6, 22
  18907.   LOADI D2, D6
  18908.   PUSHR D2
  18909.   SETR D6, D4
  18910.   ADDV D6, 21
  18911.   LOADI D2, D6
  18912.   PUSHR D2
  18913.   SETR D6, D4
  18914.   ADDV D6, 20
  18915.   LOADI D2, D6
  18916.   PUSHR D2
  18917.   SETR D6, D4
  18918.   ADDV D6, 19
  18919.   LOADI D2, D6
  18920.   PUSHR D2
  18921.   SETR D6, D4
  18922.   ADDV D6, 18
  18923.   LOADI D2, D6
  18924.   PUSHR D2
  18925.   SETR D6, D4
  18926.   ADDV D6, 17
  18927.   LOADI D2, D6
  18928.   PUSHR D2
  18929.   SETR D6, D4
  18930.   ADDV D6, 16
  18931.   LOADI D2, D6
  18932.   PUSHR D2
  18933.   SETR D6, D4
  18934.   ADDV D6, 15
  18935.   LOADI D2, D6
  18936.   PUSHR D2
  18937.   SETR D6, D4
  18938.   ADDV D6, 14
  18939.   LOADI D2, D6
  18940.   PUSHR D2
  18941.   SETR D6, D4
  18942.   ADDV D6, 13
  18943.   LOADI D2, D6
  18944.   PUSHR D2
  18945.   SETR D6, D4
  18946.   ADDV D6, 12
  18947.   LOADI D2, D6
  18948.   PUSHR D2
  18949.   SETR D6, D4
  18950.   ADDV D6, 11
  18951.   LOADI D2, D6
  18952.   PUSHR D2
  18953.   SETR D6, D4
  18954.   ADDV D6, 10
  18955.   LOADI D2, D6
  18956.   PUSHR D2
  18957.   SETR D6, D4
  18958.   ADDV D6, 9
  18959.   LOADI D2, D6
  18960.   PUSHR D2
  18961.   SETR D6, D4
  18962.   ADDV D6, 8
  18963.   LOADI D2, D6
  18964.   PUSHR D2
  18965.   SETR D6, D4
  18966.   ADDV D6, 7
  18967.   LOADI D2, D6
  18968.   PUSHR D2
  18969.   GOTO 21177
  18970.   POP D4
  18971.   SETV D2, 0
  18972.   SETR D6, D4
  18973.   ADDV D6, 3
  18974.   STOREI D2, D6
  18975.   SETV D2, 0
  18976.   SETR D6, D4
  18977.   ADDV D6, 23
  18978.   LOADI D2, D6
  18979.   PUSHR D2
  18980.   SETR D6, D4
  18981.   ADDV D6, 3
  18982.   LOADI D2, D6
  18983.   POP D0
  18984.   SETR D1, D2
  18985.   SETR D2, SCRIPTRAM
  18986.   PUSHR D2
  18987.   SETV D2, 0
  18988.   POP D3
  18989.   COMPARER D2, D3
  18990.   SETFALSE D2
  18991.   COMPAREV D2, 0
  18992.   GOTOTRUE 19229
  18993.   SETR D6, D4
  18994.   ADDV D6, 23
  18995.   LOADI D2, D6
  18996.   PUSHR D2
  18997.   SETR D6, D4
  18998.   ADDV D6, 3
  18999.   LOADI D2, D6
  19000.   POP D0
  19001.   SETR D1, D2
  19002.   SETR D2, SCRIPTRAM
  19003.   SETR D6, D4
  19004.   ADDV D6, 2
  19005.   STOREI D2, D6
  19006.   SETR D6, D4
  19007.   ADDV D6, 2
  19008.   LOADI D2, D6
  19009.   PUSHR D2
  19010.   SETV D2, 92
  19011.   POP D3
  19012.   COMPARER D2, D3
  19013.   SETTRUE D2
  19014.   COMPAREV D2, 0
  19015.   GOTOTRUE 19074
  19016.   SETR D6, D4
  19017.   ADDV D6, 23
  19018.   LOADI D2, D6
  19019.   PUSHR D2
  19020.   SETR D6, D4
  19021.   ADDV D6, 3
  19022.   LOADI D2, D6
  19023.   PUSHR D2
  19024.   SETV D2, 1
  19025.   POP D3
  19026.   ADDR D2, D3
  19027.   POP D0
  19028.   SETR D1, D2
  19029.   SETR D2, SCRIPTRAM
  19030.   SETR D6, D4
  19031.   ADDV D6, 1
  19032.   STOREI D2, D6
  19033.   SETR D6, D4
  19034.   ADDV D6, 1
  19035.   LOADI D2, D6
  19036.   PUSHR D2
  19037.   SETV D2, 110
  19038.   POP D3
  19039.   COMPARER D2, D3
  19040.   SETTRUE D2
  19041.   COMPAREV D2, 0
  19042.   GOTOTRUE 19072
  19043.   SETV D2, 10
  19044.   SETR D6, D4
  19045.   ADDV D6, 24
  19046.   LOADI D0, D6
  19047.   SETR D5, D2
  19048.   PUSHR D0
  19049.   SETR D6, D4
  19050.   ADDV D6, 6
  19051.   LOADI D2, D6
  19052.   POP D0
  19053.   SETR D1, D2
  19054.   SETR SCRIPTRAM, D5
  19055.   SETR D6, D4
  19056.   ADDV D6, 6
  19057.   LOADI D2, D6
  19058.   PUSHR D2
  19059.   ADDV D2, 1
  19060.   SETR D6, D4
  19061.   ADDV D6, 6
  19062.   STOREI D2, D6
  19063.   POP D2
  19064.   SETR D6, D4
  19065.   ADDV D6, 3
  19066.   LOADI D2, D6
  19067.   PUSHR D2
  19068.   ADDV D2, 1
  19069.   SETR D6, D4
  19070.   ADDV D6, 3
  19071.   STOREI D2, D6
  19072.   POP D2
  19073.   GOTO 19218
  19074.   SETV D2, 0
  19075.   GOTO 19194
  19076.   SETV D3, 0
  19077.   SETR D6, D4
  19078.   ADDV D6, 2
  19079.   LOADI D2, D6
  19080.   PUSHR D2
  19081.   SETV D2, 37
  19082.   POP D3
  19083.   COMPARER D2, D3
  19084.   SETTRUE D2
  19085.   COMPAREV D2, 0
  19086.   GOTOTRUE 19193
  19087.   SETR D6, D4
  19088.   ADDV D6, 23
  19089.   LOADI D2, D6
  19090.   PUSHR D2
  19091.   SETR D6, D4
  19092.   ADDV D6, 3
  19093.   LOADI D2, D6
  19094.   PUSHR D2
  19095.   SETV D2, 1
  19096.   POP D3
  19097.   ADDR D2, D3
  19098.   POP D0
  19099.   SETR D1, D2
  19100.   SETR D2, SCRIPTRAM
  19101.   SETR D6, D4
  19102.   ADDV D6, 0
  19103.   STOREI D2, D6
  19104.   PUSHR D4
  19105.   SETV D2, 19111
  19106.   PUSHR D2
  19107.   SETR D6, D4
  19108.   ADDV D6, 0
  19109.   LOADI D2, D6
  19110.   PUSHR D2
  19111.   GOTO 18638
  19112.   POP D4
  19113.   COMPAREV D2, 0
  19114.   GOTOTRUE 19192
  19115.   PUSHR D4
  19116.   SETV D2, 19143
  19117.   PUSHR D2
  19118.   SETR D6, D4
  19119.   ADDV D6, 24
  19120.   LOADI D2, D6
  19121.   PUSHR D2
  19122.   SETR D6, D4
  19123.   ADDV D6, 4
  19124.   LOADI D2, D6
  19125.   PUSHR D2
  19126.   SETR D6, D4
  19127.   ADDV D6, 5
  19128.   LOADI D2, D6
  19129.   POP D0
  19130.   SETR D1, D2
  19131.   SETR D2, SCRIPTRAM
  19132.   PUSHR D2
  19133.   PUSHR D4
  19134.   SETV D2, 19140
  19135.   PUSHR D2
  19136.   SETR D6, D4
  19137.   ADDV D6, 0
  19138.   LOADI D2, D6
  19139.   PUSHR D2
  19140.   GOTO 18497
  19141.   POP D4
  19142.   PUSHR D2
  19143.   GOTO 19270
  19144.   POP D4
  19145.   SETV D2, 0
  19146.   SETR D6, D4
  19147.   ADDV D6, 24
  19148.   LOADI D2, D6
  19149.   PUSHR D2
  19150.   SETR D6, D4
  19151.   ADDV D6, 6
  19152.   LOADI D2, D6
  19153.   POP D0
  19154.   SETR D1, D2
  19155.   SETR D2, SCRIPTRAM
  19156.   PUSHR D2
  19157.   SETV D2, 0
  19158.   POP D3
  19159.   COMPARER D2, D3
  19160.   SETFALSE D2
  19161.   COMPAREV D2, 0
  19162.   GOTOTRUE 19172
  19163.   SETV D3, 0
  19164.   SETR D6, D4
  19165.   ADDV D6, 6
  19166.   LOADI D2, D6
  19167.   PUSHR D2
  19168.   ADDV D2, 1
  19169.   SETR D6, D4
  19170.   ADDV D6, 6
  19171.   STOREI D2, D6
  19172.   POP D2
  19173.   GOTO 19143
  19174.   SETV D3, 0
  19175.   SETR D6, D4
  19176.   ADDV D6, 5
  19177.   LOADI D2, D6
  19178.   PUSHR D2
  19179.   ADDV D2, 1
  19180.   SETR D6, D4
  19181.   ADDV D6, 5
  19182.   STOREI D2, D6
  19183.   POP D2
  19184.   SETR D6, D4
  19185.   ADDV D6, 3
  19186.   LOADI D2, D6
  19187.   PUSHR D2
  19188.   ADDV D2, 1
  19189.   SETR D6, D4
  19190.   ADDV D6, 3
  19191.   STOREI D2, D6
  19192.   POP D2
  19193.   GOTO 19218
  19194.   SETV D2, 0
  19195.   SETV D2, 0
  19196.   SETV D3, 0
  19197.   SETR D6, D4
  19198.   ADDV D6, 2
  19199.   LOADI D2, D6
  19200.   SETR D6, D4
  19201.   ADDV D6, 24
  19202.   LOADI D0, D6
  19203.   SETR D5, D2
  19204.   PUSHR D0
  19205.   SETR D6, D4
  19206.   ADDV D6, 6
  19207.   LOADI D2, D6
  19208.   POP D0
  19209.   SETR D1, D2
  19210.   SETR SCRIPTRAM, D5
  19211.   SETR D6, D4
  19212.   ADDV D6, 6
  19213.   LOADI D2, D6
  19214.   PUSHR D2
  19215.   ADDV D2, 1
  19216.   SETR D6, D4
  19217.   ADDV D6, 6
  19218.   STOREI D2, D6
  19219.   POP D2
  19220.   SETV D3, 0
  19221.   SETR D6, D4
  19222.   ADDV D6, 3
  19223.   LOADI D2, D6
  19224.   PUSHR D2
  19225.   ADDV D2, 1
  19226.   SETR D6, D4
  19227.   ADDV D6, 3
  19228.   STOREI D2, D6
  19229.   POP D2
  19230.   GOTO 18973
  19231.   SETV D3, 0
  19232.   SETR D6, D4
  19233.   ADDV D6, 6
  19234.   LOADI D2, D6
  19235.   SETR D6, D4
  19236.   ADDV D6, 4
  19237.   LOADI D3, D6
  19238.   DEALLOCATEMEMR D3
  19239.   GOTO 19242
  19240.   SETR D6, D4
  19241.   ADDV D6, 4
  19242.   LOADI D3, D6
  19243.   DEALLOCATEMEMR D3
  19244.   SETV D3, 0
  19245.   POP D3
  19246.   POP D3
  19247.   POP D3
  19248.   POP D3
  19249.   POP D3
  19250.   POP D3
  19251.   POP D3
  19252.   POP D3
  19253.   POP D3
  19254.   POP D3
  19255.   POP D3
  19256.   POP D3
  19257.   POP D3
  19258.   POP D3
  19259.   POP D3
  19260.   POP D3
  19261.   POP D3
  19262.   POP D3
  19263.   POP D3
  19264.   POP D3
  19265.   POP D3
  19266.   POP D3
  19267.   POP D3
  19268.   POP D3
  19269.   POP D3
  19270.   POP D3
  19271.   GOTOR D3
  19272.   SETV D2, 0
  19273.   PUSHR D2
  19274.   PUSHR D2
  19275.   PUSHR D2
  19276.   PUSHR D2
  19277.   PUSHR D2
  19278.   PUSHR D2
  19279.   PUSHR D2
  19280.   PUSHR D2
  19281.   SETR D4, SP
  19282.   SETR D6, D4
  19283.   ADDV D6, 8
  19284.   LOADI D2, D6
  19285.   PUSHR D2
  19286.   SETV D2, 2
  19287.   POP D3
  19288.   COMPARER D2, D3
  19289.   SETTRUE D2
  19290.   COMPAREV D2, 0
  19291.   GOTOTRUE 19325
  19292.   ALLOCATEMEMV D2, 32
  19293.   SETR D6, D4
  19294.   ADDV D6, 7
  19295.   STOREI D2, D6
  19296.   PUSHR D4
  19297.   SETV D2, 19307
  19298.   PUSHR D2
  19299.   SETR D6, D4
  19300.   ADDV D6, 7
  19301.   LOADI D2, D6
  19302.   PUSHR D2
  19303.   SETR D6, D4
  19304.   ADDV D6, 9
  19305.   LOADI D2, D6
  19306.   PUSHR D2
  19307.   GOTO 20569
  19308.   POP D4
  19309.   PUSHR D4
  19310.   SETV D2, 19320
  19311.   PUSHR D2
  19312.   SETR D6, D4
  19313.   ADDV D6, 10
  19314.   LOADI D2, D6
  19315.   PUSHR D2
  19316.   SETR D6, D4
  19317.   ADDV D6, 7
  19318.   LOADI D2, D6
  19319.   PUSHR D2
  19320.   GOTO 20986
  19321.   POP D4
  19322.   SETR D6, D4
  19323.   ADDV D6, 7
  19324.   LOADI D3, D6
  19325.   DEALLOCATEMEMR D3
  19326.   GOTO 19706
  19327.   SETV D3, 0
  19328.   SETR D6, D4
  19329.   ADDV D6, 8
  19330.   LOADI D2, D6
  19331.   PUSHR D2
  19332.   SETV D2, 7
  19333.   POP D3
  19334.   COMPARER D2, D3
  19335.   SETTRUE D2
  19336.   COMPAREV D2, 0
  19337.   GOTOTRUE 19373
  19338.   ALLOCATEMEMV D2, 32
  19339.   SETR D6, D4
  19340.   ADDV D6, 6
  19341.   STOREI D2, D6
  19342.   PUSHR D4
  19343.   SETV D2, 19355
  19344.   PUSHR D2
  19345.   SETR D6, D4
  19346.   ADDV D6, 6
  19347.   LOADI D2, D6
  19348.   PUSHR D2
  19349.   SETR D6, D4
  19350.   ADDV D6, 9
  19351.   LOADI D2, D6
  19352.   PUSHR D2
  19353.   SETV D2, 0
  19354.   PUSHR D2
  19355.   GOTO 20261
  19356.   POP D4
  19357.   PUSHR D4
  19358.   SETV D2, 19368
  19359.   PUSHR D2
  19360.   SETR D6, D4
  19361.   ADDV D6, 10
  19362.   LOADI D2, D6
  19363.   PUSHR D2
  19364.   SETR D6, D4
  19365.   ADDV D6, 6
  19366.   LOADI D2, D6
  19367.   PUSHR D2
  19368.   GOTO 20986
  19369.   POP D4
  19370.   SETR D6, D4
  19371.   ADDV D6, 6
  19372.   LOADI D3, D6
  19373.   DEALLOCATEMEMR D3
  19374.   GOTO 19705
  19375.   SETV D3, 0
  19376.   SETR D6, D4
  19377.   ADDV D6, 8
  19378.   LOADI D2, D6
  19379.   PUSHR D2
  19380.   SETV D2, 8
  19381.   POP D3
  19382.   COMPARER D2, D3
  19383.   SETTRUE D2
  19384.   COMPAREV D2, 0
  19385.   GOTOTRUE 19421
  19386.   ALLOCATEMEMV D2, 32
  19387.   SETR D6, D4
  19388.   ADDV D6, 5
  19389.   STOREI D2, D6
  19390.   PUSHR D4
  19391.   SETV D2, 19403
  19392.   PUSHR D2
  19393.   SETR D6, D4
  19394.   ADDV D6, 5
  19395.   LOADI D2, D6
  19396.   PUSHR D2
  19397.   SETR D6, D4
  19398.   ADDV D6, 9
  19399.   LOADI D2, D6
  19400.   PUSHR D2
  19401.   SETV D2, 0.0001
  19402.   PUSHR D2
  19403.   GOTO 20261
  19404.   POP D4
  19405.   PUSHR D4
  19406.   SETV D2, 19416
  19407.   PUSHR D2
  19408.   SETR D6, D4
  19409.   ADDV D6, 10
  19410.   LOADI D2, D6
  19411.   PUSHR D2
  19412.   SETR D6, D4
  19413.   ADDV D6, 5
  19414.   LOADI D2, D6
  19415.   PUSHR D2
  19416.   GOTO 20986
  19417.   POP D4
  19418.   SETR D6, D4
  19419.   ADDV D6, 5
  19420.   LOADI D3, D6
  19421.   DEALLOCATEMEMR D3
  19422.   GOTO 19704
  19423.   SETV D3, 0
  19424.   SETR D6, D4
  19425.   ADDV D6, 8
  19426.   LOADI D2, D6
  19427.   PUSHR D2
  19428.   SETV D2, 3
  19429.   POP D3
  19430.   COMPARER D2, D3
  19431.   SETTRUE D2
  19432.   COMPAREV D2, 0
  19433.   GOTOTRUE 19469
  19434.   ALLOCATEMEMV D2, 32
  19435.   SETR D6, D4
  19436.   ADDV D6, 4
  19437.   STOREI D2, D6
  19438.   PUSHR D4
  19439.   SETV D2, 19451
  19440.   PUSHR D2
  19441.   SETR D6, D4
  19442.   ADDV D6, 4
  19443.   LOADI D2, D6
  19444.   PUSHR D2
  19445.   SETR D6, D4
  19446.   ADDV D6, 9
  19447.   LOADI D2, D6
  19448.   PUSHR D2
  19449.   SETV D2, 0
  19450.   PUSHR D2
  19451.   GOTO 19811
  19452.   POP D4
  19453.   PUSHR D4
  19454.   SETV D2, 19464
  19455.   PUSHR D2
  19456.   SETR D6, D4
  19457.   ADDV D6, 10
  19458.   LOADI D2, D6
  19459.   PUSHR D2
  19460.   SETR D6, D4
  19461.   ADDV D6, 4
  19462.   LOADI D2, D6
  19463.   PUSHR D2
  19464.   GOTO 20986
  19465.   POP D4
  19466.   SETR D6, D4
  19467.   ADDV D6, 4
  19468.   LOADI D3, D6
  19469.   DEALLOCATEMEMR D3
  19470.   GOTO 19703
  19471.   SETV D3, 0
  19472.   SETR D6, D4
  19473.   ADDV D6, 8
  19474.   LOADI D2, D6
  19475.   PUSHR D2
  19476.   SETV D2, 3
  19477.   POP D3
  19478.   COMPARER D2, D3
  19479.   SETTRUE D2
  19480.   COMPAREV D2, 0
  19481.   GOTOTRUE 19517
  19482.   ALLOCATEMEMV D2, 32
  19483.   SETR D6, D4
  19484.   ADDV D6, 3
  19485.   STOREI D2, D6
  19486.   PUSHR D4
  19487.   SETV D2, 19499
  19488.   PUSHR D2
  19489.   SETR D6, D4
  19490.   ADDV D6, 3
  19491.   LOADI D2, D6
  19492.   PUSHR D2
  19493.   SETR D6, D4
  19494.   ADDV D6, 9
  19495.   LOADI D2, D6
  19496.   PUSHR D2
  19497.   SETV D2, 0
  19498.   PUSHR D2
  19499.   GOTO 19811
  19500.   POP D4
  19501.   PUSHR D4
  19502.   SETV D2, 19512
  19503.   PUSHR D2
  19504.   SETR D6, D4
  19505.   ADDV D6, 10
  19506.   LOADI D2, D6
  19507.   PUSHR D2
  19508.   SETR D6, D4
  19509.   ADDV D6, 3
  19510.   LOADI D2, D6
  19511.   PUSHR D2
  19512.   GOTO 20986
  19513.   POP D4
  19514.   SETR D6, D4
  19515.   ADDV D6, 3
  19516.   LOADI D3, D6
  19517.   DEALLOCATEMEMR D3
  19518.   GOTO 19702
  19519.   SETV D3, 0
  19520.   SETR D6, D4
  19521.   ADDV D6, 8
  19522.   LOADI D2, D6
  19523.   PUSHR D2
  19524.   SETV D2, 4
  19525.   POP D3
  19526.   COMPARER D2, D3
  19527.   SETTRUE D2
  19528.   COMPAREV D2, 0
  19529.   GOTOTRUE 19563
  19530.   ALLOCATEMEMV D2, 32
  19531.   SETR D6, D4
  19532.   ADDV D6, 2
  19533.   STOREI D2, D6
  19534.   PUSHR D4
  19535.   SETV D2, 19545
  19536.   PUSHR D2
  19537.   SETR D6, D4
  19538.   ADDV D6, 2
  19539.   LOADI D2, D6
  19540.   PUSHR D2
  19541.   SETR D6, D4
  19542.   ADDV D6, 9
  19543.   LOADI D2, D6
  19544.   PUSHR D2
  19545.   GOTO 19721
  19546.   POP D4
  19547.   PUSHR D4
  19548.   SETV D2, 19558
  19549.   PUSHR D2
  19550.   SETR D6, D4
  19551.   ADDV D6, 10
  19552.   LOADI D2, D6
  19553.   PUSHR D2
  19554.   SETR D6, D4
  19555.   ADDV D6, 2
  19556.   LOADI D2, D6
  19557.   PUSHR D2
  19558.   GOTO 20986
  19559.   POP D4
  19560.   SETR D6, D4
  19561.   ADDV D6, 2
  19562.   LOADI D3, D6
  19563.   DEALLOCATEMEMR D3
  19564.   GOTO 19701
  19565.   SETV D3, 0
  19566.   SETR D6, D4
  19567.   ADDV D6, 8
  19568.   LOADI D2, D6
  19569.   PUSHR D2
  19570.   SETV D2, 5
  19571.   POP D3
  19572.   COMPARER D2, D3
  19573.   SETTRUE D2
  19574.   COMPAREV D2, 0
  19575.   GOTOTRUE 19609
  19576.   ALLOCATEMEMV D2, 32
  19577.   SETR D6, D4
  19578.   ADDV D6, 1
  19579.   STOREI D2, D6
  19580.   PUSHR D4
  19581.   SETV D2, 19591
  19582.   PUSHR D2
  19583.   SETR D6, D4
  19584.   ADDV D6, 1
  19585.   LOADI D2, D6
  19586.   PUSHR D2
  19587.   SETR D6, D4
  19588.   ADDV D6, 9
  19589.   LOADI D2, D6
  19590.   PUSHR D2
  19591.   GOTO 20569
  19592.   POP D4
  19593.   PUSHR D4
  19594.   SETV D2, 19604
  19595.   PUSHR D2
  19596.   SETR D6, D4
  19597.   ADDV D6, 10
  19598.   LOADI D2, D6
  19599.   PUSHR D2
  19600.   SETR D6, D4
  19601.   ADDV D6, 1
  19602.   LOADI D2, D6
  19603.   PUSHR D2
  19604.   GOTO 20986
  19605.   POP D4
  19606.   SETR D6, D4
  19607.   ADDV D6, 1
  19608.   LOADI D3, D6
  19609.   DEALLOCATEMEMR D3
  19610.   GOTO 19700
  19611.   SETV D3, 0
  19612.   SETR D6, D4
  19613.   ADDV D6, 8
  19614.   LOADI D2, D6
  19615.   PUSHR D2
  19616.   SETV D2, 6
  19617.   POP D3
  19618.   COMPARER D2, D3
  19619.   SETTRUE D2
  19620.   COMPAREV D2, 0
  19621.   GOTOTRUE 19657
  19622.   ALLOCATEMEMV D2, 2
  19623.   SETR D6, D4
  19624.   ADDV D6, 0
  19625.   STOREI D2, D6
  19626.   PUSHR D4
  19627.   SETV D2, 19639
  19628.   PUSHR D2
  19629.   SETR D6, D4
  19630.   ADDV D6, 0
  19631.   LOADI D2, D6
  19632.   PUSHR D2
  19633.   SETR D6, D4
  19634.   ADDV D6, 9
  19635.   LOADI D2, D6
  19636.   PUSHR D2
  19637.   SETV D2, 0
  19638.   PUSHR D2
  19639.   GOTO 18368
  19640.   POP D4
  19641.   PUSHR D4
  19642.   SETV D2, 19652
  19643.   PUSHR D2
  19644.   SETR D6, D4
  19645.   ADDV D6, 10
  19646.   LOADI D2, D6
  19647.   PUSHR D2
  19648.   SETR D6, D4
  19649.   ADDV D6, 0
  19650.   LOADI D2, D6
  19651.   PUSHR D2
  19652.   GOTO 20986
  19653.   POP D4
  19654.   SETR D6, D4
  19655.   ADDV D6, 0
  19656.   LOADI D3, D6
  19657.   DEALLOCATEMEMR D3
  19658.   GOTO 19699
  19659.   SETV D3, 0
  19660.   SETR D6, D4
  19661.   ADDV D6, 8
  19662.   LOADI D2, D6
  19663.   PUSHR D2
  19664.   SETV D2, 1
  19665.   POP D3
  19666.   COMPARER D2, D3
  19667.   SETTRUE D2
  19668.   PUSHR D2
  19669.   SETR D6, D4
  19670.   ADDV D6, 9
  19671.   LOADI D2, D6
  19672.   PUSHR D2
  19673.   SETV D2, 0
  19674.   POP D3
  19675.   COMPARER D2, D3
  19676.   SETFALSE D2
  19677.   POP D3
  19678.   COMPAREV D2, 0
  19679.   SETFALSE D2
  19680.   COMPAREV D3, 0
  19681.   SETFALSE D3
  19682.   ADDR D2, D3
  19683.   COMPAREV D2, 0.0002
  19684.   SETMORE D2
  19685.   COMPAREV D2, 0
  19686.   GOTOTRUE 19698
  19687.   PUSHR D4
  19688.   SETV D2, 19698
  19689.   PUSHR D2
  19690.   SETR D6, D4
  19691.   ADDV D6, 10
  19692.   LOADI D2, D6
  19693.   PUSHR D2
  19694.   SETR D6, D4
  19695.   ADDV D6, 9
  19696.   LOADI D2, D6
  19697.   PUSHR D2
  19698.   GOTO 20986
  19699.   POP D4
  19700.   SETV D2, 0
  19701.   SETV D3, 0
  19702.   SETV D3, 0
  19703.   SETV D3, 0
  19704.   SETV D3, 0
  19705.   SETV D3, 0
  19706.   SETV D3, 0
  19707.   SETV D3, 0
  19708.   SETV D3, 0
  19709.   SETV D3, 0
  19710.   POP D3
  19711.   POP D3
  19712.   POP D3
  19713.   POP D3
  19714.   POP D3
  19715.   POP D3
  19716.   POP D3
  19717.   POP D3
  19718.   POP D3
  19719.   POP D3
  19720.   POP D3
  19721.   POP D3
  19722.   GOTOR D3
  19723.   SETV D2, 0
  19724.   SETR D4, SP
  19725.   PUSHR D4
  19726.   SETV D2, 19738
  19727.   PUSHR D2
  19728.   SETR D6, D4
  19729.   ADDV D6, 1
  19730.   LOADI D2, D6
  19731.   PUSHR D2
  19732.   SETV D2, 0
  19733.   PUSHR D2
  19734.   SETR D6, D4
  19735.   ADDV D6, 0
  19736.   LOADI D2, D6
  19737.   PUSHR D2
  19738.   GOTO 19744
  19739.   POP D4
  19740.   GOTO 19739
  19741.   SETV D3, 0
  19742.   POP D3
  19743.   POP D3
  19744.   POP D3
  19745.   GOTOR D3
  19746.   SETV D2, 0
  19747.   SETR D4, SP
  19748.   SETR D6, D4
  19749.   ADDV D6, 0
  19750.   LOADI D2, D6
  19751.   PUSHR D2
  19752.   PUSHR D4
  19753.   SETV D2, 19759
  19754.   PUSHR D2
  19755.   SETR D6, D4
  19756.   ADDV D6, 0
  19757.   LOADI D2, D6
  19758.   PUSHR D2
  19759.   GOTO 21477
  19760.   POP D4
  19761.   POP D3
  19762.   COMPARER D2, D3
  19763.   SETTRUE D2
  19764.   COMPAREV D2, 0
  19765.   GOTOTRUE 19783
  19766.   PUSHR D4
  19767.   SETV D2, 19781
  19768.   PUSHR D2
  19769.   SETR D6, D4
  19770.   ADDV D6, 2
  19771.   LOADI D2, D6
  19772.   PUSHR D2
  19773.   SETR D6, D4
  19774.   ADDV D6, 1
  19775.   LOADI D2, D6
  19776.   PUSHR D2
  19777.   SETR D6, D4
  19778.   ADDV D6, 0
  19779.   LOADI D2, D6
  19780.   PUSHR D2
  19781.   GOTO 20592
  19782.   POP D4
  19783.   GOTO 19805
  19784.   GOTO 19804
  19785.   SETV D3, 0
  19786.   PUSHR D4
  19787.   SETV D2, 19803
  19788.   PUSHR D2
  19789.   SETR D6, D4
  19790.   ADDV D6, 2
  19791.   LOADI D2, D6
  19792.   PUSHR D2
  19793.   SETR D6, D4
  19794.   ADDV D6, 1
  19795.   LOADI D2, D6
  19796.   PUSHR D2
  19797.   SETR D6, D4
  19798.   ADDV D6, 0
  19799.   LOADI D2, D6
  19800.   PUSHR D2
  19801.   SETV D2, 0
  19802.   PUSHR D2
  19803.   GOTO 19839
  19804.   POP D4
  19805.   GOTO 19805
  19806.   SETV D3, 0
  19807.   SETV D3, 0
  19808.   POP D3
  19809.   POP D3
  19810.   POP D3
  19811.   POP D3
  19812.   GOTOR D3
  19813.   SETV D2, 0
  19814.   SETR D4, SP
  19815.   PUSHR D4
  19816.   SETV D2, 19832
  19817.   PUSHR D2
  19818.   SETR D6, D4
  19819.   ADDV D6, 2
  19820.   LOADI D2, D6
  19821.   PUSHR D2
  19822.   SETV D2, 0
  19823.   PUSHR D2
  19824.   SETR D6, D4
  19825.   ADDV D6, 1
  19826.   LOADI D2, D6
  19827.   PUSHR D2
  19828.   SETR D6, D4
  19829.   ADDV D6, 0
  19830.   LOADI D2, D6
  19831.   PUSHR D2
  19832.   GOTO 19839
  19833.   POP D4
  19834.   GOTO 19833
  19835.   SETV D3, 0
  19836.   POP D3
  19837.   POP D3
  19838.   POP D3
  19839.   POP D3
  19840.   GOTOR D3
  19841.   SETV D2, 0
  19842.   PUSHR D2
  19843.   PUSHR D2
  19844.   PUSHR D2
  19845.   PUSHR D2
  19846.   PUSHR D2
  19847.   PUSHR D2
  19848.   SETR D4, SP
  19849.   SETR D6, D4
  19850.   ADDV D6, 8
  19851.   LOADI D2, D6
  19852.   SETR D6, D4
  19853.   ADDV D6, 5
  19854.   STOREI D2, D6
  19855.   SETV D2, 100000
  19856.   SETR D6, D4
  19857.   ADDV D6, 4
  19858.   STOREI D2, D6
  19859.   SETR D6, D4
  19860.   ADDV D6, 3
  19861.   SETV D2, 0
  19862.   STOREI D2, D6
  19863.   SETV D2, 0
  19864.   SETR D6, D4
  19865.   ADDV D6, 2
  19866.   STOREI D2, D6
  19867.   SETV D2, 0
  19868.   SETR D6, D4
  19869.   ADDV D6, 1
  19870.   STOREI D2, D6
  19871.   SETR D6, D4
  19872.   ADDV D6, 7
  19873.   LOADI D2, D6
  19874.   PUSHR D2
  19875.   SETV D2, 0
  19876.   POP D3
  19877.   COMPARER D3, D2
  19878.   SETMORE D2
  19879.   COMPAREV D2, 0
  19880.   SETTRUE D2
  19881.   COMPAREV D2, 0
  19882.   GOTOTRUE 19911
  19883.   SETV D2, 45
  19884.   SETR D6, D4
  19885.   ADDV D6, 9
  19886.   LOADI D0, D6
  19887.   SETR D5, D2
  19888.   PUSHR D0
  19889.   SETR D6, D4
  19890.   ADDV D6, 8
  19891.   LOADI D2, D6
  19892.   POP D0
  19893.   SETR D1, D2
  19894.   SETR SCRIPTRAM, D5
  19895.   SETR D6, D4
  19896.   ADDV D6, 8
  19897.   LOADI D2, D6
  19898.   PUSHR D2
  19899.   ADDV D2, 1
  19900.   SETR D6, D4
  19901.   ADDV D6, 8
  19902.   STOREI D2, D6
  19903.   POP D2
  19904.   SETR D6, D4
  19905.   ADDV D6, 7
  19906.   LOADI D2, D6
  19907.   SETV D3, 0
  19908.   SUBR D3, D2
  19909.   SETR D2, D3
  19910.   SETR D6, D4
  19911.   ADDV D6, 7
  19912.   STOREI D2, D6
  19913.   SETV D2, 0
  19914.   SETV D2, 0
  19915.   SETR D6, D4
  19916.   ADDV D6, 0
  19917.   STOREI D2, D6
  19918.   SETV D2, 0
  19919.   SETR D6, D4
  19920.   ADDV D6, 0
  19921.   LOADI D2, D6
  19922.   PUSHR D2
  19923.   SETV D2, 10
  19924.   POP D3
  19925.   COMPARER D3, D2
  19926.   SETMORE D2
  19927.   COMPAREV D2, 0
  19928.   SETTRUE D2
  19929.   COMPAREV D2, 0
  19930.   GOTOTRUE 20204
  19931.   SETR D6, D4
  19932.   ADDV D6, 7
  19933.   LOADI D2, D6
  19934.   PUSHR D2
  19935.   SETR D6, D4
  19936.   ADDV D6, 4
  19937.   LOADI D2, D6
  19938.   POP D3
  19939.   DIVR D3, D2
  19940.   SETR D2, D3
  19941.   PUSHR D2
  19942.   SETV D2, 0
  19943.   POP D3
  19944.   LSHIFTR D3, D2
  19945.   SETR D2, D3
  19946.   PUSHR D2
  19947.   SETV D2, 10
  19948.   POP D3
  19949.   MODR D3, D2
  19950.   SETR D2, D3
  19951.   SETR D6, D4
  19952.   ADDV D6, 3
  19953.   STOREI D2, D6
  19954.   SETR D6, D4
  19955.   ADDV D6, 4
  19956.   LOADI D2, D6
  19957.   PUSHR D2
  19958.   SETV D2, 1
  19959.   POP D3
  19960.   COMPARER D3, D2
  19961.   SETMORE D2
  19962.   PUSHR D2
  19963.   SETR D6, D4
  19964.   ADDV D6, 6
  19965.   LOADI D2, D6
  19966.   POP D3
  19967.   ADDR D2, D3
  19968.   COMPAREV D2, 0.0001
  19969.   SETMORE D2
  19970.   COMPAREV D2, 0
  19971.   GOTOTRUE 20023
  19972.   SETR D6, D4
  19973.   ADDV D6, 3
  19974.   LOADI D2, D6
  19975.   PUSHR D2
  19976.   SETV D2, 0
  19977.   POP D3
  19978.   COMPARER D3, D2
  19979.   SETLESS D2
  19980.   COMPAREV D2, 0
  19981.   SETTRUE D2
  19982.   PUSHR D2
  19983.   SETR D6, D4
  19984.   ADDV D6, 2
  19985.   LOADI D2, D6
  19986.   POP D3
  19987.   ADDR D2, D3
  19988.   COMPAREV D2, 0.0001
  19989.   SETMORE D2
  19990.   COMPAREV D2, 0
  19991.   GOTOTRUE 20021
  19992.   SETR D6, D4
  19993.   ADDV D6, 3
  19994.   LOADI D2, D6
  19995.   PUSHR D2
  19996.   SETV D2, 48
  19997.   POP D3
  19998.   ADDR D2, D3
  19999.   SETR D6, D4
  20000.   ADDV D6, 9
  20001.   LOADI D0, D6
  20002.   SETR D5, D2
  20003.   PUSHR D0
  20004.   SETR D6, D4
  20005.   ADDV D6, 8
  20006.   LOADI D2, D6
  20007.   POP D0
  20008.   SETR D1, D2
  20009.   SETR SCRIPTRAM, D5
  20010.   SETR D6, D4
  20011.   ADDV D6, 8
  20012.   LOADI D2, D6
  20013.   PUSHR D2
  20014.   ADDV D2, 1
  20015.   SETR D6, D4
  20016.   ADDV D6, 8
  20017.   STOREI D2, D6
  20018.   POP D2
  20019.   SETV D2, 0.0001
  20020.   SETR D6, D4
  20021.   ADDV D6, 2
  20022.   STOREI D2, D6
  20023.   SETV D2, 0
  20024.   GOTO 20119
  20025.   SETV D3, 0
  20026.   SETR D6, D4
  20027.   ADDV D6, 3
  20028.   LOADI D2, D6
  20029.   PUSHR D2
  20030.   SETV D2, 0
  20031.   POP D3
  20032.   COMPARER D2, D3
  20033.   SETTRUE D2
  20034.   COMPAREV D2, 0
  20035.   GOTOTRUE 20044
  20036.   SETR D6, D4
  20037.   ADDV D6, 1
  20038.   LOADI D2, D6
  20039.   PUSHR D2
  20040.   ADDV D2, 1
  20041.   SETR D6, D4
  20042.   ADDV D6, 1
  20043.   STOREI D2, D6
  20044.   POP D2
  20045.   GOTO 20118
  20046.   SETV D3, 0
  20047.   SETV D2, 0
  20048.   SETR D6, D4
  20049.   ADDV D6, 1
  20050.   LOADI D2, D6
  20051.   PUSHR D2
  20052.   SETV D2, 0
  20053.   POP D3
  20054.   COMPARER D3, D2
  20055.   SETLESS D2
  20056.   COMPAREV D2, 0
  20057.   SETTRUE D2
  20058.   COMPAREV D2, 0
  20059.   GOTOTRUE 20090
  20060.   SETV D2, 48
  20061.   SETR D6, D4
  20062.   ADDV D6, 9
  20063.   LOADI D0, D6
  20064.   SETR D5, D2
  20065.   PUSHR D0
  20066.   SETR D6, D4
  20067.   ADDV D6, 8
  20068.   LOADI D2, D6
  20069.   POP D0
  20070.   SETR D1, D2
  20071.   SETR SCRIPTRAM, D5
  20072.   SETR D6, D4
  20073.   ADDV D6, 8
  20074.   LOADI D2, D6
  20075.   PUSHR D2
  20076.   ADDV D2, 1
  20077.   SETR D6, D4
  20078.   ADDV D6, 8
  20079.   STOREI D2, D6
  20080.   POP D2
  20081.   SETV D3, 0
  20082.   SETR D6, D4
  20083.   ADDV D6, 1
  20084.   LOADI D2, D6
  20085.   PUSHR D2
  20086.   SUBV D2, 1
  20087.   SETR D6, D4
  20088.   ADDV D6, 1
  20089.   STOREI D2, D6
  20090.   POP D2
  20091.   GOTO 20045
  20092.   SETV D3, 0
  20093.   SETR D6, D4
  20094.   ADDV D6, 3
  20095.   LOADI D2, D6
  20096.   PUSHR D2
  20097.   SETV D2, 48
  20098.   POP D3
  20099.   ADDR D2, D3
  20100.   SETR D6, D4
  20101.   ADDV D6, 9
  20102.   LOADI D0, D6
  20103.   SETR D5, D2
  20104.   PUSHR D0
  20105.   SETR D6, D4
  20106.   ADDV D6, 8
  20107.   LOADI D2, D6
  20108.   POP D0
  20109.   SETR D1, D2
  20110.   SETR SCRIPTRAM, D5
  20111.   SETR D6, D4
  20112.   ADDV D6, 8
  20113.   LOADI D2, D6
  20114.   PUSHR D2
  20115.   ADDV D2, 1
  20116.   SETR D6, D4
  20117.   ADDV D6, 8
  20118.   STOREI D2, D6
  20119.   POP D2
  20120.   SETV D3, 0
  20121.   SETV D3, 0
  20122.   SETR D6, D4
  20123.   ADDV D6, 7
  20124.   LOADI D2, D6
  20125.   PUSHR D2
  20126.   SETR D6, D4
  20127.   ADDV D6, 4
  20128.   LOADI D2, D6
  20129.   POP D3
  20130.   MODR D3, D2
  20131.   SETR D2, D3
  20132.   SETR D6, D4
  20133.   ADDV D6, 7
  20134.   STOREI D2, D6
  20135.   SETR D6, D4
  20136.   ADDV D6, 4
  20137.   LOADI D2, D6
  20138.   PUSHR D2
  20139.   SETV D2, 10
  20140.   POP D3
  20141.   DIVR D3, D2
  20142.   SETR D2, D3
  20143.   SETR D6, D4
  20144.   ADDV D6, 4
  20145.   STOREI D2, D6
  20146.   SETR D6, D4
  20147.   ADDV D6, 4
  20148.   LOADI D2, D6
  20149.   PUSHR D2
  20150.   SETV D2, 1
  20151.   POP D3
  20152.   COMPARER D2, D3
  20153.   SETTRUE D2
  20154.   COMPAREV D2, 0
  20155.   GOTOTRUE 20159
  20156.   SETV D2, 0.0001
  20157.   SETR D6, D4
  20158.   ADDV D6, 2
  20159.   STOREI D2, D6
  20160.   GOTO 20192
  20161.   SETV D3, 0
  20162.   SETR D6, D4
  20163.   ADDV D6, 4
  20164.   LOADI D2, D6
  20165.   PUSHR D2
  20166.   SETV D2, 0.1000
  20167.   POP D3
  20168.   COMPARER D2, D3
  20169.   SETTRUE D2
  20170.   COMPAREV D2, 0
  20171.   GOTOTRUE 20191
  20172.   SETV D2, 46
  20173.   SETR D6, D4
  20174.   ADDV D6, 9
  20175.   LOADI D0, D6
  20176.   SETR D5, D2
  20177.   PUSHR D0
  20178.   SETR D6, D4
  20179.   ADDV D6, 8
  20180.   LOADI D2, D6
  20181.   POP D0
  20182.   SETR D1, D2
  20183.   SETR SCRIPTRAM, D5
  20184.   SETR D6, D4
  20185.   ADDV D6, 8
  20186.   LOADI D2, D6
  20187.   PUSHR D2
  20188.   ADDV D2, 1
  20189.   SETR D6, D4
  20190.   ADDV D6, 8
  20191.   STOREI D2, D6
  20192.   POP D2
  20193.   SETV D2, 0
  20194.   SETV D3, 0
  20195.   SETV D3, 0
  20196.   SETR D6, D4
  20197.   ADDV D6, 0
  20198.   LOADI D2, D6
  20199.   PUSHR D2
  20200.   ADDV D2, 1
  20201.   SETR D6, D4
  20202.   ADDV D6, 0
  20203.   STOREI D2, D6
  20204.   POP D2
  20205.   GOTO 19916
  20206.   SETV D3, 0
  20207.   SETR D6, D4
  20208.   ADDV D6, 1
  20209.   LOADI D2, D6
  20210.   PUSHR D2
  20211.   SETV D2, 4
  20212.   POP D3
  20213.   COMPARER D2, D3
  20214.   SETTRUE D2
  20215.   COMPAREV D2, 0
  20216.   GOTOTRUE 20236
  20217.   SETV D2, 48
  20218.   SETR D6, D4
  20219.   ADDV D6, 9
  20220.   LOADI D0, D6
  20221.   SETR D5, D2
  20222.   PUSHR D0
  20223.   SETR D6, D4
  20224.   ADDV D6, 8
  20225.   LOADI D2, D6
  20226.   POP D0
  20227.   SETR D1, D2
  20228.   SETR SCRIPTRAM, D5
  20229.   SETR D6, D4
  20230.   ADDV D6, 8
  20231.   LOADI D2, D6
  20232.   PUSHR D2
  20233.   ADDV D2, 1
  20234.   SETR D6, D4
  20235.   ADDV D6, 8
  20236.   STOREI D2, D6
  20237.   POP D2
  20238.   SETV D2, 0
  20239.   SETR D6, D4
  20240.   ADDV D6, 8
  20241.   LOADI D2, D6
  20242.   PUSHR D2
  20243.   SETR D6, D4
  20244.   ADDV D6, 5
  20245.   LOADI D2, D6
  20246.   POP D3
  20247.   SUBR D3, D2
  20248.   SETR D2, D3
  20249.   GOTO 20248
  20250.   SETV D3, 0
  20251.   POP D3
  20252.   POP D3
  20253.   POP D3
  20254.   POP D3
  20255.   POP D3
  20256.   POP D3
  20257.   POP D3
  20258.   POP D3
  20259.   POP D3
  20260.   POP D3
  20261.   POP D3
  20262.   GOTOR D3
  20263.   SETV D2, 0
  20264.   SETR D4, SP
  20265.   PUSHR D4
  20266.   SETV D2, 20282
  20267.   PUSHR D2
  20268.   SETR D6, D4
  20269.   ADDV D6, 2
  20270.   LOADI D2, D6
  20271.   PUSHR D2
  20272.   SETV D2, 0
  20273.   PUSHR D2
  20274.   SETR D6, D4
  20275.   ADDV D6, 1
  20276.   LOADI D2, D6
  20277.   PUSHR D2
  20278.   SETR D6, D4
  20279.   ADDV D6, 0
  20280.   LOADI D2, D6
  20281.   PUSHR D2
  20282.   GOTO 20289
  20283.   POP D4
  20284.   GOTO 20283
  20285.   SETV D3, 0
  20286.   POP D3
  20287.   POP D3
  20288.   POP D3
  20289.   POP D3
  20290.   GOTOR D3
  20291.   SETV D2, 0
  20292.   PUSHR D2
  20293.   PUSHR D2
  20294.   PUSHR D2
  20295.   PUSHR D2
  20296.   PUSHR D2
  20297.   SETR D4, SP
  20298.   PUSHR D4
  20299.   SETV D2, 20311
  20300.   PUSHR D2
  20301.   PUSHR D4
  20302.   SETV D2, 20308
  20303.   PUSHR D2
  20304.   SETR D6, D4
  20305.   ADDV D6, 6
  20306.   LOADI D2, D6
  20307.   PUSHR D2
  20308.   GOTO 21864
  20309.   POP D4
  20310.   PUSHR D2
  20311.   GOTO 21477
  20312.   POP D4
  20313.   SETR D6, D4
  20314.   ADDV D6, 6
  20315.   STOREI D2, D6
  20316.   SETV D2, 48
  20317.   SETR D6, D4
  20318.   ADDV D6, 8
  20319.   LOADI D0, D6
  20320.   SETR D5, D2
  20321.   PUSHR D0
  20322.   SETR D6, D4
  20323.   ADDV D6, 7
  20324.   LOADI D2, D6
  20325.   POP D0
  20326.   SETR D1, D2
  20327.   SETR SCRIPTRAM, D5
  20328.   SETV D2, 120
  20329.   SETR D6, D4
  20330.   ADDV D6, 8
  20331.   LOADI D0, D6
  20332.   SETR D5, D2
  20333.   PUSHR D0
  20334.   SETR D6, D4
  20335.   ADDV D6, 7
  20336.   LOADI D2, D6
  20337.   PUSHR D2
  20338.   SETV D2, 1
  20339.   POP D3
  20340.   ADDR D2, D3
  20341.   POP D0
  20342.   SETR D1, D2
  20343.   SETR SCRIPTRAM, D5
  20344.   SETV D2, 2
  20345.   SETR D6, D4
  20346.   ADDV D6, 4
  20347.   STOREI D2, D6
  20348.   SETR D6, D4
  20349.   ADDV D6, 6
  20350.   LOADI D2, D6
  20351.   PUSHR D2
  20352.   SETV D2, 0
  20353.   POP D3
  20354.   COMPARER D2, D3
  20355.   SETTRUE D2
  20356.   COMPAREV D2, 0
  20357.   GOTOTRUE 20374
  20358.   SETV D2, 48
  20359.   SETR D6, D4
  20360.   ADDV D6, 8
  20361.   LOADI D0, D6
  20362.   SETR D5, D2
  20363.   PUSHR D0
  20364.   SETR D6, D4
  20365.   ADDV D6, 7
  20366.   LOADI D2, D6
  20367.   PUSHR D2
  20368.   SETV D2, 2
  20369.   POP D3
  20370.   ADDR D2, D3
  20371.   POP D0
  20372.   SETR D1, D2
  20373.   SETR SCRIPTRAM, D5
  20374.   SETV D2, 3
  20375.   GOTO 20557
  20376.   SETV D2, 0
  20377.   PUSHR D4
  20378.   SETV D2, 20396
  20379.   PUSHR D2
  20380.   PUSHR D4
  20381.   SETV D2, 20389
  20382.   PUSHR D2
  20383.   SETR D6, D4
  20384.   ADDV D6, 6
  20385.   LOADI D2, D6
  20386.   PUSHR D2
  20387.   SETV D2, 16
  20388.   PUSHR D2
  20389.   GOTO 21447
  20390.   POP D4
  20391.   PUSHR D2
  20392.   SETV D2, 1
  20393.   POP D3
  20394.   ADDR D2, D3
  20395.   PUSHR D2
  20396.   GOTO 21477
  20397.   POP D4
  20398.   SETR D6, D4
  20399.   ADDV D6, 3
  20400.   STOREI D2, D6
  20401.   PUSHR D4
  20402.   SETV D2, 20412
  20403.   PUSHR D2
  20404.   SETR D6, D4
  20405.   ADDV D6, 5
  20406.   LOADI D2, D6
  20407.   PUSHR D2
  20408.   SETV D2, 55
  20409.   PUSHR D2
  20410.   SETV D2, 87
  20411.   PUSHR D2
  20412.   GOTO 21423
  20413.   POP D4
  20414.   SETR D6, D4
  20415.   ADDV D6, 2
  20416.   STOREI D2, D6
  20417.   SETV D2, 0
  20418.   SETR D6, D4
  20419.   ADDV D6, 1
  20420.   STOREI D2, D6
  20421.   SETV D2, 0
  20422.   SETR D6, D4
  20423.   ADDV D6, 1
  20424.   LOADI D2, D6
  20425.   PUSHR D2
  20426.   SETR D6, D4
  20427.   ADDV D6, 3
  20428.   LOADI D2, D6
  20429.   POP D3
  20430.   COMPARER D3, D2
  20431.   SETMORE D2
  20432.   COMPAREV D2, 0
  20433.   SETTRUE D2
  20434.   COMPAREV D2, 0
  20435.   GOTOTRUE 20546
  20436.   PUSHR D4
  20437.   SETV D2, 20470
  20438.   PUSHR D2
  20439.   SETR D6, D4
  20440.   ADDV D6, 6
  20441.   LOADI D2, D6
  20442.   PUSHR D2
  20443.   PUSHR D4
  20444.   SETV D2, 20464
  20445.   PUSHR D2
  20446.   SETV D2, 16
  20447.   PUSHR D2
  20448.   SETR D6, D4
  20449.   ADDV D6, 3
  20450.   LOADI D2, D6
  20451.   PUSHR D2
  20452.   SETR D6, D4
  20453.   ADDV D6, 1
  20454.   LOADI D2, D6
  20455.   POP D3
  20456.   SUBR D3, D2
  20457.   SETR D2, D3
  20458.   PUSHR D2
  20459.   SETV D2, 1
  20460.   POP D3
  20461.   SUBR D3, D2
  20462.   SETR D2, D3
  20463.   PUSHR D2
  20464.   GOTO 21859
  20465.   POP D4
  20466.   POP D3
  20467.   DIVR D3, D2
  20468.   SETR D2, D3
  20469.   PUSHR D2
  20470.   GOTO 21477
  20471.   POP D4
  20472.   PUSHR D2
  20473.   SETV D2, 16
  20474.   POP D3
  20475.   MODR D3, D2
  20476.   SETR D2, D3
  20477.   SETR D6, D4
  20478.   ADDV D6, 0
  20479.   STOREI D2, D6
  20480.   PUSHR D4
  20481.   SETV D2, 20512
  20482.   PUSHR D2
  20483.   SETR D6, D4
  20484.   ADDV D6, 0
  20485.   LOADI D2, D6
  20486.   PUSHR D2
  20487.   SETV D2, 10
  20488.   POP D3
  20489.   COMPARER D3, D2
  20490.   SETMORE D2
  20491.   COMPAREV D2, 0
  20492.   SETTRUE D2
  20493.   PUSHR D2
  20494.   SETR D6, D4
  20495.   ADDV D6, 0
  20496.   LOADI D2, D6
  20497.   PUSHR D2
  20498.   SETV D2, 48
  20499.   POP D3
  20500.   ADDR D2, D3
  20501.   PUSHR D2
  20502.   SETR D6, D4
  20503.   ADDV D6, 0
  20504.   LOADI D2, D6
  20505.   PUSHR D2
  20506.   SETR D6, D4
  20507.   ADDV D6, 2
  20508.   LOADI D2, D6
  20509.   POP D3
  20510.   ADDR D2, D3
  20511.   PUSHR D2
  20512.   GOTO 21423
  20513.   POP D4
  20514.   SETR D6, D4
  20515.   ADDV D6, 8
  20516.   LOADI D0, D6
  20517.   SETR D5, D2
  20518.   PUSHR D0
  20519.   SETR D6, D4
  20520.   ADDV D6, 7
  20521.   LOADI D2, D6
  20522.   PUSHR D2
  20523.   SETR D6, D4
  20524.   ADDV D6, 4
  20525.   LOADI D2, D6
  20526.   POP D3
  20527.   ADDR D2, D3
  20528.   PUSHR D2
  20529.   SETR D6, D4
  20530.   ADDV D6, 1
  20531.   LOADI D2, D6
  20532.   POP D3
  20533.   ADDR D2, D3
  20534.   POP D0
  20535.   SETR D1, D2
  20536.   SETR SCRIPTRAM, D5
  20537.   SETV D3, 0
  20538.   SETR D6, D4
  20539.   ADDV D6, 1
  20540.   LOADI D2, D6
  20541.   PUSHR D2
  20542.   ADDV D2, 1
  20543.   SETR D6, D4
  20544.   ADDV D6, 1
  20545.   STOREI D2, D6
  20546.   POP D2
  20547.   GOTO 20419
  20548.   SETV D3, 0
  20549.   SETR D6, D4
  20550.   ADDV D6, 4
  20551.   LOADI D2, D6
  20552.   PUSHR D2
  20553.   SETR D6, D4
  20554.   ADDV D6, 3
  20555.   LOADI D2, D6
  20556.   POP D3
  20557.   ADDR D2, D3
  20558.   GOTO 20557
  20559.   SETV D3, 0
  20560.   POP D3
  20561.   POP D3
  20562.   POP D3
  20563.   POP D3
  20564.   POP D3
  20565.   POP D3
  20566.   POP D3
  20567.   POP D3
  20568.   POP D3
  20569.   POP D3
  20570.   GOTOR D3
  20571.   SETV D2, 0
  20572.   SETR D4, SP
  20573.   PUSHR D4
  20574.   SETV D2, 20586
  20575.   PUSHR D2
  20576.   SETR D6, D4
  20577.   ADDV D6, 1
  20578.   LOADI D2, D6
  20579.   PUSHR D2
  20580.   SETV D2, 0
  20581.   PUSHR D2
  20582.   SETR D6, D4
  20583.   ADDV D6, 0
  20584.   LOADI D2, D6
  20585.   PUSHR D2
  20586.   GOTO 20592
  20587.   POP D4
  20588.   GOTO 20587
  20589.   SETV D3, 0
  20590.   POP D3
  20591.   POP D3
  20592.   POP D3
  20593.   GOTOR D3
  20594.   SETV D2, 0
  20595.   PUSHR D2
  20596.   PUSHR D2
  20597.   PUSHR D2
  20598.   SETR D4, SP
  20599.   SETV D2, 0
  20600.   SETR D6, D4
  20601.   ADDV D6, 2
  20602.   STOREI D2, D6
  20603.   SETR D6, D4
  20604.   ADDV D6, 3
  20605.   LOADI D2, D6
  20606.   PUSHR D2
  20607.   SETV D2, 0
  20608.   POP D3
  20609.   COMPARER D3, D2
  20610.   SETMORE D2
  20611.   COMPAREV D2, 0
  20612.   SETTRUE D2
  20613.   COMPAREV D2, 0
  20614.   GOTOTRUE 20644
  20615.   SETV D2, 45
  20616.   SETR D6, D4
  20617.   ADDV D6, 5
  20618.   LOADI D0, D6
  20619.   SETR D5, D2
  20620.   PUSHR D0
  20621.   SETR D6, D4
  20622.   ADDV D6, 4
  20623.   LOADI D2, D6
  20624.   POP D0
  20625.   SETR D1, D2
  20626.   SETR SCRIPTRAM, D5
  20627.   SETR D6, D4
  20628.   ADDV D6, 2
  20629.   LOADI D2, D6
  20630.   PUSHR D2
  20631.   ADDV D2, 1
  20632.   SETR D6, D4
  20633.   ADDV D6, 2
  20634.   STOREI D2, D6
  20635.   POP D2
  20636.   SETR D6, D4
  20637.   ADDV D6, 3
  20638.   LOADI D2, D6
  20639.   SETV D3, 0
  20640.   SUBR D3, D2
  20641.   SETR D2, D3
  20642.   SETR D6, D4
  20643.   ADDV D6, 3
  20644.   STOREI D2, D6
  20645.   GOTO 20670
  20646.   SETV D3, 0
  20647.   SETR D6, D4
  20648.   ADDV D6, 3
  20649.   LOADI D2, D6
  20650.   PUSHR D2
  20651.   SETV D2, 0
  20652.   POP D3
  20653.   COMPARER D2, D3
  20654.   SETTRUE D2
  20655.   COMPAREV D2, 0
  20656.   GOTOTRUE 20669
  20657.   SETV D2, 48
  20658.   SETR D6, D4
  20659.   ADDV D6, 5
  20660.   LOADI D0, D6
  20661.   SETR D5, D2
  20662.   PUSHR D0
  20663.   SETR D6, D4
  20664.   ADDV D6, 4
  20665.   LOADI D2, D6
  20666.   POP D0
  20667.   SETR D1, D2
  20668.   SETR SCRIPTRAM, D5
  20669.   SETV D2, 1
  20670.   GOTO 20802
  20671.   SETV D2, 0
  20672.   SETV D3, 0
  20673.   PUSHR D4
  20674.   SETV D2, 20690
  20675.   PUSHR D2
  20676.   PUSHR D4
  20677.   SETV D2, 20683
  20678.   PUSHR D2
  20679.   SETR D6, D4
  20680.   ADDV D6, 3
  20681.   LOADI D2, D6
  20682.   PUSHR D2
  20683.   GOTO 21868
  20684.   POP D4
  20685.   PUSHR D2
  20686.   SETV D2, 1
  20687.   POP D3
  20688.   ADDR D2, D3
  20689.   PUSHR D2
  20690.   GOTO 21477
  20691.   POP D4
  20692.   SETR D6, D4
  20693.   ADDV D6, 1
  20694.   STOREI D2, D6
  20695.   SETV D2, 0
  20696.   SETR D6, D4
  20697.   ADDV D6, 0
  20698.   STOREI D2, D6
  20699.   SETV D2, 0
  20700.   SETR D6, D4
  20701.   ADDV D6, 0
  20702.   LOADI D2, D6
  20703.   PUSHR D2
  20704.   SETR D6, D4
  20705.   ADDV D6, 1
  20706.   LOADI D2, D6
  20707.   POP D3
  20708.   COMPARER D3, D2
  20709.   SETMORE D2
  20710.   COMPAREV D2, 0
  20711.   SETTRUE D2
  20712.   COMPAREV D2, 0
  20713.   GOTOTRUE 20791
  20714.   PUSHR D4
  20715.   SETV D2, 20748
  20716.   PUSHR D2
  20717.   SETR D6, D4
  20718.   ADDV D6, 3
  20719.   LOADI D2, D6
  20720.   PUSHR D2
  20721.   PUSHR D4
  20722.   SETV D2, 20742
  20723.   PUSHR D2
  20724.   SETV D2, 10
  20725.   PUSHR D2
  20726.   SETR D6, D4
  20727.   ADDV D6, 1
  20728.   LOADI D2, D6
  20729.   PUSHR D2
  20730.   SETR D6, D4
  20731.   ADDV D6, 0
  20732.   LOADI D2, D6
  20733.   POP D3
  20734.   SUBR D3, D2
  20735.   SETR D2, D3
  20736.   PUSHR D2
  20737.   SETV D2, 1
  20738.   POP D3
  20739.   SUBR D3, D2
  20740.   SETR D2, D3
  20741.   PUSHR D2
  20742.   GOTO 21859
  20743.   POP D4
  20744.   POP D3
  20745.   DIVR D3, D2
  20746.   SETR D2, D3
  20747.   PUSHR D2
  20748.   GOTO 21477
  20749.   POP D4
  20750.   PUSHR D2
  20751.   SETV D2, 10
  20752.   POP D3
  20753.   MODR D3, D2
  20754.   SETR D2, D3
  20755.   PUSHR D2
  20756.   SETV D2, 48
  20757.   POP D3
  20758.   ADDR D2, D3
  20759.   SETR D6, D4
  20760.   ADDV D6, 5
  20761.   LOADI D0, D6
  20762.   SETR D5, D2
  20763.   PUSHR D0
  20764.   SETR D6, D4
  20765.   ADDV D6, 4
  20766.   LOADI D2, D6
  20767.   PUSHR D2
  20768.   SETR D6, D4
  20769.   ADDV D6, 2
  20770.   LOADI D2, D6
  20771.   POP D3
  20772.   ADDR D2, D3
  20773.   PUSHR D2
  20774.   SETR D6, D4
  20775.   ADDV D6, 0
  20776.   LOADI D2, D6
  20777.   POP D3
  20778.   ADDR D2, D3
  20779.   POP D0
  20780.   SETR D1, D2
  20781.   SETR SCRIPTRAM, D5
  20782.   SETV D3, 0
  20783.   SETR D6, D4
  20784.   ADDV D6, 0
  20785.   LOADI D2, D6
  20786.   PUSHR D2
  20787.   ADDV D2, 1
  20788.   SETR D6, D4
  20789.   ADDV D6, 0
  20790.   STOREI D2, D6
  20791.   POP D2
  20792.   GOTO 20697
  20793.   SETV D3, 0
  20794.   SETR D6, D4
  20795.   ADDV D6, 2
  20796.   LOADI D2, D6
  20797.   PUSHR D2
  20798.   SETR D6, D4
  20799.   ADDV D6, 1
  20800.   LOADI D2, D6
  20801.   POP D3
  20802.   ADDR D2, D3
  20803.   GOTO 20802
  20804.   SETV D3, 0
  20805.   POP D3
  20806.   POP D3
  20807.   POP D3
  20808.   POP D3
  20809.   POP D3
  20810.   POP D3
  20811.   POP D3
  20812.   GOTOR D3
  20813.   SETV D2, 0
  20814.   SETR D4, SP
  20815.   PUSHR D4
  20816.   SETV D2, 20824
  20817.   PUSHR D2
  20818.   SETR D6, D4
  20819.   ADDV D6, 0
  20820.   LOADI D2, D6
  20821.   PUSHR D2
  20822.   SETV D2, 0
  20823.   PUSHR D2
  20824.   GOTO 20829
  20825.   POP D4
  20826.   GOTO 20825
  20827.   SETV D3, 0
  20828.   POP D3
  20829.   POP D3
  20830.   GOTOR D3
  20831.   SETV D2, 0
  20832.   PUSHR D2
  20833.   PUSHR D2
  20834.   PUSHR D2
  20835.   SETR D4, SP
  20836.   SETV D2, 0
  20837.   SETR D6, D4
  20838.   ADDV D6, 2
  20839.   STOREI D2, D6
  20840.   SETV D2, 0
  20841.   SETR D6, D4
  20842.   ADDV D6, 1
  20843.   STOREI D2, D6
  20844.   SETR D6, D4
  20845.   ADDV D6, 4
  20846.   LOADI D2, D6
  20847.   PUSHR D2
  20848.   SETR D6, D4
  20849.   ADDV D6, 3
  20850.   LOADI D2, D6
  20851.   PUSHR D2
  20852.   SETR D6, D4
  20853.   ADDV D6, 2
  20854.   LOADI D2, D6
  20855.   POP D3
  20856.   ADDR D2, D3
  20857.   POP D0
  20858.   SETR D1, D2
  20859.   SETR D2, SCRIPTRAM
  20860.   PUSHR D2
  20861.   SETV D2, 45
  20862.   POP D3
  20863.   COMPARER D2, D3
  20864.   SETTRUE D2
  20865.   COMPAREV D2, 0
  20866.   GOTOTRUE 20878
  20867.   SETR D6, D4
  20868.   ADDV D6, 2
  20869.   LOADI D2, D6
  20870.   PUSHR D2
  20871.   ADDV D2, 1
  20872.   SETR D6, D4
  20873.   ADDV D6, 2
  20874.   STOREI D2, D6
  20875.   POP D2
  20876.   SETV D2, 0.0001
  20877.   SETR D6, D4
  20878.   ADDV D6, 1
  20879.   STOREI D2, D6
  20880.   SETV D2, 0
  20881.   SETR D6, D4
  20882.   ADDV D6, 0
  20883.   SETV D2, 0
  20884.   STOREI D2, D6
  20885.   SETV D2, 0
  20886.   SETR D6, D4
  20887.   ADDV D6, 0
  20888.   STOREI D2, D6
  20889.   SETV D2, 0
  20890.   PUSHR D4
  20891.   SETV D2, 20910
  20892.   PUSHR D2
  20893.   SETR D6, D4
  20894.   ADDV D6, 4
  20895.   LOADI D2, D6
  20896.   PUSHR D2
  20897.   SETR D6, D4
  20898.   ADDV D6, 3
  20899.   LOADI D2, D6
  20900.   PUSHR D2
  20901.   SETR D6, D4
  20902.   ADDV D6, 2
  20903.   LOADI D2, D6
  20904.   POP D3
  20905.   ADDR D2, D3
  20906.   POP D0
  20907.   SETR D1, D2
  20908.   SETR D2, SCRIPTRAM
  20909.   PUSHR D2
  20910.   GOTO 21391
  20911.   POP D4
  20912.   COMPAREV D2, 0
  20913.   GOTOTRUE 20957
  20914.   SETR D6, D4
  20915.   ADDV D6, 0
  20916.   LOADI D2, D6
  20917.   PUSHR D2
  20918.   SETV D2, 10
  20919.   POP D3
  20920.   MULTR D2, D3
  20921.   PUSHR D2
  20922.   SETR D6, D4
  20923.   ADDV D6, 4
  20924.   LOADI D2, D6
  20925.   PUSHR D2
  20926.   SETR D6, D4
  20927.   ADDV D6, 3
  20928.   LOADI D2, D6
  20929.   PUSHR D2
  20930.   SETR D6, D4
  20931.   ADDV D6, 2
  20932.   LOADI D2, D6
  20933.   POP D3
  20934.   ADDR D2, D3
  20935.   POP D0
  20936.   SETR D1, D2
  20937.   SETR D2, SCRIPTRAM
  20938.   PUSHR D2
  20939.   SETV D2, 48
  20940.   POP D3
  20941.   SUBR D3, D2
  20942.   SETR D2, D3
  20943.   POP D3
  20944.   ADDR D2, D3
  20945.   SETR D6, D4
  20946.   ADDV D6, 0
  20947.   STOREI D2, D6
  20948.   SETV D3, 0
  20949.   SETR D6, D4
  20950.   ADDV D6, 2
  20951.   LOADI D2, D6
  20952.   PUSHR D2
  20953.   ADDV D2, 1
  20954.   SETR D6, D4
  20955.   ADDV D6, 2
  20956.   STOREI D2, D6
  20957.   POP D2
  20958.   GOTO 20887
  20959.   SETV D3, 0
  20960.   SETR D6, D4
  20961.   ADDV D6, 0
  20962.   LOADI D2, D6
  20963.   PUSHR D2
  20964.   PUSHR D4
  20965.   SETV D2, 20975
  20966.   PUSHR D2
  20967.   SETR D6, D4
  20968.   ADDV D6, 1
  20969.   LOADI D2, D6
  20970.   PUSHR D2
  20971.   SETV D2, -1
  20972.   PUSHR D2
  20973.   SETV D2, 1
  20974.   PUSHR D2
  20975.   GOTO 21423
  20976.   POP D4
  20977.   POP D3
  20978.   MULTR D2, D3
  20979.   GOTO 20978
  20980.   SETV D3, 0
  20981.   POP D3
  20982.   POP D3
  20983.   POP D3
  20984.   POP D3
  20985.   POP D3
  20986.   POP D3
  20987.   GOTOR D3
  20988.   SETV D2, 0
  20989.   SETR D4, SP
  20990.   PUSHR D4
  20991.   SETV D2, 21003
  20992.   PUSHR D2
  20993.   SETR D6, D4
  20994.   ADDV D6, 1
  20995.   LOADI D2, D6
  20996.   PUSHR D2
  20997.   SETR D6, D4
  20998.   ADDV D6, 0
  20999.   LOADI D2, D6
  21000.   PUSHR D2
  21001.   SETV D2, 0
  21002.   PUSHR D2
  21003.   GOTO 21008
  21004.   POP D4
  21005.   SETV D3, 0
  21006.   POP D3
  21007.   POP D3
  21008.   POP D3
  21009.   GOTOR D3
  21010.   SETV D2, 0
  21011.   PUSHR D2
  21012.   PUSHR D2
  21013.   SETR D4, SP
  21014.   SETR D6, D4
  21015.   ADDV D6, 1
  21016.   SETV D2, 0
  21017.   STOREI D2, D6
  21018.   PUSHR D4
  21019.   SETV D2, 21025
  21020.   PUSHR D2
  21021.   SETR D6, D4
  21022.   ADDV D6, 4
  21023.   LOADI D2, D6
  21024.   PUSHR D2
  21025.   GOTO 21127
  21026.   POP D4
  21027.   SETR D6, D4
  21028.   ADDV D6, 0
  21029.   STOREI D2, D6
  21030.   SETV D2, 0
  21031.   SETR D6, D4
  21032.   ADDV D6, 1
  21033.   STOREI D2, D6
  21034.   SETV D2, 0
  21035.   SETR D6, D4
  21036.   ADDV D6, 3
  21037.   LOADI D2, D6
  21038.   PUSHR D2
  21039.   SETR D6, D4
  21040.   ADDV D6, 2
  21041.   LOADI D2, D6
  21042.   PUSHR D2
  21043.   SETR D6, D4
  21044.   ADDV D6, 1
  21045.   LOADI D2, D6
  21046.   POP D3
  21047.   ADDR D2, D3
  21048.   POP D0
  21049.   SETR D1, D2
  21050.   SETR D2, SCRIPTRAM
  21051.   PUSHR D2
  21052.   SETV D2, 0
  21053.   POP D3
  21054.   COMPARER D2, D3
  21055.   SETFALSE D2
  21056.   COMPAREV D2, 0
  21057.   GOTOTRUE 21100
  21058.   SETR D6, D4
  21059.   ADDV D6, 3
  21060.   LOADI D2, D6
  21061.   PUSHR D2
  21062.   SETR D6, D4
  21063.   ADDV D6, 2
  21064.   LOADI D2, D6
  21065.   PUSHR D2
  21066.   SETR D6, D4
  21067.   ADDV D6, 1
  21068.   LOADI D2, D6
  21069.   POP D3
  21070.   ADDR D2, D3
  21071.   POP D0
  21072.   SETR D1, D2
  21073.   SETR D2, SCRIPTRAM
  21074.   SETR D6, D4
  21075.   ADDV D6, 4
  21076.   LOADI D0, D6
  21077.   SETR D5, D2
  21078.   PUSHR D0
  21079.   SETR D6, D4
  21080.   ADDV D6, 0
  21081.   LOADI D2, D6
  21082.   PUSHR D2
  21083.   SETR D6, D4
  21084.   ADDV D6, 1
  21085.   LOADI D2, D6
  21086.   POP D3
  21087.   ADDR D2, D3
  21088.   POP D0
  21089.   SETR D1, D2
  21090.   SETR SCRIPTRAM, D5
  21091.   SETV D3, 0
  21092.   SETR D6, D4
  21093.   ADDV D6, 1
  21094.   LOADI D2, D6
  21095.   PUSHR D2
  21096.   ADDV D2, 1
  21097.   SETR D6, D4
  21098.   ADDV D6, 1
  21099.   STOREI D2, D6
  21100.   POP D2
  21101.   GOTO 21032
  21102.   SETV D3, 0
  21103.   SETV D2, 0
  21104.   SETR D6, D4
  21105.   ADDV D6, 4
  21106.   LOADI D0, D6
  21107.   SETR D5, D2
  21108.   PUSHR D0
  21109.   SETR D6, D4
  21110.   ADDV D6, 0
  21111.   LOADI D2, D6
  21112.   PUSHR D2
  21113.   SETR D6, D4
  21114.   ADDV D6, 1
  21115.   LOADI D2, D6
  21116.   POP D3
  21117.   ADDR D2, D3
  21118.   POP D0
  21119.   SETR D1, D2
  21120.   SETR SCRIPTRAM, D5
  21121.   SETV D3, 0
  21122.   POP D3
  21123.   POP D3
  21124.   POP D3
  21125.   POP D3
  21126.   POP D3
  21127.   POP D3
  21128.   GOTOR D3
  21129.   SETV D2, 0
  21130.   PUSHR D2
  21131.   SETR D4, SP
  21132.   SETR D6, D4
  21133.   ADDV D6, 0
  21134.   SETV D2, 0
  21135.   STOREI D2, D6
  21136.   SETV D2, 0
  21137.   SETR D6, D4
  21138.   ADDV D6, 0
  21139.   STOREI D2, D6
  21140.   SETV D2, 0
  21141.   SETR D6, D4
  21142.   ADDV D6, 1
  21143.   LOADI D2, D6
  21144.   PUSHR D2
  21145.   SETR D6, D4
  21146.   ADDV D6, 0
  21147.   LOADI D2, D6
  21148.   POP D0
  21149.   SETR D1, D2
  21150.   SETR D2, SCRIPTRAM
  21151.   PUSHR D2
  21152.   SETV D2, 0
  21153.   POP D3
  21154.   COMPARER D2, D3
  21155.   SETFALSE D2
  21156.   COMPAREV D2, 0
  21157.   GOTOTRUE 21167
  21158.   SETV D3, 0
  21159.   SETR D6, D4
  21160.   ADDV D6, 0
  21161.   LOADI D2, D6
  21162.   PUSHR D2
  21163.   ADDV D2, 1
  21164.   SETR D6, D4
  21165.   ADDV D6, 0
  21166.   STOREI D2, D6
  21167.   POP D2
  21168.   GOTO 21138
  21169.   SETV D3, 0
  21170.   SETR D6, D4
  21171.   ADDV D6, 0
  21172.   LOADI D2, D6
  21173.   GOTO 21172
  21174.   SETV D3, 0
  21175.   POP D3
  21176.   POP D3
  21177.   POP D3
  21178.   GOTOR D3
  21179.   SETV D2, 0
  21180.   SETR D4, SP
  21181.   SETR D6, D4
  21182.   ADDV D6, 15
  21183.   LOADI D2, D6
  21184.   SETR D6, D4
  21185.   ADDV D6, 16
  21186.   LOADI D0, D6
  21187.   SETR D5, D2
  21188.   PUSHR D0
  21189.   SETV D2, 0
  21190.   POP D0
  21191.   SETR D1, D2
  21192.   SETR SCRIPTRAM, D5
  21193.   SETR D6, D4
  21194.   ADDV D6, 14
  21195.   LOADI D2, D6
  21196.   SETR D6, D4
  21197.   ADDV D6, 16
  21198.   LOADI D0, D6
  21199.   SETR D5, D2
  21200.   PUSHR D0
  21201.   SETV D2, 1
  21202.   POP D0
  21203.   SETR D1, D2
  21204.   SETR SCRIPTRAM, D5
  21205.   SETR D6, D4
  21206.   ADDV D6, 13
  21207.   LOADI D2, D6
  21208.   SETR D6, D4
  21209.   ADDV D6, 16
  21210.   LOADI D0, D6
  21211.   SETR D5, D2
  21212.   PUSHR D0
  21213.   SETV D2, 2
  21214.   POP D0
  21215.   SETR D1, D2
  21216.   SETR SCRIPTRAM, D5
  21217.   SETR D6, D4
  21218.   ADDV D6, 12
  21219.   LOADI D2, D6
  21220.   SETR D6, D4
  21221.   ADDV D6, 16
  21222.   LOADI D0, D6
  21223.   SETR D5, D2
  21224.   PUSHR D0
  21225.   SETV D2, 3
  21226.   POP D0
  21227.   SETR D1, D2
  21228.   SETR SCRIPTRAM, D5
  21229.   SETR D6, D4
  21230.   ADDV D6, 11
  21231.   LOADI D2, D6
  21232.   SETR D6, D4
  21233.   ADDV D6, 16
  21234.   LOADI D0, D6
  21235.   SETR D5, D2
  21236.   PUSHR D0
  21237.   SETV D2, 4
  21238.   POP D0
  21239.   SETR D1, D2
  21240.   SETR SCRIPTRAM, D5
  21241.   SETR D6, D4
  21242.   ADDV D6, 10
  21243.   LOADI D2, D6
  21244.   SETR D6, D4
  21245.   ADDV D6, 16
  21246.   LOADI D0, D6
  21247.   SETR D5, D2
  21248.   PUSHR D0
  21249.   SETV D2, 5
  21250.   POP D0
  21251.   SETR D1, D2
  21252.   SETR SCRIPTRAM, D5
  21253.   SETR D6, D4
  21254.   ADDV D6, 9
  21255.   LOADI D2, D6
  21256.   SETR D6, D4
  21257.   ADDV D6, 16
  21258.   LOADI D0, D6
  21259.   SETR D5, D2
  21260.   PUSHR D0
  21261.   SETV D2, 6
  21262.   POP D0
  21263.   SETR D1, D2
  21264.   SETR SCRIPTRAM, D5
  21265.   SETR D6, D4
  21266.   ADDV D6, 8
  21267.   LOADI D2, D6
  21268.   SETR D6, D4
  21269.   ADDV D6, 16
  21270.   LOADI D0, D6
  21271.   SETR D5, D2
  21272.   PUSHR D0
  21273.   SETV D2, 7
  21274.   POP D0
  21275.   SETR D1, D2
  21276.   SETR SCRIPTRAM, D5
  21277.   SETR D6, D4
  21278.   ADDV D6, 7
  21279.   LOADI D2, D6
  21280.   SETR D6, D4
  21281.   ADDV D6, 16
  21282.   LOADI D0, D6
  21283.   SETR D5, D2
  21284.   PUSHR D0
  21285.   SETV D2, 8
  21286.   POP D0
  21287.   SETR D1, D2
  21288.   SETR SCRIPTRAM, D5
  21289.   SETR D6, D4
  21290.   ADDV D6, 6
  21291.   LOADI D2, D6
  21292.   SETR D6, D4
  21293.   ADDV D6, 16
  21294.   LOADI D0, D6
  21295.   SETR D5, D2
  21296.   PUSHR D0
  21297.   SETV D2, 9
  21298.   POP D0
  21299.   SETR D1, D2
  21300.   SETR SCRIPTRAM, D5
  21301.   SETR D6, D4
  21302.   ADDV D6, 5
  21303.   LOADI D2, D6
  21304.   SETR D6, D4
  21305.   ADDV D6, 16
  21306.   LOADI D0, D6
  21307.   SETR D5, D2
  21308.   PUSHR D0
  21309.   SETV D2, 10
  21310.   POP D0
  21311.   SETR D1, D2
  21312.   SETR SCRIPTRAM, D5
  21313.   SETR D6, D4
  21314.   ADDV D6, 4
  21315.   LOADI D2, D6
  21316.   SETR D6, D4
  21317.   ADDV D6, 16
  21318.   LOADI D0, D6
  21319.   SETR D5, D2
  21320.   PUSHR D0
  21321.   SETV D2, 11
  21322.   POP D0
  21323.   SETR D1, D2
  21324.   SETR SCRIPTRAM, D5
  21325.   SETR D6, D4
  21326.   ADDV D6, 3
  21327.   LOADI D2, D6
  21328.   SETR D6, D4
  21329.   ADDV D6, 16
  21330.   LOADI D0, D6
  21331.   SETR D5, D2
  21332.   PUSHR D0
  21333.   SETV D2, 12
  21334.   POP D0
  21335.   SETR D1, D2
  21336.   SETR SCRIPTRAM, D5
  21337.   SETR D6, D4
  21338.   ADDV D6, 2
  21339.   LOADI D2, D6
  21340.   SETR D6, D4
  21341.   ADDV D6, 16
  21342.   LOADI D0, D6
  21343.   SETR D5, D2
  21344.   PUSHR D0
  21345.   SETV D2, 13
  21346.   POP D0
  21347.   SETR D1, D2
  21348.   SETR SCRIPTRAM, D5
  21349.   SETR D6, D4
  21350.   ADDV D6, 1
  21351.   LOADI D2, D6
  21352.   SETR D6, D4
  21353.   ADDV D6, 16
  21354.   LOADI D0, D6
  21355.   SETR D5, D2
  21356.   PUSHR D0
  21357.   SETV D2, 14
  21358.   POP D0
  21359.   SETR D1, D2
  21360.   SETR SCRIPTRAM, D5
  21361.   SETR D6, D4
  21362.   ADDV D6, 0
  21363.   LOADI D2, D6
  21364.   SETR D6, D4
  21365.   ADDV D6, 16
  21366.   LOADI D0, D6
  21367.   SETR D5, D2
  21368.   PUSHR D0
  21369.   SETV D2, 15
  21370.   POP D0
  21371.   SETR D1, D2
  21372.   SETR SCRIPTRAM, D5
  21373.   SETV D3, 0
  21374.   POP D3
  21375.   POP D3
  21376.   POP D3
  21377.   POP D3
  21378.   POP D3
  21379.   POP D3
  21380.   POP D3
  21381.   POP D3
  21382.   POP D3
  21383.   POP D3
  21384.   POP D3
  21385.   POP D3
  21386.   POP D3
  21387.   POP D3
  21388.   POP D3
  21389.   POP D3
  21390.   POP D3
  21391.   POP D3
  21392.   GOTOR D3
  21393.   SETV D2, 0
  21394.   SETR D4, SP
  21395.   SETR D6, D4
  21396.   ADDV D6, 0
  21397.   LOADI D2, D6
  21398.   PUSHR D2
  21399.   SETV D2, 48
  21400.   POP D3
  21401.   COMPARER D3, D2
  21402.   SETMORE D2
  21403.   PUSHR D2
  21404.   SETR D6, D4
  21405.   ADDV D6, 0
  21406.   LOADI D2, D6
  21407.   PUSHR D2
  21408.   SETV D2, 57
  21409.   POP D3
  21410.   COMPARER D3, D2
  21411.   SETLESS D2
  21412.   POP D3
  21413.   COMPAREV D2, 0
  21414.   SETFALSE D2
  21415.   COMPAREV D3, 0
  21416.   SETFALSE D3
  21417.   ADDR D2, D3
  21418.   COMPAREV D2, 0.0002
  21419.   SETMORE D2
  21420.   GOTO 21419
  21421.   SETV D3, 0
  21422.   POP D3
  21423.   POP D3
  21424.   GOTOR D3
  21425.   SETV D2, 0
  21426.   SETR D4, SP
  21427.   SETR D6, D4
  21428.   ADDV D6, 2
  21429.   LOADI D2, D6
  21430.   COMPAREV D2, 0
  21431.   GOTOTRUE 21435
  21432.   SETR D6, D4
  21433.   ADDV D6, 1
  21434.   LOADI D2, D6
  21435.   GOTO 21441
  21436.   GOTO 21440
  21437.   SETV D3, 0
  21438.   SETR D6, D4
  21439.   ADDV D6, 0
  21440.   LOADI D2, D6
  21441.   GOTO 21441
  21442.   SETV D3, 0
  21443.   SETV D3, 0
  21444.   POP D3
  21445.   POP D3
  21446.   POP D3
  21447.   POP D3
  21448.   GOTOR D3
  21449.   SETV D2, 0
  21450.   SETR D4, SP
  21451.   PUSHR D4
  21452.   SETV D2, 21458
  21453.   PUSHR D2
  21454.   SETR D6, D4
  21455.   ADDV D6, 1
  21456.   LOADI D2, D6
  21457.   PUSHR D2
  21458.   GOTO 21872
  21459.   POP D4
  21460.   PUSHR D2
  21461.   PUSHR D4
  21462.   SETV D2, 21468
  21463.   PUSHR D2
  21464.   SETR D6, D4
  21465.   ADDV D6, 0
  21466.   LOADI D2, D6
  21467.   PUSHR D2
  21468.   GOTO 21872
  21469.   POP D4
  21470.   POP D3
  21471.   DIVR D3, D2
  21472.   SETR D2, D3
  21473.   GOTO 21472
  21474.   SETV D3, 0
  21475.   POP D3
  21476.   POP D3
  21477.   POP D3
  21478.   GOTOR D3
  21479.   SETV D2, 0
  21480.   SETR D4, SP
  21481.   SETR D6, D4
  21482.   ADDV D6, 0
  21483.   LOADI D2, D6
  21484.   PUSHR D2
  21485.   SETV D2, 0
  21486.   POP D3
  21487.   COMPARER D3, D2
  21488.   SETMORE D2
  21489.   COMPAREV D2, 0
  21490.   SETTRUE D2
  21491.   COMPAREV D2, 0
  21492.   GOTOTRUE 21505
  21493.   SETR D6, D4
  21494.   ADDV D6, 0
  21495.   LOADI D2, D6
  21496.   PUSHR D2
  21497.   SETV D2, 0.9999
  21498.   POP D3
  21499.   SUBR D3, D2
  21500.   SETR D2, D3
  21501.   PUSHR D2
  21502.   SETV D2, 0
  21503.   POP D3
  21504.   LSHIFTR D3, D2
  21505.   SETR D2, D3
  21506.   GOTO 21515
  21507.   SETV D2, 0
  21508.   SETR D6, D4
  21509.   ADDV D6, 0
  21510.   LOADI D2, D6
  21511.   PUSHR D2
  21512.   SETV D2, 0
  21513.   POP D3
  21514.   LSHIFTR D3, D2
  21515.   SETR D2, D3
  21516.   GOTO 21515
  21517.   SETV D3, 0
  21518.   POP D3
  21519.   POP D3
  21520.   GOTOR D3
  21521.   SETV D2, 0
  21522.   SETR D4, SP
  21523.   PUSHR D4
  21524.   SETV D2, 21528
  21525.   PUSHR D2
  21526.   SETV D2, 32767
  21527.   PUSHR D2
  21528.   GOTO 21809
  21529.   POP D4
  21530.   PUSHR D2
  21531.   SETV D2, 32767
  21532.   POP D3
  21533.   DIVR D3, D2
  21534.   SETR D2, D3
  21535.   PUSHR D2
  21536.   SETR D6, D4
  21537.   ADDV D6, 0
  21538.   LOADI D2, D6
  21539.   POP D3
  21540.   MULTR D2, D3
  21541.   GOTO 21540
  21542.   SETV D3, 0
  21543.   POP D3
  21544.   POP D3
  21545.   GOTOR D3
  21546.   SETV D2, 0
  21547.   SETR D4, SP
  21548.   SETR D6, D4
  21549.   ADDV D6, 0
  21550.   LOADI D2, D6
  21551.   PUSHR D2
  21552.   SETV D2, 57.2958
  21553.   POP D3
  21554.   MULTR D2, D3
  21555.   GOTO 21554
  21556.   SETV D3, 0
  21557.   POP D3
  21558.   POP D3
  21559.   GOTOR D3
  21560.   SETV D2, 0
  21561.   SETR D4, SP
  21562.   SETR D6, D4
  21563.   ADDV D6, 0
  21564.   LOADI D2, D6
  21565.   PUSHR D2
  21566.   SETV D2, 0
  21567.   POP D3
  21568.   COMPARER D3, D2
  21569.   SETLESS D2
  21570.   COMPAREV D2, 0
  21571.   SETTRUE D2
  21572.   COMPAREV D2, 0
  21573.   GOTOTRUE 21575
  21574.   SETV D2, 1
  21575.   GOTO 21596
  21576.   GOTO 21595
  21577.   SETV D3, 0
  21578.   SETR D6, D4
  21579.   ADDV D6, 0
  21580.   LOADI D2, D6
  21581.   PUSHR D2
  21582.   SETV D2, 0
  21583.   POP D3
  21584.   COMPARER D3, D2
  21585.   SETMORE D2
  21586.   COMPAREV D2, 0
  21587.   SETTRUE D2
  21588.   COMPAREV D2, 0
  21589.   GOTOTRUE 21591
  21590.   SETV D2, -1
  21591.   GOTO 21596
  21592.   GOTO 21594
  21593.   SETV D3, 0
  21594.   SETV D2, 0
  21595.   GOTO 21596
  21596.   SETV D3, 0
  21597.   SETV D3, 0
  21598.   SETV D3, 0
  21599.   POP D3
  21600.   POP D3
  21601.   GOTOR D3
  21602.   SETV D2, 0
  21603.   SETR D4, SP
  21604.   PUSHR D4
  21605.   SETV D2, 21611
  21606.   PUSHR D2
  21607.   SETR D6, D4
  21608.   ADDV D6, 0
  21609.   LOADI D2, D6
  21610.   PUSHR D2
  21611.   GOTO 22208
  21612.   POP D4
  21613.   PUSHR D2
  21614.   SETV D2, 8
  21615.   PUSHR D2
  21616.   PUSHR D4
  21617.   SETV D2, 21623
  21618.   PUSHR D2
  21619.   SETR D6, D4
  21620.   ADDV D6, 0
  21621.   LOADI D2, D6
  21622.   PUSHR D2
  21623.   GOTO 22355
  21624.   POP D4
  21625.   POP D3
  21626.   MULTR D2, D3
  21627.   POP D3
  21628.   ADDR D2, D3
  21629.   GOTO 21628
  21630.   SETV D3, 0
  21631.   POP D3
  21632.   POP D3
  21633.   GOTOR D3
  21634.   SETV D2, 0
  21635.   SETR D4, SP
  21636.   PUSHR D4
  21637.   SETV D2, 21643
  21638.   PUSHR D2
  21639.   SETR D6, D4
  21640.   ADDV D6, 0
  21641.   LOADI D2, D6
  21642.   PUSHR D2
  21643.   GOTO 22219
  21644.   POP D4
  21645.   PUSHR D2
  21646.   SETV D2, 8
  21647.   PUSHR D2
  21648.   PUSHR D4
  21649.   SETV D2, 21655
  21650.   PUSHR D2
  21651.   SETR D6, D4
  21652.   ADDV D6, 0
  21653.   LOADI D2, D6
  21654.   PUSHR D2
  21655.   GOTO 22366
  21656.   POP D4
  21657.   POP D3
  21658.   MULTR D2, D3
  21659.   POP D3
  21660.   ADDR D2, D3
  21661.   GOTO 21660
  21662.   SETV D3, 0
  21663.   POP D3
  21664.   POP D3
  21665.   GOTOR D3
  21666.   SETV D2, 0
  21667.   PUSHR D2
  21668.   PUSHR D2
  21669.   SETR D4, SP
  21670.   SETR D6, D4
  21671.   ADDV D6, 5
  21672.   LOADI D2, D6
  21673.   PUSHR D2
  21674.   SETR D6, D4
  21675.   ADDV D6, 3
  21676.   LOADI D2, D6
  21677.   POP D3
  21678.   SUBR D3, D2
  21679.   SETR D2, D3
  21680.   SETR D6, D4
  21681.   ADDV D6, 1
  21682.   STOREI D2, D6
  21683.   SETR D6, D4
  21684.   ADDV D6, 4
  21685.   LOADI D2, D6
  21686.   PUSHR D2
  21687.   SETR D6, D4
  21688.   ADDV D6, 2
  21689.   LOADI D2, D6
  21690.   POP D3
  21691.   SUBR D3, D2
  21692.   SETR D2, D3
  21693.   SETR D6, D4
  21694.   ADDV D6, 0
  21695.   STOREI D2, D6
  21696.   PUSHR D4
  21697.   SETV D2, 21721
  21698.   PUSHR D2
  21699.   SETR D6, D4
  21700.   ADDV D6, 1
  21701.   LOADI D2, D6
  21702.   PUSHR D2
  21703.   SETR D6, D4
  21704.   ADDV D6, 1
  21705.   LOADI D2, D6
  21706.   POP D3
  21707.   MULTR D2, D3
  21708.   PUSHR D2
  21709.   SETR D6, D4
  21710.   ADDV D6, 0
  21711.   LOADI D2, D6
  21712.   PUSHR D2
  21713.   SETR D6, D4
  21714.   ADDV D6, 0
  21715.   LOADI D2, D6
  21716.   POP D3
  21717.   MULTR D2, D3
  21718.   POP D3
  21719.   ADDR D2, D3
  21720.   PUSHR D2
  21721.   GOTO 21876
  21722.   POP D4
  21723.   GOTO 21722
  21724.   SETV D3, 0
  21725.   POP D3
  21726.   POP D3
  21727.   POP D3
  21728.   POP D3
  21729.   POP D3
  21730.   POP D3
  21731.   POP D3
  21732.   GOTOR D3
  21733.   SETV D2, 0
  21734.   SETR D4, SP
  21735.   PUSHR D4
  21736.   SETV D2, 21760
  21737.   PUSHR D2
  21738.   SETR D6, D4
  21739.   ADDV D6, 1
  21740.   LOADI D2, D6
  21741.   PUSHR D2
  21742.   SETR D6, D4
  21743.   ADDV D6, 3
  21744.   LOADI D2, D6
  21745.   POP D3
  21746.   SUBR D3, D2
  21747.   SETR D2, D3
  21748.   PUSHR D2
  21749.   SETR D6, D4
  21750.   ADDV D6, 0
  21751.   LOADI D2, D6
  21752.   PUSHR D2
  21753.   SETR D6, D4
  21754.   ADDV D6, 2
  21755.   LOADI D2, D6
  21756.   POP D3
  21757.   SUBR D3, D2
  21758.   SETR D2, D3
  21759.   PUSHR D2
  21760.   GOTO 21844
  21761.   POP D4
  21762.   PUSHR D2
  21763.   SETV D2, 57.2958
  21764.   POP D3
  21765.   MULTR D2, D3
  21766.   GOTO 21765
  21767.   SETV D3, 0
  21768.   POP D3
  21769.   POP D3
  21770.   POP D3
  21771.   POP D3
  21772.   POP D3
  21773.   GOTOR D3
  21774.   SETV D2, 0
  21775.   SETR D4, SP
  21776.   PUSHR D4
  21777.   SETV D2, 21801
  21778.   PUSHR D2
  21779.   SETR D6, D4
  21780.   ADDV D6, 1
  21781.   LOADI D2, D6
  21782.   PUSHR D2
  21783.   SETR D6, D4
  21784.   ADDV D6, 3
  21785.   LOADI D2, D6
  21786.   POP D3
  21787.   SUBR D3, D2
  21788.   SETR D2, D3
  21789.   PUSHR D2
  21790.   SETR D6, D4
  21791.   ADDV D6, 0
  21792.   LOADI D2, D6
  21793.   PUSHR D2
  21794.   SETR D6, D4
  21795.   ADDV D6, 2
  21796.   LOADI D2, D6
  21797.   POP D3
  21798.   SUBR D3, D2
  21799.   SETR D2, D3
  21800.   PUSHR D2
  21801.   GOTO 21844
  21802.   POP D4
  21803.   GOTO 21802
  21804.   SETV D3, 0
  21805.   POP D3
  21806.   POP D3
  21807.   POP D3
  21808.   POP D3
  21809.   POP D3
  21810.   GOTOR D3
  21811.   POP D3
  21812.   RNDR D2, D3
  21813.   POP D3
  21814.   GOTOR D3
  21815.   WAITFRAME
  21816.   POP D3
  21817.   GOTOR D3
  21818.   WAITDRAW
  21819.   POP D3
  21820.   GOTOR D3
  21821.   POP D0
  21822.   TRACE6
  21823.   POP D3
  21824.   GOTOR D3
  21825.   TRACE3
  21826.   POP D3
  21827.   GOTOR D3
  21828.   POP D3
  21829.   SINR D2, D3
  21830.   POP D3
  21831.   GOTOR D3
  21832.   POP D3
  21833.   MULTV D3, 57.2958
  21834.   SINR D2, D3
  21835.   POP D3
  21836.   GOTOR D3
  21837.   POP D3
  21838.   COSR D2, D3
  21839.   POP D3
  21840.   GOTOR D3
  21841.   POP D3
  21842.   MULTV D3, 57.2958
  21843.   COSR D2, D3
  21844.   POP D3
  21845.   GOTOR D3
  21846.   POP D1
  21847.   POP D0
  21848.   ARCTANR D2
  21849.   POP D3
  21850.   GOTOR D3
  21851.   POP D3
  21852.   POP D2
  21853.   MAXR D2, D3
  21854.   POP D3
  21855.   GOTOR D3
  21856.   POP D3
  21857.   POP D2
  21858.   MINR D2, D3
  21859.   POP D3
  21860.   GOTOR D3
  21861.   POP D3
  21862.   POP D2
  21863.   POWERR D2, D3
  21864.   POP D3
  21865.   GOTOR D3
  21866.   POP D2
  21867.   ABS D2
  21868.   POP D3
  21869.   GOTOR D3
  21870.   POP D2
  21871.   LOG10 D2
  21872.   POP D3
  21873.   GOTOR D3
  21874.   POP D2
  21875.   LOGE D2
  21876.   POP D3
  21877.   GOTOR D3
  21878.   POP D2
  21879.   SQROOTR D2, D2
  21880.   POP D3
  21881.   GOTOR D3
  21882.   POP D3
  21883.   SETR REFFFC, D3
  21884.   SETR D2, DATA
  21885.   POP D3
  21886.   GOTOR D3
  21887.   POP D2
  21888.   POP D3
  21889.   SETR REFFFC, D3
  21890.   SETR DATA, D2
  21891.   POP D3
  21892.   GOTOR D3
  21893.   POP D3
  21894.   SETR REFFFC, D3
  21895.   SETR D2, FFSCRIPT
  21896.   POP D3
  21897.   GOTOR D3
  21898.   POP D2
  21899.   POP D3
  21900.   SETR REFFFC, D3
  21901.   SETR FFSCRIPT, D2
  21902.   POP D3
  21903.   GOTOR D3
  21904.   POP D2
  21905.   POP D3
  21906.   SETR REFFFC, D3
  21907.   SETR CSET, D2
  21908.   POP D3
  21909.   GOTOR D3
  21910.   POP D2
  21911.   POP D3
  21912.   SETR REFFFC, D3
  21913.   SETR X, D2
  21914.   POP D3
  21915.   GOTOR D3
  21916.   POP D2
  21917.   POP D3
  21918.   SETR REFFFC, D3
  21919.   SETR Y, D2
  21920.   POP D3
  21921.   GOTOR D3
  21922.   POP D2
  21923.   POP D3
  21924.   SETR REFFFC, D3
  21925.   SETR XD, D2
  21926.   POP D3
  21927.   GOTOR D3
  21928.   POP D2
  21929.   POP D3
  21930.   SETR REFFFC, D3
  21931.   SETR YD, D2
  21932.   POP D3
  21933.   GOTOR D3
  21934.   POP D2
  21935.   POP D3
  21936.   SETR REFFFC, D3
  21937.   SETR XD2, D2
  21938.   POP D3
  21939.   GOTOR D3
  21940.   POP D2
  21941.   POP D3
  21942.   SETR REFFFC, D3
  21943.   SETR YD2, D2
  21944.   POP D3
  21945.   GOTOR D3
  21946.   POP D0
  21947.   POP D3
  21948.   SETR REFFFC, D3
  21949.   SETR D2, FFFLAGSD
  21950.   POP D3
  21951.   GOTOR D3
  21952.   POP D2
  21953.   POP D3
  21954.   SETR REFFFC, D3
  21955.   SETR FFTWIDTH, D2
  21956.   POP D3
  21957.   GOTOR D3
  21958.   POP D2
  21959.   POP D3
  21960.   SETR REFFFC, D3
  21961.   SETR FFTHEIGHT, D2
  21962.   POP D3
  21963.   GOTOR D3
  21964.   POP D0
  21965.   POP D2
  21966.   POP D3
  21967.   SETR REFFFC, D3
  21968.   SETR FFINITDD, D2
  21969.   POP D3
  21970.   GOTOR D3
  21971.   POP D3
  21972.   SETR REFITEMCLASS, D3
  21973.   SETR D2, IDATAFAMILY
  21974.   POP D3
  21975.   GOTOR D3
  21976.   POP D3
  21977.   SETR REFITEMCLASS, D3
  21978.   SETR D2, IDATALEVEL
  21979.   POP D3
  21980.   GOTOR D3
  21981.   POP D3
  21982.   SETR D5, D3
  21983.   SETR D2, LINKX
  21984.   POP D3
  21985.   GOTOR D3
  21986.   POP D3
  21987.   SETR D5, D3
  21988.   SETR D2, LINKY
  21989.   POP D3
  21990.   GOTOR D3
  21991.   POP D3
  21992.   SETR D5, D3
  21993.   SETR D2, LINKHP
  21994.   POP D3
  21995.   GOTOR D3
  21996.   POP D3
  21997.   SETR D5, D3
  21998.   SETR D2, LINKACTION
  21999.   POP D3
  22000.   GOTOR D3
  22001.   POP D0
  22002.   POP D3
  22003.   SETR D5, D3
  22004.   SETR D2, LINKITEMD
  22005.   POP D3
  22006.   GOTOR D3
  22007.   POP D2
  22008.   POP D5
  22009.   SUBV D2, 1
  22010.   POP D3
  22011.   GOTOR D3
  22012.   POP D3
  22013.   SETR D5, D3
  22014.   SETR D2, NPCCOUNT
  22015.   POP D3
  22016.   GOTOR D3
  22017.   POP D2
  22018.   POP D5
  22019.   SUBV D2, 1
  22020.   LOADNPCR D2
  22021.   SETR D2, REFNPC
  22022.   POP D3
  22023.   GOTOR D3
  22024.   POP D2
  22025.   POP D5
  22026.   CREATENPCR D2
  22027.   SETR D2, REFNPC
  22028.   POP D3
  22029.   GOTOR D3
  22030.   DRAWTILE
  22031.   POP D3
  22032.   POP D3
  22033.   POP D3
  22034.   POP D3
  22035.   POP D3
  22036.   POP D3
  22037.   POP D3
  22038.   POP D3
  22039.   POP D3
  22040.   POP D3
  22041.   POP D3
  22042.   POP D3
  22043.   POP D3
  22044.   POP D3
  22045.   POP D3
  22046.   POP D5
  22047.   POP D3
  22048.   GOTOR D3
  22049.   DRAWCOMBO
  22050.   POP D3
  22051.   POP D3
  22052.   POP D3
  22053.   POP D3
  22054.   POP D3
  22055.   POP D3
  22056.   POP D3
  22057.   POP D3
  22058.   POP D3
  22059.   POP D3
  22060.   POP D3
  22061.   POP D3
  22062.   POP D3
  22063.   POP D3
  22064.   POP D3
  22065.   POP D3
  22066.   POP D5
  22067.   POP D3
  22068.   GOTOR D3
  22069.   POP D3
  22070.   SETR D5, D3
  22071.   SETR D2, EWPNCOUNT
  22072.   POP D3
  22073.   GOTOR D3
  22074.   POP D2
  22075.   POP D5
  22076.   SUBV D2, 1
  22077.   LOADEWEAPONR D2
  22078.   SETR D2, REFEWPN
  22079.   POP D3
  22080.   GOTOR D3
  22081.   POP D2
  22082.   POP D5
  22083.   CREATEEWEAPONR D2
  22084.   SETR D2, REFEWPN
  22085.   POP D3
  22086.   GOTOR D3
  22087.   POP D0
  22088.   POP D3
  22089.   SETR D5, D3
  22090.   SETR D2, SCREENFLAGSD
  22091.   POP D3
  22092.   GOTOR D3
  22093.   POP D0
  22094.   POP D3
  22095.   SETR D5, D3
  22096.   SETR D2, SCREENEFLAGSD
  22097.   POP D3
  22098.   GOTOR D3
  22099.   POP D3
  22100.   SETR D5, D3
  22101.   SETR D2, CURDSCR
  22102.   POP D3
  22103.   GOTOR D3
  22104.   POP D3
  22105.   SETR D5, D3
  22106.   SETR D2, CURDMAP
  22107.   POP D3
  22108.   GOTOR D3
  22109.   POP D2
  22110.   POP D5
  22111.   LOADITEMDATAR D2
  22112.   SETR D2, REFITEMCLASS
  22113.   POP D3
  22114.   GOTOR D3
  22115.   POP D2
  22116.   POP D5
  22117.   PLAYSOUNDR D2
  22118.   POP D3
  22119.   GOTOR D3
  22120.   POP D2
  22121.   POP D5
  22122.   GETFFCSCRIPT D2
  22123.   POP D3
  22124.   GOTOR D3
  22125.   POP D3
  22126.   SETR REFNPC, D3
  22127.   SETR D2, NPCX
  22128.   POP D3
  22129.   GOTOR D3
  22130.   POP D2
  22131.   POP D3
  22132.   SETR REFNPC, D3
  22133.   SETR NPCX, D2
  22134.   POP D3
  22135.   GOTOR D3
  22136.   POP D3
  22137.   SETR REFNPC, D3
  22138.   SETR D2, NPCY
  22139.   POP D3
  22140.   GOTOR D3
  22141.   POP D2
  22142.   POP D3
  22143.   SETR REFNPC, D3
  22144.   SETR NPCY, D2
  22145.   POP D3
  22146.   GOTOR D3
  22147.   POP D3
  22148.   SETR REFNPC, D3
  22149.   SETR D2, NPCZ
  22150.   POP D3
  22151.   GOTOR D3
  22152.   POP D2
  22153.   POP D3
  22154.   SETR REFNPC, D3
  22155.   SETR NPCHP, D2
  22156.   POP D3
  22157.   GOTOR D3
  22158.   POP D3
  22159.   SETR REFNPC, D3
  22160.   SETR D2, NPCID
  22161.   POP D3
  22162.   GOTOR D3
  22163.   POP D2
  22164.   POP D3
  22165.   SETR REFNPC, D3
  22166.   SETR NPCITEMSET, D2
  22167.   POP D3
  22168.   GOTOR D3
  22169.   POP D3
  22170.   SETR REFNPC, D3
  22171.   SETR D2, NPCCSET
  22172.   POP D3
  22173.   GOTOR D3
  22174.   POP D2
  22175.   POP D3
  22176.   SETR REFNPC, D3
  22177.   SETR NPCEXTEND, D2
  22178.   POP D3
  22179.   GOTOR D3
  22180.   POP D2
  22181.   POP D3
  22182.   SETR REFNPC, D3
  22183.   SETR NPCXOFS, D2
  22184.   POP D3
  22185.   GOTOR D3
  22186.   POP D0
  22187.   POP D3
  22188.   SETR REFNPC, D3
  22189.   SETR D2, NPCMISCD
  22190.   POP D3
  22191.   GOTOR D3
  22192.   POP D0
  22193.   POP D2
  22194.   POP D3
  22195.   SETR REFNPC, D3
  22196.   SETR NPCMISCD, D2
  22197.   POP D3
  22198.   GOTOR D3
  22199.   POP D0
  22200.   POP D3
  22201.   SETR REFNPC, D3
  22202.   SETR D2, NPCDD
  22203.   POP D3
  22204.   GOTOR D3
  22205.   POP D2
  22206.   POP D5
  22207.   NPCNAME D2
  22208.   POP D3
  22209.   GOTOR D3
  22210.   POP D3
  22211.   SETR REFEWPN, D3
  22212.   SETR D2, EWPNX
  22213.   POP D3
  22214.   GOTOR D3
  22215.   POP D2
  22216.   POP D3
  22217.   SETR REFEWPN, D3
  22218.   SETR EWPNX, D2
  22219.   POP D3
  22220.   GOTOR D3
  22221.   POP D3
  22222.   SETR REFEWPN, D3
  22223.   SETR D2, EWPNY
  22224.   POP D3
  22225.   GOTOR D3
  22226.   POP D2
  22227.   POP D3
  22228.   SETR REFEWPN, D3
  22229.   SETR EWPNY, D2
  22230.   POP D3
  22231.   GOTOR D3
  22232.   POP D3
  22233.   SETR REFEWPN, D3
  22234.   SETR D2, EWPNZ
  22235.   POP D3
  22236.   GOTOR D3
  22237.   POP D2
  22238.   POP D3
  22239.   SETR REFEWPN, D3
  22240.   SETR EWPNZ, D2
  22241.   POP D3
  22242.   GOTOR D3
  22243.   POP D2
  22244.   POP D3
  22245.   SETR REFEWPN, D3
  22246.   SETR EWPNJUMP, D2
  22247.   POP D3
  22248.   GOTOR D3
  22249.   POP D3
  22250.   SETR REFEWPN, D3
  22251.   SETR D2, EWPNDIR
  22252.   POP D3
  22253.   GOTOR D3
  22254.   POP D2
  22255.   POP D3
  22256.   SETR REFEWPN, D3
  22257.   SETR EWPNDIR, D2
  22258.   POP D3
  22259.   GOTOR D3
  22260.   POP D3
  22261.   SETR REFEWPN, D3
  22262.   SETR D2, EWPNANGLE
  22263.   POP D3
  22264.   GOTOR D3
  22265.   POP D2
  22266.   POP D3
  22267.   SETR REFEWPN, D3
  22268.   SETR EWPNANGLE, D2
  22269.   POP D3
  22270.   GOTOR D3
  22271.   POP D3
  22272.   SETR REFEWPN, D3
  22273.   SETR D2, EWPNSTEP
  22274.   POP D3
  22275.   GOTOR D3
  22276.   POP D2
  22277.   POP D3
  22278.   SETR REFEWPN, D3
  22279.   SETR EWPNSTEP, D2
  22280.   POP D3
  22281.   GOTOR D3
  22282.   POP D3
  22283.   SETR REFEWPN, D3
  22284.   SETR D2, EWPNPOWER
  22285.   POP D3
  22286.   GOTOR D3
  22287.   POP D2
  22288.   POP D3
  22289.   SETR REFEWPN, D3
  22290.   SETR EWPNPOWER, D2
  22291.   POP D3
  22292.   GOTOR D3
  22293.   POP D3
  22294.   SETR REFEWPN, D3
  22295.   SETR D2, EWPNID
  22296.   POP D3
  22297.   GOTOR D3
  22298.   POP D3
  22299.   SETR REFEWPN, D3
  22300.   SETR D2, EWPNANGULAR
  22301.   POP D3
  22302.   GOTOR D3
  22303.   POP D2
  22304.   COMPAREV D2, 0
  22305.   GOTOTRUE 22305
  22306.   SETV D2, 1
  22307.   POP D3
  22308.   SETR REFEWPN, D3
  22309.   SETR EWPNANGULAR, D2
  22310.   POP D3
  22311.   GOTOR D3
  22312.   POP D3
  22313.   SETR REFEWPN, D3
  22314.   SETR D2, EWPNTILE
  22315.   POP D3
  22316.   GOTOR D3
  22317.   POP D2
  22318.   POP D3
  22319.   SETR REFEWPN, D3
  22320.   SETR EWPNDEAD, D2
  22321.   POP D3
  22322.   GOTOR D3
  22323.   POP D3
  22324.   SETR REFEWPN, D3
  22325.   SETR D2, EWPNCSET
  22326.   POP D3
  22327.   GOTOR D3
  22328.   POP D2
  22329.   POP D3
  22330.   SETR REFEWPN, D3
  22331.   SETR EWPNFLIP, D2
  22332.   POP D3
  22333.   GOTOR D3
  22334.   POP D3
  22335.   SETR REFEWPN, D3
  22336.   SETR D2, EWPNEXTEND
  22337.   POP D3
  22338.   GOTOR D3
  22339.   POP D2
  22340.   POP D3
  22341.   SETR REFEWPN, D3
  22342.   SETR EWPNEXTEND, D2
  22343.   POP D3
  22344.   GOTOR D3
  22345.   POP D2
  22346.   POP D3
  22347.   SETR REFEWPN, D3
  22348.   SETR EWPNHXSZ, D2
  22349.   POP D3
  22350.   GOTOR D3
  22351.   POP D2
  22352.   POP D3
  22353.   SETR REFEWPN, D3
  22354.   SETR EWPNHYSZ, D2
  22355.   POP D3
  22356.   GOTOR D3
  22357.   POP D3
  22358.   SETR REFEWPN, D3
  22359.   SETR D2, EWPNTXSZ
  22360.   POP D3
  22361.   GOTOR D3
  22362.   POP D2
  22363.   POP D3
  22364.   SETR REFEWPN, D3
  22365.   SETR EWPNTXSZ, D2
  22366.   POP D3
  22367.   GOTOR D3
  22368.   POP D3
  22369.   SETR REFEWPN, D3
  22370.   SETR D2, EWPNTYSZ
  22371.   POP D3
  22372.   GOTOR D3
  22373.   POP D2
  22374.   POP D3
  22375.   SETR REFEWPN, D3
  22376.   SETR EWPNTYSZ, D2
  22377.   POP D3
  22378.   GOTOR D3
  22379.   POP D3
  22380.   SETR REFEWPN, D3
  22381.   SETR D2, EWPNXOFS
  22382.   POP D3
  22383.   GOTOR D3
  22384.   POP D2
  22385.   POP D3
  22386.   SETR REFEWPN, D3
  22387.   SETR EWPNXOFS, D2
  22388.   POP D3
  22389.   GOTOR D3
  22390.   POP D3
  22391.   SETR REFEWPN, D3
  22392.   SETR D2, EWPNYOFS
  22393.   POP D3
  22394.   GOTOR D3
  22395.   POP D2
  22396.   POP D3
  22397.   SETR REFEWPN, D3
  22398.   SETR EWPNYOFS, D2
  22399.   POP D3
  22400.   GOTOR D3
  22401.   POP D3
  22402.   SETR REFEWPN, D3
  22403.   SETR D2, EWPNZOFS
  22404.   POP D3
  22405.   GOTOR D3
  22406.   POP D2
  22407.   POP D3
  22408.   SETR REFEWPN, D3
  22409.   SETR EWPNZOFS, D2
  22410.   POP D3
  22411.   GOTOR D3
  22412.   POP D2
  22413.   POP D3
  22414.   SETR REFEWPN, D3
  22415.   SETR EWPNHYOFS, D2
  22416.   POP D3
  22417.   GOTOR D3
  22418.   POP D2
  22419.   POP D3
  22420.   SETR REFEWPN, D3
  22421.   EWPNUSESPRITER D2
  22422.   POP D3
  22423.   GOTOR D3
  22424.   POP D0
  22425.   POP D3
  22426.   SETR REFEWPN, D3
  22427.   SETR D2, EWPNMISCD
  22428.   POP D3
  22429.   GOTOR D3
  22430.   POP D0
  22431.   POP D2
  22432.   POP D3
  22433.   SETR REFEWPN, D3
  22434.   SETR EWPNMISCD, D2
  22435.   POP D3
  22436.   GOTOR D3
  22437.   POP D2
  22438.   COMPAREV D2, 0
  22439.   GOTOTRUE 22439
  22440.   SETV D2, 1
  22441.   POP D3
  22442.   SETR REFEWPN, D3
  22443.   SETR EWPNCOLLDET, D2
  22444.   POP D3
  22445.   GOTOR D3
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!