Jump to content
Vorticon

Official 10 liner program competition thread

Recommended Posts

Please use this post only for final entry submissions. You may enter as many programs as you want. Please do not post comments here!

 

Rules

  • Games should be programmed in either TI BASIC or any version of Extended Basic currently available.
  • Maximum total length of the program cannot exceed 10 lines, including DATA statements
  • Disk or other storage access is NOT allowed. You must only use the facilities available within TI BASIC or the particular XB cartridge you chose.
  • Entry format: Programs should be submitted as a disk image for ease of access by all. Make sure to state the running environment (TI BASIC, TIXB, RXB etc...). Also include the name or AA handle you wish to use for credit.
  • Submission deadline: July 31st, 2019 midnight GMT
  • Judging: A public poll will be created on this forum with all the eligible entries at the end of the contest, separated into 2 categories: TI BASIC and Extended Basic. The winning entry in each category will be the one with the highest number of votes.
  • Prizes: 1x NIB Atari Flashback Blast! Volume 1 and 1x NIB Activision Flashback Blast! (winners will decide who gets what among themselves).
  • Most of all, have fun!!!
  • Like 7

Share this post


Link to post
Share on other sites

Submission: Cannon

Platform: Extended BASIC

Written by: Adam Haase

Instructions: Aim your cannon at the target and attempt to hit it! 10 points for every successful hit.

Controls: S and D to raise and lower angle of fire, E and X to increase/decrease power.

 

V9T9 Disk Image: cannon.dsk

  • Like 3

Share this post


Link to post
Share on other sites

Submission: Python

Platform: Extended BASIC

Written by: Adam Haase

Instructions: Move your python across the road to safety on the other side! Score more on each pass, but gets more difficult.

Controls: Joystick #1

 

V9T9 Disk Image: python.dsk

  • Like 4

Share this post


Link to post
Share on other sites

Submission: 10Liner 49er

Platform: TI Extended Basic

Written by: Erik Olson

Instructions: Use joystick to dig a mine. Find the gold! If rocks are in your way, press Fire and a direction to dynamite (You get 5.)

 

V9T9 disk image:liner49er.dsk

 

  • Like 4

Share this post


Link to post
Share on other sites

Submission: Boat Bomber

Platform: RXB

Written by: Darren Bellia

Instructions: Use joystick to avoid attacking plane, edge of space, and mountains. Use fire to bomb boat as it speeds by.

BBOMBER.dsk

  • Like 3

Share this post


Link to post
Share on other sites

Submission: Tip Calculator

Platform: TI Basic

Written by: Nathan Moore

Instructions: You enter amounts.. to calculate tips. ;)

 

(classic99 disk image)

TIP.dsk

  • Like 1

Share this post


Link to post
Share on other sites
Posted (edited)

Submission: BLEEP2019


Platform: TI Extended Basic


Written by: Luca Brentaro


Instructions: Use joystick to rescue the astronauts and avoid the asteroids! I hope you have fun! :)



(classic99 disk image)


BLEEP2019.zip

Edited by Bleepbit
  • Like 5

Share this post


Link to post
Share on other sites
Posted (edited)

Submission: Swamp Path Blues

Platform: TI Basic

Written by: Mark Paton

Instructions: Take a stroll through a swamp. Don't stray off the path or you'll get stuck. Use keys 1 & 3 for left and right.

SWAMP.dsk

Edited by tibasic
  • Like 3

Share this post


Link to post
Share on other sites

Submission: Microtower

Platform: XB

Written by: Erik Olson

Instructions:

Drive the elevator up and down.

Press fire at the first floor to load a passenger.

Press fire on any other floor to drop them off. (They're not picky.)

If you get a yellow construction worker (looks like a wizard) take them to the roof, where they build another floor.

10 CALL CLEAR::F=1::C=9:=24::E=C*8-23::V=169::Z=16::CALL COLOR(9,5,5)::CALL COLOR(10,9,9)::CALL MAGNIFY(2)::CALL SCREEN(15)
20 CALL CHAR(97,"18FF8181818181FF003A327E723232000018183C3C1818000018183C183C7E00", 101,"00000018183C180000182424181A1E0000182C70703C1800005A3C1818183C00")
30 P=Z::F=F+1::CALL MOTION(#P,0,0)::T=24-F*3::FOR I=24 TO T STEP -3::CALL HCHAR(I,C+1,96,D-C-1)::NEXT I::CALL HCHAR(T,C-2,32,2)
40 CALL VCHAR(T-3,C-3,104,28-T)::CALL VCHAR(T-3,C,104,28-T)::CALL VCHAR(T,D,104,25-T)::CALL HCHAR(24,C-3,104,4)::CALL HCHAR(T-3,C-3,104,4)
50 CALL SPRITE(#Z,97,7,V,E,0,0)::U=(192-8*F*3-23)
60 CALL JOYST(1,X,Y)::CALL KEY(1,K,S)::CALL POSITION(#Z,A,B)::IF ((Y<=0 AND A>=V) OR (Y>=0 AND A<=U)) THEN Y=0

70 CALL MOTION(#Z,-Y,0,#P,-Y,0)::IF  K<>18 OR Y<>0 THEN 60 ELSE IF P<Z THEN 90
80 IF A>=V THEN P=INT(RND*F+1)::CALL SPRITE(#P,97+P,2+(P*2+8 AND 15),A,B,0,0)::GOTO 60 ELSE 60
90 IF A<=V-20 THEN CALL LOCATE(#P,7+A-INT(A/24),INT(RND*96+73))::IF P=1 AND A<=U AND F<8 THEN 30 ELSE P=Z::GOTO 60 ELSE 60

microtower.dsk

  • Like 4

Share this post


Link to post
Share on other sites
Posted (edited)

@tibasic: Please don't post a "dsk" file when it's not a disk image.

 

Edit: Sorry, it was not only you.

 

@others_as_well: Please stick to conventions. DSK files are disk images, not single files. This is really asking for confusion.

Edited by mizapf
  • Like 1

Share this post


Link to post
Share on other sites

OLDCS1 Please delete

 

Per the "TI-99/4A User's Reference Guide," Pg. II-43, CS1 does not support DELETE.

  • Like 3
  • Haha 2

Share this post


Link to post
Share on other sites

Submission: Mastermind

Platform: XB

Written by: Lucien Baumann

1 RANDOMIZE :: CALL CLEAR :: CALL CHAR(35,"0000001F10101010000000FF00000000000000F80C0C0C0C0C0C0C0C0C0C0C0C") :: F=0 :: CALL CHAR(39,"0C0C0C0CFCFC000000000000FFFF0000")
2 CALL CLEAR :: CALL CHAR(41,"101010101F0F00001010101010101010") :: IF F=0 THEN DISPLAY AT(22,1):"Guess a number of 4 digits  from 1..6. Clues: 1st=In pos2nd=Wrong pos."
3 DISPLAY AT(4,10):"#$$$$$$$$%" :: CALL VCHAR(5,12,42,12) :: CALL VCHAR(5,21,38,12) :: DISPLAY AT(17,10):")(((((((('" :: DIM A(4),B(4),E(4) :: FOR I=1 TO 4
4 A(I)=INT(RND*6)+1 :: NEXT I :: Y=5 :: ON WARNING NEXT :: CALL CHAR(91,"101010101F10101000000000FF0000000C0C0C0CFC0C0C0C")
5 ACCEPT AT(Y,11)SIZE(4):N :: DISPLAY AT(Y,11)SIZE(4):STR$(N) :: J=1000 :: FOR I=1 TO 4 :: B(I)=INT(N/J) :: N=N-B(I)*J :: J=J/10 :: E(I)=A(I) :: NEXT I :: C=0 :: D=0
6 FOR I=1 TO 4 :: IF E(I)=B(I)THEN C=C+1 :: B(I)=0 :: E(I)=10
7 NEXT I :: F=1 :: CALL HCHAR(22,1,32,96) :: FOR I=1 TO 4 :: FOR J=1 TO 4 :: IF E(I)=B(J)THEN D=D+1 :: B(J)=0 :: E(I)=10
8 NEXT J :: NEXT I :: DISPLAY AT(Y,16)SIZE(1):STR$(C) :: DISPLAY AT(Y,18)SIZE(1):STR$(D) :: Y=Y+1 :: IF Y=15 THEN 9 :: IF C<>4 THEN 5
9 M=0 :: J=1000 :: FOR I=1 TO 4 :: M=M+A(I)*J :: J=J/10 :: NEXT I :: DISPLAY AT(Y,10)SIZE(10):"[\\\\\\\\]" :: DISPLAY AT(Y+1,11)SIZE(4):STR$(M)
10 CALL KEY(5,K,S) :: IF S=0 THEN 10 :: GOTO 2

 

MASTERMIND.dsk

  • Like 6

Share this post


Link to post
Share on other sites

Submission: Alpha10
Platform: TI BASIC
Written by: Geoff Haddad
Instructions: Three at a time, letters come falling down from the top of the screen, and you must press and hold each letter shown to vanquish them!  Make sure Alpha Lock is on.  If a letter makes it all the way to the bottom, you lose, and the program freezes.

 

alpha10.dsk

  • Like 4

Share this post


Link to post
Share on other sites

Submission: Wobble

Platform: TI Extended Basic

Written by: Vorticon

Instructions: Maneuver the ball using the ESDX keys into the square before time runs out. Avoid walls and bumpers. RUN "DSK1.WOBBLE"

 

Wobble.dsk

  • Like 4

Share this post


Link to post
Share on other sites
Posted (edited)

ADVENTURE.dskSubmission: Adventure

Platform: TI XB

Written by: S.P

Instructions: Old dsk1.adventure, Run it and play like any other adventure game

Extra note: there is no replay function, to replay, you have to redo it all over. sorry

 

Edited by Samuel Pedigo
mistake with upload
  • Like 3

Share this post


Link to post
Share on other sites

Submission: Touchdown

Platform: TI Basic

Written by: Mark Paton

Instructions: A lunar lander type game. Scoring is calculated from the landing speed and fuel remaining. Fuel remaining (0-9) is displayed inflight in a green box that also marks the location of your lander. Thrust is controlled with the keys 1 (low) to 9 (high). Close to the surface you'll see a graphical representation of the lander. If you're going too fast near the surface then three exclamation marks are displayed (!!!).

TOUCHDOWN.dsk

  • Like 3

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...