not sure what it is bug/feature/me

Code:

2030 FOR i=8 TO 215 STEP 207

         LET p=30

         LET q=0

         LET c=COS (14*PI/p)

         LET s=SIN (14*PI/p)

         PLOT i,132

         FOR b=1 TO 30

           DRAW INK 1;p,q

           LET p=p*c-s*q

           LET q=(p*s+q)/c

         NEXT b

       NEXT i



    I converted it into

     

       dim p,q,c,s as float ' need to use float, fixed screws up totally

       dim b as byte

       dim i as integer



  2030 FOR i=8 TO 215 STEP 207

         LET p=30

         LET q=0

         LET c=COS(14*PI/p)

         LET s=SIN(14*PI/p)

         PLOT i,132+16     ' +16 to get the same position

         FOR b=1 TO 30

           DRAW INK 1;p,q

           LET p=(p*c)-(s*q)

           LET q=(p*s+q)/c

         NEXT b

       NEXT i

Code:

       dim p,q,c,s as float 

       dim b as byte

       dim x,y,i as integer



  2030 FOR i=8 TO 215 STEP 207

         LET p=30

         LET q=0

         LET c=COS(14*PI/p)

         LET s=SIN(14*PI/p)

         PLOT i,132+16     ' +16 to get the same position

         FOR b=1 TO 30

           LET x = INT(p+.5-(p<0)) ' must use strict-bool, works correct in this case because there is never a number+.5 that equals a integer

           LET y = INT(q+.5-(q<0))

           DRAW INK 1;x,y

           LET p=(p*c)-(s*q)

           LET q=(p*s+q)/c

         NEXT b

       NEXT i

Code:

dim p,q,c,s as float

dim melo,b as byte

dim x,y,i,t as integer

const p1 as byte = 8

 

border 5

paper 6

2020 CLS 

melo = peek (byte,50900) 'if haven't worked out a better place for this yet

 PRINT AT 2,7; BRIGHT 1;"WE PROUDLY PRESENT"

 PLOT 55,151+16

 DRAW 145,0

 DRAW 0,9

 DRAW -145,0

 DRAW 0,-9

 DRAW 2,-2

 DRAW 145,0

 DRAW 0,9

 DRAW -2,2

2025 FOR i=7 TO 18

 PRINT PAPER 0;AT i,0;"      ";AT i,26;"      "

 NEXT i

 PRINT PAPER 0;AT 19,0,,,,,,

2030 FOR i=8 TO 216 STEP 208

 LET p=30

 LET q=0

 LET c=COS(14*PI/p)

 LET s=SIN(14*PI/p)

 PLOT i,132+16+1

 FOR b=1 TO 30



 let x = int(p+.5-(p<0))

 let y = int(q+.5-(q<0))



 DRAW INK 1;x,y

 LET p=(p*c)-(s*q)

 LET q=(p*s+q)/c

 NEXT b

 NEXT i

2040 rem LET p=8 'rename p to p1 and made it a constant 

 PRINT OVER 1;AT 18,6;"\..\..\..";AT 18,23;"\..\..\.."; INK 2;AT 6,0;"\..\..\..\..\..\..";AT 6,26;"\..\..\..\..\..\..";AT 15,0;"\::\::\::\::\::\::";AT 15,26;"\::\::\::\::\::\::";AT 18,9;"\..\..\..\..\..\..\..\..\..\..\..\..\..\.."

 2045 FOR i=1 TO 5

 let h$="    "

 let f$="    "

 if i=3 then let h$="BACH" : let f$="BEAT" : end If

 if i=5 then let h$="  " : let f$="  " : end if

 PRINT OVER 1; BRIGHT 1; INK p1; PAPER 4;AT i,1+(i=5);h$;AT i,27+(i=5);f$

 next i

2050 PLOT 204,28+16

 DRAW 0,104

 PLOT 207,28+16

 DRAW 0,104

 DRAW -80,0,.3

 DRAW -79,0,.3

 DRAW 0,-104

 PLOT 51,28+16

 DRAW 0,104

 PLOT INK p1;127,28+16

 DRAW INK p1;0,104

2055 FOR i=9 TO 15 STEP 2

 PRINT AT i,p1;"\e\g  \h\g";AT i+1,p1;"\f \g\h \h";AT i,18;"\e \h\h \h";AT i+1,18;"\f\g  \g \h"

 NEXT i

2060 FOR i=61 TO 141 STEP 80

 FOR b=98 TO 50 STEP -16

 FOR t=0 TO -p1 STEP -2

 PLOT i,b+t+16

 DRAW 58,0

 NEXT t

 DRAW 0,p1

 PLOT i,b-p1+16

 DRAW 0,p1

 NEXT b

 NEXT i

2070 PRINT AT 17,9;"= ";melo-1;" =";AT 17,18;"= ";melo-1;" =";AT 20,10; BRIGHT 1; INK 7; PAPER 1;"SPECTRUM&SONS"

2080 PRINT AT 22,0;paper 5;bright 1;"\d \d\d \d\d\d \d\d \d\d\d \d\d \d\d\d \d\d \d\d\d \d\d"; ink 7 ;"\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b";