Ready/Run
Takie sobie archiwum listingów ze starych magazynów komputerowych
- Język programu: Locomotive Basic
- Platforma: Amstrad
- Kod zamieszczono w Bajtek 12/1986
- Autor listingu: Wojciech Ziółek
- Listing nadesłał: Faust
Stan listingu:
Kilka dodatkowych linii na początku programu pozwoli na interesującą prezentacje jego tytułu i autora.
Wystarczy w tym celu, począwszy od linii 110, napisać odpowiedni tekst a$, który będzie wyświetlany w linii y ekranu. Podprogram w liniach od 30 do 100 realizuje ruch liter w następujący sposób:
Dla zmieniającej się wartości i tworzony jest z łańcucha tekstowego a$ jednoznakowy łańcuch b$=mid$(a$,i,1), wyświetlany następnie na pozycji j,y (linia 60) i kasowany spacją na poprzedniej jego pozycji j + 1,y (linia 70). Linia 50 określa kolumnę j, w której ma być wyświetlony, znak począwszy od prawej strony ekranu. Ruch znaku w lewo zapewnia zamknięcie pętli w linii 80. Jednocześnie w linii 50 człon 20-len(a$)/2 + 1 lokalizuje napis w środku ekranu. Linia 90 wprowadza małe opóźnienie w pojawianiu się kolejnych liter napisu. Możliwe jest rów nież korzystanie z MOD 0 i MOD 2. Należy w tym celu zmodyfikować linię 20, wpisując zamiast MODE 1 inny wybrany tryb pracy. W linii 50 trzeba również uwzględnić ilość kolumn ekranu zmieniając odpowiednio: przy MOD 0 39 na 19 i 20 na 10 przy MOD 2 39 na 79 i 20 na 40
cpc_bajtek_1286_ruchliter-t2e.pl.zip