Compucolor.org – Virtual Media

Listing of file='STUKA.BAS;01' on disk='vmedia/cm_0-4_paddle_games-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