Listing of file='6P21.BAS;01' on disk='vmedia/color_graphics_2_suits-sector.ccvf'
5 REM PROGRAM 6.21 6 REM RANDOM FLYING WEDGES 10 C= 63* RND (1)+ 1:REM CHOOSE RANDOM COLOR 20 PLOT 6,C 30 PLOT 12:REM ERASE SCREEN 40 PLOT 3,64,0:REM HIDE CURSOR 49 50 N= 5* RND (1)+ 2:REM 2 TO 6 FLYING WEDGES 59 60 FOR J= 1TO N 70 GOSUB 200:REM DRAW IT 80 NEXT 89 90 FOR J= 1TO 2500:NEXT :REM PAUSE 99 100 GOTO 10:REM BACK FOR SOME MORE 194 195 196 REM ***** SUBROUTINE TO DRAW A FLYING WEDGE ***** 197 198 REM DON'T GET TOO CLOSE TO EDGES OF SCREEN, AND, 199 REM JUST FOR LOOKS, USE 50 AS MINIMUM Y 200 X1= 75* RND (1):Y1= 25* RND (1)+ 50 210 X2= X1+ 10* RND (1)+ 40:Y2= Y1+ 10* RND (1)+ 40 219 220 PLOT 29,8* RND (1)+ 16:REM CHOOSE RANDOM FOREGROUND COLOR 230 IF RND (1)> .5THEN PLOT 30:REM FLAG RANDOMLY ON 239 240 PLOT 2,X1,Y1,242,X2,Y2:REM DRAW A VECTOR 250 PLOT 240:REM INCREMENTAL VECTOR PLOT SUBMODE 259 260 FOR K= 1TO 45 270 PLOT 149:REM INCREMENT 280 NEXT 289 290 PLOT 255:REM PLOT MODE ESCAPE 300 RETURN