﻿Title: BLOCK HIT
System: Family Basic
Author: 田垣勝久 (Katsuhisa Tagaki)
Publication: プログラムポシェット No. 11 (Program Pochette No. 11)
Page Scans: 
Preserved By: ozidual
Recommended Emulator: VirtualNES

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


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