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