REM IMPORTANT "RETROLIB core.bbc" must be loaded into BBCSDL and saved in @usr$ directory !!! REM INSTALL@usr$+"RETROLIB core.bbc": REM use this for BBCSDL INSTALL"RETROLIB core.bbc":REM BBC4W version PROCgraphics(500,500):LET x%=100:LET y%=100:PROCsbox(x%,y%,x%+50,y%+50,"0"):GCOL 15 ELLIPSE x%+26,y%+23,18,17 LINE x%+23,y%+44,x%+24,y%+40 LINE x%+23,y%+44,x%+28,y%+44 LINE x%+29,y%+39,x%+28,y%+44 LINE x%+29,y%+39,x%+28,y%+44 LINE x%+15,y%+26,x%+20,y%+33 LINE x%+15,y%+26,x%+21,y%+26 LINE x%+20,y%+33,x%+21,y%+26 LINE x%+29,y%+33,x%+28,y%+26 LINE x%+29,y%+33,x%+35,y%+26 LINE x%+30,y%+26,x%+35,y%+26 LINE x%+26,y%+16,x%+15,y%+20 LINE x%+26,y%+16,x%+37,y%+20 LINE x%+38,y%+20,x%+29,y%+13 LINE x%+23,y%+13,x%+29,y%+13 LINE x%+23,y%+13,x%+29,y%+13 LINE x%+23,y%+13,x%+15,y%+21 MOVE 0,0:END
INSTALL"RETROLIB core.bbc" PROCgraphics(500,500):LET x%=100:LET y%=100:PROCsbox(x%,y%,x%+50,y%+50,"0"):GCOL 15 COLOUR 0,210,152,022:GCOL 0 ELLIPSE x%+26,y%+22,20,17 ELLIPSE x%+21,y%+27,4,5 ELLIPSE x%+32,y%+27,4,5 LINE x%+19,y%+18,x%+32,y%+18 MOVE 0,0:END