PicoMite MMBasic USB RP2350A Edition V6.01.00b8
OPTION SERIAL CONSOLE COM2,GP8,GP9
OPTION SYSTEM SPI GP18,GP19,GP16
OPTION LCD SPI GP26,GP27,GP28
OPTION SYSTEM I2C GP20,GP21
OPTION FLASH SIZE 4194304
OPTION COLOURCODE ON
OPTION KEYBOARD UK
OPTION CPUSPEED (KHz) 360000
OPTION LCDPANEL CONSOLE 7,,, 50,NOSCROLL
OPTION DISPLAY 40, 80
OPTION LCDPANEL ST7796S, LANDSCAPE,GP12,GP13,GP14,GP15
OPTION LCD BACKLIGHT 50
OPTION TOUCH GP17,GP7
OPTION SDCARD GP22
OPTION RTC AUTO ENABLE
OPTION DEFAULT FONT 7, 1

FRAMEBUFFER CREATE
FRAMEBUFFER LAYER
FRAMEBUFFER write F
Box 50,50,150,50,4,RGB(blue),RGB(Black)
FRAMEBUFFER write L
FRAMEBUFFER copy F,L
Do
For n=5 To 60
Circle 125,75,n,,,RGB(gold)
FRAMEBUFFER merge 0,b
FRAMEBUFFER sync
Next n
'Dummy, to force a Sync
'Framebuffer Merge 0,b
For n=5 To 60
Circle 125,75,n,,,RGB(black)
FRAMEBUFFER sync
FRAMEBUFFER merge 0,b
Next n
Loop

   } else if((p=checkstring(cmdline, (unsigned char *)"SYNC"))) { //merge the layer onto the physical display
       mergedone=false;
       while(mergedone==false){CheckAbort();}

Option ANGLE DEGREES
FRAMEBUFFER CREATE
FRAMEBUFFER LAYER
RX=MM.HRES:RY=MM.VRES:CX=RX\2:CY=RY\2
Scale=0.95: AX=CY*Scale: AY=CY*Scale
Dim Integer i,j,a=1: b=0: p=0: f=0: c=0
Dim Integer sx(360),ex(360),sy(360),ey(360)

FRAMEBUFFER WRITE L '<===== Write the following to Layer L
Do
Print Timer:Timer =0
If p>360 Then p=0: EndIf
If b>6   Then a=a+1: b=0: c=0: EndIf
If a>5   Then a=1:   b=0: c=0: EndIf
If c=50  Then
f=1
If a=Fix(b) Then f=0: c=0: EndIf
EndIf
If c=130 Then f=0: c=0: EndIf
'calculate the x and y start points
 sx(0)= AX * Sin(p) + CX
 sy(0)= AY * Sin(p) + CY
'calculate all remaining points
For i= 0 To 360
 ex(i) = AX * Sin(a*i + p) + CX
 ey(i) = AY * Sin(b*i + p) + CY
Next i
'Copy whole array(0 to 360 less 1) offset by one Integer
Memory copy integer Peek(varaddr ex(0)),Peek(varaddr sx(1)),360
Memory copy integer Peek(varaddr ey(0)),Peek(varaddr sy(1)),360
CLS 0
Line sx(),sy(),ex(),ey(),,RGB(Yellow)
FRAMEBUFFER MERGE    ' 0,b '<======== copy both layers to the screen
Inc p: Inc c
If  f=0 Then b=b+.02
Loop Until Inkey$<>""
End

> option cpuspeed 360000
> run
103.41
103.397
103.384
103.409
103.397
95.27
94.283
103.417
103.399
103.366
103.383
103.381
103.38
103.402
103.414
103.421
103.417
103.407
103.399
103.408
103.401
103.394
95.277
94.298
> option cpuspeed 363000
> run
87.804
86.234
86.257
86.264
86.228
86.192
86.193
86.183
86.199
86.203
86.192
86.176
After about 10 seconds
95.383
94.383
95.385
94.382
95.399
94.399
103.541
103.521
103.525
103.542
103.555
103.521
103.532
103.517
103.536
103.531
103.523
> option cpuspeed 376000
> run
84.024
86.161
86.163
86.162
86.156
86.174
86.157
86.175
86.175
86.175

PicoMite MMBasic USB RP2350A Edition V6.01.00b8
OPTION SERIAL CONSOLE COM2,GP8,GP9
OPTION SYSTEM SPI GP18,GP19,GP16
OPTION LCD SPI GP26,GP27,GP28
OPTION SYSTEM I2C GP20,GP21
OPTION FLASH SIZE 4194304
OPTION COLOURCODE ON
OPTION KEYBOARD UK
OPTION CPUSPEED (KHz) 363000
OPTION LCDPANEL CONSOLE 7,,, 50
OPTION DISPLAY 40, 80
OPTION LCDPANEL ST7796S, LANDSCAPE,GP12,GP13,GP14,GP15
OPTION LCD BACKLIGHT 50
OPTION TOUCH GP17,GP7
OPTION SDCARD GP22
OPTION RTC AUTO ENABLE
OPTION DEFAULT FONT 7, 1

Do :GetCKey1: Loop Until CKey
Print CKey
End
Sub GetCKey1
Static AltFlag
CKey=Asc(Inkey$)
End Sub

x$=Inkey$
Do :GetCKey1: Loop Until CKey
Print CKey
End
Sub GetCKey1
'Static altflag$ LENGTH 16  'OK
Static altflag$ LENGTH 7   'Fails variable ways
CKey=Asc(Inkey$)
End Sub

// LOCAL also uses this function the routines only differ in that LOCAL can only be used in a sub/fun
void MIPS16 cmd_dim(void) {
...
...

// if it is a STATIC var create a local var pointing to the global var
if(StaticVar) {
....
....
   if(g_vartbl[VIndexSave].dims[0] > 0 || (g_vartbl[VIndexSave].type & T_STR)) {
  //FreeMemory(tv);    // we don't need the memory allocated to the local
FreeMemorySafe(tv);    // we don't need the memory allocated to the local
....
....