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