• IchigoJam

10 'Face
20 CLS
30 FOR D=0 TO 360 STEP 2
40 X=SIN(D)*18/256+32
50 Y=COS(D)*18/256+24
60 DRAW X,Y
70 NEXT
80 DRAW 20,18,29,18
90 DRAW 35,18,44,18
100 LC13,11:?CHR$(1)
110 LC18,11:?CHR$(1)
120 DRAW 32,26,32,28
130 DRAW 25,30,38,30
140 FOR D=-90 TO 90 STEP 2
150 X=SIN(D)*8/256+32
160 Y=COS(D)*8/256+30
170 DRAWX,Y
180 NEXT
OK

OK
RUN

Pagetop