10 ! RXB EXAMPLE
100 ! This program gives the illusion of sprites that    bank 90% at a time
110 CALL MAGNIFY(2) :: CALL CLEAR :: CALL SCREEN(15) :: CALL MOTION(GO)
120 CALL SPRITE(#1,65,2,100,10,0,35,#2,66,16,10,140,25,0)
130 CALL COINC(ALL,V)
140 IF V THEN CALL CHAR(S,65,66) :: CALL RMOTION(#1) :: CALL COLOR(S,#1,#2) :: GOSUB 160 ELSE 130
150 GOTO 130
160 FOR L=1 TO 600 :: NEXT L
170 A=A+1 :: IF A<5 THEN RETURN
