Katalog dowolnych plików
Jako, że dzisiaj dzień dyskietki 5,52 cala to coś w temacie.
Jak często bywa, przypadkowa potrzeba listowania z katalogu dyskietki określonych typów plików doprowadziła do bardzo prostej realizacji. W poniższym programie (częściej podprogramie) rozszerzenia szukanych plików umieszczone są bezpośrednio w instrukcji INSTR, jednakowoż mogą być ciągiem dowolnej zmiennej tekstowej.
0 DIM S$(20) : CLS :OPEN #%1,6,%0,”D:*.*” : TRAP 5
1 DO
2 INPUT #%1,S$ : S$=S$(3,13)
3 IF INSTR(„BMPGR8SCR”,S$(9,11)) THEN ? S$(1,8);”.”;S$(9,11)
4 LOOP
5 CLOSE #%1