Simple Heathkit H-89 Microsoft MBASIC ball and paddle game using H-19 terminal commands

Use the keyboard's arrow keys to move a "paddle" cursor around on the screen to intercept the path of a moving "ball" and bounce it against top of the screen.

Demonstrates use of the Heathkit H-19 terminal cursor positioning commands.

PADDLE.BAS

10 'PADDLE.BAS 
11 'COPYRIGHT (C)1982 STEVEN WHITNEY.
12 'Published under GNU GPL (General Public License) Version 3, with ABSOLUTELY NO WARRANTY.
13 'FOR H89 OR H100. DEMONSTRATES USE OF THE H19 TERMINAL'S CURSOR POSITIONING COMMANDS.
14 'Initially published by http://25yearsofprogramming.com.
15 REM PRINT CHR$(27)"E"
16 TEST=1000
17 C=11 : R=11 : I=1 : J=1
20 DIM A(25,81)
30 FOR M=1 TO 5
40 	FOR N=1 TO 80
50 		VA=ABS(M-6)
60 		A(M,N)=VA
70 		PRINT CHR$(27)"Y";CHR$(M+31);CHR$(N+31);MID$(STR$(A(M,N)),2,1)
80 NEXT N,M
90 REM GAME STARTS HERE
100 DEFINT C,R,V,H,I,J
110 C=11 : R=11 : I=1 : J=1
120 REM
121 	X$=INKEY$
123 	IF X$=CHR$(32) THEN C=C+1
130 	IF C+HVEC>=80 OR C+HVEC<=1 THEN I=-I
140 	IF R+RVEC>=23 OR R+RVEC<=1  THEN J=-J
150 	HVEC=HVEC+I
160 	RVEC=RVEC+J
170 	REM PRINT CHR$(27)"E"
180 	PRINT CHR$(27)"Y";CHR$(31+R+RVEC-J);CHR$(31+C+HVEC-I);" "
190 	PRINT CHR$(27)"Y";CHR$(31+R+RVEC);CHR$(31+C+HVEC);"X";
199 	IF C+HVEC>80 THEN C=11 : HVEC=0
200 	IF A(R+RVEC,C+HVEC)>0 THEN SCORE=SCORE+A(R+RVEC,C+HVEC):PRINT CHR$(7):A(R+RVEC,C+HVEC)=0 : GOSUB 220
201 	L=L+1 : IF L=5000  THEN 300
202 	IF SCORE>TEST THEN  TEST=TEST+1000 : GOTO 30
210 GOTO 120
220 J=-J
230 REM IF J>0 THEN I=-I
240 RETURN
300 PRINT:PRINT:PRINT "SCORE IS: ";SCORE : END

	Search the web Search this site
Copyright ©2010 Steven Whitney. Last modified Thu 10/21/2010 02:08:03 -0700.