+Vorticon Posted June 4, 2019 Share Posted June 4, 2019 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!!! 7 Quote Link to comment Share on other sites More sharing options...
+adamantyr Posted June 5, 2019 Share Posted June 5, 2019 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 4 Quote Link to comment Share on other sites More sharing options...
+adamantyr Posted June 5, 2019 Share Posted June 5, 2019 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 5 Quote Link to comment Share on other sites More sharing options...
rasty Posted June 5, 2019 Share Posted June 5, 2019 (edited) - Edited June 5, 2019 by rasty Quote Link to comment Share on other sites More sharing options...
+FarmerPotato Posted June 6, 2019 Share Posted June 6, 2019 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 5 Quote Link to comment Share on other sites More sharing options...
Bones-69 Posted June 6, 2019 Share Posted June 6, 2019 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 4 Quote Link to comment Share on other sites More sharing options...
digdugnate Posted June 9, 2019 Share Posted June 9, 2019 Submission: Tip Calculator Platform: TI Basic Written by: Nathan Moore Instructions: You enter amounts.. to calculate tips. (classic99 disk image) TIP.dsk 2 Quote Link to comment Share on other sites More sharing options...
Bleepbit Posted June 10, 2019 Share Posted June 10, 2019 (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 June 10, 2019 by Bleepbit 7 Quote Link to comment Share on other sites More sharing options...
tibasic Posted June 10, 2019 Share Posted June 10, 2019 (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 June 12, 2019 by tibasic 4 Quote Link to comment Share on other sites More sharing options...
+FarmerPotato Posted June 10, 2019 Share Posted June 10, 2019 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 5 Quote Link to comment Share on other sites More sharing options...
Omega-TI Posted June 11, 2019 Share Posted June 11, 2019 OLDCS1 Please delete Quote Link to comment Share on other sites More sharing options...
oddemann Posted June 11, 2019 Share Posted June 11, 2019 Some of the games works on C99 and some dos not load??? Quote Link to comment Share on other sites More sharing options...
+arcadeshopper Posted June 11, 2019 Share Posted June 11, 2019 Some of the games works on C99 and some dos not load??? they should all work, some require RXB tho.. 1 Quote Link to comment Share on other sites More sharing options...
oddemann Posted June 11, 2019 Share Posted June 11, 2019 (edited) COOL Swamp is working Edited June 11, 2019 by oddemann Quote Link to comment Share on other sites More sharing options...
+mizapf Posted June 11, 2019 Share Posted June 11, 2019 (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 June 11, 2019 by mizapf 1 Quote Link to comment Share on other sites More sharing options...
+arcadeshopper Posted June 11, 2019 Share Posted June 11, 2019 here's the disk image 1 Quote Link to comment Share on other sites More sharing options...
+arcadeshopper Posted June 11, 2019 Share Posted June 11, 2019 so to be clear.. swamp.dsk is not a disk image it's a v9t9 fiad file.. classic99 can open that in the FOLDER disk mode SWAMP.dsk 1 Quote Link to comment Share on other sites More sharing options...
oddemann Posted June 11, 2019 Share Posted June 11, 2019 (edited) That was great help, did a v9t9 and then it worked! Thx,arcadeshoppe! Edited June 11, 2019 by oddemann 1 Quote Link to comment Share on other sites More sharing options...
+OLD CS1 Posted June 13, 2019 Share Posted June 13, 2019 OLDCS1 Please delete Per the "TI-99/4A User's Reference Guide," Pg. II-43, CS1 does not support DELETE. 3 2 Quote Link to comment Share on other sites More sharing options...
lucien2 Posted June 23, 2019 Share Posted June 23, 2019 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 7 Quote Link to comment Share on other sites More sharing options...
theincrediblepeep Posted July 7, 2019 Share Posted July 7, 2019 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 5 Quote Link to comment Share on other sites More sharing options...
+Vorticon Posted July 11, 2019 Author Share Posted July 11, 2019 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 5 Quote Link to comment Share on other sites More sharing options...
Samuel Pedigo Posted July 15, 2019 Share Posted July 15, 2019 (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 July 15, 2019 by Samuel Pedigo mistake with upload 4 Quote Link to comment Share on other sites More sharing options...
tibasic Posted July 21, 2019 Share Posted July 21, 2019 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 4 Quote Link to comment Share on other sites More sharing options...
JonnyBritish Posted July 30, 2019 Share Posted July 30, 2019 Can I ask how many chars can a single line of TI Basic, xb etc contain Quote Link to comment Share on other sites More sharing options...
Like us on Facebook
Follow us on Twitter
AtariAge on Instagram
Watch us on YouTube
Chat on Discord
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.