Collection of useful tools in TI-BASIC and other stuff

[Bromosel]

Hi,

back in 1999 I collected and posted some BASIC stuff in the old 99er.net forum. Maybe these tools may help some beginners using an emulator. I describe it using Classic99, which has a gladfully a copy&paste function. 😁

I did not keep an eye on BIG or SMALL letters. I assume, that a TI-user is used using the TI. Some of these routines possibly not work with V9t9 or other TI-emulators.

More to follow. I'm gonna even post some cheatcodes for TI-games.

 

This is a routine in TI-BASIC to show the directory of dsk1. It runs also in Extented Basic. Rename dsk1 to any disk number you like.
90 call clear
100 open #1:"dsk1.",input,relative,internal
105 rem Get the name of the diskette
110 input #1:a$
120 print "directory of: ";a$
130 print "--------------"
135 rem Get the inventory
140 for i=1 to 127
150 input #1:a$,j,j,k
155 rem if no more files present, stop the output and close #1
160 if len(a$)=0 then 190
170 print a$
180 next i
190 close #1
200 end

 

Cheers,

Dirk

 

PS: Maybe one can contribute to this thread. Or is there any older thread about the same stuff?

 

Edited January 27, 2023 by Bromosel

[Bromosel]

1. Cheats in TI-Modules
   Because I do not own every TI-Module, I can't say if all the cheats work.
   I can say, that they work with PARSEC, TI-INVADERS and ALPINER, because I own them.
1.1. Munchman
    1. Right after the title appears press 8 3 8 (while holding the SHIFT-Key)
    2. RND(0-2)    choose round
    3. SCN(0-19)    choose screen
    4. MM(1-9)    choose lives
1.2. TI-Invaders
    1. Right after the title appears press 8 3 8 (while holding the SHIFT-Key)
    2. SLOW SPEED(Y/N)    choose speed
    3. SCREEN(00-40)    choose screen
1.3. Moon Miners
    1. Right after the title appears press 8 3 8 (while holding the SHIFT-Key)
    2. LEVEL(00-59)    choose level
    3. MOON MINERS(1-9)    chooser lives
1.4. Hopper
    1. Right after the title appears press 8 (while holding the SHIFT-Key)    
    2. ROUND(0-9) choose round
1.5. Alpiner
    1. Right after the title appears press 8 3 8 (while holding the SHIFT-Key)
    2. choose players
    3. choose number of alpiners
    4. choose level
    5. type in the names
1.6. Parsec
    To fire without overheating the laser, hold Q while firing