Jump to content
IGNORED

2015 Holiday Demo Contest (entries only) Thread


Opry99er

Recommended Posts

TIPROG_zpslto5epxi.png

 

 

 

 

This thread is for entries to the 2015 Texas Instruments TI-99/4A Holiday Demo Contest.

 

 

Here's the format for entries:
1) Name of demo (required)
2) Your name---as you wish it to appear on the tape insert (AA handle is cool here too) (required)
3) Story behind your demo (optional)
4) Code (required)
Edited by Opry99er
  • Like 4
Link to comment
Share on other sites

Here's mine:



Title:


"Silent Snowman"


Programmer: Owen Brand


Story:


As a kid, and even now as an adult from time to time, I find myself in awe of the silence that accompanies a steady snowfall. The snowfall has a way of deadening sound, and if you're in the woods or in a field somewhere away from the busy streets, it can be a true dead silence. It is part of what is magical (to me) about Winter and the Christmas season. This is my rendition of winter silence.



If you can, run this demo in true silence and put yourself there... in a wide open meadow... with nothing but the visual of falling snow and a corncob pipe.




Code (7 lines):




1 CALL CLEAR :: CALL SCREEN(2):: CALL CHAR(104,"FFFFFFFFFFFFFFFFFF7E3C7EFFFF7EFF80C0E0E0E0C0C0800103070707030301")
2 CALL HCHAR(23,1,104,64):: CALL CHAR(104,"FFFFFFFFFFFFFFFFFF7E3C7EFFFF7EFF80C0E0E0E0C0C0800103070707030301")
3 CALL CHAR(108,"000000003C7EDBFF"):: CALL CHAR(112,"00000A0CFC0A0000000050303F50000000000018F8180000003C3C3C3C00FF00")
4 DISPLAY AT(22,15):"khj" :: CALL SPRITE(#1,114,2,157,142,#2,115,2,151,137):: DISPLAY AT(21,15):"qip";:: DISPLAY AT(20,16):"l";
5 CALL COLOR(10,16,1):: CALL SCREEN(:: RANDOMIZE :: FOR I=3 TO 28
6 SC=INT(RND*256)+1 :: VSPD=INT(RND*2)+5 :: CALL SPRITE(#I,42,16,1,SC,VSPD,0):: FOR DEL=1 TO 50 :: NEXT DEL :: NEXT I
7 GOTO 7

Edited by Opry99er
  • Like 4
Link to comment
Share on other sites

Title: Catastrophic engine failure on Santa's sleigh.

 

Programmer: am1933

 

Story: During a particiularly foggy night "so bad you could not even make out graphics", Santa's Sleigh struck a trampolining polar bear, I believe that the sound in this program accurately conveys the terror of the situation.

 

10 CALL CLEAR

20 FOR A=440 TO 880

30 CALL SOUND(10,A,0,-7,0)

40 NEXT A

50 CALL SOUND(2000,-6,0)

60 CALL SAY("HOW HOW HOW")

 

Terrifying, I'm sure you will agree.

  • Like 7
Link to comment
Share on other sites

Name of Demo: Traditional

Author: Tursi

Story: I always do a Christmas tree. ;)

Code (10 lines):

 

 

REM BY M.BRENT AKA TURSI 11/10/2015

100 DIM NT(14)::CALL CLEAR::CALL COLOR(1,13,5,2,16,1,3,9,1,4,12,1,5,16,5,6,16,5,7,16,5,8,2,2)::CALL CHARPAT(89,Y$)
110 CALL COLOR(9,10,1,10,2,13,11,2,13,12,2,13,13,2,13)::CALL CHAR(33,RPT$("F",16)&"80C0E0F0F8FCFEFF0103070F1F3F7FFF")::B$="183C3C18"
120 CALL CHAR(44,"00003C7EFFFF7E3C0F0F070703030101DBDBBDBDBD7E7E7EF0F0E0E0C0C0808",88,"",96,"0000000001071F7F01071F7F"&RPT$("F",24)&"80E0F8FEFFFFFFFF")
130 A$=RPT$("F",14)&"00"&RPT$("E7",::CALL CHAR(100,"0000000080E0F8FE",48,A$,50,A$,56,A$,58,A$)::CALL HCHAR(19,1,33,192)::CALL CHAR(104,B$,112,B$)
140 A$="00"&RPT$("F",14)&RPT$("E7",::CALL CHAR(51,A$,53,A$,59,A$,61,A$)::A$="0000006699997E81"::CALL CHAR(54,A$,62,A$)::CALL CHAR(120,B$,128,B$)
150 A$="BO,ACN-CQJ6ARI0CSI3CQT>ARS8CSS;CQOXARM`E"::FOR A=1 TO 39 STEP 4::R=ASC(SEG$(A$,A,1))-64::C=ASC(SEG$(A$,A+1,1))-64::CH=ASC(SEG$(A$,A+2,1))::CN=ASC(SEG$(A$,A+3,1))-64
160 FOR B=0 TO CN-1::CALL HCHAR(R,C+B,CH+B)::NEXT B::NEXT A::S$="DJJKJHFCAACHEF"::FOR A=1 TO 14:=ASC(SEG$(S$,A,1))-65::NT(A)=147*(1.059463^X)::NEXT A::CALL CHAR(66,Y$)
170 FOR A=1 TO 13::C=INT(A/2)::CALL HCHAR(3+A,14-C,35)::CALL HCHAR(3+A,15-C,33,C*2+1)::CALL HCHAR(3+A,16+C,34)::NEXT A::CALL SCREEN(5)
180 FOR A=1 TO 28::R=RND*16+1::C=RND*13+10::CALL GCHAR(R,C,X)::CALL HCHAR(R,C,104+INT(RND*4)*8,-(X=33))::CALL SPRITE(#A,42,15,R*12,(C-10)*19+1,4,1)::NEXT A
190 DISPLAY AT(1,6):"MERRB CHRISTMAS"::FOR A=1 TO 14::CALL SOUND(300,NT(A),0)::NEXT A::FOR A=0 TO 1::CALL KEY(0,K,S)::A=A+(S=0)::CALL COLOR(10+RND*3.1,RND*15+1,13)::NEXT A
  • Like 7
Link to comment
Share on other sites

Title - Lost in Space

 

Programmer - Jake (Iwantgames)

 

Story - Santa decided to take the new Jet sled out for a test drive, but then he lost his magic hat and ran out of fuel! Without the magic the spirit of Christmas will fade forever :(

 

Code -

 


1 CALL CLEAR::CALL SCREEN(2)::CALL COLOR(2,16,2)::CALL VCHAR(3,6,42,1)::CALL VCHAR(5,20,42,1)::CALL VCHAR(8,8,42,1)::CALL VCHAR(11,17,42,1)
2 CALL VCHAR(16,22,42,1)::CALL VCHAR(12,28,42,1)::CALL VCHAR(18,5,42,1)::CALL VCHAR(21,16,42,1)::CALL COLOR(10,16,2)
3 CALL CHAR(104,"0000000003070F0F1F3F3F2A00000000000038FCF8F0F0F0F0F0F8A800000000")
4 CALL CHAR(112,"0000000000000000000000153F150000000607020000000000000050F8500000")
5 CALL CHAR(120,"00000000000000404000000008083F000000000000000000000000001012FC00")
6 CALL CHAR(128,"0000000038383F3F3F3F3F3F00000000000000000000F088FCFCFEFE00000000")
7 CALL MAGNIFY(3)::CALL SPRITE(#1,104,9,150,60,1,1,#2,112,16,150,60,1,1)
8 CALL SPRITE(#3,120,15,28,10,0,1,#4,128,10,28,10,0,1)::CALL SAY("OH NO OH NO")
9 GOTO 9

  • Like 5
Link to comment
Share on other sites

Title:


"Flight of Ol' St. Nick"


Programmer: Owen Brand


Story:


I've always loved the image of Santa on his sleigh, flying silently through the night. This is my tribute to the iconic Christmas card that has been around for generations. Merry Christmas, everyone!!!




Code (10 lines):




1 CALL CLEAR :: CALL SCREEN(2):: CALL MAGNIFY(3):: CALL CHAR(96,"C0C0C0C0E0A0BC87C08F80BF807F10FF00000000000000FF01F105C103FE09FF")
2 CALL CHAR(104,"00000000000003BF7FFF3B332C681B001133160C1E1B9EF8F8F0E0F0D0A0A040",112,"1818",113,"0",114,"0",115,"0")
3 CALL CHAR(108,"00000000000007BF7FFF3B3B585050B01533160C1E1B1EF8F8F0E0E030505090",116,"000000000000031B1A3E7EFFDB7E6666",118,"0",119,"0")
4 CALL CHAR(120,"C0C0C0C0E0A0BC87C08F80BF807F10FF00000000000000FF01F105C103FE09FF"):: A$="hjhjhjhj" :: B$="ikikikik" :: DISPLAY AT(10,10):A$;
5 CALL CHAR(124,"60784F4038080407060D0D1F040813120000C060301010F0104810F0781CD648"):: DISPLAY AT(11,10):B$;:: CALL HCHAR(23,1,96,64)
6 CALL SPRITE(#28,112,2,78,149):: FOR I=10 TO 100 STEP 10 :: SPD=INT(RND*5)+3 :: CALL SPRITE(#I/10,112,16,I,I*2,0,-SPD):: NEXT I
7 C$="lnlnlnln" :: D$="momomomo" :: CALL CHAR(96,"FFFFFFFFFFFFFFFF"):: CALL COLOR(10,16,1,11,13,1,9,13,1):: DISPLAY AT(3,7):"FROM OPRY99ER";
8 CALL COLOR(#28,7):: CALL SPRITE(#13,116,11,161,248,0,-13,#14,116,15,161,100,0,-13):: FOR COL=1 TO 8 :: CALL COLOR(COL,16,1):: NEXT COL
9 CALL SPRITE(#15,120,7,72,66,#16,124,16,64,66):: DISPLAY AT(10,10):C$;:: DISPLAY AT(11,10)$;:: DISPLAY AT(2,6):"MERRY CHRISTMAS!!!";
10 FOR I=1 TO 100 :: NEXT I :: DISPLAY AT(10,10):A$;:: DISPLAY AT(11,10):B$;:: FOR I=1 TO 100 :: NEXT I :: GOTO 9

  • Like 7
Link to comment
Share on other sites

TITLE: Snowfall

AUTHOR: Keith Bergman

STORY: Simple, hypnotic, snowfall at night

100 CALL CLEAR :: RANDOMIZE :: CALL SCREEN(2) :: SW=3 :: DIM R(32)
110 FOR X=95 TO 103 :: READ X$ :: CALL CHAR(X,X$) :: NEXT X :: CALL HCHAR(1,1,95,768) :: FOR X=1 TO 32 :: R(X)=24 :: NEXT X
123 DISPLAY AT(2,1):" MERRY CHRISTMAS AND JOYOUS    HOLIDAYS TO ALL 99'ERS" :: FOR X=1 TO 9 :: CALL COLOR(X,16,1) :: NEXT X
125 FOR X=1 TO 28 :: CALL SPRITE(#X,46,16,1,INT(RND*256)+1,INT(RND*100)+1,INT(RND*50)-25) :: NEXT X
130 S=INT(RND*32)+1 :: CALL GCHAR(R(S),S,Y) :: IF Y=103 THEN R(S)=R(S)-1 :: GOTO 130
140 IF R(S)<1 THEN R(S)=1
150 CALL HCHAR(R(S),S,Y+1) :: T=T+1 :: IF T=10 THEN T=0 ELSE 130
170 FOR X=1 TO 8 :: CALL COLOR(X,SW,1) :: NEXT X :: IF SW=3 THEN SW=9 :: GOTO 130 ELSE SW=3 :: GOTO 130
1000 DATA 0000000000000000,0000000000000000CD,000000000000BCFF,00000000009EFFFF
1010 DATA 00000000D6FFFFFF,00000039FFFFFFFF,0000CAFFFFFFFFFF,00BEFFFFFFFFFFFF,FFFFFFFFFFFFFFFF

  • Like 8
Link to comment
Share on other sites

Title: TI Snow Vaders

 

Creator: Sometimes

 

1 CALL SCREEN(2)::CALL CLEAR::CALL CHAR(33,"081C3E6B7F1422410",41,"63223E6BFFBEA2360000000080808",49,"3FFFCCFFFF1221C000C0C0C0C00000C")
2 CALL CHAR(56,"0000010703070100081CFFFFDEFFFF3E0000C0F0F0F0C",64,"000808080808",97,"08081C7FFFFFFF6300000000808080000000000000000808")
3 CALL COLOR(1,4,1,2,6,1,3,7,1,4,11,1,5,16,1,6,16,1,7,16,1,8,16,1,9,8,1,10,16,1)::DISPLAY AT(5,14):"89:"
4 FOR I=0 TO 5::DISPLAY AT(I*2+8,13-I):RPT$(CHR$(INT(I/2)*8+33)&CHR$(INT(I/2)*8+34),I+3)::NEXT I
5 DISPLAY AT(20,15):"@"::DISPLAY AT(21,15):"c"::DISPLAY AT(22,15):"ab"::DISPLAY AT(2,3):"MERRY CHRISTMAS EVERYBODY"
6 P$="10125256D6DEDFFF"::DIM X(31)::FOR A=0 TO 7::CALL CHAR(104+A,RPT$("0",14)&SEG$(P$,A*2+1,2))::NEXT A
7 FOR A=1 TO 28::CALL SPRITE(#A,104,16,250,RND*255+1,9,RND*2.5-1.25)::NEXT A
8 R=INT(RND*32)::CALL HCHAR(24,R+1,X(R)+104)::X(R)=X(R)+1+(X(R)>6)::GOTO 8

 

Edited by sometimes99er
  • Like 7
Link to comment
Share on other sites

Title: TI Holy Moly (extended remix)

 

Creator: Sometimes

 

1 CALL CLEAR::CALL SCREEN(2)::FOR I=0 TO 3::CALL COLOR(5+I,16,1)::CALL COLOR(9+I,9,1)::NEXT I::CALL CHAR(33,"2810AA44AA1028")
2 FOR I=1 TO 28::CALL SPRITE(#I,33,16,250,RND*255+1,9,RND*2.5-1.25)::NEXT I
3 READ I,P$::CALL CHAR(I,P$)::IF I<121 THEN 3 ELSE P$="@SOMETIMES@ WISH YOU ALL A MERRY CHRISTMAS AND A HAPPY NEW YEAR"
4 Q$=" sometimes  wish you all a merry christmas and a happy new year"::P$=P$&RPT$(" ",14)&P$::Q$=Q$&RPT$(" ",14)&Q$
5 FOR I=1 TO 75::DISPLAY AT(9,1):SEG$(P$,I,28)&SEG$(Q$,I,28);::NEXT I::GOTO 5
6 DATA 64,6C6C24,65,101010383838386C0000F86C66666C7804043C6CC4C4C0C,68,0000F0786C6C66660000FE66626A6878,72,0F06F66666667E6600003C1818181818
7 DATA 76,0000F060606060600000E36276767E7E0602E26272727A5A000070D8CCCCC6C6,80,0000F0786C6C6666,82,0000F0786C646666080878C8C0E07038
8 DATA 84,0000FCB4B43030300000F76262626262,87,0000F361616D6D7F,89,0703E6C66C6C3838,97,6C6C7CC6C6C6EF006C666666666CF800C0C0C06262361C
9 DATA 100,66666666646CF800786868626266FE,104,666666666666FF001818181818183C,108,606060626266FE007E5656464646EF005E4E4E464642E200C6C6C66666361C
10 DATA 112,66666C786060F,114,667C786C6E66F7001CCC6E6666361C,116,30303030303078006262626222361C,119,7F3E3E36363636,121,1818181818183C

 

Edited by sometimes99er
  • Like 8
Link to comment
Share on other sites

 

Title:
"Flight of Ol' St. Nick"
Programmer: Owen Brand
Story:
I've always loved the image of Santa on his sleigh, flying silently through the night. This is my tribute to the iconic Christmas card that has been around for generations. Merry Christmas, everyone!!!

 

I've been out of the TI scene long enough not to be writing fresh code, but a little code tweaking is still possible. The following revision only uses 8 lines of code if there was anything you wanted to add to your demo

 

Bob

1 E$="0000000000000" :: F$="C0C0C0C0E0A0BC87C08F80BF807F10FF" :: CALL CLEAR :: CALL SCREEN(2) :: CALL MAGNIFY(3)::CALL COLOR(10,16,1,11,13,1,9,13,1)
2 CALL CHAR(96,"C0C0C0C0E0A0BC87C08F80BF807F10FF0"&E$&"FF01F105C103FE09FF")::CALL CHAR(120,"C0C0C0C0E0A0BC87C08F80BF807F10FF0"&E$&"FF01F105C103FE09FF")
3 CALL CHAR(104,E$&"3BF7FFF3B332C681B001133160C1E1B9EF8F8F0E0F0D0A0A040",112,"1818",113,"0",114,"0",115,"0"):: DISPLAY AT(2,6):"MERRY CHRISTMAS!!!"
4 CALL CHAR(108,E$&"7BF7FFF3B3B585050B01533160C1E1B1EF8F8F0E0E030505090",116,E$&"31B1A3E7EFFDB7E6666",118,"0",119,"0"):: DISPLAY AT(10,10):"hjhjhjhj"
5 CALL CHAR(124,"60784F4038080407060D0D1F040813120000C060301010F0104810F0781CD648"):: DISPLAY AT(11,10):"ikikikik":: DISPLAY AT(3,7):"FROM OPRY99ER"
6 CALL SPRITE(#28,112,2,78,149):: FOR I=10 TO 100 STEP 10 :: SPD=INT(RND*5)+3 :: CALL SPRITE(#I/10,112,16,I*1.5,I,0,-SPD):: NEXT I::CALL CHAR(96,"FFFFFFFFFFFFFFFF") 
7 CALL COLOR(#28,7):: CALL SPRITE(#13,116,11,161,248,0,-13,#14,116,15,161,100,0,-13):: FOR I=1 TO 8 :: CALL COLOR(I,16,1):: NEXT I
8 CALL SPRITE(#15,120,7,72,66,#16,124,16,64,66)::CALL HCHAR(23,1,96,64)::GOTO 8
  • Like 1
Link to comment
Share on other sites

Title: White noise christmas

Author: Lucien Baumann

1 CALL CLEAR :: CALL SCREEN(1):: FOR I=2 TO 9 :: CALL COLOR(I,16,1):: NEXT I :: DISPLAY AT(5,4):"*** MERRY CHRISTMAS ***" :: RANDOMIZE :: FOR I=1 TO 6 :: READ C,S$ :: CALL CHAR(C,S$):: NEXT I
2 X=116 :: Y=85 :: CALL MAGNIFY(4):: CALL SPRITE(#1,112,7,Y,X):: CALL SPRITE(#2,108,13,Y,X):: CALL SPRITE(#3,104,2,Y,X)
3 FOR Y=7 TO 19 :: FOR X=9 TO 25 :: C=INT(RND*6)+96 :: CALL HCHAR(Y,X,C):: NEXT X :: GOSUB 9 :: NEXT Y
4 FOR I3=0 TO 5 :: S2$="" :: FOR I2=1 TO 16 :: I=INT(RND*16):: IF I<10 THEN S$=CHR$(I+48)ELSE S$=CHR$(I+55)
5 S2$=S2$&S$ :: GOSUB 9 :: NEXT I2 :: CALL CHAR(96+I3,S2$):: NEXT I3 :: GOTO 4
6 DATA 104,010307070F0F1F1F3F3F7F7F7F7F0707C0E0F0F0F8F8FCFCFEFEFFFFFFFFF0F0,108,000001030307070F0F1F1F3F3F0103000080C0E0E0F0F0F8F8FCFCFEFEC0E000
7 DATA 112,00000000010002070200091C0800000000000080C08020702088DC8800000000
8 DATA 96,C27EF4E75EC35AF00AAA35A7D27D003A,98,789F064698C692BF67A0E90CAB393B5D,100,56B6DAC6709DFCC4008BA0BC1B2926D9
9 IF A THEN A=0 :: CALL COLOR(#1,7)ELSE A=1 :: CALL COLOR(#1,11)
10 RETURN
  • Like 6
Link to comment
Share on other sites

This is my first attempt at XB graphics for a very long time. The relationship to X-mas can be difficult to spot, but Santa is actually on that boat. :)

 

Title: Santa's boat ride

Author: Rasmus

1 CALL CLEAR::CALL SCREEN(5)::CALL COLOR(9,6,5)::CALL COLOR(10,16,15)::P0$=RPT$("0",16)::P1$="0060920C0081520C"::P2$=RPT$("0",14)::CALL CHAR(96,P0$)
2 CALL CHAR(97,P1$)::CALL CHAR(104,P0$)::CALL CHAR(105,P2$&"FF")::CALL CHAR(106,"FF"&P2$)::CALL HCHAR(1,1,97,768)::CALL HCHAR(7,1,104,64)
3 CALL HCHAR(11,1,104,128)::CALL HCHAR(17,1,104,64)::FOR X=2 TO 30 STEP 4::CALL HCHAR(7,X,105,2)::CALL HCHAR(8,X,106,2)::CALL HCHAR(12,X,105,2)
4 CALL HCHAR(13,X,106,2)::CALL HCHAR(17,X,105,2)::CALL HCHAR(18,X,106,2)::NEXT X::FOR R=7 TO 8::CALL HCHAR(R,15,97,4)::CALL HCHAR(R+10,15,97,4)::NEXT R
5 FOR R=11 TO 14::CALL HCHAR(R,13,104,::NEXT R::CALL HCHAR(7,15,97,4)::CALL HCHAR(8,15,97,4)::CALL HCHAR(17,15,97,4):: CALL HCHAR(18,15,97,4)
6 CALL MAGNIFY(3)::S=1::CALL CHAR(112,"A1D3663D1A3D66D3A1D3663D1A3D66D3A1D3663D1A3D66D3A1D3663D1A3D66D3")::FOR X=97 TO 145 STEP 16::CALL SPRITE(#S,112,2,81,X)
7 S=S+1::CALL SPRITE(#S,112,2,97,X)::S=S+1::NEXT X::FOR X=113 TO 129 STEP 16::CALL SPRITE(#S,112,2,49,X)::S=S+1::CALL SPRITE(#S,112,2,129,X)::S=S+1::NEXT X
8 CALL CHAR(116,"0B1F183737373734361B1C0F0F070301D0F818ECECECEC2C6CD838F0F0E0C080")::CALL SPRITE(#S,116,16,1,121,6,0)::CALL COLOR(7,3,1)::FOR I=0 TO 7
9 P$(I)=SEG$(P1$,17-2*I,2*I)&SEG$(P1$,1,16-2*I)::NEXT I::CALL COLOR(6,9,1)::N$="MERRY CHRISTMAS"::FOR I=1 TO 15::CALL HCHAR(21,8+I,ASC(SEG$(N$,I,1)),1)::NEXT I
10 CALL COLOR(5,11,1)::FOR N=1 to 1000::FOR I=0 TO 7::CALL CHAR(97,P$(I))::NEXT I::NEXT N 

Note: Demo needs 4 sprites on a line limitation for the right effect, most F18As will have this disabled.

  • Like 7
Link to comment
Share on other sites

Title - Christmas Hermit

 

Programmer - Jake (Iwantgames)

 

Story - Living in a cave, all the Hermit really wants is a friend for Christmas.

 

Code -

 


1 CALL CLEAR::CALL SCREEN(::CALL CHAR(33,"FFFFFFFFFFFFFFFF",40,"FFFFFFFFFFFFFFFF",48,"FFF7EBF7E3D5F7EB")::CALL COLOR(1,15,1,2,16,1,3,2,10)
2 CALL HCHAR(22,14,48,1)::CALL HCHAR(22,7,33,7)::CALL HCHAR(22,15,33,9)::CALL HCHAR(23,1,40,64)
3 CALL CHAR(56,"000000003C7EFFFF")::CALL CHAR(96,"18183C3C7E7EFFFF")::CALL COLOR(4,2,15,9,3,1)
4 CALL HCHAR(21,14,56,1)::CALL HCHAR(21,7,33,7)::CALL HCHAR(21,15,33,9)::CALL HCHAR(21,4,96,1)::CALL HCHAR(21,28,96,1)
5 CALL CHAR(104,"1818181818181818")::CALL COLOR(10,12,1)::CALL HCHAR(22,4,104,1)::CALL HCHAR(22,28,104,1)
6 CALL CHAR(112,"0000007F7F7F10FF")::CALL CHAR(113,"00060EFEFCF912FC")::CALL COLOR(11,7,15)::CALL HCHAR(22,18,112,1)::CALL HCHAR(22,19,113,1)
7 FOR A=1 TO 14::C=INT(A/2)::CALL HCHAR(6+A,14-C,33)::CALL HCHAR(6+A,15-C,40,C*2+1)::CALL HCHAR(6+A,16+C,33)::NEXT A::
8 CALL SAY("HOW HOW HOW")::RANDOMIZE :: FOR I=3 TO 28::
9 SC=INT(RND*256)+1 :: VSPD=INT(RND*2)+5 :: CALL SPRITE(#I,42,16,1,SC,VSPD,0):: FOR DEL=1 TO 50 :: NEXT DEL :: NEXT I
10 DISPLAY AT(3,7):"MERRY CHRISTMAS"::DISPLAY AT(5,7):"FROM THE HERMIT"::GOTO 10

  • Like 7
Link to comment
Share on other sites

Title: XmasLights


Story: Too many bytes for Christmas, until the Harmlesslion crunches them.


Programmers: Jedimatt42 & Tursi



1 CALL CLEAR::CALL SCREEN(15)::CALL COLOR(2,7,16,10,11,15,11,13,15,12,7,15)::G$="001C3E7F7F7F3E1C"::CALL CHAR(104,G$,112,G$,120,G$)
2 K$=RPT$("03071CF0",3)::CALL CHAR(42,"2854AA54AA5428",43,"2050A85020",44,"205020",45,K$)::FOR I=1 TO 8::C=INT(RND*226)+1
3 CALL SPRITE(#I,42,16,3,C,9,3,#I+8,43,16,2,C+13,7,2,#I+16,44,16,1,C+27,5,1)::NEXT I::CALL VCHAR(6,3,45,7)
4 CALL VCHAR(6,7,45,7)::READ M::FOR I=1 TO M::READ N::L=INT(N/256)::C=N-L*256::FOR J=1 TO L::READ N::Y=INT(N/256):=N-Y*256::CALL VCHAR(Y,X,C)::NEXT J::NEXT I
5 FOR I=1 TO 8 STEP 2::CALL CHAR(45,SEG$(K$,I,16))::CALL COLOR(11,4+I,15,12,14-I,15)::NEXT I::GOTO 5
6 DATA 10,616,1283,1287,880,1796,2053,1798,2424,2569,2570,2571,2572,2315,2314,2825,3082,3083,1904,2318,2574,2830,3086
7 DATA 2575,2320,2577,1912,2323,2579,2835,3091,2580,2325,2582,3184,2328,2584,2840,3097,3098,2843,2587,2331,3099,3355
8 DATA 3610,3609,3440,3592,3849,4105,4362,4619,4875,5132,3596,3851,4107,4617,4873,5128,3192,4366,4622,4878,5134,4367
9 DATA 4624,4880,5136,4369,4626,4882,5138,2672,4375,4631,4887,5143,4630,4373,4628,4884,5141,4886,2680,4380,4379,4378
10 DATA 4633,4890,4891,5148,5403,5402,5401
  • Like 8
Link to comment
Share on other sites

Here's mine!

 

Title: On Christmas

Programmer: unHUman

Story: You'll find out

Code:

1 CALL CLEAR::CALL SCREEN(1)::CALL COLOR(2,3,2)::CALL COLOR(3,7,2)::A$="3838483B1E0C1E63"::B$="1C1C12DC783078C6"::CALL CHAR(41,A$)::CALL MAGNIFY(3)::R=156
2 C=228::CALL CHAR(49,B$)::FOR I=1 TO 16::CALL VCHAR(1,I*2,41,22)::CALL VCHAR(1,I*2-1,49,22)::NEXT I::FOR I=26 TO 32::CALL VCHAR(17,I,32,6)::NEXT I::S=136
3 D=208::CALL CHAR(96,"000F0F0F2F100000000000001C1F000000E0E0E8F0000000000000083CF")::CALL CHAR(100,"0F1F1F3F307060E0C000000000000000E0F0F8FC1E0E0E0703")
4 CALL CHAR(104,"0000000000060A0E0600000000000000000000000060A0E06")::CALL CHAR(108,"0000000000191131393F1E0E07000000000000000090101898F87070E")
5 CALL CHAR(112,"000000000181ABFF7F1F07010101070F00000000000055FFFEF8E0808080E0F0")::CALL CHAR(116,"000101ABABAA0000000000000000000000000055555500000")
6 CALL CHAR(120,"010100AA00000000000000000000000000000055000000000")::CALL SPRITE(#1,96,3,R,C)::CALL SPRITE(#2,100,4,R,C)
7 CALL SPRITE(#3,104,15,R,C)::CALL SPRITE(#4,108,12,R,C)::CALL SPRITE(#5,112,12,S,D)::CALL SPRITE(#6,120,15,S,D)::CALL SPRITE(#7,116,15,S,D)
8 CALL COLOR(5,15,2)::CALL COLOR(6,5,2)::CALL COLOR(7,15,2)::CALL COLOR(8,5,2)::J$="SAMTSIRHC NO WEJ YLENOL"
9 K$=""::FOR I=LEN(J$) TO 1 STEP -1::K$=K$ & SEG$(J$,I,1)::NEXT I::DISPLAY AT(24,6):K$
10 CALL CHAR(41,B$)::CALL CHAR(49,A$)::CALL COLOR(#6,7)::CALL CHAR(41,A$)::CALL CHAR(49,B$)::CALL COLOR(#6,11)::GOTO 10

Edited by unhuman
  • Like 5
Link to comment
Share on other sites

Name: TI Holidays

 

Programmers: Jake (Iwantgames) & Sometimes

 

Code:

 


1 CALL CLEAR::CALL SCREEN(2)::CALL CHAR(60,"FFFFFFFEFEFCFCFC0F07070303010000F8F8FCFCFEFF7F00",100,"000028107C102800")::CALL COLOR(1,7,1,2,7,1)
2 CALL CHAR(33,"FFFFFFFFFFFFFFFF000000000080C0E0FEFEFEFEFEFEFEFEC0E0F0F8FCFEFFFF",37,"F8800000000080F81F0100000000011F030303030303030180C0E0E0E0E0E0E0")
3 CALL CHAR(41,"FF7F3F0703030101E0E0E0E0E0E0E0E0FF7F3E1C00000000FFFF7F3F1F0F0703",48,"00007CFEFEFEFEFE003C7EFFFF7E3C00FEFEFEFEFEFEFEFEFEFEFE7C00000000")
4 CALL CHAR(45,"000000000080C0FFFFFF7F3F1F1F3FFFE0E0E0E0C0800000",56,"FF7F7F3F3F1F1F0FFFFEFCF8F0E0C0800F07070707030301FF7F7F3F3F1F1F0F")
5 CALL COLOR(3,13,1,4,7,1,5,5,1,6,5,1,7,5,1,8,5,1,10,16,1)::FOR I=1 TO 4::READ T$::DISPLAY AT(1+I*4,1):T$; ::NEXT I
6 FOR I=3 TO 28::SC=INT(RND*256)+1::VSPD=INT(RND*2)+5::CALL SPRITE(#I,100,16,1,SC,VSPD,0)::FOR D=1 TO 50::NEXT D::NEXT I::FOR I=0 TO 999999::NEXT I
7 DATA "           !!                          !!""1                        !!#0!!$                     !!%2&!!"
8 DATA "         '!!!#2!!!(                   )!!#3!!!*                    +,!-.!!/                      8!!!9"
9 DATA "             :!!9                         ;<                          =>"
10 DATA "                               HAPPY HOLIDAYS TO ALL MY                                    FELLOW TI USERS"

  • Like 5
Link to comment
Share on other sites

Name: Twelve O(N^2)

Programmer: Fredrik Ohrstrom

Code: (You compile using http://nivelleringslikaren.eu/ti994a_basic/)

1 DIM X$(16),Q(24),R(53,4),G(5),D$(3),P(91,3),G$(12),TT$(13) :: RR=1 :: Y=659.3 :: FOR I=1 TO 24 :: Q(I)=Y :: Y=Y*0.944 :: NEXT I :: FOR I=1 TO 4 :: G(I)=I*150 :: NEXT I :: G(5)=720 :: GG=2 :: Y=1 :: FOR I=1 TO 4 :: P(Y,1)=1 :: P(Y,2)=12 :: P(Y,3)=1 :: Y=Y+1 :: FOR X=3 TO I :: P(Y,1)=21 :: P(Y,2)=24 :: P(Y,3)=I-X+4 :: Y=Y+1 :: NEXT X :: P(Y,1)=25 :: P(Y,2)=29 :: P(Y,3)=3 :: Y=Y-(I>1) :: P(Y,1)=13 :: P(Y,2)=20 :: P(Y,3)=2 :: Y=Y+1 :: NEXT I :: CALL CHAR(95,"0") :: CALL CLEAR :: CALL SCREEN(2) :: FOR I=1 TO 8 :: CALL COLOR(I,16,2) :: NEXT I :: FOR I=1 TO 25 :: CALL SPRITE(#I,42,16,1+RND*180,1+RND*240) :: NEXT I :: FOR I=1 TO 8 :: P(Y,1)=1 :: P(Y,2)=12 :: P(Y,3)=1 :: Y=Y+1 ::FOR X=2 TO I :: P(Y,1)=30 :: P(Y,2)=34 :: P(Y,3)=I-X+7 :: Y=Y+1 :: NEXT X :: P(Y,1)=35 :: P(Y,2)=38 :: P(Y,3)=6 :: Y=Y+1 :: P(Y,1)=39 :: P(Y,2)=43 :: P(Y,3)=5 :: Y=Y+1 :: P(Y,1)=44 :: P(Y,2)=46 :: P(Y,3)=4 :: Y=Y+1 :: P(Y,1)=47 :: P(Y,2)=52 :: P(Y,3)=3 :: Y=Y+1 :: P(Y,1)=13 :: P(Y,2)=20 :: P(Y,3)=2 :: Y=Y+1 :: NEXT I :: K=47

2 AA$="\x0E~y\xBE\x1A$L\xE8hf\xFBr\xFD$\xA9~c\xEC/\xCE\x0D\x8A\xFD\x1E\xFBJ\xF0~\x80d\xA4\x92!\xCA\xFA\\\xF8~\x81B\x97\xE8\x91J\xF5*\x95\x18/\xC8}\x8A\x9F\x8C\x91\\\x1A>A\\\x9F\x86{\x18\xCF\xC4L\x88\x9F\x8E{\x08\xFC\x92q\xE6\xF1\xCA,\xCA\xF8~`r\xF4\xEE\x0B\xA6\xF8~\x9D\xD2k|hR$\xFE\x0F\xDAK\x16\xF1$\xABZ,\xA6\xF9$\xABZ\xF4\x12\x81d\x9F\xE0L<`HIf\xF9\x02p\xFC" 
3 BB$="c\xE4$\xFE\x0F\xD8(`\xF5\x10/\xE8\xB9X\xB1~ r\x9F\xDE7\xC6D\x92\x9D\x1A\x0C\xFC\x1B\xC8)>\x16~4\x8A$\x92_\xDED\xA6\xA4\x9Eo\xBC" 
4 CC$="\xD3\xDE\xCA\x94\xD2\xB2Z\x901P\xE1\xB2.\x86\xC8J2\xB4GT\xD0\xF2A\xB4(\xF2A\xB4.L\xD0\xF2A\x8AG\x06\xD0t'F\xC8\xCA24QZVPR\xDA\xD3\xF27\x9E\x92\x94z\xD4y\x8AC\xCAR\x8AR\x96\x93\xD04^A\xA2[\xDE{\xDER\x94Z\xCAz\x1Ek^\x82\xA0k\xD6\xF0\xDE|\xA4\x93\xD6Z\xD6Td\x8C^{\xD4Z\xD6j\xD0C^Z\xD6Z\xD4B\x1E{\xE2\x8C\xA2\x8C\xA8\xA2\x94[\xFC" 

5 _=446 :: Z=1 :: FOR K=1 TO 3 :: IF K=1 THEN F$=AA$ ELSE IF K=2 THEN F$=BB$ ELSE F$=CC$

6 FOR I=1 TO LEN(F$) STEP 2 :: B=ASC(F$) :: F$=SEG$(F$,2,200) :: C=ASC(F$) :: F$=SEG$(F$,2,200) :: D$(1)=CHR$(64+INT(B/8)) :: D$(2)=CHR$(64+INT(B-INT(B/8)**4+INT(C/64)) :: D$(3)=CHR$(64+INT((C-INT(C/64)*64)/2)) :: FOR L=1 TO 3 :: XX=ASC(D$(L))-64 :: _$=_$&D$(L) :: IF K<3 AND D$(L)="^" THEN X$(Z)=SEG$(_$,1,LEN(_$)-1) :: Z=Z+1 :: _$="" :: GOTO 7 ELSE IF D$(L)="^" AND ZZ<3 THEN  ZZ=ZZ+1 :: RR=1 :: _$="" :: GOTO 7 ELSE IF D$(L)="^" THEN GOTO 7 ELSE IF K=3 AND XX>24 THEN GG=XX-24 :: GOTO 7 ELSE IF K=3 AND XX<25 AND ZZ=0 THEN R(RR,1)=G(GG) :: R(RR,2)=Q(XX) :: RR=RR+1 :: GOTO 7 ELSE IF ZZ>0 THEN R(RR,2+ZZ)=Q(XX)/ZZ :: RR=RR+1

7 DISPLAY AT(1,1):_;"  " :: _=_-1 :: NEXT L :: NEXT I :: NEXT K :: DISPLAY AT(1,1)$(14)&X$(15): :: R(38,1)=150*8 :: R(20,1)=150*8 :: T$="ON THE" :: G$(1)=T$&" 1ST D"&X$(1) :: G$(2)=T$&" 2ND D"&X$(1) :: G$(3)=T$&" 3RD D"&X$(1) :: FOR I=4 TO 12 :: G$(I)=T$&" "&STR$(I)&"TH D"&X$(1) :: NEXT I :: FOR I=3 TO 6 :: X$(I)=STR$(I-1)&" "&X$(I) :: NEXT I :: FOR I=7 TO 13 :: X$(I)=STR$(I-1)&" "&X$(I)&"ING" :: NEXT I :: X$(3)=X$(3)&" AND" :: V=0 :: FOR I=1 TO 89 :: J=P(I,1) :: CALL SOUND(R(J,1),R(J,2),0,R(J,3),5,R(J,4),5) :: M=P(I,3) :: IF M>1 THEN DISPLAY AT(20-M,1)$(M) ELSE V=V+1 :: CALL CLEAR :: DISPLAY AT(1,1)$(14)&X$(15) :: DISPLAY AT(4,1):G$(V)

8 FOR J=J+1 TO P(I,2) :: CALL SOUND(R(J,1),R(J,2),0,R(J,3),10,R(J,4),10) :: NEXT J :: NEXT I :: FOR I=13 TO 20 ::  R(I,1)=1.5*I*R(I,1)/13 :: NEXT I :: M=2 :: DISPLAY AT(20-M,1)$(M) :: FOR J=13 TO 20 :: CALL SOUND(R(J,1),R(J,2),0,R(J,3),0,R(J,4),0) :: NEXT J :: FOR I=1 TO 2 :: I=1 :: NEXT I

  • Like 4
Link to comment
Share on other sites

Name: Twelve O(N^2)

Programmer: Fredrik Ohrstrom

Code: (You compile using http://nivelleringslikaren.eu/ti994a_basic/)

Wow! Awesome!

 

For those having difficulty with the online compiler, unzip the attached into Classic99 DSK1 folder, then start XB and type:

 

OLD DSK1.basic.bin

 

Then RUN

 

Cool stuff! :thumbsup:

basic_prog.zip

Edited by Willsy
  • Like 1
Link to comment
Share on other sites

Title: Invader on Adventure as Christmas Tree

Creator: Sometimes

 

1 call screen(2)::call clear::call hchar(23,1,40,128)::call vchar(3,31,40,92)::call hchar(23,13,32,8)::call hchar(24,13,32,8)::call magnify(2)
2 call color(1,2,15,2,14,14,4,15,15)::call sprite(#1,52,13,80,123)::call vchar(18,18,60,2)::call hchar(22,16,60)
3 call char(56,"0101030307070F0F1F1F3F3F7F7FFFFF8080C0C0E0E0F0F0F8F8FCFCFEFEFFFF",60,rpt$("F",16))::call vchar(18,15,60,2)
4 for i=0 to 11::call hchar(i+5,16-i/2,56+(i and 1))::call hchar(i+5,16-i/2+1,60,int(i/2)*2)::call hchar(i+5,16.5+i/2,58+(i and 1))::next i
5 for i=1 to 3::call hchar(i+16,15-i/2,56+(i and 1))::call hchar(i+16,17.5+i/2,58+(i and 1))::next i::call hchar(13,15,32,5)::call hchar(13,17,60)::goto 7
6 read sp,fr::if fr>0 then call sound(sp*250,fr,0,fr*1.02,6) else if sp=9 then restore else if fr=0 then call sound(sp*250,110,30)
7 if sp=0 then call delsprite(#1)::call color(2,13,13,4,13,15)::goto 6 else call sound(1,110,30)::goto 6
8 data 2,220,1,247,1,262,1,247,1,220,2,330,1,330,2,330,1,0,2,349,1,392,1,440,1,392,1,349,3,330
9 data 2,330,1,0,2,294,1,294,1,349,1,330,1,294,2,262,1,262,3,220,1,247,1,247,1,262,1,247,1,165
10 data 1,208,3,220,3,220,9,0

Edited by sometimes99er
  • Like 2
Link to comment
Share on other sites

  • 2 weeks later...

Title: Christmas Day Sledding

 

Programmer: Buck O Brand

 

Code:

 
1 CALL CLEAR :: CALL COLOR(9,16,1):: CALL CHAR(100,"FFFFFFFFFFFFFFFF80C0E0F0F8FCFEFF")
2 CALL CHAR(104,"00040A21723CBC4E271309040201000000C0C000A04008130B84CAF172789840"):: CALL MAGNIFY(3)
3 ROW=3 :: COL=1 :: REPEAT=22
4 FOR X=1 TO 22 :: CALL VCHAR(ROW,COL,100,REPEAT):: ROW=ROW+1 :: COL=COL+1 :: REPEAT=REPEAT-1 :: NEXT X
5 ROW=2 :: COL=1 :: FOR X=1 TO 23 :: CALL HCHAR(ROW,COL,101):: ROW=ROW+1 :: COL=COL+1 :: NEXT X
6 SPRITEROW=1 :: SPRITECOL=1
7 CALL SPRITE(#1,104,7,SPRITEROW,SPRITECOL):: DISPLAY AT(4,:"MERRY CHRISTMAS!!!";:: DISPLAY AT(6,:"FROM BUCKOBRAND!!!"
8 SPRITEROW=SPRITEROW+1 :: SPRITECOL=SPRITECOL+1
9 CALL LOCATE(#1,SPRITEROW,SPRITECOL):: IF SPRITEROW>192 THEN SPRITEROW=0 :: SPRITECOL=0
10 GOTO 8

Buck forgot to post it here. ;)

Edited by Opry99er
  • Like 4
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...