Listing of file='CHASE.BAS;01' on disk='vmedia/cm_0-4_paddle_games-sector.ccvf'
10 REM COPYRIGHT(C)1980 BY COLOR-MOD ENTERPRISES 20 REM ALL RIGHTS RESERVED 30 REM 40 REM SUB-CHASE BY JIM AMOS 50 REM 60 PLOT 6,4,12,15,27,25,96,6,2:CLEAR 30 70 FOR N= 0TO 9:C= CALL (100):NEXT 80 FOR N= 0TO 9:PLOT 3,0,N,11:NEXT 90 PLOT 27,24,2,0,127,242,127,127,127,116,0,116,0,127,255 100 PLOT 2,246,116,43,127,85,127,255:GOSUB 610 110 PLOT 3,5,1:PRINT " SUB-CHASE " 120 PLOT 3,24,1:PRINT " SCORE " 130 PLOT 3,46,1:PRINT " TIME " 140 DEF FN P(A)= INT (RND (1)* A+ 15) 150 SL= FN P(10):SI= 58:SV= 1:CY= 10:TM= 500:CH= 1 160 RN= INT (RND (1)* 30+ 20) 170 OUT 8,255:OUT 8,247 180 A$= ".l a kqk b" 190 B$= "| ~" 200 C$= "` `````" 210 D$= " ``" 220 E$= "````````" 230 ON CHGOTO 270 240 PLOT 3,127,CX,CY,4,96 250 CY= CY+ 1:IF CY> 31THEN CY= 10:C= CALL (255):CH= 1:GOTO 270 260 PLOT 3,127,CX,CY,2,96:GOTO 280 270 IF INP (1)= 247THEN CH= 0:C= CALL (25):GOSUB 650 280 P2= CALL (2):IF P2= RNTHEN GOSUB 610 290 IF P2> RNTHEN RN= RN+ 1:GOSUB 610 300 IF P2< RNTHEN RN= RN- 1:GOSUB 610 310 PLOT 3,127,SI,SL,4:PRINT C$:PLOT 3,127,SI,SL+ 1,4:PRINT D$ 320 C= CALL (40) 330 IF CY= SL+ 1THEN 350 340 GOTO 400 350 SI= INT (SI):IF CX= SITHEN 770 360 IF CX= SI+ 1THEN 770 370 IF CX= SI+ 2THEN 770 380 IF CX= SI+ 3THEN 770 390 IF CX= SI+ 4THEN 770 400 SI= SI- SV:IF SI= 0THEN GOSUB 660:SI= 58:MM= MM+ 1 410 TM= TM- 1:IF TM< 0THEN 900 420 PLOT 3,127,55,1,2,32,32,32,32,32:PLOT 3,127,55,1,2:PRINT TM 430 ON TFGOTO 450 440 IF SC> 8000THEN GOSUB 750:TF= 1:TM= TM+ 100 450 ON MFGOTO 480 460 IF INT (SI)= RN+ 4THEN MF= 1:C= CALL (10):GOSUB 740 470 GOTO 230 480 PLOT 3,127,MX,MY,4,96:MY= MY- 1 490 IF MY< 10THEN MF= 0:FOR N= 1TO 5:C= CALL (9):NEXT :GOTO 520 500 PLOT 3,127,MX,MY,24,106 510 GOTO 230 520 IF MX= RNTHEN 840 530 IF MX= RN+ 1THEN 840 540 IF MX= RN+ 2THEN 840 550 IF MX= RN+ 3THEN 840 560 IF MX= RN+ 4THEN 840 570 IF MX= RN+ 5THEN 840 580 IF MX= RN+ 6THEN 840 590 IF MX= RN+ 7THEN 840 600 GOTO 230 610 IF RN> 53THEN RN= 53:RETURN 620 IF RN< 5THEN RN= 5:RETURN 630 PLOT 3,0,8,11,3,127,RN,8,7:PRINT A$ 640 PLOT 3,0,9,11,3,127,RN,9,56:PRINT B$:RETURN 650 PLOT 3,RN,CY,96:CX= RN:RETURN 660 PLOT 3,127,SI,SL,4:PRINT E$ 670 PLOT 3,127,SI,SL+ 1,4:PRINT E$ 680 R= RND (1)* 15:SL= FN P(R):SF= 0:R= INT (RND (1)* 4) 690 ON RGOTO 710,720,730 700 SV= .25:RETURN 710 SV= .5:RETURN 720 SV= 1:RETURN 730 SV= 2:RETURN 740 PLOT 3,127,SI,SL- 1,24,106:MX= INT (SI):MY= SL- 1:RETURN 750 PLOT 3,46,4:PRINT " EXTENDED TIME":FOR N= 1TO 3 760 FOR M= 10TO 30:C= CALL (M):NEXT M,N:RETURN 770 FOR N= 1TO 5:C= CALL (50) 780 CL= RND (1)* 64 790 PLOT 3,127,SI,SL,CL:PRINT LEFT$ (E$,5) 800 PLOT 3,127,SI,SL+ 1,CL:PRINT LEFT$ (E$,5) 810 NEXT :GOSUB 660 820 CY= 10:CH= 1:SI= 58:SS= SS+ 1:VS= SV* 200 830 HT= SL* 30+ VS:SC= SC+ HT:PLOT 3,34,1:PRINT SC:GOTO 230 840 FOR N= 1TO 5:C= CALL (75) 850 CL= RND (1)* 64 860 PLOT 3,127,RN,8,CL:PRINT E$ 870 PLOT 3,127,RN,9,CL:PRINT E$ 880 NEXT :PLOT 3,0,8,11,3,0,9,11 890 PLOT 14,3,27,20:PRINT " YOU LOSE":OUT 8,255:GOTO 980 900 PLOT 14,3,10,25 910 PRINT "HITS : ";SS;" MISSES : ";MM 920 IF SC< 2000THEN 960 930 IF SS> 13THEN R$= " EXPERT":GOTO 970 940 IF SS> 10THEN R$= " GOOD":GOTO 970 950 IF SS> 7THEN R$= " O.K.":GOTO 970 960 R$= " LOUSY" 970 PLOT 3,40,25:PRINT "RATING : ";R$:OUT 8,255 980 GOSUB 1040 990 PLOT 3,24,27:PRINT "ANOTHER GAME ? ":POKE 33278,0 1000 IF PEEK (33278)= 89THEN GOSUB 1030:GOTO 60 1010 IF PEEK (33278)= 78THEN PLOT 12:LOAD "MENU":RUN 1020 GOTO 1000 1030 SS= 0:SC= 0:MM= 0:CH= 1:TF= 0:MF= 0:SF= 0:RETURN 1040 REM MUSIC 1050 FOR N= 1TO 51:READ P,D:POKE 40957,D/ 4 1060 C= CALL (P):NEXT :RESTORE :RETURN 1070 DATA 96,162,101,154,96,255,191,162,191,162,128,122 1080 DATA 143,109,152,102,128,122,96,255,96,255 1090 DATA 101,154,96,162,85,255,170,182,170,182,85,183 1100 DATA 96,162,101,154,85,183,128,244,128,244 1110 DATA 113,138,101,154,96,162,101,154,113,138 1120 DATA 128,122,113,138,128,122,143,109,152,102 1130 DATA 143,109,152,102,170,92,191,81 1140 DATA 170,92,191,81,202,77,227,68 1150 DATA 255,61,191,81,202,77,170,92,191,81,152,102 1160 DATA 170,92,143,109,152,204,191,162,191,162