Compucolor.org – Virtual Media

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

5 REM  PROGRAM 6.15
6 REM  SINE FUNCTION IN Y BAR GRAPH MODE
10 PLOT 6,6,12:REM  SET UP
20 PLOT 2:REM  GENERAL PLOT MODE
30 PLOT 246:REM  Y BAR GRAPH SUBMODE
40 PLOT 0:REM  Y0 OF Y BAR GRAPH
49
50 FOR X= 0TO 127
60   PLOT X:REM  X OF Y BAR GRAPH
70   PLOT 63+ 40* SIN (X/ 10):REM  SCALE THE Y1
80 NEXT
89
90 PLOT 255:REM  EXIT PLOT MODE