aww geez... Here's The Dir Into The Array - but still like i said...

by mennonite


shell "dir *.ksg /b /on > ksgtemp.txt" ' dir one line format sort by name to...

menucount=1:menuoption$(menucount)="New Game"

open "ksgtemp.txt" for input as #1
do while not eof(1)
line input #1, q$:
if ltrim$(q$)<>"" then
q$=rtrim$(q$)
if len (q$)>4 then q$=left$(lcase$(q$), len(q$)-4) : mid$(q$,1,1)=ucase$(left$(q$,1)) ' no .ksg, all lower but cap first letter
menucount=menucount+1:menuoption$(menucount)=q$
end if
loop
close

menucount=menucount+1:menuoption$(menucount)="Quit"
menucount=menucount+1:menuoption$(menucount)="" 'make sure it's empty

Posted on Jan 2, 2006, 4:23 AM
from IP address 85.195.123.22

Respond to this message   

Return to Index


Response TitleAuthor and Date
Considering worst case on Jan 2
 still looking for that rosetta stone.mennonite on Jan 2
  I just goes to show ya...Rosetta Rosettadeta on Jan 2
   where did i hear it?mennonite on Jan 2