← Back to branch summary

~amaurycarvalho/msxbas2asm/trunk

« back to all changes in this revision

Viewing changes to test/demos/sprite1.bas

  • Committer: Amaury Carvalho
  • Date: 2020-06-12 13:08:59 UTC
  • Revision ID: amauryspires@gmail.com-20200612130859-3qm5vl1jiqr2brok
Commit on 12/06/2020 10:08:59  -03 by amaury

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/demos/sprite1.bas
 
1
1  DATA &B00000011
 
2
2  DATA &B00001111
 
3
3  DATA &B00011001
 
4
4  DATA &B00111000
 
5
5  DATA &B00111111
 
6
6  DATA &B00110110
 
7
7  DATA &B00110011
 
8
8  DATA &B00110101
 
9
9  DATA &B00111101
 
10
10 DATA &B00111011
 
11
11 DATA &B01110011
 
12
12 DATA &B11110111
 
13
13 DATA &B11110111
 
14
14 DATA &B01100111
 
15
15 DATA &B00000000
 
16
16 DATA &B00000000
 
17
17 DATA &B11110000  
 
18
18 DATA &B11111100
 
19
19 DATA &B11100110
 
20
20 DATA &B00000111
 
21
21 DATA &B00111111
 
22
22 DATA &B00011011
 
23
23 DATA &B11110011
 
24
24 DATA &B11100011
 
25
25 DATA &B11100011
 
26
26 DATA &B00110000
 
27
27 DATA &B00110000
 
28
28 DATA &B00111000
 
29
29 DATA &B00111000
 
30
30 DATA &B00111000
 
31
31 DATA &B00000000
 
32
32 DATA &B00000000
 
33
170 SCREEN 5, 3
 
34
180 FOR I = 1 TO 32
 
35
190 READ N
 
36
200 A$ = A$ + CHR$(N)
 
37
210 NEXT
 
38
220 SPRITE$(0) = A$
 
39
230 COLOR SPRITE(0) = 6  
 
40
240 X = 100
 
41
250 Y = 100
 
42
260 PUT SPRITE 0, (X, Y)
 
43
270 IF STICK(0) = 1 THEN Y = Y - 1
 
44
280 IF STICK(0) = 5 THEN Y = Y + 1
 
45
290 IF STICK(0) = 7 THEN X = X - 1
 
46
300 IF STICK(0) = 3 THEN X = X + 1
 
47
310 IF STRIG(0) THEN GOTO 340
 
48
320 IF STICK(0) > 0 THEN 260
 
49
330 GOTO 270
 
50
340 SCREEN 0
 
51
350 END