Listing of file='6P18.BAS;01' on disk='vmedia/color_graphics_2_suits-sector.ccvf'
5 REM PROGRAM 6.18 6 REM ERASE SCREEN USING VECTOR PLOT -- I 10 PLOT 6,2:REM SET COLOR 20 PLOT 27,25,65:REM FILL THE SCREEN USING TEST MODE 30 PLOT 3,64,0,6,0:REM HIDE CURSOR & SET COLOR FOR VECTOR 39 40 PLOT 2:REM GENERAL PLOT MODE 50 PLOT 0,0:REM FIRST POINT 60 PLOT 242:REM VECTOR PLOT SUBMODE 70 Y= - 4 79 80 FOR X= 0TO 30STEP 2 90 Y= Y+ 4 91 REM THUS, 1ST TIME THRU THE LOOP, X=0, Y=0. 92 REM X GOES BY 2'S AND Y BY 4'S BECAUSE A VECTOR 93 REM WHICH GOES THRU A CHARACTER POSITION WILL 94 REM ERASE ANY ASCII CHARACTER THERE 100 PLOT X,Y:REM BOTTOM LEFT (NEW) 110 PLOT 127- X,Y:REM BOTTOM RIGHT 120 PLOT 127- X,127- Y:REM TOP RIGHT 130 PLOT X,127- Y:REM TOP LEFT 140 PLOT X,Y:REM BOTTOM LEFT (OLD) 150 NEXT 159 160 PLOT 255:REM PLOT MODE EXIT 170 PLOT 6,2:REM BACK TO SOME COLOR