Squashed

SQUASHED is an intriguing version of the Break Out game for an expanded T/S1000,ZX81. Imagine a squash court full of milk bottles and a ball made of solid steel. Your job is to break the bottles by moving the bat with keys S and Z.

A running score is kept and the game ends when you destroy all the targets or lose your allocated three balls.

  20 REM (C) PER GRONBORG, 1982
  30 REM RESET HI-SCORE BY ENTERING "POKE 16514,0"
  40 LET BALLS=3
  45 LET HI=PEEK 16514
  50 LET BT=9
  55 LET BB=11
  75 LET Y1=SGN (RND-0.5)
  80 LET K=0
  85 LET B=0
  90 LET P=PEEK 16396 + 256 * PEEK 16397 + 1
 100 FAST
 105 CLS
 110 FOR T=0 TO 30
 120 PRINT AT 0,T;"█"
 130 PRINT AT 20,T;"█"
 140 IF T < 20 THEN PRINT AT T,0; "█"
 150 NEXT T
 160 FOR T=2 TO 18 STEP 2
 170 FOR I=1 TO 21 STEP 2
 180 PRINT AT T,I;"▐"
 190 NEXT I
 200 NEXT T
 210 FOR T=BT TO BB
 220 PRINT AT T,31;"▐"
 230 NEXT T
 240 PRINT AT 21,0; "SCORE:0   HI-SCORE:";HI
 245 SLOW
 250 FOR T=1 TO BALLS
 260 LET X=30
 265 LET Y=9
 270 LET X1=-1
 290 PRINT AT 21,24;"BALLS:";T
 300 IF (INKEY$ <> "Z") + (BB=19) THEN GOTO 350
 310 PRINT AT BT,31;" "
 320 LET BB=BB+1
 330 LET BT=BT+1
 340 PRINT AT BB,31;"▐"
 350 IF (INKEY$ <> "S") + (BT=1) THEN GOTO 400
 360 PRINT AT BB,31;" "
 370 LET BB=BB-1
 380 LET BT=BT-1
 390 PRINT AT BT,31;"▐"
 405 IF X=1 THEN LET X1=1
 410 LET X=X+X1
 415 IF (Y=19)+(Y=1) THEN LET Y1=Y1*(-1)
 420 LET Y=Y+Y1
 425 LET B1=B
 430 LET B=P + 33*Y + X
 440 IF PEEK B <> 133 THEN GOTO 500
 450 LET K=K+1
 460 LET X1=X1*-1
 470 PRINT AT 21,6;K
 500 POKE B,CODE "O"
 505 POKE B1,0
 510 IF X=1 THEN LET X1=X1*-1
 520 GOTO 600 - (X=30)*70
 530 GOTO 1000 - (Y <= BB) * (Y >= BT) * 460
 540 LET X1=-1
 550 IF NOT (Y1>0) * (Y=BT) + (Y1<0) * (Y=BB) THEN GOTO 570
 560 LET Y1=0
 565 GOTO 580
 570 IF Y1=0 THEN LET Y1=Y1 + (Y=BB) - (Y=BT)
 998 GOTO 300
1000 PRINT AT Y,X;" "
1010 NEXT T
1020 PAUSE 200
1100 IF HI >= K THEN GOTO 1200
1110 POKE 16514,K
1120 SCROLL
1130 SCROLL
1140 PRINT "CONGRATULATIONS. NEW HI-SCORE"
1200 SCROLL
1210 SCROLL
1220 PRINT "DO YOU WANT TO PLAY AGAIN (Y/N)?"
1230 PAUSE 5E4
1240 IF INKEY$="Y" THEN RUN
1250 CLS