MSX BASICでキャラクターを描いてみよう!

Channel:
Subscribers:
1,980
Published on ● Video Link: https://www.youtube.com/watch?v=3nGoIcTVwp4



Duration: 0:38
2,449 views
33


・TEST01.BAS(MSX2、MSX2+、MSX turboR)

100 SCREEN 5,2:DEFINT A-Z:DIM B$(15)
110 B$( 0)="000000AAE0000000"
120 B$( 1)="00000AAAEE000000"
130 B$( 2)="0000AAAAEEE00000"
140 B$( 3)="0000A11111E00000"
150 B$( 4)="0000AAA1EEEAEE00"
160 B$( 5)="00000AEEEAAC11EE"
170 B$( 6)="000AAAA66ACC111E"
180 B$( 7)="0099AA6A8ACC111E"
190 B$( 8)="0FF906688ACC111E"
200 B$( 9)="AAF00444B8AC11E0"
210 B$(10)="AA00AAAAE8AA1EE0"
220 B$(11)="000009909988E000"
230 B$(12)="00000990FF088000"
240 B$(13)="00000FF0AAA00000"
250 B$(14)="0000AAA0AAA11111"
260 B$(15)="0000AAA111111110"
270 FOR I=0 TO 15:FOR J=0 TO 15
280 C=VAL("&H"+MID$(B$(I),J+1,1))
290 PSET(J,I),C:NEXT:NEXT
300 IF INKEY$="" THEN 300 ELSE END

http://bps-basic.blogspot.jp/2016/03/blog-post_21.html







Tags:
MSX
BASIC
GAME
PROGRAM