BASIC speed start challenge

Author: Mik / Computer Asylum
Category: Christmas Challenge
System:   Oric 1/Atmos
Language: BASIC
Len source code: 155
Len exe file:    172
Len code only:   ?
Instructions:
Insert tape file (depends on emulator used)
    Type:
    CLOAD"BSPSC"
    PAPER0:INK7
    CLS:RUN
Description:
This is the algorithm that only goes through the points of the star and does not do any costly (performance wise) operation.
The code is longer, but a lot more efficient (more than three times faster, according to my tests)
Also the effect of drawing the star from all it's corners looks quite pretty.
Comments:
To time the execution speed add these lines to the begining and end of the program:
0T=DEEK(#276)
4?T-DEEK(#276)
This returns the hudred parts of a second that the code took to run, so to get the seconds, divide by 100.
My speed result is 2.69s