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