// ASCIIMas Tree
// by Jayenkai
// Created 2021/12/4

// GotoJSE.com/8sJQmNDw.BAS

JMTrackr 70,"<C8>B8A8G8<C8>B8A8G8<C8>B8A8G8<C8>B8A8G8|<C16>B16A16G16F16E16D16C16<C16>B16A16G16F16E16D16C16<C32>B32A32G32F32E32D32C32<C32>B32A32G32F32E32D32C32<C16>B16A16G16F16E16D16C16|r1|[d]|G+8G+16G+16G+8G+16G+16G+8G+8G+8G+16G+16G+8G+16G+16G+8G+16G+16G+8G+8G+4|r1|"
	// Quick "tune" created using JMTrackr
		// (The music note on the top right)

Repeat
	m=Floor(Mills()/750) Mod 4
	if m==0 then Mode 0,"C64":sw=39
	if m==1 then Mode 1,"CPC":sw=39
	if m==2 then Mode 0,"ZX":sw=31
	if m==3 then Mode 1,"BBC":sw=39
	CLS:Print:Print:Print:Print
	w=-1:p=0
	For y=0 To 13
		If y Mod 4==0 Then p=p+2:w=w-y*2
		w=w+p
		If y>11 Then w=3
		center=(sw-w)/2
		Print " "*center+"*"*w
	Next
	Flip
Forever