Commodore Plus 4 - Page 226

214 Programming Graphics
40 Go back for next byte.
50 Restore subroutine called by PEEK.
60 Change character base address of graphics chip to 8192.
70 Make graphics chip get character patterns from RAM.
80 Put graphics chip into multicolor mode.
90 Disable £8 SHIFT keys.
100 Set screen background color 0 to white with luminance 4 (gray).
4*16+2-1=65
110 Set background color 1 to black.
0*16+1-1=0
And set background color 2 to light blue with luminance 5.
5*16+14-1=93
120 Read the multicolor characters in the DATA statements, and replace
the characters with screen codes 40 through 45.
8192+40*8=8518
130 PRINT a CHR$(154) to be in multicolor with foreground color blue,
followed by the sentence.
140 PRINT a carriage return (CHR$(13)), a CHR$(144) to be in high
resolution with foreground color black, and the message.
150 Start the butterflies at the bottom of the screen.
160 Look to see if a key was hit. If so, change the foreground color to
black, and go on to finish the program at line 220.
170 Set up for frame 1 and call output subroutine at 270.
180 Set up for frame 2 and call output subroutine.
190 Set up for frame 3 and call output subroutine.
200 Set up for frame 2 and call output subroutine.
210 Return to line 160 to go again.
220 Restore graphics chip looking at the location of the character ROM.
230 Restore graphics chip looking at ROM.
240 Get out of multicolor mode.