Intybasic: Xmas Star Challenge :)

[CrazyBoss]

Hi there

In some progamming groups at facebook, there was a challenge, how to write a program to display a xmas star.

Mostly using text modes, but some people used graphics. Here is the Inty Basic version

 

If anyone, want to put the romfile to a cartrigde and have there intellivision show a glowing star they are welcome

 

 

rem         Xmas Star for Inty Basic.
rem Program by Claus Baekkel - www.mtxworld.dk
rem
rem    Inty basic is a modern Basic Compiler
rem     For the Intellivision game console.
rem
rem (c) Copyright 2014-2022 Oscar Toledo G. nanochess.org
rem

DEF FN screen_off(row, col) = (row * 20 + col)
mode 1
wait
define 0,1,star
wait

Print at screen_off(11,1),"M.XMAS INTYBASIC"

mainloop:
    for c=0 to 5
    print color coldata(c)
    gosub printstars
    next    
goto mainloop

coldata:
    data $1400,$0600,$2400,$2600,$2400,$0600
    
printstars: procedure 
    for a=0 to 2
    print at screen_off(a,6):for b=0 to a:print"\256":next
    print at screen_off(a,(12-a)):for b=0 to a:print"\256":next
    print at screen_off((a+3),(a+3)):for b=0 to 5:print"\256":next
    print at screen_off((a+3),(9-a)):for b=0 to 6:print"\256":next
    print at screen_off((7-a),(a+3)):for b=0 to 5:print"\256":next
    print at screen_off((7-a),(9-a)):for b=0 to 6:print"\256":next
    print at screen_off((10-a),6):for b=0 to a:print"\256":next
    print at screen_off((10-a),(12-a)):for b=0 to a:print"\256":next
    next
    wait:wait:wait:wait
    return
end

star:
    bitmap".XX.XX.X"
    bitmap"X.X.X.XX"
    bitmap"XX...XXX"
    bitmap".......X"
    bitmap"XX...XXX"
    bitmap"X.X.X.XX"
    bitmap".XX.XX.X"
    bitmap"XXXXXXXX"

xmasstar.rom

[carlsson]

I was already planning to do something like that, just like I did the Christmas Tree last year. I'm toying with using colored blocks mode to get semi-graphics and the possibility to colourize the edges. Perhaps even make it scroll into the screen. After all, Logiker's challenge has two parts: smallest code and a wild category for more creative efforts.

[Zendocon]

Honestly, I thought the Frog Bog Easter egg did a good job replacing the moon in Night mode with a Christmas star.