home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 251-275 / apd272 / line2 / line2.amosSourceCode < prev    next >
AMOS Source Code  |  1992-05-20  |  19KB  |  711 lines
  1. Screen Open 0,320,250,32,Lowres
  2. Flash Off 
  3. Curs Off 
  4. Hide On 
  5. Cls 0
  6. Close Editor 
  7. Unpack 8 To 1
  8. Double Buffer 
  9. Screen Hide 1
  10. Unpack 6 To 2
  11. Screen Hide 2
  12. Music 1
  13. Mvolume 0
  14. MAIN_LOOP
  15. Procedure MAIN_LOOP
  16.    Dim XP(1),YP(1),XINC(1),YINC(1),XBL(5),YBL(5),XBL2(5),YBL2(5),XBL3(5),YBL3(5)
  17.    _PLAYER0=True
  18.    _PLAYER1=True
  19.    _PLAYER2=True
  20.    _PLAYER3=True
  21.    DEAD_MAX=3
  22.    DEAD_DEFAULT=4
  23.    Do 
  24.       Screen To Front 1
  25.       Screen Show 1
  26.       Screen 0
  27.       Set Rainbow 0,0,31,"(2,1,8)(2,-1,8)","",""
  28.       LEVEL=1
  29.       Screen 1
  30.       If DEAD_DEFAULT=4
  31.          Bob 1,105,125,3
  32.          Bob 2,150,147,4
  33.          Bob 3,105,169,5
  34.          Bob 4,60,147,10
  35.          _PLAYER0=True
  36.          _PLAYER1=True
  37.          _PLAYER2=True
  38.          _PLAYER3=True
  39.       End If 
  40.       If DEAD_DEFAULT=3
  41.          Bob 1,105,125,3
  42.          Bob 2,150,147,4
  43.          Bob 3,105,169,9
  44.          Bob 4,60,147,6
  45.          _PLAYER0=True
  46.          _PLAYER1=True
  47.          _PLAYER2=True
  48.          _PLAYER3=False
  49.       End If 
  50.       If DEAD_DEFAULT=2
  51.          Bob 1,105,125,3
  52.          Bob 2,150,147,8
  53.          Bob 3,105,169,5
  54.          Bob 4,60,147,6
  55.          _PLAYER0=True
  56.          _PLAYER1=True
  57.          _PLAYER2=False
  58.          _PLAYER3=False
  59.       End If 
  60.       If DEAD_DEFAULT=1
  61.          Bob 1,105,125,7
  62.          Bob 2,150,147,4
  63.          Bob 3,105,169,5
  64.          Bob 4,60,147,6
  65.          _PLAYER0=True
  66.          _PLAYER1=False
  67.          _PLAYER2=False
  68.          _PLAYER3=False
  69.       End If 
  70.       Bob 5,105,147,11
  71.       Bob 6,210,147,12
  72.       Bob 7,160,100,1
  73.       Hide On 
  74.       For M=30 To 63
  75.          Mvolume M
  76.          Wait 1
  77.       Next M
  78.       Hot Spot 1,$10
  79.       Repeat 
  80.          X=X Bob(7)
  81.          Y=Y Bob(7)
  82.          If X<300
  83.             If Jright(0) or Jright(1)
  84.                Inc X
  85.             End If 
  86.          End If 
  87.          If X>0
  88.             If Jleft(0) or Jleft(1)
  89.                Dec X
  90.             End If 
  91.          End If 
  92.          If Y>0
  93.             If Jup(0) or Jup(1)
  94.                Dec Y
  95.             End If 
  96.          End If 
  97.          If Y<240
  98.             If Jdown(0) or Jdown(1)
  99.                Inc Y
  100.             End If 
  101.          End If 
  102.          Bob 7,X,Y,1
  103.          If Fire(0) or Fire(1)
  104.             If Bob Col(7,1 To 1)
  105.                _PLAYER0=True
  106.                _PLAYER1=False
  107.                _PLAYER2=False
  108.                _PLAYER3=False
  109.                DEAD_MAX=1
  110.                Bob 1,105,125,7
  111.                Bob 2,150,147,4
  112.                Bob 3,105,169,5
  113.                Bob 4,60,147,6
  114.                DEAD_DEFAULT=1
  115.                Sam Play 4,1
  116.                Wait 25
  117.             End If 
  118.             If Bob Col(7,2 To 2)
  119.                _PLAYER0=True
  120.                _PLAYER1=True
  121.                _PLAYER2=False
  122.                _PLAYER3=False
  123.                DEAD_MAX=1
  124.                Bob 1,105,125,3
  125.                Bob 2,150,147,8
  126.                Bob 3,105,169,5
  127.                Bob 4,60,147,6
  128.                DEAD_DEFAULT=2
  129.                Sam Play 4,1
  130.                Wait 25
  131.             End If 
  132.             If Bob Col(7,3 To 3)
  133.                _PLAYER0=True
  134.                _PLAYER1=True
  135.                _PLAYER2=True
  136.                _PLAYER3=False
  137.                DEAD_MAX=2
  138.                Bob 1,105,125,3
  139.                Bob 2,150,147,4
  140.                Bob 3,105,169,9
  141.                Bob 4,60,147,6
  142.                DEAD_DEFAULT=3
  143.                Sam Play 4,1
  144.                Wait 25
  145.             End If 
  146.             If Bob Col(7,4 To 4)
  147.                _PLAYER0=True
  148.                _PLAYER1=True
  149.                _PLAYER2=True
  150.                _PLAYER3=True
  151.                DEAD_MAX=3
  152.                Bob 1,105,125,3
  153.                Bob 2,150,147,4
  154.                Bob 3,105,169,5
  155.                Bob 4,60,147,10
  156.                DEAD_DEFAULT=4
  157.                Sam Play 4,1
  158.                Wait 25
  159.             End If 
  160.             If Bob Col(7,6 To 6)
  161.                Sam Play 4,1
  162.                Wait 25
  163.                Bob Off 
  164.                Screen Close 0
  165.                Screen Close 1
  166.                Screen Close 2
  167.                For M=63 To 0 Step -1
  168.                   Mvolume M
  169.                   Wait 2
  170.                Next M
  171.                Music Off 
  172.                End 
  173.             End If 
  174.          End If 
  175.       Until Fire(1) and Bob Col(7,5 To 5) or Fire(0) and Bob Col(7,5 To 5)
  176.       Sam Play 4,1
  177.       Wait 25
  178.       Hide On 
  179.       Screen Hide 1
  180.       Rainbow 0,0,0,270
  181.       DEAD=0
  182.       Repeat 
  183.          DELAY=0
  184.          For P=0 To 1
  185.             YINC(P)=1
  186.             XINC(P)=0
  187.          Next P
  188.          KYINC=1
  189.          KXINC=0
  190.          NXINC=0
  191.          NYINC=1
  192.          Mvolume 20
  193.          Sam Play 4,6
  194.          Wait 150
  195.          Mvolume 63
  196.          Unpack 7 To 0
  197.          Colour 0,$0
  198.          Curs Off 
  199.          Ink 14
  200.          Bar 300,12 To 303,15
  201.          Ink 15
  202.          Bar 12,12 To 15,15
  203.          If LEVEL>5 Then LEVEL=1
  204.          If LEVEL=1
  205.             Restore DAT1
  206.          End If 
  207.          If LEVEL=2
  208.             Restore DAT2
  209.          End If 
  210.          If LEVEL=3
  211.             Restore DAT3
  212.          End If 
  213.          If LEVEL=4
  214.             Restore DAT4
  215.          End If 
  216.          If LEVEL=5
  217.             Restore DAT5
  218.          End If 
  219.          For DAT=0 To 5
  220.             Read XBL(DAT),YBL(DAT),XBL2(DAT),YBL2(DAT),XBL3(DAT),YBL3(DAT)
  221.             Screen Copy 2,XBL(DAT),YBL(DAT),XBL2(DAT),YBL2(DAT) To 0,XBL3(DAT),YBL3(DAT)
  222.          Next DAT
  223.          S=Rnd(10)
  224.          If S=0
  225.             Cls 0,8,7 To 312,248
  226.             For S=1 To 175
  227.                Ink 1
  228.                Plot Rnd(300)+8,Rnd(230)+7
  229.             Next S
  230.          End If 
  231.          Colour 0,$0
  232.          XP(0)=100
  233.          YP(0)=100
  234.          XP(1)=130
  235.          YP(1)=101
  236.          KXP=170
  237.          KYP=102
  238.          NXP=200
  239.          NYP=103
  240.          P0COUNT=45
  241.          P1COUNT=45
  242.          P2COUNT=45
  243.          P3COUNT=45
  244.          SHIELD0=False
  245.          SHIELD1=False
  246.          SHIELD2=False
  247.          SHIELD3=False
  248.          SH_COUNT0=200
  249.          SH_COUNT1=200
  250.          SH_COUNT2=200
  251.          SH_COUNT3=200
  252.          PL=4
  253.          Clear Key 
  254.          Paper 0
  255.          Locate 5,1
  256.          Pen 6
  257.          Print P0COUNT
  258.          Locate 10,1
  259.          Pen 7
  260.          Print P1COUNT
  261.          Locate 15,1
  262.          Pen 8
  263.          Print P2COUNT
  264.          Locate 20,1
  265.          Pen 9
  266.          Print P3COUNT
  267.          Y=4
  268.          X=3
  269.          Ink 0
  270.          Bar 2,3 To 5,250
  271.          Bob 0,0,3,2
  272.          Channel 0 To Bob 0
  273.          Amal 0,"M 0,250,2000"
  274.          Amal On 0
  275.          Repeat 
  276.             Screen 0
  277.             X$=Inkey$
  278.             If _PLAYER0=True
  279.                If Jup(0)
  280.                   YINC(0)=-1
  281.                   XINC(0)=0
  282.                End If 
  283.                If Jdown(0)
  284.                   YINC(0)=1
  285.                   XINC(0)=0
  286.                End If 
  287.                If Jleft(0)
  288.                   YINC(0)=0
  289.                   XINC(0)=-1
  290.                End If 
  291.                If Jright(0)
  292.                   YINC(0)=0
  293.                   XINC(0)=1
  294.                End If 
  295.                If P0COUNT>0
  296.                   If Fire(0)
  297.                      Sam Play 4,2
  298.                      Ink 0
  299.                      Bar XP(0)-2,YP(0)-2 To XP(0)+2,YP(0)+2
  300.                      Dec P0COUNT
  301.                      Locate 5,1
  302.                      Pen 6
  303.                      Print P0COUNT
  304.                      If P0COUNT<10
  305.                         Locate 7,1
  306.                         Print "  "
  307.                      End If 
  308.                   End If 
  309.                End If 
  310.             End If 
  311.             If _PLAYER1=True
  312.                If Jup(1)
  313.                   YINC(1)=-1
  314.                   XINC(1)=0
  315.                End If 
  316.                If Jdown(1)
  317.                   YINC(1)=1
  318.                   XINC(1)=0
  319.                End If 
  320.                If Jleft(1)
  321.                   YINC(1)=0
  322.                   XINC(1)=-1
  323.                End If 
  324.                If Jright(1)
  325.                   YINC(1)=0
  326.                   XINC(1)=1
  327.                End If 
  328.                If P1COUNT>0
  329.                   If Fire(1)
  330.                      Sam Play 4,2
  331.                      Ink 0
  332.                      Bar XP(1)-2,YP(1)-2 To XP(1)+2,YP(1)+2
  333.                      Dec P1COUNT
  334.                      Locate 10,1
  335.                      Pen 7
  336.                      Print P1COUNT
  337.                      If P1COUNT<10
  338.                         Locate 12,1
  339.                         Print "  "
  340.                      End If 
  341.                   End If 
  342.                End If 
  343.             End If 
  344.             If X$<>""
  345.                If _PLAYER2=True
  346.                   X$=Lower$(X$)
  347.                   If X$="x"
  348.                      KXINC=-1
  349.                      KYINC=0
  350.                   End If 
  351.                   If X$="c"
  352.                      KXINC=1
  353.                      KYINC=0
  354.                   End If 
  355.                   If X$="a"
  356.                      KXINC=0
  357.                      KYINC=-1
  358.                   End If 
  359.                   If X$="z"
  360.                      KXINC=0
  361.                      KYINC=1
  362.                   End If 
  363.                   If P2COUNT>0
  364.                      If X$=" "
  365.                         Sam Play 4,2
  366.                         Ink 0
  367.                         Bar KXP-2,KYP-2 To KXP+2,KYP+2
  368.                         Dec P2COUNT
  369.                         Locate 15,1
  370.                         Pen 8
  371.                         Print P2COUNT
  372.                         If P2COUNT<10
  373.                            Locate 17,1
  374.                            Print "  "
  375.                         End If 
  376.                      End If 
  377.                   End If 
  378.                End If 
  379.                If _PLAYER3=True
  380.                   If X$=","
  381.                      NXINC=-1
  382.                      NYINC=0
  383.                   End If 
  384.                   If X$="."
  385.                      NXINC=1
  386.                      NYINC=0
  387.                   End If 
  388.                   If X$="j"
  389.                      NXINC=0
  390.                      NYINC=-1
  391.                   End If 
  392.                   If X$="m"
  393.                      NXINC=0
  394.                      NYINC=1
  395.                   End If 
  396.                   If P3COUNT>0
  397.                      If X$="/"
  398.                         Sam Play 4,2
  399.                         Ink 0
  400.                         Bar NXP-2,NYP-2 To NXP+2,NYP+2
  401.                         Dec P3COUNT
  402.                         Locate 20,1
  403.                         Pen 9
  404.                         Print P3COUNT
  405.                         If P3COUNT<10
  406.                            Locate 22,1
  407.                            Print "  "
  408.                         End If 
  409.                      End If 
  410.                   End If 
  411.                End If 
  412.             End If 
  413.             If _PLAYER0=True
  414.                Add XP(0),XINC(0)
  415.                Add YP(0),YINC(0)
  416.             End If 
  417.             If _PLAYER1=True
  418.                Add YP(1),YINC(1)
  419.                Add XP(1),XINC(1)
  420.             End If 
  421.             If _PLAYER2=True
  422.                Add KXP,KXINC
  423.                Add KYP,KYINC
  424.             End If 
  425.             If _PLAYER3=True
  426.                Add NXP,NXINC
  427.                Add NYP,NYINC
  428.             End If 
  429.             If _PLAYER0=True
  430.                If Point(XP(0),YP(0))>0
  431.                   If Point(XP(0),YP(0))=15
  432.                      Repeat 
  433.                         XP(0)=Rnd(200)+60
  434.                         YP(0)=Rnd(170)+50
  435.                      Until Point(XP(0),YP(0))=0
  436.                   End If 
  437.                   If Point(XP(0),YP(0))=16
  438.                      SHIELD0=True
  439.                      Sam Play 4,4
  440.                   Else 
  441.                      Flash 6,"(bbb,3)(ddd,3)(fff,3)(ddd,3)(bbb,3)"
  442.                      _PLAYER0=False
  443.                      PL=0
  444.                      Inc DEAD
  445.                      Sam Play 4,3
  446.                   End If 
  447.                End If 
  448.                If SHIELD0=True
  449.                   Ink 6
  450.                   Box XP(0)-4,YP(0)-4 To XP(0)+4,YP(0)+4
  451.                   Ink 0
  452.                   Bar XP(0)-3,YP(0)-3 To XP(0)+3,YP(0)+3
  453.                   Dec SH_COUNT0
  454.                   If SH_COUNT0=0
  455.                      SHIELD0=False
  456.                      SH_COUNT0=200
  457.                      Ink 0
  458.                      Bar XP(0)-4,YP(0)-4 To XP(0)+4,YP(0)+4
  459.                   End If 
  460.                End If 
  461.             End If 
  462.             If _PLAYER1=True
  463.                If Point(XP(1),YP(1))>0
  464.                   If Point(XP(1),YP(1))=15
  465.                      Repeat 
  466.                         XP(1)=Rnd(200)+60
  467.                         YP(1)=Rnd(170)+50
  468.                      Until Point(XP(1),YP(1))=0
  469.                   End If 
  470.                   If Point(XP(1),YP(1))=16
  471.                      SHIELD1=True
  472.                      Sam Play 4,4
  473.                   Else 
  474.                      Flash 7,"(bbb,3)(ddd,3)(fff,3)(ddd,3)(bbb,3)"
  475.                      _PLAYER1=False
  476.                      Inc DEAD
  477.                      Sam Play 4,3
  478.                      PL=1
  479.                   End If 
  480.                End If 
  481.                If SHIELD1=True
  482.                   Ink 0
  483.                   Bar XP(1)-3,YP(1)-3 To XP(1)+3,YP(1)+3
  484.                   Ink 7
  485.                   Box XP(1)-4,YP(1)-4 To XP(1)+4,YP(1)+4
  486.                   Dec SH_COUNT1
  487.                   If SH_COUNT1=0
  488.                      SHIELD1=False
  489.                      SH_COUNT1=200
  490.                      Ink 0
  491.                      Bar XP(1)-4,YP(1)-4 To XP(1)+4,YP(1)+4
  492.                   End If 
  493.                End If 
  494.             End If 
  495.             If _PLAYER2=True
  496.                If Point(KXP,KYP)>0
  497.                   If Point(KXP,KYP)=15
  498.                      Repeat 
  499.                         KXP=Rnd(200)+60
  500.                         KYP=Rnd(170)+50
  501.                      Until Point(KXP,KYP)=0
  502.                   End If 
  503.                   If Point(KXP,KYP)=16
  504.                      SHIELD2=True
  505.                      Sam Play 4,4
  506.                   Else 
  507.                      Flash 8,"(bbb,3)(ddd,3)(fff,3)(ddd,3)(bbb,3)"
  508.                      _PLAYER2=False
  509.                      PL=2
  510.                      Inc DEAD
  511.                      Sam Play 4,3
  512.                   End If 
  513.                End If 
  514.                If SHIELD2=True
  515.                   Ink 8
  516.                   Box KXP-4,KYP-4 To KXP+4,KYP+4
  517.                   Ink 0
  518.                   Bar KXP-3,KYP-3 To KXP+3,KYP+3
  519.                   Dec SH_COUNT2
  520.                   If SH_COUNT2=0
  521.                      SHIELD2=False
  522.                      SH_COUNT2=200
  523.                      Ink 0
  524.                      Bar KXP-4,KYP-4 To KXP+4,KYP+4
  525.                   End If 
  526.                End If 
  527.             End If 
  528.             If _PLAYER3=True
  529.                If Point(NXP,NYP)>0
  530.                   If Point(NXP,NYP)=15
  531.                      Repeat 
  532.                         NXP=Rnd(200)+60
  533.                         NYP=Rnd(170)+50
  534.                      Until Point(NXP,NYP)=0
  535.                   End If 
  536.                   If Point(NXP,NYP)=16
  537.                      SHIELD3=True
  538.                      Sam Play 4,4
  539.                   Else 
  540.                      Flash 9,"(bbb,3)(ddd,3)(fff,3)(ddd,3)(bbb,3)"
  541.                      _PLAYER3=False
  542.                      PL=3
  543.                      Inc DEAD
  544.                      Sam Play 4,3
  545.                   End If 
  546.                End If 
  547.                If SHIELD3=True
  548.                   Ink 9
  549.                   Box NXP-4,NYP-4 To NXP+4,NYP+4
  550.                   Ink 0
  551.                   Bar NXP-3,NYP-3 To NXP+3,NYP+3
  552.                   Dec SH_COUNT3
  553.                   If SH_COUNT3=0
  554.                      SHIELD3=False
  555.                      SH_COUNT3=200
  556.                      Ink 0
  557.                      Bar NXP-4,NYP-4 To NXP+4,NYP+4
  558.                   End If 
  559.                End If 
  560.             End If 
  561.             If _PLAYER0=True
  562.                Ink 6
  563.                Plot XP(0),YP(0)
  564.             End If 
  565.             If _PLAYER1=True
  566.                Ink 7
  567.                Plot XP(1),YP(1)
  568.             End If 
  569.             If _PLAYER2=True
  570.                Ink 8
  571.                Plot KXP,KYP
  572.             End If 
  573.             If _PLAYER3=True
  574.                Ink 9
  575.                Plot NXP,NYP
  576.             End If 
  577.             If XP(0)<8 or XP(0)>312 or YP(0)<8 or YP(0)>247
  578.                Repeat 
  579.                   XP(0)=Rnd(280)+50
  580.                   YP(0)=Rnd(180)+50
  581.                Until Point(XP(0),YP(0))=0
  582.             End If 
  583.             If XP(1)<8 or XP(1)>312 or YP(1)<8 or YP(1)>247
  584.                Repeat 
  585.                   XP(1)=Rnd(280)+50
  586.                   YP(1)=Rnd(180)+50
  587.                Until Point(XP(1),YP(1))=0
  588.             End If 
  589.             If KXP<8 or KXP>312 or KYP<8 or KYP>247
  590.                Repeat 
  591.                   KXP=Rnd(280)+50
  592.                   KYP=Rnd(180)+50
  593.                Until Point(KXP,KYP)=0
  594.             End If 
  595.             If NXP<8 or NXP>312 or NYP<8 or NYP>247
  596.                Repeat 
  597.                   NXP=Rnd(280)+50
  598.                   NYP=Rnd(180)+50
  599.                Until Point(NXP,NYP)=0
  600.             End If 
  601.             For D=0 To DELAY
  602.             Next D
  603.             Randomize Timer
  604.             R=Rnd(1000)
  605.             If R=1
  606.                Colour 16,$F : Rem BLUE 
  607.                Ink 16
  608.                X=Rnd(285)+20
  609.                Y=Rnd(230)+10
  610.                Screen 0
  611.                Bar X,Y To X+2,Y+2
  612.             End If 
  613.          Until Y Bob(0)=250 or PL<>4
  614.          Screen 0
  615.          Cls 0
  616.          Bob Off 
  617.          Wait 1
  618.          Curs Off 
  619.          Cls 0
  620.          Wait 1
  621.          Wait 40
  622.          Cls 0
  623.          Inc LEVEL
  624.          Locate ,14
  625.          If PL=0
  626.             Pen 6
  627.             Centre "Player 1 Is Dead!"
  628.          End If 
  629.          If PL=1
  630.             Pen 7
  631.             Centre "Player 2 Is Dead!"
  632.          End If 
  633.          If PL=2
  634.             Pen 8
  635.             Centre "Player 3 Is Dead!"
  636.          End If 
  637.          If PL=3
  638.             Pen 9
  639.             Centre "Player 4 Is Dead!"
  640.          End If 
  641.          Wait 40
  642.       Until DEAD=DEAD_MAX
  643.       Screen 0
  644.       Bob Off 
  645.       Curs Off 
  646.       Cls 0
  647.       For M=63 To 30 Step -1
  648.          Mvolume M
  649.          Wait 2
  650.       Next M
  651.       Locate ,14
  652.       If _PLAYER0=True
  653.          Pen 6
  654.          Centre "Player 1 Wins Game!"
  655.          Sam Play 4,5
  656.       End If 
  657.       If _PLAYER1=True
  658.          Pen 7
  659.          Centre "Player 2 Wins Game!"
  660.          Sam Play 4,5
  661.       End If 
  662.       If _PLAYER2=True
  663.          Pen 8
  664.          Centre "Player 3 Wins Game!"
  665.          Sam Play 4,5
  666.       End If 
  667.       If _PLAYER3=True
  668.          Pen 9
  669.          Centre "Player 4 Wins Game!"
  670.          Sam Play 4,5
  671.       End If 
  672.       Wait 75
  673.       Cls 0
  674.    Loop 
  675.    DAT1:
  676.    Data 16,79,249,93,40,40
  677.    Data 16,97,111,191,110,125
  678.    Data 0,0,0,0,0,0
  679.    Data 0,0,0,0,0,0
  680.    Data 0,0,0,0,0,0
  681.    Data 0,0,0,0,0,0
  682.    DAT2:
  683.    Data 192,95,298,197,203,142
  684.    Data 15,203,105,228,12,220
  685.    Data 29,29,78,72,100,50
  686.    Data 0,0,0,0,0,0
  687.    Data 0,0,0,0,0,0
  688.    Data 0,0,0,0,0,0
  689.    DAT3:
  690.    Data 299,12,308,203,300,20
  691.    Data 136,172,188,242,11,175
  692.    Data 29,18,124,25,120,50
  693.    Data 179,9,216,61,11,11
  694.    Data 0,0,0,0,0,0
  695.    Data 0,0,0,0,0,0
  696.    DAT4:
  697.    Data 84,30,174,55,12,217
  698.    Data 118,106,190,156,120,192
  699.    Data 136,172,188,242,12,61
  700.    Data 29,18,124,25,120,30
  701.    Data 96,64,287,71,70,40
  702.    Data 0,0,0,0,0,0
  703.    DAT5:
  704.    Data 18,9,23,64,30,34
  705.    Data 24,9,79,14,30,30
  706.    Data 224,12,275,49,250,200
  707.    Data 179,9,216,61,12,191
  708.    Data 192,95,298,197,200,40
  709.    Data 192,95,298,197,100,140
  710.    '
  711. End Proc