Listing of file='STUKA.BAS;01' on disk='vmedia/cm_0-4_paddle_games-original-sector.ccvf'
100 REM COPYRIGHT (C) 1980 BY COLOR-MOD ENTERPRISES 110 REM ALL RIGHTS RESERVED 120 REM 130 REM S T U K A BY JIM AMOS 140 REM 150 PLOT 6,0,12,30,27,24 160 SC= 0:X1= 120:X2= 80:OUT 8,255:OUT 8,4:GOSUB 640 170 POKE 40951,16 180 POKE 33209,0:POKE 33210,0 190 FOR N= 10TO 30STEP 10:FOR M= NTO N+ 20:C= CALL (M):NEXT M,N 200 F= 205+ 2* CALL (2) 210 IF F> 280THEN A= 1:GOTO 240 220 IF F> 260THEN A= 2:GOTO 240 230 A= 3 240 F= F/ 57.3 250 X1= X1+ 2* SIN (F) 260 X2= X2+ 4* COS (F) 270 IF X1< 1THEN X1= 124 280 IF X2> 124OR X2< 12THEN 670 290 GOSUB 450:ON FGGOTO 320 300 IF INP (1)< > 255THEN GOSUB 550:GOSUB 490:C= CALL (50) 310 GOTO 330 320 PLOT 6,4:G= G+ G* .1:BX= BX- XV:BY= BY- YV- G:GOSUB 500 330 POKE SP- 1,32:ON SFGOTO 380 340 POKE SP- 1,42:POKE SP,1:SL= INT (X2/ 4)- 2:C= CALL (50) 350 POKE SP- 1,32:SP= 32257+ TX* 2:C= CALL (50):SF= 1 360 IF TX< X1/ 2THEN SX= - 126:GOTO 380 370 SX= - 130 380 SP= SP+ SX:IF PEEK (SP)= 134THEN 670 390 C= CALL (5):SL= SL- 1:IF SL= 0THEN SF= 0 400 POKE SP- 1,46:POKE SP,3 410 IF PEEK (33210)= 2THEN 720 420 ON FGGOSUB 490 430 PLOT 6,0:GOSUB 450:PLOT 6,6 440 GOTO 200 450 ON AGOTO 460,470,480 460 PLOT 2,X1,X2,251,153,154,255:RETURN 470 PLOT 2,X1,X2,251,136,136,130,255:RETURN 480 PLOT 2,X1,X2,251,170,166,255:RETURN 490 PLOT 6,0:IF BX< 0THEN FG= 0:C= CALL (100):RETURN 500 IF BY< 12OR BX< 0THEN 520 510 PLOT 2,BX,BY,255:RETURN 520 FG= 0:FOR N= 1TO 3:C= CALL (10):NEXT 530 T= INT (BX/ 2):IF T= TXOR T= TX+ 1THEN 570 540 RETURN 550 XV= X1- (X1+ 2* SIN (F)):YV= X2- (X2+ 4* COS (F)) 560 G= 1:FG= 1:BX= X1:BY= X2:PV= INT (128- X2):RETURN 570 PLOT 29,3,127,TX,29,11,116,117:C= CALL (100) 580 PLOT 30,3,127,TX- 1,29,3,116,105,103,117:C= CALL (100) 590 PLOT 3,127,TX- 2,29,3,116,32,32,32,32,117:C= CALL (100) 600 PLOT 3,127,TX- 2,29,3,32,127,127,127,127,32 610 PLOT 3,127,TX,30,17:PRINT PV:SC= SC+ PV 620 FOR N= 1TO 5:FOR P= 15TO 25:C= CALL (P):NEXT P,N 630 GOSUB 640:GOSUB 450:GOTO 200 640 PLOT 29,14,6,16,3,0,30,11,15 650 TX= INT (RND (1)* 38+ 10) 660 PLOT 3,127,TX,29,3,116,117,30,6,6:RETURN 670 FOR N= 1TO 20:C= CALL (20) 680 PLOT 6,RND (1)* 63,27,25,96:NEXT 690 PLOT 14,6,0,12 700 PLOT 6,1,3,26,15:PRINT "YOU BLEW IT" 710 GOTO 760 720 PLOT 6,2,12 730 PLOT 14,3,26,15:PRINT "YOU MADE IT" 740 PLOT 6,4,3,26,20:PRINT "YOUR SCORE" 750 PLOT 6,3,3,29,22:PRINT SC 760 C= CALL (200):PLOT 3,25,27:PRINT "ANOTHER GAME?"; 770 POKE 33278,0:PLOT 3,64,0:C= CALL (150):OUT 8,255 780 IF PEEK (33278)= 89THEN RUN 790 IF PEEK (33278)= 78THEN PLOT 12:LOAD "MENU":RUN 800 GOTO 780