Compucolor.org – Virtual Media

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