Commodore 128 - Page 111

10 COLOR 0,1
: REM
SELECT
BACKGROUND COLOR
20
COLOR 1,3
: REM SELECT
FOREGROUND
COLOR
30
COLOR 4,1
: REM SELECT
BORDER COLOR
40
GRAPHIC 1,1
: REM
SELECT
BIT MAP MODE
60
CIRCLE 1,160,100,
40,40 : REM DRAW A
CIRCLE
70
COLOR 1,6
: REM
CHANGE
FOREGROUND
COLOR
80 BOX 1,20,60,100,140,0, 1
: REM
DRAW A
BLOCK
90
COLOR 1,9
: REM CHANGE
FOREGROUND COLOR
100
BOX 1,220,60,300
,140,
0,0
: REM DRAW A
BOX
110
COLOR 1,8
: REM
CHANGE
FOREGROUND COLOR
120
DRAW 1,20,180 TO
300,
180 : REM
DRAW A
LINE
130
DRAW 1,250,0 TO
30,0
TO 40,40 TO :
250,0:REM DRAW A TRIANGLE
140
COLOR 1,15
: REM
CHANGE
FOREGROUND COLOR
150
DRAW 1,160,160
: REM
DRAW A
POINT
160
PAINT 1,150,97
: REM PAINT
IN CIRCLE
170
COLOR 1,5
: REM
CHANGE
FOREGROUND
COLOR
180
PAINT 1,50,25
: REM
PAINT
IN TRIANGLE
190
COLOR 1,7
: REM
CHANGE
FOREGROUND
COLOR
200
PAINT 1,225,125
: REM
PAINT
IN EMPTY BOX
210
COLOR 1,11
: REM
CHANGE
FOREGROUND
COLOR
220 CHAR 1,11,24,"GRAPHICS EXAMPLE" : REM DISPLAY TEXT
230
FOR 1=1 TO 5000: NEXT: GRAPHIC
0,1:COLOR 1
,2
Here’s what the program does:
• Lines 10 through 30 select a COLOR for the background,
foreground and border, respectively.
• Line 40 chooses a graphic mode.
• Line 60 displays a CIRCLE.
• Line 80 DRAWs a colored-in BOX.
• Line 100 DRAWs the outline of a box.
• Line 120 DRAWs a straight line at the bottom of the
screen.
• Line 130 DRAWs a triangle.
• Line 150 DRAWs a single point below the CIRCLE.
• Line 160 PAINTs the circle.
• Line 180 PAINTs the triangle.
• Line 200 PAINTs the empty box.
• Line 220 prints the CHARacters “GRAPHICS EXAMPLE”
at the bottom of the screen.
• Line 230 delays the program so you can watch the
graphics on the screen, switches back to text mode and
colors the characters black.
6-13