Listing of file='6P13.BAS;01' on disk='vmedia/color_graphics_2_suits-sector.ccvf'
5 REM PROGRAM 6.13 6 REM ERASE SCREEN USING X BAR GRAPH 10 PLOT 6,2:REM SET COLOR 17 18 REM NOW, FOR THE SAKE OF THE DEMONSTRATION, 19 REM USE THE TEST MODE TO FILL THE SCREEN WITH SOMETHING 20 PLOT 27,25:REM TEST MODE 30 PLOT 65:REM FILL THE SCREEN WITH "A"'S 39 40 PLOT 3,64,0:REM HIDE THE CURSOR 50 PLOT 6,0:REM COLOR=BLACK 59 60 PLOT 2:REM GENERAL PLOT MODE 70 PLOT 250:REM X BAR GRAPH SUBMODE 80 PLOT 0:REM X0=0 88 89 REM ERASE THE SCREEN 90 FOR Y= 0TO 125STEP 4 100 PLOT Y,127:REM Y0 AND X1 110 NEXT 119 120 PLOT 255 130 PLOT 6,2:REM RETURN TO SOME COLOR