25 Years of Programming
An open source source for C, C++, OWL, BASIC, MDB, XLS, DOT, and more...
Home   Projects   Up   Sitemap   Search   Blog   Forum+Chat   About Us   Privacy   Terms of Use   Feedback   FAQ   Images   Services   Ads   Donate   Humor

Bounce a moving dot against top of screen. Demonstrates Heathkit H19 cursor positioning commands.

10 'PADDLE.BAS 
11 'COPYRIGHT (C)1982 STEVEN WHITNEY.
12 'Published under GNU GPL (General Public License) Version 2, 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

 

 

Valid HTML 4.01 Transitional Valid CSS
View content labeling at ICRA.
Copyright ©2007 Steven Whitney. Last modified 09/25/2007.