|
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
|
|
|
|
|
|