> option list
PicoMite MMBasic RP2350B V6.03.01
OPTION SYSTEM I2C GP4,GP5
OPTION FLASH SIZE 16777216
OPTION COLOURCODE ON
OPTION PICO OFF
OPTION CPUSPEED (KHz) 200000
OPTION DISPLAY 51, 100
OPTION F1 help
OPTION F5 list commands
OPTION F6 list functions
OPTION F7 list pins
OPTION F9 fm
OPTION PLATFORM WeAct-RP2350B-FLASH:16-PSRAM:8
OPTION PSRAM PIN GP47
> memory
Program:
  0K ( 0%) Program (0 lines)
300K (100%) Free

Saved Variables:
 16K (100%) Free

RAM:
  0K ( 0%) 0 Variables
  0K ( 0%) General
6491K (100%) Free

> help ram
' Ram RP2350 alleen met PSRAM ingeschakeld. CSpin RAM = GP0, GP8, GP19 of GP47
Ram LIST
Ram LIST  nr [,all]
Ram ERASE nr
Ram ERASE ALL
Ram SAVE  nr
Ram LOAD  nr
Ram RUN   nr
Ram CHAIN nr
Ram OVERWRITE nr
Ram FILE LOAD nr, fname$ [,O[VERWRITE]]

> ram list
RAM Slot 1 available
RAM Slot 2 available
RAM Slot 3 available
RAM Slot 4 available
RAM Slot 5 available
>

' Bubble Universe

MODE 2
'MODE 3
Font 8
FRAMEBUFFER create
FRAMEBUFFER write f

Dim Float u(99),w(99),p,q,t,v=0,x=0,b
Dim Integer n(99),m(9,99),xc,yc,xs,ys
Dim Integer a,g,i,j
Const r=(2*Pi)/235,k=255,s=50
CLS RGB(black)
t=Rnd*10
't=1

'calculate centre and scale factor
xc=MM.HRES\2:yc=MM.VRES\2
xs=MM.HRES/4.2:ys=MM.VRES/4.2  'Oval
'xs=MM.HRes/6:ys=MM.VRes/4      'Circular

For a=0 To 99 Step 10
For g=0 To 99
 If a<25 And g<38 Then
  If a<15 Then:m(a\10,g)=RGB(0,255,0):Else:m(a\10,g)=RGB(255,255,0):EndIf
 Else
  m(a\10,g)=RGB(a*2.575,g*2.575,128*(a+g<65))
 EndIf
Next 'g
' Memory pack nn, Peek(varaddr m(0,a)),100,32 'pack pixel colours
Next 'a

Do
CLS
Inc t,0.015:g=0:Print @(10,10)Timer:Timer=0
For i=57To 255Step 2
b=r*i+t
For j=0To 99
 u(j)=Sin(i+v)+Sin(x)
 v=Cos(i+v)+Cos(x)
 x=u(j)+b
 w(j)=v
 If Not(g Mod 10) Then n(j)=m(g\10,j)'copy from colour map
Next 'j
Math Scale u(),xs,u():Math Scale w(),ys,w()
Math add u(),xc,u():Math Add w(),yc,w()
'Memory unpack Peek(varaddr m(0,g)),nn,100,32 'unpack pixel colours
Pixel u(),w(),n()
Inc g
Next 'i
FRAMEBUFFER copy f,n',b
Loop Until Inkey$ <> ""
'
Mode 1
End

'Starfield
'
MODE 2
'change maxst for more or fewer stars
Const maxst=2000
Dim Integer h=MM.VRES,w=MM.HRES,x,y,st,c
Dim Float f,stx(maxst),stxx(maxst),sty(maxst),styy(maxst),stz(maxst)
Dim Integer ox(maxst),oy(maxst),cl(maxst)
FRAMEBUFFER create
FRAMEBUFFER write f
CLS
'initialise the stars
For st=0 To maxst
 stxx(st)=(Rnd*w>>1)-(w>>2):styy(st)=(Rnd*h>>1)-(h>>2)
 stz(st)=Int(Rnd*5+5)/10
 cl(st)=RGB(White)
Next

Do
Cls
'move stars forward
Math Add stz(),-0.025,stz()

'do the calculation (stx/stz)+half width
'do the calculation (sty/stz)+half height
For st=0 to maxst
stx(st)=stxx(st)/stz(st)'Math C_div stxx(),stz(),stx():
sty(st)=styy(st)/stz(st)'Math C_div styy(),stz(),sty():
Next
Math Add stx(),w>>1,stx()
Math Add sty(),h>>1,sty()
'reset rouge stars
'Inc c:c=c*(c<=maxst)
Inc c:If c>maxst Then c=0
'stx(c)=stx(c)*(stz(c)>0.1)
If stz(c)<0 Then stx(c)=0
'loop for all stars
'set star colour and check for star off screen
For st=0 To maxst
x=stx(st):y=sty(st)

Select Case stz(st)
Case < 0.2
cl(st)=RGB(Yellow)
Case < 0.6
cl(st)=RGB(White)
Case < 0.8
cl(st)=RGB(Cyan)
Case Else
cl(st)=RGB(Blue)
End Select

If (x>0 And x<w And y>0 And y<h)Then
 ox(st)=x:oy(st)=y
Else
 Inc f,0.025:If f>0.09 Then f=0
 stxx(st)=(Rnd*w>>1)-(w>>2)
 styy(st)=(Rnd*h>>1)-(h>>2)
 stz(st)=Int(Rnd*5+5)/10+f
EndIf
Next

Pixel ox(),oy(),cl()
Print @(10,10)Timer:Timer =0
FRAMEBUFFER copy f,n',b
Loop Until Inkey$ <> ""
Mode 1
End