helt svart skärm.

3 posts in thread

• Peter Goldmann <5080> · Text 7694 · w8 · inlagg

  1987-11-01 21:20

  Ärende: helt svart skärm.

  När jag använder T.BAC/qz.806 har jag gjort så att när jag loggar ur blir skärmen helt svart det sker med ;cur(1,1) :b=1:wile b>-1: for I=1 to 500:next I: b=sys(8):wend då händer detta att skärmen släcks tills man trycker ned en tangent. Då går man vidare i programmet. Men hur gör man för att kunna välja utan att markör tänds på skärmen? Använder man Get A¤ för att testa J/N för fortsätning/sluta så tänds markören i vänstra kanten av raden på skärmen. Hur gör man val som ej tänder skärmen när tangenter trycks ned? Jag ska kunna välja att från släckt skärm återgå till körning eller att sluta genom att hoppa till end. Även där vore det trevligt med släckt skärm tills jag skriver RUN xxxxxx.yyy d v s namnet på nästa program som jag vill köra.
  • Lars Gjörling <6825> · Text 7698 · w8 · kommentar

    1987-11-02 00:24

    Ärende: helt svart skärm.

    Istället för GET A¤ kan man väl i så fall skriva (på ABC806): WHILE NOT SYS(8) : WEND : A¤=CHR¤(PEEK(65507)) : POKE 65506,0,0 Mvh Lars
    • Kristoffer Eriksson <5357> · Text 7702 · w8 · kommentar

      1987-11-03 00:04

      Ärende: helt svart skärm.

      Det finns ingen anledning att använda en massa PEEK, POKE och ABC806-beroen de SYS(8) i det här fallet. Till att läsa ett tecken utan markör: WHILE SYS(5)=0 : WEND : GET A¤ Till att vänta på ett tecken och sedan avsluta programmet: WHILE SYS(5)=0 : WEND END GET gör samma sak som PEEK(65507) i princip, och när man vet att ett tecken redan finns i inmatningsbufferten, kommer markören inte att visas. SYS(5) talar om ifall något tecken finns i inbufferten. SYS(8) talar om ifall någon tangent är nedtryckt just nu. Att vänta på SYS(8) passar inte helt ihop med att sedan läsa från inbufferten, för att tangenten är nedtryckt behöver inte nödvändigtvis betyda att tecknet har lästs in till inbufferten riktigt än. I så fall skulla man snarare läsa från INP(34). Undras varför man skulle vilja släcka skärmen helt? (Beklagar radbrytningen.)