Jump to content

Photo

TI- BASIC game source code

Source code BASIC Texas instrument TI-99/4a

11 replies to this topic

#1 Little Nero OFFLINE  

Little Nero

    Combat Commando

  • 3 posts

Posted Mon Aug 20, 2018 6:23 AM

I'm new to programming so I was wondering if anyone had the source code for TI-99/4a games written in BASIC?

#2 chue OFFLINE  

chue

    Moonsweeper

  • 274 posts

Posted Mon Aug 20, 2018 11:53 AM

When I was a little younger, one of my favorite sources was "Compute!" magazine.  They also published some books, one of which is here:

 

https://archive.org/...ublications.pdf

 

The above link is for a PDF file, but I actually have it in book form.  Be sure to post any questions you may have on it.



#3 Little Nero OFFLINE  

Little Nero

    Combat Commando

  • Topic Starter
  • 3 posts

Posted Mon Aug 20, 2018 8:40 PM

When I was a little younger, one of my favorite sources was "Compute!" magazine.  They also published some books, one of which is here:
 
https://archive.org/...ublications.pdf
 
The above link is for a PDF file, but I actually have it in book form.  Be sure to post any questions you may have on it.


Thanks, this is way better than all the books I've seen so far.

#4 TheBF OFFLINE  

TheBF

    Dragonstomper

  • 703 posts
  • Location:The Great White North

Posted Sun Sep 9, 2018 7:26 AM

I just woke up my old system from the 1980s and have been sending listings of games to my PC over RS232.

 

I actually typed the listing of Diamond Drop from Compute magazine. 

 

 Here is the listing fresh from a 34 year old floppy disk. :) 

 

I think I did some changes to improve the responsiveness because that's what I did back then.

 

You will have to remove the "RUN DSK1.GAMES.LOAD" in line 620 and change it to STOP

10 REM *** diamond drop ***
20 REM * compute magazine *
30 REM *  september 1983  *
40 REM ********************
100 DIM KOLOR(6)
101 RIGHT=37 :: LEFT=-37 :: NOGO=0
110 RANDOMIZE
120 GOSUB 630
130 REM 108-DEFINE DIAMOND SPRITE CHAR,128-136 ARE THE PADDLES
140 CALL CHAR(108,"10387CFE7C38100000000000000000000000000000000000000000000000000000")
150 CALL CHAR(128,"FFFFFFFF0000FFFFFFFF0000FFFFFFFFFFFFFFFF0000FFFFFFFF0000FFFFFFFF")
160 CALL CHAR(132,"000000000000FFFFFFFF0000FFFFFFFF000000000000FFFFFFFF0000FFFFFFFF")
170 SCR=0 :: SK=0 :: CH=20 :: S=0 :: CALL CLEAR :: CALL SCREEN(15):: DISPLAY AT(4,8):"D I A M O N D"
180 FOR ROW=3 TO 6
190 CALL HCHAR(ROW+2,6,32,20)
200 DISPLAY AT(ROW+3,6):"```  ```   ``  ```" :: DISPLAY AT(ROW+4,6):"h  h h  h h   h h  h"
210 DISPLAY AT(ROW+5,6):"p  p ppp  p  p ppp" :: DISPLAY AT(ROW+4,6):"x  x x  x x   x x  x"
220 DISPLAY AT(ROW+7,6):"h  h h  h h  h h" :: DISPLAY AT(ROW+8,6):"```  `  `  ``   `"
230 NEXT ROW
240 DISPLAY AT(18,4):"SKILL LEVEL (1,2) ?" :: ACCEPT AT(18,24)BEEP VALIDATE(DIGIT)SIZE(1):SK :: IF SK>2 THEN 240
250 DROP=5 :: IF SK=2 THEN DROP=15 :: REM ** change drop    rate to change difficulty *
260 DISPLAY AT(21,2):"DROP WITH ANGLE (Y/N) ?" :: ACCEPT AT(21,26)BEEP VALIDATE("YN")SIZE(1):ANG$
270 IF ANG$="N" THEN ANG=0 :: GOTO 290
280 ANG=1
290 CALL CLEAR :: SCR=SCR+1
300 DISPLAY AT(1,2):"CHANCES:";CH :: DISPLAY AT(1,15):"SCORE:";S
310 ROW=3 :: FOR I=96 TO 120 STEP 8
320 CALL HCHAR(ROW,3,I,28):: ROW=ROW+1 :: NEXT I
330 CALL HCHAR(24,1,30,32)
340 CALL MAGNIFY(3):: CALL SPRITE(#1,128,5,170,115)
350 KHAR=108 :: ROW=41 :: FOR J=6 TO 3 STEP -1
360 A$="" :: FOR I=3 TO 30 :: A$=A$&CHR$(I):: NEXT I :: N=28
370 IF N=0 THEN 530
380 R=INT(LEN(A$)*RND+1):: P$=SEG$(A$,R,1):: X=ASC(P$):: N=N-1 :: IF N=0 THEN 40
0
390 A$=SEG$(A$,1,R-1)&SEG$(A$,R+1,LEN(A$)-R)
400 B=INT(RND*61*ANG)-30*ANG
410 CALL HCHAR(J,X,32):: CALL SPRITE(#2,KHAR,KOLOR(J),ROW,8*(X-1)-2,DROP,B)
420 CALL KEY(3,K,ST):: IF K=68 THEN H=RIGHT ELSE H=0 :: IF K=83 THEN H=LEFT
440 IF H=NOG0 THEN CALL MOTION(#1,0,0)ELSE CALL MOTION(#1,0,H):: CALL SOUND(50,-1,12)
450 CALL COINC(ALL,C):: IF C THEN 510
460 CALL POSITION(#2,DROW,DCOL):: IF DROW<155 THEN 420
470 CALL POSITION(#1,PROW,PCOL):: IF (DCOL-PCOL<16)*(DCOL-PCOL>-8)THEN 510
480 CALL DELSPRITE(#2):: CALL MOTION(#1,0,0):: CH=CH-1 :: CALL SCREEN(11)
485 FOR F=1 TO 30 STEP 6
490 CALL SOUND(-100,110,F,110*F,F,150*F,F,-6,F/2):: CALL SCREEN(INT(F/2)+.5)
492 NEXT F 
494 CALL SCREEN(15):: IF CH=0 THEN GOTO 570
500 GOTO 520
510 CALL DELSPRITE(#2):: CALL MOTION(#1,0,0)
512 CALL SOUND(-9,4000,9,6479,9,5567,9,-5,0):: S=S+(60/J)*SK*SCR+(60/J)*SCR*INT(ABS(B)/15)
520 DISPLAY AT(1,2):"CHANCES:";CH :: DISPLAY AT(1,15):"SCORE:";S :: GOTO 370
530 K=K+4 :: ROW=ROW-8 :: M=128 :: IF J<6 THEN M=132
540 FOR F=0 TO 30 STEP -6 :: CALL SOUND(-300,150,F):: NEXT F
550 CALL SPRITE(#1,M,5,150,115,0,H)
560 NEXT J :: FOR G=600 TO 1400 STEP 100 :: CALL SOUND(100,G,1)
562 NEXT G
564 DROP=DROP+5 :: GOTO 290
570 CALL SCREEN(14):: IF S>HS THEN HS=S
580 CALL DELSPRITE(ALL):: CALL CLEAR :: DISPLAY AT(8,5):"YOUR SCORE: ";S :: DISPLAY AT(11,5):"HIGH SCORE: ";HS
590 DISPLAY AT(16,5):"PLAY AGAIN (Y/N)? "
592 IF S<HS THEN CALL SAY("UHOH NOT+SO+GOOD.WANT+TO+PLAY+AGAIN")ELSE CALL SAY("#NICE TRY#+#TRY AGAIN#")
594 ACCEPT AT(16,24)BEEP VALIDATE("NY")SIZE(1):REPLY$
600 IF REPLY$="N" THEN 620
610 GOTO 170
620 CALL SAY("O+K GOODBYE+FOR+NOW"):: CALL CLEAR :: RUN "DSK.GAMES.LOAD"
630 REM *****************
631 REM * define small  *           
632 REM * diamonds and  *
633 REM *    colors     *
634 REM *****************
640 FOR I=96 TO 120 STEP 8
650 CALL CHAR(I,"10387CFE7C381000"):: NEXT I
660 CALL COLOR(11,11,1)
670 CALL COLOR(9,3,1)
680 CALL COLOR(10,10,1)
690 CALL COLOR(12,14,1)
700 FOR J=3 TO 6 :: READ KOLOR(J):: NEXT J
710 DATA 3,10,11,14
720 RETURN
730 END


Edited by TheBF, Sun Sep 9, 2018 7:28 AM.


#5 TheBF OFFLINE  

TheBF

    Dragonstomper

  • 703 posts
  • Location:The Great White North

Posted Sun Sep 9, 2018 7:36 AM

Here is a strange game that I converted to TI-BASIC from a magazine.

I have never got to the end of the journey. Probably needs some tweaking with the random number windows to make it possible.

 

Spoiler


#6 OLD CS1 OFFLINE  

OLD CS1

    Technomancer

  • 5,483 posts
  • Technology Samurai
  • Location:Tallahassee, FL

Posted Sun Sep 9, 2018 10:38 AM

In the vein of TheBF, I spent a few years after COMPUTE! dropped the TI-99/4A converting programs from the magazine, usually the feature program.  Recently (starting eight years ago, recently indeed) I started re-working them.  I completed one of the reworks this year and it includes TIdBit, TI BASIC, and TI Extended BASIC sources.  You can find Tiles here, or https://locu.li/tiles99 (look at the last post for the second release which includes more stuff.)

 

I am expecting to have several more done over the next year, but I have two projects to finish beforehand.



#7 TheBF OFFLINE  

TheBF

    Dragonstomper

  • 703 posts
  • Location:The Great White North

Posted Tue Sep 11, 2018 7:23 PM

Here is an oldie that I found on a floppy disk.

 

ELIZA in TI BASIC.

 

It uses an external text file for the responses, so you will have make the second spoiler into a DV80 file.

 

It's not too speedy taking about 3 seconds to generate a response, but it's still fun.

 

BASIC code

Spoiler

 

 

DATA file with responses

Spoiler


#8 HOME AUTOMATION OFFLINE  

HOME AUTOMATION

    Star Raider

  • 74 posts

Posted Tue Sep 11, 2018 8:03 PM

It uses an external text file for the responses, so you will have make the second spoiler into a DV80 file.

 

Hmm, DV80 you say...

OK NOW LET'S SEE IF WE CAN  KEEP OUR CONVERSATION WITHINTHE REALM OF PSYCHOLOGY... (89 CHARS!)

Vat shoold I doo Darling... :? :? :?



#9 TheBF OFFLINE  

TheBF

    Dragonstomper

  • 703 posts
  • Location:The Great White North

Posted Wed Sep 12, 2018 7:16 AM

 

Hmm, DV80 you say...

OK NOW LET'S SEE IF WE CAN  KEEP OUR CONVERSATION WITHINTHE REALM OF PSYCHOLOGY... (89 CHARS!)

Vat shoold I doo Darling... :? :? :?

 

Oops.  So sorry dawling

 

The original was an internal format file.  I thought that was awkward to pass around so I "fixed" it.  :(

I am opening a new store called "Bugs Are Us" 

 

So the simple answer is make the phrase shorter:

 

CAN  WE KEEP OUR CONVERSATION WITHIN THE REALM OF PSYCHOLOGY?

 

How that's for customer service. :-)



#10 TheBF OFFLINE  

TheBF

    Dragonstomper

  • 703 posts
  • Location:The Great White North

Posted Wed Sep 12, 2018 9:12 AM

Here is a simple game that I wrote in 1985.  TUCHTYPE was never published until now.

The world may never be the same.

 

*EDIT*   GOTO 620 in line 610 is clearly not needed.  So much clearer on the big screen 

 

 

Spoiler

Edited by TheBF, Wed Sep 12, 2018 9:20 AM.


#11 HOME AUTOMATION OFFLINE  

HOME AUTOMATION

    Star Raider

  • 74 posts

Posted Wed Sep 12, 2018 10:05 AM

 

Oops.  So sorry dawling

 

The original was an internal format file.  I thought that was awkward to pass around so I "fixed" it.  :(

I am opening a new store called "Bugs Are Us" 

 

So the simple answer is make the phrase shorter:

 

CAN  WE KEEP OUR CONVERSATION WITHIN THE REALM OF PSYCHOLOGY?

 

How that's for customer service. :-)

Just curious,

I figured as much...

I'm happy I got what I paid for though!

I've been trying to explain the ELIZA program to my mother
for some time now but all I keep getting are basic responses.

      P.S. You look marvelous!!! (...your work)



#12 TheBF OFFLINE  

TheBF

    Dragonstomper

  • 703 posts
  • Location:The Great White North

Posted Mon Sep 17, 2018 11:06 PM

SMPTE Color Bars (well Almost)

 

(Used to work in TV Engineering)

 

Spoiler

 

 

Attached Files







Also tagged with one or more of these keywords: Source code, BASIC, Texas instrument, TI-99/4a

0 user(s) are browsing this forum

0 members, 0 guests, 0 anonymous users