#amstradcpc #math #moon #earth #crescent
{ cat <<'EOF'
mode 1:ink 0,0:ink 1,13:border 0
a=12:b=25:r=b*b
for y=72 to 128:for x=219 to 245
tx=x-220:ty=y-100
if (tx*tx+ty*ty<=r) and (tx*tx/(a*a)+ty*ty/(b*b)>1) then plot x*2,y*2,2
next:next
for y=0 to 199:for x=0 to 160
tx=x+190:ty=y+140
if (tx*tx+ty*ty<=136900) then plot x*2,y*2,1
next:next
call &bb18 :rem press any key
EOF
}|nl -w1|unix2dos>h.bas
iDSK test.dsk -n -i h.bas -t 0
mame cpc664 -flop1 test.dsk -skip_gameinfo -ab '\n\nrun "h\n'










