Listing of file='8P5.BAS;01' on disk='vmedia/color_graphics_2_suits-sector.ccvf'
5 REM PROGRAM 8.5 6 REM POKEING CCI CODES GREATER THAN 127 10 PLOT 6,2:REM SELECT COLOR=GREEN 20 PLOT 15,12:REM ERASE SCREEN 30 PLOT 3,64,0:REM HIDE CURSOR 37 38 REM DRAW SEVERAL VECTORS FROM TOP LEFT CORNER 39 REM OUT FOR ABOUT 15 BLOCKS 40 PLOT 2,0,127:REM FIRST POINT 50 PLOT 242:REM VECTOR PLOT 60 PLOT 15,125:REM DRAW A VECTOR 70 PLOT 253,0,127,242,15,120:REM ANOTHER VECTOR 80 PLOT 253,0,127,242,15,115:REM A THIRD 90 PLOT 255:REM EXIT PLOT MODE 99 100 FOR Y= 0TO 4:REM FOR 1ST 4 LINES OF DISPLAY... 109 110 FOR X= 0TO 7:REM FOR 8 CHARACTERS/LINE... 120 POKE 28673+ 128* Y+ X+ X,129:REM RED AND PLOT 130 NEXT 139 140 NEXT