Tömma radbufferten

4 posts in thread

• Sven Wickberg <1384> · Text 7485 · w8 · inlagg

  1987-09-09 23:32

  Ärende: Tömma radbufferten

  Tydligen fungerar lösningen på mitt problem på följande sätt: (någonting pågår medan jag håller RETURN nedtryck) (filen slut) xx IF SYS(8) THEN xx ! på ABC806 blir sys(8)<>0 när tg nedtryckt yy A=SYS(6):GET W¤ ! lägger tillbaka senast nedtryckta tangent ! i radbufferten, samt tömmer dem (med GET) ! utan att eka zz ;"Skall utskrift ske (N)";:INPUT W¤ ! kan köras utan att vara ! förvalsbesvarad av RETURN Om man hänger kvar på RETURN stannar programmet kvar på rad xx. När man släpper RETURN går den vidare till yy, rensar bufferten och visar zz, obesvarad. Man måste dock släppa RETURN fort, annars hinner den uppfatta RETURN som nedtryck.... PS jojo, jag vet att man kan köra WHILE etc, men det här fungerar faktiskt, och eftrsom det är samma radnummer på hoppraden kan det inte görna bli fel.
  • Kristoffer Eriksson <5357> · Text 7494 · w8 · kommentar

    1987-09-13 23:07

    Ärende: Tömma radbufferten

    För min del, skulle jag då aldrig skriva "xx IF foo THEN xx", i stället för "WHILE foo : WEND". WHILE-varianten är både kortare och mer lättläst... Jag skulle föredra "IF SYS(5) THEN GET W¤" framför "A=SYS(6) : GET W¤", det stämmer liksom bättre med radens syfte, nämligen att få bort eventuella rester ur inmatningsbufferten. Det bästa är "WHILE SYS(5) : GET W¤ : WEND", så kan den tömma en större inbuffert än de vanliga enteckens. Och som du väl vet vid det här laget fungerar SYS(8) inte på ABC800. Otur för resten, om man har lite problem med att sluta trycka på knappen, och råkar trycka till RETURN som hastigast en extra gång... Jag rekommenderar alltså fortfarande SYS(5) med väntloop. Om vi håller oss till 806 och 802, så kan man stänga av tangentrepetitonen med OUT 34,5, om det kan vara till någon nytta. Vid följder av frågor med default, kanske.
    • Sven Wickberg <1384> · Text 7496 · w8 · kommentar

      1987-09-14 09:40

      Ärende: Tömma radbufferten

      Mja, smaksaker kan man alltid fortsätta att diskutera och jag håller med om att While-Wend är trevligare än GOTO; men nu är det ett faktum att mina rader har åsuyftad verkan: Exekveringen STANNAR till dess man har släppt upp knappen, och sedan försvinner senaste knapptryckningen ur minnet. Dt var det jag ville och det har jag fått. WHILE SYS(5) THEN GET W¤:WEND ser mycket trevligare ut, men det fungerar inte (i varje fall inte i Basic2PC där jag provade det i går kväll, och - vill jag minnas - inte heller i ABC806 där jag provade det första gången det föreslogs (det sista har jag inte dokumenterat). Jag har inte manualen till Basic2PC hemma så jag kan inte slå upp om SYS-kommandona finns med där, men jag antar att de måste finnas; eller också måste något motsvarande finnas.
      • Kristoffer Eriksson <5357> · Text 7501 · w8 · kommentar

        1987-09-18 22:46

        Ärende: Tömma radbufferten

        Observera: Det var bara "A=SYS(6) : GET W¤" som skulle bytas ut mot "WHILE SYS(5) : GET W¤ : WEND" (och man skriver inte THEN efter WEND). SYS(5) i sig finns i BasicII/PC, och fungerar. SYS(8) finns däremot inte. Så här menade jag alltså att det skulle ha skrivits: WHILE IF SYS(8) : WEND WHILE SYS(5) : GET W¤ : WEND ;"Skall utskrift ske (N)"; : INPUT W¤ Fast den konstruktion jag föredrog uBr kompatibilitetssynpunkt för alltihop var: WHILE 1 Dröj=... : WHILE SYS(5)=0 AND Dröj : Dröj=Dröj-1 : WEND IF SYS(5) THEN GET Slask¤ : WEND ;"Skall utskrift ske (N)"; : INPUT W¤