key$ = "Software\R T Russell\BBC BASIC for Windows\Settings"
IF FNreadregistrybin(HKEY_CURRENT_USER, key$, "Lowercase", ^Lowercase%, 4)
IF Lowercase% THEN *lowercase on
Profiler report file - Mon.06 May 2013,09:17:40
File - C:\Program Files (x86)\BBC BASIC for Windows\EXAMPLES\GRAPHICS\CHAIN.BBC
Figures in the first column indicate approximate
time in milliseconds spent in each program line.
Figures in the second column indicate approximate
percentage of the total time spent in each program line.
Time spent Profiling : 12546 milliseconds.
1: 0.01 REM Chain
0: REM by David A. Williams with modifications by Richard T. Russell
0:
0: balls% = 100
0:
0: SYS "LoadImage", 0, @dir$+"BALL.ICO", 1, 32, 32, 16 TO H%
0: IF H%=0 ERROR 100, "Could not load file BALL.ICO"
0:
0: MODE 8
0: VDU 28,13,28,66,3
0: *ESC OFF
0: *FLOAT64
0: *REFRESH OFF
0:
0: ON ERROR OSCLI "REFRESH ON":PRINT 'REPORT$:END
0:
0: t=0
0: OFF
0: REPEAT
466: 3.71 CLS
0: FOR I%=1 TO balls%
68: 0.54 C%=320+180*SINRAD(t/3+I%)*COSRAD(t+8*I%)
56: 0.45 D%=256+180*COSRAD(t/4+2*I%)*SINRAD(t+10*I%)
7: 0.06 t+=0.03
1398: 11.14 SYS "DrawIcon", @memhdc%, C%, D%, H%
12: 0.10 NEXT I%
126: 1.00 *REFRESH
10412: 82.99 UNTIL INKEY(2)=32
0: *REFRESH ON
0: QUIT
0: Libraries and immediate mode