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

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

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

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

 

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

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

Share this post


Link to post
Share on other sites

@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

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.

  • Haha 1

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