10 Line BASIC Competition 2022!

Everything related to BASIC version 1.x (Oric 1 and Atmos) or HYPERBASIC (Telestrat).
Don't hesitate to give your small program samples, technical insights, or questions...
User avatar
6502Nerd
Pilot Officer
Posts: 111
Joined: Thu Oct 08, 2020 9:48 pm
Location: Leicestershire, UK
Contact:

10 Line BASIC Competition 2022!

Post by 6502Nerd »

I haven't been on here for a while, just due to other distractions but I hope everyone is doing well.

But I wanted to quickly point out that the 2022 10 line BASIC competition is under way. The deadline for submissions is Saturday, March 26, 2022, 6 p.m. CET, with the award ceremony on Saturday, April 9, 2022.

Of course I will be entering with an Oric submission, maybe more than one if I can manage it.

I hope I win, but if not then the next best thing is for any Oric program to be the winner - this is what happened last year for the first time thanks to forum member Rax!

Let's see if Oric can win again this year! And even if not, it keeps the spirit of our machines alive and also is quite fun too!

Good luck everyone!

You can find out more details here:
https://gkanold.wixsite.com/homeputerium
User avatar
Dbug
Site Admin
Posts: 4444
Joined: Fri Jan 06, 2006 10:00 pm
Location: Oslo, Norway
Contact:

Re: 10 Line BASIC Competition 2022!

Post by Dbug »

Good luck :)

I'm not going to participate, many of you have shown great skills in this specific exercise, I've already way too many things to play with (like The Hobbit :p)
User avatar
Symoon
Archivist
Posts: 2307
Joined: Sat Jan 14, 2006 12:44 am
Location: Paris, France

Re: 10 Line BASIC Competition 2022!

Post by Symoon »

Dbug wrote: Fri Feb 18, 2022 11:57 am I've already way too many things to play with (like The Hobbit :p)
The Hobbit in 10 basic lines?

Code: Select all

You find a ring, what now?
Kill Sauron
Congratulations you won!
User avatar
Dbug
Site Admin
Posts: 4444
Joined: Fri Jan 06, 2006 10:00 pm
Location: Oslo, Norway
Contact:

Re: 10 Line BASIC Competition 2022!

Post by Dbug »

I'm sure it's possible to do a 10 lines version of They are taking the Hobbits to Isengard, cycling the lyrics and playing a YM version of the music.

User avatar
6502Nerd
Pilot Officer
Posts: 111
Joined: Thu Oct 08, 2020 9:48 pm
Location: Leicestershire, UK
Contact:

Re: 10 Line BASIC Competition 2022!

Post by 6502Nerd »

Dbug wrote: Fri Feb 18, 2022 11:57 am I've already way too many things to play with (like The Hobbit :p)
We all have too many projects! But The Hobbit optimisations will be fantastic if you can find a way, so good luck to you with that!

Hopefully one or two others will have a go at the 10 line competition - it's fun, by the way!!
User avatar
iss
Wing Commander
Posts: 1641
Joined: Sat Apr 03, 2010 5:43 pm
Location: Bulgaria
Contact:

Re: 10 Line BASIC Competition 2022!

Post by iss »

6502Nerd wrote: Fri Feb 18, 2022 9:45 pm Hopefully one or two others will have a go at the 10 line competition - it's fun, by the way!!
The ONE will be at competition for sure, the second (me) is waiting a bright idea... :).
User avatar
ibisum
Wing Commander
Posts: 1645
Joined: Fri Apr 03, 2009 8:56 am
Location: Vienna, Austria
Contact:

Re: 10 Line BASIC Competition 2022!

Post by ibisum »

I've got something I might enter, if I can get it working properly.
User avatar
6502Nerd
Pilot Officer
Posts: 111
Joined: Thu Oct 08, 2020 9:48 pm
Location: Leicestershire, UK
Contact:

Re: 10 Line BASIC Competition 2022!

Post by 6502Nerd »

Ok this is good, looks like maybe we will have more than two Oric authors for the competition this year - will be good to balance against all the ZX Spectrum, Commodore 64, Atari 800XL and Amstrad-Schneider submissions that one often sees!
User avatar
rax
Flying Officer
Posts: 193
Joined: Tue Jul 24, 2018 3:16 pm

Re: 10 Line BASIC Competition 2022!

Post by rax »

Hi :). I will also try to participate this year (I have 2 modest ideas, I hope I can finish them). It doesn't matter to me who wins (I'll be happy if it's one of us), but to show that the humble ORIC is still alive. Whoever has an idea (no matter what), let him participate :). As ISS told me: "Participation is important (Olympic principle)!"
User avatar
6502Nerd
Pilot Officer
Posts: 111
Joined: Thu Oct 08, 2020 9:48 pm
Location: Leicestershire, UK
Contact:

Re: 10 Line BASIC Competition 2022!

Post by 6502Nerd »

Yay - it will great to have you again this year!

You set a high standard for yourself by winning the PUR-80 category! But I agree it is even more about the participation, fun and showing that Oric has a following too, not only the C64, Spectrum, Atari etc..
User avatar
rax
Flying Officer
Posts: 193
Joined: Tue Jul 24, 2018 3:16 pm

Re: 10 Line BASIC Competition 2022!

Post by rax »

6502Nerd wrote: Wed Feb 23, 2022 3:08 pm But I agree it is even more about the participation, fun and showing that Oric has a following too, not only the C64, Spectrum, Atari etc..
True! :)
User avatar
rax
Flying Officer
Posts: 193
Joined: Tue Jul 24, 2018 3:16 pm

Re: 10 Line BASIC Competition 2022!

Post by rax »

I managed to finish both games. Now I'm on the Dungeon wave now, and I tried to make one in 10 lines :)
I urge everyone who has an idea for games to realize and show it :).


--- FILL THE BOX ---

Code: Select all

0E$="####6I######'+'#'+#+'+'+##3%##+'S*####))_2_2))####);S&S&);####A)AA/A/)##"
1F$="#$1@##Z^S#)#&#V+#++,#+###'%$=2%4/4####31<13131####)#3\3#_B####+'Q@%3U3##"
2PING:LORES0:INK6:Q=14:W=6:D$=E$+F$:?@16,W+7;"Level:"L+1:PLOT15,4,"FillTheBox"
3POKE#26A,2:DEFFNC(X)=(DANDX)/X:GOSUB8:X=0:Y=5:P=23:REPEAT:PLOT14,W-2,P-16''''
4K$=KEY$:E=X:R=Y:IFK$>""THENK=ASC(K$):X=X-(K=9)+(K=8):Y=Y-(K=10)+(K=11)'''''''
5Z=SCRN(Q+X,W+Y):IFZ<>20THENX=E:Y=RELSEN=N-1:P=P+1:IFP>19THENP=18:M=N=0ORK=82
6PLOTQ+X,W+Y,P:WAIT9:PLOTQ+X,W+Y,17:UNTILM:IFK<>82THENL=L+1'''''''''''''''''''
7IFL<12THEN2ELSE:PLOT8,5,"Congratulation! You win!":END'''''''''''''''''''''''
8I=L*12+1:N=72:FORY=0TO5:FORX=0TO1:D=ASC(MID$(D$,I,1))-35:FORK=0TO5:C=FNC(2^K)
9IFCTHENC=23:N=N-1ELSEC=20:PLOTQ+X*6+K,Y+W,C:NEXT:I=I+1:NEXTX,Y:A$=KEY$:RETURN
RUN

--- THE SNAKE TEMPLE ---

Code: Select all

0D$="$$$b$$$b$$$b,bGb#%###3###+7+7Ea?#1>aS1$a#Ab#Vbb##/#AP/5V":A=#B507:INK6'''
1FORI=1TOLEN(D$):K=ASC(MID$(D$,I,1))-35:POKEA+I,K:NEXT:DEFFNR(X)=INT(RND(1)*X)
2DIMD(999):O=37:B=161:FORI=0TO36:D(I)=B:D(I+888)=B+1:T=INT(I*.65)*O:D(T)=B''''
3D(T+36)=B:NEXT:PAPER0:H=8:FORY=2TO23STEP2:FORX=2TO34STEP2:D(X+Y*O)=B:R=FNR(5)
4D=(R=0)-(R=1)+O*(R=2)-O*(R=3):D(X+Y*O+D)=B:NEXTX,Y:FORI=0TO924:T=D(I):?".";''
5IFT=BANDD(I+O)=0THENT=162ELSEIFT=0THENT=FNR(3)+35ELSE:D(I)=T:NEXT:Y=FNR(22)+2
6D(O+1+FNR(35)+FNR(20)*O)=38:X=FNR(35)+2:CLS:REPEAT:GETK$:Q=X:W=Y:K=ASC(K$)'''
7Y=Y+(K=11)-(K=10):X=X+(K=8)-(K=9):IFD(X+Y*O)>99THENX=Q:Y=WELSE:B=X+Y*O:Z=D(B)
8H=H-2*(Z=36)+(FNR(3)+2)*(Z=O):FORG=-1TO1:FORL=-1TO1:PLOT2+X+L,Y+G,D(B+L+G*O)'
9NEXTL,G:D(B)=35:PLOTX+2,Y,39:?@2,25;"HP:"H:UNTILZ=38ORH<1:ZAP:IFH>0THEN?"WIN"
RUN
User avatar
Dbug
Site Admin
Posts: 4444
Joined: Fri Jan 06, 2006 10:00 pm
Location: Oslo, Norway
Contact:

Re: 10 Line BASIC Competition 2022!

Post by Dbug »

You are crazy!
This snake temple game is insane :D
User avatar
iss
Wing Commander
Posts: 1641
Joined: Sat Apr 03, 2010 5:43 pm
Location: Bulgaria
Contact:

Re: 10 Line BASIC Competition 2022!

Post by iss »

Congrats, rax! :D
Absolutely the best.
User avatar
ibisum
Wing Commander
Posts: 1645
Joined: Fri Apr 03, 2009 8:56 am
Location: Vienna, Austria
Contact:

Re: 10 Line BASIC Competition 2022!

Post by ibisum »

Holy molies, you are a genius rax. I don't think I could ever even approach the level of density you pack into 10 lines. I'm learning so much from you ..
Post Reply