← Back to branch summary

~amaurycarvalho/msxbas2asm/trunk

« back to all changes in this revision

Viewing changes to test/demos/sprite2.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/sprite2.bas
 
1
100 SCREEN 5,1:COLOR 15,0,0
 
2
110 FOR X=0 TO 15:LINE(X*16,40)-STEP(16,120),15-X,BF:NEXT
 
3
120 B$=""
 
4
130 FOR I=1 TO 8:READ A: B$=B$+CHR$(A):NEXT
 
5
140 SPRITE$(0)=B$
 
6
150 SPRITE$(1)=B$
 
7
160 COLOR SPRITE(1)=33 
 
8
170 COLOR SPRITE$(0)=CHR$(12)+CHR$(10)+CHR$(5)+CHR$(8)+CHR$(3)+CHR$(3)
 
9
180 FOR I=0 TO 100
 
10
190 PUT SPRITE 0,(I,I),,0
 
11
200 PUT SPRITE 1,(I+8,I+8),,1
 
12
210 NEXT
 
13
220 BEEP
 
14
230 X = 100 : Y = 100
 
15
240 PUT SPRITE 0,(X, Y)
 
16
250 PUT SPRITE 1,(X+8, Y+8)
 
17
260 IF STRIG(0) OR STRIG(1) THEN GOTO 330
 
18
270 IF STICK(0) = 1 OR STICK(1) = 1 THEN Y = Y - 1
 
19
280 IF STICK(0) = 5 OR STICK(1) = 5 THEN Y = Y + 1
 
20
290 IF STICK(0) = 3 OR STICK(1) = 3 THEN X = X + 1
 
21
300 IF STICK(0) = 7 OR STICK(1) = 7 THEN X = X - 1
 
22
310 IF STICK(0) = 0 AND STICK(1) = 0 THEN GOTO 260
 
23
320 GOTO 240
 
24
330 SCREEN 0
 
25
340 END
 
26
400 DATA &b10011001
 
27
410 DATA &b00111100
 
28
420 DATA &b01111110
 
29
430 DATA &b11111111
 
30
440 DATA &b11111111
 
31
450 DATA &b01111110
 
32
460 DATA &b01000010
 
33
470 DATA &b10000001
 
34