+Vorticon #1 Posted May 30 I came across this site today https://gkanold.wixsite.com/homeputerium/kopie-von-basic-10liners-2019. I know we've done a similar contest in the past, but it allowed for DATA statements. It would be fun to launch a new contest for games programmed with only 10 lines of XB and nothing else and see what we can come up with. Any interest? We could submit them to the 2020 entries. 2 Quote Share this post Link to post Share on other sites
carlsson #2 Posted May 30 I think you misunderstand data loaded from secondary storage devices and DATA statements in the actual program, which the 10Liners contest definitely allows. You must not use it to load own machine code routines though, just for graphics or other purposes of filling arrays. Does XB support multiple statements on the same line? Perhabs RXB or other modern versions of the language. I think the fact that reglar TI BASIC and TI Extended BASIC don't seem to support multiple statements on the same row is the reason why no TI-99/4A entries have been entered into the competition, as you normally can't pack anywhere near 80 columns of code without it. Quote Share this post Link to post Share on other sites
+adamantyr #3 Posted May 30 I think you misunderstand data loaded from secondary storage devices and DATA statements in the actual program, which the 10Liners contest definitely allows. You must not use it to load own machine code routines though, just for graphics or other purposes of filling arrays. Does XB support multiple statements on the same line? Perhabs RXB or other modern versions of the language. I think the fact that reglar TI BASIC and TI Extended BASIC don't seem to support multiple statements on the same row is the reason why no TI-99/4A entries have been entered into the competition, as you normally can't pack anywhere near 80 columns of code without it. TI Extended BASIC permits multiple statements in a single line. It's not quite as voluminous as other 8-bit machines, like the TRS-80 Color Computer which allows 255 characters, but it's enough you can write something decent in 10 lines. The good thing about such contests is that we always get a lot of participation here; there's plenty of XB familiar programmers on the board. 1 Quote Share this post Link to post Share on other sites
carlsson #4 Posted May 30 (edited) Great! Previously I dabbled with Extended BASIC through emulation but didn't seem to get multiple statements to be recognized by the interpreter so I must've done something wrong. Edit: Aha, it is not : but :: to separate statements! Edited May 30 by carlsson Quote Share this post Link to post Share on other sites
+digdugnate #5 Posted May 30 i'm interested- it probably won't be as good as some of the others but I'll give it a whack. Quote Share this post Link to post Share on other sites
+Vorticon #6 Posted May 30 I think you misunderstand data loaded from secondary storage devices and DATA statements in the actual program, which the 10Liners contest definitely allows. You must not use it to load own machine code routines though, just for graphics or other purposes of filling arrays. What I meant was that in our previous contest the Data statements were in addition to the 10 lines. This will not be the case in this contest. 1 Quote Share this post Link to post Share on other sites
Asmusr #7 Posted May 31 I believe TI BASIC qualifies for PUR-80 while Extended BASIC qualifies for PUR-120 if you don't make the lines too long. It might be an advantage to use RXB because it allows you to do more with less code. 2 Quote Share this post Link to post Share on other sites
+Vorticon #8 Posted May 31 How about we split into 2 categories: TI Basic and XB or any of its variants? TI Basic with only 10 lines is going to be interesting to say the least... CALL CLEAR and you're already down 1 line! 2 Quote Share this post Link to post Share on other sites
RXB #10 Posted May 31 TI Extended BASIC permits multiple statements in a single line. It's not quite as voluminous as other 8-bit machines, like the TRS-80 Color Computer which allows 255 characters, but it's enough you can write something decent in 10 lines. The good thing about such contests is that we always get a lot of participation here; there's plenty of XB familiar programmers on the board. He might be referring to changes in RXB from XB. Like in normal XB you have CALL HCHAR(row,column,character number,repetition) In RXB the change is HCHAR(row,column,character number,repetition,row,column,character number,repetition,HCHAR(row,column,character number,repetition,...) Also many other commands have this change in RXB and as far as I know no other version of XB has this upgraded change. Quote Share this post Link to post Share on other sites
RXB #11 Posted May 31 I believe TI BASIC qualifies for PUR-80 while Extended BASIC qualifies for PUR-120 if you don't make the lines too long. It might be an advantage to use RXB because it allows you to do more with less code. Thanks. If you use my CALL USER("DSK#.BATCHNAME") or pick a filename it allows you to use DV80 files and the lines can be up to the limit allowed in XB 163 tokens or 255 characters. Also fixed the REDO key problem with recalling a line and being cut off. Quote Share this post Link to post Share on other sites
RXB #12 Posted May 31 For once I would like to see a RXB program contest. After all RXB is built into Classic99 and RXB is the only XB with SAMS support built into it. 2 Quote Share this post Link to post Share on other sites
+Vorticon #13 Posted June 1 I think we should let people pick the XB flavor they prefer. I will use RXB. 1 Quote Share this post Link to post Share on other sites
kl99 #14 Posted June 2 I think we should let people pick the XB flavor they prefer. I will use RXB. I guess then a lot speaks for using the advantages of RXB. Cool. I am on programming something already, will switch to RXB then 1 Quote Share this post Link to post Share on other sites
Bones-69 #15 Posted June 4 (edited) Here is a silly little XB slot machine 10 liner I threw together.... Let me know if anyone pulls off the jackpot (space invader, man, pacman & ghost - in this order). 100 RANDOMIZE :: DIM B(13):: CALL MAGNIFY(2):: FOR I=1 TO 4 :: READ A(I):: B(I)=A(I)::B(I+4)=A(I)::B(I+=A(I):: NEXT I :: READ W$ :: X=1000::S=1::CALL CLEAR::PRINT "YOU START WITH $1,000." : : 105 CALL CHAR(97,"00003C5A7E2442000018003C5A18242400003E6C787C3E0000003C5A7E7E5A"):: INPUT "WHAT IS YOUR MAXIMUM BET PERGAME? $":C :: IF C<=1000 THEN 110 ELSE PRINT "TRY AGAIN"::GOTO 105 110 GOSUB 900::IF X-C>=0 THEN 130 ! WIN *MEGA JACKPOT* BY SPINNING SPACE INVADER, MAN, PACMAN & GHOST - IN THIS ORDER. 120 PRINT "INSUFFICIENT FUNDS TO CONTINUE." : : " GAME OVER ": :"STARTING BALANCE WAS $1,000":"YOU LOST ALL YOUR CASH":"IN "&STR$(S)&" SPINS. LOSER."::STOP 130 X=X-C :: GOSUB 900 :: s=s+1::DISPLAY AT(14,10)BEEP:"GOOD LUCK!" :: FOR D=1 TO 4 :: CALL COLOR(#D,2):: FOR I=1 TO 12 :: CALL PATTERN(#D,B(I)):: CALL SOUND(30,110+I*30,I):: NEXT I 140 I=INT((RND*4)+1):: CALL PATTERN(#D,A(I)):: A$=A$&CHR$(A(I)):: Z$(D)="-"&A$&RPT$("!",4-D):: NEXT D :: FOR D=1 TO 4 :: WI(D)=POS(W$,Z$(D),1):: NEXT D :: FOR D=4 TO 1 STEP -1 :: IF WI(D)<>0 THEN 170 160 NEXT D :: DISPLAY AT(14,10):"* NO WIN *" :: FOR I=1 TO 100 :: NEXT I :: GOTO 110 170 E=VAL(SEG$(W$,WI(D)+5,4))*C :: DISPLAY AT(14,4):"CONGRATS! YOU WIN $"&STR$(E)&"." :: FOR I=1 TO 10 STEP .5 :: CALL SOUND(-500,I*110,0):: NEXT I :: X=X+E :: FOR I=1 TO 500 :: NEXT I :: GOTO 110 900 CALL CLEAR :: DISPLAY AT(1,1):"AVAILABLE FUNDS $"&STR$(X):"BETTING AMOUNT $"&STR$(C)&" " :: FOR I=1 TO 4 :: CALL SPRITE(#I,45,2,80,70+I*20):: NEXT I :: A$="" :: DISPLAY AT(24,1):S::RETURN 1000 DATA 97,98,99,100,-aa!!0001-bb!!0001-cc!!0001-dd!!0001-aaa!0010-bbb!0010-ccc!0010-ddd!0010-aaaa0100-bbbb0100-cccc0100-dddd0100-abcd1000 Edited June 4 by Bones-69 9 Quote Share this post Link to post Share on other sites
sometimes99er #16 Posted June 4 Here is a silly little XB slot machine 10 liner I threw together.... Let me know if anyone pulls off the jackpot (space invader, man, pacman & ghost - in this order). Sweet! Quote Share this post Link to post Share on other sites
kl99 #17 Posted June 4 Whoever tries to quickly update the Screen, check out CALL MOVES from RXB. You can establish sort of scrolling pretty easy. Yesterday I got my code down from over 20 lines to 8 But there are main features missing still It is fun 1 Quote Share this post Link to post Share on other sites
+Vorticon #18 Posted June 4 Here is a silly little XB slot machine 10 liner I threw together.... Let me know if anyone pulls off the jackpot (space invader, man, pacman & ghost - in this order). 100 RANDOMIZE :: DIM B(13):: CALL MAGNIFY(2):: FOR I=1 TO 4 :: READ A(I):: B(I)=A(I)::B(I+4)=A(I)::B(I+=A(I):: NEXT I :: READ W$ :: X=1000::S=1::CALL CLEAR::PRINT "YOU START WITH $1,000." : : 105 CALL CHAR(97,"00003C5A7E2442000018003C5A18242400003E6C787C3E0000003C5A7E7E5A"):: INPUT "WHAT IS YOUR MAXIMUM BET PERGAME? $":C :: IF C<=1000 THEN 110 ELSE PRINT "TRY AGAIN"::GOTO 105 110 GOSUB 900::IF X-C>=0 THEN 130 ! WIN *MEGA JACKPOT* BY SPINNING SPACE INVADER, MAN, PACMAN & GHOST - IN THIS ORDER. 120 PRINT "INSUFFICIENT FUNDS TO CONTINUE." : : " GAME OVER ": :"STARTING BALANCE WAS $1,000":"YOU LOST ALL YOUR CASH":"IN "&STR$(S)&" SPINS. LOSER."::STOP 130 X=X-C :: GOSUB 900 :: s=s+1::DISPLAY AT(14,10)BEEP:"GOOD LUCK!" :: FOR D=1 TO 4 :: CALL COLOR(#D,2):: FOR I=1 TO 12 :: CALL PATTERN(#D,B(I)):: CALL SOUND(30,110+I*30,I):: NEXT I 140 I=INT((RND*4)+1):: CALL PATTERN(#D,A(I)):: A$=A$&CHR$(A(I)):: Z$(D)="-"&A$&RPT$("!",4-D):: NEXT D :: FOR D=1 TO 4 :: WI(D)=POS(W$,Z$(D),1):: NEXT D :: FOR D=4 TO 1 STEP -1 :: IF WI(D)<>0 THEN 170 160 NEXT D :: DISPLAY AT(14,10):"* NO WIN *" :: FOR I=1 TO 100 :: NEXT I :: GOTO 110 170 E=VAL(SEG$(W$,WI(D)+5,4))*C :: DISPLAY AT(14,4):"CONGRATS! YOU WIN $"&STR$(E)&"." :: FOR I=1 TO 10 STEP .5 :: CALL SOUND(-500,I*110,0):: NEXT I :: X=X+E :: FOR I=1 TO 500 :: NEXT I :: GOTO 110 900 CALL CLEAR :: DISPLAY AT(1,1):"AVAILABLE FUNDS $"&STR$(X):"BETTING AMOUNT $"&STR$(C)&" " :: FOR I=1 TO 4 :: CALL SPRITE(#I,45,2,80,70+I*20):: NEXT I :: A$="" :: DISPLAY AT(24,1):S::RETURN 1000 DATA 97,98,99,100,-aa!!0001-bb!!0001-cc!!0001-dd!!0001-aaa!0010-bbb!0010-ccc!0010-ddd!0010-aaaa0100-bbbb0100-cccc0100-dddd0100-abcd1000 Cool! Just need to add some color 1 Quote Share this post Link to post Share on other sites
+Vorticon #19 Posted June 4 Looks like we have enough interest to launch the competition . Official rules here: http://atariage.com/forums/topic/291836-official-10-liner-program-competition-thread/ 1 Quote Share this post Link to post Share on other sites
+chue #20 Posted June 4 Let me know if anyone pulls off the jackpot (space invader, man, pacman & ghost - in this order). Oh so close! I feel so cheated and want my money back! Quote Share this post Link to post Share on other sites
+Lee Stewart #21 Posted June 4 Here is a silly little XB slot machine 10 liner I threw together.... Let me know if anyone pulls off the jackpot (space invader, man, pacman & ghost - in this order). Did it at least 4 times, I think. Currently over $180,000, over 700 spins and still going. $50 bets. ...lee 1 Quote Share this post Link to post Share on other sites
oddemann #22 Posted June 4 (edited) $540.000, bets $500, 56 spins so fare... 1.000.000, 500, 150 1.500.000, 500, 160 1.600.000, 500, 275 2.140.000, 500, 300 8.950.000, 500, 2675 - Looks like this will go on for ever...12.500.000 500, 4400 13.041.500, 500, 4430 13.680.000, 500, 4475 14.234.000, 500, 4495 48.454.000, 500, 17025 103.360.000, 500, 37700 109.333.000, 500, 39606 - 40.000 Spins is it! 109.515.000, 500, 40000 - "Game Over"How do I upload a pic. to show off ? Edited June 5 by oddemann Quote Share this post Link to post Share on other sites
+Lee Stewart #23 Posted June 4 Hit another one (maybe two...I was outside tearing up some rotted deck steps)—now at $244,800 and 949 spins. Of course, I am not doing anything but watching it happen. The $50 betting choice at game start was apparently the key. ...lee Quote Share this post Link to post Share on other sites
+--- Ω --- #24 Posted June 4 I added a couple of zeros to the opening amount and set my bet at 1K... Quote Share this post Link to post Share on other sites
Bones-69 #25 Posted June 4 I let it run overnight, appears there may have been some excess generosity with the payout levels set..... It is disturbing how mind-numbingly entertaining it is just to watch it - and even weirder the undeserved feeling of satisfaction/accomplishment when four of a kind spin up. 1 Quote Share this post Link to post Share on other sites