Jump to content
IGNORED

Any TI-99 4A Basic programs you can share?


GameGirl420

Recommended Posts

Hi!Good news... I finally got my AV Cable off Ebay( note I'm not gonna bump the thread I wrote about the seller in the General forums.I revised my neg feedback and all is settled..the seller and I are on good terms now). :)

 

 

 

Played some of the games the other night and they were cool. Funny I thought I remember playing a game called Parsec before but turns out I was thinking the wrong game. Btw Parsec is hard!!!Have no clue what to do at first.

 

 

Anyways I think the built-in TI Basic is very very cool and interesting. Except without a manual I have no idea what to type in.Is it true you can program a game on that???? I'd love to learn some simple codes and programs. Tried looking for some sites that had some programs but none has any. Any of you computer experts mind sharing a few simple programs and codes I can learn to get started???? :roll: ;) :P :D How do you program an Atari 2600 joystick to work for it??

  • Like 1
Link to comment
Share on other sites

Here's a link the a PDF file for the User's Reference Guide:

 

ftp://ftp.whtech.com/datasheets%20&%2...serrefguide.pdf

 

And here is the Beginners Basic Book:

 

ftp://ftp.whtech.com/programming/Basic/BeginBasic.pdf

 

 

Both of these originally came with the TI99/4A when new.

 

 

You might want to check out the TI-Basic games section at http://tigameshelf.net

 

Also, there is an active yahoo group (registration required for posting), definitely worth

checking out: http://tech.groups.yahoo.com/group/ti99-4a/

  • Thanks 1
Link to comment
Share on other sites

Also, there is an active yahoo group (registration required for posting), definitely worth

checking out: http://tech.groups.yahoo.com/group/ti99-4a/

 

 

Active is an understatement. So unless you are really into the TI99, especially the technical aspects, then I'm not certain it's worth the mental strain of sorting through the literally dozens of emails you'll get each and every day.

  • Haha 1
Link to comment
Share on other sites

I've got a number of TI BASIC programs on my site: http://www.harmlesslion.com/cgi-bin/showprog.cgi?TI-99/4A

 

Of those... SpaceFight, BASIC/XB Demo (#1 only), BlackJack, Space Trek, and Stranger will run on an unexpanded TI with only TI BASIC (you might want a cassette recorder, at least, so you can save them).

 

You should be able to use TIDIR from http://members.ziggo.nl/fgkaal/Software/sw...9dir.html#tidir to view the files as a listing on the PC, and thus print them out, assuming it's the "type it in" experience you are looking for. :) You won't be able to view the files directly, nor is it possible to import them directly from the PC using an unexpanded TI.

 

It /may/ be possible to create WAV files that you can load through the cassette interface using CS1er and/or a combination of tools, but I have not tried this. CS1er is at http://www.cs1er.com/

  • Like 1
  • Thanks 1
Link to comment
Share on other sites

Just as a simpler thing, this is a little code that will test the joysticks for you, once you acquire/build an adapter. I don't recommend getting the official TI sticks - there is a good chance they will not be functional, and if they are, they almost certainly won't stay that way.

 

If you are lazy or short on parts (as I often am), you can safely build 1/2 of the adapter (ie: just one joystick) without using the diodes - just wire it up. It will only cause problems with both joysticks attached.

 

This TI BASIC program will put an asterisk on the screen, and let you move it with joystick 1. Note that the TI requires 'Alpha Lock' to be up for the joystick UP direction to work.

 

10 CALL CLEAR
20 ROW=12
30 COL=16
100 CALL HCHAR(ROW,COL,42)
110 CALL JOYST(1,X,Y)
115 CALL HCHAR(ROW,COL,32)
120 IF X=0 THEN 200
130 IF X<0 THEN 170
140 IF COL>=32 THEN 200
150 COL=COL+1
160 GOTO 200
170 IF COL<=1 THEN 200
180 COL=COL-1
200 IF Y=0 THEN 100
210 IF Y>0 THEN 250
220 IF ROW>=24 THEN 100
230 ROW=ROW+1
240 GOTO 100
250 IF ROW<=1 THEN 100
260 ROW=ROW-1
270 GOTO 100

 

'CALL CLEAR' clears the screen. The 'CALL JOYST' function reads the joystick (#1 or #2) and stores X and Y values in the return variables. For X, left is -4 and right is +4, and for Y, Up is +4 and down is -4 (Y is the opposite of the screen coordinate system). 'CALL HCHAR' draws a repeating line of characters horizontally, if the repeat is not specified (as here), only one is drawn. ASCII 42 is the asterisk, 32 is the space (thus this code will flicker a fair bit).

 

You can change it to use the keyboard arrow keys (E,S,D,X) instead by changing/adding these lines (Alpha Lock DOWN for this):

 

110 CALL KEY(0,K,S)
...
120 IF S=0 THEN 100
...
130 IF K<>68 THEN 165
...
165 IF K<>83 THEN 200
...
200 IF K=69 THEN 260
210 IF K<>88 THEN 100

 

Type 'RUN' to start the program (of course), and hold FCTN-4 ('CLEAR') to stop it.

 

It's possible to be more clever with the joystick version, for example, you can do 'COL=COL+SGN(X)' and 'ROW=ROW-SGN(Y)', though you still need to check that the result is in range. ROW must be 1-24, and COL must be 1-32. Otherwise the HCHAR will give you a BAD VALUE.

 

That should be enough to play with upfront, eh?

  • Like 1
  • Thanks 1
Link to comment
Share on other sites

I remember a longtime ago they had a program called How to make Mr.Bojangles dance or something lol

 

Heh, yeah, that is in the BASIC Beginner's manual that came with the machine, IIRC.

 

And if you ever see "CART CONV BY TURSI" when loading games, well, I assume it's the poster above that did that

 

Heh, almost, it means they used my conversion tool from http://www.harmlesslion.com/software/cart

Link to comment
Share on other sites

  • 2 weeks later...
  • 8 years later...

Here's another TI BASIC joystick tester. I've found several testers on this board:

 

Tursi's above (http://atariage.com/forums/topic/145666-any-ti-99-4a-basic-programs-you-can-share/?p=1773311)

One in cartridge form (http://atariage.com/forums/topic/253095-flashrom-99-finalgrom-99-image-repository-5192017/?p=3619421)

 

Neither does exactly what I wanted, so I wrote this one. It tests BOTH joysticks and the FIRE buttons. There are 9 status boxes on the left for joystick 1, and 9 status boxes on the right for joystick 2. Press fire and a line shows in the middle of the group of boxes for the respective joystick. This is TI BASIC, so the response time might be a little slow - (just hold down the stick or button a little bit longer until you get some feedback from the status boxes).

 

 

 

 

100 CALL CLEAR

110 MAXROWS=24

120 MAXCOLS=32

130 DIM COLS(3)

140 COLS(1)=1

150 COLS(2)=MAXCOLS/4

160 COLS(3)=MAXCOLS/2-1

170 DIM ROWS(3)

180 ROWS(1)=1

190 ROWS(2)=MAXROWS/4

200 ROWS(3)=MAXROWS/2

210 DIM COLOFFSET(2)

220 COLOFFSET(1)=0

230 COLOFFSET(2)=MAXCOLS/2

240 PRINT "--PLAYER 1--"," --PLAYER 2--"

250 FOR I=1 TO MAXROWS/3

260 PRINT

270 NEXT I

280 JOYUPCHAR=96

290 CALL CHAR(JOYUPCHAR,"FF818181818181FF")

300 CALL CHAR(JOYUPCHAR+1,"FFFFFFFFFFFFFFFF")

310 FIRE1CHAR=111

320 CALL CHAR(FIRE1CHAR,"FFFFFFFFFFFFFFFF")

330 CALL CHAR(FIRE1CHAR+1,"FFFFFFFFFFFFFFFF")

340 FIRE1SET=10

350 CALL COLOR(FIRE1SET,1,1)

360 CALL COLOR(FIRE1SET+1,1,1)

370 PRINT "ALPHA-LOCK UP PLEASE"

380 FOR J=1 TO 2

390 CALL HCHAR(ROWS(2),COLS(2)+COLOFFSET(J)-3,FIRE1CHAR+J-1,7)

400 FOR R=-1 TO 1

410 FOR C=-1 TO 1

420 CALL HCHAR(ROWS(R+2),COLS(C+2)+COLOFFSET(J),JOYUPCHAR)

430 NEXT C

440 NEXT R

450 NEXT J

460 DIM LX(2)

470 DIM LY(2)

480 FOR J=1 TO 2

490 CALL JOYST(J,X,Y)

500 X=X/4

510 Y=-Y/4

520 IF ((LX(J)=X)*(LY(J)=Y))THEN 540

530 CALL HCHAR(ROWS(2+LY(J)),COLS(2+LX(J))+COLOFFSET(J),JOYUPCHAR)

540 CALL HCHAR(ROWS(2+Y),COLS(2+X)+COLOFFSET(J),JOYUPCHAR+1)

550 LX(J)=X

560 LY(J)=Y

570 CALL KEY(J,K,S)

580 IF S=1 THEN 610

590 FC=1-(K=18)

600 CALL COLOR(FIRE1SET+J-1,FC,1)

610 NEXT J

620 GOTO 480

 

 

post-47499-0-83238800-1499777150_thumb.png

Edited by chue
  • Like 4
  • Thanks 1
Link to comment
Share on other sites

  • 2 weeks later...

Could work with some modification... The 1978 Oregon trail. Rather different than the 1985 version.attachicon.giforegon1.doc

Gonna post a modded version within the rest of the year.

Darn! i didn't think it was gonna be this hard to convert this! please post your progress on the conversion here, as it will help greatly in a finished version.

Link to comment
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.
Note: Your post will require moderator approval before it will be visible.

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