Ready/Run

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


Jumper
  • Język programu: TOS Basic
  • Platforma: ZX Spectrum
  • Kod zamieszczono w Bajtek 7/1989
  • Autor listingu: Jacek Zapała
  • Listing nadesłał: Faust

Stan listingu:

0
Listing niesprawdzony - świeżo po OCR lub przepisaniu

System operacyjny TOS dla ZX Spectrum charakteryzuje się m.in. hierarchiczną strukturą katalogu. Jego wadą jest konieczność pamiętania, w jakim podkatalogu umieściliśmy dane.

Wadę tę likwiduje poniższy program — „JUMPER“. Umożliwia on swobodną „wędrówkę“ po podkatalogach, jak również wgranie w każdej chwili dowolnego programu lub danych (nagrywanych przez SAVE * „nazwa“ CODĘ). Wymagane jest, aby program w BASIC-u posiadał rozszerzenie. BAS, a zbiór danych — COD. W przypadku napotkania innego rozszerzenia wyświetlany jest komunikat o błędzie (linia 5025).
W celu wgrania dowolnego zbioru lub przejścia do podkatalogu, należy klawiszami 6 i 7 przesunąć migający prostokąt na nazwę zbioru (lub katalogu) i nacisnąć „0“ Powrót do poprzedniego katalogu jest możliwy po wciśnięciu „1“.
Program należy zapisać na dysku przez: CLEAR: SAVE * „START“ LINE 10: ATTR * „START“ i będzie on automatycznie wczytywany po naciśnięciu RESET.
Większość liczb w programie zastąpiono przez wyrażenie z „VAL“ lub „PI“, aby maksymalnie zmniejszyć ilość zajmowanej przez niego pamięci — zajmuje on w ten sposób jedną jednostkę alokacji. Nic oczywiście nie stoi na przeszkodzie, aby rozbudować go według własnych potrzeb.