This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
|
|
-
Entry name:Attack Squash
-
Category:Games






Listing 1
10 REM ATTACK SQUASH 15 DIM B$(4) 20 GRAPHICS 1+16 40 CH=(PEEK(106)-8)*256 50 CHORG=(PEEK(756)*256) 60 FOR I=0 TO 511 70 POKE CH+I,PEEK(CHORG+I) 80 NEXT I 90 GOSUB 1500 100 H=0 110 HT=0 120 D=19 130 BALL=0 140 C=2 150 GOSUB 450 190 X=10 200 BALL=BALL+1 210 IF BALL>10 THEN GOTO 890 220 A=10+INT(RND(0)*6) 230 B=2 240 V=1 250 W=1 260 Y=D 270 POSITION 3,21 280 PRINT #6;"BALL ";BALL; 290 GOSUB 1010 300 POSITION X,Y:PRINT #6;B$ 310 POSITION 12,21 320 PRINT #6;"HIT ";HT 340 GOSUB 620 360 IF B+W<>Y THEN Y=D:GOTO 290 370 GOSUB 2500 380 POSITION X,Y 390 PRINT #6;" ";:REM 3 400 GOSUB 620 410 POSITION A,B:PRINT #6;" " 420 IF D<19 THEN D=D+1 430 H=0 440 GOTO 200 450 REM COURT 480 FOR I=0 TO 19 490 POSITION I,0:PRINT #6;"$"; 500 NEXT I 510 FOR I=0 TO 19 520 POSITION 0,I 530 PRINT #6;"$"; 540 POSITION 19,I 550 PRINT #6;"$"; 560 NEXT I 570 RETURN 620 REM BOUNCE 650 POSITION A,B 660 PRINT #6;" " 670 A=A+V 680 B=B+W 690 IF A=18 OR A=1 THEN V=-V:GOSUB 2000 700 IF B=1 THEN W=-W:GOSUB 2000 710 IF B+W=Y THEN GOTO 770 740 POSITION A,B 750 PRINT #6;CHR$(5+128) 760 RETURN 770 R=A-X 780 IF R<0 OR R>2 THEN GOTO 740 790 W=-W 800 GOSUB 2000 810 H=H+1 820 HT=HT+1 830 IF H<>1 THEN GOTO 720 840 H=0 850 IF D>3 THEN D=D-1 860 POSITION X,Y 870 PRINT #6;" ";:REM 3 880 GOTO 760 890 FOR Z=1 TO 1000:NEXT Z 900 GRAPHICS 0:POSITION 10,10 910 PRINT "You scored ";HT 950 PRINT "ANOTHER GAME Y/N "; 960 DIM A$(1) 970 INPUT A$ 980 IF A$="Y" THEN RUN 990 PRINT "" 1000 END 1010 K=PEEK(764) 1040 IF K=7 AND X<16 THEN GOTO 1200 1050 IF K=6 AND X>1 THEN GOTO 1250 1060 RETURN 1200 POSITION X,Y 1210 PRINT #6;" "; 1220 X=X+1 1240 RETURN 1250 POSITION X+2,Y 1260 PRINT #6;" "; 1270 X=X-1 1290 RETURN 1500 POKE CH+(ASC("$")-32)*8+0,255 1510 POKE CH+(ASC("$")-32)*8+1,255 1520 POKE CH+(ASC("$")-32)*8+2,255 1530 POKE CH+(ASC("$")-32)*8+3,255 1540 POKE CH+(ASC("$")-32)*8+4,255 1550 POKE CH+(ASC("$")-32)*8+5,255 1560 POKE CH+(ASC("$")-32)*8+6,255 1570 POKE CH+(ASC("$")-32)*8+7,255 1600 POKE CH+(ASC("%")-32)*8+0,60 1610 POKE CH+(ASC("%")-32)*8+1,126 1620 POKE CH+(ASC("%")-32)*8+2,255 1630 POKE CH+(ASC("%")-32)*8+3,255 1640 POKE CH+(ASC("%")-32)*8+4,255 1650 POKE CH+(ASC("%")-32)*8+5,255 1660 POKE CH+(ASC("%")-32)*8+6,126 1670 POKE CH+(ASC("%")-32)*8+7,60 1700 POKE 756,CH/256 1710 POKE 752,1 1720 B$="$$$" 1730 RETURN 2000 SOUND 0,80,10,8 2010 FOR T=1 TO 10:NEXT T 2020 SOUND 0,0,0,0 2030 RETURN 2500 FOR I=1 TO 10 2510 SOUND 0,160,10,10 2520 GOSUB 2000 2530 NEXT I 2540 RETURN
References
Listing downloads
Downloads
Copyright holder