Compucolor.org – Virtual Media

Listing of file='6P12.BAS;01' on disk='vmedia/color_graphics_2_suits-sector.ccvf'

5 REM  PROGRAM 6.12
6 REM  X BAR GRAPH WITH FLAG ON
10 PLOT 6,6,12:REM  SET UP
20 PLOT 30:REM  FLAG ON
30 PLOT 2:REM  GENERAL PLOT MODE
40 PLOT 250:REM  X BAR GRAPH SUBMODE
50 PLOT 0,63,127:REM  DRAW THE BAR
60 PLOT 63,127:REM  AND AGAIN
61 REM  NOTE THAT THE ORIGINAL VALUE GIVEN TO X0 IS ASSUMED
70 PLOT 255:REM  EXIT PLOT MODE
80 PLOT 29:REM  FOR CONVENIENCE, TURN FLAG OFF