Commodore 128 System Manual page 111

10 C O L O R 0,1
20 C O L O R 1,3
30 C O L O R 4,1
40 G R A P H I C
1,1
60 C I R C L E 1,160,100, 40,40
70 C O L O R
1,6
80 B OX 1 , 2 0 , 6 0 , 1 0 0 , 1 4 0 , 0 , 1
90 C O L O R
1,9
100 BOX 1 , 2 2 0 , 6 0 , 3 0 0 ,140, 0,0
110 C O L O R 1,8
120 D R A W 1 , 2 0 , 1 8 0 TO 300, 180
130 D R A W 1, 2 5 0 , 0 TO 30,0 TO 40,40 TO : 2 5 0 , 0 : R E M D R A W A T R I A N G L E
140 C O L O R 1,15
150 D R A W 1 , 1 6 0 , 1 6 0
160 P AINT 1,15 0 ,9 7
170 C O L O R
1,5
180 PAINT 1,50 , 25
190 C O L O R 1,7
200 P AINT
1 , 22 5 , 1 2 5
210 C O L O R
1,11
220 C H A R 1 , 1 1 , 2 4 , "G R A PH I CS
230 FOR 1=1 TO 5000: NEXT: G R A P H I C 0 , 1 : C O L O R 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.
: REM S ELEC T B A C K G R O U N D C O L O R
: REM S E LE C T F O R E G R O U N D C O L O R
: REM S EL E CT B O R D E R C O L O R
: REM S EL E CT BIT MAP M O DE
: R E M D R A W A C I R C L E
: REM C H A N G E F O R E G R O U N D C O L O R
: REM D R A W A B L O C K
: REM C H A N G E F O R E G R O U N D C O L O R
: REM D R A W A B OX
: RE M C H A N G E F O R E G R O U N D C O L O R
: RE M D R A W A LINE
: R E M C H A N G E F O R E G R O U N D C O L O R
: R E M D R A W A POINT
: REM P AINT
: RE M C H A N G E F O R E G R O U N D C OL O R
: RE M PAINT
: REM C H A N G E F O R E G R O U N D C O L O R
: RE M P AINT
: REM C H A N G E F O R E G R O U N D C O L O R
E X A M P L E " : REM D I S P L A Y TEX T
IN C I R C L E
IN T R I A N G L E
IN EMPTY BOX
6-13