Commodore 128 System Manual page 128

The following program is an example of adjoining sprites. The
program creates an outer space environment. It draws stars,
a planet and a spacecraft similiar to Apollo. The spacecraft is
drawn, then stored into two data strings, A$ and B$. The front
of the spaceship, the capsule, is stored in sprite 1. The back
half of the spaceship, the retro rocket, is stored in sprite 2.
The spacecraft flies slowly across the screen. Since it is
traveling so slowly and is very far from Earth, it needs to be
launched earthward with the retro rockets. After a while, the
retro rockets fire and propel the capsule safely toward Earth.
Here's the program listing:
5 COLOR 4,1 : COLOR 0,1:COLOR 1,2 : REM SELECT COLORS
10 GRAPHIC 1,1
17 FOR 1=1 TO 40
18 X=INT (RND (1)*320)+1
19 Y=INT (RND (1)*200)+1
21 DRAW 1, X , Y : NEXT I
22 BOX 0,0,5,70,40,,1
23 BOX 1,1,5,70,40:COLOR 1,8
24 C I R C L E 1,190,90,35,25:PAINTl,190,95:REM DRAW AND PAINT PLANET
25 FOR 1=90 TO 96 STEP 3:CIRCLE 1,190, 1 ,65,10 : NEXT I
26 DRAW 1,10,17T O 16,17T O 32,10T O 33,20T O 32,30T O 16,23TO10,23T O 10,17
28 DRAW 1,19,24T O 20,21T027,25T O 26, 28 : REM BOTTOM WINDOW
35 DRAW 1,20,19T O 20,17T O 29,13T O 30,18T O 28, 23T O 20,19 : REM TOP WINDOW
38 PAINT 1,13,20
40 DRAW 1,34,10T O 36,20T O 34,30T O 45,30T O 46,20T O 45,10T O 34,10
42 DRAW 1,45,10T O 51,12T O 57,10T O 57,17T O 51,15T O 46,17 : REM ENGINE 1
43 DRAW 1,46,22T O 51,24T O 57,22T O 57,29T O 51,27T O 45,29:REM ENGINE 2
44 PAINTl,40,15 :PAINTl,47,12 :PAINTl,47 , 2 6 :DRAW0,45,30T O 46,20T O 45,10
45 DRAW 0,34,14T O 44,14:DRAW 0,34,21T0 44 ,21 : DRAW 0, 34, 28T044,28
47 SSHAPE A$, 10,10,33,32
48 SSHAPE B $ , 34,10,57,32
50 SPRSAV A $ ,1
55 SPRSAV B $ ,2
60 SPRITE 1,1,3,0,0,0,0
65 SPRITE 2,1,7,0,0,0,0
82 MOVSPR 1,150,150
83 MOVSPR 2,172,150
85 MOVSPR 1,270 #5
87 MOVSPR 2,270 #5
90 FOR 1 = 1 TO 5000 : NEXT I
92 MOVSPR 1,150,150
93 MOVSPR 2,174,150
95 MOVSPR 1,270 #10
96 MOVSPR 2,90 #5
97 FOR 1=1 TO 1200 : NEXT I
98 SPRITE 2,0
99 FORI=1 TO 5000 : NEXT I
100 GRAPHIC 0,1
6-30
: REM SET HI-RES MODE
: REM DRAW STARS
: REM CLEAR BOX
: REM BOX-IN SPACESHIP
: REM PAINT SPACESHIP
: REM SAVE SPRITE IN A$
: REM SAVE SPRITE IN B$
: REM SPRITEl DATA
: REM SPRITE2 DATA
: REM ENABLE SPRITE 1
: REM ENABLE SPRITE 2
: REM POSITION SPRITEl
: REM POSITION SPRITE2
: REM ANIMATE SPRITEl
: REM ANIMATE SPRITE2
: REM RETRO POSITION
: REM SPLIT SPRITES 1 & 2
: REM TURN OFF SPRITE 2
: REM RETURN TO TEXT
IN RED
IN BLUE