Mode 1
cls : circle 250,50,15,0,1,1,1 : sprite read 2,235,35,32,32
cls 1:for y=1 to 460 step 17:for x=1 to 610 step 17:BOX x,y,16,16,,0,0:next:next
for y=1 to 450 step 30:for x=1 to 620 step 17:sprite show 2,x,y,0:pause 99:next:next

MODE 2:FRAMEBUFFER create:FRAMEBUFFER Layer create
Dim col%(15)
Restore colors:For f%=1 To 15:Read Col%(f%):Next f%
FRAMEBUFFER write f:CLS
Box 0,0,16,16,,RGB(255,0,0),RGB(255,64,0)
Box -1,2,16,15,,RGB(255,128,0),RGB(255,64,0)
Sprite read #1 ,0,0,16,16
For p%=1 To 20
 Read Byt$
 For n%=1 To Len(Byt$)
   Pixel n%-1,p%+119,COL%(Val("&H"+Mid$(Byt$,n%,1)))
 Next n%
Next p%
Sprite read #2,0,120,20,20
For p%=0 To 16 Step 8
 For x%=0 To 24 Step 8
   Box x%,p%,6,2,,col%(14),col%(14)
   Box x%-4,p%+4,6,2,,col%(14),col%(14)
   Box x%+1,p%+1,6,2,,col%(12),col%(12)
   Box x%-3,p%+5,6,2,,col%(12),col%(12)
Next x%
Next p%
Sprite read #3 ,0,0,16,16
'-----------------
'
CLS RGB(0,128,255)
Print @(0,120)
For x%=0 To 304 Step 16
Sprite write #1,x%,224:Sprite write #1,x%,208
Next
cnt%=0
FRAMEBUFFER write L
Box 256,0,64,240,,RGB(BLUE),RGB(White)
Font 7:Text 120,110,"Demo"
Sprite write #2,118,188
FRAMEBUFFER write f
Do
Sprite scroll -1,0
FRAMEBUFFER copy f,n,b
Inc cnt%:If cnt%=16 Then
ty=Int(Rnd*13)*16
Box 304,0,32,208,,RGB(0,128,255),RGB(0,128,255)
Sprite write #3,304,ty
cnt%=0
EndIf
Loop
'
colors:
'--Colorscheme accordung to matherp
Data RGB(BLUE),RGB(GREEN),RGB(CYAN),RGB(RED)
Data RGB(MAGENTA),RGB(YELLOW),RGB(WHITE),RGB(MYRTLE)
Data RGB(COBALT) ,RGB(MIDGREEN),RGB(CERULEAN),RGB(RUST)
Data RGB(FUCHSIA),RGB(BROWN),RGB(LILAC)
'
Data "000000E0060060000000","000D0DD606666E0D0000","0000D0DDE060E55D0D00"
Data "005DD555566EDDD66006","00366DD5DD65EEE36060","0036066D6566DFF006E0"
Data "000606F6F56DDFF00606","0060FF56C66FF8870060","006955C6CFFFFCCF0060"
Data "006555C6FFCC8CF50000","060151FFFFCC8C100000","0005F44CCCCC441F0000"
Data "000FDF4444444CF10000","000FFBB44444B9FF0000","00091B4444444B800000"
Data "00000F11111111F00000","00000011111111000000","00000011100111000000"
Data "00000077700777000000","00007777700777770000"