MODE 2
CLS Map(1)
r=Rad(35):m%=4
For y%=0 To MM.VRES
For x%=0 To MM.HRES
 h=0
 For i%=1 To 4
   x0=x%/i%:y0=y%/i%
   a=r*i%
   Co=Cos(a):Si=Sin(a)
   s=x0*Co-y0*Si
   t=x0*Si+y0*Co
   h=h+Sin(s/5)*4+Sin(t/7)*5
 Next
If h>-2 Then
 Color Map(4+Abs(h) Mod 7)
 Pixel x0*m%,y0*m%
EndIf
Next : Next

MODE 2
Map Reset
Dim integer cm(15)=(0,15,7,1,0,0,0,0,0,0,0,0,0,0,0,0)
Colour Map cm(),cm()

r=Rad(35)
For Y0%=0 To MM.VRES
For X0%=0 To MM.HRES
 h=0
For i%=1 To 3
 x=(X0%-10)/i%:y=Y0%/i%:a=r*i%
 C0=Cos(a):S0=Sin(a)
 s=x*C0-y*S0:t=x*S0+y*C0
 h=h+Sin(s/5)*4+Sin(t/7)*5
Next
 Pixel X0%,Y0%,Map((h+24)Mod 16)
Next :Next

Do
 T=cm(0)
 For i%=0 To 14:cm(i%)=cm(i%+1):Next
 cm(15)=T
 For i%=0 To 15:Map(i%)=cm(i%):Next
 Map Set
 Pause 50
Loop

MODE 2
Map Reset
Dim integer CM(15)=(0,15,7,3,1,0,0,0,0,0,0,0,0,0,0,0)
Colour Map CM(),CM()
FRAMEBUFFER LAYER
FRAMEBUFFER WRITE L
r=Rad(35)
For Y0%=0 To MM.VRES
For X0%=0 To MM.HRES
 h=0
For i%=1 To 3
 x=(X0%-10)/i%:y=Y0%/i%:a=r*i%
 C0=Cos(a):S0=Sin(a)
 s=x*C0-y*S0:t=x*S0+y*C0
 h=h+Sin(s/5)*4+Sin(t/7)*5
Next
 Pixel X0%,Y0%,Map((h+64)Mod 16)
Next :Next

FRAMEBUFFER WRITE N
XCntr%=MM.HRES\2:YCntr%=MM.VRES\2
XC%=XCntr%:YC%=YCntr%:CC%=1
XDir%=1:YDir%=1
Do
 TC%=CM(1)
 For i%=1 To 14:CM(i%)=CM(i%+1):Next
 CM(15)=TC%
 For i%=1 To 15:Map(i%)=CM(i%):Next
 Map Set
 Inc CC%,-1:If CC%=0 Then CC%=15
 CLS
 Text XC%,YC%,Time$,"CM",6,,Map(CC%)
 Inc XC%,XDir%:Inc YC%,YDir%
 If XC%>XCntr%+32 Then XDir%=-1
 If XC%<XCntr%-32 Then XDir%=1
 If YC%>YCntr%+95 Then YDir%=-1
 If YC%<YCntr%-95 Then YDir%=1
 Pause 50
Loop

'*** STARFLIGHT Screensaver - packed, HDMI ***
Option default integer
starflight()
End

Sub starflight
MODE 3:CLS
Static N=120,S(N),ZM=50,ZS=2,SW=MM.HRES,SH=MM.VRES,CX=SW/2,CY=SH/2
Static MSW=SW-MM.Info(fontwidth),Z1=ZM*.7,Z2=ZM/4
Local i,WX,WY,WZ,SX,SY,COL,CH$
For I=0 To N:WX=Rnd*SW-CX:WY=Rnd*SH-CY:WZ=Rnd*ZM+1
S(I)=PkStar(WX,WY,WZ):Next I

Do :For I=0 To N:UnPkStar(S(I),WX,WY,WZ,SX,SY)
Print @(SX,SY)" ";:Color RGB(CYAN):Print @(CX,CY)Chr$(142);:Inc WZ,-ZS
If WZ>0 Then
SX=WX*ZM/WZ+CX:SY=WY*ZM/WZ+CY
If SX>=0 And SX<MSW And SY>=0 And SY<SH Then
COL=RGB(WHITE)
Select Case WZ
Case >Z1:CH$=Chr$(250)
Case Z2 To Z1:CH$=Chr$(249)
Case Else :CH$=Chr$(142):COL=RGB(ORANGE)
End Select :Color COL:Print @(SX,SY)CH$;:S(I)=PkStar(WX,WY,WZ,SX,SY)
Else :S(I)=PkStar(WX,WY,WZ):End If
Else :WX=Rnd*SW-CX:WY=Rnd*SH-CY:S(I)=PkStar(WX,WY,ZM):End If
Next :Loop While Inkey$=""
End Sub

Function PkStar(WX,WY,WZ,SX,SY)
Static M=2^12-1
PkStar=(WX And M) Or ((WY And M)<<12) Or ((WZ And M)<<24) Or ((SX And M)<<36) Or ((SY And M)<<48)
End Function

Sub UnPkStar(PD,WX,WY,WZ,SX,SY)
Static SC=2^12,M=SC-1,SL=SC/2-1
WX=(PD And M):If WX>SL Then WX=WX-SC
WY=((PD>>12) And M):If WY>SL Then WY=WY-SC
WZ=((PD>>24) And M):SX=((PD>>36) And M):SY=((PD>>48) And M)
End Sub

N - Star Count Index Limit: Defines the total number of stars (here: 120 stars).
S() - Star Data Array: An array that stores the packed state data (coordinates, etc.) for each star. Replaces S(n,5).
ZM - Z-Maximum: Defines the maximum depth (Z) in 3D space (50 units).
ZS - Z-Speed: Defines the speed (1 unit per frame) at which the depth (WZ) of each star is reduced.
SW - Screen Width: Stores the horizontal resolution (MM.HRES) of the display.
SH - Screen Height: Stores the vertical resolution (MM.VRES) of the display.
CX - Center X: The X-coordinate of the screen center (SW/2), used as an offset for the projection.
CY - Center Y: The Y-coordinate of the screen center (SH/2), used as an offset for the projection.
MSH - Max Screen Height: Defines the maximum Y screen boundary for drawing (SH - 2 * FontHeight).
Z1 - Z-Level 1: Depth (ZM * 0.7), defines the first color/character change threshold (Farthest to Mid-range).
Z2 - Z-Level 2: Depth (ZM / 4), defines the second color/character change threshold (Mid-range to Closest).

1 Print @(8*c,84)"V":Pause 99:b=Asc(Inkey$):c=c+(b=131)-(b=130):a%=80*Rnd():Print @(8*a%,468)"*":If Pixel(8*c+4,89)=0 Then 1