этюд для zx spectrum

Найдено в интернетах

   5 REM FUNCOES PLOT,DRAW E PI

  10 PLOT 120,50

  15 FOR N=1 TO 70

  20 DRAW N,0,PI

  30 DRAW 0,N,PI

  40 DRAW -N,0,PI

  50 DRAW 0,-N,PI

  60 NEXT N

  70 PRINT AT 1,0;"FUNCAO PLOT"

  72 PRINT AT 2,0;"FUNCAO DRAW"

  74 PRINT AT 3,0;"FUNCAO PI"

  76 PAUSE 50

  78 PRINT AT 4,0;"TERMINADO"