Compucolor.org – Virtual Media

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

5 REM  PROGRAM 6.10
6 REM  TRIANGLE USING INCREMENTAL X BAR GRAPH
10 PLOT 6,6,12:REM  SET UP
20 PLOT 2:REM  GENERAL PLOT MODE
30 PLOT 250:REM  X BAR GRAPH SUBMODE
40 PLOT 30,30,97:REM  BOTTOM LINE OF TRIANGLE
50 PLOT 247:REM  INCREMENTAL X BAR GRAPH SUBMODE
60 FOR J= 1TO 33
70   PLOT 102:REM  INCREMENT
80 NEXT
90 PLOT 255