LOGO de MSX usando la Sentencia "DRAW".

Les comparto esta versión en MSX-BASIC, que dibuja el
LOGO de MSX en SCREEN 2.

 

LISTADO MSX-BASIC:

0 'SAVE"LOGOMSX.BAS",A
1 '********************************
2 '*       MSX BASIC PROGRAM      *
3 '*                              *
4 '*    DIBUJO DEL LOGO DE MSX    *
5 '*  USANDO LA SENTENCIA "DRAW"  *
6 '*                              *
7 '*  Alejandro Damian Yassogna   *
8 '* www.DamianWorf.Blogspot.com  *
9 '********************************
100 SCREEN 2
110 PSET(100,100),15
120 DRAW"M+4,-20 M+5,+0  M+2,+8  M+2,-8
130 DRAW"M+4,+0  M+4,+16 M+10,-0 M+1,-1
140 DRAW"M+0,-1  M-1,-1  M-6 ,-0
150 DRAW"M-4,-4  M-0,-5  M+4,-4 M+18,+0
160 DRAW"M+4,+5  M+4,-5  M+6,+0 M- 6,+10
170 DRAW"M+6,+11 M-6,-0  M-4,-6 M-4,+6"
180 DRAW"M-6,-0  M+6,-11 M-3,-5 M-13,-0
190 DRAW"M-1,+1  M-0,+1  M+1,+1 M+ 6,-0
200 DRAW"M+4,+4  M-0,+5  M-4,+4 M-16,-0"
210 DRAW"M-2,-7  M-2,+7  M-4,-0
220 DRAW"M-2,-7  M-2,+7  M-5,-0
230 PAINT(101,100),15
240 IFINKEY$=""THEN240
250 SCREEN0:LIST1-9
260 END