Compucolor.org – Virtual Media

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