10 SCREEN 1,3:DATA 11111111
30 C$="":FOR I=1 TO 32:GOSUB 130:NEXT:SPRITE$(1)=C$
50 C$="":FOR I=1 TO 2:GOSUB 130:NEXT:SPRITE$(2)=C$:SPRITE$(3)="12345678":FOR L=1 TO 270
80 PUT SPRITE 1,(85+L,99),15,3:PUT SPRITE 2,(80+L,90),2,1
95 PUT SPRITE 3,(75+L,88),10,2:PUT SPRITE 4,(88+L,73),13,2
110 PUT SPRITE 5,(80+L,60),1,1:NEXTL:END
130 RESTORE10:READB$:A$="&b"+B$:C$=C$+CHR$(VAL(A$)):RETURN