sprite.bas

10 COLOR 0,0
20 SCREEN 0
30 VLOAD "SPRITES.BIN",8,1,0
40 VPOKE $F,$4000,$01
50 VPOKE $F,$5000,$00
60 VPOKE $F,$5001,$08
70 VPOKE $F,$5006,$0C
80 VPOKE $F,$5007,$50
90 VPOKE $F,$5008,$04
100 VPOKE $F,$5009,$08
110 VPOKE $F,$500A,$00
120 VPOKE $F,$500B,$00
130 VPOKE $F,$500C,$20
140 VPOKE $F,$500D,$00
150 VPOKE $F,$500E,$0C
160 VPOKE $F,$500F,$50
170 MOUSE $FF
180 DATA 4,8,12,8,4,16,20,16
190 FOR I = 0 TO 7
200 READ FR(I)
210 NEXT I
220 DX = 1
230 GOSUB 500
240 GOSUB 500
250 GOSUB 500
260 GOSUB 500
270 VPOKE $F,$500E,$0D
280 DX = -1
290 GOSUB 500
300 GOSUB 500
310 GOSUB 500
320 GOSUB 500
330 VPOKE $F,$500E,$0C
340 GOTO 220

500 FOR I = 0 TO 7
510 GOSUB 1000
520 VPOKE $F,$5008,FR(I)
530 X = VPEEK($F,$500A) + DX
540 VPOKE $F,$500A,X
550 NEXT I
560 RETURN

1000 LT = TI + 5
1010 IF TI < LT THEN GOTO 1010
1020 RETURN