Compucolor.org – Virtual Media

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

5 REM  PROGRAM 6.9
6 REM  A TRIANGLE USING 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:REM  X0
50 FOR Y= 30TO 97
60   PLOT Y,127- Y:REM  Y0,X1 OF BAR GRAPH
70 NEXT
80 PLOT 255