"list" command

[JoshuaHorn]

Hey all,

I need some help. I need to figure out how to "list" the directory of a floppy disk within a basic program line.

If you try to use load "$",8 it gives you an error if run from within a program.

Any ideas?

(This is for NasOS, so I'm writing something like:)

IF I$ = "DIR" THEN....

[Mike]

If you try to use load "$",8 it gives you an error if run from within a program ...

No wonders. This command loads the directory as a program as well, which will overwrite your current program in memory.

This small program displays the directory, and can easily be turned into a sub-routine called from your IF statement:

Code: Select all

1 OPEN2,8,0,"$":Z$=CHR$(0):GET#2,A$,B$:GOSUB3:PRINT
2 GOSUB3:GET#2,A$,B$:PRINTA$B$:ON-(ST=0)GOTO2:CLOSE2:END
3 GET#2,A$,B$,C$,D$:PRINTMID$(STR$(256*ASC(D$+Z$)+ASC(C$+Z$)),2)" ";
4 FORT=1TO2:GET#2,A$,B$,C$,D$,E$,F$,G$,H$,I$,J$,K$,L$,M$
5 PRINTA$B$C$D$E$F$G$H$I$J$K$L$M$;:NEXT:RETURN

Greetings,

Michael