BLOCK HIT (Katsuhisa Tagaki)

Title – BLOCK HIT
System – Nintendo Family BASIC
Author – Katsuhisa Tagaki (田垣勝久)
Publication – Program Pochette No. 11  (プログラムポシェット No. 11) July 1985
Page Scans – 1 2
Preserved By – ozidual
Recommended Emulator – Mesen

Download ROM

Translated Article:

This game is the Famicom version of “Deru Kui wa Utarareru” for the PC-6001. Use the A and B buttons on controller 1 to move Penpen left and right to destroy the blocks that appear from below. If Penpen is directly above a block, it will be automatically destroyed. If the block breaks through the line below you, the game is over. Press the start button to replay. My high score was 399 points.

Variable List:

• S – Score
• X – Your X coordinate
• N(n) – Block coordinates
• T – For tri-phase input
• V – own coordinate increment
• I, R – Odd jobs

Program Description:

2-4 – initial settings
5 – Screen creation
6-9 – main
10 – music and game over
11 – waiting for trigger input

ERRATA from Program Pochette No. 12:

For V1 users, please change ON STRIG(0)<>1 GOTO4 to IF STRIG(0)=1 THEN4

Lives are stored in the variable “N”. If you initialize it to a higher value
on line 30, then you will have more lives.

Remove the “N=N-1:” from line 150 to never lose any lives.

Code:

2 CGSET,2:DEFSPRITE0,(0,1,0,0,0)=”ケコサシ”:DIMN(14)
4 CLS:SPRITEON:SPRITE0:FORI=0TO14:N(I)=23:NEXT
5 S=0:X=6:FORI=0TO27:LOCATEI,3:PRINT”_”;:NEXT:LOCATE-1,0:PRINT”SCORE”;S;
6 LOCATE14,0:PRINTS;:T=STRIG(0):SPRITE0,X*16+16,32:IFN(X)<23THENLOCATEX+X,N(X):PRINT” “;:LOCATEX+X,N(X)+1:PRINT” “;:PLAY”T1O2C0″:N(X)=N(X)+2:S=S+1
7 V=-(T=4)*(X>0)+(T=8)*(X<13):R=RND(14):IFR=X THEN7
9 N(R)=N(R)-2:LOCATER+R,N(R):PRINTCHR$(243)+CHR$(247):LOCATER+R,N(R)+1:PRINTCHR$(245)+CHR$(248);
:IFN(R)>3THENX=X+V:GOTO6
10 PLAY”T1O3C0DEFGABDCECC”:LOCATE-1,10:PRINT”GAME OVER”
11 ONSTRIG(0)GOTO4:GOTO11