microsoft basic per mac

REM TORTA2
REM diagramma a torta con tratteggio variabile per settori
REM dati in DATA
INPUT"indica numero settori da disegnare:";settori
X=200
Y=200
RAGGIO=100
passo=1
REM cerchio semplice
FOR A=1 TO 360 STEP PASSO
SENO=SIN(A*3.14/180)
COSENO=COS(A*3.14/180)
x1=raggio*seno
y1=raggio*coseno
 PSET(x+x1,y+y1)
NEXT a
BEEP
REM linee radiali
FOR q=1 TO settori
READ ang1,ang2,passo
FOR A=ang1 TO ang2 STEP passo
SENO=SIN(A*3.14/180)
COSENO=COS(A*3.14/180)
x1=raggio*seno
y1=raggio*coseno
 LINE(x,y)-(x+x1,y+y1)
NEXT a
raggio=raggio+2
NEXT q
fine:
INPUT"premi return"; x$
DATA 0,60,1,60,120,3,120,140,6,140,180,10
DATA 180,210,5,210,240,1,240,300,6,300,320,3,320,360,8