Ready/Run

Takie sobie archiwum listingów ze starych magazynów komputerowych


9888
  • Język programu: Basic
  • Platforma: ZX Spectrum
  • Kod zamieszczono w Bajtek 12/1987
  • Autor listingu: Grzegorz Waligórski
  • Listing nadesłał: Faust

Stan listingu:

3
Listing skorygowany - prawdopodobnie zawiera błędy, uruchamia się na emulatorze lub realnej maszynie, wymaga jednak poprawek kosmetycznych

Liczba ta jest nazwą, a jednocześnie oznaczeniem początku pewnego użytecznego programu narzędziowego dla ZX Spectrum.

 
Jedną z wad ZX Spectrum jest niezbyt wygodna edycja tekstu programu. Napisany przeze mnie program stanowi próbę ułatwienia tej operacji.
Program należy wpisać, przetestować i nagrać na kasetę. W razie potrzeby dołączamy "9888" do pisanego programu przy pomocy instrukcji MERGE. Trzeba jednak pamiętać, że program główny nie może zawierać linii o numerach wyższych od 9888.
Po wykonaniu 
GO TO 9888 
ukazuje się krótkie menu funkcji programu — jest on gotowy do użytku. Oto jego możliwości:
1 — POLICZ P,0
Komputer oblicza liczbę linii zawartych pomiędzy numerami P i O włącznie.
2 — PRZENUMERUJ P, O, N, K
Przenumerowanie fragmentu programu zawartego między liniami P i O. Pierwsza linia fragmentu otrzymuje nowy numer N, zaś numeracja odbywa się z krokiem K. Nie są zmieniane parametry odwołań GO TO i GO SUB.
3 — PRZESUŃ P, O, N 
Fragment programu pomiędzy liniami P i O otrzymuje numery zwiększone o N (N może być ujemne).
4 — ZNAJDŹ X, P, O 
Wyszukanie wszystkich fragmentów tekstu X w liniach programu pomiędzy P i O.
5 — ZAMIEŃ X = Y, P, O
Zamiana wszystkich występujących pomiędzy liniami P i O fragmentów tekstu X na tekst Y. Zarówno X, jak i Y mogą mieć do 10 znaków długości — pozostałe znaki są ignorowane.
6 — STOP 
Powrót do BASIC-a.