Opry99er Posted November 9, 2015 Share Posted November 9, 2015 (edited) 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 November 9, 2015 by Opry99er 4 Quote Link to comment Share on other sites More sharing options...
Opry99er Posted November 9, 2015 Author Share Posted November 9, 2015 (edited) 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 November 9, 2015 by Opry99er 4 Quote Link to comment Share on other sites More sharing options...
am1933 Posted November 9, 2015 Share Posted November 9, 2015 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. 7 Quote Link to comment Share on other sites More sharing options...
Iwantgames:) Posted November 10, 2015 Share Posted November 10, 2015 (edited) Ok my first ever programming attempt Title - Holiday Greeting Programmer - Jake (Iwantgames) Story - just a warm holiday greeting to all TI users 1 CALL CLEAR 2 CALL SCREEN(9) 3 PRINT ". HO HO HO HAPPY HOLIDAYS FELLOW TI'ERS " 4 CALL SAY("HOW HOW HOW") 5 GOTO 5 Edited November 10, 2015 by Iwantgames:) 3 Quote Link to comment Share on other sites More sharing options...
Tursi Posted November 10, 2015 Share Posted November 10, 2015 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 7 Quote Link to comment Share on other sites More sharing options...
+jedimatt42 Posted November 10, 2015 Share Posted November 10, 2015 Is there a trick to entering lines that long? Quote Link to comment Share on other sites More sharing options...
Tursi Posted November 10, 2015 Share Posted November 10, 2015 Is there a trick to entering lines that long? So as not to derail this thread, moved to the discussion thread -> http://atariage.com/forums/topic/245439-2015-holiday-demo-contest/page-2?do=findComment&comment=3364902 1 Quote Link to comment Share on other sites More sharing options...
Iwantgames:) Posted November 11, 2015 Share Posted November 11, 2015 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 5 Quote Link to comment Share on other sites More sharing options...
Opry99er Posted November 11, 2015 Author Share Posted November 11, 2015 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 7 Quote Link to comment Share on other sites More sharing options...
InfernalKeith Posted November 11, 2015 Share Posted November 11, 2015 TITLE: SnowfallAUTHOR: Keith BergmanSTORY: 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 8 Quote Link to comment Share on other sites More sharing options...
sometimes99er Posted November 11, 2015 Share Posted November 11, 2015 (edited) 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 November 15, 2019 by sometimes99er 7 Quote Link to comment Share on other sites More sharing options...
sometimes99er Posted November 13, 2015 Share Posted November 13, 2015 (edited) 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 November 15, 2019 by sometimes99er 8 Quote Link to comment Share on other sites More sharing options...
bfollett Posted November 14, 2015 Share Posted November 14, 2015 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 1 Quote Link to comment Share on other sites More sharing options...
lucien2 Posted November 14, 2015 Share Posted November 14, 2015 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 6 Quote Link to comment Share on other sites More sharing options...
Asmusr Posted November 14, 2015 Share Posted November 14, 2015 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. 7 Quote Link to comment Share on other sites More sharing options...
Iwantgames:) Posted November 15, 2015 Share Posted November 15, 2015 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 7 Quote Link to comment Share on other sites More sharing options...
+jedimatt42 Posted November 15, 2015 Share Posted November 15, 2015 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 8 Quote Link to comment Share on other sites More sharing options...
unhuman Posted November 16, 2015 Share Posted November 16, 2015 (edited) 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 November 17, 2015 by unhuman 5 Quote Link to comment Share on other sites More sharing options...
Iwantgames:) Posted November 18, 2015 Share Posted November 18, 2015 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" 5 Quote Link to comment Share on other sites More sharing options...
Fredrik Öhrström Posted November 19, 2015 Share Posted November 19, 2015 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 4 Quote Link to comment Share on other sites More sharing options...
Willsy Posted November 20, 2015 Share Posted November 20, 2015 (edited) 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! basic_prog.zip Edited November 20, 2015 by Willsy 1 Quote Link to comment Share on other sites More sharing options...
sometimes99er Posted November 20, 2015 Share Posted November 20, 2015 (edited) 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 November 15, 2019 by sometimes99er 2 Quote Link to comment Share on other sites More sharing options...
Opry99er Posted November 30, 2015 Author Share Posted November 30, 2015 (edited) 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 November 30, 2015 by Opry99er 4 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.