Listing of file='6P16.BAS;01' on disk='vmedia/color_graphics_2_suits-sector.ccvf'
5 REM PROGRAM 6.16 6 REM INCREMENTAL Y BAR GRAPH DEMO 10 DEF FN R(R)= INT (R* RND (1))+ 1 20 Y0= 25:REM Y0 IS KEPT CONSTANT, JUST FOR LOOKS 30 PLOT 6,FN R(63),12:REM ERASE SCREEN IN A RANDOM COLOR 40 PLOT 3,64,0:REM HIDE CURSOR 49 50 FOR J= 1TO FN R(20)+ 5:REM RANDOM NUMBER OF FIGURES 60 PLOT 6,FN R(63):REM CHOOSE RANDOM COLOR FOR EACH 68 69 REM RANDOMLY SET THE FLAG ON OR OFF 70 PLOT 29:IF RND (1)> .5THEN PLOT 30 79 80 PLOT 2:REM GENERAL PLOT MODE 90 PLOT 246:REM Y BAR GRAPH SUBMODE 98 99 REM CHOOSE RANDOM X AND Y1, BUT NOT TOO CLOSE TO BORDERS 100 X= FN R(80)+ 20 110 Y1= FN R(80)+ 20 119 120 PLOT Y0,X,Y1:REM DRAW A VERTICAL BAR 130 PLOT 243:REM INCREMENTAL Y BAR GRAPH SUBMODE 140 INC= FN R(239):REM RANDOM INCREMENTAL VALUE 150 T= FN R(20):REM RANDOM NUMBER OF THOSE INCREMENTS 159 160 FOR K= 1TO T:PLOT INC:NEXT 169 170 PLOT 255:REM PLOT MODE ESCAPE 180 NEXT 189 190 FOR J= 1TO 2500:NEXT :REM PAUSE 199 200 GOTO 30