Listing of file='8P4.BAS;01' on disk='vmedia/color_graphics_2_suits-sector.ccvf'
5 REM PROGRAM 8.4 6 REM HALF CHARACTER COLOR CHANGES 10 PLOT 14:REM DOUBLE HEIGHT 20 PLOT 6,2,12:REM SET UP 29 30 PLOT 3,18,15:REM POSITION CURSOR 40 PRINT "C O L O R G R A P H I C S" 49 50 PLOT 3,64,0:REM HIDE CURSOR 59 60 C= 0:REM CCI CODE 69 70 FOR Y= 14TO 15:REM FOR EACH OF THE TWO 71 REM (REGULAR HEIGHT) LINES... 79 80 FOR X= 18TO 44:REM FOR EACH OF THE 26 CHARACTERS... 90 C= C+ 1:IF C= 8THEN C= 1:REM NEXT CCI CODE 100 POKE 28673+ 128* Y+ X+ X,C:REM POKE IT INTO SCREEN 110 NEXT 119 120 NEXT 129 130 GOTO 70