Break Out 9850-Lite version
(c) Hidetake Jo 1996
------------------------------------------------------------
What is it?  

This is a one player game.  There is a paddle at the bottom of the screen,
you must control the paddle to prevent the ball from getting past you.

Your basic goal is to elimiate all the blocks at the top of the screen by
making the ball bounce into it.

 _____________
| o o o o o o |   <---- these are the bricks you must eliminate
|             |
|             |
|    .        |<--the dot is the moving ball
| --          | <--this flat thing is your paddle
|_____________|

Controls:    "left arrow key"  to move paddle left
         "Right arrow key"  to move paddle right

         sound easy? :-)    

BTW: If you have any questions, don't hesitate to ask just e-mail me :-)
     Also everything inside the {} are comments.

If anyone is interested I will make a Gold version of Breakout
featuring Laser, and scoring system.  

Happy Coding  

-Hidetake Jo    (hjo@engin.umich.edu)

---------------------------------------------------------------
Cls
ViewWindow 1,126,1,1,64,1
For 1->A To 3
Plot A,1
Plot A,63
Line
Plot 1,63-A
Plot 125,63-A
Line
Plot 123-A,1
Plot 123-A,63
Line
Next
1->M~R
60->A
1->Z
For 10->B To 126 Step 21
Text 10,B,"O"
Next
10->H
60->G
1->C~D
While Z=1
Text 55,A,"--"
If GetKey=38
Then A-10->A
A<1 => A+10->A
Text 55,A+10,"  "      {make sure you have 2 spaces between the quotations}
Text 55,A,"--"
IfEnd
If GetKey=27
Then A+10->A
A<1 => A-10->A
Text 55,A-9,"  "      {make sure you have 2 spaces between the quotations}
Text 55,A,"--"
IfEnd
PlotOn G,H
PlotOff G,H
G+C->G
H+D->H
G>116=>-(2Ran#+1)->C
G<7=>2Ran#+1->C
H>55=>-(2Ran#+1)->D
H<0=>0->Z
If (H =< 14) And (G >= A) And (G =< A+10)
Then 2Ran#+1->D
IfEnd
If (H>49) And (H<58)
Then For 10->E To 126 Step 21
1->S
G>=E => G=<E+6=>0->S
S=0 =>Text 10,E," "  {make sure you have 1 spaces between the quotations}
If S=0
Then E=10=>0->M
E=31=>0->N
E=52=>0->O
E=73=>0->P
E=94=>0->Q
E=115=>0->R
IfEnd
Next
IfEnd
M=0 => M=N => N=O => O=P => P=Q => Q=R => 2->Z
WhileEnd
0=Z => Text 30,45,"GAME OVER"
2=Z => Text 30,45,"YOU WIN"