Laut Timo BDOS Beschreibung soll man mit diesem Programm den Catalog auslesen, in die Speicherbank schreiben und anzeigen können. Bei mir funktioniert es aber nicht; es kommt nur Müll raus. Ich betreibe BDOS 1.71 mit dem Symiface II und einer 4GB CF Karte. Any hints???
ZitatAlles anzeigen
10 D$=STRING$(12,32) ' Create Var
20 T%=0 ' Create Var
30 |RDIR,0 ' Read current Directory to Bank 0 (=$C4)
40 MODE 1:PRINT „CURRENT DIRECTORY:“
50 PRINT
60 Y%=3:A%=0
70 IF A%>1023 THEN END
80 |GDIR,@D$,@T%,A%
90 IF T%=&99 OR T%=&FF THEN END
100 PRINT D$,“ [„+HEX$(T%,2)+“]“
110 Y%=Y%+1
120 IF Y%>=25 THEN PRINT „PRESS ANY KEY“:CLEAR INPUT:WHILE INKEY$=““:WEND:Y%=1
130 A%=A%+1
140 GOTO 70
xesrjb