10 REM ********************
20 REM * * 30 REM * PELOTA REBOTANTE * 40 REM * * 50 REM ******************** 60 REM 70 REM 100 REM %%%%%% INICIALIZACION %%%%%%%%%% 105 REM 150 LET px=640 160 LET PY=192 170 LET px=px-1 180 LET py=py-1 190 LET h=0.1 195 REM 200 REM %POSICION INICIAL DE LA PELOTA% 205 REM 210 LET X=0 220 LET y=py 230 LET u=0 240 LET v=py 250 LET vv=0 260 LET n=0 295 REM 300 REM %%%%%%% ENTRADA DE DATOS %%%%%%% 305 REM 310 MODE 1:CALL &BC02 320 PRINT " ### DATOS PARA LA PELOTA ###" 330 PRINT 335 PRINT 340 INPUT " VELOCIDAD INICIAL DE LA PELOTA ";vh 350 PRINT 380 LET t=0 390 INPUT " QUIERE EL RASTRO, (S/N)";d$ 400 PRINT 420 IF UPPER$(d$)="S" THEN LET t=1 425 IF UPPER$(d$)="N" THEN END 430 PRINT 440 PRINT" CUANDO LO HAYA VISTO PULSE UNA TECLA" 460 INK 1,26:INK 0,0:BORDER 0 495 REM 500 REM %%%%% LAZO PARA CALCULAR %%%%%%% 505 REM 506 PLOT 1,200:DRAW 639,200:DRAW 639,0 507 DRAW 1,0:DRAW 1,200 510 LET x=x+vh*h 520 LET vv=vv+32*h 530 LET y=y-vv*h+16*h*h 540 IF y<=0 THEN GOSUB 710 550 IF x>=px THEN GOSUB 810 560 IF x<=0 THEN GOSUB 910 570 IF t=0 THEN GOSUB 1110 580 GOSUB 1310:REM SONIDO APAGADO 590 LET u=INT(x) 600 LET v=INT(y) 610 PLOT u,v+3 620 IF n<16 THEN 510 630 CALL &BB18 640 MODE 1 650 LOCATE 10,5:PRINT"® DESEA CONTINUAR ?" 655 LOCATE 13,7 :PRINT " (S/N)" 656 LOCATE 17,9 :INPUT g$ 660 IF UPPER$(g$)="S" THEN CALL &BC02:GOTO 210 670 CALL &BC02 680 END 695 REM 700 REM %%%%%%% REBOTE EN TIERRA %%%%%%% 705 REM 710 LET y=0 720 LET vv=-0.7*vv 730 LET n=n+1 740 GOSUB 1210:REM SONIDO ACTIVADO 750 RETURN 795 REM 800 REM %%% REBOTE HACIA LA DERECHA %%% 805 REM 810 LET X=PX 820 LET vh=-0.8*vh 830 GOSUB 1210:REM SONIDO ACTIVADO 840 RETURN 895 REM 900 REM %% REBOTE HACIA LA IZQUIERDA %% 905 REM 910 LET x=0 920 LET vh=-0.8*vh 930 GOSUB 1210:REM SONIDO ACTIVADO 940 RETURN 1105 REM 1110 REM %%%%%%%%%% NO DIBUJA %%%%%%%%%% 1115 REM 1120 RETURN 1195 REM 1200 REM %%%%%% EFECTOS DE SONIDO %%%%%% 1205 REM 1210 LOCATE 1,1:PRINT CHR$(7) 1220 RETURN 1295 REM 1300 REM %%%%% EFECTOS DE NO SONIDO %%%% 1305 REM 1310 RETURN |