kl99 Posted December 30, 2015 Share Posted December 30, 2015 This is a Disk Cataloger Program which allows to catalog the Disk Drive you input at the beginning: 1 IF B=0 THEN INPUT B :: GOTO 1 ELSE C=C+1 :: OPEN #1:"DSK"&STR$(B)&".",INPUT ,RELATIVE,INTERNAL :: INPUT #1,REC C:A$,A,J,K :: IF LEN(A$)=0 THEN CLOSE #1 ELSE PRINT USING "########## ### #":A$,J,A :: CLOSE #1 :: GOTO 1 2 Quote Link to comment Share on other sites More sharing options...
Omega-TI Posted December 31, 2015 Share Posted December 31, 2015 ... :: X=INT(RND*20)+1 :: Y=INT(RND*10)+1 :: ... Not bad for a kid. Quote Link to comment Share on other sites More sharing options...
Omega-TI Posted December 31, 2015 Share Posted December 31, 2015 here's mine strobe light program with variable delay ** EPILEPTICS VIEW AT OWN RISK ** Quote Link to comment Share on other sites More sharing options...
+Ksarul Posted December 31, 2015 Share Posted December 31, 2015 Epileptic Techno. . .I like it. Quote Link to comment Share on other sites More sharing options...
unhuman Posted December 31, 2015 Share Posted December 31, 2015 (edited) Flying through space - with Joystick controls! 1 CALL SCREEN(1)::FOR I=1 to 14::CALL JOYST(1,X,Y)::CALL SPRITE(#I,46,15,96,128,RND*10-5-Y*2,RND*10-5-X*2)::NEXT I::GOTO 1 Edited December 31, 2015 by unhuman 4 Quote Link to comment Share on other sites More sharing options...
Opry99er Posted December 31, 2015 Share Posted December 31, 2015 Not bad for a kid. For full disclosure, he has beem mimicking and typing in the holiday demos and these one liners. This one liner was all his doing, but I helped him with the multiplier because he was getting some bad values. Quote Link to comment Share on other sites More sharing options...
kl99 Posted December 31, 2015 Share Posted December 31, 2015 Bouncing Block:1 B=B-(Y<2)+2*(Y>48):: A=A-(X<2)+2*(X>64):: Y=Y+B :: X=X+A :: CALL MOTION(#1,12*B,12*A):: IF C=1 THEN 1 :: CALL SCREEN(2):: C=1 :: CALL SPRITE(#1,79,9,Y,X):: GOTO 1 Since this uses Call Motion, it could be that result is different in emulators or on the real machine. I tested it against Classic99 with Default 60Hz. 5 Quote Link to comment Share on other sites More sharing options...
+Schmitzi Posted December 31, 2015 Share Posted December 31, 2015 . really amazing, one line only !! Which key is fire ? 2 Quote Link to comment Share on other sites More sharing options...
GratedTopping Posted January 1, 2016 Share Posted January 1, 2016 (edited) ONLY THOSE WHOSE SEIZURES ARE BROUGHT-UPON BY FLASHING-LIGHTS NEED BE CAREFUL Edited January 1, 2016 by GratedTopping Quote Link to comment Share on other sites More sharing options...
unhuman Posted January 1, 2016 Share Posted January 1, 2016 Klaus - really nice way of doing initialization... Quote Link to comment Share on other sites More sharing options...
+arcadeshopper Posted January 6, 2016 Author Share Posted January 6, 2016 Ok looks like we're at the end of the submissions, I'll say Friday of this week is the deadline then will post a poll to determine the winner! Greg 1 Quote Link to comment Share on other sites More sharing options...
OX. Posted January 6, 2016 Share Posted January 6, 2016 (edited) One liner contest eh? A man walked into a bar .. ouch! It was a metal bar. Edited January 6, 2016 by OX. 2 Quote Link to comment Share on other sites More sharing options...
Iwantgames:) Posted January 6, 2016 Share Posted January 6, 2016 I'll try and get something by Friday 1 Quote Link to comment Share on other sites More sharing options...
Omega-TI Posted January 7, 2016 Share Posted January 7, 2016 This is a Disk Cataloger Program which allows to catalog the Disk Drive you input at the beginning: 1 IF B=0 THEN INPUT B :: GOTO 1 ELSE C=C+1 :: OPEN #1:"DSK"&STR$(B)&".",INPUT ,RELATIVE,INTERNAL :: INPUT #1,REC C:A$,A,J,K :: IF LEN(A$)=0 THEN CLOSE #1 ELSE PRINT USING "########## ### #":A$,J,A :: CLOSE #1 :: GOTO 1 I hope you don't mind, I used your one liner as an example in a very short video on getting text files onto Real Iron the easy way... https://www.youtube.com/watch?v=s9UPvRFjQDA&feature=youtu.be 2 Quote Link to comment Share on other sites More sharing options...
Iwantgames:) Posted January 7, 2016 Share Posted January 7, 2016 1 CALL CLEAR::FOR A=3 TO 16::CALL SCREEN(2)::FOR CSET=1 TO 7::CALL COLOR(CSET,A,1)::DISPLAY AT(10,5):"TI-99 1979-FOREVER!!"::NEXT CSET::NEXT A::GOTO 1 Just a lil something 4 Quote Link to comment Share on other sites More sharing options...
sometimes99er Posted January 7, 2016 Share Posted January 7, 2016 Haunted 1 call clear::for i=1 to 7::call char(32+i,seg$("7CFEAEFECEFEAA",1,i*2))::next i::for i=0 to 9999::l=rnd*23+1::c=rnd*31+1::call gchar(l,c,g)::call hchar(l,c,(g+1)and 39)::next i 4 Quote Link to comment Share on other sites More sharing options...
+Schmitzi Posted January 7, 2016 Share Posted January 7, 2016 cool. Do you have a description of the cable for that ? Is it 1:1 ? Quote Link to comment Share on other sites More sharing options...
sometimes99er Posted January 7, 2016 Share Posted January 7, 2016 Asteroids 1 call screen(2)::call char(36,"303C7FFE7FFE7C18")::call magnify(2)::for i=1 to 13::call sprite(#i,36,2+i,99,80,rnd*64-32,rnd*32-16)::next i::for i=0 to 9999::next i 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.