03-08-2004, 01:01 PM
Here it is ( I am posting this in the Projects forum, too, where I will explain some what I did):
Code:
1 : SCREEN 13
2 : IF INP(96) = 57 THEN pX = pX - -(pX > 1) ELSE pX = pX + -(pX < 39)
3 : DRAW "c0 bm" + STR$(pX - 1 + 136) + ",130 r7 bm" + STR$(bX + 23 - 1 + 136) + "," + STR$(bY + 2 - 1 + 66) + "f2 bm" + STR$(bX + 23 + 1 + 136) + "," + STR$(bY + 2 - 1 + 66) + "g2 c1 bm136,66 r45 d65 l45 u64 c2 bm" + STR$(pX + 136) + ", 130 r5 c4 bm" + STR$(bX + 23 + 136) + "," + STR$(bY + 2 + 66) + "r0"
4 : bX = bX + ((bS AND 1) * 2) - 1
5 : bY = bY + (bS AND 2) - 1
6 : IF bX <= 1 - 23 OR bX >= 44 - 23 THEN bS = bS + -(((bS AND 1) * 2) - 1)
7 : IF ((bX >= pX - 23) AND (bX <= (pX + 5 - 23)) AND (bY = 63 - 2)) OR (bY = 1 - 2) THEN bS = bS + -((bS AND 2) - 1) * 2
8 : time = TIMER
9 : IF time = TIMER AND ((dummy$ = INKEY$) OR 1) THEN GOTO 9
10 : IF (bY < 65 - 2) THEN GOTO 2 ELSE PRINT " You lose"
'10 line "Wall" pong. Made by Daniel Miller.
'Controls: Hold space bar to move to the left.
' Let go to move to the right.
'Features: No flicker
' No keyboard "clicks"
' Goes the same speed on every computer