MSX REDDIT BASIC WEEK CODE

1  REM luis
2 rem THIS CODE IS INCOMPLETE, THE DATA SECTION IS NOT COMPLETE
110  SCREEN 2:COLOR 15,1,1
120 SW=256:SH=192:SC=SW/1750:XF=SW/2
140 IF SH/1000 < SC THEN SC=SH/1000
160 READ P$
170 IF P$="EOI" THEN GOTO 170
180 IF P$="C" OR P$="E" THEN GOSUB 1010
190 IF P$="L" THEN GOSUB 1510
200 GOTO 120
1000 REM circle
1010 READ XC,YC,XR:YR=XR: IF P$="E" THEN READ YR
1020 READ AS,AE
1030 XC=XC*SC:YC=YC*SC:XR=XR*SC:YR=YR*SC
1040 REM IF AE-AS=360 THEN CIRCLE(XC+XF,YC),XR,2:RETURN
1041 IF AS<0 THEN AS=AS+360
1042 RS=3.141592#*AS/180
1043 RE=3.141592#*AE/180
1046 IF XR>=YR THEN CIRCLE (XC+XF,YC),XR,2,RS,RE,YR/XR
1047 IF XR<YR THEN CIRCLE (XC+XF,YC),YR,2,RS,RE,YR/XR
1050 RETURN
1500 REM lineas
1510 READ X1,Y1,X2,Y2
1520 X1=X1*SC:Y1=Y1*SC
1521 X2=X2*SC:Y2=Y2*SC
1530 LINE (X1+XF,Y1)-(X2+XF,Y2)
1540 RETURN
5000 REM dataaaa
5010 DATA L,-350,24,-45,0
5020 DATA L,-450,24,-89,38
5030 DATA L,-55,77,-88,499
5040 DATA L,-129,533,-365,514
5050 DATA L,-365,517,-88,560
5060 DATA L,-11,35,-48,528
5070 DATA L,23,30,-18,529
5080 DATA L,56,99,-18,530
5090 DATA L,124,111,56,99
5100 DATA L,38,24,124,111
5110 DATA L,-64,807,101,679
5370 DATA C,-261,553,461,78,93
5520 DATA C,-175,952,47,257,318
5680 DATA C,-256,824,31,-6,77
5690 DATA C,772,75,53,0,360
5700 DATA L,718,64,584,32
5705 DATA E,533,458,115,54,200,340
5710 DATA L,584,32,535,188
5720 DATA E,531,390,302,197,0,360
5730 DATA C,260,298,67,40,246:REM oreja izq
5740 DATA C,806,298,67,-69,141:REM oreja der
5750 DATA C,426,351,49,0,360:REM ojo
5760 DATA C,639,351,49,0,360:REM ojo
5780 DATA E,531,673,151,313,142,263:REM body iz
5790 DATA E,531,673,151,313,-82,37:REM body der
5800 DATA E,419,708,109,132,104,263
5810 DATA E,644,708,109,132,-83,76
5820 DATA E,400,961,75,61,62,192:REM foot
5830 DATA E,663,961,75,61,-11,118
5840 DATA L,327,976,736,976
5850 DATA EOI