Re: woz' original "brick out" - source code , paddles

[mad.scientist.jr@gmail.com]

Many thanks, you rule

Can anyone post any code that would make the game work with paddles?

Are there any Apple II paddle specs online that show you how to build
a pair?

Thanks again


On Oct 22, 3:17 pm, aiiad...@gmail.com wrote:
> On Oct 22, 11:22 am, mad.scientist...@gmail.com wrote:
>
> > (or any Apple 2 BASIC or assembly program listings, for that matter, I
> > would like to play around with writing some pong type games on the
> > apple IIe)
>
> here's about 5 minutes of me reinventing PONG:
>
> you can PASTE it into AppleWin using SHIFT-INSERT
>
> A and Z control player 1
> K and M control player 2
>
> there is no "death" or points.
>
> the ball-istics are screwed up.  I didn't spend very long figuring out
> the logic.
>
> 1  REM
>  2  REM
>  3  REM  DRAW FIELD
>  4  REM
>  5  REM
>  10  GR
>  20  COLOR= 7: VLIN 0,39 AT 0: VLIN 0,39 AT 39
>  30  HLIN 0,39 AT 0: HLIN 0,39 AT 39
>  100 X = 10:Y = 10:P1 = 10:P2 = 10
>  110 XC = 1:YC =  - 1
>  120 PL = 8
>  195  REM
>  196  REM
>  197  REM  DRAW PADDLE1
>  198  REM
>  199  REM
>  200  COLOR= 7
>  210  VLIN P1,P1 + PL AT 2
>  220  COLOR= 0: PLOT 2,P1 - 1: PLOT 2,P1 + PL + 1
>  295  REM
>  296  REM
>  297  REM  DRAW PADDLE2
>  298  REM
>  299  REM
>  300  COLOR= 7
>  310  VLIN P2,P2 + PL AT 37
>  320  COLOR= 0: PLOT 37,P2 - 1: PLOT 37,P2 + PL + 1
>  398  REM
>  399  REM
>  400  REM  DRAW BALL
>  401  REM
>  402  REM
>  410  COLOR= 5:
>  415  PLOT X,Y
>  416 OX = X:OY = Y
>  830 X = X + XC
>  835  IF  SCRN( X,Y) > 0 THEN XC =  - XC
>  840 Y = Y + YC
>  845  IF  SCRN( X,Y) > 0 THEN YC =  - YC
>  850  IF X < 1 THEN X = 1
>  860  IF X > 38 THEN X = 38
>  870  IF Y < 1 THEN Y = 1
>  880  IF Y > 38 THEN Y = 38
>  900  REM  MOVE PADDLES
>  910  IF  PEEK ( - 16384) > 127 THEN  GET A$
>  920  IF A$ = "A" THEN P1 = P1 - 1
>  930  IF A$ = "Z" THEN P1 = P1 + 1
>  940  IF A$ = "K" THEN P2 = P2 - 1
>  950  IF A$ = "M" THEN P2 = P2 + 1
>  960  IF P1 < 2 THEN P1 = 2
>  970  IF P1 > 28 THEN P1 = 28
>  980  IF P2 < 2 THEN P2 = 2
>  990  IF P2 > 28 THEN P2 = 28
>  999  COLOR= 0: PLOT OX,OY
>  1000  GOTO 197