# simple pong basic code

Nov 29th, 2021
5,094
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
1. 10?"{clear}":xb=20:yb=13:dx=1:dy=1:yp=13:dw\$="{down}":fort=1to5:dw\$=dw\$+dw\$:next
2. 15 sc=0:ye=13:oc=32+128:b(1)=32:b(6)=32:fort=2to5:b(t)=32+128:next:poke53281,1:poke53280,1:gosub2000
3. 20 a\$=" {down}{left}{reverse on} {down}{left} {down}{left} {down}{left} {down}{left}{reverse off} "
4. 30 j=peek(56320):yp=yp+(j=126)-(j=125):rem if up then j=126 gives -1, so yp=yp-1.same for down
5. 35 gosub 1000:gosub 1050:gosub1080
6. 38 if xb=5and(yb<yp+5 and yb>yp)thendy=1+dy*(j=126orj=125):dx=-dx:sc=sc+1:rem spin
7. 39 if xb=34and(yb<ye+5 and yb>ye)then dx=-dx:dy=-dy
8. 40 if xb<5 then print"{clear}you lose! score: "sc"{return}press return":input z\$: run
9. 42 if xb>35 then print"{clear}you win! score: "sc"{return}press return":input z\$: run
10. 45 if ye+3<yb then ye=ye+1
11. 48 if ye+3>yb then ye=ye-1
12. 49 print"{home}";left\$(dw\$,24)sc;
13. 50 goto30
14. 1000 rem move the ball
15. 1010 poke 1024+xb+yb*40,oc:rem delete old ball
16. 1020 xb=xb+dx:yb=yb+dy:rem ?"{home}"xb,yb,yp
17. 1021 if yb<1  then y=1:dy=-dy
18. 1022 if yb>=24 then y=24: dy=-dy
19. 1026 if yb<0 then yb=1:dy=1
20. 1030 nl=1024+xb+yb*40:oc=peek(nl):poke nl,81
21. 1040 return
22. 1050 rem ? player s bar
23. 1055 if yp<0thenyp=0
24. 1058 if yp>20thenyp=20
25. 1060 fort=1to6:poke1028+40*(yp+t-1),b(t):next
26. 1070 return
27. 1080 rem enemy movement
28. 1090 if ye<0thenye=0
29. 1100 if ye>18thenye=18
30. 1110 ? "{home}"spc(35)left\$(dw\$,ye)a\$
31. 1120 return
32. 2000 REM SCREEN 1 -
33. 2010 ? "{clear}                     {light gray}NM                 ";
34. 2020 ? "                    N  M                ";
35. 2030 ? "                   N{reverse on}{dark gray}{127}{reverse off}  {reverse on}{gray}{169}{reverse off}                ";
36. 2040 ? "                  {light gray}N {reverse on}{dark gray} {127}{gray}{169} {reverse off}                ";
37. 2050 ? "                 {light gray}N {reverse on}{gray}{169}{dark gray}  {gray}  {reverse off}                ";
38. 2060 ? "                {light gray}N {reverse on}{gray}{169} {dark gray}  {gray}  {reverse off}                ";
39. 2070 ? "               {light gray}N {reverse on}{gray}{169} {reverse off}{169}{reverse on}{dark gray}  {gray}  {reverse off}                ";
40. 2080 ? "              {light gray}N {reverse on}{gray}{169} {reverse off}{169} {reverse on}{dark gray}  {gray}  {reverse off}                ";
41. 2090 ? "             {light gray}N {reverse on}{gray}{169} {reverse off}{169}  {reverse on}{dark gray}  {gray}  {reverse off}                ";
42. 2100 ? "            {light gray}N {reverse on}{gray}{169} {reverse off}{169}   {reverse on}{dark gray}  {gray}  {reverse off}                ";
43. 2110 ? "           {light gray}N {reverse on}{gray}{169} {reverse off}{169}    {reverse on}{dark gray}  {gray}  {reverse off}                ";
44. 2120 ? "           {reverse on}{dark gray}{127}{reverse off} {gray}{127}{169}     {reverse on}{dark gray}  {gray}  {reverse off}                ";
45. 2130 ? "           {reverse on}{dark gray} {127}{reverse off} {light gray}M     {reverse on}{dark gray}  {gray}  {reverse off}                ";
46. 2140 ? "           {dark gray}{127}{reverse on} {127}{reverse off} {light gray}M    {reverse on}{dark gray}  {gray}  {reverse off}                ";
47. 2150 ? "            {dark gray}{127}{reverse on} {127}{reverse off} {light gray}M   {reverse on}{dark gray}  {gray}  {reverse off}                ";
48. 2160 ? "             {dark gray}{127}{reverse on} {127}{reverse off} {light gray}M  {reverse on}{dark gray}  {gray}  {reverse off}                ";
49. 2170 ? "              {dark gray}{127}{reverse on} {127}{reverse off} {light gray}M {reverse on}{dark gray}  {gray}  {reverse off}                ";
50. 2180 ? "               {dark gray}{127}{reverse on} {127}{reverse off} {light gray}M{reverse on}{dark gray}  {gray}  {reverse off}                ";
51. 2190 ? "                {dark gray}{127}{reverse on} {127}{reverse off} {reverse on}  {gray}  {reverse off}                ";
52. 2200 ? "                 {dark gray}{127}{reverse on} {127}  {gray}  {reverse off}                ";
53. 2210 ? "                  {dark gray}{127}{reverse on}   {gray}  {reverse off}                ";
54. 2220 ? "                   {dark gray}{127}{reverse on}  {gray}  {reverse off}                ";
55. 2230 ? "                    {dark gray}{127}{reverse on} {gray} {reverse off}{169}                ";
56. 2240 ? "                     {dark gray}{127}{gray}{169}                 ";
57. 2260 return