Listing of file='6P17.BAS;01' on disk='vmedia/color_graphics_2_suits-sector.ccvf'
5 REM PROGRAM 6.17 6 REM EXPLOSION USING VECTOR PLOT SUBMODE 10 PLOT 15,6,6,12:REM SET UP 20 PLOT 27,24:REM PAGE MODE 29 30 PLOT 6,16:REM BACKGROUND = GREEN 40 PLOT 3,0,31,11:REM ERASE BOTTOM LINE IN GREEN 50 Y= 4:REM EXPLOSION IS ALWAYS AT GROUND LEVEL 99 100 PLOT 6,6 110 PLOT 8,11:REM ERASE ANY PREVIOUS INPUT 120 INPUT "X CO-ORDINATE (6-120)? ";X$ 130 X= VAL (X$) 140 IF X< 6OR X> 120THEN 100 149 150 GOSUB 5000 160 GOTO 100 4997 4998 REM ***** SUBROUTINE TO PLOT EXPLOSION ***** 4999 5000 PLOT 29:REM FLAG OFF 5010 PLOT 19:REM YELLOW 5020 PLOT 2:REM GENERAL PLOT MODE 5029 5030 PLOT X,Y,242:REM FIRST POINT, THEN ENTER VECTOR PLOT 5038 5039 REM SOME VECTORS 5040 PLOT X- 2,Y+ 21,253,X,Y,242,X+ 3,Y+ 7,253,X,Y,242,X- 3,Y+ 15 5049 5050 FOR J= 1TO 150:NEXT :REM SLIGHT PAUSE 5058 5059 REM NOW FOR A FEW POINTS 5060 PLOT 253,X,Y+ 13,X- 2,Y+ 7,X+ 2,Y+ 20 5068 5069 REM ANOTHER VECTOR 5070 PLOT X,Y,242,X+ 5,Y+ 20 5079 5080 PLOT 255,16:REM CHANGE COLOR TO BLACK 5088 5089 REM ERASE ONE OF THE VECTORS 5090 PLOT 2,X,Y,242,X- 3,Y+ 15 5099 5100 PLOT 255,23:REM NEW COLOR = WHITE 5108 5109 REM SOME MORE POINTS 5110 PLOT 2,X- 1,Y+ 20,X+ 3,Y+ 25 5118 5119 REM SOME MORE VECTORS 5120 PLOT X,Y,242,X+ 2,Y+ 11,253,X,Y,242,X- 1,Y+ 30 5130 PLOT 253,X,Y,242,X+ 1,Y+ 8 5139 5140 PLOT 255,16:REM BLACK AGAIN TO ERASE EVERYTHING 5149 5150 PLOT 2,X,Y,242,X+ 2,Y+ 11,253,X,Y,242,X+ 5,Y+ 20 5160 PLOT 253,X,Y,242,X+ 1,Y+ 8,253,X,Y,242,X- 1,Y+ 30 5169 5170 FOR J= 1TO 50:NEXT :REM SLIGHT PAUSE 5179 5180 PLOT 253,X,Y+ 13,X- 2,Y+ 7,X+ 2,Y+ 20,X,Y,242,X- 2,Y+ 21 5190 PLOT 253,X,Y,242,X+ 3,Y+ 7,253,X- 1,Y+ 20,X+ 3,Y+ 25,255 5199 5200 RETURN :REM NOTE THAT THIS SUBROUTINE RETURNS WITH 5201 REM COLOR=BLACK AND THE FLAG OFF