@QTZ, Cyprian:
1. Ukrywanie "bufora binarnego"
Jak na złość pierwsza linia DL zawiera także informację o rozkazie LMS (dwubajtowym adresie pamięci ekranu w następnych komórkach - który przyda nam się potem), który to jest ustawiany bitem szóstym, czyli - czytając DL-kę:
[0: 8 linii pustych]
[1: 8 linii pustych]
[2: 8 linii pustych]
[3: następne komórki to adres ekranu, a tu skombinowana informacja o rozkazie LMS + tryb linii zerowej]
[4: młodszy bajt pamięci ekranu]
[5: starszy bajt pamięci ekranu]
[6:a tu będzie tryb linii pierwszej]
...
więc najprościej... przesunąć początek ekranu o 40 znaków...
0 DIM DLV(10,1):GR.8:DL=PEEK(560)+PEEK(561)*256:FOR I=0 TO 10:DLV(I,1)=PEEK(DL+I):DLV(I,0)=DL+I:N.I
1 GR.0:? "DISPLAY LIST GR.8:":FOR I=0 TO 10:? I;" POKE ";DLV(I,0);",";DLV(I,1):N.I:TRAP 10:?"... [RETURN]":INPUT L
2 GR.8:POKE DLV(4,0),DLV(4,1)+40
10 E=PEEK(88)+256*PEEK(89)
20 TRAP 20:? "PODAJ LICZBE: ";:INPUT L:IF L>255 THEN G.20
30 ? CHR$(125);:POKE E,L:FOR X=0 TO 7:LOCATE X,0,B:? B;:NEXT X
40 ?:G.20
EDIT: Patrz post Mono - poniżej!
2. Inny adres pamięci
Jak spojrzycie na poprzedni punkt, to... mamy bufor na 40 operacji na bitach ;-)Jeżeli teraz sekwencję z linii 3,4,5 zduplikujemy w linii 6,7,8 Display List (z adresem bufora w linii 7,8), oraz powtórzymy dla linii 9,10,11 Display List plus będziemy używać LOCATE X,1,B - to możemy operować "buforem" po całej pamięci (UWAGA: przez skoki po pamięci tracimy 4 linie orazu - wypadało by je "dołożyć" przed sekwencją JVB, ale to już inna bajka...
EDIT: Tu chyba trochę za bardzo pojechałem - LOCATE operuje na systemowym adresie ekranu z 88 i 89 - więc trzeba by odwrócić działanie LOCATE...
3. Używanie innych trybów graficznych
Zachowaniem polecenia LOCATE steruje komórka 87 - odczytuje tryb graficzny - niestety, jak my ustawimy tam wartość trybu , to automatycznie przeładujemy ekran od nowa... Co zostaje? Wykorzystać kod buforujący Display List z punktu pierwszego do skopiowania DL-ki np. trybu 15-go po wywołaniu GR.8 i używania tam "bitowego" LOCATE - oczywiście, PLOT i DRAWTO nie będą już poprawnie działać (więc coś za coś).