+arcadeshopper Posted December 29, 2015 Share Posted December 29, 2015 Rules - Program must be usable in TI extended basic (so we can all try it) - One line only, multiple commands per line are ok Submit your programs to this thread 3 Quote Link to comment Share on other sites More sharing options...
Opry99er Posted December 29, 2015 Share Posted December 29, 2015 Sweeeeet!!! I'm in!!! Quote Link to comment Share on other sites More sharing options...
Omega-TI Posted December 29, 2015 Share Posted December 29, 2015 Here's mine, short and simple... 1 CALL CLEAR :: CALL SCREEN(10) :: DISPLAY AT(A,A):"ti99.atariage.com" :: A=A+7.77 :: CALL SOUND(-10,110,1) :: GOTO 1 2 Quote Link to comment Share on other sites More sharing options...
GratedTopping Posted December 30, 2015 Share Posted December 30, 2015 (edited) TI is 'backing up' to it's rightful top retro-computer position: 1 DISPLAY BEEP :: PRINT RPT$("T",14); :: CALL CHAR(84,"0038101010101038",73,"007C10101010101"):: PRINT RPT$("I",14); :: CALL CHAR(84,"007C10101010101",73,"0038101010101038"):: GOTO 1 Edited December 30, 2015 by GratedTopping 3 Quote Link to comment Share on other sites More sharing options...
RXB Posted December 30, 2015 Share Posted December 30, 2015 Ok I will bite...using RXB 2015E or RXB 2012: 1 CALL INIT :: CALL LOAD(9838,47,0,38,114,4,32,32,44,3,128) :: CALL LOAD(12032,0,0,48,0,2,255) :: CALL EXECUTE(9838) This will Initialize lower 8K and run VMBR of entire screen copied to Lower 8K at >3000 how is that for Assembly in XB with a useful routine? Quote Link to comment Share on other sites More sharing options...
Omega-TI Posted December 30, 2015 Share Posted December 30, 2015 Ok I will bite...using RXB 2015E or RXB 2012: Bzzzzzzzzzzzzzzzzzzzt! Sorry, does not compute. Rules - Program must be usable in TI extended basic (so we can all try it) Quote Link to comment Share on other sites More sharing options...
kl99 Posted December 30, 2015 Share Posted December 30, 2015 Here is mine: 1 A$="T I HOME COMPUTER" :: DISPLAY AT(7,2)ERASE ALL:A$ :: DISPLAY AT(9,4):"1979-?" :: ACCEPT AT(9,9)BEEP:B$ :: CALL SAY(RPT$("UHOH ",3)) :: DISPLAY AT(9,9)BEEP:"FOREVER" :: CALL SAY("THE1 "&A$&".I+WILL+LAST.") 4 Quote Link to comment Share on other sites More sharing options...
senior_falcon Posted December 30, 2015 Share Posted December 30, 2015 (edited) This is called "Fireworks" : 10 CALL SCREEN(2):: RANDOMIZE :: R=RND*80+32 :: C=RND*192+32 :: H=RND*14+2.5 :: FOR I=1 TO 28 :: CALL SPRITE(#I,42,H,R,C,RND*10-5,RND*10-5):: NEXT I :: CALL DELSPRITE(ALL):: RUN Edited December 30, 2015 by senior_falcon 5 Quote Link to comment Share on other sites More sharing options...
Opry99er Posted December 30, 2015 Share Posted December 30, 2015 (edited) "Fleas on a dog's back" 100 CALL CLEAR :: CALL SCREEN(11):: FOR I=1 TO 28 :: A=INT(RND*100):: B=INT(RND*100):: C=INT(RND*10)+1 :: D=INT(RND*10)+1 :: CALL SPRITE(#I,46,2,A,B,C,D):: NEXT I :: FOR X=1 TO 99999 :: NEXT X Edited December 30, 2015 by Opry99er 4 Quote Link to comment Share on other sites More sharing options...
sometimes99er Posted December 30, 2015 Share Posted December 30, 2015 The no nonsense, obvious and dull, - Guessing Game ! 1 IF N=0 THEN CALL CLEAR::RANDOMIZE::N=INT(RND*999)+1::GOTO 1 ELSE INPUT "GUESS NUMBER ":G::IF G>N THEN PRINT "TOO HIGH"::GOTO 1 ELSE IF G<N THEN PRINT "TOO LOW"::GOTO 1 ELSE INPUT "THAT'S RIGHT ":C$::N=0::GOTO 1 1 Quote Link to comment Share on other sites More sharing options...
+InsaneMultitasker Posted December 30, 2015 Share Posted December 30, 2015 (edited) When TI BASIC was but a twinkle in the eye... 1 ON BREAK NEXT :: IF X=0 THEN CALL CLEAR :: PRINT " * TI BASIC V0.02 *": : :: X=1 :: GOTO 1 ELSE PRINT ">"; :: ACCEPT AT(24,2):A$ :: IF A$="NEW" THEN X=0 :: GOTO 1 ELSE IF A$<>"BYE" THEN PRINT A$:"* ERROR *": : :: X=1 :: GOTO 1 ELSE CALL CLEAR :: END or if you don't wish to enter 9+ lines, remove the zip extension and place in classic99 disk folder ONELINE.zip * edit: corrected formatting to best of ability Edited December 30, 2015 by InsaneMultitasker 4 Quote Link to comment Share on other sites More sharing options...
am1933 Posted December 30, 2015 Share Posted December 30, 2015 There was this man and he walks into a............sorry-just seen the title of this thread and got confused. Quote Link to comment Share on other sites More sharing options...
sometimes99er Posted December 30, 2015 Share Posted December 30, 2015 1PRINT "A BEAR WALKS INTO A BAR AND SAYS, I'D LIKE A BEER ..... AND SOME OF THOSE PEANUTS. THE BARTENDER SAYS, SURE BUTWHY THE BIG PAWS?" 4 Quote Link to comment Share on other sites More sharing options...
RXB Posted December 30, 2015 Share Posted December 30, 2015 (edited) Bzzzzzzzzzzzzzzzzzzzt! Sorry, does not compute. Hmm works fine on your PC with Classic99 or the other Emulators and there are RXB 2012 Cartridges out there. Normal XB is so limited and finding something new after 35 years would be pretty much a miracle. Edited December 30, 2015 by RXB Quote Link to comment Share on other sites More sharing options...
Stuart Posted December 30, 2015 Share Posted December 30, 2015 sometimes99er, on 30 Dec 2015 - 12:03 PM, said: 1PRINT "A BEAR WALKS INTO A BAR AND SAYS, I'D LIKE A BEER ..... AND SOME OF THOSE PEANUTS. THE BARTENDER SAYS, SURE BUTWHY THE BIG PAWS?" Just what I was thinking! Two one-liners in one ... 3 Quote Link to comment Share on other sites More sharing options...
kl99 Posted December 30, 2015 Share Posted December 30, 2015 How do you like this? Kind of a worm or a bouncing ball that leaves a trace:1 CALL SOUND(-20,-7,0):: B=B-(Y=0)+2*(Y=23):: A=A-(X=0)+2*(X=31):: CALL HCHAR(Y+1,X+1,92+45*(B=-A)):: Y=Y+B :: X=X+A :: CALL HCHAR(Y+1,X+1,111):: GOTO 1 6 Quote Link to comment Share on other sites More sharing options...
Omega-TI Posted December 30, 2015 Share Posted December 30, 2015 How do you like this? Kind of a worm or a bouncing ball that leaves a trace: 1 CALL SOUND(-20,-7,0):: B=B-(Y=0)+2*(Y=23):: A=A-(X=0)+2*(X=31):: CALL HCHAR(Y+1,X+1,92+45*(B=-A)):: Y=Y+B :: X=X+A :: CALL HCHAR(Y+1,X+1,111):: GOTO 1 Damn, I'm amazed at what you guys can do with one line of code, this one really impressed me. 3 Quote Link to comment Share on other sites More sharing options...
+Schmitzi Posted December 30, 2015 Share Posted December 30, 2015 yes, formula crassus Quote Link to comment Share on other sites More sharing options...
sometimes99er Posted December 30, 2015 Share Posted December 30, 2015 1 call screen(2)::call clear::call color(1,4,2)::for i=0 to 99::call char(32,"10387CD6FE284482")::call sound(150,-4,0)::call char(32,"10387CD6FE284428")::next i 4 Quote Link to comment Share on other sites More sharing options...
+Schmitzi Posted December 30, 2015 Share Posted December 30, 2015 oh I like aliens 1 Quote Link to comment Share on other sites More sharing options...
moocowmoo Posted December 30, 2015 Share Posted December 30, 2015 1 ON 0/0*0+1 GOTO 1 3 Quote Link to comment Share on other sites More sharing options...
+arcadeshopper Posted December 30, 2015 Author Share Posted December 30, 2015 (edited) here's mine strobe light program with variable delay 1 INPUT "TIME":T :: CALL CLEAR :: FOR N=1 TO 5 :: CALL SCREEN(2):: FOR D=1 TO T :: NEXT D :: CALL SCREEN(16):: FOR D=1 TO T :: NEXT D :: N=1 :: NEXT N OR without delay 1 CALL CLEAR :: FOR N=1 TO 5 :: CALL SCREEN(2)::CALL SCREEN(16):: N=1 :: NEXT N Edited December 30, 2015 by arcadeshopper Quote Link to comment Share on other sites More sharing options...
+arcadeshopper Posted December 30, 2015 Author Share Posted December 30, 2015 Ok I will bite...using RXB 2015E or RXB 2012: 1 CALL INIT :: CALL LOAD(9838,47,0,38,114,4,32,32,44,3,128) :: CALL LOAD(12032,0,0,48,0,2,255) :: CALL EXECUTE(9838) This will Initialize lower 8K and run VMBR of entire screen copied to Lower 8K at >3000 how is that for Assembly in XB with a useful routine? Cool when you do a 1 liner in RXB contest you can post that in there also it doesn't do anything visable just run then an rxb prompt Greg Quote Link to comment Share on other sites More sharing options...
BuckoBrand Posted December 30, 2015 Share Posted December 30, 2015 1 CALL CLEAR :: CALL SCREEN(6) :: FOR LOOP=1 to 100 :: X=INT(RND*20)+1 :: Y=INT(RND*10)+1 :: DISPLAY AT(X,Y):"I LOVE MY TI-99" :: NEXT LOOP This program is when I love my ti-99 goes all over the screen. Enjoy this one-lined-program! 4 Quote Link to comment Share on other sites More sharing options...
kl99 Posted December 30, 2015 Share Posted December 30, 2015 (edited) Here is a whole Drawing Program: Use your Keyboard: Up, Down, Left, Right. You can even change the Pattern you draw, by pressing "2" and "3". "2" increases the Ascii Value, "3" decreases it. It starts with an Asterix. 1 CALL KEY(1,K,S):: Y=MAX(1,Y+(K=5)-(K=0)):: X=X+(K=2)-(K=3):: C=C+(K=7)-(K=:: CALL SPRITE(#1,79,5,Y*8-7,X*8+1):: CALL HCHAR(Y,X+1,42-C):: GOTO 1 Please don't move out of the screen as there was not enough space for protection against bad values. Edited December 30, 2015 by kl99 7 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.