-
Notifications
You must be signed in to change notification settings - Fork 0
/
sprite.bas
42 lines (42 loc) · 1.46 KB
/
sprite.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
1 REM ===== POINTER SPRITE =====
4 REM TESTED ON : EMULATOR R.34
5 REM AUTHOR : DUSAN STRAKL
6 REM MORE INFO : 8BITCODING.COM
9 REM
10 REM ===== DEFINE SPRITE =====
11 REM
20 FOR N=0 TO 255
30 READ D
40 VPOKE $0,$4000+N,D
50 NEXT N
99 REM
100 REM ===== INITIATE SPRITE =====
101 REM
110 VPOKE $F,$4000,1
120 VPOKE $F,$5000,$00
130 VPOKE $F,$5001,$80+$02
140 VPOKE $F,$5002,$00
150 VPOKE $F,$5003,$00
160 VPOKE $F,$5004,$00
170 VPOKE $F,$5005,$00
180 VPOKE $F,$5006,%00001100
190 VPOKE $F,$5007,%01010000
999 REM
1000 REM ===== SPRITE GRAPHICS =====
1001 REM
1010 DATA 16,16,16,16,16,16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
1020 DATA 16,38,38,38,38,38,16, 0, 0, 0, 0, 0, 0, 0, 0, 0
1030 DATA 16,50,50,50,50,38,16, 0, 0, 0, 0, 0, 0, 0, 0, 0
1040 DATA 16,50,50,50,38,16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
1050 DATA 16,50,50,50,50,38,16, 0, 0, 0, 0, 0, 0, 0, 0, 0
1060 DATA 16,50,16,16,50,50,38,16, 0, 0, 0, 0, 0, 0, 0, 0
1070 DATA 0,16,16, 0,16,50,50,38,16, 0, 0, 0, 0, 0, 0, 0
1080 DATA 0, 0, 0, 0, 0,16,50,50,38,16, 0, 0, 0, 0, 0, 0
1090 DATA 0, 0, 0, 0, 0, 0,16,50,50,38,16, 0, 0, 0, 0, 0
1100 DATA 0, 0, 0, 0, 0, 0, 0,16,50,16, 0, 0, 0, 0, 0, 0
1110 DATA 0, 0, 0, 0, 0, 0, 0, 0,16, 0, 0, 0, 0, 0, 0, 0
1120 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
1130 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
1140 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
1150 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
1160 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0