One liner contest

[+arcadeshopper]

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

[Opry99er]

Sweeeeet!!! I'm in!!!

[Omega-TI]

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

[GratedTopping]

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

[+RXB]

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?

[Omega-TI]

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)

 

[kl99]

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.")

[senior_falcon]

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

[Opry99er]

"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

[sometimes99er]

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
 

[+InsaneMultitasker]

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

[am1933]

There was this man and he walks into a............sorry-just seen the title of this thread and got confused.

[sometimes99er]

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?"
 

 

[+RXB]

 

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

[Stuart]

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 ...

[kl99]

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

[Omega-TI]

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.

[+Schmitzi]

yes, formula crassus

[sometimes99er]

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

  

[+Schmitzi]

oh I like aliens

[moocowmoo]

1 ON 0/0*0+1 GOTO 1

[+arcadeshopper]

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

[+arcadeshopper]

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

[BuckoBrand]

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!

[kl99]

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