Listing of file='6P14.BAS;01' on disk='vmedia/color_graphics_2_suits-sector.ccvf'
5 REM PROGRAM 6.14 6 REM ERASE SCREEN USING X BAR GRAPH & FLAG ON 10 PLOT 30:REM FLAG ON 20 PLOT 6,2:REM CHOOSE COLOR 30 PLOT 27,25:REM TEST MODE 40 PLOT 65:REM FILL THE SCREEN WITH SOMETHING 50 PLOT 3,64,0:REM HIDE THE CURSOR 60 PLOT 6,6:REM CHOSE A COLOR FOR THE ERASING BAR 70 PLOT 2:REM GENERAL PLOT MODE 80 PLOT 250:REM X BAR GRAPH 90 PLOT 0,0,127:REM FIRST BAR 99 100 FOR Y= 1TO 127 110 PLOT Y- 1,127:REM ERASE LAST BAR 120 PLOT Y,127:REM PLOT NEW BAR 130 NEXT 139 140 PLOT Y- 1,127:REM ERASE VERY LAST BAR 150 PLOT 255:REM PLOT MODE ESCAPE 160 PLOT 29:REM FLAG OFF, FOR CONVENIENCE