Mandalas

Gallery

Source Code

   1 REM      MANDALAS
   3 CLS 
   5 SLOW 
  10 PRINT "MANDALAS"
  20 PRINT "\''\''\''\''\''\''\''\''"
  30 PRINT "ENTER A NUMBER FROM 1 TO 100"
  40 INPUT NUMBER
  50 IF NUMBER<1 OR NUMBER>100 THEN GOTO 40
  60 CLS 
  70 FAST 
  80 FOR B=1 TO 20
  90 FOR N=1 TO 2*NUMBER
 100 PLOT 31-B*COS (N/NUMBER*PI),22+B*SIN (N/NUMBER*PI)
 110 NEXT N
 120 NEXT B
 130 POKE 16384,74
 150 STOP 
 160 CLEAR 
 170 SAVE "1019%3"
 180 RUN