Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.

• Zapomniane hasło?
• Poproś o członkostwo

1. • 1: CommentAuthormono
   • CommentTime16 Aug 2010 12:00 zmieniony

    
   Polecenie ENTER w BASICu jest niedoceniane.
   
   Najczęściej służy programistom do usunięcia zbędnego bagażu zmiennych nagromadzonych podczas procesu twórczego. I właściwie na tym koniec, bo trzymanie tekstu programu w tej postaci na nośniku zewnętrznym jest niewydajne - program zapisywany jest w postaci linii ATASCII zakończonych EOL (kod 155), co zajmuje nieporównanie więcej miejsca niż treść programu zapisana przez SAVE/LOAD, która trzyma program w postaci stokenizowanej.
   
   Tymczasem para LIST/ENTER ma poważną zaletę - pozwala na dołączenie innego programu do tego, który jest już załadowany w pamięci komputera.
   
   Przeprowadźmy więc drobny eksperyment. Wpiszmy w edytorze mały program:
   

   30 LIST

   
   zapisując go za pomocą:
   

   LIST "D:PRG2.LST"

   
   po czym wykonajmy NEW i wpiszmy program:
   

   10 REM THIS IS PLACEHOLDER LINE FOR FUTURE USE
   20 ENTER "D:PRG2.LST"

   
   i zapiszmy go za pomocą:
   

   SAVE "D:PRG1.BAS"

   
   Po uruchomieniu za pomocą RUN dostaniemy znak zachęty READY. Dlaczego? Przecież kiedy listujemy pełny program wygląda on tak:
   

   10 REM THIS IS PLACEHOLDER LINE FOR FUTURE USE
   20 ENTER "D:PRG2.LST"
   30 LIST

   
   więc po wykonaniu instrukcji ENTER powinna się wykonać następna linia programu - a więc 30 LIST!
   
   Interpreter BASICa wykonując instrukcję ENTER wczytuje program z nośnika zewnętrznego traktując go tak, jakby to był zwykły edytor ekranowy, po czym przerywa program i oddaje sterowanie do interpretera BASICa. Dlatego instrukcja w linii 30 nie została wykonana. Mało tego - nawet gdyby linia 20 wyglądała tak:
   

   20 ENTER "D:PRG2.LST": GOTO 30

   
   sterowanie i tak wróciłoby do BASICa i reszta linii nie zostałaby wykonana.
   
   Wyglądałoby więc na to, że para LIST/ENTER przydaje się wyłącznie na etapie tworzenia programu a nie można jej użyć podczas działania programu np. do ładowania bibliotek procedur używanych w programie :/
   
   No cóż - spróbujmy poeksperymentować trochę.
   
   Ponieważ kod programu zapisany za pomocą LIST jest zachowany na dysku w postaci tekstowej spróbujmy go załadować do dowolnego edytora tekstu i nieco zmodyfikujmy.
   Dodajmy np. parę linii tak, żeby PRG2.LST wyglądał tak:
   

   10
   30 LIST

   
   i z powrotem zapiszmy na dysku.
   Po wykonaniu z BASICa
   

   RUN "D:PRG1.BAS"
   LIST

   
   zobaczymy w wyniku:
   

   20 ENTER "D:PRG2.LST"
   30 LIST

   
   Okazało się, że w programie usunięto linię 10!
   Czy to dziwi? Chyba jednak nie powinno, skoro ENTER wprowadza linie programu z nośnika zewnętrznego tak, jakby były one wprowadzane z edytora ekranowego. Możemy więc w pliku zapisywanym poleceniem LIST, a ładowanym za pomocą ENTER dokonywać wszystkich operacji dostępnych w trybie bezpośrednim - i BASIC je bez zmrużenia oka wykona!
   
   No to w takim razie przeedytujmy jeszcze raz plik PRG2.LST:
   

   10
   30 LIST
   GOTO 30

   
   Co teraz się stanie kiedy uruchomimy program D:PRG1.BAS ?
   Powinniśmy zobaczyć wylistowaną treść programu:
   

   20 ENTER "D:PRG2.LST"
   30 LIST

   
   co jest skutkiem realizacji GOTO 30 w trybie bezpośrednim.
   
   Nie trzeba chyba dodawać, że w takim pliku można zapisać również inne komendy BASICa np. przygotowujące i inicjalizujące dodatkowe zmienne, tablice, wykonujące kod maszynowy za pomocą USR(ADR(A$)) itp. Wszystko to się wykona a nie będzie zajmowało miejsca w pamięci, ponieważ wykona się jednorazowo podczas wykonywania polecenia ENTER. Jedynym efektem ubocznym, jaki da się zauważyć będzie wyświetlanie przez interpreter napisu READY po wykonaniu każdej linii (za wyjątkiem kasowania/wprowadzania linii i oddania sterowania z powrotem do programu) w trybie bezpośrednim.
   
   Do czego można tego użyć?
   1. Jednorazowa inicjalizacja zmiennych lub wykonanie kodu programu w trybie bezpośrednim bez przechowywania kolejnych linii w pamięci komputera.
   2. Usuwanie lub dodawanie części programu bez utraty wartości zmiennych.
   3. Wykonanie kodu, zmiana trybu graficznego, itp. W TRAKCIE ŁADOWANIA PROGRAMU :) Odpowiednik adresu INIAD ($2e2..$2e3) w pliku binarnym DOS.
   
   Bez problemu można w ten sposób zaimplementować namiastkę mechanizmu ładowania i inicjalizacji bibliotek używanych przez program.
   
   Mechanizm działa w Atari BASICu - powinien działać również w innych interpreterach z nim kompatybilnych (np. Turbo BASIC XL).
   
   Edit: Dodałem p.3
2. • 2: CommentAuthormono
   • CommentTime16 Aug 2010 14:04 zmieniony

    
   Co się zaś tyczy uruchamiania bloków programu w trakcie ładowania aplikacji - rozpatrzmy taki programik:
   

   POKE 752,1:? "Loading..."
   10 FOR I=ASC("A") TO ASC("Z")
   20 ? CHR$(I);
   30 NEXT I
   40 ?
   50 RETURN
   GOSUB 10:? "Please wait, continue loading..."
   10 GRAPHICS 0
   20 ? "AUTO demo"
   30
   40
   50
   RUN
   

   
   Podczas ładowania programu można uruchamiać uprzednio załadowane bloki programu, lecz musi się to odbywać na zasadzie skoków do podprogramu (GOSUB).
   Wykonanie RUN odda sterowanie do programu uprzednio zamykając wszystkie kanały I/O (również kanał 7 używany przez ENTER), co zakończy ładowanie programu i dalsza część nie załaduje się do pamięci.
   GOTO co prawda nie pozamyka kanałów, ani nie wyczyści zmiennych, ale będzie wykonywało program aż do napotkania ostatniej linii, po czym wykona niejawnie instrukcję END, a ta pozamyka kanały (uniemożliwiając dalsze ładowanie programu) i odda sterowanie do BASICa.
   
   Edit: NEW również zamknie wszystkie kanały I/O, więc aby kontynuować proces należy usuwać pojedyncze linie.
   
   Edit 2: Należy również ostrożnie postępować z instrukcjami SOUND, ponieważ standardowa komunikacja SIO wykorzystuje generator 1 i 2 POKEYa do komunikacji z magnetofonem, a 3 i 4 do komunikacji z pozostałymi urządzeniami na szynie szeregowej.
3. • 3: CommentAuthorQTZ
   • CommentTime16 Aug 2010 14:23 zmieniony

    
   Ja korzystam z L. (nie pomylić z LOAD!) i E. również z tego względu, że tak zapisany kod programu w razie błędu na nośniku dużo łatwiej odzyskać.
   
   Przy pomocy komendy L., edytora tekstu i E. można uzyskać linie dłuższe niż standardowo wpisywane z BASIC'a - co kiedyś przypadkowo zauważyłem, a jakiś czas temu znalazłem opis tu: ->link<- Jednak takie linie nie mogą być zmieniane bezpośrednio z BASIC'a więc osobiście unikam tworzenia długich linii.
4. • 4: CommentAuthormono
   • CommentTime16 Aug 2010 15:26 zmieniony

    
   Co więcej - BASIC ma ograniczenie na długość stokenizowanej linii do 255 bajtów (co opisane jest tutaj), więc w zasadzie mając zewnętrzny tokenizer (np. na PC) dałoby się wprowadzać znacznie dłuższe linie (w przypadku przypisań stałych tekstowych i instrukcji DATA i REM niewiele dłuższe, bo są one przepisywane 1:1), ale program dałoby się ładować/zapisywać wtedy tylko za pomocą RUN/LOAD/SAVE/CLOAD/CSAVE.
   Uzupełnianie programu o linie wykonywane w trybie bezpośrednim możliwe jest tylko zewnętrznym edytorem ATASCII (np. Panther, Ed, XLF, PE, itp.), bo podczas wprowadzania za pomocą ENTER są one wykonywane i nie zostają w pamięci przez co nie da się ich odtworzyć za pomocą LIST.
   
   Edit: RUN/LOAD/SAVE...
5. • 5: CommentAuthorurborg
   • CommentTime18 Aug 2010 09:58

    
   Faktycznie! To jest świetny pomysł aby wstępną inicjalizację zmiennych wywalić z pamięci na dysk. Ze też jak robiliśmy Kolony 2106 to na to nie wpadłem.
6. • 6:
      
     CommentAuthorKaz
   • CommentTime27 Feb 2021 14:34

    
   Sporo ciekawostek, nie tylko o Atari Basic, jest na kanale Jacka. Tutaj pierwszy odcinek, dla początkujących, o Basicu:
   
   

   
   
   Powstało już 50 odcinków, dzisiaj premiera odcinka 51. Tu można obejrzeć kanał Jacka i zasubskrybować:
   
   ->link<-
7. • 7:
      
     CommentAuthorKaz
   • CommentTime28 Feb 2021 03:19

    
   Mnie się przydało, to może i komuś też:
   
   ->link<-
   
   opis komend AtariBasic.

   • ab.jpg
     
     
     
     
8. • 8: CommentAuthorKrzys
   • CommentTime28 Feb 2021 13:36

    
   Ciekawe spostrzeżenie. Patrząc szerzej, wydaje mi się, że z tym ENTERem to chyba nie tak diabeł straszny. Jeśli mamy np. zmienną część w wierszach 30000+. I wtedy w TBXL, jeśli zapis jest selektywny, a nie cały LIST, czyli np.
   
   LIST "D:plik.lst",30000,
   
   a wczytanie:
   
   DEL 30000,32000
   ENTER "D:plik.lst
   
   wówczas chyba będzie dobrze. Tak mi się wydaje przynajmniej.
9. • 9:
      
     CommentAuthorKaz
   • CommentTime10 Apr 2022 08:57 zmieniony

    
   I kolejny odcinek od Jacka (to już 95!):
   
   
10. • 10:
       
      CommentAuthorKaz
    • CommentTime31 Dec 2025 18:44 (4 dni temu)

     
    Anders Skelander napisał fajny, bo prosty programik w Atari Basic, rysujący choinkę:
    
    

    100 REM SAVE "D:XMAS.BAS"
    110 GRAPHICS 0:POKE 623,128
    120 POKE 704,144:POKE 705,48
    130 POKE 706,50:POKE 707,54
    140 POKE 708,90:POKE 709,176
    150 POKE 710,180:POKE 711,220
    160 POKE 752,255
    170 FOR I=0 TO 22
    180 FOR J=0 TO I/2
    190 POSITION 20-J,I
    195 PRINT CHR$(97+J+RND(0)*4)
    200 POSITION 20+J,I
    205 PRINT CHR$(33+J+RND(0)*4)
    210 NEXT J
    220 NEXT I
    230 IF PEEK(753)=0 THEN GOTO 230
    240 GRAPHICS 0

    • xmas tree.png