Listing of file='TANK.BAS;01' on disk='vmedia/cm_0-4_paddle_games-original-sector.ccvf'
10 REM COPYRIGHT (C) 1980 BY COLOR-MOD ENTERPRISES 20 REM ALL RIGHTS RESERVED 30 REM 40 REM TANK BATTLE BY JIM AMOS 50 REM 60 POKE 40951,10 70 OUT 8,255:POKE 33209,0:POKE 33210,0 80 PLOT 6,0,12,15,27,24:E= 0:D= 0 90 GOSUB 590:OUT 8,247 100 GOSUB 550 110 CRT= 28672:A= CRT+ 512+ 11:B= CRT+ 3456+ 119 120 FOR T= 1TO 5:C= CALL (150):NEXT 130 FOR N= 1TO 4:C= CALL (32* N):NEXT 140 POKE A,24:POKE B,32:A1= A:B1= B 150 C= CALL (10) 160 IF PEEK (33210)= 3THEN 750 170 IF INP (1)= 251OR INP (1)= 243THEN GOSUB 310 180 X= CALL (1) 190 IF X> 52THEN A2= 128:GOTO 240 200 IF X> 40THEN A2= 2:GOTO 240 210 IF X> 24THEN A2= - 128:GOTO 240 220 IF X> 12THEN A2= - 2:GOTO 240 230 A2= 128 240 IF INP (1)= 247OR INP (1)= 243THEN GOSUB 410 250 X= CALL (2) 260 IF X> 52THEN B2= 128:GOTO 510 270 IF X> 40THEN B2= 2:GOTO 510 280 IF X> 24THEN B2= - 128:GOTO 510 290 IF X> 12THEN B2= - 2:GOTO 510 300 B2= 128:GOTO 510 310 LT= 5:ZA= A:POKE 40951,5 320 ZA= ZA+ A2:ZB= PEEK (ZA) 330 LT= LT+ 1:C= CALL (LT) 340 IF ZB< 8THEN POKE ZA,24:GOTO 320 350 ZA= A 360 ZA= ZA+ A2:ZD= PEEK (ZA):IF ZD= 24THEN POKE ZA,0:GOTO 360 370 POKE 40951,10 380 IF ZB< > 32THEN RETURN 390 E= E+ 1:FOR N= 0TO 9:POKE B,RND (1)* 63:C= CALL (50):NEXT 400 GOSUB 550:GOSUB 580:GOTO 110 410 LT= 5:XA= B:POKE 40951,5 420 XA= XA+ B2:XB= PEEK (XA) 430 LT= LT+ 1:C= CALL (LT) 440 IF XB< 8THEN POKE XA,32:GOTO 420 450 XA= B 460 XA= XA+ B2:XD= PEEK (XA):IF XD= 32THEN POKE XA,0:GOTO 460 470 POKE 40951,10 480 IF XB< > 24THEN RETURN 490 D= D+ 1:FOR N= 0TO 9:POKE A,RND (1)* 63:C= CALL (50):NEXT 500 GOSUB 550:GOSUB 580:GOTO 110 510 IF PEEK (A+ A2)< 8THEN A= A+ A2 520 IF PEEK (B+ B2)< 8THEN B= B+ B2 530 POKE A1,0:POKE B1,0 540 GOTO 140 550 PLOT 3,12,31:PRINT E 560 PLOT 3,48,31:PRINT D 570 RETURN 580 POKE A,0:POKE B,0:RETURN 590 PLOT 14,12,3,26,2:PRINT " TANK BATTLE" 600 PLOT 2,0,0,242,127,0,127,127,0,127,0,0,255 610 FOR N= 1TO 10:C= CALL (RND (1)* 150+ 100):NEXT 620 PLOT 3,8,7 630 PRINT "1) BEGINNER 2) INTERMIDIATE 3) ADVANCED" 640 PLOT 3,17,12 650 INPUT "ENTER PLAYING GRID NUMBER > ";GN 660 IF GN> 3OR GN< 1THEN 590 670 FOR N= 1TO 4:C= CALL (100):C= CALL (200):NEXT 680 PLOT 27,4:PRINT "LOA GRID.DSP;";GN:PLOT 27,27 690 PLOT 6,21,14,3,26,1:PRINT "TANK BATTLE" 700 PLOT 15,3,10,30:PRINT "PLAYER 1" 710 PLOT 3,46,30:PRINT "PLAYER 2" 720 PLOT 3,10,31,32,32,32,32,32,32,32,32 730 PLOT 3,46,31,32,32,32,32,32,32,32,32 740 RETURN 750 OUT 8,255:PLOT 3,26,30:PRINT " GAME OVER" 760 FOR N= 1TO 15:C= CALL (10* N):NEXT 770 FOR N= 1TO 200:NEXT 780 C= CALL (255):C= CALL (127):C= CALL (255):C= CALL (63) 790 PLOT 3,24,31:PRINT "PLAY AGAIN? (Y/N)" 800 POKE 33278,0 810 IF PEEK (33278)= 78THEN POKE 40951,32:LOAD "MENU":RUN 820 IF PEEK (33278)= 89THEN 30 830 GOTO 810