MSX-BASIC

Por anonymous

incognito ergo sum (116)

imagem de anonymous

16-08-2009, 16:58

Знаю что можно написать код проще , но не помню как , подскажите как создать спрайт с такими данными.

10 SCREEN 0:WIDTH 80
20 FOR I=0 TO 7:READ A$
30 FOR T-0 TO 7
40 D=D*2:IF D=0 THEN D=1
50 B=B+VAL(MID$(A$,8-T,1))*D
60 NEXT T
70 VPOKE ASC("a")*8+&H800*2+I,B
80 B=0:D=0
90 NEXT I
100 DATA 11000000
110 DATA 11110000
120 DATA 11111100
130 DATA 11110000
140 DATA 10011000
150 DATA 00001100
160 DATA 00000110
170 DATA 00000011
Entrar ou registrar-se para comentar