Listing of file='8P2.BAS;01' on disk='vmedia/color_graphics_2_suits-sector.ccvf'
5 REM PROGRAM 8.2 6 REM POKEING INTO SCREEN RAM 10 PLOT 15:REM REGULAR HEIGHT CHARACTERS 20 PLOT 6,0,12:REM COLOR=BLACK; ERASE SCREEN 29 30 X= 15:Y= 10:REM X,Y OF TOP LEFT OF DISPLAY TO BE DRAWN 39 40 GOSUB 200:REM DRAW IT 49 50 SC= 28673+ 128* Y+ X+ X:REM SCREEN RAM LOCATION FOR CCI 51 REM CODE FOR TOP LEFT CHARACTER 52 REM OF WHATEVER WAS DRAWN 59 60 FOR C= 1TO 127:REM FOR EACH CCI CODE THRU BLINK 69 70 FOR J= 0TO 9:REM FOR EACH LINE OF THE DISPLAY... 80 P= SC+ 128* J:REM SCREEN RAM FOR START OF NEW LINE 89 90 FOR K= 0TO 18STEP 2:REM FOR EVERY OTHER RAM LOCATION... 100 POKE P+ K,C:REM PUT IN THE NEW CCI CODE 110 NEXT 119 120 NEXT 129 130 NEXT 139 140 PLOT 6,2 149 150 END 159 198 REM ** SUBROUTINE TO PRINT SOMETHING (10X10) IN BLACK ** 199 200 FOR J= YTO Y+ 10 210 PLOT 3,X,J:REM POSITION CURSOR AT START OF EACH LINE 219 220 FOR K= 1TO 10:REM 10 CHARACTERS PER LINE 230 PLOT 96:REM HATCH CHARACTER (IF FLAG IS OFF) 240 NEXT 249 250 NEXT 259 260 PLOT 3,X+ 2,Y+ 2:PRINT "THIS IS" 270 PLOT 3,X+ 2,Y+ 3:PRINT "A TEST " 280 PLOT 3,64,0:REM HIDE CURSOR 290 RETURN