      BALLBREACK -   .
      ------------------------------------------
      "BALLBREAC"
     
.  :
IF YOU HAVE AY PRESS ENTER -
    AY8910/12   ENTER.
IF YOU WANT INFINITIVE LIVE PRESS ENTER -
       ENTER.

    'S'    "" 
""      "7007".   
  4200H.   "KORWET.PCX"  
 "".  "UNPAC.MAC"   
 PCX       
,    ,  
 .    /  -
   "BALLBREAC"    .  
   ,    
  -      -
 .
;  
	LD      B,3             ;  
	LD	HL,D8058	;  = 5*B
A9968:	LD	(HL),20H	; . 
	INC	HL		;   -
	LD	(HL),0FFH	;    
	INC	HL		;0 -  
	LD	(HL),0FFH	;1 -     . ''
	INC	HL		;2 - -  . ''
	LD	(HL),0		;3 -    . ''
	INC	HL		;4 - -  . ''
	LD	(HL),0
	INC	HL
	DJNZ	A9968
	LD	HL,TEXT9
	CALL	MSG
	LD	B,3
	LD	DE,D8058
	LD      HL,TEXT11       ;  
A997E:  PUSH    BC
	PUSH	DE
	CALL	MSG		;/ 
	EX	(SP),HL
	PUSH	HL
A9990:	POP	DE
	PUSH	DE
	CALL	KBRD		; 
	LD	(MX+1),A	;  
	CALL	SCANER		;  
	CALL	INKEY		;/ 0F81BH
MX:	CP	0
	JR	NZ,A9990
	CALL	KBRD0		;   
	POP	DE
	LD	A,(MX+1)
	LD	(DE),A
	INC	DE
	INC	DE
	INC	DE
	INC	DE
	INC	DE
	POP	HL
	POP	BC
	DJNZ	A997E
	RET
;
SCANER:	LD	BC,7F00H	;   
	CALL	SCAN0
	RET	C
	LD	BC,7FFFH	;   
	CALL	SCAN0
	RET	C
	LD	A,80H
	LD	(MX+1),A
	RET
;
SCAN0:	LD	HL,0F402H
SCAN2:	PUSH	DE
	INC	DE
	LD	(HL),C
	LD	A,C
	LD	(DE),A
	INC	DE
	LD	L,0
	LD	(HL),B
	LD	A,B
	LD	(DE),A
	INC	DE
	INC	L
	LD	A,(HL)
	CPL
	OR	A
	LD	(DE),A
	JR	NZ,SCAN1
	INC	DE
	INC	L
	LD	A,(HL)
	CPL
	AND	0E0H
	LD	(DE),A
	JR	NZ,SCAN1
	POP	DE
	RRC	B
	RET	NC
	JR	SCAN2
SCAN1:	POP	DE
	SCF
	RET
;
;  
;
	LD	E,0
	LD	B,3
	LD	HL,D8058
A9866:	INC	HL
	LD	A,(HL)
	INC	HL
	LD	(0F402H),A
	LD	A,(HL)
	LD	(0F400H),A
	INC	HL
	LD	A,(0F401H)
	CPL
	AND	(HL)
	INC	HL
	JR	NZ,A9868
	LD	A,(0F402H)
	CPL
	AND	(HL)
A9868:	INC	HL
	JR	Z,$+3
	SCF
	RL	E
	DJNZ	A9866
A98A3:	LD	A,E
	LD	(D8073),A
	RET
 	ͺ	^#Vr###^#Vs#rr ^#V^#Vr ^#V^#Vr* ++p+q"