Posted by Bromosel on December 31, 1999 at 12:54:25:
TI-99/4a - Tools I
Hello, together. I own my TI-99/4a since 1983 it it still works fine.
This is a routine in TI-BASIC that shows the directory of a diskette.
It runs also in Extented Basic. Developed with V9T9.
-----------------------------------------------------------------
80 rem (c)1999 by Bromosel
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
-----------------------------------------------------------------
Variables
A$ - string that stores names
j,k - contain informations on sectors
i - loopvariable
When you change the DSK in the OPEN-statement, then you can access other disks.
Happy new year!
Bromosel - The (possibly)last TI99-user in Germany
published 12/31/99
I have tons of mags from 1983 to 1986. When you have
some specific questions on TI-99, send me an email