Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 0 rem pong for 1
- 5 gosub 1000:for sprite=12800 to sprite+192:read a:poke sprite,a:next sprite
- 10 ?chr$(147):x=30:y=145
- 20 poke 53280,0:poke53281,0:poke 646,1
- 30 poke 2040,200:poke 53248,x:poke 53249,y
- 35 poke 53271,3:poke 53264,2
- 45 poke 2041,201:poke 53250,50:poke 53251,y
- 50 poke 2042,202:poke 53252,180:poke 53253,y+10
- 60 ?tab(8)"press any key to start"
- 65 a$="":get a$:if a$="" then goto 65
- 70 ?chr$(147)
- 100 PRINT " 1 pp o n n gg"
- 110 PRINT " 11 p p o o nn n g"
- 120 PRINT " 1 pp o o n nn g gg"
- 130 PRINT " 1 p o o n n g g"
- 140 PRINT " {blue}p1{white} 111 p o n n gg {red}p2{white}"
- 150 PRINT "UDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDI";
- 160 PRINT "{125} {125}";
- 170 PRINT "{125} {125}";
- 180 PRINT "{125} {125}";
- 190 PRINT "{125} {125}";
- 200 PRINT "{125} {125}";
- 210 PRINT "{125} {125}";
- 220 PRINT "{125} {125}";
- 230 PRINT "{125} {125}";
- 240 PRINT "{125} {125}";
- 250 PRINT "{125} {125}";
- 260 PRINT "{125} {125}";
- 270 PRINT "{125} {125}";
- 280 PRINT "{125} {125}";
- 290 PRINT "{125} {125}";
- 300 PRINT "{125} {125}";
- 310 PRINT "JFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFK";
- 320 poke 53287,1:poke 53288,1:poke 53269,255
- 330 poke 53289,1
- 340 xd=int(rnd(1)*2):yd=int(rnd(1)*2)
- 345 if xd=0 then xd=-1:if yd=0 then yd=-1
- 400 poke 53278,0:k=peek(203)
- 410 if k=9 and peek(53249)>100 then poke 53249,peek(53249)-5
- 420 if k=9 and peek(53251)<190 then poke 53251,peek(53251)+5
- 430 if k=13 and peek(53249)<190 then poke 53249,peek(53249)+5
- 440 if k=13 and peek(53251)>100 then poke 53251,peek(53251)-5
- 450 if peek(53252)=255 and peek(53264)=2 then gosub 700
- 455 if peek(53252)=0 and peek(53264)=6 then gosub 800
- 460 poke 53252,peek(53252)+xd:poke 53253,peek(53253)+yd
- 470 if peek(53279)<>0 and peek(53253)<100 then yd=-yd:poke 53253,peek(53253)+2
- 475 if peek(53252)<30 and peek(53264)=2 then goto 900
- 480 if peek(53279)<>0 and peek(53253)>200 then yd=-yd:poke 53253,peek(53253)-2
- 485 if peek(53252)>70 and peek(53264)=6 then goto 950
- 490 if peek(53278)>250 then goto 600
- 500 goto 400
- 600 xd=-xd
- 601 if xd<0 then poke 53252,peek(53252)-2
- 602 if xd>0 then poke 53252,peek(53252)+2
- 605 for l=54272 to l+24:poke l,0:next l
- 610 s=54272
- 620 for x=15 to 0 step -1
- 630 poke s+24,x
- 640 poke s+4,129
- 650 poke s+5,15
- 660 poke s+1,40
- 670 poke s,200:next x
- 680 poke s+4,125
- 690 poke s+5,0
- 699 goto 400
- 700 if xd>0 then poke 53264,6:poke 53252,0
- 790 return
- 800 if xd<0 then poke 53264,2:poke 53252,255
- 890 return
- 900 for n=631 to n+9:poke n,0:next n
- 905 poke 53269,0:?chr$(147):?"player 2 wins":?""
- 910 ?"press y to play again"
- 920 ?"any other key to quit"
- 930 a$="":get a$:if a$="" then goto 930
- 940 if a$="y" then goto 10
- 945 ?"thanks for playing, goodbye":end
- 950 for n=631 to n+9:poke n,0:next n
- 955 poke 53269,0:?chr$(147):?"player 1 wins":?""
- 960 ?"press y to play again"
- 970 ?"any other key to quit"
- 980 a$="":get a$:if a$="" then goto 930
- 990 if a$="y" then goto 10
- 995 ?"thanks for playing, goodbye":end
- 1000 REM Sprite data for bat (4 lines repeated)
- 1010 DATA 0,0,0,0,0,0,0,255,0,0,255,0,0,255,0,0
- 1020 DATA 255,0,0,255,0,0,255,0,0,255,0,0,255,0,0,255
- 1030 DATA 0,0,255,0,0,255,0,0,255,0,0,255,0,0,255,0
- 1040 DATA 0,255,0,0,255,0,0,255,0,0,0,0,0,0,0,0,0
- 1050 DATA 0,0,0,0,0,0,0,255,0,0,255,0,0,255,0,0
- 1060 DATA 255,0,0,255,0,0,255,0,0,255,0,0,255,0,0,255
- 1070 DATA 0,0,255,0,0,255,0,0,255,0,0,255,0,0,255,0
- 1080 DATA 0,255,0,0,255,0,0,255,0,0,0,0,0,0,0,0,0
- 1100 REM Sprite data for ball
- 1110 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
- 1120 DATA 0,0,0,0,0,0,60,0,0,126,0,0,255,0,0,255
- 1130 DATA 0,0,255,0,0,255,0,0,126,0,0,60,0,0,0,0
- 1140 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
- 1150 return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement