Atari 8-bit Source code

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