$INCLUDE "BIOSPORT.INC" $INCLUDE "MEMORY.INC" $LINK "BIOSPORT.PBU" SetVideo &H12 d% = -1 dummy$ = DIR$("*.FNT") IF dummy$ <> "" THEN d% = d% + 1 DO UNTIL dummy$ = "" dummy$ = DIR$ IF dummy$ <> "" THEN d% = d% + 1 LOOP IF d% <> -1 THEN REDIM fonts(d) AS STRING * 12 d% = 0 fonts(0) = DIR$("*.FNT") dummy$ = "dummy" DO UNTIL dummy$ = "" dummy$ = DIR$ IF dummy$ <> "" THEN d% = d% + 1 fonts(d%) = dummy$ END IF LOOP FOR x% = 0 TO d% XYStr 100, x% * 24, "BIOS-Port, not Bio-Sport... :) " + fonts(x%), 10, 0, trim$(fonts(x%)) NEXT x% END IF a$ = INPUT$(1) SetVideo &H03