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

[aiiadict@gmail.com]

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