LOCATE działa na ekranie otwartym przez GRAPHICS (kanał #6 CIO). BASIC świeżo po uruchomieniu nie ma otwartego trybu graficznego (!). Trzeba zrobić np. GRAPHICS 0 i będzie grało :D

Trochę do dupy bo zamierzaniu programu jest takie żeby GRAPHICS w ogóle nie używać, widać będę musiał jakąś inną metodę wymyślić.

Nieużycie GRAPHICS wynika z tego iż ta instrukcja czyści ekran, plan jest taki iż te moje ów gówniane dzieło nie będzie wykorzystywać całego ekranu tylko jego część, tą część którą zamaże chciałbym gdzieś przechować aby po wyjściu z gówienka nabazgrać to co było tam wcześniej, ot taki można powiedzieć śmieć w okienku ;)

@Iron: ale BASIC sam siebie uruchamiając się czyści ekran, więc nie bardzo sobie to wyobrażam :)

niezaprzeczalnie nakłamałem :) faktycznie przejście do BASIC-a np. z DOS, nie czyści ekranu :)

w takim razie może coś w tym stylu:

10 ? CHR$(125):LIST 
15 EKR=PEEK(88)+256*PEEK(89)
20 FOR Y=0 TO 10:FOR X=0 TO 10
21 A=PEEK(EKR+Y*40+X)
22 PTR=EKR+40*(Y+10)+20+X
23 POKE PTR,A
24 NEXT X:NEXT Y

ps1) ale szybkie to nie będzie, ale to tylko przykład. Można się pozbyć mnożeń, etc. :)

ps2) mój błąd polegał na tym że w np. w DOS II+ włączenie BASIC-a (komenda =ON) ponownie otwiera ekran, bo RAMTOP obniża sie do $A000 i OS musi ponownie otworzyć ekran nieco niżej w pamięci, natomiast późniejsze wywołanie CAR z poziomu DOS (gdy BASIC jest już włączony) już nie czyście ekranu, ale w przypadku DOS II+ czy My-DOS przejście z BASIC-a do DOS już czyści ekran (ale to już zachowanie danego DOS-a)

Problem nie polega na czyszczeniu ekranu (kanał #0), tylko na otwarciu kanału #6 do operacji graficznych, którego to kanału używa LOCATE. Jeśli chcesz zachować zawartość ekranu trzeba go jednak przepisać (wydaje mi się, że GRAPHICS 0+32 mimo, że powinno działać, to jednak nie działa :/).

Nie GR.0 w Turbo Basic XL:

10 OP.#1,8,0,"COTAMTRZEBA"
11 BPUT #1,DPEEK(88),24*40:CL.#1
12 GR.0:OPEN #1,4,0,"COTAMTRZEBA"
13 BGET #1,DPEEK(88),24*40:CL.#1

Można usunąć kursor i przywrócić w to samo miejsce, jak trzeba.