Ready/Run

Uzyskiwanie spisu zawartości dyskietki i usuwanie z niej zbędnych plików jest dość czasochłonne. Można tę pracę usprawnić przy pomocy poniższego programu. Po pierwsze nie trzeba wczytywać DOS-u. Po drugie spis zawartości dyskietki jest wyświetlany w dwóch kolumnach, można więc wyświetlić dwa razy więcej nazw plików zanim obraz zacznie się przesuwać. Po trzecie szybsze jest wybieranie zbiorów do usunięcia.
Program zapisany jest w dwóch oddzielnych częściach. Część A zapisujemy na każdej dyskietce przez SAVE"D:DIR". Gdy chcemy uzyskać spis zawartości dyskietki, wystarczy podać instrukcję RUN"D:DIR".
Oprócz tego można zapisać tę część na jednej dyskietce przez LIST"D:EDIR", co umożliwia dodanie jej potem do dowolnego programu znajdującego się w pamięci komputera (przez ENTER"D:EDIR"). W tym przypadku zawartość dyskietki będzie wyświetlana po instrukcji GOTO 31200. Wysokie numery linii programu mają zabezpieczyć przed ewentualną kolizją z programem aktualnie znajdującym się w pamięci (aby zabezpieczyć się przed takimi przypadkami można przyjąć zasadę, że największy numer linii w każdym programie nie może być większy niż 29999 — numery od 30000 są zarezerwowane dla programów pomocniczych: DIR, RENUM itd.)
Obie części razem należy zapisać przez SAVE"D:USUW". W celu usunięcia pliku z dyskietki należy wczytać program (LOAD"D:USUW"), włożyć do stacji dyskietkę, z której chcemy usunąć plik i uruchomić program. Kolejno wyświetlane są nazwy plików zawartych na dyskietce. Naciśnięcie RETURN powoduie wyświetlenie następnej nazwy. Gdy chcemy usunąć plik, naciskamy klawisze CONTROL i U. Procedura ta jest kontynuowana, aż do wyświetlenia nazw wszystkich plików. Jeżeli popełnimy błąd, wystarczy tylko nacisnąć BREAK i uruchomić program ponownie. Usuwanie plików następuje dopiero po wyświetleniu wszystkich nazw i naciśnięciu klawisza U. Po zakończeniu usuwania plików ponownie wyświetlany jest spis zawartości dyskietki.

Wg „COMPUTE!" 11/82