Commodore 128 Programmer's Reference Manual page 124

114 COMMODORE 128
0
EXAMPLES:
10 COLOR 0,1:COLOR 1,6:COLOR 4,1
20 GRAPHIC 1,1:REM SELECT BMM
30 BOX 1,10,10,70,70,90,1:REM DRAW FILLED GREEN BOX
40 FOR 1=20 TO 140 STEP 3
50 BOX 1,1,I,1+60,1+60,1+80:REM DRAW AND ROTATE BOXES
60 NEXT
70 BOX 1,140,140,200,200,220,1:REM DRAW 2ND FILLED GREEN BOX
80 COLOR 1,3:REM SWITCH TO RED
90 BOX l,150,20,210,80,90,l:REM DRAW FILLED RED BOX
100 FOR 1=20 TO 140 STEP 3
110 BOX 1,1+130,I,1+190,1+60,I+70:REM DRAW AND ROTATE RED BOXES
120 NEXT
130 BOX 1,270,140,330,200,210,1:REM DRAW 2ND FILLED RED BOX
140 SLEEP 5 :REM DELAY
150 GRAPHIC 0,l:REM SWITCH TO TEXT MODE
10 COLOR 0,1:COLOR 4,1:COLOR 1,6
20 GRAPHIC 1,1
30 BOX 1,0,0,319,199
40 FOR X=10 TO 160 STEP 10
50 C=X/10
60 COLOR 1,C
70 BOX l,X,X,320-X,320-X
80 NEXT
90 SLEEP 5
100 GRAPHIC 0,1
10 COLOR 0,1:COLOR 4,1:COLOR 1,6
20 GRAPHIC 1,1 ^
30 BOX 1,50,50,150,120
40 BOX 1,70,70,170,140
50 DRAW 1,50,50 TO 70,70 ~
60 DRAW 1,150,120 TO 170,140 J
70 DRAW 1,50,120 TO 70,140 ?
80 DRAW 1,150,50 TO 170,70 w
90 CHAR 1,20,20,"CUBE EXAMPLE"
100 SLEEP 5
110 GRAPHIC 0,1 )
\
0
10 COLOR 1,6:COLOR 4,1:COLOR 0,1
20 GRAPHIC 1,1:REM SELECT BIT MAP MODE
30 DO :REM CALCULATE RANDOM POINTS
40 X1=INT(RND(1)*319+1)
50 X2=INT(RND(1)*319+1)
60 X3=INT(RND(1)*319+1)
70 X4=INT(RND(1)*319+1) r ,
80 Y1=INT(RND(1)*199+1) !
90 Y2=INT(RND(1)*199+1) 1 '
100 Y3=INT(RND(1)*199+1) w
110 Y4=INT(RND(1)*199+1)
120 BOX 1,X1,Y1,X2,Y2:REM DRAW THE RANDOM BOXES
130 BOX 1,X3,Y3,X4,Y4 ) (
140 DRAW 1,X1,Y1 TO X3,Y3:REM CONNECT THE POINTS ( '
150 DRAW 1,X2,Y2 TO X4,Y4 ^
160 DRAW 1,X1,Y2 TO X3,Y4
170 DRAW 1,X2,Y1 TO X4,Y3
180 SLEEP2:REM DELAY \ /
190 SCNCLR
200 LOOP:REM LOOP CONTINUOUSLY LJ
0